CÓDIGO:

Código:

Sub ScriptedTile(index, Script)
Select Case Script

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

CÓDIGO:

Código:

Call PlayerWarp(index, 100, 10, 11)
End Sub


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


Bom, como não posso testar por que não uso EEB, não vou dizer nada, porém parece útil isso, caso alguém teste e goste já deixo o meu +REP aqui para você, boa sorte com seus tutos =D.