Portal
Esse é o sistema VERDADEIRO
não é aquele acesso de adm LOL
Vai dar acesso VIP~1 à 255
Server~
procure
depoise PlayerRec
addDir As Byte
Vip as byte
procure
depoisBuffer.WriteLong GetPlayerSprite(Index)
addBuffer.WriteLong GetPlayerPK(Index)
buffer.writebyte player(index).vip
vai na FrmServer
faça uma scrool chamada
max=255scrlVip
clique 2 vezes e add
lblVip.Caption = scrlVip.Value
faça uma label chamada
make an Command ButtonlblVip
dentro do botão add
setvip
- Spoiler:
procure
ub mnuRemoveAdmin_click()
depois
addend sub
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
depoisCall SetPlayerPK(I, Buffer.ReadLong)
add
player(I).vip = buffer.readbyte
procure
depoise PlayerRec
addDir As Byte
Vip as byte
procure
depoisb DrawPlayerName
color = QBColor(BrightRed)
End If
add isso
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
pode fazer vip até 255
> que 5 o nickname vai ser branco
Testado e Aprovado
- Spoiler:
