glife/locations/stat

# stat
clr
view
gs 'dinSex2'

if nippain = 2:
	if nippainday + 5 < daystart:
		$nippain = 'You have greatly hurt nipples.'
		nippain = 1
		nippainday = daystart
	elseif nippainday + 5 >= daystart:
		$nippain = 'You have greatly hurt nipples.'
	end
elseif nippain = 1:
	if nippainday + 5 < daystart:
		$nippain = ''
		nippain = 0
	elseif nippainday + 5 >= daystart:
		$nippain = 'You have a little sore nipples.'
	end
end

if painpub = 2:
	if painpubday + 5 < daystart:
		$painpub = 'You have very sore vagina.'
		painpub = 1
		painpubday = daystart
	elseif painpubday + 5 >= daystart:
		$painpub = 'You have very sore vagina.'
	end
elseif painpub = 1:
	if painpubday + 5 < daystart:
		$painpub = ''
		painpub = 0
		painpubday = daystart
	elseif painpubday + 5 >= daystart:
		$painpub = 'You have a little sore vagina.'
	end
end

if year = 2011 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
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

!!!CV edition
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Automatic Stuff
if AutoMakeupType < 2: AutoMakeupType = 2

if AutoHapri = 1 and greben > 0 and hapri = 0 and InSleep = 0:
	minut += 3
	hapri = 1
	'You brush your hair.'
end

if AutoMakeup = 1 and kosmetitka > 0 and mop = 1 and InSleep = 0 and (AutoMakeupSleep = 1 or (AutoMakeupSleep = 0 and HasWashed = 0)):
	mop = AutoMakeupType

	if $CurLoc = 'vanr' or $CurLoc = 'vanrPar' or bag > 0:
		if kosmetica < 3 and mop = 4: mop = 3
		if kosmetica < 2 and mop = 3: mop = 2

		if kosmetica < 1 and mop ! 1:
			mop = 1
			'You have no make-up left.'
		else
			if mop = 2:
				'You apply just enough make-up to touch up a few spots.'
				minut += 3
				kosmetica -= 1
				'You lightly summed eyes and a little lipstick.'
			end
			if mop = 3:
				'You apply an amount of make-up, that should pass as an everyday-like setup.'
				minut += 5
				kosmetica -= 2
				'You lipstick, summed up the eyes and eyelids.'
			end
			if mop = 4:
				'You apply an amount of make-up, that others usually wear, when they go out.'
				minut += 10
				vidageday -= 1
				kosmetica -= 3
				'You densely nakrasili eyes, imposed shadows and mascara , nakrasili lip contour pencil and lipstick.'
			end
		end
	else
		if kosmetitka < 3 and mop = 4: mop = 3
		if kosmetitka < 2 and mop = 3: mop = 2
		if kosmetitka < 1 and mop ! 1:
			mop = 1
			'You have no make-up left.'
		else
			if mop = 2:
				'You apply just enough make-up to touch up a few spots.'
				minut += 3
				kosmetitka -= 1
				'You lightly summed eyes and a little lipstick.'
			end
			if mop = 3:
				'You apply an amount of make-up, that should pass as an everyday-like setup.'
				minut += 5
				kosmetitka -= 2
				'You lipstick, summed up the eyes and eyelids.'
			end
			if mop = 4:
				'You apply an amount of make-up, that others usually wear, when they go out.'
				minut += 10
				vidageday -= 1
				kosmetitka -= 3
				'You densely nakrasili eyes, imposed shadows and mascara , nakrasili lip contour pencil and lipstick.'
			end
		end
	end
end

if AutoVibrator = 1 and vibrator = 1 and vibratorIN=0:
	if $CurLoc = 'vanr' or $CurLoc = 'vanrPar':
		minut += 5
		vibratorIN = 1

		if vagina < 30:vagina += 2
		'You bend over the sink and inserted the vibrator in your pussy.'
	end
end

if AutoEnema = 1 and klismaday ! day:
	if $CurLoc = 'vanr' or $CurLoc = 'vanrPar':
		minut += 5
		klismaday = day
		klismaday1 = 1
		'You give yourself an enema and clean your intestines. Your ass is now ready for anal sex.'
	end
end

if AutoButtPlug = 1 and AutoEnema = 1 and analplug = 1 and analplugIN = 0:
	if $CurLoc = 'vanr' or $CurLoc = 'vanrPar':
		minut += 5
		analplugIN = 1
		plugday = daystart

		if anus < 10:anus = anus + 5
		if anus >= 10 and anus < 20:anus += rand(1, 2)
		if anus >= 20 and anus < 30:anus += rand(0, 1)

		if butpluguse > 0:
			'You bent over and inserted the butt plug.'
		else
			butpluguse = 1
			'"If I don''t use it then why did I buy it!" you thought. You decided to take a closer look while thinking, "It is necessary to start developing my ass so I could have great adventures someday, you could even say a huge and thick adventures with crimson heads, uh, now I got carried away." You scratched your head. Then you directed it in your ass, it was a bit painful at first, but as soon as the widest part was plunged into the murky depths of your anus it became easier to push it all the way.'
		end
	end
end

if lipbalm > 0 and lipbalmstat <= 0 and AutoLipBalm = 1:
	minut -= 10
	lipbalm -= 1
	lipkoef += rand(5, 15)

	if lipkoef > 50:
		lipkoef = 0
		lip += 1
	end

	lipbalmstat += 8
	'You apply a lip balm, to moisterize them.'
end

if AutoVitamins = 1 and vitamin > 0 and vitaminday ! day:
	minut += 5
	vitaminday = day
	vitamin -= 1
	frost = 0
	skinvan += 1

	if KandidozOnce = 1:Kandidoz -= 2
	if GerpesOnce = 1:Gerpes -= 2
	if SifacOnce = 1 and Sifilis >= 10:Sifilis -= rand(0, 1)
	if skinvan = 20:skinvan = 0 & skin += 1
end
!!!

!!!CHEATS!!!
if cheatWork = 1:work = 0
if cheatWorkKiskis = 1:young_shop_miss = 0
if cheatHapri = 1:hapri = 1
if cheatKlisma = 1:klismaday = day & 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 alko > 0 and frost > 0:frost = 0
if lernSkill >= 8:intel += 1 & lernSkill = 0
if lern >= 10:intel += 1 & lern = 0
if GorSlut = 1:$gnikname = 'flirt'
if GorSlut = 2:$gnikname = 'easy A'
if GorSlut = 3:$gnikname = 'cocksucker'
if GorSlut = 4:$gnikname = 'sex addict'
if GorSlut = 5:$gnikname = 'slut'
if GorSlut = 6:$gnikname = 'talking pussy'
if GorSlut >= 2:KatjaKnowBJ = 1
if GorSlut >= 1 or preg > 0:KatjaKnowSex = 1
if GorSlut > 6: GorSlut = 6
if film > 0 and kompromatLife < 10:
 !pornoaktrissa
	if kompromatLife < 10:kompromatLife = 10

	$kompromatFoto = 'This photo is a screenshot from one of the porn movies you were part of.'
end

if fotoyousuck = 1 and kompromatLife < 9:
	!!sucked in a couple of guys and was sfotografirovanna
	if kompromatLife < 9:kompromatLife = 9

	$kompromatFoto = 'These pictures show you sucking two cocks at the same time.'
end

if fotoCFNMsex > 0 and kompromatLife < 8:
	kompromatLife = 8
	$kompromatFoto = 'In this photo you see yourself getting fucked from behind by a random guy. This must have been taken in the stripclup.'
end

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

if fotoCFNMblowjob > 0 and kompromatLife < 6:
	!!sucked in front of everyone
	kompromatLife = 6
	$kompromatFoto = 'In this 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.'
end

if stripdancesum > 0 and kompromatLife < 2:
	!!stripper
	if kompromatLife < 2:kompromatLife = 2

	$kompromatFoto = 'In this photo you are dancing on a pole, obviously someone photographed you, while you were on stage at the stripclub.'
end

if modelfoto > 0 and kompromatLife < 1:
	!!photo model
	if kompromatLife < 1:kompromatLife = 1

	$kompromatFoto = 'These are photos of you being naked, when you were taking pictures at the model agence.'
end

shameless = guy + bj + anal + hj + ((slutty + gang) * 2)
moneySUM = money + karta + stolmoney
cumSUM = cumbelly + cumpussy + cumass + cumlip + cumface + cumfrot + cumanus
gs 'dina'
gs 'din2'

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

VeneraN = 0

if VeneraOnce > 0:VeneraOnce = 0
if SifacOnce = 1:VeneraN += 1
if GerpesOnce = 1:VeneraN += 1
if TriperOnce = 1:VeneraN += 1

Venera = VeneraN

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 libonce = 0:
	libonce = 1
	addqst 'lib/otg_lib_menu_eng.qsp'
end

if youngshoponce = 0:
	youngshoponce = 1
	addqst 'youngshop.qsp'
end

if qwestonce = 0:
	qwestonce = 1
	addqst 'qwest/qwest.qsp'
end
'!

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 nark >= 30 and narkoman = 0:
	narkoman = 1
elseif nark = 0 and narkoman = 0:
	narkoman = 0
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>Do you feel like that might be revealed within you and you gushed magic, lifting you to a new energy level.</b>'

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

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

if vidageday <= 0:
	vidageday = 360
	vidage += 1
end

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

! Zero totminut will be at New Years Eve of 2000

! Years since 2000 in days
totminut = (year - 2000) * 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



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 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 ! day:
		health -= 5
		willpower -= 5
		manna -= 10
	end

	if tanga = 0 and ski =0 or glamur = 0 and tanga = 0:mosolpred += 1

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

	if mosol >= 50:
		manna -= 5
	end

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

	if tanga = 1 and mosol > 0:mosol -= 1
	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 volleysostav > 0: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'
	end

	if NPCnum >= 290 and 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
	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
	day += 1
	daystart += 1
	week += 1
	hour -= 24

	!!RFP
	if SifacOnce = 1:Sifilis += 1
	if GerpesOnce = 1:Gerpes += 1
	if TriperOnce = 1:Triper += 1
	if KandidozOnce = 1:Kandidoz += 1
	if beg >= 100 and beg < 1000:beg -= 1
	if beg >= 1000 and beg < 1500:beg -= 2
	if beg >= 1500 and beg < 2000:beg -= 3
	if beg >= 2000:beg -= 4

	vidageday -= 1
	if workDolgDay > 0:workDolgDay -= 1
	if QWdogreiqTimer > 0:QWdogreiqTimer -= 1
	if husband > 0:husbanday += 1
	if kid > 0:kid += 1
	if husband > 10 and husbanday > 0:husband -= 15
	if fingal > 0:fingal -= 1

	if husbandMark = 1 and husband <= 10:
		husbizvradd = 0
		husbharmin = 0
		husbandMark = 0
		husband = 0
		divorced += 1

		if KFOnLineReaga > 0:KFOnLineReaga -= 1

		'<b><font color="red">Your husband has filed for a divorce.</font></b>'
	end

	gs 'cikl'

	if nark > 0:nark -= 1
	if pregtime > 10:fat += 1
	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">You have received <<pay>> rubles salary for your job as a secretary on your bank account.</font></b>'
	end

	if workKafe = 1 and paydayKafe = 0:
		paydayKafe = 1
		pay = smenaKafe * 600
		money += pay
		smenaKafe = 0
		'<b><font color="green">You have received <<pay>> rubles salary for your job as a waitress in a cafe on your bank account.</font></b>'
	end

	if workhosp = 1 and nopaypoly = 0:
		pay = smena * 1000
		money += pay
		smena = 0
		nopaypoly = 1
		'<b><font color="green">You have received <<pay>> rubles salary for your work in the clinic on your bank account.</font></b>'
	end

	if worksalon = 1 and nopaysalon = 0:
		pay = smena * 800
		money += pay
		smena = 0
		nopaysalon = 1
		'<b><font color="green">You have received <<pay>> rubles salary for your work in a beauty salon on your bank account.</font></b>'
	end

	if tanwork = 1 and nopaytanwork = 0:
		nopaytanwork = 1
		money += 25000
		'<b><font color="green">You have received a salary of 25,000 rubles for your work as a house maid on your bank account.</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">You have received <<pay>> rubles salary for your job as a secretary on your bank account.</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 sent you <<huspay>> rubles to 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 = 'Martha'
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:
	if year > yearkid[1] and markyear[1] ! year:
		if monthkid[1] = month and daykid[1] = day:
			markyear[1] = year
			kidage[1] += 1
		end
	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 to again plunge into a book.</font>'
	end
	if lastreadday + 2 = daystart:
		SbrosNerdism = 0

		if manna > mannamax / 2:manna -= 10

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

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

		SbrosNerdism = 1
		$mudnerd = '<font color="red"><b>You terribly want at least something to read!!!</b></font>'
	end

	!!$mudnerd += 'lastread<<lastread>> totminut<<totminut>> <<totminut - lastread>>'
else
	SbrosNerdism = 0
	$mudnerd = ''
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 = pirsA + pirsB + pirsC + pirsD + pirsE + pirsN + (pirsF + pirsG) * 5
					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

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



!!!!!!!!!!!!!!!!!!!
!!!end OF TIME!!!
!!!!!!!!!!!!!!!!!!!
subage = 0
:metakasubage
subage += 10

if subage + 10 < age:
	jump 'metakasubage'
else
	subage = age - subage
end

if subage = 0 or subage >= 5:
	$letgoda = 'years'
elseif subage = 1:
	$letgoda = 'year'
else
	$letgoda = 'year'
end

subagevne = 0
:metakasubagevne
subagevne += 10

if subagevne + 10 < vidage:
	jump 'metakasubagevne'
else
	subagevne = vidage - subagevne
end

if subagevne ! 1:
	$letgoda2 = 'years'
else
	$letgoda2 = 'year'
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

gs 'body'
!!!!!!!!!!!!!
if health = vital * 10 + stren * 5:$health = '<font color="green">You are very healthy.</font>'
if willpower = intel * 5 + will * 5:$willpower = '<font color="green">Your mind is clear.</font>'
if manna = intel * magik + magik * 100 + vital * 10 + rikudo:$manna = '<font color="green">You are in a good mood.</font>'

if health < vital * 10 + stren * 5 and health >= (vital * 10 + stren * 5) * 75 / 100:$health = '<font color="blue">You are healthy.</font>'
if health < (vital * 10 + stren * 5) * 75 / 100 and health >= (vital * 10 + stren * 5) * 50 / 100:$health = '<font color="brown">you are not healthy.</font>'
if health < (vital * 10 + stren * 5) * 50 / 100 and health >= (vital * 10 + stren * 5) * 25 / 100:$health = '<font color="red">You are sick.</font>'
if health < (vital * 10 + stren * 5) * 25 / 100:$health = '<font color="red">You are on the verge of death.'
if willpower < intel * 5 + will * 5 and willpower >= (intel * 5 + will * 5) * 75 / 100:$willpower = '<font color="blue">You are mostly in thought.</font>'
if willpower < (intel * 5 + will * 5) * 75 / 100 and willpower >= (intel * 5 + will * 5) * 50 / 100:$willpower = '<font color="brown">You are depressed.</font>'
if willpower < (intel * 5 + will * 5) * 50 / 100 and willpower >= (intel * 5 + will * 5) * 25 / 100:$willpower = '<font color="red">You are in depression.</font>'
if willpower < (intel * 5 + will * 5) * 25 / 100:$willpower = '<font color="red">You are on the verge of madness.</font>'
if manna < intel * magik + magik * 100 + vital * 10 + rikudo and manna >= (intel * magik + magik * 100 + vital * 10 + rikudo) * 75 / 100:$manna = '<font color="blue">You have a normal mood.</font>'
if manna < (intel * magik + magik * 100 + vital * 10 + rikudo) * 75 / 100 and manna >= (intel * magik + magik * 100 + vital * 10 + rikudo) * 50 / 100:$manna = '<font color="brown">You are in a bad mood.</font>'
if manna < (intel * magik + magik * 100 + vital * 10 + rikudo) * 50 / 100 and manna >= (intel * magik + magik * 100 + vital * 10 + rikudo) * 25 / 100:$manna = '<font color="red">You are in a terrible mood.</font>'
if manna < (intel * magik + magik * 100 + vital * 10 + rikudo) * 25 / 100:$manna = '<font color="red">Your mood is below any skirting and urban sanitation.</font>'
if energy >= 20:$energy = '<font color="green">You couldn''t eat one more bite.</font>'
if energy < 20 and energy >= 10:$energy = '<font color="blue">You''re not really hungry, but a small snack would be very welcome.</font>'
if energy < 10 and energy >= 2:$energy = '<font color="brown">You are hungry.</font>'
if energy < 2:$energy = '<font color="red">You are very hungry.</font>'

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

