;'War Cry' skill - Timed de-buff

If GetUserSkill(#PARAM1,21) = 1
	GoTo END
EndIf
If GetUserSkill(#PARAM1,21) = 0
	GoTo END
EndIf

;Player strength
Strength = GetUserStrengthBonus(#PARAM1)

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

If MaxHP < HP
	HP = MaxHP
EndIf

SetUserHP(#PARAM1, HP)
If Strength-10 < 0
	SetUserStrengthBonus(#PARAM1, 0)  
Else
	SetUserStrengthBonus(#PARAM1, Strength-10)
Endif

If GetUserSkill(#PARAM1,21) > 1
	SetUserSkill(#PARAM1,21,1)
EndIf
If GetUserSkill(#PARAM1,21) < 0
	SetUserSkill(#PARAM1, 21, 0)
EndIf

Label END

Continue = 1