;Blood Transfusion Skill

If GetUserWisdom(#USERID)>=2
	If GetUserMana(#USERID)>=1
		HPAmount=GetUserMana(#USERID)
		SetUserMana(#USERID,0)
		SetUserHP(#USERID,GetUserHP(#USERID)+hpamount)
	
		If GetUserHP(#USERID)>GetUserMaxHP(#USERID)		
			SetUserHP(#USERID,GetUserMaxHP(#USERID))
		Endif

		SendMessageToMap(GetUserMap(#USERID),GetUserName(#USERID)+" regenerates "+HPAmount+" hitpoints!",#MSG_EMOTE)

		CreateEffect(2,750,650,GetUserDirection(#USERID),GetUserMap(#USERID),GetUserX(#USERID),GetUserY(#USERID),0,0,0)
		CreateEffect(0,750,0,GetUserDirection(#USERID),GetUserMap(#USERID),GetUserX(#USERID),GetUserY(#USERID),0,0,0)
	Else
		SendMessageToUser(#USERID,"You are out of blood!",#MSG_CRITICAL)
	Endif
Else
	SendMessageToUser(#USERID,"You need at least 2 wisdom to use this skill.",#MSG_CRITICAL)
Endif

Continue = 0
