;Nudge Player - skill
;Goto END

TileType = GetTileType(#MAPID,#XPOS,#YPOS) 
If TileType = #TILE_SCRIPTED
	GoTo END
ElseIf TileType = #TILE_WARP
	GoTo END
ElseIf TileType = #TILE_DOOR
	GoTo END
EndIf

If GetUserAccess(#USERID) > 4
	SetUserMana(#USERID,GetUserMaxMana(#USERID))
EndIf

If GetUserMana(#USERID)=GetUserMaxMana(#USERID)
	x=GetUserX(#USERID)
	y=GetUserY(#USERID)	
	Timer(311,5000,#USERID,x,y)
	
	PlusY = 0
	PlusX = 0
	If GetUserDirection(#USERID) = #DIR_UP
		PlusY = -1
	ElseIF GetUserDirection(#USERID) = #DIR_DOWN
		PlusY = 1
	ElseIF GetUserDirection(#USERID) = #DIR_LEFT
		PlusX = -1
	Else
		PlusX = 1
	EndIf
	
	If UserID > 0
		UserID = GetUserAtXY(#MAPID,#XPOS+PlusX,#YPOS+PlusY)
	EndIf
	sendMessageToUser(#USERID,"Do not move for 10 seconds and the player you are facing will be moved out of the way.",#MSG_SERVER)
	sendMessageToUser(UserID ,""+GetUserName(#USERID)+" is pulling you out of the way.",#MSG_CRITICAL)
else
	sendMessageToUser(#USERID,"You must have full blood to pull someone.",#MSG_CRITICAL)
Endif

Label END
Continue = 1