Entrar
Criar Conta
Mensagens
Data de inscrição
LocalizaçãoBom vamo Ao Tutorial e Bem Simples
Vai na Pasta do servidor do seu Jogo Procure Por Scripts Abra e Dentro dela Vai Achar
O Principal.txt Ou Main.txt Abra e de Ctrl+F e 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
m = GetVar("Dados.ini", "MAX", "MAX_MAPS")
TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)
Abaixo Adicione:
- Código:
Ki = GetPlayerSTR(index) + GetPlayerDef(index) + GetPlayerSPEED(index) + GetPlayerMAGI(index)
If Lcase(Trim(TextSay)) = "/ki" Then
Call BattleMsg(index, "Seu Ki é de: " & Ki & "!", 14, 0)
Call BattleMsg(index, "Voce tem " & GetPlayerResets(Index) & " Resets", 14, 0)
Exit Sub
End If
Pronto Agora so dar /ki e Pronto Simples não ? .-.'
