Displaying a spell animation?

[Squiddle]

Hi everyone, it's my, Squiddle :happy4:. I'm having a problem. I am using this script by Mr Miguu which draws a spell animation over the enemy you're attacking. It looks like this:

```
' Executes when a player presses the CONTROL key.
Sub OnAttack(Index, Damage)
  Dim Target
  Dim Range

  If GetPlayerDir(index) = 0 Then
Call SpellAnim(1, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index) - 1)
      End If
      If GetPlayerDir(index) = 1 Then
    Call SpellAnim(1, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index) + 1)
      End If
      If GetPlayerDir(index) = 2 Then
Call SpellAnim(1, GetPlayerMap(index), GetPlayerX(index) - 1, GetPlayerY(index))
      End If
      If GetPlayerDir(index) = 3 Then
Call SpellAnim(1, GetPlayerMap(index), GetPlayerX(index) + 1, GetPlayerY(index))
    End If

```
It tells you to replace the ENTIRE onAttack sub, but I didn't want to replace my onAttack sub, so I tried to peice it together like this:

```
' Executes when a player presses the CONTROL key.
Sub OnAttack(Index, Damage)
  Dim Target
  Dim Range

  If GetPlayerDir(index) = 0 Then
Call SpellAnim(1, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index) - 1)
      End If
      If GetPlayerDir(index) = 1 Then
    Call SpellAnim(1, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index) + 1)
      End If
      If GetPlayerDir(index) = 2 Then
Call SpellAnim(1, GetPlayerMap(index), GetPlayerX(index) - 1, GetPlayerY(index))
      End If
      If GetPlayerDir(index) = 3 Then
Call SpellAnim(1, GetPlayerMap(index), GetPlayerX(index) + 1, GetPlayerY(index))
    End If

  Range = Rand(Int(Damage) - 2, Int(Damage) + 2)

  If Int(Range) > 0 Then
      If Int(GetPlayerTarget(Index)) > 0 Then
        Target = GetPlayerTarget(Index)
        Call DamagePlayer(Index, Target, Range)
      Else
        Target = GetPlayerTargetNPC(Index)
        Call DamageNPC(Index, Target, Range)
      End If
  Else
      If Int(GetPlayerTarget(Index)) > 0 Then
        Target = GetPlayerTarget(Index)
        Call DamagePlayer(Index, Target, 0)
      Else
        Target = GetPlayerTargetNPC(Index)
        Call DamageNPC(Index, Target, 0)
      End If 
    End If

End Sub
```
As you can see, I have no idea where also to put it. Help please ^.^.

[Doomsalad]

sorry…what exactly are you trying to do?

[Squiddle]

Oh sorry, forgot to explain my prbolem ^.^". I'm having the problem that the animation is not showing up when I attack a monster.

[DrNova]

Add

Function GetPlayerDirX(index)
If GetPlayerDir(index) = 0 Then
GetPlayerDirX = GetPlayerX(index)
ElseIf GetPlayerDir(index) = 1 Then
GetPlayerDirX = GetPlayerX(index)
ElseIf GetPlayerDir(index) = 2 Then
GetPlayerDirX = GetPlayerX(index) - 1
ElseIf GetPlayerDir(index) = 3 Then
GetPlayerDirX = GetPlayerX(index) + 1
End If
End Function

'Returns the Y of the tile in front of the player
Function GetPlayerDirY(index)
If GetPlayerDir(index) = 0 Then
GetPlayerDirY = GetPlayerY(index) - 1
ElseIf GetPlayerDir(index) = 1 Then
GetPlayerDirY = GetPlayerY(index) + 1
ElseIf GetPlayerDir(index) = 2 Then
GetPlayerDirY = GetPlayerY(index)
ElseIf GetPlayerDir(index) = 3 Then
GetPlayerDirY = GetPlayerY(index)
End If
End Function

To your main.txt Then in the on attack, use the simple call spellanim(index  and where X and Y loc are, use variables with getplayerdirx and getplayerdiry in their locations, will make the spell anim play right in front of you

[Squiddle]

Okay, I still don't think I have it right. Here is my code:

```
' Executes when a player presses the CONTROL key.
Sub OnAttack(Index, Damage)
  Dim Target
  Dim Range

  Call SpellAnim(1, GetPlayerMap(index), GetPlayerDirX(index), GetPlayerDirY(index))

  Range = Rand(Int(Damage) - 2, Int(Damage) + 2)

  If Int(Range) > 0 Then
      If Int(GetPlayerTarget(Index)) > 0 Then
        Target = GetPlayerTarget(Index)
        Call DamagePlayer(Index, Target, Range)
      Else
        Target = GetPlayerTargetNPC(Index)
        Call DamageNPC(Index, Target, Range)
      End If
  Else
      If Int(GetPlayerTarget(Index)) > 0 Then
        Target = GetPlayerTarget(Index)
        Call DamagePlayer(Index, Target, 0)
      Else
        Target = GetPlayerTargetNPC(Index)
        Call DamageNPC(Index, Target, 0)
      End If 
    End If

End Sub
```

[Agoraphobic]

This is from my main that I'm currently working on, however this should work. Hopefully it helps.

```
' Executes when a player presses the CONTROL key.
Sub OnAttack(Index, Damage)
  Dim Target
  Dim Range

  Range = Rand(Int(Damage) - 3, Int(Damage) + 3)

  If Int(Range) > 0 Then
      If Int(GetPlayerTarget(Index)) > 0 Then
        Target = GetPlayerTarget(Index)
        Call DamagePlayer(Index, Target, Range)
Call SpellAnim(1, GetPlayerMap(index), GetPlayerDirX(index), GetPlayerDirY(index))

      Else
        Target = GetPlayerTargetNPC(Index)
        Call DamageNPC(Index, Target, Range)
Call SpellAnim(1, GetPlayerMap(index), GetPlayerDirX(index), GetPlayerDirY(index))

      End If
  Else
      If Int(GetPlayerTarget(Index)) > 0 Then
        Target = GetPlayerTarget(Index)
        Call DamagePlayer(Index, Target, 0)
Call SpellAnim(1, GetPlayerMap(index), GetPlayerDirX(index), GetPlayerDirY(index))

      Else
        Target = GetPlayerTargetNPC(Index)
        Call DamageNPC(Index, Target, 0)
Call SpellAnim(1, GetPlayerMap(index), GetPlayerDirX(index), GetPlayerDirY(index))

      End If

  End If
End Sub
```

[DrNova]

he just needs to use the getplayerdir calls via variables in the location parts of the call spell anim.

simple

[Squiddle]

That one doesn't work either =/. Nova I tried using those (See the code I posted above) but nothing shows up =(.

[Agoraphobic]

Very strange, I just tested it works perfectly and had friend log on and works perfectly with 2 people on. If you don't mind upload your main and I'll take a look at it for you or I'm sure Nova would as well.

[DrNova]

Add those functions to your main.txt

Call SpellAnim(SpellNum, getplayermap(jndex), GetPlayerDirX(index), GetPlayerDirY(index))

Its simple.

[Squiddle]

Ummm, spell number? As if in you must make a spell first or do you mean you must draw the spell? I only drew it, never made the spell ^.^". I just added it, works now -.-. Thanks you two, you helped me a lot ^.^.

[Agoraphobic]

Create the spell for number 1 and give it the animation then try your script.