Sistema de VIP por data

por boasfesta Sáb 14 Jul 2012, 22:57

Olá,
Ao pedido do Ruffy, estou postando um código beeeem simples de vip por data para vocês.

Client~side

Procure por:

Código:: Type PlayerRec

Adicione antes do End Type:

Código:: VIP as Byte VIPDate as string * 20

Server~side

Adicione um botão e nele o código:

Código:: Dim PlayerName As String Dim PlayerAccount As PlayerRec PlayerName = InputBox("Insira o nome do jogador:") Dim VIPDate As String VIPDate = InputBox("Insira a data de vencimento (DD/MM/AAAA):") Dim i As Long For i = 1 To Player_HighIndex If IsPlaying(i) Then If LCase(GetPlayerName(i)) = LCase(PlayerName) Then Player(i).VIP = 1 Player(i).VIPDate = VIPDate MsgBox "VIP adicionado!" Exit Sub End If End If Next i MsgBox "Player não encontrado!"

Agora no Sub JoinGame acima de:

Código:: ' Send welcome messages Call SendWelcome(Index)

Adicione:

Código:: Check VIPs Call CheckPlayerVIP(Index)

No fim do módulo, adicione:

Código:: Sub CheckPlayerVIP(ByVal Index As Long) If Player(Index).VIP > 0 Then If DateDiff("yyyy", Date, Player(Index).VIPDate) <= 0 And DateDiff("m", Date, Player(Index).VIPDate) <= 0 And DateDiff("d", Date, Player(Index).VIPDate) <= 0 Then Call RemoveVIP(Index) End If End If End Sub

Agora procure por Sub SendWelcome, e abaixo de

Código:: Call PlayerMsg(Index, Options.MOTD, BrightCyan)

Adicione:

Código:: If Player(Index).VIP > 0 Then Call PlayerMsg(Index, "Obrigado por colaborar comprando o seu VIP, seus dias VIP são válidos até " & Player(Index).VIPDate, BrightCyan) End If

Agora pra dar um bonus de Exp aos vips, na sub PlayerAttackNPC abaixo de:

Código:: ' Make sure we dont get less then 0 If Exp < 0 Then Exp = 1 End If

Adicione:

Código:: If Player(Attacker).VIP > 0 Then Exp = Exp * 2 'EXP extra End If

Prontinho, o sistema não está testado mas qualquer problema pode comentar aqui.

Até logo.

por Sαkurαy Sáb 14 Jul 2012, 22:59

Muito bom, vou testar aqui, vlw . iauheiuahiue

por BabyFusion Sáb 14 Jul 2012, 23:15

Legal e não precisa de TextBox pra escrever o nome do user?
Eu sei que está nessa parte:

Código:: Dim PlayerName As String Dim PlayerAccount As PlayerRec PlayerName = InputBox("Insira o nome do jogador:")

Mais para inserir o nome do jogador é preciso clicar no botão e isso aparece?

EDIT
Deu um errinho aqui:

Spoiler:

Não está 100%, isso particularmente foi só pra dar uma base, já sei como elaborar
Creio eu que, tu seleciona o player la da lista, e clica no botão pra setar o vip.

por Eduardo Sáb 14 Jul 2012, 23:26

Nao existe a sub esqueçeu de adicionala E.e

Código:: Call RemoveVIP(Index)

por BabyFusion Sáb 14 Jul 2012, 23:43

Eduardo escreveu:Nao existe a sub esqueçeu de adicionala E.e
Código:
Call RemoveVIP(Index)

Isso é para o boasfesta ou é para o meu erro?

por Eduardo Sáb 14 Jul 2012, 23:53

isso e para o boas

por BabyFusion Sáb 14 Jul 2012, 23:55

E você não sabe resolver minha dúvida? study

por Eduardo Sáb 14 Jul 2012, 23:58

crie um botao e coloque aquele codigo e quando voce abrir o botao vera oq apareçe

por BabyFusion Dom 15 Jul 2012, 00:12

Eu sei, isso eu fiz, mais deu um erro Neutral

Olha nos posts acima

por Guardian Dom 15 Jul 2012, 03:23

E mais uma vez Guardian Wins! \o/
kkkk'
BabyFusion, faz esse tutorial : Clique Aqui

Boa Tentativa Gêmeo... Smile

por boasfesta Seg 16 Jul 2012, 16:45

Ha, ganhou por que fez o sistema e teve a chance de testar, eu fiz essa porra no bloco de notas, fechei e escrevi de novo u.u

E ainda nao tive como chegar e corrigir os problemas que estavam tendo:

Código:: Sub RemoveVIP(Byval INDEX AS long) Player(Index).VIP = 0 Player(Index).VIPDate = vbNullString End Sub

Só adicionar isso acima em qualquer lugar

E pra completar com o outro que estava com problema no print, voce não fez o inicio do tutorial direito, que é adicionar as variáveis no PlayerRec

por Conteúdo patrocinado

Sistema de VIP por data

Sistema de VIP por data

Re: Sistema de VIP por data

Re: Sistema de VIP por data

Re: Sistema de VIP por data

Re: Sistema de VIP por data

Re: Sistema de VIP por data

Re: Sistema de VIP por data

Re: Sistema de VIP por data

Re: Sistema de VIP por data

Re: Sistema de VIP por data

Re: Sistema de VIP por data

Re: Sistema de VIP por data