Integrating RUS 1.05 translated into Com version #2

locations/001_start

@@ -134,18 +134,18 @@ clrbelo = 1
 GameUpdate = 1
 update_2014_08_28 = 1
 
-month_end[1]=31
-month_end[2]=28
-month_end[3]=31
-month_end[4]=30
-month_end[5]=31
-month_end[6]=30
-month_end[7]=31
-month_end[8]=31
-month_end[9]=30
-month_end[10]=31
-month_end[11]=30
-month_end[12]=31
+month_end[1] = 31
+month_end[2] = 28
+month_end[3] = 31
+month_end[4] = 30
+month_end[5] = 31
+month_end[6] = 30
+month_end[7] = 31
+month_end[8] = 31
+month_end[9] = 30
+month_end[10] = 31
+month_end[11] = 30
+month_end[12] = 31
 
 $month_name[1] = 'January'
 $month_name[2] = 'February'

locations/003_begin

@@ -1,14 +1,15 @@
 # begin
-'<center><B><font color = maroon>CHOOSE GAME START</font></B></center>'
+'<center><b><font color = maroon>CHOOSE GAME START</font></b></center>'
 *nl
-'<B>Original Start:</B>'
+'<b>Original Start:</b>'
 'You are Michael Kuznetsov, a fairly average, 35 year old businessman whose life is about to be turned inside out. Features magic and an (incomplete) over-arching plot. Beware of unintelligible translations.'
 *nl
-'<B>Alternate Start:</B>'
+'<b>Alternate Start:</b>'
 "You are a 15-year-old small-town girl about to start her first year of high school. Name and starting stats are customizable, no magic and no major 'plot' other than <i>life</i>. Not to say that your classmates and family don't have their own stories, though!" 
 
 act '<center><b>Original start</b></center>':
 	cla
+
 	showstat 1
 	showobjs 1
 	addobj 'Player'
@@ -28,4 +29,3 @@ act '<center><b>Start the alternative game</b></center>':
 	gt 'alterStart'
 end
 --- begin ---------------------------------
-

locations/004_begin1

@@ -5,19 +5,24 @@ showobjs 1
 set $name = 'Svetlana'
 set $surname = 'Lebedev'
 set $name = input("What is your first name?")
+
 if $name = '':
 	set $name = 'Svetlana'
 end
+
 set $surname = input("What is your last name?")
+
 if $surname = '':
 	set $surname = 'Lebedev'
 end
+
 set age = 18
 set vidage = 16
 set year = 2010
 set month = 5
 set week = 3
 set hour = 13
+!body
 set rost = 170
 set fat = 60
 set salo = 60
@@ -25,6 +30,7 @@ set dick = 0
 set energy = 15
 set water = 15
 set son = 16
+!stats
 set stren = 10
 set strenbuf = 10
 set speed = 10
@@ -88,4 +94,3 @@ addobj 'Character'
 addobj 'See'
 addobj 'Others'
 --- begin1 ---------------------------------
-

locations/006_counter

@@ -1,4 +1,64 @@
 # counter
+if music_on <> music_on_prev or $music_theme <> $music_theme_prev:
+	close $cur_theme[track[$music_theme_prev]]
+	music_on_prev = music_on
+	$music_theme_prev = $music_theme
 
---- counter ---------------------------------
+	if $music_theme <>'': 
+		copyarr 'cur_theme', 'tracklist_<<$music_theme>>'
+		track[$music_theme] = track[$music_theme]-1
+
+		if track[$music_theme] < 0:
+			track[$music_theme]=ARRSIZE('cur_theme')
+		end
+	end
+end
+
+if music_on = 1 and $music_theme <> '':
+	if no isplay ($cur_theme[track[$music_theme]]):
+		track[$music_theme] = track[$music_theme]+1
+
+		if ARRSIZE('cur_theme') <= track[$music_theme]:
+			track[$music_theme] = 0
+		end
+	end
+
+	play $cur_theme[track[$music_theme]], volume
+end
+
+!race
+
+if race_start = 1:
+	bcolor = rgb(255,255,255)
+	REFINT
 
+	*clr
+
+	if race_hit=0:
+		set race_miss += 1
+		race_hit = 1
+	end
+
+	if $race1[race_row] <> ' ' and race_row > 0:
+		race_hit = 0
+	end
+
+	'<center><b><<$car>></b></center>'
+	!interior of the vehicle and the line route
+	*PL $showcar
+	*P $race1[race_row]
+
+	if $race1[race_row] = '<center>-------FINISH--------</center>':
+		set race_start = 0
+		!return timer
+		settimer 500
+		wait 2000
+		!return point
+		set $metka = 'finish'
+		set $loc = 'RACE_COUNT'
+		GOTO $loc, $metka
+	end
+
+	race_row += 1
+end
+--- counter ---------------------------------

locations/023_stat

@@ -3,21 +3,167 @@ clr
 
 view
 
-if newclo[131] = 1 and SchoolAtestat = 1 or newclo[131] = 1 and SchoolBlock = 1: newclo[131] = 0
+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
+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'
-if housr = 1: housr['Street'] = 1
+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
-		if kosmetica < 2 and mop = 3: set mop = 2
+		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.'
@@ -26,10 +172,12 @@ if AutoMakeup = 1 and kosmetitka > 0 and mop = 1 and InSleep = 0 and (AutoMakeup
 				'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
@@ -37,8 +185,14 @@ if AutoMakeup = 1 and kosmetitka > 0 and mop = 1 and InSleep = 0 and (AutoMakeup
 			end
 		end
 	else
-		if kosmetitka < 3 and mop = 4: set mop = 3
-		if kosmetitka < 2 and mop = 3: set mop = 2
+		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.'
@@ -47,10 +201,12 @@ if AutoMakeup = 1 and kosmetitka > 0 and mop = 1 and InSleep = 0 and (AutoMakeup
 				'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
@@ -63,6 +219,7 @@ 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
@@ -72,6 +229,7 @@ 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
@@ -82,7 +240,7 @@ if AutoEnema = 1 and klismaday ! day:
 	if $CurLoc = vanr or $CurLoc = vanrPar:
 		!set minut = minut + 5
 		set klismaday = day
-		set klismaday1= 1
+		set klismaday1 = 1
 		set AEnema = 0
 		!'You put yourself an enema and clean intestines, now your ass ready for anal sex.'
 	end
@@ -91,25 +249,39 @@ end
 if lipbalm > 0 and lipbalmstat <= 0 and AutoLipBalm = 1:
 	set minut -= 10
 	set lipbalm -= 1
-	set lipkoef += RAND(5,15)
+	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
-		if GerpesOnce=1:Gerpes-=2
-		if SifacOnce=1 and Sifilis>=10:Sifilis-=RAND(0,1)
-		set skinvan = skinvan + 1
-		if skinvan = 20:set skinvan = 0&set skin = skin + 1
+		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
 
@@ -117,177 +289,318 @@ end
 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
+if cheatHapri = 1:
+	hapri = 1
+end
+
 if cheatNomakeup = 1:
-if mop = 0: mop = 1
+	if mop = 0:
+		mop = 1
+	end
+end
+
+if cheatNosweat = 1 and sweat > -3:
+	set sweat = -3
 end
 
-if cheatNosweat = 1 and sweat > -3: set sweat = -3
 if cheatNoEat = 1:
-if energy ! 19: energy = 19
-if water ! 19: water = 19
+	if energy ! 19:
+		energy = 19
+	end
+
+	if water ! 19:
+		water = 19
+	end
 end
 
-if cheatAlwaysHorny=1:
-	if horny ! 100: horny = 100
+if cheatAlwaysHorny = 1:
+	if horny ! 100:
+		horny = 100
+	end
 end
 
-if cheatNoLegHair=1:
-	if leghair ! 0: leghair = 0
+if cheatNoLegHair = 1:
+	if leghair ! 0:
+		leghair = 0
+	end
 end
 
-if cheatNoPussyHair=1:
-	if lobok ! 0: lobok = 0
+if cheatNoPussyHair = 1:
+	if lobok ! 0:
+		lobok = 0
+	end
 end
 
-if cheatNeverTired=1:
-	if son < 25: son = 25
+if cheatNeverTired = 1:
+	if son < 25:
+		son = 25
+	end
 end
 
-if cheatNeverThirsty=1:
-	if water < 25: water = 25
+if cheatNeverThirsty = 1:
+	if water < 25:
+		water = 25
+	end
 end
 
-if cheatNeverHungry=1:
-	if energy < 25: energy = 25
+if cheatNeverHungry = 1:
+	if energy < 25:
+		energy = 25
+	end
 end
 
-if cheatAlwaysVirgin=1:
-	if vagina ! 0: vagina = 0
+if cheatAlwaysVirgin = 1:
+	if vagina ! 0:
+		vagina = 0
+	end
 end
 
-if cheatVaginaHealth=1:
-	if mosol ! 0: mosol = 0
+if cheatVaginaHealth = 1:
+	if mosol ! 0:
+		mosol = 0
+	end
 end
 
-if cheatAlwaysMarried=1:
-	if husband ! 100: husband = 100
+if cheatAlwaysMarried = 1:
+	if husband ! 100:
+		husband = 100
+	end
 end
 
-if cheatNoSTDs=1:
-	if venera ! 0: venera = 0
-	if GerpesOnce ! 0: GerpesOnce = 0
-	if Gerpes ! 0: Gerpes = 0
-	if SifacOnce ! 0: SifacOnce = 0
-	if Sifilis ! 0: Sifilis = 0
-	if KandidozOnce ! 0: KandidozOnce = 0
-	if Kandidoz ! 0: Kandidoz = 0
-	if TriperOnce ! 0: TriperOnce = 0
-	if Triper ! 0: Triper = 0
+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
+if cheatNoSweat = 1:
+	if sweat ! -3:
+		sweat = -3
+	end
 end
 
-if cheatNoPeriods=1:
-	if mesec ! 0: mesec = 0
+if cheatNoPeriods = 1:
+	if mesec ! 0:
+		mesec = 0
+	end
 end
 
-if cheatBrushedHair=1:
-	if hapri ! 1: hapri = 1
+if cheatBrushedHair = 1:
+	if hapri ! 1:
+		hapri = 1
+	end
 end
 
-if cheatAlwaysMakeup=1:
-	if kosmetica=0:kosmetica+=50
-	if cheatMakeupSelect=1:set mop=1
-	if cheatMakeupSelect=2:set mop=2
-	if cheatMakeupSelect=3:set mop=3
-	if cheatMakeupSelect=4:set mop=4
+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
+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 lernSkill >= 8: intel += 1 & lernSkill = 0
+if GorSlut = 6:
+	$gnikname = 'Talking pussy'
+end
 
-if numdress ! 131 and Sforma > 0: set Sforma = 0
-if numdress = 131 and Sforma = 0: set Sforma = 1
+if GorSlut >= 2:
+	KatjaKnowBJ = 1
+end
 
-if lern >= 10: intel += 1 & lern = 0
+if GorSlut >= 1 or preg > 0:
+	KatjaKnowSex = 1
+end
 
-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 film > 0 and kompromatLife < 10:
+	!Porn actress
+	if kompromatLife < 10:
+		kompromatLife = 10
+	end
 
-	if film > 0 and kompromatLife < 10:
-	!порноактрисса
-	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 a couple of guys and was photographed
+	if kompromatLife < 9:
+		kompromatLife = 9
 	end
-	if fotoyousuck = 1 and kompromatLife < 9:
-	!сосала в паре у парней и была сфотографированна
-	if kompromatLife < 9: kompromatLife = 9
+
 	$kompromatFoto = 'These pictures show you sucking two cocks at the same time.'
-	end
-	if fotoCFNMsex > 0 and kompromatLife < 8:
+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:
-	!кончили на лицо в стрипклубе
+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:
-	!сосала на глазах у всех
+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
 
-	if stripdancesum > 0 and kompromatLife < 2:
-	!стриптизерша
-	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
 	end
-	if modelfoto > 0 and kompromatLife < 1:
-	!фото модель
-	if kompromatLife < 1: kompromatLife = 1
-	$kompromatFoto = 'These are photos of you being naked, when you were taking pictures at the model agence.'
-	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)
@@ -297,9 +610,17 @@ 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 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
@@ -308,37 +629,50 @@ if husband = 0:
 	set houseslut = 0
 end
 
-if SNarkvnesh = 0: SNarkvnesh = 1
+if SNarkvnesh = 0:
+	SNarkvnesh = 1
+end
+
 if SNarkTimes >= SNarkvnesh * 25:
 	SNarkvnesh += 1
 	vidage += 1
 end
 
-if gopota >= 20 and gnewQW = 1: set gnewQW = 2
+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
@@ -348,1062 +682,2470 @@ if horny < hornyStat:
 	hornyStat = horny
 end
 
-if workDisk = 4 and week > 5: workDisk = 1
-if workDisk = 3 and week > 5: workDiskAtkPlayer = 1
+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
-if SifacOnce = 1: VeneraN += 1
-if GerpesOnce = 1: VeneraN += 1
-if TriperOnce = 1: VeneraN += 1
+
+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
-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 dancePRO > 100: dancePRO = 100
-if bfa < 0: bfa = 0
+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 painQW = 0: set painweather = 6
+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 beg < 0: set beg = 0
-if beg > 2000: set beg = 2000
+if Punch > 120:
+	set Punch = 120
+end
 
-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 Kik > 120:
+	set Kik = 120
+end
 
-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 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
-
-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
-
-if exhibi >= 4: pl '<B>You opened a new outfit ready</B>'
-
-if SUB >= DOM and DOM > 0: set SUB -= DOM & set DOM = 0
-if DOM >= SUB and SUB > 0: set 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
+if boxing > 100:
+	set boxing = 100
 end
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!ВРЕМЯ
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+if stren > 100 and mutagenP = 0:
+	set stren = 100
+end
 
-if nminut ! minut:
-	!totminut время игры в минутах
-	totminut += minut
-	nminut = minut
+if speed > 100 and mutagenS = 0:
+	set speed = 100
 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
+if agil > 100 and mutagenA = 0:
+	set agil = 100
 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
+if react > 100 and mutagenR = 0:
+	set react = 100
 end
 
-if vgape > 0:
-	if vgapetime+1500 <= totminut:
-	if vgape = 1: vgape = 0
-	if vgape = 2: vgape = 1 & vgapetime = totminut
-	if vgape = 3: vgape = 2 & vgapetime = totminut
-	end
+if vital > 100 and mutagenV = 0:
+	set vital = 100
 end
 
-if agape > 0:
-	if agapetime+2500 <= totminut:
-	if agape = 1: agape = 0
-	if agape = 2: agape = 1 & agapetime = totminut
-	if agape = 3: agape = 2 & agapetime = totminut
-	end
+if will > 100 and mutagenW = 0:
+	set will = 100
 end
 
-:loopsec
-if sec >= 60:
-	minut+= 1
-	sec -= 60
-	jump 'loopsec'
+if intel > 100 and mutagenI = 0 and student = 0 and diplom = 0:
+	set intel = 100
 end
 
-:loopmin
-if minut >= 60:
-	if CompCheckedResponses = 1:
-		CompCheckedResponses = 0
-		if obkvsdam['Street']>0: set obkvsdam['Street'] = RAND(2,5)
-		if obkvsdam['Down']>0: set obkvsdam['Down'] = RAND(2,5)
-		if obkvsdam['Nord']>0: set obkvsdam['Nord'] = RAND(2,5)
-	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
-		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
-			end
-		end
-		alko -= 1
-	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 stren > 150 and mutagenP = 1:
+	set stren = 150
+end
 
-	if narkoman = 1 and narkday ! day:
-		set health -= 5
-		set willpower -= 5
-		set manna -= 10
-	end
+if speed > 150 and mutagenS = 1:
+	set speed = 150
+end
 
-	if tanga = 0 and ski =0 or glamur = 0 and tanga = 0:
-		if nude = 0: mosolpred += 1
-	end
+if agil > 150 and mutagenA = 1:
+	set agil = 150
+end
 
-	if mosolpred >= 10:
-		set mosol += 1
-		set mosolpred -= 10
-	end
+if react > 150 and mutagenR = 1:
+	set react = 150
+end
 
-	if mosol >= 50:
-		manna -= 5
-	end
+if vital > 150 and mutagenV = 1:
+	set vital = 150
+end
 
-	if energy >= 25: energy -= 5 & fat += 1
+if will > 150 and mutagenW = 1:
+	set will = 150
+end
 
-	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 intel > 150 and mutagenI = 1 and student = 0 and diplom = 0:
+	set intel = 150
+end
 
-	if KGOLpers > 0:
-		if KGHP < KGHPMAX: KGHP += 10
-		if KGManna < KGMannaMax: KGManna += 10
-	end
+if stren > 200 and mutagenP = 2:
+	set stren = 200
+end
 
-	jump 'loopmin'
+if speed > 200 and mutagenS = 2:
+	set speed = 200
 end
 
-if hour >= 24:
-	if KatjaOTN > 0:
-		if KatjaHorny > 0: KatjaHorny -= rand(1,3)
-		if KatjaHorny < 0: KatjaHorny = 0
-		if KatjaHorny >= 100: KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
-	end
+if agil > 200 and mutagenA = 2:
+	set agil = 200
+end
 
-	if volleysostav > 0: trenerepa -= 1
+if react > 200 and mutagenR = 2:
+	set react = 200
+end
 
-	if birthday = day and birthmonth = month:
-		!день рождения
-		set age += 1
-		set vidage += 1
-	end
+if vital > 200 and mutagenV = 2:
+	set vital = 200
+end
 
-	if kanikuli = 0: Suspeh -= 1
-	set dmishaevent = 0
+if will > 200 and mutagenW = 2:
+	set will = 200
+end
 
-	if BuyHous['Street'] = 2 and ArendHouseSL['Street'] <= 0: ArendHouseSL['Street'] = 0 & BuyHous['Street'] = 0 & housr['Street'] = 0
-	if BuyHous['Street'] = 2 and ArendHouseSL['Street']>0: ArendHouseSL['Street'] -= 1
-	if BuyHous['Down'] = 2 and ArendHouseSL['Down'] <= 0: ArendHouseSL['Down'] = 0 & BuyHous['Down'] = 0 & housr['Down'] = 0
-	if BuyHous['Down'] = 2 and ArendHouseSL['Down']>0: ArendHouseSL['Down'] -= 1
-	if BuyHous['Nord'] = 2 and ArendHouseSL['Nord'] <= 0: ArendHouseSL['Nord'] = 0 & BuyHous['Nord'] = 0 & housr['Nord'] = 0
-	if BuyHous['Nord'] = 2 and ArendHouseSL['Nord']>0: ArendHouseSL['Nord'] -= 1
+if intel > 200 and mutagenI = 2 and student = 0 and diplom = 0:
+	set intel = 200
+end
 
-	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 stren > 250 and mutagenP = 3:
+	set stren = 250
+end
 
-	if salo > fat:
-		salo -= 1
-		fat += 1
-	end
+if speed > 250 and mutagenS = 3:
+	set speed = 250
+end
 
-	if salo < fat:
-		salo += 1
-		fat -= 1
-	end
+if agil > 250 and mutagenA = 3:
+	set agil = 250
+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 react > 250 and mutagenR = 3:
+	set react = 250
+end
 
-	if shantsr > 0:
-		set pay = shantsr * 5000
-		set karta += pay
-		set shantsr = 0
-	end
+if vital > 250 and mutagenV = 3:
+	set vital = 250
+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
+if will > 250 and mutagenW = 3:
+	set will = 250
+end
 
-	set petersexday = 0
-	set klismaday1= 0
-	set opusksexday = 0
+if intel > 250 and mutagenI = 3 and student = 0 and diplom = 0:
+	set intel = 250
+end
 
-	:loop
-	set day += 1
-	set daystart += 1
-	set week += 1
-	set hour -= 24
-	!ЗПП
-	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
+if intel > 250:
+	set intel = 250
+end
 
-	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 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 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>'
+	if orgasm >= 1 and magik < 1:
+		set magik = 1 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
 	end
 
-	gs 'cikl'
+	if orgasm >= 2 and magik < 2:
+		set magik = 2 & set resnic += 1 & set rikudo += 500 & pl $levelUpString
+	end
 
-	if nark > 0:
-		set nark -= 1
+	if orgasm >= 4 and magik < 3:
+		set magik = 3 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
 	end
 
-	if pregtime > 10: fat += 1
+	if orgasm >= 8 and magik < 4:
+		set magik = 4 & set resnic += 1 & set rikudo += 500 & pl $levelUpString
+	end
 
-	if hour >= 24:
-		jump 'loop'
+	if orgasm >= 16 and magik < 5:
+		set magik = 5 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
 	end
-end
 
-:loopday
-if month > 12:
-	month -= 12
-	year += 1
-	jump 'loopday'
-end
+	if orgasm >= 32 and magik < 6:
+		set magik = 6 & set resnic += 1 & set rikudo += 1000 & pl $levelUpString
+	end
 
-if day > month_end[month]:
-	day -= month_end[month]
-	month += 1
-	jump 'loopday'
-end
-$month = $month_name[month]
+	if orgasm >= 64 and magik < 7:
+		set magik = 7 & set glaraz += 1 & set rikudo += 1000 & pl $levelUpString
+	end
 
-:loopweek
-if week > 7:
-	set week -= 7
-	set husbandrink = 0
-	if military = 1: set military = 0
-	jump 'loopweek'
-end
-$week = $week_name[week]
+	if orgasm >= 100 and magik < 8:
+		set magik = 8 & set rikudo += 1000 & pl $levelUpString
+	end
 
-!Выплаты
-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>'
+	if orgasm >= 200 and magik < 9:
+		set magik = 9 & set rikudo += 1000 & pl $levelUpString
 	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>'
+	if orgasm >= 300 and magik < 10:
+		set magik = 10 & set rikudo += 2000 & pl $levelUpString
 	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>'
+	if orgasm >= 400 and magik < 11:
+		set magik = 11 & set rikudo += 4000 & pl $levelUpString
 	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>'
+	if orgasm >= 500 and magik < 12:
+		set magik = 12 & set rikudo += 4000 & pl $levelUpString
 	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>'
+	if orgasm >= 600 and magik < 13:
+		set magik = 13 & set rikudo += 4000 & pl $levelUpString
 	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>'
+	if orgasm >= 700 and magik < 14:
+		set magik = 14 & set rikudo += 4000 & pl $levelUpString
 	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>'
+	if orgasm >= 800 and magik < 15:
+		set magik = 15 & set rikudo += 8000 & pl $levelUpString
 	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
+	if orgasm >= 900 and magik < 16:
+		set magik = 16 & set rikudo += 8000 & pl $levelUpString
 	end
 
-	if husband > 0 and paydayHusb = 0:
-	paydayHusb = 1
-		if husbFin = 0: huspay = 30000
-		if husbFin = 1: huspay = 60000
-		if husbFin = 2: huspay = 90000
-		karta += huspay
-		'<B><font color = green>Your husband has sent you <<huspay>> rubles to your bank account.</font></B>'
+	if orgasm >= 1000 and magik < 17:
+		set magik = 17 & set rikudo += 8000 & pl $levelUpString
 	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>'
-	if housr = 1 and haday = 0 and ArendHouseSL = 0: set haday = 1 & set karta -= 3000 & '<B><font color = red>You paid 3000 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 karta -= elektro
+	if orgasm >= 1100 and magik < 18:
+		set magik = 18 & set rikudo += 8000 & pl $levelUpString
+	end
 
-		'<B><font color = red>You paid <<elektro>> for electricity.</font></B>'
+	if orgasm >= 1200 and magik < 19:
+		set magik = 19 & set rikudo += 8000 & pl $levelUpString
+	end
 
-		set elektro = 0
+	if orgasm >= 1300 and magik < 20:
+		set magik = 20 & set rikudo += 16000 & pl $levelUpString
 	end
 
-	if housr = 1 and kabel > 0 and kabelday = 0:
-		set kabelday = 1
-		set karta -= 300
-		'<B><font color = red>You have paid 300 rubles for cable TV.</font></B>'
+	if orgasm >= 1400 and magik < 20:
+		set magik = 21 & set rikudo += 21000 & pl $levelUpString
 	end
-else
-	if interestPay = 1: interestPay = 0
-	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['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>'
+if exhibi >= 4:
+	pl '<B>You opened a new outfit ready</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>'
+
+if SUB >= DOM and DOM > 0:
+	set SUB -= DOM & set DOM = 0
 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>'
+
+if DOM >= SUB and SUB > 0:
+	set DOM -= SUB & set SUB = 0
 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
-}
 
-if kid > 0:
-	set kI = 1
-	:kidBirthday
-	if year > yearkid[kI] and markyear[kI]!year:
-		if monthkid[kI] = month and daykid[kI] = day:
-			markyear[kI] = year
-			kidage[kI] += 1
-		end
-	end
-	set kI += 1
-	if kI <= numkid:
-		jump 'kidBirthday'
-	end
+if horny < 0:
+	set horny = 0
 end
 
-if numkids > 0:
-	i = 0
-	:agethekids
-	if (kidbornyear2[i] + kidage2[i] + 1) < year: kidage2[i] += 1
-	if (kidbornyear2[i] + kidage2[i]) < year:
-		if kidbornmonth2[i] < month: kidage2[i] += 1
-		if kidbornmonth2[i] = month and kidbornday2[i] <= day: kidage2[i] += 1
-	end
-	i += 1
-	if i < numkids: jump 'agethekids'
+if health > vital * 10 + stren * 5:
+	set health = vital * 10 + stren * 5
 end
 
-if Mud >= totminut:
-	manna = mannamax
-	$mud = 'You feel buoyed.'
-else
-	$mud = ''
+if willpower > intel * 5 + will * 5:
+	set willpower = intel * 5 + will * 5
 end
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!КОНЕЦ ВРЕМЕНИ
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-subage = 0
-:metakasubage
-subage += 10
-if subage + 10 < age:
-	JUMP 'metakasubage'
-else
-	subage = age - subage
+if manna > (intel * magik) + magik * 100 + vital * 10 + rikudo:
+	set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
 end
 
-if subage = 0 or subage >= 5:
-	$letgoda = 'years'
-elseif subage = 1:
-	$letgoda = 'year'
-else
-	$letgoda = 'year'
-end
+set mannamax = (intel * magik) + magik * 100 + vital * 10 + rikudo
+!set musle = strenbuf + vitalbuf
 
-subagevne = 0
-:metakasubagevne
-subagevne += 10
-if subagevne + 10 < vidage:
-	JUMP 'metakasubagevne'
-else
-	subagevne = vidage - subagevne
+if vidageday <= 0:
+	set vidageday = 360
+	set vidage += 1
 end
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-if subagevne ! 1:
-	$letgoda2 = 'years'
-else
-	$letgoda2 = 'year'
-end
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!TIME
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!ЭНЕРГИЯ
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-if son < 0:
-	set son = 0
-	set manna -= 5
+if nminut ! minut:
+	!totminut total played time
+	totminut += minut
+	nminut = minut
 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
+if vgape > 0:
+	if vgape = 3:
+		if manna > (mannamax / 4):
+			manna = mannamax / 4
+		end
 	end
 
-	if fat = 0 and stren + vital <= 0:
-		set over = 3
-		gt 'gameover'
-		exit
+	if vgape = 2:
+		if manna > (mannamax / 2):
+			manna = mannamax / 2
+		end
 	end
+end
 
-	if fat > 0:
-		set fat -= 1
-		set energy += 2
+if agape > 0:
+	if agape = 3:
+		if manna > (mannamax / 6):
+			manna = mannamax / 6
+		end
 	end
-end
 
-if water < 0:
-	set water = 1
-	set health -= 5
-	set willpower -= 1
+	if agape = 2:
+		if manna > (mannamax / 3):
+			manna = mannamax / 3
+		end
+	end
 end
 
-if manna <= 0:
-	set manna = 1
-	set health -= 5
-	set willpower -= 5
-	!set fat += 1
-end
+if vgape > 0:
+	if vgapetime + 1500 <= totminut:
+		if vgape = 1:
+			vgape = 0
+		end
 
-if health < 0:
-	set over = 1
-	gt 'gameover'
-	exit
+		if vgape = 2:
+			vgape = 1 & vgapetime = totminut
+		end
+
+		if vgape = 3:
+			vgape = 2 & vgapetime = totminut
+		end
+	end
 end
 
-if willpower < 0 and StoryLine = 0:
-	set over = 2
-	gt 'gameover'
-	exit
+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
 
-if saloonce = 0 and opPRE = 0:
-	set saloonce = 1
-	set salo = fat
-	set strenbuf = stren
-	set vitalbuf = vital
-	set agilbuf = agil
+:loopsec
+if sec >= 60:
+	minut+= 1
+	sec -= 60
+	jump 'loopsec'
 end
 
-gs 'body'
+:loopmin
+if minut >= 60:
+	if CompCheckedResponses = 1:
+		CompCheckedResponses = 0
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-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 obkvsdam['Street'] > 0:
+			set obkvsdam['Street'] = rand(2, 5)
+		end
 
-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 obkvsdam['Down'] > 0:
+			set obkvsdam['Down'] = rand(2, 5)
+		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>'
-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 obkvsdam['Nord'] > 0:
+			set obkvsdam['Nord'] = rand(2, 5)
+		end
+	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>'
-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>'
+	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 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 volleyboll > 0:
+				volleyboll -= 1
+			end
 
-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 alko >= 6:
+				if stren > 10:
+					stren -= 1 & salo += 3
+				end
 
-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>'
+				if vital > 10:
+					vital -= 1 & salo += 3
+				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 intel > 10:
+					intel -= 1
+				end
+			end
+		end
 
-!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>'
+		alko -= 1
+	end
 
-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
+	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+	!!!!!!!!!!!!!!!!Avtoboy
+	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+	if hour >= 8 and hour <= 23 and NPCnum > 10:
+		:markturnirotbort
+		xf = 0
+		:markturnirotbortt
+		xf += 1
+		turnirFighter[xf] = rand(2, NPCnum)
 
-if hour >= 8 and hour < 16 and week < 6 and StoryLine > 0 and SchoolAtestat = 0 and kanikuli = 0 and schoolProgulDay ! day:
-	!прогул школы
-	schoolprogul += 1
-	schoolProgulDay = day
-end
+		if xf < 2:
+			jump'markturnirotbortt'
+		end
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!НАЧАЛО ОПИСАНИЯ
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+		if turnirFighter[1] = turnirFighter[2]:
+			jump'markturnirotbort'
+		end
 
-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>>'
+		a = turnirFighter[1]
+		i = turnirFighter[2]
+		NoView = 1
+
+		gs 'Autofight'
 	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>>'
+
+	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+	if shame > 0:
+		shame -= 1 & manna -= 5
 	end
-end
 
-pl '<b><<money>></b> rubles in your wallet.'
-if karta > 0: pl '<b><<karta>></b> rubles in your bank account.'
-if stolmoney > 0: pl '<b><<stolmoney>></b> rubles in the table in your hall.'
+	if smoker >= 20:
+		smokerNeed += 1
+	end
 
-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>>'
+	if smokerNeed > 10 and InSleep = 0:
+		manna -= manna * 10/100
+	end
 
-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>'
-if horny >= 50 and horny < 90: pl '<font color=#DB7093>You have trouble focusing at times, as your mind drifts to sex.</font>'
-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>'
-	if horny >= 50 and horny < 90: pl '<font color=#DB7093>You have trouble focusing at times, as your mind drifts to sex.</font>'
-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>'
-	if horny >= 50 and horny < 90: pl '<font color=#DB7093>You have trouble focusing at times, as your mind drifts to sex.</font>'
-end
+	if smokerNeed > 300:
+		smokerNeed = 0 & smoker = 0
+	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>'
+	if StrongNarkota > 0:
+		StrongNarkota -= 1
+	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>'
+	if SLomka > 0:
+		SLomka += 1 & manna -= 500
+	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>'
+	if SLomka > 100 and StrongNarkota <= 0:
+		SLomka = 0 & SNarkTimes = 0
+	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>'
+	set LCWorkrand = rand(1, 6)
 
-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>'
+	if narkoman = 1 and narkday ! day:
+		set health -= 5
+		set willpower -= 5
+		set manna -= 10
+	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
+	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
 
-$strip_dress={
-	if stripdress=0:
-		stripdress=1
-		nude=1
-		odedosna=numdress
-		numdress=0
-		gs'stat'
-		'You remove your clothes.'
-		exit
+	if energy >= 25:
+		energy -= 5 & fat += 1
 	end
-	if stripdress=1:
-		stripdress=0
-		numdress=odedosna
-		nude=0
-		gs'stat'
-		'You get dressed.'
-		exit
+
+	if tanga = 1 and mosol > 0:
+		mosol -= 1
 	end
-}
 
+	if lipbalmstat > 0:
+		lipbalmstat -= 1
+	end
 
-nl
-if nude=1:stripdress=1
-if nude=0:stripdress=0
-if stripdress=0:$stripDress='Strip'
-if stripdress=1:$stripDress='Dress'
-pl'<a href="exec:dynamic $strip_dress"><B><<$stripDress>></B></a>'
+	if sickstage = 1:
+		sick += 1 & sicktimer += 1
+	end
 
+	if sickstage = 1 and sicktimer >= 80:
+		sicktimer = 0 & sickstage = 2
+	end
 
-$smoker = {
-	siga -= 1
-	smoker += 1
-	smokeHour = hour
-	smokeDay = day
-	smokeminut = minut + 5
-	smokerNeed = 0
-	manna += 100
-	wipo += 100
-	if energy < 20: energy += 3
-	gs 'stat'
-}
+	if sickstage = 2 and sick > 0:
+		sick -= 1
+	end
 
-if $mud ! '': pl '<font color = green><b><<$mud>></b></font>'
-if siga <= 0 and smoker >= 20: pl '<font color = red><b>You have run out of cigarettes.</b></font>'
-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 sickstage = 2 and sick <= 0:
+		sick = 0 & sickstage = 0
+	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>'
+	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 smokeHour = hour and smokeday = day and smokeminut >= minut: pl '<font color = green>You are smoking a cigarette</font>'
-if ReminderSystem = 1:
-	if tampon < ReminderNumber: pl '<font color = red>I should go buy some tampons</font>'
-	if stanok < ReminderNumber: pl '<font color = red>I should go buy some razors</font>'
-	if poroshok < ReminderNumber: pl '<font color = red>I should go buy some washing powder</font>'
-	if clrbelo < ReminderNumber: pl '<font color = red>I should go buy some clean underwear</font>'
-	if shampoo < ReminderNumber: pl '<font color = red>I should go buy some shampoo</font>'
-	if fairy < ReminderNumber: pl '<font color = red>I should go buy some dishwashing detergent</font>'
-	if (eda + edaD) < ReminderNumber: pl '<font color = red>I should go buy some food</font>'
+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 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>'
+if KatjaOTN > 0:
+	if KatjaHorny > 0:
+		KatjaHorny -= rand(1,3)
+	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>'
-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 = redYou 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 KatjaHorny < 0:
+		KatjaHorny = 0
+	end
+
+	if KatjaHorny >= 100:
+		KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
+	end
 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>'
+
+if volleysostav > 0:
+	trenerepa -= 1
 end
-if mosol >= 30 and mosol < 50: pl '<B><font color = red>Pisya flushed and itchy, it seems you are rubbed by clothing.</font></B>'
-if mosol >= 50: pl '<B><font color = red>Pisya hurts and each step is given through the pain, she Crimson and visible scuffs from walking without underwear.</font></B>'
-if analplugIN = 1: pl '<B><font color = red>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 birthday = day and birthmonth = month:
+	!Birthday
+	set age += 1
+	set vidage += 1
+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>'
-		if hour = 8: pl '<B><font color = red>You need to work on the market.</font></B>'
+if horny > hornyStat:
+	hornyStat = horny
+
+	if pirsA > 0:
+		horny += 1
+	end
+
+	if pirsB > 0:
+		horny+=1
+	end
+
+	if pirsC > 0:
+		horny += 1
 	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 pirsD > 0:
+		horny += 1
+	end
 
-if $meetloc = 'street': $meetlocation = 'residential'
-if $meetloc = 'down': $meetlocation = 'downtown'
-if $meetloc = 'Nord': $meetlocation = 'northern'
-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 pirsE > 0:
+		horny+=1
+	end
 
-if meetday < daystart and svidanieA = 1: bfA -= 10 & svidanieA = 0
-if StrongNarkota > 20: pl '<B><font color = red>You are stoned.</font></B>'
+	if pirsF > 0:
+		horny += 5
+	end
 
-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 pirsG > 0:
+		horny += 5
+	end
 
-gs 'din_bad'
+	if pirsN > 0:
+		horny += 1
+	end
+end
 
-if bag > 0:
-	pl '<a href="exec:dynamic $d_bag"><B>Handbag</B></a>'
+if horny < hornyStat:
+	hornyStat = horny
 end
 
-!обнуление проверок на замужество
-set proverka1 = 0
-set proverka2 = 0
-set proverka3 = 0
-set proverka4 = 0
-set proverka5 = 0
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!generation
 
-!!!!!!!!!!!!!!!!!!!!
+if NPCnum < 290:
+	NPCnow = NPCnum
+	NPCnum += rand(1, 3)
 
+	gs 'npc'
+end
 
+if NPCnum >= 290 and NPCnum < 300:
+	NPCnow = NPCnum
+	NPCnum += 1
 
---- stat ---------------------------------
+	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 ---------------------------------

locations/479_gadhouse

@@ -45,7 +45,6 @@ act 'Eat':
 		!set fat = fat + 1
 		'You gladly ate cooked food.'
 	end
---- gadhouse ---------------------------------
 
 	if water >= 20:
 		'Tea in you no longer climbs.'
@@ -82,4 +81,5 @@ if monthbabkapay ! month:
 	gs 'stat'
 
 	'Grandma gives you two thousand.'
-end
+end
+--- gadhouse ---------------------------------

locations/480_farmhomeride

@@ -1,4 +1,4 @@
-# famhomeride
+# farmhomeride
 hour = 20
 minut = 0
 
@@ -10,8 +10,7 @@ gs 'stat'
 
 'You got into the Volga River with his family and an hour reached the town.'
 
-
 act'Go home':
 	gt'korrPar'
 end
---- famhomeride ---------------------------------
+--- farmhomeride ---------------------------------

locations/482_dinSex2

@@ -0,0 +1,716 @@
+$d_vag_sex_dildo={
+	frost=0
+
+	if mesec > 0:
+		!periods, orgasm is not possible
+		set horny = 0
+		set manna = manna - 10
+		set willpower = willpower - 10
+		'You have monthly and while you tuck a <<dick>> inch dildo, vaginal blood flows slowly.'
+	end
+
+	if mesec <= 0 and vagina > 0:
+		!no monthly
+		!horny - excitement
+		!vagina - the elasticity of the vagina
+		!silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
+		!dick - penis Man
+		!orgazm - Total coefficient of pleasure
+		!0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
+
+		set smazka = horny / 10
+		set prinat = smazka + vagina
+
+		if dick >= prinat * 2:
+			!member of the critical features more years
+			set orgazm = 0
+		end
+
+		if dick < prinat*2 and dick > prinat:
+			!member more options gg
+			if horny >= 100:
+				set orgazm = 5
+			end
+
+			if horny >= 90 and horny < 100:
+				set orgazm = 4
+			end
+
+			if horny >= 80 and horny < 90:
+				set orgazm = 3
+			end
+
+			if horny >= 70 and horny < 80:
+				set orgazm = 2
+			end
+
+			if horny >= 60 and horny < 70:
+				set orgazm = 1
+			end
+
+			if horny < 60:
+				set orgazm = 0
+			end
+		end
+
+		if dick <= prinat and dick >= vagina:
+			!Member fewer opportunities gg
+			if horny >= 80:
+				set orgazm = 5
+			end
+
+			 if horny >= 60 and horny < 80:
+				set orgazm = 4
+			 end
+
+			 if horny >= 40 and horny < 60:
+				set orgazm = 3
+			 end
+
+			 if horny < 40:
+				set orgazm = 2
+			 end
+		end
+
+		if dick <= prinat and dick < vagina:
+			if horny >= 100:
+				set orgazm = 5
+			end
+		end
+
+		if horny >= 90 and horny < 100:
+			set orgazm = 4
+		end
+
+		if horny < 90:
+			set orgazm = 6
+		end
+
+		 if oragazm = 5:
+			preOrg += 1
+
+			if razeba < 4:
+				oragazm = 4
+			end
+
+			if razeba=4:
+				orgrand = rand(50, 300)
+
+				if orgrand > preOrg:
+					oragazm=4
+				end
+			end
+
+			if razeba >= 5:
+				orgrand = rand(0, 100)
+
+				if orgrand > preOrg:
+					oragazm=4
+				end
+			end
+		end
+
+		if orgazm = 0:
+			vgape = 3
+			vgapetime = totminut
+			set horny = 0
+			set manna -= 15
+			set willpower -= 15
+			'You groaned in pain when stuck into itself <<dick>> inch dildo, tears flowed from the eyes and between the legs feeling as if you drove a red-hot rod.'
+		end
+
+		if orgazm = 1:
+			if vgape < 2:
+				vgape=2
+			end
+
+			vgapetime = totminut
+			set horny -= 10
+			set manna -= 10
+			set willpower -= 10
+			'You bit her lip in pain when stuck into itself <<dick>> inch dildo, between the legs pain.'
+		end
+
+		if orgazm = 2:
+			if vgape < 1:
+				vgape=1
+			end
+
+			vgapetime = totminut
+			set horny -= 5
+			set manna -= 5
+			set willpower -= 5
+			'You flinched at the sudden pain when stuck into itself <<dick>> inch dildo, but the pain between her legs slowly calm down and become quite tolerable. Are you trying to be excited while moving <<dick>> inch dildo in your pussy, but you will not go out.'
+		end
+
+		if orgazm = 3:
+			!set horny = horny + 5
+			set manna += 5
+			set willpower += 5
+			'You flinched from feeling, your pussy stretched, when a thrust <<dick>> inch dildo. Between the legs becomes a little nice, when you fuck themselves with dildos.'
+		end
+
+		if orgazm = 4:
+			!set horny = horny + 10
+			set manna += 10
+			set willpower += 10
+			'You flinched from feeling, your pussy stretched, when a thrust <<dick>> inch dildo. Between the legs becomes a little nice, when you fuck themselves with dildos. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
+		end
+
+		if orgazm = 5:
+			set horny = 0
+			set manna += 15
+			set willpower += 15
+			set orgasm += 1
+			vaginalOrgasm += 1
+			'You startled by the pleasant sensation, when your pussy rastyagivatsya start taking a dildo. Between the legs becomes very warm and pleasant, when strong <<dick>> inch dildo moves in your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on dildo.'
+		end
+
+		if orgazm = 6:
+			set horny += 5
+			set manna += 5
+			set willpower += 5
+			'You feel like dildo penetrates your pussy. Between her legs nice, but much less Dildo your pussy and <<dick>> centimeters for you little. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of.'
+		end
+
+		if vagina <= dick:
+			set vagina += 1
+		end
+	end
+
+	if vagina = 0 and mesec <= 0:
+		set horny = 0
+		set manna -= 15
+		set willpower -= 15
+		set vagina += 1
+		'You bit her lip in pain and tears streamed from his eyes when <<dick>> inch dildo went in you, break your hymen. You cried out in pain and was taken out of themselves bloody dildo.'
+	end
+
+	if vagina < dick:
+		vagina += 1
+	end
+}
+
+$d_analsex_dildo={
+	frost=0
+
+	if analplugin = 1:
+		analpluginbonus = 10
+		analplugin=0
+		'You pulled out of your more narrow and tight ass plug,'
+	end
+
+	if dick >= anus:
+		set anus += 3
+	end
+
+	'You parted my buttocks began to massage the anus with your fingers, first one, then two.'
+
+	if lubri > 0:
+		lubri -= 1
+		lubonus+=rand(1, 5)
+		'You squeezed anal smaski in his hand and began to spread his ass. After that.'
+	end
+
+	if anus < 10:
+		'When your ass you entered three fingers involuntarily groaned in pain.'
+	end
+
+	if anus >= 10:
+		'Then you have entered yourself three fingers and began to stretch the anus.'
+	end
+
+	'You pulled his fingers out of his priests and placed a dildo to her the hole.'
+
+	if anus + 10 < dick:
+		'You screamed and bit his lip from a sharp pain when his <<dick>> inch dildo apart your ass you entered.'
+	end
+
+	if anus + 10 >= dick:
+		'You groaned feeling of fullness when it <<dick>> inch dildo apart your ass you entered.'
+	end
+
+	'You froze for a moment, giving his priest adapt to hang around in her dildo, and then began to drive them all the more insistent, stretching his anus.'
+
+	if anus + lubonus + 2 < dick:
+		if mop > 1:
+			set mop = 0
+		end
+
+		horny-=20
+		manna-=20
+
+		if agape < 3:
+			agape=3
+		end
+
+		agapetime = totminut
+		'Your ass pierced a sharp pain when you started moving in her ass <<dick>> inch dildo.'
+	end
+
+	if anus + lubonus + 2 >= dick:
+		horny += 10
+
+		if agape < 2 and lubonus = 0:
+			agape=2
+		end
+
+		agapetime=totminut
+		'You started moaning rhythmically in time with the movements <<dick>> centimeter dildo inside you. You feel like your anus is stretched when dildo moves inside the ass.'
+
+		if horny >= 100:
+			if anal >= 10 and orgasm > 0:
+				manna += 20
+
+				if agape < 1 and lubonus = 0:
+					agape = 1 & agapetime = totminut
+				end
+
+				'You get a little nice when dildo moves inside your ass and you moan with pleasure.'
+			end
+		end
+	end
+
+	lubonus = 0
+}
+
+$d_strapon_vag={
+	frost=0
+
+	if mesec > 0:
+		!periods, orgasm is not possible
+		set horny = 0
+		set manna -= 10
+		set willpower -= 10
+		'You have monthly and while yet <<$boy>> drives in your pussy <<dick>> cm strap, vaginal blood flows slowly.'
+	end
+
+	if mesec <= 0 and vagina > 0:
+		!no monthly
+		!horny - excitement
+		!vagina - the elasticity of the vagina
+		!silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
+		!dick - penis Man
+		!orgazm - Total coefficient of pleasure
+		!0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
+
+		set smazka = horny/10
+		set prinat = smazka + vagina
+
+		if dick >= prinat * 2:
+			!member of the critical features more years
+			set orgazm = 0
+		end
+
+		if dick < prinat * 2 and dick > prinat:
+			!member more options gg
+
+			if horny >= 100:
+				set orgazm = 5
+			end
+
+			if horny >= 90 and horny < 100:
+				set orgazm = 4
+			end
+
+			if horny >= 80 and horny < 90:
+				set orgazm = 3
+			end
+
+			if horny >= 70 and horny < 80:
+				set orgazm = 2
+			end
+
+			if horny >= 60 and horny < 70:
+				set orgazm = 1
+			end
+
+			if horny < 60:
+				set orgazm = 0
+			end
+		end
+
+		if dick <= prinat and dick >= vagina:
+			!Member fewer opportunities gg
+
+			if horny >= 80:
+				set orgazm = 5
+			end
+
+			if horny >= 60 and horny < 80:
+				set orgazm = 4
+			end
+
+			if horny >= 40 and horny < 60:
+				set orgazm = 3
+			end
+
+			if horny < 40:
+				set orgazm = 2
+			end
+		end
+
+		if dick <= prinat and dick < vagina:
+			if horny >= 100:
+				set orgazm = 5
+			end
+
+			if horny >= 90 and horny < 100:
+				set orgazm = 4
+			end
+
+			if horny < 90:
+				set orgazm = 6
+			end
+		end
+
+		if oragazm=5:
+			preOrg += 1
+
+			if razeba<4:
+				oragazm=4
+			end
+
+			if razeba=4:
+				orgrand = rand(50, 300)
+
+				if orgrand > preOrg:
+					oragazm=4
+				end
+			end
+
+			if razeba >= 5:
+				orgrand = rand(0, 100)
+
+				if orgrand > preOrg:
+					oragazm=4
+				end
+			end
+		end
+
+		if orgazm = 0:
+			vgape = 3
+			vgapetime = totminut
+			set horny = 0
+			set manna -= 15
+			set willpower -= 15
+			'You groaned in pain when <<$boy>> stuck in you <<dick>> cm strap, tears flowed from the eyes and between the legs feeling as if you drove a red-hot rod.'
+		end
+
+		if orgazm = 1:
+			if vgape < 2:
+				vgape=2
+			end
+
+			vgapetime = totminut
+			set horny -= 10
+			set manna -= 10
+			set willpower -= 10
+			'You bit her lip in pain when <<$boy>> stuck in you <<dick>> cm strap, between the legs pain.'
+		end
+
+		if orgazm = 2:
+			if vgape < 1:
+				vgape=1
+			end
+
+			vgapetime = totminut
+			set horny -= 5
+			set manna -= 5
+			set willpower -= 5
+			'You flinched at the sudden pain when <<$boy>> stuck in you <<dick>> cm strap, but the pain between her legs slowly calm down and become quite tolerable. Are you trying to be excited until <<$boy>> moves <<dick>> inch strap-on in your pussy, but you will not go out.'
+		end
+
+		if orgazm = 3:
+			!set horny += 5
+			set manna += 5
+			set willpower += 5
+			'You flinched from feeling, your pussy stretched, when <<$boy>> stuck in you <<dick>> cm strap. Between the legs becomes a little nice, when <<$boy>> you fucking threesome.'
+		end
+
+		if orgazm = 4:
+			!set horny = horny + 10
+			set manna = manna + 10
+			set willpower = willpower + 10
+			'You flinched from feeling, your pussy stretched, when <<$boy>> stuck in you <<dick>> cm strap. Between the legs becomes a little nice, when <<$boy>> fuck you using the strap. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
+		end
+
+		if orgazm = 5:
+			set horny = 0
+			set manna += 15
+			set willpower += 15
+			set orgasm += 1
+			vaginalOrgasm += 1
+			'You startled by the pleasant sensation, when your pussy rastyagivatsya start taking a strapon. Between the legs becomes very warm and pleasant, when strong <<dick>> inch strap moves in your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling descend on you and your entire body covered hot waves of orgasm, you involuntarily shout of pleasure writhing on dildo. '
+		end
+
+		if orgazm = 6:
+			set horny += 5
+			set manna += 5
+			set willpower += 5
+			'You feel like strap penetrates your pussy. Between her legs nice, but much less than the strap and your pussy <<dick>> centimeters for you little. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
+			end
+
+		if vagina <= dick:
+			set vagina += 1
+		end
+	end
+
+
+	if vagina = 0 and mesec <= 0:
+		set horny = 0
+		set manna -= 15
+		set willpower -= 15
+		set vagina += 1
+		'You bit her lip in pain and tears streamed from his eyes when <<dick>> inch strap came in you, break your hymen. You cried out in pain and <<$boy>> You took out a bloody strap.'
+	end
+
+	if vagina < dick:
+		vagina +=1
+	end
+}
+
+$d_strapon_anal={
+	frost=0
+
+	if analplugin=1:
+		analpluginbonus = 10
+		analplugin=0
+		'You pulled out of your more narrow and tight ass plug,'
+	end
+
+	if dick >= anus:
+		set anus += 3
+	end
+
+	'<<$boy>> apart your buttocks massaged anus fingers, first one, then two.'
+
+	if lubri > 0:
+		lubri -= 1
+		lubonus += RAND(1, 5)
+		'You squeezed anal smaski in his hand and began to spread his ass. after that <<$boy>> oiled strapon.'
+	end
+
+	if anus < 10:
+		'When your ass you entered three fingers involuntarily groaned in pain.'
+	end
+
+	if anus >= 10:
+		'then <<$boy>> introduced you to three fingers and began to stretch the anus.'
+	end
+
+	'<<$boy>> pulled his fingers out of your priests and put the strap to your the hole.'
+		if anus + 10 < dick:
+			'You screamed and bit his lip from a sharp pain when <<dick>> cm apart strap your ass you entered.'
+		end
+
+		if anus + 10 >= dick:
+			'You groaned when Fullness <<dick>> cm apart strap your ass you entered.'
+		end
+
+		'<<$boy>> paused for a moment, giving your ass adapt to hang around in her strapon, then began to drive them insistently, stretching your anus.'
+
+		if anus + lubonus + 2 < dick:
+			if mop > 1:
+				set mop = 0
+			end
+
+			horny -= 20
+			manna -= 20
+
+			if agape < 3:
+				agape = 3
+			end
+
+			agapetime = totminut
+			'Your ass pierced a sharp pain when <<$boy>> began to fuck your ass with the help of <<dick>> cm strap.'
+		end
+
+		if anus + lubonus + 2 >= dick:
+			horny += 10
+
+			if agape < 2 and lubonus = 0:
+				agape = 2
+			end
+
+			agapetime = totminut
+			'You started moaning rhythmically in time with the movements <<dick>> centimeter strap inside you. You feel like your anus is stretched when the strap is moving inside the ass.'
+
+			if horny >= 100:
+				if anal >= 10 and orgasm > 0:
+					manna += 20
+
+				if agape < 1 and lubonus = 0:
+					agape = 1 & agapetime = totminut
+				end
+
+				'You get a little nice when the strap is moving inside your ass and you moan with pleasure.'
+			end
+		end
+	end
+
+	lubonus = 0
+}
+
+$doublepenetration={
+	frost = 0
+	set smazka = horny / 10
+	set prinat = smazka + vagina
+
+	if dick > prinat:
+		!member more options gg
+
+		if vgape < 3:
+			vgape = 3
+		end
+
+		vgapetime = totminut
+		DPvag = 2
+	end
+
+	if dick <= prinat and dick >= vagina:
+		!Member fewer opportunities gg
+
+		if vgape = 2:
+			vgape = 3
+		end
+
+		if vgape < 2:
+			vgape=2
+		end
+
+		vgapetime = totminut
+		DPvag = 1
+	end
+
+	if dick < vagina:
+		if vgape = 2:
+			vgape = 3
+		end
+
+		if vgape = 1:
+			vgape = 2
+		end
+
+		if vgape < 1:
+			vgape = 1
+		end
+
+		vgapetime = totminut
+		DPvag = 0
+	end
+
+	if lubri > 0:
+		lubri -= 1
+		lubonus += RAND(1, 5)
+	end
+
+	if anus + lubonus + 5 < dick2:
+		if agape < 3:
+			agape = 3
+		end
+
+		agapetime = totminut
+		DPass = 2
+	end
+
+	if anus + lubonus < dick2 and anus + lubonus + 5 >= dick2:
+		if agape = 2:
+			agape = 3
+		end
+
+		if agape < 2:
+			agape = 2
+		end
+
+		agapetime = totminut
+		DPass = 1
+	end
+
+	if anus + lubonus >= dick2:
+		if agape = 2:
+			agape = 3
+		end
+
+		if agape = 1:
+			agape = 2
+		end
+
+		if agape < 1:
+			agape = 1
+		end
+
+		agapetime = totminut
+		DPass = 0
+	end
+
+	if mesec > 0:
+		!periods, orgasm is not possible
+		set horny = 0
+		set manna -= 10
+		set willpower -= 10
+		'Do you monthly and you do not hurt until nice and <<dick>> inch dick rams your vagina bleeding. At the same time you like your chustvuete <<$anustipe>> ass fucks the second term -long <<dick2>> centimeters.'
+	end
+
+	totPAIN = DPvag + DPass + (agape - 1) + (vgape - 1)
+
+	if totPAIN = 0:
+		'Feelings merge together when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. Abdomen burns pleasant light spreading heat throughout the body.'
+		bonusManna= (manna * 100) / mannamax
+		DPplus = (vaginalOrgasm * 10) + horny + bonusManna
+		DPminus = rand(250, 350)
+
+		if DPplus > DPminus:
+			vaginalOrgasm += 1
+			DPorgasm += 1
+			orgasm += 1
+			manna = mannamax
+			horny = 0
+			'Suddenly you covered orgasm and you do not remember myself moan and scream until your muscles are reduced frantically around two members of the inside of your body.'
+		end
+	end
+
+	if totPAIN = 1:
+		'Feelings merge together when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. hurt a little, but still very nice chustvovat all the free holes are filled by members.'
+	end
+
+	if totPAIN = 2:
+		horny /= 2
+		manna /= 2
+		'You chustvuete themselves so, as if that`s just about ready to burst from overflowing when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. Feeling very strange, in a tangle of mixed pain, pleasure and painful overcrowding.'
+	end
+
+	if totPAIN = 3:
+		manna /= 4
+		horny /= 4
+
+		if mop > 1:
+			set mop = 0
+		end
+
+		'You hurt and sometimes sharp bursts of pain makes you groan when you move inside two members in contact with each other through a thin stenochku share your vagina filled <<dick>> centimeter and a member of your <<$anustipe>> anus filled <<dick2>> centimeter member. You chustvuete itself ready to burst, your ass and pussy feels merged into one pretty painful lump. Your eyes are not arbitrarily veiled veil of tears.'
+	end
+
+	if totPAIN >= 4:
+		manna = 0
+		horny = 0
+		willpower = willpower / 2
+
+		if mop > 1:
+			set mop = 0
+		end
+
+		'You squeals and tears stream pouring out of your eyes from the terrible pain, your entire abdomen and the priest gives a sharp pain while you fuck <<$boy>> her vagina <<dick>> centimeter and a member of the <<$boy2>> almost tearing your <<$anustipe>> his anus <<dick2>> centimeter instrument.'
+	end
+
+	if vagina < dick:
+		vagina += 1
+	end
+
+	if anus < dick2:
+		anus += 1
+	end
+
+	!sex+=1
+	gs'stat'
+}

locations/483_npc

@@ -0,0 +1,149 @@
+i = NPCnow
+:markgenernpc
+i += 1
+!power and moral qualities
+
+slut[i] = 0
+
+musle[i] = RAND(25, 100)
+flex[i] = RAND(25, 80)
+stamina[i] = RAND(200, 300)
+wipo[i] = RAND(30, 60)
+!equipment
+Bteh[i] = RAND(0, 100)
+Uteh[i] = RAND(0, 100)
+Zteh[i] = RAND(0, 100)
+
+if i = 2:
+	musle[i] = 200
+	flex[i] = 100
+	stamina[i] = 300
+	wipo[i] = 100
+	!equipment
+	Bteh[i] += 200
+	Uteh[i] += 200
+	Zteh[i] += 200
+end
+
+if i = 10:
+	musle[i] += 50
+	wipo[i] += 30
+end
+
+if i = 15:
+	musle[i] += 30
+	flex[i] += 40
+	stamina[i] += 100
+	wipo[i] += 20
+	!equipment
+	Bteh[i] += 20
+	Uteh[i] += 20
+	Zteh[i] += 20
+end
+
+if i = 32:
+	musle[i] += 100
+	flex[i] += 100
+end
+
+if i = 36:
+	flex[i] += 100
+end
+
+if i = 51:
+	Bteh[i] += 100
+	Uteh[i] += 100
+	Zteh[i] += 100
+end
+
+if i = 52:
+	stamina[i] += 300
+	wipo[i] += 60
+end
+
+if i = 60:
+	musle[i] += 200
+	wipo[i] += 40
+end
+
+if i = 78:
+	flex[i] += 50
+	wipo[i] += 30
+end
+
+if i = 100:
+	musle[i] += 100
+	flex[i] += 100
+	stamina[i] += 200
+	wipo[i] += 30
+	!equipment
+	Bteh[i] += 100
+	Uteh[i] += 100
+	Zteh[i] += 100
+end
+
+if i = 107:
+	musle[i] += 10
+	flex[i] += 10
+	stamina[i] += 100
+	wipo[i] += 100
+end
+
+if i = 123:
+	flex[i] += 100
+	stamina[i] += 100
+	wipo[i] += 30
+end
+
+if i = 137:
+	musle[i] += 70
+	wipo[i] += 20
+end
+
+if i = 170:
+	musle[i] += 100
+	stamina[i] += 100
+	wipo[i] += 30
+end
+
+if i = 235:
+	Bteh[i] += 100
+	Uteh[i] += 100
+	Zteh[i] += 100
+end
+
+if i = 236:
+	flex[i] += 60
+	stamina[i] += 100
+	wipo[i] += 20
+end
+
+if i = 255:
+	musle[i] += 30
+	flex[i] += 30
+	stamina[i] += 100
+	wipo[i] += 60
+	!equipment
+	Bteh[i] += 400
+	Uteh[i] += 400
+	Zteh[i] += 400
+end
+
+if i = 265:
+	musle[i] += 100
+	flex[i] += 100
+	stamina[i] += 150
+	wipo[i] += 80
+	!equipment
+	Bteh[i] += 60
+	Uteh[i] += 60
+	Zteh[i] += 60
+end
+
+irand = i
+
+gs'namer'
+
+if i < NPCnum:
+	jump'markgenernpc'
+end

locations/484_namer

@@ -0,0 +1,1319 @@
+!irand=RAND(2, 100)
+
+if irand=2:
+	$nikname[i] = 'Sid Blekovich'
+end
+
+if irand=3:
+	$nikname[i] = 'The same'
+end
+
+if irand=4:
+	$nikname[i] = 'Shard of Happiness'
+end
+
+if irand=5:
+	$nikname[i] = 'prikolistka'
+end
+
+if irand=6:
+	$nikname[i] = 'damned_wretch'
+end
+
+if irand=7:
+	$nikname[i] = 'surprise'
+end
+
+if irand=8:
+	$nikname[i] = 'angel'
+end
+
+if irand=9:
+	$nikname[i] = 'diva'
+end
+
+if irand=10:
+	$nikname[i] = 'puzzle'
+end
+
+if irand=11:
+	$nikname[i] = 'rainbow'
+end
+
+if irand=12:
+	$nikname[i] = 'ocharovashka'
+end
+
+if irand=13:
+	$nikname[i] = 'Zaya'
+end
+
+if irand=14:
+	$nikname[i] = 'vredina'
+end
+
+if irand=15:
+	$nikname[i] = 'hooligan'
+end
+
+if irand=16:
+	$nikname[i] = 'Shady Layden'
+end
+
+if irand=17:
+	$nikname[i] = 'Lucy'
+end
+
+if irand=18:
+	$nikname[i] = 'shooting star'
+end
+
+if irand=19:
+	$nikname[i] = 'princess'
+end
+
+if irand=20:
+	$nikname[i] = 'summer'
+end
+
+if irand=21:
+	$nikname[i] = 'bunting'
+end
+
+if irand=22:
+	$nikname[i] = 'shocking'
+end
+
+if irand=23:
+	$nikname[i] = 'Saharok'
+end
+
+if irand=24:
+	$nikname[i] = 'Marmeladka'
+end
+
+if irand=25:
+	$nikname[i] = 'rogue'
+end
+
+if irand=26:
+	$nikname[i] = 'Kitty'
+end
+
+if irand=27:
+	$nikname[i] = 'chocolate'
+end
+
+if irand=28:
+	$nikname[i] = 'Knop'
+end
+
+if irand=29:
+	$nikname[i] = 'Barbie'
+end
+
+if irand=30:
+	$nikname[i] = 'spring'
+end
+
+if irand=31:
+	$nikname[i] = 'Bambi'
+end
+
+if irand=32:
+	$nikname[i] = 'tigress'
+end
+
+if irand=33:
+	$nikname[i] = 'dragonfly'
+end
+
+if irand=34:
+	$nikname[i] = 'Carmen'
+end
+
+if irand=35:
+	$nikname[i] = 'melody'
+end
+
+if irand=36:
+	$nikname[i] = 'black Mamba'
+end
+
+if irand=37:
+	$nikname[i] = 'second'
+end
+
+if irand=38:
+	$nikname[i] = 'dream'
+end
+
+if irand=39:
+	$nikname[i] = 'Indira'
+end
+
+if irand=40:
+	$nikname[i] = 'conflict'
+end
+
+if irand=41:
+	$nikname[i] = 'cat'
+end
+
+if irand=42:
+	$nikname[i] = 'bead'
+end
+
+if irand=43:
+	$nikname[i] = 'snowflake'
+end
+
+if irand=44:
+	$nikname[i] = 'Dejavu'
+end
+
+if irand=45:
+	$nikname[i] = 'SFA-Murka'
+end
+
+if irand=46:
+	$nikname[i] = 'wally'
+end
+
+if irand=47:
+	$nikname[i] = 'Amelie'
+end
+
+if irand=48:
+	$nikname[i] = 'fairy'
+end
+
+if irand=49:
+	$nikname[i] = 'moon'
+end
+
+if irand=50:
+	$nikname[i] = 'Nochka'
+end
+
+if irand=51:
+	$nikname[i] = 'rebel'
+end
+
+if irand=52:
+	$nikname[i] = 'zamorochka'
+end
+
+if irand=53:
+	$nikname[i] = 'Laffka'
+end
+
+if irand=54:
+	$nikname[i] = 'lady'
+end
+
+if irand=55:
+	$nikname[i] = 'Buttons'
+end
+
+if irand=56:
+	$nikname[i] = 'ice'
+end
+
+if irand=57:
+	$nikname[i] = 'imp'
+end
+
+if irand=58:
+	$nikname[i] = 'calypso'
+end
+
+if irand=59:
+	$nikname[i] = 'caprice'
+end
+
+if irand=60:
+	$nikname[i] = 'enema Karlovna'
+end
+
+if irand=61:
+	$nikname[i] = 'cobra'
+end
+
+if irand=62:
+	$nikname[i] = 'sweetie'
+end
+
+if irand=63:
+	$nikname[i] = 'Kysya'
+end
+
+if irand=64:
+	$nikname[i] = 'lagoon'
+end
+
+if irand=65:
+	$nikname[i] = 'Laletta'
+end
+
+if irand=66:
+	$nikname[i] = 'ocean'
+end
+
+if irand=67:
+	$nikname[i] = 'vamp'
+end
+
+if irand=68:
+	$nikname[i] = 'dark'
+end
+
+if irand=69:
+	$nikname[i] = 'legend'
+end
+
+if irand=70:
+	$nikname[i] = 'Lorelei'
+end
+
+if irand=71:
+	$nikname[i] = 'Foxy'
+end
+
+if irand=72:
+	$nikname[i] = 'young_lion'
+end
+
+if irand=73:
+	$nikname[i] = 'luxury'
+end
+
+if irand=74:
+	$nikname[i] = 'era'
+end
+
+if irand=75:
+	$nikname[i] = 'shrew'
+end
+
+if irand=76:
+	$nikname[i] = 'Brunnhilde'
+end
+
+if irand=77:
+	$nikname[i] = 'manyachka'
+end
+
+if irand=78:
+	$nikname[i] = 'Hella Gelot'
+end
+
+if irand=79:
+	$nikname[i] = 'Medea'
+end
+
+if irand=80:
+	$nikname[i] = 'Vega'
+end
+
+if irand=81:
+	$nikname[i] = 'Vivian Undo'
+end
+
+if irand=82:
+	$nikname[i] = 'Magari'
+end
+
+if irand=83:
+	$nikname[i] = 'Skyler'
+end
+
+if irand=84:
+	$nikname[i] = 'Frau Barracuda'
+end
+
+if irand=85:
+	$nikname[i] = 'Kakunov'
+end
+
+if irand=86:
+	$nikname[i] = 'Pandora`s box'
+end
+
+if irand=87:
+	$nikname[i] = 'The Black Widow'
+end
+
+if irand=88:
+	$nikname[i] = 'Yunibra'
+end
+
+if irand=89:
+	$nikname[i] = 'Fraulein Farbisianna'
+end
+
+if irand=90:
+	$nikname[i] = 'viper'
+end
+
+if irand=91:
+	$nikname[i] = 'sun'
+end
+
+if irand=92:
+	$nikname[i] = 'fox'
+end
+
+if irand=93:
+	$nikname[i] = 'nymph'
+end
+
+if irand=94:
+	$nikname[i] = 'steel'
+end
+
+if irand=95:
+	$nikname[i] = 'Fa la la'
+end
+
+if irand=96:
+	$nikname[i] = 'Daniel Ankaran'
+end
+
+if irand=97:
+	$nikname[i] = 'babe'
+end
+
+if irand=98:
+	$nikname[i] = 'bomb'
+end
+
+if irand=99:
+	$nikname[i] = 'viola'
+end
+
+if irand=100:
+	$nikname[i] = 'Poyson'
+end
+
+
+
+if irand=101:
+	$nikname[i] = 'Shiz'
+end
+
+if irand=102:
+	$nikname[i] = 'Kukaryamba'
+end
+
+if irand=103:
+	$nikname[i] = 'Tobacco'
+end
+
+if irand=104:
+	$nikname[i] = 'Kapitolka'
+end
+
+if irand=105:
+	$nikname[i] = 'heron'
+end
+
+if irand=106:
+	$nikname[i] = 'princess'
+end
+
+if irand=107:
+	$nikname[i] = 'domino'
+end
+
+if irand=108:
+	$nikname[i] = 'Tyapa'
+end
+
+if irand=109:
+	$nikname[i] = 'hedgehog'
+end
+
+if irand=110:
+	$nikname[i] = 'thorn'
+end
+
+if irand=111:
+	$nikname[i] = 'nut'
+end
+
+if irand=112:
+	$nikname[i] = 'Zara'
+end
+
+if irand=113:
+	$nikname[i] = 'Jussi'
+end
+
+if irand=114:
+	$nikname[i] = 'arrow'
+end
+
+if irand=115:
+	$nikname[i] = 'twilight'
+end
+
+if irand=116:
+	$nikname[i] = 'black beast'
+end
+
+if irand=117:
+	$nikname[i] = 'Vectra'
+end
+
+if irand=118:
+	$nikname[i] = 'Extreme'
+end
+
+if irand=119:
+	$nikname[i] = 'Crazy'
+end
+
+if irand=120:
+	$nikname[i] = 'mixer'
+end
+
+if irand=121:
+	$nikname[i] = 'Midnight'
+end
+
+if irand=122:
+	$nikname[i] = 'Tantsorsha'
+end
+
+if irand=123:
+	$nikname[i] = 'gymnast'
+end
+
+if irand=124:
+	$nikname[i] = 'Gerda'
+end
+
+if irand=125:
+	$nikname[i] = 'mini'
+end
+
+if irand=126:
+	$nikname[i] = 'Verona'
+end
+
+if irand=127:
+	$nikname[i] = 'Klepa'
+end
+
+if irand=128:
+	$nikname[i] = 'Wadjet'
+end
+
+if irand=129:
+	$nikname[i] = 'maya'
+end
+
+if irand=130:
+	$nikname[i] = 'Selene'
+end
+
+if irand=131:
+	$nikname[i] = 'Rhea'
+end
+
+if irand=132:
+	$nikname[i] = 'Nuth'
+end
+
+if irand=133:
+	$nikname[i] = 'Loy'
+end
+
+if irand=134:
+	$nikname[i] = 'ha ha'
+end
+
+if irand=135:
+	$nikname[i] = 'breeze'
+end
+
+if irand=136:
+	$nikname[i] = 'shadow'
+end
+
+if irand=137:
+	$nikname[i] = 'She_Wolf'
+end
+
+if irand=138:
+	$nikname[i] = 'muskrat'
+end
+
+if irand=139:
+	$nikname[i] = 'Catan'
+end
+
+if irand=140:
+	$nikname[i] = 'avalanche'
+end
+
+if irand=141:
+	$nikname[i] = 'Chernosnezhka'
+end
+
+if irand=142:
+	$nikname[i] = 'ballerina'
+end
+
+if irand=143:
+	$nikname[i] = 'Wild Cat'
+end
+
+if irand=144:
+	$nikname[i] = 'el terrible of'
+end
+
+if irand=145:
+	$nikname[i] = 'infanta'
+end
+
+if irand=146:
+	$nikname[i] = 'Lissa Be-spendthrift'
+end
+
+if irand=147:
+	$nikname[i] = 'Gagalu'
+end
+
+if irand=148:
+	$nikname[i] = 'Moonshine_Township'
+end
+
+if irand=149:
+	$nikname[i] = 'Gingemma'
+end
+
+if irand=150:
+	$nikname[i] = 'Belfeba'
+end
+
+if irand=151:
+	$nikname[i] = 'Karkalyga'
+end
+
+if irand=152:
+	$nikname[i] = 'Shayzi'
+end
+
+if irand=153:
+	$nikname[i] = 'Pledovka'
+end
+
+if irand=154:
+	$nikname[i] = 'ruler'
+end
+
+if irand=155:
+	$nikname[i] = 'fuzz'
+end
+
+if irand=156:
+	$nikname[i] = 'harpy'
+end
+
+if irand=157:
+	$nikname[i] = 'Chuchundra'
+end
+
+if irand=158:
+	$nikname[i] = 'spider'
+end
+
+if irand=159:
+	$nikname[i] = 'baggage'
+end
+
+if irand=160:
+	$nikname[i] = 'Dvuhstvolka'
+end
+
+if irand=161:
+	$nikname[i] = 'tomboy'
+end
+
+if irand=162:
+	$nikname[i] = 'taiga'
+end
+
+if irand=163:
+	$nikname[i] = 'Mistress Belladonna'
+end
+
+if irand=164:
+	$nikname[i] = 'Asia'
+end
+
+if irand=165:
+	$nikname[i] = 'Split Sky'
+end
+
+if irand=166:
+	$nikname[i] = 'JUST Mi'
+end
+
+if irand=167:
+	$nikname[i] = 'Miss Bainbridge'
+end
+
+if irand=168:
+	$nikname[i] = 'jazz'
+end
+
+if irand=169:
+	$nikname[i] = 'Dilishes'
+end
+
+if irand=170:
+	$nikname[i] = 'big Momma'
+end
+
+if irand=171:
+	$nikname[i] = 'Defiance'
+end
+
+if irand=172:
+	$nikname[i] = 'Iron Blonde'
+end
+
+if irand=173:
+	$nikname[i] = 'geisha'
+end
+
+if irand=174:
+	$nikname[i] = 'lily_of_the_valley'
+end
+
+if irand=175:
+	$nikname[i] = 'Vortex'
+end
+
+if irand=176:
+	$nikname[i] = 'Cruella DeVill'
+end
+
+if irand=177:
+	$nikname[i] = 'cyclist'
+end
+
+if irand=178:
+	$nikname[i] = 'Ragnarok'
+end
+
+if irand=179:
+	$nikname[i] = 'lady Dragon'
+end
+
+if irand=180:
+	$nikname[i] = 'Flora'
+end
+
+if irand=181:
+	$nikname[i] = 'boorish'
+end
+
+if irand=182:
+	$nikname[i] = 'chaos'
+end
+
+if irand=183:
+	$nikname[i] = 'lamp'
+end
+
+if irand=184:
+	$nikname[i] = 'predator'
+end
+
+if irand=185:
+	$nikname[i] = 'The April moon'
+end
+
+if irand=186:
+	$nikname[i] = 'black Star'
+end
+
+if irand=187:
+	$nikname[i] = 'shrapnel'
+end
+
+if irand=188:
+	$nikname[i] = 'euphoria'
+end
+
+if irand=189:
+	$nikname[i] = 'Electra'
+end
+
+if irand=190:
+	$nikname[i] = 'ogress'
+end
+
+if irand=191:
+	$nikname[i] = 'Nutty'
+end
+
+if irand=192:
+	$nikname[i] = 'fantasy'
+end
+
+if irand=193:
+	$nikname[i] = 'short_story'
+end
+
+if irand=194:
+	$nikname[i] = 'Snow'
+end
+
+if irand=195:
+	$nikname[i] = 'Sinister'
+end
+
+if irand=196:
+	$nikname[i] = 'crumb'
+end
+
+if irand=197:
+	$nikname[i] = 'melons'
+end
+
+if irand=198:
+	$nikname[i] = 'Lolita'
+end
+
+if irand=199:
+	$nikname[i] = 'wagtail'
+end
+
+if irand=200:
+	$nikname[i] = 'Fairy_Tale'
+end
+
+if irand=201:
+	$nikname[i] = 'branch'
+end
+
+if irand=202:
+	$nikname[i] = 'heart of the Ocean'
+end
+
+if irand=203:
+	$nikname[i] = 'fallen Angel'
+end
+
+if irand=204:
+	$nikname[i] = 'Medvedka'
+end
+
+if irand=205:
+	$nikname[i] = 'explosion'
+end
+
+if irand=206:
+	$nikname[i] = 'Whack'
+end
+
+if irand=207:
+	$nikname[i] = 'sinner'
+end
+
+if irand=208:
+	$nikname[i] = 'keeper'
+end
+
+if irand=209:
+	$nikname[i] = 'mistress of Death'
+end
+
+if irand=210:
+	$nikname[i] = 'pathos'
+end
+
+if irand=211:
+	$nikname[i] = 'Ston Falls'
+end
+
+if irand=212:
+	$nikname[i] = 'Lost'
+end
+
+if irand=213:
+	$nikname[i] = 'mustard'
+end
+
+if irand=214:
+	$nikname[i] = 'hysterics'
+end
+
+if irand=215:
+	$nikname[i] = 'Lenore'
+end
+
+if irand=216:
+	$nikname[i] = 'Tumanik'
+end
+
+if irand=217:
+	$nikname[i] = 'Grand lady'
+end
+
+if irand=218:
+	$nikname[i] = 'Fanny Hill'
+end
+
+if irand=219:
+	$nikname[i] = 'Nosolomka'
+end
+
+if irand=220:
+	$nikname[i] = 'Basta'
+end
+
+if irand=221:
+	$nikname[i] = 'milk'
+end
+
+if irand=222:
+	$nikname[i] = 'granny'
+end
+
+if irand=223:
+	$nikname[i] = 'The old lady Flo'
+end
+
+if irand=224:
+	$nikname[i] = 'magpie'
+end
+
+if irand=225:
+	$nikname[i] = 'icicle'
+end
+
+if irand=226:
+	$nikname[i] = 'meridian'
+end
+
+if irand=227:
+	$nikname[i] = 'module'
+end
+
+if irand=228:
+	$nikname[i] = 'Strekotusha'
+end
+
+if irand=229:
+	$nikname[i] = 'Azazel'
+end
+
+if irand=230:
+	$nikname[i] = 'Gabriella'
+end
+
+if irand=231:
+	$nikname[i] = 'tiara'
+end
+
+if irand=232:
+	$nikname[i] = 'huntsman'
+end
+
+if irand=233:
+	$nikname[i] = 'dream'
+end
+
+if irand=234:
+	$nikname[i] = 'supernova'
+end
+
+if irand=235:
+	$nikname[i] = 'Karnedzh'
+end
+
+if irand=236:
+	$nikname[i] = 'blackout'
+end
+
+if irand=237:
+	$nikname[i] = 'schoolgirl'
+end
+
+if irand=238:
+	$nikname[i] = 'Kasia'
+end
+
+if irand=239:
+	$nikname[i] = 'Caprice Night'
+end
+
+if irand=240:
+	$nikname[i] = 'Tomboy'
+end
+
+if irand=241:
+	$nikname[i] = 'Wild Horse'
+end
+
+if irand=242:
+	$nikname[i] = 'sweetheart'
+end
+
+if irand=243:
+	$nikname[i] = 'splinter'
+end
+
+if irand=244:
+	$nikname[i] = 'log'
+end
+
+if irand=245:
+	$nikname[i] = 'gymnast'
+end
+
+if irand=246:
+	$nikname[i] = 'Zhep Ebrilo'
+end
+
+if irand=247:
+	$nikname[i] = 'Hearts Spades'
+end
+
+if irand=248:
+	$nikname[i] = 'Heartbreakers'
+end
+
+if irand=249:
+	$nikname[i] = 'Roxy Devine'
+end
+
+if irand=250:
+	$nikname[i] = 'The worst'
+end
+
+if irand=251:
+	$nikname[i] = 'arrow'
+end
+
+if irand=252:
+	$nikname[i] = 'bully'
+end
+
+if irand=253:
+	$nikname[i] = 'emerald'
+end
+
+if irand=254:
+	$nikname[i] = 'Rosalind'
+end
+
+if irand=255:
+	$nikname[i] = 'Bounty hunter'
+end
+
+if irand=256:
+	$nikname[i] = 'The coolest'
+end
+
+if irand=257:
+	$nikname[i] = 'doublet'
+end
+
+if irand=258:
+	$nikname[i] = 'secretary Lulu'
+end
+
+if irand=259:
+	$nikname[i] = 'officer Sandy'
+end
+
+if irand=260:
+	$nikname[i] = 'water dancer'
+end
+
+if irand=261:
+	$nikname[i] = 'chess_player'
+end
+
+if irand=262:
+	$nikname[i] = 'Sportwoman'
+end
+
+if irand=263:
+	$nikname[i] = 'Miss January'
+end
+
+if irand=264:
+	$nikname[i] = 'Beretta'
+end
+
+if irand=265:
+	$nikname[i] = 'Preacher`s daughter'
+end
+
+if irand=266:
+	$nikname[i] = 'la Guerra'
+end
+
+if irand=267:
+	$nikname[i] = 'amazing'
+end
+
+if irand=268:
+	$nikname[i] = 'Koalmayner'
+end
+
+if irand=269:
+	$nikname[i] = 'Brown Sugar'
+end
+
+if irand=270:
+	$nikname[i] = 'Stilhand'
+end
+
+if irand=271:
+	$nikname[i] = 'Honey Girl'
+end
+
+if irand=272:
+	$nikname[i] = 'islander'
+end
+
+if irand=273:
+	$nikname[i] = 'La Poeta del Ring'
+end
+
+if irand=274:
+	$nikname[i] = 'Mary Jo Sanders'
+end
+
+if irand=275:
+	$nikname[i] = 'pupa'
+end
+
+if irand=276:
+	$nikname[i] = 'bee Sting'
+end
+
+if irand=277:
+	$nikname[i] = 'lady daisy'
+end
+
+if irand=278:
+	$nikname[i] = 'Fury'
+end
+
+if irand=279:
+	$nikname[i] = 'A Matador'
+end
+
+if irand=280:
+	$nikname[i] = 'Mary Sue'
+end
+
+if irand=281:
+	$nikname[i] = 'la Maravilla'
+end
+
+if irand=282:
+	$nikname[i] = 'Sarah Rosenblum'
+end
+
+if irand=283:
+	$nikname[i] = 'Parazitka'
+end
+
+if irand=284:
+	$nikname[i] = 'heat'
+end
+
+if irand=285:
+	$nikname[i] = 'Meydzhik'
+end
+
+if irand=286:
+	$nikname[i] = 'stealth Bomber'
+end
+
+if irand=287:
+	$nikname[i] = 'phrase'
+end
+
+if irand=288:
+	$nikname[i] = 'Alcorn'
+end
+
+if irand=289:
+	$nikname[i] = 'Smoker'
+end
+
+if irand=290:
+	$nikname[i] = 'El Dynamite'
+end
+
+if irand=291:
+	$nikname[i] = 'Anna Pascal'
+end
+
+if irand=292:
+	$nikname[i] = 'Panama'
+end
+
+if irand=293:
+	$nikname[i] = 'bird Tracy'
+end
+
+if irand=294:
+	$nikname[i] = 'Knizhnitsa'
+end
+
+if irand=295:
+	$nikname[i] = 'bluestocking'
+end
+
+if irand=296:
+	$nikname[i] = 'canteen-keeper'
+end
+
+if irand=297:
+	$nikname[i] = 'Baroness Meredith DeKavalkal'
+end
+
+if irand=298:
+	$nikname[i] = 'warrior'
+end
+
+if irand=299:
+	$nikname[i] = 'killer'
+end
+
+if irand=300:
+	$nikname[i] = 'Capitol Hill'
+end
+
+if irand=301:
+	$nikname[i] = ''
+end
+
+if irand=302:
+	$nikname[i] = ''
+end
+
+if irand=303:
+	$nikname[i] = ''
+end
+
+if irand=304:
+	$nikname[i] = ''
+end
+
+if irand=305:
+	$nikname[i] = ''
+end
+
+if irand=306:
+	$nikname[i] = ''
+end
+
+if irand=307:
+	$nikname[i] = ''
+end
+
+if irand=308:
+	$nikname[i] = ''
+end
+
+if irand=309:
+	$nikname[i] = ''
+end
+
+if irand=310:
+	$nikname[i] = ''
+end
+
+if irand=311:
+	$nikname[i] = ''
+end
+
+if irand=312:
+	$nikname[i] = ''
+end
+
+if irand=313:
+	$nikname[i] = ''
+end
+
+if irand=314:
+	$nikname[i] = ''
+end
+
+if irand=315:
+	$nikname[i] = ''
+end
+
+if irand=316:
+	$nikname[i] = ''
+end
+
+if irand=317:
+	$nikname[i] = ''
+end
+
+if irand=318:
+	$nikname[i] = ''
+end
+
+if irand=319:
+	$nikname[i] = ''
+end
+
+if irand=320:
+	$nikname[i] = ''
+end
+
+if irand=321:
+	$nikname[i] = ''
+end
+
+if irand=322:
+	$nikname[i] = ''
+end
+
+if irand=323:
+	$nikname[i] = ''
+end
+
+if irand=324:
+	$nikname[i] = ''
+end
+
+if irand=325:
+	$nikname[i] = ''
+end
+
+if irand=326:
+	$nikname[i] = ''
+end
+
+if irand=327:
+	$nikname[i] = ''
+end
+
+if irand=328:
+	$nikname[i] = ''
+end
+
+if irand=329:
+	$nikname[i] = ''
+end
+
+if irand=330:
+	$nikname[i] = ''
+end

locations/485_generation

@@ -0,0 +1,28 @@
+y = 0
+:markmonthfightx
+y += 1
+:markturnirotbory
+x = 0
+:markturnirotborz
+x += 1
+turnirFighter[x] = RAND(2, NPCrost)
+
+if x < 2:
+	jump'markturnirotborz'
+end
+
+if turnirFighter[1] = turnirFighter[2]:
+	jump'markturnirotbory'
+end
+
+a = turnirFighter[1]
+i = turnirFighter[2]
+
+gs 'Autofight'
+
+turnirFighter[1] = 0
+turnirFighter[2] = 0
+
+if y < 20:
+	jump'markmonthfightx'
+end

locations/486_autofight

@@ -0,0 +1,167 @@
+if Formula = 0:
+	Formula=3
+end
+$endurdin = {
+	Ken= (musle / 100) * Kus / 100
+
+	if ken <= 0:
+		ken = 1
+	end
+
+	Kene = (musle[i] / 100) * Kuse / 100
+
+	if kene <= 0:
+		kene = 1
+	end
+
+	KoefUder = rand(Uder * 20 / 100, Uder)
+	KoefUderE = rand(Udere * 20 / 100, Udere)
+	KoefBros = rand(Brosok * 20 / 100, Brosok)
+	KoefBrosE = rand(Brosoke * 20 / 100, Brosoke)
+	KoefProt = rand(Zash * 20 / 100, Zash)
+	KoefProtE = rand(Zashe * 20 / 100, Zashe)
+}
+
+$uderdin = {
+	Kus = 5
+	Kuse = 10
+	dynamic $endurdin
+	endur -= ken
+	endurE -= kene
+	Aktiv = (strenw / 2) + agilw + rand(0, lustw) + KoefUder
+	Aktiv = Aktiv * endur / endurMax
+	Passiv = (((strenwE + (agilwE / 2)) * koefE) / 100) + rand (0, lustwE) + KoefProtE
+	Passiv = Passiv * endurE / endurMaxE
+}
+
+$uderdinE = {
+	Kus = 10
+	Kuse = 5
+	dynamic $endurdin
+	endur -= ken
+	endurE -= kene
+	Aktiv = (strenwE / 2) + agilwE + rand(0, lustwE) + KoefUdere
+	Aktiv = Aktiv * endurE / endurMaxE
+	Passiv = (((strenw + (agilw / 2)) * koef) / 100) + rand(0, lustw) + KoefProt
+	Passiv = Passiv * endur / endurMaxE
+}
+
+$brosdin = {
+	Kus = 10
+	Kuse = 10
+	dynamic $endurdin
+	endur -= ken
+	endurE -= kene
+	Aktiv = strenw + (agilw / 2) + rand(0, lustw) + KoefBros
+	Aktiv = Aktiv * endur / endurMax
+	Passiv = (((strenwE / 2) + agilwE) * koefE / 100) + rand(0, lustwE) + KoefProtE
+	Passiv = Passiv * endurE / endurMaxE
+}
+
+$brosdinE = {
+	Kus = 10
+	Kuse = 10
+	dynamic $endurdin
+	endur -= ken
+	endurE -= kene
+	Aktiv = strenwE + (agilwE / 2) + rand(0, lustwE) + KoefBrosE
+	Aktiv = Aktiv * endurE / endurMaxE
+	Passiv = (((strenw / 2) + agilw) * koef / 100) + rand(0, lustw) + KoefProt
+	Passiv = Passiv * endur / endurMax
+}
+
+!power, throws
+!flexibility, protection, 
+!speed, initiative
+!equipment, 
+!endurance
+a = 1
+point = 0
+pointE = 0
+$nameE = $nikname[i]
+$nameA = $nikname[a]
+strenw = musle[1] / 10
+strenwE = musle[i] / 10
+agilw = flex[1] / 10
+agilwE = flex[i] / 10
+lustMax = wipo[1]
+lustMaxE = wipo[i]
+lustw = lustMax
+lustwe = lustMaxe
+Brosok = Bteh[1] / 10
+BrosokE = Bteh[i] / 10
+Uder = Uteh[1] / 10
+Udere = Uteh[i] / 10
+Zash = Zteh[1] / 10
+Zashe = Zteh[i] / 10
+
+resultFight = 0
+endurMax = stamina[1] / 10
+endurMaxE = stamina[i] / 10
+endur = endurMax
+endurE = endurMaxE
+croonce = 0
+round = 1
+rMin = 8
+stoper = 0
+
+Ku = 0
+Kb = 0
+Kz = 0
+KuE =0
+KbE= 0
+KzE = 0
+!minus the endurance of fat
+!force depends on the endurance
+!speed depends on the endurance
+
+if Formula = 0:
+	Formula = 3
+end
+
+'<center><b>before round</b></center>'
+'<center><img src="images/pic/fight/bef.jpg" ></center>'
+'you and <<$nameE>> greeted each other.'
+'Referee required to start a fight on his hands.'
+!picture
+
+act 'Fight on his hands':
+	cls
+	!picture
+	'<center><img src="pic/fight/arm.jpg" ></center>'
+
+	if strenw > strenwE:
+		point += 1
+		lustw += 1
+		$text = 'Stand your opponent on all fours, and you catch him from behind.'
+		'You won the fight on his hands.'
+		crouch = 1
+	end
+
+	if strenw < strenwE:
+		pointE += 1
+		lustwE += 1
+		$text = 'You get up on all fours, and your opponent to catch him from behind.'
+		'You lost the battle on his hands.'
+		crouch = 0
+	end
+
+	if strenw = strenwE:
+		'Quest on hand ended in a draw. The referee tossed the coin, that would determine the winner.'
+		varrand = rand(0, 1)
+
+		if varrand = 0:
+			crouch = 1 & $text = 'Stand your opponent on all fours, and you catch him from behind.'
+		end
+
+		if varrand = 1:
+			crouch = 0 & $text = 'You get up on all fours, and your opponent to catch him from behind.'
+		end
+	end
+
+	'Refferi stopped you and commanded <<$text>>'
+
+	act 'Follow the instructions referees':
+		gt 'FightCrouch'
+	end
+end

locations/487_fightcrouch

@@ -0,0 +1,149 @@
+!rMin-=1
+
+gs 'fightStat'
+
+stoper = 0
+'<center><img src="pic/fight/cro.jpg" ></center>'
+
+if crouch = 1:
+	enrand = RAND(0, 1)
+
+	if enrand=0:
+		$text='<<$nameE>> prizhimetsya to the floor'
+	end
+
+	if enrand=1:
+		$text='<<$nameE>> trying to roll over on his back'
+	end
+
+	if enrand=2:
+		$text='<<$nameE>> tries to counter roll'
+	end
+
+	<<$nameE>> is on all fours in front of you.'
+
+	act 'produce cast':
+		cls
+		endur -= 2
+		'You are trying to make a throw. <<$text>>'
+
+		if enrand = 0:
+			pointE += 1
+			'<center><img src="pic/fight/cron.jpg" ></center>'
+			'Opponent managed pressed to the floor and you can not perform a roll.'
+
+			act '...':
+				gt'fightfw'
+			end
+		end
+
+		if enrand = 1:
+			point += 2
+			endurE -= 1
+			'<center><img src="pic/fight/crob.jpg" ></center>'
+			'You have intercepted an attempt to rival roll over and roll performed.' 
+
+			act '...':
+				gt'fight1'
+			end
+		end
+	end
+
+	act 'Make an attempt to hold':
+		cls
+		endur -= 1
+		'You are attempting to hold. <<$text>>'
+
+		if enrand = 0:
+			point += 1
+			'<center><img src="pic/fight/crou.jpg" ></center>'
+			'Opponent is pressed to the floor and you will easily manage to fix it.'
+
+			act '...':
+				gt'fight2'
+			end
+		end
+
+		if enrand = 1:
+			pointE += 1
+			endurE -= 1
+			'<center><img src="pic/fight/cronu.jpg" ></center>'
+			'Opponent flipped onto his back did not hold you to spend dvavaya.' 
+
+			act '...':
+				gt'fight3'
+			end
+		end
+
+		if enrand = 2:
+			''
+		end
+	end
+else
+     enrand = rand(0, 1)
+
+	if enrand = 0:
+		$text='<<$nameE>> tries to throw'
+	end
+
+	if enrand = 1:
+		$text='<<$nameE>> trying to make an attempt to hold'
+	end
+
+	'You are standing on all fours in front of rival.'
+
+	act 'Pressed to the floor':
+		cls
+		'You pressed to the floor. <<$text>>'
+
+		if enrand = 0:
+			point += 1
+			endurE -= 2
+			'<center><img src="pic/fight/cron.jpg" ></center>'
+			'Opponent has no time to attempt a shot.'
+
+			act '...':
+				gt'fightE'
+			end
+		end
+
+		if enrand = 1:
+			pointE += 1
+			endurE -= 1
+			'<center><img src="pic/fight/crou.jpg" ></center>'
+			'Opponent successfully a hold.' 
+
+			act '...':
+				gt'fightE1'
+			end
+		end
+	end
+
+	act 'Upside down on your back':
+		cls
+		endur -= 1
+		'You are trying to roll over on his back. <<$text>>'
+
+		if enrand = 0:
+			pointE += 2
+			endurE -= 2
+			'<center><img src="pic/fight/crob.jpg" ></center>'
+			'Opponent easily captures and holds you throw.'
+
+			act '...':
+				gt'fightE2'
+			end
+		end
+
+		if enrand = 1:
+			point += 1
+			endurE -= 1
+			'<center><img src="pic/fight/cronu.jpg" ></center>'
+			'You pull out of the seizure of the opponent and turn on the back.' 
+
+			act '...':
+				gt'fightE3'
+			end
+		end
+	end
+end

locations/488_fightfw

@@ -0,0 +1,118 @@
+$resultUderDin = {
+	if Aktiv > Passiv:
+		point += 1
+		Ku += 1
+		'<center><img src="pic/fight/fu.jpg" ></center>'
+		'You have successfully commit rival'
+
+		act '...':
+			stoper = 0 & gt 'fight2'
+		end
+	end
+
+	if Aktiv < Passiv:
+		pointE += 1
+		KzE += 1
+		'<center><img src="pic/fight/fu1.jpg" ></center>'
+		'You can not do anything about my opponent flips.'
+
+		act '...':
+			stoper = 0 & gt 'fight3'
+		end
+	end 
+
+	if Aktiv = Passiv:
+		'<center><img src="pic/fight/f.jpg" ></center>'
+		'You have two little turns and you are struggling without success.'
+
+		act '...':
+			gt $curloc
+		end
+	end 
+}
+
+$resultBrosDin = {
+	if Aktiv > Passiv:
+		point += 2
+		lustw += 1
+		Kb += 1
+		'<center><img src="pic/fight/fb.jpg" ></center>'
+		'You have successfully throw the opponent'
+
+		act '...':
+			stoper = 0 & gt 'fight1'
+		end
+	end 
+
+	if Aktiv < Passiv:
+		pointE += 1
+		KzE += 1
+		'<center><img src="pic/fight/fu1.jpg" ></center>'
+		'You can not do anything about my opponent turned over on his back.'
+
+		act '...':
+			stoper = 0 & gt 'fight3'
+		end
+	end 
+
+	if Aktiv = Passiv:
+		'<center><img src="pic/fight/f.jpg" ></center>'
+		'You have two little turns and you are struggling without success.'
+
+		act '...':
+			gt $curloc
+		end
+	end 
+}
+
+!you top
+!opponent lying on his stomach -10%
+koef = 100
+koefE = 90
+
+rMin -= 1
+stoper += 1
+
+gs 'fightStat'
+
+'<center><img src="pic/fight/f.jpg" ></center>'
+'<<$nameE>> lying on his stomach, while you sit on top of it. <<$nameE>> trying to wriggle out.'
+
+if endur <= 0 or lustw <= 0:
+	gt'SubLoss'
+end
+
+if endurE <= 0 or lustwE <= 0:
+	gt 'SubWin'
+end
+
+if stoper < 3:
+	if rMin > 0:
+		act 'Make an attempt to hold':
+			cls
+			dynamic $uderdin
+			dynamic $resultUderDin
+		end
+
+		act 'Make an attempt to throw':
+			cls
+			dynamic $brosdin
+			dynamic $resultBrosDin
+		end
+	else
+		'Refferi blows a whistle and throws you. End of round.'
+
+		act 'up':
+			gt'RoundEnd'
+		end
+	end
+end
+
+if stoper >= 3:
+	pointE += 1
+	'Refferi blows a whistle and throws you. Your time to attack happened. <<$nameE>> receives one point.'
+
+	act 'up':
+		gt 'RoundStop'
+	end
+end

locations/489_fight2

@@ -0,0 +1,74 @@
+$resultUderDin = {
+	endurE -= 2
+
+	if Aktiv >= Passiv:
+		point += 1
+		lustwE -= 1
+		Ku += 1
+		'<center><img src="pic/fight/f2u.jpg" ></center>'
+		'You have successfully hold rival'
+
+		act '...':
+			gt 'fight2'
+		end
+	end
+
+	if Aktiv < Passiv:
+		pointE += 1
+		KzE += 1
+		'<center><img src="pic/fight/f2u2.jpg" ></center>'
+		'You can not do anything about my opponent flips.'
+
+		act '...':
+			stoper = 0 & gt 'fight3'
+		end
+	end 
+}
+
+!you have committed opponent
+!you sit on top
+!opponent lying on his stomach under you -20%
+
+koef = 100
+koefE = 80
+lustwE -= 1
+rMin -= 1
+stoper += 1
+
+gs 'fightStat'
+
+'<center><img src="pic/fight/f2.jpg" ></center>'
+'<<$nameE>> lies beneath you . <<$nameE>> desperately trying to slip out of the bend of your capture.'
+
+if endur <= 0 or lustw <= 0:
+	gt'SubLoss'
+end
+
+if endurE <= 0 or lustwE <= 0:
+	gt'SubWin'
+end
+
+if stoper < 3:
+	if rMin > 0:
+		act 'hold_On':
+			cls
+			dynamic $uderdin
+			dynamic $resultUderDin
+		end
+	else
+		'Refferi blows a whistle and throws you. End of round.'
+
+		act 'up':
+			gt'RoundEnd'
+		end
+	end
+end
+
+if stoper >= 3:
+	point += 3
+	'Refferi blows a whistle and throws you. Your time to attack happened. For the successful holding you get immediately 3 points.'
+
+	act 'up':
+		gt'RoundStop'
+	end
+end

locations/490_fight3

@@ -0,0 +1,101 @@
+$resultUderDin = {
+	if Aktiv > Passiv:
+		point += 1
+		Ku += 1
+		'<center><img src="pic/fight/f3u.jpg" ></center>'
+		'You have successfully commit rival'
+
+		act '...':
+			stoper = 0 & gt 'fight2'
+		end
+	end
+
+	if Aktiv <= Passiv:
+		pointE += 1
+		KzE += 1
+		'<center><img src="pic/fight/f3u2.jpg" ></center>'
+		'You can not do anything about my opponent breaks lock.'
+
+		act '...':
+			gt 'RoundStop'
+		end
+	end
+}
+
+$resultBrosDin = {
+	if Aktiv > Passiv:
+		point += 2
+		lustw += 1
+		Kb += 1
+		'<center><img src="pic/fight/f3b.jpg" ></center>'
+		'You have successfully throw the opponent'
+
+		act '...':
+			stoper = 0 & gt 'fight1'
+		end
+	end
+
+	if Aktiv <= Passiv:
+		pointE + =1
+		KzE += 1
+		'<center><img src="pic/fight/f3u2.jpg" ></center>'
+		'You can not do anything about my opponent breaks lock.'
+
+		act '...':
+			gt 'RoundStop'
+		end
+	end
+}
+
+!you top
+!opponent bottom facing you
+
+koef = 100
+koefE = 100
+
+rMin -= 1
+stoper += 1
+
+gs 'fightStat'
+
+'<center><img src="pic/fight/f3.jpg" ></center>'
+'<<$nameE>> supine, while you sit on top of it. <<$nameE>> trying to throw you off the.'
+
+if endur <= 0 or lustw <= 0:
+	gt'SubLoss'
+end
+
+if endurE <= 0 or lustwE <= 0:
+	gt 'SubWin'
+end
+
+if stoper<3:
+	if rMin > 0:
+		act 'Make an attempt to hold':
+			cls
+			dynamic $uderdin
+			dynamic $resultUderDin
+		end
+
+		act 'Make an attempt to throw':
+			cls
+			dynamic $brosdin
+			dynamic $resultBrosDin
+		end
+	else
+		'Refferi blows a whistle and throws you. End of round.'
+
+		act 'up':
+			gt 'RoundEnd'
+		end
+	end
+end
+
+if stoper >= 3:
+	pointE += 1
+	'Refferi blows a whistle and throws you. Your time to attack happened. <<$nameE>> receives one point.'
+
+	act 'up':
+		gt'RoundStop'
+	end
+end

locations/491_roundstop

@@ -0,0 +1,27 @@
+gs 'fightStat'
+
+stoper = 0
+
+if crouch = 1 and croonce = 0:
+	crouch = 0 & croonce = 1
+end
+
+if crouch = 0 and croonce = 0:
+	crouch = 1 & croonce = 1
+end
+
+croonce = 0
+
+if crouch = 1:
+	$text='Stand your opponent on all fours, and you catch him from behind.'
+end
+
+if crouch = 0:
+	$text='You get up on all fours, and your opponent to catch him from behind.'
+end
+
+'The referee raises you with an opponent and commands. <<$text>>'
+
+act 'Follow the instructions referees':
+	gt 'FightCrouch'
+end

locations/492_fightstat

@@ -0,0 +1,78 @@
+if endur > endurMax * 75 / 100:
+	$endur = 'You are active and vigorous'
+end
+
+if endur > endurMax * 50 / 100 and endur <= endurMax * 75 / 100:
+	$endur = 'You are strongly sweating'
+end
+
+if endur > endurMax * 25 / 100 and endur <= endurMax * 50 / 100:
+	$endur = 'Are you tired and short of breath'
+end
+
+if endur <= endurMax * 25 / 100:
+	$endur = 'You just clueless on where you are very tired'
+end
+
+
+if endure > endurMaxe * 75 / 100:
+	$endure = '<<$nameE>> active and cheerful'
+end
+
+if endure > endurMaxe * 50 / 100 and endure <= endurMaxe * 75 / 100:
+	$endure = '<<$nameE>> much sweating'
+end
+
+if endure > endurMaxe * 25 / 100 and endure <= endurMaxe * 50 / 100:
+	$endure = '<<$nameE>> tired and pants'
+end
+
+if endure <= endurMaxe * 25 / 100:
+	$endure = '<<$nameE>> hardly worth from severe fatigue'
+end
+
+
+if lustw > lustMax * 75 / 100:
+	$lust = 'You are determined to show it to your opponent what`s what'
+end
+
+if lustw > lustMax * 50 / 100 and lustw <= lustMax * 75 / 100:
+	$lust = 'You`re a little puzzled by the tenacity rivals'
+end
+
+if lustw > lustMax * 25 / 100 and lustw <= lustMax * 50 / 100:
+	$lust = 'Are you afraid of her rival'
+end
+
+if lustw <= lustMax * 25 / 100:
+	$lust = 'You are in a very real terror and on the verge of panic'
+end
+
+
+if lustwe > lustMaxe * 75 / 100:
+	$luste = '<<$nameE>> bravely drills you with his unyielding gaze'
+end
+
+if lustwe > lustMaxe * 50 / 100 and lustwe <= lustMaxe * 75 / 100:
+	$luste = '<<$nameE>> looks a little surprised'
+end
+
+if lustwe > lustMaxe * 25 / 100 and lustwe <= lustMaxe * 50 / 100:
+	$luste = '<<$nameE>> looks frightened'
+end
+
+if lustwe <= lustMaxe * 25 / 100:
+	$luste = '<<$nameE>> looks bruised and finished here now screwy panic'
+end
+
+
+'<center><b>round <<round>> </b></center>'
+'<center><b>Left before the end of the round <<rMin>> minutes </b></center>'
+''
+'your record <<win[1]>> - <<loss[1]>> - <<draw[1]>> <<SubWin[1]>> / <<SubLoss[1]>> '
+'<<$nameE>> record <<win[i]>> - <<loss[i]>> - <<draw[i]>> <<SubWin[i]>> / <<SubLoss[i]>> '
+''
+'<<$endur>> . <<$lust>> .'
+'<<$endurE>> . <<$lustE>> .'
+'you scored <<point>> points'
+'<<$nameE>> scored <<pointE>> points'

locations/493_beforefw

@@ -0,0 +1,154 @@
+$endurdin={
+Ken=(musle/100)*Kus/100
+if ken<=0:ken=1
+Kene=(musle[i]/100)*Kuse/100
+if kene<=0:kene=1
+
+KoefUder=RAND(Uder*20/100,Uder)
+KoefUderE=RAND(Udere*20/100,Udere)
+KoefBros=RAND(Brosok*20/100,Brosok)
+KoefBrosE=RAND(Brosoke*20/100,Brosoke)
+KoefProt=RAND(Zash*20/100,Zash)
+KoefProtE=RAND(Zashe*20/100,Zashe)
+}
+
+$uderdin={
+Kus=5
+Kuse=10
+dynamic $endurdin
+endur-=ken
+endurE-=kene
+Aktiv=(strenw/2)+agilw+RAND(0,lustw)+KoefUder
+Aktiv=Aktiv*endur/endurMax
+Passiv=(((strenwE+(agilwE/2))*koefE)/100)+RAND(0,lustwE)+KoefProtE
+Passiv=Passiv*endurE/endurMaxE
+}
+$uderdinE={
+Kus=10
+Kuse=5
+dynamic $endurdin
+endur-=ken
+endurE-=kene
+Aktiv=(strenwE/2)+agilwE+RAND(0,lustwE)+KoefUdere
+Aktiv=Aktiv*endurE/endurMaxE
+Passiv=(((strenw+(agilw/2))*koef)/100)+RAND(0,lustw)+KoefProt
+Passiv=Passiv*endur/endurMaxE
+}
+$brosdin={
+Kus=10
+Kuse=10
+dynamic $endurdin
+endur-=ken
+endurE-=kene
+Aktiv=strenw+(agilw/2)+RAND(0,lustw)+KoefBros
+Aktiv=Aktiv*endur/endurMax
+Passiv=(((strenwE/2)+agilwE)*koefE/100)+RAND(0,lustwE)+KoefProtE
+Passiv=Passiv*endurE/endurMaxE
+}
+$brosdinE={
+Kus=10
+Kuse=10
+dynamic $endurdin
+endur-=ken
+endurE-=kene
+Aktiv=strenwE+(agilwE/2)+RAND(0,lustwE)+KoefBrosE
+Aktiv=Aktiv*endurE/endurMaxE
+Passiv=(((strenw/2)+agilw)*koef/100)+RAND(0,lustw)+KoefProt
+Passiv=Passiv*endur/endurMax
+}
+
+
+!power, throws
+!flexibility, protection, 
+!speed, initiative
+!equipment, 
+!endurance
+a=1
+point=0
+pointE=0
+$nameE=$nikname[i]
+$nameA=$nikname[a]
+strenw=musle[1]/10
+strenwE=musle[i]/10
+agilw=flex[1]/10
+agilwE=flex[i]/10
+lustMax=wipo[1]
+lustMaxE=wipo[i]
+lustw=lustMax
+lustwe=lustMaxe
+Brosok=Bteh[1]/10
+BrosokE=Bteh[i]/10
+Uder=Uteh[1]/10
+Udere=Uteh[i]/10
+Zash=Zteh[1]/10
+Zashe=Zteh[i]/10
+
+resultFight=0
+endurMax=stamina[1]/10
+endurMaxE=stamina[i]/10
+endur=endurMax
+endurE=endurMaxE
+croonce=0
+round=1
+rMin=8
+stoper = 0
+Ku = 0
+Kb = 0
+Kz = 0
+KuE = 0
+KbE = 0
+KzE = 0
+!minus the endurance of fat
+!force depends on the endurance
+!speed depends on the endurance
+
+if Formula = 0:
+	Formula = 3
+end
+
+'<center><b>before round</b></center>'
+'<center><img src="images/pic/fight/bef.jpg" ></center>'
+'you and <<$nameE>> greeted each other.'
+'Referee required to start a fight on his hands.'
+!picture
+
+act 'Fight on his hands':
+	cls
+	!picture
+	'<center><img src="images/pic/fight/arm.jpg" ></center>'
+
+	if strenw > strenwE:
+		point + =1
+		lustw + =1
+		$text = 'Stand your opponent on all fours, and you catch him from behind.'
+		'You won the fight on his hands.'
+		crouch = 1
+	end
+
+	if strenw < strenwE:
+		pointE += 1
+		lustwE += 1
+		$text = 'You get up on all fours, and your opponent to catch him from behind.'
+		'You lost the battle on his hands.'
+		crouch = 0
+	end
+
+	if strenw = strenwE:
+		'Quest on hand ended in a draw. The referee tossed the coin, that would determine the winner.'
+		varrand = rand(0, 1)
+	end
+
+	if varrand = 0:
+		crouch = 1 & $text = 'Stand your opponent on all fours, and you catch him from behind.'
+	end
+
+	if varrand = 1:
+		crouch = 0 & $text = 'You get up on all fours, and your opponent to catch him from behind.'
+	end
+
+	'Refferi stopped you and commanded <<$text>>'
+
+	act 'Follow the instructions referees':
+		gt 'FightCrouch'
+	end
+end

locations/494_fight1

@@ -0,0 +1,78 @@
+$resultUderDin = {
+	if Aktiv > Passiv:
+		point += 1
+		Ku += 1
+		'<center><img src="images/pic/fight/f1u.jpg" ></center>'
+		'You have successfully commit rival'
+
+		act '...':
+			stoper = 0 & gt 'fight2'
+		end
+	end
+
+	if Aktiv < Passiv:
+		pointE += 1
+		KzE += 1
+		'<center><img src="images/pic/fight/f1u1.jpg" ></center>'
+		'You can not do anything about my opponent flips.'
+
+		act '...':
+			stoper = 0 & gt 'fight3'
+		end
+	end
+
+	if Aktiv = Passiv:
+		'<center><img src="images/pic/fight/f1u2.jpg" ></center>'
+		'You have two little turns and you are struggling without success.'
+
+		act '...':
+			gt $curloc
+		end
+	end
+}
+
+!you top
+!opponent lies on his back after throwing -15%
+
+koef = 100
+koefE = 85
+rMin -= 1
+stoper += 1
+
+gs'fightStat'
+
+'<center><img src="images/pic/fight/f1.jpg" ></center>'
+'<<$nameE>> lying on his back after throwing a little confused, while you sit on top of it. <<$nameE>> trying to wriggle out.'
+
+if endur <= 0 or lustw <= 0:
+	gt'SubLoss'
+end
+
+if endurE <= 0 or lustwE <= 0:
+	gt'SubWin'
+end
+
+if stoper < 3:
+	if rMin > 0:
+		act 'Make an attempt to hold':
+			cls
+			dynamic $uderdin
+			dynamic $resultUderDin
+		end
+	else
+		'Refferi blows a whistle and throws you. End of round.'
+
+		act 'up':
+			gt'RoundEnd'
+		end
+	end
+end
+
+if stoper >= 3:
+	pointE += 1
+	'Refferi blows a whistle and throws you. Your time to attack happened. <<$nameE>> receives one point.'
+
+	act 'up':
+		gt 'RoundStop'
+	end
+end