;'War Cry' skill

;If #USERID <> GetUserID("comrade")
;	SendMessageToUser(#USERID,"<Skill disabled until glitch is fixed>",#MSG_SERVER)
;	GoTo END
;EndIf


;Player strength
Strength = GetUserStrengthBonus(#USERID)

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

If GetUserSkill(#USERID,21) = 1
	SetUserSkill(#USERID, 21, 2)
	
	NewHP = HP*2
	If NewHP > Floor(MaxHP*2)
		NewHP = MaxHP*2
	EndIf
	
	If HP < NewHP
		SetUserHP(#USERID, NewHP)
	EndIf
	
	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 skill so soon after using it before.",#MSG_CRITICAL)
EndIf

Label END

Continue = 1