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

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

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

	if painpubday + 5 >= daystart:
		$painpub = 'You have very sore vagina.'
	end
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
end

if year = 2011 and katjaPreg = 0:
	katjaPreg = 1
end

if analplay >= 2 and anus <= 10:
	anus += 1 & analplay = 0
end

if analplay >=4 and anus <= 15:
	anus += 1 & analplay = 0
end

if analplay >= 8 and anus <= 20:
	anus += 1 & analplay = 0
end

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
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Automatic Stuff
if AutoMakeupType < 2:
	AutoMakeupType = 2
end

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

if $HouseLocation = '':
	$HouseLocation = 'street'
end

if housr = 1:
	housr['Street'] = 1
end

if AutoMakeup = 1 and kosmetitka > 0 and mop = 1 and InSleep = 0 and (AutoMakeupSleep = 1 or (AutoMakeupSleep = 0 and HasWashed = 0)):
	set mop = AutoMakeupType
	if $CurLoc = vanr or $CurLoc = vanrPar or bag > 0:
		if kosmetica < 3 and mop = 4:
			set mop = 3
		end

		if kosmetica < 2 and mop = 3:
			set mop = 2
		end

		if kosmetica < 1 and mop ! 1:
			set mop = 1
			'You have no make-up left.'
		else
			if mop = 2:
				'You apply just enough make-up to touch up a few spots.'
				set kosmetica -= 1
			end

			if mop = 3:
				'You apply an amount of make-up, that should pass as an everyday-like setup.'
				set kosmetica -= 2
			end

			if mop = 4:
				'You apply an amount of make-up, that others usually wear, when they go out.'
				set vidageday -= 1
				set kosmetica -= 3
			end
		end
	else
		if kosmetitka < 3 and mop = 4:
			set mop = 3
		end

		if kosmetitka < 2 and mop = 3:
			set mop = 2
		end

		if kosmetitka < 1 and mop ! 1:
			set mop = 1
			'You have no make-up left.'
		else
			if mop = 2:
				'You apply just enough make-up to touch up a few spots.'
				set kosmetitka -= 1
			end

			if mop = 3:
				'You apply an amount of make-up, that should pass as an everyday-like setup.'
				set kosmetitka -= 2
			end

			if mop = 4:
				'You apply an amount of make-up, that others usually wear, when they go out.'
				set vidageday -= 1
				set kosmetitka -= 3
			end
		end
	end
end

if AutoVibrator = 1 and vibrator = 1 and vibratorIN=0:
	if $CurLoc = vanr or $CurLoc = vanrPar:
		set vibratorIN = 1

		if vagina < 30:
			set vagina = vagina + 2
		end
	end
end

if AutoButtPlug = 1 and analplug = 1 and analplugIN = 0:
	if $CurLoc = vanr or $CurLoc = vanrPar:
		set analplugIN = 1

		if anus < 30:
			set anus = anus + 5
		end
	end
end

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

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

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

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

if AutoVitamins=1:
	if vitamin>0 and vitaminday!day:
		vitaminday = day
		vitamin -= 1
		frost = 0
		if KandidozOnce = 1:
			Kandidoz -= 2
		end

		if GerpesOnce = 1:
			Gerpes -= 2
		end

		if SifacOnce = 1 and Sifilis >= 10:
			Sifilis -= rand(0, 1)
		end

		set skinvan += 1

		if skinvan = 20:
			set skinvan = 0 & set skin += 1
		end
	end
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!DeX Cheats
if cheatNewMovieDay = 1:
	if pffilmday ! -1: pffilmday = -1
end

if cheatNewPhotoDay = 1:
	if modelmon = month: modelmon = month - 1
end

if cheatYoungForever = 1:
	if vidageday ! 300: vidageday = 300
end

if cheatHealthMaxed = 1:
	set tempval = vital * 10 + stren * 5 + 1000
	if health ! tempval: health = tempval
end

if cheatWillMaxed = 1:
	set tempval = intel * 5 + will * 5 + 1000
	if willpower ! tempval: willpower = tempval
end

if cheatManaMaxed = 1:
	set tempval = (intel * magik) + magik * 100 + vital * 10 + rikudo
	if manna ! tempval: manna = tempval
end

if cheatNeverHorny = 1:
	if horny ! 0: horny = 0
end

if cheatModelStudent = 1:
	if suspeh ! 100: suspeh = 100
end

if freezetime = 1:
	if hour ! dctth: hour = dctth
	if minut ! dcttm: minut = dctth
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Author Cheats
if cheatHapri = 1:
	hapri = 1
end

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

if cheatNosweat = 1 and sweat > -3:
	set sweat = -3
end

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

	if water ! 19:
		water = 19
	end
end

if cheatAlwaysHorny = 1:
	if horny ! 100:
		horny = 100
	end
end

if cheatNoLegHair = 1:
	if leghair ! 0:
		leghair = 0
	end
end

if cheatNoPussyHair = 1:
	if lobok ! 0:
		lobok = 0
	end
end

if cheatNeverTired = 1:
	if son < 25:
		son = 25
	end
end

if cheatNeverThirsty = 1:
	if water < 25:
		water = 25
	end
end

if cheatNeverHungry = 1:
	if energy < 25:
		energy = 25
	end
end

if cheatAlwaysVirgin = 1:
	if vagina ! 0:
		vagina = 0
	end
end

if cheatVaginaHealth = 1:
	if mosol ! 0:
		mosol = 0
	end
end

if cheatAlwaysMarried = 1:
	if husband ! 100:
		husband = 100
	end
end

if cheatNoSTDs = 1:
	if venera ! 0:
		venera = 0
	end

	if GerpesOnce ! 0:
		GerpesOnce = 0
	end

	if Gerpes ! 0:
		Gerpes = 0
	end

	if SifacOnce ! 0:
		SifacOnce = 0
	end

	if Sifilis ! 0:
		Sifilis = 0
	end

	if KandidozOnce ! 0:
		KandidozOnce = 0
	end

	if Kandidoz ! 0:
		Kandidoz = 0
	end

	if TriperOnce ! 0:
		TriperOnce = 0
	end

	if Triper ! 0:
		Triper = 0
	end
end

if cheatNoSweat = 1:
	if sweat ! -3:
		sweat = -3
	end
end

if cheatNoPeriods = 1:
	if mesec ! 0:
		mesec = 0
	end
