[Correção] Retirar probição de números ao usar "warptome"

por Ricardo Sex 31 Ago 2012, 19:14

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