;Pull Skill Timer

If GetUserMana(#PARAM1)=GetUserMaxMana(#PARAM1)
	
	m=GetUserMap(#PARAM1)
	x=GetUserX(#PARAM1)
	y=GetUserY(#PARAM1)
	d=GetUserDirection(#PARAM1)

	If x<>#PARAM2
		sendMessageToUser(#PARAM1,"Pull was cancelled due to your movement.",#MSG_CRITICAL)
		Goto END
	Endif

	if y<>#PARAM3
		sendMessageToUser(#PARAM1,"Pull was cancelled due to your movement.",#MSG_CRITICAL)
		Goto END
	endif	

	if d=#DIR_LEFT
   		x=x-1
     endif

	if d=#DIR_RIGHT
   		x=x+1
     endif

	if d=#DIR_UP
   		y=y-1
     endif

	if d=#DIR_DOWN
   		y=y+1
     endif

	u=GetUserAtXY(m,x,y)
	if u>0
		if GetUserAccess(u)=0
			WarpUser(u,m,GetUserX(#PARAM1),GetUserY(#PARAM1))
			sendMessageToUser(u,"Someone pulled you out of the way.",#MSG_CRITICAL)
			SetUserMana(#PARAM1,0)
		endif 
	else
		sendMessageToUser(#PARAM1,"There is nobody there to pull.",#MSG_CRITICAL)
	endif 
else
	sendMessageToUser(#PARAM1,"You must have full blood to pull someone.",#MSG_CRITICAL)
Endif

Label END

Continue = 1