Scriptname SuH_MCM extends SKI_ConfigBase

;ent/ Quests
Quest Property SuH_Main_ auto
Quest Property SuH_MCM_ auto
;end/
;ent/ Actors
Actor Property PlayerAlias auto
Actor Property PlayerRef Auto
;end/
;ent/ Spells
Spell property SuH_ss_focusshot auto
Spell property SuH_ss_darkpierce auto
Spell property SuH_sp_healthydelights auto
Spell property SuH_sp_shiningdelights auto
Spell property SuH_sp_sugarydelights auto
Spell property SuH_sp_perfectorgasm auto
Spell property SuH_sp_speciallover auto
Spell property SuH_sp_caringlover auto
Spell property SuH_sp_magicallover auto
Spell property SuH_sp_lastinglover auto
Spell property SuH_sp_trainingstate auto
Spell property SuH_sp_hungerstate auto
Spell property SuH_sp_focusedstate auto
Spell property SuH_sp_bracingstate auto
Spell property SuH_spt_trainingstate auto
Spell property SuH_spt_hungerstate auto
Spell property SuH_spt_focusedstate auto
Spell property SuH_spt_bracingstate auto
Spell property SuH_sp_seductivedelights auto
Spell property SuH_sp_succubusprowl auto
Spell property SuH_ss_silentkiss auto
Spell property SuH_ss_sexualenrage auto
Spell property SuH_ss_creatureclaim auto
Spell property SuH_sp_humandesires auto
Spell property SuH_sp_animaldesires auto
Spell property SuH_sst_manashroud auto
Spell property SuH_ss_consumehealth auto
Spell property SuH_ss_consumemagicka auto
Spell property SuH_sp_healthydelights2 auto
Spell property SuH_sp_shiningdelights2 auto
Spell property SuH_sp_sugarydelights2 auto
Spell property SuH_ss_manabreak auto
Spell property SuH_sp_healthymilk auto
Spell property SuH_sp_shiningmilk auto
Spell property SuH_sp_sugarymilk auto
Spell property SuH_sp_healthymilk2 auto
Spell property SuH_sp_shiningmilk2 auto
Spell property SuH_sp_sugarymilk2 auto
Spell property SuH_sp_seductivemilk auto
Spell property SuH_ss_blooddrop auto
Spell property SuH_ss_manadrop auto
Spell property SuH_ss_powerdrop auto
Spell property SuH_sp_masochist auto
Spell property SuH_sp_spermlover auto
Spell property SuH_sp_milklover auto
Spell property SuH_sp_milkdrinker auto
Spell property SuH_sp_savingessence auto
Spell property SuH_sp_selfstacker auto
Spell property SuH_ss_poisonpoint auto
Spell property SuH_ss_vitalcure auto
Spell Property SuH_ss_dirtytouch auto
;end/
;ent/ Magic Effects
MagicEffect property SuH_sp_healthydelightseffect auto
MagicEffect property SuH_sp_shiningdelightseffect auto
MagicEffect property SuH_sp_sugarydelightseffect auto
MagicEffect property SuH_sp_perfectorgasmeffect auto
MagicEffect property SuH_sp_speciallovereffect auto
MagicEffect property SuH_sp_caringlovereffect auto
MagicEffect property SuH_sp_magicallovereffect auto
MagicEffect property SuH_sp_lastinglovereffect auto
MagicEffect property SuH_sp_seductivedelightseffect auto
MagicEffect property SuH_sp_succubusprowleffect auto
MagicEffect property SuH_sp_humandesireseffect auto
MagicEffect property SuH_sp_animaldesireseffect auto
MagicEffect property SuH_sp_healthydelights2effect auto
MagicEffect property SuH_sp_shiningdelights2effect auto
MagicEffect property SuH_sp_sugarydelights2effect auto
MagicEffect property SuH_sp_healthymilkeffect auto
MagicEffect property SuH_sp_shiningmilkeffect auto
MagicEffect property SuH_sp_sugarymilkeffect auto
MagicEffect property SuH_sp_healthymilk2effect auto
MagicEffect property SuH_sp_shiningmilk2effect auto
MagicEffect property SuH_sp_sugarymilk2effect auto
MagicEffect property SuH_sp_seductivemilkeffect auto
MagicEffect property SuH_sp_masochisteffect auto
MagicEffect property SuH_sp_milkdrinkereffect auto
MagicEffect property SuH_sp_savingessenceeffect auto
;end/
;ent/ Global Var
GlobalVariable Property SuH_MODversion auto
GlobalVariable Property SuH_PCSheartXP auto
GlobalVariable Property SuH_PCSheartXPgain auto
GlobalVariable Property SuH_PCShpabsorb auto
GlobalVariable Property SuH_PCSmpabsorb auto
GlobalVariable Property SuH_PCSspabsorb auto
GlobalVariable Property SuH_PCSspermhvalue auto
GlobalVariable Property SuH_PCSspermmvalue auto
GlobalVariable Property SuH_PCSspermsvalue auto
GlobalVariable Property SuH_PCSseductionpoints auto
GlobalVariable Property SuH_PCShearttier auto
GlobalVariable Property SuH_PCSmilkhvalue auto
GlobalVariable Property SuH_PCSmilkmvalue auto
GlobalVariable Property SuH_PCSmilksvalue auto
GlobalVariable Property SuH_PCSgenders auto
GlobalVariable Property SuH_SETallowseduce auto
GlobalVariable Property SuH_SETsexdrops auto
GlobalVariable Property SuH_SETalwaysgive auto
GlobalVariable Property SuH_SETdrainkill auto
GlobalVariable Property SuH_SETallowdynamic auto
GlobalVariable Property SuH_SETcombatseduction auto
GlobalVariable Property SuH_SETcsMaleHomo auto
GlobalVariable Property SuH_SETcsFemaleHomo auto
GlobalVariable Property SuH_SETcsMaleAttack auto
GlobalVariable Property SuH_SETcsFemaleAttack auto
GlobalVariable Property SuH_SETcsPlayerAttack auto
GlobalVariable Property SuH_SETcsCreatureAttack auto
GlobalVariable Property SuH_SETcsCreatureWMale auto
GlobalVariable Property SuH_SETcsCreatureWFemale auto
GlobalVariable Property SuH_SETcsPlayerSubmit auto
GlobalVariable Property SuH_SETcsNPChmax auto
GlobalVariable Property SuH_SETcsNPChmin auto
GlobalVariable Property SuH_SETcsPCShmax auto
GlobalVariable Property SuH_SETcsPCShmin auto
GlobalVariable Property SuH_SETcsPCSNhmax auto
GlobalVariable Property SuH_SETcsPCSNhmin auto
GlobalVariable Property SuH_skill_earned auto
GlobalVariable Property SuH_skill_essence auto
GlobalVariable Property SuH_skill_points auto
GlobalVariable Property SuH_PCScapup auto
GlobalVariable Property SuH_SETactnoregen auto
GlobalVariable Property SuH_SETinvact auto
GlobalVariable Property SuH_SEThcap auto
GlobalVariable Property SuH_SETmcap auto
GlobalVariable Property SuH_SETscap auto
GlobalVariable Property SuH_PCSmilkstacks auto
GlobalVariable Property SuH_PCSmaxmilkstacks auto
GlobalVariable Property SuH_PCSspermstacks auto
GlobalVariable Property SuH_PCSmaxspermstacks auto
GlobalVariable Property SuH_PCSactstacks auto
GlobalVariable Property SuH_PCSmaxactstacks auto
GlobalVariable Property SuH_Lsuccubusprowl auto
GlobalVariable Property SuH_Lspermlover auto
GlobalVariable Property SuH_Lmilklover auto
GlobalVariable Property SuH_Lperfectorgasm auto
GlobalVariable Property SuH_Lspeciallover auto
GlobalVariable Property SuH_Lcaringlover auto
GlobalVariable Property SuH_Lmagicallover auto
GlobalVariable Property SuH_Llastinglover auto
GlobalVariable Property SuH_Lhumandesires auto
GlobalVariable Property SuH_Lanimaldesires auto
GlobalVariable Property SuH_Lmasochist auto
GlobalVariable Property SuH_Lmilkdrinker auto
GlobalVariable Property SuH_SETconsentdrain auto
GlobalVariable Property SuH_Lsavingessence auto
GlobalVariable Property SuH_Lselfstacker auto
GlobalVariable Property SuH_PCSinactive auto
;end/
;ent/ Pages
; Status
; Skill Levels
; Heart Levels
; Spells and Passives
; Help
;end/
;ent/ Menu ID
	;ent/ Status
		int status_statcap
		int status_pH
		int status_pM
		int status_pS
		int status_XP
		int status_XPgain
		int status_pHa
		int status_pMa
		int status_pSa
		int status_sHa
		int status_sMa
		int status_sSa
		int spermfeffectID
		int status_pSP
		int status_mHa
		int status_mMa
		int status_mSa
		int status_SETgenders
		int status_SETallowseduce
		int status_SETsexdrops
		int status_SETdrainkill
		int status_setcombatseduction
		int status_setmalehomo
		int status_setfemalehomo
		int status_setmaleattack
		int status_setfemaleattack
		int status_setplayerattack
		int status_setcreatureattack
		int status_setcreaturewmale
		int status_setcreaturewfemale
		int status_setplayersubmit
		int status_setNPChmax
		int csNPChminID
		int status_setPCShmax
		int csPCShminID
		int status_setPCSNhmax
		int csPCSNhminID
		int status_setactnoregen
		int status_setinvact
		int status_SEThcap
		int status_SETmcap
		int status_SETscap
		int status_milkstacks
		int status_spermstacks
		int status_actstacks
		int status_SETconsentdrain
		int status_itimer
	;end/
	;ent/ Skill Levels
		int skill_pE
		int skill_SP
		int skill_XP
		int skill_meter
		int skill_alchemy
		int skill_alteration
		int skill_block
		int skill_conjuration
		int skill_destruction
		int skill_enchanting
		int skill_heavyarmor
		int skill_illusion
		int skill_lightarmor
		int skill_lockpicking
		int skill_marksman
		int skill_onehanded
		int skill_pickpocket
		int skill_restoration
		int skill_smithing
		int skill_sneak
		int skill_speechcraft
		int skill_twohanded
	;end/
	;ent/ Heart Levels
		int heart_XP
		int heart_pHaUP
		int heart_pMaUP
		int heart_pSaUP
		int heart_XPgainUP
		int heart_sHaUP
		int heart_sMaUP
		int heart_sSaUP
		int heart_XPgain
		int heart_pHa
		int heart_pMa
		int heart_pSa
		int heart_sHa
		int heart_sMa
		int heart_sSa
		int heart_mHa
		int heart_mMa
		int heart_mSa
		int heart_mHaUP
		int heart_mMaUP
		int heart_mSaUP
		int heart_statcapUP
		int heart_statcap
		int heart_mastacks
		int heart_mastacksUP
		int heart_msstacks
		int heart_msstacksUP
		int heart_mmstacks
		int heart_mmstacksUP
	;end/
	;ent/ Spells and Passives
		int spell_focusshot
		int spell_darkpierce
		int spell_perfectorgasm
		int spell_speciallover
		int spell_caringlover
		int spell_magicallover
		int spell_lastinglover
		int spell_trainingstate
		int spell_hungerstate
		int spell_focusedstate
		int spell_bracingstate
		int spell_XP
		int stHeartTier2ID
		int spell_succubusprowl
		int spell_silentkiss
		int spell_sexualenrage
		int spell_creatureclaim
		int spell_humandesires
		int spell_animaldesires
		int spell_manashroud
		int spell_consumehealth
		int spell_consumemagicka
		int spell_manabreak
		int spell_healthymilk
		int spell_shiningmilk
		int spell_sugarymilk
		int spell_blooddrop
		int spell_manadrop
		int spell_powerdrop
		int spell_masochist
		int spell_spermlover
		int spell_milklover
		int spell_milkdrinker
		int spell_savingessence
		int spell_selfstacker
		int spell_poisonpoint
		int spell_vitalcure
		int spell_dirtytouch
	;end/
	;ent/ Help
		int creditsID
		int credits2ID
		int hb1
		int hb2
		int hb3
		int hb4
		int he1
		int he2
		int he3
		int he4
		int he5
		int he6
		int he7
		int he8
		int he9
		int he10
		int he11
		int he12
		int he13
		int he14
		int he15
		int he16
		int he17
		int he18
	;end/
