Trabalhando com Auto-Ataque Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

Aldeia RPG
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Trabalhando com Auto-Ataque

2 participantes

Ir para baixo

Trabalhando com Auto-Ataque Empty Trabalhando com Auto-Ataque

Mensagem por Valentine Dom Ago 26, 2012 3:18 pm

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)
Valentine
Valentine
Administrador
Administrador

Medalhas : Trabalhando com Auto-Ataque ZgLkiRU
Mensagens : 5345
Créditos : 1164

https://www.aldeiarpg.com/

Ir para o topo Ir para baixo

Trabalhando com Auto-Ataque Empty Re: Trabalhando com Auto-Ataque

Mensagem por FFogomax Dom Ago 26, 2012 3:52 pm

Olha quem voltou. Razz
Ótimo tutorial. Posso te chamar de Marlos? Não acostumei com o Valentine.
Eu que estou entrando na área de EO preciso de uns tutoriais assim. +Credit Razz

FFogomax
Experiente
Experiente

Mensagens : 557
Créditos : 37

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos