Aldeia RPG

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte ao desenvolvimento de jogos


    Correção - Proibir números ao digitar teletransportar até alguem

    Ricardo
    Ricardo
    Ocasional
    Ocasional


    Mensagens : 162
    Créditos : 71

    Ficha do personagem
    Nível: 1
    Experiência:
    Correção - Proibir números ao digitar teletransportar até alguem Left_bar_bleue0/0Correção - Proibir números ao digitar teletransportar até alguem Empty_bar_bleue  (0/0)
    Vida:
    Correção - Proibir números ao digitar teletransportar até alguem Left_bar_bleue30/30Correção - Proibir números ao digitar teletransportar até alguem Empty_bar_bleue  (30/30)

    Correção - Proibir números ao digitar teletransportar até alguem Empty Correção - Proibir números ao digitar teletransportar até alguem

    Mensagem por Ricardo Sex Ago 31, 2012 8:15 pm

    Explicando

    Quando você for teletransportar até alguem e essa pessoa tiver algum algarismo no nome o comando não irá funcionar.

    Client~Side

    frmMain

    Mude a Sub cmdAWarp2Me para:

    Código:
    Private Sub cmdAWarp2Me_Click()
        ' If debug mode, handle error then exit out
        If Options.Debug = 1 Then On Error GoTo errorhandler

        If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then
           
            Exit Sub
        End If

        If Len(Trim$(txtAName.Text)) < 1 Then
            Exit Sub
        End If

        WarpToMe Trim$(txtAName.Text)
       
        ' Error handler
        Exit Sub
    errorhandler:
        HandleError "cmdAWarp2Me_Click", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext
        Err.Clear
        Exit Sub
    End Sub

    Obs.: Verifique se existe alguma outrasub com esse nome, caso existir apague-a.

    modImput

    Procure por:

    Código:
                    Case "/warptome"
                        If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then GoTo continue

                        If UBound(Command) < 1 Then
                            AddText "Usage: /warptome (name)", AlertColor
                            GoTo continue
                        End If

                        If IsNumeric(Command(1)) Then
                            AddText "Usage: /warptome (name)", AlertColor
                            GoTo continue
                        End If

    Mude para:

    Código:
                    Case "/warptome"
                        If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then GoTo continue

                        If UBound(Command) < 1 Then
                            AddText "Usage: /warptome (name)", AlertColor
                            GoTo continue
                        End If

    Créditos

    Ricardo

      Data/hora atual: Qui Mar 28, 2024 9:19 am