;end/
;ent/ Variables
	int alchemylvl
	int alchemycost
	int alterationlvl
	int alterationcost
	int blocklvl
	int blockcost
	int conjurationlvl
	int conjurationcost
	int destructionlvl
	int destructioncost
	int enchantinglvl
	int enchantingcost
	int heavyarmorlvl
	int heavyarmorcost
	int illusionlvl
	int illusioncost
	int lightarmorlvl
	int lightarmorcost
	int lockpickinglvl
	int lockpickingcost
	int marksmanlvl
	int marksmancost
	int onehandedlvl
	int onehandedcost
	int pickpocketlvl
	int pickpocketcost
	int restorationlvl
	int restorationcost
	int smithinglvl
	int smithingcost
	int sneaklvl
	int sneakcost
	int speechcraftlvl
	int speechcraftcost
	int twohandedlvl
	int twohandedcost
	
	int emptyint
	int x
	int y
	int z
	int i
	int k
	int pH
	int pM
	int pS
	int XP
	int XPgain
	int XPgainlvl
	int XPgaincost
	int pSP
	int plvl
	int statCapUp
	int statCapUplvl
	int statCapUpcost
	int statCap
	int pHa
	int pMa
	int pSa
	int sHa
	int sMa
	int sSa
	int mHa
	int mMa
	int mSa
	int pE
	int SP
	int SPearned
	int SPcost
	int tonextSP
	int pHacost
	int pMacost
	int pSacost
	int sHacost
	int sMacost
	int sSacost
	int mHacost
	int mMacost
	int mSacost
	int pHeartTier
	int mStack
	int mmStack
	int sStack
	int msStack
	int aStack
	int maStack
	int mmStackcost
	int msStackcost
	int maStackcost
	int itimer
	int aminutes
	int ahours
	int aseconds
	
	int wEssence
	int wEarned
	int wCost
	
	int lvlupMatch
	float lvlAdjust
	int lvlHX
	
	int SETgenders
	int SETallowseduce
	int SETsexdrops
	int SETdrainkill
	int SETcombatseduction
	int SETconsentdrain
	
	int SETcsNPChmaxP
	int SETcsPCShmaxP
	int SETcsPCSNhmaxP
	
	float SETcsNPChmax
	float SETcsPCShmax
	float SETcsPCSNhmax
	
	string Lsetgenders
	string Lsetallowseduce
	string Lsetsexdrops
	string Lsetdrainkill
	string Lsetcombatseduction
	string Lsetplayersubmit
	string Lsetplayerattack
	string Lsetfemaleattack
	string Lsetmaleattack
	string Lsetcreatureattack
	string Lsetmalehomo
	string Lsetfemalehomo
	string Lsetcreaturewmale
	string Lsetcreaturewfemale
	string Lsetactnoregen
	string Lsetinvact
	string Lsetconsentdrain
	
	string LfocusShot
	string LpierceShot
	string LsilentKiss
	string LsexualEnrage
	string LcreatureClaim
	string LmanaShroud
	string LconsumeHealth
	string LconsumeMagicka
	string LmanaBreak
	string LbloodDrop
	string LmanaDrop
	string LpowerDrop
	string LsuccubusProwl
	string LhealthyDelights
	string LshiningDelights
	string LsugaryDelights
	string LperfectOrgasm
	string LspecialLover
	string LcaringLover
	string LmagicalLover
	string LlastingLover
	string LheartTier2
	string LhumanDesires
	string LanimalDesires
	string LtrainingState
	string LhungerState
	string LfocusedState
	string LbracingState
	string Lmasochist
	string Lspermlover
	string Lmilklover
	string Lmilkdrinker
	string Lsavingessence
	string Lselfstacker
	string Lpoisonpoint
	string Lvitalcure
	string Ldirtytouch
;end/
;ent/ OnInit
event OnConfigInit()
	Pages = new string[5]
    Pages[0] = "Status"
    Pages[1] = "Skill Levels"
	Pages[2] = "Heart Levels"
	Pages[3] = "Spells and Passives"
	Pages[4] = "Help"
endEvent
;end/
;ent/ Version Update
	;OnVersionUpdate doesn't fucking work, thanks for wasting my time SDK!
;end/

