[Tutorial]Sistema de 3 Vips

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

SkyAway

Membro V

Mensagens : 57
 T$:

T$: : 4718

Idade : 27

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 >>>>>