Universo Games
Ola , Convidado

[ALL]Rank para seu Clã Logo1110

Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no Mundo RPG!!!
Universo Games
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Últimas imagensÚltimas imagens  RegistarRegistar  EntrarEntrar  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

 

 [ALL]Rank para seu Clã

Ir para baixo 
AutorMensagem
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

[ALL]Rank para seu Clã Empty
MensagemAssunto: [ALL]Rank para seu Clã   [ALL]Rank para seu Clã EmptyDom 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)
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
Convidado
Convidado
Anonymous



[ALL]Rank para seu Clã Empty
MensagemAssunto: Re: [ALL]Rank para seu Clã   [ALL]Rank para seu Clã EmptyDom 14 Nov 2010, 20:11

hehe

Igualzinho ao do DbzForces

Parbens Muito Bom+1 de CRED
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



[ALL]Rank para seu Clã Empty
MensagemAssunto: Re: [ALL]Rank para seu Clã   [ALL]Rank para seu Clã EmptySeg 13 Dez 2010, 12:26

Boa
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



[ALL]Rank para seu Clã Empty
MensagemAssunto: Re: [ALL]Rank para seu Clã   [ALL]Rank para seu Clã EmptySeg 31 Jan 2011, 13:18

Bom Tutoria Directx
+1 cred !!
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



[ALL]Rank para seu Clã Empty
MensagemAssunto: Re: [ALL]Rank para seu Clã   [ALL]Rank para seu Clã EmptyTer 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 !! Smile

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
Ir para o topo Ir para baixo
Conteúdo patrocinado





[ALL]Rank para seu Clã Empty
MensagemAssunto: Re: [ALL]Rank para seu Clã   [ALL]Rank para seu Clã Empty

Ir para o topo Ir para baixo
 
[ALL]Rank para seu Clã
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» [EP2] Uso do sistema de Rank
» F2 para digitar
» 116 Tiles Para Pokemon
» [ES]Rankig para Guild
» [EEB]Botão para Party

Permissões neste sub-fórumNão podes responder a tópicos
Universo Games :: Criação de Jogos :: Elysium Diamond :: Tutoriais-
Ir para: