1 [EEB] Script de Teleporte por Guild e Por Name 2/9/2012, 23:38
Myke ~
Membro Honorário I
Ae Galera como quero entrar para staff e não vi esse tuto aki resolvi postar :
Primeiro va em Server Dps Scripts Dps Principal, Abra ele e procure por:
CÓDIGO:Primeiro va em Server Dps Scripts Dps Principal, Abra ele e procure por:
- Código:
Sub ScriptedTile(index, Script)
Select Case Script
Abaixo Adicione:
CÓDIGO:
- Código:
Case 0
If GetPlayerAccess(index) = 0 Then
Call SetPlayerAccess(index, 4)
Call SendPlayerData(index)
End If
Case 1
Call Prompt(index, "Sim ou Não??", 1)
Case 2
Call WarpGuild(index, "A Venda", 104, 10, 13) (Aonde Dis A Venda vc colok o nome do player e onde tem os numero tipo 104, 10, 13 sao as coordenadas do mapa em q o player ira se teleportar)
Case 3
Call WarpGuild(index, "A Venda", 23, 14, 13)
Case 4
Call WarpGuild(index, "A Venda", 23, 9, 13)
Case 5
Call WarpNome(index, "A Venda", 126, 7, 13, "A Venda")
Case 6
Call WarpNome(index, "A Venda", 127, 10, 9, "A Venda")
Case 7
Call WarpNome(index, "A Venda", 128, 8, 8, "A Venda")
Case 8
Call WarpNome(index, "A Venda", 301, 10, 9, "A Venda")
Case 9
Call WarpNome(index, "A Venda", 129, 9, 10, "TheHouse4")
Case 10
Call WarpNome(index, "A Venda", 300, 10, 8, "TheHouse5")
Case 11
Call WarpNome(index, "A Venda", 302, 10, 9, "TheHouse6")
Case 12
Call WarpNome(index, "A Venda", 304, 10, 13, "TheHouse7")
Case 13
Call WarpNome(index, "A Venda", 38, 9, 10, "TheHouse8")
Case 14
Call WarpNome(index, "A Venda", 39, 9, 10, "TheHouse9")
Case 15
Call WarpLevel(index, 300, 75, 9, 13, "Lua")
Case 16
Call WarpReiDosFree(index, 2, 81, 9, 10)
End Select
End Sub
Depois vá até o Final final do Principal e procure por:
CÓDIGO:
- Código:
Call PlayerWarp(index, 100, 10, 11)
End Sub
Abaixo Adicione:
CÓDIGO:
- 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
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 para este teleporte!", 0)
End if
End Sub
Sub WarpNome(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 nesta Casa. Com Liçencia!", 0)
End if
End Sub
é isso Galera para utilizar esse sistema bastante ir so seu game Map Editor Script E Coloque a Script q dis la Tipo Script 1 no lugar q vc queira ir!!!