Lucas Roberto Administrador
Mensagens : 711
| Assunto: [ALL]Sistema VIP Sáb 11 Dez 2010, 19:52 | |
| Esse é o sistema VERDADEIRO não é aquele acesso de adm LOL Vai dar acesso VIP~1 à 255 Server~procure - Citação :
- e PlayerRec
depois - Citação :
- Dir As Byte
add - Citação :
- Vip as byte
procure - Citação :
- Buffer.WriteLong GetPlayerSprite(Index)
depois - Citação :
- Buffer.WriteLong GetPlayerPK(Index)
add - Citação :
- buffer.writebyte player(index).vip
vai na FrmServer faça uma scrool chamada - Citação :
- scrlVip
max=255 clique 2 vezes e add - Citação :
- lblVip.Caption = scrlVip.Value
faça uma label chamada - Citação :
- lblVip
make an Command Button dentro do botão add - Citação :
- setvip
- Spoiler:
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
procure - Citação :
- ub mnuRemoveAdmin_click()
depois - Citação :
- end sub
add - Citação :
- 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 - Citação :
- Call SetPlayerPK(I, Buffer.ReadLong)
depois add - Citação :
- player(I).vip = buffer.readbyte
procure - Citação :
- e PlayerRec
depois - Citação :
- Dir As Byte
add - Citação :
- Vip as byte
procure - Citação :
- b DrawPlayerName
depois - Citação :
- color = QBColor(BrightRed)
End If add isso - Citação :
- 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:
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
| |
|