glife/locations/stat

# stat
clr
if Enable_Android = 0:
	if oldobjmenu = 0:
		gs 'obj_din', 'new'
	else
		gs 'obj_din', 'old'
	end
end

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

view
rand1=rand(0,100)
$stat_msg=''
if poSkill > 1000:poSkill = 1000

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

if analplay >= 2 and anus <= 10:anus += 1 & analplay = 0
if analplay >= 4 and anus <= 15:anus += 1 & analplay = 0
if analplay >= 8 and anus <= 20:anus += 1 & analplay = 0

musle[1] = musle
flex[1] = pcs_agil
stamina[1] = pcs_vital * 3
wipo[1] = will
intel[1] = pcs_intel - bimbostupidity
krasota[1] = vnesh
rost[1] = rost
salo[1] = salo
fat[1] = fat
Bteh[1] = bteh
Uteh[1] = uteh
Zteh[1] = zteh
!!flex[0] = pcs_agil
!!stamina[0] = pcs_vital * 3
!!krasota[0] = vnesh
!!wipo[0] = will

!!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

!!!CHEATS!!!
if cheatWork = 1:work = 0
if cheatWorkKiskis = 1:young_shop_miss = 0
if cheatHapri = 1:hapri = 1
if cheatKlisma = 1:klismaday = daystart & klismaday1 = 1

if cheatNomakeup = 1:
	if mop = 0:mop = 1
end

if cheatNosweat = 1 and sweat > 0:sweat = 0

if cheatNoEat = 1:
	if energy < 35:energy = 35
	if water < 35:water = 35
end

if cheatpirate = 1 and pirathorny < 20:pirathorny = 20

if CheatNoSleep = 1 and son < 35:son = 35

if alko > 0 and frost > 0:frost = 0
if StrongNarkota >= 20:
    if alko > 0:alko = 0
end
if lernSkill >= 8:pcs_intel += 1 & lernSkill = 0

if lern >= 10:pcs_intel += 1 & lern = 0
if GorSlut = 1:
	$gnikname = 'flirt'
elseif GorSlut = 2:
	$gnikname = 'cocksucker'
elseif GorSlut = 3:
	$gnikname = 'easy lay'
elseif GorSlut = 4:
	$gnikname = 'sex addict'
elseif GorSlut = 5:
	$gnikname = 'slut'
elseif GorSlut = 6:
	$gnikname = 'talking pussy'
end

if GorSlut >= 2:KatjaKnowBJ = 1
if GorSlut >= 1 or preg > 0:KatjaKnowSex = 1
if GorSlut > 6: GorSlut = 6

if film > 0:
 !pornoaktrissa
	$kompromatFoto = 'The photo is a screenshot from one of your porn movies.'

elseif fotoyousuck = 1:
	!!sucked in a couple of guys and was sfotografirovanna
	$kompromatFoto = 'The picture shows you sucking two cocks at the same time.'

elseif fotoCFNMsex > 0:
	$kompromatFoto = 'In the photo you see yourself getting fucked from behind by a random guy. This must have been taken in the stripclub.'

elseif fotoCFNMblowjobCum > 0:
	!!cum on face in the strip club
	$kompromatFoto = 'In the photo you are sitting infront of a guy, kissing his cock. There seems to be cum on your face. This photo must have been taken in the stripclub.'

elseif fotoCFNMblowjob > 0:
	!!sucked in front of everyone
	$kompromatFoto = 'In the photo you are giving a guy a blowjob. You can spot a group of women in the background and it seems like this photo was taken in the stripclub.'

elseif stripdancesum > 0:
	!!stripper
	$kompromatFoto = 'In the photo you are dancing on a pole. Obviously someone photographed you, while you were on stage at the stripclub.'

elseif modelfoto > 0:
	!!photo model
	$kompromatFoto = 'The photo shows you naked, it is very well taken and must be from a shoot at the modeling agency.'
end

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 clrbelo < 0:clrbelo = 0 & tanga = 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 gopota >= 20 and gnewQW = 1:gnewQW = 2
if workDisk = 4 and week > 5:workDisk = 1
if workDisk = 3 and week > 5:workDiskAtkPlayer = 1

if fat < 0:fat = 0
if vokal < 0:vokal = 0
if vokal > 100:vokal = 100
if dance > 100:dance = 100
if stripdance > 100:stripdance = 100
if poledance > 100:poledance = 100


