; Apollyon Vampire's Caress
; Goto END


If IsNight() = 0
	SendMessageToUser(#USERID, "You are unable to use this skill while it is day...", #MSG_CRITICAL)
ElseIf getuserinvitem(#USERID, GetUserEquippedWeapon(#USERID)) <> 543
	SendMessageToUser(#USERID, "You are Unable to use this skill...", #MSG_CRITICAL)
	SetUserSkill(#USERID, 38, 0)
ElseIf getuserinvitem(#USERID, GetUserEquippedAccessory(#USERID)) <> 477
	SendMessageToUser(#USERID, "You are Unable to use this skill...", #MSG_CRITICAL)
	SetUserSkill(#USERID, 38, 0)
Else
	If GetUserDirection(#USERID) = #DIR_UP
		If GetUserDirection(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID), GetUserY(#USERID) -1)) = #DIR_UP
			If GetUserMana(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID), GetUserY(#USERID) -1)) > GetUserMana(#USERID)
				SetUserMana(#USERID, GetUserMaxMana(#USERID))
			ElseIf GetUserMana(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID), GetUserY(#USERID) -1)) < GetUserMana(#USERID)
				SetUserMana(#USERID, GetUserMana(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID), GetUserY(#USERID) -1)))
			EndIf
		EndIf 
	ElseIf GetUserDirection(#USERID) = #DIR_DOWN
		If GetUserDirection(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID), GetUserY(#USERID) +1)) = #DIR_DOWN
			If GetUserMana(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID), GetUserY(#USERID) +1)) > GetUserMana(#USERID)
				SetUserMana(#USERID, GetUserMaxMana(#USERID))
			ElseIf GetUserMana(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID), GetUserY(#USERID) +1)) < GetUserMana(#USERID)
				SetUserMana(#USERID, GetUserMana(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID), GetUserY(#USERID) +1)))
			EndIf
		EndIf 
	ElseIf GetUserDirection(#USERID) = #DIR_LEFT
		If GetUserDirection(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID) -1, GetUserY(#USERID))) = #DIR_LEFT
			If GetUserMana(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID) -1, GetUserY(#USERID))) > GetUserMana(#USERID)
				SetUserMana(#USERID, GetUserMaxMana(#USERID))
			ElseIf GetUserMana(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID) -1, GetUserY(#USERID))) < GetUserMana(#USERID)
				SetUserMana(#USERID, GetUserMana(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID) -1, GetUserY(#USERID))))
			EndIf
		EndIf 
	elseIf GetUserDirection(#USERID) = #DIR_RIGHT
		If GetUserDirection(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID) +1, GetUserY(#USERID))) = #DIR_RIGHT
			If GetUserMana(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID), GetUserY(#USERID) +1)) > GetUserMana(#USERID)
				SetUserMana(#USERID, GetUserMaxMana(#USERID))
			ElseIf GetUserMana(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID), GetUserY(#USERID) +1)) < GetUserMana(#USERID)
				SetUserMana(#USERID, GetUserMana(GetUserAtXY(GetUserMap(#USERID), GetUserX(#USERID), GetUserY(#USERID) +1)))
			EndIf
		EndIf 
	Endif
Endif

Label END
Continue = 1