Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

[ALL]Scripter Tirando pk

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial [ALL]Scripter Tirando pk em Seg 11 Out 2010, 18:38

Thales12


Membro
Membro
No Principal ou no Main, 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)

e adcione:

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

Creditos:GamesPower
Créditos: Thales.

[Você precisa estar registrado e conectado para ver esta imagem.]

2Tutorial Re: [ALL]Scripter Tirando pk em Seg 11 Out 2010, 20:24

Luucas Robeerto


Fundador
Fundador
+1 DE CRED

http://universogamesmmo.forumeiros.com

3Tutorial Re: [ALL]Scripter Tirando pk em Seg 13 Dez 2010, 10:45

willame


Membro
Membro
Bom Tuto Thales

[Você precisa estar registrado e conectado para ver esta imagem.]

4Tutorial Re: [ALL]Scripter Tirando pk Hoje à(s) 12:17

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum