Lucas Roberto Administrador
Mensagens : 711
| Assunto: [ALL]Rank para seu Clã Dom 14 Nov 2010, 16:27 | |
| Bom pessoal antes de mais nada vai em "picGuildAdmin" Cria 3 Botão Com Nomes Nome=cmdAMBU > Capition= Fazer Lider AMBU Nome=cmdEspião > Capition=Fazer um Espião Nome=cmdGladiador > Capition=Fazer um Gladiador De dois Clique no cmdAMBU e add isso: - Código:
-
Dim Packet As String Packet = "GUILDAMBU" & SEP_CHAR & txtName.Text & END_CHAR Call SendData(Packet) De dois Clique no cmdEspião e add isso: - Código:
-
Dim Packet As String Packet = "GUILDESPIAO" & SEP_CHAR & txtName.Text & END_CHAR Call SendData(Packet) De dois Clique no cmdGladiador e add isso: - Código:
-
Dim Packet As String Packet = "GUILDGLADIADOR" & SEP_CHAR & txtName.Text & END_CHAR Call SendData(Packet) BOM Aki acabamos Parte server.cide Procure no "modServerTCP" por: - Código:
-
' Fazer um Trainie Case "guildtrainee" ' Requerimentos If FindPlayer(Parse(1)) = 0 Then Call PlayerMsg(Index, "O jogador está offline.", White) Exit Sub End If If GetPlayerGuild(FindPlayer(Parse(1))) <> vbNullString Then Call PlayerMsg(Index, "O jogador já está em sua guild.", Red) Exit Sub End If ' Se tudo okay, setar acesso dele da Guild para 0 Call SetPlayerGuild(FindPlayer(Parse(1)), GetPlayerGuild(Index)) Call SetPlayerGuildAccess(FindPlayer(Parse(1)), 0) Call SendPlayerData(FindPlayer(Parse(1))) Exit Sub Abaixo add: - Código:
-
' Fazer um LiderAMBU Case "guildambu" ' Requerimentos If FindPlayer(Parse(1)) = 0 Then Call PlayerMsg(Index, "O jogador está offline.", White) Exit Sub End If If GetPlayerGuild(FindPlayer(Parse(1))) <> vbNullString Then Call PlayerMsg(Index, "O jogador já está em sua guild.", Red) Exit Sub End If ' Se tudo okay, setar acesso dele da Guild para 0 Call SetPlayerGuild(FindPlayer(Parse(1)), GetPlayerGuild(Index)) Call SetPlayerGuildAccess(FindPlayer(Parse(2)), 0) Call SendPlayerData(FindPlayer(Parse(1))) Exit Sub ' Fazer um Espião Case "guildespião" ' Requerimentos If FindPlayer(Parse(1)) = 0 Then Call PlayerMsg(Index, "O jogador está offline.", White) Exit Sub End If If GetPlayerGuild(FindPlayer(Parse(1))) <> vbNullString Then Call PlayerMsg(Index, "O jogador já está em sua guild.", Red) Exit Sub End If ' Se tudo okay, setar acesso dele da Guild para 0 Call SetPlayerGuild(FindPlayer(Parse(1)), GetPlayerGuild(Index)) Call SetPlayerGuildAccess(FindPlayer(Parse(4)), 0) Call SendPlayerData(FindPlayer(Parse(1))) Exit Sub ' Fazer um Gladiador Case "guildgladiador" ' Requerimentos If FindPlayer(Parse(1)) = 0 Then Call PlayerMsg(Index, "O jogador está offline.", White) Exit Sub End If If GetPlayerGuild(FindPlayer(Parse(1))) <> vbNullString Then Call PlayerMsg(Index, "O jogador já está em sua guild.", Red) Exit Sub End If ' Se tudo okay, setar acesso dele da Guild para 0 Call SetPlayerGuild(FindPlayer(Parse(1)), GetPlayerGuild(Index)) Call SetPlayerGuildAccess(FindPlayer(Parse(5)), 0) Call SendPlayerData(FindPlayer(Parse(1))) Exit Sub bom pessoal e isso
Última edição por Legendary em Ter 16 Nov 2010, 15:23, editado 1 vez(es) | |
|
Convidado Convidado
| Assunto: Re: [ALL]Rank para seu Clã Dom 14 Nov 2010, 20:11 | |
| hehe Igualzinho ao do DbzForces Parbens Muito Bom+1 de CRED |
|
Convidado Convidado
| Assunto: Re: [ALL]Rank para seu Clã Seg 13 Dez 2010, 12:26 | |
| |
|
Convidado Convidado
| Assunto: Re: [ALL]Rank para seu Clã Seg 31 Jan 2011, 13:18 | |
| Bom Tutoria Directx +1 cred !! |
|
Convidado Convidado
| Assunto: Re: [ALL]Rank para seu Clã Ter 01 Fev 2011, 10:31 | |
| - Citação :
- Willame diz: Boa
Willame tente evitar Froides/spam, pos vc e moderador local, deve dar o exemplo !! ------------------------------------ Lucas parabens mais 1 vez !! [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem] |
|
Conteúdo patrocinado
| Assunto: Re: [ALL]Rank para seu Clã | |
| |
|