[ALL] comando para ir a sua casa mais rapido

por Peterson junior Sex 21 Jan 2011, 13:35

Vai emPrincipal

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)) = "/teste" Then If GetPlayerName(Index) => "Exemplo" Then Call playsound(index, "magic12.wav")' Call PlayerWarp(index, 1, 1, 1) Call PlayerMsg(index, "Voçê esta em casa", 4) Else Call PlayerMsg(Index, "Você Não é Da Casa do Exemplo.", 14) End If Exit Sub End If

Funciona asim o comando

If Lcase(Mid(TextSay, 1, 7)) = "/teste" Then (Escolha seu Comando)
If GetPlayerName(Index) => "Exemplo" Then (Nome Do Player)
Call playsound(index, "magic12.wav")' (som)
Call PlayerWarp(index, 1, 1, 1) (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 Exemplo.", 14) (quando vc n for da casa a mensagem)
End If
Exit Sub
End If

Creditos:Foi feito por min se ja tinha esse e eu n vi direito me descupe
_______________________________________________________________________________________________________________
Gosto do meu post da 1+ cred vlw

Antes >

Depois >

por Devil Sex 21 Jan 2011, 14:21

bom tuto +1 cred
mais tipow num pode botar pra guild nao ?

por Shadowthelord Sáb 22 Jan 2011, 14:43

Muito bom ]+1cred

por »[ Caiden ]« Ter 30 Out 2012, 23:28

Bem legal isso ajuda muito , mas como agora não estou interessado em criar jogos , Só Mappear e postar aqui pra vocês avaliarem e darem dicas pra Min evoluir na arte do Mapeamento Smile

Convidado Respeite as Regras evite ser Banido !

por srloks Qua 31 Out 2012, 01:42

»[ Caiden ]« escreveu:Bem legal isso ajuda muito , mas como agora não estou interessado em criar jogos , Só Mappear e postar aqui pra vocês avaliarem e darem dicas pra Min evoluir na arte do Mapeamento

Convidado Respeite as Regras evite ser Banido !