[ALL]Tutorial:Teleporte Por Guild Facil!

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)

Código:

'Comando para a Base de Guild
If Lcase(Mid(TextSay, 1, 7)) = "/base1" then 'Comando usado
If GetPlayerGuild(index) => "§upremo§" Then '
Call playsound(index, "magic12.wav")'som q aparece quando usado o Comando
Call PlayerWarp(Index, 48, 7, 2) ' Mapa, X, Y'
Call PlayerMsg(Index, "Bem-Vindo a Base 1!", 15)'a msm q aparecera
Else
Call PlayerMsg(Index, "Você Não é Da Guild §upremo§.", 14) 'se nao tiver o lvl necessário ja sabe hehehe
End If
Exit Sub
End If

ADMramon escreveu:Desculpa pessoal por reviver esse topico mais é de inteira importância minha duvida , queria saber se so vai poder ter 1 base ?
e como será pra ter + bases porque isso fica sendo exclusivo de 1 guild só mt obrigado abrçs e desculpa novamente.

Código:

If LCase(Mid(TextSay, 1, 6)) = "/Base1" Then
    If GetPlayerGuild(Index) = "" Then
        Call PlayerMsg(Index, "Você não pertence a uma Guild!", Red)
    ElseIf GetPlayerGuild(Index) = "M.Dutra" Then
        Call PlayerWarp(Index, 48, 7, 2) ' Mapa, X, Y'
        Call PlayerMsg(Index, "Bem-Vindo a Base da Guild M.Dutra!", 15)
    ElseIf GetPlayerGuild(Index) = "M.Dutra1" Then
        Call PlayerWarp(Index, 50, 7, 2)
        Call PlayerMsg(Index, "Bem-Vindo a Base da Guild M.Dutra1", 15)
    ElseIf GetPlayerGuild(Index) = "M.Dutra2" Then
        Call PlayerWarp(Index, 51, 7,2)
        Call PlayerMsg(Index, "Bem-Vindo a Base da Guild M.Dutra2", 15)
    Else
        Call PlayerMsg(index, "Desculpe Mais sua Guild não tem Base", Red)
        Exit Sub
    End If
End If

Se O player digitou e enviou /base1 Então
se o player não tem guild Então
manda a mensagem pro player você não tem uma guild com a cor vermelha
mais se o player tiver uma guild chamada de M.Dutra Então
Warpa o player pro mapa 48 eixo x 7 e eixo y 2
Manda a mensagem pro player Bem-Vindo a Base da Guild M.Dutra com a cor branca
Mais se o player tiver uma guild chamada de M.Dutra1 Então
Warpa o player pro mapa 50 eixo x 7 e eixo y 2
Manda a mensagem pro player Bem-Vindo a Base da Guild M.Dutra1 com a cor branca
Mais se o player tiver uma guild chamada de M.Dutra2 Então
Warpa o player pro mapa 51 eixo x 7 e eixo y 2
Manda a mensagem pro player Bem-Vindo a Base da Guild M.Dutra2 com a cor branca
Mais se o Player não for de nenhuma dessas guilds então
Manda a mensagem pro player Desculpe mais sua guild não tem base com a cor vermelha
Sai da sub
Fecha a condição
Fecha a condição