glife/locations/stat.qsrc

# stat

!!This is error catching to prevent stat from running too early
if opPRE > 0: exit

if Enable_Android = 0:
	clr
	!only clear status and renew object in non-Android mode
	gs 'obj_din', 'old'
end

if daystart_start < 100:
	pl '<BR>Did you start at the <a href="exec:daystart_start = 239 & gs''daystart'' & gs''stat''">end of August</a> or <a href="exec:daystart_start = 153 & gs''daystart'' & gs''stat''">beginning of June</a>?'
	exit
end

$BACKIMAGE = ''

view
rand1 = rand(0,100)
$stat_msg=''

if daystage = 1:
	$daystage['desc'] = 'dawn'
elseif daystage = 2:
	$daystage['desc'] = 'mid_day'
elseif daystage = 3:
	$daystage['desc'] = 'sunset'
elseif daystage = 4:
	$daystage['desc'] = 'early_night'
elseif daystage = 5:
	$daystage['desc'] = 'mid_night'
elseif daystage = 6:
	$daystage['desc'] = 'pre_dawn'
end

if $start_type[1] ! 'nomagic': magik_exp = orgasm + magik_adj

if insleep = 0: gs 'stat_sklattrib'

if cheatHealth = 1: dynamic $cheatmenu['std_cure']

if InfWillpwer = 1: pcs_willpwr = willpowermax

if stat['vaginal'] = 0 and stat['vaginal_fist'] = 0 and stat['vaginal_dildo'] = 0 and stat['vaginal_strap'] = 0:
	stat['think_virgin'] = 1
else
	stat['think_virgin'] = 0
end

if (analplay >= 2 and pcs_ass <= 10) or (analplay >= 4 and pcs_ass <= 15) or (analplay >= 8 and pcs_ass <= 20): pcs_ass += 1 & analplay = 0

!!This is a temporary stop-gap measure for the accomadation skill and will be removed
if succubusflag = 1 and sucskill >= 4:
	if pain['throat'] > 0: pain['throat'] = 0 & sucexcess -= 1
	if pain['asshole'] > 0: pain['asshole'] = 0 & sucexcess -= 1
	if pain['vaginal'] > 0: pain['vaginal'] = 0 & sucexcess -= 1
	if vgape > 0: vgape = 0 & vgapetime = 0 & sucexcess -= 1
	if agape > 0: agape = 0 & agapetime = 0 & sucexcess -= 1
end

!!mouth cleaning for drinks
if pcs_hydra > hydra_check:
	cumspclnt = 2
	gs 'cum_cleanup'
end

!!cosmetic tattoo
if cosmetic_tattoo > 0:
	if pcs_makeup ! (cosmetic_tattoo+1): pcs_makeup = (cosmetic_tattoo+1)
end

!!!CHEATS!!!
if cheatWork = 1:work = 0
if cheatWorkKiskis = 1:young_shop_miss = 0
if cheatHapri = 1:pcs_hairbsh = 1
! Moved from cheats to settings under 'Enema realism'
if cheatKlisma = 0:klismaday = daystart & klismaday1 = 1
if cheatNomakeup = 1 and cosmetic_tattoo = 0:
	if pcs_makeup = 0: pcs_makeup = 1
end
if cheatNoSweat = 1 and pcs_sweat > 0: pcs_sweat = 0
if cheatNoEat = 1:
	if pcs_energy < 60: pcs_energy = 60
end
if cheatShaveLegs = 1:
	if pcs_leghair > 0: pcs_leghair = 0
end
if cheatNoDrink = 1:
	if pcs_hydra < 60: pcs_hydra = 60
end
if cheatNoSleep = 1:
	if pcs_sleep < 35: pcs_sleep = 35
end

if cheatBandit = 1 and npc_horny['A66'] < 19: npc_horny['A66'] = 19

if alko > 0 and frost > 0:frost = 0
if StrongNarkota >= 20:
    if alko > 0:alko = 0
end

if lernSkill >= 8: gs 'exp_gain', 'intel', 1 & lernSkill = 0
if lern >= 10: gs 'exp_gain', 'intel', 1 & lern = 0

shameless = guy + stat['bj'] + stat['anal'] + stat['hj'] + ((slutty + gang) * 2)
moneySUM = money + karta + stolmoney
cumSUM = cumsumbod/40

if husbizvradd > 5:izvratH = 1
if husbharmin > 10:harakHusb = 0

if husband = 0:
	husbizvradd = 0
	husbharmin = 0
	husbandMark = 0
	houseslut = 0
end

if SNarkvnesh = 0:SNarkvnesh = 1

if SNarkTimes >= SNarkvnesh * 25:
	SNarkvnesh += 1
	vidage += 1
end
if food_loc > 0 and $food_loc <> $loc: killvar 'food_loc'

if gopota >= 20 and gnewQW = 1:gnewQW = 2
if workDisk = 4 and week > 5:workDisk = 1
if workDisk = 3 and week > 5:workDiskAtkPlayer = 1

if bfa < 0: bfa = 0

if pcs_vag > 36: pcs_vag = 36
if pcs_throat > 36: pcs_throat = 36
if pcs_ass > 36: pcs_ass = 36

if NarkImmune = 1:
	if narkoman ! 0:narkoman = 0
elseif nark >= 30 and narkoman = 0 and NarkImmune = 0:
	narkoman = 1
