Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
[EO]Equipamentos com adições de EXP em porcentagem
+4
Spooky
Pablo Kawan
Grilox
Kotol
8 participantes
Página 1 de 2
Página 1 de 2 • 1, 2
[EO]Equipamentos com adições de EXP em porcentagem
O sistema funciona bem simples. A quantidade de exp que você ganha, será adicionada à quantidade calculada à porcentagem do equip.
Ex:
Exp = 100
Equip = +50% exp
Exp Total = Exp(100) + Equip(50) = 150
~Basicamente 100% em um equip é equivalente a um VIP 2x de muitos jogos aí ~
Então vamos lá, não é mesmo!?
-CLIENT~SIDE-
Primeiramente, abra seu "CLIENT.VBP".
Vá até seu frmEditor_Item, e dentro da frame "fraEquipment" crie um scroll e uma label:
Propiedades do Scroll:
Nome: ScrlExtraExp
Min=0
Max=1000 (é decente que deixem em 1000, até porque um equipamente com 32767% de exp é tenso...)
Propiedades da Label:
Nome: lblExtraExp
Caption: Extra Exp: 0%
Muito bem, agora dentro do "ScrlExtraExp" adicione isto:
Agora, procure por:
E ACIMA disto, adicione isto:
Agora, procure por:
E descendo um pouco, antes do primeiro:
Que você achar, adicione isto:
Maravilha, cliente feito, vamos ao servidor.
-SERVER~SIDE-
Primeiramente, abra seu "SERVER.VBP".
Antes de tudo, procure por:
E descendo um pouco, antes do primeiro:
Que você achar, adicione isto:
Agora, procure por:
E dentro desta 'SUB', procure por:
E substitua toda esta parte por isto:
E pronto seu sistema está feito! Qualquer erro, 'BUG', ou dúvidas, postem no tópico, que farei o possível para esclarecê-los.
Informação:
Sistema Testado, Erros: 0.
Prós:
-Mais um jeito de ganhar dinheiro no jogo, vendendo equipamentos com EXP.
-Pode substituir ou incrementar o sistema de VIP.
Contras:
-Vai ficar um jogo mais fácil, afinal se não souber regular, imagina um VIP 3x com equipamento 1000%...
-Pesa um pouco o servidor na hora de ganhar a exp(Oh novidade...), na verdade, da maneira que eu fiz, estou aberto a maneiras mais leves na equação do servidor...por mim, esta foi a maneira mais leve que achei...Afinal, o sistema em si dá um pesinho aqui e ali, mas creio que não notável "in-game", o meu está pouco notável porque coloquei Exp do item, buff, titulo, org, vip, evento...aí sim começou a dar um lagzinho quando ganhava exp, mas só com isso tudo...Só com a exp do item, é bem improvável... >D
No mais é isso pessoal, Boa sorte com seus projetos! :3
Créditos:
Lucas Dantas (~Eu)
Ex:
Exp = 100
Equip = +50% exp
Exp Total = Exp(100) + Equip(50) = 150
~Basicamente 100% em um equip é equivalente a um VIP 2x de muitos jogos aí ~
Então vamos lá, não é mesmo!?
-CLIENT~SIDE-
Primeiramente, abra seu "CLIENT.VBP".
Vá até seu frmEditor_Item, e dentro da frame "fraEquipment" crie um scroll e uma label:
Propiedades do Scroll:
Nome: ScrlExtraExp
Min=0
Max=1000 (é decente que deixem em 1000, até porque um equipamente com 32767% de exp é tenso...)
Propiedades da Label:
Nome: lblExtraExp
Caption: Extra Exp: 0%
Muito bem, agora dentro do "ScrlExtraExp" adicione isto:
- Código:
Item(EditorIndex).ExtraExp = scrlExtraExp.Value
lblExtraExp.Caption = "Extra Exp: " & scrlExtraExp.Value & "%"
Agora, procure por:
- Código:
EditorIndex = frmEditor_Item.lstIndex.ListIndex + 1
End With
Call EditorItem_BltItem
Call EditorItem_BltPaperdoll
Item_Changed(EditorIndex) = True
E ACIMA disto, adicione isto:
- Código:
frmEditor_Item.scrlExtraExp.Value = .ExtraEXP
Agora, procure por:
- Código:
Private Type ItemRec
E descendo um pouco, antes do primeiro:
- Código:
End Type
Que você achar, adicione isto:
- Código:
'Extra Exp System
ExtraEXP As Long
Maravilha, cliente feito, vamos ao servidor.
-SERVER~SIDE-
Primeiramente, abra seu "SERVER.VBP".
Antes de tudo, procure por:
- Código:
Private Type ItemRec
E descendo um pouco, antes do primeiro:
- Código:
End Type
Que você achar, adicione isto:
- Código:
'Extra Exp System
ExtraEXP As Long
Agora, procure por:
- Código:
Public Sub PlayerAttackNpc
E dentro desta 'SUB', procure por:
- Código:
' Make sure we dont get less then 0
If exp <= 0 Then
exp = 1
End If
E substitua toda esta parte por isto:
- Código:
Dim add As long
add = 0
If GetPlayerEquipment(Attacker, Weapon) > 0 Then
add = Item(GetPlayerEquipment(Attacker, Weapon)).ExtraEXP
ElseIf GetPlayerEquipment(Attacker, Armor) > 0 Then
add = add + Item(GetPlayerEquipment(Attacker, Armor)).ExtraEXP
ElseIf GetPlayerEquipment(Attacker, Shield) > 0 Then
add = add + Item(GetPlayerEquipment(Attacker, Shield)).ExtraEXP
ElseIf GetPlayerEquipment(Attacker, Helmet) > 0 Then
add = add + Item(GetPlayerEquipment(Attacker, Helmet)).ExtraEXP
End If
' Se a exp for menor ou igual a zero, damos ao menos 1 de misericordia
If exp <= 0 Then
exp = 1
End If
' Calcular experiência dada ao atacante
If add > 0 Then
exp = NPC(npcNum).exp + (NPC(npcNum).exp * (Val(add) / 100))
Else
exp = NPC(npcNum).exp
End If
E pronto seu sistema está feito! Qualquer erro, 'BUG', ou dúvidas, postem no tópico, que farei o possível para esclarecê-los.
Informação:
Sistema Testado, Erros: 0.
Prós:
-Mais um jeito de ganhar dinheiro no jogo, vendendo equipamentos com EXP.
-Pode substituir ou incrementar o sistema de VIP.
Contras:
-Vai ficar um jogo mais fácil, afinal se não souber regular, imagina um VIP 3x com equipamento 1000%...
-Pesa um pouco o servidor na hora de ganhar a exp(Oh novidade...), na verdade, da maneira que eu fiz, estou aberto a maneiras mais leves na equação do servidor...por mim, esta foi a maneira mais leve que achei...Afinal, o sistema em si dá um pesinho aqui e ali, mas creio que não notável "in-game", o meu está pouco notável porque coloquei Exp do item, buff, titulo, org, vip, evento...aí sim começou a dar um lagzinho quando ganhava exp, mas só com isso tudo...Só com a exp do item, é bem improvável... >D
No mais é isso pessoal, Boa sorte com seus projetos! :3
Créditos:
Lucas Dantas (~Eu)
Última edição por lucas100vzs em Qui Nov 25, 2021 9:46 am, editado 1 vez(es)
Kotol- Moderador Local
- Mensagens : 77
Créditos : 17
Re: [EO]Equipamentos com adições de EXP em porcentagem
Opa, vou testar esse ai, vlw!
_________________
Coleção Sprites:
- Imagem::
Grilox- Novato
- Mensagens : 21
Créditos : 1
Re: [EO]Equipamentos com adições de EXP em porcentagem
o// +1 vlw ae
~Kuuhaku nunca perde
~Kuuhaku nunca perde
_________________
Assinatura removida pela Staff
^ Tenho nova, surprise
Re: [EO]Equipamentos com adições de EXP em porcentagem
Desculpe Ressucitar, mais creio que seja importante.
Na parte de Abra a scrlExtraExp
e coloque dentro
CÓDIGO:
Não coloque esse, coloque:
CÓDIGO:
O que mudou?
R: Este Código
Item(EditorIndex).EXP = scrlExtraExp.Value Antes era assim, depois ficou: Item(EditorIndex).ExtraEXP = scrlExtraExp.Value Creio que ele deve ter esquecido de colocar ExtraExp.
Só um palpite, pois sou muito inciante em Vb6, antes dava erro com o código que ele mandou, mais depois que coloquei esse funcionou normal. vlw :)
Na parte de Abra a scrlExtraExp
e coloque dentro
CÓDIGO:
- Código:
Item(EditorIndex).EXP = scrlExtraExp.Value
lblExtraExp.Caption = "Extra Exp: " & scrlExtraExp.Value & "%"
Não coloque esse, coloque:
CÓDIGO:
- Código:
Item(EditorIndex).ExtraEXP = scrlExtraExp.Value
lblExtraExp.Caption = "Extra Exp: " & scrlExtraExp.Value & "%"
O que mudou?
R: Este Código
Item(EditorIndex).EXP = scrlExtraExp.Value Antes era assim, depois ficou: Item(EditorIndex).ExtraEXP = scrlExtraExp.Value Creio que ele deve ter esquecido de colocar ExtraExp.
Só um palpite, pois sou muito inciante em Vb6, antes dava erro com o código que ele mandou, mais depois que coloquei esse funcionou normal. vlw :)
_________________
Sign
- Sign¹:
- Sign²:
Spooky- Membro Ativo
- Mensagens : 267
Créditos : 24
Re: [EO]Equipamentos com adições de EXP em porcentagem
Aqui não funcionou
Motodark- Ocasional
- Mensagens : 169
Créditos : 5
Re: [EO]Equipamentos com adições de EXP em porcentagem
Então você fez algo errado, eu fiz como está no tópico e funcionouHelling escreveu:Aqui não funcionou
_________________
Sign
- Sign¹:
- Sign²:
Spooky- Membro Ativo
- Mensagens : 267
Créditos : 24
Re: [EO]Equipamentos com adições de EXP em porcentagem
Aqui aparentemente está normal mas não ganhar os EXP devidos.
Motodark- Ocasional
- Mensagens : 169
Créditos : 5
Erro '-'
Bem acontece isso
quando clico no start pra testa
Muito bem, agora dentro do "ScrlExtraExp" adicione isto:
Código:
Não sei nada de programação me ajude alguém ?
quando clico no start pra testa
Muito bem, agora dentro do "ScrlExtraExp" adicione isto:
Código:
- Código:
Item(EditorIndex).EXP = scrlExtraExp.Value
lblExtraExp.Caption = "Extra Exp: " & scrlExtraExp.Value & "%"
Não sei nada de programação me ajude alguém ?
Corrupted- Semi-Experiente
- Mensagens : 128
Créditos : 8
Re: [EO]Equipamentos com adições de EXP em porcentagem
Genzananiku escreveu:Bem acontece isso
quando clico no start pra testa
Muito bem, agora dentro do "ScrlExtraExp" adicione isto:
Código:
- Código:
Item(EditorIndex).EXP = scrlExtraExp.Value
lblExtraExp.Caption = "Extra Exp: " & scrlExtraExp.Value & "%"
Não sei nada de programação me ajude alguém ?
Mude para isso aqui, parça:
Deve funcionar ... Mas pelo que vi as vezes para de funcionar, acho que quando coloca sistema vip e isso aí, ou qualquer outro sistema de Exp, aí fica ou um ou outro.
CÓDIGO:
- Código:
Item(EditorIndex).ExtraEXP = scrlExtraExp.Value
lblExtraExp.Caption = "Extra Exp: " & scrlExtraExp.Value & "%"
_________________
Sign
- Sign¹:
- Sign²:
Spooky- Membro Ativo
- Mensagens : 267
Créditos : 24
Re: [EO]Equipamentos com adições de EXP em porcentagem
Nah, ><
Spooky, leia o que o Genza pediu;
Genza, Quando ele pede para que você adicione algo dentro; vá na form, e dentro do utensilio a qual vc criou e dê um duplo click.
Ex:
Criou uma barra de scroll; Clique nela duas vezes, e você irá para a área de sourcer dentro do sua Scroll.
Por isso "dentro". Acho que eh a forma mais fácil de explicar.
Coloque esse codigo ali dentro.
~
Já Spooky, se está bugando é porque você no ModCombat colocou de forma errada, por isso o conflito entre o Vip e o Item Exp.
Att
Spooky, leia o que o Genza pediu;
Genza, Quando ele pede para que você adicione algo dentro; vá na form, e dentro do utensilio a qual vc criou e dê um duplo click.
Ex:
Criou uma barra de scroll; Clique nela duas vezes, e você irá para a área de sourcer dentro do sua Scroll.
Por isso "dentro". Acho que eh a forma mais fácil de explicar.
Coloque esse codigo ali dentro.
~
Já Spooky, se está bugando é porque você no ModCombat colocou de forma errada, por isso o conflito entre o Vip e o Item Exp.
Att
_________________
"Mistress of shattered hopes and forever broken dreams"
Profane ~- Colaborador
- Mensagens : 818
Créditos : 130
Página 1 de 2 • 1, 2
Tópicos semelhantes
» [E.O 2.0 com Passivas para Classes] Bônus de Dano por porcentagem de HP e MP perdidos com Limite
» [E.O]Add HP e MP nos equipamentos.
» [Pedido] Porcentagem na HUD
» [Duvida] Criando Porcentagem
» [EO3.0]Aprimoramento de Equipamentos
» [E.O]Add HP e MP nos equipamentos.
» [Pedido] Porcentagem na HUD
» [Duvida] Criando Porcentagem
» [EO3.0]Aprimoramento de Equipamentos
Página 1 de 2
Permissões neste sub-fórum
Não podes responder a tópicos
|
|