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

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

1 [Tutorial]Sistema de 3 Vips em 13/2/2012, 18:09

SkyAway

avatar
Membro V
Membro V
abra o modulo modTypes segure ctrl + f e procure por

Código:
Código:
Private Type PlayerRec


na mesma sub acima procure por:

Código:
Código:
Dir As Byte


abaixo do código acima adicione:

Código:
Código:
Vip as byte


no modulo modServerTCP procure por:

Código:
Código:
Function PlayerData(ByVal Index As Long) As Byte()


na sub acima procure por:

Código:
Código:
Buffer.WriteLong GetPlayerPK(Index)


abaixo do código acima adicione:

Código:
Código:
buffer.writebyte player(index).vip


agora abra o frmServer na aba de players

adicione os seguinte componentes:

HSscrollBar
label
CommandButton

agora nos componentes acima faça o seguinte:

HSscrollBar = mode seu nome para scrlVip e mude o max dela para 3 + vc pode vir a adicionar + se quiser quanto + vc adicionar mais vips vcs terao , e clique duas vezes nela e adicionar
lblVip.Caption = scrlVip.Value

label = mude seu nome para lblVip

CommandButton = mude seu nome para CDMVIP,e clique duas vezes nela e adicionar
setvip

depois

Serve~
procure por :

Codigo:

Código:
Sub mnuRemoveAdmin_click()


no final dessa sub (depois do end sub) coloque:

Codigo:

Código:
Sub SetVip()
Dim Name As String
Name = frmServer.lvwInfo.SelectedItem.SubItems(3)

If Not Name = "Not Playing" Then
Player(findplayer(name)).Vip = frmServer.scrlVip.Value
Call SendPlayerData(FindPlayer(Name))
Call PlayerMsg(FindPlayer(Name), "Now,you're vip level:" & frmServer.scrlVip.Value, Cyan)
End If

End Sub




Client~
procure por :

Codigo:
Código:
Call SetPlayerPK(I, Buffer.ReadLong)


depois add

Codigo:
Código:
player(I).vip = buffer.readbyte


procure por:

Código:
Private Type PlayerRec


depois por:

Código:
Dir As Byte

Coloque abaixo de Dir As Byte:

Código:
Vip as byte



procure por :

Código:
Public Sub DrawPlayerName


depois por :

Código:
color = QBColor(BrightRed)
End If



antes do end if add isso :

Código:
If Player(MyIndex).Vip > 0 Then
Select Case Player(MyIndex).Vip
Case 0
color = QBColor(Grey)
Case 1
color = QBColor(DarkGrey)
Case 2
color = QBColor(Cyan)
Case 3
color = QBColor(Green)
Case 4
color = QBColor(Yellow)
Case Else
color = QBColor(White)
End Select
end if


Servidor novamente procure por

Código:
 exp = Npc(npcNum).exp

abaixo adicione:

Código:
If Player(attacker).Vip = 1 Then Exp = Exp * 5
    If Player(attacker).Vip = 2 Then Exp = Exp * 10
    If Player(attacker).Vip = 3 Then Exp = Exp * 15




Creditos : SkyAway , Por Postar Aqui pra vocês





GOSTOU DA + 1 CRED Só CLICAR NO + ALI DO LADO >>>>>



É Meu Fan ? Me Odeia ? Me Ama ? Então usa isso !!!
[Você precisa estar registrado e conectado para ver esta imagem.]
Ver perfil do usuário

2 Re: [Tutorial]Sistema de 3 Vips em 16/4/2012, 13:06

GustavoNunes

avatar
Ajudante
Ajudante
Bem bacana, talvez eu teste depois, agora não to descepicionado tentando achar um vip que realmente funcione :S



"Escute... Neste mundo, sempre que houver uma luz, haverá também sombras. Enquanto o conceito de vencedores existir, também deve haver perdedores. O desejo egoísta de querer manter a paz provoca guerras e o ódio nasce para proteger o amor."
Meu Fan? Use:
 [Você precisa estar registrado e conectado para ver esta imagem.]
Ver perfil do usuário

3 Re: [Tutorial]Sistema de 3 Vips em 18/4/2012, 02:55

Pablo

avatar
Membro I
Membro I
belo tutorial amigo levou meu +1 por tar trazendo para a galera ^^

Ver perfil do usuário

4 Re: [Tutorial]Sistema de 3 Vips em 18/4/2012, 03:16

RenanR

avatar
Membro Honorário I
Membro Honorário I
Coloque os créditos do criador do sistema também.
~~
Tutorial legal, mas, 3 VIPs? Puts.



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

''Não deixe de ganhar o que amanhã não poderá mais..''
Ver perfil do usuário

5 Re: [Tutorial]Sistema de 3 Vips em 18/4/2012, 03:28

BrunoFox

avatar
Administrador
Administrador
Tipo no NIP Renan que tem VIP normal VIP Gold VIP Silver, essas coisas .



[Você precisa estar registrado e conectado para ver esta imagem.]
Ver perfil do usuário http://templorpgmakerbr.forumeiros.com

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