Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Correção - Proibir números ao digitar teletransportar até alguem
Página 1 de 1
Correção - Proibir números ao digitar teletransportar até alguem
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
- Mensagens : 162
Créditos : 71
Ficha do personagem
Nível: 1
Experiência:
(0/0)
Vida:
(30/30)
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos