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


se ajudei 1 cred D:

me ajuda a fazer isso no eclipse origens man???ou esse metodo ai funciona la tbm?

BrendoEOM escreveu:me ajuda a fazer isso no eclipse origens man???ou esse metodo ai funciona la tbm?

BrendoEOMgatãum, atento com a data do Topico.

Se quer algo assim, pegue o Link do Topico e crie um novo pedido. 

Ficar revivendo é complicado. < 3 Leias as regras.