Universo Games
Ola , Convidado



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

[ALL]Rank para seu Clã

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial [ALL]Rank para seu Clã

Mensagem por Lucas Roberto em Dom 14 Nov 2010, 14: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, 13:23, editado 1 vez(es)

_______________________________________________________________________________________________________


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

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Rank para seu Clã

Mensagem por GameOver em Dom 14 Nov 2010, 18:11

hehe

Igualzinho ao do DbzForces

Parbens Muito Bom+1 de CRED
avatar
GameOver

Mensagens : 243

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Rank para seu Clã

Mensagem por willame em Seg 13 Dez 2010, 10:26

Boa

willame

Mensagens : 23

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Rank para seu Clã

Mensagem por breno em Seg 31 Jan 2011, 11:18

Bom Tutoria Directx
+1 cred !!
avatar
breno

Mensagens : 14

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Rank para seu Clã

Mensagem por Thales12 em Ter 01 Fev 2011, 08:31

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.]
avatar
Thales12

Mensagens : 182

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Rank para seu Clã

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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