Scriptname SuH_comES_sperm extends activemagiceffect  

SuH_Fun property _Fun auto

GlobalVariable property SuH_PCSdpoint auto
GlobalVariable property SuH_PCSstacksperm auto
GlobalVariable property SuH_rank_lusciousliquids auto
GlobalVariable property SuH_rank_lusciousliquids2 auto
GlobalVariable property SuH_rank_valuestacker auto

;ent/ Actors
Actor property PlayerRef auto
;end/

Event OnEffectStart(Actor akTarget, Actor akCaster)
	if akTarget == PlayerRef ; If player consumes
		_Fun.XPcalc("PCsperm") ; Grant XP
		_Fun.STATcalc(PlayerRef, aPreset="PCsperm", stat="All") ; Grant Absorption
		SuH_PCSstacksperm.SetValue( Math.Floor(SuH_PCSstacksperm.GetValue() + SuH_rank_valuestacker.GetValue() + 1) )
		akTarget.RestoreActorValue("Health", (1 + (SuH_rank_lusciousliquids.GetValue() * (SuH_PCSdpoint.GetValue() * 0.1))) )
		akTarget.RestoreActorValue("Magicka", (1 + (SuH_rank_lusciousliquids2.GetValue() * (SuH_PCSdpoint.GetValue() * 0.1))) )
		akTarget.RestoreActorValue("Stamina", (1 + (SuH_rank_lusciousliquids2.GetValue() * (SuH_PCSdpoint.GetValue() * 0.1))) )
	endIf
endEvent