glife/locations/stat

# stat
clr
view
rand1=rand(0,100)

if poSkill > 1000:poSkill = 1000
if nippain = 2:
	if nippainday + 5 < daystart:
		$nippain = 'You are constantly reminded of the sharp pain from your nipples.'
		nippain = 1
		nippainday = daystart
	elseif nippainday + 5 >= daystart:
		$nippain = 'You are constantly reminded of the sharp pain from your nipples.'
	end
elseif nippain = 1:
	if nippainday + 5 < daystart:
		$nippain = ''
		nippain = 0
	elseif nippainday + 5 >= daystart:
		$nippain = 'Your nipples are a little sore.'
	end
end

if painpub = 2:
	if painpubday + 5 < daystart:
		$painpub = 'Your vulva is painfully sore.'
		painpub = 1
		painpubday = daystart
	elseif painpubday + 5 >= daystart:
		$painpub = 'Your vulva is painfully sore.'
	end
elseif painpub = 1:
	if painpubday + 5 < daystart:
		$painpub = ''
		painpub = 0
		painpubday = daystart
	elseif painpubday + 5 >= daystart:
		$painpub = 'Your vulva is a little sore.'
	end
end


if cheatHealth = 1:dynamic $din_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] = agil
stamina[1] = vital * 3
wipo[1] = will
intel[1] = 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] = agil
!!stamina[0] = vital * 3
!!krasota[0] = vnesh
!!wipo[0] = will

!!!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 piratehorny < 20:piratehorny = 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:intel += 1 & lernSkill = 0

if lern >= 10: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 + bj + anal + 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 painQW = 0:painweather = 6
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:
	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 horny < 50: horny = 50
end

boxing = Jab + Punch + Kik + KikDef

if boxing > 100:boxing = 100

if stren > 100 and mutagenP = 0:stren = 100
if speed > 100 and mutagenS = 0:speed = 100
if agil > 100 and mutagenA = 0:agil = 100
if react > 100 and mutagenR = 0:react = 100
if vital > 100 and mutagenV = 0:vital = 100
if will > 100 and mutagenW = 0:will = 100
if intel > 100 and mutagenI = 0 and student = 0 and diplom = 0:intel = 100

if stren > 150 and mutagenP = 1:stren = 150
if speed > 150 and mutagenS = 1:speed = 150
if agil > 150 and mutagenA = 1:agil = 150
if react > 150 and mutagenR = 1:react = 150
if vital > 150 and mutagenV = 1:vital = 150
if will > 150 and mutagenW = 1:will = 150
if intel > 150 and mutagenI = 1 and student = 0 and diplom = 0:intel = 150

if stren > 200 and mutagenP = 2:stren = 200
if speed > 200 and mutagenS = 2:speed = 200
if agil > 200 and mutagenA = 2:agil = 200
if react > 200 and mutagenR = 2:react = 200
if vital > 200 and mutagenV = 2:vital = 200
if will > 200 and mutagenW = 2:will = 200
if intel > 200 and mutagenI = 2 and student = 0 and diplom = 0:intel = 200

if stren > 250 and mutagenP = 3:stren = 250
if speed > 250 and mutagenS = 3:speed = 250
if agil > 250 and mutagenA = 3:agil = 250
if react > 250 and mutagenR = 3:react = 250
if vital > 250 and mutagenV = 3:vital = 250
if will > 250 and mutagenW = 3:will = 250
if intel > 250 and mutagenI = 3 and student = 0 and diplom = 0:intel = 250

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

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

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

if horny < 0:horny = 0
healthmax = (vital*10 + stren*5)
willpowermax = (intel*5 + will*5)
mannamax = (intel * magik) + magik * 100 + 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: horny = 90
if Enable_lockhorny > 0 and horny < Enable_lockhorny - 1:horny = Enable_lockhorny - 1
if horny < 0:horny = 0
if health > healthmax:health = healthmax
if willpower > willpowermax:willpower = willpowermax
if manna > mannamax:manna = mannamax

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

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

if vgape > 0:
	if vgape = 3:
		if manna > mannamax / 4:manna = mannamax / 4
	elseif vgape = 2:
		if manna > mannamax / 2:manna = mannamax / 2
	end

	if vgapetime + 2500 <= totminut:
		if vgape = 1:vgape = 0
		if vgape = 2:vgape = 1 & vgapetime = totminut
		if vgape = 3:vgape = 2 & vgapetime = totminut
	end
end
if agape > 0:
	if agape = 3:
		if manna > mannamax / 6:manna = mannamax / 6
	elseif agape = 2:
		if manna > mannamax / 3:manna = mannamax / 3
	end

	if agapetime + 5760 <= totminut:
		if agape = 1:agape = 0
		if agape = 2:agape = 1 & agapetime = totminut
		if agape = 3:agape = 2 & agapetime = totminut
		if anus > 1:anus -= 1
	end
end

if spanked > 0:
	if spanked = 3:
		if manna > (mannamax/6):manna = mannamax/6
	elseif spanked = 2:
		if manna > (mannamax/3):manna = mannamax/3
	end

	if spankedtime + 3500 <= totminut:
		if spanked = 1:spanked = 0 & spankedtime = totminut
		if spanked = 2:spanked = 1 & spankedtime = totminut
		if spanked >= 3:spanked = 2 & spankedtime = totminut
	end
end

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

	if sec >= 60:jump 'loopsec'
end

if minut >= 60:
	:loopmin
	if SbrosNerdism = 1:nerdism = will / 10 - orgasm
	if nerdism < 0:nerdism = 0
	if obkvsdam > 0:obkvsdam = rand(2, 5)
	hour += 1
	if insleep = 1:
		energy -= 4
		water -= 4
		son -= 4
	else
		energy -= 8
		water -= 8
		son -= 4
	end
	minut -= 60
	gs 'femcyc'

	if alko > 0 and alkoblock = 0:
		if alko >= 4:
			if beg > 0:beg -= 1
			if volleyboll > 0:volleyboll -= 1
			
			if alko >= 6:
				if stren > 10:stren -= 1 & salo += 3
				if vital > 10:vital -= 1 & salo += 3
				if intel > 10: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) / 2
		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 minut >= 60:jump 'loopmin'
end

