CurrX=#PARAM2
CurrY=#PARAM3

CreateEffect(4,1000,0,#DIR_UP,701,CurrX,CurrY,0,0,0)

If GetUserMap(#PARAM1)=701

If GetUserX(#PARAM1)=CurrX
	If GetUserY(#PARAM1)=CurrY
		DamageUser(#PARAM1,25)
		Goto End
	Else
		Goto Target
	Endif
Else
	Goto Target
Endif

Label Target
If GetUserX(#PARAM1)>CurrX
	CurrX=CurrX+1
Endif
If GetUserX(#PARAM1)<CurrX
	CurrX=CurrX-1
Endif

If GetUserY(#PARAM1)>CurrY
	CurrY=CurrY+1
Endif
If GetUserY(#PARAM1)<CurrY
	CurrY=CurrY-1
Endif
Timer(315,1000,#PARAM1,CurrX,CurrY)

Endif

Label End


Continue = 1