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 year_start ! year and katjaPreg = 0 and month >= 2:katjaPreg = 1

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

if nopornowrestling = 0:
	nopornowrestling = 1
	NPCnum = 30
	NPCnow = 1
	!!shag = 1
	gs 'npc'
	NoView = 1
	NPCrost = 30
	gs 'generation'
	NoView = 1
	NPCrost = 30
	gs 'generation'
	NoView = 1
	NPCrost = 30
	gs 'generation'
	NoView = 1
	NPCrost = 30
	gs 'generation'
	NoView = 1
	NPCrost = 30
	gs 'generation'

	$nikname[1] = 'schoolgirl'
	!!musle[0] = 100
	!!flex[0] = agil
	!!stamina[0] = vital * 3
	!!wipo[0] = will
	!!intel[0] = 10
	!!krasota[0] = vnesh
	!!rost[0] = 165
	!!salo[0] = 100
	!!fat[0] = 100
	!!$nikname[1] = 'steel Virgo'
	!!musle[1] = 100
	!!flex[1] = 100
	!!stamina[1] = 300
	!!wipo[1] = 50
	!!intel[1] = 10
	!!krasota[1] = 10
	!!rost[1] = 165
	!!salo[1] = 100
	!!fat[1] = 100
end

if newclo[131] = 1 and SchoolAtestat = 1 or newclo[131] = 1 and SchoolBlock = 1:newclo[131] = 0

!!!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 ! -3:sweat = -3

if cheatNoEat = 1:
	if energy ! 19:energy = 19
	if water ! 19:water = 19
end

if CheatNoSleep = 1:
	son = 24
end

!!!!!!!!!!!!

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 (numdress ! 131 and Sforma > 0) and (odethooker ! 1 and numdress ! 6):Sforma = 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 = cumbelly + cumpussy + cumass + cumlip + cumface + cumfrot + cumanus

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:
	if mesec ! 0:mesec = 0
	if preg ! 0:preg = 0
	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
if health > vital * 10 + stren * 5:health = vital * 10 + stren * 5
if willpower > intel * 5 + will * 5:willpower = intel * 5 + will * 5
if manna > (intel * magik) + magik * 100 + vital * 10 + rikudo:manna = intel * magik + magik * 100 + vital * 10 + rikudo
mannamax = (intel * magik) + magik * 100 + vital * 10 + rikudo
!!musle = strenbuf + vitalbuf

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


! WD: totminut fix ~ Calculates total minutes since NYE 2000
!! old calc added the value of the variable 'minut'
!! not the number of minutes passed since last update
!if nminut ! minut:
!	!!totminut playing time in minutes
!	totminut += minut
!	nminut = minut
!end

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
	energy -= 1
	water -= 1
	son -= 1
	minut -= 60

	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 -= alko / 2
			end
		end

		alko -= 1
	end

	!!!!!!!!!!!!!
	!!!Avtoboy!!!
	!!!!!!!!!!!!!
	if hour >= 8 and hour <= 23 and NPCnum > 10:
		: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 ski =0 and glamur = 0 and $clothingworntype ! 'nude':mosolpred += 1
	

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

	if mosol >= 50:
		manna -= 5
	end

	if energy >= 25:energy -= 5 & fat += 1

	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

	! WD: Piecing arousal is bit broken as only fires at midnight is more horny than previous night
	! WD: Moved out of daily to enod of time
	! if horny > hornyStat:
		! hornyStat = horny
		! if pirsA > 0:horny += 1
		! if pirsB > 0:horny += 1
		! if pirsC > 0:horny += 1
		! if pirsD > 0:horny += 1
		! if pirsE > 0:horny += 1
		! if pirsF > 0:horny += 5
		! if pirsG > 0:horny += 5
		! if pirsN > 0:horny += 1
	! end

	! if horny < hornyStat:hornyStat = horny
	
	
	!!!!!!!!!!!!!!!
	!!!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 BuyHous = 2 and ArendHouseSL <= 0:ArendHouseSL = 0 & BuyHous = 0 & housr = 0
	if BuyHous = 2 and ArendHouseSL > 0:ArendHouseSL -= 1
	if Gspravka <= 0 and GspravkaT > 0:GspravkaT = 0 & Gspravka = 0
	if GspravkaT > 0:Gspravka -= 1
	if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30:IvanPodstavaQW = 3
	if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30:PodpiskaNeviezd += 1

	if salo > fat:
		salo -= 1
		fat += 1
		if salo>fat*2:
			salo -= 1
			fat += 1
		end
		if salo>fat*4:
			salo -= 1
			fat += 1
		end
	elseif salo < fat:
		salo += 1
		fat -= 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'

	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">The term of your residental apartment lease expired.</font></b>'