end

if cheatBrushedHair = 1:
	if hapri ! 1:
		hapri = 1
	end
end

if cheatAlwaysMakeup = 1:
	if kosmetica = 0:
		kosmetica += 50
	end

	if cheatMakeupSelect=1:
		set mop = 1
	end

	if cheatMakeupSelect=2:
		set mop=2
	end

	if cheatMakeupSelect=3:
		set mop=3
	end

	if cheatMakeupSelect=4:
		set mop=4
	end
end

!!!!!!!!!!!!!!!!!!!!!!!!!!!!TRACKER
if $DBCurLoc ! $CURLOC:
	i = arrsize ('$DBPrevLoc')

	if i = 20:
		killvar '$DBPrevLoc', 0
	end

	$DBPrevLoc[i] = $DBCurLoc
	$DBCurLoc = $CURLOC
end

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

if alko > 0 and frost > 0:
	frost = 0
end

if lernSkill >= 8:
	intel += 1 & lernSkill = 0
end

if numdress ! 131 and Sforma > 0:
	set Sforma = 0
end

if numdress = 131 and Sforma = 0:
	set Sforma = 1
end

if lern >= 10:
	intel += 1 & lern = 0
end

if GorSlut = 1:
	$gnikname = 'Flirt'
end

if GorSlut = 2:
	$gnikname = 'Easy A'
end

if GorSlut = 3:
	$gnikname = 'Cocksucker'
end

if GorSlut = 4:
	$gnikname = 'Sex addict'
end

if GorSlut = 5:
	$gnikname = 'Slut'
end

if GorSlut = 6:
	$gnikname = 'Talking pussy'
end

if GorSlut >= 2:
	KatjaKnowBJ = 1
end

if GorSlut >= 1 or preg > 0:
	KatjaKnowSex = 1
end

if film > 0 and kompromatLife < 10:
	!Porn actress
	if kompromatLife < 10:
		kompromatLife = 10
	end

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

if fotoyousuck = 1 and kompromatLife < 9:
	!Sucked a couple of guys and was photographed
	if kompromatLife < 9:
		kompromatLife = 9
	end

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

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

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


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

gs 'dina'
gs 'din2'

if husbizvradd > 5:
	izvratH = 1
end

if husbharmin > 10:
	harakHusb = 0
end

if clrbelo <= 0:
	clrbelo = 0 & tanga = 0
end

if husband = 0:
	set husbizvradd = 0
	set husbharmin = 0
	set husbandMark = 0
	set houseslut = 0
end

if SNarkvnesh = 0:
	SNarkvnesh = 1
end

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

if gopota >= 20 and gnewQW = 1:
	set gnewQW = 2
end

if horny > hornyStat:
	hornyStat = horny

	if pirsA > 0:
		horny += 1
	end

	if pirsB > 0:
		horny += 1
	end

	if pirsC > 0:
		horny += 1
	end

	if pirsD > 0:
		horny += 1
	end

	if pirsE > 0:
		horny += 1
	end

	if pirsF > 0:
		horny += 5
	end

	if pirsG > 0:
		horny += 5
	end

	if pirsN > 0:
		horny += 1
	end
end

if horny < hornyStat:
	hornyStat = horny
end

if workDisk = 4 and week > 5:
	workDisk = 1
end

if workDisk = 3 and week > 5:
	workDiskAtkPlayer = 1
end

VeneraN = 0

if VeneraOnce > 0:
	VeneraOnce = 0
end

if SifacOnce = 1:
	VeneraN += 1
end

if GerpesOnce = 1:
	VeneraN += 1
end

if TriperOnce = 1:
	VeneraN += 1
end

Venera = VeneraN

if fat < 0:
	fat = 0
end

if vokal < 0:
	vokal = 0
end

if vokal > 100:
	vokal = 100
end

if dance > 100:
	dance = 100
end

if stripdance > 100:
	stripdance = 100
end

if poledance > 100:
	poledance = 100
end

if dancePRO > 100:
	dancePRO = 100
end
if bfa < 0:
	bfa = 0
end

if painQW = 0:
	set painweather = 6
end

if beg < 0:
	set beg = 0
end

if beg > 2000:
	set beg = 2000
end

if oficiant > 100:
	set oficiant = 100
end

if vagina > 30:
	set vagina = 30
end

if throat > 30:
	set throat = 30
end

if anus > 30:
	set anus = 30
end

if Jab > 120:
	set Jab = 120
end

if Punch > 120:
	set Punch = 120
end

if Kik > 120:
	set Kik = 120
end

if KikDef > 120:
	set KikDef = 120
end


if nark >= 30 and narkoman = 0:
	set narkoman = 1
end

if nark = 0 and narkoman = 0:
	set narkoman = 0
end

set boxing = Jab + Punch + Kik + KikDef

if boxing > 100:
	set boxing = 100
end

if stren > 100 and mutagenP = 0:
	set stren = 100
end

if speed > 100 and mutagenS = 0:
	set speed = 100
end

if agil > 100 and mutagenA = 0:
	set agil = 100
end

if react > 100 and mutagenR = 0:
	set react = 100
end

if vital > 100 and mutagenV = 0:
	set vital = 100
end

if will > 100 and mutagenW = 0:
	set will = 100
end

if intel > 100 and mutagenI = 0 and student = 0 and diplom = 0:
	set intel = 100
end

if stren > 150 and mutagenP = 1:
	set stren = 150
end

if speed > 150 and mutagenS = 1:
	set speed = 150
end

if agil > 150 and mutagenA = 1:
	set agil = 150
end

if react > 150 and mutagenR = 1:
	set react = 150
end

if vital > 150 and mutagenV = 1:
	set vital = 150
end

if will > 150 and mutagenW = 1:
	set will = 150
end

if intel > 150 and mutagenI = 1 and student = 0 and diplom = 0:
	set intel = 150
end

if stren > 200 and mutagenP = 2:
	set stren = 200
end

if speed > 200 and mutagenS = 2:
	set speed = 200
end

if agil > 200 and mutagenA = 2:
	set agil = 200
end

if react > 200 and mutagenR = 2:
	set react = 200
end

if vital > 200 and mutagenV = 2:
	set vital = 200
end

if will > 200 and mutagenW = 2:
	set will = 200
end

if intel > 200 and mutagenI = 2 and student = 0 and diplom = 0:
	set intel = 200