if bfa < 0:bfa = 0
if beg < 0:beg = 0
if beg > 2000:beg = 2000
if oficiant > 100:oficiant = 100
if vagina > 36:vagina = 36
if throat > 36:throat = 36
if anus > 36:anus = 36
if Jab > 120:Jab = 120
if Punch > 120:Punch = 120
if Kik > 120:Kik = 120
if KikDef > 120:KikDef = 120
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
	if pcs_horny < 50 and CheatSlut = 1: pcs_horny = 50
end

boxing = Jab + Punch + Kik + KikDef

if boxing > 100:boxing = 100

if pcs_stren > 100 and mutagenP = 0:pcs_stren = 100
if speed > 100 and mutagenS = 0:speed = 100
if pcs_agil > 100 and mutagenA = 0:pcs_agil = 100
if react > 100 and mutagenR = 0:react = 100
if pcs_vital > 100 and mutagenV = 0:pcs_vital = 100
if will > 100 and mutagenW = 0:will = 100
if pcs_intel > 100 and mutagenI = 0 and student = 0 and diplom = 0:pcs_intel = 100

if pcs_stren > 150 and mutagenP = 1:pcs_stren = 150
if speed > 150 and mutagenS = 1:speed = 150
if pcs_agil > 150 and mutagenA = 1:pcs_agil = 150
if react > 150 and mutagenR = 1:react = 150
if pcs_vital > 150 and mutagenV = 1:pcs_vital = 150
if will > 150 and mutagenW = 1:will = 150
if pcs_intel > 150 and mutagenI = 1 and student = 0 and diplom = 0:pcs_intel = 150

if pcs_stren > 200 and mutagenP = 2:pcs_stren = 200
if speed > 200 and mutagenS = 2:speed = 200
if pcs_agil > 200 and mutagenA = 2:pcs_agil = 200
if react > 200 and mutagenR = 2:react = 200
if pcs_vital > 200 and mutagenV = 2:pcs_vital = 200
if will > 200 and mutagenW = 2:will = 200
if pcs_intel > 200 and mutagenI = 2 and student = 0 and diplom = 0:pcs_intel = 200

if pcs_stren > 250 and mutagenP = 3:pcs_stren = 250
if speed > 250 and mutagenS = 3:speed = 250
if pcs_agil > 250 and mutagenA = 3:pcs_agil = 250
if react > 250 and mutagenR = 3:react = 250
if pcs_vital > 250 and mutagenV = 3:pcs_vital = 250
if will > 250 and mutagenW = 3:will = 250
if pcs_intel > 250 and mutagenI = 3 and student = 0 and diplom = 0:pcs_intel = 250

if pcs_intel > 250:pcs_intel = 250

if MagikDostup = 0:
	!!!CV edition: Moved the statement after each orgasm stage to it''s own string
	$levelUpString = '<b>You feel like a strength has been revealed within you and you gush with magic, lifting you to a new energy level.</b>'

	if orgasm >= 1 and magik < 1:
		magik = 1
		glaraz += 1
		rikudo += 500
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 2 and magik < 2:
		magik = 2
		resnic += 1
		rikudo += 500
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 4 and magik < 3:
		magik = 3
		glaraz += 1
		rikudo += 500
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 8 and magik < 4:
		magik = 4
		resnic += 1
		rikudo += 500
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 16 and magik < 5:
		magik = 5
		glaraz += 1
		rikudo += 500
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 32 and magik < 6:
		magik = 6
		resnic += 1
		rikudo += 1000
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 64 and magik < 7:
		magik = 7
		glaraz += 1
		rikudo += 1000
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 100 and magik < 8:
		magik = 8
		rikudo += 1000
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 200 and magik < 9:
		magik = 9
		rikudo += 1000
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 300 and magik < 10:
		magik = 10
		rikudo += 2000
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 400 and magik < 11:
		magik = 11
		rikudo += 4000
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 500 and magik < 12:
		magik = 12
		rikudo += 4000
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 600 and magik < 13:
		magik = 13
		rikudo += 4000
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 700 and magik < 14:
		magik = 14
		rikudo += 4000
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 800 and magik < 15:
		magik = 15
		rikudo += 8000
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 900 and magik < 16:
		magik = 16
		rikudo += 8000
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 1000 and magik < 17:
		magik = 17
		rikudo += 8000
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 1100 and magik < 18:
		magik = 18
		rikudo += 8000
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 1200 and magik < 19:
		magik = 19
		rikudo += 8000
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 1300 and magik < 20:
		magik = 20
		rikudo += 16000
		$stat_msg += '<BR>' + $levelUpString
	elseif orgasm >= 1400 and magik < 20:
		magik = 21
		rikudo += 21000
		$stat_msg += '<BR>' + $levelUpString
	end
	!!!
