How to make npc cast spells or range attacks?

[kenny92316]

Any ideas to how I could make a npc cast spells or use arrows for range attacks? Any input is appreciated.

[Robin]

Add an NPC exception to the spell casting & buffering procedures.

[kenny92316]

Buffering would be for arrows, am I right?

[Ruins of Hell]

@kenny:

> Buffering would be for arrows, am I right?

No. He's saying to use the code that is used for NPC spells and adapt it for arrows as well (in this case, the spell casting procedures and buffering procedures).

[kenny92316]

Oh alright, thank you for the clarification soul.

[kenny92316]

I finally got a chance to poke around the source for subs that would be used for npc attack, I found one but not exactly sure what the data input is refering to. The StartAddr and ExtraVar in specific. The only thing that I noticed is the buffer.readlong, and the two data types are classified as longs in the call of the sub.

```
Private Sub HandleNpcAttack(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim i As Long
Dim Buffer As clsBuffer

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    i = Buffer.ReadLong
    ' Set player to attacking
    MapNpc(i).Attacking = 1
    MapNpc(i).AttackTimer = GetTickCount

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "HandleNpcAttack", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub
```