[ALL]Comando de Transformação

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)

If LCase(Trim(TextSay)) = "/ssj" Then ' o comando q vai usar
If GetPlayerAccess(Index) >= 0 Then ' o acesso requerido
If GetPlayerClass(Index) = 1 Then ' a classe requerida
If GetPlayerLevel(Index) >= 250 Then ' o level requerido
If GetPlayerSprite(Index) = 1 Then ' a sprite requerida
Call SetPlayerSprite(Index, 35) ' a sprite q vai virar
Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 2) ' a quantidade de str q vai ganhar
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 2) ' a quantidade de def q vai ganhar
Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 2) ' a quantidade de velocidade q vai ganhar
Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 2) ' a quantidade de MAGI q vai ganhar
Call PlayerWarp(Index, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index), False)
Exit Sub
End If
End If
End If
End If
End If

Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 2)

Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 100) ' add mais 100
Call SetPlayerSTR(Index, GetPlayerSTR(Index) - 100) ' tira 100
Call SetPlayerSTR(Index, GetPlayerSTR(Index) * 2) ' duplica sua força se tiver 100 vai para 200, etc..
Call SetPlayerSTR(Index, GetPlayerSTR(Index) / 2) ' dividi sua força se tiver 200 vai para 100, etc..
OBS: tem o STR, DEF, MAGI e SPEED