end

if stren > 250 and mutagenP = 3:
	set stren = 250
end

if speed > 250 and mutagenS = 3:
	set speed = 250
end

if agil > 250 and mutagenA = 3:
	set agil = 250
end

if react > 250 and mutagenR = 3:
	set react = 250
end

if vital > 250 and mutagenV = 3:
	set vital = 250
end

if will > 250 and mutagenW = 3:
	set will = 250
end

if intel > 250 and mutagenI = 3 and student = 0 and diplom = 0:
	set intel = 250
end

if intel > 250:
	set intel = 250
end

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
	end

	if orgasm >= 2 and magik < 2:
		set magik = 2 & set resnic += 1 & set rikudo += 500 & pl $levelUpString
	end

	if orgasm >= 4 and magik < 3:
		set magik = 3 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
	end

	if orgasm >= 8 and magik < 4:
		set magik = 4 & set resnic += 1 & set rikudo += 500 & pl $levelUpString
	end

	if orgasm >= 16 and magik < 5:
		set magik = 5 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
	end

	if orgasm >= 32 and magik < 6:
		set magik = 6 & set resnic += 1 & set rikudo += 1000 & pl $levelUpString
	end

	if orgasm >= 64 and magik < 7:
		set magik = 7 & set glaraz += 1 & set rikudo += 1000 & pl $levelUpString
	end

	if orgasm >= 100 and magik < 8:
		set magik = 8 & set rikudo += 1000 & pl $levelUpString
	end

	if orgasm >= 200 and magik < 9:
		set magik = 9 & set rikudo += 1000 & pl $levelUpString
	end

	if orgasm >= 300 and magik < 10:
		set magik = 10 & set rikudo += 2000 & pl $levelUpString
	end

	if orgasm >= 400 and magik < 11:
		set magik = 11 & set rikudo += 4000 & pl $levelUpString
	end

	if orgasm >= 500 and magik < 12:
		set magik = 12 & set rikudo += 4000 & pl $levelUpString
	end

	if orgasm >= 600 and magik < 13:
		set magik = 13 & set rikudo += 4000 & pl $levelUpString
	end

	if orgasm >= 700 and magik < 14:
		set magik = 14 & set rikudo += 4000 & pl $levelUpString
	end

	if orgasm >= 800 and magik < 15:
		set magik = 15 & set rikudo += 8000 & pl $levelUpString
	end

	if orgasm >= 900 and magik < 16:
		set magik = 16 & set rikudo += 8000 & pl $levelUpString
	end

	if orgasm >= 1000 and magik < 17:
		set magik = 17 & set rikudo += 8000 & pl $levelUpString
	end

	if orgasm >= 1100 and magik < 18:
		set magik = 18 & set rikudo += 8000 & pl $levelUpString
	end

	if orgasm >= 1200 and magik < 19:
		set magik = 19 & set rikudo += 8000 & pl $levelUpString
	end

	if orgasm >= 1300 and magik < 20:
		set magik = 20 & set rikudo += 16000 & pl $levelUpString
	end

	if orgasm >= 1400 and magik < 20:
		set magik = 21 & set rikudo += 21000 & pl $levelUpString
	end
end

if exhibi >= 4:
	pl '<B>You opened a new outfit ready</B>'
end

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

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


if horny < 0:
	set horny = 0
end

if health > vital * 10 + stren * 5:
	set health = vital * 10 + stren * 5
end

if willpower > intel * 5 + will * 5:
	set willpower = intel * 5 + will * 5
end

if manna > (intel * magik) + magik * 100 + vital * 10 + rikudo:
	set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
end

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 total played time
	totminut += minut
	nminut = minut
end

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

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

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

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

if vgape > 0:
	if vgapetime + 1500 <= totminut:
		if vgape = 1:
			vgape = 0
		end

		if vgape = 2:
			vgape = 1 & vgapetime = totminut
		end

		if vgape = 3:
			vgape = 2 & vgapetime = totminut
		end
	end
end

if agape > 0:
	if agapetime + 2500 <= totminut:
		if agape = 1:
			agape = 0
		end

		if agape = 2:
			agape = 1 & agapetime = totminut
		end

		if agape = 3:
			agape = 2 & agapetime = totminut
		end
	end
end

:loopsec
if sec >= 60:
	minut+= 1
	sec -= 60
	jump 'loopsec'
end

:loopmin
if minut >= 60:
	if CompCheckedResponses = 1:
		CompCheckedResponses = 0

		if obkvsdam['Street'] > 0:
			set obkvsdam['Street'] = rand(2, 5)
		end

		if obkvsdam['Down'] > 0:
			set obkvsdam['Down'] = rand(2, 5)
		end

		if obkvsdam['Nord'] > 0:
			set obkvsdam['Nord'] = rand(2, 5)
		end
	end

	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
			end

			if volleyboll > 0:
				volleyboll -= 1
			end

			if alko >= 6:
				if stren > 10:
					stren -= 1 & salo += 3
				end

				if vital > 10:
					vital -= 1 & salo += 3
				end

				if intel > 10:
					intel -= 1
				end
			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'
		end

		if turnirFighter[1] = turnirFighter[2]:
			jump'markturnirotbort'
		end

		a = turnirFighter[1]
		i = turnirFighter[2]
		NoView = 1

		gs 'Autofight'
	end

	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
	if shame > 0:
		shame -= 1 & manna -= 5
	end

	if smoker >= 20:
		smokerNeed += 1
	end

	if smokerNeed > 10 and InSleep = 0:
		manna -= manna * 10/100
	end

	if smokerNeed > 300:
		smokerNeed = 0 & smoker = 0
	end

	if StrongNarkota > 0:
		StrongNarkota -= 1
	end

	if SLomka > 0:
		SLomka += 1 & manna -= 500
	end

	if SLomka > 100 and StrongNarkota <= 0:
		SLomka = 0 & SNarkTimes = 0
	end

	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:
		if nude = 0:
			mosolpred += 1
		end
	end

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

	if mosol >= 50:
		manna -= 5
	end

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

	if tanga = 1 and mosol > 0:
		mosol -= 1
	end

	if lipbalmstat > 0:
		lipbalmstat -= 1
	end

	if sickstage = 1:
		sick += 1 & sicktimer += 1
	end

	if sickstage = 1 and sicktimer >= 80:
		sicktimer = 0 & sickstage = 2
	end

	if sickstage = 2 and sick > 0:
		sick -= 1
	end

	if sickstage = 2 and sick <= 0:
		sick = 0 & sickstage = 0
	end

	if perkice > 0:
		perkice -= 1
	end

	if frost > 0:
		frost -= 1
	end

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

		if KGManna < KGMannaMax:
			KGManna += 10
		end
	end

	jump 'loopmin'