end

if pcs_dom > 100: pcs_dom = 100
if SUB > 100: SUB = 100
if VAF > 200: VAF = 200

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
healthmax = (pcs_vital*10 + pcs_stren*5)
willpowermax = (pcs_intel*5 + will*5)
mannamax = (pcs_intel * magik) + magik * 100 + pcs_vital * 10 + rikudo
if healthmax < 1:healthmax = 1
if willpowermax < 1:willpowermax = 1
if mannamax < 1:mannamax = 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 health > healthmax:health = healthmax
if willpower > willpowermax:willpower = willpowermax
if manna > mannamax:manna = mannamax

if hypnoAddict = 1 and pcs_horny < 30:
	pcs_horny = 30
elseif hypnoAddict = 2 and pcs_horny < 50:
	pcs_horny = 50
end
if spdirtyi = 1 or hypnoAddict = 0:missCum = 0
if missCum >= timeTresh:
	if pcs_horny < 90:pcs_horny = 90
	if preziktype = 0: prezikcount = prezik
	if preziktype = 2: preziksabo = prezik
	prezik = 0
	preziktype = 1
end

	

!!musle = strenbuf + vitalbuf

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


! WD: totminut fix ~ Calculates total minutes since NYE 2000

if nminut ! minut:
	! Zero totminut will be at New Years Eve of 2015

	! Years since 2015 in days
	totminut = (year - 2015) * 365

	! Days this year
	if month > 1 : totminut += 31 & ! Jan
	if month > 2 : totminut += 28 & ! Feb
	if month > 3 : totminut += 31 & ! Mar
	if month > 4 : totminut += 30 & ! Apr
	if month > 5 : totminut += 31 & ! May
	if month > 6 : totminut += 30 & ! Jun
	if month > 7 : totminut += 31 & ! Jul
	if month > 8 : totminut += 31 & ! Aug
	if month > 9 : totminut += 30 & ! Sep
	if month > 10: totminut += 31 & ! Oct
	if month > 11: totminut += 30 & ! Nov
	if month > 12: totminut += 31 & ! Dec
	if month > 13: totminut += 31 & ! Jan rollover sanity check
	totminut += day

	! Hours
	totminut = totminut * 24 + hour

	! Minutes
	totminut = totminut * 60 + minut + sec / 60

	nminut = minut
end

!!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
if vgape > 0:
	if vgapetime = 0: vgapetime = totminut
	if (vgapetime + 2500) <= totminut:vgape -= 1 & vgapetime = 0
end

!!Gaping of anus recovery time
if agape > 0:
	if agapetime = 0: agapetime = totminut
	if (agapetime + 2500) <= totminut:agape -= 1 & agapetime = 0
end

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

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

if sec >= 60:
	:loopsec
	minut += 1
	sec -= 60

	if sec >= 60:jump 'loopsec'
end

