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.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

[EEB] Ir para casa e base

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais

Ir para baixo

[EEB] Ir para casa e base Empty [EEB] Ir para casa e base

Mensagem por ~Stroner Sex 15 Nov 2013, 22:37

Bom eu procurei não achei no fórum se tem eu não vi me desculpe mas mesmo assim muita gente sabe fazer ,mas outras não sabem então vou postar aki
 Esse é o /casa
 Va no Server/script/Principal.txt abra de Ctrl+f e procure :
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)    
De um enter e adicione:

Código:
If Lcase(Trim(TextSay)) = "/casa" Then
If GetPlayerName(Index) = "Nome Do Player" Then
Call PlayerWarp(index, 13, 2, 3)
Exit Sub
End If
End If  
Explicando

If Lcase(Trim(TextSay)) = "/casa" Then = comando usado
If GetPlayerName(Index) = "Nome Do Player" Then = nome do player
Call PlayerWarp(index, 13, 2, 3) = (map,x,y)
Exit Sub
End If
End If  

Agora o de base
Se fez o da casa só da um enter depois do código e adicione:
Código:
If Lcase(Trim(TextSay)) = "/base" Then
If GetPlayerGuild(Index) = "-=STAFF=-" Then
Call PlayerWarp(index, 112, 10, 13)
Exit Sub
End If
End If
Explicando:

If Lcase(Trim(TextSay)) = "/base" Then = Comando usado
If GetPlayerGuild(Index) = "-=STAFF=-" Then  = nome da guilda
Call PlayerWarp(index, 112, 10, 13) = (map,X,Y)
Exit Sub
End If
End If

Creditos: Desconhecido
Mais mesmo assim podem dar +1 pra min por disponibilizar aki Very Happy
~Stroner
~Stroner
Novato
Novato

Mensagens : 7

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais

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