end

if month = 1 or month = 3 or month = 5 or month = 7 or month = 8 or month = 10 or month = 12:
	!!31
	if day > 31:day -= 31 & month += 1
elseif month = 2:
	!!28
	if day > 28:day -= 28 & month += 1
elseif month = 0:
	month = 1

	if day > 31:day -= 31 & month += 1
elseif month = 13:
	month = 1

	if day > 31:day -= 31 & month += 1
else
	!!30
	if day > 30:day -= 30 & month += 1
end

! if day > 30:
	! day -= 30
	! month += 1
! end

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 month = 0:month = 1
if month = 13:month = 1 & year += 1
If month = 1:$month = 'January' & $mons = 'January'
If month = 2:$month = 'February' & $mons = 'February'
If month = 3:$month = 'March' & $mons = 'March'
If month = 4:$month = 'April' & $mons = 'April'
If month = 5:$month = 'May' & $mons = 'May'
If month = 6:$month = 'June' & $mons = 'June'
If month = 7:$month = 'July' & $mons = 'July'
If month = 8:$month = 'August' & $mons = 'August'
If month = 9:$month = 'September' & $mons = 'September'
If month = 10:$month = 'October' & $mons = 'October'
If month = 11:$month = 'November' & $mons = 'November'
If month = 12:$month = 'December' & $mons = 'December'
if minut < 10:$nilmin = '0'
if minut >= 10:$nilmin = ''
if kid > 0:
	i = 1
	:LoopKidAgeCounter
	if i <= kid:
		if year > yearkid[i] and markyear[i] ! year:
			if monthkid[i] = month and daykid[i] = day:
				markyear[i] = year
				kidage[i] += 1
			end
		end
		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 = 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 Sexual = 1 and horny < 70:set horny += rand(0, 2)
			if glamur = 1 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 -= 1

	if fat = 0 and stren + vital > 0:
		stren -= 1
		vital -= 1
		energy += 2
	elseif fat = 0 and stren + vital <= 0:
		over = 3
		gt 'gameover'
		exit
	elseif fat > 0:
		fat -= 1
		energy += 2
	end
end

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

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

if health < 0:
	over = 1
	gt 'gameover'
	exit
end

if willpower < 0 and StoryLine = 0:
	over = 2
	gt 'gameover'
	exit
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 >= vital * 10 + stren * 5:
	$health = '<font color="green">You are very healthy.</font>'
elseif health >= (vital * 10 + stren * 5) * 75 / 100:
	$health = '<font color="blue">You are healthy.</font>'
elseif health >= (vital * 10 + stren * 5) * 50 / 100:
	$health = '<font color="brown">you are not healthy.</font>'
elseif health >= (vital * 10 + stren * 5) * 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 >= intel * 5 + will * 5:
	$willpower = '<font color="green">Your mind is clear.</font>'
elseif willpower >= (intel * 5 + will * 5) * 75 / 100:
	$willpower = '<font color="blue">You are mostly in thought.</font>'
elseif willpower >= (intel * 5 + will * 5) * 50 / 100:
	$willpower = '<font color="brown">You are depressed.</font>'
elseif willpower >= (intel * 5 + will * 5) * 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 >= intel * magik + magik * 100 + vital * 10 + rikudo:
	$manna = '<font color="green">You are in a good mood.</font>'