elseif nark = 0 and narkoman = 1:
	narkoman = 0
end

if cheatSlut = 1 or succubusflag = 1:
	!!Succubus cannot get pregnant
	mesec = 0
	FocH = 0
	EggRH = 0
	Ovulate = 0
	fertegg = 0
	UnfertEgg = 0
	PregChem = 0
	preg = 0
	LutH = 0
	RecovH = 0
	babyembryo = 0
	cycle = 1
end

if succubusflag = 1 and succublvl > 2 and rape > rape_count:
	!!High Level Succubus cannot get raped
	orgasm += 1
	rape = rape_count
	pcs_mood = 100
end

if pcs_horny < 50 and cheatHorny = 1: pcs_horny = 50

!!These will be made obsolete with the combat system overhaul
boxing = pcs_jab + pcs_punch + pcs_kick + pcs_def
if boxing > 100: boxing = 100

manamax = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo

!! Set the massage displayed each time the magik attribute is increased.
if $start_subtype ! 'nomagic':
	if pcs_magik > magikhigh:
		magikhigh = pcs_magik
		rikudo += pcs_magik * 100
		$stat_msg += '<BR><b>You feel like a strength has been revealed within you, and you gush with magic, lifting you to a new energy level.</b>'
!!		This will be replaced when a more advanced physical system is made
		if (pcs_magik mod 2 ! 0) and pcs_eyesize < 2: pcs_eyesize += 1
		if (pcs_magik mod 2 = 0) and pcs_lashes < 2: pcs_lashes += 1
	end
else
!!This is for error catching but also broke manamax calc which is why its now above this
	killvar 'pcs_magik'
	killvar 'rikudo'
	killvar 'pcs_splcstng'
end

if pcs_dom < 0: SUB = SUB - pcs_dom & pcs_dom = 0
if SUB < 0: pcs_dom = pcs_dom - SUB & SUB = 0

if pcs_dom > 100: pcs_dom = 100
if SUB > 100: SUB = 100

if SUB >= pcs_dom and pcs_dom > 0:SUB = SUB - pcs_dom & pcs_dom = 0
if pcs_dom >= SUB and SUB > 0:pcs_dom = pcs_dom - SUB & SUB = 0

if pcs_horny < 0: pcs_horny = 0
if pcs_inhib < 0:
	pcs_inhib = 0
elseif pcs_inhib > 100:
	pcs_inhib = 100
end

healthmax = (pcs_vital * 10 + pcs_stren * 5)
stammax = (30* (2 * pcs_vital + pcs_agil + pcs_stren) +1000)/ 13 - pregchem/10
speed = (2 * (pcs_stren + pcs_agil) + pcs_vital) / 5 - pregchem/100
if healthmax < 1: healthmax = 1
if willpowermax < 50: willpowermax = 50
if stammax < 1: stammax = 1
if manamax < 1: manamax = 1

!pre-calc max value for later display
if fairycurse >= daystart and fairyshoo > 0: pcs_horny = 90
if min_arousal > pcs_horny: pcs_horny = min_arousal
if Enable_lockhorny > 0 and pcs_horny < Enable_lockhorny - 1: pcs_horny = Enable_lockhorny - 1
if pcs_horny < 0: pcs_horny = 0
if pcs_health > healthmax: pcs_health = healthmax
if pcs_willpwr > willpowermax: pcs_willpwr = willpowermax
if pcs_stam > stammax: pcs_stam = stammax
if pcs_mana > manamax: pcs_mana = manamax
if pcs_mood > 100: pcs_mood = 100

!!set hair flow free
if hbraids > 5 and pcs_hairbsh = 0: hbraids -= rand(3,5) & pcs_hairbsh = 1
if pcs_hairbsh <= 0:
	if hscrunchw <> 0: hscrunchw = 0
	if hpingripw <> 0: hpingripw = 0
	if hpigtail <> 0: hpigtail = 0
	if hbraids <> 0: hbraids = 0
end

!!Add mood_trauma to events to lower max mood for a period of time
if mood_trauma > 0:
	mood_max_calc = 100 - (mood_trauma * 5)
	mood_max = max(10, mood_max_calc)
	if pcs_mood > mood_max: pcs_mood = mood_max
	killvar 'mood_max_calc'
elseif mood_trauma < 0:
	mood_trauma = 0
end

if hypnoAddict = 1 and pcs_horny < 30:
	pcs_horny = 30
elseif hypnoAddict = 2 and pcs_horny < 50:
	pcs_horny = 50
end
if cumloc[0] = 1 or cumloc[3] = 1 or hypnoAddict = 0:
	killvar 'missCum'
elseif missCum > timeTresh:
	if pcs_horny < 90: pcs_horny = 90
	if preziktype = 0 or preziktype = 2:
		if mc_inventory['normal_condoms'] > 0 and mc_inventory['sabotaged_condoms'] < rand(2,3): dynamic $din_Do_Condom_Counts, 4
		if preziktype <> 2 and mc_inventory['sabotaged_condoms'] > 0: dynamic $din_Do_Condom_Counts, 3
	end
end

!!!!!!!!!!!
!!!TIME!!!
!!!!!!!!!!!

!! total amount of minutes since the start of the game
if nminut ! minut or nhour ! hour:
	prevtotmin = totminut

	! sync totminut with daystart
	totminut = daystart - 1

	! Hours
	totminut = totminut * 24 + hour

	! Minutes
	totminut = totminut * 60 + minut

	nminut = minut
	nhour = hour
