;'Scroll of War Cry' item script

;Player strength
Strength = GetUserStrengthBonus(#USERID)

HP = GetUserHP(#USERID)
MaxHP = GetUserMaxHP(#USERID)

CanUse = 1

If GetUserSkill(#USERID,21) > 1
	CanUse = 0
ElseIf GetUserSkill(#USERID,25) < 0
	CanUse = 0
EndIf

If CanUse = 1
	If GetUserSkill(#USERID,21) = 1
		SetUserSkill(#USERID, 21, 2)
	EndIf
	If GetUserSkill(#USERID,21) = 0
		SetUserSkill(#USERID, 21, -1)
	EndIf
	
	TakeItem(#USERID,144)
	
	SetUserHP(#USERID, HP*2)
	SetUserStrengthBonus(#USERID, Strength+10)
	SendMessageToMap(#MAPID,GetUserName(#USERID)+" lets out a fierce roar.",#MSG_CRITICAL)
	Timer(156,60000,#USERID,0,0)
Else
	SendMessageToUser(#USERID,"You can't use this scroll at this time.",#MSG_CRITICAL)
EndIf

Continue = 1