[ALL]Sistema De 3 VIP (NOVO)

por willa Seg 18 Out 2010, 20:07

Depois De Observar o Sistema De Dois Vip,Penssei em tentar faser um SisteMa De Tres VIP.Então Como Ninguem criou um para mostrar.Vamos Lá.

Abra Seu Cliente~Side

Procure Por:

Código:: Call CheckInput(0, KeyCode, Shift) If KeyCode = vbKeyF1 Then If Player(MyIndex).Access > 0 Then frmadmin.Visible = False frmadmin.Visible = True End If End If

Mude Para:

Código:: Call CheckInput(0, KeyCode, Shift) If KeyCode = vbKeyF1 Then If Player(MyIndex).Access > 3 Then frmadmin.Visible = False frmadmin.Visible = True End If End If

Logo Abaixo Voce Verá Isso (Use Caso Vc Queira Que Vips não Criem GUILD) :

Código:: ' The Guild Creator If KeyCode = vbKeyF4 Then If Player(MyIndex).Access > 0 Then frmGuild.Show vbModeless, frmMirage End If End If

(Se Sim) Mude Para :

Código:: ' The Guild Creator If KeyCode = vbKeyF4 Then If Player(MyIndex).Access > 3 Then frmGuild.Show vbModeless, frmMirage End If End If

Na modGameLogic Procure Por:

Código:: ' // Moniter Admin Commands // If GetPlayerAccess(MyIndex) > 0 Then ' day night command If LCase(Mid(MyText, 1, 9)) = "/dianoite" Then If GameTime = TIME_DAY Then GameTime = TIME_NIGHT Else GameTime = TIME_DAY End If Call SendGameTime MyText = vbNullString Exit Sub End If

Mude Para :

Código:: ' // Moniter Admin Commands // If GetPlayerAccess(MyIndex) > 3 Then ' day night command If LCase(Mid(MyText, 1, 9)) = "/dianoite" Then If GameTime = TIME_DAY Then GameTime = TIME_NIGHT Else GameTime = TIME_DAY End If Call SendGameTime MyText = vbNullString Exit Sub End If

Feito Isso Procure Por:

Código:: ' // Mapper Admin Commands // If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then ' Location If LCase(Mid(MyText, 1, 4)) = "/loc" Then Call SendRequestLocation MyText = vbNullString Exit Sub End If

Mude Para:

Código:: ' // Mapper Admin Commands // If GetPlayerAccess(MyIndex) > 3 Then ' day night command If LCase(Mid(MyText, 1, 9)) = "/dianoite" Then If GameTime = TIME_DAY Then GameTime = TIME_NIGHT Else GameTime = TIME_DAY End If Call SendGameTime MyText = vbNullString Exit Sub End If

Agora No modGameLogic, Sub BltPetName(ByVal Index As Long), procure por:

Código:: ' Check access level If GetPlayerPK(Index) = NO Then Select Case GetPlayerAccess(Index) Case 0 Color = QBColor(Brown) Case 1 Color = QBColor(DarkGrey) Case 2 Color = QBColor(Cyan) Case 3 Color = QBColor(Blue) Case 4 Color = QBColor(Pink) End Select Else Color = QBColor(BrightRed) End If

Muda ela Para:

Código:: ' Check access level If GetPlayerPK(Index) = NO Then Select Case GetPlayerAccess(Index) Case 0 Color = QBColor(Brown) Case 1 Color = QBColor(BrightBlue) Case 2 Color = QBColor(Darkgrey) Case 3 Color = QBColor(Blue) Case 4 Color = QBColor(Pink) End Select Else Color = QBColor(BrightRed) End If

Apos Isso no modGameLogic, Sub BltPlayerName(ByVal Index As Long), procure por:

Código:: ' Check access level If GetPlayerPK(Index) = NO Then Select Case GetPlayerAccess(Index) Case 0 Color = QBColor(Brown) Case 1 Color = QBColor(Grey) Case 2 Color = QBColor(Cyan) Case 3 Color = QBColor(Blue) Case 4 Color = QBColor(Pink) End Select Else Color = QBColor(BrightRed) End If

Mude Ela Para:

Código:: ' Check access level If GetPlayerPK(Index) = NO Then Select Case GetPlayerAccess(Index) Case 0 Color = QBColor(Brown) Case 1 Color = QBColor(BrightBlue) Case 2 Color = QBColor(Yellow) Case 3 Color = QBColor(BrightGreen) Case 4 Color = QBColor(Pink) End Select Else Color = QBColor(BrightRed) End If

Agora Abra SeuSever~Side.

No modGameLogic procure por:

Código:: ' Ter certeza que não dar experiência menor que 0. If Exp < 0 Then Exp = 1 End If

Abaixo Disso Adicione:

Código:: 'XP extra para usuários VIPs D: If GetPlayerAccess(Attacker) >= 1 Then Exp = Exp * 2 Else Exp = Exp * 1 End If 'XP extra para usuários VIPs 2 D: If GetPlayerAccess(Attacker) >= 2 Then Exp = Exp * 3 Else Exp = Exp * 1 End If 'XP extra para usuários VIPs 3 D: If GetPlayerAccess(Attacker) >= 3 Then Exp = Exp * 4 Else Exp = Exp * 1 End If

Explicação:

VIP (jogador com acesso 1) não pode apertar F1;

VIP 2 (jogador com acesso 2) não pode apertar F1;

VIP (jogador com acesso 3) não pode apertar F1;

VIP e VIP 2 nem VIP 3 não pode Kickar,Banir,Editar mapas nem Criar GUILD;

Nome do jogador (e também do PET) VIP (jogador com acesso 1), agora é Azul;

Nome do jogador (e também do PET) VIP2 (jogador com acesso 2), agora é Amarelo;

Nome do jogador (e também do PET) VIP3 (jogador com acesso 3), agora é Verde Claro;

Jogador VIP ganha 2 vezes mais esperiência que jogador "free";

Jogador VIP 2 ganha 3 vezes mais esperiência que jogador "free";

Jogador VIP 3 ganha 4 vezes mais esperiência que jogador "free";

OBS: Concerteza tera os Bugs que Tem No VIP2,eu ja Fiz Alguns Turiais Arrumando elles,Caso Vc Faça o Sistema De Tres VIP's,para Arrumar os Bugs Basta Mudar o Acesso 2 Para 3 e Seguir o Tutorial Normal!

Creditos

--> Creditos :

Willame

por DshFox Seg 18 Out 2010, 20:10

eh acesso

nao vip Suspect

+cred

por V-Force Seg 18 Out 2010, 20:13

kra +1 de Cred, mas qualquer ja deve ter feito esse tutorial no game dele ja que para isso eh soh ter lógica, ou melhor soh mudar os numero dos acessos

por isso que prefiro o meu sistema de vip, que diferente desse eh um acesso especial que não afeta o acesso de 1 a 15, i eh por tempo

por willa Seg 18 Out 2010, 20:20

Massa ^^'

por Lucas Roberto Ter 19 Out 2010, 12:36

Hum o unica coisa que ele vez

vou tirar o accesso para nao editar o server e xp

Nada de novo ae

mais esta falendo

Lembrando que esse sistema tem no meu server
e tinha comversando com um dos imtegrante da staff dele que ia fazer esse sistema para mim "Jose"

e ainda nao esta igual o meu

mais uma coizinha se nao tiver sistema de server estavel o Serrver da erro Ok
pessoal muito EXP^^

por willa Ter 19 Out 2010, 16:16

Hum...esse Sistema eu fiz so para ver se funcionava mesmo!

Como vc disse não tem nada de novo é a mesma coisa do que o dois,dando preferencia ao acesso 3.

Lembrando que esse sistema tem no meu server
e tinha comversando com um dos imtegrante da staff dele que ia fazer esse sistema para mim "Jose"

e ainda nao esta igual o meu

Eu não sabia que vc tinha um sistema parecido,e não tentei faser igual de niguem.

Fiz Mal em Faser Esse Tuto. Mad

por Lucas Roberto Ter 19 Out 2010, 16:17

Fica Trank's Manow

^^ so falei que tem esse sistema com mais funçao no meu projeto

^^ Esta legal

+1 de CRED

por willa Ter 19 Out 2010, 16:22

De Boa Vlws'.^^

por bioraulteixei Dom 24 Out 2010, 15:55

eu coloquei isso no meu server q eu saiba eu fui o primeiro a fazer isso e tem q fazer o tuto de serve estavel

por **Lendário** Dom 24 Out 2010, 16:11

oO VIP de 3. Até onde vocês vão com VIP em? hsaushaushas

por playsson14z Dom 24 Out 2010, 16:29

vlw manow ajudo bastante bounce

por Pablo Dom 24 Out 2010, 18:33

aff tpw n gostei mt do tuto pq
os cara ja iam saber q era so mudar o 2 para 3 né xD
mais foi bom em ter postado e so pra dar uma marca pro cara q falou q tem ae
eu tbm tinha no meu antigo dbz a muito tempo atras '-'

por willa Ter 26 Out 2010, 20:29

Pessoal não por nada mais não estou Disendo que Criei o Sistema..

Apenas Tentei Faser e deu certo...Postei o Tuto Para Quem Não Sabe Faser e Gostaria De Ter...

Então vcs ai que diz q tinha eu dbz sei la oq mais....não critiquem se não tiveram a coragem de postar um Tuto Vlws...

por pedr513dc Qua 27 Out 2010, 18:18

Otimo!! Gostei acho q vo por issu no meu game

por Pablo Qua 03 Nov 2010, 11:52

veio esse tuto se vc n reparo para quem e vip 2 ganha 2x a xp do vip 1 então saira 6
e o vip 3 ganha 4x mais a xp
igual 6x4=24 a xp q vai dar o vip 3 então o vip 3 da 24x a xp '-'

por Master-Man Qui 09 Dez 2010, 18:49

Eu tentei dá seguinte maneira

Código:: 'XP extra para usuários VIPs D: If GetPlayerAccess(Attacker) >= 1 Then Exp = Exp * 2 Else Exp = Exp * 1 End If 'XP extra para usuários VIPs 2 D: If GetPlayerAccess(Attacker) >= 2 Then Exp = Exp * 1 Else Exp = Exp * 1 End If 'XP extra para usuários VIPs 3 D: If GetPlayerAccess(Attacker) >= 3 Then Exp = Exp * 1 Else Exp = Exp * 1 End If

Acho q assim vai rodar do jeito certo

por Lucas Roberto Qui 09 Dez 2010, 19:01

Funfar vai sim mais e um roubo Uu
POis voce aumento do Vip Normal
eo Vip2 e Vip3
Voce diminuio o Exp Oo

vai funfa sim mais isso
Spoiler:

por Master-Man Qui 09 Dez 2010, 21:11

éh,vai ser tipo,meu svr vai ser vip a xp 2x ,vip2 a xp 4x ,vip 3 a xp 6 x

E pra eu consiguir isso eu colokei:

Código:: 'XP extra para usuários VIPs D: If GetPlayerAccess(Attacker) >= 1 Then Exp = Exp * 2 Else Exp = Exp * 1 End If 'XP extra para usuários VIPs 2 D: If GetPlayerAccess(Attacker) >= 2 Then Exp = Exp * 2 Else Exp = Exp * 1 End If 'XP extra para usuários VIPs 3 D: If GetPlayerAccess(Attacker) >= 3 Then Exp = Exp * 2 Else Exp = Exp * 1 End If

com esse código eu consigui a xp q eu keria=D

por Lucas Roberto Sex 10 Dez 2010, 11:46

Uu

que bom que conseguio oque queria Uu
ali em cima foi apenas uma bricaderia Uu

por Pablo Ter 14 Dez 2010, 18:08

tpw esse negoço de 2x
fica meio estranho o certo era que eu queria assim tpw o dbz forces
3x 5x
mais como e vip 3 eu queria
3x 5x 7x não 2x 4x 6x
pq esse de 2 4 e 6 eu ja fiz '-'

por nicholas Sáb 19 Fev 2011, 13:16

tutorial nao e pra all e ra apenas eeb aquio ta dando erro na hora de salvar e eu uso o elysioum e nao funfo tutoria nao e pra all

por Lucas Roberto Sáb 19 Fev 2011, 13:50

--

e all sim mande um scren do erro

por Thales12 Sáb 19 Fev 2011, 14:06

Sistema de 2 vips ja e fods, 3 vips, daki a pouco, 4 vips, 5 vips, no futuro 15 vips '-'

Sistema de 3 vips qualquer 1 faz, se vc olhar o sistema de vip 2, vc vai ver como e, e poe o vip 3, eu acho esse tutorial desnecessario '-'
/fato

@bom e so minha opnião..

por Lucas Roberto Sáb 19 Fev 2011, 14:07

Sistema de 2 vips ja e fods, 3 vips, daki a pouco, 4 vips, 5 vips, no futuro 15 vips '-'

Sistema de 3 vips qualquer 1 faz, se vc olhar o sistema de vip 2, vc vai ver como e, e poe o vip 3, eu acho esse tutorial desnecessario '-'
/fato

concordo

por nicholas Sáb 19 Fev 2011, 14:28

no meu eysoum dimaond nao funfapq sera?

por Conteúdo patrocinado

[ALL]Sistema De 3 VIP (NOVO)

[ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)

Re: [ALL]Sistema De 3 VIP (NOVO)