end

if hour >= 24:
	if pirs_pain_ton>  0:
		pirs_pain_ton -= 1
	end

	if artompower <= 0:
		artompower = 3
	end

	if brow > 0 and browper = 0:
		brow -= 1
	end

	if shorthair=1:
		shorthairday += 1

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

if KatjaOTN > 0:
	if KatjaHorny > 0:
		KatjaHorny -= rand(1,3)
	end

	if KatjaHorny < 0:
		KatjaHorny = 0
	end

	if KatjaHorny >= 100:
		KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
	end
end

if volleysostav > 0:
	trenerepa -= 1
end

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

if horny > hornyStat:
	hornyStat = horny

	if pirsA > 0:
		horny += 1
	end

	if pirsB > 0:
		horny+=1
	end

	if pirsC > 0:
		horny += 1
	end

	if pirsD > 0:
		horny += 1
	end

	if pirsE > 0:
		horny+=1
	end

	if pirsF > 0:
		horny += 5
	end

	if pirsG > 0:
		horny += 5
	end

	if pirsN > 0:
		horny += 1
	end
end

if horny < hornyStat:
	hornyStat = horny
end

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

	set dmishaevent = 0

	if BuyHous['Street'] = 2 and ArendHouseSL['Street'] <= 0:
		ArendHouseSL['Street'] = 0 & BuyHous['Street'] = 0 & housr['Street'] = 0
	end

	if BuyHous['Street'] = 2 and ArendHouseSL['Street'] > 0:
		ArendHouseSL['Street'] -= 1
	end

	if BuyHous['Down'] = 2 and ArendHouseSL['Down'] <= 0:
		ArendHouseSL['Down'] = 0 & BuyHous['Down'] = 0 & housr['Down'] = 0
	end

	if BuyHous['Down'] = 2 and ArendHouseSL['Down'] > 0:
		ArendHouseSL['Down'] -= 1
	end

	if BuyHous['Nord'] = 2 and ArendHouseSL['Nord'] <= 0:
		ArendHouseSL['Nord'] = 0 & BuyHous['Nord'] = 0 & housr['Nord'] = 0
	end

	if BuyHous['Nord'] = 2 and ArendHouseSL['Nord'] > 0:
		ArendHouseSL['Nord'] -= 1
	end

	if Gspravka <= 0 and GspravkaT > 0:
		GspravkaT = 0 & Gspravka = 0
	end

	if GspravkaT > 0:
		Gspravka -= 1
	end

	if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30:
		IvanPodstavaQW = 3
	end

	if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30:
		PodpiskaNeviezd += 1
	end

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

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

	if strenbuf > stren:
		set strenbuf -= 1
	end

	if strenbuf < stren:
		set strenbuf += 1
	end

	if vitalbuf > vital:
		set vitalbuf -= 1
	end

	if vitalbuf < vital:
		set vitalbuf += 1
	end

	if agilbuf > agil:
		set agilbuf -= 1
	end

	if agilbuf < agil:
		set agilbuf += 1
	end

	if husband > 0 and husbandrink ! 11:
		set husbandrink = rand(0, 10)
	end

	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
		end

		if shantftbgrand <= 2:
			set karta += 30000
			set shantbog -= 1

			if shantbog > 0:
				jump 'shantftb'
			end
		end
	end

	set petersexday = 0
	set klismaday1 = 0
	set opusksexday = 0

	:loop
	set day += 1
	set daystart += 1
	set week += 1
	set hour -= 24

	!STD
	if SifacOnce = 1:
		Sifilis += 1
	end

	if GerpesOnce = 1:
		Gerpes += 1
	end

	if TriperOnce = 1:
		Triper += 1
	end

	if KandidozOnce = 1:
		Kandidoz += 1
	end

	if beg >= 100 and beg < 1000:
		beg -= 1
	end

	if beg >= 1000 and beg < 1500:
		beg -= 2
	end

	if beg >= 1500 and beg < 2000:
		beg -= 3
	end

	if beg >= 2000:
		beg -= 4
	end

	set vidageday -= 1

	if workDolgDay > 0:
		workDolgDay -= 1
	end

	if QWdogreiqTimer > 0:
		QWdogreiqTimer -= 1
	end

	if husband > 0:
		husbanday += 1
	end

	!if kid > 0:kid += 1

	if husband > 10 and husbanday > 0:
		husband -= 15
	end

	if fingal > 0:
		fingal -= 1
	end

	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
		end

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

	gs 'cikl'

	if nark > 0:
		set nark -= 1
	end

	if pregtime > 10:
		fat += 1
	end

	if hour >= 24:
		jump 'loop'
	end
end

:loopday
if month > 12:
	month -= 12
	year += 1
	jump 'loopday'
end

if day > month_end[month]:
	day -= month_end[month]
	month += 1
	jump 'loopday'
end

$month = $month_name[month]

:loopweek
if week > 7:
	set week -= 7
	set husbandrink = 0
	if military = 1: set military = 0
	jump 'loopweek'
end

$week = $week_name[week]

!payments
if day = 25:
	interest = (karta / 100)

	if (interest > 0) and (interestPay = 0):
		karta += interest
		interestPay = 1
		'<b><font color=green>You have received <<interest>> rubles as interest on your bank account deposit.</font></b>'
	end

	if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
		Pay = PersSecWorkTimes * 2500
		PersSecWorkTimes = 0
		karta += 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 karta += 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 karta += 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 karta += 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 karta += 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
		end

		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 selfPornVidMoney > 0 and paydaySelfPorn = 0:
		set paydaySelfPorn = 1
		set karta += selfPornVidMoney
		'<b><font color = green>You have received <<selfPornVidMoney>> rubles on your bank account for your self-made porn videos.</font></b>'
		set selfPornVidMoney = 0
	end

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

		if husbFin = 0:
			huspay = 30000
		end

		if husbFin = 1:
			huspay = 60000
		end

		if husbFin = 2:
			huspay = 90000
		end

		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 karta += 1200 & '<b><font color = green>You have received 1,200 rubles scholarship on your bank account.</font></b>'
	end

	if housr = 1 and haday = 0 and ArendHouseSL = 0:
		set haday = 1 & set money -= 3000 & '<b><font color = red>You paid 3000 rubles for your apartment.</font></b>'
	end

	if housr = 1 and electroday = 0:
		set electroday = 1

		if elektro >= 800:
			set elektro = 800 + rand(0, 100)
		end

		set money -= elektro
		'<b><font color = red>You paid <<elektro>> for electricity.</font></b>'
		set elektro = 0
	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
