Sistemas de 3 VIP's EO

por skyaway Ter Fev 14, 2012 2:27 pm

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
Eduardo01 - Por Fazer

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

por Eduardo01 Ter Fev 14, 2012 3:11 pm

coloque meus creditos eu quem fiz na mmorpg brasil coloque meus creditos
sou eduardo01 de la vc postou 2 tutoriais meus entao creditos a quem mereçe

por **Valentine** Ter Fev 14, 2012 3:14 pm

@skyaway
Coloque os créditos do autor.

por Sakuuray775 Sáb Fev 25, 2012 11:57 pm

Tá, e pra o vip acabar, demora quanto tempo ?

por **Dooolly** Ter Jun 12, 2012 4:45 pm

Bom eu sei q é feio reviver topic mais eu sou feio mesmo então vamo lá
Bom eu tava colocando esse sistema em meu game quando percebi q ele ta dando vip pra um mais o vip ver o nome de todos da mesma cor q o dele
Tipo eu sou vip e meu nome ta azul ai eu vejo o nome de todos azul
e o cara q n é vip me ver como n vip Neutral

o codigo é esse
pra corrigir

Código:: If Player(Index).Vip > 0 Then Select Case Player(Index).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

por Eduardo01 Ter Jun 12, 2012 5:25 pm

o skayWay postou errado meu tuto pois ele e 100% funcional mais v lw por corrigir o erro dele

por giovani18 Seg Jul 23, 2012 4:14 am

ajeita ai pq aqui não ta achando essas linhas aqui não tem no EO que eu to usando

Function PlayerData(ByVal Index As Long) As Byte()

Buffer.WriteLong GetPlayerPK(Index)