[ALL]Poder De Luta(Quer Adicionar Outro Status)
+18
felipewyd
Master-Man
Coyotte
fernandobr
Ks_dark
cuccate
guuh
Lucas Roberto
Vponce_Vinipfg
victorlarios
Luiz
youh
DrayonDuarte
Lendário
snool
Flips03
Gu1lh3rm3
Cris~
22 participantes
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais
Página 1 de 2
Página 1 de 2 • 1, 2 
[ALL]Poder De Luta(Quer Adicionar Outro Status)
por Cris~ Dom 27 Jun 2010, 07:28
Client Side
Agora vá no modClientTCP e procure por essa linha:
Ainda no modClientTCP, procure por essa linha:
Substitua isso tudo por:
Server Side
Vamos para o modServerTcp
Procure por:
La Procure Por:
Creditos:
°Fryeja- Fez o Tutorial
°MMORPGBR-Onde Eu Postei
Agora vá no modClientTCP e procure por essa linha:
- Código:
frmMirage.lblLevel.Caption = "Level " & Val(Parse(7))
- Código:
frmMirage.lblPDL.Caption = "Poder de Luta: " & Val(Parse(8))
Ainda no modClientTCP, procure por essa linha:
- Código:
frmMirage.lblPoints.Caption = Val(Parse(1)) & " pontos"
- Código:
frmMirage.lblPoints.Caption = Int(Val(Parse(1)) / 4) & " pontos de poder de luta"
- Código:
If GetPlayerPOINTS(MyIndex) > 0 Then
frmMirage.AddStr.Visible = True
frmMirage.AddDef.Visible = True
frmMirage.AddSpeed.Visible = True
frmMirage.AddMagi.Visible = True
Else
frmMirage.AddStr.Visible = False
frmMirage.AddDef.Visible = False
frmMirage.AddSpeed.Visible = False
frmMirage.AddMagi.Visible = False
End If
- Código:
If GetPlayerPOINTS(MyIndex) > 0 Then
frmMirage.AddStr.Visible = False
frmMirage.AddDef.Visible = False
frmMirage.AddSpeed.Visible = False
frmMirage.AddMagi.Visible = False
frmMirage.AddPdl.visible = true
Else
frmMirage.AddStr.Visible = False
frmMirage.AddDef.Visible = False
frmMirage.AddSpeed.Visible = False
frmMirage.AddMagi.Visible = False
frmMirage.AddMagi.Visible = False
frmMirage.AddPdl.visible = False
End If
- Código:
Private Sub AddDef_Click()
Call SendData("usestatpoint" & SEP_CHAR & 1 & SEP_CHAR & 1 & END_CHAR)
End Sub
Private Sub AddMagi_Click()
Call SendData("usestatpoint" & SEP_CHAR & 2 & SEP_CHAR & 1 & END_CHAR)
End Sub
Private Sub AddSpeed_Click()
Call SendData("usestatpoint" & SEP_CHAR & 3 & SEP_CHAR & 1 & END_CHAR)
End Sub
Private Sub AddStr_Click()
Call SendData("usestatpoint" & SEP_CHAR & 0 & SEP_CHAR & 1 & END_CHAR)
End Sub
Substitua isso tudo por:
- Código:
Private Sub AddPDL_Click()
dim i as byte
For I = 0 To 3
Call SendData("usestatpoint" & SEP_CHAR & I & SEP_CHAR & 1 & END_CHAR)
Next
End Sub
Server Side
Vamos para o modServerTcp
Procure por:
- Código:
Sub SendStats(ByVal Index As Long)
Dim Packet As String
Packet = "PLAYERSTATSPACKET" & SEP_CHAR & GetPlayerstr(Index) & SEP_CHAR & GetPlayerDEF(Index) & SEP_CHAR & GetPlayerSPEED(Index) & SEP_CHAR & GetPlayerMAGI(Index) & SEP_CHAR & GetPlayerNextLevel(Index) & SEP_CHAR & GetPlayerExp(Index) & SEP_CHAR & GetPlayerLevel(Index) & END_CHAR
Call SendDataTo(Index, Packet)
End Sub
- Código:
Sub SendStats(ByVal Index As Long)
Dim Packet As String
Packet = "PLAYERSTATSPACKET" & SEP_CHAR & GetPlayerstr(Index) & SEP_CHAR & GetPlayerDEF(Index) & SEP_CHAR & GetPlayerSPEED(Index) & SEP_CHAR & GetPlayerMAGI(Index) & SEP_CHAR & GetPlayerNextLevel(Index) & SEP_CHAR & GetPlayerExp(Index) & SEP_CHAR & GetPlayerLevel(Index) & SEP_CHAR & Int((GetPlayerstr(Index) + GetPlayerDEF(Index) + GetPlayerSPEED(Index) + GetPlayerMAGI(Index)) / 4) & END_CHAR
Call SendDataTo(Index, Packet)
End Sub
La Procure Por:
- Código:
Sub PlayerLevelUp(index)
Dim I
Dim D
Dim C
C = 0
Do While GetPlayerExp(index) => GetPlayerNextLevel(index)
D = GetPlayerExp(index) - GetPlayerNextLevel(index)
Call SetPlayerLevel(index, GetPlayerLevel(index) + 1)
I = Int(GetPlayerSPEED(index) / 10)
If I < 1 Then I = 1
If I > 3 Then I = 3
Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + I)
Call SetPlayerExp(index, D)
C = C + 1
Loop
If C > 1 Then
'Call GlobalMsg(GetPlayerName(index) & " ganhou " & C & " níveis!", 6)
Else
'Call GlobalMsg(GetPlayerName(index) & " ganhou um nível!", 6)
End If
Call BattleMsg(index, "Você tem " & GetPlayerPOINTS(index) & " pontos para gastar.", 9, 0)
End Sub
Sub UsingStatPoints(index, PointType, PointQuant)
Select Case PointType
Case 0
'Gives you a set max
If GetPlayerSTR(index) + PointQuant > 1000 Then
Call BattleMsg(index, "Você chegou ao máximo de Força!", 12, 0)
Exit Sub
End If
Call SetPlayerSTR(index, GetPlayerSTR(index) + PointQuant)
Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Força!", 15, 0)
Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0)
Call SendDataTo(Index, "sound" & SEP_CHAR & "ForSubiu" & END_CHAR)
Case 1
'Gives you a set max
If GetPlayerDEF(index) + PointQuant > 1000 Then
Call BattleMsg(index, "Você chegou ao máximo de Defesa!", 12, 0)
Exit Sub
End If
Call SetPlayerDEF(index, GetPlayerDEF(index) + PointQuant)
Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Defesa!", 15, 0)
Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0)
Call SendDataTo(Index, "sound" & SEP_CHAR & "DefSubiu" & END_CHAR)
Case 2
'Gives you a set max
If GetPlayerMAGI(index) + PointQuant > 1000 Then
Call BattleMsg(index, "Você chegou ao máximo de Inteligência!", 12, 0)
Exit Sub
End If
Call SetPlayerMAGI(index, GetPlayerMAGI(index) + PointQuant)
Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Inteligência!", 15, 0)
Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0)
Call SendDataTo(Index, "sound" & SEP_CHAR & "IntSubiu" & END_CHAR)
Case 3
'Gives you a set max
If GetPlayerSPEED(index) + PointQuant > 1000 Then
Call BattleMsg(index, "Você chegou ao máximo de sua Agilidade!", 12, 0)
Exit Sub
End If
Call SetPlayerSPEED(index, GetPlayerSPEED(index) + PointQuant)
Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Agilidade!", 15, 0)
Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0)
Call SendDataTo(Index, "sound" & SEP_CHAR & "AgiSubiu" & END_CHAR)
End Select
Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - PointQuant)
End Sub
- Código:
Sub PlayerLevelUp(index)
Dim D
Dim C
C = 0
Do While GetPlayerExp(index) => GetPlayerNextLevel(index)
D = GetPlayerExp(index) - GetPlayerNextLevel(index)
Call SetPlayerLevel(index, GetPlayerLevel(index) + 1)
Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + 4)
Call SetPlayerExp(index, D)
C = C + 1
Loop
If C > 1 Then
'Call GlobalMsg(GetPlayerName(index) & " ganhou " & C & " níveis!", 6)
Else
'Call GlobalMsg(GetPlayerName(index) & " ganhou um nível!", 6)
End If
Call BattleMsg(index, "Você tem " & GetPlayerPOINTS(index) & " pontos para gastar.", 9, 0)
End Sub
Sub UsingStatPoints(index, PointType, PointQuant)
Select Case PointType
Case 0
'Gives you a set max
If GetPlayerSTR(index) + PointQuant > 1000 Then
Call BattleMsg(index, "Você chegou ao máximo de Força!", 12, 0)
Exit Sub
End If
Call SetPlayerSTR(index, GetPlayerSTR(index) + PointQuant)
Case 1
'Gives you a set max
If GetPlayerDEF(index) + PointQuant > 1000 Then
Call BattleMsg(index, "Você chegou ao máximo de Defesa!", 12, 0)
Exit Sub
End If
Call SetPlayerDEF(index, GetPlayerDEF(index) + PointQuant)
Case 2
'Gives you a set max
If GetPlayerMAGI(index) + PointQuant > 1000 Then
Call BattleMsg(index, "Você chegou ao máximo de Inteligência!", 12, 0)
Exit Sub
End If
Call SetPlayerMAGI(index, GetPlayerMAGI(index) + PointQuant)
Case 3
'Gives you a set max
If GetPlayerSPEED(index) + PointQuant > 1000 Then
Call BattleMsg(index, "Você chegou ao máximo de sua Agilidade!", 12, 0)
Exit Sub
End If
Call SetPlayerSPEED(index, GetPlayerSPEED(index) + PointQuant)
End Select
Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - PointQuant)
End Sub
Creditos:
°Fryeja- Fez o Tutorial
°MMORPGBR-Onde Eu Postei
Última edição por Supremo~ em Sáb 11 Set 2010, 15:58, editado 2 vez(es)
Cris~- Membro Veterano
- Mensagens : 1574
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por Gu1lh3rm3 Sex 02 Jul 2010, 23:12
hum, vlw pelo tuto , o que eu fiz aquie eh totalmente diferente...
mesmo assim vlw pela contribuição!
+1 (quando eu descobri onde da +1 eu te dou... to perdido aqui...)
mesmo assim vlw pela contribuição!
+1 (quando eu descobri onde da +1 eu te dou... to perdido aqui...)
Gu1lh3rm3- Membro de Honra
- Mensagens : 1232
-
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por Cris~ Sáb 03 Jul 2010, 06:10
Aperta No >>>>>>>>. + Ali perto da foto ;D
Cris~- Membro Veterano
- Mensagens : 1574
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por Flips03 Sáb 03 Jul 2010, 08:25
Bom tuto!!
Queria saber uma coisa: Tem como aumantar um tipo de iten ao invés de aumentar mais um status?? (Se tiver como eu faço?)
- Ex: Quando vou criar um iten novo, as opções que aparecem sao de Arma, Armadura, Escudo, Elmo, (Os potions que eu esqueci), Magia e Pet. Eu queria adicionar Pants (Calça) nas opções.
E também quero saber uma coisa (É coisa simples): Para que serve o quadrado que fica debaixo da armadura nos equips?
Queria saber uma coisa: Tem como aumantar um tipo de iten ao invés de aumentar mais um status?? (Se tiver como eu faço?)
- Ex: Quando vou criar um iten novo, as opções que aparecem sao de Arma, Armadura, Escudo, Elmo, (Os potions que eu esqueci), Magia e Pet. Eu queria adicionar Pants (Calça) nas opções.
E também quero saber uma coisa (É coisa simples): Para que serve o quadrado que fica debaixo da armadura nos equips?
Flips03- Membro
- Mensagens : 150
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por Cris~ Sáb 03 Jul 2010, 09:18
Bom tuto!!
Queria saber uma coisa: Tem como aumantar um tipo de iten ao invés de aumentar mais um status?? (Se tiver como eu faço?)
- Ex: Quando vou criar um iten novo, as opções que aparecem sao de Arma, Armadura, Escudo, Elmo, (Os potions que eu esqueci), Magia e Pet. Eu queria adicionar Pants (Calça) nas opções.
E também quero saber uma coisa (É coisa simples): Para que serve o quadrado que fica debaixo da armadura nos equips?
Cara Eu Naum Entendi Bufunfa De Nada Doque Vc Falo "tem certesa que posto no lugar certo?"
Cris~- Membro Veterano
- Mensagens : 1574
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por Gu1lh3rm3 Sáb 03 Jul 2010, 15:26
isso esta sendo topc off ... crie essa pergunta em pedidos ^^, quando alguem ler ajudara vc e tente falar mais corretamente para todos intender...
Gu1lh3rm3- Membro de Honra
- Mensagens : 1232
-
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por Flips03 Sáb 03 Jul 2010, 21:04
Ok!
Ja vou criar o tópico...
Ja vou criar o tópico...
Flips03- Membro
- Mensagens : 150
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por snool Qua 07 Jul 2010, 14:00
Bom amigos aqui não apareceu nada de ADDPL em lugar algum , continua igual,e eu fiz tudo certinho ! o.o
Obrigado!
Obrigado!
Última edição por snool em Qua 07 Jul 2010, 14:25, editado 2 vez(es)
snool- Membro Sênior
- Mensagens : 351
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por Gu1lh3rm3 Qua 07 Jul 2010, 14:15
clica com o botao direito do mouse em cima da frmMirage e clica View Code...
Gu1lh3rm3- Membro de Honra
- Mensagens : 1232
-
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por snool Qua 07 Jul 2010, 14:33
Olha não tem nada:https://2img.net/r/ihimizer/i/akir.jpg/
snool- Membro Sênior
- Mensagens : 351
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por Lendário Qua 07 Jul 2010, 14:48
Você tem que abrir a frmMirage pelo visual basic 6
Lendário- Administrador Lendário
- Mensagens : 1958
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por snool Qua 07 Jul 2010, 15:08
Sim,eu fiz tudo certo,coloquei todos codigos falados nos lugares certos mais não modificou coisa alguma.
snool- Membro Sênior
- Mensagens : 351
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por Cris~ Sex 09 Jul 2010, 11:57
adiciono os codigos Tudo,As Label Na PicStat,e Compilo ? Pq Isso Funciono Aki Certo '-'
Cris~- Membro Veterano
- Mensagens : 1574
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por DrayonDuarte Ter 13 Jul 2010, 22:17
MANO EU QUERIA PARA FICAR SO PODER DE LUTAR E QUANDO ADC PODER DE LUTAR ADC EM TUDO FORÇA DEFESA AGILIDADE E ETC
DrayonDuarte- Membro
- Mensagens : 243
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por youh Qua 14 Jul 2010, 10:11
boa
eles arrumam de tudo pra ter crédito...
youh- Membro
- Mensagens : 148
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por Luiz Qua 21 Jul 2010, 17:43
Minha pasta client nao tem frm '-'
Luiz- Membro
- Mensagens : 207
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por Gu1lh3rm3 Qua 21 Jul 2010, 22:47
vc instalo o VB ?
Gu1lh3rm3- Membro de Honra
- Mensagens : 1232
-
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por victorlarios Qua 28 Jul 2010, 10:53
cara eu fiz certo e deu certo mas...quando o player sobe de nivel,o poder d eluta dele não sobe,fica 'poder de luta:12' igual tava antes...
e o STR dele DEF etc nao sobe também...help ?
e o STR dele DEF etc nao sobe também...help ?
victorlarios- Novato
- Mensagens : 28
-
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por Cris~ Qua 28 Jul 2010, 11:28
vc tenque adicionar no + ^^
Cris~- Membro Veterano
- Mensagens : 1574
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por Vponce_Vinipfg Dom 29 Ago 2010, 03:15
Acontece o seguinte, quando eu aperto rapido no (+) para add os pontos no pdl ele da o erros subscript of range axo q eh assim q se escreve, e gostaria de saber se tem como arrumar please!!!
Vponce_Vinipfg- Novato
- Mensagens : 13
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por snool Sáb 11 Set 2010, 15:41
Quando eu vou copilar o Client Side , ele da Copile Erro na ModGameLogin e seleciona um codigo
!
Oque eu faço ?
Tbm Na ModClientTcp
Com outros codigos .
Enfim em todos codigos que possuem Pdl
- Código:
.AddPdl
!
Oque eu faço ?
Tbm Na ModClientTcp
Com outros codigos .
Enfim em todos codigos que possuem Pdl
Última edição por snool em Sáb 11 Set 2010, 15:52, editado 1 vez(es)
snool- Membro Sênior
- Mensagens : 351
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por Cris~ Sáb 11 Set 2010, 15:51
lol man vc ta fazendo errado ¬¬'... esse sistema de pdl eu uso no meu jogo '-'
Cris~- Membro Veterano
- Mensagens : 1574
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por snool Sáb 11 Set 2010, 15:52
Ué ?
Por mim eu fiz como vc ensinou .-.
Depois que eu fiz o tuto e apaguei umas partes que estavam atrapalhando a copilação de outras coisas ta dando :
Por mim eu fiz como vc ensinou .-.
Depois que eu fiz o tuto e apaguei umas partes que estavam atrapalhando a copilação de outras coisas ta dando :
- Código:
Subscript Error 9 .
Última edição por snool em Sáb 11 Set 2010, 16:35, editado 2 vez(es)
snool- Membro Sênior
- Mensagens : 351
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por snool Sáb 11 Set 2010, 16:54
AAAAA me ajuda agora meu jogo não funciona mais !!
Última edição por snool em Sáb 11 Set 2010, 16:57, editado 1 vez(es)
snool- Membro Sênior
- Mensagens : 351
Re: [ALL]Poder De Luta(Quer Adicionar Outro Status)
por Lendário Sáb 11 Set 2010, 16:55
snool punido por doble post
Lendário- Administrador Lendário
- Mensagens : 1958
Página 1 de 2 • 1, 2
Tópicos semelhantes» erro ao adicionar poder de luta
» [ALL]Comando para adicionar poder de luta
» Tem como fazer um status de Poder de Luta?
» Poder De Luta
» Poder de luta
» [ALL]Comando para adicionar poder de luta
» Tem como fazer um status de Poder de Luta?
» Poder De Luta
» Poder de luta
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais
Página 1 de 2
Permissões neste sub-fórum
Não podes responder a tópicos
» Ojkjeeeee
» Naruto Great Ninja Batle
» Recrutamento de um Designer para jogo de CDZ.
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Projeto Dbz
» Avaliação - Sprites Naruto
» [Sprites] DBZ (Plix)
» Super Pack - Bleach V.2
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [Pedido] Contador de resets na FrmMain
» [Recrutamento]
» Ajuda erro no Cliente e Servidor do EEB 2.6!
» Como criar tilesets para Eclipse Origins 3.0 (POKÉMON)
» Recursos Pokemons
» erro frm flash
» Pedido - Pack de star wars
» [Ajuda] Sobre como por o servidor on por ip fixo
» Illusion Dimension - O Misterio do ID: BETA TESTE ONLINE
» [NSME] Naruto Shinobi Maker Engine
» Script /base,/casa Igual DBZ Forces
» [Pedido]Colar Tsunade item sprite eclipse origin
» [Pedido] Elysium
» Naruto - Recruta
» [Avaliação] - Kirito from Sword Art Online; Red and Pikachu from Pokemon.
» [Avaliação] - Kenpachi Zaraki from Bleach; Libra Shiryu From Saint Seiya.
» Demonstração de Sprites (Á VENDA!)
» [Sistema de Reset]Para Eclipse .
» Cada Guild Nascer em Certo Mapa
» Dragon Ball z Fusion A Grande Volta
» Ajuda com Ip fixo
» Como Fazer um GUI no Eclipse Origins
» Shisui Susanoo
» Fantasy Art Online
» Ajuda !!
» como passar o usuário e senha para o MainMenu?
» Ru time ero 13 Type mismatch
» Jarvis 1.3 Download
» [Avaliação/Disponibilização]Árvore 64x64
» Mlk's Zikas Signatures
» Pedido de Sistemas
» [AjudaEEB]Gerador de EXP
» [Avaliar] Base, Humano e Goblin.
» Fabrica do Tio Cronos!
» [PixelArt] Minion - Meu malvado favorito
» [Avaliar] Goku Dragon Ball Z