end

! Execute time based spells
gs 'spellTimer', prevtotmin, totminut

! Determine Incoming Telephone Calls
gs 'telefon', 'IncomingCheck', prevtotmin, totminut

!! deodorant
if deodorant_on = 1 and totminut > deodorant_time: gs 'sweat', 'remove_deo'

!!painkiller
if pain['killer'] > 0:
	if pain['killer'] = 1: pain_timer = totminut - 2
	pain['killer'] = totminut - pain_timer
	if pain['killer'] >= 243: pain['killer'] = 0
end

! WD: 'daystart' Should start at 1
if daystart = 0: daystart = 1

!!Gaping of vagina recovery time
!! [1] stored gape value
!! [3] timer
!! [4] time between each reduction in gape
if agape[4] = 0: agape[4] = 10
if vgape[4] = 0: vgape[4] = 10

if vgape > vgape[1]:
	vgape[3] = totminut
	vgape[1] = vgape
elseif vgape > 0:
	if (totminut - vgape[3])/vgape[4] >= 1: vgape -= 1
	vgape[1] = vgape
else
	vgape[3] = 0
end

!!Gaping of anus recovery time

if agape > agape[1]:
	agape[3] = totminut
	agape[1] = agape
elseif agape > 0:
	if (totminut - agape[3])/agape[4] >= 1: agape -= 1
	if agape = 0: agape[3] = 0
	agape[1] = agape
else
	agape[3] = 0
end

!!Recovery from spanking - will be superseded by pain system
if spanked > 0:
	if spankedtime = 0: spankedtime = totminut
	if (spankedtime + 2040) <= totminut:spanked -= 1 & spankedtime = 0
elseif spankedtime ! 0:
	killvar 'spankedtime'
end

!! Orgasmic cooldown
if orgasmic ! 0:
	if orgasmic < totminut - 30: orgasmic = 0 & pcs_horny = 0
end

!!!!!!!!!!!!!!! Heels pain and skill gain
!! This compares the player heels skill to the skill required to wear any heels the player
!! currently wears. If the skill needed is greater than the player currently possesses,
!! the pain in the feet increases and the player earns heels skill. If the skill required
!! is lower, the player might still get experience, depending on how much greater the
!! player skill is.

!! Variables
!! pcs_heels is the main heels skill
!! heels_exp is used when the player gains experience using heels
!! heels_deg is used when the player neglects their heels
!! PShoHeels tracks the height of the heels currently worn
!! heelsminut tracks when the heels skill was last changed
!! heelsRequiredskill substitutes PShoHeels to allow comparison with pcs_heels
!! heelsSkilldiff tracks difference between the players current and skill required by heels

!! Required skill for various heel sizes
!! 1 flats - 0
!! 2 low heel - 5
!! 3 Mid heel - 15
!! 4 High heel - 25
!! 5 ultra high heel - 40
!! 6 fetish heel - 60
!! Only run if at least X minutes have passed since last time
if heelsminut > totminut: heelsminut = totminut & !! fix for time cheat
if totminut >= heelsminut + 30:
	killvar 'tmp'
	heelstime = totminut-heelsminut
	heelsminut = totminut
	!! Only check experience and pain gain and if the player wears heels, flats give nothing
	if PShoHeels > 1:
		if PShoHeels = 2:
			heelsRequiredskill = 5
		elseif PShoHeels = 3:
			heelsRequiredskill = 15
		elseif PShoHeels = 4:
			heelsRequiredskill = 25
		elseif PShoHeels = 5:
			heelsRequiredskill = 40
		elseif PShoHeels = 6:
			heelsRequiredskill = 60
		end
		!! stat is called a lot, there should be a limit to how much exp and pain you can accumulate...
		!! If the player skill is below the required skill, give heel_exp and apply ache
		if pcs_heels < heelsRequiredskill:
			heelsSkilldiff = heelsRequiredskill - pcs_heels
			if heelsSkilldiff <= 5:
				tmp = rand(min(3,heelstime/30),min(6,heelstime/15))
				if pain['feet'] < 40: gs 'pain', rand(heelstime/30,heelstime/15), 'feet', 'ache'
			elseif heelsSkilldiff <= 10:
				tmp = rand(min(5,heelstime/20),min(9,heelstime/10))
				if pain['feet'] < 50: gs 'pain', rand(heelstime/25,heelstime/12), 'feet', 'ache'
			elseif heelsSkilldiff <= 15:
				tmp = rand(min(7,heelstime/15),min(12,heelstime/8))
				if pain['feet'] < 60: gs 'pain', rand(heelstime/20,heelstime/10), 'feet', 'ache'
			elseif heelsSkilldiff <= 20:
				tmp = rand(min(9,heelstime/10),min(15,heelstime/5))
				if pain['feet'] < 70: gs 'pain', rand(heelstime/15,heelstime/8), 'feet', 'ache'
			else
				tmp = rand(min(12,heelstime/5),min(20,heelstime/2))
				if pain['feet'] < 80: gs 'pain', rand(heelstime/10,heelstime/5), 'feet', 'ache'
			end
		!! Player skill is equal to or higher than the required skill
		!! Maybe have excessive skill result in no gain, or even a degrading skill?
		else
			heelsSkilldiff = pcs_heels - heelsRequiredskill
			gs 'pain', max(0, rand(heelstime/10,heelstime/5) - heelsSkilldiff), 'feet', 'ache'
			if heelsSkilldiff <= 5:
				tmp = rand(-2,0) + rand(min(8,heelstime/6),min(12,heelstime/3))
			elseif heelsSkilldiff <= 10:
				tmp = rand(-3,0) + rand(min(6,heelstime/10),min(9,heelstime/5))
			elseif heelsSkilldiff <= 15:
				tmp = rand(-4,0) + rand(min(5,heelstime/15),min(7,heelstime/10))
			elseif heelsSkilldiff <= 20:
				tmp = rand(-5,0) + rand(min(4,heelstime/20),min(6,heelstime/15))
			else
				tmp = rand(-6,0) + rand(min(3,heelstime/30),min(4,heelstime/20))
			end
		end
	!! If not wearing heels, degrade heels skill
	else
		tmp = rand(heelstime/30,heelstime/15)*-1
	end

	if tmp > 0:
		gs 'exp_gain', 'heels', tmp
	elseif tmp < 0:
		heels_deg += tmp
	end
	killvar 'tmp'
	killvar 'heelstime'
	killvar 'heelsSkilldiff'
	killvar 'heelsRequiredskill'
