MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Warp Por Level, Guild, Item E Nome

2 participantes

Ir para baixo

Warp Por Level, Guild, Item E Nome Empty Warp Por Level, Guild, Item E Nome

Mensagem por DshFox Sáb 02 Jan 2010, 19:06

TUDO COPY E PASTE CREDITO : BOASFESTA (Mod que adora esse forum x.x)

Abra seu Main.txt
Agora vá lá no final e adicione

'Warp Por Level
Código:
Sub WarpLevel(index, Level, Map, X, Y, NomeDoMapa)
If GetPlayerLevel(index) > Level then
Call PlayerWarp(index, Map, X, Y)
Call PlayerMsg(index, "Voce se teleportou para o mapa " & NomeDoMapa, 1)
Else
Call PlayerMsg(index, "Voce precisa ter no minimo o level" & Level & " Para se teleportar para este mapa!", 0)
End if
End Sub

'Warp Por Guild
Código:
Sub WarpGuild(index, Guild, Map, X, Y)
If GetPlayerGuild(index) = Guild then
Call PlayerWarp(index, Map, X, Y)
Call PlayerMsg(index, "Voce se teleportou para sua base!", 1)
Else
Call PlayerMsg(index, "Apenas os membros da guild " & Guild & " podem entrar nesta base!", 0)
End if
End Sub

'Warp Por Access
Código:
Sub WarpAccess(index, Access, Map, X, Y)
If GetPlayerAccess(index) > Access then
Call PlayerWarp(index, Map, X, Y)
Else
Call PlayerMsg(index, "Apenas Jogadores com o Acesso maior que " & Access & "Podem passar por este teleporte!", 0)
End if
End Sub

'Warp Por Nome
Código:
Sub WarpLevel(index, Nome, Map, X, Y, NomeDoMapa)
If GetPlayerName(index) = Nome then
Call PlayerWarp(index, Map, X, Y)
Call PlayerMsg(index, GetPlayerName(index) & ", Voce se teleportou para o mapa " & NomeDoMapa, 1)
Else
Call PlayerMsg(index, "Voce não é o " & Nome & " Para entrar neste teleporte!", 0)
End if
End Sub

'Warp Por Item
Código:
Sub WarpItem(index, NumeroDoItem, Map, X, Y, NomeDoItem)
Dim i as long
For i = 1 to MAX_INV
If GetPlayerInvItemNum(index, i) = NumeroDoItem then
Call PlayerWarp(index, Map, X, Y)
Call PlayerMsg(index, "Voce tem o item " & NomeDoItem & " e se teleportou !, 1)
Else
Call PlayerMsg(index, "Voce presisa ter o item" & NomeDoItem & " para se teleportar neste teleporte!", 0)
End if
End Sub

Voce não precisa colocar todos, só os que você quer colocar.
Agora procure por:
Sub ScriptedTile
ou se quizer tbm pode usar como
Scripted Item
ou qlquer outra coisa q vier na mente .`_.

pra chamar o comando usa os seguintes codes

Código:
Case X
Call WarpGuild(index, "Guild entre aspas", Mapa, X, Y) ' Use para o Warp de Guild
Call WarpAccess(index, Acesso necessário, Mapa, X, Y) ' Use para o Warp de Acesso
Call WarpNome(index, "Nome do player aqui entre aspas", Mapa, X, Y, "Nome do mapa que ele teletransportará entre aspas") 'Use para o Warp de Nome
Call WarpItem(index, Numero do item necessário, Mapa, X, Y, "Nome do Item entre aspas") ' Use para o Warp de Item
Exit Sub 'Use isso quando acabar a Case

Agora para voce usar isto você vai ter que ir no Map Editor e selecionar a opção Script ou Scripted Tile
Ae vai aparecer pra escolher o número, isto são as Cases, Ae você escolhe o numero da Case e aperta ok, pronto só clicar no jogo para editar o lugar aonde ficará o Warp
Obrigado, Boa sorte!
"
ps: no lugar do case "X" tu coloca o numero da case disponivel
ps2: modifiquei um pouquinho soh
tenho preguiça ateh pra copy and paste Very Happy(rox)



CREDITO : BOASFESTA
DshFox
DshFox
Membro Vitalicio
Membro Vitalicio

Mensagens : 614

Ir para o topo Ir para baixo

Warp Por Level, Guild, Item E Nome Empty Re: Warp Por Level, Guild, Item E Nome

Mensagem por lukasfkt Ter 13 Jul 2010, 14:22

Boa +1 de Cred Very Happy
lukasfkt
lukasfkt
Membro
Membro

Mensagens : 121

Ir para o topo Ir para baixo

Ir para o topo


 
Permissões neste sub-fórum
Não podes responder a tópicos