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

[ALL] Comando Equipamento

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

Ir para baixo

[ALL] Comando Equipamento Empty [ALL] Comando Equipamento

Mensagem por Thales12 Qua 23 Fev 2011, 18:25

Facil, mt simples ._.'
mais to sem ideias, entao vou postar isso msm ._.'

Abra o Client~Side e procure por:

Código:
' Show inventory
        If LCase(Mid(MyText, 1, 4)) = "/inv" Then
            frmMirage.picInv3.Visible = True
            MyText = vbNullString
            Exit Sub
        End If

em baixo adicione:

Código:
' Show equipamento
        If LCase(Mid(MyText, 1, 6)) = "/equip" Then
            frmMirage.picEquip.Visible = True
            MyText = vbNullString
            Exit Sub
        End If

dps procure por:

Código:
' Commands
        If Mid(MyText, 1, 9) = "/comandos" Then
            Call AddText(":::::::: Comandos ::::::::", White)
            Call AddText(", (broadcast), - (emote), + (party), = (guild), ! (private)", White)
            Call AddText("/info, /quem, /fps, /inv, /stats, /negociar, /grupo, /sair, /matar, /atualizar, /ajuda", White)
            Exit Sub
        End If

e mude para:

Código:
' Commands
        If Mid(MyText, 1, 9) = "/comandos" Then
            Call AddText(":::::::: Comandos ::::::::", White)
            Call AddText(", (broadcast), - (emote), + (party), = (guild), ! (private)", White)
            Call AddText("/info, /quem, /fps, /inv, /equip, /stats, /negociar, /grupo, /sair, /matar, /atualizar, /ajuda", White)
            Exit Sub
        End If

So compilar q ta pegando, quando entrar no jogo e vc der /equip, vai abrir o seu equipamento.

Créditos: By eu: Thales12
Thales12
Thales12
Membro Veterano
Membro Veterano

Mensagens : 1011

http://www.rdmgames.tk

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