[EEB] Script de Teleporte por Guild e Por Name

por SynysterGates Qua Ago 29, 2012 10:24 pm

Ae Galera como quero entrar para staff e não vi esse tuto aki resolvi postar : Very Happy

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:: 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:: Call PlayerWarp(index, 100, 10, 11) End Sub

Abaixo Adicione:

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!!!

Creditos A Min por trazer e postar esse tutorial e A Deck Por Editar!!!