;ent/ OnPageReset
Event OnPageReset(string page)

	;ent/ Initial Page ("")
	if (page == "")
        ;LoadCustomContent("skyui/skyui_splash.swf")
        return
    else
		UnloadCustomContent()
	endIf
	;end/
	;ent/ Status Page
	If (page == "Status")
		SetCursorFillMode(TOP_TO_Bottom)
		;ent/ Left Side
			SetCursorPosition(0)
			;ent/ Status
			AddHeaderOption("Status")
				pH = playerRef.GetBaseActorValue("Health") as int
				pM = playerRef.GetBaseActorValue("Magicka") as int
				pS = playerRef.GetBaseActorValue("Stamina") as int
				XP = SuH_PCSheartXP.GetValue() as int
				XPgain = SuH_PCSheartXPgain.GetValue() as int
				pSP = SuH_PCSseductionpoints.GetValue() as int
				plvl = playerRef.GetLevel()
				statCapUp = SuH_PCScapup.GetValue() as int
				statCap = Math.Floor(100+(5*plvl)+(statCapUp))
			status_statcap = AddTextOption("Status Cap", statCap)
			status_pH = AddTextOption("Health ", pH)
			status_pM = AddTextOption("Magicka ", pM)
			status_pS = AddTextOption("Stamina ", pS)
			status_XP = AddTextOption("XP ", XP)
			status_XPgain = AddTextOption("XP Gain", XPgain+"%")
			status_pSP = AddTextOption("Seduction Points",pSP)
			AddEmptyOption()
			;end/
			;ent/ Character Options
			AddHeaderOption("Character Options")
				;ent/ Value Get
				SETgenders = SuH_PCSgenders.GetValue() as int
				if SETgenders == 1
					Lsetgenders = "Female"
				elseIf SETgenders == 2
					Lsetgenders = "Male"
				elseIf SETgenders == 12
					Lsetgenders = "Trans-Gender"
				endIf
				
				SETallowseduce = SuH_SETallowseduce.GetValue() as int
				if SETallowseduce == 0
					Lsetallowseduce = "Both Genders"
				elseIf SETallowseduce == 1
					Lsetallowseduce = "Male Only"
				else
					Lsetallowseduce = "Female Only"
				endIf
				
				SETsexdrops = SuH_SETsexdrops.GetValue() as int
				if SETsexdrops == 0
					Lsetsexdrops = "Allow All"
				elseIf SETsexdrops == 1
					Lsetsexdrops = "Sperm Only"
				else
					Lsetsexdrops = "Milk Only"
				endIf
				
				SETdrainkill = SuH_SETdrainkill.GetValue() as int
				if SETdrainkill == 0
					Lsetdrainkill = "Disabled"
				elseIf SETdrainkill == 1
					Lsetdrainkill = "Enabled"
				else
					Lsetdrainkill = "Player Only"
				endIf
				
				SETconsentdrain = SuH_SETconsentdrain.GetValue() as int
				if SETconsentdrain == 0
					Lsetconsentdrain == "Disabled"
				else
					Lsetconsentdrain == "Enabled"
				endIf
				
				int SEThcap = SuH_SEThcap.GetValue() as int
				int SETmcap = SuH_SETmcap.GetValue() as int
				int SETscap = SuH_SETscap.GetValue() as int
				;end/
			status_SETgenders = AddTextOption("Character Gender", Lsetgenders)
			status_SETsexdrops = AddTextOption("Sex Drops", Lsetsexdrops)
			status_SETallowseduce = AddTextOption("Seduces ", Lsetallowseduce)
			status_SETdrainkill = AddTextOption("Drain Kill", Lsetdrainkill)
			status_SETconsentdrain = AddTextOption("Drain Consensual",Lsetconsentdrain)
			status_SEThcap = AddSliderOption("Health Cap Override", SEThcap, "{0}")
			status_SETmcap = AddSliderOption("Magicka Cap Override", SETmcap, "{0}")
			status_SETscap = AddSliderOption("Stamina Cap Override", SETscap, "{0}")
			AddEmptyOption()
			;end/
			;ent/ General Settings
			AddHeaderOption("General Settings")
				;ent/ Value Get
				If SuH_SETcsMaleHomo.GetValue()
					Lsetmalehomo = "Enabled"
				else
					Lsetmalehomo = "Disabled"
				endIf
				
				If SuH_SETcsFemaleHomo.GetValue()
					Lsetfemalehomo = "Enabled"
				else
					Lsetfemalehomo = "Disabled"
				endIf
				
				If SuH_SETcsCreatureWMale.GetValue()
					Lsetcreaturewmale = "Enabled"
				else
					Lsetcreaturewmale = "Disabled"
				endIf
				
				If SuH_SETcsCreatureWFemale.GetValue()
					Lsetcreaturewfemale = "Enabled"
				else
					Lsetcreaturewfemale = "Disabled"
				endIf
				
				if SuH_SETactnoregen.GetValue()
					Lsetactnoregen = "Enabled"
				else
					Lsetactnoregen = "Disabled"
				endIf
				
				if SuH_SETinvact.GetValue()
					Lsetinvact = "Enabled"
				else
					Lsetinvact = "Disabled"
				endIf
				;end/
			status_setmalehomo = AddTextOption("Male Homosexuals", Lsetmalehomo)
			status_setfemalehomo = AddTextOption("Female Homosexuals", Lsetfemalehomo)
			status_setcreaturewmale = AddTextOption("Creatures with Males", Lsetcreaturewmale)
			status_setcreaturewfemale = AddTextOption("Creatures with Females", Lsetcreaturewfemale)
			status_setactnoregen = AddTextOption("Disable Regen in Act", Lsetactnoregen)
			status_setinvact = AddTextOption("Can't Die in Act", Lsetinvact)
			AddEmptyOption()
			;end/
			;ent/ Combat Seduction
			AddHeaderOption("Combat Seduction")
				;ent/ Value Get
				SETcombatseduction = SuH_SETcombatseduction.GetValue() as int
				If SETcombatseduction == 0
					Lsetcombatseduction = "Disabled"
				else
					Lsetcombatseduction = "Enabled"
				endIf
				
				if SETcombatseduction == 1
					If SuH_SETcsPlayerSubmit.GetValue()
						Lsetplayersubmit = "Enabled"
					else
						Lsetplayersubmit = "Disabled"
					endIf
					
					If SuH_SETcsPlayerAttack.GetValue()
						Lsetplayerattack = "Enabled"
					else
						Lsetplayerattack = "Disabled"
					endIf
				
					If SuH_SETcsFemaleAttack.GetValue()
						Lsetfemaleattack = "Enabled"
					else
						Lsetfemaleattack = "Disabled"
					endIf
				
					If SuH_SETcsMaleAttack.GetValue()
						Lsetmaleattack = "Enabled"
					else
						Lsetmaleattack = "Disabled"
					endIf
						
					If SuH_SETcsCreatureAttack.GetValue()
						Lsetcreatureattack = "Enabled"
					else
						Lsetcreatureattack = "Disabled"
					endIf

					SETcsNPChmax = SuH_SETcsNPChmax.GetValue()
					SETcsNPChmaxP = Math.Floor((SuH_SETcsNPChmax.GetValue())*100)
					SETcsPCShmax = SuH_SETcsNPChmax.GetValue()
					SETcsPCShmaxP = Math.Floor((SuH_SETcsPCShmax.GetValue())*100)
					SETcsPCSNhmax = SuH_SETcsNPChmax.GetValue()
					SETcsPCSNhmaxP = Math.Floor((SuH_SETcsPCSNhmax.GetValue())*100)
				endIf
				;end/
			status_setcombatseduction = AddTextOption("Combat Seduction", Lsetcombatseduction)
			if SETcombatseduction == 1
				status_setNPChmax = AddSliderOption("NPCs submit below", SETcsNPChmaxP, "{0}% Health")
				status_setPCShmax = AddSliderOption("PC submits below", SETcsPCShmaxP, "{0}% Health")
				status_setPCSNhmax = AddSliderOption("NPCs submit to PC below", SETcsPCSNhmaxP, "{0}% Health")
				status_setplayersubmit = AddTextOption("Player Submit", Lsetplayersubmit)
				status_setplayerattack = AddTextOption("Player Attack", Lsetplayerattack)
				status_setmaleattack = AddTextOption("Males Attack", Lsetmaleattack)
				status_setfemaleattack = AddTextOption("Females Attack", Lsetfemaleattack)
				status_setcreatureattack = AddTextOption("Creatures Attack", Lsetcreatureattack)
			endIf
			;end/
		;end/
		;ent/ Right Side
			SetCursorPosition(1)
			;ent/ Inactive Timer
				itimer = SuH_PCSinactive.GetValue() as int
				aminutes = Math.Floor(itimer / 12)
				aseconds = ((itimer-(aminutes*12))*5)
			if aminutes < 60
				status_itimer = AddTextOption("Inactive for ", aminutes+"m "+aseconds+"s ")
			else
				ahours = Math.Floor(aminutes / 60)
				int Xaminutes = (aminutes-(ahours*720))
				status_itimer = AddTextOption("Inactive for ", ahours+"h "+Xaminutes+"m "+aseconds+"s ")
			endIf
			
			AddEmptyOption()
			;ent/ Stacks Information
			AddHeaderOption("Stacks Information")
				mStack = SuH_PCSmilkstacks.GetValue() as int
				mmStack = SuH_PCSmaxmilkstacks.GetValue() as int
				sStack = SuH_PCSspermstacks.GetValue() as int
				msStack = SuH_PCSmaxspermstacks.GetValue() as int
				aStack = SuH_PCSactstacks.GetValue() as int
				maStack = SuH_PCSmaxactstacks.GetValue() as int
			status_actstacks = AddTextOption("Sex Stacks", aStack+"/"+maStack)
			status_spermstacks = AddTextOption("Sperm Stacks", sStack+"/"+msStack)
			status_milkstacks = AddTextOption("Milk Stacks", mStack+"/"+mmStack)
			AddEmptyOption()
			;end/ 
			;ent/ Absorb Effects
			AddHeaderOption("Absorb Effects")
				pHa = SuH_PCShpabsorb.GetValue() as int
				pMa = SuH_PCSmpabsorb.GetValue() as int
				pSa = SuH_PCSspabsorb.GetValue() as int
			status_pHa = AddTextOption("Health Absorb",pHa)
			status_pMa = AddTextOption("Magicka Absorb",pMa)
			status_pSa = AddTextOption("Stamina Absorb",pSa)
			AddEmptyOption()
			;end/
			;ent/ Sperm Effects
			AddHeaderOption("Sperm Effects")
				sHa = SuH_PCSspermhvalue.GetValue() as int
				sMa = SuH_PCSspermmvalue.GetValue() as int
				sSa = SuH_PCSspermsvalue.GetValue() as int
			status_sHa = AddTextOption("Health Bonus",sHa)
			status_sMa = AddTextOption("Magicka Bonus",sMa)
			status_sSa = AddTextOption("Stamina Bonus",sSa)
			AddEmptyOption()
			;end/
			;ent/ Milk Effects
			AddHeaderOption("Milk Effects")
				mHa = SuH_PCSmilkhvalue.GetValue() as int
				mMa = SuH_PCSmilkmvalue.GetValue() as int
				mSa = SuH_PCSmilksvalue.GetValue() as int
			status_mHa = AddTextOption("Health Bonus",mHa)
			status_mMa = AddTextOption("Magicka Bonus",mMa)
			status_mSa = AddTextOption("Stamina Bonus",mSa)
			AddEmptyOption()
			;end/
		;end/
	;end/
	;end/ 
	;ent/ Skill Levels
	elseIf (page == "Skill Levels")
	
		;ent/ public var
		XP = SuH_PCSheartXP.GetValue() as int
		
		alchemylvl = playerRef.GetActorValue("alchemy") as int
		alchemycost = Math.Ceiling(alchemylvl*0.1)
		alterationlvl = playerRef.GetActorValue("alteration") as int
		alterationcost = Math.Ceiling(alterationlvl*0.1)
		blocklvl = playerRef.GetActorValue("block") as int
		blockcost = Math.Ceiling(blocklvl*0.1)
		conjurationlvl = playerRef.GetActorValue("conjuration") as int
		conjurationcost = Math.Ceiling(conjurationlvl*0.1)
		destructionlvl = playerRef.GetActorValue("destruction") as int
		destructioncost = Math.Ceiling(destructionlvl*0.1)
		enchantinglvl = playerRef.GetActorValue("enchanting") as int
		enchantingcost = Math.Ceiling(enchantinglvl*0.1)
		heavyarmorlvl = playerRef.GetActorValue("heavyarmor") as int
		heavyarmorcost = Math.Ceiling(heavyarmorlvl*0.1)
		illusionlvl = playerRef.GetActorValue("illusion") as int
		illusioncost = Math.Ceiling(illusionlvl*0.1)
		lightarmorlvl = playerRef.GetActorValue("lightarmor") as int
		lightarmorcost = Math.Ceiling(lightarmorlvl*0.1)
		lockpickinglvl = playerRef.GetActorValue("lockpicking") as int
		lockpickingcost = Math.Ceiling(lockpickinglvl*0.1)
		marksmanlvl = playerRef.GetActorValue("marksman") as int
		marksmancost = Math.Ceiling(marksmanlvl*0.1)
		onehandedlvl = playerRef.GetActorValue("onehanded") as int
		onehandedcost = Math.Ceiling(onehandedlvl*0.1)
		pickpocketlvl = playerRef.GetActorValue("pickpocket") as int
		pickpocketcost = Math.Ceiling(pickpocketlvl*0.1)
		restorationlvl = playerRef.GetActorValue("restoration") as int
		restorationcost = Math.Ceiling(restorationlvl*0.1)
		smithinglvl = playerRef.GetActorValue("smithing") as int
		smithingcost = Math.Ceiling(smithinglvl*0.1)
		sneaklvl = playerRef.GetActorValue("sneak") as int
		sneakcost = Math.Ceiling(sneaklvl*0.1)
		speechcraftlvl = playerRef.GetActorValue("speechcraft") as int
		speechcraftcost = Math.Ceiling(speechcraftlvl*0.1)
		twohandedlvl = playerRef.GetActorValue("twohanded") as int
		twohandedcost = Math.Ceiling(twohandedlvl*0.1)
		;end/
		;ent/ Calculate SP
		pE = SuH_skill_essence.GetValue() as int
		SP = SuH_skill_points.GetValue() as int
		SPearned = SuH_skill_earned.GetValue() as int
		SPcost = Math.Floor(12*(SPearned*1.2)+20)
		if pE >= SPcost
			wEssence = 0
			wEarned = 0
			wCost
			x = 0
			y = 0
			z = 0
			i = 0
			while i != 1
				x = pE-wEssence
				y = SPearned+wEarned
				wCost = Math.Floor(12*(y*1.2)+20)
				if x >= wCost
					wEssence += wCost
					wEarned += 1
				else
					z = SP+wEarned
					SuH_skill_essence.SetValue(x)
					SuH_skill_earned.SetValue(y)
					SuH_skill_points.SetValue(z)
					debug.MessageBox("You earned "+wEarned+" SP!")
					i = 1
				endIf
			endWhile
			pE = SuH_skill_essence.GetValue() as int
			SP = SuH_skill_points.GetValue() as int
			SPearned = SuH_skill_earned.GetValue() as int
			SPcost = Math.Floor(12*(SPearned*1.2)+20)
		endIf
		tonextSP = SPcost-pE
		emptyint = 0
		;end/
		
		SetCursorFillMode(TOP_TO_BOTTOM)
		
		;ent/ Left Side
		
			SetCursorPosition(0)
			
			;ent/ Status
			skill_SP = AddTextOption("SP", SP)
			skill_pE = AddTextOption("To next...", tonextSP)
			AddEmptyOption()
			;end/
			;ent/ Skills
			AddHeaderOption("Level Skills")
			skill_alchemy = AddTextOption("Alchemy "+alchemylvl, alchemycost+" SP")
			skill_block = AddTextOption("Block "+blocklvl, blockcost+" SP")
			skill_destruction = AddTextOption("Destruction "+destructionlvl, destructioncost+" SP")
			skill_heavyarmor = AddTextOption("Heavy Armor "+heavyarmorlvl, heavyarmorcost+" SP")
			skill_lightarmor = AddTextOption("Light Armor "+lightarmorlvl, lightarmorcost+" SP")
			skill_marksman = AddTextOption("Marksman "+marksmanlvl, marksmancost+" SP")
			skill_pickpocket = AddTextOption("Pickpocket "+pickpocketlvl, pickpocketcost+" SP")
			skill_smithing = AddTextOption("Smithing "+smithinglvl, smithingcost+" SP")
			skill_speechcraft = AddTextOption("Speechcraft "+speechcraftlvl, speechcraftcost+" SP")
			;end/
		;end/
		;ent/ Right Side
			
			SetCursorPosition(1)
			
			;ent/ Status
			skill_XP = AddTextOption("XP ", XP)
			skill_meter = AddSliderOption("XP to SP (10 to 1)",emptyint,"{0}")
			AddEmptyOption()
			;end/
			;ent/ Skills
			AddEmptyOption()
			skill_alteration = AddTextOption("Alteration "+alterationlvl, alterationcost+" SP")
			skill_conjuration = AddTextOption("Conjuration "+conjurationlvl, conjurationcost+" SP")
			skill_enchanting = AddTextOption("Enchanting "+enchantinglvl, enchantingcost+" SP")
			skill_illusion = AddTextOption("Illusion "+illusionlvl, illusioncost+" SP")
			skill_lockpicking = AddTextOption("Lockpicking "+lockpickinglvl, lockpickingcost+" SP")
			skill_onehanded = AddTextOption("One-Handed "+onehandedlvl, onehandedcost+" SP")
			skill_restoration = AddTextOption("Restoration "+restorationlvl, restorationcost+" SP")
			skill_sneak = AddTextOption("Sneak "+sneaklvl, sneakcost+" SP")
			skill_twohanded = AddTextOption("Two-Handed "+twohandedlvl, twohandedcost+" SP")
			;end/
		;end/
	;end/
	;ent/ Heart Levels
	elseIf (page == "Heart Levels")
	
		SetCursorFillMode(TOP_TO_BOTTOM)
		
		;ent/ public var
		lvlupMatch = 5
		lvlAdjust = 1.8
		lvlHX = 22
		
		XP = SuH_PCSheartXP.GetValue() as int
		pHa = SuH_PCShpabsorb.GetValue() as int
		pHacost = Math.Floor(lvlupMatch*lvlHX*(pHa*lvlAdjust))
		pMa = SuH_PCSmpabsorb.GetValue() as int
		pMacost = Math.Floor(lvlupMatch*lvlHX*(pMa*lvlAdjust))
		pSa = SuH_PCSspabsorb.GetValue() as int
		pSacost = Math.Floor(lvlupMatch*lvlHX*(pSa*lvlAdjust))
		XPgainlvl = Math.Floor(SuH_PCSheartXPgain.GetValue() - 99)
		XPgaincost = Math.Floor(lvlupMatch*lvlHX*(XPgainlvl*lvlAdjust))
		sHa = SuH_PCSspermhvalue.GetValue() as int
		sHacost = Math.Floor(lvlupMatch*lvlHX*(sHa*lvlAdjust))
		sMa = SuH_PCSspermmvalue.GetValue() as int
		sMacost = Math.Floor(lvlupMatch*lvlHX*(sMa*lvlAdjust))
		sSa = SuH_PCSspermsvalue.GetValue() as int
		sSacost = Math.Floor(lvlupMatch*lvlHX*(sSa*lvlAdjust))
		mHa = SuH_PCSmilkhvalue.GetValue() as int
		mHacost = Math.Floor(lvlupMatch*lvlHX*(mHa*lvlAdjust))
		mMa = SuH_PCSmilkmvalue.GetValue() as int
		mMacost = Math.Floor(lvlupMatch*lvlHX*(mMa*lvlAdjust))
		mSa = SuH_PCSmilksvalue.GetValue() as int
		mSacost = Math.Floor(lvlupMatch*lvlHX*(mSa*lvlAdjust))
		statCapUp = SuH_PCScapup.GetValue() as int
		statCapUplvl = statCapUp+1
		statCapUpcost = Math.Floor(lvlupMatch*lvlHX*(statCapUplvl*lvlAdjust))
		maStack = SuH_PCSmaxactstacks.GetValue() as int
		msStack = SuH_PCSmaxspermstacks.GetValue() as int
		mmStack = SuH_PCSmaxmilkstacks.GetValue() as int
		maStackcost = Math.Floor(lvlupMatch*lvlHX*(maStack*2*lvlAdjust))
		msStackcost = Math.Floor(lvlupMatch*lvlHX*(msStack*2*lvlAdjust))
		mmStackcost = Math.Floor(lvlupMatch*lvlHX*(mmStack*2*lvlAdjust))
		
		plvl = playerRef.GetLevel()
		statCap = Math.Floor(100+(5*plvl)+(statCapUp))
		
		;end/
		
		;ent/ Left Side
		
			SetCursorPosition(0)
			
			AddHeaderOption("Heart Levels")
			heart_XP = AddTextOption("XP ", XP)
			heart_XPgain = AddTextOption("XP Gain", XPgainlvl+99+"%")
			heart_statcap = AddTextOption("Status Cap", statCap)
			AddEmptyOption()
			heart_pHa = AddTextOption("Health Absorption",pHa)
			heart_pMa = AddTextOption("Magicka Absorption",pMa)
			heart_pSa = AddTextOption("Stamina Absorption",pSa)
			AddEmptyOption()
			heart_sHa = AddTextOption("Sperm Health Bonus",sHa)
			heart_sMa = AddTextOption("Sperm Magicka Bonus",sMa)
			heart_sSa = AddTextOption("Sperm Stamina Bonus",sSa)
			AddEmptyOption()
			heart_mHa = AddTextOption("Milk Health Bonus",mHa)
			heart_mMa = AddTextOption("Milk Magicka Bonus",mMa)
			heart_mSa = AddTextOption("Milk Stamina Bonus",mSa)
			AddEmptyOption()
			heart_mastacks = AddTextOption("Max Sex Stacks", maStack)
			heart_msstacks = AddTextOption("Max Sperm Stacks", msStack)
			heart_mmstacks = AddTextOption("Max Milk Stacks", mmStack)
		;end/
		;ent/ Right Side
		
			SetCursorPosition(1)
			
			AddEmptyOption()
			AddEmptyOption()
			heart_XPgainUP = AddTextOption("+1%", XPgaincost+" XP")
			heart_statcapUP = AddTextOption("+1", statCapUpcost+" XP")
			AddEmptyOption()
			heart_pHaUP = AddTextOption("+1", pHacost+" XP")
			heart_pMaUP = AddTextOption("+1", pMacost+" XP")
			heart_pSaUP = AddTextOption("+1", pSacost+" XP")
			AddEmptyOption()
			heart_sHaUP = AddTextOption("+1", sHacost+" XP")
			heart_sMaUP = AddTextOption("+1", sMacost+" XP")
			heart_sSaUP = AddTextOption("+1", sSacost+" XP")
			AddEmptyOption()
			heart_mHaUP = AddTextOption("+1", mHacost+" XP")
			heart_mMaUP = AddTextOption("+1", mMacost+" XP")
			heart_mSaUP = AddTextOption("+1", mSacost+" XP")
			AddEmptyOption()
			heart_mastacksUp = AddTextOption("+1", maStackcost+"XP")
			heart_msstacksUp = AddTextOption("+1", msStackcost+"XP")
			heart_mmstacksUp = AddTextOption("+1", mmStackcost+"XP")
		;end/
	;end/
	;ent/ Spells and Passives
	elseIf (page == "Spells and Passives")
	
		XP = SuH_PCSheartXP.GetValue() as int
		pHeartTier = SuH_PCShearttier.GetValue() as int
	
		;ent/ Cost Strings
			;ent/ Spells
				LfocusShot = "Free"
				LpierceShot = "600 XP"
				LsilentKiss = "Free"
				LsexualEnrage = "Free"
				LcreatureClaim = "8000 XP"
				LmanaShroud = "4500 XP"
				LconsumeHealth = "3500 XP"
				LconsumeMagicka = "3500 XP"
				LmanaBreak = "5000 XP"
				LbloodDrop = "500 XP"
				LmanaDrop = "500 XP"
				LpowerDrop = "500 XP"
				Lpoisonpoint = "4000 XP"
				Lvitalcure = "5000 XP"
				Ldirtytouch = "7500 XP"
				
				If(playerRef.HasSpell(SuH_ss_focusshot))
					LfocusShot = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_ss_darkpierce))
					LpierceShot = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_ss_silentkiss))
					LsilentKiss = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_ss_sexualenrage))
					LsexualEnrage = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_ss_creatureclaim))
					LcreatureClaim = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_sst_manashroud))
					LmanaShroud = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_ss_consumehealth))
					LconsumeHealth = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_ss_consumemagicka))
					LconsumeMagicka = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_ss_manabreak))
					LmanaBreak = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_ss_blooddrop))
					LbloodDrop = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_ss_manadrop))
					LmanaDrop = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_ss_powerdrop))
					LpowerDrop = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_ss_poisonpoint))
					Lpoisonpoint = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_ss_vitalcure))
					Lvitalcure = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_ss_dirtytouch))
					Ldirtytouch = "Learned"
				endIf
			;end/
			;ent/ Heart Passives
				LsuccubusProwl = "Free"
				Lspermlover = "800 XP"
				Lmilklover = "800 XP"
				LperfectOrgasm = "1400 XP"
				LspecialLover = "600 XP"
				LcaringLover = "1000 XP"
				LmagicalLover = "1000 XP"
				LlastingLover = "1000 XP"
				LhumanDesires = "2500 XP"
				LanimalDesires = "2500 XP"
				Lmasochist = "4500 XP"
				Lmilkdrinker = "4500 XP"
				Lsavingessence = "7000 XP"
				Lselfstacker = "6500 XP"
				
				If SuH_Lsuccubusprowl.GetValue()
					if(playerRef.HasMagicEffect(SuH_sp_succubusprowleffect))
						LsuccubusProwl = "Active"
					else
						LsuccubusProwl = "Inactive"
					endIf
				endIf
				If SuH_Lspermlover.GetValue()
					if playerRef.HasSpell(SuH_sp_spermlover)
						Lspermlover = "Active"
					else
						Lspermlover = "Inactive"
					endIf
				endIf
				If SuH_Lmilklover.GetValue()
					if playerRef.HasSpell(SuH_sp_milklover)
						Lmilklover = "Active"
					else
						Lmilklover = "Inactive"
					endIf
				endIf
				If SuH_Lperfectorgasm.GetValue()
					if (playerRef.HasSpell(SuH_sp_perfectorgasm))
						LperfectOrgasm = "Active"
					else
						LperfectOrgasm = "Inactive"
					endIf
				endIf
				If SuH_Lspeciallover.GetValue()
					if (playerRef.HasSpell(SuH_sp_speciallover))
						LspecialLover = "Active"
					else
						LspecialLover = "Inactive"
					endIf
				endIf
				If SuH_Lcaringlover.GetValue()
					if (playerRef.HasSpell(SuH_sp_caringlover))
						LcaringLover = "Active"
					else
						LcaringLover = "Inactive"
					endIf
				endIf
				If SuH_Lmagicallover.GetValue()
					if (playerRef.HasSpell(SuH_sp_magicallover))
						LmagicalLover = "Active"
					else
						LmagicalLover = "Inactive"
					endIf
				endIf
				If SuH_Llastinglover.GetValue()
					if (playerRef.HasSpell(SuH_sp_lastinglover))
						LlastingLover = "Active"
					else
						LlastingLover = "Inactive"
					endIf
				endIf
				If SuH_Lhumandesires.GetValue()
					if (playerRef.HasSpell(SuH_sp_humandesires))
						LhumanDesires = "Active"
					else
						LhumanDesires = "Inactive"
					endIf
				endIf
				If SuH_Lanimaldesires.GetValue()
					if (playerRef.HasSpell(SuH_sp_animaldesires))
						LanimalDesires = "Active"
					else
						LanimalDesires = "Inactive"
					endIf
				endIf
				If SuH_Lmasochist.GetValue()
					if (playerRef.HasSpell(SuH_sp_masochist))
						Lmasochist = "Active"
					else
						Lmasochist = "Inactive"
					endIf
				endIf
				If SuH_Lmilkdrinker.GetValue()
					if (playerRef.HasSpell(SuH_sp_milkdrinker))
						Lmilkdrinker = "Active"
					else
						Lmilkdrinker = "Inactive"
					endIf
				endIf
				If SuH_Lsavingessence.GetValue()
					if (playerRef.HasSpell(SuH_sp_savingessence))
						Lsavingessence = "Active"
					else
						Lsavingessence = "Inactive"
					endIf
				endIf
				If SuH_Lselfstacker.GetValue()
					if (playerRef.HasSpell(SuH_sp_selfstacker))
						Lselfstacker = "Active"
					else
						Lselfstacker = "Inactive"
					endIf
				endIf
			;end/
			;ent/ Toggle Passives
				LtrainingState = "4000 XP"
				LhungerState = "2000 XP"
				LfocusedState = "2000 XP"
				LbracingState = "2000 XP"
				
				If(playerRef.HasSpell(SuH_spt_trainingstate))
					LtrainingState = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_spt_hungerstate))
					LhungerState = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_spt_focusedstate))
					LfocusedState = "Learned"
				endIf
				If(playerRef.HasSpell(SuH_spt_bracingstate))
					LbracingState = "Learned"
				endIf
			;end/
		;end/
	
        SetCursorFillMode(TOP_TO_BOTTOM)
		
		;ent/ Left Side
			SetCursorPosition(0)
			spell_XP = AddTextOption("XP ", XP)
			AddEmptyOption()
			
			AddHeaderOption("Battle Spells")
			spell_focusshot = AddTextOption("Focus Shot",LfocusShot)
			spell_darkpierce = AddTextOption("Dark Pierce", LpierceShot)
			spell_manabreak = AddTextOption("Mana Break", LmanaBreak)
			spell_poisonpoint = AddTextOption("Poison Point", Lpoisonpoint)
			spell_dirtytouch = AddTextOption("Dirty Touch", Ldirtytouch)
			AddEmptyOption()
			
			AddHeaderOption("Seduction Spells")
			spell_sexualenrage = AddTextOption("Sexual Enrage", LsexualEnrage)
			spell_silentkiss = AddTextOption("Silent Kiss", LsilentKiss)
			spell_creatureclaim = AddTextOption("Creature Claim", LcreatureClaim)
			AddEmptyOption()
			
			AddHeaderOption("Utility Spells")
			spell_consumehealth = AddTextOption("Consume Health",LconsumeHealth)
			spell_consumemagicka = AddTextOption("Consume Magicka", LconsumeMagicka)
			spell_manashroud = AddTextOption("Mana Shroud", LmanaShroud)
			spell_vitalcure = AddTextOption("Vital Cure", Lvitalcure)
			AddEmptyOption()
			
			AddHeaderOption("Conversion Spells")
			spell_blooddrop = AddTextOption("Blood Drop", LbloodDrop)
			spell_manadrop = AddTextOption("Mana Drop", LmanaDrop)
			spell_powerdrop = AddTextOption("Power Drop", LpowerDrop)
			AddEmptyOption()
			
			AddHeaderOption("Meditation Passives")
			spell_trainingstate = AddTextOption("Training State",LtrainingState)
			spell_hungerstate = AddTextOption("Hunger State",LhungerState)
			spell_focusedstate = AddTextOption("Focused State",LfocusedState)
			spell_bracingstate = AddTextOption("Bracing State",LbracingState)
		;end/
		;ent/ Right Side
			SetCursorPosition(1)
			
			AddHeaderOption("Heart Passives")
			spell_succubusprowl = AddTextOption("Succubus Prowl", LsuccubusProwl)
			spell_spermlover = AddTextOption("Sperm Lover", Lspermlover)
			spell_milklover = AddTextOption("Milk Lover", Lmilklover)
			spell_perfectorgasm = AddTextOption("Perfect Orgasm",LperfectOrgasm)
			spell_speciallover = AddTextOption("Special Lover",LspecialLover)
			spell_caringlover = AddTextOption("Caring Lover",LcaringLover)
			spell_magicallover = AddTextOption("Magical Lover",LmagicalLover)
			spell_lastinglover = AddTextOption("Lasting Lover",LlastingLover)
			spell_humandesires = AddTextOption("Human Desires", LhumanDesires)
			spell_animaldesires = AddTextOption("Animal Desires", LanimalDesires)
			spell_masochist = AddTextOption("Masochist", Lmasochist)
			spell_milkdrinker = AddTextOption("Milk Drinker", Lmilkdrinker)
			spell_savingessence = AddTextOption("Saving Essence", Lsavingessence)
			spell_selfstacker = AddTextOption("Self Stacker", Lselfstacker)
		;end/
	;end/
	;ent/ Help
	elseIf (page == "Help")
	
		SetCursorFillMode(TOP_TO_BOTTOM)
		;Left Side
		SetCursorPosition(0)
		
		AddHeaderOption("The Basics")
		hb1 = AddTextOption("Absorption Effect"," ")
		he17 = AddTextOption("Essence Mechanic", " ")
		hb2 = AddTextOption("Sperm Mechanics"," ")
		he15 = AddTextOption("Milk Mechanic", " ")
		hb3 = AddTextOption("Passives Mechanic"," ")
		hb4 = AddTextOption("Seduction Points"," ")
		he16 = AddTextOption("Combat Seduction"," ")
		he18 = AddTextOption("Stacks Mechanic"," ")
		AddEmptyOption()
		creditsID = AddTextOption("Created By: Michael aka Spirit Shard","")
		credits2ID = AddTextOption("michaelpstanich.com // loverslab.com","")
		
		;Right Side
		SetCursorPosition(1)
		
		AddHeaderOption("XP System")
		he1 = AddTextOption("Earning XP"," ")
		he2 = AddTextOption("Sexual Act Values"," ")
		he5 = AddTextOption("Spell and Passive Values"," ")
		he3 = AddTextOption("Using XP"," ")
		he4 = AddTextOption("XP Gain Stat"," ")
		AddEmptyOption()
		AddHeaderOption("Absorption System")
		he6 = AddTextOption("How It Works"," ")
		he7 = AddTextOption("Sex Type Effect"," ")
		he8 = AddTextOption("Increasing the Effect"," ")
		he9 = AddTextOption("Killing the Enemy"," ")
		AddEmptyOption()
		AddHeaderOption("Succubus Spells")
		he10 = AddTextOption("Battle Type"," ")
		AddEmptyOption()
		AddHeaderOption("Passives Mechanic")
		he11 = AddTextOption("How It Works"," ")
		he12 = AddTextOption("Cancel a Passive"," ")
		he13 = AddTextOption("Meditation Passives"," ")
		
	else
	endIf
	;end/

