[ALL]Scripter Tirando pk

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)) = "/tirarpk" Then
If GetPlayerPK(index) = 1 Then
Call SetPlayerPK(index, 0)
Call PlayerMsg(index,"Você retirou seu PK!", 14)
Else
Call PlayerMsg(index,"Você não está PK!", 14)
Exit Sub
End If
End If