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.

[ALL] Comando Status

Ir para baixo

[ALL] Comando Status Empty [ALL] Comando Status

Mensagem por Thales12 Qua 23 Fev 2011, 18:33

Abra o Client~Side

Procure por:

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

Abaixo adicione:

Código:
' Show status
        If LCase(Mid(MyText, 1, 7)) = "/status" Then
            frmMirage.picStatus.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 adicione no :

Código:
Call AddText("/info, /quem, /fps, /inv, /stats, /negociar, /grupo, /sair, /matar, /atualizar, /ajuda", White)

o /status

So compilar q ta pegando ! Smile

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

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