end
!!!!!!!!!!!!!!! End heels

!! Hourly Changes
~^stat_hourly_changes
if minut >= 60:
	:loopmin
	hour += 1
	minut -= 60

	gs 'hourly_events'

	if minut >= 60:jump 'loopmin'
end
~$gs:stat_hourly_changes
!! End of Hourly Changes

if hour >= 24: gs 'cikl'

if minut < 10:
	$nilmin = '0'
else
	$nilmin = ''
end

if kid > 0:
	i = arrsize('yearkid')
	:LoopKidAgeCounter
	if 	i >= 0:
		if yearkid[i] = year + 1 and monthkid[i] = month and daykid[i] = day: msg'It is <<$kidname[i]>>''s birthday today.'
		i -= 1
		jump 'LoopKidAgeCounter'
	end
end

if bimbolevel > 0:
	if bimbowithdrawal = 0:
		$bimbostatus = '<font color = #FF1493>You''re, like, super hawt today.</font>'
		$bimbo_tooltip = 'You''re, like, super hawt today.'
	elseif bimbowithdrawal = 1:
		$bimbostatus = '<font color="green">You feel, like, kind of lame today.</font>'
		$bimbo_tooltip = 'You feel, like, kind of lame today.'
	elseif bimbowithdrawal < 4:
		$bimbostatus = '<font color="grey">You feel, like, totally lame today.</font>'
		$bimbo_tooltip = 'You feel, like, totally lame today.'
	elseif bimbowithdrawal < 6:
		if pcs_mood > 50: pcs_mood -= 10
		$bimbostatus = '<font color="red">You really feel, like, awful today.</font>'
		$bimbo_tooltip = 'You really feel, like, awful today.'
	elseif bimbowithdrawal >= 6:
		if pcs_mood > 10: pcs_mood -= 10
		$bimbostatus= '<font color="red"><b>You feel that, like, horrible today!</b></font>'
		$bimbo_tooltip = 'You feel that, like, horrible today!'
	end
else
	bimbowithdrawal = 0
	$bimbostatus = ''
end


~^stat_15minutes_changes
!
! WD: Triggers every 15 minutes if not sleeping
! Update to remove long iterations on loading saves from previous versions

! Do Nothing if sleeping, invalid Trig15Minute value or more than 6 hours 16 minute pass
if insleep ! 0 or Trig15Minute > totminut or (totminut - Trig15Minute) >= 376:
	set Trig15Minute = totminut

! More than 15 minutes since last check
else
	if (totminut - Trig15Minute) >= 15:

		! begin Loop
		:Trig15MinuteLoop

		! Horny Actions
		if pcs_horny > 100:
			set Trig15Minute = totminut
		else
			set Trig15Minute += 15

			! WD: Fix vibrator arousal to trigger every 15 minutes, moved from 'time' location
			if vibratorin = 1:pcs_horny += rand(1, 5)

			! WD: Fixed Piecing arousal to trigger every 15 minutes, instead of once per day
			if pcs_horny < 70:
				hornystat = 0
				if pirsF > 0 and pirsF < 10000:hornystat += 1
				if pirsG > 0 and pirsG < 10000:hornystat += 1
				hornyStat = hornystat * 4
				if pirsA > 0 and pirsA < 10000:hornystat += 1
				if pirsB > 0 and pirsB < 10000:hornystat += 1
				if pirsC > 0 and pirsC < 10000:hornystat += 1
				if pirsD > 0 and pirsD < 10000:hornystat += 1
				if pirsE > 0 and pirsE < 10000:hornystat += 1
				if pirsN > 0 and pirsN < 10000:hornystat += 1
				set pcs_horny += hornyStat / 4 + rand(1,4) <= hornyStat mod 4 & ! Apply 1/4 of value on average
			end

			! WD: Clothing
			if CloStyle = 4 and pcs_horny < 70:set pcs_horny += rand(0, 2)
			if (PCloSkirt > 5 or PCloPants > 5) and pcs_horny < 50:set pcs_horny += rand(0, 1)
			if PCloTopCut = 4 and pcs_horny < 50:set pcs_horny += rand(0, 1)
		end

