Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
[Tutorial] Sistema Vip que funciona
+5
Eduardo01
TheSilver
Felipe1998
DeaN
FilipeJF
9 participantes
Aldeia RPG :: Outras Engines :: Outras :: Eclipse Engine
Página 1 de 2
Página 1 de 2 • 1, 2
[Tutorial] Sistema Vip que funciona
Cliente source
Na frmMirage,Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer), procure por:
Agora no modGameLogic, Sub BltPlayerName(ByVal Index As Long), procure por:
Procure no modGameLogic por:
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
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
- 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
- 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
- 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
- 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
- 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
- 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
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
- 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
_________________
O Equívoco do Sábio - conto na Amazon
FilipeJF- Aldeia Friend
- Medalhas :
Mensagens : 1859
Créditos : 134
Re: [Tutorial] Sistema Vip que funciona
legal o sistema de Vip
1+
1+
_________________
Dean, Programador Geral :)
Contato: Skype:matucarvalho e Facebook
The Enze - Vulzt
Shield Block
Contato: Skype:matucarvalho e Facebook
The Enze - Vulzt
Shield Block
Anti-Cheat para jogos de FPS, agora vou adaptar para jogos de RPG principalmente para o RMXP.
www.shieldblock.net
fb.com/shieldblockoficial
Re: [Tutorial] Sistema Vip que funciona
Filipi como chega na FRM Mirage e nos outros?
Ajuda ae que terá +1 Cred xD
Ajuda ae que terá +1 Cred xD
Felipe1998- Novato
- Mensagens : 8
Créditos : 0
Re: [Tutorial] Sistema Vip que funciona
Caramba eu num entendo uma , de script parabens +cred
_________________
- Clan:
Clan:
- EXP Maker:
Skill EXP Roteiros ••••• Eventer ••••- Design ••••- Sonoplastia ••••- P.A •••-- Mapper ••--- Scripter •----
Agora estou melhorando:
Mapeamento
- Harumi:
Coloque sua assinatura em Spoiler e Ajude a diminuir o "peso" das paginas
TheSilver- Membro Ativo
- Mensagens : 277
Créditos : 10
Re: [Tutorial] Sistema Vip que funciona
so nao entende como vou da vip aos playeres
Eduardo01- Iniciante
- Mensagens : 54
Créditos : 10
Re: [Tutorial] Sistema Vip que funciona
Funciona em NPM v3?
_________________
- Meu Game Lupus Online:
Este obra foi licenciado sob uma Licença Creative Commons Atribuição-NãoComercial-SemDerivados 3.0 Não Adaptada.
- Tem Meu Respeito:
- RD12= Me Ajudou muito ;D
TecoKun = Vlw Lek. me Ajudou muito tbm ;D
Felix Blayder = Sou 1 do seus 1.000.000 fans Kkkk'
gustavotx- Experiente
- Mensagens : 411
Créditos : 64
Re: [Tutorial] Sistema Vip que funciona
gustavotx escreveu:Funciona em NPM v3?
Cara isso aki é eclipse engine e não RM, isso foi um ato de noob ou de alguem que não presta atenção procure se informar das coisas, area de Eclipse é para Eclipse, area de RM é para RM. u.u
LeonM²- Lenda
- Mensagens : 1802
Créditos : 153
Re: [Tutorial] Sistema Vip que funciona
Aff cara, malz nem prestei atenção ;D mais tbm eu vi o topico no inicio então nao sabia se era eclipse ;D
_________________
- Meu Game Lupus Online:
Este obra foi licenciado sob uma Licença Creative Commons Atribuição-NãoComercial-SemDerivados 3.0 Não Adaptada.
- Tem Meu Respeito:
- RD12= Me Ajudou muito ;D
TecoKun = Vlw Lek. me Ajudou muito tbm ;D
Felix Blayder = Sou 1 do seus 1.000.000 fans Kkkk'
gustavotx- Experiente
- Mensagens : 411
Créditos : 64
Re: [Tutorial] Sistema Vip que funciona
Para isso precisa do visual basic certo?
jeanmfc- Novato
- Mensagens : 3
Créditos : 0
Re: [Tutorial] Sistema Vip que funciona
Se me ajudar do 1 credito
jeanmfc- Novato
- Mensagens : 3
Créditos : 0
Página 1 de 2 • 1, 2
Tópicos semelhantes
» Tutorial do Terabin dando erro, alguém conhece um tutorial para sistema de drops multiplos ou identifica o erro?
» [Tutorial] Sistema Serial Key
» [Tutorial]Sistema de PK Avançado NP Master v3.0
» [Aula/Tutorial] Sistema de Ferreiro
» Sistema de som de passos mediano + Tutorial
» [Tutorial] Sistema Serial Key
» [Tutorial]Sistema de PK Avançado NP Master v3.0
» [Aula/Tutorial] Sistema de Ferreiro
» Sistema de som de passos mediano + Tutorial
Aldeia RPG :: Outras Engines :: Outras :: Eclipse Engine
Página 1 de 2
Permissões neste sub-fórum
Não podes responder a tópicos
|
|