[ALL]Comando Para /vip

por lucasvivo25 Qua 27 Out 2010, 07:21

Ola esse e meu primeiro Tutorial ^^

Primeiro: vai no binarios depois Scripts e entre no principal

ache por isso (ctrl + f)

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)

Em Baixo ADD

Código:: If Lcase(Trim(TextSay)) = "/vip" Then (Ai e o comando vc pode escolhe outro) If GetPlayerAccess(Index) => 1 Then (aki e o acesso q a pessoa deve ter ) Call PlayerWarp(index, 1, 10, 5) (Aki e vc Escolhe O Lugar que seu Char quer ir EX: 1 Mapa-10 X-5 y .) Call PlayerMsg(index, "Você Está Na Cidade Vip", 4) (aki e a mensagem e q vai mostar lá no chat global ) Call PlaySound(Index, "Portal.wav") (aki e o nome do son q vai fazer quando usar o comando q Você colokou) Exit Sub End If End If