endEvent
;end/
;ent/ OnOptionSelect
Event OnOptionSelect(int option)
	;ent/ public var
		lvlupMatch = 5
		lvlAdjust = 1.8
		lvlHX = 22
		SP = SuH_skill_points.GetValue() as int
		XP = SuH_PCSheartXP.GetValue() as int
		;end/
		;ent/ Status Character Options
			if(option == status_SETgenders)
					SETgenders = SuH_PCSgenders.GetValue() as int
				if SETgenders == 1
					SuH_PCSgenders.SetValue(2)
					ForcePageReset()
				elseIf SETgenders == 2
					SuH_PCSgenders.SetValue(12)
					ForcePageReset()
				elseIf SETgenders == 12
					SuH_PCSgenders.SetValue(1)
					ForcePageReset()
				endIf
			elseIf (option == status_SETsexdrops)
					x = SuH_SETsexdrops.GetValue() as int
				if x == 0
					SuH_SETsexdrops.SetValue(1)
					ForcePageReset()
				elseIf x == 1
					SuH_SETsexdrops.SetValue(2)
					ForcePageReset()
				else
					SuH_SETsexdrops.SetValue(0)
					ForcePageReset()
				endIf
			elseIf(option == status_SETallowseduce)
					x = SuH_SETallowseduce.GetValue() as int
				if x == 0
					SuH_SETallowseduce.SetValue(1)
					ForcePageReset()
				elseIf x == 1
					SuH_SETallowseduce.SetValue(2)
					ForcePageReset()
				else
					SuH_SETallowseduce.SetValue(0)
					ForcePageReset()
				endIf
			elseIf(option == status_SETdrainkill)
					x = SuH_SETdrainkill.GetValue() as int
				if x == 0
					SuH_SETdrainkill.SetValue(1)
					ForcePageReset()
				elseIf x == 1
					SuH_SETdrainkill.SetValue(2)
					ForcePageReset()
				else
					SuH_SETdrainkill.SetValue(0)
					ForcePageReset()
				endIf
			elseIf(option == status_SETconsentdrain)
					x = SuH_SETconsentdrain.GetValue() as int
				if x == 0
					SuH_SETconsentdrain.SetValue(1)
					ForcePageReset()
				else
					SuH_SETconsentdrain.SetValue(0)
					ForcePageReset()
				endIf
		;end/
		;ent/ Status General Options
			elseIf(option == status_setmalehomo)
			if SuH_SETcsMaleHomo.GetValue()
				SuH_SETcsMaleHomo.SetValue(0)
				ForcePageReset()
			else
				SuH_SETcsMaleHomo.SetValue(1)
				ForcePageReset()
			endIf
		elseIf(option == status_setfemalehomo)
			if SuH_SETcsFemaleHomo.GetValue()
				SuH_SETcsFemaleHomo.SetValue(0)
				ForcePageReset()
			else
				SuH_SETcsFemaleHomo.SetValue(1)
				ForcePageReset()
			endIf
		elseIf(option == status_setcreaturewmale)
			if SuH_SETcsCreatureWMale.GetValue()
				SuH_SETcsCreatureWMale.SetValue(0)
				ForcePageReset()
			else
				SuH_SETcsCreatureWMale.SetValue(1)
				ForcePageReset()
			endIf
		elseIf(option == status_setcreaturewfemale)
			if SuH_SETcsCreatureWFemale.GetValue()
				SuH_SETcsCreatureWFemale.SetValue(0)
				ForcePageReset()
			else
				SuH_SETcsCreatureWFemale.SetValue(1)
				ForcePageReset()
			endIf
		elseIf(option == status_setactnoregen)
			if SuH_SETactnoregen.GetValue()
				SuH_SETactnoregen.SetValue(0)
				ForcePageReset()
			else
				SuH_SETactnoregen.SetValue(1)
				ForcePageReset()
			endIf
		elseIf(option == status_setinvact)
			if SuH_SETinvact.GetValue()
				SuH_SETinvact.SetValue(0)
				ForcePageReset()
			else
				SuH_SETinvact.SetValue(1)
				ForcePageReset()
			endIf
		;end/
		;ent/ Status Combat Seduction
		elseIf(option == status_setcombatseduction)
			if SuH_SETcombatseduction.GetValue()
				SuH_SETcombatseduction.SetValue(0)
				SuH_SETallowdynamic.SetValue(0)
				ForcePageReset()
			else
				SuH_SETcombatseduction.SetValue(1)
				SuH_SETallowdynamic.SetValue(1)
				ForcePageReset()
			endIf
		elseIf(option == status_setplayersubmit)
			if SuH_SETcsPlayerSubmit.GetValue()
				SuH_SETcsPlayerSubmit.SetValue(0)
				ForcePageReset()
			else
				SuH_SETcsPlayerSubmit.SetValue(1)
				ForcePageReset()
			endIf
		elseIf(option == status_setplayerattack)
			if SuH_SETcsPlayerattack.GetValue()
				SuH_SETcsPlayerattack.SetValue(0)
				ForcePageReset()
			else
				SuH_SETcsPlayerattack.SetValue(1)
				ForcePageReset()
			endIf
		elseIf(option == status_setmaleattack)
			if SuH_SETcsmaleattack.GetValue()
				SuH_SETcsmaleattack.SetValue(0)
				ForcePageReset()
			else
				SuH_SETcsmaleattack.SetValue(1)
				ForcePageReset()
			endIf
		elseIf(option == status_setfemaleattack)
			if SuH_SETcsfemaleattack.GetValue()
				SuH_SETcsfemaleattack.SetValue(0)
				ForcePageReset()
			else
				SuH_SETcsfemaleattack.SetValue(1)
				ForcePageReset()
			endIf
		elseIf(option == status_setcreatureattack)
			if SuH_SETcscreatureattack.GetValue()
				SuH_SETcscreatureattack.SetValue(0)
				ForcePageReset()
			else
				SuH_SETcscreatureattack.SetValue(1)
				ForcePageReset()
			endIf
		;end/
	;ent/ Skill Levels
		;ent/ Alchemy
		elseIf(option == skill_alchemy)
				alchemylvl = playerRef.GetActorValue("alchemy") as int
				alchemycost = Math.Ceiling(alchemylvl*0.1)
			if SP >= alchemycost
				SP -= alchemycost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("alchemy")
				Debug.MessageBox("Alchemy Increased to "+(alchemylvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Alteration
		elseIf(option == skill_alteration)
				alterationlvl = playerRef.GetActorValue("alteration") as int
				alterationcost = Math.Ceiling(alterationlvl*0.1)
			if SP >= alterationcost
				SP -= alterationcost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("alteration")
				Debug.MessageBox("Alteration Increased to "+(alterationlvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Block
		elseIf(option == skill_block)
				blocklvl = playerRef.GetActorValue("block") as int
				blockcost = Math.Ceiling(blocklvl*0.1)
			if SP >= blockcost
				SP -= blockcost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("block")
				Debug.MessageBox("Block Increased to "+(blocklvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Conjuration
		elseIf(option == skill_conjuration)
				conjurationlvl = playerRef.GetActorValue("conjuration") as int
				conjurationcost = Math.Ceiling(conjurationlvl*0.1)
			if SP >= conjurationcost
				SP -= conjurationcost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("conjuration")
				Debug.MessageBox("Conjuration Increased to "+(conjurationlvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Destruction
		elseIf(option == skill_destruction)
				destructionlvl = playerRef.GetActorValue("destruction") as int
				destructioncost = Math.Ceiling(destructionlvl*0.1)
			if SP >= destructioncost
				SP -= destructioncost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("destruction")
				Debug.MessageBox("Destruction Increased to "+(destructionlvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Enchanting
		elseIf(option == skill_enchanting)
				enchantinglvl = playerRef.GetActorValue("enchanting") as int
				enchantingcost = Math.Ceiling(enchantinglvl*0.1)
			if SP >= enchantingcost
				SP -= enchantingcost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("enchanting")
				Debug.MessageBox("Enchanting Increased to "+(enchantinglvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Heavy Armor
		elseIf(option == skill_heavyarmor)
				heavyarmorlvl = playerRef.GetActorValue("heavyarmor") as int
				heavyarmorcost = Math.Ceiling(heavyarmorlvl*0.1)
			if SP >= heavyarmorcost
				SP -= heavyarmorcost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("heavyarmor")
				Debug.MessageBox("Heavy Armor Increased to "+(heavyarmorlvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Illusion
		elseIf(option == skill_illusion)
				illusionlvl = playerRef.GetActorValue("illusion") as int
				illusioncost = Math.Ceiling(illusionlvl*0.1)
			if SP >= illusioncost
				SP -= illusioncost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("illusion")
				Debug.MessageBox("Illusion Increased to "+(illusionlvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Light Armor
		elseIf(option == skill_lightarmor)
				lightarmorlvl = playerRef.GetActorValue("lightarmor") as int
				lightarmorcost = Math.Ceiling(lightarmorlvl*0.1)
			if SP >= lightarmorcost
				SP -= lightarmorcost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("lightarmor")
				Debug.MessageBox("Light Armor Increased to "+(lightarmorlvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Lockpicking
		elseIf(option == skill_lockpicking)
				lockpickinglvl = playerRef.GetActorValue("lockpicking") as int
				lockpickingcost = Math.Ceiling(lockpickinglvl*0.1)
			if SP >= lockpickingcost
				SP -= lockpickingcost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("lockpicking")
				Debug.MessageBox("Lockpicking Increased to "+(lockpickinglvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Marksman
		elseIf(option == skill_marksman)
				marksmanlvl = playerRef.GetActorValue("marksman") as int
				marksmancost = Math.Ceiling(marksmanlvl*0.1)
			if SP >= marksmancost
				SP -= marksmancost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("marksman")
				Debug.MessageBox("Marksman Increased to "+(marksmanlvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ One-Handed
		elseIf(option == skill_onehanded)
				onehandedlvl = playerRef.GetActorValue("onehanded") as int
				onehandedcost = Math.Ceiling(onehandedlvl*0.1)
			if SP >= onehandedcost
				SP -= onehandedcost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("onehanded")
				Debug.MessageBox("One-Handed Increased to "+(onehandedlvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Pickpocket
		elseIf(option == skill_pickpocket)
				pickpocketlvl = playerRef.GetActorValue("pickpocket") as int
				pickpocketcost = Math.Ceiling(pickpocketlvl*0.1)
			if SP >= pickpocketcost
				SP -= pickpocketcost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("pickpocket")
				Debug.MessageBox("Pickpocket Increased to "+(pickpocketlvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Restoration
		elseIf(option == skill_restoration)
				restorationlvl = playerRef.GetActorValue("restoration") as int
				restorationcost = Math.Ceiling(restorationlvl*0.1)
			if SP >= restorationcost
				SP -= restorationcost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("restoration")
				Debug.MessageBox("Restoration Increased to "+(restorationlvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Smithing
		elseIf(option == skill_smithing)
				smithinglvl = playerRef.GetActorValue("smithing") as int
				smithingcost = Math.Ceiling(smithinglvl*0.1)
			if SP >= smithingcost
				SP -= smithingcost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("smithing")
				Debug.MessageBox("Smithing Increased to "+(smithinglvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Sneak
		elseIf(option == skill_sneak)
				sneaklvl = playerRef.GetActorValue("sneak") as int
				sneakcost = Math.Ceiling(sneaklvl*0.1)
			if SP >= sneakcost
				SP -= sneakcost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("sneak")
				Debug.MessageBox("Sneak Increased to "+(sneaklvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Speechcraft
		elseIf(option == skill_speechcraft)
				speechcraftlvl = playerRef.GetActorValue("speechcraft") as int
				speechcraftcost = Math.Ceiling(speechcraftlvl*0.1)
			if SP >= speechcraftcost
				SP -= speechcraftcost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("speechcraft")
				Debug.MessageBox("Speechcraft Increased to "+(speechcraftlvl+1))
				ForcePageReset()
			endIf
		;end/
		;ent/ Two-Handed
		elseIf(option == skill_twohanded)
				twohandedlvl = playerRef.GetActorValue("twohanded") as int
				twohandedcost = Math.Ceiling(twohandedlvl*0.1)
			if SP >= twohandedcost
				SP -= twohandedcost
				SuH_skill_points.SetValue(SP)
				Game.IncrementSkill("twohanded")
				Debug.MessageBox("Two Handed Increased to "+(twohandedlvl+1))
				ForcePageReset()
			endIf
		;end/
	;end/
	;ent/ Heart Levels
		;ent/ Status Cap Increase 
		elseIf(option == heart_statcapUP)
				statCapUp = SuH_PCScapup.GetValue() as int
				statCapUplvl = statCapUp+1
				statCapUpcost = Math.Floor(lvlupMatch*lvlHX*(statCapUplvl*lvlAdjust))
				plvl = playerRef.GetLevel()
				statCap = Math.Floor(100+(5*plvl)+(statCapUp))
			If XP >= statCapUpcost
				XP -= statCapUpcost
				SuH_PCSheartXP.SetValue(XP)
				SuH_PCScapup.SetValue(statCapUp + 1)
				debug.MessageBox("Status Cap increased to "+statCap)
				ForcePageReset()
			endIf
		;end/
		;ent/ Health Absorb
		elseIf(option == heart_pHaUP)
				pHa = SuH_PCShpabsorb.GetValue() as int
				pHacost = Math.Floor(lvlupMatch*lvlHX*(pHa*lvlAdjust))
			if XP >= pHacost
				XP -= pHacost
				SuH_PCSheartXP.SetValue(XP)
				pHa += 1
				SuH_PCShpabsorb.SetValue(pHa)
				debug.MessageBox("Health Absorption Increased to "+pHa)
				ForcePageReset()
			endIf
		;end/
		;ent/ Magicka Absorb
		elseIf(option == heart_pMaUP)
				pMa = SuH_PCSmpabsorb.GetValue() as int
				pMacost = Math.Floor(lvlupMatch*lvlHX*(pMa*lvlAdjust))
			if XP >= pMacost
				XP -= pMacost
				SuH_PCSheartXP.SetValue(XP)
				pMa += 1
				SuH_PCSmpabsorb.SetValue(pMa)
				debug.MessageBox("Magic Absorption Increased to "+pMa)
				ForcePageReset()
			endIf
		;end/
		;ent/ Stamina Absorb
		elseIf(option == heart_pSaUP)
				pSa = SuH_PCSspabsorb.GetValue() as int
				pSacost = Math.Floor(lvlupMatch*lvlHX*(pSa*lvlAdjust))
			if XP >= pSacost
				XP -= pSacost
				SuH_PCSheartXP.SetValue(XP)
				pSa += 1
				SuH_PCSspabsorb.SetValue(pSa)
				debug.MessageBox("Stamina Absorption Increased to "+pSa)
				ForcePageReset()
			endIf
		;end/
		;ent/ XP Gain
		elseIf(option == heart_XPgainUP)
				XPgainlvl = Math.Floor(SuH_PCSheartXPgain.GetValue() - 99)
				XPgaincost = Math.Floor(lvlupMatch*lvlHX*(XPgainlvl*lvlAdjust))
			if XP >= XPgaincost
				XP -= XPgaincost
				SuH_PCSheartXP.SetValue(XP)
				XPgain = SuH_PCSheartXPgain.getValue() as int
				XPgain += 1
				SuH_PCSheartXPgain.SetValue(XPgain)
				debug.MessageBox("XP Gain Increased to "+XPgain+"%")
				ForcePageReset()
			endIf
		;end/
		;ent/ Sperm Health
		elseIf(option == heart_sHaUP)
				sHa = SuH_PCSspermhvalue.GetValue() as int
				sHacost = Math.Floor(lvlupMatch*lvlHX*(sHa*lvlAdjust))
			if XP >= sHacost
				XP -= sHacost
				SuH_PCSheartXP.SetValue(XP)
				sHa += 1
				SuH_PCSspermhvalue.SetValue(sHa)
				debug.MessageBox("Health Sperm Effect Increased to "+sHa)
				ForcePageReset()
			endIf
		;end/
		;ent/ Sperm Magicka
		elseIf(option == heart_sMaUP)
				sMa = SuH_PCSspermmvalue.GetValue() as int
				sMacost = Math.Floor(lvlupMatch*lvlHX*(sMa*lvlAdjust))
			if XP >= sMacost
				XP -= sMacost
				SuH_PCSheartXP.SetValue(XP)
				sMa += 1
				SuH_PCSspermmvalue.SetValue(sMa)
				debug.MessageBox("Magicka Sperm Effect Increased to "+sMa)
				ForcePageReset()
			endIf
		;end/
		;ent/ Sperm Stamina
		elseIf(option == heart_sSaUP)
				sSa = SuH_PCSspermsvalue.GetValue() as int
				sSacost = Math.Floor(lvlupMatch*lvlHX*(sSa*lvlAdjust))
			if XP >= sSacost
				XP -= sSacost
				SuH_PCSheartXP.SetValue(XP)
				sSa += 1
				SuH_PCSspermsvalue.SetValue(sSa)
				debug.MessageBox("Stamina Sperm Effect Increased to "+sSa)
				ForcePageReset()
			endIf
		;end/
		;ent/ Milk Health
		elseIf(option == heart_mHaUP)
				mHa = SuH_PCSmilkhvalue.GetValue() as int
				mHacost = Math.Floor(lvlupMatch*lvlHX*(mHa*lvlAdjust))
			if XP >= mHacost
				XP -= mHacost
				SuH_PCSheartXP.SetValue(XP)
				mHa += 1
				SuH_PCSmilkhvalue.SetValue(mHa)
				debug.MessageBox("Health Milk Effect Increased to "+mHa)
				ForcePageReset()
			endIf
		;end/
		;ent/ Milk Magicka
		elseIf(option == heart_mMaUP)
				mMa = SuH_PCSmilkmvalue.GetValue() as int
				mMacost = Math.Floor(lvlupMatch*lvlHX*(mMa*lvlAdjust))
			if XP >= mMacost
				XP -= mMacost
				SuH_PCSheartXP.SetValue(XP)
				mMa += 1
				SuH_PCSmilkmvalue.SetValue(mMa)
				debug.MessageBox("Magicka Milk Effect Increased to "+mMa)
				ForcePageReset()
			endIf
		;end/
		;ent/ Milk Stamina
		elseIf(option == heart_mSaUP)
				mSa = SuH_PCSmilksvalue.GetValue() as int
				mSacost = Math.Floor(lvlupMatch*lvlHX*(mSa*lvlAdjust))
			if XP >= mSacost
				XP -= mSacost
				SuH_PCSheartXP.SetValue(XP)
				mSa += 1
				SuH_PCSmilksvalue.SetValue(mSa)
				debug.MessageBox("Stamina Milk Effect Increased to "+mSa)
				ForcePageReset()
			endIf
		;end/
		;ent/ Max Sex Stacks
		elseIf(option == heart_mastacksUP)
				maStack = SuH_PCSmaxactstacks.GetValue() as int
				maStackcost = Math.Floor(lvlupMatch*lvlHX*(maStack*2*lvlAdjust))
			if XP >= maStackcost
				XP -= maStackcost
				SuH_PCSheartXP.SetValue(XP)
				maStack += 1
				SuH_PCSmaxactstacks.SetValue(maStack)
				debug.MessageBox("Max Sex Stacks Increased to "+maStack)
				ForcePageReset()
			endIf
		;end/
		;ent/ Max Sperm Stacks
		elseIf(option == heart_msstacksUP)
				msStack = SuH_PCSmaxspermstacks.GetValue() as int
				msStackcost = Math.Floor(lvlupMatch*lvlHX*(msStack*2*lvlAdjust))
			if XP >= msStackcost
				XP -= msStackcost
				SuH_PCSheartXP.SetValue(XP)
				msStack += 1
				SuH_PCSmaxactstacks.SetValue(msStack)
				debug.MessageBox("Max Sperm Stacks Increased to "+msStack)
				ForcePageReset()
			endIf
		;end/
		;ent/ Max Milk Stacks
		elseIf(option == heart_mmstacksUP)
				mmStack = SuH_PCSmaxmilkstacks.GetValue() as int
				mmStackcost = Math.Floor(lvlupMatch*lvlHX*(mmStack*2*lvlAdjust))
			if XP >= mmStackcost
				XP -= mmStackcost
				SuH_PCSheartXP.SetValue(XP)
				mmStack += 1
				SuH_PCSmaxactstacks.SetValue(mmStack)
				debug.MessageBox("Max Milk Stacks Increased to "+mmStack)
				ForcePageReset()
			endIf
		;end/
	;end/
	;ent/ Spells and Passives
		;ent/ Casting Spells
		elseIf(option == spell_focusshot)
			If(playerRef.HasSpell(SuH_ss_focusshot))
			else
				playerRef.AddSpell(SuH_ss_focusshot)
				debug.MessageBox("Focus Shot has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_darkpierce)
			If(playerRef.HasSpell(SuH_ss_darkpierce))
			elseIf XP >= 600
				XP -= 600
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_ss_darkpierce)
				debug.MessageBox("Dark Pierce has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_silentkiss)
			If(playerRef.HasSpell(SuH_ss_silentkiss))
			else
				playerRef.AddSpell(SuH_ss_silentkiss)
				debug.MessageBox("Silent Kiss has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_sexualenrage)
			If(playerRef.HasSpell(SuH_ss_sexualenrage))
			else
				playerRef.AddSpell(SuH_ss_sexualenrage)
				debug.MessageBox("Sexual Enrage has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_creatureclaim)
			If(playerRef.HasSpell(SuH_ss_creatureclaim))
			elseIf XP >= 8000
				XP -= 8000
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_ss_creatureclaim)
				debug.MessageBox("Creature Claim has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_manashroud)
			If(playerRef.HasSpell(SuH_sst_manashroud))
			elseIf XP >= 4500
				XP -= 4500
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_sst_manashroud)
				debug.MessageBox("Mana Shroud has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_consumehealth)
			If(playerRef.HasSpell(SuH_ss_consumehealth))
			elseIf XP >= 3500
				XP -= 3500
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_ss_consumehealth)
				debug.MessageBox("Consume Health has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_consumemagicka)
			If(playerRef.HasSpell(SuH_ss_consumemagicka))
			elseIf XP >= 3500
				XP -= 3500
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_ss_consumemagicka)
				debug.MessageBox("Consume Magicka has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_manabreak)
			If(playerRef.HasSpell(SuH_ss_manabreak))
			elseIf XP >= 5000
				XP -= 5000
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_ss_manabreak)
				debug.MessageBox("Mana Break has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_blooddrop)
			If(playerRef.HasSpell(SuH_ss_blooddrop))
			elseIf XP >= 500
				XP -= 500
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_ss_blooddrop)
				debug.MessageBox("Blood Drop has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_manadrop)
			If(playerRef.HasSpell(SuH_ss_manadrop))
			elseIf XP >= 500
				XP -= 500
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_ss_manadrop)
				debug.MessageBox("Mana Drop has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_powerdrop)
			If(playerRef.HasSpell(SuH_ss_powerdrop))
			elseIf XP >= 500
				XP -= 500
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_ss_powerdrop)
				debug.MessageBox("Power Drop has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_poisonpoint)
			If(playerRef.HasSpell(SuH_ss_poisonpoint))
			elseIf XP >= 4000
				XP -= 4000
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_ss_poisonpoint)
				debug.MessageBox("Poison Point has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_vitalcure)
			If(playerRef.HasSpell(SuH_ss_vitalcure))
			elseIf XP >= 5000
				XP -= 5000
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_ss_vitalcure)
				debug.MessageBox("Vital Cure has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_dirtytouch)
			If(playerRef.HasSpell(SuH_ss_dirtytouch))
			elseIf XP > 7500
				XP -= 7500
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_ss_dirtytouch)
				debug.MessageBox("Dirty Touch has been learned")
				ForcePageReset()
			endIf
		;end/
		;ent/ Heart Passives
		elseIf(option == spell_succubusprowl)
			if SuH_Lsuccubusprowl.GetValue()
				if (playerRef.HasSpell(SuH_sp_succubusprowl))
					PlayerRef.RemoveSpell(SuH_sp_succubusprowl)
					ForcePageReset()
				else
					PlayerRef.AddSpell(SuH_sp_succubusprowl)
					ForcePageReset()
				endIf
			else
				playerRef.AddSpell(SuH_sp_succubusprowl)
				SuH_Lsuccubusprowl.SetValue(1)
				debug.MessageBox("Succubus Prowl has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_spermlover)
			if SuH_Lspermlover.GetValue()
				if playerRef.HasSpell(SuH_sp_spermlover)
					playerRef.RemoveSpell(SuH_sp_spermlover)
					ForcePageReset()
				else
					playerRef.AddSpell(SuH_sp_spermlover)
					ForcePageReset()
				endIf
			elseIf XP >= 800
				XP -= 800
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_sp_spermlover)
				SuH_Lspermlover.SetValue(1)
				debug.MessageBox("Sperm Lover has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_milklover)
			if SuH_Lmilklover.GetValue()
				if playerRef.HasSpell(SuH_sp_milklover)
					playerRef.RemoveSpell(SuH_sp_milklover)
					ForcePageReset()
				else
					playerRef.AddSpell(SuH_sp_milklover)
					ForcePageReset()
				endIf
			elseIf XP >= 800
				XP -= 800
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_sp_milklover)
				SuH_Lmilklover.SetValue(1)
				debug.MessageBox("Milk Lover has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_perfectorgasm)
			if SuH_Lperfectorgasm.GetValue()
				if (playerRef.HasSpell(SuH_sp_perfectorgasm))
					playerRef.RemoveSpell(SuH_sp_perfectorgasm)
					ForcePageReset()
				else
					playerRef.AddSpell(SuH_sp_perfectorgasm)
					ForcePageReset()
				endIf
			elseIf XP >= 1400
				XP -= 1400
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_sp_perfectorgasm)
				SuH_Lperfectorgasm.SetValue(1)
				debug.MessageBox("Perfect Orgasm has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_speciallover)
			if SuH_Lspeciallover.GetValue()
				if (playerRef.HasSpell(SuH_sp_speciallover))
					playerRef.RemoveSpell(SuH_sp_speciallover)
					ForcePageReset()
				else
					playerRef.AddSpell(SuH_sp_speciallover)
					ForcePageReset()
				endIf
			elseIf XP >= 600
				XP -= 600
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_sp_speciallover)
				SuH_Lspeciallover.SetValue(1)
				debug.MessageBox("Special Lover has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_caringlover)
			if SuH_Lcaringlover.GetValue()
				if (playerRef.HasSpell(SuH_sp_caringlover))
					playerRef.RemoveSpell(SuH_sp_caringlover)
					ForcePageReset()
				else
					playerRef.AddSpell(SuH_sp_caringlover)
					ForcePageReset()
				endIf
			elseIf XP >= 1000
				XP -= 1000
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_sp_caringlover)
				SuH_Lcaringlover.SetValue(1)
				debug.MessageBox("Caring Lover has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_magicallover)
			if SuH_Lmagicallover.GetValue()
				if (playerRef.HasSpell(SuH_sp_magicallover))
					playerRef.RemoveSpell(SuH_sp_magicallover)
					ForcePageReset()
				else
					playerRef.AddSpell(SuH_sp_magicallover)
					ForcePageReset()
				endIf
			elseIf XP >= 1000
				XP -= 1000
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_sp_magicallover)
				SuH_Lmagicallover.SetValue(1)
				debug.MessageBox("Magical Lover has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_lastinglover)
			if SuH_Llastinglover.GetValue()
				if (playerRef.HasSpell(SuH_sp_lastinglover))
					playerRef.RemoveSpell(SuH_sp_lastinglover)
					ForcePageReset()
				else
					playerRef.AddSpell(SuH_sp_lastinglover)
					ForcePageReset()
				endIf
			elseIf XP >= 1000
				XP -= 1000
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_sp_lastinglover)
				SuH_Llastinglover.SetValue(1)
				debug.MessageBox("Lasting Lover has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_humandesires)
			if SuH_Lhumandesires.GetValue()
				if (playerRef.HasSpell(SuH_sp_humandesires))
					playerRef.RemoveSpell(SuH_sp_humandesires)
					ForcePageReset()
				else
					playerRef.AddSpell(SuH_sp_humandesires)
					ForcePageReset()
				endIf
			elseIf XP >= 2500
				XP -= 2500
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_sp_humandesires)
				SuH_Lhumandesires.SetValue(1)
				debug.MessageBox("Human Desires has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_animaldesires)
			if SuH_Lanimaldesires.GetValue()
				if (playerRef.HasSpell(SuH_sp_animaldesires))
					playerRef.RemoveSpell(SuH_sp_animaldesires)
					ForcePageReset()
				else
					playerRef.AddSpell(SuH_sp_animaldesires)
					ForcePageReset()
				endIf
			elseIf XP >= 2500
				XP -= 2500
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_sp_animaldesires)
				SuH_Lanimaldesires.SetValue(1)
				debug.MessageBox("Animal Desires has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_masochist)
			if SuH_Lmasochist.GetValue()
				if playerRef.HasSpell(SuH_sp_masochist)
					playerRef.RemoveSpell(SuH_sp_masochist)
					ForcePageReset()
				else
					playerRef.AddSpell(SuH_sp_masochist)
					ForcePageReset()
				endIf
			elseIf XP >= 4500
				XP -= 4500
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_sp_masochist)
				SuH_Lmasochist.SetValue(1)
				debug.MessageBox("Masochist has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_milkdrinker)
			if SuH_Lmilkdrinker.GetValue()
				if playerRef.HasSpell(SuH_sp_milkdrinker)
					playerRef.RemoveSpell(SuH_sp_milkdrinker)
					ForcePageReset()
				else
					playerRef.AddSpell(SuH_sp_milkdrinker)
					ForcePageReset()
				endIf
			elseIf XP >= 4500
				XP -= 4500
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_sp_milkdrinker)
				SuH_Lmilkdrinker.SetValue(1)
				debug.MessageBox("Milk Drinker has been learned")
			endIf
		elseIf(option == spell_savingessence)
			if SuH_Lsavingessence.GetValue()
				if playerRef.HasSpell(SuH_sp_savingessence)
					playerRef.RemoveSpell(SuH_sp_savingessence)
					ForcePageReset()
				else
					playerRef.AddSpell(SuH_sp_savingessence)
					ForcePageReset()
				endIf
			elseIf XP >= 7000
				XP -= 7000
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_sp_savingessence)
				SuH_Lsavingessence.SetValue(1)
				debug.MessageBox("Saving Essence has been learned")
			endIf
		elseIf(option == spell_selfstacker)
			if SuH_Lselfstacker.GetValue()
				if playerRef.HasSpell(SuH_sp_selfstacker)
					playerRef.RemoveSpell(SuH_sp_selfstacker)
					ForcePageReset()
				else
					playerRef.RemoveSpell(SuH_sp_selfstacker)
					ForcePageReset()
				endIf
			elseIf XP >= 6500
				XP -= 6500
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_sp_selfstacker)
				SuH_Lselfstacker.SetValue(1)
				debug.MessageBox("Self Stacker has been learned")
			endIf
		;end/
		;ent/ Meditation Passives
		elseIf(option == spell_trainingstate)
			If(playerRef.HasSpell(SuH_spt_trainingstate))
			elseIf XP >= 4000
				XP -= 4000
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_spt_trainingstate)
				debug.MessageBox("Training State has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_hungerstate)
			If(playerRef.HasSpell(SuH_spt_hungerstate))
			elseIf XP >= 2000
				XP -= 2000
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_spt_hungerstate)
				debug.MessageBox("Hunger State has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_focusedstate)
			If(playerRef.HasSpell(SuH_spt_focusedstate))
			elseIf XP >= 2000
				XP -= 2000
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_spt_focusedstate)
				debug.MessageBox("Focused State has been learned")
				ForcePageReset()
			endIf
		elseIf(option == spell_bracingstate)
			If(playerRef.HasSpell(SuH_spt_bracingstate))
			elseIf XP >= 2000
				XP -= 2000
				SuH_PCSheartXP.SetValue(XP)
				playerRef.AddSpell(SuH_spt_bracingstate)
				debug.MessageBox("Bracing State has been learned")
				ForcePageReset()
			endIf
		;end/
	;end/
	;Help
	
	endIf
endEvent
;end/
;ent/ OnOptionSliderOpen
	Event OnOptionSliderOpen(int option)
		if(option == status_SEThcap)
			SetSliderDialogStartValue(SuH_SEThcap.GetValue())
			SetSliderDialogDefaultValue(0)
			SetSliderDialogRange(0,5000)
			SetSliderDialogInterval(1)
		elseif(option == status_SETmcap)
			SetSliderDialogStartValue(SuH_SETmcap.GetValue())
			SetSliderDialogDefaultValue(0)
			SetSliderDialogRange(0,5000)
			SetSliderDialogInterval(1)
		elseif(option == status_SETscap)
			SetSliderDialogStartValue(SuH_SETscap.GetValue())
			SetSliderDialogDefaultValue(0)
			SetSliderDialogRange(0,5000)
			SetSliderDialogInterval(1)
		elseif(option == status_setNPChmax)
			SetSliderDialogStartValue(SuH_SETcsNPChmax.GetValue()*100)
			SetSliderDialogDefaultValue(20)
			SetSliderDialogRange(0,100)
			SetSliderDialogInterval(5)
		elseif(option == status_setPCShmax)
			SetSliderDialogStartValue(SuH_SETcsPCShmax.GetValue()*100)
			SetSliderDialogDefaultValue(20)
			SetSliderDialogRange(0,100)
			SetSliderDialogInterval(5)
		elseif(option == status_setPCSNhmax)
			SetSliderDialogStartValue(SuH_SETcsPCSNhmax.GetValue()*100)
			SetSliderDialogDefaultValue(20)
			SetSliderDialogRange(0,100)
			SetSliderDialogInterval(5)
		elseif(option == skill_meter)
			XP = SuH_PCSheartXP.GetValue() as int
			x = Math.Floor(XP/10)
			y = x*10
			SetSliderDialogStartValue(0)
			SetSliderDialogDefaultValue(0)
			SetSliderDialogRange(0,y)
			SetSliderDialogInterval(10)
		endIf
	endEvent
;end/
;ent/ OnOptionSliderAccept
Event OnOptionSliderAccept(int option, float value)
	if(option == status_SEThcap)
		SuH_SEThcap.SetValue(value)
		SetSliderOptionValue(status_SEThcap, value, "{0}")
	elseif(option == status_SETmcap)
		SuH_SETmcap.SetValue(value)
		SetSliderOptionValue(status_SETmcap, value, "{0}")
	elseif(option == status_SETscap)
		SuH_SETscap.SetValue(value)
		SetSliderOptionValue(status_SETscap, value, "{0}")
	elseif(option == status_setNPChmax)
		SuH_SETcsNPChmax.SetValue(value/100)
		SetSliderOptionValue(status_setNPChmax, value, "{0}% Health")
	elseif(option == status_setPCShmax)
		SuH_SETcsPCShmax.SetValue(value/100)
		SetSliderOptionValue(status_setPCShmax, value, "{0}% Health")
	elseif(option == status_setPCSNhmax)
		SuH_SETcsPCSNhmax.SetValue(value/100)
		SetSliderOptionValue(status_setPCSNhmax, value, "{0}% Health")
	elseif(option == skill_meter)
		x = Math.Floor(value/10)
		y = SuH_skill_essence.GetValue() as int
		z = SuH_PCSheartXP.GetValue() as int
		SuH_PCSheartXP.SetValue(z-value)
		SuH_skill_essence.SetValue(y+x)
		ForcePageReset()
	endIf
endEvent
;end/
;ent/ OnOptionDefault
Event OnOptionDefault(int option)
	
endEvent
;end/
;ent/ OnOptionHighlight
Event OnOptionHighlight(int option)
	
	;ent/ Status
		;ent/ Character Options
			if (option == status_statcap)
				SetInfoText("Maximum Health/Magicka/Stamina")
			elseif(option == status_SETgenders)
				SetInfoText("Your character's selected gender. This option effects various spells and passives.")
			elseif(option == status_SETsexdrops)
				SetInfoText("Changes what will drop/give on orgasm [All Drops][Sperm Only][Milk Only][Default:All Drops]")
			elseif(option == status_SETallowseduce)
				SetInfoText("Changes what genders can be seduced by the player [Both Genders][Male Only][Female Only]")
			elseIf(option == status_SETdrainkill)
				SetInfoText("Determines if a succubus can kill with their absorption effect [Enabled][Player Only][Disabled][Default:Enabled]")
			elseIf(option == status_SEThcap)
				SetInfoText("Overrides the Status Cap system with set value for Health. [0 = Disable Override / Default]")
			elseIf(option == status_SETmcap)
				SetInfoText("Overrides the Status Cap system with set value for Magicka. [0 = Disable Override / Default]")
			elseIf(option == status_SETscap)
				SetInfoText("Overrides the Status Cap system with set value for Stamina. [0 = Disable Override / Default]")
			elseIf(option == status_SETconsentdrain)
				SetInfoText("Enabled the drain effect to harm consensual partners (Only effects player partners)[Default:Disabled]")
			elseIf(option == status_itimer)
				SetInfoText("A bonus is applied to sex depending on the duration since the last interaction, increasing gains. (+1% every minute)")
		;end/
		;ent/ General Options
			elseIf(option == status_setmalehomo)
				SetInfoText("Allows Males to have Homosexual acts triggered")
			elseIf(option == status_setfemalehomo)
				SetInfoText("Allows Females to have Homosexual acts triggered")
			elseIf(option == status_setcreaturewmale)
				SetInfoText("Allows Creatures to act with Males")
			elseIf(option == status_setcreaturewfemale)
				SetInfoText("Allows Creatures to act with Females")
			elseIf(option == status_setactnoregen)
				SetInfoText("Disables Health/Magicka/Stamina regeneration during acts")
			elseIf(option == status_setinvact)
				SetInfoText("Makes NPCs essential while they are in an act so they can't die (Doesn't effect combat or the player)")
		;end/
		;ent/ Combat Seduction
			elseIf(option == status_setcombatseduction)
				SetInfoText("Enables/Disables Combat Seduction (When enabled characters will start acts immediately once the set amount is reached) [WARNING: Combat Seduction was originally build for test purposes only. Using this feature may cause unexpected results and possible instability.]")
			elseIf(option == status_setNPChmax)
				SetInfoText("When NPCs are below this amount they will submit to other NPCs that hit them")
			elseIf(option == status_setPCShmax)
				SetInfoText("When the Player is below this amount they will submit to NPCs")
			elseIf(option == status_setPCSNhmax)
				SetInfoText("When NPCs are below this amount they will submit to the player")
			elseIf(option == status_setplayersubmit)
				SetInfoText("Allows the Player to submit to NPCs")
			elseIf(option == status_setplayerattack)
				SetInfoText("Allows the Player to cause NPCs to submit")
			elseIf(option == status_setmaleattack)
				SetInfoText("Allows Males to make NPCs submit")
			elseIf(option == status_setfemaleattack)
				SetInfoText("Allows Females to make NPCs submit")
			elseIf(option == status_setcreatureattack)
				SetInfoText("Allows Creatures to make NPCs submit")
		;end/
	;end/
	;ent/ Skill Levels
			elseIf(option == skill_meter)
				SetInfoText("10 XP reduces 'to next' by 1 (XP is converted into essence)")
	;end/
	;ent/ Heart Spells
		;ent/ Battle Spells
			elseIf(option == spell_focusshot)
				SetInfoText("Sacrifice 2 Stamina and deal 12 Magic Damage to the target (+2 XP on hit)")
			elseIf(option == spell_darkpierce)
				SetInfoText("Consume 20% of your Health/Magicka/Stamina and damage the target's Health/Magicka/Stamina by that amount")
			elseIf(option == spell_manabreak)
				SetInfoText("Sacrifice 20 Magicka and drop the target's Magicka to 0")
			elseIf(option == spell_poisonpoint)
				SetInfoText("Sacrifice 5 Magicka and poison the target for 25 damage over 5 seconds")
			elseIf(option == spell_dirtytouch)
				SetInfoText("Touch the target without hostility, damaging their Stamina by 20 while consuming up to 5 Sex Stacks for 10 damage each")
		;end/
		;ent/ Seduction Spells
			elseIf(option == spell_silentkiss)
				SetInfoText("Attempt to seduce a consensual target by touch (100% Seduction Cost)")
			elseIf(option == spell_sexualenrage)
				SetInfoText("Provoke a target to rape you by touch (100% Seduction Cost)")
			elseIf(option == spell_creatureclaim)
				SetInfoText("Attempt to seduce a consensual creature by touch (60% Seduction Cost)")
		;end/
		;ent/ Utility Spells
			elseIf(option == spell_consumehealth)
				SetInfoText("Sacrifice 5 Health to recover 50% of missing Health")
			elseIf(option == spell_consumemagicka)
				SetInfoText("Sacrifice 5 Magicka to recover 50% of missing Magicka")
			elseIf(option == spell_manashroud)
				SetInfoText("Turn Invisible by sacrificing 2 Magicka a second")
			elseIf(option == spell_vitalcure)
				SetInfoText("Sacrifice 20 Health and cure diseases")
		;end/
		;ent/ Conversion Spells
			elseIf(option == spell_blooddrop)
				SetInfoText("Convert 100 Health into 200 XP")
			elseIf(option == spell_manadrop)
				SetInfoText("Convert 100 Magicka into 200 XP")
			elseIf(option == spell_powerdrop)
				SetInfoText("Convert 100 Stamina into 200 XP")
		;end/
		;ent/ Meditation Passives
			elseIf(option == spell_trainingstate)
				SetInfoText("Generate 1 HeartXP every 5 seconds")
			elseIf(option == spell_hungerstate)
				SetInfoText("Convert 1 Health into 3 HeartXP every 5 seconds")
			elseIf(option == spell_focusedstate)
				SetInfoText("Convert 1 Magicka into 3 HeartXP every 5 seconds")
			elseIf(option == spell_bracingstate)
				SetInfoText("Convert 1 Stamina into 3 HeartXP every 5 seconds")
		;end/
		;ent/ Heart Passives
			elseIf(option == spell_succubusprowl)
				SetInfoText("Generate 1 Seduction Point every 5 seconds")
			elseIf(option == spell_spermlover)
				SetInfoText("Sperm will recover 25% of missing Stamina when consumed")
			elseIf(option == spell_milklover)
				SetInfoText("Milk will recover 25% of missing Stamina when consumed")
			elseIf(option == spell_perfectorgasm)
				SetInfoText("Orgasms will recover 75% of missing Health/Magicka/Stamina")
			elseIf(option == spell_speciallover)
				SetInfoText("Consensual partners recover 10% missing Health/Magicka/Stamina every 5 seconds")
			elseIf(option == spell_caringlover)
				SetInfoText("Grants consensual partners with bonus Health (1/5sec)")
			elseIf(option == spell_magicallover)
				SetInfoText("Grants consensual partners with bonus Magicka (1/5sec)")
			elseIf(option == spell_lastinglover)
				SetInfoText("Grants consensual partners with bonus Stamina (1/5sec)")
			elseIf(option == spell_humandesires)
				SetInfoText("Acts with Humanoids yields 25% more base XP")
			elseIf(option == spell_animaldesires)
				SetInfoText("Acts with creatures yields 25% more base XP")
			elseIf(option == spell_masochist)
				SetInfoText("Generate 10 HeartXP when hit")
			elseIf(option == spell_milkdrinker)
				SetInfoText("Consume up to 5 milk stacks when hitting a target, adding 2 damage per-stack")
			elseIf(option == spell_savingessence)
				SetInfoText("When hit below 30% HP consume up to 10 sperm stacks, recovering 5 Health per stack")
			elseIf(option == spell_selfstacker)
				SetInfoText("After an act receive a stack based on gender (Females +1 Milk / Males +1 Sperm)")
		;end/
	;end/
	;ent/ Help
		;ent/ The Basics
			elseIf(option == hb1)
				SetInfoText("Succubus characters will gain Health/Magicka/Stamina from acts up until their Status Cap (100+(5*level)). NPC succubus effects are determined by level however the player's effects are determined by their absorption stats.")
			elseIf(option == he17)
				SetInfoText("When the player has reached their Status Cap all points will instead go into pE which, when enough has been gathered, turns into SP. SP can be spent to increase skill levels. SP can also be rushed with XP at a 10 for 1 ratio.")
			elseIf(option == hb2)
				SetInfoText("Upon orgasm male characters will give their partners sperm. There is a chance the character of receiving double and a chance of receiving none. Each male is polled separately (2 males will give 1 female 2 amounts).")
			elseIf(option == he15)
				SetInfoText("Upon orgasm female characters will give their partners breast milk. 2 breast milk items are always given. Each female is polled separately (2 females will give 1 male 2 amounts)")
			elseIf(option == hb3)
				SetInfoText("As a Succubus passives can be learned which have different effects. All passives are permanent however, with the exception of Heart passives, only one of each type may be active at a time (same-type passives will cancel eachother out).")
			elseIf(option == hb4)
				SetInfoText("In order to be successful with any seduction spells or dialogue you need to have enough Seduction Points. Upon a successful seduction the cost is taken from your current amount. Seduction Points are generated passively with the Succubus Prowl passive (learned automatically) and other passives / spells can also generate more.")
			elseIf(option == he16)
				SetInfoText("The Combat Seduction Mechanic allows characters to engage in acts with combat. When a character is hit and they are below the specified settings value they will submit to their attacker, starting an act.")
			elseIf(option == he18)
				SetInfoText("Upon certain acts (currently sex, sperm consumption, and milk consumption) stacks will be added which can then be used by spells and abilities")
		;end/
		;ent/ XP System
			elseIf(option == he1)
				SetInfoText("XP is earned though either sexual acts or succubus abilities. This amount varies from action to action.")
			elseIf(option == he2)
				SetInfoText("Being an aggressor grants 10/5sec, being a victim grands 2/5sec, and consensual grants 5/5sec. Consuming normal sperm will grant 2, perfect sperm will grant 20. (Note: These values are effected by the XP Gain value)")
			elseIf(option == he3)
				SetInfoText("XP is not used automatically, instead, once you've earned enough you can use this MCM to either level character Skills or improve your Succubus Abilities. Check out the other menus!")
			elseIf(option == he4)
				SetInfoText("The XP Gain stat is the percentage of XP you will earn through tasks. All native functions (sexual acts and Succubus Heart Spells) are effected by this stat unless specially noted. External mods may not use this modifier.")
			elseIf(option == he5)
				SetInfoText("Succubus Spells and Passives may also provide XP when used. If a spell or passive does it will say so in its description.")
		;end/	
		;ent/ Absorption	
			elseIf(option == he6)
				SetInfoText("When in a sexual act you'll 'absorb' Health, Magicka, and Stamina along with earning XP. Any act triggered by SexLab will trigger this effect.")
			elseIf(option == he7)
				SetInfoText("Different types of sex will have a different effect on the values. As an Aggressor absorb is at 100%, as a Victim absorb is at 20%, and in consensual absorb is at 50% but neither character is harmed.")
			elseIf(option == he8)
				SetInfoText("To increase absorption effects they must be leveled in the Heart Levels menu with XP. These values represent 100% effect.")
			elseIf(option == he9)
				SetInfoText("Absorption will take Health, Magicka, and Stamina from the enemy. When they run out of health they will die, however they won't be killed (by Succubus Heart) until after sex ends. If the character runs out of Magicka or Stamina during drain it will then drain the desired amount out of health. (when out of stat the player won't absorb any more of said stat)")
		;end/
		;ent/ Succubus Spells
			elseIf(option == he10)
				SetInfoText("Battle Type Spells focus on damaging the enemy using your succubus powers. These spells work well with characters trying for a mage-like class, some spells even give XP.")
		;end/
		;ent/ Passives
			elseIf(option == he11)
				SetInfoText("New passives can be learned in the Spells and Passives MCM menu. Heart Passives will take instant effect and always be active, however other types will need to be manually activated with the given spell. Only one passive of each type, aside from Heart passives, may be active at a time.")
			elseIf(option == he12)
				SetInfoText("To Cancel a passive simply re-cast the passive you wish to cancel. This is useful for passives that have drain or de-buffs attached. (Note: Heart passives can not be cancelled since there is no spell attached)")
			elseIf(option == he13)
				SetInfoText("Meditation Type Passives provide a way to earn XP passively. Most Meditation Passives will have drain on them so make sure to cancel them when you're done using them!")
		;end/
			endIf
	;end/
	
	endEvent
;end/ 