if son >= 20:$son = '<font color="green">You are well rested.</font>'
if son < 20 and son >= 10:$son = '<font color="blue">You are slightly tired.</font>'
if son < 10 and son >= 2:$son = '<font color="brown">You are tired.</font>'
if son < 2:$son = '<font color="red">You are very tired.</font>'

$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 = 12 and day >= 29) or (month = 1 and day <= 13):$holyday = '<b>Winter Break.</b>' & kanikuli = 2
if (month = 3 and day >= 25):$holyday = '<b>Spring Break.</b>' & kanikuli = 3
if (month = 5 and day >= 25) or month = 6 or month = 7 or month = 8:$holyday = '<b>Summer holidays.</b>' & kanikuli = 4
if month = 1 and day = 1:$holyday = '<b>New Year!</b>' & kanikuli = 5

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

!!!!!!!!!!!!!!!!!!!!!
!!!Beginning Description!!!
!!!!!!!!!!!!!!!!!!!!!
!!pl 'time <b><<hour>></b> hours <b><<$nilmin>><<minut>></b> minutes'
!!pl 'At_The_Moment <<day>> <<$month>> <<year>>year, <<$week>>.'

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

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

pl '<b><<$manna>></b>'

if horny >= 90:pl '<font color="#FF1493">It takes an incredible amount of willpower not to touch yourself all the time.</font>'
if horny >= 50 and horny < 90:pl '<font color="#DB7093">You have trouble focusing at times, as your mind drifts to sex.</font>'

if ETOmenu = 1:
	pl '<b><<$health>></b>'
	pl '<b><<$willpower>></b>'
	pl '<b><<$energy>></b>'
	pl '<b><<$water>></b>'
	pl '<b><<$son>></b>'
else
	a = horny
	!!a1 = horny
	gs 'indik', '2'
	pl '<<$ind>> Arousal'
	healthmax = (vital * 10 + stren * 5)
	a = health * 100 / healthmax
	a1 = health
	gs 'indik', '1'
	pl '<<$ind>> Health'
	willpowermax = intel * 5 + will * 5
	a = willpower * 100 / willpowermax
	a1 = willpower
	gs 'indik', '1'
	pl '<<$ind>> Willpower'
	a = manna * 100 / mannamax
	a1 = manna
	gs 'indik', '1'
	pl '<<$ind>> Mood'
	a = energy * 4
	a1 = energy
	gs 'indik', '1'
	pl '<<$ind>> Hunger'

	a = water * 5
	a1 = water
	gs 'indik', '1'
	pl '<<$ind>> Thirst'
	a = son * 4
	a1 = son
	gs 'indik', '1'
	pl '<<$ind>> Sleep'
end

$smoker = {
	siga -= 1
	smoker += 1
	smokeHour = hour
	smokeDay = day
	smokeminut = minut + 5
	smokeNeed = 0
	manna += 100
	wipo += 100
	if energy < 20:energy += 3
	gs 'stat'
}

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

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>'
elseif siga > 0 and smoker >= 20:
	pl '<a href="exec:dynamic $smoker"><font color="blue"><b>You have <<siga>> cigarettes left</b></font></a>'
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 left</b></font></a>'
	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 > 0:
	if pirs_pain_ton = 1:pl '<font color="red">You have aches language and it is a little swollen.</font>'
	if pirs_pain_ton = 2:pl '<font color="red">You often aches language and it is noticeably swollen.</font>'
	if pirs_pain_ton > 2:pl '<font color="red"><b>Do you have a sore tongue, he was very swollen and almost tossed in the mouth.</b></font>'
end

if nippain > 0:pl '<font color="red"><b><<$nippain>></b></font>'
if painpub > 0:pl '<font color="red"><b><<$painpub>></b></font>'
if opPRE = 0:pl '<<$mop>> and your hair is <<$hapri>>.'
if sweat = 1:pl '<font color="brown">You''re sweating.</font>'
if sweat = 2:pl '<font color="red">You are a little smelly.</font>'
if sweat = 3:pl '<font color="red">You stink.</font>'
if sweat > 3:pl '<b><font color="red">You stink.</font></b>'
if isprok = 0 and mesec > 0 and preg = 0:pl '<b><font color="red">You are bleeding between your legs, urgently need a tampon.</font></b>'
if isprok = 1 and mesec > 0 and preg = 0:pl 'You are having your period.'
if preg = 1 and pregtime = 280:pl '<b><font color="red">You urgently need to go to the hospital</font></b>'
if preg = 1:rodtime = 280 - pregtime
if preg = 1 and pregtime < 280 and pregtime > 6:pl '<b><font color="blue">You have been pregnant for <<pregtime>> days. Days until delivery <<rodtime>></font></b>'
if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1:pl '<b><font color="red">You have a work 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">You have a work shift as a secretary</font></b>'
if PersSecWork = 1 and week < 6 and hour < 10 and hour >= 5:pl '<b><font color="red">You have a work shift as a secretary</font></b>'