if hour >= 24:
	prezikProver += 1
	if pirs_pain_ton > 0:pirs_pain_ton -= 1
	if brow > 0 and browper = 0:brow -= 1

	if shorthair = 1:
		shorthairday += 1

		if shorthairday >= 45:shorthairday = 0 & shorthair = 0
	end

	if KatjaOTN > 0:
		if KatjaHorny > 0 and KatjaLust < 40:KatjaHorny -= rand(1, 3)
		if KatjaLust >= 40:KatjaHorny += rand(1, 3)
		if KatjaHorny < 0:KatjaHorny = 0
		if KatjaHorny >= 100:KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
	end

	if trenerepa > 20:trenerepa -= 1

	if birthday = day and birthmonth = month:
		!!birthday
		age += 1
		vidage += 1
	end

	!!!!!!!!!!!!!!!
	!!!generation!!!
	!!!!!!!!!!!!!!!
	if NPCnum < 290:
		NPCnow = NPCnum
		NPCnum += rand(1, 3)
		gs 'npc'
	elseif NPCnum < 300:
		NPCnow = NPCnum
		NPCnum += 1
		gs 'npc'
	end

	!!!!!!!!!!!!!!!
	if kanikuli = 0:Suspeh -= 1

	dmishaevent = 0

	if Gspravka <= 0 and GspravkaT = 1:GspravkaT = 0 & Gspravka = 0
	if GspravkaT = 1:Gspravka -= 1
	if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30:IvanPodstavaQW = 3
	if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30:PodpiskaNeviezd += 1

	if salo > (fat + 40):
		salo -= 3
		fat += 3
	elseif salo > (fat + 20):
		salo -= 1
		fat += 1
	elseif salo > (fat + 10):
		fatD2roll = rand(0,1)
		salo -= fatD2roll
		fat += fatD2roll
	end

	if fat > (salo + 40):
		salo += 3
		fat -= 3
	elseif fat > (salo + 20):
		salo += 1
		fat -= 1
	elseif fat > (salo + 10):
		fatD2roll = rand(0,1)
		salo += fatD2roll
		fat -= fatD2roll
	end

	if salo > 240:
		salo = 240
	elseif salo > 180:
		salo -= 3
	elseif salo > 120:
		salo -= 2
	elseif salo > 60:
		salo -= 1
	elseif salo < 30: 
		salo += 3
	elseif salo < 60:
		salo += 2
	end

	if fat > 240:
		fat = 240
	elseif fat > 180:
		fat -= 3
	elseif fat > 120:
		fat -= 2
	elseif fat > 60:
		fat -= 1
	elseif fat < 30:
		fat += 3
	elseif fat < 60:
		fat += 2
	end

	if strenbuf > 90:
		strenbuf -= 2
	elseif strenbuf > 80:
		strenbuf -= 1
	end

	if vitalbuf > 90:
		vitalbuf -= 2
	elseif vitalbuf > 80:
		vitalbuf -= 1
	end

	if strenbuf > stren:strenbuf -= 1
	if strenbuf < stren:strenbuf += 1
	if vitalbuf > vital:vitalbuf -= 1
	if vitalbuf < vital:vitalbuf += 1
	if agilbuf > agil:agilbuf -= 1
	if agilbuf < agil:agilbuf += 1
	if husband > 0 and husbandrink ! 11:husbandrink = rand(0, 10)

	inWorkYoungShop = 0
	husbandsexday = 0
	borsexkol = 0
	givisexday = 0

	if shantsr > 0:
		pay = shantsr * 5000
		karta += pay
		shantsr = 0
	end

	if shantbog > 0:
		:shantftb
		shantftbgrand = rand(0, 10)
		if shantftbgrand > 2:
			shantpopala += 1
			shantbog -= 1
			if shantbog > 0:jump 'shantftb'
		elseif shantftbgrand <= 2:
			karta += 30000
			shantbog -= 1
			if shantbog > 0:jump 'shantftb'
		end
	end

	petersexday = 0
	klismaday1 = 0
	:loop

	gs 'cikl'

	!MJ: Add some (daily) interest to the bank account. 
	!Not very realistic but wont make anyone too rich.
	
	if bankAccount = 1:
		if karta >= 0:
			!yearly interest recalculated into daily interest
			smallmoney += karta
		else
			!yearly interest recalculated into daily interest if your account is negative
			smallmoney += (karta * 137)
		end
		!if your fraction is high enough, it will finally appear on your bank account too, not just in the bank accounting
		if smallmoney >= 200000 or smallmoney <= -200000:
			temp = smallmoney/200000
			karta += temp
			smallmoney -= temp*200000
		end
		
		if atmDeposit > 0 and atmDepositDate <= daystart:
			karta += atmDeposit
			atmDeposit = 0
		end
	end
	
	if hour >= 24:jump 'loop'
end

!!payments
if day = 25:
	if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
		Pay = PersSecWorkTimes * 2500
		PersSecWorkTimes = 0
		money += Pay
		paydaybistrosec = 1
		'<b><font color="green">Your salary of <<pay>> rubles has been paid into your bank account for your job as a secretary.</font></b>'
	end

	if workKafe = 1 and paydayKafe = 0:
		paydayKafe = 1
		pay = smenaKafe * 600
		money += pay
		smenaKafe = 0
		'<b><font color="green">Your salary of <<pay>> rubles has been paid into your bank account for your job as a waitress in a cafe.</font></b>'
	end

	if workhosp = 1 and nopaypoly = 0:
		pay = smena * 1000
		money += pay
		smena = 0
		nopaypoly = 1
		'<b><font color="green">Your salary of <<pay>> rubles has been paid into your bank account for your work in the clinic.</font></b>'
	end

	if worksalon = 1 and nopaysalon = 0:
		pay = smena * 800
		money += pay
		smena = 0
		nopaysalon = 1
		'<b><font color="green">Your salary of <<pay>> rubles has been paid into your bank account for your work in a beauty salon.</font></b>'
	end

	if tanwork = 1 and nopaytanwork = 0:
		nopaytanwork = 1
		money += 25000
		'<b><font color="green">Your salary of 25,000 rubles has been paid into your bank account for your work as a house maid.</font></b>'
	end

	if workSec = 1 and paydaySec = 0:
		paydaySec = 1
		pay = sekDay * 800

		if officebestslut >= 3:pay += 20000
		karta += pay
		sekDay = 0
		'<b><font color="green">Your salary of <<pay>> rubles has been paid into your bank account for your job as a secretary.</font></b>'
	end

	if husband > 0 and paydayHusb = 0:
		paydayHusb = 1

		if husbFin = 0:huspay = 15000
		if husbFin = 1:huspay = 25000
		if husbFin = 2:huspay = 40000

		money += huspay
		'<b><font color="green">Your husband has paid <<huspay>> rubles into your bank account.</font></b>'
	end

	if stipuha = 1 and stipuhaday = 0:stipuhaday = 1 & money += 1200 & '<b><font color="green">You have received 1,200 rubles scholarship.</font></b>'
	if housr = 1 and haday = 0:haday = 1 & money -= 3000 & '<b><font color="red">You paid 3,000 rubles for your apartment.</font></b>'

	if housr = 1 and electroday = 0:
		electroday = 1
		if elektro >= 800:elektro = 800 + rand(0, 100)

		money -= elektro
		'<b><font color="red">You paid <<elektro>> for electricity.</font></b>'
	end

	if housr = 1 and kabel > 0 and kabelday = 0:kabelday = 1 & money -= 300 & '<b><font color="red">You have paid 300 rubles for cable TV.</font></b>'
end

if day ! 25:
	if paydayHusb = 1:paydayHusb = 0
	if workKafe = 1 and paydayKafe = 1:paydayKafe = 0
	if workSec = 1 and paydaySec = 1:paydaySec = 0
	if housr = 1 and haday = 1:haday = 0
	if housr = 1 and electroday = 1:electroday = 0
	if housr = 1 and kabel > 0 and kabelday = 1:kabelday = 0
	if stipuhaday = 1:stipuhaday = 0
	if nopaytanwork = 1:nopaytanwork = 0
	if nopaypoly = 1:nopaypoly = 0
	if nopaysalon = 1:nopaysalon = 0
	if paydaybistrosec = 1:paydaybistrosec = 0
end

if sdaday = day and sdamonth = month and housr = 0:
	housr = 1
	'<b><font color="red">Your tenants have moved out and your apartment is now vacant.</font></b>'
	!msg 'Your tenants have moved out and your apartment is now vacant.'
end

if day > monthEnd[month]:
	day -= monthEnd[month]
	month += 1
	
	if month > 12: month = 1
	
	!MJ: Dont think that one is needed. But it was in the original loop.
	if month < 1: month = 1
	
	$month = $monthName[month]
end

!MJ: Dont think that one is needed. But it was here already.
if day = 0:day = 1

if week > 7:
	:loopweek
	week -= 7
	husbandrink = 0

	if military = 1:military = 0

	if week > 7:jump 'loopweek'
end

if week = 1:$week = 'Monday'
if week = 2:$week = 'Tuesday'
if week = 3:$week = 'Wednesday'
if week = 4:$week = 'Thursday'
if week = 5:$week = 'Friday'
if week = 6:$week = 'Saturday'
if week = 7:$week = 'Sunday'

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 nerdism > 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 the book.</font>'
	end

	if lastreadday + 1 = daystart:
		!!manna = mannamax
		SbrosNerdism = 0
		$mudnerd = '<font color="black">You a little bored and want once 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
		pl '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 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:horny += rand(1, 5)

			! WD: Fixed Piecing arousal to trigger every 15 minutes, instead of once per day
			if 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 horny += hornyStat / 4 + rand(1,4) <= hornyStat mod 4 & ! Apply 1/4 of value on average
			end

			! WD: Clothing
			if CloStyle = 4 and horny < 70:set horny += rand(0, 2)
			if (PCloSkirt > 5 or PCloPants > 5) and horny < 50:set horny += rand(0, 1)
			if PCloTopCut = 4 and horny < 50:set 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 arousal < 25:arousal = 25
			if arousal < 100:arousal += 1
		end
		if bimbolevel = 3:
			if (manna < mannamax):manna += ((manna / 100) * (rand(0,2)))
			if arousal < 50:arousal = 50
			if arousal < 100:arousal += 2
		end
