[ALL]Comando /casa mais Rapido

por lucasvivo25 Ter 16 Nov 2010, 16:28

oi vo ensinar um tuto que enventei de coloca /casa para vc chega na sua casa mais rapido

Vai em Main/Principal

Primeiro 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)

Logo em baixo add:

Código:: If Lcase(Mid(TextSay, 1, 7)) = "/casa" Then (Escolha seu Comando) If GetPlayerName(Index) => "Teste" Then (Nome Do Player) Call playsound(index, "magic12.wav")' (som) Call PlayerWarp(index, 1, 10, 5) (Mapa,x,y) Call PlayerMsg(index, "Voçê esta em casa", 4) (mensagem Quando vc entra em casa) Else Call PlayerMsg(Index, "Você Não é Da Casa do Teste.", 14) (quando vc n for da casa a mensagem) End If Exit Sub End If

Testado (funfo)

Creditos:A min eu que fiz ( se alguem fez primeiro me descupe , mais eu fiz esse)

FLW