Emptik, А, ну тогда вот так, в ScriptedSpell:
Code
Case n
Dim Target
Target = GetPlayerTarget(Index)
If GetPlayerTarget(Index) > 0 Then
Call Spellanim(1, GetPlayerMap(Target), GetPlayerX(Target), GetPlayerY(Target)) ' 1 - номер анимации
End If
Exit Sub