!! level four, adds supernatural-style succubus abilities. May be removed or spun off into its own TF or obtained through special means unlike the rest.
!! Also planning to add much more severe and rapidly advancing penalties for not having sex to offset bonuses
		if bimbolevel = 4:
			if arousal < 80:arousal = 80
			if arousal < 100:arousal += 2
			if cumlip > 0:sexnutrition += cumlip and cumlip = 0 and absorbflag = 1
			if swallow > 0:sexnutrition += swallow * 2 and swallow = 0 and absorbflag = 1
			if cumpussy > 0:sexnutrition += cumpussy * 4 and cumpussy = 0 and absorbflag = 1
			if cumanus > 0:sexnutrition += cumanus * 4 and cumanus = 0 and absorbflag = 1
			if absorbflag = 1:
				if (manna < mannamax):manna += ((manna / 100) * 5)
				pl 'You absorb the semen in your body, gaining nourishment.'
				absorbflag = 0
			end
			if sexnutrition > 0:
				water += sexnutrition / 2
				energy += sexnutrition / 3
				son += sexnutrition / 4
				sexnutrition = 0
			end
		end
!! safeguards to prevent bimbolevel from going above or below its intended limits
		if bimbolevel > 4:bimbolevel = 4
		if bimbolevel < 0:bimbolevel = 0			

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

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

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

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

	if fat = 0 and stren + vital > 0:
		stren -= 1
		vital -= 1
		energy += 8
	elseif fat = 0 and stren + vital <= 0:
		if Enable_nogameover = 0 :
			over = 3
			gt'gameover'
			exit
		else
			pl '<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
		pl '<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 :
			if StoryLine = 0:
				over = 2
			else
				over = 10
			end
			gt'gameover'
			exit & !nogameover by illume
		else
			pl '<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 = stren
	vitalbuf = vital
	agilbuf = 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.'
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 thirtsy 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>'

$holyday = ''
kanikuli = 0

if (month = 10 and day >= 27) or (month = 11 and day <= 4):
	$holyday = '<b>Autumn holidays</b>'
	kanikuli = 1
	if month = 11 and day = 4:$holyday += ' <b>Back to school tomorrow.</b>'
elseif (month = 12 and day >= 29) or (month = 1 and day <= 13):
	$holyday = '<b>Winter Break</b>'
	kanikuli = 2
	if month = 1 and day = 13:$holyday += ' <b>Back to school tomorrow.</b>'
elseif (month = 3 and day >= 25):
	$holyday = '<b>Spring Break</b>'
	kanikuli = 3
	if month = 3 and day = 31:$holyday += ' <b>Back to school tomorrow.</b>'
elseif (month = 5 and day >= 25) or month = 6 or month = 7 or month = 8:
	if month = 5 and day = 25 and age = 17:
		$holyday = '<b>Your graduation is today. Be there by 8h.</b>'
		kanikuli = 6
	else
		$holyday = '<b>Summer holidays</b>'
		kanikuli = 4
	end
	if month = 8 and day = 31:$holyday += ' <b>Back to school tomorrow.</b>'
elseif month = 1 and day = 1:
	$holyday = '<b>New Year!</b>'
	kanikuli = 5
end

if kanikuli ! 6 and kanikuli > 0 and kanicont = 0:
!holiday countdown by illume. countdown in [cikl], summer vacation pre-set in [startalt]
    if kanikuli = 1:kanicont = 9
    if kanikuli = 2:kanicont = 16
	if kanikuli = 3:kanicont = 7
	if kanikuli = 4:kanicont = 99
end

if kanikuli > 0 and kanikuli <5:$holyday += ', <<kanicont>> days left.</b>'

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 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: pl 'You have 1 night left on your hotel booking.'
	if hotelroom1day < daystart and hour <= 11: pl '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 insleep ! 0:exit &!no need to display status in sleep. skip them to improve performance by illume

!!!!!!!!!!!!!!!!!!!!!
!!!Pain calculation!!!
!!!!!!!!!!!!!!!!!!!!!

pain[pir] = pirs_pain_ton*8 + nippain*20 + painpub*20
pain[gape] = vgape*2 + agape*4

pain[total] = pain[pir] + pain[gape]


!!!!!!!!!!!!!!!!!!!!!
!!!Beginning Description!!!
!!!!!!!!!!!!!!!!!!!!!

if son > 100: son = 100
if water > 100: water = 100

if Enable_statfsize>0:pl'<font size=<<Enable_statfsize>>>'

if hour < 10:
	if minut > 9 :
		pl '<b> 0<<hour>>:<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
	else
		pl '<b> 0<<hour>>:0<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
	end
else
	if minut > 9 :
		pl '<b> <<hour>>:<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
	else
		pl '<b> <<hour>>:0<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
	end
end
pl

pl '<b><<money>></b> <b>₽</b> in your purse.'
if karta > 0:pl '<b><<karta>></b> <b>₽</b> in your bank account.'
if stolmoney > 0:pl '<b><<stolmoney>></b> <b>₽</b> in your table drawer.'
pl

if ETOmenu = 1:
	pl '<b><<$health>></b>'
	pl '<b><<$willpower>></b>'
	pl '<b><<$energy>></b>'
	pl '<b><<$water>></b>'
	pl '<b><<$son>></b>'
else
	gs 'indik', '2', horny, horny
	pl '<<$ind>> Arousal'

	gs 'indik', '2', pain[total], pain[total]
	pl '<<$ind>> Pain'

	gs 'indik', '1', health * 100 / healthmax, health
	pl '<<$ind>> Health'

	gs 'indik', '1', willpower * 100 / willpowermax, willpower
	pl '<<$ind>> Willpower'

	if mannamax <=0:
		gs 'indik', '1', 0, manna
	else
		gs 'indik', '1', manna * 100 / mannamax, manna
	end
	pl '<<$ind>> Mood'

	gs 'indik', '1', energy, energy
	pl '<<$ind>> Hunger'

	gs 'indik', '1', water, water
	pl '<<$ind>> Thirst'

	gs 'indik', '1', son, son
	pl '<<$ind>> Sleep'
end
pl

if Enable_showattr = 1:	
	gs 'indik', '1',stren , stren
	pl '<<$ind>> Power'
	gs'indik','1',speed,speed
	pl '<<$ind>> Speed'
	gs'indik','1',agil,agil
	pl '<<$ind>> Agility'
	gs'indik','1',vital,vital
	pl '<<$ind>> Endurance'
	gs'indik','1',intel,intel
	pl '<<$ind>> Intelligence'
	gs'indik','1',will,will
	pl '<<$ind>> Spirit'
	gs'indik','1',react,react
	pl '<<$ind>> Reaction'
	gs'indik','1',vnesh / 2,vnesh
	pl '<<$ind>> Attractiveness'
	if SUB > 0:
			gs'indik','1',SUB,SUB
		pl '<<$ind>> Subordination'
	end
	if DOM > 0:
			gs'indik','1',DOM,DOM
		pl '<<$ind>> Dominance'
	end	
	if SchoolAtestat = 0 and StoryLine > 0:	
			gs'indik','1',Suspeh,Suspeh
		pl '<<$ind>> School Grades'	
	end
	if exhibi > 0:
		gs'indik','1',exhibi*25,exhibi & !max at [dina], exhibi>=4
		pl '<<$ind>> exhibitionism'
	end	
end

if Enable_showskill = 1:
	st_count=0
	$show_table=''
	if workPTU > 1:gs'show_table','<<teachlevel>> Teacher credibility','2'
	if magik > 0:gs'show_table','<<magik>> Magic','2'
	if Jab > 0:gs'show_table','<<Jab>> Jab','2'
	if Punch > 0:gs'show_table','<<Punch>> Power Strikes','2'
	if Kik > 0:gs'show_table','<<Kik>> Kicks','2'
	if KikDef > 0:gs'show_table','<<KikDef>> Protection','2'
	if beg > 0:gs'show_table','<<beg>> Running','2'
	if volleyboll > 0:gs'show_table','<<volleyboll>> Volleyball','2'
	if oficiant > 0:gs'show_table','<<oficiant>> Waitress','2'
	if vokal > 0:gs'show_table','<<vokal>> Vocal','2'
	if dance > 0:gs'show_table','<<dance>> Dancing','2'
	if dancePRO > 0:gs'show_table','<<dancePRO>> Regular dancing','2'
	if stripdance > 0:gs'show_table','<<stripdance>> Striptease','2'
	if poledance > 0:gs'show_table','<<poledance>> Poledancing','2'
	if shoot > 0:gs'show_table','<<shoot>> Shooting','2'
	if poSkill > 0:gs'show_table','<<poSkill>> tailor','2'
	if chess > 0:gs'show_table','<<chess>> Chess','2'
	if mutagenP > 0: gs'show_table','<<mutagenP>> Mutagen strength ','2'
	if mutagenV > 0: gs'show_table','<<mutagenV>> Mutagen endurance','2'
	if mutagenA > 0: gs'show_table','<<mutagenA>> Mutagen Agility','2'
	if st_count > 0 :pl 'Skills: <TABLE BORDER=1><<$show_table>></TR></TABLE>'
end
if Enable_showrelation = 1:
	st_count=0
	$show_table=''
	if nastjaqw > 0:gs'show_table','<<nastjaqw>> Nastja','2'
	if tanya > 0:gs'show_table','<<tanya>> Tanya','2'
	if kat > 0:gs'show_table','<<kat>> Kate','2'
	if vika > 0:gs'show_table','<<vika>> Vika','2'
	if Irina > 0:gs'show_table','<<Irina>> Irina','2'
	if Tamara > 0:gs'show_table','<<Tamara>> Tamara','2'
	if alla > 0:gs'show_table','<<alla>> Alla','2'
	if masha > 0:gs'show_table','<<masha>> Masha','2'
	if Givi > 0:gs'show_table','<<Givi>> Givi Karapetovich','2'
	if Ashot > 0:gs'show_table','<<Ashot>> Ashot','2'
	if Dmitry > 0:gs'show_table','<<Dmitry>> Dima','2'
	if afra > 0:gs'show_table','<<afra>> Blacks','2'
	if trenerepa > 0:gs'show_table','<<trenerepa>> Mikhail Nikolaevich','2'
	if StoryLine > 0:	
		if mother > 0:gs'show_table','<<mother>> Mother','2'
		if father > 0:gs'show_table','<<father>> Father','2'
		if sister > 0:gs'show_table','<<sister>> Sister','2'
		if brother > 0:gs'show_table','<<brother>> Brother','2'
	end
	if st_count > 0 :pl 'Relations: <BR><TABLE BORDER=1> <<$show_table>></TR></TABLE>'
end

if BuyHous = 2 and ArendHouseSL <= 0:'<font color="red"><b>The rent on your apartment expires today.</b></font>'

if  weatherDay = daystart: pl '<<$weather>>' & pl

if opPRE = 0: pl '<<$mop>> and your hair is <<$hapri>>.' & pl

if StoryLine > 0 and SchoolAtestat = 0 and $holyday ! '': pl '<<$holyday>>' & pl
if birthday = day and birthmonth = month: pl '<b>Today is your birthday.</b>' & pl

!!if shame > 0:pl '<<$shame>>' & pl
pl '<b><<$manna>></b>'
pl

if energy < 5:
	pl '<font color="red">You feel faint from hunger, if you don''t have something to eat very soon, you will pass out.</font>'
elseif energy < 10:
	pl '<font color="red">You are starving, you really need to have something to eat.</font>'
elseif energy < 20:
	pl 'You are very hungry and struggle to concentrate on anything other than food.'
elseif energy < 30:
	pl 'You feel peckish and your thoughts sometimes drift towards food.'
end

if water < 5:
	pl '<font color="red">You feel light-headed, if you don''t have something to drink very soon, you will pass out.</font>'
elseif water < 10:
	pl '<font color="red">You are dehydrated, you really need to have something to drink.</font>'
elseif water < 20:
	pl 'You are thirsty and your dry throat is irritating and distracting you.'
elseif water < 30:
	pl 'You feel a little thirsty and your mouth is a little dry.'
end

if son < 5:
	pl '<font color="red">You can''t keep your eyes open, if you don''t go to bed now, you will fall asleep right here.</font>'
elseif son < 10:
	pl '<font color="red">You are exhausted, you really need to go to bed soon.</font>'
elseif son < 20:
	pl 'You are tired and you are struggling to concentrate.'
elseif son < 30:
	pl 'You feel a little tired.'
end

if horny >= 50:
	if horny < 90 and tanga = 1:
		pl'<font color = #DB7093>You are a little nervous, feeling nice between your legs <a href="exec:view''images/picb/briefs1.jpg''">itchy</a> from arousal.</font>'
	elseif horny < 90 and tanga = 0:
		pl'<font color = #DB7093>You are a little nervous, feeling nice between your legs <a href="exec:view''images/picb/briefs1a.jpg''">itchy</a> from arousal.</font>'
	elseif tanga = 1:
		pl'<font color = #FF1493>You feel that between your legs you are <a href="exec:view''images/picb/briefs2.jpg''">soaked</a> from your juices.</font>'
	else
		pl'<font color = #FF1493>You feel that between your legs you are <a href="exec:view''images/picb/briefs2a.jpg''">soaked</a> from your juices.</font>' 
	end
end

$smoker = {
	siga -= 1
	smoker += 1
	smokeHour = hour
	smokeDay = day
	smokeminut = minut + 5
	smokeNeed = 0
	cumspclnt = 2
	gs 'cum_cleanup'
	fbreath = 0
	manna += 100
	wipo += 100
	if energy < 80:energy += 4
	gs 'stat'
}

if PillToggle = 1 and tabletki > 0:
	Stabletki += tabletki
	tabletki = 0
elseif PillToggle = 0 and Stabletki > 0:
	tabletki += Stabletki
	Stabletki = 0
end

if CondomToggle = 1 and prezik > 0:
	Sprezik += prezik
	prezik = 0
elseif CondomToggle = 0 and Sprezik > 0:
	prezik += Sprezik
	Sprezik = 0
end

if $mud ! '':pl '<font color="green"><b><<$mud>></b></font>' & pl
if siga <= 0 and smoker >= 20:pl '<font color="red"><b>You have run out of cigarettes.</b></font>' & pl

if smokeNeed > 0 and siga > 0 and smoker >= 20:
	pl '<a href="exec:dynamic $smoker"><font color="red"><b>You want to smoke. You have <<siga>> cigarettes left.</b></font></a>'
	pl
elseif siga > 0 and smoker >= 20:
	pl '<a href="exec:dynamic $smoker"><font color="blue"><b>You have <<siga>> cigarettes left.</b></font></a>'
	pl
end

if siga > 0 and smoker < 20:
	if smokeHour = hour and smokeday = day and smokeminut >= minut:
	else
		pl'<a href="exec:dynamic $smoker"><font color = blue><b>You have <<siga>> cigarettes.</b></font></a>'
		pl
	end
end

if smokeHour = hour and smokeday = day and smokeminut >= minut:pl '<font color="green">You are smoking a cigarette.</font>'

if sweat = 1:
	pl '<font color="brown">You''re sweating.</font>'
elseif sweat = 2:
	pl '<font color="red">You are a little smelly.</font>'
elseif sweat = 3:
	pl '<font color="red">You stink.</font>'
elseif sweat > 3:
	pl '<b><font color="red">You really stink.</font></b>'
end

!! MJ: Add a line before the next message.
if sweat > 0: pl

pl '<a href="exec:dynamic $d_cycreport_choice"><<$cycreport_txt>></a>'

pl

if mesec > 0:
	if isprok = 0 and isprokp = 0:
		pl '<b><font color="red">You are bleeding between your legs, you need to use feminine hygine products.</font></b>'
	elseif isprok = 1:
		pl 'You are having your period.'
	elseif isprokp = 1:
		if tanga = 0:
			isprokp = 0
			pl '<b><font color="red">You are bleeding between your legs, you need to wear panties to use a sanitary pad.</font></b>'
		else
			pl 'You are having your period.'
		end
	end
end

if lactate = 1:
	if lactatemv >= lactatemm-1:
		pl'<font color = black>Your breasts are so full they hurt and a little milk is constantly dribbling out.</font>'
	elseif lactatemv > lactatemm*9/10:
		pl'<font color = black>Your breasts are firm and full, and starting to hurt from all the milk they contain.</font>'
	elseif lactatemv > lactatemm*3/4:
		pl'<font color = black>Your breasts feel firm and heavy, full of milk.</font>'
	elseif lactatemv > lactatemm/2:
		pl'<font color = black>Your breasts are heavy, a cargo of milk inside.</font>'
	elseif lactatemv > lactatemm/4:
		pl'<font color = black>Your breasts feel a little heavy.</font>'
	elseif lactatemv > 0:
		pl'<font color = black>Your breasts tingle a little from the feeling of milk production.</font>'
	else
		pl'<font color = black>Your breasts feel soft and empty.</font>'
	end
!! MJ: Add a line before the next message.
	pl
end

if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1:pl '<b><font color="red">It''s time to work your shift as a waitress in a cafe</font></b>'
if hour >= 8 and hour < 9 and week < 5 and workSec >= 1:pl '<b><font color="red">It''s time to work your shift as a secretary</font></b>'
if PersSecWork = 1 and week < 6 and hour < 10 and hour >= 5:pl '<b><font color="red">It''s time to work your shift as a secretary</font></b>'
if workFabrika = 1 and week => 1 and week <= 5 and hour = 8 and age >= 18 or workFabrika = 1 and week => 1 and week <= 5 and hour = 16 and age < 18:pl'<b><font color = red>This morning you have work in the garment factory in Pavlovsk</font></b>'

if Enable_Hymenrestore = 1: vagina = 0
if Enable_tightrestore = 1: anus = 0 & if vagina > 0:vagina = 1
if Enable_clearwrite > 0: body_write = 0 & face_write = 0
!{
if Enable_clearcum > 0:
	killvar 'sparrvol[0]'
end
if Enable_fbreath > 0:
	cumspclnt = 2
	gs 'cum_cleanup'
	fbreath=1
end
}

$cumeatercleanup = {
	KILLVAR 'spafinloc',temp
	KILLVAR 'sparrage',temp
	KILLVAR 'sparrloc',temp
	KILLVAR '$sparrnam',temp
	KILLVAR 'sparrppt',temp
	KILLVAR 'sparridt',temp
	KILLVAR 'sparrvol',temp
	KILLVAR 'sparrslc',temp
	cumsumbod -= sparrvol[temp]
}

$cumeater = {
	spdirtyb = 1
	fbreath = 0
	vaf += 1
	if sparrvol[temp1arr] > 150:
		sparrvol[temp1arr] -= 100
		gs 'stat'
		'You collect a handful of sperm from your stomach in your hand and lick it all up, feeling the tart taste of semen.'
	else
		sparrvol[temp1arr] -= 20
		gs 'stat'
		'You collect the sperm from your stomach with your fingers and lick them, feeling the tart taste of semen.'
	end
	if sparrvol[temp1arr] <= 0:temp = 14 & dynamic $cumeatercleanup
}

$cumeater2 = {
	spdirtyb = 1
	fbreath = 0
	vaf += 1
	if sparrvol[temp1arr] > 150:
		sparrvol[temp1arr] -= 100
		gs 'stat'
		'You collect a handful of sperm from your pussy in your hand and lick it all up, feeling the tart taste of semen.'
	else
		sparrvol[temp1arr] -= 20
		gs 'stat'
		'You collect the sperm from your pussy with your fingers and lick them, feeling the tart taste of semen.'
	end
	if sparrvol[temp1arr] <= 0:
		temp = 0 & dynamic $cumeatercleanup
		temp = 1 & dynamic $cumeatercleanup
	end
}

$cumeater3 = {
	spdirtyb = 1
	fbreath = 0
	vaf += 1
	if sparrvol[temp1arr] > 150:
		sparrvol[temp1arr] -= 100
		gs 'stat'
		'You collect a handful of sperm from your buttocks in your hand and lick it all up, feeling the tart taste of semen.'
	else
		sparrvol[temp1arr] -= 20
		gs 'stat'
		'You collect the sperm from your buttocks with your fingers and lick them, feeling the tart taste of semen.'
	end
	if sparrvol[temp1arr] <= 0:temp = 4 & dynamic $cumeatercleanup
}

$cumeater4 = {
	spdirtyb = 1
	fbreath = 0
	vaf += 1
	if sparrvol[temp1arr] > 150:
		sparrvol[temp1arr] -= 100
		gs 'stat'
		'You collect a handful of sperm from your face in your hand and lick it all up, feeling the tart taste of semen.'
	else
		sparrvol[temp1arr] -= 20
		gs 'stat'
		'You collect the sperm from your face with your fingers and lick them, feeling the tart taste of semen.'
	end
	if sparrvol[temp1arr] <= 0:temp = 11 & dynamic $cumeatercleanup
}

$cumeater5 = {
	spdirtyb = 1
	fbreath = 0
	vaf += 1
	if sparrvol[temp1arr] > 150:
		sparrvol[temp1arr] -= 100
		gs 'stat'
		'You collect a handful of sperm from your clothes in your hand and lick it all up, feeling the tart taste of semen.'
	else
		sparrvol[temp1arr] -= 20
		gs 'stat'
		'You collect the sperm from your clothes with your fingers and lick them, feeling the tart taste of semen.'
	end
	if sparrvol[temp1arr] <= 0:
		temp = 2 & dynamic $cumeatercleanup
		temp = 5 & dynamic $cumeatercleanup
		temp = 6 & dynamic $cumeatercleanup
		temp = 7 & dynamic $cumeatercleanup
	end
}

$cumeater6 = {
	spdirtyb = 1
	fbreath = 0
	vaf += 1
	if sparrvol[temp1arr] > 150:
		sparrvol[temp1arr] -= 100
		gs 'stat'
		'You collect a handful of sperm from your anus in your hand and lick it all up, feeling the tart taste of semen.'
	else
		sparrvol[temp1arr] -= 20
		gs 'stat'
		'You collect the sperm from your anus with your fingers and lick them, feeling the tart taste of semen.'
	end
	if sparrvol[temp1arr] <= 0:temp = 3 & dynamic $cumeatercleanup
}

$cumeater7 = {
	spdirtyb = 1
	fbreath = 0
	vaf += 1
	if sparrvol[temp1arr] > 150:
		sparrvol[temp1arr] -= 100
		gs 'stat'
		'You collect a handful of sperm from your body in your hand and lick it all up, feeling the tart taste of semen.'
	else
		sparrvol[temp1arr] -= 20
		gs 'stat'
		'You collect the sperm from your body with your fingers and lick them, feeling the tart taste of semen.'
	end
	if sparrvol[temp1arr] <= 0:
		temp = 8 & dynamic $cumeatercleanup
		temp = 9 & dynamic $cumeatercleanup
		temp = 10 & dynamic $cumeatercleanup
		temp = 11 & dynamic $cumeatercleanup
		temp = 15 & dynamic $cumeatercleanup
	end
}

$cumeater8 = {
	spdirtyb = 1
	fbreath = 0
	vaf += 1
	if sparrvol[temp1arr] > 100:
		sparrvol[temp1arr] = 0
		gs 'stat'
		'You lick up the whole mouthful of sperm, feeling the tart taste as you eat it.'
	else
		sparrvol[temp1arr] = 0
		gs 'stat'
		'You lick your fingers clean, feeling the tart taste of semen.'
	end
	if sparrvol[temp1arr] <= 0:temp = 13 & dynamic $cumeatercleanup
}

$cumeater9 = {
	spdirtyb = 1
	fbreath = 0
	vaf += 1
	if sparrvol[temp1arr] > 150:
		sparrvol[temp1arr] -= 100
		gs 'stat'
		'You collect a handful of sperm from your hair in your hand and lick it all up, feeling the tart taste of semen.'
	else
		sparrvol[temp1arr] -= 20
		gs 'stat'
		'You collect the sperm from your hair with your fingers and lick them, feeling the tart taste of semen.'
	end
	if sparrvol[temp1arr] <= 0:temp = 16 & dynamic $cumeatercleanup
}

$clear_write = {
	body_write = 0
	face_write = 0
	minut += 10
	gs'stat'
	'Within 10 minutes you thoroughly washed obscene "painting" from your body.'
}

!!'<a href="exec:view''images/body/cumface.jpg''">лицо</a>'
!!'<a href="exec:view''images/body/cumface.jpg''"><b><font color="red">Your face</font></b></a>'
!!'<a href="exec:view''images/body/cumass.jpg''"><b><font color="red">Your ass</font></b></a>'

if body_write > 0 and face_write > 0:
	if body_write > 1 and face_write = 0:
		pl'<b><font color = red><a href="exec:dynamic $clear_write"><b><font color = red>Your body is inscribed with derogatory graffiti.</font></b></a>'
	elseif body_write = 1 and face_write = 0:
		pl'<b><font color = red><a href="exec:dynamic $clear_write"><b><font color = red>Your body is an obscene sign.</font></b></a>'
	elseif body_write = 0 and face_write > 1:
		pl'<b><font color = red><a href="exec:dynamic $clear_write"><b><font color = red>Your face is covered with writing obscene epithets.</font></b></a>'
	elseif body_write = 0 and face_write = 1:
		pl'<b><font color = red><a href="exec:dynamic $clear_write"><b><font color = red>On your face humiliating label.</font></b></a>'
	else
		pl'<b><font color = red><a href="exec:dynamic $clear_write"><b><font color = red>Your body and face painted with obscene graffiti.</font></b></a>'
	end
end

$temp[1] = {
	if sparridt[temp1arr] = 1:
		temp2arr = temp1arr + 1
		temp3arr = arrpos(temp2arr,'sparrloc',i)
		if temp3arr > 0 and sparrvol[temp3arr] > 0 and sparrloc[temp3arr] = i and $sparrnam[temp3arr] ! $sparrnam[temp1arr]:
			$cumtemp[1] = 'Multiple men'
		else
			$cumtemp[1] = $sparrnam[temp1arr]
		end
	else
		$cumtemp[1] = 'Somebody'
	end
	if sparrage[temp1arr] < temp[2]:
		$cumtemp[2] = 'fresh '
	elseif sparrage[temp1arr] < temp[3]:
		$cumtemp[2] = ''
	else
		temp[4] = sparrloc[temp1arr]
		if temp[4] ! 0 and temp ! 3:
			$cumtemp[2] = 'crusty '
		else
			$cumtemp[2] = 'stale '
		end
	end
}
temp = arrsize('sparrvol')
if temp > 0:
	!{index for use in dynamic}
	i = 0
	!{values for fresh and crusty, only updated where needed}
	temp[2] = 4
	temp[3] = 10
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		$cumtemp[3] = 'fills your '
		if sparrslc[temp1arr] > 0:
			$cumtemp[3] = 'slowly flows from your '
			spdirtyn = 1
		elseif sparrslc[temp] > 0 and sparrloc[temp] = 0:
			$cumtemp[3] = 'slowly flows from your '
			spdirtyn = 1
		end
		if swallow >= 10:
			pl '<a href="exec:view''images/body/cumpussy.jpg''"><b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',0) & dynamic $cumeater2"><b><font color="blue">sperm</font></b></a><b> <<$cumtemp[3]>>pussy</font></b></a>.'
		else
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm <<$cumtemp[3]>><a href="exec:view''images/body/cumpussy.jpg''">pussy</a>.</font></b>'
		end
		spdirty = 1
		spdirtyi = 1
	end
	i = 1
	temp[2] = 1
	temp[3] = 5
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		if swallow >= 10 and sparrage[temp1arr] < 5:
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',1) & dynamic $cumeater2"><b><font color="blue">sperm</font></b></a><b> is smeared across your pussy lips.</font></b>.'
		else
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your pussy lips.'
		end
		spdirty = 1
		spdirtyn = 1
	end
	i = 2
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		if swallow >= 10 and sparrage[temp1arr] < 5:
			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',2) & dynamic $cumeater5"><b><font color="blue">semen</font></b></a><b> stains on the crotch of your panties.</font></b>.'
		else
			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on the crotch of your panties.'
		end
		spdirtyc = 1
	end
	i = 3
	temp[2] = 4
	temp[3] = 10
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		if analplugin = 1:
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is stuffed in your ass, corked in by your anal plug.</font></b>'
		else
			$cumtemp[3] = 'fills your '
			if sparrslc[temp1arr] > 0:
				$cumtemp[3] = 'slowly flows from your '
				spdirtyn = 1
			elseif sparrslc[temp] > 0 and sparrloc[temp] = 3:
				$cumtemp[3] = 'slowly flows from your '
				spdirtyn = 1
			end
			if swallow >= 10:
				pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',3) & dynamic $cumeater6"><b><font color="blue">sperm</font></b></a><b> <<$cumtemp[3]>><a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
			else
				pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm <<$cumtemp[3]>><a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
			end
		end
		spdirty = 1
		spdirtyi = 1
	end
	i = 4
	temp[2] = 1
	temp[3] = 5
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		if swallow >= 10 and sparrage[temp1arr] < 5:
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',4) & dynamic $cumeater3"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumass.jpg''">ass</a>.</font></b>.'
		else
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your <a href="exec:view''images/body/cumass.jpg''">ass</a>.'
		end
		spdirty = 1
		spdirtyn = 1
	end
	i = 5
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		if swallow >= 10 and sparrage[temp1arr] < 5:
			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',5) & dynamic $cumeater5"><b><font color="blue">semen</font></b></a><b> stains on the ass of your panties.</font></b>.'
		else
			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on the ass of your panties.'
		end
		spdirtyc = 1
	end
	i = 6
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		if swallow >= 10 and sparrage[temp1arr] < 5:
			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',6) & dynamic $cumeater5"><b><font color="blue">semen</font></b></a><b> stains on the crotch of your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>.'
		else
			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on the crotch of your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.'
		end
		spdirtyc = 1
	end
	i = 7
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		if swallow >= 10 and sparrage[temp1arr] < 5:
			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',7) & dynamic $cumeater5"><b><font color="blue">semen</font></b></a><b> stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>.'
		else
			pl '<b><font color="red">You have <<$cumtemp[1]>>''s <<$cumtemp[2]>>semen stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.'
		end
		spdirtyc = 1
	end
	i = 8
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		if swallow >= 10 and sparrage[temp1arr] < 5:
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',8) & dynamic $cumeater7"><b><font color="blue">sperm</font></b></a><b> is smeared across your back.</font></b>.'
		else
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your back.'
		end
		spdirty = 1
		spdirtyn = 1
	end
	i = 9
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		if swallow >= 10 and sparrage[temp1arr] < 5:
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',9) & dynamic $cumeater7"><b><font color="blue">sperm</font></b></a><b> is smeared across your legs.</font></b>.'
		else
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your legs.'
		end
		spdirty = 1
		spdirtyn = 1
	end
	i = 10
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		if swallow >= 10 and sparrage[temp1arr] < 5:
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',10) & dynamic $cumeater7"><b><font color="blue">sperm</font></b></a><b> is smeared across your arms.</font></b>.'
		else
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your arms.'
		end
		spdirty = 1
		spdirtyn = 1
	end
	i = 11
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		if swallow >= 10 and sparrage[temp1arr] < 5:
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',11) & dynamic $cumeater7"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumface.jpg''">face</a>.</font></b>.'
		else
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your <a href="exec:view''images/body/cumface.jpg''">face</a>.'
		end
		spdirty = 1
		spdirtyn = 1
		spdirtyv = 1
	end
	i = 12
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		pl '<b><font color="red">Your mouth smells like <<$cumtemp[1]>>''s sperm.</a>.'
		spdirty = 1
		spdirtyb = 1
		fbreath = 0
	end
	i = 13
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		if swallow >= 10 and sparrage[temp1arr] < 5:
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',13) & dynamic $cumeater8"><b><font color="blue">sperm</font></b></a><b> is smeared across your hands.</font></b>.'
		else
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your hands.'
		end
		spdirty = 1
		spdirtyn = 1
		spdirtyv = 1
		spdirtyf = 1
	end
	i = 14
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		if swallow >= 10 and sparrage[temp1arr] < 5:
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',14) & dynamic $cumeater"><b><font color="blue">sperm</font></b></a><b> is smeared across your <a href="exec:view''images/body/cumbelly.jpg''">stomach</a>.</font></b>.'
		else
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your <a href="exec:view''images/body/cumbelly.jpg''">stomach</a>.'
		end
		spdirty = 1
		spdirtyn = 1
	end
	i = 15
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		if swallow >= 10 and sparrage[temp1arr] < 5:
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',15) & dynamic $cumeater7"><b><font color="blue">sperm</font></b></a><b> is smeared across your breasts.</font></b>.'
		else
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared across your breasts.'
		end
		spdirty = 1
		spdirtyn = 1
	end
	i = 16
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		dynamic $temp[1]
		if swallow >= 10 and sparrage[temp1arr] < 5:
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>><a href="exec:temp1arr = arrpos(''sparrloc'',16) & dynamic $cumeater9"><b><font color="blue">sperm</font></b></a><b> is smeared in your hair.</font></b>.'
		else
			pl '<b><font color="red"><<$cumtemp[1]>>''s <<$cumtemp[2]>>sperm is smeared in your hair.'
		end
		spdirty = 1
		spdirtyn = 1
		spdirtyv = 1
	end
	i = 17
	temp1arr = arrpos('sparrloc',i)
	if temp1arr >= 0 and sparrloc[temp1arr] = i and sparrvol[temp1arr] > 0:
		if sparridt[temp1arr] = 1:
			$cumtemp[1] = $sparrnam[temp1arr]
		else
			$cumtemp[1] = 'Somebody'
		end
		if sparrage[temp1arr] < 1:
			$cumtemp[2] = 'freshly buried'
		elseif sparrage[temp1arr] < 13:
			$cumtemp[2] = 'buried'
		else
			$cumtemp[2] = 'marinating '
		end
		pl '<b><font color="red">A spent condom full of <<$cumtemp[1]>>''s sperm is <<$cumtemp[2]>> deep in your vagina.'
		spdirty = 1
		spdirtyi = 1
	end
end
!{should kill all temp values}
killvar '$temp'
killvar '$cumtemp'
temp1arr = 0
temp2arr = 0
temp3arr = 0
cumfrot = 0
cumpussy = 0
cumbelly = 0
cumass = 0
cumlip = 0
cumface = 0
cumanus = 0

if $clothingworntype = 'nude' and lactatemess > 0:
	if lactatemess < 3:
		pl'<font color = black>You have a little milk residue around your nipples.</font>'
	elseif if lactatemess < 7:
		pl'<font color = black>You have a lot of milk residue around your nipples.</font>'
	else
		pl'<font color = black>Your breasts are drenched with milk residue.</font>'
	end
elseif lactatemess > 0:
	if lactatemess < 3:
		pl'<font color = black>You have tiny wet spots on your clothes above your nippes.</font>'
	elseif if lactatemess < 7:
		pl'<font color = black>Milk has soaked through your clothes and made visible circles on your breasts.</font>'
	else
		pl'<font color = black>Your shirt is drenched with milk from your breasts.</font>'
	end	
end

if Gerpes >= 3:pl '<b><font color="red">On your lips sores. All signs of genital herpes.</font></b>'
if Gerpes >= 10:
	pl '<b><font color="red">On your pussy sores have appeared. This is genital herpes.</font></b>'
elseif Gerpes >= 5:
	pl '<b><font color="red">Your pussy is flushed and highly itchy. This is genital herpes.</font></b>'
end
if Gerpes >= 20:pl '<b><font color="red">The sores also cover your ass.</font></b>'

if Sifilis >= 50:
	pl '<b><font color="red">Syphilitic rashes cover your whole body.</font></b>'
elseif Sifilis >= 21:
	pl '<b><font color="red">You have a single big, hard sore on the lip.</font></b>'
end

if Triper > 2:pl '<b><font color="red">From your vagina a white discharge comes out strong and stinging when urinating. Also from your vagina there''s a hard and nasty smell.</font></b>'
if Kandidoz > 30:pl '<b><font color="red">You have thrush.</font></b>'
if SLomka > 0:pl '<b><font color="red">You are very weak and hurt to the bone. You''re in withdrawal.</font></b>'
if narkday ! daystart and narkoman = 1:pl '<b><font color="red">You are very weak and hurt to the bone. Urgently need pale lady.</font></b>'
if fingal > 0:pl '<b><font color="red">You have a black eye.</font></b>'

! WD: Bimbo look
pl '<<$bimbostatus>>'

if tanga = 1 and $clothingworntype = 'nude':
	pl'<b><font color = red>You are stripped down to your panties and your boobs sway invitingly as you walk</font></b>'
elseif tanga= 1 and PCloBimbo = 1:
	pl'<b><font color = #FF1493>You are dressed as a bimbo</font></b>'
elseif tanga = 0:
	if $clothingworntype = 'naughty' and CloQuality = 2:
		pl '<b><font color="red">you are not wearing panties, but you are dressed as a hooker, so that''s hardly surprising.</font></b>'
	elseif PCloBimbo = 1:
		pl '<b><font color = #FF1493>You like, totally forgot to put on any panties. You are such a bimbo.</font></b>'
	elseif PCloSkirt > 3:
		pl '<b><font color="red">Your face is flushed with shame, you are not wearing panties and your naked ass flashes from under your short skirt.</font></b>'
	elseif opPRE = 0 and $clothingworntype ! 'nude':
		pl '<b><font color="red">You are not wearing panties.</font></b>'
	elseif towel = 1:
		pl'<b><font color = red>Your naked body is covered only by a short towel</font></b>'
	elseif $clothingworntype = 'nude':
		pl'<b><font color = red>You completely naked, and inside, everything trembles</font></b>'
	end
end

if mosol >= 50:
	pl '<b><font color="red">Your pussy hurts and each step causes more pain, it''s crimson and visiblably scuffed from walking without underwear.</font></b>'
elseif mosol >= 30:
	pl '<b><font color="red">Your pussy is flushed and itchy, it seems to be from rubbing against your clothing.</font></b>'
end

if analplugIN = 1:pl '<b><font color="red">You have inserted your butt plug into your ass.</font></b>'
if vibratorin = 1:pl '<b><font color="red">You have inserted your vibrator into your vagina.</font></b>'
if young_shop_work = 1:
	if hour = 15 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
		'You are late for work at Keys Pussy.'
	elseif hour = 15 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
		misscheck = daystart
		young_shop_miss += 1
		pl '<b><font color="red">You missed work.</font></b>'
	elseif (hour = 14 or hour = 13) and week < 6:
		pl '<b><font color="red">By 15:00 you have to be at work in the shop Keys Pussy.</font></b>'
	end
end

if workrin = 1:
	if week = 2 or week = 4 or week = 6:
		if hour = 7:pl '<b><font color="red">At 8 c''clock you start work on the market.</font></b>'
		if hour = 8:pl '<b><font color="red">You need to work on the market now.</font></b>'
	end
end

if frost > 0:
	if frost <= 5:
		pl '<b><font>You are a little chilly.</font></b>'
	elseif frost < 11:
		pl '<b><font color="red">Are you cold.</font></b>'
	else
		pl '<b><font color="red">You are very cold.</font></b>'
	end
end

if sick > 0:
	if sick = 1:
		pl '<b><font color="red">This is not good, a tickle in the throat and a little runny nose.</font></b>'
	elseif sick < 24:
		pl '<b><font color="red">You have chills. You nose is running and throat is raw, you cough and sneeze - it looks like you got a cold.</font></b>'
	elseif sick < 48:
		pl '<b><font color="red">You have a fever. Your nose is clogged, it hurts to swallow - throat aches. You continually cough and sneeze - it looks like your cold is pretty bad.</font></b>'
	elseif sick < 72:
		pl '<b><font color="red">You have a high fever. You have a stuffy nose, sore head and throat, your coughing badly - it looks like you got a strong cold. Maybe it''s the flu.</font></b>'
	else
		pl '<b><font color="red">You toss in the heat. You have a stuffy nose, headache and ache to the bone. Your throat is inflamed and very sore. You think you''re going to cough up a lung - it looks like you are seriously ill, or maybe it''s just a sore throat.</font></b>'
	end
end

if $mudnerd ! '':pl '<<$mudnerd>>'

if housr = 1:
	$streetev_home = 'your apartment'
elseif tanwork = 1:
	$streetev_home = 'Tanya''s apartment'
elseif student > 0:
	$streetev_home = 'your dorm'
else
	$streetev_home = 'the train station'
end

if hour < meethour and svidanieA = 1:pl '<<$boyA>> will be waiting for you near <<$streetev_home>> at <<meethour>>:00.'
if hour = meethour and svidanieA = 1:pl '<b><font color="red"><<$boyA>> is waiting for you by <<$streetev_home>>.</font></b>'

if meetday < daystart and svidanieA = 1:bfA -= 10 & svidanieA = 0
if StrongNarkota > 20:pl '<b><font color="red">You are stoned.</font></b>'

if alko > 0:
	if alko < 3:pl '<b><font color="red">You''re a little dizzy.</font></b>'
	if alko >= 3 and alko < 6:pl '<b><font color="red">You''re drunk.</font></b>'
	if alko >= 6:pl '<b><font color="red">You''re wasted.</font></b>'
end
if day = 31 and month = 12 and (year - year_start) < 2 and hour >= 5 and hour <= 14 and StoryLine = 1:pl 'At 14:00 your New Year''s party will start.'

if StoryLine = 1 and sisboyday + 1 = daystart and hour < 19 and (sisboyQW = 3 or sisboyQW = 5 or sisboyQW = 7 or (sisboyQW = 9 and sisboytrioQW ! 1)):pl'' & pl'You promised your sister not to go into your room at 18:00.'
if StoryLine = 1 and sisboyday + 1 = daystart and hour < 19 and sisboytrioQW = 1:pl'' & pl'You promised your sister to meet her in your room at 18:00.'



dynamic $brotherSexCount

if bag > 0:pl '<a href="exec:dynamic $d_bag"><b>Handbag</b></a>'

!!zero checks marriage
proverka1 = 0
proverka2 = 0
proverka3 = 0
proverka4 = 0
proverka5 = 0

! WD: Code for updating from old clothing system pre 0.5.0

!!clothing converter, for old saves. Not complete listing.
if remdrop = 0:
	remdrop = 1

	if jeans[1] = 1:cheap[15] = 1 & cheapH[15] = jeansH[1] & cheapB[15] = jeansB[1] & jeans[1] = 0
	if jeans[205] = 1:average[65] = 1 & averageH[65] = jeansH[205] & averageB[65] = jeansB[205] & jeans[205] = 0
	if jeans[202] = 1:average[64] = 1 & averageH[64] = jeansH[202] & averageB[64] = jeansB[202] & jeans[202] = 0
	if jeans[2] = 1:average[62] = 1 & averageH[62] = jeansH[2] & averageB[62] = jeansB[2] & jeans[2] = 0
	if jeans[222] = 1:average[75] = 1 & averageH[75] = jeansH[222] & averageB[75] = jeansB[222] & jeans[222] = 0
	if jeans[223] = 1:average[76] = 1 & averageH[76] = jeansH[223] & averageB[76] = jeansB[223] & jeans[223] = 0
	if jeans[224] = 1:average[78] = 1 & averageH[78] = jeansH[224] & averageB[78] = jeansB[224] & jeans[224] = 0
	if jeans[232] = 1:average[79] = 1 & averageH[79] = jeansH[232] & averageB[79] = jeansB[232] & jeans[232] = 0
	if jeans[233] = 1:average[80] = 1 & averageH[80] = jeansH[233] & averageB[80] = jeansB[233] & jeans[233] = 0
	if jeans[267] = 1:expensive[3] = 1 & expensiveH[3] = jeansH[267] & expensiveB[3] = jeansB[267] & jeans[267] = 0
	if jeans[263] = 1:expensive[18] = 1 & expensiveH[18] = jeansH[263] & expensiveB[18] = jeansB[263] & jeans[263] = 0
	if jeans[234] = 1:expensive[71] = 1 & expensiveH[71] = jeansH[234] & expensiveB[71] = jeansB[234] & jeans[234] = 0
	if jeans[231] = 1:expensive[124] = 1 & expensiveH[124] = jeansH[231] & expensiveB[124] = jeansB[231] & jeans[231] = 0
	if yoga[1] = 1:exercise[1] = 1 & exerciseH[1] = yogaH[1] & yoga[1] = 0
	if yoga[2] = 1:exercise[2] = 1 & exerciseH[2] = yogaH[2] & yoga[2] = 0
	if yoga[4] = 1:exercise[4] = 1 & exerciseH[4] = yogaH[4] & yoga[4] = 0
	if yoga[5] = 1:exercise[5] = 1 & exerciseH[5] = yogaH[5] & yoga[5] = 0
	if yoga[6] = 1:exercise[6] = 1 & exerciseH[6] = yogaH[6] & yoga[6] = 0
	if yoga[7] = 1:exercise[7] = 1 & exerciseH[7] = yogaH[7] & yoga[7] = 0
	if yoga[8] = 1:exercise[8] = 1 & exerciseH[8] = yogaH[8] & yoga[8] = 0
	if yoga[9] = 1:exercise[9] = 1 & exerciseH[9] = yogaH[9] & yoga[9] = 0
	if yoga[10] = 1:exercise[10] = 1 & exerciseH[10] = yogaH[10] & yoga[10] = 0
	if yoga[11] = 1:exercise[11] = 1 & exerciseH[11] = yogaH[11] & yoga[11] = 0
	if yoga[12] = 1:exercise[12] = 1 & exerciseH[12] = yogaH[12] & yoga[12] = 0
	if yoga[13] = 1:exercise[13] = 1 & exerciseH[13] = yogaH[13] & yoga[13] = 0
	if yoga[14] = 1:exercise[14] = 1 & exerciseH[14] = yogaH[14] & yoga[14] = 0
	if yoga[15] = 1:exercise[15] = 1 & exerciseH[15] = yogaH[15] & yoga[15] = 0
	if yoga[16] = 1:exercise[16] = 1 & exerciseH[16] = yogaH[16] & yoga[16] = 0
	if yoga[17] = 1:exercise[17] = 1 & exerciseH[17] = yogaH[17] & yoga[17] = 0
	if yoga[18] = 1:exercise[18] = 1 & exerciseH[18] = yogaH[18] & yoga[18] = 0
end


if Enable_statfsize>0:pl'</font>' & !disable this, all texts comes from pl will have the same font size, like[time]
if Enable_faceturn = 1:	view FUNC('$face_image')


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