else
	if interestPay = 1:
		interestPay = 0
	end

	if paydayHusb = 1:
		paydayHusb = 0
	end

	if workKafe = 1 and paydayKafe = 1:
		set paydayKafe = 0
	end

	if workSec = 1 and paydaySec = 1:
		set paydaySec = 0
	end

	if housr = 1 and haday = 1:
		set haday = 0
	end

	if housr = 1 and electroday = 1:
		set electroday = 0#
	end
	
	if housr = 1 and kabel > 0 and kabelday = 1:
		set kabelday = 0
	end

	if stipuhaday = 1:
		set stipuhaday = 0
	end

	if nopaytanwork = 1:
		nopaytanwork = 0
	end

	if nopaypoly = 1:
		nopaypoly = 0
	end

	if nopaysalon = 1:
		nopaysalon = 0
	end

	if paydaybistrosec = 1:
		paydaybistrosec = 0
	end
end

if sdaday['Street'] = day and sdamonth['Street'] = month and houserent['Street'] = 1:
	set houserent['Street'] = 0
	'<b><font color = red>The term of your residental apartment lease expired.</font></b>'
end

if sdaday['Down'] = day and sdamonth['Down'] = month and houserent['Down'] = 1:
	set houserent['Down'] = 0
	'<b><font color = red>The term of your downtown apartment lease expired.</font></b>'
end

if sdaday['Nord'] = day and sdamonth['Nord'] = month and houserent['Nord'] = 1:
	set houserent['Nord'] = 0
	'<b><font color = red>The term of your northern apartment lease expired.</font></b>'
end

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
		end

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

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

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

if willpower = intel * 5 + will * 5:
	set $willpower = '<font color = green>Your mind is clear.</font>'
end

if manna = (intel * magik) + magik * 100 + vital * 10 + rikudo:
	set $manna = '<font color = green>You are in a good mood.</font>'
end

if health < vital * 10 + stren * 5 and health >= (vital * 10 + stren * 5) * 75 / 100:
	set $health = '<font color = blue>You are healthy.</font>'
end

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

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

if health < (vital * 10 + stren * 5) * 25 / 100:
	set $health = '<font color = red>You are on the verge of death.'
end

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

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

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

if willpower < (intel * 5 + will * 5) * 25 / 100:
	set $willpower = '<font color = red>You are on the verge of madness.</font>'
end

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

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

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

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


if energy >= 20:
	set $energy = '<font color = green>You couldn''t eat one more bite.</font>'
end

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

if energy < 10 and energy >= 2:
	set $energy = '<font color = brown>You are hungry.</font>'
end

if energy < 2:
	set $energy = '<font color = red>You are very hungry.</font>'
end

if water >= 20:
	set $water = '<font color = green>You are not thirtsy at all.</font>'
end

if water < 20 and water >= 10:
	set $water = '<font color = blue>You are slightly thirsty.</font>'
end

if water < 10 and water >= 2:
	set $water = '<font color = brown>You are thirsty.</font>'
end

if water < 2:
	set $water = '<font color = red>You are very thirsty.</font>'
end

if son >= 20:
	set $son = '<font color = green>You are well rested.</font>'
end

if son < 20 and son >= 10:
	set $son = '<font color = blue>You are slightly tired.</font>'
end

if son < 10 and son >= 2:
	set $son = '<font color = brown>You are tired.</font>'
end

if son < 2:
	set $son = '<font color = red>You are very tired.</font>'
end

$din_shame = {
!dynamic din_shame
!shame += 1
!if shame >= 5:shame = 4 & shameless += 1
!if shame >= 4: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
end

if (month = 12 and day >= 29) or (month = 1 and day <= 13):
	set $holyday = '<b>Winter Break.</b>'&kanikuli = 2
end

if (month = 3 and day >= 25):
	set $holyday = '<b>Spring Break.</b>'&kanikuli = 3
end

if (month = 5 and day >= 25) or month = 6 or month = 7 or month = 8:
	set $holyday = '<b>Summer holidays.</b>'&kanikuli = 4
end

if month = 1 and day = 1:
	set $holyday = '<b>New Year</b>'&kanikuli = 5
end

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

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!Description beginning
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if hour > 9 :
	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 karta > 0:
	pl '<b><<karta>></b> rubles in your bank account.'
end

if stolmoney > 0:
	pl '<b><<stolmoney>></b> rubles in the table in your hall.'
end

if StoryLine > 0 and SchoolAtestat = 0:
	pl'<<$holyday>>'
end

if birthday = day and birthmonth = month:
	pl'<b>Today is your birthday.</b>'
end

!if shame>0:pl'<<$shame>>'

if ETOmenu = 1:
	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>'
	end

	if horny >= 50 and horny < 90:
		pl '<font color=#DB7093>You have trouble focusing at times, as your mind drifts to sex.</font>'
	end

	pl '<b><<$health>></b>'
	pl '<b><<$willpower>></b>'
	pl '<b><<$energy>></b>'
	pl '<b><<$water>></b>'
	pl '<b><<$son>></b>'
end

if ETOmenu = 0:
	if ShowStatsAs = 0:
		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>'
		end

		if horny >= 50 and horny < 90:
			pl '<font color=#DB7093>You have trouble focusing at times, as your mind drifts to sex.</font>'
		end
	end

	set a = horny
	!set a1 = horny

	if ShowStatsAs ! 2:
		gs 'indik','2'

		pl '<<$ind>> Arousal'
	end
	
	if ShowStatsAs ! 1 and ShowStatsAs ! 0:
		if horny >= 90:
			pl '<font color=#FF1493>It takes an incredible amount of willpower not to touch yourself all the time.</font>'
		end

		if horny >= 50 and horny < 90:
			pl '<font color=#DB7093>You have trouble focusing at times, as your mind drifts to sex.</font>'
		end
	end

	healthmax=(vital * 10 + stren * 5)
	set a = (health * 100 / healthmax)
	set a1 = health

	if ShowStatsAs ! 2:
		gs 'indik','1'

		pl '<<$ind>> Health'
	end

	if ShowStatsAs ! 1 and ShowStatsAs ! 0:
		pl '<b><<$health>></b>'
	end

	willpowermax =(intel * 5 + will * 5)
	set a = ( willpower * 100 / willpowermax )
	set a1 = willpower

	if ShowStatsAs ! 2:
		gs 'indik','1'

		pl '<<$ind>> Willpower'
	end

	if ShowStatsAs ! 1 and ShowStatsAs ! 0:
		pl '<b><<$willpower>></b>'
	end

	set a = (manna * 100 / mannamax)
	set a1 = manna

	if ShowStatsAs ! 2:
		gs 'indik','1'

		pl '<<$ind>> Mood'
	end

	if ShowStatsAs ! 1 and ShowStatsAs ! 0:
		pl '<b><<$manna>></b>'
	end

	set a = energy * 4
	set a1 = energy

	if ShowStatsAs ! 2:
		gs 'indik','1'

		pl '<<$ind>> Hunger'
	end

	if ShowStatsAs ! 1 and ShowStatsAs ! 0:
		pl '<b><<$energy>></b>'
	end

	set a = water * 5
	set a1 = water

	if ShowStatsAs ! 2:
		gs 'indik','1'

		pl '<<$ind>> Thirst'
	end

	if ShowStatsAs ! 1 and ShowStatsAs ! 0:
		pl '<b><<$water>></b>'
	end

	set a = son * 4
	set a1 = son

	if ShowStatsAs ! 2:
		gs 'indik','1'

		pl '<<$ind>> Sleep'
	end

	if ShowStatsAs ! 1 and ShowStatsAs ! 0:
		pl '<b><<$son>></b>'
	end
end

$strip_dress = {
	if stripdress = 0:
		stripdress = 1
		nude = 1
		odedosna = numdress
		numdress = 0

		gs'stat'

		'You remove your clothes.'
		exit
	end

	if stripdress = 1:
		stripdress = 0
		numdress = odedosna
		nude = 0

		gs'stat'

		'You get dressed.'
		exit
	end
}

nl

if nude = 1:
	stripdress = 1
end

if nude = 0:
	stripdress = 0
end

if stripdress = 0:
	$stripDress = 'Strip'
end

if stripdress = 1:
	$stripDress = 'Dress'
end

pl'<a href="exec:dynamic $strip_dress"><b><<$stripDress>></b></a>'

$smoker = {
	siga -= 1
	smoker += 1
	smokeHour = hour
	smokeDay = day
	smokeminut = minut + 5
	smokerNeed = 0
	manna += 100
	wipo += 100

	if energy < 20:
		energy += 3
	end

	gs 'stat'
}

if $mud ! '':
	pl '<font color = green><b><<$mud>></b></font>'
end

if siga <= 0 and smoker >= 20:
	pl '<font color = red><b>You have run out of cigarettes.</b></font>'
end

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

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

	if pirs_pain_ton = 2:
		pl'<font color=red>You often aches language and it is noticeably swollen.</font>'
	end

	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
end

if ReminderSystem = 1:
	if tampon < ReminderNumber:
		pl '<font color = red>I should go buy some tampons</font>'
	end

	if stanok < ReminderNumber:
		pl '<font color = red>I should go buy some razors</font>'
	end

	if poroshok < ReminderNumber:
		pl '<font color = red>I should go buy some washing powder</font>'
	end

	if clrbelo < ReminderNumber:
		pl '<font color = red>I should go buy some clean underwear</font>'
	end

	if shampoo < ReminderNumber:
		pl '<font color = red>I should go buy some shampoo</font>'
	end

	if fairy < ReminderNumber:
		pl '<font color = red>I should go buy some dishwashing detergent</font>'
	end

	if (eda + edaD) < ReminderNumber:
		pl '<font color = red>I should go buy some food</font>'
	end
end

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

!!!!!!!!!!!!!!!!!!!
if sweat = 1:
	pl '<font color = brown>You´re sweating.</font>'
end

if sweat = 2:
	pl '<font color = red>You are a little smelly.</font>'
end

if sweat = 3:
	pl '<font color = red>You stink.</font>'
end

if sweat > 3:
	pl '<b><font color = red>You stink.</font></b>'
end

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

if isprok = 1 and mesec > 0 and preg = 0:
	pl 'You are having your period.'
end

if preg = 1 and pregtime = 280:
	pl '<b><font color = red>You urgently need to go to the hospital</font></b>'
end

if preg = 1:
	Set rodtime = 280 - pregtime
end

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

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

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

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

$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>Ваше лицо</font></b></a>'
!'<a href="exec:view''images/body/cumass.jpg''"><b><font color = red>Ваша попа</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>'
end

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

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

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

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

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

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

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

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

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

if cumfrot > 0 and swallow >= 10:
	pl '<a href="exec:view''images/body/cumfrot.jpg''"><b><font color = redYou have <a href="exec:dynamic $cumeater5"><b><font color = red>semen stains</font></b></a> on your clothes</font></b></a>.'
end

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

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

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

if vgape = 2:
	pl '<b><font color = red>You have a sore vagina and you can hardly keep your feet together.</font></b>'
end

if vgape = 1:
	pl '<b><font color = red>You have a slightly sore vagina.</font></b>'
end

if agape = 3:
	pl '<b><font color = red>You have very sore anus and it emits blood.</font></b>'
end

if agape = 2:
	pl '<b><font color = red>You have a sore anus.</font></b>'
end

if agape = 1:
	pl '<b><font color = red>You have a slightly sore and itchy anus.</font></b>'
end

if Gerpes >= 3:
	pl '<b><font color = red>On your lips sores. All signs of genital herpes.</font></b>'
end

if Gerpes < 10 and Gerpes >= 5:
	pl '<b><font color = red>Your pussy flushed and highly itchy. This genital herpes.</font></b>'
end

if Gerpes >= 10:
	pl '<b><font color = red>On your pussy sores appeared. This genital herpes.</font></b>'
end

if Gerpes >= 20:
	pl '<b><font color = red>cover your ass sores of genital herpes.</font></b>'
end

if Sifilis >= 21 and Sifilis < 50:
	pl '<b><font color = red>You have jumped big, hard sore on the lip.</font></b>'
end

if Sifilis >= 50:
	pl '<b><font color = red>syphilitic rash covers your whole body.</font></b>'
end

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

if Kandidoz > 30:
	pl '<b><font color = red>Do you thrush.</font></b>'
end

if SLomka > 0:
	pl '<b><font color = red>You are very bad and hurt all the bones. Do you break-up</font></b>'
end

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

if fingal > 0:
	pl '<b><font color = red>You have a black eye on the face.</font></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>'
end

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

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

if analplugIN = 1:
	pl '<b><font color = red>Do you in the ass anal plug is inserted.</font></b>'
end

if vibratorin = 1:
	pl '<b><font color = red>Do you work in the vagina vibrator.</font></b>'
end

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

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

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

		if hour = 8:
			pl '<b><font color = red>You need to work on the market.</font></b>'
		end
	end
end

if frost > 0 and frost <= 5:
	pl '<b><font>You have a little chilly.</font></b>'
end

if frost > 5 and frost < 11:
	pl '<b><font color = red>Are you cold.</font></b>'
end

if frost >= 11:
	pl '<b><font color = red>You are very cold.</font></b>'
end

if sick = 1:
	pl '<b><font color = red>you that is not good, tickle in the throat and a little runny nose.</font></b>'
end

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

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

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

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



if $meetloc = 'street':
	$meetlocation = 'residential'
end

if $meetloc = 'down':
	$meetlocation = 'downtown'
end

if $meetloc = 'Nord':
	$meetlocation = 'northern'
end

if hour < meethour and svidanieA = 1:
	pl '<<$boyA>> will be waiting for you near your home in <<$meetlocation>> at <<meethour>> hours'
end

if hour = meethour and svidanieA = 1:
	pl '<b><font color = red><<$boyA>> is waiting for you around the house in <<$meetlocation>>.</font></b>'
end

if meetday < daystart and svidanieA = 1:
	bfA -= 10 & svidanieA = 0
end

if StrongNarkota > 20:
	pl '<b><font color = red>You are stoned.</font></b>'
end



if alko > 0:
	if alko < 3:
		pl '<b><font color = red>You´re a little dizzy.</font></b>'
	end

	if alko >= 3 and alko < 6:
		pl '<b><font color = red>You´re drunk.</font></b>'
	end

	if alko >= 6:
		pl '<b><font color = red>You´re wasted.</font></b>'
	end
end

if day = 29 and month = 12 and year = 2010 and StoryLine = 1:
	if hour>=5 and hour<=14:
		pl'B 14 School hours will be held New Year`s party.'
	end
end

gs 'din_bad'

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

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

	if jeans2 = 1:
		set jeans[2] = 1 & set jeansH[2] = 50 & set jeansB[2] = bedra
	end

	if jeans3 = 1:
		set jeans[3] = 1 & set jeansH[3] = 50 & set jeansB[3] = bedra
	end

	if jeans4 = 1:
		set jeans[4] = 1 & set jeansH[4] = 50 & set jeansB[4] = bedra
	end

	if jeans5 = 1:
		set jeans[5] = 1 & set jeansH[5] = 50 & set jeansB[5] = bedra
	end

	if yoga = 1:
		set yoga[1] = 1 & set yogaH[1] = 50
	end

	if yoga2 = 1:
		set yoga[2] = 1 & set yogaH[2] = 50
	end

	if yoga3 = 1:
		set yoga[3] = 1 & set yogaH[3] = 50
	end

	if yoga4 = 1:
		set yoga[4] = 1 & set yogaH[4] = 50
	end
	if yoga5 = 1:
		set yoga[5] = 1 & set yogaH[5] = 50
	end

	if yoga6 = 1:
		set yoga[6] = 1 & set yogaH[6] = 50
	end

	if yoga7 = 1:
		set yoga[7] = 1 & set yogaH[7] = 50
	end

	if yoga8 = 1:
		set yoga[8] = 1 & set yogaH[8] = 50
	end

	if yoga9 = 1:
		set yoga[9] = 1 & set yogaH[9] = 50
	end

	if yoga10 = 1:
		set yoga[10] = 1 & set yogaH[10] = 50
	end

	if yoga11 = 1:
		set yoga[11] = 1 & set yogaH[11] = 50
	end

	if yoga12 = 1:
		set yoga[12] = 1 & set yogaH[12] = 50
	end

	if yoga13 = 1:
		set yoga[13] = 1 & set yogaH[13] = 50
	end

	if yoga14 = 1:
		set yoga[14] = 1 & set yogaH[14] = 50
	end

	if yoga15 = 1:
		set yoga[15] = 1 & set yogaH[15] = 50
	end

	if yoga16 = 1:
		set yoga[16] = 1 & set yogaH[16] = 50
	end

	if yoga17 = 1:
		set yoga[17] = 1 & set yogaH[17] = 50
	end

	if yoga18 = 1:
		set yoga[18] = 1 & set yogaH[18] = 50
	end

	if sarafan = 1:
		set sarafan[1] = 1 & set sarafanH[1] = 50
	end

	if sarafan2 = 1:
		set sarafan[2] = 1 & set sarafanH[2] = 50
	end

	if short = 1:
		set short[1] = 1 & set shortH[1] = 50 & set shortB[1] = bedra
	end

	if short2 = 1:
		set short[2] = 1 & set shortH[2] = 50 & set shortB[2] = bedra
	end

	if short3 = 1:
		set short[3] = 1 & set shortH[3] = 50 & set shortB[3] = bedra
	end

	if short4 = 1:
		set short[4] = 1 & set shortH[4] = 50 & set shortB[4] = bedra
	end

	if short5 = 1:
		set short[5] = 1 & set shortH[5] = 50 & set shortB[5] = bedra
	end

	if skirt = 1:
		set skirt[1] = 1 & set skirtH[1] = 50 & set skirtB[1] = bedra
	end

	if skirt2 = 1:
		set skirt[2] = 1 & set skirtH[2] = 50 & set skirtB[2] = bedra
	end

	if skirt3 = 1:
		set skirt[3] = 1 & set skirtH[3] = 50 & set skirtB[3] = bedra
	end

	if skirt4 = 1:
		set skirt[4] = 1 & set skirtH[4] = 50 & set skirtB[4] = bedra
	end

	if skirt5 = 1:
		set skirt[5] = 1 & set skirtH[5] = 50 & set skirtB[5] = bedra
	end

	if dress = 1:
		set dress[1] = 1 & set dressH[1] = 100 & set dressB[1] = bedra
	end

	if dress2 = 1:
		set dress[2] = 1 & set dressH[2] = 100 & set dressB[2] = bedra
	end

	if dress3 = 1:
		set dress[3] = 1 & set dressH[3] = 100 & set dressB[3] = bedra
	end

	if dress4 = 1:
		set dress[4] = 1 & set dressH[4] = 100 & set dressB[4] = bedra
	end

	if dress5 = 1:
		set dress[5] = 1 & set dressH[5] = 100 & set dressB[5] = bedra
	end

	if dress6 = 1:
		set dress[6] = 1 & set dressH[6] = 100 & set dressB[6] = bedra
	end

	if dress7 = 1:
		set dress[7] = 1 & set dressH[7] = 100 & set dressB[7] = bedra
	end

	if dress8 = 1:
		set dress[8] = 1 & set dressH[8] = 100 & set dressB[8] = bedra
	end

	if dress9 = 1:
		set dress[9] = 1 & set dressH[9] = 100 & set dressB[9] = bedra
	end

	if dress10 = 1:
		set dress[10] = 1 & set dressH[10] = 100 & set dressB[10] = bedra
	end

	if dress11 = 1:
		set dress[11] = 1 & set dressH[11] = 100 & set dressB[11] = bedra
	end

	if dress12 = 1:
		set dress[12] = 1 & set dressH[12] = 100 & set dressB[12] = bedra
	end

	if dress13 = 1:
		set dress[13] = 1 & set dressH[13] = 100 & set dressB[13] = bedra
	end

	if dress14 = 1:
		set dress[14] = 1 & set dressH[14] = 100 & set dressB[14] = bedra
	end

	if dress15 = 1:
		set dress[15] = 1 & set dressH[15] = 100 & set dressB[15] = bedra
	end

	if dress16 = 1:
		set dress[16] = 1 & set dressH[16] = 100 & set dressB[16] = bedra
	end

	if dress17 = 1:
		set dress[17] = 1 & set dressH[17] = 100 & set dressB[17] = bedra
	end

	if dress18 = 1:
		set dress[18] = 1 & set dressH[18] = 100 & set dressB[18] = bedra
	end

	if dress19 = 1:
		set dress[19] = 1 & set dressH[19] = 100 & set dressB[19] = bedra
	end

	if dress20 = 1:
		set dress[20] = 1 & set dressH[20] = 100 & set dressB[20] = bedra
	end

	if dress21 = 1:
		set dress[21] = 1 & set dressH[21] = 100 & set dressB[21] = bedra
	end

	if dress22 = 1:
		set dress[22] = 1 & set dressH[22] = 100 & set dressB[22] = bedra
	end

	if dress23 = 1:
		set dress[23] = 1 & set dressH[23] = 100 & set dressB[23] = bedra
	end

	if dress24 = 1:
		set dress[24] = 1 & set dressH[24] = 100 & set dressB[24] = bedra
	end

	if profi = 1:
		set profi[1] = 1 & set profiH[1] = 50 & set profiB[1] = bedra
	end

	if profi2 = 1:
		set profi[2] = 1 & set profiH[2] = 50 & set profiB[2] = bedra
	end

	if pants = 1:
		set pants[1] = 1 & set pantsH[1] = 50 & set pantsB[1] = bedra
	end

	if pants2 = 1:
		set pants[2] = 1 & set pantsH[2] = 50 & set pantsB[2] = bedra
	end

	if pants3 = 1:
		set pants[3] = 1 & set pantsH[3] = 50 & set pantsB[3] = bedra
	end

	if pants4 = 1:
		set pants[4] = 1 & set pantsH[4] = 50 & set pantsB[4] = bedra
	end

	if pants5 = 1:
		set pants[5] = 1 & set pantsH[5] = 50 & set pantsB[5] = bedra
	end

	if latex = 1:
		set latex[1] = 1 & set latexH[1] = 50 & set latexB[1] = bedra
	end

	if latex2 = 1:
		set latex[2] = 1 & set latexH[2] = 50 & set latexB[2] = bedra
	end

	if hooker = 1:
		set hooker[1] = 1 & set hookerH[1] = 50 & set hookerB[1] = bedra
	end

	if hooker2 = 1:
		set hooker[2] = 1 & set hookerH[2] = 50 & set hookerB[2] = bedra
	end

	if hooker3 = 1:
		set hooker[3] = 1 & set hookerH[3] = 50 & set hookerB[3] = bedra
	end

	if hooker4 = 1:
		set hooker[4] = 1 & set hookerH[4] = 50 & set hookerB[4] = bedra
	end

	if hooker5 = 1:
		set hooker[5] = 1 & set hookerH[5] = 50 & set hookerB[5] = bedra
	end

	if dressel1 = 1:
		set odekis[1] = 1 & set odekisH[1] = 50 & set odekisB[1] = bedra
	end

	if odekis1 = 1:
		set odekis[2] = 1 & set odekisH[2] = 50 & set odekisB[2] = bedra
	end

	if odekis2 = 1:
		set odekis[3] = 1 & set odekisH[3] = 50 & set odekisB[3] = bedra
	end

	if odekis3 = 1:
		set odekis[4] = 1 & set odekisH[4] = 50 & set odekisB[4] = bedra
	end

	if odekis4 = 1:
		set odekis[5] = 1 & set odekisH[5] = 50 & set odekisB[5] = bedra
	end

	if odekis5 = 1:
		set odekis[6] = 1 & set odekisH[6] = 50 & set odekisB[6] = bedra
	end

	if odekis6 = 1:
		set odekis[7] = 1 & set odekisH[7] = 50 & set odekisB[7] = bedra
	end

	if odekis7 = 1:
		set odekis[8] = 1 & set odekisH[8] = 50 & set odekisB[8] = bedra
	end

	if odekis8 = 1:
		set odekis[9] = 1 & set odekisH[9] = 50 & set odekisB[9] = bedra
	end

	if odekis9 = 1:
		set odekis[10] = 1 & set odekisH[10] = 50 & set odekisB[10] = bedra
	end

end
--- stat ---------------------------------