!!SECTION: Bimbo (15 minute interval update checks)
		if bimbolevel > 0:
			if (pcs_mood < 100): pcs_mood += (pcs_mood / 100) * max(0, (rand(bimbowithdrawal*-1,bimbolevel)))
			if pcs_horny < max(0, 30 - bimbowithdrawal * bimbolevel): pcs_horny = max(0, 30 - bimbowithdrawal * bimbolevel)
			if pcs_horny < 100: pcs_horny += max(0, rand(bimbowithdrawal/-2, bimbolevel))
		end
!!SECTION: Commando trait (15 minute interval update checks)
		if $clothingworntype ! 'nude':
			if $pantyworntype = 'none':
!! Addition to trait exp/lvls
				if pcs_traits['commando_lvl'] = 0:
					if PCloSkirt > 0:
						pcs_traits['commando_exp'] += 2
					else
						pcs_traits['commando_exp'] += 1
					end
					if pcs_traits['commando_exp'] >= 1000:
						pcs_traits['commando_exp'] = 50
						pcs_traits['commando_lvl'] = 1
						msg'You have gained the Commando trait! You have become accustomed to the idea you don''t have to wear panties all the time and can now comfortably wear skirts without panties. Pants are still a little itchy though...'
					end
				elseif pcs_traits['commando_lvl'] = 1:
					pcs_traits['commando_exp'] += 2
					if pcs_traits['commando_exp'] >= 1000:
						pcs_traits['commando_exp'] = 50
						pcs_traits['commando_lvl'] = 2
						msg'You have gained the 2nd level of the Commando trait! You have become very comfortable without panties and the raw insides of your pants no longer irritate your pussy.'
					end
				elseif pcs_traits['commando_lvl'] = 2:
					mosol = 0
					pcs_traits['commando_exp'] += 2
					if pcs_traits['commando_exp'] >= 1000:
						pcs_traits['commando_exp'] = 500
						pcs_traits['commando_lvl'] = 3
						msg'You have gained the 3rd level of the Commando trait! You have become so accustomed to going commando that any kind of underwear over your hips just feels <i>wrong</i>. You suffer mood penalties while wearing panties.'
					end
				elseif pcs_traits['commando_lvl'] = 3:
					pcs_traits['commando_exp'] += 1
				end
			elseif pcs_traits['commando_lvl'] > 0:
!!Reduction from exp/lvls
				if pcs_traits['commando_lvl'] = 3:
					pcs_traits['commando_exp'] -= 1
					pcs_mood -= 1
					if pcs_traits['commando_exp'] <= 0:
						pcs_traits['commando_exp'] = 500
						pcs_traits['commando_lvl'] = 2
						msg'You have lost the 3rd level of the Commando trait! You are now only comfortable not wearing panties and will not suffer irritation from wearing pants while going commando.'
					end
				else
					pcs_traits['commando_exp'] -= 1
					if pcs_traits['commando_exp'] <= -0:
						pcs_traits['commando_exp'] = 900
						pcs_traits['commando_lvl'] -= 1
					end
				end
			end
!!{
			if $braworntype = 'none':

			end}
		end


!!	This is the Succubus non-direct injection (pun intented) sex to sexnutrition and the sexnutrition conversion handling
		if succubusflag = 1:
			if hypnoAddict > 0: dynamic $RestTherapyVariables
			if pcs_horny < 50: pcs_horny = 50
			if pcs_horny < 100: pcs_horny += succublvl
			if succhungry > 0:
				pcs_energy -= succhungry * succublvl
				pcs_hydra -= succhungry * succublvl
				pcs_sleep -= succhungry * succublvl
			end

			if arrsize('sparrvol') > 0:
				suctempi = -1
				:SuccAbsorbLoop
				suctempi += 1
				if suctempi <= 1 or suctempi = 3 or suctempi = 4 or suctempi >= 8:
					suctemparr = arrpos('sparrloc',suctempi)
					if suctemparr >= 0 and sparrloc[suctemparr] = suctempi and sparrvol[suctemparr] > 0:
						scfeed = succublvl + rand(1,4)
						sexnutrition += 30 * scfeed
						succubxp += 5
						cumsumbod -= sparrvol[suctemparr]
