[Sistema] Play PK

Va na Pasta Servedor e depois scripts, depois abra "Princial.Txt"
Procure Por:
TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index)

Abaixo Adicione:
If Lcase(Trim(TextSay)) = "/pkon" Then
If GetPlayerPK(index) = 1 Then
Call SetPlayerPK(index, 0)
Call PalyerMsg(index, "Você Saiu Do Modo PK!", 14)
Call GlobalMsg(GetPlayerName(index) & " Saiu Do Modo PK! ", 4)
Call SavePlayer(index)
Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), False)
Exit Sub
End If
End If


If Lcase(Trim(TextSay)) = "/pkoff" Then
If GetPlayerPK(index) = 0 Then
Call SetPlayerPK(index, 1)
Call PlayerMsg(index, "Você Entrou Em Modo PK!", 14)
Call GlobalMsg(GetPlayerName(index) & " Entrou Em Modo PK! ", 4)
Call SavePlayer(index)
Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), False)
Exit Sub
End If
End If
-----------------------------------------------------------------------------------
Creditos a min por postar