if minut >= 60:
	:loopmin
	hour += 1

	if SbrosNerdism = 1:Astat_nerd[pc] = will / 10 - orgasm
	if Astat_nerd[pc] < 0:Astat_nerd[pc] = 0
	if obkvsdam > 0:obkvsdam = rand(2, 5)

	if scpopt > 1: scpopt = 0

	if insleep = 1:
		energy -= (4 + succublvl/2)
		water -= (4 + succublvl/2)
		son -= 4
	else
		energy -= (8 + succublvl)
		water -= (8 + succublvl)
		son -= 4
	end

	minut -= 60
	gs 'femcyc'
	if hypnoAddict > 0:dynamic $hypnoAddiction

	if alko > 0 and alkoblock = 0:
		if alko >= 4:
			if beg > 0:beg -= 1
			if pcs_vball >= 50:pcs_vball -= 1
			
			if alko >= 6:
				if pcs_stren > 10:pcs_stren -= 1
				if pcs_vital > 10:pcs_vital -= 1
				if pcs_intel > 10:pcs_intel -= 1

				alko -= rand (1, 2)
			end
		end

		alko -= 1
	end

	!!!!!!!!!!!!!
	!!!Avtoboy!!!
	!!!!!!!!!!!!!
	if hour >= 8 and hour <= 23 and NPCnum > 10 and insleep = 0:
		:markturnirotbort
		xf = 0
		:markturnirotbortt
		xf += 1
		turnirFighter[xf] = rand(2, NPCnum)

		if xf < 2:jump 'markturnirotbortt'
		if turnirFighter[1] = turnirFighter[2]:jump 'markturnirotbort'

		a = turnirFighter[1]
		i = turnirFighter[2]
		NoView = 1
		gs 'Autofight'
	end
	!!!!!!!!!!!!!

	if shame > 0:shame -= 1 & manna -= 5
	if smoker >= 20:smokerNeed += 1
	if smokerNeed > 10 and InSleep = 0:manna -= manna * 10/100
	if smokerNeed > 300:smokerNeed = 0 & smoker = 0
	if StrongNarkota > 0:StrongNarkota -= 1
	if SLomka > 0:SLomka += 1 & manna -= 500
	if SLomka > 100 and StrongNarkota <= 0:SLomka = 0 & SNarkTimes = 0

	if narkoman = 1 and narkday ! daystart:
		health -= 5
		willpower -= 5
		manna -= 10
	end

	if tanga = 0 and PCloPants > 0 and $clothingworntype ! 'nude':mosolpred += 1
	

	if mosolpred >= 10:
		mosol += 1
		mosolpred -= 10
	end

	if mosol >= 50:
		manna -= 5
	end

	if energy > 100:
		fat += (energy - 100) / 4
		energy = 100
	end

	if mosol > 0:
		if tanga = 1 or $clothingworntype = 'nude':mosol -= 1
	end
	
	if lipbalmstat > 0:lipbalmstat -= 1
	if sickstage = 1:sick += 1 & sicktimer += 1
	if sickstage = 1 and sicktimer >= 80:sicktimer = 0 & sickstage = 2
	if sickstage = 2 and sick > 0:sick -= 1
	if sickstage = 2 and sick <= 0:sick = 0 & sickstage = 0
	if perkice > 0:perkice -= 1
	if frost > 0:frost -= 1

	if KGOLpers > 0:
		if KGHP < KGHPMAX:KGHP += 10
		if KGManna < KGMannaMax:KGManna += 10
	end

	if pain['head'] > 0:pain['head'] -= rand(0,1)
	if pain['hair'] > 0:pain['hair'] -= rand(0,1)
	if pain['ears'] > 0:pain['ears'] -= rand(0,1)
	if pain['eyebrows'] > 0:pain['eyebrows'] -= rand(0,1)
	if pain['eyes'] > 0:pain['eyes'] -= rand(0,1)
	if pain['cheeks'] > 0:pain['cheeks'] -= rand(0,1)
	if pain['nose'] > 0:pain['nose'] -= rand(0,1)
	if pain['mouth'] > 0:pain['mouth'] -= rand(0,1)
	if pain['lips'] > 0:pain['lips'] -= rand(0,1)
	if pain['tongue'] > 0:pain['tongue'] -= rand(0,1)
	if pain['throat'] > 0:pain['throat'] -= rand(0,1)
	if pain['neck'] > 0:pain['neck'] -= rand(0,1)
	if pain['back'] > 0:pain['back'] -= rand(0,1)
	if pain['asscheeks'] > 0:pain['asscheeks'] -= rand(0,1)
	if pain['asshole'] > 0:pain['asshole'] -= rand(0,1)
	if pain['hips'] > 0:pain['hips'] -= rand(0,1)
	if pain['thighs'] > 0:pain['thighs'] -= rand(0,1)
	if pain['legL'] > 0:pain['legL'] -= rand(0,1)
	if pain['legR'] > 0:pain['legR'] -= rand(0,1)
	if pain['feet'] > 0:pain['feet'] -= rand(0,1)
	if pain['toes'] > 0:pain['toes'] -= rand(0,1)
	if pain['shoulders'] > 0:pain['shoulders'] -= rand(0,1)
	if pain['armL'] > 0:pain['armL'] -= rand(0,1)
	if pain['armR'] > 0:pain['armR'] -= rand(0,1)
	if pain['hands'] > 0:pain['hands'] -= rand(0,1)
	if pain['fingers'] > 0:pain['fingers'] -= rand(0,1)
	if pain['chest'] > 0:pain['chest'] -= rand(0,1)
	if pain['breasts'] > 0:pain['breasts'] -= rand(0,1)
	if pain['nipples'] > 0:pain['nipples'] -= rand(0,1)
	if pain['ribs'] > 0:pain['ribs'] -= rand(0,1)
	if pain['tummy'] > 0:pain['tummy'] -= rand(0,1)
	if pain['pubic'] > 0:pain['pubic'] -= rand(0,1)
	if pain['vaginal'] > 0:pain['vaginal'] -= rand(0,1)
	if pain['clitoris'] > 0:pain['clitoris'] -= rand(0,1)
	if pain['urethra'] > 0:pain['urethra'] -= rand(0,1)
	if pain['cervix'] > 0:pain['cervix'] -= rand(0,1)

    if aphrodisiac_timer >= 1:
        if pcs_horny < 80:
            pcs_horny = 80
        else
            pcs_horny += 10
        end
    aphrodisiac_timer -= 1
    end
    
    if tanga = 1 and clit_size >= 25:pcs_horny += 20
	
	if insleep = 0:
		sweat += rand(0,1)
		if temper >= 20: sweat += rand(0,1)
	end

	! vovan edition, from 1.2.5
	if clearclothes > 0: clearclothes -= 1
	if hantersAndreisex > 0: hantersAndreisex -= 1
	if hantersSergeisex > 0: hantersSergeisex -= 1
	if hantersIgorsex > 0: hantersIgorsex -= 1
	if hantslutsex > 0: hantslutsex -= 1
	if mira_go_blok > 0: mira_go_blok -= 1
	if mira_no_home > 0: mira_no_home -= 1	
	
	if minut >= 60:jump 'loopmin'
end

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
!!moodlet
!!mannamax
!!totminut

if Mud >= totminut:
	manna = mannamax
	$mud = 'You feel buoyed.'
else
	$mud = ''
end
	
if Astat_nerd[pc] > 0:
	if lastreadday = daystart:
		!!<font color="green">You are completely healthy shine and a healthy glow.</font>
		manna = mannamax
		SbrosNerdism = 0
		$mudnerd = '<font color="green">You are lost in a fantasy after reading a book.</font>'
	end

	if lastreadday + 1 = daystart:
		!!manna = mannamax
		SbrosNerdism = 0
		$mudnerd = '<font color="black">You are a little bored and want to plunge into a book.</font>'
	end
	if lastreadday + 2 = daystart:
		SbrosNerdism = 0

		if manna > mannamax / 2:manna -= 10

		$mudnerd = '<font color="red">You really want to read something.</font>'
	end

	if lastreadday + 3 <= daystart:
		if manna > mannamax / 10:manna -= 10

		SbrosNerdism = 1
		$mudnerd = '<font color="red"><b>You have an incredibly strong desire to read!!!</b></font>'
	end

	!!$mudnerd += 'lastread<<lastread>> totminut<<totminut>> <<totminut - lastread>>'
else
	SbrosNerdism = 0
	$mudnerd = ''
end

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

	if bimbowithdrawal > 30:
		bimbowithdrawal = 0
		bimbo = 0
		bimbolevel = 0
		$stat_msg += '<BR>You suddenly feel as if your head is clear, instead of filled with pink thoughts.'
	end
else
	bimbowithdrawal = 0
	$bimbostatus = ''
end

!
! 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 = 1:hornystat += 1
				if pirsG = 1:hornystat += 1
				if pirsGL = 1:hornystat += 1
				hornyStat = hornystat * 4					
				if pirsA = 1:hornystat += 1
				if pirsB = 1:hornystat += 1
				if pirsC = 1:hornystat += 1
				if pirsD = 1:hornystat += 1
				if pirsE = 1:hornystat += 1
				if pirsN = 1: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 = 2:
			if manna < mannamax:manna += ((manna / 100) * (rand(0,1)))
			if pcs_horny < 25:pcs_horny = 25
			if pcs_horny < 100:pcs_horny += 1
		end
		if bimbolevel = 3:
			if (manna < mannamax):manna += ((manna / 100) * (rand(0,2)))
			if pcs_horny < 50:pcs_horny = 50
			if pcs_horny < 100:pcs_horny += 2
		end