elseif manna >= (intel * magik + magik * 100 + vital * 10 + rikudo) * 75 / 100:
	$manna = '<font color="blue">You have a normal mood.</font>'
elseif manna >= (intel * magik + magik * 100 + vital * 10 + rikudo) * 50 / 100:
	$manna = '<font color="brown">You are in a bad mood.</font>'
elseif manna >= (intel * magik + magik * 100 + vital * 10 + rikudo) * 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 >= 20:$energy = '<font color="green">You couldn''t eat one more bite.</font>'
	elseif energy < 20 and energy >= 10:$energy = '<font color="blue">You''re not really hungry, but a small snack would be very welcome.</font>'
	elseif energy < 10 and energy >= 2:$energy = '<font color="brown">You are hungry.</font>'
	elseif energy < 2:$energy = '<font color="red">You are very hungry.</font>'
end

if water >= 20:$water = '<font color="green">You are not thirtsy at all.</font>'
	elseif water < 20 and water >= 10:$water = '<font color="blue">You are slightly thirsty.</font>'
	elseif water < 10 and water >= 2:$water = '<font color="brown">You are thirsty.</font>'
	elseif water < 2:$water = '<font color="red">You are very thirsty.</font>'
end

if son >= 20:$son = '<font color="green">You are well rested.</font>'
	elseif son < 20 and son >= 10:$son = '<font color="blue">You are slightly tired.</font>'
	elseif son < 10 and son >= 2:$son = '<font color="brown">You are tired.</font>'
	elseif son < 2:$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 = 25:$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 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 Pavlovsky
	FabrikaProgul += 1
	FabrikaProgulDay = day
end

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

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

pl '<b><<money>></b> rubles in your purse.'
if karta > 0:pl '<b><<karta>></b> rubles in your bank account.'
if stolmoney > 0:pl '<b><<stolmoney>></b> rubles 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'

	healthmax = (vital * 10 + stren * 5)
	gs 'indik', '1', health * 100 / healthmax, health
	pl '<<$ind>> Health'

	willpowermax = intel * 5 + will * 5
	gs 'indik', '1', willpower * 100 / willpowermax, willpower
	pl '<<$ind>> Willpower'

	gs 'indik', '1', manna * 100 / mannamax, manna
	pl '<<$ind>> Mood'

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

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

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

if  pogodaday = daystart: pl '<<$pogoda>>' & 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 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
	pl
end

!MJ: It should be moved up .... Before sentences update.
if fairycurse >= daystart: horny = 90

