Comandos do jogo

Bom esse é simples começe abrindo seu
Principal.txt Procure por

Código:

Sub Commands(index)
On Error Resume Next
Dim Portal
Dim mapnum
Dim x
Dim y
Dim i
Dim TextSay
Dim n
Dim m
Dim C
Dim ki 
Dim Resets
m = GetVar("Dados.ini", "MAX", "MAX_MAPS")
TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

De um enter e adicione :

Código:

If LCase(Trim(TextSay)) = "/cdj" Then
        If GetPlayerAccess(index) > 0 Then
            Call PlayerMsg(index, "Comandos do jogo: /cidade, /atendimento,  /areavip", 14)
        End If
    Exit Sub
    End If

If LCase(Trim(TextSay)) = "/cdj" Then 'cdj = Comandos do jogo escolha seu comando
If GetPlayerAccess(index) > 0 Then 'aceco para usar esse comando
Call PlayerMsg(index, "Comandos do jogo: /cidade, /atendimento, /areavip", 14) ' aki voçe coloca os comandos
End If
Exit Sub
End If