$cumeater = {
	cumlip += 1
	vaf += 1
	cumbelly = 0
	gs 'stat'
	'You have collected sperm from fingers and licked their stomach felt tart taste of semen.'
}
$cumeater2 = {
	cumlip += 1
	vaf += 1
	cumpussy = 0
	gs 'stat'
	'You have collected sperm from fingers pussy and licked them feeling tart taste of semen.'
}
$cumeater3 = {
	cumlip += 1
	vaf += 1
	cumass = 0
	gs 'stat'
	'You have collected sperm from fingers and licked their buttocks felt tart taste of semen.'
}
$cumeater4 = {
	cumlip += 1
	vaf += 1
	cumface = 0
	gs 'stat'
	'You have collected fingers semen from her face and licked them feeling tart taste of semen.'
}
$cumeater5 = {
	cumlip += 1
	vaf += 1
	cumfrot = 0
	gs 'stat'
	'You have collected sperm from fingers and licked their clothes felt tart taste of semen.'
}

$cumeater6 = {
	cumlip += 1
	vaf += 1
	cumanus = 0
	gs 'stat'
	'You have collected fingers semen out of the anus and lick their feeling tart taste of semen.'
}

!!'<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 cumbelly > 0 and swallow < 10:pl '<b><font color="red">Your <a href="exec:view''images/body/cumbelly.jpg''">stomach</a> is smeared with sperm.</font></b>'
if cumbelly > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumbelly.jpg''"><b><font color="red">Your stomach</font></b></a> <a href="exec:dynamic $cumeater"><b><font color="red">is smeared with sperm.</font></b></a>'

if cumpussy > 0 and swallow < 10:pl '<b><font color="red">Sperm slowly flows from your <a href="exec:view''images/body/cumpussy.jpg''">pussy</a>.</font></b>'
if cumpussy > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumpussy.jpg''"><b><font color="red"><a href="exec:dynamic $cumeater2">Sperm slowly flows</a> from your pussy</font></b></a>.'

if cumass > 0 and swallow < 10:pl '<b><font color="red">Your <a href="exec:view''images/body/cumass.jpg''">ass</a> is smeared with semen.</font></b>'
if cumass > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumass.jpg''"><b><font color="red">Your ass</font></b></a> <a href="exec:dynamic $cumeater3"><b><font color="red">is smeared with semen.</font></b></a>'
if cumlip > 0:pl '<b><font color="red">Your mouth smells like sperm.</font></b>'
if cumface > 0 and swallow < 10: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 cumface > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumface.jpg''"><b><font color="red">Your face</font></b></a> <a href="exec:dynamic $cumeater4"><b><font color="red">and hair are smeared with sperm.</font></b></a>'
! WD: Move missing Image ~ "cumfrot.jpg" from "images\picb" to "images\Body"
if cumfrot > 0 and swallow < 10:pl '<b><font color="red">You have semen stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>'
if cumfrot > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumfrot.jpg''"><b><font color="red">You have <a href="exec:dynamic $cumeater5"><b><font color="red">semen stains</font></b></a> on your clothes</font></b></a>.'
if cumanus > 0 and swallow < 10:pl '<b><font color="red">Sperm slowly flows from your <a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
if cumanus > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumanal.jpg''"><b><font color="red"><a href="exec:dynamic $cumeater6">Sperm slowly flows</a> from your ass</font></b></a>.'
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>'
if vgape = 2:pl '<b><font color="red">You have a sore vagina and you can hardly keep your feet together.</font></b>'
if vgape = 1:pl '<b><font color="red">You have a slightly sore vagina.</font></b>'
if agape = 3:pl '<b><font color="red">You have very sore anus and it emits blood.</font></b>'
if agape = 2:pl '<b><font color="red">You have a sore anus.</font></b>'
if agape = 1:pl '<b><font color="red">You have a slightly sore and itchy anus.</font></b>'
if Gerpes >= 3:pl '<b><font color="red">On your lips sores. All signs of genital herpes.</font></b>'
if Gerpes < 10 and Gerpes >= 5:pl '<b><font color="red">Your pussy flushed and highly itchy. This genital herpes.</font></b>'
if Gerpes >= 10:pl '<b><font color="red">On your pussy sores appeared. This genital herpes.</font></b>'
if Gerpes >= 20:pl '<b><font color="red">cover your ass sores of genital herpes.</font></b>'
if Sifilis >= 21 and Sifilis < 50:pl '<b><font color="red">You have jumped big, hard sore on the lip.</font></b>'
if Sifilis >= 50:pl '<b><font color="red">syphilitic rash covers your whole body.</font></b>'
if Triper > 2:pl '<b><font color="red">From the vaginal white discharge come out strong and stinging when urinating. Just out of the vagina hard and nasty smells.</font></b>'
if Kandidoz > 30:pl '<b><font color="red">Do you thrush.</font></b>'
if SLomka > 0:pl '<b><font color="red">You are very bad and hurt all the bones. Do you break-up</font></b>'
if narkday ! day and narkoman = 1:pl '<b><font color="red">You are very bad and hurt all the bones. Urgently need pale lady</font></b>'
if fingal > 0:pl '<b><font color="red">You have a black eye on the face.</font></b>'
if cloth_vid = 1:
	pl '<b><a href="exec:dynamic $din_exhibiTakeOffBimbo">You are dressed in the image bimbo</a></b>'
