Working Auto-Attack

[tslusny]

Thx to Zopto for his [base AutoAttack system](http://www.touchofdeathforums.com/smf2/index.php/topic,80725.msg864206.html#new)

So this tutorial will make this: If you have target then if you are facing NPC you will autoattack that NPC.

CLIENT SIDE

In **frmMain** in **picOptions** create

> **Checkbox**
> **Name**: chkAutoAttack
> **Caption**: Auto attack

Then in **mod GameLogic** find this:
```
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
```Replace it with this:
```
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 myTarget > 0 Then
                    If x = MapNpc(myTarget).x And Y = MapNpc(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
                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
                Call checkmovement
        End If

```

[Zopto]

Nice… Can you add link of my tut of autoattack to ppl cnow what you fixed

[tslusny]

@Zopto:

> Nice… Can you add link of my tut of autoattack to ppl cnow what you fixed

Yes

[Zopto]

Tnx bro

[minipimp]

Im getting the Variable not defined error.  on the line "  X = GetPlayerX(MyIndex) "

[Whackeddie99]

at the top of the sub put

Dim X as long
Dim Y as long

[minipimp]

Now only problem is , unless the checkbox is checked the player cannot move.

[JohnPony]

```
    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 myTarget > 0 Then
                    If X = MapNpc(myTarget).X And Y = MapNpc(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
    End If
```
Changing it to

```
  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 myTarget > 0 Then
                    If x = MapNpc(myTarget).x And Y = MapNpc(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
                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
                Call checkmovement
        End If

```
Should work, although i couldn't test as i don't have VB6 where i am at the moment.

[minipimp]

Compile error : End case without select case  :/  Im probably putting it in wrong?

[JohnPony]

Probably something wrong with my code, i didn't write it in the IDE.

It should work now.

[tslusny]

Fixed tut thx Pony

[JohnPony]

@Deathbeam:

> Fixed tut thx Pony

Anytime.

[Wortel Angels]

Got an error it highlight Loop

>Loop without Do<

[minipimp]

Same error here too.

[zerohero]

Add an extra

```
End If
```
To the end of his code, should fix you right up

[Wortel Angels]

Thanks works but i cant attack with CTRL if the checkbox is not checked

To fix it put under the second
```
                Call CheckMovement
```This
```
                Call CheckAttack
```

[Murdoc]

would this work with auto-target?

[Wortel Angels]

yes it works ;-)

[santa-clause]

Maybe also add in this tutorial

That they need to add: Dim x As Long, y As Long

After : Public Sub GameLoop()

And the last end if too