[ALL]Sistema de dois VIP!(NOVO)

por Gustavo santos Diniz Dom 28 Mar 2010, 01:01

Para aqueles que querem coloca dois VIP no seu cliente vai ai um tutorial basico de como colocar dois VIP no jogo!
Cliente source
Na frmMirage,Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer), 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 > 2 Then frmadmin.Visible = False frmadmin.Visible = True End If End If

Agora procure no modGameLogic 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) > 1 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 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) > 2 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

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

Mude 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

Agora 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 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(Grey) Case 3 Color = QBColor(Blue) Case 4 Color = QBColor(Pink) End Select Else Color = QBColor(BrightRed) End If

Sever sourse
Procure no modGameLogic por:

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

Dê enter e 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

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

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

VIP e VIP 2 não pode Kickar,Banir, nem editar mapas;

Nome do jogador (e também do PET) VIP, agora é azul;

Nome do jogador (e também do PET) VIP2, agora é Verde;

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

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

por St4rk Dom 28 Mar 2010, 09:00

Otimo tutorial,vai ajudar muita gente quando precisa +1 cred ^^

por FusioN Dom 28 Mar 2010, 09:08

Opa Otimo Tutorial ^^
Parabens !

por St4rk Dom 28 Mar 2010, 09:45

e.e eita que dbz fusion vai atualiza hoje kkkkkkkk

por Lucas Lôpo Dom 28 Mar 2010, 09:59

Bom tutorial.

por Karlos Dom 28 Mar 2010, 12:59

parabens véi, ganho + 1 de credito e + 1 pt no meu porcentual Smile

por Ramonxxd Dom 28 Mar 2010, 17:07

Muito Bom Vai Ajudar Mta Gente
Incluido Eu xD

por Hunter Seg 29 Mar 2010, 00:50

Parabéns continue assim!

+1

por wylguiner Seg 29 Mar 2010, 14:57

Amei esse TuTo *-* vlw mesmo

por cristian113 Qui 22 Abr 2010, 15:22

mto bom funcionou perfeitamente aqui
Merece +1 cred

por Soad~ Qui 22 Abr 2010, 21:19

Muito bom...
De quem é esse tutorial???

por Gustavo santos Diniz Sex 23 Abr 2010, 18:17

Majin Bull?Conheço varias pessoas que sabem fazer esse esquema e ou vender para fazer isso...mais como niguem foi legal de postar eu apenas fiz e postei..lol

por Gu1lh3rm3 Sex 23 Abr 2010, 18:32

esse tutorial eh muito simples SOAD ^^ .. eh so pegar as coisas do Vip normal e modifica ^^ ... qualquer 1 fais esse tuto

por luukas337 Dom 16 maio 2010, 18:52

opa , mt bom msm *-*
+1

por Gu1lh3rm3 Seg 17 maio 2010, 12:28

aaa, tem q tomar cuidado ... pq achu q o VIP 2 pode "Editar Mapas, NPCs , etc " ... basta colocar /mapeditor ... funciona por comandos ^^ , pq algums comandos n tem acesso ...

por Eliana Qui 27 maio 2010, 18:43

tuto bom so que o vip 2 da mais de 3x de exp
de 50 da 600
e vip 1 da
de 50 da 200

por Andy_Extreme Sáb 12 Jun 2010, 21:17

ótimo tuto

por zenny2010 Sex 18 Jun 2010, 16:10

Muito bom +1 Credito pra tu

Uma coisa fico tudo bom aqui o negocio que nao pode usar o F1 e as outras coisas so nao rolo o negocio de 2x+XP e 3x+XP

Nao precisa mais ja concertei o bug para quem tiver esse mesmo bug vou um erro meu mesmo

Eu copiei issu que o cara que posto escreveu:

'Aqui e a XP que os vips ganham D: ai deu bug no command valeu ai o codigo funfo certin agora vip fico 2x e vip full 3x+XP bom tuto espero o proximo

por greeik Qui 01 Jul 2010, 10:03

Gu1lh3rm3 escreveu:esse tutorial eh muito simples SOAD ^^ .. eh so pegar as coisas do Vip normal e modifica ^^ ... qualquer 1 fais esse tuto

qualquer um....mas poucos fazem e postam sem cobrar' é por isso q ele vai ganhar +1 cred meu'

por Cris~ Qui 01 Jul 2010, 12:42

qualquer um....mas poucos fazem e postam sem cobrar' é por isso q ele vai ganhar +1 cred meu'

~~concordo~~ AUSHUAH +1De Cred

por Cesar Seg 05 Jul 2010, 18:37

fdp ! fui eu que fiz esse sistema de vip e tu leva creditos por o que eu fiz, cesar , antigo dono do dbz future, mta gente sabe q fui eu., seu fdp

por St4rk Seg 05 Jul 2010, 19:03

@Cesar
Primeiro evite palavrões e tente falar normal! se isso continuar você levara advertencia.

1º Mostre a prova que o sistema é seu antes de reclamar

2º Esse sistema é super simples, ele pode ter criado também, mais mesmo assim ^^ poste as provas.

Obrigado
Att,
OmegaZero.

por **Lendário** Seg 05 Jul 2010, 19:14

OmegaZero está certo.

por Cesar Qua 07 Jul 2010, 16:49

muitos admins do forum sabem que fui eu que criei o sistema vip
aliás tem um sistema vip no forum com créditos meus, desculpe pelos palavrões, mas acho que ele poderia ter postado algo como:

creditos -cesar
creditos a mim tbm que eu gostei desse sistema e paanz
acho q ele poderia ter feito isso

por Gu1lh3rm3 Qua 07 Jul 2010, 17:14

... cesar , as veses nao foi vc quem criou esse tutorial, pq tem muitos tipos de VIPs ... conpare bem com o seu e ve se num tem nada diferente...

por Conteúdo patrocinado

[ALL]Sistema de dois VIP!(NOVO)

[ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)

Re: [ALL]Sistema de dois VIP!(NOVO)