Arena RPG Maker
Olá, visitante!
Seja bem-vindo ao fórum Arena RPG Maker, caso queira aprender sobre criação de jogos, está no fórum certo. Esperamos que possa aprender tanto quanto possa nos ensinar aqui.

Atenciosamente,
Equipe Arena RPG Maker.
Arena RPG Maker

Estamos de volta o/ ... Ou não.Eu amo a -Dark
Doações para o fórum abertas, clique aqui e saiba mais.
Últimos assuntos
» Pokémon Genesis Online! (PGO)
Qua 05 Jul 2017, 17:08 por Lexar

» Tileset Converter to MV
Sex 12 Maio 2017, 13:07 por Douggi

» [Dúvida] Como tirar a porcentagem de esquiva
Ter 09 Maio 2017, 22:15 por Neil Flame Runner

» Pack Resources, Sprites e etc
Qua 23 Dez 2015, 09:30 por raydengv

» Download RPG Maker 2003 + RTP em português
Ter 22 Dez 2015, 08:14 por ::KimMax::

» Fantasy Art Online
Dom 18 Out 2015, 16:42 por daviih123

» Você vai ter medo do Nerve gear?
Sab 25 Jul 2015, 16:02 por Kirito-kun

» O Barato é louco
Sab 27 Jun 2015, 15:26 por Halt

» Download RPG Maker 2000 + RTP em português
Qui 21 Maio 2015, 19:28 por Wismael

» Divulgando meu grupo e página do Facebook
Ter 19 Maio 2015, 13:06 por Halt


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 Trabalhando com auto-ataque em Qui 10 Jan 2013, 11:19

Halt

avatar
Administrador
Administrador
Valentine escreveu:Valentine
Eu vi este tutorial postado originalmente no touchofdeath, ele tinha alguns bugs, estava incompleto e só funcionava com npcs, então eu o completei.

Deathbeam
Este tutorial vai fazer o seguinte: Se você tem alvo e está de frente para o mesmo, o jogador irá atacá-lo automaticamente até matar.

LADO CLIENTE

Em frmMain, na picOptions criar
Checkbox
Name: chkAutoAttack
Caption: Auto Ataque

Então, em modGameLogic encontre isto:
Código:
Dim tmr10000 As Long

Embaixo adicione:
Código:
Dim x As Long, y As Long

Agora procure por:
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

Substitua por isto:
Código:
            If frmMain.chkAutoAttack.Value = YES Then
                If CanMoveNow Then
                    Select Case Player(MyIndex).Dir
                        Case DIR_UP
                            X = GetPlayerX(MyIndex)
                            y = GetPlayerY(MyIndex) - 1
                        Case DIR_DOWN
                            X = GetPlayerX(MyIndex)
                            y = GetPlayerY(MyIndex) + 1
                        Case DIR_LEFT
                            X = GetPlayerX(MyIndex) - 1
                            y = GetPlayerY(MyIndex)
                        Case DIR_RIGHT
                            X = GetPlayerX(MyIndex) + 1
                            y = GetPlayerY(MyIndex)
                    End Select
                    If myTargetType = TARGET_TYPE_NPC Then
                        If X = MapNpc(myTarget).X And y = MapNpc(myTarget).y Then ControlDown = True
                    ElseIf myTargetType = TARGET_TYPE_PLAYER Then
                        If X = Player(myTarget).X And y = Player(myTarget).y 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
            Else
                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
            End If

Créditos:
Deathbeam (Por ser o criador original do tutorial)
Valentine (Por corrigir alguns erros do tutorial, traduzir e postar aqui)


__________________________________________

Ei Convidado, sim você mesmo! Ajude o fórum à crescer postando coisas úteis, dê sugestões para melhorar-mos e divulgue o fórum.

Step inside, see the devil in I.

Gifts-
Fantasy - Fantasy - Fantasy - ~Razor - Darkmel

Zerei a internet
Ver perfil do usuário http://arenarpgmaker.eclipserpg.com

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum