glife/locations/stat

# stat
clr
view
gs 'dinSex2'

!!1095
if nippain = 2:
	if nippainday + 5 < daystart:
		$nippain = 'You have greatly hurt nipples.'
		nippain = 1
		nippainday = daystart
	end

	if nippainday + 5 >= daystart:$nippain = 'You have greatly hurt nipples.'
end

if nippain = 1:
	if nippainday + 5 < daystart:
		$nippain = ''
		nippain = 0
	end

	if nippainday + 5 >= daystart:$nippain = 'You have a little sore nipples.'
end

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

	if painpubday + 5 >= daystart:$painpub = 'You have very sore vagina.'
end

if painpub = 1:
	if painpubday + 5 < daystart:
		$painpub = ''
		painpub = 0
		painpubday = daystart
	end

	if painpubday + 5 >= daystart:$painpub = 'You have a little sore vagina.'
end

if year = 2011 and katjaPreg = 0: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
if newclo[131] = 1 and SchoolAtestat = 1 or newclo[131] = 1 and SchoolBlock = 1:newclo[131] = 0
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Cheats
if cheatHapri = 1:hapri = 1
if cheatNomakeup = 1:
	if mop = 0:mop = 1
end

if cheatNosweat = 1 and sweat ! -3:set 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 numdress ! 131 and Sforma > 0:set Sforma = 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 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:
	set husbizvradd = 0
	set husbharmin = 0
	set husbandMark = 0
	set houseslut = 0
end

if SNarkvnesh = 0:SNarkvnesh = 1

if SNarkTimes >= SNarkvnesh * 25:
	SNarkvnesh += 1
	vidage += 1
end

if gopota >= 20 and gnewQW = 1:set 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:set painweather = 6
if beg < 0:set beg = 0
if beg > 2000:set beg = 2000
if oficiant > 100:set oficiant = 100
if vagina > 30:set vagina = 30
if throat > 30:set throat = 30
if anus > 30:set anus = 30
if Jab > 120:set Jab = 120
if Punch > 120:set Punch = 120
if Kik > 120:set Kik = 120
if KikDef > 120:set KikDef = 120
if nark >= 30 and narkoman = 0:set narkoman = 1
if nark = 0 and narkoman = 0:set narkoman = 0

set boxing = Jab + Punch + Kik + KikDef

if boxing > 100:set boxing = 100
if stren > 100 and mutagenP = 0:set stren = 100
if speed > 100 and mutagenS = 0:set speed = 100
if agil > 100 and mutagenA = 0:set agil = 100
if react > 100 and mutagenR = 0:set react = 100
if vital > 100 and mutagenV = 0:set vital = 100
if will > 100 and mutagenW = 0:set will = 100
if intel > 100 and mutagenI = 0 and student = 0 and diplom = 0:set intel = 100
if stren > 150 and mutagenP = 1:set stren = 150
if speed > 150 and mutagenS = 1:set speed = 150
if agil > 150 and mutagenA = 1:set agil = 150
if react > 150 and mutagenR = 1:set react = 150
if vital > 150 and mutagenV = 1:set vital = 150
if will > 150 and mutagenW = 1:set will = 150
if intel > 150 and mutagenI = 1 and student = 0 and diplom = 0:set intel = 150
if stren > 200 and mutagenP = 2:set stren = 200
if speed > 200 and mutagenS = 2:set speed = 200
if agil > 200 and mutagenA = 2:set agil = 200
if react > 200 and mutagenR = 2:set react = 200
if vital > 200 and mutagenV = 2:set vital = 200
if will > 200 and mutagenW = 2:set will = 200
if intel > 200 and mutagenI = 2 and student = 0 and diplom = 0:set intel = 200
if stren > 250 and mutagenP = 3:set stren = 250
if speed > 250 and mutagenS = 3:set speed = 250
if agil > 250 and mutagenA = 3:set agil = 250
if react > 250 and mutagenR = 3:set react = 250
if vital > 250 and mutagenV = 3:set vital = 250
if will > 250 and mutagenW = 3:set will = 250
if intel > 250 and mutagenI = 3 and student = 0 and diplom = 0:set intel = 250
if intel > 250:set intel = 250
if MagikDostup = 0:
	$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:set magik = 1 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
	if orgasm >= 2 and magik < 2:set magik = 2 & set resnic += 1 & set rikudo += 500 & pl $levelUpString
	if orgasm >= 4 and magik < 3:set magik = 3 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
	if orgasm >= 8 and magik < 4:set magik = 4 & set resnic += 1 & set rikudo += 500 & pl $levelUpString
	if orgasm >= 16 and magik < 5:set magik = 5 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
	if orgasm >= 32 and magik < 6:set magik = 6 & set resnic += 1 & set rikudo += 1000 & pl $levelUpString
	if orgasm >= 64 and magik < 7:set magik = 7 & set glaraz += 1 & set rikudo += 1000 & pl $levelUpString
	if orgasm >= 100 and magik < 8:set magik = 8 & set rikudo += 1000 & pl $levelUpString
	if orgasm >= 200 and magik < 9:set magik = 9 & set rikudo += 1000 & pl $levelUpString
	if orgasm >= 300 and magik < 10:set magik = 10 & set rikudo += 2000 & pl $levelUpString
	if orgasm >= 400 and magik < 11:set magik = 11 & set rikudo += 4000 & pl $levelUpString
	if orgasm >= 500 and magik < 12:set magik = 12 & set rikudo += 4000 & pl $levelUpString
	if orgasm >= 600 and magik < 13:set magik = 13 & set rikudo += 4000 & pl $levelUpString
	if orgasm >= 700 and magik < 14:set magik = 14 & set rikudo += 4000 & pl $levelUpString
	if orgasm >= 800 and magik < 15:set magik = 15 & set rikudo += 8000 & pl $levelUpString
	if orgasm >= 900 and magik < 16:set magik = 16 & set rikudo += 8000 & pl $levelUpString
	if orgasm >= 1000 and magik < 17:set magik = 17 & set rikudo += 8000 & pl $levelUpString
	if orgasm >= 1100 and magik < 18:set magik = 18 & set rikudo += 8000 & pl $levelUpString
	if orgasm >= 1200 and magik < 19:set magik = 19 & set rikudo += 8000 & pl $levelUpString
	if orgasm >= 1300 and magik < 20:set magik = 20 & set rikudo += 16000 & pl $levelUpString
	if orgasm >= 1400 and magik < 20:set magik = 21 & set rikudo += 21000 & pl $levelUpString
end

!!!WD: Kept because of community kiosk extension
if exhibi >= 4:pl '<b>You opened a new outfit ready</b>'
!!!
if SUB >= DOM and DOM > 0:set SUB = SUB - DOM & set DOM = 0
if DOM >= SUB and SUB > 0:set DOM = DOM - SUB & set SUB = 0
if horny < 0:set horny = 0
if health > vital * 10 + stren * 5:set health = vital * 10 + stren * 5
if willpower > intel * 5 + will * 5:set willpower = intel * 5 + will * 5
if manna > intel * magik + magik * 100 + vital * 10 + rikudo:set manna = intel * magik + magik * 100 + vital * 10 + rikudo

set mannamax = (intel * magik) + magik * 100 + vital * 10 + rikudo
!!set musle = strenbuf + vitalbuf

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

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!TIME
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if nminut ! minut:
	!!totminut playing time in minutes
	totminut += minut
	nminut = minut
end

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

	if vgape = 2:
		if manna > mannamax / 2:manna = mannamax / 2
	end
end

if agape > 0:
	if agape = 3:
		if manna > mannamax / 6:manna = mannamax / 6
	end

	if agape = 2:
		if manna > mannamax / 3:manna = mannamax / 3
	end

end

if vgape > 0:
	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 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:set obkvsdam = rand(2, 5)
	set hour += 1
	set energy -= 1
	set water -= 1
	set son -= 1
	set minut -= 60

	if alko > 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
	set LCWorkRand = rand(1, 6)

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

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

	if mosolpred >= 10:
		set mosol += 1
		set 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:
	if pirs_pain_ton > 0:pirs_pain_ton -= 1
	if artempower <= 0:artempower = 3
	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
		set age += 1
		set vidage += 1
	end

	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

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

	set 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
	end

	if salo < fat:
		salo += 1
		fat -= 1
	end

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

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

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

	set petersexday = 0
	set klismaday1= 0
	:loop
	set day += 1
	set daystart += 1
	set week += 1
	set 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

	set 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:
		set husbizvradd = 0
		set husbharmin = 0
		set husbandMark = 0
		set husband = 0
		set 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:set 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:
		set paydayKafe = 1
		set pay = smenaKafe * 600
		set money += pay
		set 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:
		set pay = smena * 1000
		set money += pay
		set 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:
		set pay = smena * 800
		set money += pay
		set 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
		set 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:
		set paydaySec = 1
		set pay = sekDay * 800

		if officebestslut >= 3:set pay += 20000
		set karta += pay
		set 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:set stipuhaday = 1 & set money += 1200 & '<b><font color="green">You have received 1,200 rubles scholarship on your bank account.</font></b>'
	if housr = 1 and haday = 0:set haday = 1 & set money -= 3000 & '<b><font color="red">You paid 3,000 rubles for your apartment.</font></b>'

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

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

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

if day ! 25:
	if paydayHusb = 1:paydayHusb = 0
	if workKafe = 1 and paydayKafe = 1:set paydayKafe = 0
	if workSec = 1 and paydaySec = 1:set paydaySec = 0
	if housr = 1 and haday = 1:set haday = 0
	if housr = 1 and electroday = 1:set electroday = 0
	if housr = 1 and kabel > 0 and kabelday = 1:set kabelday = 0
	if stipuhaday = 1:set 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:
	set 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:
	set day -= 30
	set month += 1
end'!

if day = 0:set day = 1

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

	if military = 1:set military = 0

	if week > 7:jump 'loopweek'
end

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

if month = 0:set month = 1
if month = 13:set month = 1 & set year += 1
If month = 1:set $month = 'January' & $mons = 'January'
If month = 2:set $month = 'February' & $mons = 'February'
If month = 3:set $month = 'March' & $mons = 'Martha'
If month = 4:set $month = 'April' & $mons = 'April'
If month = 5:set $month = 'May' & $mons = 'May'
If month = 6:set $month = 'June' & $mons = 'June'
If month = 7:set $month = 'July' & $mons = 'July'
If month = 8:set $month = 'August' & $mons = 'August'
If month = 9:set $month = 'September' & $mons = 'September'
If month = 10:set $month = 'October' & $mons = 'October'
If month = 11:set $month = 'November' & $mons = 'November'
If month = 12:set $month = 'December' & $mons = 'December'
if minut < 10:set $nilmin = '0'
if minut >= 10:set $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

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!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:
	set son = 0
	set manna -= 5
end

if energy < 0:
	set energy = 0
	set health -= 1

	if fat = 0 and stren + vital > 0:
		set stren -= 1
		set vital -= 1
		set energy += 2
	end

	if fat = 0 and stren + vital <= 0:
		set over = 3
		gt 'gameover'
		exit
	end

	if fat > 0:
		set fat -= 1
		set energy += 2
	end
end

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

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

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

if willpower < 0 and StoryLine = 0:
	set over = 2
	gt 'gameover'
	exit
end

if saloonce = 0 and opPRE = 0:
	set saloonce = 1
	set salo = fat
	set strenbuf = stren
	set vitalbuf = vital
	set agilbuf = agil
end

