[ALL]Comando de add pontos

TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

If LCase(Trim(TextSay)) = "/addfor" Then 'coloque o comando q vc quer...
If GetPlayerstr(index) < 1 Then 'aqui coloque o maximo de força do seu jogo...
Call BattleMsg(index, "Você Precisa Ser Full para usar Esse comando!", 12, 0) 'mensagen q fala se ele n ter os pontos full...
Else
If GetPlayerPOINTS(index) > 50 Then 'pontos q vai usar ...
Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 50) 'pega os 50 e taka em força = 1...
Call SetPlayerstr(index, GetPlayerstr(index) + 1)
Call SendStats(Index)
Call MsgBox(index, "Você adicionou 1 ponto em Força!", 15, 0) 'mensagen de quando add...
Exit Sub
End If
End If
End if