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]Vendo membro da Guild Online

4 participantes

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

Ir para baixo

[ALL]Vendo membro da Guild Online Empty [ALL]Vendo membro da Guild Online

Mensagem por Lucas Roberto Sáb 19 Fev 2011, 14:27

Bom pessoal Mais um Tutorial como ver player da Guild Online
Primeiro Cria uma Form com Nome "frmGuildMembers" eo caption "Membros da Guild Online"
de dois Clica na Form e adiciona isso:
Código:
 Timer1.Enabled = True
lblGuild.Caption = "Guild: " & GetPlayerGuild(MyIndex)
Bom Cria um ListBox com nome "lstMembers"
agora cria um timer ponha em sua propriedade seu interval de "500"
de dois clique e adiciona
Código:
 lstMembers.Clear
lstMembers.AddItem ("-Membros da Guild Online-")
For I = 1 To MAX_PLAYERS
If IsPlaying(I) Then
If GetPlayerGuild(I) = GetPlayerGuild(MyIndex) Then
lstMembers.AddItem (GetPlayerName(I))
End If
End If
Next I
Agora Cria uma label com nome "lblGuild" e caption "Guild:"
Agora crie um CommandButton com qualquer name mais com caption "Sair da Guild"
De dois Clique e adiciona:
Código:
Dim Packet As String
Packet = "GUILDLEAVE" & END_CHAR
Call SendData(Packet)
Timer1.Enabled = False
Unload Me
agora para fechar a form cria uma label com qualquer nome e qualquer caption
de dois clique e adicione:
Código:
 Timer1.Enabled = False
Unload Me
agora para abrir o Form e presiso criar um Botão
de dois clique e adiciona:
Código:
 frmGuildMembers.Visible = True

Pronto Pessoal
Creditos ao LUCAS ROBERTO
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

[ALL]Vendo membro da Guild Online Empty Re: [ALL]Vendo membro da Guild Online

Mensagem por Thales12 Sáb 19 Fev 2011, 14:39

ouraoura oura, mais 1 vez e como sempre me impressionando, +1 cred
Thales12
Thales12
Membro Veterano
Membro Veterano

Mensagens : 1011

http://www.rdmgames.tk

Ir para o topo Ir para baixo

[ALL]Vendo membro da Guild Online Empty Re: [ALL]Vendo membro da Guild Online

Mensagem por SkyZero Dom 20 Fev 2011, 15:10

Provavelmente irá dar erro no Código do Timer se der erro troque por esse :
Código:
Dim I
lstMembers.Clear
lstMembers.AddItem ("-Membros da Guild Online-")
For I = 1 To MAX_PLAYERS
If IsPlaying(I) Then
If GetPlayerGuild(I) = GetPlayerGuild(MyIndex) Then
lstMembers.AddItem (GetPlayerName(I))
End If
End If
Next I


Última edição por SkyZero em Dom 20 Fev 2011, 15:17, editado 1 vez(es)
SkyZero
SkyZero
Membro Veterano
Membro Veterano

Mensagens : 890

Ir para o topo Ir para baixo

[ALL]Vendo membro da Guild Online Empty Re: [ALL]Vendo membro da Guild Online

Mensagem por Lucas Roberto Dom 20 Fev 2011, 15:15

verdade rafa


ia dar erro no For I

vlw +1
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

[ALL]Vendo membro da Guild Online Empty Re: [ALL]Vendo membro da Guild Online

Mensagem por morenoo Seg 21 Fev 2011, 06:16

tem no perfect engine?
morenoo
morenoo
Membro Junior
Membro Junior

Mensagens : 99

Ir para o topo Ir para baixo

[ALL]Vendo membro da Guild Online Empty Re: [ALL]Vendo membro da Guild Online

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


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