[ALL]Tirar Pk /retirarpk

por **Lendário** Sex 26 Fev 2010, 20:33

Tutorial bem pequeno...acho que todo mundo sabe oque é PK,certo então vamos começar..

Procure por:

Código:: 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)

Adicione abaixo:

Código:: If Lcase(Trim(TextSay)) = "/retirarpk" Then If GetPlayerPK(index) = 1 Then Call SetPlayerPK(index, 0) Call PlayerMsg(index,"Você tirou seu PK!", 14) Mensagem que vai aparecer após voce tirar seu pk. Else Call PlayerMsg(index,"Você não está PK!", 14)mensagem que vai aparecer se nao estiver PK e usar o comando Exit Sub End If End If

OBS: Quando voce usar o comando, use também o /atualizar Idea