end
if exhibi >= 4 and exhibiHideNewCloth ! 1:
	pl '<b><a href="exec:dynamic $din_exhibiHideNewCloth">You have opened a new outfit ready</a></b>'
end
if tanga = 0 and ski = 1 or tanga = 0 and glamur = 1:
	pl '<b><font color="red">blush of shame fills your face, you do not put her panties and now from under your short skirt sparkles sometimes naked ass.</font></b>'
elseif tanga = 0 and ski = 0 and glamur = 0 and opPRE = 0 and $clothingworntype ! 'nude':
	pl '<b><font color="red">you do not put panties.</font></b>'
end
if mosol >= 30 and mosol < 50:pl '<b><font color="red">Pisya flushed and itchy, it seems you are rubbed by clothing.</font></b>'
if mosol >= 50:pl '<b><font color="red">Pisya hurts and each step is given through the pain, she Crimson and visible scuffs from walking without underwear.</font></b>'
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 and hour = 14 and week < 6:pl '<b><font color="red">At 15 o''clock you have to be at work in the shop Keys Pussy.</font></b>'
if young_shop_work = 1 and hour = 16 and week < 6 and inWorkYoungShop = 0:young_shop_miss += 1 & pl '<b><font color="red">You squandered work.</font></b>'

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

if frost > 0 and frost <= 5:pl '<b><font>You have a little chilly.</font></b>'
if frost > 5 and frost < 11:pl '<b><font color="red">Are you cold.</font></b>'
if frost >= 11:pl '<b><font color="red">You are very cold.</font></b>'
if sick = 1:pl '<b><font color="red">you that is not good, tickle in the throat and a little runny nose.</font></b>'
if sick > 1 and sick < 24:pl '<b><font color="red">you chills. You flowing from the nose and throat was raw, you cough and sneeze - it looks like you got cold.</font></b>'
if sick >= 24 and sick < 48:pl '<b><font color="red">You have a fever. You clogged nose, it hurts to swallow - throat aches. You continually cough and sneeze - it looks like you prosudilis.</font></b>'
if sick >= 48 and sick < 72:pl '<b><font color="red">You have a high fever. You have a stuffy nose, sore head and throat, coughing badly you - it sounds like you got a strong cold. Maybe it''s the flu.</font></b>'
if sick >= 72:pl '<b><font color="red">you toss in the heat. You have a stuffy nose, headache and aching all the bones. Your throat is inflamed and very sore. You heavily with anguish cough - it sounds like you are seriously ill. Maybe it''s a sore throat.</font></b>'
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 around the house.</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 = 29 and month = 12 and year = 2010 and StoryLine = 1:
	if hour >= 5 and hour <= 14:pl 'At 14 o''clock a New Year''s party will be held.'
end
gs 'din_bad'

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

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