!						msg "we've got xp!" + sparrloc[suctemparr]
						sucabscum = 1
						gs 'cum_cleanup', 'cleandeposit', suctemparr
						cumloc[suctempi] = 0
						!debug code $stat_msg += '<BR>Absorb ext <<sexnutrition>>'
					end
				end
				if suctempi < 17:jump 'SuccAbsorbLoop'
				cumspclnt = 20 & gs 'cum_cleanup'
			end
			if suclezsex < lesbian:
				sexnutrition += succublvl * 20
				suclezsex = lesbian
				succubxp += 5
				sucabslez = 1
			end
			if sexnutrition > 0:
				if sucskill >= 3 and succublvl >= 2: sexnutrition += (sexnutrition * 2) / 10
				if sucabslez = 1 and sucabscum = 1:
					$sucabs1 = 'absorbed energy from the woman you had sex with'
					$sucabs2 = ' and you '
					$sucabs3 = 'absorb the semen in your body'
				elseif sucabscum = 1:
					$sucabs3 = 'absorb the semen in your body'
				elseif sucabslez = 1:
					$sucabs1 = 'absorbed energy from the woman you had sex with'
				else
					!!Debug code
					$stat_msg += '<BR>SOMETHING HAPPENED!'
				end
				$stat_msg += '<BR>You <<$sucabs1>><<$sucabs2>><<$sucabs3>>, gaining nourishment.'
				sucabslez = 0 & sucabscum = 0
				$sucabs1 = '' & $sucabs2 = '' & $sucabs3 = ''
				if (pcs_mood < 100): pcs_mood += ((pcs_mood / 100) * 5)
				if pcs_energy > 100: entemp = (pcs_energy - 100)
				if sucexcess < 0 and sexnutrition > 20 and pcs_energy > 30:
					if sexnutrition - 20 >= (0 - sucexcess) * 2:
						sexnutrition += sucexcess * 2
						sucexcess = 0
					else
						sucexcess += (sexnutrition - 20) / 2
						sexnutrition = 20
					end
				end
				pcs_energy += sexnutrition / 2
				pcs_hydra += sexnutrition
				pcs_sleep += sexnutrition / 20
				if succhungry > 0: succhungry = 0
				sexnutrition = 0
				if pcs_energy > 100: sucexcess += (pcs_energy - entemp - 100) & pcs_energy = 100 + entemp & killvar 'entemp'
			end
		end

!! safeguards to prevent bimbolevel from going above or below its intended limits
		if bimbolevel > 3: bimbolevel = 3
		if bimbolevel < 0: bimbolevel = 0

		! do loop
		if (totminut - Trig15Minute) >= 15:jump 'Trig15MinuteLoop'
	end
end

~$gs:stat_15minutes_changes
!!!!!!!!!!!!!
!!!ENERGY!!!
!!!!!!!!!!!!!

if succubusflag = 1:
	if pcs_energy < 0:
		if fat >= 1:
			if cheatNoFat = 0: fat -= 2
			pcs_energy += 8 + succublvl
		else
			pcs_energy += 8 + succublvl
			sucexcess -= (8 + succublvl) * (6 - succublvl)
		end
	end
	if pcs_health < 0:
		pcs_health = 10
		sucexcess -= 25 * (9 - succublvl)
	end
	if pcs_willpwr < 0:
		pcs_willpwr = 10
		sucexcess -= 20 * (9 - succublvl)
		sucpowzeroed = 4
	end
end

if pcs_sleep < 0:
	pcs_sleep = 0
	pcs_mood -= 5
end

if pcs_energy < 0:
	pcs_energy = 0
	pcs_health -= 5

	if pcs_mass['body'] = 0 and pcs_stren + pcs_vital > 0:
		stren_deg -= 1
		vital_deg -= 1
		pcs_energy += 8
	elseif pcs_mass['body'] = 0 and pcs_stren + pcs_vital <= 0:
		if Enable_nogameover = 0 :
			over = 3
			if $loc ! 'gameover': gt 'gameover'
			exit
		else
			$stat_msg += '<BR><font color=red><B>You starved to death, but Cheat Mode keeps you Alive.</B></font>'
			fat = 1
		end
	elseif pcs_mass['body'] > 0:
		if cheatNoFat = 0: fat -= 1
		pcs_energy += 8
	end
end

if pcs_hydra <= 0:
	pcs_hydra = 1
	pcs_health -= 5
end

!!Set hydra_check value
hydra_check = pcs_hydra

if pcs_mood <= 0:
	pcs_mood = 1
	pcs_health -= 5
end

if pcs_health < 0:
	if Enable_nogameover = 0 :
		over = 1
		if $loc ! 'gameover': gt 'gameover'
		exit & !nogameover by illume
	else
		$stat_msg += '<BR><font color=red><B>You died from injuries, but Cheat Mode keeps you Alive.</B></font>'
		pcs_health = 0
	end
end

if pcs_willpwr <= 0 :
	!this will set willpower to 0 correctly; then check mana =1 for insane-gameover(pcs_willpwr=0&mana=1).
	if pcs_mood <= 1:
		if Enable_nogameover = 0 :
			over = 2
			if $loc ! 'gameover': gt 'gameover'
			exit & !nogameover by illume
		else
			$stat_msg += '<BR><font color=red><B>You are insane, but Cheat Mode keeps you Alive.</B></font>'
			!pcs_mood already checked for >=1 in line 1113 if pcs_mood <= 0, no need to set another one
		end
	end
	pcs_willpwr = 0
end

!!cars-increase/depressed mood after orgasm/rape
if rape > 0 and rape ! rape_count and orgasm = orgasm_count:
	pcs_mood = 10
	rape_count = rape
elseif orgasm > 0 and orgasm ! orgasm_count:
	pcs_mood = 100
	orgasm_count = orgasm
elseif rape > 0 and rape ! rape_count and orgasm > 0 and orgasm ! orgasm_count:
	pcs_mood = 100
	orgasm_count = orgasm
	rape_count = rape
end
!! Drug stats
if StrongNarkota <= 0:
	if SNarkTimes >= 3 and SLomka = 0:SLomka = 1
end

if amphCount > 3 and amphHigh <= 0:
	addictChance = rand(1,10)
	if addictChance > 8:
		amphWithdrawl = 2
	end
end

if StrongNarkota > 0:
	if SLomka > 0:SLomka = 0
	pcs_mood = 100
end

!!Health, Willpower, Auto Birth Control pregnancy check
gs 'body', 'RegularUpdate'
gs 'body', 'Update_Appearance'

