[ALL] /ki Mostrando Também Resets

Convidado

Nome: /ki Mostrando Também Resets
Nivel de Dificuldade : 2/5
Utiliza: Script Principal.txt

procure:

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)

em baixo 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

Creditos: Desconehçidos

Convidado

obgrado tava precisando

Administrador Mensagens : 711

Tópico Movido para área de Tutoriais

Convidado

Não iraa pegar, você ia precisar desse tuto:

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Convidado

Sim. Para aparecer os Resets precisa do sistema de Resets adaptado pelo VB.