[Pedido]Sistema de Auto-Ataque/Auto-Correr

por Pedro Zotesso Qui 09 Out 2014, 12:43

Olá, gostaria da ajuda de alguem para me ensinar a colocar um auto-correr/auto-atacar por check-box
em VB6!! preciso muito da Ajuda é um sistema simples mas que me ajudara bastante no meu projeto!
+1(acho que é o max que da pra mandar) pra quem resolver .. please grato! scratch

por VithorUchi Qui 09 Out 2014, 14:39

AUTO ATACK POR CHECK BOX

Abra o Client~Side e na frmMain crie 1 checkbox com:

Name: chkAtk
Caption: Auto Attack

[size]

dps procure na modgameLogic por:

CÓDIGO:
[/size]

Código:: If CanMoveNow Then Call CheckMovement ' Check if player is trying to move Call CheckAttack ' Check to see if player is trying to attack End If

[size]

e mude para:

CÓDIGO:
[/size]

Código:: If CanMoveNow Then If frmMain.chkAtk.Value = YES Then ControlDown = True End If Call CheckMovement ' Check if player is trying to move Call CheckAttack ' Check to see if player is trying to attack End If

[size]

Créditos: By Thales12 por fazer o sistema e tutorial.[/size]

Auto Correr Por Check Box

abra o Client~Side vá na frmMain crie 1 CheckBox no lugar q vc achar melhor com:

Name: chkRun
Caption: Correr Automaticamente

[size]

na modGameLogic procure por:

CÓDIGO:
[/size]

Código:: ' Check if player has the shift key down for running If ShiftDown Then Player(MyIndex).Moving = MOVING_RUNNING Else Player(MyIndex).Moving = MOVING_WALKING End If

[size]

e mude para:
CÓDIGO:
[/size]

Código:: ' Check if player has the shift key down for running If ShiftDown Then Player(MyIndex).Moving = MOVING_WALKING Else Player(MyIndex).Moving = MOVING_RUNNING If frmMain.chkRun.Value = YES Then Player(MyIndex).Moving = MOVING_WALKING End If End If

[size]

Créditos: thales12 por fazer o sistema e tutorial.[/size]

OBS:Não Foi Eu Quem Fiz,Principalmente Porque Sou Iniciante, Ambos Sistemas São Do Thales12 (Meu IDOLO e.e)

Caso Queira Dar Creditos Dê a Ele , e Se Quiser Dar Creditos a Min Tbm Aceito u.u

por Pedro Zotesso Qui 09 Out 2014, 19:03

Otimo Sistema Amigo!Vlw, mais no elysium em client~side não existe o FrmMain, eu acho que o certo seria FrmMirage não?? Testando agora *_* vamos ver se pega.
Obs:Dentro do codigo onde falava FrmMain arrumei pra FrmMirage mais Vlw pelo sistema cara Very Happy

+1 e pra vc e pro THALES12

Edit:Não deu certo, pq o codigo "If CanMoveNow Then
Call CheckMovement ' Check if player is trying to move
Call CheckAttack ' Check to see if player is trying to attack
End If"

NÃO EXISTE NO ELYSIUM , não existe no ModeGAME lOgic '-'
Correção:O do Sistema de Auto Correr Pegou Very Happy

valeu!!

por VithorUchi Qui 09 Out 2014, 20:54

Desculpe , Por um Erro de Leitura (Borrice AGUDA)
Eu Confundi Esses Tutoriais São pra Eclipse Origins
Como o Seu é Elysium

Auto Atack Por Check Box

Crie um checkBox e coloque o nome de:

chkautoattack

Dentro dele adicione:

CÓDIGO:

Código:: AutoAttack = chckautoattack

Agora procure por:

CÓDIGO:

Código:: Public ControlDown As Boolean

Abaixo adicione:

CÓDIGO:

Código:: Public AutoAttack As Boolean

Agora procure por:

CÓDIGO:

Código:: Sub CheckAttack()

E onde está dizendo:

CÓDIGO:

Código:: If ControlDown Then

Mude para

CÓDIGO:

Código:: If ControlDown Or AutoAttack Then

Bom fiz de cabeça da uma testada ai qualquer coisa só dizer...
Para fazer os outros é mesma coisa só precisa encontrar os pontos que marcam as coisas, no caso de dificuldade deixei abaixo os lugares:

Auto Correr

Olá queridos ;*
O título já diz tudo, então vamos lá...
Crie um CheckBox na frmMirage e o chame de: chkRun

No modGameLogic, ache a Sub CheckMovement()... Após isso, ache:
CÓDIGO:

Código:: If ShiftDown Then Player(MyIndex).Moving = MOVING_RUNNING Else Player(MyIndex).Moving = MOVING_WALKING End If

Então, mude para:
CÓDIGO:

Código:: If ShiftDown Then Player(MyIndex).Moving = MOVING_RUNNING Else Player(MyIndex).Moving = MOVING_WALKING If frmMirage.chkRun.Value = Checked Then Player(MyIndex).Moving = MOVING_RUNNING Else Player(MyIndex).Moving = MOVING_WALKING End If End If

Pronto... fácil, não? [Pedido]Sistema de Auto-Ataque/Auto-Correr 535201

COMO JA DISSE SISTEMA NÃO SÃO MEUS,CASO QUEIRA DAR CREDITOS DÊ AOS DEVIDOS AUTORES.Se Quiser tambem Aceito Creditos

Me Perdoe Pelo meu Erro (Burrice)

por Pedro Zotesso Sex 10 Out 2014, 11:33

To ligado que você pegou o auto-ataque do Pablo, e eu ja tentei o sistema dele que antes ja não tinha pegado como Pablo deve ter se ausentado não mandei Pm , por isso criei esse Tópico.
Resumindo:Não pegou por um erro no AutoAttack = chckautoattack
e no If ControlDown Then o Control Down Then não existe '-'
mas tudo bem, vlw mesmo assim.

por Conteúdo patrocinado

[Pedido]Sistema de Auto-Ataque/Auto-Correr

[Pedido]Sistema de Auto-Ataque/Auto-Correr

Re: [Pedido]Sistema de Auto-Ataque/Auto-Correr

Re: [Pedido]Sistema de Auto-Ataque/Auto-Correr

Re: [Pedido]Sistema de Auto-Ataque/Auto-Correr

Re: [Pedido]Sistema de Auto-Ataque/Auto-Correr

Re: [Pedido]Sistema de Auto-Ataque/Auto-Correr