if pcs_health >= healthmax:
	$pcs_health = '<font color="green">You are very healthy.</font>'
elseif pcs_health >= healthmax * 75 / 100:
	$pcs_health = '<font color=#0064FF>You are healthy.</font>'
elseif pcs_health >= healthmax * 50 / 100:
	$pcs_health = '<font color="brown">You are not healthy.</font>'
elseif pcs_health >= healthmax * 25 / 100:
	$pcs_health = '<font color="red">You are sick.</font>'
else
	$pcs_health = '<font color="red">You are on the verge of death.</font>'
end

if pcs_willpwr >= willpowermax:
	$pcs_willpwr = '<font color="green">You feel in charge of your actions.</font>'
elseif pcs_willpwr >= willpowermax * 75 / 100:
	$pcs_willpwr = '<font color=#0064FF>You are mostly in control.</font>'
elseif pcs_willpwr >= willpowermax * 50 / 100:
	$pcs_willpwr = '<font color="brown">You might have to make some concessions.</font>'
elseif pcs_willpwr >= willpowermax * 25 / 100:
	$pcs_willpwr = '<font color="red">You will have to toe the line.</font>'
else
	$pcs_willpwr = '<font color="red">You are completely at other people''s mercy.</font>'
end

!!stop auto birth control pill taking if the player believes they are pregnant or are pregnant
if thinkpreg = 1 or knowpreg = 1:
	if tabletkicheck = 1: tabletkicheck = 0
	if birth_control['remind_hour'] > 0:
		birth_control['remind_hour'] = 0
		if birth_control['remind_icon'] = 1: birth_control['remind_icon'] = 0
	end
elseif birth_control['remind_hour'] > 0 and hour >= birth_control['remind_hour'] and hour <= birth_control['remind_hour'] + 1 and tabletkiday ! daystart:
	birth_control['remind_icon'] = 1
else
	birth_control['remind_icon'] = 0
end

if tabletkicheck = 1 and tabletkichday < daystart and birth_control['auto_hour'] > 0 and hour >= birth_control['auto_hour'] and hour <= birth_control['auto_hour'] + 1 and InSleep = 0 and menu_off = 0 and $location_type ! 'event' and $location_type ! 'event_outdoors':
	gs 'fertility', 'auto_pill'
end

!! detected change in pillcon
if pillcon ! birth_control['old_pillcon'] or pillcon2 ! birth_control['old_pillcon2']: gs 'fertility', 'update'

gs 'cum_manage', 'cum_decay'

!!Mood
if cheatNoMood = 0:
	maxmood = 100 - moodmodifier
	if pcs_mood > 100:
		pcs_mood = 100
	elseif pcs_mood < 0:
		pcs_mood = 0
	!!	Asylum: basically this means clinically insane, like court-ordered committed, saliva dripping, blubbering... Ordinarily irreversible at this stage meaning Game Over, but cheat can help
	end
else
	pcs_mood = 100
	mood_trauma = 0
end

if Gerpes >= 3 or Sifilis >= 21 or Triper > 2:
	$msg_extra = ' it is being reduced due to an STD'
else
	killvar '$msg_extra'
end

if pcs_mood >= 80:
	$pcs_mood = '<font color="green">You are in a great mood<<$msg_extra>>.</font>'
elseif pcs_mood >= 60:
	$pcs_mood = '<font color=#0064FF>You are in a good mood<<$msg_extra>>.</font>'
elseif pcs_mood >= 40:
	$pcs_mood = '<font color="brown">You are in an OK mood<<$msg_extra>>.</font>'
elseif pcs_mood >= 20:
	$pcs_mood = '<font color="orange">You are in a bad mood<<$msg_extra>>.</font>'
elseif pcs_mood >= 5:
	$pcs_mood = '<font color="red">You are in a terrible mood<<$msg_extra>>.</font>'
else
	$pcs_mood = '<font color="red">You are really depressed and need to improve your mood<<$msg_extra>>.</font>'
end

if pcs_energy >= 80:
	$pcs_energy = '<font color="green">You couldn''t eat one more bite.</font>'
elseif pcs_energy >= 40:
	$pcs_energy = '<font color=#0064FF>You''re not really hungry, but a small snack would be very welcome.</font>'
elseif pcs_energy >= 8:
	$pcs_energy = '<font color="brown">You are hungry.</font>'
else
	$pcs_energy = '<font color="red">You are very hungry.</font>'
end

if pcs_hydra >= 80:
	$pcs_hydra = '<font color="green">You are not thirsty at all.</font>'
elseif pcs_hydra >= 40:
	$pcs_hydra = '<font color=#0064FF>You are slightly thirsty.</font>'
elseif pcs_hydra >= 8:
	$pcs_hydra = '<font color="brown">You are thirsty.</font>'
else
	$pcs_hydra = '<font color="red">You are very thirsty.</font>'
end

if pcs_sleep >= 80:
	$pcs_sleep = '<font color="green">You are well rested.</font>'
elseif pcs_sleep >= 40:
	$pcs_sleep = '<font color=#0064FF>You are slightly tired.</font>'
elseif pcs_sleep >= 8:
	$pcs_sleep = '<font color="brown">You are tired.</font>'
else
	$pcs_sleep = '<font color="red">You are very tired.</font>'
end

