Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

[ALL]Rank para seu Clã

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial [ALL]Rank para seu Clã em Dom 14 Nov 2010, 14:27

Luucas Robeerto


Fundador
Fundador
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, 13:23, editado 1 vez(es)


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

2Tutorial Re: [ALL]Rank para seu Clã em Dom 14 Nov 2010, 18:11

GameOver


Administrador
Administrador
hehe

Igualzinho ao do DbzForces

Parbens Muito Bom+1 de CRED

3Tutorial Re: [ALL]Rank para seu Clã em Seg 13 Dez 2010, 10:26

willame


Membro
Membro
Boa

4Tutorial Re: [ALL]Rank para seu Clã em Seg 31 Jan 2011, 11:18

breno


Membro
Membro
Bom Tutoria Directx
+1 cred !!

5Tutorial Re: [ALL]Rank para seu Clã em Ter 01 Fev 2011, 08:31

Thales12


Membro
Membro
Willame diz: Boa

Willame tente evitar Froides/spam, pos vc e moderador local, deve dar o exemplo !!

------------------------------------

Lucas parabens mais 1 vez !! Smile

[Você precisa estar registrado e conectado para ver esta imagem.]


[Você precisa estar registrado e conectado para ver esta imagem.]

6Tutorial Re: [ALL]Rank para seu Clã Hoje à(s) 13:00

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum