Novo 2 VIPs pelo Client

por Eduardo Qui 12 Abr 2012, 15:50

Server-Side Procure Por

Código:: Private Type PlayerRec

na mesma sub acima procure por:

Código:: Dir As Byte

abaixo do código acima adicione:

Código:: Vip as byte

no modulo modServerTCP procure por:

Código:: Sub HandleSetAccess(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)

Depois do End Sub Adicionar isso

Código:: Sub HandleSetVIP(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim n As Long Dim i As Long Dim Buffer As clsBuffer Set Buffer = New clsBuffer Buffer.WriteBytes Data() ' Prevent hacking If GetPlayerAccess(index) < ADMIN_CREATOR Then Exit Sub End If ' The index n = FindPlayer(Buffer.ReadString) 'Parse(1)) ' The access i = Buffer.ReadLong 'CLng(Parse(2)) Set Buffer = Nothing If IsPlaying(n) = False Then Exit Sub Player(n).VIP = i SendPlayerData n SavePlayer n PlayerMsg n, "você se tornou VIP Nível: " & i, Blue End Sub

Procure Por

Código:: CSetAccess

Abaixo Adicione

Código:: CSetVIP

Procure Por

Código:: Function GetPlayerAccess(ByVal Index As Long) As Long If Index > MAX_PLAYERS Then Exit Function GetPlayerAccess = Player(Index).Access End Function Sub SetPlayerAccess(ByVal Index As Long, ByVal Access As Long) Player(Index).Access = Access End Sub

Abaixo Adicione

Código:: Function GetPlayerVIP(ByVal Index As Long) As Long If Index > MAX_PLAYERS Then Exit Function GetPlayerVIP = Player(Index).Vip End Function Sub SetPlayerVIP(ByVal Index As Long, ByVal Vip As Long) Player(Index).Vip = Vip End Sub

Procure por

Código:: HandleDataSub(CSetAccess) = GetAddress(AddressOf HandleSetAccess)

Abaixo Adicione

Código:: HandleDataSub(CSetVIP) = GetAddress(AddressOf HandleSetVIP)

Procure

Código:: ' Calculate exp to give attacker exp = NPC(NpcNum).exp

Abaixo Coloque

Código:: If Player(Attacker).VIP = 1 Then exp = exp * 2'quantidade de exp vip 1 If Player(Attacker).VIP = 2 Then exp = exp * 3'quantidade de exp vip 2

Procure

Código:: ' Calculate exp to give attacker exp = (GetPlayerExp(victim) \ 10)

Abaixo Coloque

Código:: If Player(Attacker).VIP = 1 Then exp = exp * 2'quantidade de exp vip 1 If Player(Attacker).VIP = 2 Then exp = exp * 3'quantidade de exp vip 2

Client~
procure por :

Código:: Call SetPlayerPK(I, Buffer.ReadLong)

depois add

Código:: player(I).vip = buffer.readbyte

procure por:

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 1 color = QBColor(DarkGrey) Case 2 color = QBColor(Cyan) End Select end if

Código:: Public Sub SendSetAccess(ByVal Name As String, ByVal Access As Byte) Dim Buffer As clsBuffer ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteLong CSetAccess Buffer.WriteString Name Buffer.WriteLong Access SendData Buffer.ToArray() Set Buffer = Nothing ' Error handler Exit Sub errorhandler: HandleError "SendSetAccess", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub

Abaixo Adicione isso

Código:: Public Sub SendSetVIP(ByVal Name As String, ByVal VIP As Byte) Dim Buffer As clsBuffer ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteLong CSetVIP Buffer.WriteString Name Buffer.WriteLong VIP SendData Buffer.ToArray() Set Buffer = Nothing ' Error handler Exit Sub errorhandler: HandleError "SendSetVIP", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub

Procure Por

Código:: CSetAccess

abaixo coloque isso

Código:: CSetVIP

No painel Admin no frmMain
Crie :
1-TextBox Nome : txtAVIP
2- Comando Butao Nome : cmbVIP
Dentro Coloque

Código:: ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler If GetPlayerAccess(MyIndex) < ADMIN_CREATOR Then Exit Sub End If If Len(Trim$(txtAName.text)) < 2 Then Exit Sub End If If IsNumeric(Trim$(txtAName.text)) Or Not IsNumeric(Trim$(txtAVIP.text)) Then Exit Sub End If SendSetVIP Trim$(txtAName.text), CLng(Trim$(txtAVIP.text)) ' Error handler Exit Sub errorhandler: HandleError "cmdVIP_Click", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub

Creditos a Mim : Tutorial nao testado Mais ta Ai deve prestar
Basta Escrever seu nome como se fosse dar acesso so q vai dar vip pelo client bem facil

por renathimplayer Qui 12 Abr 2012, 17:22

Vlw ai vc parece ser bom progamador que tal participar do meu projeto?Vampires vs Wolfs lá na sessão recrutamento.

por Eduardo Qui 12 Abr 2012, 17:25

Uou 1ª pessoal q me fala isso nao acho q eu seja um Programador bom mais ja tenho projeto e empresa para administrar se eu conseguir tempo ajudo vc sim mais qualquer sistema qualquer coisa peça no pedidos aki no eo falow

por Sαkurαy Qui 12 Abr 2012, 17:27

Oquê adianta o sistema, se não tem o sistema de data/mes/ano de duração do vip, isso pode realmente dar muito problema, player perdendo seu vip e pensando que nem acabou ainda.

por renathimplayer Qui 12 Abr 2012, 17:29

Falow aimeu projeto ta no inicio ainda se tiver qualquer duvida posto aki e vc ver se responde ok?

por Eduardo Qui 12 Abr 2012, 17:31

Ok mano qualquer duvida tamos ai }}}{{{sakuray postei o sistema para ajudar os iniciantes de como iniciar e depois adaptar e terminar cansei de ficar postado tudo e nao ganho nada nem creditos so criticas como a sua e quem quer aprender vai a luta e termine o sistema data vip e bem facil mano entao se vire so q tudo na mao

por renathimplayer Qui 12 Abr 2012, 17:32

Sakuray ve lá meu projeto o Vampire vs Wolfs(recrutamento) e ve se dar pra tu participar da equipe.

por Eduardo Qui 12 Abr 2012, 17:34

mano nao use meu topico para chamar pessoas para seu projeto purfavor quero duvidas e comentarios relacionados ao sistema e sakuray se vc ta achando ruim va e faça melhor

por Sαkurαy Qui 12 Abr 2012, 17:51

eduardo002 escreveu:Ok mano qualquer duvida tamos ai }}}{{{sakuray postei o sistema para ajudar os iniciantes de como iniciar e depois adaptar e terminar cansei de ficar postado tudo e nao ganho nada nem creditos so criticas como a sua e quem quer aprender vai a luta e termine o sistema data vip e bem facil mano entao se vire so q tudo na mao

Se tu é realmente bom, e quer reconhecimento, faça fábrica.
Ninguém da moral pra quem posta tutorial, só vão copiar e colar, teve uma época que eu só vinha no fórum ( 2 anos atrás ) pra buscar tutorial, nem olhava quem era o dono do tópico. Grande parte faz isso, vai em "Conectados hoje" abaixo, vai ver que tem uns 200, só 20 comenta no máximo.. O resto é sucker.

por GustavoNunes Sáb 14 Abr 2012, 09:39

CARA, O CODIGO Sub HandleSetAccess(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Não tem na ServerTCP só na HandleData

por Pablo Sáb 14 Abr 2012, 09:43

bom o Eduardo concordo com você, o renathim alguma coisa ta indo nos tópicos mandar outras pessoas olhar os dele.

Eduardo002 o sistema está legal Man, com um pouco de logica da para deixa-lo Perfect, +1 ae pela contribuição pena que eu não uso eclipse :S

por Kisuke Sáb 14 Abr 2012, 11:07

Vai me impressionar quando fizer um banco de dados com informações dos vips,quando colocar por data,Editor de vip... enfim...

por Eduardo Sáb 14 Abr 2012, 11:44

gutavo mano da Ctrl F q se acha mano pow faço esse sistema com carinho so para postar aki por q so tem para dar pelo server o meu e pelo client ta incompleto ta mais nao posso postar o completo ai fica ruim ate para mim entao desculpem

[Edite2] vou fazer ele durar 30 dias para a alegria da naçao flw mais so 30 dias entao nao vai ter editor de vip

por GustavoNunes Sáb 26 maio 2012, 08:34

mas , assim eu criei 2 contas loguei com as 2 , uma com admin claro, ai eu pus o nome no txtAVIP, e clikei do cmbVIP, ai eu fui ver lá com outra conta e ele num ganho nada, nem acess, nem nada.

e outra duvida, 2 VIPS msm?? cade o comand do 2VIP?

e mais uma o que o VIP no caso vai adicionar a mais, ex: a x e talz?

por Eduardo Sáb 26 maio 2012, 14:39

vc coloca no txtAVIP qual vip vc quer tipo 1 ou 2 coloque no txtAName o nome do jogador q vc quer q ganhe o vip e click em cmbVIP aew ele dara o VIP

por giovani18 Ter 24 Jul 2012, 00:16

aqui não ta pegando diz que não tem essas linhas aqui ou melhor function

Function GetPlayerAccess(ByVal Index As Long) As Long

If Index > MAX_PLAYERS Then Exit Function
GetPlayerAccess = Player(Index).Access
End Function

Sub SetPlayerAccess(ByVal Index As Long, ByVal Access As Long)
Player(Index).Access = Access
End Sub

por GustavoNunes Ter 24 Jul 2012, 09:27

Cara, acho melhor por o Premium Por Data, pois qnd eu colocei esse ssistema de VIP os status do char bugaram...

por giovani18 Ter 24 Jul 2012, 19:43

então foi isso aqui também bugaram entaovo tira ele mais se eu fizer o do premium vai da acc e exp extra pro player?

por Conteúdo patrocinado

Novo 2 VIPs pelo Client

Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client

Re: Novo 2 VIPs pelo Client