Correção - Proibir números ao digitar teletransportar até alguem Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

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

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

Ir para baixo

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
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)

Ir para o topo Ir para baixo

Ir para o topo


 
Permissões neste sub-fórum
Não podes responder a tópicos