Portal
abra o modulo modTypes segure ctrl + f e procure por
Código:
na mesma sub acima procure por:
Código:
abaixo do código acima adicione:
Código:
no modulo modServerTCP procure por:
Código:
na sub acima procure por:
Código:
abaixo do código acima adicione:
Código:
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:
no final dessa sub (depois do end sub) coloque:
Codigo:
Client~
procure por :
Codigo:
depois add
Codigo:
procure por:
depois por:
Coloque abaixo de Dir As Byte:
procure por :
depois por :
antes do end if add isso :
Servidor novamente procure por
abaixo adicione:
Creditos :
SkyAway , Por Postar Aqui pra vocês
Eduardo01 - Por Fazer
GOSTOU DA + 1 CRED Só CLICAR NO + ALI DO LADO >>>>>
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
Eduardo01 - Por Fazer
GOSTOU DA + 1 CRED Só CLICAR NO + ALI DO LADO >>>>>
Última edição por skyaway em Ter Fev 14, 2012 3:22 pm, editado 1 vez(es)
