[ALL] Sistema de VIP "fucionando"

por **Lendário** Ter 29 Set 2009, 15:16

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 > 1 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

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(Cyan) 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(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(Cyan) 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

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

VIP não pode Kickar e Banir;

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

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

Créditos : Cesar

por Zeus Ter 29 Set 2009, 20:48

Acho que já ví esse tuto na Modev, mais valeu ae xD

por **Lendário** Ter 29 Set 2009, 20:54

peguei de la msm xD

por leuzin_xD Qua 18 Nov 2009, 16:55

Desculpe por estar postando aqui =x
Nao sei se é a rea certa Mais eu to fazendo meu server pelo eclipse PriButon e nao to encontrado isso
" ' // 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 "

Sera q alguem podia me ajudar ?

Obrigado

por **Lendário** Qui 19 Nov 2009, 11:30

Sua versão pode não ser compativel

por brendon Dom 29 Nov 2009, 14:19

Ei, topow se eu foce fazer Vip 2 tbm, eu fiz fiko assim a parte da XP extra:

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

Mas da o seguinte erro:
[ALL] Sistema de VIP "fucionando" 46043729

por Karlos Dom 29 Nov 2009, 15:29

va na linha 98 evja o que esta acontecendo .:lol.:

por brendon Dom 29 Nov 2009, 16:15

Eu jah vi mas quando eu coloco aparece, é que tem que por end Sub mas no VIP normal ta sem END Sub e funfa normal, mas quando eu coloco End Sub da o seguinte erro:"Bloco If sem End If" Mas como você vê está com End If

por Karlos Dom 29 Nov 2009, 18:36

õe + 1 end if no final e seja feliz XD

por Ramonxxd Dom 06 Dez 2009, 19:02

Aonde fika
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)?

por Hunter Dom 06 Dez 2009, 19:13

Dê um Ctrl F copia e cola isso na tela de procura e seja feliz : Surprised

por Ramonxxd Dom 06 Dez 2009, 19:16

Pode Me Explikar Melhor Sou novato por Favor

por Hunter Dom 06 Dez 2009, 19:28

Olha, faz o seguinte:
Aperta "ctrl f" com o vb aberto, vai aparecer essa telinha:
[ALL] Sistema de VIP "fucionando" 97872018

Onde está escrito "Find What" vc coloca o code que procura.
Marque a checkbox Current Project e por último clique em "Find Next"

Surprised

Também sou novato, mais tenho me esforçado bastante ^^'

por Ramonxxd Dom 06 Dez 2009, 19:29

Brigadao Aew

por Hunter Dom 06 Dez 2009, 19:31

Nada,

por Ramonxxd Dom 06 Dez 2009, 19:44

aonde eu acho

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

se eu nao tiver o que eu faço , eu ja fiz tudo só falta esse

por Hunter Dom 06 Dez 2009, 19:50

Bem, essa linha existe, ñ precisa ser feita..
Mas se ñ achou, tente colocar somente isso na procura:

Código:: If Exp < 0 Then

por dbzuniverso Qua 13 Jan 2010, 11:37

Eu uso o Elysium Engine Brasil 2.6 fiz isso mais de 10 vezes e n consigo fazer pq ??

eu coloco acesso 1 fica prata o nome e n azul e da pra aperta f1 e f4

poderia me ajudar ????

por God of Fusion Seg 18 Jan 2010, 12:39

Cara voçê nao deve ter lido o tutorial todo!

Na FrmMirage Procura 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

Ai agora é so mudar pra:

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

O F4 agora

Na FrmMirage Procure por:

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

E mude para:

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

E pronto

OBS:O do F4 eu que fiz .-. e se estiver errado por favor me corrijam Very Happy

por hornet600 Dom 24 Jan 2010, 17:12

esse do f4 quem fez foi o lenon

por klinton-1234 Dom 24 Jan 2010, 17:35

' The Guild Creator
If KeyCode = vbKeyF4 Then
If Player(MyIndex).Access > 2 Then
frmGuild.Show vbModeless, frmMirage
End If
End If

qualquer pessoa consegue fazer isso...

por God of Fusion Seg 25 Jan 2010, 10:28

Realmente qualquer pessoa faz. e eu nem sabia que o lenon tinha feito esse tuto .-.

por CAIO Seg 25 Jan 2010, 14:31

Gente eu abro com o vb dai eu ponho pra salvar mais nao muda nada ajudaa minha versão é a 2.6

por **Lendário** Seg 25 Jan 2010, 14:49

Tem que compilar.

por Trusnadle Seg 25 Jan 2010, 14:52

É facil depois de ter feito tudo vai em File>Make(Nome do projeto)
e pronto.

por Conteúdo patrocinado

[ALL] Sistema de VIP "fucionando"

[ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

não consigo

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"

Re: [ALL] Sistema de VIP "fucionando"