!!	This is the Succubus non-direct injection (pun intented) sex to sexnutrition and the sexnutrition conversion handling
		if succubusflag = 1:
			if pcs_horny < 50: pcs_horny = 50
			if pcs_horny < 100: pcs_horny += succublvl
			if succhungry > 0:
				energy -= succhungry*succublvl
				water -= succhungry*succublvl
				son -= succhungry*succublvl
			end
			if cumlip > 0:sexnutrition += cumlip & cumlip = 0
			!if swallow > 0:sexnutrition += swallow * 2 & swallow = 0
			if cumpussy > 0:sexnutrition += cumpussy * 4 & cumpussy = 0
			if cumanus > 0:sexnutrition += cumanus * 4 & cumanus = 0
			if arrsize('sparrvol') > 0:
				suctempi = -1
				:SuccAbsorbLoop
				suctempi += 1
				if suctempi <= 1 or suctempi = 4 or suctempi >= 8:
					if suctempi = 12: jump 'SuccAbsorbLoop'
					suctemparr = arrpos('sparrloc',suctempi)
					if suctemparr >= 0 and sparrloc[suctemparr] = suctempi and sparrvol[suctemparr] > 0:
						sexnutrition += succublvl * 5
						cumsumbod -= sparrvol[suctemparr]
						succubxp += 2
						sucabscum = 1
						gs 'cum_cleanup', 'cleandeposit', suctemparr
						cumloc[suctempi] = 0
						spdirty = 0
						spdirtyn = 0
						spdirtyv = 0
						spdirtyf = 0
						!! debug code $stat_msg += '<BR>Absorb ext <<sexnutrition>>'
					end
				end
				if suctempi < 17:jump 'SuccAbsorbLoop'
			end
			if suclezsex < lesbian:
				sexnutrition += succublvl * 20
				suclezsex = lesbian
				succubxp += 3
				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 (manna < mannamax): manna += ((manna / 100) * 5)
				if energy > 100: entemp = (energy - 100)
				if sucexcess < 0 and sexnutrition > 20 and energy > 30:
					if sexnutrition - 20 >= (0 - sucexcess) * 2:
						sexnutrition += sucexcess * 2
						sucexcess = 0
					else
						sucexcess += (sexnutrition - 20) / 2
						sexnutrition = 20
					end
				end
				water += sexnutrition / 2
				energy += sexnutrition / 2
				son += sexnutrition / 20
				if succhungry > 0: succhungry = 0
				sexnutrition = 0
				if energy > 100: sucexcess += (energy - entemp - 100) & 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

!!!!!!!!!!!!!
!!!ENERGY!!!
!!!!!!!!!!!!!

if succubusflag = 1:
	if energy < 0:
		if fat >= 1:
			fat -= 2
			energy += 8 + succublvl
		else
			energy += 8 + succublvl
			sucexcess -= (8+succublvl) * (6-succublvl)
		end
	end
	if health < 0:
		health = 10
		sucexcess -= 25 * (9-succublvl)
	end
	if willpower < 0:
		willpower = 10
		sucexcess -= 20 * (9-succublvl)
		sucpowzeroed = 4
	end
end

if son < 0:
	son = 0
	manna -= 5
end

if energy < 0:
	energy = 0
	health -= 5

	if fat = 0 and pcs_stren + pcs_vital > 0:
		pcs_stren -= 1
		pcs_vital -= 1
		energy += 8
	elseif fat = 0 and pcs_stren + pcs_vital <= 0:
		if Enable_nogameover = 0 :
			over = 3
			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 fat > 0:
		fat -= 1
		energy += 8
	end
end

if water < 0:
	water = 1
	health -= 10
	willpower -= 1
end

if manna <= 0:
	manna = 1
	health -= 5
	willpower -= 5
	!!fat += 1
end

if health < 0:
	if Enable_nogameover = 0 :
		over = 1
		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>'
		health = 0
	end
end

if willpower <= 0 :
	!this will set willpower to 0 correctly; then check mana =1 for insane-gameover(willpower=0&mana=1).
	if manna <= 1:
		if Enable_nogameover = 0 :
			over = 2
			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>'
			!manna already checked for >=1 in line 1113 if manna <= 0, no need to set another one
		end
	end
	willpower = 0