$smoker = {
	siga -= 1
	smoker += 1
	smokeHour = hour
	smokeDay = day
	smokeminut = minut + 5
	smokeNeed = 0
	cumlip = 0
	fbreath = 0
	manna += 100
	wipo += 100
	if energy < 20:energy += 3
	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>.'
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 pirs_pain_ton = 1:
	pl '<font color="red">Your tongue is uncomfortable and it is a little swollen.</font>'
elseif pirs_pain_ton = 2:
	pl '<font color="red">Your tongue aches and it is noticeably swollen.</font>'
elseif pirs_pain_ton > 2:
	pl '<font color="red"><b>You have a sore tongue, it is very swollen and almost fills your mouth.</b></font>'
end

if pirs_pain_ton > 0: pl
if nippain > 0:pl '<font color="red"><b><<$nippain>></b></font>'
if painpub > 0:pl '<font color="red"><b><<$painpub>></b></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

if sweat > 0: pl

if preg = 1:
	rodtime = 280 - pregtime
	if pregtime < 280 and pregtime > 27:knowpreg = 1 & pl '<b><font color="blue">You have been pregnant for <<pregtime>> days. Days until delivery <<rodtime>></font></b>'
	if pregtime = 280:pl '<b><font color="red">You urgently need to go to the hospital</font></b>'
	if pregtime >= 210:
		pl'<font color = black>You have a huge <a href="exec:view''images/pregnant/3.jpg''"> stomach</a> pregnant woman</font>'
	elseif pregtime >= 150:
		pl'<font color = black>Your <a href="exec:view''images/pregnant/2.jpg''"> tummy</a> rounded and very noticeable. surrounding see, you are pregnant</font>'
	elseif pregtime >= 90:
		pl'<font color = black>Do you have a barely perceptible <a href="exec:view''images/pregnant/1.jpg''"> tummy</a>, which, however, invisible under clothing</font>'
	end
else
	if isprok = 0 and mesec > 0:pl '<b><font color="red">You are bleeding between your legs, urgently need a tampon.</font></b>'
	if isprok = 1 and mesec > 0:pl 'You are having your period.'
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>TheAM To go to work in the factory as a seamstress Pavlovsky</font></b>'

if cumlip = 1:fbreath = 0

$cumeater = {
	if rand(0,3) = 0: energy += 1
	cumbelly = 0
	cumlip += 1
	vaf += 1
	gs 'stat'
	'You collect the sperm from your stomach with your fingers and lick them feeling the tart taste of semen.'
}
$cumeater2 = {
	if rand(0,3) = 0: energy += 1
	cumpussy = 0
	cumlip += 1
	vaf += 1
	gs 'stat'
	'You collect the sperm from your pussy with your fingers and lick them feeling the tart taste of semen.'
}
$cumeater3 = {
	if rand(0,3) = 0: energy += 1
	cumass = 0
	cumlip += 1
	vaf += 1
	gs 'stat'
	'You collect the sperm from your buttocks with your fingers and lick them feeling the tart taste of semen.'
}
$cumeater4 = {
	if rand(0,3) = 0: energy += 1
	cumface = 0
	cumlip += 1
	vaf += 1
	gs 'stat'
	'You collect the sperm from your face with your fingers and lick them feeling the tart taste of semen.'
}
$cumeater5 = {
	if rand(0,3) = 0: energy += 1
	cumfrot = 0
	cumlip += 1
	vaf += 1
	gs 'stat'
	'You collect the sperm from your clothes with your fingers and lick them feeling the tart taste of semen.'
}

$cumeater6 = {
	if rand(0,3) = 0: energy += 1
	cumanus = 0
	cumlip += 1
	vaf += 1
	gs 'stat'
	'You collect the sperm from your anus with your fingers and lick them feeling the tart taste of semen.'
}

$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

if swallow < 10:
	if cumbelly > 0:pl '<b><font color="red">Your <a href="exec:view''images/body/cumbelly.jpg''">stomach</a> is smeared with sperm.</font></b>'
	if cumpussy > 0:pl '<b><font color="red">Sperm slowly flows from your <a href="exec:view''images/body/cumpussy.jpg''">pussy</a>.</font></b>'
	if cumass > 0:pl '<b><font color="red">Your <a href="exec:view''images/body/cumass.jpg''">ass</a> is smeared with semen.</font></b>'
	if cumface > 0:pl '<b><font color="red">Your <a href="exec:view''images/body/cumface.jpg''">face</a> and hair are smeared with sperm.</font></b>'
	if cumfrot > 0:pl '<b><font color="red">You have semen stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>'
	if cumanus > 0:pl '<b><font color="red">Sperm slowly flows from your <a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
else
	if cumbelly > 0:pl '<a href="exec:view''images/body/cumbelly.jpg''"><b><font color="red">Your stomach is smeared with </font></b></a><a href="exec:dynamic $cumeater"><b><font color="blue">sperm.</font></b></a>'
	if cumpussy > 0:pl '<a href="exec:view''images/body/cumpussy.jpg''"><a href="exec:dynamic $cumeater2"><b><font color="blue">Sperm</font></b></a><b><font color="red"> slowly flows from your pussy</font></b></a>.'
	if cumass > 0:pl '<a href="exec:view''images/body/cumass.jpg''"><b><font color="red">Your ass is smeared with </font></b></a><a href="exec:dynamic $cumeater3"><b><font color="blue">semen.</font></b></a>'
	if cumface > 0:pl '<a href="exec:view''images/body/cumface.jpg''"><b><font color="red">Your face and hair are smeared with </font></b></a><a href="exec:dynamic $cumeater4"><b><font color="blue">sperm.</font></b></a>'
	if cumfrot > 0:pl '<a href="exec:view''images/body/cumfrot.jpg''"><b><font color="red">You have <a href="exec:dynamic $cumeater5"><b><font color="blue">semen</font></b></a> stains on your clothes</font></b></a>.'
	if cumanus > 0:pl '<a href="exec:view''images/body/cumanal.jpg''"><a href="exec:dynamic $cumeater6"><b><font color="blue">Sperm</font></b></a><b><font color="red"> slowly flows from your ass</font></b></a>.'
end

if cumlip > 0:pl '<b><font color="red">Your mouth smells like sperm.</font></b>'

if vgape > 0:
	if vgape >= 3:
		pl '<b><font color="red">You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.</font></b>'
	elseif vgape = 2:
		pl '<b><font color="red">You have a sore vagina and you can hardly keep your feet together.</font></b>'
	else
		pl '<b><font color="red">You have a slightly sore vagina.</font></b>'
	end
end

if agape > 0:
	if agape = 3:
		pl '<b><font color="red">You have very sore anus and it emits blood.</font></b>'
	elseif agape = 2:
		pl '<b><font color="red">You have a sore anus.</font></b>'
	else
		pl '<b><font color="red">You have a slightly sore and itchy anus.</font></b>'
	end
end

if spanked > 0:
	if spanked >= 3:
		pl '<b><font color="red">Your <a href="exec:view''images/picb/SpankedAss2.jpg''">poor ass</a> hurts mercilessly, it is covered in bright red scars from the blows, some of them forming bruises.</font></b>'
	elseif spanked = 2:
		pl '<b><font color="red">Your <a href="exec:view''images/picb/SpankedAss1.jpg''">ass</a> burns with fire, you can clearly see bands of red across both cheeks.</font></b>'
	else
		pl '<b><font color="red">Your <a href="exec:view''images/picb/SpankedAss.jpg''">ass</a> is a little red from spanking and it stings a little.</font></b>'
	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
if cloth_vid = 1:
	pl '<b><a href="exec:dynamic $din_exhibiTakeOffBimbo">You look like a bimbo</a></b>'
elseif exhibiHideNewCloth ! 1 and hcol = 3 and (exhibi + lip + skin + mop + tits) >= 15 and (ski + glamur + sexual) >= 1:
	pl '<b><a href="exec:dynamic $din_exhibiHideNewCloth">You could wear a bimbo outfit</a></b>'
end
!{
if cloth_vid = 1:
	!pl '<b><a href="exec:dynamic $din_exhibiTakeOffBimbo">You are dressed up like a bimbo</a></b>'
end
if exhibi >= 4 and exhibiHideNewCloth ! 1:
	pl '<b><a href="exec:dynamic $din_exhibiHideNewCloth">You have opened a new outfit</a></b>'
end
}
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 = 0:
	if (ski = 1 or glamur = 1):
		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 $clothingworntype = 'hooker':
		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 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 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 and week < 6:
		pl '<b><font color="red">At 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 hour < meethour and svidanieA = 1:pl '<<$boyA>> will be waiting for you near your home at <<meethour>> hours'
if hour = meethour and svidanieA = 1:pl '<b><font color="red"><<$boyA>> is waiting for you by your 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 my sister not to go into your room in  18 hours'
if StoryLine = 1 and sisboyday + 1 = daystart and hour < 19 and sisboytrioQW = 1:pl'' & pl'You promised my sister to come into your room in  18 hours'



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 CE
!{
!!clothing repair, for old saved.
if remdrop = 0:
	remdrop = 1

	if jeans = 1:jeans[1] = 1 & jeansH[1] = 50 & jeansB[1] = bedra
	if jeans2 = 1:jeans[2] = 1 & jeansH[2] = 50 & jeansB[2] = bedra
	if jeans3 = 1:jeans[3] = 1 & jeansH[3] = 50 & jeansB[3] = bedra
	if jeans4 = 1:jeans[4] = 1 & jeansH[4] = 50 & jeansB[4] = bedra
	if jeans5 = 1:jeans[5] = 1 & jeansH[5] = 50 & jeansB[5] = bedra
	if yoga = 1:yoga[1] = 1 & yogaH[1] = 50
	if yoga2 = 1:yoga[2] = 1 & yogaH[2] = 50
	if yoga3 = 1:yoga[3] = 1 & yogaH[3] = 50
	if yoga4 = 1:yoga[4] = 1 & yogaH[4] = 50
	if yoga5 = 1:yoga[5] = 1 & yogaH[5] = 50
	if yoga6 = 1:yoga[6] = 1 & yogaH[6] = 50
	if yoga7 = 1:yoga[7] = 1 & yogaH[7] = 50
	if yoga8 = 1:yoga[8] = 1 & yogaH[8] = 50
	if yoga9 = 1:yoga[9] = 1 & yogaH[9] = 50
	if yoga10 = 1:yoga[10] = 1 & yogaH[10] = 50
	if yoga11 = 1:yoga[11] = 1 & yogaH[11] = 50
	if yoga12 = 1:yoga[12] = 1 & yogaH[12] = 50
	if yoga13 = 1:yoga[13] = 1 & yogaH[13] = 50
	if yoga14 = 1:yoga[14] = 1 & yogaH[14] = 50
	if yoga15 = 1:yoga[15] = 1 & yogaH[15] = 50
	if yoga16 = 1:yoga[16] = 1 & yogaH[16] = 50
	if yoga17 = 1:yoga[17] = 1 & yogaH[17] = 50
	if yoga18 = 1:yoga[18] = 1 & yogaH[18] = 50
	if sarafan = 1:sarafan[1] = 1 & sarafanH[1] = 50
	if sarafan2 = 1:sarafan[2] = 1 & sarafanH[2] = 50
	if short = 1:short[1] = 1 & shortH[1] = 50 & shortB[1] = bedra
	if short2 = 1:short[2] = 1 & shortH[2] = 50 & shortB[2] = bedra
	if short3 = 1:short[3] = 1 & shortH[3] = 50 & shortB[3] = bedra
	if short4 = 1:short[4] = 1 & shortH[4] = 50 & shortB[4] = bedra
	if short5 = 1:short[5] = 1 & shortH[5] = 50 & shortB[5] = bedra
	if skirt = 1:skirt[1] = 1 & skirtH[1] = 50 & skirtB[1] = bedra
	if skirt2 = 1:skirt[2] = 1 & skirtH[2] = 50 & skirtB[2] = bedra
	if skirt3 = 1:skirt[3] = 1 & skirtH[3] = 50 & skirtB[3] = bedra
	if skirt4 = 1:skirt[4] = 1 & skirtH[4] = 50 & skirtB[4] = bedra
	if skirt5 = 1:skirt[5] = 1 & skirtH[5] = 50 & skirtB[5] = bedra
	if dress = 1:dress[1] = 1 & dressH[1] = 100 & dressB[1] = bedra
	if dress2 = 1:dress[2] = 1 & dressH[2] = 100 & dressB[2] = bedra
	if dress3 = 1:dress[3] = 1 & dressH[3] = 100 & dressB[3] = bedra
	if dress4 = 1:dress[4] = 1 & dressH[4] = 100 & dressB[4] = bedra
	if dress5 = 1:dress[5] = 1 & dressH[5] = 100 & dressB[5] = bedra
	if dress6 = 1:dress[6] = 1 & dressH[6] = 100 & dressB[6] = bedra
	if dress7 = 1:dress[7] = 1 & dressH[7] = 100 & dressB[7] = bedra
	if dress8 = 1:dress[8] = 1 & dressH[8] = 100 & dressB[8] = bedra
	if dress9 = 1:dress[9] = 1 & dressH[9] = 100 & dressB[9] = bedra
	if dress10 = 1:dress[10] = 1 & dressH[10] = 100 & dressB[10] = bedra
	if dress11 = 1:dress[11] = 1 & dressH[11] = 100 & dressB[11] = bedra
	if dress12 = 1:dress[12] = 1 & dressH[12] = 100 & dressB[12] = bedra
	if dress13 = 1:dress[13] = 1 & dressH[13] = 100 & dressB[13] = bedra
	if dress14 = 1:dress[14] = 1 & dressH[14] = 100 & dressB[14] = bedra
	if dress15 = 1:dress[15] = 1 & dressH[15] = 100 & dressB[15] = bedra
	if dress16 = 1:dress[16] = 1 & dressH[16] = 100 & dressB[16] = bedra
	if dress17 = 1:dress[17] = 1 & dressH[17] = 100 & dressB[17] = bedra
	if dress18 = 1:dress[18] = 1 & dressH[18] = 100 & dressB[18] = bedra
	if dress19 = 1:dress[19] = 1 & dressH[19] = 100 & dressB[19] = bedra
	if dress20 = 1:dress[20] = 1 & dressH[20] = 100 & dressB[20] = bedra
	if dress21 = 1:dress[21] = 1 & dressH[21] = 100 & dressB[21] = bedra
	if dress22 = 1:dress[22] = 1 & dressH[22] = 100 & dressB[22] = bedra
	if dress23 = 1:dress[23] = 1 & dressH[23] = 100 & dressB[23] = bedra
	if dress24 = 1:dress[24] = 1 & dressH[24] = 100 & dressB[24] = bedra
	if profi = 1:profi[1] = 1 & profiH[1] = 50 & profiB[1] = bedra
	if profi2 = 1:profi[2] = 1 & profiH[2] = 50 & profiB[2] = bedra
	if pants = 1:pants[1] = 1 & pantsH[1] = 50 & pantsB[1] = bedra
	if pants2 = 1:pants[2] = 1 & pantsH[2] = 50 & pantsB[2] = bedra
	if pants3 = 1:pants[3] = 1 & pantsH[3] = 50 & pantsB[3] = bedra
	if pants4 = 1:pants[4] = 1 & pantsH[4] = 50 & pantsB[4] = bedra
	if pants5 = 1:pants[5] = 1 & pantsH[5] = 50 & pantsB[5] = bedra
	if latex = 1:latex[1] = 1 & latexH[1] = 50 & latexB[1] = bedra
	if latex2 = 1:latex[2] = 1 & latexH[2] = 50 & latexB[2] = bedra
	if hooker = 1:hooker[1] = 1 & hookerH[1] = 50 & hookerB[1] = bedra
	if hooker2 = 1:hooker[2] = 1 & hookerH[2] = 50 & hookerB[2] = bedra
	if hooker3 = 1:hooker[3] = 1 & hookerH[3] = 50 & hookerB[3] = bedra
	if hooker4 = 1:hooker[4] = 1 & hookerH[4] = 50 & hookerB[4] = bedra
	if hooker5 = 1:hooker[5] = 1 & hookerH[5] = 50 & hookerB[5] = bedra
	if dressel1 = 1:odekis[1] = 1 & odekisH[1] = 50 & odekisB[1] = bedra
	if odekis1 = 1:odekis[2] = 1 & odekisH[2] = 50 & odekisB[2] = bedra
	if odekis2 = 1:odekis[3] = 1 & odekisH[3] = 50 & odekisB[3] = bedra
	if odekis3 = 1:odekis[4] = 1 & odekisH[4] = 50 & odekisB[4] = bedra
	if odekis4 = 1:odekis[5] = 1 & odekisH[5] = 50 & odekisB[5] = bedra
	if odekis5 = 1:odekis[6] = 1 & odekisH[6] = 50 & odekisB[6] = bedra
	if odekis6 = 1:odekis[7] = 1 & odekisH[7] = 50 & odekisB[7] = bedra
	if odekis7 = 1:odekis[8] = 1 & odekisH[8] = 50 & odekisB[8] = bedra
	if odekis8 = 1:odekis[9] = 1 & odekisH[9] = 50 & odekisB[9] = bedra
	if odekis9 = 1:odekis[10] = 1 & odekisH[10] = 50 & odekisB[10] = bedra
end
}

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