gs 'body'
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if health = vital * 10 + stren * 5:set $health = '<font color="green">You are very healthy.</font>'
if willpower = intel * 5 + will * 5:set $willpower = '<font color="green">Your mind is clear.</font>'
if manna = intel * magik + magik * 100 + vital * 10 + rikudo:set $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:set $health = '<font color="blue">You are healthy.</font>'
if health < (vital * 10 + stren * 5) * 75 / 100 and health >= (vital * 10 + stren * 5) * 50 / 100:set $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:set $health = '<font color="red">You are sick.</font>'
if health < (vital * 10 + stren * 5) * 25 / 100:set $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:set $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:set $willpower = '<font color="brown">You are depressed.</font>'
if willpower < (intel * 5 + will * 5) * 50 / 100 and willpower >= (intel * 5 + will * 5) * 25 / 100:set $willpower = '<font color="red">You are in depression.</font>'
if willpower < (intel * 5 + will * 5) * 25 / 100:set $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:set $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:set $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:set $manna = '<font color="red">You are in a terrible mood.</font>'
if manna < (intel * magik + magik * 100 + vital * 10 + rikudo) * 25 / 100:set $manna = '<font color="red">Your mood is below any skirting and urban sanitation.</font>'
if energy >= 20:set $energy = '<font color="green">You couldn''t eat one more bite.</font>'
if energy < 20 and energy >= 10:set $energy = '<font color="blue">You''re not really hungry, but a small snack would be very welcome.</font>'
if energy < 10 and energy >= 2:set $energy = '<font color="brown">You are hungry.</font>'
if energy < 2:set $energy = '<font color="red">You are very hungry.</font>'

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

if son >= 20:set $son = '<font color="green">You are well rested.</font>'
if son < 20 and son >= 10:set $son = '<font color="blue">You are slightly tired.</font>'
if son < 10 and son >= 2:set $son = '<font color="brown">You are tired.</font>'
if son < 2:set $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:set $shame = '<font color="red"><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
	!!if shame = 3:set $shame = '<font color="red">Your cheeks are red from the blush of shame.</font>'
	!!if shame = 2:set $shame = '<font color="brown">You nemnog opokrasneli shame.</font>'
	!!if shame = 1:set $shame = '<font color="green">You´re a little confused.</font>'
	!!if shame <= 0:set $shame = '<font color="green">You´re a little confused.</font>'
	!!gs 'stat'
}

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

set $holyday = ''
kanikuli = 0

if (month = 10 and day >= 27) or (month = 11 and day <= 4):set $holyday = '<b>Autumn holidays.</b>' & kanikuli = 1
if (month = 12 and day >= 29) or (month = 1 and day <= 13):set $holyday = '<b>Winter Break.</b>' & kanikuli = 2
if (month = 3 and day >= 25):set $holyday = '<b>Spring Break.</b>' & kanikuli = 3
if (month = 5 and day >= 25) or month = 6 or month = 7 or month = 8:set $holyday = '<b>Summer holidays.</b>' & kanikuli = 4
if month = 1 and day = 1:set $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><<hour>>:<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
	else
		pl '<b><<hour>>:0<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
	end
else
	if minut > 9 :
		pl '<b>0<<hour>>:<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
	else
		pl '<b>0<<hour>>:0<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
	end
end

pl '<b><<money>></b> rubles in your wallet.'

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

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

	set a = water * 5
	set a1 = water
	gs 'indik', '1'
	pl '<<$ind>> Thirst'
	set a = son * 4
	set 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:set 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>'
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 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>'
if tanga = 0 and ski = 0 and glamur = 0 and opPRE = 0 and nude = 0:pl '<b><font color="red">you do not put panties.</font></b>'
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">Do you in the ass anal plug is inserted.</font></b>'
if vibratorin = 1:pl '<b><font color="red">Do you work in the vagina vibrator.</font></b>'
if young_shop_work = 1 and hour = 14 and week < 6:pl '<b><font color="red">Within 15 hours you have to be at work in the shop Keys Puss.</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"> 8m hours 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 in <<$meetlocation>> at <<meethour>> hours'
if hour = meethour and svidanieA = 1:pl '<b><font color="red"><<$boyA>> is waiting for you around the house in <<$meetlocation>>.</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
set proverka1 = 0
set proverka2 = 0
set proverka3 = 0
set proverka4 = 0
set proverka5 = 0

!!clothing repair, for old saved.
if remdrop = 0:
	set remdrop = 1

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

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