sobre o comando ssj

Sobre o comando ssj tipo eu ponho tudu do vegeta /ss ai lvl 50 dai fui testa lvl 50 pego viro ss dai lvl 100 ss2 dai foi so q qndo ta no ss2 qndo digita o /ss ele volta pra sayadin e os pontos so vao aumentando qnto mais faiz maior os pontos

tipo me ensina ae desaprendi como q faiz os ssj do vegeta ai


eu botei assim:

If LCase(Mid(TextSay, 1, 4)) = "/ssj" Then
If GetPlayerClass(index) = 1 Then
If GetPlayerLevel(Index) => 50 Then
Call SetPlayerSprite(index, 13)
Call SetPlayerMagi(index, getplayermag(index) + 0)
Call SetPlayerStr(index, GetPlayerStr(index) + 50)
Call SetPlayerDef(index, GetPlayerDef(index) + 50)
Call SetPlayerSpeed(index, GetPlayerSpeed(index) + 0)
Call SendPlayerData(index)
End If
End If
Exit Sub
End If

If LCase(Mid(TextSay, 1, 4)) = "/vegeta" Then
If GetPlayerClass(index) = 1 Then
If GetPlayerLevel(Index) => 1 Then
Call SetPlayerSprite(index, 0)
Call SetPlayerMagi(index, getplayermag(index) + 0)
Call SetPlayerStr(index, GetPlayerStr(index) - 50)
Call SetPlayerDef(index, GetPlayerDef(index) - 50)
Call SetPlayerSpeed(index, GetPlayerSpeed(index) + 0)
Call SendPlayerData(index)
End If
End If
Exit Sub
End If


ai no vegeta qro q ele volte ao normal mais n vai qro sab como faze todos ss 1 ss2 ss3 ss4
sem da esse bug dos pontos manda um exemplo

ok, este seu script é bugado, pois eu posso digitar o /ssj 5 vezes e depois o vegeta uma vez so e o kra vai ficar mt forte.

Vou modificar este script e vc vera a correção:

Código:

If LCase(Mid(TextSay, 1, 4)) = "/ssj" Then
If GetPlayerClass(index) = 1 Then
If GetPlayerLevel(Index) => 50 Then
If GetVar("Accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "SSJ" = 1 Then
Call PlayerMsg(index, "Você já está nessa evolução!", 4)
Else
Call SetPlayerSprite(index, 13)
Call SetPlayerStr(index, GetPlayerStr(index) + 50)
Call SetPlayerDef(index, GetPlayerDef(index) + 50)
Call PutVar("Accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "SSJ", 1)
Call SendPlayerData(index)
End If
End If
Exit Sub
End If

Código:

If LCase(Mid(TextSay, 1, 4)) = "/vegeta" Then
If GetPlayerClass(index) = 1 Then
If GetPlayerLevel(Index) => 1 Then
If GetVar("Accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "SSJ" = 0 Then
Call PlayerMsg(index, "Você já está nessa evolução!", 4)
Else
Call SetPlayerSprite(index, 0)
Call SetPlayerStr(index, GetPlayerStr(index) - 50)
Call SetPlayerDef(index, GetPlayerDef(index) - 50)
Call PutVar("Accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "SSJ", 0)
Call SendPlayerData(index)
End If
End If
Exit Sub
End If

mais tipo c eu quiser faze todos os ssj aio preciso fase /vegeta pra todos??

como ficaria manda exemplo plx

Tipo o ssj ssj 2 ssj3 ssj4 etc

vc tem que botar um numero para cada ssj.
No que eu dei de exemplo o numero e 1, mas se vc quiser fazer outros, é só vc copiar e trocar o número para outro.