end

if saloonce = 0 and opPRE = 0:
	saloonce = 1
	salo = fat
	strenbuf = pcs_stren
	vitalbuf = pcs_vital
	agilbuf = pcs_agil
end

!cars-increase/depressed mood after orgasm/rape
if rape > 0 and rape ! rape_count and orgasm = orgasm_count:
	manna = 10
	rape_count = rape
elseif orgasm > 0 and orgasm ! orgasm_count:
	manna = mannamax
	orgasm_count = orgasm
elseif  rape > 0 and rape ! rape_count and orgasm > 0 and orgasm ! orgasm_count:
	manna = mannamax
	orgasm_count = orgasm
	rape_count = rape
end

gs 'body'
!!!!!!!!!!!!!
if health >= healthmax:
	$health = '<font color="green">You are very healthy.</font>'
elseif health >= healthmax * 75 / 100:
	$health = '<font color="blue">You are healthy.</font>'
elseif health >= healthmax * 50 / 100:
	$health = '<font color="brown">You are not healthy.</font>'
elseif health >= healthmax * 25 / 100:
	$health = '<font color="red">You are sick.</font>'
else
	$health = '<font color="red">You are on the verge of death.</font>'
end

if willpower >= willpowermax:
	$willpower = '<font color="green">Your mind is clear.</font>'
elseif willpower >= willpowermax * 75 / 100:
	$willpower = '<font color="blue">You are mostly clear of mind.</font>'
elseif willpower >= willpowermax * 50 / 100:
	$willpower = '<font color="brown">You are depressed.</font>'
elseif willpower >= willpowermax * 25 / 100:
	$willpower = '<font color="red">You have depression.</font>'
else
	$willpower = '<font color="red">You are on the verge of madness.</font>'
end

if manna >= mannamax:
	$manna = '<font color="green">You are in a good mood.</font>'
elseif manna >= mannamax * 75 / 100:
	$manna = '<font color="blue">You have a normal mood.</font>'
elseif manna >= mannamax * 50 / 100:
	$manna = '<font color="brown">You are in a bad mood.</font>'
elseif manna >= mannamax * 25 / 100:
	$manna = '<font color="red">You are in a terrible mood.</font>'
else
	$manna = '<font color="red">Your mood is stuck in the gutter.</font>'
end

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

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

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

!$din_shame = {
	!!dynamic din_shame
	!!shame += 1
	!!if shame >= 5:shame = 4 & shameless += 1
	!!if shame >= 4:$shame = '<font color="red"><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
	!!if shame = 3:$shame = '<font color="red">Your cheeks are red from the blush of shame.</font>'
	!!if shame = 2:$shame = '<font color="brown">You nemnog opokrasneli shame.</font>'
	!!if shame = 1:$shame = '<font color="green">You''re a little confused.</font>'
	!!if shame <= 0:$shame = '<font color="green">You''re a little confused.</font>'
	!!gs 'stat'
}

!!if shame >= 5:shame = 4 & shameless += 1
!!if shame >= 4:$shame = '<font color="red"><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
!!if shame = 3:$shame = '<font color="red">Your cheeks are red from the blush of shame.</font>'
!!if shame = 2:$shame = '<font color="brown">You nemnog opokrasneli shame.</font>'
!!if shame = 1:$shame = '<font color="green">You''re a little confused.</font>'
!!if shame <= 0:$shame = '<font color="green">You''re a little confused.</font>'
maxmood = 100-moodmodifier
if mood > maxmood:
	mood = maxmood
	manna = mannamax
	$mood = 'You feel buoyed.'
elseif mood < 0:
	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

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 > 0:
	if hotelroom1day = daystart: $stat_msg += '<BR>You have 1 night left on your hotel booking.'
	if hotelroom1day < daystart and hour <= 11: $stat_msg += '<BR>Your hotel booking has expired and you cannot return to your room after 11:00'
	if hotelroom1day < daystart and hour > 11: hotelroom = 0
end

if hour >= 8 and hour < 16 and week < 6 and StoryLine > 0 and SchoolAtestat = 0 and kanikuli = 0 and schoolProgulDay ! daystart:
	!!absence from school
	schoolprogul += 1
	schoolProgulDay = daystart
end

if insleep = 0:gs 'stat_display'

if cumcondslip <= 0:cumcondslip_deep = 0

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