if workFabrika = 1 and week => 1 and week <= 5 and hour > 8 and age => 16 and age < 18 and FabrikaProgulDay ! day or workFabrika = 1 and week => 1 and week <= 5 and hour > 16 and age > 18 and FabrikaProgulDay ! day:
	!!absence from work in a factory in Pavlovsk
	FabrikaProgul += 1
	FabrikaProgulDay = day
end

if hotelRoom['pav_hotel'] > 0:
	if hotelRoomDays['pav_hotel'] - 1 = daystart:
		$stat_msg += '<BR>You have 1 night left on your Pavlosk hotel booking.'
	elseif hotelRoomDays['pav_hotel'] = daystart and hour < 11:
		$stat_msg += '<BR>Your room at the Pavlosk hotel has check out today at 11:00'
	elseif hotelRoomDays['pav_hotel'] = daystart:
		hotelRoom['pav_hotel'] = 0
	end
end

if hotelRoom['city_hotel'] > 0:
	if hotelRoomDays['city_hotel'] - 1 = daystart:
		$stat_msg += '<BR>You have 1 night left on your St Petersburg hotel booking.'
	elseif hotelRoomDays['city_hotel'] = daystart and hour < 11:
		$stat_msg += '<BR>Your room at the St Petersburg hotel has check out today at 11:00'
	elseif hotelRoomDays['city_hotel'] = daystart:
		hotelRoom['city_hotel'] = 0
	end
end

if hour >= 8 and hour < 14 and week < 6 and mid($start_type,1,2) = 'sg' and SchoolAtestat = 0 and isSchoolHoliday = 0 and schoolProgulDay ! daystart:
	!!absence from school
	schoolprogul += 1
	schoolProgulDay = daystart
end

if cumcondslip <= 0: cumcondslip_deep = 0
!!Sex stat update
stat['mast'] += mastr & mastr = 0
stat['hj'] += hj & hj = 0
stat['bj'] += bj & bj = 0
stat['vaginal'] += sex & sex = 0
stat['anal'] += anal & anal = 0
stat['cuni'] += kuni & kuni = 0
stat['anal_strap_give'] += pegging & pegging = 0

!!Pain calculation
gs 'pain', 'calc'
pain['relief'] = 0

if alko > 9:
	pain['relief'] = 70
elseif alko > 6:
	pain['relief'] = 40
elseif alko > 3:
	pain['relief'] = 15
end

if StrongNarkota > 0:
	pain['relief'] = 90
elseif nark > 0:
	pain['relief'] = 60
elseif pain['killer'] > 12 and alko <= 9:
	pain['relief'] = 50
end

if pain['relief'] ! 0:
	if (pain['total'] / pain['relief']) > 0:
		pain['total'] = pain['total'] / pain['relief']
	elseif pain['total'] > 0:
		pain['total'] = 0
	end
end

if pain['total'] > 80:
	if (pcs_health * 5) >= healthmax: pcs_health = pcs_health * 20 / 100
	if (pcs_mood * 5) >= 100: pcs_mood = pcs_mood * 20 / 100
elseif pain['total'] > 60:
	if (pcs_health * 5 / 2) >= healthmax: pcs_health = pcs_health * 40 / 100
	if (pcs_mood * 5 / 2) >= 100: pcs_mood = pcs_mood * 40 / 100
elseif pain['total'] > 40:
	if (pcs_health * 5 / 3) >= healthmax: pcs_health = pcs_health * 60 / 100
	if (pcs_mood * 5 / 3) >= 100: pcs_mood = pcs_mood * 60 / 100
elseif pain['total'] > 20:
	if (pcs_health * 5 / 4) >= healthmax: pcs_health = pcs_health * 80 / 100
	if (pcs_mood * 5 / 4) >= 100: pcs_mood = pcs_mood * 80 / 100
elseif pain['total'] > 0:
	if (pcs_health * 10 / 9) >= healthmax: pcs_health = pcs_health * 90 / 100
	if (pcs_mood * 10 / 9) >= 100: pcs_mood = pcs_mood * 90 / 100
end

!!--------------------------pain calculation end--------------------------------

!!update skills and attributes to pcs_ from there _lvl values plus adjustments based on condition
gs 'stat_sklattrib_lvlset'

!!Sleep variable cap
if pcs_sleep > 100: pcs_sleep = 100

if insleep = 0: gs 'stat_display'

gs 'family_schedule'


!!--------------------------Job Checks For Icons--------------------------------

if (acting['shoot_day'] = daystart and actress_cast = 1) or (audition['day'] = daystart):
	acting['icon'] = 1
else
	acting['icon'] = 0
end

if model_job_week < 2 and model['status'] = 1:
	model['icon'] = 1
else
	model['icon'] = 0
end

if pfilmday[0] > 0:
	pornstar['icon'] = 1
else
	pornstar['icon'] = 0
end

if hypnoSchedule = 1:
	if therapist_weekly_block = 0 and week = 4 and therapistday ! daystart and remindedtherapyday ! daystart:
		if menu_off = 0 and workDolg = 0:
			if (hour >= 18 and (minut > 45 or hour >= 19)) _
			and (hour < 20 and (minut < 15 or hour < 19)):
				gs 'therapist_reminder'
			end
		end
	end
end

!!--------------------------Booty Call SMSs--------------------------------

if arrsize('$FuckBuddy') > 0  and hour > 1: gs 'booty_call', 'SMS raiser'

--- stat ---------------------------------