فهرست منبع

All locations beginning with B updated to v1.1.3

- Location 'bar' is now location 'saloon'
- Updated qproj file to include the changes and to add the new locations
BMLoc1, BMLoc2 and BMLoc3
heromaster 10 سال پیش
والد
کامیت
638c0be652
56فایلهای تغییر یافته به همراه2474 افزوده شده و 2563 حذف شده
  1. 4 1
      GirlLife_Community (0.2.6).qproj
  2. 5 5
      locations/BDSM
  3. 8 8
      locations/BDman
  4. 208 328
      locations/BDsex
  5. 54 0
      locations/BMloc
  6. 6 0
      locations/BMloc1
  7. 6 0
      locations/BMloc2
  8. 200 284
      locations/BurgerTip
  9. 33 22
      locations/balkon
  10. 47 43
      locations/balkon2
  11. 12 12
      locations/bank
  12. 0 4
      locations/bar
  13. 67 67
      locations/barbershop
  14. 64 68
      locations/bass
  15. 90 100
      locations/bed
  16. 112 128
      locations/bed1
  17. 56 47
      locations/bed2
  18. 56 49
      locations/bedPar
  19. 99 116
      locations/bedr
  20. 19 20
      locations/bedrPar
  21. 4 4
      locations/bedrPar2
  22. 2 2
      locations/befKik
  23. 32 32
      locations/before
  24. 5 10
      locations/beforeFW
  25. 11 13
      locations/beg
  26. 88 112
      locations/beg1
  27. 0 3
      locations/begin
  28. 67 68
      locations/begin1
  29. 40 58
      locations/billiard
  30. 29 33
      locations/billsvid
  31. 2 2
      locations/blackjack
  32. 5 6
      locations/bldzh
  33. 37 73
      locations/blowPR
  34. 172 22
      locations/bobka
  35. 3 3
      locations/body
  36. 60 71
      locations/bordel
  37. 26 29
      locations/bordelv
  38. 45 62
      locations/bouling
  39. 7 9
      locations/boxing
  40. 77 77
      locations/boy
  41. 74 79
      locations/boyfrend
  42. 29 54
      locations/boylove
  43. 19 0
      locations/boymass
  44. 95 0
      locations/brosh
  45. 13 17
      locations/brosok
  46. 54 47
      locations/brother
  47. 1 1
      locations/budgetclothes
  48. 59 59
      locations/budilnik
  49. 34 36
      locations/buklinik
  50. 26 24
      locations/buklinik_event
  51. 92 116
      locations/burger
  52. 25 34
      locations/burgerBoss
  53. 31 48
      locations/burgerWork
  54. 33 33
      locations/butik
  55. 30 23
      locations/butoilet
  56. 1 1
      locations/hall

+ 4 - 1
GirlLife_Community (0.2.6).qproj

@@ -308,6 +308,9 @@
       <Location name="EvOtelMan"/>
       <Location name="EvgopBuh"/>
       <Location name="EvBoyBuh"/>
+	  <Location name="BMloc"/>
+      <Location name="BMloc1"/>
+      <Location name="BMloc2"/>
       <Location name="albinaEv"/>
       <Location name="kotovEv"/>
       <Location name="IgorEv"/>
@@ -666,7 +669,7 @@
     <Location name="authors2"/>
     <Location name="authors3"/>
     <Location name="amrul"/>
-    <Location name="bar"/>
+    <Location name="saloon"/>
     <Location name="bldzh"/>
     <Location name="inn"/>
     <Location name="igravt"/>

+ 5 - 5
locations/BDSM

@@ -2,10 +2,10 @@
 $metka = $ARGS[0]
 $loc = $CURLOC
 cla
-*clr
 clr
+*clr
 gs 'stat'
-'You came to the set where all was ready for filming a porn movie.'
+'You came to the where all was ready for filming a porn movie.'
 
 act 'Begin participating in the shooting':
 	cla
@@ -105,14 +105,14 @@ act 'Begin participating in the shooting':
 								'Boys took out their thick members of you and you readily vsali before them on their knees and opened his mouth lustfully awaiting sperm guys did not take long and soon the hot jet of sperm began to lash down your face and drip down his chin on his chest.'
 
 								act 'Get fee':
+									cla
+									clr
+									*clr
 									minut = minut + 480
 									film = film + 1
 									BDSMfilm = BDSMfilm + 1
 									money = money + vnesh * 500
 									actr = 0
-									cla
-									*clr
-									clr
 									gs 'stat'
 									'<center><img src="images/studia/dvd-disс.jpg"></center>'
 									'You spent 9 hours on filming'

+ 8 - 8
locations/BDman

@@ -1,6 +1,6 @@
 # BDman
 if $ARGS[0] = 'givi':
-	!!set stopboy = 0
+	!!stopboy = 0
 	$boy = 'Givi K.'
 	$boybody = 'small'
 	$boybod = 'thick'
@@ -27,7 +27,7 @@ if $ARGS[0] = 'givi':
 end
 
 if $ARGS[0] = 'ashot':
-	!!set stopboy = 0
+	!!stopboy = 0
 	$boy = 'Ashot'
 	$boybody = 'average growth'
 	$boybod = 'muscular'
@@ -54,7 +54,7 @@ if $ARGS[0] = 'ashot':
 end
 
 if $ARGS[0] = 'arthur':
-	!!set stopboy = 0
+	!!stopboy = 0
 	$boy = 'Arthur'
 	$boybody = 'average growth'
 	$boybod = 'muscular'
@@ -81,7 +81,7 @@ if $ARGS[0] = 'arthur':
 end
 
 if $ARGS[0] = 'abdula':
-	!!set stopboy = 0
+	!!stopboy = 0
 	$boy = 'Abdul'
 	$boybody = 'long'
 	$boybod = 'skinny'
@@ -108,7 +108,7 @@ if $ARGS[0] = 'abdula':
 end
 
 if $ARGS[0] = 'hasan':
-	!!set stopboy = 0
+	!!stopboy = 0
 	$boy = 'Hasan'
 	$boybody = 'average growth'
 	$boybod = 'abdominous'
@@ -135,7 +135,7 @@ if $ARGS[0] = 'hasan':
 end
 
 if $ARGS[0] = 'kamil':
-	!!set stopboy = 0
+	!!stopboy = 0
 	$boy = 'Camille'
 	$boybody = 'average growth'
 	$boybod = 'thin'
@@ -162,7 +162,7 @@ if $ARGS[0] = 'kamil':
 end
 
 if $ARGS[0] = 'aslan':
-	!!set stopboy = 0
+	!!stopboy = 0
 	$boy = 'Aslan'
 	$boybody = 'small'
 	$boybod = 'thin'
@@ -189,7 +189,7 @@ if $ARGS[0] = 'aslan':
 end
 
 if $ARGS[0] = 'muhtar':
-	!!set stopboy = 0
+	!!stopboy = 0
 	$boy = 'Mukhtar'
 	$boybody = 'small'
 	$boybod = 'thick'

+ 208 - 328
locations/BDsex

@@ -17,9 +17,7 @@ if harakBoy = 0:
 	act 'Lie on your back and spread her legs ':gt 'BDsex', 'sex'
 	act 'Stand on all fours':gt 'BDsex', 'sex2'
 	act 'Anal':gt 'BDsex', 'anal2'
-end
-
-if harakBoy = 1:
+elseif harakBoy = 1:
 	'<<$boy>> you and skillfully caresses your breasts.'
 	brand = rand(0, 100)
 
@@ -45,9 +43,7 @@ if harakBoy = 1:
 		act 'Take by mouth':gt 'BDsex', 'minet'
 		act 'I do not want to. Lie on your back and spread her legs ':gt 'BDsex', 'sex'
 	end
-end
-
-if harakBoy = 2:
+elseif harakBoy = 2:
 	'<<$boy>> hugs you and passionately caress your breasts.'
 	brand = rand(0, 100)
 
@@ -64,9 +60,7 @@ if harakBoy = 2:
 
 			act 'Stand on all fours':gt 'BDsex', 'sex2'
 		end
-	end
-
-	if brand >= 70 and brand < 90:
+	elseif brand >= 70 and brand < 90:
 		'<<$boy>> takes you behind your head and pulls you to face your penis.'
 
 		act 'Take by mouth':gt 'BDsex', 'minet'
@@ -74,16 +68,14 @@ if harakBoy = 2:
 				act 'Lie on your back and spread her legs ':gt 'BDsex', 'sex'
 				act 'Stand on all fours':gt 'BDsex', 'sex2'
 			end
-		end
-
-		if brand >= 90:
+		elseif brand >= 90:
 
 		'<<$boy>> tells you that he wants you in the ass.'
 
 		act 'Anal':gt 'BDsex', 'anal2'
 			if dom > 0:
 				act 'I do not want to! Lie on your back and spread her legs ':gt 'BDsex', 'sex'
-				act 'I´ll get cancer, but not in the ass ladies!':gt 'BDsex', 'sex2'
+				act 'I''ll get cancer, but not in the ass ladies!':gt 'BDsex', 'sex2'
 				act 'Take by mouth':gt 'BDsex', 'minet'
 			end
 		end
@@ -92,19 +84,19 @@ end
 
 if $ARGS[0] = 'kuni':
 	minut += 15
+	DOM += 1
+	kuni += 1
+	horny += DOM + (silaVag * 2 + 5)
 	gs 'stat'
-	set DOM += 1
-	set kuni += 1
-	set horny += DOM + (silaVag * 2 + 5)
 	'<center><img src="images/picV/kuni.jpg"></center>'
 	'You undressed and lay on the bed, saying that the guy you caressed his tongue.'
 	'<<$boy>> lay down between your legs and began to work the tongue on your pussy.'
 
 	if horny >= 90:
-		set horny = 0
-		set manna += 15
-		set willpower += 15
-		set orgasm += 1
+		horny = 0
+		manna += 15
+		willpower += 15
+		orgasm += 1
 		'Man of skillful actions you covered orgasm.'
 	else
 		'Actions Man though they were exciting, but they started to bore you.'
@@ -117,16 +109,12 @@ if $ARGS[0] = 'kuni':
 	act 'Anal':gt 'BDsex', 'anal2'
 end
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!vagina
-!!!!!!!!!!!!!!!!!sex
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 if $ARGS[0] = 'sex':
 	!!missionary position
 	minut += 10
+	pose = 0
 	gs 'stat'
 	'<center><img src="images/picV/vag.jpg"></center>'
-	pose = 0
 	gs 'BDsex', 'org'
 	givfinrand = rand(0, 10)
 
@@ -160,12 +148,12 @@ end
 
 
 if $ARGS[0] = 'sex2':
-!cancer
-minut += 10
-gs 'stat'
-picrand = rand(1, 5)
-'<center><img src="images/pics/vagdog<<picrand>>.jpg"></center>'
-pose = 1
+	!cancer
+	minut += 10
+	pose = 1
+	gs 'stat'
+	picrand = rand(1, 5)
+	'<center><img src="images/pics/vagdog<<picrand>>.jpg"></center>'
 	gs 'BDsex', 'org'
 	givfinrand = rand(0, 10)
 
@@ -201,18 +189,14 @@ end
 if $ARGS[0] = 'sex3':
 	!!to top
 	minut += 10
+	pose = 0
 	gs 'stat'
 	picrand = rand(1, 5)
 	'<center><img src="images/pics/vagcow<<picrand>>.jpg"></center>'
-	pose = 0
 	gs 'BDsex', 'org'
 	gs 'BDsex', 'cum'
 end
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!!anal
-!!!!!!!!!!!!!!!!!!anus
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 if $ARGS[0] = 'anal':
 	!!missionary position
 	minut += 10
@@ -227,18 +211,7 @@ if $ARGS[0] = 'anal2':
 	minut += 10
 	gs 'stat'
 	picrand = rand(1, 10)
-
-	if picrand = 1:'<center><img src="images/pics/anal.jpg"></center>'
-	if picrand = 2:'<center><img src="images/pics/anal2.jpg"></center>'
-	if picrand = 3:'<center><img src="images/pics/anal3.jpg"></center>'
-	if picrand = 4:'<center><img src="images/pics/anal4.jpg"></center>'
-	if picrand = 5:'<center><img src="images/pics/anal5.jpg"></center>'
-	if picrand = 6:'<center><img src="images/pics/anal6.jpg"></center>'
-	if picrand = 7:'<center><img src="images/pics/anal7.jpg"></center>'
-	if picrand = 8:'<center><img src="images/pics/anal8.jpg"></center>'
-	if picrand = 9:'<center><img src="images/pics/anal9.jpg"></center>'
-	if picrand = 10:'<center><img src="images/pics/anal10.jpg"></center>'
-
+	'<center><img src="images/pics/anal<<picrand>>.jpg"></center>'
 	gs 'bdsex', 'an'
 	givfinrand = rand(0, 10)
 
@@ -264,9 +237,6 @@ if $ARGS[0] = 'anal3':
 	gs 'bdsex', 'ancum'
 end
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!!!!!hj
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 if $ARGS[0] = 'hj':
 	!!handjob
 	hj += 1
@@ -278,7 +248,7 @@ if $ARGS[0] = 'hj':
 
 	if bjrand >= 75:
 		if harakBoy = 0:
-			'<<$boy>> moaned, "I´m going to come."'
+			'<<$boy>> moaned, "I''m going to come."'
 
 			act 'Let ends':
 				cla
@@ -292,7 +262,7 @@ if $ARGS[0] = 'hj':
 			act 'Take by mouth':gt 'BDsex', 'minet'
 			act 'Lie on your back and spread her legs ':gt 'BDsex', 'sex'
 		elseif harakBoy = 1:
-			'<<$boy>> groaned "Svetsik take in the mouth or let sex going to do."'
+			'<<$boy>> groaned "<<$name>> take in the mouth or let sex going to do."'
 
 			act 'Take by mouth':gt 'BDsex', 'minet'
 			act 'Lie on your back and spread her legs ':gt 'BDsex', 'sex'
@@ -312,21 +282,17 @@ if $ARGS[0] = 'hj':
 
 					act 'Stand on all fours':gt 'BDsex', 'sex2'
 				end
-			end
-
-			if brand >= 70 and brand < 80:
+			elseif brand >= 70 and brand < 80:
 				'<<$boy>> tells you that he wants you in the ass.'
 
 				act 'Anal':gt 'BDsex', 'anal2'
 
 				if dom > 5:
 					act 'I do not want to! Lie on your back and spread her legs ':gt 'BDsex', 'sex'
-					act 'I´ll get cancer, but not in the ass ladies!':gt 'BDsex', 'sex2'
+					act 'I''ll get cancer, but not in the ass ladies!':gt 'BDsex', 'sex2'
 					act 'Take by mouth':gt 'BDsex', 'minet'
 				end
-			end
-
-			if brand >= 80:
+			elseif brand >= 80:
 				'<<$boy>> tightens your face to its members.'
 
 				act 'Take by mouth':gt 'BDsex', 'minet'
@@ -340,26 +306,18 @@ if $ARGS[0] = 'hj':
 	end
 end
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!!!!bj
-!!!!!!!!!!!!!!!!!!!!throat
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 if $ARGS[0] = 'minet':
 	!!blowjob
 	minut += 5
 	gs 'stat'
-	picrand = rand(0, 4)
-	if picrand = 0:'<center><img src="images/picV/bj.jpg"></center>'
-	if picrand = 1:'<center><img src="images/picV/bj1.jpg"></center>'
-	if picrand = 2:'<center><img src="images/picV/bj2.jpg"></center>'
-	if picrand = 3:'<center><img src="images/picV/bj3.jpg"></center>'
-	if picrand = 4:'<center><img src="images/picV/bj4.jpg"></center>'
+	picrand = rand(1, 5)
+	'<center><img src="images/picV/bj<<picrand>>.jpg"></center>'
 	gs 'bdsex', 'autobj'
 	bjrand = rand(0, 100)
 
 	if bjrand >= 75:
 		if harakBoy = 0:
-			'<<$boy>> moaned, "I´m going to come."'
+			'<<$boy>> moaned, "I''m going to come."'
 
 			act 'In the palm of your hand':
 				cla
@@ -372,7 +330,7 @@ if $ARGS[0] = 'minet':
 
 			act 'Lie on your back and spread her legs ':gt 'BDsex', 'sex'
 		elseif harakBoy = 1:
-			'<<$boy>> groaned "Svetsik take in the mouth or let sex going to do."'
+			'<<$boy>> groaned "<<$name>> take in the mouth or let sex going to do."'
 
 			act 'Lie on your back and spread her legs ':gt 'BDsex', 'sex'
 		else
@@ -391,16 +349,14 @@ if $ARGS[0] = 'minet':
 
 					act 'Stand on all fours':gt 'BDsex', 'sex2'
 				end
-			end
-
-			if brand >= 70:
+			elseif brand >= 70:
 				'<<$boy>> tells you that he wants you in the ass.'
 
 				act 'Anal':gt 'BDsex', 'anal2'
 
 				if dom > 0:
 					act 'I do not want to! Lie on your back and spread her legs ':gt 'BDsex', 'sex'
-					act 'I´ll get cancer, but not in the ass ladies!':gt 'BDsex', 'sex2'
+					act 'I''ll get cancer, but not in the ass ladies!':gt 'BDsex', 'sex2'
 				end
 			end
 		end
@@ -429,13 +385,7 @@ if $ARGS[0] = 'facial':
 	minut += 3
 	gs 'stat'
 	picrand = rand(1, 5)
-
-	if picrand = 1:'<center><img src="images/pics/facial.jpg"></center>'
-	if picrand = 2:'<center><img src="images/pics/facial2.jpg"></center>'
-	if picrand = 3:'<center><img src="images/pics/facial3.jpg"></center>'
-	if picrand = 4:'<center><img src="images/pics/facial4.jpg"></center>'
-	if picrand = 5:'<center><img src="images/pics/facial5.jpg"></center>'
-
+	'<center><img src="images/pics/facial<<picrand>>.jpg"></center>'
 	'Thick jet of sperm hit sharply smelling you in the face.'
 
 	act 'Brush up':gt 'BDsex', 'end'
@@ -447,26 +397,12 @@ if $ARGS[0] = 'swallow':
 	minut += 3
 	gs 'stat'
 	picrand = rand(1, 10)
-
-	if picrand = 1:'<center><img src="images/pics/cum.jpg"></center>'
-	if picrand = 2:'<center><img src="images/pics/cum2.jpg"></center>'
-	if picrand = 3:'<center><img src="images/pics/cum3.jpg"></center>'
-	if picrand = 4:'<center><img src="images/pics/cum4.jpg"></center>'
-	if picrand = 5:'<center><img src="images/pics/cum5.jpg"></center>'
-	if picrand = 6:'<center><img src="images/pics/cum6.jpg"></center>'
-	if picrand = 7:'<center><img src="images/pics/cum7.jpg"></center>'
-	if picrand = 8:'<center><img src="images/pics/cum8.jpg"></center>'
-	if picrand = 9:'<center><img src="images/pics/cum9.jpg"></center>'
-	if picrand = 10:'<center><img src="images/pics/cum10.jpg"></center>'
-
+	'<center><img src="images/pics/cum<<picrand>>.jpg"></center>'
 	'Thick jet of sperm hit sharply smelling your mouth.'
 
 	act 'Brush up':gt 'BDsex', 'end'
 end
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!!sign_out
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 if $ARGS[0] = 'end':
 	NoGuy = 0
 
@@ -480,70 +416,62 @@ if $ARGS[0] = 'end':
 	end
 
 	if harakBoy = 0:
-		set minut += 15
-		set sweat = -3
-		set horny += 1
-		set hapri = 1
-		set mop = 1
+		minut += 15
+		sweat = -3
+		horny += 1
+		hapri = 1
+		mop = 1
 		dynamic $showerdin
 		'<center><img src="images/pics/dush.jpg"></center>'
 		'You got into the bathroom and turned on the shower. Lathered body and washed off in the shower.'
-	end
-
-	if harakBoy = 1:
+	elseif harakBoy = 1:
 		if cumface > 0:cumface = 0
 
 		'You have washed and <<$boy>> began to hurry you.'
+	elseif harakBoy = 2:
+		'<<$boy>> has not given you even go to the bathroom.'
 	end
 
-	if harakBoy = 2:'<<$boy>> has not given you even go to the bathroom.'
-!
-		if finance > 0:
-			if finance = 1:money += 300
-			if finance = 2:money += 500
-			'<<$boy>> give you money for a taxi and evicted from the apartment.'
-		end
-
-		if finance = 0:'<<$boy>> you are evicted from the apartment.'
+	if finance > 0:
+		if finance = 1:money += 300
+		if finance = 2:money += 500
+		'<<$boy>> give you money for a taxi and evicted from the apartment.'
+	elseif finance = 0:
+		'<<$boy>> you are evicted from the apartment.'
+	end
 
-		if gtGuy = 0:
-			act 'Leave':
-				gorand = rand(0, 2)
+	if GoToGuy = 0:
+		act 'Leave':
+			gorand = rand(0, 2)
 
-				if gorand = 0:gt 'street'
-				if gorand = 1:gt 'down'
-				if gorand = 2:gt 'nord'
-			end
+			if gorand = 0:gt 'street'
+			if gorand = 1:gt 'down'
+			if gorand = 2:gt 'nord'
 		end
-
-		if gtGuy > 0:
-			act 'Leave':
-				if gtGuy = 1:gtGuy = 0 & gt 'nord'
-				if gtGuy = 2:gtGuy = 0 & gt 'street'
-			end
+	elseif GoToGuy > 0:
+		act 'Leave':
+			if GoToGuy = 1:GoToGuy = 0 & gt 'nord'
+			if GoToGuy = 2:GoToGuy = 0 & gt 'street'
 		end
+	end
 end
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 if $ARGS[0] = 'org':
-	set protect = 0
-	set vidageday -= 1
+	protect = 0
+	vidageday -= 1
 	if tabletki <= 0 and prezik > 0:
-		set prezik -= 1
-		set protect = 1
+		prezik -= 1
+		protect = 1
 		'<<$boy>> you took a condom and put it on your <<dick>> centimeter member.'
 	end
 
 	if mesec > 0:
 		!!periods, orgasm is not possible
-		set horny = 0
-		set manna -= 10
-		set willpower -= 10
+		horny = 0
+		manna -= 10
+		willpower -= 10
 		'Do you monthly and while yet a member of the rams you, vaginal blood flows slowly. Painful sensations and pleasant. You moan while strong <<dick>> centimeter dick fuck your pussy.'
-	end
-
-	if mesec <= 0 and vagina > 0:
+	elseif mesec <= 0 and vagina > 0:
 		!!no monthly
 		!!horny - excitement
 		!!vagina - the elasticity of the vagina
@@ -551,148 +479,116 @@ if $ARGS[0] = 'org':
 		!!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
+		smazka = horny / 10
+		prinat = smazka + vagina
 
 		if dick >= prinat * 2:
 			!!member of the critical features more years
-			if silavag = 0:set orgazm = 0
-			if silavag = 1:set orgazm = 1
-			if silavag = 2:set orgazm = 2
-		end
-
-		if dick < prinat * 2 and dick > prinat:
+			if silavag = 0:orgazm = 0
+			if silavag = 1:orgazm = 1
+			if silavag = 2:orgazm = 2
+		elseif dick < prinat * 2 and dick > prinat:
 			!!member more options gg
 			if silavag = 0:
-				if horny >= 100:set orgazm = 5
-				if horny >= 90 and horny < 100:set orgazm = 4
-				if horny >= 80 and horny < 90:set orgazm = 3
-				if horny >= 70 and horny < 80:set orgazm = 2
-				if horny >= 60 and horny < 70:set orgazm = 1
-				if horny < 60:set orgazm = 0
-			end
-
-			if silavag = 1:
-				if horny >= 90:set orgazm = 5
-				if horny >= 80 and horny < 90:set orgazm = 4
-				if horny >= 70 and horny < 80:set orgazm = 3
-				if horny >= 60 and horny < 70:set orgazm = 2
-				if horny >= 50 and horny < 60:set orgazm = 1
-				if horny < 50:set orgazm = 0
-			end
-
-			if silavag = 2:
-				if horny >= 80:set orgazm = 5
-				if horny >= 70 and horny < 80:set orgazm = 4
-				if horny >= 60 and horny < 70:set orgazm = 3
-				if horny >= 50 and horny < 60:set orgazm = 2
-				if horny >= 40 and horny < 50:set orgazm = 1
-				if horny < 40:set orgazm = 0
+				if horny >= 100:orgazm = 5
+				if horny >= 90 and horny < 100:orgazm = 4
+				if horny >= 80 and horny < 90:orgazm = 3
+				if horny >= 70 and horny < 80:orgazm = 2
+				if horny >= 60 and horny < 70:orgazm = 1
+				if horny < 60:orgazm = 0
+			elseif silavag = 1:
+				if horny >= 90:orgazm = 5
+				if horny >= 80 and horny < 90:orgazm = 4
+				if horny >= 70 and horny < 80:orgazm = 3
+				if horny >= 60 and horny < 70:orgazm = 2
+				if horny >= 50 and horny < 60:orgazm = 1
+				if horny < 50:orgazm = 0
+			elseif silavag = 2:
+				if horny >= 80:orgazm = 5
+				if horny >= 70 and horny < 80:orgazm = 4
+				if horny >= 60 and horny < 70:orgazm = 3
+				if horny >= 50 and horny < 60:orgazm = 2
+				if horny >= 40 and horny < 50:orgazm = 1
+				if horny < 40:orgazm = 0
 			end
-		end
-
-		if dick <= prinat and dick >= vagina:
+		elseif dick <= prinat and dick >= vagina:
 			!!Member fewer opportunities gg
 			if silavag = 0:
-				if horny >= 80:set orgazm = 5
-				if horny >= 60 and horny < 80:set orgazm = 4
-				if horny >= 40 and horny < 60:set orgazm = 3
-				if horny < 40:set orgazm = 2
+				if horny >= 80:orgazm = 5
+				if horny >= 60 and horny < 80:orgazm = 4
+				if horny >= 40 and horny < 60:orgazm = 3
+				if horny < 40:orgazm = 2
+			elseif silavag = 1:
+				if horny >= 70:orgazm = 5
+				if horny >= 50 and horny < 70:orgazm = 4
+				if horny >= 30 and horny < 50:orgazm = 3
+				if horny < 30:orgazm = 2
+			elseif silavag = 2:
+				if horny >= 60:orgazm = 5
+				if horny >= 40 and horny < 60:orgazm = 4
+				if horny >= 20 and horny < 40:orgazm = 3
+				if horny < 20:orgazm = 2
 			end
-
-			if silavag = 1:
-				if horny >= 70:set orgazm = 5
-				if horny >= 50 and horny < 70:set orgazm = 4
-				if horny >= 30 and horny < 50:set orgazm = 3
-				if horny < 30:set orgazm = 2
-			end
-
-			if silavag = 2:
-				if horny >= 60:set orgazm = 5
-				if horny >= 40 and horny < 60:set orgazm = 4
-				if horny >= 20 and horny < 40:set orgazm = 3
-				if horny < 20:set orgazm = 2
-			end
-		end
-
-		if dick <= prinat and dick < vagina:
+		elseif dick <= prinat and dick < vagina:
 			if silavag = 0:
-				if horny >= 100:set orgazm = 5
-				if horny >= 90 and horny < 100:set orgazm = 4
-				if horny < 90:set orgazm = 6
-			end
-
-			if silavag = 1:
-				if horny >= 90:set orgazm = 5
-				if horny >= 80 and horny < 90:set orgazm = 4
-				if horny < 80:set orgazm = 6
-			end
-
-			if silavag = 2:
-				if horny >= 80:set orgazm = 5
-				if horny >= 70 and horny < 80:set orgazm = 4
-				if horny < 70:set orgazm = 6
+				if horny >= 100:orgazm = 5
+				if horny >= 90 and horny < 100:orgazm = 4
+				if horny < 90:orgazm = 6
+			elseif silavag = 1:
+				if horny >= 90:orgazm = 5
+				if horny >= 80 and horny < 90:orgazm = 4
+				if horny < 80:orgazm = 6
+			elseif silavag = 2:
+				if horny >= 80:orgazm = 5
+				if horny >= 70 and horny < 80:orgazm = 4
+				if horny < 70:orgazm = 6
 			end
 		end
 
 		if orgazm = 0:
-			set horny = 0
-			set manna -= 15
-			set willpower -= 15
+			horny = 0
+			manna -= 15
+			willpower -= 15
 			'You groaned in pain when <<$boy>> you entered, tears flowed from her eyes and between her legs feeling as if you drove a red-hot rod. You cry and moan until strong <<dick>> centimeter dick fuck your pussy.'
-		end
-
-		if orgazm = 1:
-			set horny -= 10
-			set manna -= 10
-			set willpower -= 10
+		elseif orgazm = 1:
+			horny -= 10
+			manna -= 10
+			willpower -= 10
 			'You bite my lip in pain when <<$boy>> you entered, between the legs painful. You are frowning and moaning in pain while strong <<dick>> centimeter dick fucks your pussy.'
-		end
-
-		if orgazm = 2:
-			set horny -= 5
-			set manna -= 5
-			set willpower -= 5
+		elseif orgazm = 2:
+			horny -= 5
+			manna -= 5
+			willpower -= 5
 			'You winced at the sudden pain when <<$boy>> you entered, between the legs pain that gradually become calm and quite tolerable. Are you trying to get aroused while strong <<dick>> centimeter dick fucks your pussy, but you do not go out.'
-		end
-
-		if orgazm = 3:
-			!!set horny += 5
-			set manna += 5
-			set willpower += 5
+		elseif orgazm = 3:
+			!!horny += 5
+			manna += 5
+			willpower += 5
 			'You startled by the feeling that your pussy is stretched when <<$boy>> you entered. Between the legs becomes a little pleased when strong <<dick>> centimeter dick fucks your pussy.'
-		end
-
-		if orgazm = 4:
-			!!set horny += 10
-			set manna += 10
-			set willpower += 10
+		elseif orgazm = 4:
+			!!horny += 10
+			manna += 10
+			willpower += 10
 			'You startled by the feeling that your pussy is stretched when <<$boy>> you entered. Between the legs becomes a little pleased when strong <<dick>> centimeter dick fucks your pussy. Pritnoe gradually grow warm and throbbing in the lower abdomen, and then feeling a little decrease and remain until the end.'
-		end
-
-		if orgazm = 5:
-			set horny = 0
-			set manna += 15
-			set willpower += 15
-			set orgasm += 1
+		elseif orgazm = 5:
+			horny = 0
+			manna += 15
+			willpower += 15
+			orgasm += 1
 			'You flinched from a pleasant feeling when your pussy rastyagivatsya start taking a dick. Between the legs becomes very warm and pleasant, when strong <<dick>> centimeter dick fuck your pussy. Pritnoe gradually grow warm and throbbing in the lower abdomen, then descend to the feeling you and your entire body covered hot waves of orgasm, you involuntarily scream with pleasure writhing on elde.'
-		end
-
-		if orgazm = 6:
-			set horny += 5
-			set manna += 5
-			set willpower += 5
+		elseif orgazm = 6:
+			horny += 5
+			manna += 5
+			willpower += 5
 			'You feel as a member enters your pussy when <<$boy>> you entered. Between the legs nicely, but a member of your pussy significantly less and <<dick>> inches enough for you. Pritnoe gradually grow warm and throbbing in the lower abdomen, and then feeling a little decrease and remain until the end.'
 		end
 
-		if vagina <= dick:set vagina += 1
-	end
-
-	if vagina = 0 and mesec <= 0:
-		set horny = 0
-		set manna -= 15
-		set willpower -= 15
-		set vagina += 1
+		if vagina <= dick:vagina += 1
+	elseif vagina = 0 and mesec <= 0:
+		horny = 0
+		manna -= 15
+		willpower -= 15
+		vagina += 1
 		'You bite my lip in pain and tears gushed from his eyes when <<$boy>> you entered, breaking your hymen. You moan while weeping and strong <<dick>> centimeter dick fucks your bloody pussy.'
 	end
 
@@ -704,71 +600,65 @@ end
 if $ARGS[0] = 'cum':
 	if protect ! 1:
 	!!unprotected sex
-	set finrand = rand(0, 1)
+	finrand = rand(0, 1)
 		if finrand = 0:
 			!!inside
-			set cumpussy += 1
+			cumpussy += 1
 			'<<$boy>> groaned and you feel like jet of sperm hit you inside your body.'
 
 			if tabletki <= 0 and mesec <= 0:
 				gs 'preg'
-				set manna -= 15
-				set willpower -= 15
+				manna -= 15
+				willpower -= 15
 				'Hell, because after all, you can fly, you thought with horror.'
 			end
-		end
-
-		if finrand = 1:
+		elseif finrand = 1:
 			!!out
 			if pose = 0:
-				set cumbelly += 1
+				cumbelly += 1
 				'<<$boy>> groaned and removing a member of you finished your stomach.'
-			end
-
-			if pose = 1:
-				set cumass += 1
+			elseif pose = 1:
+				cumass += 1
 				'<<$boy>> groaned and removing a member of you finished on your ass.'
 			end
 		end
-	end
-
-	if protect = 1:
-		set protect = 0
+	elseif protect = 1:
+		protect = 0
 		'<<$boy>> groaned and you realized that he had finished in the condom.'
 	end
 
-	set pose = 0
+	pose = 0
 end
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 if $ARGS[0] = 'autobj':
 	bj += 1
 	'You little fingers caress <<dick>> centimeter term then cupped his mouth and began to suck.'
 
-	if harakBoy = 0:'<<$boy>> closed his eyes in pleasure and enjoying the caress of your lips.'
-	if harakBoy = 1:'<<$boy>> staring you in the face until your lips glide over his hard dick.'
-
-	if harakBoy = 2:
-		if mop > 1:set mop = 0
-		set hapri = 0
-		set throat += 1
+	if harakBoy = 0:
+		'<<$boy>> closed his eyes in pleasure and enjoying the caress of your lips.'
+	elseif harakBoy = 1:
+		'<<$boy>> staring you in the face until your lips glide over his hard dick.'
+	elseif harakBoy = 2:
+		if mop > 1:mop = 0
+		hapri = 0
+		throat += 1
 		'<<$boy>> to take you by the hair and began to fuck you in the mouth, from blows to the throat member you tears flowed from his eyes.'
 	end
 
-	set horny += throat + SUB + VAF - DOM
+	horny += throat + SUB + VAF - DOM
 	'Hard and hot cock slides in your wet her mouth filling it completely, your lips tightly wrapped around his dick caressing.'
 
 	if horny >= 100:
-		set VAF += 1
-		set orgasm += 1
-		set horny = 20
-		set manna += 15
-		set willpower += 15
-		set lipkoef += 1
+		VAF += 1
+		orgasm += 1
+		horny = 20
+		manna += 15
+		willpower += 15
+		lipkoef += 1
 
 		if lipkoef > 50:
-			set lipkoef = 0
-			set lip += 1
+			lipkoef = 0
+			lip += 1
 		end
 
 		'Suddenly you started sucking dick you finish yourself. Between the legs blazing fire and waves of pleasure covered body, you moaned but did not release a member of his mouth continued to suck.'
@@ -778,7 +668,8 @@ if $ARGS[0] = 'autobj':
 end
 
 if $ARGS[0] = 'an':
-	!'if analplugin = 1:
+	!'
+	if analplugin = 1:
 		analpluginbonus = 10
 		analplugin = 0
 
@@ -790,44 +681,35 @@ if $ARGS[0] = 'an':
 		if anus + analpluginbonus >= dick:'You groaned when his feelings of overcrowding <<dick>> member centimeter apart your ass you entered.'
 
 		!!gs 'BDsex', 'ancum'
-	end '!
+	end
+	'!
 
 	if analplugin = 1:
 		!!WD:No Anal Lube if Anal Plug
 		!!analpluginbonus = 10
-		set lubonus = 15
+		lubonus = 15
 		analplugin = 0
-		!!'<<$boy>> has pulled out of your narrow and tight ass plug'
-
-		if anus < 16:
-			'<<$boy>> has pulled out of your narrow and tight ass plug'
-		else
-			'<<$boy>> pulled out of your ass juices dripping feverish stopper'
-		end
+		'<<$boy>> has pulled out of your narrow and tight butt plug'
 	end
 
-	if dick < anus:set anus += 1
+	if dick < anus:anus += 1
 
-	!' !WD:Anal Plug consistancy
 	if lubri = 0:
-		set lubonus = 2
+		lubonus = 2
 		'Lubricant and you do not have <<$boy>> spitting on his fingers became saliva to lubricate your ass.'
-	end
-
-	if lubri > 0:
-		set lubri -= 1
-		set lubonus = 10
+	elseif lubri > 0:
+		lubri -= 1
+		lubonus = 10
 		'You took a tube of lubricant and handed it to the guy, he squeezed a little on the palm and rubbed your anus.'
 	end
-	'!
 
 	if lubonus = 0:
 		if lubri > 0:
-			set lubri -= 1
-			set lubonus = 10
+			lubri -= 1
+			lubonus = 10
 			'You took a tube of lubricant and handed it to the guy, he squeezed a little on the palm and rubbed your anus.'
 		else
-			set lubonus = 2
+			lubonus = 2
 			'You do not have any lubricant so <<$boy>> spits on his fingers and uses saliva to lubricate your ass.'
 		end
 	end
@@ -845,12 +727,10 @@ if $ARGS[0] = 'an':
 	'<<$boy>> stopped for a moment giving your ass adapt to member protruding from it, and then started to drive them all the more insistent.'
 
 	if anus + lubonus + 2 < dick:
-		if mop > 1:set mop = 0
+		if mop > 1:mop = 0
 
 		'You cried and clutched his teeth into the pillow when <<dick>> centimeter cock began to fuck your ass on full force.'
-	end
-
-	if anus + lubonus + 2 >= dick:'You started to moan rhythmically in time with the movements member inside you.'
+	elseif anus + lubonus + 2 >= dick:'You started to moan rhythmically in time with the movements member inside you.'
 
 	anal += 1
 end
@@ -858,19 +738,19 @@ end
 if $ARGS[0] = 'ancum':
 	'Finally <<$boy>> grabbed you tight ass and drove for your aching ass dick up to the finished balls inside you.'
 	cumass += 1
-	set minut += 3
-	set cumanus += 1
-
-	if anus < dick:set anus += 1
+	minut += 3
+	cumanus += 1
 
-	set horny += (anus - dick) * 3
+	if anus < dick:anus += 1
 
-	if horny < 1:set horny = 1
+	horny += (anus - dick) * 3
 
-	if horny >= 100:
+	if horny < 1:
+		horny = 1
+	elseif horny >= 100:
 		horny = 1
-		set orgasm += 1
-		set analorgasm += 1
+		orgasm += 1
+		analorgasm += 1
 		'In anus blazing fire and waves of pleasure swept body, you were moaning and impale themselves on the ass dick.'
 	end
 end

+ 54 - 0
locations/BMloc

@@ -0,0 +1,54 @@
+# BMloc
+gs 'stat'
+'<<$text>>'
+
+act 'Dance':
+	cls
+	gs 'stat'
+
+	if bmFrend[Tboynum] = 0:
+		if bmHJ[Tboynum] > 0 or bmBJ[Tboynum] > 0 or bmSEX[Tboynum] > 0 or bmANAL[Tboynum] > 0 or bmGANG[Tboynum] > 0:
+			if bmHJ[Tboynum] > 0:$text2 = 'you handle me like that caressed'
+			if bmBJ[Tboynum] > 0:$text2 = 'You took me in her mouth'
+			if bmSEX[Tboynum] > 0:$text2 = 'we have to sleep with you'
+			if bmANAL[Tboynum] > 0:$text2 = 'I took you in the ass'
+			if bmGANG[Tboynum] > 0:$text2 = 'I`ll fuck with a friend'
+
+			'<<$niknameboy>> tells you "Remember me, <<$text2>>. I''m <<$bmNane[Tboynum]>>"'
+		else
+			if bmKISS[Tboynum] > 0 or bmTITS[Tboynum] > 0:
+				'<<$niknameboy>> tells you "Remember me, I like you and we drank together beer. I''m <<$bmNane[Tboynum]>>"'
+			else
+				'<<$niknameboy>> tells you "Remember me, I like you and we danced together. I''m <<$bmNane[Tboynum]>>"'
+			end
+		end
+	else
+		!!if bmFrend[Tboynum] = 1:end
+		!!if bmFrend[Tboynum] = 2:end
+		!!if bmFrend[Tboynum] = 3:end
+	end
+
+	if bmTip[Tboynum] = 0:'After the Dance <<$bmNane[Tboynum]>> offers to go out and drink beer.'
+	if bmTip[Tboynum] = 1:'After the Dance <<$bmNane[Tboynum]>> offers to plunk.'
+	if bmTip[Tboynum] = 2:'After the Dance <<$bmNane[Tboynum]>> offers to go to his hotel.'
+
+	act 'Agree':
+		cls
+		boynumBlock = 1
+
+		if bmTip[Tboynum] = 0:gt'EvBoyBuh'
+		if bmTip[Tboynum] = 1:gt'EvgopBuh'
+		if bmTip[Tboynum] = 2:gt'EvOtelMan'
+	end
+
+	act 'Refuse':
+		cls
+		willpower += rand(0, 1)
+		gt'gdkin'
+	end
+end
+
+act 'Leave':gt 'gdkin'
+
+--- BMloc ---------------------------------
+

+ 6 - 0
locations/BMloc1

@@ -0,0 +1,6 @@
+# BMloc1
+gs'stat'
+'<<$text>>'
+
+--- BMloc1 ---------------------------------
+

+ 6 - 0
locations/BMloc2

@@ -0,0 +1,6 @@
+# BMloc2
+gs'stat'
+'<<$text>>'
+
+--- BMloc2 ---------------------------------
+

+ 200 - 284
locations/BurgerTip

@@ -23,9 +23,7 @@ $burger_work_din = {
 					if PSBBtimes = 1:dynamic $dinBistroWork
 					if PSBBtimes = 2:dynamic $dinBistroWork2
 				end
-			end
-
-			if bossrand = 1:
+			elseif bossrand = 1:
 				'You went into his office and approached the table Chubais. He turned his head to you "Svetochka. Take these documents, and go to the chief accountant. Formalize it and you bring them to me."'
 
 				act 'Go to the chief accountant':
@@ -38,15 +36,13 @@ $burger_work_din = {
 						cls
 						gs 'stat'
 						'<center><img src="images/qwest/sosed/work2.jpg"></center>'
-						'Taking the documents you went back to the director´s office and gave him the documents.'
+						'Taking the documents you went back to the director''s office and gave him the documents.'
 
 						if PSBBtimes = 1:dynamic $dinBistroWork
 						if PSBBtimes = 2:dynamic $dinBistroWork2
 					end
 				end
-			end
-
-			if bossrand = 2:
+			elseif bossrand = 2:
 				'You went into his office and approached the table Chubais. He turned his head to you "Svetochka. Take these documents and bring them to Ivan, let will immediately"'
 
 				act 'Go to Ivan':
@@ -66,9 +62,7 @@ $burger_work_din = {
 						if PSBBtimes = 2:dynamic $dinBistroWork2
 					end
 				end
-			end
-
-			if bossrand = 3:
+			elseif bossrand = 3:
 				cls
 				bossexrand = rand(0, 3)
 				horny += 10
@@ -97,8 +91,9 @@ $burger_work_din = {
 						'Anatoly Borisovich began to undress you and threw you back. He kissed you and you climbed his hands between her legs feeling the pussy'
 						bosstipsexrand = rand(1, 10)
 
-						if bosstipsexrand >= 3:dynamic $boss_din_sex2
-						if bosstipsexrand < 3:
+						if bosstipsexrand >= 3:
+							dynamic $boss_din_sex2
+						elseif bosstipsexrand < 3:
 							'Chubais fingers began to fondle your anus and you feel like you went his finger in the ass.'
 							dynamic $boss_din_anal2
 						end
@@ -117,207 +112,181 @@ $burger_work_din = {
 						'<center><img src="images/qwest/sosed/bossBJ.jpg"></center>'
 						'Vashie thin fingers lowered pants with the chief, and his standing member mound protruded through the panties. You kissed briefs in place mound feeling firm flesh through the fabric. Then playfully took in his mouth dick right through the panties and began to fondle.'
 						dynamic $boss_din_bj
-						end
-
-						dynamic $boss_din_bj
 					end
+
+					dynamic $boss_din_bj
 				end
 			end
-
-			exit
 		end
 
-		if burand = 1:
-			cls
-			gs 'stat'
-			'<center><img src="images/qwest/sosed/work5.jpg"></center>'
-
-			if PSBBtimes = 1:
-				bosstiprand = rand(0, 3)
+		exit
+	elseif burand = 1:
+		cls
+		gs 'stat'
+		'<center><img src="images/qwest/sosed/work5.jpg"></center>'
 
-				if bosstiprand = 0:
-					TerminalPapper = 1
-					DayTerminalPapper = day
-					'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, take these documents to the North area, in a storage terminal, then you can be free today."'
+		if PSBBtimes = 1:
+			bosstiprand = rand(0, 3)
 
-					act 'Leave':gt 'down'
-				end
+			if bosstiprand = 0:
+				TerminalPapper = 1
+				DayTerminalPapper = day
+				'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, take these documents to the North area, in a storage terminal, then you can be free today."'
 
-				if bosstiprand = 1:
-					'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, I´ll leave up for lunch. But now bring up products, you accept the products instead of me."'
+				act 'Leave':gt 'down'
+			elseif bosstiprand = 1:
+				'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, I''ll leave up for lunch. But now bring up products, you accept the products instead of me."'
 
-					act 'Take products':
-						cls
-						gs 'stat'
-						'To the rear entrance truck arrived with food. To you approached the driver with the instruments of acceptance. You signed the documents and ordered the baggage handlers to unload the car.'
+				act 'Take products':
+					cls
+					gs 'stat'
+					'To the rear entrance truck arrived with food. To you approached the driver with the instruments of acceptance. You signed the documents and ordered the baggage handlers to unload the car.'
 
-						if PSBBtimes = 1:dynamic $dinBistroWork
-						if PSBBtimes = 2:dynamic $dinBistroWork2
-					end
+					if PSBBtimes = 1:dynamic $dinBistroWork
+					if PSBBtimes = 2:dynamic $dinBistroWork2
 				end
 
-				!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
-				if bosstiprand = 2:
-					BankPapper = 1
-					dayBankPapper = day
-					'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, run to the bank with these documents. How otneseshsya documents can be free today."'
+			elseif bosstiprand = 2:
+				BankPapper = 1
+				dayBankPapper = day
+				'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, run to the bank with these documents. How otneseshsya documents can be free today."'
 
-					act 'Leave':gt 'down'
-				end
+				act 'Leave':gt 'down'
+			elseif bosstiprand = 3:
+				'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, call programmer who have part-time, my PC is broken"'
 
-				if bosstiprand = 3:
-					'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, call programmer who have part-time, my PC is broken"'
+				act 'Call programmer':
+					cls
+					gs 'stat'
 
-					act 'Call programmer':
-						cls
-						gs 'stat'
+					if sosedQW = 0:
+						'Soon entered the office of a young, tall guy with a big bag. He asked that broke, you showed him the chief of the computer and the guy sat down at the computer fix. Soon he graduated and earned a computer.'
+					elseif sosedQW > 0 and sosedKnowWork > 0:
+						sosedKnowWork = 1
+						'Soon the office entered Timothy, your neighbor. He asked that broke, you showed him the chief of the computer and the guy sat down at the computer fix. Soon he graduated and earned a computer.'
+					elseif sosedQW > 0 and sosedKnowWork = 0:
+						sosedKnowWork = 1
+						'Soon the office entered Timothy, your neighbor. He was surprised to see you. You chatted cheerfully, Timothy is working part-time in bystroezhke, repairing office equipment, charges cartridges.'
+					end
 
-						if sosedQW = 0:'Soon entered the office of a young, tall guy with a big bag. He asked that broke, you showed him the chief of the computer and the guy sat down at the computer fix. Soon he graduated and earned a computer.'
+					if PSBBtimes = 1:dynamic $dinBistroWork
+					if PSBBtimes = 2:dynamic $dinBistroWork2
+				end
+			end
+		elseif PSBBtimes = 2:
+			bosstiprand = rand(0, 3)
 
-						if sosedQW > 0 and sosedKnowWork > 0:
-							sosedKnowWork = 1
-							'Soon the office entered Timothy, your neighbor. He asked that broke, you showed him the chief of the computer and the guy sat down at the computer fix. Soon he graduated and earned a computer.'
-						end
+			if bosstiprand = 0:
+				'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, I have to leave early today, here''s a print, well, so far." Anatoly Borisovich then left the office.'
+				bburand = rand(0, 10)
 
-						if sosedQW > 0 and sosedKnowWork = 0:
-							sosedKnowWork = 1
-							'Soon the office entered Timothy, your neighbor. He was surprised to see you. You chatted cheerfully, Timothy is working part-time in bystroezhke, repairing office equipment, charges cartridges.'
-						end
+				if bburand = 0:
+					'To your office went senior manager Ivan.'
+					dynamic $din_Ivan_work
+
+					if kompromatLife = 0 or kompromatBlackMail > 1:
+						'Ivan grinned "I need shtampulki on here these papers." You took the seal and stamp on paper Ivan.'
 
 						if PSBBtimes = 1:dynamic $dinBistroWork
 						if PSBBtimes = 2:dynamic $dinBistroWork2
 					end
-				end
-			end
 
-			!!!!!!!!!!!!!!!!!!!!!!!
-			!!!!!!!!!!!!!!!!!!!!!!!
-			if PSBBtimes = 2:
-				bosstiprand = rand(0, 3)
+				elseif bburand = 1:
+					'To your office assistant manager went Sergei.'
+					'Sergei looked you carnivorous eyes "Anatoly Borisovich at?" You said no.'
 
-				if bosstiprand = 0:
-					'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, I have to leave early today, here´s a print, well, so far." Anatoly Borisovich then left the office.'
-					bburand = rand(0, 10)
+					if sergeyPQW = 1:'Pimply young man chuckled and sat on the edge of the table. "<<$name>>, you''re dynamite. Cafe I invested for you, and you with me here and so cost.''s No nice of you."'
 
-					if bburand = 0:
-						'To your office went senior manager Ivan.'
-						dynamic $din_Ivan_work
+					if sergeyPQW = 0:
+						'Pimply kid sat on the edge of the table "<<$name>> you cool the girl can descend to something?"'
 
-						if kompromatLife = 0 or kompromatBlackMail > 1:
-							'Ivan grinned "I need shtampulki on here these papers." You took the seal and stamp on paper Ivan.'
+						act 'No! And do not even think about it!':
+							cls
+							gs 'stat'
+							'You have rejected this rookie and he jumped up from the table left his office.'
 
 							if PSBBtimes = 1:dynamic $dinBistroWork
 							if PSBBtimes = 2:dynamic $dinBistroWork2
 						end
-					end
-
-					if bburand = 1:
-						'To your office assistant manager went Sergei.'
-						'Sergei looked you carnivorous eyes "Anatoly Borisovich at?" You said no.'
 
-						if sergeyPQW = 1:'Pimply young man chuckled and sat on the edge of the table. "<<$name>>, you´re dynamite. Cafe I invested for you, and you with me here and so cost.''s No nice of you."'
-
-						if sergeyPQW = 0:
-							'Pimply kid sat on the edge of the table "Svetsik you cool the girl can descend to something?"'
-
-							act 'No! And do not even think about it!':
-								cls
-								gs 'stat'
-								'You have rejected this rookie and he jumped up from the table left his office.'
-
-								if PSBBtimes = 1:dynamic $dinBistroWork
-								if PSBBtimes = 2:dynamic $dinBistroWork2
-							end
+						act 'Come on.':
+							cls
+							gs 'stat'
+							'<center><img src="images/qwest/sosed/work7.jpg"></center>'
+							'Sergei delighted and promised to go after you left. Working time has come to an end and re-entered the office Sergei. "Come on."'
 
-							act 'Come on.':
+							act 'Go.':
 								cls
+								minut += 60
+								horny += 15
+								water = 24
+								energy = 24
+								salo += 2
+								fat += 20
 								gs 'stat'
-								'<center><img src="images/qwest/sosed/work7.jpg"></center>'
-								'Sergei delighted and promised to go after you left. Working time has come to an end and re-entered the office Sergei. "Come on."'
+								'<center><img src="images/qwest/sosed/kafe2.jpg"></center>'
+								'You went with Sergei and logged in located not far from bystroezhki cafe. Sergei ordered drinks and food and you sat down at the table. Order soon earned and you began to eat and drink wine. Soon you''re a bit tipsy and the conversation flowed naturally. Sergei called the waitress and paid with her. You went out with his partner, and pimply he suddenly hugged you "<<$name>>, went to me."'
 
-								act 'Go.':
+								act 'Refuse.':
 									cls
-									minut += 60
-									horny += 15
-									water = 24
-									energy = 24
-									salo += 2
-									fat += 20
+									minut += 15
+									sergeyPQW = 1
 									gs 'stat'
-									'<center><img src="images/qwest/sosed/kafe2.jpg"></center>'
-									'You went with Sergei and logged in located not far from bystroezhki cafe. Sergei ordered drinks and food and you sat down at the table. Order soon earned and you began to eat and drink wine. Soon you´re a bit tipsy and the conversation flowed naturally. Sergei called the waitress and paid with her. You went out with his partner, and pimply he suddenly hugged you "<<$name>>, went to me."'
+									!!'<center><img src="images/qwest/sosed/kafe2.jpg"></center>'
+									'You refused molestation obsessive brat and left.'
 
-									act 'Refuse.':
-										cls
-										minut += 15
-										sergeyPQW = 1
-										gs 'stat'
-										!!'<center><img src="images/qwest/sosed/kafe2.jpg"></center>'
-										'You refused molestation obsessive brat and left.'
-
-										act 'Leave.':gt 'down'
-									end
+									act 'Leave.':gt 'down'
 								end
 							end
-
-							exit
 						end
 
-						if PSBBtimes = 1:dynamic $dinBistroWork
-						if PSBBtimes = 2:dynamic $dinBistroWork2
+						exit
 					end
 
-					if bburand = 2:
-						'To your office came GlavBukh Lena.'
-						'Lena looked disapprovingly you "Chef at home?" You said that he was gone. Lena lipped gone.'
-
-						if PSBBtimes = 1:dynamic $dinBistroWork
-						if PSBBtimes = 2:dynamic $dinBistroWork2
-					end
+					if PSBBtimes = 1:dynamic $dinBistroWork
+					if PSBBtimes = 2:dynamic $dinBistroWork2
 
-					if bburand = 3:
-						'To your office came personnel manager Vic.'
-						'Vick you smiled "Chef at home?" You replied that he was gone. Vick said he would call the next time left.'
+				elseif bburand = 2:
+					'To your office came GlavBukh Lena.'
+					'Lena looked disapprovingly you "Chef at home?" You said that he was gone. Lena lipped gone.'
 
-						if PSBBtimes = 1:dynamic $dinBistroWork
-						if PSBBtimes = 2:dynamic $dinBistroWork2
-					end
+					if PSBBtimes = 1:dynamic $dinBistroWork
+					if PSBBtimes = 2:dynamic $dinBistroWork2
+				elseif bburand = 3:
+					'To your office came personnel manager Vic.'
+					'Vick you smiled "Chef at home?" You replied that he was gone. Vick said he would call the next time left.'
 
-					if bburand > 3:
-						'Allotted time you sat in the office alone, bored and expanding solitaire on the computer.'
+					if PSBBtimes = 1:dynamic $dinBistroWork
+					if PSBBtimes = 2:dynamic $dinBistroWork2
+				elseif bburand > 3:
+					'Allotted time you sat in the office alone, bored and expanding solitaire on the computer.'
 
-						if PSBBtimes = 1:dynamic $dinBistroWork
-						if PSBBtimes = 2:dynamic $dinBistroWork2
-					end
+					if PSBBtimes = 1:dynamic $dinBistroWork
+					if PSBBtimes = 2:dynamic $dinBistroWork2
 				end
+			elseif bosstiprand = 1:
+				'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, went along with me, have fun."'
 
-				!!!!!!!!!!!!!!!!!!!!!!!!!
-				!!!!!!!!!!!!!!!!!!!!!!!!!
-				if bosstiprand = 1:
-					'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, went along with me, have fun."'
-
-					act 'Go with Anatoly Borisovich':
-						cls
-						gs 'stat'
-						BurMestoRand = rand(0, 1)
-						'<center><img src="images/maggot/car.jpg"></center>'
-
-						if BurMestoRand = 0:
-							'You got in the car to Anatoly Borisovich and you went to the residential area of ​​the city. Soon the car stopped near the sauna. Chubais said with a smile. "I made room for us."'
+				act 'Go with Anatoly Borisovich':
+					cls
+					gs 'stat'
+					'<center><img src="images/maggot/car.jpg"></center>'
+					BurMestoRand = rand(0, 1)
 
-							act 'Go to the sauna':
-								cls
-								gs 'stat'
+					if BurMestoRand = 0:
+						'You got in the car to Anatoly Borisovich and you went to the residential area of ​​the city. Soon the car stopped near the sauna. Chubais said with a smile. "I made room for us."'
 
-								if SaunaWhore > 0:
-									BuSWworkEnd = 1
-									'You are logged in to the sauna and suddenly faced with mother at the entrance, which provided you work in the sauna. She said with surprise, "<<$name>>, what the hell, are you now indvidualka? Slugger I work, and even dare to come here?" Anatoly Borisovich wondered, "What´s going on here, then you know the <<$name>>?" Nurse laughed, "Do I know <<$name>> Yes her pussy real goldmine! Of course I know it, I have it working as a prostitute." Anatoly Borisovich blushed, "How? <<$name>>? You´re just a whore?" You began to mutter, trying to come up with on the fly how do you otmazatsya. Anatoly Borisovich shook his head. "I was wrong about you, <<$name>>." After that, he went silently out of the sauna and you heard his car left. Nurse continued to laugh at you "<<$name>>, you´re a whore, and if you manage to still Okrut decent guy, if your past will come up, then you no self-respecting man, to live is not. Consider it a free lesson to you."'
+						act 'Go to the sauna':
+							cls
+							gs 'stat'
 
-									act 'Leave':gt 'street'
-								end
+							if SaunaWhore > 0:
+								BuSWworkEnd = 1
+								'You are logged in to the sauna and suddenly faced with mother at the entrance, which provided you work in the sauna. She said with surprise, "<<$name>>, what the hell, are you now indvidualka? Slugger I work, and even dare to come here?" Anatoly Borisovich wondered, "What''s going on here, then you know the <<$name>>?" Nurse laughed, "Do I know <<$name>> Yes her pussy real goldmine! Of course I know it, I have it working as a prostitute." Anatoly Borisovich blushed, "How? <<$name>>? You''re just a whore?" You began to mutter, trying to come up with on the fly how do you otmazatsya. Anatoly Borisovich shook his head. "I was wrong about you, <<$name>>." After that, he went silently out of the sauna and you heard his car left. Nurse continued to laugh at you "<<$name>>, you''re a whore, and if you manage to still Okrut decent guy, if your past will come up, then you no self-respecting man, to live is not. Consider it a free lesson to you."'
 
-								if SaunaWhore = 0:
-									'You are logged in to the sauna and Chubais held you in luxurious rooms which he made. He quickly began to undress and you too undressed. Then he walked up to you. "<<$name>>, I suck."'
+								act 'Leave':gt 'street'
+							elseif SaunaWhore = 0:
+								'You are logged in to the sauna and Chubais held you in luxurious rooms which he made. He quickly began to undress and you too undressed. Then he walked up to you. "<<$name>>, I suck."'
 
 								act 'Further':
 									cls
@@ -340,17 +309,15 @@ $burger_work_din = {
 										dynamic $sexstart3
 										'You heard Anatoly Borisovich groaned and twitched a few times, he took you with ebya and you saw that sperm filled condom.'
 										sweat = -3
-										'Then you went into the shower to wash. Coming out of the shower, you saw that Anatoly Borisovich already dressed. "<<$name>>, I´ve got to run." He kissed you and left.'
+										'Then you went into the shower to wash. Coming out of the shower, you saw that Anatoly Borisovich already dressed. "<<$name>>, I''ve got to run." He kissed you and left.'
 
 										act 'Leave':gt 'street'
 									end
 								end
 							end
 						end
-					end
-
-					if BurMestoRand = 1:
-						'You got in the car and suddenly the phone rang boss. He frowned and picked up the receiver. "Yes dear, I will soon." He hung up. "We have to go home, Svetsik, quick suck, and I´ll go."'
+					elseif BurMestoRand = 1:
+						'You got in the car and suddenly the phone rang boss. He frowned and picked up the receiver. "Yes dear, I will soon." He hung up. "We have to go home, <<$name>>, quick suck, and I''ll go."'
 
 						act 'Suck':
 							cls
@@ -368,25 +335,19 @@ $burger_work_din = {
 				end
 
 				exit
-			end
-
-			!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-			!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-			if bosstiprand = 2:
+			elseif bosstiprand = 2:
 				'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, call programmer who have part-time, my PC is broken"'
 
 				act 'Call programmer':
 					cls
 					gs 'stat'
 
-					if sosedQW = 0:'Soon entered the office of a young, tall guy with a big bag. He asked that broke, you showed him the chief of the computer and the guy sat down at the computer fix. Soon he graduated and earned a computer.'
-
-					if sosedQW > 0 and sosedKnowWork > 0:
+					if sosedQW = 0:
+						'Soon entered the office of a young, tall guy with a big bag. He asked that broke, you showed him the chief of the computer and the guy sat down at the computer fix. Soon he graduated and earned a computer.'
+					elseif sosedQW > 0 and sosedKnowWork > 0:
 						sosedKnowWork = 1
 						'Soon the office entered Timothy, your neighbor. He asked that broke, you showed him the chief of the computer and the guy sat down at the computer fix. Soon he graduated and earned a computer.'
-					end
-
-					if sosedQW > 0 and sosedKnowWork = 0:
+					elseif sosedQW > 0 and sosedKnowWork = 0:
 						sosedKnowWork = 1
 						'Soon the office entered Timothy, your neighbor. He was surprised to see you. You chatted cheerfully, Timothy is working part-time in bystroezhke, repairing office equipment, charges cartridges.'
 					end
@@ -394,11 +355,7 @@ $burger_work_din = {
 					if PSBBtimes = 1:dynamic $dinBistroWork
 					if PSBBtimes = 2:dynamic $dinBistroWork2
 				end
-			end
-
-			!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-			!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-			if bosstiprand = 3:
+			elseif bosstiprand = 3:
 				'Came out of the office Anatoly Borisovich and walked up to you. "<<$name>>, you have to stay at work today. Come to me now partners for business negotiations."'
 
 				act 'Further':
@@ -413,10 +370,7 @@ $burger_work_din = {
 		end
 
 		exit
-	end
-
-	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-	if burand = 2:
+	elseif burand = 2:
 		'To your office went senior manager Ivan.'
 		dynamic $din_Ivan_work
 
@@ -428,10 +382,7 @@ $burger_work_din = {
 		end
 
 		exit
-	end
-
-	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-	if burand = 3:
+	elseif burand = 3:
 		'To your office assistant manager went Sergei.'
 		'Sergei greedily examining you said "Ivan told these documents include the main, on the signature."'
 
@@ -439,10 +390,7 @@ $burger_work_din = {
 		if PSBBtimes = 2:dynamic $dinBistroWork2
 
 		exit
-	end
-
-	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-	if burand = 4:
+	elseif burand = 4:
 		'To your office came GlavBukh Lena.'
 		'Lena arrogant as ever with mine said "I need a print head of the payment for these." You classify documents to the chief, he slap seals and documents you gave Lena.'
 
@@ -450,25 +398,19 @@ $burger_work_din = {
 		if PSBBtimes = 2:dynamic $dinBistroWork2
 
 		exit
-	end
-
-	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-	if burand = 5:
+	elseif burand = 5:
 		'To your office came personnel manager Vic.'
-		'She smiled at you, "I´ve brought the documents, who is retiring as always, you need to put the press." You classify documents to the chief and he slap stamps. After that you classify documents Vick.'
+		'She smiled at you, "I''ve brought the documents, who is retiring as always, you need to put the press." You classify documents to the chief and he slap stamps. After that you classify documents Vick.'
 
 		if PSBBtimes = 1:dynamic $dinBistroWork
 		if PSBBtimes = 2:dynamic $dinBistroWork2
 
 		exit
-	end
-
-	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-	if burand = 6:
+	elseif burand = 6:
 		'To your office came elegantly dressed woman with an arrogant person.'
 
 		if gossipBU < 10:
-			'The lady looked scornfully asked you and disgust "at Shreds?" You nodded his head, a lady came in without knocking into the office to Anatoly Borisovich and after a while they went out together, Chubais said on the way "Yes dear, certainly today´ll come to your mother." When the woman left Antaoly Borisovich chuckled "My wife is a rare bitch."'
+			'The lady looked scornfully asked you and disgust "at Shreds?" You nodded his head, a lady came in without knocking into the office to Anatoly Borisovich and after a while they went out together, Chubais said on the way "Yes dear, certainly today''ll come to your mother." When the woman left Antaoly Borisovich chuckled "My wife is a rare bitch."'
 
 			if PSBBtimes = 1:dynamic $dinBistroWork
 			if PSBBtimes = 2:dynamic $dinBistroWork2
@@ -485,7 +427,7 @@ $burger_work_din = {
 				PersSecWorkTimes = 0
 				money += Pay
 				gs 'stat'
-				'You wrote a statement of resignation and quickly signed his boss, he was counted out to you <<pay>> rubles your paycheck and said, "It´s over <<$name>>, get out of here."'
+				'You wrote a statement of resignation and quickly signed his boss, he was counted out to you <<pay>> rubles your paycheck and said, "It''s over <<$name>>, get out of here."'
 
 				act 'Leave':gt 'down'
 			end
@@ -514,15 +456,11 @@ $boss_din_bj = {
 		if wantrand = 3:
 			'Anatoly Borisovich took a member of your mouth "<<$name>>, I want you."'
 			dynamic $boss_din_bendover
-		end
-
-		if wantrand = 2:
-			'Anatoly Borisovich muffled groan "Svetsik if you prodolzhish, then I finish"'
+		elseif wantrand = 2:
+			'Anatoly Borisovich muffled groan "<<$name>> if you prodolzhish, then I finish"'
 			dynamic $boss_din_bendover
 			dynamic $boss_din_bj2
-		end
-
-		if wantrand < 2:
+		elseif wantrand < 2:
 			'Anatoly Borisovich groaned obviously going to finish.'
 			dynamic $boss_din_bj_cum
 		end
@@ -532,55 +470,44 @@ $boss_din_bj = {
 $boss_din_go_toilet = {
 	act 'Go to the toilet':
 		cls
-		bosstoirand = rand(0, 10)
 		gs 'stat'
+		bosstoirand = rand(0, 10)
 
 		if bosstoirand = 10:
 			gossipBU += 1
 			'You went to the toilet, but in the hallway accidentally collided with Ivan. Ivan looked at you with a grin and turned away went about his business.'
 			dynamic $boss_din_toilet_wash
-		end
-
-		if bosstoirand = 9:
+		elseif bosstoirand = 9:
 			gossipBU += 1
 			'You went to the toilet, but in the hallway accidentally encountered a chief accountant Lena. Lena looked at you and saw sperm muttered "whore" and went on her way.'
 			dynamic $boss_din_toilet_wash
-		end
-
-		if bosstoirand = 8:
+		elseif bosstoirand = 8:
 			gossipBU += 1
 			'You went to the toilet, but in the hallway accidentally collided with the personnel manager Vika. Vick saw you cum and her eyes widened in surprise, then she wrinkled her nose in disgust and walked away.'
 			dynamic $boss_din_toilet_wash
-		end
-
-		if bosstoirand = 7:
+		elseif bosstoirand = 7:
 			gossipBU += 1
-			'You went to the toilet, but in the hallway accidentally encountered a deputy manager Sergei. Pimply young man Serge saw semen on you and laughed, "That´s because cocksucker" after he ran somewhere.'
+			'You went to the toilet, but in the hallway accidentally encountered a deputy manager Sergei. Pimply young man Serge saw semen on you and laughed, "That''s because cocksucker" after he ran somewhere.'
 			dynamic $boss_din_toilet_wash
-		end
-
-		if bosstoirand < 7:
+		elseif bosstoirand < 7:
 			bosstoirandin = rand(0, 10)
 
 			if bosstoirandin = 10:
 				gossipBU += 1
 				'You quietly slipped into the toilet, but the toilet nose to nose faced the chief accountant Lena. Lena looked at you and saw sperm muttered "whore" and went on her way.'
 				dynamic $boss_din_toilet_wash2
-			end
-
-			if bosstoirandin = 9:
+			elseif bosstoirandin = 9:
 				gossipBU += 1
 				'You quietly slipped into the toilet, but the toilet faced nose to nose with the personnel manager Vika Vika saw you cum and her eyes widened in surprise, then she wrinkled her nose in disgust and walked away.'
 				dynamic $boss_din_toilet_wash2
-			end
+			elseif bosstoirandin < 9:
+				cumface = 0
+				cumfrot = 0
 
-			if bosstoirandin < 9:
 				if cumface > 0:$deytoibur = 'Standing at the sink, you have washed the face, wash sperm.'
 				if cumfrot > 0:$deytoibur2 = ' Discreetly wipe the semen from clothing failed blouse and left a large wet spot.'
 
 				'You quietly slipped into the toilet. <<$deytoibur>><<$deytoibur2>>'
-				cumface = 0
-				cumfrot = 0
 
 				if PSBBtimes = 1:dynamic $dinBistroWork
 				if PSBBtimes = 2:dynamic $dinBistroWork2
@@ -590,24 +517,26 @@ $boss_din_go_toilet = {
 }
 
 $boss_din_toilet_wash = {
+	cumface = 0
+	cumfrot = 0
+
 	if cumface > 0:$deytoibur = 'Standing at the sink, you have washed the face, wash sperm.'
 	if cumfrot > 0:$deytoibur2 = ' Discreetly wipe the semen from clothing failed blouse and left a large wet spot.'
 
 	'You went into the bathroom and turned the water in the sink. <<$deytoibur>><<$deytoibur2>>'
-	cumface = 0
-	cumfrot = 0
 
 	if PSBBtimes = 1:dynamic $dinBistroWork
 	if PSBBtimes = 2:dynamic $dinBistroWork2
 }
 
 $boss_din_toilet_wash2 = {
+	cumface = 0
+	cumfrot = 0
+
 	if cumface > 0:$deytoibur = 'Standing at the sink, you have washed the face, wash sperm.'
 	if cumfrot > 0:$deytoibur2 = ' Discreetly wipe the semen from clothing failed blouse and left a large wet spot.'
 
 	'You turned the water in the sink. <<$deytoibur>><<$deytoibur2>>'
-	cumface = 0
-	cumfrot = 0
 
 	if PSBBtimes = 1:dynamic $dinBistroWork
 	if PSBBtimes = 2:dynamic $dinBistroWork2
@@ -616,25 +545,22 @@ $boss_din_toilet_wash2 = {
 $boss_din_bj_cum = {
 	act 'Remove the member of his mouth':
 		cls
-		reaktrand = rand(0, 10)
 		gs 'stat'
 
+		reaktrand = rand(0, 10)
+
 		if reaktrand <= 5:
 			'<center><img src="images/qwest/sosed/bossBJcum.jpg"></center>'
 			'You took time member of his mouth. The hour is a member of sperm splattered on the floor, you caressed member hand until finally Anatoly Borisovich not exhausted. After that he removed his pants and member sat at the table.'
 
 			if PSBBtimes = 1:dynamic $dinBistroWork
 			if PSBBtimes = 2:dynamic $dinBistroWork2
-		end
-
-		if reaktrand > 5 and reaktrand < 9:
+		elseif reaktrand > 5 and reaktrand < 9:
 			cumfrot += 1
 			'<center><img src="images/qwest/sosed/bossBJcum2.jpg"></center>'
 			'You took time member of his mouth. The hour is a member of sperm splattered on the floor, you caressed member hand until finally Anatoly Borisovich not exhausted. then he removed the cock in his pants and sat down. Starting to brush up, you notice that you got some sperm on her blouse.'
 			dynamic $boss_din_go_toilet
-		end
-
-		if reaktrand >= 9:
+		elseif reaktrand >= 9:
 			cumface += 1
 			cumfrot += 1
 			'<center><img src="images/qwest/sosed/bossBJcum3.jpg"></center>'
@@ -666,9 +592,7 @@ $boss_din_bj2 = {
 			if boburand > 2:
 				if PSBBtimes = 1:dynamic $dinBistroWork
 				if PSBBtimes = 2:dynamic $dinBistroWork2
-			end
-
-			if boburand <= 2:
+			elseif boburand <= 2:
 				cumfrot += 1
 				'Spitting sperm you notice that a few drops of semen got you on her blouse.'
 				gs 'stat'
@@ -687,12 +611,10 @@ $boss_din_bj2 = {
 			if boburand > 2:
 				if PSBBtimes = 1:dynamic $dinBistroWork
 				if PSBBtimes = 2:dynamic $dinBistroWork2
-			end
-
-			if boburand <= 2:
+			elseif boburand <= 2:
 				cumfrot += 1
-				'Spitting sperm you notice that a few drops of semen got you on her blouse.'
 				gs 'stat'
+				'Spitting sperm you notice that a few drops of semen got you on her blouse.'
 				dynamic $boss_din_go_toilet
 			end
 		end
@@ -702,18 +624,16 @@ $boss_din_bj2 = {
 $boss_din_bendover = {
 	act 'Lie chest on the table':
 		cls
-		bosstipsex = rand(0, 10)
 		gs 'stat'
 		!!bossfuck
 		'<center><img src="images/qwest/sosed/bossbendover.jpg"></center>'
 		'You bent down and went chest on the table, with his hands and parted skirt ass.'
+		bosstipsex = rand(0, 10)
 
 		if bosstipsex <= 8:
 			'Anatoly Borisovich rubbed a little head of his penis on your mokrenkaya pussy.'
 			dynamic $boss_din_sex
-		end
-
-		if bosstipsex > 8:
+		elseif bosstipsex > 8:
 			'Anatoly Borisovich bent down and spit you on the ass, then you felt his finger collected saliva and you went into the anus.'
 			dynamic $boss_din_anal
 		end
@@ -723,28 +643,26 @@ $boss_din_sex = {
 	act 'Moan':
 		cls
 		bosstipsex = rand(0, 10)
-		gs 'stat'
-		!!bossfuck
-		'<center><img src="images/qwest/sosed/bossfuck.jpg"></center>'
-		'You relax and feel like your lower jaw spread logged into your body hard cock, you could not stand and make a light moan from the feeling of fullness.'
 		$boy = 'Anatoly'
 		dick = 12
 		silavag = 0
 		pose = 1
+		gs 'stat'
+		!!bossfuck
+		'<center><img src="images/qwest/sosed/bossfuck.jpg"></center>'
+		'You relax and feel like your lower jaw spread logged into your body hard cock, you could not stand and make a light moan from the feeling of fullness.'
 		dynamic $sexstart2
 		!!dynamic $sexcum
 		bosswantrand = rand(0, 10)
 
 		if bosswantrand >= 3:
-			set cumass += 1
+			cumass += 1
 			'<<$boy>> took out of you cock and you feel like a stream of sperm you naked by the ass.'
 			'You took a napkin and wiped the sperm with his bare ass, but you are not rubbing, the sperm still left on your body.'
 
 			if PSBBtimes = 1:dynamic $dinBistroWork
 			if PSBBtimes = 2:dynamic $dinBistroWork2
-		end
-
-		if bosswantrand < 3:
+		elseif bosswantrand < 3:
 			'Anatoly Borisovich took a member of your pussy and uper it in your ass.'
 			dynamic $boss_din_anal
 		end
@@ -755,19 +673,19 @@ $boss_din_anal = {
 	act 'Relax the anus':
 		cls
 		bosstipsex = rand(0, 10)
-		gs 'stat'
-		!!bossfuck
-		'<center><img src="images/qwest/sosed/bossanal.jpg"></center>'
-		'You relax and feel like in your anus braced hard cock trying to push your sphincter.'
 		$boy = 'Anatoly'
 		dick = 12
 		silavag = 0
 		pose = 1
+		gs 'stat'
+		!!bossfuck
+		'<center><img src="images/qwest/sosed/bossanal.jpg"></center>'
+		'You relax and feel like in your anus braced hard cock trying to push your sphincter.'
 		dynamic $analsex
 		!!dynamic $sexcum
 		cumanus+= 1
 		'<<$boy>> and groaned as you felt something in your ass was dispensed heat from the sperm.'
-		'Finally Chubais took out your cock and the buttocks took it in his pants.'
+		'Finally Anatoly Borisovich took out your cock and the buttocks took it in his pants.'
 
 		if PSBBtimes = 1:dynamic $dinBistroWork
 		if PSBBtimes = 2:dynamic $dinBistroWork2
@@ -778,29 +696,27 @@ $boss_din_sex2 = {
 	act 'Moan':
 		cls
 		bosstipsex = rand(0, 10)
-		gs 'stat'
-		!!bossfuck
-		'<center><img src="images/qwest/sosed/bossfuck2.jpg"></center>'
-		'You relax and feel like your lower jaw spread logged into your body hard cock, you could not stand and make a light moan from the feeling of fullness.'
 		$boy = 'Anatoly'
 		dick = 12
 		silavag = 0
 		pose = 0
+		gs 'stat'
+		!!bossfuck
+		'<center><img src="images/qwest/sosed/bossfuck2.jpg"></center>'
+		'You relax and feel like your lower jaw spread logged into your body hard cock, you could not stand and make a light moan from the feeling of fullness.'
 		dynamic $sexstart2
 		!!dynamic $sexcum
 
 		bosswantrand = rand(0, 10)
 
 		if bosswantrand >= 3:
-			set cumbelly += 1
+			cumbelly += 1
 			'<<$boy>> took out of you cock and you feel like a stream of sperm you naked by the ass.'
 			'You took a napkin and wiped the sperm with his bare ass, but you are not rubbing, the sperm still left on your body.'
 
 			if PSBBtimes = 1:dynamic $dinBistroWork
 			if PSBBtimes = 2:dynamic $dinBistroWork2
-		end
-
-		if bosswantrand < 3:
+		elseif bosswantrand < 3:
 			'Anatoly Borisovich took a member of your pussy and uper it in your ass.'
 			dynamic $boss_din_anal2
 		end
@@ -811,19 +727,19 @@ $boss_din_anal2 = {
 	act 'Relax the anus':
 		cls
 		bosstipsex = rand(0, 10)
-		gs 'stat'
-		!!bossfuck
-		'<center><img src="images/qwest/sosed/bossanal2.jpg"></center>'
-		'You relax and feel like in your anus braced hard cock trying to push your sphincter.'
 		$boy = 'Anatoly'
 		dick = 12
 		silavag = 0
 		pose = 0
+		gs 'stat'
+		!!bossfuck
+		'<center><img src="images/qwest/sosed/bossanal2.jpg"></center>'
+		'You relax and feel like in your anus braced hard cock trying to push your sphincter.'
 		dynamic $analsex
 		!!dynamic $sexcum
 		cumanus+= 1
 		'<<$boy>> and groaned as you felt something in your ass was dispensed heat from the sperm.'
-		'Finally Chubais took out your cock and the buttocks took it in his pants.'
+		'Finally Anatoly Borisovich took out your cock and the buttocks took it in his pants.'
 
 		if PSBBtimes = 1:dynamic $dinBistroWork
 		if PSBBtimes = 2:dynamic $dinBistroWork2
@@ -832,7 +748,7 @@ $boss_din_anal2 = {
 
 $din_Ivan_work = {
 	if kompromatLife > 0 and kompromatBlackMail = 0:
-		'Ivan grinned "Svetsik, Svetsik. I could not have imagined that such a cute girl, this rich life." he put the photo on your desk. You picked her up and looked. <<$kompromatFoto>>. Ivan gladly stretched like a cat caught the mouse "Svetsik understand, everything would be fine, but our chief claim to a political career. And in politics it´s not just that his secretary loves to act in this way. He, too, will suffer." So, you can collect things and find new employment. "When Anatoly Borisovich know, you fly out of here with a bang."'
+		'Ivan grinned "<<$name>>, <<$name>>. I could not have imagined that such a cute girl, this rich life." he put the photo on your desk. You picked her up and looked. <<$kompromatFoto>>. Ivan gladly stretched like a cat caught the mouse "<<$name>> understand, everything would be fine, but our chief claim to a political career. And in politics it''s not just that his secretary loves to act in this way. He, too, will suffer." So, you can collect things and find new employment. "When Anatoly Borisovich know, you fly out of here with a bang."'
 		dynamic $din_Ivan_work2
 
 		act 'Keep silent':
@@ -869,7 +785,7 @@ $din_Ivan_work2 = {
 				cls
 				kompromatBlackMail = 2
 				gs 'stat'
-				'You undressed feeling the gaze of Ivan. When you were naked in front of him, he slowly walked across the room, staring at you. His hand took you for the chest and you feel his fingers covered your nipple. "Not bad, not bad. Maybe we´ll get along and. Now on your knees bitch and open your fucking mouth wide."'
+				'You undressed feeling the gaze of Ivan. When you were naked in front of him, he slowly walked across the room, staring at you. His hand took you for the chest and you feel his fingers covered your nipple. "Not bad, not bad. Maybe we''ll get along and. Now on your knees bitch and open your fucking mouth wide."'
 
 				act 'Get on your knees and open your mouth':
 					cls
@@ -879,7 +795,7 @@ $din_Ivan_work2 = {
 					boy += 1
 					gs 'stat'
 					'<center><img src="images/qwest/sosed/ivanfacial.jpg"></center>'
-					'You knelt down and opened his mouth. Ivan got dick out of his pants and began to masturbate in front of your face, watching you with his gaze. "I knew you´d be my whore!" sperm from his cock splattered on your face. Then another and another jet. After Ivan finished on your face, he put his dick in his pants and said, "Okay, get out of my office slut, and do not forget, I do not report anything to the chief, but you are in my hands."'
+					'You knelt down and opened his mouth. Ivan got dick out of his pants and began to masturbate in front of your face, watching you with his gaze. "I knew you''d be my whore!" sperm from his cock splattered on your face. Then another and another jet. After Ivan finished on your face, he put his dick in his pants and said, "Okay, get out of my office slut, and do not forget, I do not report anything to the chief, but you are in my hands."'
 
 					if PSBBtimes = 1:dynamic $dinBistroWork
 					if PSBBtimes = 2:dynamic $dinBistroWork2
@@ -899,7 +815,7 @@ $din_Ivan_work3 = {
 		kompromatBlackMail = 1
 		gs 'stat'
 		'<center><img src="images/qwest/sosed/work7.jpg"></center>'
-		'You refused to undress. Ivan sighed. "All the same, you stupid pussy, and I´m tired of messing with you, it is easier to get rid of you once and for all." Ivan went to the door, opened it, and pointed out to you at the door.'
+		'You refused to undress. Ivan sighed. "All the same, you stupid pussy, and I''m tired of messing with you, it is easier to get rid of you once and for all." Ivan went to the door, opened it, and pointed out to you at the door.'
 
 		if PSBBtimes = 1:dynamic $dinBistroWork
 		if PSBBtimes = 2:dynamic $dinBistroWork2
@@ -912,7 +828,7 @@ $din_Ivan_work4 = {
 		kompromatBlackMail = 1
 		gs 'stat'
 		'<center><img src="images/qwest/sosed/work7.jpg"></center>'
-		'You refused. Ivan sighed. "All the same, you stupid pussy, and I´m tired of messing with you, it is easier to get rid of you once and for all." He turned and walked away'
+		'You refused. Ivan sighed. "All the same, you stupid pussy, and I''m tired of messing with you, it is easier to get rid of you once and for all." He turned and walked away'
 
 		act 'Leave':gt 'down'
 	end

+ 33 - 22
locations/balkon

@@ -1,46 +1,57 @@
 # balkon
 if $ARGS[0] = 'start':
-	close all
 	cla
+	clr
 	*clr
-	set minut += 5
+	minut += 5
 	gs 'stat'
 	'<center><b><font color="maroon">Apartment Balcony</font></b></center>'
 
-	!!Картинка!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-	if nude = 0:'<center><img src="images/community/balcony_dressed1.jpg"></center>'
-
-	if nude = 1:
+	if nude = 0:
+		'<center><img src="images/community/balcony_dressed1.jpg"></center>'
+	elseif nude = 1:
 		if tanga = 0:'<center><img src="images/community/balcony_naked1.jpg"></center>'
 		if tanga = 1:'<center><img src="images/community/balcony_underwear1.jpg"></center>'
 	end
 
 	'<center>You went to the balcony.</center>'
-	!!Погода!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-	if hour >= 0 and hour <= 6:'<center>It''s dark outside. Street lamps illuminate the empty street below.</center>'
-
-	if hour = 7:'<center>Morning is dawning out on the street, birds are singing in the trees.</center>'
-	if hour >= 8 and hour <= 19:'<center>It''s clear day out on the street. You can see some people walking by. </center>'
 
-	if hour >= 20 and hour <= 23:'<center>It''s twilight and the street below you is dimly lit.</center>'
+	if hour >= 0 and hour <= 6:
+		'<center>It''s dark outside. Street lamps illuminate the empty street below.</center>'
+	elseif hour = 7:
+		'<center>Morning is dawning out on the street, birds are singing in the trees.</center>'
+	elseif hour >= 8 and hour <= 19:
+		'<center>It''s clear day out on the street. You can see some people walking by. </center>'
+	elseif hour >= 20 and hour <= 23:
+		'<center>It''s twilight and the street below you is dimly lit.</center>'
+	end
 
-	!!Если голая!!!!!
 	if nude = 1:
-		if sosedBalDay ! day:Set temp = rand(1, 4)
-		if sosedBalDay = day:Set temp = rand(1, 3)
-
-		if temp = 1:'<center>You no one pays you any attention.</center>'
-		if temp = 2:'<center>You no one pays you any attention.</center>'
-		if temp = 3:'<center>You no one pays you any attention.</center>'
-
-		if temp = 4:
+		if sosedBalDay ! day:temp = rand(1, 4)
+		if sosedBalDay = day:temp = rand(1, 3)
+
+		if temp = 1:
+			'<center>You no one pays you any attention.</center>'
+		elseif temp = 2:
+			'<center>You no one pays you any attention.</center>'
+		elseif temp = 3:
+			'<center>You no one pays you any attention.</center>'
+		elseif temp = 4:
 			'<center>A neighbor from the opposite building is out on his balcony and looking at your naked body.</center>'
 
 			act 'Look at the neighbor':gt 'balkon2', 'sosed'
 		end
 	end
 
-	if horny >= 50:act 'Masturbate':gt 'balkon2', 'masopt'
+	if sigaret >= 1:
+		act 'Light a cigarette':gt 'balkon2', 'kurit'
+	end
+
+	!!!Probably CV edition
+	if horny >= 50:
+		act 'Masturbate':gt 'balkon2', 'masopt'
+	end
+	!!!
 
 	act 'Leave the balcony':gt 'sitr'
 	act 'Approach the railing':gt 'balkon2', 'niz'

+ 47 - 43
locations/balkon2

@@ -1,13 +1,13 @@
 # balkon2
-!!!!!КУРИТЬ на балконе!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
 if $ARGS[0] = 'kurit':
 	cla
-	*clr
-	set minut += 10
-	set vikureno += 1
-	set siga -= 1
-	set son += 1
 	clr
+	*clr
+	minut += 10
+	vikureno += 1
+	siga -= 1
+	son += 1
 	gs 'stat'
 	'<center><img src="images/etogame/kurit.jpg"></center>'
 	'<center>You lit a cigarette...</center>'
@@ -15,35 +15,35 @@ if $ARGS[0] = 'kurit':
 	act 'Throw a cigarette butt...':gt 'balkon', 'start'
 end
 
-!!!!!Сосед демонстрировать тело!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 if $ARGS[0] = 'demo1':
 	cla
-	*clr
 	clr
-	gs 'stat'
+	*clr
 	horny += rand(30, 50)
-	set minut += 5
-	set sosedBalDay = day
+	minut += 5
+	sosedBalDay = day
+
+	if exhibi = 2:exhibi = 3
+
+	gs 'stat'
+	'<center><font size="5" color="maroon"><b>Balcony</b></font></center>'
 
 	if tanga = 1:'<center><img src="images/community/balcony_underwear3.jpg"></center>'
 	if tanga = 0:'<center><img src="images/community/balcony_naked3.jpg"></center>'
 
 	'<center>You defiantly posing on the balcony, to the delight of the neighbor. He eagerly looking at you furiously masturbate. 5 minutes later he came and went to his apartment.</center>'
 
-	if exhibi = 2:exhibi = 3
-
 	act 'Further':gt 'balkon', 'start'
 end
 
-!!!!!Сосед палец!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 if $ARGS[0] = 'palec1':
 	cla
-	*clr
 	clr
-	gs 'stat'
+	*clr
 	horny += rand(10, 30)
-	set minut += 1
-	set sosedBalDay = day
+	minut += 1
+	sosedBalDay = day
+	gs 'stat'
 
 	if tanga = 1:'<center><img src="images/community/fuckyou_underwear.jpg"></center>'
 	if tanga = 0:'<center><img src="images/community/fuckyou_naked.jpg"></center>'
@@ -53,27 +53,29 @@ if $ARGS[0] = 'palec1':
 	act 'Further':gt 'balkon', 'start'
 end
 
-!!!!!смотреть вниз!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 if $ARGS[0] = 'niz':
 	cla
-	*clr
 	clr
-
+	*clr
 	gs 'stat'
 
-	'<center><font size="5" color="maroon"><b>Balcony</b></font></center>'
-
 	if alcohol < 12:
+		!!!Probably CV edition
 		if nude = 0:'<center><img src="images/community/balcony_dressed2.jpg"></center>'
 		if nude = 1 and tanga = 1:'<center><img src="images/community/balcony_underwear2.jpg"></center>'
 		if nude = 1 and tanga = 0:'<center><img src="images/community/balcony_naked2.jpg"></center>'
-
-		if siga >= 1:act 'Have a cigarette':gt 'balkon2', 'kurit'
+		!!!
 
 		act 'Enjoy the view':
 			cla
 			*clr
-			'<center><img src="images/etogame/bal1.jpg"></center>'
+
+			if hour >=8 and hour <= 19:
+				'<center><img src="images/etogame/bal1.jpg"></center>'
+			else
+				'<center><img src="images/etogame/bal2.jpg"></center>'
+			end
+
 			'<center>You look at the panorama from your private balcony.</center>'
 
 			act 'Further':gt 'balkon', 'start'
@@ -87,8 +89,8 @@ end
 
 if $ARGS[0] = 'sosed':
 	cla
-	*clr
 	clr
+	*clr
 	gs 'stat'
 	'<center><font size="5" color="maroon"><b>Balcony</b></font></center>'
 	'<center><img src="images/etogame/sosed.jpg"></center>'
@@ -98,17 +100,18 @@ if $ARGS[0] = 'sosed':
 	act 'Show pervert thumb':gt 'balkon2', 'palec1'
 end
 
+!!1Probably CV edition
 if $ARGS[0] = 'masopt':
 	cla
 	*clr
 	clr
 	gs 'stat'
-	set minut += 15
-	set mastr += 1
-	set manna += 15
-	set willpower += 15
-	set horny = 0
-	set orgasm += 1
+	minut += 15
+	mastr += 1
+	manna += 15
+	willpower += 15
+	horny = 0
+	orgasm += 1
 	'<center><img src="images/community/balcony_dildo.jpg"></center>'
 
 	if dildo = 1:
@@ -117,8 +120,8 @@ if $ARGS[0] = 'masopt':
 		act 'Yes':
 			cla
 			*clr
-			set vagina += rand(0, 2)
-			set badildo = rand(1, 2)
+			vagina += rand(0, 2)
+			badildo = rand(1, 2)
 
 			if badildo = 1:'<center><img src="images/community/balcony_dildo1.jpg"></center>'
 			if badildo = 2:'<center><img src="images/community/balcony_dildo2.jpg"></center>'
@@ -131,10 +134,10 @@ if $ARGS[0] = 'masopt':
 		act 'Yes, on my ass':
 			cla
 			*clr
-			set minut += 10
-			set analorgasm += 1
-			set anal += 1
-			set anus += rand(0, 2)
+			minut += 10
+			analorgasm += 1
+			anal += 1
+			anus += rand(0, 2)
 			'<center><img src="images/community/balcony_anal1.gif"></center>'
 			'<center>I feel that my whole ass is burning</center>'
 
@@ -151,7 +154,7 @@ if $ARGS[0] = 'masopt':
 	act iif(dildo = 1, 'No', 'Finger'):
 		cla
 		*clr
-		set vagina += rand(0, 1)
+		vagina += rand(0, 1)
 		gt 'balkon2', 'finger'
 	end
 end
@@ -181,13 +184,13 @@ if $ARGS[0] = 'finger':
 				'<center><img src="images/community/balcony_mas1-4.jpg"></center>'
 				if exhibi >= 0:
 
-					if exhibi = 1:set exhibi = 2
+					if exhibi = 1:exhibi = 2
 					'<center>You look around to see if you have an audience.</center>'
 
-					set visit = rand(0, 0)
+					visit = rand(0, 0)
 
 					if visit = 0:
-						set vagina += 1
+						vagina += 1
 						'<center>You can''t see anyone.</center>'
 
 						act 'insert fingers':gt 'balkon2', 'finger_solo'
@@ -259,5 +262,6 @@ if $ARGS[0] = 'finger_solo':
 		end
 	end
 end
+!!!
 
 --- balkon2 ---------------------------------

+ 12 - 12
locations/bank

@@ -1,22 +1,22 @@
 # bank
 if $ARGS[0] = 'start':
 	cla
-	*clr
-	set minut += 5
-	'<center><b><font color="maroon">Bank</font></b></center>'
-	'<center><img src="images/etogame/bank.jpg"></center>'
 	clr
+	*clr
+	minut += 5
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
 	lcolor = rgb(106, 90, 205)
+	'<center><b><font color="maroon">Bank</font></b></center>'
+	'<center><img src="images/etogame/bank.jpg"></center>'
 
 	if karta > 0:'In the bank <<karta>> rubles'
 
 	if BankPapper = 1 and dayBankPapper = day:
 		act 'Giving documents':
 			cls
-			set minut += 15
+			minut += 15
 			BankPapper = 2
 			gs 'stat'
 			'You went to the office and gave the documents to the manager.'
@@ -28,14 +28,14 @@ if $ARGS[0] = 'start':
 	if money > 0:
 		act 'Deposit money':
 			cla
-			set minut += 5
+			minut += 5
 			kartaIN = input ("How much money you want to deposit into the account?")
 
 			if kartaIN <= 0 or kartaIN > money:
 				'Not correct operation.'
 			else
-				set karta += kartaIN
-				set money -= kartaIN
+				karta += kartaIN
+				money -= kartaIN
 				'You put on the account <<kartaIN>> rubles, now on your account <<karta>> rubles.'
 			end
 
@@ -46,14 +46,14 @@ if $ARGS[0] = 'start':
 	if karta > 0:
 		act 'Withdrawing money':
 			cla
-			set minut += 5
+			minut += 5
 			kartaOUT = input ("How much do you want to withdraw from account?")
 
 			if kartaOUT <= 0 or kartaOUT > karta:
 				'Not correct operation.'
 			else
-				set karta -= kartaOUT
-				set money += kartaOUT
+				karta -= kartaOUT
+				money += kartaOUT
 				'You debited <<kartaOUT>> rubles, now on your account <<karta>> rubles.'
 			end
 
@@ -61,7 +61,7 @@ if $ARGS[0] = 'start':
 		end
 	end
 
-	act 'Exit':gt 'down'
+	act 'Leave':gt 'down'
 end
 
 --- bank ---------------------------------

+ 0 - 4
locations/bar

@@ -1,4 +0,0 @@
-# bar
-act 'Back in the hall':gt 'hall'
-
---- bar ---------------------------------

+ 67 - 67
locations/barbershop

@@ -3,7 +3,7 @@
 $pokraska = {
 	clr
 	cla
-	set money -= 750
+	money -= 750
 	'You ask the barber, if he could dye your hair.'
 	'"Sure.", he says.'
 	'"Which colour would like to have your hair dyed in?"'
@@ -19,8 +19,8 @@ $pokraska = {
 			act 'Sit down':
 				cla
 				*clr
-				set minut += 45
-				set hcol = 0
+				minut += 45
+				hcol = 0
 				'Not even an hour later everything seems to have dried up.'
 				'He removes the dryer hood. "And we''re all done."'
 				'You stand up from the chair and pay him 750 rubles.'
@@ -41,8 +41,8 @@ $pokraska = {
 			act 'Sit down':
 				cla
 				*clr
-				set minut += 45
-				set hcol = 1
+				minut += 45
+				hcol = 1
 				'45 minutes later, everything should be dried up.'
 				'He removes the dryer hood. "And we''re all done."'
 				'You stand up from the chair and pay him 750 rubles.'
@@ -63,8 +63,8 @@ $pokraska = {
 			act 'Sit down':
 				cla
 				*clr
-				set minut += 45
-				set hcol = 2
+				minut += 45
+				hcol = 2
 				'45 minutes later, everything should be dried up.'
 				'He removes the dryer hood. "And we''re all done."'
 				'You stand up from the chair and pay him 750 rubles.'
@@ -84,8 +84,8 @@ $pokraska = {
 			act 'Sit down':
 				cla
 				*clr
-				set minut += 45
-				set hcol = 3
+				minut += 45
+				hcol = 3
 				'About an hour later, everything should be dried up.'
 				'He removes the dryer hood. "And we''re all done."'
 				'You stand up from the chair and pay him 750 rubles.'
@@ -99,9 +99,9 @@ $pokraska = {
 }
 
 $zavivka = {
-	set minut += 20
-	set curly += 10
-	set money -= 300
+	minut += 20
+	curly += 10
+	money -= 300
 	'You have your hair curled'
 	gs 'stat'
 	gt 'barbershop', 'start'
@@ -110,7 +110,7 @@ $zavivka = {
 $cuthair = {
 	cla
 	*clr
-	set money -= 500
+	money -= 500
 	'You approach the barber and ask, "Hi, I would like to get my hair cut."'
 	'"Of course, at which length do you want to have your hair at?", he asks you.'
 
@@ -124,8 +124,8 @@ $cuthair = {
 			act 'Sit down':
 				cla
 				*clr
-				set minut += 30
-				set hairlength = 10
+				minut += 30
+				hairlength = 10
 				'About half an hour later he is done and what''s left from you former hairstyle is a very short buzzcut.'
 				'You stand up and pay him at the counter.'
 
@@ -150,10 +150,10 @@ $cuthair = {
 					act 'Yes':
 						cla
 						*clr
-						set minut += 20
-						set hairlength = 31
-						set hbangs = 1
-						set hapri = 1
+						minut += 20
+						hairlength = 31
+						hbangs = 1
+						hapri = 1
 						'20 minutes later, he is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
 						'You stand up and pay him at the counter.'
 
@@ -163,9 +163,9 @@ $cuthair = {
 					act 'No':
 						cla
 						*clr
-						set minut += 20
-						set hairlength = 31
-						set hapri = 1
+						minut += 20
+						hairlength = 31
+						hapri = 1
 						'20 minutes later, he is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
 						'You stand up and pay the barber at the counter.'
 
@@ -174,9 +174,9 @@ $cuthair = {
 				else
 					cla
 					*clr
-					set minut += 20
-					set hairlength = 31
-					set hapri = 1
+					minut += 20
+					hairlength = 31
+					hapri = 1
 					'20 minutes later, he is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
 					'You stand up and pay him at the counter.'
 
@@ -202,10 +202,10 @@ $cuthair = {
 					act 'Yes':
 						cla
 						*clr
-						set minut += 20
-						set hairlength = 81
-						set hbangs = 1
-						set hapri = 1
+						minut += 20
+						hairlength = 81
+						hbangs = 1
+						hapri = 1
 						'20 minutes later, he is done cutting your hair. Your new hairstyle goes down to you chin-line and you have a fringe, covering your forehead.'
 						'You stand up and pay him at the counter.'
 
@@ -215,9 +215,9 @@ $cuthair = {
 					act 'No':
 						cla
 						*clr
-						set minut += 30
-						set hairlength = 81
-						set hapri = 1
+						minut += 30
+						hairlength = 81
+						hapri = 1
 						'20 minutes later, he is done cutting your hair.'
 						'You stand up and pay him at the counter.'
 
@@ -226,9 +226,9 @@ $cuthair = {
 				else
 					cla
 					*clr
-					set minut += 20
-					set hairlength = 31
-					set hapri = 1
+					minut += 20
+					hairlength = 31
+					hapri = 1
 					'20 minutes later, he is done cutting your hair.'
 					'You stand up and pay him at the counter.'
 
@@ -254,10 +254,10 @@ $cuthair = {
 					act 'Yes':
 						cla
 						*clr
-						set minut += 20
-						set hairlength = 161
-						set hbangs = 1
-						set hapri = 1
+						minut += 20
+						hairlength = 161
+						hbangs = 1
+						hapri = 1
 						'20 minutes later, he is done cutting your hair. Your hair now goes just to your shoulders and you have a fringe, covering your forehead.'
 						'You stand up and pay him at the counter.'
 
@@ -267,9 +267,9 @@ $cuthair = {
 					act 'No':
 						cla
 						*clr
-						set minut += 30
-						set hairlength = 161
-						set hapri = 1
+						minut += 30
+						hairlength = 161
+						hapri = 1
 						'30 minutes later, he is done cutting your hair. Your hair is now just slightly longer, than your shoulders.'
 						'You stand up and pay him at the counter.'
 
@@ -278,9 +278,9 @@ $cuthair = {
 				else
 					cla
 					*clr
-					set minut += 20
-					set hairlength = 161
-					set hapri = 1
+					minut += 20
+					hairlength = 161
+					hapri = 1
 					'20 minutes later, he is done cutting your hair. Your hair is now just slightly longer, than your shoulders.'
 					'You stand up and pay him at the counter.'
 
@@ -306,10 +306,10 @@ $cuthair = {
 					act 'Yes':
 						cla
 						*clr
-						set minut += 20
-						set hairlength = 261
-						set hbangs = 1
-						set hapri = 1
+						minut += 20
+						hairlength = 261
+						hbangs = 1
+						hapri = 1
 						'20 minutes later, he is done cutting your hair. He cut your hair back to about the height of where your bra sits, in addition he made you a fringe, which covers your forehead, as requested.'
 						'You stand up and pay him at the counter.'
 
@@ -319,9 +319,9 @@ $cuthair = {
 					act 'No':
 						cla
 						*clr
-						set minut += 20
-						set hairlength = 261
-						set hapri = 1
+						minut += 20
+						hairlength = 261
+						hapri = 1
 						'20 minutes later, he is done cutting your hair. She cut your hair back to about the line where your bra sits.'
 						'You stand up and pay him at the counter.'
 
@@ -330,9 +330,9 @@ $cuthair = {
 				else
 					cla
 					*clr
-					set minut += 20
-					set hairlength = 261
-					set hapri = 1
+					minut += 20
+					hairlength = 261
+					hapri = 1
 					'20 minutes later, he is done cutting your hair. She cut your hair back to about the line where your bra sits.'
 					'You stand up and pay him at the counter.'
 
@@ -358,10 +358,10 @@ $cuthair = {
 					act 'Yes':
 						cla
 						*clr
-						set minut += 20
-						set hairlength = 401
-						set hbangs = 1
-						set hapri = 1
+						minut += 20
+						hairlength = 401
+						hbangs = 1
+						hapri = 1
 						'20 minutes later, he is done cutting your hair. He just cuts the tips of your, barely making it any shorter and as requested, he cut you a nice fringe, which now covers your forehead.'
 						'You stand up and pay the barber at the counter.'
 
@@ -371,9 +371,9 @@ $cuthair = {
 					act 'No':
 						cla
 						*clr
-						set minut += 20
-						set hairlength = 401
-						set hapri = 1
+						minut += 20
+						hairlength = 401
+						hapri = 1
 						'20 minutes later, he is done cutting your hair.'
 						'You stand up and pay the barber at the counter.'
 
@@ -382,9 +382,9 @@ $cuthair = {
 				else
 					cla
 					*clr
-					set minut += 20
-					set hairlength = 401
-					set hapri = 1
+					minut += 20
+					hairlength = 401
+					hapri = 1
 					'20 minutes later, he is done cutting your hair.'
 					'You stand up and pay him at the counter.'
 
@@ -427,12 +427,12 @@ if $ARGS[0] = 'start':
 		cls
 		'The barber shop is closed at the moment, you should probably come back, when he''s in'
 
-		act 'Leave':set minut += 2 & gt 'gorodok'
+		act 'Leave':minut += 2 & gt 'gorodok'
 
 		exit
 	end
 
-	act 'Leave':set minut += 2 & gt 'gorodok'
+	act 'Leave':minut += 2 & gt 'gorodok'
 end
 
 if money >= 60:

+ 64 - 68
locations/bass

@@ -1,26 +1,26 @@
 # bass
 	if $ARGS[0] = 'start':
 		cla
-		*clr
-		set minut += 5
-		'<center><b><font color="maroon">Pool</font></b></center>'
-		'<center><img src="images/etogame/bass.jpg"></center>'
 		clr
+		*clr
+		minut += 5
 		gs 'stat'
 		fcolor = rgb(0, 0, 0)
 		bcolor = rgb(255, 255, 255)
 		lcolor = rgb(106, 90, 205)
+		'<center><b><font color="maroon">Pool</font></b></center>'
+		'<center><img src="images/etogame/bass.jpg"></center>'
 		'Entrance to the pool is worth 100 rubles, you must have a swimsuit.'
 
-		act 'Leave':set minut += 5 & gt 'down'
+		act 'Leave':minut += 5 & gt 'down'
 
 		if db >= 1 and bikini > 0 and Goraday ! day:act 'Search ZHoru':Goraday = day & gt 'klofdomhouse', 'ev42'
 
 		if money >= 100 and bikini > 0:
 			act 'To pay 100 rubles per 1 hour in the pool':
 			cla
-			set minut += 5
-			set money -= 100
+			minut += 5
+			money -= 100
 			gt 'bass', 'a'
 		end
 	end
@@ -29,7 +29,7 @@ end
 if $ARGS[0] = 'a':
 	cla
 	*clr
-	set minut += 5
+	minut += 5
 	'<center><b><font color="maroon">Pool</font></b></center>'
 
 	if magik < 4:'<center><img src="images/etogame/bass.jpg"></center>'
@@ -41,13 +41,13 @@ if $ARGS[0] = 'a':
 		act 'Watch for swimmers':
 			cla
 			*clr
-			set kisameQW = 1
-			set minut += 60
-			set sweat = -3
-			set manna += 5
-			set willpower += 5
+			kisameQW = 1
+			minut += 60
+			sweat = -3
+			manna += 5
+			willpower += 5
 
-			if stren < 30:set stren += 1
+			if stren < 30:stren += 1
 
 			'<center><img src="images/qwest/kisame.jpg"></center>'
 			'Athlete put on a towel and walked up to you. He smiled and said "Hi sweetie My name is Kisame just for you Kitty!"'
@@ -55,7 +55,7 @@ if $ARGS[0] = 'a':
 			act 'Hi! I <<$name>>.':
 				cla
 				'(You) - Hi! I <<$name>>.'
-				'(Plavec) - Svetsik can swim together?'
+				'(Plavec) - <<$name>> can swim together?'
 				'Kisame without waiting grabs you by the waist and powerful jump jumps to the middle of the pool.'
 
 				act 'Next.':gt 'kisameQW', 'start'
@@ -71,43 +71,39 @@ if $ARGS[0] = 'a':
 				act 'Next.':gt 'kisameQW', 'start'
 			end
 		end
-	end
-
-	if kisameQW = 1 and KisameDead < 1:
+	elseif kisameQW = 1 and KisameDead < 1:
 		'<center><img src="images/qwest/kisameV.jpg"></center>'
 		'Seeing you akulopodobny Kisame smiling "Hi baby. Want me to fill your hot mouth his shark-seed?"'
 
 		act 'Attack (Kisame mag10)':
 			cla
-			set horny += 10
-			set $nameV = 'Kisame'
+			horny += 10
+			$nameV = 'Kisame'
 			!!stats
-			set strenV = 300
-			set speedV = 100
-			set agilV = 100
-			set reactV = 100
-			set vitalV = 200
-			set intelV = 100
-			set willV = 50
+			strenV = 300
+			speedV = 100
+			agilV = 100
+			reactV = 100
+			vitalV = 200
+			intelV = 100
+			willV = 50
 			!!skills
-			set magikV = 10
-			set boxingV = 100
-			set shootV = 100
+			magikV = 10
+			boxingV = 100
+			shootV = 100
 			!!parameters
-			set healthV = vitalV * 10 + strenV * 5
-			set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
-			set willpowerV = willV * 10
-			set BonusAtakV = 0
-			set BonusDefV = 0
+			healthV = vitalV * 10 + strenV * 5
+			mannaV = intelV * magikV + magikV * 100 + vitalV * 10
+			willpowerV = willV * 10
+			BonusAtakV = 0
+			BonusDefV = 0
 			!!Programme of Action
-			set program = 5
-			!!!!!!!!!!!!!!!!!!!!
-			!!!!!!!!!!!!!!!!!!!!
-			set KisaFight = 1
-			set klonV = 5
-			set defenceV = 800
+			program = 5
+			KisaFight = 1
+			klonV = 5
+			defenceV = 800
 
-			if spellavtoklon = 1:set klon = 3
+			if spellavtoklon = 1:klon = 3
 
 			gt 'fight', 'start'
 		end
@@ -115,18 +111,18 @@ if $ARGS[0] = 'a':
 		act 'Make him a blowjob under water':
 			cla
 			*clr
-			set minut += 60
-			set horny += 100
-			set sweat = -3
-			set manna += 5
-			set willpower += 5
-
-			if stren < 40:set stren += 1
-			if KisameSex = 0:set KisameSex = 1 & Set guy += 1
-
-			set bj += 1
-			set swallow += 1
-			set SUB += 1
+			minut += 60
+			horny += 100
+			sweat = -3
+			manna += 5
+			willpower += 5
+
+			if stren < 40:stren += 1
+			if KisameSex = 0:KisameSex = 1 & Set guy += 1
+
+			bj += 1
+			swallow += 1
+			SUB += 1
 			'<center><img src="images/qwest/kisameBJ.jpg"></center>'
 			'You downcast eyes, Kisame smiled even wider and dragged you into the water. His strong hands pressed your face to his groin and you wrapped around his dick lips quite quickly Kisame finished your mouth.'
 
@@ -137,22 +133,22 @@ if $ARGS[0] = 'a':
 	act 'Swim (1:00)':
 		cla
 		*clr
-		set cumpussy = 0
-		set cumbelly = 0
-		set cumass = 0
-		set cumanus =0
-		set cumlip = 0
-		set cumface = 0
-		set cumfrot = 0
-		set minut += 60
-		set sweat = -3
-		set manna += 5
-		set willpower += 5
-
-		if stren < 40:set stren += 1
+		cumpussy = 0
+		cumbelly = 0
+		cumass = 0
+		cumanus =0
+		cumlip = 0
+		cumface = 0
+		cumfrot = 0
+		minut += 60
+		sweat = -3
+		manna += 5
+		willpower += 5
+
+		if stren < 40:stren += 1
 
 		'<center><img src="images/pics/swim.jpg"></center>'
-		'You iskupnulis in the pool, the water refreshes and invigorates.'
+		'You swim in the pool, the water refreshes and invigorates.'
 
 		act 'Out of the water':gt 'bass', 'start'
 	end

+ 90 - 100
locations/bed

@@ -2,10 +2,10 @@
 if $ARGS[0] = 'start':
 	cla
 	clr
-	set shour = 24 - hour
+	shour = 24 - hour
+	houserabrand = rand(0, 100)
+	housevorrand = rand(0, 200)
 	gs 'stat'
-	set houserabrand = rand(0, 100)
-	set housevorrand = rand(0, 200)
 
 	if hour > 22 and houserabrand < 2 and houserab = 1 and houserabday ! day and son < 10 and tanhouse1 = 1:gt 'bed', 'rab'
 	if hour > 22 and housevorrand = 0 and housrA = 1 and husband = 0:gt 'bed', 'vor'
@@ -13,7 +13,7 @@ if $ARGS[0] = 'start':
 	if nude = 0:'<center><img src="images/pics/bed.jpg"></center>'
 	if nude = 1:'<center><img src="images/pics/son.jpg"></center>'
 
-	'You lie on the bed. Alarm set for <<timer>> hours <<timerM>> minutes.'
+	'You lie on the bed. Alarm for <<timer>> hours <<timerM>> minutes.'
 
 	if mop ! 1:'<b><font color="red">Need to wash off makeup before going to bed.</font></b>'
 	!!if daystart < 10:''
@@ -33,11 +33,11 @@ if $ARGS[0] = 'start':
 		act 'Masturbate':
 			cla
 			*clr
-			set minut += 30
-			set mastr += 1
-			set manna += 15
-			set willpower += 15
-			set vagina += 1
+			minut += 30
+			mastr += 1
+			manna += 15
+			willpower += 15
+			vagina += 1
 
 			if husband > 0 and housrA = 1 and husbandrink ! 10:
 				if week > 5 or week < 6 and hour > 16:
@@ -51,20 +51,18 @@ if $ARGS[0] = 'start':
 
 					if harakHusb = 0:
 						'"What are you doing dear?" he asks.'
-						'"I´m sorry dear, but I really need, and you´ve been busy, " you reply, without stopping to masturbate.'
+						'"I''m sorry dear, but I really need, and you''ve been busy, " you reply, without stopping to masturbate.'
 						'"And often you do that, " he asks.'
 						'"Owned so often, less often in the ass, if you want to see?" asked you'
 
 						if izvratH = 0:
-							set husband -= 1
-							'"I´ll wait outside the door until you´re done, " he said and left. You continued to satisfy themselves rapidly and soon finished.'
-							set horny = 0
-							set orgasm += 1
+							husband -= 1
+							'"I''ll wait outside the door until you''re done, " he said and left. You continued to satisfy themselves rapidly and soon finished.'
+							horny = 0
+							orgasm += 1
 
 							act 'Finish':gt 'bed', 'start'
-						end
-
-						if izvratH = 1:
+						elseif izvratH = 1:
 							'"Well, I do not know, " he stammered.'
 							'"So you want" you said'
 
@@ -79,9 +77,9 @@ if $ARGS[0] = 'start':
 								act 'Solve':
 									cla
 									*clr
-									set analorgasm += 1
-									set orgasm += 1
-									set horny = 0
+									analorgasm += 1
+									orgasm += 1
+									horny = 0
 									'<center><img src="images/img/hasb/m23.jpg"></center>'
 									'<<$husName>> gets dick and starts masturbating, it is not what you expected, and at first you even felt a little sad that he did not enter into you, and began to masturbate, but then you start it even start. Have you looked at her husband who masturbate looking at the way you drive the dildo his popkui be covered and you pleasure, you screamed and fell to the table, having experienced an orgasm, dildo still sticking out of your ass. <<$husName>> yarosno masturbate looking at you stretched out on the table, you took the dildo from ass and began to lick it, looking into the eyes of her husband, from such a spectacle he immediately discharged onto the floor. You are drawn to him sticking out his lips, in a second he had passionately kissed you.'
 
@@ -89,27 +87,23 @@ if $ARGS[0] = 'start':
 								end
 							end
 						end
-					end
-
-					if harakHusb = 1:
-						'"That´s a number I mean you is not enough?" he asks.'
-						'"I´m sorry dear, but I really need, and you´ve been busy, " you reply, without stopping to masturbate.'
-						'"Well then, show me everything that you know how I´ll look, " he says.'
+					elseif harakHusb = 1:
+						'"That''s a number I mean you is not enough?" he asks.'
+						'"I''m sorry dear, but I really need, and you''ve been busy, " you reply, without stopping to masturbate.'
+						'"Well then, show me everything that you know how I''ll look, " he says.'
 						'"And how do I do it in the ass, too, to show?" asked you'
 
 						if izvratH = 0:
-							set husband += 1
-							set husbizvradd += 1
-							'"No, do not, and yet that´s enough, " he said, and sat down on a chair began to watch. You continued to satisfy themselves rapidly and soon finished in front of her husband. <<$husName>> stood up and began to applaud "Bravo and encore again?" he said laughing.'
+							husband += 1
+							husbizvradd += 1
+							'"No, do not, and yet that''s enough, " he said, and sat down on a chair began to watch. You continued to satisfy themselves rapidly and soon finished in front of her husband. <<$husName>> stood up and began to applaud "Bravo and encore again?" he said laughing.'
 							'"For such a lovely audience anything, but only after the intermission, " you laughed. <<$husName>> helped you get down from the table.'
-							set horny = 0
-							set orgasm += 1
+							horny = 0
+							orgasm += 1
 
 							act 'Finish':gt 'bed', 'start'
-						end
-
-						if izvratH = 1:
-							set husband += 1
+						elseif izvratH = 1:
+							husband += 1
 							'"And how is it necessarily demonstrate" he said.'
 							'"Anything you want, " you said'
 
@@ -119,67 +113,63 @@ if $ARGS[0] = 'start':
 								'<center><img src="images/img/hasb/m22.jpg"></center>'
 								'You pull out the dildo from pussy and winking at her husband, insert a dildo in her anus. <<$husName>> closely watched as the dildo disappears in your ass and then reappears. Do you see how his pants swell.'
 								'"Dear anything else you want?" smiling you ask.'
-								'"I do not just want to but I´ll do, " he said, unbuttoning his pants and substitute member of your face.'
+								'"I do not just want to but I''ll do, " he said, unbuttoning his pants and substitute member of your face.'
 
 								act 'Take by mouth':
 									cla
 									*clr
 									'<center><img src="images/img/hasb/m24.jpg"></center>'
-									'You enfold him some more flaccid penis and start sucking lips, continuing to drive the dildo his anus. When his cock finally firmed, <<$husName>> to stop you, "Well, now I´ll take this hole."'
+									'You enfold him some more flaccid penis and start sucking lips, continuing to drive the dildo his anus. When his cock finally firmed, <<$husName>> to stop you, "Well, now I''ll take this hole."'
 
 									act 'Substitute ass':
-										set picrand = 89
+										picrand = 89
 										gt 'sex', 'anal'
 									end
 								end
 							end
 						end
-					end
-
-					if harakHusb = 2:
+					elseif harakHusb = 2:
 						'"What hole itching?" he asks.'
-						'"I´m sorry dear, but I really need, and you´ve been busy, " you reply, without stopping to masturbate.'
+						'"I''m sorry dear, but I really need, and you''ve been busy, " you reply, without stopping to masturbate.'
 
 						if izvratH = 0:
-							set husband += 1
-							set husbizvradd += 1
-							'"Well then, open your mouth, " he said pulling member and rudely pushing it in your mouth, he held you by the hair and fucked in the mouth, saying something you did not stop masturbating. Soon he was tired of your mouth, "Now take out of this hole rubber stuff, now I´m going to fuck you"'
+							husband += 1
+							husbizvradd += 1
+							'"Well then, open your mouth, " he said pulling member and rudely pushing it in your mouth, he held you by the hair and fucked in the mouth, saying something you did not stop masturbating. Soon he was tired of your mouth, "Now take out of this hole rubber stuff, now I''m going to fuck you"'
 
 							act 'Spread her legs ':
-								set picrand = 89
+								picrand = 89
 								gt 'sex', 'vag'
 							end
-						end
-
-						if izvratH = 1:
-							set husband += 1
-							set SUB += 1
-							'"Insert this crap myself in the ass and mash, I´ll popolzuyut it, as long as pine Quick" he said, pulling member. You quickly rearrange the dildo from pussy anus and mouth open submissively.'
+						elseif izvratH = 1:
+							husband += 1
+							SUB += 1
+							'"Insert this crap myself in the ass and mash, I''ll popolzuyut it, as long as pine Quick" he said, pulling member. You quickly rearrange the dildo from pussy anus and mouth open submissively.'
 
 							act 'Take by mouth':
 								cla
 								*clr
 								'<center><img src="images/img/hasb/m24.jpg"></center>'
-								'You enfold him some more flaccid penis and start sucking lips, continuing to drive the dildo his anus. When his cock finally firmed, <<$husName>> stopped you "All cup your point now I´m ass Flare."'
+								'You enfold him some more flaccid penis and start sucking lips, continuing to drive the dildo his anus. When his cock finally firmed, <<$husName>> stopped you "All cup your point now I''m ass Flare."'
 
 								act 'Substitute ass':
-									set picrand = 89
+									picrand = 89
 									gt 'sex', 'anal'
 								end
 							end
 						end
 					end
 				else
-					set horny = 0
-					set orgasm += 1
+					horny = 0
+					orgasm += 1
 					'<center><img src="images/pics/mastr.gif"></center>'
 					'You dildo stuck to the floor and planted her wet pussy on him, jumping on the artificial active member you will quickly feel the excitement and orgasm you covered.'
 
 					act 'Breathe':gt 'bed', 'start'
 				end
 			else
-				set horny = 0
-				set orgasm += 1
+				horny = 0
+				orgasm += 1
 				'<center><img src="images/pics/mastr.gif"></center>'
 				'You dildo stuck to the floor and planted her wet pussy on him, jumping on the artificial active member you will quickly feel the excitement and orgasm you covered.'
 
@@ -199,45 +189,47 @@ if $ARGS[0] = 'fin':
 	gt $locM, $metkaM
 	!savegame 'avtosave.sav'
 
-	!'if housr = 1 and housrA = 1:
-		if nude = 0:set $nude = 'In the corridor'
-		if nude = 1:set $nude = 'get_dressed'
+	!'
+	if housr = 1 and housrA = 1:
+		if nude = 0:$nude = 'In the corridor'
+		if nude = 1:$nude = 'get_dressed'
 
-		set housrA = 0
+		housrA = 0
 		gt'bedr'
 	end
 
 	if houseob = 1:
-		set houseob = 0
+		houseob = 0
 		gt'obroom','start'
 	end
 
 	if tanhouse1 = 1:
-		set tanhouse1 = 0
+		tanhouse1 = 0
 		gt'spalnya'
-	end'!
+	end
+	'!
 end
 
 if $ARGS[0] = 'rab':
 	cla
 	*clr
-	set minut += 120
-	set houserabday = day
+	minut += 120
+	houserabday = day
 	'<center><img src="images/img/th/r0.jpg"></center>'
 	'Once you get into bed as you mistress comes into the room, "What a bitch sleep going?" she said from the doorway.'
 	'"Yes, " you reply.'
 	'"Yes, who?" she continues.'
-	'"Yes, ma´am, " you reply and sit on the bed, she was drunk and barely standing on his feet and in his hands a bottle of wine from which it often takes a sip.'
-	'"That´s better, but today you have to be punished, " she lifts up her skirt and she jumps out from under the strap. "Suck, " she commanded.'
+	'"Yes, ma''am, " you reply and sit on the bed, she was drunk and barely standing on his feet and in his hands a bottle of wine from which it often takes a sip.'
+	'"That''s better, but today you have to be punished, " she lifts up her skirt and she jumps out from under the strap. "Suck, " she commanded.'
 
 	act 'Take by mouth':
 		cla
 		*clr
-		set SUB += 2
-		set lesbian += 1
+		SUB += 2
+		lesbian += 1
 
-		if analplugIN = 1:set analplugIN = 0
-		if mop ! 1:set mop = 0
+		if analplugIN = 1:analplugIN = 0
+		if mop ! 1:mop = 0
 
 		'<center><img src="images/img/th/r1.jpg"></center>'
 		'You took the strap in his mouth and started sucking him off, not the taste of rubber gives you pleasure and you did it without much enthusiasm. Hostess, though she was drunk, but perfectly vidila that you do not try, then she started to beat podmahivat your movements, driving him deeper into your mouth. You become suspended on and did not like it.'
@@ -247,17 +239,17 @@ if $ARGS[0] = 'rab':
 			cla
 			*clr
 			'<center><img src="images/img/th/r2.jpg"></center>'
-			'You lay on the bed and she climbed on top of you and kneeling over you, you vskhvatila his head and forcefully planted his mouth on the strap. You tried to pull away, but it was useless, her hands firmly held your head. She continued to rape your mouth, you hardly catch the moment that-be for air, and she thrust her it deeper and deeper, eventually he started to slip down your throat, and breathing was absolutely nothing. When you´re starting to lose consciousness she took it out of your throat and you handled on its side, wheezing sniffed.'
+			'You lay on the bed and she climbed on top of you and kneeling over you, you vskhvatila his head and forcefully planted his mouth on the strap. You tried to pull away, but it was useless, her hands firmly held your head. She continued to rape your mouth, you hardly catch the moment that-be for air, and she thrust her it deeper and deeper, eventually he started to slip down your throat, and breathing was absolutely nothing. When you''re starting to lose consciousness she took it out of your throat and you handled on its side, wheezing sniffed.'
 			'"And now to punishment, get up cancer, " she said. "And what if it was" you think, but do not say the hearing began.'
 
 			act 'Rise in a pose':
 				cla
 				*clr
-				set anal += 1
+				anal += 1
 				'<center><img src="images/img/th/r3.jpg"></center>'
-				'You get up on all fours on the bed. "But it´s too much, " said the hostess, and erases your saliva with the strap, "You need to punish, not pooscherit. Spreading ass."'
+				'You get up on all fours on the bed. "But it''s too much, " said the hostess, and erases your saliva with the strap, "You need to punish, not pooscherit. Spreading ass."'
 				'Realizing that you will you breed buttocks with his hands and try to relax your ass, but you did not try, the pain pierces your body when it is with force pushes the strap you in the anus and not giving your ass to get used to gaining crazy pace, you let your buttocks and seizes blanket with hands and teeth. Tears poured from my eyes, you whine, but she still continues, finally a little tired it lowers the tempo and asks, "Well, it hurts."'
-				'"Yes ma´am, very hurt" through tears you say.'
+				'"Yes ma''am, very hurt" through tears you say.'
 				'"Well, today I have a good bit smazhem" she says, and begins pouring wine from a bottle on the strap and your ass.'
 				'"Thank you, Mrs." you say, and it is again gaining momentum. First, you got a little easier, but then the wine is dry and start to dry your skin, you become so much hurt by what you already screaming with laughter. "Why did not anyone come in and not hurt her, " you think, because your cries have been heard not only in the apartment, but also around the entrance, but no one came, neither Tanya nor Nicholas. Finally she was tired, and removing the strap out of the room without saying anything. You collapsed on the bed and whined, your ass was on fire and you were afraid to even move after spending an hour so you are asleep.'
 
@@ -270,16 +262,16 @@ if $ARGS[0] = 'rab':
 		act 'Refuse':
 			cla
 			*clr
-			set DOM += 1
-			set lesbian += 1
-			set orgasm += 1
-			set houserab = 2
+			DOM += 1
+			lesbian += 1
+			orgasm += 1
+			houserab = 2
 			'<center><img src="images/img/th/r4.jpg"></center>'
 			'"No, " you reply.'
 			'"Are you syavka vyaknula, suck alive while not become worse, " she started up.'
 			'"No, " answered you again.'
 			'"All right, you asked for it myself, " she screamed and swung, going to hit you, you did not wait for punch and kick her in the stomach.'
-			'"Bitch, " she moaned, bending in half. And then you have suffered, you jumped out of bed and vskhvativ her head hit the knee in the face, she flew into the corner, but you do not calm down, remembering the taste of her dirty boots and sneakers you get up to her and started to push it into his mouth, When you could not shove it in its entirety, you threw away and sneakers vskhvativ her hair yanked off the floor and thrown on the bed. It was lying on the bed covering her face with her hands, you jumped on the bed and embarking on her face sat on top of her. "Lick bitch lick" you yell, she tried to throw you, but nothing happened, you got right in her face, continuing to yell something she licked, you will soon feel her tongue on her pussy, but you did not care you fidgeted on her face increasing pace, soon you started excited. She did not resist sticking his tongue out and tried to catch them to your pussy, terevshuyusya wildly about her face. You start to like her submissive and you get more excited thinking about what you nasiluete it, you have even begun to think about something to put her strap-on and have fun with it as you began to lay an orgasm, you shrank his crotch in her face and finished . When you finally got off her, her whole face was covered in your discharge, she quietly got out of bed, straightened his clothes and left the room leaving you goodbye "Creature." She obviously did not forget, now you should be careful, who knows what´s on her mind.'
+			'"Bitch, " she moaned, bending in half. And then you have suffered, you jumped out of bed and vskhvativ her head hit the knee in the face, she flew into the corner, but you do not calm down, remembering the taste of her dirty boots and sneakers you get up to her and started to push it into his mouth, When you could not shove it in its entirety, you threw away and sneakers vskhvativ her hair yanked off the floor and thrown on the bed. It was lying on the bed covering her face with her hands, you jumped on the bed and embarking on her face sat on top of her. "Lick bitch lick" you yell, she tried to throw you, but nothing happened, you got right in her face, continuing to yell something she licked, you will soon feel her tongue on her pussy, but you did not care you fidgeted on her face increasing pace, soon you started excited. She did not resist sticking his tongue out and tried to catch them to your pussy, terevshuyusya wildly about her face. You start to like her submissive and you get more excited thinking about what you nasiluete it, you have even begun to think about something to put her strap-on and have fun with it as you began to lay an orgasm, you shrank his crotch in her face and finished . When you finally got off her, her whole face was covered in your discharge, she quietly got out of bed, straightened his clothes and left the room leaving you goodbye "Creature." She obviously did not forget, now you should be careful, who knows what''s on her mind.'
 
 			act 'Breath.':gt 'bed', 'start'
 		end
@@ -289,42 +281,40 @@ end
 if $ARGS[0] = 'vor':
 	cla
 	*clr
-	set minut += 60
+	minut += 60
 	'<center><img src="images/img/spaln/g0.jpg"></center>'
-	'You lay on the bed when he heard what the sound in the hallway. Once you have decided to get up to look into the room ran two masked, you do not have time to open his mouth like a knife in your throat helpful. "Only piskni bitch´ll cut." croaked one of them. They tied your hands and one went to search the apartment, and the second was to guard you. He sat and looked carefully you, then took a knife and began podit them on your body, "What scared?" he asked, thinking that it is better you keep silent, you said nothing and looked downcast gaze to the floor. "I see what´s scary, " he grinned. Then he began to feel you, you tried to pull away, but the knife was back in your throat, "Sit still bitch until the pen is not planted, " he croaked, and continued to feel you. Finally returned to the second "All get out of here, " he said.'
+	'You lay on the bed when he heard what the sound in the hallway. Once you have decided to get up to look into the room ran two masked, you do not have time to open his mouth like a knife in your throat helpful. "Only piskni bitch''ll cut." croaked one of them. They tied your hands and one went to search the apartment, and the second was to guard you. He sat and looked carefully you, then took a knife and began podit them on your body, "What scared?" he asked, thinking that it is better you keep silent, you said nothing and looked downcast gaze to the floor. "I see what''s scary, " he grinned. Then he began to feel you, you tried to pull away, but the knife was back in your throat, "Sit still bitch until the pen is not planted, " he croaked, and continued to feel you. Finally returned to the second "All get out of here, " he said.'
 	'"Wait let this pacifier remember seeing what juicy" said sitting with you'
 
 	if vnesh >= 30:
-		set guy += 2
-		set bj += 1
-		set sex += 1
-		set rape += 1
+		guy += 2
+		bj += 1
+		sex += 1
+		rape += 1
 		'"And what, savory nipple, even when such happen to fuck" said the first.'
 
 		act 'Plead':
 			cla
 			*clr
-			set minut += 30
+			minut += 30
 			'<center><img src="images/img/spaln/g1.jpg"></center>'
 			'You have shrunk with horror, "Well nipple kneel down and open your mouth, but see, you touch the teeth from ear to ear throat vskroy" said the second pulling member. You began to plead not touch you, but received oplevuhu knelt. He jabbed a member you on the lips, you reluctantly opened his mouth and then his cock was in your mouth, hands clenching your head, he began to fuck you in the mouth, for those too made a second, and then they tried to shove into your mouth, both terms, but decided that their members will touch each other, and that in their opinion, even if they are in the female mouth, smacks of the blue, back to the first option and proceeded to rape your mouth one by one. All event was intended to evoke disgust you, and that was the first couple of minutes, but then you are surprised to catch myself on the fact that their hands are now just lie on your head, and all the movements you make yourself and are actively working language.'
-			'"Let´s get up cancer" commanded one.'
+			'"Let''s get up cancer" commanded one.'
 
 			act 'Up':
 				cla
 				*clr
-				set picrand = 38
-				set orgasm += 1
+				picrand = 38
+				orgasm += 1
 				'<center><img src="images/img/spaln/g2.jpg"></center>'
 				'You stood up and bent over one of them stood behind and put your dick in pussy, went inside. "Yes, it all flows, listen Grey like this bitch" he said.'
-				'"Mouth Shut" growled at him a second inserting dick in your mouth. They proceeded to rape you on both sides, but you are overwhelmed with desire, you stood with cancer tied his hands behind his back and the two strangers had you. You diligently podmahivat one second while sucking dick suddenly darkened eyes, the body and pleasant shiver ran you huddled in orgasm. One that had pulled your mouth dick "What´s wrong with this bitch, she has epilepsy, " he cried. "Yeah, no, I told her to please, this bitch came." said the second. They untied the hands of you, "Let´s see what she can do with her hands swagger" said one.'
+				'"Mouth Shut" growled at him a second inserting dick in your mouth. They proceeded to rape you on both sides, but you are overwhelmed with desire, you stood with cancer tied his hands behind his back and the two strangers had you. You diligently podmahivat one second while sucking dick suddenly darkened eyes, the body and pleasant shiver ran you huddled in orgasm. One that had pulled your mouth dick "What''s wrong with this bitch, she has epilepsy, " he cried. "Yeah, no, I told her to please, this bitch came." said the second. They untied the hands of you, "Let''s see what she can do with her hands swagger" said one.'
 
 				act 'Continue':xgt 'sexdvoe', 'var'
 			end
 		end
-	end
-
-	if vnesh < 30:
-		'"We bring down I said, " repeated the first "And her mouth shut, " he added. The second did not argue and taking clothes from your closet stuffed into your mouth. "If earlier than half an hour you will get out, you do not live, " said the first, and they´re gone. You did not wait half an hour and started trying to break free, well that sites they really did not know how to knit and soon you managed to untie'
+	elseif vnesh < 30:
+		'"We bring down I said, " repeated the first "And her mouth shut, " he added. The second did not argue and taking clothes from your clostuffed into your mouth. "If earlier than half an hour you will get out, you do not live, " said the first, and they''re gone. You did not wait half an hour and started trying to break free, well that sites they really did not know how to knit and soon you managed to untie'
 
 		act 'Assess the damage':gt 'bed', 'vorend'
 	end
@@ -341,17 +331,17 @@ if $ARGS[0] = 'vorend':
 
 	if stolmoney > 0:
 		'They took <<stolmoney>> rubles from the table.'
-		set stolmoney = 0
+		stolmoney = 0
 	end
 
 	if money > 0:
 		'They took <<money>> rubles that you were with him.'
-		set money = 0
+		money = 0
 	end
 
 	if komp = 1:
 		'They took his computer.'
-		set komp = 0
+		komp = 0
 	end
 
 	gs 'stat'

+ 112 - 128
locations/bed1

@@ -1,9 +1,11 @@
 # bed1
 if $ARGS[0] = 'start':
 	cla
-	set shour = 24 - hour
 	clr
+	shour = 24 - hour
 	gs 'stat'
+	shour = 24 - hour
+	stimer = 24 - timer
 
 	if nude = 0:'<center><img src="images/pics/bed.jpg"></center>'
 	if nude = 1:'<center><img src="images/pics/son.jpg"></center>'
@@ -12,16 +14,13 @@ if $ARGS[0] = 'start':
 
 	if mop ! 1:'<b><font color="red">Need to wash off makeup before going to bed.</font></b>'
 
-	set shour = 24 - hour
-	set stimer = 24 - timer
-
 	!! Service on 7 = 17, time 20 = 4
 
 	act 'Set Alarm Clock':gt 'budilnik', 'start'
 
-	if son > 10:'You are not tired.'
-
-	if son < 10:
+	if son > 10:
+		'You are not tired.'
+	elseif son < 10:
 		act 'Undress and go to bed':gt 'bed2'
 	end
 
@@ -29,12 +28,12 @@ if $ARGS[0] = 'start':
 		act 'Masturbating using dildo':
 			cla
 			*clr
-			set horny = 0
-			set minut += 30
-			set mastr += 1
-			set orgasm += 1
-			set manna += 15
-			set willpower += 15
+			horny = 0
+			minut += 30
+			mastr += 1
+			orgasm += 1
+			manna += 15
+			willpower += 15
 			'<center><img src="images/pics/mastr.gif"></center>'
 			'You phallus stuck to the floor and planted her wet pussy on him, jumping on the artificial active member you will quickly feel the excitement and orgasm you covered.'
 
@@ -53,11 +52,9 @@ end
 if $ARGS[0] = 'sogn':
 	cla
 	*clr
-	set horny += 10
-	set minut += 10
+	horny += 10
+	minut += 10
 	dogday = day
-	cla
-	*clr
 	'You undressed and lay down on the bed <<$namesob>> brazenly jumped into bed and began to lick your pussy'
 	'<center><img src="images/zoo/2.jpg"></center>'
 
@@ -71,17 +68,17 @@ if $ARGS[0] = 'sog1':
 			if hour > 22 or hour < 7:
 				cla
 				*clr
-				set minut += 30
+				minut += 30
 				'<center><img src="images/zoo/z1.jpg"></center>'
 				'You undressed and lay down on the bed <<$namesob>> brazenly jumped into bed and began to lick your pussy.'
 
 				if harakHusb = 0:
-					set zoo += 1
-					set horny = 0
-					set orgasm += 1
-					'"What´s he doing dear, stop him, " cries the husband'
+					zoo += 1
+					horny = 0
+					orgasm += 1
+					'"What''s he doing dear, stop him, " cries the husband'
 					'"I can not, try myself, " you reply.'
-					set husband -= 1
+					husband -= 1
 					'<<$husName>> trying to shove the dog, but he growls and snarls. "I can not get it to drive away what to do dear?" he asks.'
 					'"Think of something." you reply, already slightly moaning with pleasure. <<$husName>> starts to rush through the room, periodically coming to the dog, but hearing his growl off. While <<$husName>> pacing the room dog began to jump on you.'
 					'"Oh my God, that he was going to do?" shrieked <<$husName>>, Seeing the dog attempts to jump on you.'
@@ -96,72 +93,66 @@ if $ARGS[0] = 'sog1':
 
 						if izvratH = 0:
 							'"Oh my God, I can not look at it, " cried the husband slammed the door and ran. Meanwhile, a member of the dog has found a hole and full-pecked you. You moaned and podmahivat him soon you covered orgasm, and after a few seconds dog cum inside you and radosnym ran out into the corridor. My husband came back, and you still were cancer and dog sperm flowed from your pussy.'
-							'"I´ll take him now on euthanasia, " said <<$husName>>'
-						end
-
-						if izvratH = 1:
-							'"Well get off of her, " shouts <<$husName>> at the dog, but close to it does not fit. Meanwhile, a member of the dog has found a hole and full-pecked you. You moaned and podmahivat him and your husband decided that your movement is an attempt to free you cheered "Yes Svetsik so can get more wiggle lose it." Soon you covered orgasm, and after a few seconds dog cum inside you and radosnym ran out into the corridor. Husband looked at you standing cancer hips peremazanymi canine semen flowing out of your pussy.'
-							'"I´ll take him now on euthanasia, " said <<$husName>>'
+							'"I''ll take him now on euthanasia, " said <<$husName>>'
+						elseif izvratH = 1:
+							'"Well get off of her, " shouts <<$husName>> at the dog, but close to it does not fit. Meanwhile, a member of the dog has found a hole and full-pecked you. You moaned and podmahivat him and your husband decided that your movement is an attempt to free you cheered "Yes <<$name>> so can get more wiggle lose it." Soon you covered orgasm, and after a few seconds dog cum inside you and radosnym ran out into the corridor. Husband looked at you standing cancer hips peremazanymi canine semen flowing out of your pussy.'
+							'"I''ll take him now on euthanasia, " said <<$husName>>'
 						end
 
 						act 'Allow':
-							set sobaka = 0
-							set zoo = 0
+							sobaka = 0
+							zoo = 0
 							gt 'bedr'
 						end
 
 						act 'Not authorized':
 							cla
-							'"No, dear, he is not guilty, he has the instincts, I´ll take it for mating and he will calm down, " you said.'
+							'"No, dear, he is not guilty, he has the instincts, I''ll take it for mating and he will calm down, " you said.'
 							'"Well dear, whatever you say."'
 
 							act 'Finish':gt 'bedr'
 						end
 					end
-				end
-
-				if harakHusb = 1:
-				'"Her dog you absolutely ohrenel, go find yourself on the street bitch and then you froze otpihni it" the husband says.'
-				'"I can not, try myself, " you reply.'
-
-				if izvratH = 0:
-					'<<$husName>> tries ottoschit dog but he growls and grins, then he goes to the bath and what that brings old sheets, throwing her to the dog picks up the ends and picks up dog is in improvezirovannom bag.'
-					'"I´ll take him now on euthanasia, " said <<$husName>>'
+				elseif harakHusb = 1:
+					'"Her dog you absolutely ohrenel, go find yourself on the street bitch and then you froze otpihni it" the husband says.'
+					'"I can not, try myself, " you reply.'
 
-					act 'Allow':
-						set sobaka = 0
-						set zoo = 0
-						gt 'sitr'
-					end
+					if izvratH = 0:
+						'<<$husName>> tries ottoschit dog but he growls and grins, then he goes to the bath and what that brings old sheets, throwing her to the dog picks up the ends and picks up dog is in improvezirovannom bag.'
+						'"I''ll take him now on euthanasia, " said <<$husName>>'
 
-					act 'Not authorized':
-						cla
-						'"No, dear, he is not guilty, he has the instincts, I´ll take it for mating and he will calm down, " you said.'
-						'"Okay, look itself, your dog."'
-						act 'Finish':gt 'bedr'
-					end
-				end
+						act 'Allow':
+							sobaka = 0
+							zoo = 0
+							gt 'sitr'
+						end
 
-				if izvratH = 1:
-					set zoo += 1
-					set bj += 1
-					set swallow += 1
-					set cumlip += 1
-					'"Can not or do not want, " said <<$husName>> smiling and continues to sit and watch as the dog you licks.'
-					'"It probably does not want" you reply and deliberately pushes the legs wider. <<$husName>> looks like you moan until the dog licks you, and suddenly gets up and pulls out his dick brings to your mouth.'
+						act 'Not authorized':
+							cla
+							'"No, dear, he is not guilty, he has the instincts, I''ll take it for mating and he will calm down, " you said.'
+							'"Okay, look itself, your dog."'
+							act 'Finish':gt 'bedr'
+						end
+					elseif izvratH = 1:
+						zoo += 1
+						bj += 1
+						swallow += 1
+						cumlip += 1
+						'"Can not or do not want, " said <<$husName>> smiling and continues to sit and watch as the dog you licks.'
+						'"It probably does not want" you reply and deliberately pushes the legs wider. <<$husName>> looks like you moan until the dog licks you, and suddenly gets up and pulls out his dick brings to your mouth.'
 
-					act 'Take by mouth':
-						cla
-						*clr
-						'<center><img src="images/zoo/z3.jpg"></center>'
-						'You grab his cock and takes his mouth to suck, soon begins to cover you and you end sodragayas whole body in a second <<$husName>> ends up in your mouth. You swallow sperm and continue to suck his dick fading. Soused dog began naprygivat at you with intent nedvuhslyslennymi.'
-						'"But this is too much" said <<$husName>> and tried ottoschit dog, but he growls and grins, then he goes into the tub and what that brings an old sheet, threw it at the dog picks up the ends and picks up dog is in the bag improvezirovannom.'
-						'"I´ll take him now on euthanasia, " said <<$husName>>'
+						act 'Take by mouth':
+							cla
+							*clr
+							'<center><img src="images/zoo/z3.jpg"></center>'
+							'You grab his cock and takes his mouth to suck, soon begins to cover you and you end sodragayas whole body in a second <<$husName>> ends up in your mouth. You swallow sperm and continue to suck his dick fading. Soused dog began naprygivat at you with intent nedvuhslyslennymi.'
+							'"But this is too much" said <<$husName>> and tried ottoschit dog, but he growls and grins, then he goes into the tub and what that brings an old sheet, threw it at the dog picks up the ends and picks up dog is in the bag improvezirovannom.'
+							'"I''ll take him now on euthanasia, " said <<$husName>>'
 
-						act 'Allow':
-							set sobaka = 0
-							set zoo = 0
-							gt 'sitr'
+							act 'Allow':
+								sobaka = 0
+								zoo = 0
+								gt 'sitr'
 							end
 
 							act 'Not authorized':
@@ -172,7 +163,7 @@ if $ARGS[0] = 'sog1':
 								act 'Jerk dog':
 									cla
 									*clr
-									set husband -= 1
+									husband -= 1
 									'<center><img src="images/zoo/z6.jpg"></center>'
 									'You take the dog dick in hand and begin to masturbate after a few minutes you dog cums in her palm.'
 
@@ -182,11 +173,11 @@ if $ARGS[0] = 'sog1':
 								act 'Suck dog':
 									cla
 									*clr
-									set swallow += 1
-									set husband -= 40
+									swallow += 1
+									husband -= 40
 									'<center><img src="images/zoo/z7.jpg"></center>'
 									'You loshite dog on the floor and take his cock in my mouth, my husband looks at you with disgust as you sucking dog in a couple of minutes dog diluted into your mouth and you swallow sperm.'
-									'"Well, you´re a pervert, " the husband says with obvious distaste.'
+									'"Well, you''re a pervert, " the husband says with obvious distaste.'
 
 									act 'Finish':gt 'bedr'
 								end
@@ -195,32 +186,28 @@ if $ARGS[0] = 'sog1':
 							end
 						end
 					end
-				end
-
-				if harakHusb = 2:
+				elseif harakHusb = 2:
 					'"Her dog you absolutely ohrenel, go find yourself on the street bitch and then you froze otpihni it" the husband says.'
 					'"I can not, try myself, " you reply.'
 
 					if izvratH = 0:
-						set manna -= 15
-						set willpower -= 15
+						manna -= 15
+						willpower -= 15
 						'<<$husName>> tries ottoschit dog but he growls and grins, then he smashes the dog leg in the ribs and he screeched flies into a corner, had not dog up as a husband begins to kick harder, seeing his condition, you scored in the corner and covering his head with hands close eyes. A few minutes later the dog stops.'
 						'"What are you hiding there shalt here, and then krovischi from your skunk" said <<$husName>>. Opening her eyes you see a dead dog in a pool of blood.'
-						'"Well, what froze shalt say to you, I do this on the trash Dogmeat´ll take." he takes the dog, wrap in sheets and make it in the trash. And you have some time to scour the blood from the floor.'
+						'"Well, what froze shalt say to you, I do this on the trash Dogmeat''ll take." he takes the dog, wrap in sheets and make it in the trash. And you have some time to scour the blood from the floor.'
 
 						act 'Finish':
-							set sobaka = 0
-							set zoo = 0
+							sobaka = 0
+							zoo = 0
 							gt 'bedr'
 						end
-					end
-
-					if izvratH = 1:
-						set zoo += 1
-						set bj += 1
-						set swallow += 1
-						set cumlip += 1
-						set SUB += 1
+					elseif izvratH = 1:
+						zoo += 1
+						bj += 1
+						swallow += 1
+						cumlip += 1
+						SUB += 1
 						'"What do you mean I can not, that you like the way he licks you, " shouts <<$husName>>.'
 						'"No, of course you do not, " you begin to make excuses.'
 						'"And I see you taschishsya whore, you all are flowing, or think I do not see, and if you like it so thank him, " he says, and seeing your not knowing look continues, "Well, what are hatched suck him alive."'
@@ -234,18 +221,18 @@ if $ARGS[0] = 'sog1':
 							act 'Allow':
 								cla
 								*clr
-								set suprdolg += 1
-								set sex += 1
-								set anal += 1
+								suprdolg += 1
+								sex += 1
+								anal += 1
 								'<center><img src="images/zoo/z5.jpg"></center>'
-								'You obediently spreads her legs and her husband comes to you in the pussy, he hews suck you until you have a dog, but you do not dostovlyaet pleasure. Soon her husband cums and gets "A dog that is not yet finished, something you´re not trying, as well, cup your point."'
+								'You obediently spreads her legs and her husband comes to you in the pussy, he hews suck you until you have a dog, but you do not dostovlyaet pleasure. Soon her husband cums and gets "A dog that is not yet finished, something you''re not trying, as well, cup your point."'
 
 								act 'Substitute ass':
 									cla
 									*clr
-									set analorgasm += 1
-									set orgasm += 1
-									set horny = 0
+									analorgasm += 1
+									orgasm += 1
+									horny = 0
 									'<center><img src="images/zoo/z8.jpg"></center>'
 									'You go up to her knees and dog immediately jumps on you. prevent kneel. With one hand you Spreading buttocks, and a second guide member currently in his ass, fingering hole dog quickly enters and taken to peck your anus. Husband looked at it a little and throwing "Go otmoyus from whores" out. Left with a dog for a single you start podmahivat him and soon oschuzaete tide excitation seems sex dog surpasses her husband, his cock in your ass moves so deftly that comes after the excitement orgasm, and you fall on korachki no longer able to stand, dog makes several movements and spewing his seed you in the ass. After graduating he leaves satisfied.'
 
@@ -258,21 +245,19 @@ if $ARGS[0] = 'sog1':
 			else
 				gt 'bed1', 'sogn'
 			end
+		elseif husband = 0 or husbandrink = 10:
+			gt 'bed1', 'sogn'
 		end
-
-		if husband = 0 or husbandrink = 10:gt 'bed1', 'sogn'
 	end
 end
 
 if $ARGS[0] = 'sog2':
 	cla
 	*clr
-	set horny += 10
-	set minut += 10
-	cla
-	*clr
-	'You take the term <<$namesob>> and start it nadrachivat'
+	horny += 10
+	minut += 10
 	'<center><img src="images/zoo/sog.jpg"></center>'
+	'You take the term <<$namesob>> and start it nadrachivat'
 
 	act 'Take by mouth':gt 'bed1', 'sog3'
 	act 'Spread her legs ':gt 'bed1', 'sog4'
@@ -281,12 +266,10 @@ end
 if $ARGS[0] = 'sog3':
 	cla
 	*clr
-	set horny += 10
-	set minut += 10
-	cla
-	*clr
-	'You greedily swallow dick <<$namesob>>'
+	horny += 10
+	minut += 10
 	'<center><img src="images/zoo/sog1.jpg"></center>'
+	'You greedily swallow dick <<$namesob>>'
 
 	act 'Spread her legs ':gt 'bed1', 'sog4'
 end
@@ -294,19 +277,17 @@ end
 if $ARGS[0] = 'sog4':
 	cla
 	*clr
-	set minut += 10
-	set orgasm += 1
-	set horny = 0
-	set minut += 5
-	set zoo += 1
-	set swallow += 1
-	set vagina += 1
-	set throat += 1
-	set cumpussy += 1
-	cla
-	*clr
-	'You push the legs and <<$namesob>> fuck you in your pussy'
+	minut += 10
+	orgasm += 1
+	horny = 0
+	minut += 5
+	zoo += 1
+	swallow += 1
+	vagina += 1
+	throat += 1
+	cumpussy += 1
 	'<center><img src="images/zoo/sog2.jpg"></center>'
+	'You push the legs and <<$namesob>> fuck you in your pussy'
 	'Finally dog ​​ends up in you'
 
 	act 'Hug the dog and sleep':gt 'bed2', 'dosip'
@@ -317,12 +298,15 @@ if $ARGS[0] = 'fin':
 	gt $locM, $metkaM
 	!!savegame 'avtosave.sav'
 
-	!'if housr = 1 and housrA = 1:
-	if nude = 0:set $nude = 'In the corridor'
-	if nude = 1:set $nude = 'Get dressed'
-	set housrA = 0
-	gt 'bedr'
-	end'!
+	!'
+	if housr = 1 and housrA = 1:
+		if nude = 0:$nude = 'In the corridor'
+		if nude = 1:$nude = 'Get dressed'
+
+		housrA = 0
+		gt 'bedr'
+	end
+	'!
 end
 
 --- bed1 ---------------------------------

+ 56 - 47
locations/bed2

@@ -5,57 +5,66 @@ else
 	dosip = 0
 end
 
-set nude = 1
-set odedosna = numdress
-set numdress = 0
+if disable_autosave = 0:
+	if StoryLine = 0:
+		savegame 'autosave.sav'
+	else
+		savegame 'autosave_alt.sav'
+	end
+end
+nude = 1
+odedosna = numdress
+numdress = 0
+health += 5
+hapri = 0
+InSleep = 1
+cloth_vid = 0
 '<center><img src="images/pics/son.jpg" ></center>'
 
-if analplugIN = 1:set analplugIN = 0 & 'Before going to bed you remove a butt plug.'
-if vibratorIN = 1:set vibratorIN = 0 & 'Before going to bed .'
-if mop > 1:set mop = 0 & set vidageday = vidageday - 1 & 'Makeup smeared on the face, you think, that looks bad for sleeping with makeup, skin aging faster from this.'
+if analplugIN = 1:analplugIN = 0 & 'Before going to bed you remove a butt plug.'
+if vibratorIN = 1:vibratorIN = 0 & 'Before going to bed .'
+if mop > 1:mop = 0 & vidageday = vidageday - 1 & 'Makeup smeared on the face, you think, that looks bad for sleeping with makeup, skin aging faster from this.'
 
-set health += 5
-set hapri = 0
-InSleep = 1
-set slep = rand(0, 10)
+slep = rand(0, 10)
 
 if StoryLine = 0:slep = 0
-if slep = 0:set $slep = 'do not dream'
-if slep = 1:set $slep = 'dreaming of what it is not clear images from the past'
-if slep = 2:set $slep = 'dreaming moon looking at the world with his one bloody eye'
-if slep = 3:set $slep = 'dream that you are a man again'
-if slep = 4:set $slep = 'do not dream'
-if slep = 5:set $slep = 'do not dream'
-if slep = 6:set $slep = 'do not dream'
-if slep = 7:set $slep = 'do not dream'
-if slep = 8:set $slep = 'do not dream'
-if slep = 9:set $slep = 'do not dream'
-if slep = 10:set $slep = 'do not dream'
+if slep = 0:$slep = 'do not dream'
+if slep = 1:$slep = 'dreaming of what it is not clear images from the past'
+if slep = 2:$slep = 'dreaming moon looking at the world with his one bloody eye'
+if slep = 3:$slep = 'dream that you are a man again'
+if slep = 4:$slep = 'do not dream'
+if slep = 5:$slep = 'do not dream'
+if slep = 6:$slep = 'do not dream'
+if slep = 7:$slep = 'do not dream'
+if slep = 8:$slep = 'do not dream'
+if slep = 9:$slep = 'do not dream'
+if slep = 10:$slep = 'do not dream'
 
 'You sleep and you <<$slep>>.'
 :loopson
-set minut += 1
-set stime += 1
+clr
+cls
+minut += 1
+stime += 1
 
-if stime = 60:set stime = 0&set son = son + 3
+if stime = 60:stime = 0&son = son + 3
 
-clr
-gs'stat'
+gs 'stat'
 
 if hour = timer and minut = timerM:
+	manna = manna - 10
 	'alarm goes off'
-	set manna = manna - 10
 
 	if daystart < 10 and StoryLine = 0:'My first thought was how you woke up, "Damn. This is not a dream, I do now baba."'
 	if daystart >= 10 and daystart < 30 and StoryLine = 0:'You sleepy little surprised popyalitsya its female body.'
 
 	act 'Get out of bed and get dressed (0:15)':
 		cla
-		set numdress = odedosna
-		set InSleep = 0
-		set minut += 15
-		set tanga = 1
-		set nude = 0
+		numdress = odedosna
+		InSleep = 0
+		minut += 15
+		tanga = 1
+		nude = 0
 		gt 'bed', 'fin'
 	end
 
@@ -67,7 +76,7 @@ if hour = timer and minut = timerM:
 
 	act 'Try to sleep':gt 'bed2', 'dosip'
 elseif son > 23 and dosip = 0:
-	set manna -= 10
+	manna -= 10
 	'You slept'
 
 	if daystart < 10 and StoryLine = 0:'My first thought was how you wake up "Damn. This is not a dream, I really now a woman."'
@@ -75,11 +84,11 @@ elseif son > 23 and dosip = 0:
 
 	act 'Get out of bed and get dressed (0:15)':
 		cla
-		set numdress = odedosna
+		numdress = odedosna
 		InSleep = 0
-		set minut += 15
-		set tanga = 1
-		set nude = 0
+		minut += 15
+		tanga = 1
+		nude = 0
 		gt 'bed', 'fin'
 	end
 
@@ -91,28 +100,28 @@ elseif son > 23 and dosip = 0:
 
 	act 'Try to sleep':gt 'bed2', 'dosip'
 elseif son > 47 and dosip = 1:
-	set manna -= 10
-	set dosip = 0
-	set son -= 24
+	manna -= 10
+	dosip = 0
+	son -= 24
 	'You slept.'
 
 	act 'Get out of bed and get dressed (0:15)':
 		cla
-		set numdress = odedosna
-		set InSleep = 0
-		set minut += 15
-		set tanga = 1
-		set nude = 0
+		numdress = odedosna
+		InSleep = 0
+		minut += 15
+		tanga = 1
+		nude = 0
 		gt 'bed', 'fin'
 	end
 
 	act 'Get out of bed':
 		cla
 		InSleep = 0
-		gt 'bed','fin'
+		gt 'bed', 'fin'
 	end
 
-	act 'try to sleep':gt'bed2','dosip'
+	act 'Try to sleep':gt 'bed2', 'dosip'
 else
 	jump 'loopson'
 end

+ 56 - 49
locations/bedPar

@@ -10,62 +10,69 @@ act 'Set Alarm Clock':gt 'budilnik', 'start'
 
 !!if son < 10:
 	act 'Undress and go to bed':
-		savegame 'altavtosave.sav'
-		cls
-		'<center><img src="images/pics/son.jpg"></center>'
-
-		if analplugIN = 1:set analplugIN = 0 & 'Before going to bed you remove your butt plug.'
-		if vibratorIN = 1:set vibratorIN = 0 & 'Before going to bed you remove your vibrator'
-		if mop > 1:set mop = 0 & set vidageday = vidageday - 1 & 'Makeup smeared on the face, you think, that looks bad for sleeping with makeup, skin aging faster from this.'
-
-		set health += 5
-		set hapri = 0
-		InSleep = 1
-		'You sleep and you dream about nothing.'
-		:loopson
-		set minut += 1
-		set stime += 1
-
-		if stime = 60:set stime = 0 & set son += 3
-
-		clr
-		gs 'stat'
-
-		if hour = timer and minut = timerM:
-			'Alarm goes off'
-			set manna -= 10
-
-			act 'Get out of bed and get dressed (0:15)':
-				cla
-				!!set numdress = odedosna
-				set InSleep = 0
-				set minut += 15
-				set tanga = 1
-				!!set nude = 0
-				gt $locM, $metkaM
-			end
-
-			exit
+		if disable_autosave = 0:
+			if StoryLine = 0:
+				savegame 'autosave.sav'
+		else
+			savegame 'autosave_alt.sav'
 		end
+	end
 
-		if son > 23 and dosip = 0:
-			'You woke up on, that slept'
+	cls
+	health += 5
+	hapri = 0
+	InSleep = 1
+	:loopson
+	minut += 1
+	stime += 1
+
+	if stime = 60:stime = 0 & son += 3
+
+	clr
+	cls
+	gs 'stat'
+	'<center><img src="images/pics/son.jpg"></center>'
+
+	if analplugIN = 1:analplugIN = 0 & 'Before going to bed you remove your butt plug.'
+	if vibratorIN = 1:vibratorIN = 0 & 'Before going to bed you remove your vibrator'
+	if mop > 1:mop = 0 & vidageday = vidageday - 1 & 'Makeup smeared on the face, you think, that looks bad for sleeping with makeup, skin aging faster from this.'
+
+	'You sleep and you dream about nothing.'
+
+	if hour = timer and minut = timerM:
+		manna -= 10
+		'Alarm goes off'
+		act 'Get out of bed and get dressed (0:15)':
+			cla
+			!!numdress = odedosna
+			InSleep = 0
+			minut += 15
+			tanga = 1
+			!!nude = 0
+			gt $locM, $metkaM
+		end
 
-			act 'Get out of bed and get dressed (0:15)':
-				cla
-				!!set numdress = odedosna
-				set InSleep = 0
-				set minut += 15
-				set tanga = 1
-				!!set nude = 0
-				gt $locM, $metkaM
-			end
+		exit
+	end
 
-			exit
+	if son > 23 and dosip = 0:
+		'You woke up on, that slept'
+
+		act 'Get out of bed and get dressed (0:15)':
+			cla
+			!!numdress = odedosna
+			InSleep = 0
+			minut += 15
+			tanga = 1
+			!!nude = 0
+			gt $locM, $metkaM
 		end
 
-		jump 'loopson'
+		exit
 	end
+
+	jump 'loopson'
+end
 !!end
 
 act 'Get out of bed':

+ 99 - 116
locations/bedr

@@ -1,53 +1,37 @@
 # bedr
-
 act 'The corridor':
-	!!if nude = 0:
 	gt 'korr'
-	!!end
-	!'if nude = 1:
-	cla
-	'You look at the underwear.'
-		act 'Wear underwear':
-			cla
-			set tanga = 1
-			gt 'loker', 'start'
-		end
-		act 'Do not wear underwear':
-			cla
-			set tanga = 0
-			gt 'loker', 'start'
-		end
-	end'!
 end
 
 $metkaM = $ARGS[0]
 $locM = $CURLOC
-!!The new menu: end
-
-if magik >= 6 and spellbefshild = 1 and tobiQW = 0:gt 'tobiQW', 'start'
-
 $metka = $ARGS[0]
 $loc = $CURLOC
-
-'<center><b><font color="maroon">Bedroom</font></b></center>'
-
-if rembedr = 0:'<center><img src="images/etogame/bedr.jpg"></center>'
-if rembedr = 1:'<center><img src="images/etogame/bedr2.jpg"></center>'
-
 clr
+minut += 1
+housrA = 1
+housrMir = 1
+elektro += 1
 gs 'stat'
 fcolor = rgb(0, 0, 0)
 bcolor = rgb(255, 255, 255)
 lcolor = rgb(106, 90, 205)
-set minut += 1
-set housrA = 1
-set housrMir = 1
-set elektro += 1
-
-if nude = 0:set $nude = 'The corridor'
-if nude = 1:set $nude = 'Get dressed'
-if rembedr = 0:'Tight little room with a <a href="exec:gt ''bed'', ''start''">double bed</a> and an <a href="exec:gt ''budilnik'', ''start''">alarm clock</a>. Near the entrance is a small wooden <a href="exec:gt ''loker'', ''start''">wardrobe</a>. The windows are closed with faded heavy curtains.'
-if rembedr = 1:'Bright and beautiful room, with a nice <a href="exec:gt ''bed'', ''start''">double bed</a>. Near the entrance is a modern <a href="exec:gt ''loker'', ''start''">wardrobe</a>. Against the wall are a table and a <a href="exec:gt ''mirror'', ''start''">mirror</a>.'
+
+if magik >= 6 and spellbefshild = 1 and tobiQW = 0:gt 'tobiQW', 'start'
+
+'<center><b><font color="maroon">Bedroom</font></b></center>'
+
+if rembedr = 0:
+	'<center><img src="images/etogame/bedr.jpg"></center>'
+	'Tight little room with a <a href="exec:gt ''bed'', ''start''">double bed</a> and an <a href="exec:gt ''budilnik'', ''start''">alarm clock</a>. Near the entrance is a small wooden <a href="exec:gt ''loker'', ''start''">wardrobe</a>. The windows are closed with faded heavy curtains.'
+else
+	'<center><img src="images/etogame/bedr2.jpg"></center>'
+	'Bright and beautiful room, with a nice <a href="exec:gt ''bed'', ''start''">double bed</a>. Near the entrance is a modern <a href="exec:gt ''loker'', ''start''">wardrobe</a>. Against the wall are a table and a <a href="exec:gt ''mirror'', ''start''">mirror</a>.'
+end
+
+if nude = 0:$nude = 'The corridor'
+if nude = 1:$nude = 'Get dressed'
+
 if husbandrinkday = day:
 	if husbanstrapon = 1:$tempval = 'with anal plug in his ass.'
 	if husbanstrapon = 2:$tempval = 'after you have put a dildo up his ass.'
@@ -55,7 +39,6 @@ if husbandrinkday = day:
 
 	'Drunken husband sleeps on the bed <<$tempval>>'
 end
-
 if husband > 0 and husbandrink ! 10 and husbandrinkday ! day:
 	if hour > 22 or hour < 7:'<a href="exec:gt ''husb'', ''start''">Husband is sleeping on the bed.</a>'
 end
@@ -66,7 +49,7 @@ if husbandrink = 11 and husbanstrapon > 0 and husbandrinkday ! day:
 
 	act 'Lie':
 		cla
-		set husbanstrapon = 0
+		husbanstrapon = 0
 		'"No dear, I do not know" you said making an innocent face. Husband shrugged and walked away'
 
 		act 'Finish':gt 'bedr'
@@ -75,63 +58,69 @@ if husbandrink = 11 and husbanstrapon > 0 and husbandrinkday ! day:
 	act 'Confess':
 		cla
 
-		if husbanstrapon = 1:'"Honey you were so drunk last night that I decided to teach you a lesson and put a anal plug in your ass. I´ll never do it again, forgive me please" you said.'
+		if husbanstrapon = 1:'"Honey you were so drunk last night that I decided to teach you a lesson and put a anal plug in your ass. I''ll never do it again, forgive me please" you said.'
 		if husbanstrapon = 2:'"Dear, I wanted to make you a happy so I started to give you a blowjob, but you did not finish, so I inserted a finger into your ass, but once again you did not finish so I took a dildo and you burst, I even gave you a secong blowjob. Forgive me, but you enjoyed it so much that I could not stop. I just wanted to make you happy dear" you lied to your husband.'
 		if husbanstrapon = 3:'"Dear, I wanted to make you a happy so I started to give you a blowjob, but you did not finish, so I inserted a finger into your ass, but once again you did not finish when I put in a second finger you began to move your ass towards my fingers moaning heavily, I thought that you like it so I put on a strapon. You enjoyed it so much that you finished over and over again, and I continued until I was tired then licked all the sperm off your body and went to sleep. I just wanted to make you happy and you were enjoying it although you do not remember it. Forgive me please" you lied to your husband.'
 
 		if harakHusb = 2:
-			set husbizvradd = 0
-			set husbharmin = 0
-			set husbandMark = 0
-			set husband = 0
-			set divorced += 1
-			set fingal += 1
-			set minut += 120
+			husbizvradd = 0
+			husbharmin = 0
+			husbandMark = 0
+			husband = 0
+			divorced += 1
+			fingal += 1
+			minut += 120
 			'The next thing you feel is a powerful punch in the face. When you came back to your senses you realized that your husband and his things were gone. He filed for divorce.'
-		end
-
-		if harakHusb = 1:
-			if husbanstrapon = 1:'"Look, do not do it again, " he said and left.'
-			if husbanstrapon = 2:set husbizvradd += 1 & '"Do not do it again, I´m still a man and I´m not supposed to get fucked in my ass, " he said and left.'
-
-			if husbanstrapon = 3:
-				if intel > 40 or izvratH = 1:set husbharmin += 1 & '"Are you serious, I´m not a bitch that wanted to be fucked, " he yelled, but then you started to cry and said that you only wanted to please him, he looked at you and said, sighing, "Yes, I believe you wanted to please me, but do not do it again."'
-
-				if intel <= 40:
-					set husbizvradd = 0
-					set husbharmin = 0
-					set husbandMark = 0
-					set husband = 0
-					set divorced += 1
-					set fingal += 1
-					set minut += 120
+		elseif harakHusb = 1:
+			if husbanstrapon = 1:
+				'"Look, do not do it again!" he said and left.'
+			elseif husbanstrapon = 2:
+				husbizvradd += 1
+				'"Do not do it again, I''m still a man and I''m not supposed to get fucked in my ass!" he said and left.'
+
+			elseif husbanstrapon = 3:
+				if intel > 40 or izvratH = 1:
+					husbharmin += 1
+					'"Are you serious, I''m not a bitch that wanted to be fucked!" he yelled, but then you started to cry and said that you only wanted to please him, he looked at you and said, sighing, "Yes, I believe you wanted to please me, but do not do it again."'
+				elseif intel <= 40:
+					husbizvradd = 0
+					husbharmin = 0
+					husbandMark = 0
+					husband = 0
+					divorced += 1
+					fingal += 1
+					minut += 120
 					'The next thing you feel is a powerful punch in the face. When you came back to your senses you realized that your husband and his things were gone. He filed for divorce.'
 				end
 			end
+		elseif harakHusb = 0:
+			if husbanstrapon = 1:
+				'"I''m sorry I will not get so drunk again, " he said and left.'
+			elseif husbanstrapon = 2:
+				husbizvradd += 1
+				'"You''re so thoughtful, instead of scolding me, you''re still wanted to make me happy, thank you dear." he said and left.'
+			elseif husbanstrapon = 3:
+				husbizvradd += 1
+				'"Did I really like it?" he asked. You nodded. "Well then, thank you dear, but the next time you should ask me first!" he said, and left.'
+			end
 		end
 
-		if harakHusb = 0:
-			if husbanstrapon = 1:'"I´m sorry I will not get so drunk again, " he said and left.'
-			if husbanstrapon = 2:set husbizvradd += 1 & '"You´re so thoughtful, rather that scolding me, you´re still wanted to make me happy, thank you dear, " he said and left.'
-			if husbanstrapon = 3:set husbizvradd += 1 & '"I really like it?" he asked. You nodded. "Well then, thank you dear, but the next time you should ask me first, " he said, and left'
-		end
-
-		act 'Finish':set husbanstrapon = 0 & gt 'bedr'
+		act 'Finish':husbanstrapon = 0 & gt 'bedr'
 	end
 end
 
 if husbandrink = 10 and hour > 20 and hour < 23 and husbanstrapon = 0:
 	'<<$husName>> came home drunk and fell asleep on the bed.'
-	'"That pig" you thought and then you came up with an idea "Maybe I should teach him a lesson so he won´t get drunk again"'
+	'"That pig" you thought and then you came up with an idea "Maybe I should teach him a lesson so he won''t get drunk again"'
 
 	if analplug = 1:
-		act 'Insert anal plug in his ass':
-			set husbandrinkday = day
-			set husbandrink = 11
-			set husbanstrapon = 1
-			set minut += 10
+		act 'Insert butt plug in his ass':
 			cla
 			*clr
+			husbandrinkday = day
+			husbandrink = 11
+			husbanstrapon = 1
+			minut += 10
 			'<center><img src="images/img/hasb/h0.jpg"></center>'
 
 			if analplugin = 1:'You pull the cork out of his ass.'
@@ -143,11 +132,11 @@ if husbandrink = 10 and hour > 20 and hour < 23 and husbanstrapon = 0:
 				act 'Insert Dildo':
 					cla
 					*clr
-					set minut += 20
-					set husbanstrapon = 2
-					set swallow += 1
-					set cumlip += 1
-					set horny += 30
+					minut += 20
+					husbanstrapon = 2
+					swallow += 1
+					cumlip += 1
+					horny += 30
 					'<center><img src="images/img/hasb/h1.jpg"></center>'
 					'You pull out the plug and started to insert dildo in its place, <<$husName>> did not even budge. You began to slowly move the dildo inside trying not to wake your husband. Then in front of your face his cock started to rise, and <<$husName>> began to moan softly, but never woke up. With dildo in his ass, his dick began to throb ready to finish. You touched his penis with your tongue, you took the penis in your mouth and immediately he started to cum, you swallowed it and cleaning his cock from the remnants of cum, put his pants back on.'
 
@@ -159,13 +148,13 @@ if husbandrink = 10 and hour > 20 and hour < 23 and husbanstrapon = 0:
 				act 'Strapon':
 					cla
 					*clr
-					set minut += 20
-					set husbanstrapon = 3
-					set swallow += 1
-					set cumlip += 1
-					set horny += 30
+					minut += 20
+					husbanstrapon = 3
+					swallow += 1
+					cumlip += 1
+					horny += 30
 					'<center><img src="images/img/hasb/h2.jpg"></center>'
-					'You put on the strapon and pulling out the plug slowly start to put it in his ass, <<$husName>> began to move but did not wake up. You began to slowly move your hips trying not to wake him. Then in front of your face his cock started to rise, and <<$husName>> began to moan softly, but never woke up. Realizing that he won´t wake up you start to move faster and not hesitating drove the entire length of the strapon in his ass. His cock stood up and you started to stroke it, feeling that he is about to finish you took the penis in your mouth and immediately he started to cum, you swallowed it and cleaning his cock from the remnants of cum, put his pants back on.'
+					'You put on the strapon and pulling out the plug slowly start to put it in his ass, <<$husName>> began to move but did not wake up. You began to slowly move your hips trying not to wake him. Then in front of your face his cock started to rise, and <<$husName>> began to moan softly, but never woke up. Realizing that he won''t wake up you start to move faster and not hesitating drove the entire length of the strapon in his ass. His cock stood up and you started to stroke it, feeling that he is about to finish you took the penis in your mouth and immediately he started to cum, you swallowed it and cleaning his cock from the remnants of cum, put his pants back on.'
 
 					act 'Finish':gt 'bedr'
 				end
@@ -179,42 +168,28 @@ end
 if tanga = 0 and clrbelo > 0:
 	act 'Wear underwear':
 		cla
-		set tanga = 1
+		tanga = 1
 		gt 'bedr'
 	end
 else
 	act 'Remove Underwear':
 		cla
-		set tanga = 0
+		tanga = 0
 		gt 'bedr'
 	end
 end
-
-if saveday ! day:
-	set saveday = day
-	savegame 'avtosave.sav'
-end
-
 if sick >= 1:
 	act 'Go to sleep (Illness)':
 		cla
 		*clr
-		set minut += 240
-		set sick -= 1
+		minut += 240
+		sick -= 1
 
 		if sick < 0:sick = 0
 
-		set picrand = rand(0, 6)
 		gs 'stat'
-
-		if picrand = 0:'<center><img src="images/inBed/sick17.jpg"></center>'
-		if picrand = 1:'<center><img src="images/inBed/sick11.jpg"></center>'
-		if picrand = 2:'<center><img src="images/inBed/sick12.jpg"></center>'
-		if picrand = 3:'<center><img src="images/inBed/sick13.jpg"></center>'
-		if picrand = 4:'<center><img src="images/inBed/sick14.jpg"></center>'
-		if picrand = 5:'<center><img src="images/inBed/sick15.jpg"></center>'
-		if picrand = 6:'<center><img src="images/inBed/sick16.jpg"></center>'
-
+		picrand = rand(11, 17)
+		'<center><img src="images/inBed/sick<<picrand>>.jpg"></center>'
 		'You are lying in bed, coughing, sneezing and blowing your nose'
 
 		act 'Measure temperature':gt 'bedr'
@@ -227,19 +202,27 @@ if dur > 0 and narkday ! day:
 	act 'Sniff pale lady (0:05)':
 		cla
 		*clr
-		set minut += 5
-		set narkday = day
-		set health = vital * 10 + stren * 5
-		set willpower = intel * 5 + will * 5
-		set manna = intel * magik + magik * 100 + vital * 10 + rikudo
-		set horny = 100
-		set nark += 10
-		set dur -= 1
+		minut += 5
+		narkday = day
+		health = vital * 10 + stren * 5
+		willpower = intel * 5 + will * 5
+		manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
+		horny = 100
+		nark += 10
+		dur -= 1
 		'<center><img src="images/etogame/dur.jpg"></center>'
 		'You sniff dose of powder, then you start to feel just great.'
 
-		act 'Exit':gt $curloc
+		act 'Leave':gt $curloc
 	end
 end
 
+if horny >= 50:
+	act 'Masturbate':gt 'selfplay'
+end
+
+if pornMagazine > 0:'Under the mattress you have hidden pornozhurnal.'
+
+dynamic $d_read_porn
+
 --- bedr ---------------------------------

+ 19 - 20
locations/bedrPar

@@ -3,34 +3,35 @@ $metkaM = $ARGS[0]
 $locM = $CURLOC
 $metka = $ARGS[0]
 $loc = $CURLOC
-'<center><b><font color="maroon">Your bedroom</font></b></center>'
-'<center><img src="images/qwest/alter/<<$loc>>.jpg"></center>'
 clr
-set minut += 1
+minut += 1
 gs 'stat'
 fcolor = rgb(0, 0, 0)
 bcolor = rgb(255, 255, 255)
 lcolor = rgb(106, 90, 205)
+'<center><b><font color="maroon">Your bedroom</font></b></center>'
+'<center><img src="images/qwest/alter/<<$loc>>.jpg"></center>'
 'Small room in which hardly squeezed <a href="exec:gt ''loker'', ''start''">cabinet</a>, your <a href="exec:gt ''bedPar''">bed</a>, <a href="exec:gt ''stolPar''">desk</a> bed and sisters.'
-if tanga = 0:tanga = 1
 gs 'family'
 
+if tanga = 0:tanga = 1
+
 act 'Leave the room':gt 'korrPar'
 
 if student > 0 and kursovik < 100:
 	act 'Write coursework (1:00)':
 		cla
 		*clr
-		set minut += 60
-		set kursovik += rand(intel / 20, intel / 10)
+		minut += 60
+		kursovik += rand(intel / 20, intel / 10)
 
-		if kursovik > 100:set kursovik = 100
+		if kursovik > 100:kursovik = 100
 
-		set manna -= 10
+		manna -= 10
 		'<center><img src="images/etogame/study.jpg"></center>'
 		'You sat on the course work and prepared her for <<kursovik>> percent.'
 
-		act 'Exit':gt $curloc
+		act 'Leave':gt $curloc
 	end
 end
 
@@ -48,22 +49,20 @@ if card > 0:
 	 act 'Take a deck of cards':gt 'card'
 end
 
-if dur > 0:
-	'You have hidden <<dur>> doses pale lady'
-end
+if dur > 0:'You have hidden <<dur>> doses pale lady'
 
 if dur > 0 and narkday ! day:
 	act 'Nyuhnut pale lady 5 min':
 		cla
 		*clr
-		set minut += 5
-		set narkday = day
-		set health = vital * 10 + stren * 5
-		set willpower = intel * 5 + will * 5
-		set manna = intel * magik + magik * 100 + vital * 10 + rikudo
-		set horny = 100
-		set nark += 10
-		set dur -= 1
+		minut += 5
+		narkday = day
+		health = vital * 10 + stren * 5
+		willpower = intel * 5 + will * 5
+		manna = intel * magik + magik * 100 + vital * 10 + rikudo
+		horny = 100
+		nark += 10
+		dur -= 1
 		'<center><img src="images/pic/dur.jpg"></center>'
 		'You otsypali dose of powder and its nyuhnuli, then you feel just fine.'
 

+ 4 - 4
locations/bedrPar2

@@ -5,15 +5,15 @@ $metkaM = $ARGS[0]
 $locM = $CURLOC
 $metka = $ARGS[0]
 $loc = $CURLOC
-'<center><b><font color="maroon">Master bedroom</font></b></center>'
-'<center><img src="images/qwest/alter/<<$loc>>.jpg"></center>'
 clr
-set minut += 1
+minut += 1
 gs 'stat'
 fcolor = rgb(0, 0, 0)
 bcolor = rgb(255, 255, 255)
 lcolor = rgb(106, 90, 205)
-'The room in which the parents live. In the center stands a double bed and a large closet wall.'
+'<center><b><font color="maroon">Master bedroom</font></b></center>'
+'<center><img src="images/qwest/alter/<<$loc>>.jpg"></center>'
+'The room in which the parents live. In the center stands a double bed and a large clowall.'
 gs 'family'
 
 if hour = 21 and parsexrand = 5 and parentsexday ! daystart:gt 'seeparentsex'

+ 2 - 2
locations/befKik

@@ -1,8 +1,8 @@
 # befKik
 if round > 0:
-	if minround < 5:set minround += 1
+	if minround < 5:minround += 1
 end
 
-if round = 0:set round = 1
+if round = 0:round = 1
 
 --- befKik ---------------------------------

+ 32 - 32
locations/before

@@ -1,78 +1,78 @@
 # before
 !!Miscalculation of events at the beginning of round.
 !!Who protection, clones
-set knife = 0
-set knifeV = 0
-set BonusAtak = 0
-set BonusDef = 0
-set BonusAtakV = 0
-set BonusDefV = 0
-!!set stunner = 0
-!!set stunnerV = 0
+knife = 0
+knifeV = 0
+BonusAtak = 0
+BonusDef = 0
+BonusAtakV = 0
+BonusDefV = 0
+!!stunner = 0
+!!stunnerV = 0
 kisamePro = 0
-set round += 1
+round += 1
 
 if tuman > 0:'<font color="green">The battlefield covers your fog. Apparently, he still hold <<tuman>> moves.</font>'
 if tumanV > 0:'<font color="red">The battlefield fog covers the enemy. Apparently, he still hold <<tumanV>> moves.</font>'
 if stun > 0:'<font color="red">Are you still unable to move.</font>'
 if stunV > 0:'<font color="green"><<$nameV>> is still unable to move.</font>'
 if unmaterialV > 0:
-	set unmaterialV -= 1
-	set mannaV -= 20
+	unmaterialV -= 1
+	mannaV -= 20
 end
 
 if unmaterial > 0:
-	set unmaterial -= 1
-	set manna -= 20
+	unmaterial -= 1
+	manna -= 20
 	'<font color="green">You do not stand another materiality maximum <<unmaterial>> moves.</font>'
 end
 
 if klon > 0:'<font color="green">You <<klon>> clones that will protect you in case of attack.</font>'
 
 if poison > 0:
-	set healthV -= poison
+	healthV -= poison
 	'<font color="green"><<$nameV>> becomes poisoned and <<poison>> units of life.</font>'
-	set poison -= 1
+	poison -= 1
 end
 
 if poisonV > 0:
-	set health -= poisonV
+	health -= poisonV
 	'<font color="red">You are poisoned and lose <<poisonV>> units of life.</font>'
-	set poisonV -= 1
+	poisonV -= 1
 end
 
 if blood > 0:
-	set healthV -= blood
+	healthV -= blood
 	'<font color="green"><<$nameV>> becomes <<blood>> units of life from bleeding.</font>'
-	set blood -= 1
+	blood -= 1
 
-	if blood < 0:set blood = 0
+	if blood < 0:blood = 0
 end
 
 if bloodV > 0:
-	set health -= bloodV
+	health -= bloodV
 	'<font color="red">You lose <<bloodV>> units of life from bleeding.</font>'
-	set bloodV -= 1
+	bloodV -= 1
 
-	if bloodV < 0:set bloodV = 0
+	if bloodV < 0:bloodV = 0
 end
 
 if dospehEnV <= 0 and dospehV > 0:
-	set dospehEnV = 0
-	set dospehV = 0
-	set dospehDefV = 0
-	set dospehVesV = 0
+	dospehEnV = 0
+	dospehV = 0
+	dospehDefV = 0
+	dospehVesV = 0
 	'<font color="green">Armor enemy destroyed.</font>'
 end
 
 if dospehEn <= 0 and dospeh > 0:
-	set dospehEn = 0
-	set dospeh = 0
-	set dospehDef = 0
-	set dospehVes = 0
+	dospehEn = 0
+	dospeh = 0
+	dospehDef = 0
+	dospehVes = 0
 	'<font color="red">Your armor destroyed.</font>'
 end
 
-if initBonusA > 0:set initBonusA = 0
+if initBonusA > 0:initBonusA = 0
 
 --- before ---------------------------------

+ 5 - 10
locations/beforeFW

@@ -114,7 +114,6 @@ if Formula = 0:Formula = 3
 '<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
@@ -124,26 +123,22 @@ act 'Fight on his hands':
 	if strenw > strenwE:
 		point += 1
 		lustw += 1
+		crouch = 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:
+	elseif strenw < strenwE:
 		pointE += 1
 		lustwE += 1
+		crouch = 0
 		$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.'
+	elseif strenw = strenwE:
 		varrand = rand(0, 1)
 
 		if varrand = 0:crouch = 1 & $text = 'Stand your opponent on all fours, and you catch him from behind.'
 
 		if varrand = 1:crouch = 0 & $text = 'You get up on all fours, and your opponent to catch him from behind.'
+		'Quest on hand ended in a draw. The referee tossed the coin, that would determine the winner.'
 	end
 
 	'Refferi stopped you and commanded <<$text>>'

+ 11 - 13
locations/beg

@@ -2,20 +2,20 @@
 if $ARGS[0] = 'start':
 	cla
 	*clr
-	set minut += 5
-	set razdtumbler = 0
+	minut += 5
+	razdtumbler = 0
 	'<center><img src="images/etogame/fit1.jpg"></center>'
 	'You are stretching and warming up before your practice. From where you are you can see your coach, Ygor Y., coaching other athletes.'
 
 	act 'Section races':
 		cla
 		*clr
-		set minut += 120
-		set speed += rand(1, 3)
-		set manna -= 5
-		set fat -= 5
-		set sweat += 3
-		set beg += rand(2, 5)
+		minut += 120
+		speed += rand(1, 3)
+		manna -= 5
+		fat -= 5
+		sweat += 3
+		beg += rand(2, 5)
 		'<center><img src="images/etogame/fit5.jpg"></center>'
 		'You ran around the stadium practicing the skill of running and developing speed.'
 
@@ -31,11 +31,9 @@ if begsec > 0:
 		if beg < 50:
 			'You have to train, you have not even the third digit is not pulling in the main race and athleticism dyhalka. More importantly what would not be overweight, but diets undermine physical shape, so the coach recommends to use the sauna to dry.'
 
-			act 'Exit':gt 'beg', 'start'
-		end
-
-		if beg >= 50 and razradbegEG = 0:
-			'You´re doing fine, really well done, you can have a very good sporting future. May even become European champion. But remember, the key to victory, dyhalka, athleticism and an ounce.'
+			act 'Leave':gt 'beg', 'start'
+		elseif beg >= 50 and razradbegEG = 0:
+			'You''re doing fine, really well done, you can have a very good sporting future. May even become European champion. But remember, the key to victory, dyhalka, athleticism and an ounce.'
 
 			act 'Leave':gt 'beg', 'start'
 		end

+ 88 - 112
locations/beg1

@@ -4,66 +4,50 @@ if $ARGS[0] = 'start':
 	*clr
 	clr
 	gs 'stat'
-	set minut += 60
-	set kolsorev += 1
-	set begmon = month
+	minut += 60
+	kolsorev += 1
+	begmon = month
 
 	if razradbeg = 0:
 		'You write in a group beginners.'
 
 		act 'Exit on the treadmill':xgt 'beg1', 'br'
-	end
-
-	if razradbeg = 1:
+	elseif razradbeg = 1:
 		'You write in a group treterazryadnikov.'
 
 		act 'Exit on the treadmill':xgt 'beg1', '3'
-	end
-
-	if razradbeg = 2:
+	elseif razradbeg = 2:
 		'You recorded in the second group of bits. City Championship.'
 
 		act 'Exit on the treadmill':xgt 'beg1', '2'
-	end
-
-	if razradbeg = 3:
+	elseif razradbeg = 3:
 		'You recorded in the first group of bits. Championship field.'
 
 		act 'Exit on the treadmill':xgt 'beg1', '1'
-	end
-
-	if razradbeg = 4:
+	elseif razradbeg = 4:
 		'You write in the CCM group. Championship region.'
 
 		act 'Exit on the treadmill':xgt 'beg1', 'kms'
-	end
-
-	if razradbeg = 5:
+	elseif razradbeg = 5:
 		'You write in the group Masters of Sports. Russian Championship.'
 
 		act 'Exit on the treadmill':xgt 'beg1', 'ross'
-	end
-
-	if razradbeg >= 6 and razradbeg < 16:
+	elseif razradbeg >= 6 and razradbeg < 16:
 		'You write in the group International Master of Sports. Qualifying competition for access to the European Championship.'
 
 		act 'Exit on the treadmill':xgt 'beg1', 'kval'
-	end
-
-	if razradbeg = 16:
+	elseif razradbeg = 16:
 		if razradbegK < 8:
 			cla
-			set razradbegK = 0
-			set razradbeg = 6
+			razradbegK = 0
+			razradbeg = 6
 			'You have not been qualified for the European Championship.'
 
 			act 'Leave':gt 'fit', 'razd'
-		end
-
-		if razradbegK >= 8:
+		elseif razradbegK >= 8:
 			cla
-			set razradbegK = 0
-			set razradbeg = 6
+			razradbegK = 0
+			razradbeg = 6
 			'You write for the European Championship.'
 
 			act 'Exit on the treadmill':xgt 'beg1', 'evro'
@@ -73,11 +57,13 @@ end
 
 if $ARGS[0] = 'br':
 	cla
+	beg += 1
+	fat -= 10
+	begplus = beg + speed + vital + rand(1, 20)
+	begminus = salo + rand(1, 20)
+	begresult = begplus - begminus
 	'<center><img src="images/etogame/begsor.jpg"></center>'
-	'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
-	set begplus = beg + speed + vital + rand(1, 20)
-	set begminus = salo + rand(1, 20)
-	set begresult = begplus - begminus
+	'Women''s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
 
 	if begresult <= 0:'You barely managed to reach the finish line, what place is really there, of course you are the last.'
 	if begresult > 0 and begresult < 10:'You are not bad ran for dilettante course, as ranked last 8th place.'
@@ -85,23 +71,22 @@ if $ARGS[0] = 'br':
 	if begresult >= 20 and begresult < 30:'You fought hard, but only managed to take 6th place.'
 	if begresult >= 30 and begresult < 40:'You fought hard, but only managed to take 5th place.'
 	if begresult >= 40 and begresult < 50:'You fought hard, but only managed to take 4th place.'
-	if begresult >= 50 and begresult < 60:set bronzebeg += 1 & set money += 100 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 100 rubles'
-	if begresult >= 60 and begresult < 70:set silverbeg += 1 & set money += 500 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 500 rubles'
-	if begresult >= 70:set razradbeg = 1 & set goldbeg += 1 & set money += 1000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 1, 000 rubles and third sports category on the run.'
-
-	set beg += 1
-	set fat -= 10
+	if begresult >= 50 and begresult < 60:bronzebeg += 1 & money += 100 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 100 rubles'
+	if begresult >= 60 and begresult < 70:silverbeg += 1 & money += 500 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 500 rubles'
+	if begresult >= 70:razradbeg = 1 & goldbeg += 1 & money += 1000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 1, 000 rubles and third sports category on the run.'
 
 	act 'Leave':gt 'down'
 end
 
 if $ARGS[0] = '3':
 	cla
+	beg += 1
+	fat -= 10
+	begplus = beg + speed + vital + rand(1, 20)
+	begminus = salo + rand(1, 20)
+	begresult = begplus - begminus
 	'<center><img src="images/etogame/begsor.jpg"></center>'
 	'You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
-	set begplus = beg + speed + vital + rand(1, 20)
-	set begminus = salo + rand(1, 20)
-	set begresult = begplus - begminus
 
 	if begresult <= 0:'You barely managed to reach the finish line, what place is really there, of course you are the last.'
 	if begresult > 0 and begresult < 70:'You are not bad ran for dilettante course, as ranked last 8th place.'
@@ -109,23 +94,22 @@ if $ARGS[0] = '3':
 	if begresult >= 80 and begresult < 90:'You fought hard, but only managed to take 6th place.'
 	if begresult >= 90 and begresult < 100:'You fought hard, but only managed to take 5th place.'
 	if begresult >= 100 and begresult < 110:'You fought hard, but only managed to take 4th place.'
-	if begresult >= 110 and begresult < 120:set bronzebeg += 1 & set money += 500 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 500 rubles'
-	if begresult >= 120 and begresult < 130:set silverbeg += 1 & set money += 1000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 1, 000 rubles'
-	if begresult >= 130:set razradbeg = 2 & set goldbeg += 1 & set money += 2000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 2, 000 rubles and 2nd sports category on the run.'
-
-	set beg += 1
-	set fat -= 10
+	if begresult >= 110 and begresult < 120:bronzebeg += 1 & money += 500 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 500 rubles'
+	if begresult >= 120 and begresult < 130:silverbeg += 1 & money += 1000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 1, 000 rubles'
+	if begresult >= 130:razradbeg = 2 & goldbeg += 1 & money += 2000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 2, 000 rubles and 2nd sports category on the run.'
 
 	act 'Leave':gt 'down'
 end
 
 if $ARGS[0] = '2':
 	cla
+	beg += 1
+	fat -= 10
+	begplus = beg + speed + vital + rand(1, 20)
+	begminus = salo + rand(1, 20)
+	begresult = begplus - begminus
 	'<center><img src="images/etogame/begsor.jpg"></center>'
-	'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
-	set begplus = beg + speed + vital + rand(1, 20)
-	set begminus = salo + rand(1, 20)
-	set begresult = begplus - begminus
+	'Women''s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
 
 	if begresult <= 0:'You barely managed to reach the finish line, what place is really there, of course you are the last.'
 	if begresult > 0 and begresult < 130:'You are not bad ran for dilettante course, as ranked last 8th place.'
@@ -133,23 +117,22 @@ if $ARGS[0] = '2':
 	if begresult >= 140 and begresult < 150:'You fought hard, but only managed to take 6th place.'
 	if begresult >= 150 and begresult < 160:'You fought hard, but only managed to take 5th place.'
 	if begresult >= 160 and begresult < 170:'You fought hard, but only managed to take 4th place.'
-	if begresult >= 170 and begresult < 180:set bronzebeg += 1 & set money += 1000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 1, 000 rubles'
-	if begresult >= 180 and begresult < 190:set silverbeg += 1 & set money += 2000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 2, 000 rubles'
-	if begresult >= 200:set razradbeg = 3 & set goldbeg += 1 & set money += 3000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 3000 rubles and 1st sports category on the run. You become the champion of the city on the run.'
-
-	set beg += 1
-	set fat -= 10
+	if begresult >= 170 and begresult < 180:bronzebeg += 1 & money += 1000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 1, 000 rubles'
+	if begresult >= 180 and begresult < 190:silverbeg += 1 & money += 2000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 2, 000 rubles'
+	if begresult >= 200:razradbeg = 3 & goldbeg += 1 & money += 3000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 3000 rubles and 1st sports category on the run. You become the champion of the city on the run.'
 
 	act 'Leave':gt 'down'
 end
 
 if $ARGS[0] = '1':
 	cla
+	beg += 1
+	fat -= 10
+	begplus = beg + speed + vital + rand(1, 20)
+	begminus = salo + rand(1, 20)
+	begresult = begplus - begminus
 	'<center><img src="images/etogame/begsor.jpg"></center>'
-	'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
-	set begplus = beg + speed + vital + rand(1, 20)
-	set begminus = salo + rand(1, 20)
-	set begresult = begplus - begminus
+	'Women''s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
 
 	if begresult <= 0:'You barely managed to reach the finish line, what place is really there, of course you are the last.'
 	if begresult > 0 and begresult < 200:'You are not bad ran for dilettante course, as ranked last 8th place.'
@@ -157,23 +140,22 @@ if $ARGS[0] = '1':
 	if begresult >= 210 and begresult < 220:'You fought hard, but only managed to take 6th place.'
 	if begresult >= 230 and begresult < 240:'You fought hard, but only managed to take 5th place.'
 	if begresult >= 240 and begresult < 250:'You fought hard, but only managed to take 4th place.'
-	if begresult >= 250 and begresult < 260:set bronzebeg += 1 & set money += 2000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 2, 000 rubles'
-	if begresult >= 260 and begresult < 270:set silverbeg += 1 & set money += 3000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 3, 000 rubles'
-	if begresult >= 270:set razradbeg = 4 & set goldbeg += 1 & set money += 4000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 4000 rubles and the title of the CCM on the run. You become a champion of the region.'
-
-	set beg += 1
-	set fat -= 10
+	if begresult >= 250 and begresult < 260:bronzebeg += 1 & money += 2000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 2, 000 rubles'
+	if begresult >= 260 and begresult < 270:silverbeg += 1 & money += 3000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 3, 000 rubles'
+	if begresult >= 270:razradbeg = 4 & goldbeg += 1 & money += 4000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 4000 rubles and the title of the CCM on the run. You become a champion of the region.'
 
 	act 'Leave':gt 'down'
 end
 
 if $ARGS[0] = 'kms':
 	cla
+	beg += 1
+	fat -= 10
+	begplus = beg + speed + vital + rand(1, 20)
+	begminus = salo + rand(1, 20)
+	begresult = begplus - begminus
 	'<center><img src="images/etogame/begsor.jpg"></center>'
-	'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
-	set begplus = beg + speed + vital + rand(1, 20)
-	set begminus = salo + rand(1, 20)
-	set begresult = begplus - begminus
+	'Women''s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
 
 	if begresult <= 0:'You barely managed to reach the finish line, what place is really there, of course you are the last.'
 	if begresult > 0 and begresult < 270:'You are not bad ran for dilettante course, as ranked last 8th place.'
@@ -181,23 +163,22 @@ if $ARGS[0] = 'kms':
 	if begresult >= 280 and begresult < 290:'You fought hard, but only managed to take 6th place.'
 	if begresult >= 290 and begresult < 300:'You fought hard, but only managed to take 5th place.'
 	if begresult >= 300 and begresult < 310:'You fought hard, but only managed to take 4th place.'
-	if begresult >= 310 and begresult < 320:set bronzebeg += 1 & set money += 3000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 3, 000 rubles'
-	if begresult >= 320 and begresult < 330:set silverbeg += 1 & set money += 4000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 4, 000 rubles'
-	if begresult >= 330:set razradbeg = 5 & set goldbeg += 1 & set money += 5000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 5000 rubles and the title of Master of Sports in the run. You become a champion of the region.'
-
-	set beg += 1
-	set fat -= 10
+	if begresult >= 310 and begresult < 320:bronzebeg += 1 & money += 3000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 3, 000 rubles'
+	if begresult >= 320 and begresult < 330:silverbeg += 1 & money += 4000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 4, 000 rubles'
+	if begresult >= 330:razradbeg = 5 & goldbeg += 1 & money += 5000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 5000 rubles and the title of Master of Sports in the run. You become a champion of the region.'
 
 	act 'Leave':gt 'down'
 end
 
 if $ARGS[0] = 'ross':
 	cla
+	beg += 1
+	fat -= 10
+	begplus = beg + speed + vital + rand(1, 20)
+	begminus = (salo * 2) + rand(1, 20)
+	begresult = begplus - begminus
 	'<center><img src="images/etogame/begsor.jpg"></center>'
-	'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
-	set begplus = beg + speed + vital + rand(1, 20)
-	set begminus = (salo * 2) + rand(1, 20)
-	set begresult = begplus - begminus
+	'Women''s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
 
 	if begresult <= 0:'You barely managed to reach the finish line, what place is really there, of course you are the last.'
 	if begresult > 0 and begresult < 330:'You are not bad ran for dilettante course, as ranked last 8th place.'
@@ -205,24 +186,23 @@ if $ARGS[0] = 'ross':
 	if begresult >= 340 and begresult < 350:'You fought hard, but only managed to take 6th place.'
 	if begresult >= 350 and begresult < 360:'You fought hard, but only managed to take 5th place.'
 	if begresult >= 360 and begresult < 370:'You fought hard, but only managed to take 4th place.'
-	if begresult >= 370 and begresult < 380:set bronzebeg += 1 & set money += 4000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 4, 000 rubles'
-	if begresult >= 380 and begresult < 390:set silverbeg += 1 & set money += 5000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 5, 000 rubles'
-	if begresult >= 390:set razradbeg = 6 & set goldbeg += 1 & set money += 6000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 6000 rubles and the title of International Master of Sports on the run. You become the champion of Russia.'
-
-	set beg += 1
-	set fat -= 10
+	if begresult >= 370 and begresult < 380:bronzebeg += 1 & money += 4000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 4, 000 rubles'
+	if begresult >= 380 and begresult < 390:silverbeg += 1 & money += 5000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 5, 000 rubles'
+	if begresult >= 390:razradbeg = 6 & goldbeg += 1 & money += 6000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 6000 rubles and the title of International Master of Sports on the run. You become the champion of Russia.'
 
 	act 'Leave':gt 'down'
 end
 
 if $ARGS[0] = 'kval':
 	cla
+	beg += 1
+	fat -= 10
+	razradbeg += 1
+	begplus = beg + speed + vital + rand(1, 20)
+	begminus = (salo * 3) + rand(1, 20)
+	begresult = begplus - begminus
 	'<center><img src="images/etogame/begsor.jpg"></center>'
-	'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
-	set razradbeg += 1
-	set begplus = beg + speed + vital + rand(1, 20)
-	set begminus = (salo * 3) + rand(1, 20)
-	set begresult = begplus - begminus
+	'Women''s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
 
 	if begresult <= 0:'You barely managed to reach the finish line, what place is really there, of course you are the last.'
 	if begresult > 0 and begresult < 450:'You are not bad ran for dilettante course, as ranked last 8th place.'
@@ -230,24 +210,23 @@ if $ARGS[0] = 'kval':
 	if begresult >= 500 and begresult < 550:'You fought hard, but only managed to take 6th place.'
 	if begresult >= 550 and begresult < 600:'You fought hard, but only managed to take 5th place.'
 	if begresult >= 600 and begresult < 650:'You fought hard, but only managed to take 4th place.'
-	if begresult >= 650 and begresult < 700:set razradbegK += 1 & set bronzebeg += 1 & set money += 5000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 5, 000 rubles'
-	if begresult >= 700 and begresult < 800:set razradbegK += 1 & set silverbeg += 1 & set money += 10000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 10, 000 rubles'
-	if begresult >= 800:set razradbegK += 1 & set goldbeg += 1 & set money += 15000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 15 thousand rubles.'
-
-	set beg += 1
-	set fat -= 10
+	if begresult >= 650 and begresult < 700:razradbegK += 1 & bronzebeg += 1 & money += 5000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 5, 000 rubles'
+	if begresult >= 700 and begresult < 800:razradbegK += 1 & silverbeg += 1 & money += 10000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 10, 000 rubles'
+	if begresult >= 800:razradbegK += 1 & goldbeg += 1 & money += 15000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 15 thousand rubles.'
 
 	act 'Leave':gt 'down'
 end
 
 if $ARGS[0] = 'evro':
 	cla
+	beg += 1
+	fat -= 10
+	razradbeg += 1
+	begplus = beg + speed + vital + rand(1, 20)
+	begminus = (salo * 4) + rand(1, 20)
+	begresult = begplus - begminus
 	'<center><img src="images/etogame/begsor.jpg"></center>'
-	'Women´s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
-	set razradbeg += 1
-	set begplus = beg + speed + vital + rand(1, 20)
-	set begminus = (salo * 4) + rand(1, 20)
-	set begresult = begplus - begminus
+	'Women''s 400 meters race. You change clothes and go out on the treadmill. Get up at the start. Distributed starting shot.'
 
 	if begresult <= 0:'You barely managed to reach the finish line, what place is really there, of course you are the last.'
 	if begresult > 0 and begresult < 450:'You are not bad ran for dilettante course, as ranked last 8th place.'
@@ -255,12 +234,9 @@ if $ARGS[0] = 'evro':
 	if begresult >= 700 and begresult < 800:'You fought hard, but only managed to take 6th place.'
 	if begresult >= 800 and begresult < 1000:'You fought hard, but only managed to take 5th place.'
 	if begresult >= 1000 and begresult < 1300:'You fought hard, but only managed to take 4th place.'
-	if begresult >= 1300 and begresult < 1800:set razradbegEB += 1 & set money += 10000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 10 thousand rubles'
-	if begresult >= 1800 and begresult < 2500:set razradbegES += 1 & set money += 15000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 15, 000 rubles'
-	if begresult >= 2500:set razradbegEG += 1 & set money += 20000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 20 thousand rubles. You are the champion of Europe.'
-
-	set beg += 1
-	set fat -= 10
+	if begresult >= 1300 and begresult < 1800:razradbegEB += 1 & money += 10000 & 'You fought hard and managed to take 3rd place prize. You get a bronze medal and a prize of 10 thousand rubles'
+	if begresult >= 1800 and begresult < 2500:razradbegES += 1 & money += 15000 & 'You fought hard and managed to take the 2nd place prize. You get a silver medal and a prize of 15, 000 rubles'
+	if begresult >= 2500:razradbegEG += 1 & money += 20000 & 'You fought hard and managed to take 1st place. You get a gold medal, a prize of 20 thousand rubles. You are the champion of Europe.'
 
 	act 'Leave':gt 'down'
 end

+ 0 - 3
locations/begin

@@ -24,9 +24,6 @@ end
 
 act '<center><b>Start the alternative game</b></center>':
 	cla
-	showstat 1
-	showobjs 1
-	!!addobj 'Player'
 	gt 'alterStart'
 end
 

+ 67 - 68
locations/begin1

@@ -1,94 +1,93 @@
 # begin1
 showstat 1
 showobjs 1
-set $name = 'Svetlana'
-set $surname = 'Lebedev'
+$name = 'Svetlana'
+$surname = 'Lebedev'
 !!!0.2.6 addition
-set $nickname = 'Svetski'
+$nickname = 'Svetski'
 !!!
-set $name = input("What is your first name?")
+$name = input("What is your first name?")
 
-if $name = '':set $name = 'Svetlana'
+if $name = '':$name = 'Svetlana'
 
-set $surname = input("What is your last name?")
+$surname = input("What is your last name?")
 
-if $surname = '':set $surname = 'Lebedev'
+if $surname = '':$surname = 'Lebedev'
 
 !!!0.2.6 addition
-set $nickname = input("What is your nick name?")
+$nickname = input("What is your nick name?")
 
-if $nickname = '':set $nickname = 'Svetski'
+if $nickname = '':$nickname = 'Svetski'
 !!!
 
-set age = 18
-set vidage = 16
-set year = 2010
-set month = 5
-set week = 3
-set hour = 13
+age = 18
+vidage = 16
+year = 2010
+month = 5
+week = 3
+hour = 13
 !!body
-set rost = 170
-set fat = 60
-set salo = 60
-set dick = 0
-set energy = 15
-set water = 15
-set son = 16
+rost = 170
+fat = 60
+salo = 60
+dick = 0
+energy = 15
+water = 15
+son = 16
 !!stats
-set stren = 10
-set strenbuf = 10
-set speed = 10
-set agil = 10
-set agilbuf = 10
-set vital = 10
-set vitalbuf = 10
-set intel = 10
-set will = 10
-set react = 10
-set magik = 0
-set health = vital * 10 + stren * 5
-set willpower = intel * 5 + will * 5
-set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
-!!etogame
-set nastjaqw = 0
-!!etogame
-set money = 16500
-set vidageday = 300
-set housrA = 1
-set sarafan[1] = 1
-set nude = 0
-set sarafanH[1] = 30
-set odevnesh = 0
-set lobok = 3
-set leghair = 3
-set mop = 1
-set housr = 1
-set tanga = 1
+stren = 10
+strenbuf = 10
+speed = 10
+agil = 10
+agilbuf = 10
+vital = 10
+vitalbuf = 10
+intel = 10
+will = 10
+react = 10
+magik = 0
+health = vital * 10 + stren * 5
+willpower = intel * 5 + will * 5
+manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
+nastjaQW = 0
+money = 16500
+vidageday = 300
+housrA = 1
+sarafan[1] = 1
+sarafanH[1] = 30
+nude = 0
+odevnesh = 0
+lobok = 3
+leghair = 3
+mop = 1
+housr = 1
+tanga = 1
 !!!!!!!!!!!!!! Maruda Hair Mod
-set hairlength = 165
+hairlength = 165
 !!!!!!!!!!!!!! Maruda Hair Mod
-set hcol = 1
+hcol = 1
 clr
 gs 'stat'
-set numdres = 1
-set odetjeans = 1
-set numdress = 1
-set jeans[1] = 1
-set jeansH[1] = 100
-set jeansB[1] = 70
-set cltarelka = 1
-set fairy = 10
-set eda = 5
-set clrbelo = 2
-set poroshok = 5
-set shampoo = 5
-set nude = 0
+numdres = 1
+odetjeans = 1
+numdress = 1
+jeans[1] = 1
+jeansH[1] = 100
+jeansB[1] = 70
+cltarelka = 1
+fairy = 10
+eda = 5
+clrbelo = 2
+poroshok = 5
+shampoo = 5
+clr
 gs 'stat'
-set opPRE = 0
-set daystart = 0
+opPRE = 0
+daystart = 0
 
 addobj 'Character'
 addobj 'See'
 addobj 'Others'
+addobj 'Menu'
 
 --- begin1 ---------------------------------

+ 40 - 58
locations/billiard

@@ -12,11 +12,11 @@ act 'Leave':gt 'torgcentr'
 if hour >= 8 and hour <= 20:
 	if money >= 250:
 		act 'Play 250 rubles (1:00)':
-			set money -= 250
-			set billiardnav += rand(0, 3)
-			set minut += 60
-			set billrand = rand(0, 5)
-			set billvar = 0
+			money -= 250
+			minut += 60
+			billvar = 0
+			billiardnav += rand(0, 3)
+			billrand = rand(0, 5)
 
 			if billrand = 0:
 				cla
@@ -26,15 +26,13 @@ if hour >= 8 and hour <= 20:
 
 				if DOM > 20 and strapon = 1:
 					act 'Play on your ass, fuck me lose':
-						set billvar = 1
+						billvar = 1
 						gt 'billiard', 'randwin'
 					end
 				end
 
 				act 'Leave':gt 'billiard'
-			end
-
-			if billrand = 1:
+			elseif billrand = 1:
 				cla
 				'It suits you and offer a couple of guys to play with them'
 
@@ -42,17 +40,15 @@ if hour >= 8 and hour <= 20:
 
 				if DOM > 20 and strapon = 1:
 					act 'Play on your ass, fuck me lose':
-						set billvar = 2
+						billvar = 2
 						gt 'billiard', 'randwin'
 					end
 				end
 
 				act 'Leave':gt 'billiard'
-			end
-
-			if billrand > 1:
+			elseif billrand > 1:
 				cla
-				'You played billiards'
+				'You played billiard.'
 
 				act 'Leave':gt 'billiard'
 			end
@@ -61,9 +57,9 @@ if hour >= 8 and hour <= 20:
 
 	if money >= 300:
 		act 'Play for money':
-			set money -= 300
-			set minut += 60
-			set billvar = 3
+			money -= 300
+			minut += 60
+			billvar = 3
 			gt 'billiard', 'randwin'
 		end
 	end
@@ -72,72 +68,58 @@ end
 if $ARGS[0] = 'randwin':
 	cla
 
-	if billiardnav < 10:set billwin = rand(0, 10)
-	if billiardnav >= 10 and billiardnav < 20:set billwin = rand(0, 12)
-	if billiardnav >= 20 and billiardnav < 30:set billwin = rand(0, 14)
-	if billiardnav >= 30 and billiardnav < 40:set billwin = rand(0, 16)
-	if billiardnav >= 40 and billiardnav < 50:set billwin = rand(0, 18)
-	if billiardnav >= 50 and billiardnav < 60:set billwin = rand(0, 20)
-	if billiardnav >= 60 and billiardnav < 70:set billwin = rand(0, 22)
-	if billiardnav >= 70 and billiardnav < 80:set billwin = rand(0, 24)
-	if billiardnav >= 80 and billiardnav < 90:set billwin = rand(0, 26)
-	if billiardnav >= 90:set billwin = rand(0, 28)
+	if billiardnav < 10:billwin = rand(0, 10)
+	if billiardnav >= 10 and billiardnav < 20:billwin = rand(0, 12)
+	if billiardnav >= 20 and billiardnav < 30:billwin = rand(0, 14)
+	if billiardnav >= 30 and billiardnav < 40:billwin = rand(0, 16)
+	if billiardnav >= 40 and billiardnav < 50:billwin = rand(0, 18)
+	if billiardnav >= 50 and billiardnav < 60:billwin = rand(0, 20)
+	if billiardnav >= 60 and billiardnav < 70:billwin = rand(0, 22)
+	if billiardnav >= 70 and billiardnav < 80:billwin = rand(0, 24)
+	if billiardnav >= 80 and billiardnav < 90:billwin = rand(0, 26)
+	if billiardnav >= 90:billwin = rand(0, 28)
 
 	if billwin > 10 and billvar = 0:
-		set money += 1000
+		money += 1000
 		'You won and received 1,000 rubles.'
 
 		act 'Leave':gt 'billiard'
-	end
-
-	if billwin > 10 and billvar = 1:
+	elseif billwin > 10 and billvar = 1:
 		*clr
-		set DOM += 5
+		DOM += 5
 		'<center><img src="images/img/centr/strapon.jpg"></center>'
-		'You win, put a strap, and looked at the guy, "Well stand stoop, today you´re my bitch"'
+		'You win, put a strap, and looked at the guy, "Well stand stoop, today you''re my bitch"'
 		'The guy dropped his pants and got cancer, you fucked his threesome.'
 
 		act 'Leave':gt 'billiard'
-	end
-
-	if billwin > 10 and billvar = 2:
-		set DOM += 8
+	elseif billwin > 10 and billvar = 2:
+		DOM += 8
 		'<center><img src="images/img/centr/strapon.jpg"></center>'
 		'You won dressed strap, and looked at the guys:"Come on girls panties descend and rise at all, I now this whole harem going to fuck"'
 		'You fucked them all in turn.'
 
 		act 'Leave':gt 'billiard'
-	end
+	elseif billwin > 10 and billvar = 3:
+		money += 300
+		'You won and received 300 rubles.'
 
-	if billwin <= 10 and billvar = 0:
-		set money -= 1000
+		act 'Get_Away':gt'billiard'
+	elseif billwin <= 10 and billvar = 0:
+		money -= 1000
 		'You lost and paid 1,000 rubles.'
 
 		act 'Leave':gt 'billiard'
-	end
-
-	if billwin <= 10 and billvar = 1:
+	elseif billwin <= 10 and billvar = 1:
 		'You lose, will push the legs.'
-		set picrand = 16
+		picrand = 16
 
 		act 'Pay':xgt 'sex', 'var'
-	end
-
-	if billwin <= 10 and billvar = 2:
+	elseif billwin <= 10 and billvar = 2:
 		'You lose, will push the legs.'
 
 		act 'Pay':gt 'paysex', 'var'
-	end
-
-	if billwin > 10 and billvar = 3:
-		set money += 300
-		'You won and got 300 rubles.'
-
-		act 'Leave':gt 'billiard'
-	end
-
-	if billwin <= 10 and billvar = 3:
-		!!set money -= 300
+	elseif billwin <= 10 and billvar = 3:
+		money -= 300
 		'You lost and paid 300 rubles.'
 
 		act 'Leave':gt 'billiard'

+ 29 - 33
locations/billsvid

@@ -1,9 +1,9 @@
 # billsvid
-set minut += 60
-set bilrand = 0
-set manna += 10
-set bilsvidukiy = 0
-set bilsvidkiy = 0
+minut += 60
+bilrand = 0
+manna += 10
+bilsvidukiy = 0
+bilsvidkiy = 0
 gs 'stat'
 '<center><b>Pool</b></center>'
 '<center><img src="images/img/bilsvid/0.jpg"></center>'
@@ -11,42 +11,38 @@ gs 'stat'
 
 act 'Play':
 	if $telsob = 'Alla':
-		set alla += 1
+		alla += 1
 
 		if alla >= 20:
-			set bilrand = rand(0, 10)
+			bilrand = rand(0, 10)
 			if bilrand > 0 and bilrand < 3:gt 'billsvid', '1'
 			if bilrand > 2 and bilrand < 5:gt 'billsvid', '2'
 			if bilrand = 0 or bilrand > 4:gt 'billsvid', '3'
+		elseif alla < 20:
+			gt 'billsvid', '3'
 		end
-
-		if alla < 20:gt 'billsvid', '3'
-
-		end
-	if $telsob = 'Masha':
-		set masha += 1
+	elseif $telsob = 'Masha':
+		masha += 1
 
 		if masha >= 20:
-			set bilrand = rand(0, 10)
+			bilrand = rand(0, 10)
 			if bilrand > 0 and bilrand < 3:gt 'billsvid', '1'
 			if bilrand > 2 and bilrand < 5:gt 'billsvid', '2'
 			if bilrand = 0 or bilrand > 4:gt 'billsvid', '3'
+		elseif masha < 20:
+			gt 'billsvid', '3'
 		end
-
-		if masha < 20:gt 'billsvid', '3'
-	end
-
-	if $telsob = 'Katia':
-		set kat += 1
+	elseif $telsob = 'Katia':
+		kat += 1
 
 		if kat >= 20:
-			set bilrand = rand(0, 10)
+			bilrand = rand(0, 10)
 			if bilrand > 0 and bilrand < 3:gt 'billsvid', '1'
 			if bilrand > 2 and bilrand < 5:gt 'billsvid', '2'
 			if bilrand = 0 or bilrand > 4:gt 'billsvid', '3'
+		else
+			gt 'billsvid', '3'
 		end
-
-		if kat < 20:gt 'billsvid', '3'
 	end
 end
 
@@ -62,7 +58,7 @@ if $ARGS[0] = '1':
 	act 'Kiss her':
 		cla
 		*clr
-		set lesbian += 1
+		lesbian += 1
 		'<center><img src="images/img/bilsvid/2.jpg"></center>'
 		'You turned around and kissed her, in response to <<$telsob>> quickly took off her clothes, stole everything from you and thrown back on the table, you jumped on, continuing to kiss.'
 
@@ -101,7 +97,7 @@ if $ARGS[0] = '12':
 	cla
 	*clr
 
-	set bilsvidkiy = 1
+	bilsvidkiy = 1
 	'<center><img src="images/img/bilsvid/6.jpg"></center>'
 	'<<$telsob>> climbed on the table and spread her legs wide. Picking up the cue stick and you licked medleno inserted it into her vagina. <<$telsob>> Diligently podmahivala your movements to the beat and a few minutes later collapsed on the table in a shuddering orgasm.'
 
@@ -113,12 +109,12 @@ end
 if $ARGS[0] = '13':
 	cla
 	*clr
-	set orgasm += 1
-	set vagina += 1
+	orgasm += 1
+	vagina += 1
 
-	set bilsvidukiy = 1
+	bilsvidukiy = 1
 	'<center><img src="images/img/bilsvid/5.jpg"></center>'
-	'You sat on the edge of the table, throwing one leg on the table and stretched her cue, "get into the pocket?". <<$telsob>> smiled and demonstrotivno spending tongue rukoyadke cue quickly inserted it you pussy, you already squealed in surprise. While she diligently fucked you cue, turning it in different directions, you´re massaging her clitoris with a finger. After a few minutes pleasant negative spread through your body and you are disconnected from the second nacrite you orgasm.'
+	'You sat on the edge of the table, throwing one leg on the table and stretched her cue, "get into the pocket?". <<$telsob>> smiled and demonstrotivno spending tongue rukoyadke cue quickly inserted it you pussy, you already squealed in surprise. While she diligently fucked you cue, turning it in different directions, you''re massaging her clitoris with a finger. After a few minutes pleasant negative spread through your body and you are disconnected from the second nacrite you orgasm.'
 
 	if bilsvidkiy = 0:act 'Play with a cue':gt 'billsvid', '12'
 
@@ -136,7 +132,7 @@ if $ARGS[0] = '2':
 	act 'Kiss her':
 		cla
 		*clr
-		set lesbian += 1
+		lesbian += 1
 		'<center><img src="images/img/bilsvid/11.jpg"></center>'
 		'When <<$telsob>> once again put her hand on your stomach, you moved up closer to her and kissed her hand immediately slipped under your clothes and stood on his chest.'
 
@@ -167,7 +163,7 @@ if $ARGS[0] = '2':
 						act 'Lick her':
 							cla
 							*clr
-							set orgasm += 1
+							orgasm += 1
 							'<center><img src="images/img/bilsvid/16.jpg"></center>'
 							'You turned around so that pussy was over her face, and have started to lick her pussy in a few minutes you feel as her body shook and <<$telsob>> groaning strongly pressed against your pussy, and then you have shrouded pleasant waves of orgasm.'
 
@@ -182,8 +178,8 @@ end
 
 if $ARGS[0] = '3':
 	cla
-	set horny = 0
-	set minut += 60
+	horny = 0
+	minut += 60
 	gs 'stat'
 	'When you have finished playing <<$telsob>> said that she needed to flee and left'
 

+ 2 - 2
locations/blackjack

@@ -24,10 +24,10 @@ num += 1
 
 if num < 10:jump'markcard'
 
-'<center><img src="images/qwest/card/<<$papkacard[1]>>/<<$papkacard[1]>><<numcard[1]>>.jpg"><img src="images/qwest/card/<<$papkacard[2]>>/<<$papkacard[2]>><<numcard[2]>>.jpg"></center>'
 sumcard = nomcard[1]+nomcard[2]
+'<center><img src="images/qwest/card/<<$papkacard[1]>>/<<$papkacard[1]>><<numcard[1]>>.jpg"><img src="images/qwest/card/<<$papkacard[2]>>/<<$papkacard[2]>><<numcard[2]>>.jpg"></center>'
 'denomination cards <<sumcard>>'
 
-act 'remove card':gt $loc
+act 'Remove card':gt $loc
 
 --- blackjack ---------------------------------

+ 5 - 6
locations/bldzh

@@ -1,13 +1,12 @@
 # bldzh
-*pl '<right><img src="images/casino/stolbd.jpg"></right>'
-*p 'You are standing at a table game Blackjack'
+clr
+minut += 10
+gs 'stat'
+'<right><img src="images/casino/stolbd.jpg"></right>'
+'You are standing at a table game Blackjack'
 
 act 'Approach to the dealer':gt 'croupier1'
 act 'Sit at the table':gt 'igrkart1'
 act 'Move away from the table':gt 'cards'
 
-clr
-gs 'stat'
-set minut += 10
-
 --- bldzh ---------------------------------

+ 37 - 73
locations/blowPR

@@ -2,20 +2,19 @@
 if $ARGS[0] = 'start':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	*clr
 	cla
+	clr
+	*clr
+	minut += 1
+	guy += 1
+	bj += 1
+	throat += 1
+	prosta += 1
+	!!son -= 1
 	zpprand = rand(0, 100)
 
 	if zpprand >= 70:dynamic $venerasiak
 
-	set minut += 1
-	set guy += 1
-	set bj += 1
-	set throat += 1
-	set prosta += 1
-	!!set son -= 1
-
-	clr
 	gs 'stat'
 	'<center><img src="images/img/prost/bj.jpg"></center>'
 	'Your hand slid crotch guy and unzipped his pants. You shoved his hand into his pants and pulled out his cock.'
@@ -27,37 +26,25 @@ end
 if $ARGS[0] = '1':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	*clr
 	cla
-	set minut += 5
-	set prezik -= 1
 	clr
+	*clr
+	minut += 5
+	prezik -= 1
 	gs 'stat'
-	set picrand = rand(0, 6)
-
-	if picrand = 0:'<center><img src="images/img/prost/bjp.jpg"></center>'
-	if picrand = 1:'<center><img src="images/img/prost/bjp2.jpg"></center>'
-	if picrand = 2:'<center><img src="images/img/prost/bjp3.jpg"></center>'
-	if picrand = 3:'<center><img src="images/img/prost/bjp4.jpg"></center>'
-	if picrand = 4:'<center><img src="images/img/prost/bjp5.jpg"></center>'
-	if picrand = 5:'<center><img src="images/img/prost/bjp6.jpg"></center>'
-	if picrand = 6:'<center><img src="images/img/prost/bjp7.jpg"></center>'
-
+	picrand = rand(1, 7)
+	'<center><img src="images/img/prost/bjp<<picrand>>.jpg"></center>'
 	'You pulled his lips a condom on the penis'
 
 	if prosti = 0:
 		'Your lips slide down the barrel client until he cums in a condom'
 
 		act 'Leave.':gt $locSex, $metkaSex
-	end
-
-	if prosti = 1:
+	elseif prosti = 1:
 		'Client sufficiently warmed up and you can continue.'
 
 		act 'Further.':gt 'NormPR', '1'
-	end
-
-	if prosti = 2:
+	elseif prosti = 2:
 		'Client sufficiently warmed up and you can continue.'
 
 		act 'Further.':gt 'AnalPR', '1'
@@ -67,21 +54,15 @@ end
 if $ARGS[0] = '2':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
-	*clr
+
 	cla
-	dynamic $venerasiak
-	set minut += 5
 	clr
+	*clr
+	dynamic $venerasiak
+	minut += 5
 	gs 'stat'
-	set picrand = rand(0, 5)
-
-	if picrand = 0:'<center><img src="images/img/prost/bjp8.jpg"></center>'
-	if picrand = 1:'<center><img src="images/img/prost/bjp9.jpg"></center>'
-	if picrand = 2:'<center><img src="images/img/prost/bjp10.jpg"></center>'
-	if picrand = 3:'<center><img src="images/img/prost/bjp11.jpg"></center>'
-	if picrand = 4:'<center><img src="images/img/prost/bjp12.jpg"></center>'
-	if picrand = 5:'<center><img src="images/img/prost/bjp13.jpg"></center>'
-
+	picrand = rand(8, 13)
+	'<center><img src="images/img/prost/bjp<<picrand>>jpg"></center>'
 	'You clasped lips member.'
 
 	act 'Suck':gt 'blowPR', '12'
@@ -98,70 +79,53 @@ if $ARGS[0] = '12':
 
 		if bj <= 15 and bjrand > 0 and bjrand <= 50:
 			'You clumsy movements suck dick customer until he cums in your mouth, making you wince from the unpleasant taste of sperm.'
-			set cumlip += 1
+			cumlip += 1
 			'<center><img src="images/img/prost/bjm.jpg"></center>'
 
 			act 'Leave.':gt $locSex, $metkaSex
-		end
-
-		if bj > 15 and bjrand > 0 and bjrand <= 50:
-			set cumlip += 1
+		elseif bj > 15 and bjrand > 0 and bjrand <= 50:
+			cumlip += 1
 			'<center><img src="images/img/prost/bjm2.jpg"></center>'
 			'Your trained sponge glide up and down, bringing pleasure to the customer. Very soon you will feel the taste of his seed that you swallow with delight to the last drop.'
-			set cumlip += 1
 
 			act 'Leave.':gt $locSex, $metkaSex
-		end
-
-		if bjrand > 50 and bjrand <= 80 and bj <= 15 and mop = 1:
-			set cumface += 1
+		elseif bjrand > 50 and bjrand <= 80 and bj <= 15 and mop = 1:
+			cumface += 1
 			'<center><img src="images/img/prost/bjf.jpg"></center>'
 			'You clumsy movements suck dick client suddenly you he pulls his dick, ending on your face, you do not have time to blink, a little sperm gets you in the eye, but, despite the burning, you can not cry, you can only smile.'
 
 			act 'Leave.':gt $locSex, $metkaSex
-		end
-
-		if bjrand > 50 and bjrand <= 80 and bj <= 15 and mop > 1:
-			set cumface += 1
-			set mop = 0
+		elseif bjrand > 50 and bjrand <= 80 and bj <= 15 and mop > 1:
+			cumface += 1
+			mop = 0
 			'<center><img src="images/img/prost/bjf.jpg"></center>'
 			'You clumsy movements suck dick client suddenly you he pulls his dick, ending on your face, you do not have time to blink, a little sperm gets you in the eye, but, despite the burning, you can not cry, you can only smile.'
 
 			act 'Leave.':gt $locSex, $metkaSex
-		end
-
-		if bjrand > 50 and bjrand <= 80 and bj > 15:
-			set cumface += 1
+		elseif bjrand > 50 and bjrand <= 80 and bj > 15:
+			cumface += 1
 			'<center><img src="images/img/prost/bjf2.jpg"></center>'
 			'Your trained sponge glide up and down, bringing pleasure to the customer as soon as the client has released your mouth, you realize that your face is now flooded with sperm. You have time, tilt the head back with her eyes closed, heavy drops falling on your chin, forcing to smile at the thought of not smeared makeup.'
 
 			act 'Leave.':gt $locSex, $metkaSex
-		end
-
-		if bjrand > 80 and bjrand <= 100 and bj <= 15:
+		elseif bjrand > 80 and bjrand <= 100 and bj <= 15:
+			cumfrot += 1
 			'<center><img src="images/img/prost/bjt2.jpg"></center>'
 			'You clumsy movements suck dick client, it stretches hands to your chest trying to expose it. You moaned, letting him know that was not the deal. Dissatisfied client continued to have you in my mouth. You have already relaxed, as a client, pushing, pulled wet from saliva member. His eyes closed, you feel like a drop of sperm not fall on your face and chest! Surprised you open your eyes in horror when he saw in the semen-stained clothing, and pretty smiling customer.'
-			set cumfrot += 1
 
 			act 'Leave.':gt $locSex, $metkaSex
-		end
-
-		if bjrand > 80 and bjrand <= 100 and bj > 15:
+		elseif bjrand > 80 and bjrand <= 100 and bj > 15:
+			money += 500
 			'<center><img src="images/img/prost/bjt.jpg"></center>'
 			'Your trained sponge glide up and down, bringing pleasure to the customer. He stretches his hands to your chest did not patiently trying to expose her, you understand everything without words. Exposing boobs you become even more carefully to work his mouth when he was already on the brink, you have stepped back sharply, slipping back with the member in a moment became a client shoot sperm on your carefully when substituted hemisphere. Left happy, he handed you another Piatihatki.'
-			set money += 500
 
 			act 'Leave.':gt $locSex, $metkaSex
 		end
-	end
-
-	if prosti = 1:
+	elseif prosti = 1:
 		'Client sufficiently warmed up and you can continue.'
 
 		act 'Further.':gt 'NormPR', '2'
-	end
-
-	if prosti = 2:
+	elseif prosti = 2:
 		'Client sufficiently warmed up and you can continue.'
 
 		act 'Further.':gt 'AnalPR', '2'

+ 172 - 22
locations/bobka

@@ -1,13 +1,16 @@
 # bobka
-!!!Probably community optimization
+
 $bobka_bj = {
 	'<center><img src="images/qwest/sosed/bj.jpg"></center>'
 	$tempval = 'You'
 	$tempval2 = ''
+
 	if HaveMetBobka = 1:$tempval = 'You desperately need a fix so you'
 	if bobrand = 0:$tempval2 = ' He tucked his dick in his pants and threw you a syringe.'
+
 	'<<$tempval>> dropped down on your knees in front of the guy and started sucking his flaccid penis. His penis started to get erect in your mouth as you actively sucked it. Suddenly you feel a jet of sperm hit you in the mouth. You continued sucking while swallowing sperm. Finally it stopped and he pulled his cock out of your mouth.<<$tempval2>>'
 }
+
 $bobka_inject = {
 	act 'Inject.':
 		cls
@@ -17,33 +20,36 @@ $bobka_inject = {
 		NarkShmaraTimes += 1
 		gs 'stat'
 		$tempval = ''
+
 		if narkoman ! 0:$tempval = ' with trembling hands'
+
 		'You grabbed the syringe and injected yourself<<$tempval>>. While <<$tempname>> was looking at you with a smile.'
-		if HaveMetBobka = 0:'"By the way I´m Bobka, and you are?" You mumbled "<<$name>>."' & HaveMetBobka = 1
+
+		if HaveMetBobka = 0:'"By the way I''m Bobka, and you are?" You mumbled "<<$name>>."' & HaveMetBobka = 1
+
 		act 'Leave':minut += 15 & gt 'street'
 	end
 }
-!!!
 
 if bobrand = 0:
 	minut += 5
 	bj += 1
 	swallow += 1
 	cumlip += 1
-	gs 'stat'
+	gs'stat'
+
 	dynamic $venerasiak
 	dynamic $bobka_bj
 	dynamic $bobka_inject
-end
-
-if bobrand = 1:
+elseif bobrand = 1:
 	minut += 5
 	bj += 1
-	gs 'stat'
+	gs'stat'
+
 	dynamic $venerasiak
 	dynamic $bobka_bj
 
-	act '(Continue)':
+	act 'Go into doggystyle position':
 		cls
 		minut += 5
 		sex += 1
@@ -58,23 +64,22 @@ if bobrand = 1:
 		'He threw you a syringe.'
 		dynamic $bobka_inject
 	end
-end
-
-if bobrand = 2:
+elseif bobrand = 2:
 	minut += 5
 	bj += 1
-	gs 'stat'
+	gs'stat'
+
 	dynamic $venerasiak
 	dynamic $bobka_bj
-	'(SOMETHING TO LEAD TO NEXT SCENE FROM HERE)'
-	act '(Continue)':
+
+	act 'Go into doggystyle position':
 		cls
 		minut += 5
 		$boy = 'Bobka'
 		dick = 16
 		silavag = 1
 		cumanus += 1
-		gs 'stat'
+		gs'stat'
 		'<center><img src="images/qwest/sosed/anal.jpg"></center>'
 		dynamic $sexstart
 		dynamic $analsex
@@ -82,19 +87,164 @@ if bobrand = 2:
 		'He threw you a syringe.'
 		dynamic $bobka_inject
 	end
-end
+elseif bobrand = 3:
+	minut += 10
+	gs'stat'
+	$tempval = 'You'
+	$tempval2 = ''
+
+	if HaveMetBobka = 1:$tempval = 'You desperately need a fix so you'
+
+	'<center><img src="images/qwest/sosed/rimming.jpg"></center>'
+	'<<$tempval>> dropped down on your knees in front of the guy and frozen in indecision. Bobka lay back and lifted his legs pulled up to your face its fifth point said "Come lick already, Hare rebate".'
 
-if bobrand = 3:
+	act 'Reluctantly licking':gt 'bobka', 'rimming2'
+	act 'Carefully lick':gt 'bobka', 'rimming3'
+elseif bobrand = 4:
 	minut += 5
 	pee += 1
-	gs 'stat'
-	dynamic $venerasiak
-	'<center><img src="images/qwest/sosed/pee.jpg"></center>'
+	gs'stat'
 	$tempval = 'You'
+	$tempval2 = ''
+
 	if HaveMetBobka = 1:$tempval = 'You desperately need a fix so you'
-	'<<$tempval>> dropped down on your knees in front of the guy. Bobka pulled out his flaccid cock and hot stream of urine hit you on the lips. He pissed on your face for quite some time. Finally <<$tempname>> shook off the last drops on your face. He tucked his dick in his pants and threw you a syringe.'
+
+	'<center><img src="images/qwest/sosed/knees.jpg"></center>'
+	'<<$tempval>> dropped down on your knees in front of the guy. "If you swallow - Naquin steward top." - grinning offered you Bobka'
+
+	act 'Substitute person':gt 'bobka', 'peeface'
+	act 'Open your mouth':gt 'bobka', 'peeswallow'
+end
+
+if $ARGS[0] = 'rimming2':
+	cla
+	cls
+	minut += 5
+	'<center><img src="images/qwest/sosed/rimming2.jpg"></center>'
+	'You looked at him pleadingly, but do nothing, breaking unbearable and you doomed kneels. Clasping hands buttocks, you are a little bit lit them and slightly tongue hanging out timidly licked his hairy point. From the terrible smell and taste you almost puked, but willpower you discreet and began to drive sluggish tongue around his hole. - «You Th zhopolizka, sleep there? Let`s normal operating your fucking tongue» - He yelled at you, reinforcing its claim slap in the face. Tears gushed out of your eyes and you, fearfully looking up at him, become hard to handle every inch of his dirty ass, do not forget to kiss and suck periodically covered with sweat eggs. «That`s better» - Bobka and grinned suddenly with the force of your face pressed to his ass. «Now zasun his foul language there, where he belongs»'
+
+	act 'Moo and working language.':gt 'bobka', 'rimming4'
+end
+
+if $ARGS[0] = 'rimming3':
+	cla
+	cls
+	minut += 5
+
+	'<center><img src="images/qwest/sosed/rimming3.jpg"></center>'
+	'understanding, useless to argue that you knelt down and began to polish his hole hard, not forgetting about the neighborhood. You were like a cat, lick his balls. Language quickly tired of this hard work, nasty taste and smell of shit made ​​you wince, but you patiently continued to clean his unwashed hairy mezhduzhopie, not forgetting pripadat juicy lips and kissed each corner. «Ha yes you inborn zhopolizka, seen love this thing» - Bobka laughed and suddenly pressed his face into your own ass. «It`s time for you to stick your dirty language there, where it should be» - grinned Bobka.'
+
+	act 'Moo and working language.':gt 'bobka', 'rimming4'
+end
+
+if $ARGS[0] = 'rimming4':
+	cla
+	cls
+	minut += 5
+	SUB += 1
+	gs'stat'
+
+	'<center><img src="images/qwest/sosed/rimming4.gif"></center>'
+	'Your face is so hard pressed to reeking of sweat and stale than the crotch Bobkov, hair with his pubes intertwined with your nose. Slightly swollen lips flattened ring of sphincter. you choke, plaintively mychite and the last effort diligently pushed her tired tongue in his anus. «I want to, that you thoroughly cleaned me out there, otherwise, then you know that for a long time DO NOT wash, hot water nebilo, and why, when there are zhopolizki» - mockingly said Bobka understanding, nadrachivat continuing his already hard standing member. By throat again drove com nausea, but the idea, you can not get drugs even worse and you, with tears in his eyes, suppressing the urge, courageously continued to move his tongue in the ass. «If only he quickly finished» - Beats you up with the idea, in those moments, when you are with smeared makeup and language in the ass, slurred mychite and pleading look at him from under the eggs.'
+
+	act 'come':gt 'bobka', 'rimming5'
+end
+
+if $ARGS[0] = 'rimming5':
+	cla
+	cls
+	minut += 5
+	cumlip += 1
+	cumface = cumface + 1
+	gs'stat'
+	'<center><img src="images/qwest/sosed/rimming5.jpg"></center>'
+	'At_Last, unable to bear it with a muffled rattle became abundantly finish, watering your face and hair hearty sperm, you stand in a humiliating position with his eyes closed and his head down. In teeth stuck several hard black hairs. «Hey Shmarev, and who will clean?» - Bobka, poked you flaccid penis under his breath. You meekly took in his mouth and brushed his fallen body, otliza anus after the taste of semen was almost pleasant, and with hope looked at him, waiting dose. «Th such acidic? Get_used_to_it, zhopolizka, heroin whores should not be squeamish». - With these words and nasty smile Bobka you threw a syringe.'
 	dynamic $bobka_inject
+end
+
+if $ARGS[0] = 'peeface':
+	cla
+	cls
+	minut += 5
+	'<center><img src="images/qwest/sosed/peeface.jpg"></center>'
+	'Bobka took his flaccid cock and hot stream of urine dramatically splattered on your face. You`re a little twitch. "Do not you turn away and turn a blind eye, I look into the eyes of a bitch."- he shouted at you'
+
+	act 'Look in your eyes':gt 'bobka', 'peeface2'
+end
+
+if $ARGS[0] = 'peeface2':
+	cla
+	cls
+	minut += 5
+	'<center><img src="images/qwest/sosed/peeface2.jpg"></center>'
+	'You look in the eyes obediently, trying not to blink and keep your face so, to spray does not impinge on the nose. You hold firmly, ignoring the fluttering across your face spray and disgusting smell. You desperately need a dose. Trickle of urine running down your face, sisechki and form a puddle under you. Finally, you sit . You feel that your entire body impregnated with this disgusting smell, at least the person exactly. In your mind struggles awareness, that you just like pissing torn blotter, one side, breaking buzz and anticipation on the other. Wiping her eyes from splashes you looking forward to Bobkov and stretch from breaking shaking hands behind syringe. '
+
+	act 'streamlined':gt 'bobka', 'peeface3'
+end
+
+if $ARGS[0] = 'peeface3':
+	cla
+	cls
+	minut += 5
+	'<center><img src="images/qwest/sosed/peeface3.jpg"></center>'
+	'Bobka slowly shakes off the last drops on your face and wipes his penis on your hair. «Well opuschenka, you like a shower? Just right for a heroin whores, how are you. Keep your dose» - grinning and holding a syringe guy says, seeing your status.'
 
+	act 'Grab a syringe':gt 'bobka', 'peewhore'
 end
 
+if $ARGS[0] = 'peeswallow':
+	cla
+	cls
+	minut += 5
+	money += 100
+	water += 10
+	'<center><img src="images/qwest/sosed/peeswallow.jpg"></center>'
+	'Golden brackish liquid sharply hit you in the mouth, you almost choked and coughed, involuntary grimacing from noxious fumes.'
+
+	act 'Cough':gt 'bobka', 'peeswallow2'
+end
+
+if $ARGS[0] = 'peeswallow2':
+	cla
+	cls
+	minut += 5
+	'<center><img src="images/qwest/sosed/peeswallow2.gif"></center>'
+	'Bobka wait until you coughed again and open your mouth, and then continued to urinate. Your mouth quickly filled with warm adverse moisture, you take a drink, suppressed a gag reflex, again and then, but the flow has not dried up. From the corner of his mouth and ran down his chin excess, «Slurp every drop, and you will not get money, creature» severely scolded you dope dealer. realizing, do not have time to swallow all, You open your mouth wider, making it in the manner of the urinal. In the mouth you immediately zazhurchal and even seemed to foam bubbles, you`ve done a few sips, and then, his head thrown back, just passed urine flows directly into the stomach, without swallowing. Your stomach filled quickly, and treacherously swollen belly.'
+
+	act 'Diligently to swallow':gt 'bobka', 'peeswallow3'
+end
+
+if $ARGS[0] = 'peeswallow3':
+	cla
+	cls
+	minut += 5
+	'<center><img src="images/qwest/sosed/peeswallow3.jpg"></center>'
+	'Finally, but then shoved in your mouth you dirty flaccid dick, forcing suck the last drops.'
+
+	act 'Take by mouth':gt 'bobka', 'peeswallow4'
+end
+
+if $ARGS[0] = 'peeswallow4':
+	cla
+	cls
+	minut += 5
+
+	'<center><img src="images/qwest/sosed/peeswallow4.jpg"></center>'
+	'You obediently sucks residues, not grimacing at the taste. Finished brushing member, You pull his hand for a syringe, trying not to think about, for the sake of it, but still diligently all swallowed. Kaif is near. «Enjoyed working urinal? Get_used_to_it, opustehi type for you, this is the most suitable employment» - Laughed Bobka - «Keep your dose and as promised a hundred top».'
+
+	act 'grab a syringe':gt 'bobka', 'peewhore'
+end
+if $ARGS[0] = 'peewhore':
+	cla
+	cls
+	minut += 5
+	StrongNarkota += 25
+	SNarkTimes += 1
+	NarkShmaraTimes += 1
+	gs 'stat'
+	'<center><img src="images/qwest/sosed/peewhore.jpg"></center>'
+	'Even washing you greedily grabbed a syringe with foolishness and it stuck itself in a vein shaking hands. Man with a smile looking at you.'
+
+	act 'Leave':minut += 10 & gt'street'
+end
 --- bobka ---------------------------------

+ 3 - 3
locations/body

@@ -12,9 +12,9 @@ else
 end
 
 !!'<a href="exec:view''images/body/1.jpg''">anus</a>'
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!SIZE AND WEIGHT
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!
+!!!!!SIZE AND WEIGHT!!!
+!!!!!!!!!!!!!!!!
 if dounspell = 0:
 	strenbuf = stren
 	vitalbuf = vital

+ 60 - 71
locations/bordel

@@ -4,25 +4,23 @@ gs 'stat'
 '<center><b>Brothel</b></center>'
 '<center><img src="images/img/centr/bordel.jpg"></center>'
 
-if vnesh >= 0 and vnesh < 25:
-	'"Look at you, for such a product no one will pay cleaned up and come back."'
-
-	act 'Leave':gt 'down'
-end
-
 if vnesh < 0:
 	'"Listen, you have some sort of infection, go to undergo treatment."'
 
 	act 'Leave':gt 'down'
-end
+elseif vnesh >= 0 and vnesh < 25:
+	'"Look at you, for such a product no one will pay cleaned up and come back."'
 
-if vnesh >= 25:act 'In the room':gt 'bordel', 'start'
+	act 'Leave':gt 'down'
+elseif vnesh >= 25:
+	act 'In the room':gt 'bordel', 'start'
+end
 
 if $ARGS[0] = 'start':
-	cla
-	*clr
 	$metkaM = $ARGS[0]
 	$locM = $CURLOC
+	cla
+	*clr
 	gs 'stat'
 	'<center><b>Your room in a brothel</b></center>'
 	'<center><img src="images/img/centr/borroom.jpg"></center>'
@@ -30,9 +28,9 @@ if $ARGS[0] = 'start':
 	'In the middle is a huge bed, and a small side door <a href="exec:gt ''bordel'', ''dysh''">bath</a>.'
 
 	act 'Leave':
-		if odetero = 0:gt 'down'
-
-		if odetero > 0:
+		if odetero = 0:
+			gt 'down'
+		else
 			cla
 			'You need to change into my clothes.'
 
@@ -53,43 +51,44 @@ if $ARGS[0] = 'start':
 			'You need to freshen up.'
 
 			act 'In the bathroom':gt 'bordel', 'dysh'
+		else
+			gt 'bordel', 'var'
 		end
-
-		if cumbelly = 0 and cumpussy = 0 and cumass = 0 and cumlip = 0 and cumface = 0 and cumfrot = 0 and cumanus = 0 and odetero > 0 and mop > 1 and leghair < 1 and lobok < 1 and sweat < 1 and hapri > 0:gt 'bordel', 'var'
 	end
 end
 
 if $ARGS[0] = 'dysh':
-	cla
-	*clr
 	$metkaM = $ARGS[0]
 	$locM = $CURLOC
+	cla
+	*clr
 	gs 'stat'
 
 	'<center><img src="images/img/centr/bordysh.jpg"></center>'
 
 	act 'In the room':gt 'bordel', 'start'
-		act 'Bathroom':
-			set bordysh = 1
-			gt 'vann', 'start'
-		end
 
-		act 'Mirror':
-			set borMir = 1
-			gt 'mirror', 'start'
-		end
+	act 'Bathroom':
+		bordysh = 1
+		gt 'vann', 'start'
+	end
 
-		act 'Locker for clothes':
-			set borLoker = 1
-			gt 'loker', 'start'
-		end
+	act 'Mirror':
+		borMir = 1
+		gt 'mirror', 'start'
+	end
+
+	act 'Locker for clothes':
+		borLoker = 1
+		gt 'loker', 'start'
+	end
 end
 
 if $ARGS[0] = 'var':
 	if borsexkol >= 2:gt 'bordel', 'start'
 
-	set minut += 30
-	set borrand = rand(0, 10)
+	minut += 30
+	borrand = rand(0, 10)
 
 	if borrand = 0:
 		'Customer ordered one girl, the price of 1,000 rubles.'
@@ -97,96 +96,86 @@ if $ARGS[0] = 'var':
 		act 'Refuse':gt 'bordel', 'start'
 
 		act 'Agree':
-			set borsexkol += 1
-			set money += 1000
-			set slutty += 1
-			set bordelslutty += 1
-			set minut += 120
+			borsexkol += 1
+			money += 1000
+			slutty += 1
+			bordelslutty += 1
+			minut += 120
 			zpprand = rand(0, 100)
 
 			if zpprand >= 70:dynamic $venerasiak
 
 			gt 'sex', 'start'
 		end
-	end
-
-	if borrand = 1:
+	elseif borrand = 1:
 		'Customer ordered two girls, the price of 1,000 rubles.'
 
 		act 'Refuse':gt 'bordel', 'start'
 
 		act 'Agree':
-			set borsexkol += 1
-			set money += 1000
-			set slutty += 1
-			set bordelslutty += 1
-			set minut += 120
+			borsexkol += 1
+			money += 1000
+			slutty += 1
+			bordelslutty += 1
+			minut += 120
 			zpprand = rand(0, 100)
 
 			if zpprand >= 70:dynamic $venerasiak
 
 			gt 'podrsex', 'start'
 		end
-	end
-
-	if borrand = 2:
+	elseif borrand = 2:
 		'Two clients booked one girl, the price of 1,500 rubles.'
 
 		act 'Refuse':gt 'bordel', 'start'
 
 		act 'Agree':
-			set borsexkol += 1
-			set money += 1500
-			set slutty += 1
-			set bordelslutty += 1
-			set minut += 120
+			borsexkol += 1
+			money += 1500
+			slutty += 1
+			bordelslutty += 1
+			minut += 120
 			zpprand = rand(0, 100)
 
 			if zpprand >= 70:dynamic $venerasiak
 
 			gt 'sexdvoe', 'start'
 		end
-	end
-
-	if borrand = 3:
+	elseif borrand = 3:
 		'Two clients booked two girls, the price of 1,500 rubles.'
 
 		act 'Refuse':gt 'bordel', 'start'
 
 		act 'Agree':
-			set borsexkol += 1
-			set money += 1500
-			set slutty += 1
-			set bordelslutty += 1
-			set minut += 120
+			borsexkol += 1
+			money += 1500
+			slutty += 1
+			bordelslutty += 1
+			minut += 120
 			zpprand = rand(0, 100)
 
 			if zpprand >= 70:dynamic $venerasiak
 
 			gt 'sexdvanadva', 'start'
 		end
-	end
-
-	if borrand = 4:
+	elseif borrand = 4:
 		'Customer group ordered one girl, price 2,000 rubles.'
 
 		act 'Refuse':gt 'bordel', 'start'
 
 		act 'Agree':
-			set borsexkol += 1
-			set money += 2000
-			set slutty += 1
-			set bordelslutty += 1
-			set minut += 120
+			borsexkol += 1
+			money += 2000
+			slutty += 1
+			bordelslutty += 1
+			minut += 120
 			zpprand = rand(0, 100)
 
 			if zpprand >= 70:dynamic $venerasiak
 
 			gt 'paysex', 'start'
 		end
-	end
-
-	if borrand > 4:
+	elseif borrand > 4:
 		'You will not chose.'
 
 		act 'Go into the room':gt 'bordel', 'start'

+ 26 - 29
locations/bordelv

@@ -1,21 +1,21 @@
 # bordelv
 cla
 *clr
-set minut += 30
-set horny += 20
+minut += 30
+horny += 20
 gs 'stat'
 '<center><b><font color="maroon">room with a mirror</font></b></center>'
 '<center><img src="images/img/centr/bvika1.jpg"></center>'
 'Vic takes you through what that neighborhood, and entered into an inconspicuous door you find a large room vnitri here scurry girls dressed as if they did not have clothes and not letting you look around Vic drags you down the hall, she finally gets you to the small room except where chairs and glass in the wall nothing. "Sit here, " she says, and leaves.'
-'You sat down in a chair and look through the glass is a room with a large bed. "This is a brothel" flashed in your head, "I´m in the room for voyeurs."'
-'While you´re pondering proiskhodyazhee Vick came into the room, dressed in a pink combination, and lay on the bed.'
+'You sat down in a chair and look through the glass is a room with a large bed. "This is a brothel" flashed in your head, "I''m in the room for voyeurs."'
+'While you''re pondering proiskhodyazhee Vick came into the room, dressed in a pink combination, and lay on the bed.'
 'She looked at you through the glass with one hand and massaged her pussy through her panties. Looking at it you felt like you covered excitement.'
 
 act 'view more':
 	cla
 	*clr
-	set horny += 20
-	set picrand = 2
+	horny += 20
+	picrand = 2
 	'<center><img src="images/img/centr/bvika2.jpg"></center>'
 	'A few minutes later came into the room, two men jumped out of bed Vick and he rose to his knees between them took their members, continuing to look in your direction, it does blowjob both at once. You looked like zavorezhennaya in her mouth then disappears then one other member, she continued diligently to satisfy men not taking chapter from the mirror from her view your pussy strongly humidified and demanded attention.'
 
@@ -26,9 +26,9 @@ end
 if $ARGS[0] = 'sex':
 	cla
 	*clr
-	set minut += 10
-	set picrand = rand(3, 7)
-	set dviksex += 1
+	minut += 10
+	picrand = rand(3, 7)
+	dviksex += 1
 	horny += 20
 	gs 'stat'
 	'<center><img src="images/img/centr/bvika<<picrand>>.jpg"></center>'
@@ -39,13 +39,12 @@ if $ARGS[0] = 'sex':
 	if dviksex >= 3:act 'Finish':gt 'bordelv', 'end'
 end
 
-
 if $ARGS[0] = 'end':
 	cla
 	*clr
-	set minut += 10
-	set horny = 0
-	set orgasm += 1
+	minut += 10
+	horny = 0
+	orgasm += 1
 	gs 'stat'
 	'<center><img src="images/img/centr/bvika8.jpg"></center>'
 	'When the men were satisfied, Vick again knelt and sperm splattered in her mouth, face and chest, looking at it you feel as your body begins to tremble potemnolo you in the eyes and pleasant wave hit you. When you re-opened zlaza men are already out and Vick and sat on the floor flooded with sperm, she is now trying not to look in your direction. Finally sobravis the forces she got up and left the room.'
@@ -62,24 +61,22 @@ if $ARGS[0] = 'end':
 				'"Whore" is perhaps the only thing less censorship word that you said, from other words you are in shock, how do you know all this. When you have finished swear they heard a quiet vskhlypyvanie Vick crying.'
 
 				act 'Leave':
-					set vika = 0
-					set vikaend = 1
+					vika = 0
+					vikaend = 1
 					gt 'street'
 				end
 
 				act 'Soothe her':
 					cla
-					set vika += 5
+					vika += 5
 					'You began to comfort her by saying that did not want to hurt her and that uttered it all for you because it was a shock. Vick closer to you and you hugged her, she soon stopped crying and saying that it should be back to work carried you to the exit.'
 					act 'Leave':gt 'street'
 				end
 			end
-		end
-
-		if slutty > 0:
+		else
 			act 'Soothe':
 				cla
-				set vika += 5
+				vika += 5
 				'"Why are you so upset, think it works in a brothel, I also moonlighted a couple of times opening your legs." you said quietly.'
 				'Vic breathed relief "And then I worried that you would not understand, okay I have to work, you go spend" it said, Vick led you to the exit.'
 
@@ -88,10 +85,10 @@ if $ARGS[0] = 'end':
 
 			act 'Ask about work':
 				cla
-				set vika += 5
-				set bordel = 1
+				vika += 5
+				bordel = 1
 				'"And I am satisfied with work here, I know how much." you asked.'
-				'Vic breathed relief "And then I worried that you would not understand, well, I´ll tell the administrator, but I can not guarantee it can not take it. And now I have to work, you go spend" it said, Vick led you to the exit.'
+				'Vic breathed relief "And then I worried that you would not understand, well, I''ll tell the administrator, but I can not guarantee it can not take it. And now I have to work, you go spend" it said, Vick led you to the exit.'
 
 				act 'Leave':gt 'street'
 			end
@@ -102,23 +99,23 @@ end
 if $ARGS[0] = 'out':
 	cla
 	*clr
-	set minut += 20
+	minut += 20
 	gs 'stat'
 	'<center><img src="images/img/centr/bordel.jpg"></center>'
-	'Vyskachil you out of the room like a scalded and rushed to the door, as you seemed to have opened the door but vidili another room, where also "worked" the girl slammed the door rushed to the next room and again. You rushed through the corridors, doors vygledeli same and you no it does not manage to find out, when you´re desperate, someone put your hand on her shoulder, turning you saw Vic, she just left the room and stood in front of you naked, her face and chest were smeared with sperm.'
+	'Vyskachil you out of the room like a scalded and rushed to the door, as you seemed to have opened the door but vidili another room, where also "worked" the girl slammed the door rushed to the next room and again. You rushed through the corridors, doors vygledeli same and you no it does not manage to find out, when you''re desperate, someone put your hand on her shoulder, turning you saw Vic, she just left the room and stood in front of you naked, her face and chest were smeared with sperm.'
 	'"<<$name>> wait, you promised to speak"'
-	'"Where´s the fucking out, slut, " you cried.'
+	'"Where''s the fucking out, slut, " you cried.'
 	'Vick looked at you, you noticed her lips and the eyes zadrazhali navarachivalis tears "There, " she said, pointing you to one of the doors, barely holding back that would not cry.'
 
 	act 'Leave':
-		set vika = 0
-		set vikaend = 1
+		vika = 0
+		vikaend = 1
 		gt 'street'
 	end
 
 	act 'Soothe her':
 		cla
-		set vika += 5
+		vika += 5
 		'You began to comfort her by saying that did not want to hurt her and that uttered it all for you because it was a shock. Vick closer to you and you hugged her, she soon stopped crying and saying that it should be back to work carried you to the exit.'
 
 		act 'Leave':gt 'street'

+ 45 - 62
locations/bouling

@@ -8,32 +8,28 @@ act 'Leave':gt 'torgcentr'
 
 if hour >= 8 and hour <= 20:
 	act 'Play 300 rubles (1:00)':
-		if money < 300:'You have no money'
-
-		if money >= 300:
-			set money -= 300
-			set boulingnav += rand(0, 3)
-			set minut += 60
-			set boulrand = rand(0, 9)
-			set boulvar = 0
+		if money < 300:
+			'You have no money'
+		else
+			money -= 300
+			minut += 60
+			boulvar = 0
+			boulingnav += rand(0, 3)
+			boulrand = rand(0, 9)
 
 			if boulrand = 0:
 				cla
 				'To suit you two guys and offer to play with them'
 
-				act 'Gamble, bet 2000':set boulvar = 1 & gt 'bouling', 'randwin'
+				act 'Gamble, bet 2000':boulvar = 1 & gt 'bouling', 'randwin'
 				act 'Leave':gt 'torgcentr'
-			end
-
-			if boulrand = 1:
+			elseif boulrand = 1:
 				cla
 				'To suit you two girls and offer to play with them against two guys prize 5000, at a loss of sex.'
 
-				act 'Play':set boulvar = 2 & gt 'bouling', 'randwin'
+				act 'Play':boulvar = 2 & gt 'bouling', 'randwin'
 				act 'Leave':gt 'torgcentr'
-			end
-
-			if boulrand > 1:
+			elseif boulrand > 1:
 				cla
 				'You played billiards'
 
@@ -44,9 +40,9 @@ if hour >= 8 and hour <= 20:
 
 	if money >= 300:
 		act 'Play for money':
-			set money -= 300
-			set minut += 60
-			set boulvar = 0
+			money -= 300
+			minut += 60
+			boulvar = 0
 			gt 'bouling', 'randwin'
 		end
 	end
@@ -55,33 +51,38 @@ end
 if $ARGS[0] = 'randwin':
 	cla
 
-	if boulingnav < 10:set boulwin = rand(0, 10)
-	if boulingnav >= 10 and boulingnav < 20:set boulwin = rand(0, 12)
-	if boulingnav >= 20 and boulingnav < 30:set boulwin = rand(0, 14)
-	if boulingnav >= 30 and boulingnav < 40:set boulwin = rand(0, 16)
-	if boulingnav >= 40 and boulingnav < 50:set boulwin = rand(0, 18)
-	if boulingnav >= 50 and boulingnav < 60:set boulwin = rand(0, 20)
-	if boulingnav >= 60 and boulingnav < 70:set boulwin = rand(0, 22)
-	if boulingnav >= 70 and boulingnav < 80:set boulwin = rand(0, 24)
-	if boulingnav >= 80 and boulingnav < 90:set boulwin = rand(0, 26)
-	if boulingnav >= 90:set boulwin = rand(0, 28)
-
-	if boulwin > 10 and boulvar = 1:
-		set money += 2000
+	if boulingnav < 10:boulwin = rand(0, 10)
+	if boulingnav >= 10 and boulingnav < 20:boulwin = rand(0, 12)
+	if boulingnav >= 20 and boulingnav < 30:boulwin = rand(0, 14)
+	if boulingnav >= 30 and boulingnav < 40:boulwin = rand(0, 16)
+	if boulingnav >= 40 and boulingnav < 50:boulwin = rand(0, 18)
+	if boulingnav >= 50 and boulingnav < 60:boulwin = rand(0, 20)
+	if boulingnav >= 60 and boulingnav < 70:boulwin = rand(0, 22)
+	if boulingnav >= 70 and boulingnav < 80:boulwin = rand(0, 24)
+	if boulingnav >= 80 and boulingnav < 90:boulwin = rand(0, 26)
+	if boulingnav >= 90:boulwin = rand(0, 28)
+
+	if boulwin > 10 and boulvar = 0:
+		money += 300
+		'You won and received 300 rubles.'
+
+		act 'Get_Away':gt'torgcentr'
+	elseif boulwin > 10 and boulvar = 1:
+		money += 2000
 		'You won and received 2,000 rubles.'
 
 		act 'Leave':gt 'torgcentr'
-	end
-
-	if boulwin > 10 and boulvar = 2:
-		set money += 5000
+	elseif boulwin > 10 and boulvar = 2:
+		money += 5000
 		'You won and received 5,000 rubles.'
 
 		act 'Leave':gt 'torgcentr'
-	end
-
-	if boulwin <= 10 and boulvar = 1:
-		set picrand = 14
+	elseif boulwin <= 10 and boulvar = 0:
+		money -= 300
+		'You lost and paid 300 rubles.'
+		act 'Leave':gt 'torgcentr'
+	elseif boulwin <= 10 and boulvar = 1:
+		picrand = 14
 
 		if money >= 2000:
 			'You lose and have to pay 2,000 rubles.'
@@ -89,38 +90,20 @@ if $ARGS[0] = 'randwin':
 			act 'Offer in-kind':xgt 'sexdvoe', 'var'
 
 			act 'Pay':
-				set money -= 2000
+				money -= 2000
 				gt 'torgcentr'
 			end
-		end
-
-		if money < 2000:
+		else
 			'You lost, but you do not have money to pay, only one payment method.'
 
 			act 'In kind':xgt 'sexdvoe', 'var'
 		end
-	end
-
-	if boulwin <= 10 and boulvar = 2:
-		set picrand = 11
+	elseif boulwin <= 10 and boulvar = 2:
+		picrand = 11
 		'You lose, will push the legs.'
 
 		act 'Pay':gt 'sexorg', 'var'
 	end
-
-	if boulwin > 10 and boulvar = 0:
-		set money += 300
-		'You won and got 300 rubles.'
-
-		act 'Leave':gt 'torgcentr'
-	end
-
-	if boulwin <= 10 and boulvar = 0:
-		!!set money -= 300
-		'You lost and paid 300 rubles.'
-
-		act 'Leave':gt 'torgcentr'
-	end
 end
 
 if $ARGS[0] = 'start':

+ 7 - 9
locations/boxing

@@ -9,9 +9,9 @@ if weapon = 0:
 end
 
 if weapon > 0:
-	if weaponTipe = 1:set $weap = 'sword'
-	if weaponTipe = 2:set $weap = 'mace'
-	if weaponTipe = 3:set $weap = 'ax'
+	if weaponTipe = 1:$weap = 'sword'
+	if weaponTipe = 2:$weap = 'mace'
+	if weaponTipe = 3:$weap = 'ax'
 
 	act 'Strike <<$weap>>':
 		cla
@@ -28,12 +28,10 @@ if kunai > 0:
 		knife = input ("How to throw a knife?")
 
 		if knife > kunai:
-			set knife = kunai
-			set kunai = 0
-		end
-
-		if knife <= kunai:
-			set kunai -= knife
+			knife = kunai
+			kunai = 0
+		elseif knife <= kunai:
+			kunai -= knife
 		end
 
 		'<font color="green">You are flashed <<knife>> knives.</font>'

+ 77 - 77
locations/boy

@@ -3,126 +3,126 @@
 !!Randomly male names
 Set boynamerand = rand(1, 38)
 !!Russian names
-if boynamerand = 1: Set $boy = 'Alexander'
-if boynamerand = 2: Set $boy = 'Alexey'
-if boynamerand = 3: Set $boy = 'Albert'
-if boynamerand = 4: Set $boy = 'Anatoly'
-if boynamerand = 5: Set $boy = 'Anton'
-if boynamerand = 6: Set $boy = 'Arkady'
-if boynamerand = 7: Set $boy = 'Andrew'
-if boynamerand = 8: Set $boy = 'Boris'
-if boynamerand = 9: Set $boy = 'Vadim'
-if boynamerand = 10:Set $boy = 'Valentine'
-if boynamerand = 11:Set $boy = 'Valery'
-if boynamerand = 12:Set $boy = 'Basil'
-if boynamerand = 13:Set $boy = 'Victor'
-if boynamerand = 14:Set $boy = 'Vitaly'
-if boynamerand = 15:Set $boy = 'Vladimir'
-if boynamerand = 16:Set $boy = 'Vyacheslav'
-if boynamerand = 17:Set $boy = 'Gennady'
-if boynamerand = 18:Set $boy = 'George'
-if boynamerand = 19:Set $boy = 'Gregory'
-if boynamerand = 20:Set $boy = 'Denis'
-if boynamerand = 21:Set $boy = 'Eugene'
-if boynamerand = 22:Set $boy = 'Yegor'
-if boynamerand = 23:Set $boy = 'Ivan'
-if boynamerand = 24:Set $boy = 'Igor'
-if boynamerand = 25:Set $boy = 'Kirill'
-if boynamerand = 26:Set $boy = 'Leonid'
-if boynamerand = 27:Set $boy = 'Maxim'
-if boynamerand = 28:Set $boy = 'Michael'
-if boynamerand = 29:Set $boy = 'Oleg'
-if boynamerand = 30:Set $boy = 'Paul'
-if boynamerand = 31:Set $boy = 'Peter'
-if boynamerand = 32:Set $boy = 'Semen'
-if boynamerand = 33:Set $boy = 'Sergey'
-if boynamerand = 34:Set $boy = 'Stepan'
-if boynamerand = 35:Set $boy = 'Fedor'
-if boynamerand = 36:Set $boy = 'Edward'
-if boynamerand = 37:Set $boy = 'Yuri'
-if boynamerand = 38:Set $boy = 'Jacob'
+if boynamerand = 1: $boy = 'Alexander'
+if boynamerand = 2: $boy = 'Alexey'
+if boynamerand = 3: $boy = 'Albert'
+if boynamerand = 4: $boy = 'Anatoly'
+if boynamerand = 5: $boy = 'Anton'
+if boynamerand = 6: $boy = 'Arkady'
+if boynamerand = 7: $boy = 'Andrew'
+if boynamerand = 8: $boy = 'Boris'
+if boynamerand = 9: $boy = 'Vadim'
+if boynamerand = 10:$boy = 'Valentine'
+if boynamerand = 11:$boy = 'Valery'
+if boynamerand = 12:$boy = 'Basil'
+if boynamerand = 13:$boy = 'Victor'
+if boynamerand = 14:$boy = 'Vitaly'
+if boynamerand = 15:$boy = 'Vladimir'
+if boynamerand = 16:$boy = 'Vyacheslav'
+if boynamerand = 17:$boy = 'Gennady'
+if boynamerand = 18:$boy = 'George'
+if boynamerand = 19:$boy = 'Gregory'
+if boynamerand = 20:$boy = 'Denis'
+if boynamerand = 21:$boy = 'Eugene'
+if boynamerand = 22:$boy = 'Yegor'
+if boynamerand = 23:$boy = 'Ivan'
+if boynamerand = 24:$boy = 'Igor'
+if boynamerand = 25:$boy = 'Kirill'
+if boynamerand = 26:$boy = 'Leonid'
+if boynamerand = 27:$boy = 'Maxim'
+if boynamerand = 28:$boy = 'Michael'
+if boynamerand = 29:$boy = 'Oleg'
+if boynamerand = 30:$boy = 'Paul'
+if boynamerand = 31:$boy = 'Peter'
+if boynamerand = 32:$boy = 'Semen'
+if boynamerand = 33:$boy = 'Sergey'
+if boynamerand = 34:$boy = 'Stepan'
+if boynamerand = 35:$boy = 'Fedor'
+if boynamerand = 36:$boy = 'Edward'
+if boynamerand = 37:$boy = 'Yuri'
+if boynamerand = 38:$boy = 'Jacob'
 
 $namev = $boy
 
 !!appearance
-set boybodyrand = rand(1, 3)
+boybodyrand = rand(1, 3)
 
-if boybodyrand = 1: Set $boybody = 'tall'
-if boybodyrand = 2: Set $boybody = 'average'
-if boybodyrand = 3: Set $boybody = 'short'
+if boybodyrand = 1: $boybody = 'tall'
+if boybodyrand = 2: $boybody = 'average'
+if boybodyrand = 3: $boybody = 'short'
 
-set boybodrand = rand(1, 4)
+boybodrand = rand(1, 4)
 
-if boybodrand = 1: Set $boybod = 'thin'
-if boybodrand = 2: Set $boybod = 'athletic'
-if boybodrand = 3: Set $boybod = 'chunky'
-if boybodrand = 4: Set $boybod = 'fat'
+if boybodrand = 1: $boybod = 'thin'
+if boybodrand = 2: $boybod = 'athletic'
+if boybodrand = 3: $boybod = 'chunky'
+if boybodrand = 4: $boybod = 'fat'
 
-set boyfacerand = rand(1, 3)
+boyfacerand = rand(1, 3)
 
-if boyfacerand = 1: Set $boyface = 'black'
-if boyfacerand = 2: Set $boyface = 'brunet'
-if boyfacerand = 3: Set $boyface = 'blond'
+if boyfacerand = 1: $boyface = 'black'
+if boyfacerand = 2: $boyface = 'brunet'
+if boyfacerand = 3: $boyface = 'blond'
 
 !!size eldy
-set grdikrand = rand(0, 100)
+grdikrand = rand(0, 100)
 
-if grdikrand < 80:set dick = rand(12, 18)
-if grdikrand >= 80 and grdikrand < 90:set dick = rand(8, 12)
-if grdikrand >= 90:set dick = rand(18, 25)
+if grdikrand < 80:dick = rand(12, 18)
+if grdikrand >= 80 and grdikrand < 90:dick = rand(8, 12)
+if grdikrand >= 90:dick = rand(18, 25)
 
 !! sexual force
-set silaVag = rand(0, 2)
+silaVag = rand(0, 2)
 
 !!variable is responsible for guy
-set boyonce = 0
-set harakBoy = rand(0, 2)
+boyonce = 0
+harakBoy = rand(0, 2)
 
 !!Variables responsible for any features like
 !!security, is responsible for the money and requirements
-set finance = rand(0, 2)
+finance = rand(0, 2)
 
 if finance = 0:
 	!!Gopnik beggar or a hard worker
 	!!check in appearance Primary
-	if harakBoy = 0:set vneshBoy = rand(0, 2)
-	if harakBoy = 1:set vneshBoy = rand(0, 4)
-	if harakBoy = 2:set vneshBoy = rand(0, 8)
+	if harakBoy = 0:vneshBoy = rand(0, 2)
+	if harakBoy = 1:vneshBoy = rand(0, 4)
+	if harakBoy = 2:vneshBoy = rand(0, 8)
 
-	set $boyClo = 'wearing a tracksuit.'
+	$boyClo = 'wearing a tracksuit.'
 end
 
 if finance = 1:
 	!!middle_peasant
 	!!check in appearance
-	if harakBoy = 0:set vneshBoy = rand(0, 4)
-	if harakBoy = 1:set vneshBoy = rand(0, 6)
-	if harakBoy = 2:set vneshBoy = rand(0, 8)
+	if harakBoy = 0:vneshBoy = rand(0, 4)
+	if harakBoy = 1:vneshBoy = rand(0, 6)
+	if harakBoy = 2:vneshBoy = rand(0, 8)
 
-	set $boyClo = 'wearing jeans and a sweater.'
+	$boyClo = 'wearing jeans and a sweater.'
 end
 
 if finance = 2:
 	!!middle_peasant
 	!!check in appearance
-	if harakBoy = 0:set vneshBoy = rand(4, 8)
-	if harakBoy = 1:set vneshBoy = rand(6, 8)
-	if harakBoy = 2:set vneshBoy = rand(8, 10)
+	if harakBoy = 0:vneshBoy = rand(4, 8)
+	if harakBoy = 1:vneshBoy = rand(6, 8)
+	if harakBoy = 2:vneshBoy = rand(8, 10)
 
-	set $boyClo = 'wearing an expensive suit.'
+	$boyClo = 'wearing an expensive suit.'
 end
 
 !!requirements of the figure, chest size, hair color.
 !!0 - ass less 80, 1 back from 80 prior_to 100, 2 ass over 100
-set figurBoy = rand(0, 2)
+figurBoy = rand(0, 2)
 !!0 - chest less 3, 1 breast 3-4, 2 breasts bigger 4
-set titBoy = rand(0, 2)
+titBoy = rand(0, 2)
 !!0 - brunette, 1 - haired, 2 - Redhead, 3 - blonde
-set haerBoy = rand(0, 3)
+haerBoy = rand(0, 3)
 !!character 0 - soft, 1 -norm 2 - aggressor
-set randizvrat = rand(0, 100)
+randizvrat = rand(0, 100)
 
-if randizvrat < 80:set izvrat = 0
-if randizvrat >= 80:set izvrat = 1
+if randizvrat < 80:izvrat = 0
+if randizvrat >= 80:izvrat = 1
 
 --- boy ---------------------------------

+ 74 - 79
locations/boyfrend

@@ -1,98 +1,93 @@
 # boyfrend
 if $ARGS[0] = 'start':
 	if bfA = 0 and stopboy = 0:
-		set stopboy = 1
+		stopboy = 1
 		gs 'boyfrend', 'A'
-	end
-
-	if bfA > 0 and bfB = 0 and stopboy = 0:
-		set stopboy = 1
+	elseif bfA > 0 and bfB = 0 and stopboy = 0:
+		stopboy = 1
 		gs 'boyfrend', 'B'
-	end
-
-	if bfA > 0 and bfB > 0 and bfC = 0 and stopboy = 0:
-		set stopboy = 1
+	elseif bfA > 0 and bfB > 0 and bfC = 0 and stopboy = 0:
+		stopboy = 1
 		gs 'boyfrend', 'C'
+	elseif bfA > 0 and bfB > 0 and bfC > 0 and stopboy = 0:
+		'Hmm, you are already three boyfriend, why do you need a fourth?'
 	end
-
-	if bfA > 0 and bfB > 0 and bfC > 0 and stopboy = 0:'Hmm, you are already three boyfriend, why do you need a fourth?'
 end
 
 if $ARGS[0] = 'A':
-	!!set stopboy = 0
-	Set $boyA = $boy
-	set boybodyrandA = boybodyrand
-	Set $boybodyA = $boybody
-	set boybodrandA = boybodrand
-	Set $boybodA = $boybod
-	set boyfacerandA = boyfacerand
-	set $boyfaceA = $boyface
-	set dickA = dick
-	set silaVagA = silaVag
-	set financeA = finance
-	set vneshBoyA = vneshBoy
-	set $boyCloA = $boyClo
-	set figurBoyA = figurBoy
-	set titBoyA = titBoy
-	set haerBoyA = haerBoy
-	set harakBoyA = harakBoy
-	set boydayA = day
-	set bfA = 1
-	set daya = 0
-	set boyonceA = 0
-	set izvratA = izvrat
-	set giftDayA = 0
-	set giftNumA = 0
-	set love = 0
+	!!stopboy = 0
+	$boyA = $boy
+	boybodyrandA = boybodyrand
+	$boybodyA = $boybody
+	boybodrandA = boybodrand
+	$boybodA = $boybod
+	boyfacerandA = boyfacerand
+	$boyfaceA = $boyface
+	dickA = dick
+	silaVagA = silaVag
+	financeA = finance
+	vneshBoyA = vneshBoy
+	$boyCloA = $boyClo
+	figurBoyA = figurBoy
+	titBoyA = titBoy
+	haerBoyA = haerBoy
+	harakBoyA = harakBoy
+	boydayA = day
+	bfA = 1
+	daya = 0
+	boyonceA = 0
+	izvratA = izvrat
+	giftDayA = 0
+	giftNumA = 0
+	love = 0
 end
 
-
 if $ARGS[0] = 'B':
-	!!set stopboy = 0
-	Set $boyB = $boy
-	set boybodyrandB = boybodyrand
-	Set $boybodyB = $boybody
-	set boybodrandB = boybodrand
-	Set $boybodB = $boybod
-	set boyfacerandB = boyfacerand
-	set $boyfaceB = $boyface
-	set dickB = dick
-	set silaVagB = silaVag
-	set financeB = finance
-	set vneshBoyB = vneshBoy
-	set $boyCloB = $boyClo
-	set figurBoyB = figurBoy
-	set titBoyB = titBoy
-	set haerBoyB = haerBoy
-	set harakBoyB = harakBoy
-	set boydayB = day
-	set bfB = 1
-	set dayb = 0
-	set boyonceB = 0
+	!!stopboy = 0
+	$boyB = $boy
+	boybodyrandB = boybodyrand
+	$boybodyB = $boybody
+	boybodrandB = boybodrand
+	$boybodB = $boybod
+	boyfacerandB = boyfacerand
+	$boyfaceB = $boyface
+	dickB = dick
+	silaVagB = silaVag
+	financeB = finance
+	vneshBoyB = vneshBoy
+	$boyCloB = $boyClo
+	figurBoyB = figurBoy
+	titBoyB = titBoy
+	haerBoyB = haerBoy
+	harakBoyB = harakBoy
+	boydayB = day
+	bfB = 1
+	dayb = 0
+	boyonceB = 0
 end
 
 if $ARGS[0] = 'C':
-	!!set stopboy = 0
-	Set $boyC = $boy
-	set boybodyrandC = boybodyrand
-	Set $boybodyC = $boybody
-	set boybodrandC = boybodrand
-	Set $boybodC = $boybod
-	set boyfacerandC = boyfacerand
-	set $boyfaceC = $boyface
-	set dickC = dick
-	set silaVagC = silaVag
-	set financeC = finance
-	set vneshBoyC = vneshBoy
-	set $boyCloC = $boyClo
-	set figurBoyC = figurBoy
-	set titBoyC = titBoy
-	set haerBoyC = haerBoy
-	set harakBoyC = harakBoy
-	set boydayC = day
-	set bfC = 1
-	set dayc = 0
-	set boyonceC = 0
+	!!stopboy = 0
+	$boyC = $boy
+	boybodyrandC = boybodyrand
+	$boybodyC = $boybody
+	boybodrandC = boybodrand
+	$boybodC = $boybod
+	boyfacerandC = boyfacerand
+	$boyfaceC = $boyface
+	dickC = dick
+	silaVagC = silaVag
+	financeC = finance
+	vneshBoyC = vneshBoy
+	$boyCloC = $boyClo
+	figurBoyC = figurBoy
+	titBoyC = titBoy
+	haerBoyC = haerBoy
+	harakBoyC = harakBoy
+	boydayC = day
+	bfC = 1
+	dayc = 0
+	boyonceC = 0
 end
 
 --- boyfrend ---------------------------------

+ 29 - 54
locations/boylove

@@ -7,10 +7,8 @@ if $ARGS[0] = 'haer':
 		if haerBoyA = 1:'<<$boyA>> says that you are very beautiful, although he likes the brown-haired.'
 		if haerBoyA = 2:'<<$boyA>> says that you are very beautiful, although he likes red.'
 		if haerBoyA = 3:'<<$boyA>> says that you are very beautiful, although he likes blondes.'
-	end
-
-	if haerBoyA = hcol:
-		set bfA += 1
+	elseif haerBoyA = hcol:
+		bfA += 1
 		'<<$boyA>> says that you have beautiful hair.'
 	end
 end
@@ -18,41 +16,29 @@ end
 if $ARGS[0] = 'figure':
 	if figurBoyA = 0:
 		if bedra < 80:
-			set bfA += 1
+			bfA += 1
 			'<<$boyA>> tells you that you have a perfect figure.'
-		end
-
-		if bedra >= 80:
-			set bfA -= 1
+		elseif bedra >= 80:
+			bfA -= 1
 			'<<$boyA>> says that you love him despite the fact that he always met with skinny.'
 		end
-	end
-
-	if figurBoyA = 1:
+	elseif figurBoyA = 1:
 		if bedra > 80 and bedra < 100:
-			set bfA += 1
+			bfA += 1
 			'<<$boyA>> tells you that you have a perfect figure.'
-		end
-
-		if bedra <= 80:
-			set bfA -= 1
+		elseif bedra <= 80:
+			bfA -= 1
 			'<<$boyA>> asks whether you have anorexia.'
-		end
-
-		if bedra >= 100:
-			set bfA -= 1
+		elseif bedra >= 100:
+			bfA -= 1
 			'<<$boyA>> asks whether you are going on a diet.'
 		end
-	end
-
-	if figurBoyA = 2:
+	elseif figurBoyA = 2:
 		if bedra >= 100:
-			set bfA += 1
+			bfA += 1
 			'<<$boyA>> tells you that you have a perfect figure.'
-		end
-
-		if bedra < 100:
-			set bfA -= 1
+		elseif bedra < 100:
+			bfA -= 1
 			'<<$boyA>> says that you are beautiful, but the woman should be in the body.'
 		end
 	end
@@ -62,44 +48,33 @@ if $ARGS[0] = 'tits':
 	!!titBoyA
 	if titBoyA = 0:
 		if tits < 3:
-			set bfA += 1
+			bfA += 1
 			'<<$boyA>> tells you that you have beautiful breasts.'
-		end
-
-		if tits >= 3:
-			set bfA -= 1
+		elseif tits >= 3:
+			bfA -= 1
 			'<<$boyA>> says that you love him despite the fact that he prefers small breasts.'
 		end
-	end
-
-	if titBoyA = 1:
+	elseif titBoyA = 1:
 		if tits >= 3 and tits <= 4:
-			set bfA += 1
+			bfA += 1
 			'<<$boyA>> tells you that you have perfect breasts.'
-		end
-
-		if tits < 3:
-			set bfA -= 1
+		elseif tits < 3:
+			bfA -= 1
 			'<<$boyA>> says that you are beautiful, though small breasts.'
-		end
-
-		if tits > 4:
-			set bfA -= 1
+		elseif tits > 4:
+			bfA -= 1
 			'<<$boyA>> says that you have a really huge breasts.'
 		end
-	end
-
-	if titBoyA = 2:
+	elseif titBoyA = 2:
 		if tits > 4:
-			set bfA += 1
+			bfA += 1
 			'<<$boyA>> tells you that you have a great chest.'
-		end
-
-		if tits <= 4:
-			set bfA -= 1
+		elseif tits <= 4:
+			bfA -= 1
 			'<<$boyA>> says that you are beautiful, though small breasts.'
 		end
 	end
 end
 
 --- boylove ---------------------------------
+

+ 19 - 0
locations/boymass

@@ -0,0 +1,19 @@
+# boymass
+boynum += 1
+$bmNane[boynum] = $bname
+$bmNaneFull[boynum] = $bnamefull
+bmDick[boynum] = dick
+bmSila[boynum] = silavag
+bmTip[boynum] = bmtimeTipe
+bmHJ[boynum] = 0
+bmBJ[boynum] = 0
+bmSEX[boynum] = 0
+bmANAL[boynum] = 0
+bmGANG[boynum] = 0
+bmGossip[boynum] = 0
+bmFrend[boynum] = 0
+bmKISS[boynum] = 0
+bmTITS[boynum] = 0
+
+--- boymass ---------------------------------
+

+ 95 - 0
locations/brosh

@@ -0,0 +1,95 @@
+# brosh
+gs 'stat'
+evgentipe = rand(0, 2)
+
+if evgentipe = 0:
+	'During the break you came Zhendos, a friend of your brother "<<$name>>! riser tortured, go after school."'
+
+	act 'Go after school':
+		cls
+		gs 'stat'
+		'Together with Zhendosom you left for school, where they found a nook.'
+
+		act 'Suck Zhendosu':
+			cls
+			bj += 1
+			sub += 1
+			gs'stat'
+			'<center><img src="images/qwest/alter/ev2/bs.jpg"></center>'
+			'You sat on his haunches and Zhendos got dick out of his pants pulling your face to its members, You dutifully wrapped around his lips and began to suck.'
+
+			act 'Suck':
+				cls
+				!cumface += 1
+				cumlip += 1
+				swalllow += 1
+				!cumfrot += 1
+				gs'stat'
+				'<center><img src="images/qwest/alter/ev2/bscum.jpg"></center>'
+				'Zhendos did not last long , you started quickly swallow.'
+				dynamic $din_sekondparturok
+			end
+		end
+	end
+
+	exit
+elseif evgentipe = 1:
+	'During the break you came Mishan, a friend of your brother "<<$name>>! Come for school, I have for you sweetie."'
+
+	act 'Go after school':
+		cls
+		gs 'stat'
+		'Together with Mishan you left for school, where they found a nook.'
+
+		act 'Suck Mishanya':
+			cls
+			bj += 1
+			sub += 1
+			gs'stat'
+			'<center><img src="images/qwest/alter/ev2/bs1.jpg"></center>'
+			'You sat on his haunches and Mishan got dick out of his pants pulling your face to its members, You dutifully wrapped around his lips and began to suck.'
+
+			act 'Suck':
+				cls
+				!cumface += 1
+				cumlip += 1
+				swalllow += 1
+				!cumfrot += 1
+				gs 'stat'
+				'<center><img src="images/qwest/alter/ev2/bscum1.jpg"></center>'
+				'Mishan did not last long , you started quickly swallow.'
+				dynamic $din_sekondparturok
+			end
+		end
+	end
+
+	exit
+elseif evgentipe = 2:
+	'During the break you came Zhendos and Mishan, friends of your brother "<<$name>>! Come for school, fun_too."'
+
+	act 'Go after school':
+		cls
+		gs 'stat'
+		'Together with Zhendosom Mishan and you are out of school, where they found a nook.'
+
+		act 'Suck Guys':
+			cls
+			gang += 1
+			bj += 2
+			sub += 1
+			cumlip += 2
+			swalllow += 1
+			gs 'stat'
+			'<center><img src="images/qwest/alter/ev2/bs2.jpg"></center>'
+			'You sat on his haunches and the guys got members, you began to take turns stroking and suck. The guys did not last long  ,you began to swallow.'
+			dynamic $din_sekondparturok
+		end
+	end
+
+	exit
+end
+
+!dynamic $din_sekondparturok
+
+--- brosh ---------------------------------
+

+ 13 - 17
locations/brosok

@@ -1,8 +1,8 @@
 # brosok
 if boyonceA = 0:
 	!!racing requirements after sex
-	set boyonceA = 1
-	set guy += 1
+	boyonceA = 1
+	guy += 1
 	!!!WD:  Probably community extension
 	$bfsex += '<font color="maroon">'+$boyA+'</font>:He was a '+$boybody+' '+$boybod+' '+$boyface+'. Most of the time he was '+$boyClo+' First time we had sex was on the '+day+'th of '+$month+'. He had a '+dickA+' cm long member'
 
@@ -19,21 +19,17 @@ if boyonceA = 0:
 	if harakBoyA = 2:$bfsex += 'He was irascible and very rigid.<br>'
 	!!!
 	if financeA = 0:
-		if harakBoyA = 0:set vneshBoyA += 2
-		if harakBoyA = 1:set vneshBoyA += 4
-		if harakBoyA = 2:set vneshBoyA += 8
-	end
-
-	if financeA = 1:
-		if harakBoyA = 0:set vneshBoyA += 6
-		if harakBoyA = 1:set vneshBoyA += 10
-		if harakBoyA = 2:set vneshBoyA += 14
-	end
-
-	if financeA = 2:
-		if harakBoyA = 0:set vneshBoyA += 14
-		if harakBoyA = 1:set vneshBoyA += 18
-		if harakBoyA = 2:set vneshBoyA += 22
+		if harakBoyA = 0:vneshBoyA += 2
+		if harakBoyA = 1:vneshBoyA += 4
+		if harakBoyA = 2:vneshBoyA += 8
+	elseif financeA = 1:
+		if harakBoyA = 0:vneshBoyA += 6
+		if harakBoyA = 1:vneshBoyA += 10
+		if harakBoyA = 2:vneshBoyA += 14
+	elseif financeA = 2:
+		if harakBoyA = 0:vneshBoyA += 14
+		if harakBoyA = 1:vneshBoyA += 18
+		if harakBoyA = 2:vneshBoyA += 22
 	end
 end
 

+ 54 - 47
locations/brother

@@ -15,11 +15,12 @@ if brother >= 80:'You and your brother a great relationship.'
 if cumface > 0 or cumfrot > 0 or cumlip > 1:
 	if GorSlut > 0:
 		'Kolka looks at you "Slysh <<$gnikname>>. After service cocks should be washed away, but not to run in struhne."'
-	end
-
-	if GorSlut = 0:
-		if motherKnowSpravka => 1 or motherKnowWhore => 1:'Kolka looks at you, "Look, I understand that the mother aware that you´re a whore. Struhne But going to run the whole town knows you´re a whore."'
-		if motherKnowSpravka = 0 and motherKnowWhore = 0:'Kolka looks at you, "What´s that?" His eyes rounded "Yes, it´s sprma. Here is the number, my sister exemplary slut."'
+	elseif GorSlut = 0:
+		if motherKnowSpravka => 1 or motherKnowWhore => 1:
+			'Kolka looks at you, "Look, I understand that the mother aware that you''re a whore. Struhne But going to run the whole town knows you''re a whore."'
+		elseif motherKnowSpravka = 0 and motherKnowWhore = 0:
+			'Kolka looks at you, "What''s that?" His eyes rounded "Yes, it''s sperma. Here is the number, my sister exemplary slut."'
+		end
 	end
 
 	act 'Move away':gt $loc, $metka
@@ -35,61 +36,67 @@ if motherKnowSpravka >= 1 or motherKnowWhore >= 1:
 else
 '!
 
-act 'Leave':gt $loc, $metka
+act 'Move away':gt $loc, $metka
 
 if $loc = 'gschool':
 	if brother < 40:
 		'Brother frowns "Get off me pridurochnaya!"'
 	else
-		'Brother grins "Hi <<$name>>. Play football?"'
-
-		act 'Play football':
-			cls
-			minut += 60
-			brother += 5
-			agil += rand(0, 2)
-			speed += rand(0, 2)
-			set sweat += 3
-			set beg += rand(2, 5)
-			gs 'stat'
-			'You ran for an hour on the field chasing a ball with my brother and his friends Bear and Zhendosom.'
-			ivrand = rand(0, 1)
-
-			act 'Move away':gt $loc, $metka
-
-			if ivrand = 0 and seepornofut = 0:
-				'Boys whispering among themselves discussing something.'
-
-				act 'You are talking about here?':
-					cls
-					gs 'stat'
-					'Boys hesitated, so much so, nothing.'
-
-					if dom > 0:
-						'You''re a bit pressed on them "Are you as malyshnya, sekretiki what that you." One of the boys immediately split "Yes."'
-
-						act 'Leave':gt $loc, $metka
-
-						act 'Take me':
-							cls
-							gs 'stat'
-							'you asked, what would you also have to look porn. Guys nemnog oposmuschalis, but agreed.'
-
-							act 'Go watch porn':minut += 5 & gt 'seeporn'
+		if evgenQW >= 4:
+			'Guys poshushukavshis together tell you "Yup, Well it this Soccer, Let`s go watch porn."'
+
+			act 'Go watch porn':minut += 5 & gt 'seeporn'
+		elseif evgenQW < 4:
+			'Brother grins "Hi <<$nickname>>. Play football?"'
+
+			act 'Play football':
+				cls
+				minut += 60
+				brother += 5
+				agil += rand(0, 2)
+				speed += rand(0, 2)
+				sweat += 3
+				beg += rand(2, 5)
+				gs 'stat'
+				'You ran for an hour on the field chasing a ball with my brother and his friends Bear and Zhendosom.'
+				ivrand = rand(0, 1)
+
+				if ivrand = 0 and seepornofut = 0:
+					'Boys whispering among themselves discussing something.'
+
+					act 'You are talking about here?':
+						cls
+						gs 'stat'
+						'Boys hesitated, so much so, nothing.'
+
+						if dom > 0:
+							'You''re a bit pressed on them "Are you as malyshnya, sekretiki what that you." One of the boys immediately split "Yes."'
+
+							act 'Move away':gt $loc, $metka
+
+							act 'Take me':
+								cls
+								gs 'stat'
+								'you asked, what would you also have to look porn. Guys nemnog oposmuschalis, but agreed.'
+
+								act 'Go watch porn':minut += 5 & gt 'seeporn'
+							end
+						else
+							act 'Move away':gt $loc, $metka
 						end
-					else
-						act 'Leave':gt $loc, $metka
 					end
 				end
-			end
 
-			if ivrand = 0 and seepornofut >= 1:
-				'Guys poshushukavshis together tell you "Sveta, go look porn?"'
+				if seepornofut >= 1:
+					'Guys poshushukavshis together tell you "<<$nickname>>, go look porn?"'
 
-				act 'Go watch porn':minut + = 5 & gt 'seeporn'
+					act 'Go watch porn':minut + = 5 & gt 'seeporn'
 			end
+
+			act 'Move away':gt $loc, $metka
 		end
 	end
 end
+!!end
 
 --- brother ---------------------------------

تفاوت فایلی نمایش داده نمی شود زیرا این فایل بسیار بزرگ است
+ 1 - 1
locations/budgetclothes


+ 59 - 59
locations/budilnik

@@ -22,11 +22,11 @@ if $ARGS[0] = 'start':
 
 	act 'Put Service':
 		cla
-		set bud1 = 0
-		set bud2 = 0
-		set bud3 = 0
-		set bud4 = 0
-		set numbud = 0
+		bud1 = 0
+		bud2 = 0
+		bud3 = 0
+		bud4 = 0
+		numbud = 0
 		gt 'budilnik', 'fin'
 	end
 end
@@ -35,20 +35,20 @@ if $ARGS[0] = 'Time':
 	cla
 
 	if bud1 > 0:
-		set timer = bud1 * 10
-		set timer += bud2
+		timer = bud1 * 10
+		timer += bud2
 	end
 
-	if bud2 > 0 and bud1 = 0:set timer = bud2
+	if bud2 > 0 and bud1 = 0:timer = bud2
 
 	if bud3 > 0:
-		set timerM = bud3 * 10
-		set timerM += bud4
+		timerM = bud3 * 10
+		timerM += bud4
 	end
 
-	if bud4 > 0 and bud3 = 0:set timerM = bud4
-	if timer > 23:set timer = 0
-	if timerM > 60:set timerM = 0
+	if bud4 > 0 and bud3 = 0:timerM = bud4
+	if timer > 23:timer = 0
+	if timerM > 60:timerM = 0
 
 	'Clock wound <<timer>> hours <<timerM>> minutes.'
 
@@ -62,10 +62,10 @@ if $ARGS[0] = '1':
 	cla
 
 	!!if numbud = 4:end
-	if numbud = 3:set bud4 = 1 & set numbud = 4
-	if numbud = 2:set bud3 = 1 & set numbud = 3
-	if numbud = 1:set bud2 = 1 & set numbud = 2
-	if numbud = 0:set bud1 = 1 & set numbud = 1
+	if numbud = 3:bud4 = 1 & numbud = 4
+	if numbud = 2:bud3 = 1 & numbud = 3
+	if numbud = 1:bud2 = 1 & numbud = 2
+	if numbud = 0:bud1 = 1 & numbud = 1
 
 	gt 'budilnik', 'start'
 end
@@ -74,10 +74,10 @@ if $ARGS[0] = '2':
 	cla
 
 	!!if numbud = 4:end
-	if numbud = 3:set bud4 = 2 & set numbud = 4
-	if numbud = 2:set bud3 = 2 & set numbud = 3
-	if numbud = 1:set bud2 = 2 & set numbud = 2
-	if numbud = 0:set bud1 = 2 & set numbud = 1
+	if numbud = 3:bud4 = 2 & numbud = 4
+	if numbud = 2:bud3 = 2 & numbud = 3
+	if numbud = 1:bud2 = 2 & numbud = 2
+	if numbud = 0:bud1 = 2 & numbud = 1
 
 	gt 'budilnik', 'start'
 end
@@ -85,10 +85,10 @@ end
 if $ARGS[0] = '3':
 	cla
 	!!if numbud = 4:end
-	if numbud = 3:set bud4 = 3 & set numbud = 4
-	if numbud = 2:set bud3 = 3 & set numbud = 3
-	if numbud = 1:set bud2 = 3 & set numbud = 2
-	if numbud = 0:set bud1 = 3 & set numbud = 1
+	if numbud = 3:bud4 = 3 & numbud = 4
+	if numbud = 2:bud3 = 3 & numbud = 3
+	if numbud = 1:bud2 = 3 & numbud = 2
+	if numbud = 0:bud1 = 3 & numbud = 1
 
 	gt 'budilnik', 'start'
 end
@@ -97,10 +97,10 @@ if $ARGS[0] = '4':
 	cla
 
 	!!if numbud = 4:end
-	if numbud = 3:set bud4 = 4 & set numbud = 4
-	if numbud = 2:set bud3 = 4 & set numbud = 3
-	if numbud = 1:set bud2 = 4 & set numbud = 2
-	if numbud = 0:set bud1 = 4 & set numbud = 1
+	if numbud = 3:bud4 = 4 & numbud = 4
+	if numbud = 2:bud3 = 4 & numbud = 3
+	if numbud = 1:bud2 = 4 & numbud = 2
+	if numbud = 0:bud1 = 4 & numbud = 1
 
 	gt 'budilnik', 'start'
 end
@@ -109,10 +109,10 @@ if $ARGS[0] = '5':
 	cla
 
 	!!if numbud = 4:end
-	if numbud = 3:set bud4 = 5 & set numbud = 4
-	if numbud = 2:set bud3 = 5 & set numbud = 3
-	if numbud = 1:set bud2 = 5 & set numbud = 2
-	if numbud = 0:set bud1 = 5 & set numbud = 1
+	if numbud = 3:bud4 = 5 & numbud = 4
+	if numbud = 2:bud3 = 5 & numbud = 3
+	if numbud = 1:bud2 = 5 & numbud = 2
+	if numbud = 0:bud1 = 5 & numbud = 1
 
 	gt 'budilnik', 'start'
 end
@@ -121,10 +121,10 @@ if $ARGS[0] = '6':
 	cla
 
 	!!if numbud = 4:end
-	if numbud = 3:set bud4 = 6 & set numbud = 4
-	if numbud = 2:set bud3 = 6 & set numbud = 3
-	if numbud = 1:set bud2 = 6 & set numbud = 2
-	if numbud = 0:set bud1 = 6 & set numbud = 1
+	if numbud = 3:bud4 = 6 & numbud = 4
+	if numbud = 2:bud3 = 6 & numbud = 3
+	if numbud = 1:bud2 = 6 & numbud = 2
+	if numbud = 0:bud1 = 6 & numbud = 1
 
 	gt 'budilnik', 'start'
 end
@@ -133,10 +133,10 @@ if $ARGS[0] = '7':
 	cla
 
 	!!if numbud = 4:end
-	if numbud = 3:set bud4 = 7 & set numbud = 4
-	if numbud = 2:set bud3 = 7 & set numbud = 3
-	if numbud = 1:set bud2 = 7 & set numbud = 2
-	if numbud = 0:set bud1 = 7 & set numbud = 1
+	if numbud = 3:bud4 = 7 & numbud = 4
+	if numbud = 2:bud3 = 7 & numbud = 3
+	if numbud = 1:bud2 = 7 & numbud = 2
+	if numbud = 0:bud1 = 7 & numbud = 1
 
 	gt 'budilnik', 'start'
 end
@@ -145,10 +145,10 @@ if $ARGS[0] = '8':
 	cla
 
 	!!if numbud = 4:end
-	if numbud = 3:set bud4 = 8 & set numbud = 4
-	if numbud = 2:set bud3 = 8 & set numbud = 3
-	if numbud = 1:set bud2 = 8 & set numbud = 2
-	if numbud = 0:set bud1 = 8 & set numbud = 1
+	if numbud = 3:bud4 = 8 & numbud = 4
+	if numbud = 2:bud3 = 8 & numbud = 3
+	if numbud = 1:bud2 = 8 & numbud = 2
+	if numbud = 0:bud1 = 8 & numbud = 1
 
 	gt 'budilnik', 'start'
 end
@@ -157,10 +157,10 @@ if $ARGS[0] = '9':
 	cla
 
 	!!if numbud = 4:end
-	if numbud = 3:set bud4 = 9 & set numbud = 4
-	if numbud = 2:set bud3 = 9 & set numbud = 3
-	if numbud = 1:set bud2 = 9 & set numbud = 2
-	if numbud = 0:set bud1 = 9 & set numbud = 1
+	if numbud = 3:bud4 = 9 & numbud = 4
+	if numbud = 2:bud3 = 9 & numbud = 3
+	if numbud = 1:bud2 = 9 & numbud = 2
+	if numbud = 0:bud1 = 9 & numbud = 1
 
 	gt 'budilnik', 'start'
 end
@@ -169,10 +169,10 @@ if $ARGS[0] = '0':
 	cla
 
 	!!if numbud = 4:end
-	if numbud = 3:set bud4 = 0 & set numbud = 4
-	if numbud = 2:set bud3 = 0 & set numbud = 3
-	if numbud = 1:set bud2 = 0 & set numbud = 2
-	if numbud = 0:set bud1 = 0 & set numbud = 1
+	if numbud = 3:bud4 = 0 & numbud = 4
+	if numbud = 2:bud3 = 0 & numbud = 3
+	if numbud = 1:bud2 = 0 & numbud = 2
+	if numbud = 0:bud1 = 0 & numbud = 1
 
 	gt 'budilnik', 'start'
 end
@@ -180,11 +180,11 @@ end
 if $ARGS[0] = 'Reset':
 	cla
 
-	set bud1 = 0
-	set bud2 = 0
-	set bud3 = 0
-	set bud4 = 0
-	set numbud = 0
+	bud1 = 0
+	bud2 = 0
+	bud3 = 0
+	bud4 = 0
+	numbud = 0
 
 	gt 'budilnik', 'start'
 end
@@ -194,7 +194,7 @@ if $ARGS[0] = 'fin':
 	gt $locM, $metkaM
 
 	!'if housr = 1 and housrA = 1:
-		set housrA = 0
+		housrA = 0
 		gt 'bedr'
 	end'!
 end

+ 34 - 36
locations/buklinik

@@ -1,9 +1,10 @@
 # buklinik
 if $ARGS[0] = 'start':
 	cla
-	*clr
-	set minut += 5
 	clr
+	*clr
+	minut += 5
+
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
@@ -27,9 +28,9 @@ end
 
 if $ARGS[0] = 'holl':
 	cla
-	*clr
-	set minut += 5
 	clr
+	*clr
+	minut += 5
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
@@ -59,9 +60,9 @@ end
 
 if $ARGS[0] = 'registr':
 	cla
-	*clr
-	set minut += 15
 	clr
+	*clr
+	minut += 15
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
@@ -71,7 +72,7 @@ if $ARGS[0] = 'registr':
 	'In registature sit two women in white coats.'
 
 	if bumtolik = 4:'You:- Hello, my name is <<$name>>, I am with the work. Girl named Olga gave me this card, said that you need employees.'
-	'Registrar:- Hello! We are very pleased to see you. But I´m afraid you refuse, the fact is that we need volunteers, ie your work will not be paid. A job to be very complicated. Will have to take care of the elderly and the homeless to feed and clothe.'
+	'Registrar:- Hello! We are very pleased to see you. But I''m afraid you refuse, the fact is that we need volunteers, ie your work will not be paid. A job to be very complicated. Will have to take care of the elderly and the homeless to feed and clothe.'
 
 
 	act 'I knew you, I have to think':gt 'nord'
@@ -80,22 +81,19 @@ end
 
 if $ARGS[0] = 'registr2':
 	cla
-	*clr
-	set minut += 15
 	clr
+	*clr
+	minut += 15
+	bumtolik = 5
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
 	lcolor = rgb(106, 90, 205)
 	'<center><b>Mercy Clinic. desk</b></center>'
 	'<center><img src="images/etogame/bukli_reg.jpg"></center>'
-	bumtolik = 5
-
 	'You:- Well, I think I can handle it. Where do I start?'
 	'Registrar:- I am happy to hear that. Fill out the form. And me, store copies of your passport and if there is documentation of education diploma courses, all that is, perhaps, in the future, you can find paid work.'
-
 	'(You fill out the form)'
-
 	'Registator:- Well, there you have a membership card. The corridor the first door on the right, get to the warehouse, where she will meet Olga show you everything.'
 
 
@@ -104,9 +102,9 @@ end
 
 if $ARGS[0] = 'registr3':
 	cla
-	*clr
-	set minut += 15
 	clr
+	*clr
+	minut += 15
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
@@ -120,9 +118,9 @@ end
 
 if $ARGS[0] = 'sklad':
 	cla
-	*clr
-	set minut += 5
 	clr
+	*clr
+	minut += 5
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
@@ -138,9 +136,9 @@ end
 
 if $ARGS[0] = 'olga':
 	cla
-	*clr
-	set minut += 5
 	clr
+	*clr
+	minut += 5
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
@@ -162,9 +160,9 @@ end
 
 if $ARGS[0] = 'sec':
 	cla
-	*clr
-	set minut += 15
 	clr
+	*clr
+	minut += 15
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
@@ -179,9 +177,7 @@ if $ARGS[0] = 'sec':
 		'Jeanne:- Wow! And you young <<$name>> bold. Very pleased to meet you!'
 		'You:- Thank you, mutually.'
 		act 'To the head':gt 'buklinik', 'dir'
-	end
-
-	if bumtolik > 5:
+	elseif bumtolik > 5:
 		'- Hello, <<$name>>!'
 		act 'In the corridor':gt 'buklinik', 'holl'
 	end
@@ -190,7 +186,7 @@ end
 if $ARGS[0] = 'dir':
 	cla
 	*clr
-	set minut += 15
+	minut += 15
 	clr
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
@@ -219,7 +215,7 @@ end
 if $ARGS[0] = 'shower':
 	cla
 	*clr
-	set minut += 15
+	minut += 15
 	clr
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
@@ -235,9 +231,9 @@ end
 
 if $ARGS[0] = 'stol':
 	cla
-	*clr
-	set minut += 15
 	clr
+	*clr
+	minut += 15
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
@@ -252,9 +248,9 @@ end
 
 if $ARGS[0] = 'spal':
 	cla
-	*clr
-	set minut += 15
 	clr
+	*clr
+	minut += 15
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
@@ -273,9 +269,9 @@ end
 
 if $ARGS[0] = 'olga2':
 	cla
-	*clr
-	set minut += 15
 	clr
+	*clr
+	minut += 15
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
@@ -284,12 +280,14 @@ if $ARGS[0] = 'olga2':
 	'<center><img src="images/etogame/bukli_olga.jpg"></center>'
 	'(Olga - groomed and cute brunette with a kind smile.)'
 
-		if bumtolik > 5:'- Hello, <<$name>>!'
-		if buklinikDay = day:'- Today there is no more work, we can relax.'
-	!! if bumtolik = 7 and buklinikDay ! day:'- Света, нам нужно помощь <a href="exec:gt ''buklinik_event'', ''pos6''">накормить нуждающихся</a>.'
+	if bumtolik > 5:'- Hello, <<$name>>!'
+	if buklinikDay = day:'- Today there is no more work, we can relax.'
+	if bumtolik = 7 and buklinikDay ! day:'- <<$name>>, We need help <a href="exec:gt ''buklinik_event'', ''pos6''">feed the needy</a>.'
+	if bumtolik >= 8 and buklinikDay ! day: '- <<$name>>, here is the address of one <a href="exec:GT ''buklinik_event'',''pos8''">elderly man</a>, go see him help with the housework.'
+	if bumtolik = 9 and buklinikDay ! day: '- <<$name>>, Need help persuade a wino not wander the streets, and come to live with <a href="exec:GT ''buklinik_event'',''pos9''">to_us</a>.'
 	if bumtolik = 5:
 		bumtolik = 6
-		'Olga:- Continue along the corridor beds, showers and a dining room where guests can eat for free. See there is nothing special. Well, that´s all. At the reception we sit two girls - Regina and Karina, you´ve seen them.'
+		'Olga:- Continue along the corridor beds, showers and a dining room where guests can eat for free. See there is nothing special. Well, that''s all. At the reception we sit two girls - Regina and Karina, you''ve seen them.'
 		'We were still coming the other volunteers, but you yourself to meet them at the meeting.'
 		'You can look around here, if that appeals to me.'
 	end

+ 26 - 24
locations/buklinik_event

@@ -10,7 +10,7 @@ if $ARGS[0] = 'pos1':
 	'You:- Good afternoon! My name is <<$name>>, I am your new employee volunteer, I will help you as much.'
 
 	'Men in the room pay attention to you.'
-	'Resident 1:- Hello, girl, Vladimir! What are you standing in the doorway, come in, sit down, I´ll introduce you to all.'
+	'Resident 1:- Hello, girl, Vladimir! What are you standing in the doorway, come in, sit down, I''ll introduce you to all.'
 
 	act 'Enter the room':gt 'buklinik_event', 'pos2'
 
@@ -25,7 +25,7 @@ if $ARGS[0] = 'pos1':
 	bumtolik = 7
 	gs 'stat'
 	'<center><img src="images/etogame/bukli_pos2.jpg"></center>'
-	'You´ve decided that nothing bad will happen if you go into the room, look at what´s inside the life of these unfortunate people.'
+	'You''ve decided that nothing bad will happen if you go into the room, look at what''s inside the life of these unfortunate people.'
 	'You:- Thank you, I really do not last long. Only acquainted. First day.'
 	'When you walk past the seated men, you see how they are and looking at you. They did not hesitate to look at your chest and legs.'
 	'They should be for a long time there were no women.'
@@ -35,7 +35,7 @@ if $ARGS[0] = 'pos1':
 	'You seated at a small table in the center of the room. On all sides surround you face strangers. Mostly elderly, but as one with a hangover.'
 
 	'Vladimir:- Meet it Vitaly is Paul Afanasyevitch Oleg O., Kostya and lame Albert.'
-	'From the crowd:- So you´ll help us, it´s good to help me not hurt. Long time I did not help women.'
+	'From the crowd:- So you''ll help us, it''s good to help me not hurt. Long time I did not help women.'
 	'- Yeah, and me! So young, smooth skin and smells delicious.'
 
 	act 'Try to get away':gt 'buklinik_event', 'pos3'
@@ -48,20 +48,19 @@ if $ARGS[0] = 'pos1':
 	horny += 3
 	gs 'stat'
 	'<center><img src="images/etogame/bukli_grop2.jpg"></center>'
-	'You:- I think I´ll. I must go. Ahh, what you´re doing, stop it!'
+	'You:- I think I''ll. I must go. Ahh, what you''re doing, stop it!'
 	'You tried to get up and leave. But someone kept you in the thigh.'
 	'From the crowd:- Where? And as the same, help? You must help us her ass.'
 	'You feel like someone squeezed your buttocks.'
 	'- Come on, show us your tits delicious!'
 	'C these words, lame Albert hugged you for your waist, with the force drew me so that you bumped into him. A second hand started to pull your clothes baring breasts.'
 	'Aah! - You yell, that is urine.'
-	nl
 	'Bah!'
 
 	act 'Look at the door':gt 'buklinik_event', 'pos4'
-	end
+end
 
-	if $ARGS[0] = 'pos4':
+if $ARGS[0] = 'pos4':
 	cla
 	*clr
 	gs 'stat'
@@ -70,16 +69,16 @@ if $ARGS[0] = 'pos1':
 
 	'- What are you arranged? Launder you feed, give B! But this is not enough! Ungrateful swine!'
 	'Olga decisive step toward the you took you by the hand and led into the corridor.'
-	'- Man first day of work, all volunteers scared away. Well, I´ll deal with you more!'
+	'- Man first day of work, all volunteers scared away. Well, I''ll deal with you more!'
 	'(She slammed the door and you were alone in the corridor)'
 	'- <<$name>>, are you okay?'
 	'- Yes. A little scared.'
 	'- What do you think, do not drop your guard. They only give a reason.'
 
 	act '- Okay, I get it.':gt 'buklinik', 'holl'
-	end
+end
 
-	if $ARGS[0] = 'pos5':
+if $ARGS[0] = 'pos5':
 	cla
 	*clr
 	manna -= 5
@@ -93,8 +92,8 @@ if $ARGS[0] = 'pos1':
 	'You:- Hmm! Ham!'
 
 	act 'Get out into the corridor':gt 'buklinik', 'holl'
-	end
-	if $ARGS[0] = 'pos6':
+end
+if $ARGS[0] = 'pos6':
 	cla
 	*clr
 	gs 'stat'
@@ -102,28 +101,31 @@ if $ARGS[0] = 'pos1':
 	'Olga:- Thank you for agreeing. Nothing special, just to Spread plates on the tables. And try not to be rude, if someone starts to stick, be considerate. Keep apron dress, you do not accidentally get dirty.'
 	'("Molested! Delicacy! She must be kidding me, because of the case." - Think you.)'
 	act 'spacing plates':gt 'buklinik_event', 'pos7'
-	end
+end
 
-	if $ARGS[0] = 'pos7':
+if $ARGS[0] = 'pos7':
 	cla
 	*clr
 	buklinikDay = day
 	gs 'stat'
 	'<center><img src="images/etogame/bukli_eat2.jpg"></center>'
-	if bumtolik > 7:'You quietly spacing plates on the tables.'
-	if bumtolik = 7:
+	if bumtolik > 7:
+		'You quietly spacing plates on the tables.'
+	elseif bumtolik = 7:
+		bumtolik = 8
 		'You calmly carried the plates on the table. Yet because of one of the tables you have not addressed sassy tone:'
 		'- Wow, look what the buffer! They are what size, beauty?'
 		'- What !? But how ... Uh ... I do not mind your business! - You blurt.'
-		bumtolik = 8
 	end
 	act 'Finish':gt 'buklinik', 'olga2'
-	end
+end
 
-	if $ARGS[0] = 'pos8':
+if $ARGS[0] = 'pos8':
 	cla
 	*clr
+
 	if bumtolik = 8:bumtolik = 9
+
 	buklinikDay = day
 	minut += 120
 	manna += 20
@@ -131,9 +133,9 @@ if $ARGS[0] = 'pos1':
 	'<center><img src="images/etogame/bukli_sitter1.jpg"></center>'
 	'You come to the right and two hours of help around the house the old man. The old man was very grateful to you and you felt the joy and peace.'
 	act 'Finish':gt 'buklinik', 'olga2'
-	end
+end
 
-	if $ARGS[0] = 'pos9':
+if $ARGS[0] = 'pos9':
 	cla
 	*clr
 	buklinikDay = day
@@ -149,9 +151,9 @@ if $ARGS[0] = 'pos1':
 		act 'There is one idea':gt 'buklinik_event', 'pos10'
 	end
 	act 'I have no idea':gt 'buklinik', 'olga2'
-	end
+end
 
-	if $ARGS[0] = 'pos10':
+if $ARGS[0] = 'pos10':
 	cla
 	*clr
 	bumtolik = 10
@@ -170,6 +172,6 @@ if $ARGS[0] = 'pos1':
 	'It looks like the people at the clinic learned their new assistant in a new way.'
 
 	act 'Finish':gt 'buklinik', 'olga2'
-	end
+end
 
 --- buklinik_event ---------------------------------

+ 92 - 116
locations/burger

@@ -1,8 +1,13 @@
 # burger
 if $ARGS[0] = 'start':
 	cla
+	clr
 	*clr
-	set minut += 5
+	minut += 5
+	gs 'stat'
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(255, 255, 255)
+	lcolor = rgb(106, 90, 205)
 	'<center><b><font color="maroon">Diner Bystroeshka</font></b></center>'
 	'<center><img src="images/etogame/burger.jpg"></center>'
 	'The most nutritious food in the county, and sing a couple of kilograms dial reads bright advertising on the wall.'
@@ -10,15 +15,9 @@ if $ARGS[0] = 'start':
 
 	if BistroBoss > 0:'<a href="exec:gt ''burgerBoss''">The Cabinet of the Director</a> Anatoly Chubais'
 
-	clr
-	gs 'stat'
-	fcolor = rgb(0, 0, 0)
-	bcolor = rgb(255, 255, 255)
-	lcolor = rgb(106, 90, 205)
-
 	act 'Leave':
 		cla
-		set minut += 5
+		minut += 5
 		gt 'down'
 	end
 
@@ -27,34 +26,30 @@ if $ARGS[0] = 'start':
 			cla
 			*clr
 			'<center><img src="images/pics/food.jpg"></center>'
-			set minut += 30
-			set health += 10
-			set money -= 100
-			set manna += 5
-			set willpower += 5
+			minut += 30
+			health += 10
+			money -= 100
+			manna += 5
+			willpower += 5
 
 			if energy >= 30:
-				set fat += 8
-				'You can no longer have.'
-			end
-
-			if energy >= 20 and energy < 30:
-				set fat += 6
-				set energy += 10
+				fat += 8
+				'You can no longer eat.'
+			elseif energy >= 20 and energy < 30:
+				fat += 6
+				energy += 10
 				'You pushed through the power of a meal.'
-			end
-
-			if energy < 20:
-				set energy += 20
-				set fat += 4
+			elseif energy < 20:
+				energy += 20
+				fat += 4
 				'You gladly ate the food.'
 			end
 
-			if water >= 20:'Tea in you no longer climbs.'
-
-			if water < 20:
+			if water >= 20:
+				'You don''t need any more tea.'
+			elseif water < 20:
+				water += 20
 				'You gladly drank a mug of tea.'
-				set water += 20
 			end
 
 			act 'Get up from the table':gt 'burger', 'start'
@@ -67,7 +62,7 @@ if $ARGS[0] = 'start':
 			gs 'stat'
 			'You went to the office of the owner. He appeared in his place, dealing with your papers. Anatoly Borisovich looked at you and said, "Well? Are there any news?"'
 
-			act 'Exit':gt 'burger', 'start'
+			act 'Leave':gt 'burger', 'start'
 
 			if money >= 650000:
 				act 'To repay the debt (650,000 rubles)':
@@ -77,7 +72,7 @@ if $ARGS[0] = 'start':
 					gs 'stat'
 					'Did you get the money and counted 650, 000 Arkady Borisovich. He counted the money and promised that no prosecution will be no more.'
 
-					act 'Exit':gt 'burger', 'start'
+					act 'Leave':gt 'burger', 'start'
 				end
 			end
 
@@ -90,7 +85,7 @@ if $ARGS[0] = 'start':
 					gs 'stat'
 					'You showed record recognition on camera Arkady Borisovich where Ivan confessed and promised to return the money. Arkady Borisovich took you record and said that the further he will understand and take a statement from the police.'
 
-					act 'Exit':gt 'burger', 'start'
+					act 'Leave':gt 'burger', 'start'
 				end
 			end
 		end
@@ -105,15 +100,13 @@ if $ARGS[0] = 'start':
 
 			act 'Accept work':
 				cla
-				set posuda = 1
+				posuda = 1
 				'You agreed to work.'
 
-				act 'Exit':gt 'burger', 'start'
+				act 'Leave':gt 'burger', 'start'
 			end
 		end
-	end
-
-	if posuda >= 3 and posudaA = 0:
+	elseif posuda >= 3 and posudaA = 0:
 		act 'Go to the manager':
 			cla
 			'You went to the office of the Manager. The girl told the manager that you are not running bad and offered you another part-time job. You can wash the floors in the morning, from 8 to 9-. 1:00 cleaning floors and is now 100 rubles immediately on hand.'
@@ -122,56 +115,55 @@ if $ARGS[0] = 'start':
 
 			act 'Agree to work':
 				cla
-				set posudaA = 1
+				posudaA = 1
 				'You agreed to work.'
 
-				act 'Exit':gt 'burger', 'start'
+				act 'Leave':gt 'burger', 'start'
 			end
 		end
-	end
-
-	if posuda >= 1 and posudaday ! day and NoBistroWork = 0 and PersSecWork = 0:
+	elseif posuda >= 1 and posudaday ! day and NoBistroWork = 0 and PersSecWork = 0:
 		act 'Wash the dishes for 100 rubles (1:00)':
 			cla
 			*clr
-			set posudaday = day
-			set minut += 60
-			set posuda += 1
-			set manna -= 15
-			set money += 100
-			set sweat += 1
+			posudaday = day
+			minut += 60
+			posuda += 1
+			manna -= 15
+			money += 100
+			sweat += 1
 
 			if bistroQW = 10:bistroQW = 0
 
 			'<center><img src="images/pics/dirt.jpg"></center>'
-			!!'<<bistroQW>>'
 			'You are within an hour washed the dirty dishes from the food residue and grease. After that you were given 100 rubles for his work.'
 
 			if vnesh >= 20 and posuda >= 7 and bistroQW < 10:
-				if bistroQW = 1:$bistrotext = 'From the office of the owner came out and saw Bystroezhki you smiled. "<<$name>>. My offer still stands. It pays to go to a restaurant?"'
-				if bistroQW = 0:bistroQW = 1 & $bistrotext = 'From the office of the owner came Bystroezhki and nearly bumped into you.
-
-				- Oh, sorry. How could I not see such a charming girl.
-				- Do not worry - you responded with a smile.
-				- Can you meet? I Anatoly Borisovich.
-				- <<$name>>.
-				Anatoly took your hand and kissed it.
-				-Would you like to dine out, and not in that hole?'
-				'<<$bistrotext>>'
+				if bistroQW = 1:
+					'From the office of the owner came out and saw Bystroezhki you smiled. "<<$name>>. My offer still stands. It pays to go to a restaurant?"'
+				elseif bistroQW = 0:
+					bistroQW = 1
+					'From the office of the owner came Bystroezhki and nearly bumped into you.'
+					'- Oh, sorry. How could I not see such a charming girl.'
+					'- Do not worry - you responded with a smile.'
+					'- Can you meet? I Anatoly Borisovich.'
+					'- <<$name>>.'
+					'Anatoly took your hand and kissed it.'
+					'-Would you like to dine out, and not in that hole?'
+				end
 
 				act 'Refuse':gt 'burger', 'start'
 
 				act 'Agree':
 					cls
 					bistroQW = 10
-					'"Let´s go first to the shop, pick up your gorgeous dress. And then the restaurant is not allowed in with anything." Said Anatoly seeing you on the street to his car.'
+					'"Let''s go first to the shop, pick up your gorgeous dress. And then the restaurant is not allowed in with anything." Said Anatoly seeing you on the street to his car.'
 
 					act 'Get in the car':
 						cls
 						minut += 15
+						bistroQW = 20
 						gs 'stat'
 						'<center><img src="images/maggot/car.jpg"></center>'
-						bistroQW = 20
 						'Anatoly Ehav in the car to take you by the hand and not let go until the very end of the road.'
 						'After you have gone in a very expensive boutique with a French name.'
 						'Anatoly said that you picked up the dress.'
@@ -192,15 +184,15 @@ if $ARGS[0] = 'start':
 							act 'Give blowjob':
 								cls
 								minut += 15
-								gs 'stat'
 								bistroQW = 50
 								bj += 1
 								guy += 1
 								swallow += 1
 								cumlip += 1
 								dress[24] = 1
-								set dressH[24] = 160
-								set dressB[24] = bedra
+								dressH[24] = 160
+								dressB[24] = bedra
+								gs 'stat'
 								'<center><img src="images/maggot/bj.jpg"></center>'
 								'You went down and squatted in front of Anatoly, he unbuttoned his pants and pulled out his penis. You leaned over his hard cock and kissed him, feeling his warmth. Glib tongue cock licking and sucking his struchek relish in her big wet mouth and you started to suck his dick.'
 								'Soon Anatoly groaned and you feel like in your mouth spurt of warm liquid. You are not distracted from the steel blowjob swallow cum, trying not to choke. Anatoly straightened clothes and left.'
@@ -212,7 +204,7 @@ if $ARGS[0] = 'start':
 									minut += 15
 									gs 'stat'
 									'<center><img src="images/maggot/car.jpg"></center>'
-									'Whew, Svetsik. I that tired. Let´s go to a restaurant like some other time. Chubais told you and taking you by the hand led him to his car. You quickly get to your home and Anatoly said goodbye to you.'
+									'Whew, <<$name>>. I that tired. Let''s go to a restaurant like some other time. Chubais told you and taking you by the hand led him to his car. You quickly get to your home and Anatoly said goodbye to you.'
 
 									act 'Out of the car':gt 'street'
 								end
@@ -233,8 +225,8 @@ if $ARGS[0] = 'start':
 									!!swallow += 1
 									!!cumlip += 1
 									dress[24] = 1
-									set dressH[24] = 160
-									set dressB[24] = bedra
+									dressH[24] = 160
+									dressB[24] = bedra
 									gs 'stat'
 									'<center><img src="images/maggot/pr.jpg"></center>'
 									'You looked up startled and looked at Anatoly Chubais and immediately you feel like a hot head of his cock rested you on the lips. Anatoly began to move his cock your lips. "Do not be shy baby, it oblizni his tongue."'
@@ -255,7 +247,7 @@ if $ARGS[0] = 'start':
 											!!cumlip += 1
 											gs 'stat'
 											'<center><img src="images/maggot/pr2.jpg"></center>'
-											'You continued to lick dick and Anatoly Borisovich taking you behind your head pushed closer to the penis. You feel like you are on the lips rested member. Your wet lips parted and hot and firm flesh became a member of your mouth filling it completely. "That´s it baby, suck it now." said Anatoly Borisovich start moving your hips and slowly fuck your mouth. You cupped his lips tightly member and began to feel like skin on the penis moves along the rod.'
+											'You continued to lick dick and Anatoly Borisovich taking you behind your head pushed closer to the penis. You feel like you are on the lips rested member. Your wet lips parted and hot and firm flesh became a member of your mouth filling it completely. "That''s it baby, suck it now." said Anatoly Borisovich start moving your hips and slowly fuck your mouth. You cupped his lips tightly member and began to feel like skin on the penis moves along the rod.'
 
 											act 'Sucking dick':
 												cls
@@ -287,7 +279,7 @@ if $ARGS[0] = 'start':
 															minut += 15
 															gs 'stat'
 															'<center><img src="images/maggot/car.jpg"></center>'
-															'You came out of the boutique with Anatoly Borisovich. "Whew, Svetsik. I that tired. Let´s go to a restaurant like some other time." Chubais told you and taking you by the hand led him to his car. You quickly get to your home and Anatoly said goodbye to you.'
+															'You came out of the boutique with Anatoly Borisovich. "Whew, <<$name>>. I that tired. Let''s go to a restaurant like some other time." Chubais told you and taking you by the hand led him to his car. You quickly get to your home and Anatoly said goodbye to you.'
 
 															act 'Out of the car':gt 'street'
 														end
@@ -304,14 +296,14 @@ if $ARGS[0] = 'start':
 									cls
 									dom += 5
 									'You grinned and said, "Thank you very much, " Anatoly flushed and said emphatically, "You know what I mean." then he unbuttoned his pants and pulled out a member risen.'
-									'You laughed, "That´s it, I understand perfectly, you can carry this dress myself, if you think I´m laying for each bellied, fat cat, who thinks he saddled his fate and fancies himself the king of the world and brutal macho, so not par my brain baby, and its fledgling shove back into the socket until it fell out, and then I look out there in the nest next to the chick, a couple of balls hatched not because you looked, I help them hatch knee. In general, sebi away in horror, Casanova unfinished. "'
-									'Antaloy erupted and began to threaten "Yes I am, I´ll fire you!"'
-									'You laughed in his face, "Oh scared, all right shudder fired and then he´ll be here this rag to wash the dishes."'
+									'You laughed, "That''s it, I understand perfectly, you can carry this dress myself, if you think I''m laying for each bellied, fat cat, who thinks he saddled his fate and fancies himself the king of the world and brutal macho, so not par my brain baby, and its fledgling shove back into the socket until it fell out, and then I look out there in the nest next to the chick, a couple of balls hatched not because you looked, I help them hatch knee. In general, sebi away in horror, Casanova unfinished. "'
+									'Antaloy erupted and began to threaten "Yes I am, I''ll fire you!"'
+									'You laughed in his face, "Oh scared, all right shudder fired and then he''ll be here this rag to wash the dishes."'
 									'Anatoly pale, flushed and hissing angrily jumped out of the fitting followed by your loud laughter.'
 
 									act 'Leave':
 										cla
-										set minut += 5
+										minut += 5
 										gt 'down'
 									end
 								end
@@ -321,21 +313,17 @@ if $ARGS[0] = 'start':
 				end
 
 				exit
-			end
-
-			if bistroQW = 20:
+			elseif bistroQW = 20:
 				bisrand = rand(0, 10)
 
 				if bisrand = 10:'From the office of the owner came Bystroezhki Anatoly Borisovich and see you turned away from the arrogant mien.'
-			end
-
-			if bistroQW = 56:
-				'When you´re finished you suddenly approached manager Ivan. "Okay <<$name>>. Sorry. I was wrong about you. I do not know what I was bitten by a fly. We just want people to post Assistant Manager. I think you come near. Nature you have. Well? Do you agree?"'
+			elseif bistroQW = 56:
+				'When you''re finished you suddenly approached manager Ivan. "Okay <<$name>>. Sorry. I was wrong about you. I do not know what I was bitten by a fly. We just want people to post Assistant Manager. I think you come near. Nature you have. Well? Do you agree?"'
 
 				act 'Yes.':
 					cls
 					gs 'stat'
-					'You agreed with the proposal to become assistant manager Ivan. Ivan immediately beamed with happiness. "Well then, you first work assignments, here´s the keys to the cabinet Borisych. Leave them while at home. Go to his office, open the safe and take it from there envelope. Do not forget to close only after themselves safe. How Come take an envelope to me. understood everything? Act! "'
+					'You agreed with the proposal to become assistant manager Ivan. Ivan immediately beamed with happiness. "Well then, you first work assignments, here''s the keys to the cabinet Borisych. Leave them while at home. Go to his office, open the safe and take it from there envelope. Do not forget to close only after themselves safe. How Come take an envelope to me. understood everything? Act! "'
 
 					act 'I changed my mind.':
 						cls
@@ -354,8 +342,8 @@ if $ARGS[0] = 'start':
 
 						act 'Look in the envelope':
 							cls
-							gs 'stat'
 							$burgerIvanText = 'And looked into the envelope. Then you close the safe and headed to the exit.'
+							gs 'stat'
 							'You looked at the envelope and saw there a thick wad of money. Vskidku, that about half a million. From what you see you even whistled.'
 
 							act 'Envelope attributed to Ivan':
@@ -394,20 +382,18 @@ if $ARGS[0] = 'start':
 				end
 
 				exit
-			end
-
-			if bistroQW = 50:
+			elseif bistroQW = 50:
 				'During operation, you learned that Chubais is away on business affairs and his manager replaces Ivan. When you are ready to go to work from the office manager came out and Ivan came to you in a conspiratorial tone said. "Well <<$name>>, you obviously do not want to work for those pennies? Come to me, spec. Spec work for. Salary."'
 
-				act 'Go to the manager´s office':
+				act 'Go to the manager''s office':
 					cls
 					minut += 15
-					gs 'stat'
 					bistroQW = 55
 					!!bj += 1
 					!!guy += 1
 					!!swallow += 1
 					!!cumlip += 1
+					gs 'stat'
 					'<center><img src="images/maggot/bj1.jpg"></center>'
 					'You went into the office and closed the pre Ivan the front door of the castle, and sat down in a chair in front of you at ease lounging in it. You went to the manager and waited for what he would do, he sneered and deftly grabbed you by the hand pulling yourself.'
 
@@ -419,9 +405,9 @@ if $ARGS[0] = 'start':
 						act 'Take by mouth':
 							cls
 							minut += 3
-							gs 'stat'
 							bj += 1
 							guy += 1
+							gs 'stat'
 							'<center><img src="images/maggot/bj3.jpg"></center>'
 							'Still standing in front of Ivan you even more bent and gently licked his tongue member, then again and again. Finally you lips wrapped around his cock and began to suck his cock absorbing into your hot mouth until the very end, utykayas nose at every movement in curly pubis that tickle your nose.'
 							'Ivan finally broke down and without warning began to cum in your mouth. Jet of hot liquid hit you in the mouth, you have opened wide-eyed, but you continued to suck dick spewing seed finally you had a mouth full of semen already and you could not contain it and it has emerged on your lips member Ivan.'
@@ -448,7 +434,7 @@ if $ARGS[0] = 'start':
 							bistroQW = 56
 							gs 'stat'
 							'<center><img src="images/maggot/bj1.jpg"></center>'
-							'You escaped from the hands of Ivan was not expecting such a reaction. He glared at you, "I mean Borisych suck, and his deputy squeamish?" You were taken aback by these words. How does he know about what happened in the fitting room. Apparently on your face that is reflected Ivan chuckled. "Yes Borisitch raskazal himself about it. If you calculated, but the fact that you manage Okrut Borisitch, then nothing. Did you tell him something and not really needed. And I´m offering you a decent zarobotok. So, be a good boy and show me that knows your mouth. "'
+							'You escaped from the hands of Ivan was not expecting such a reaction. He glared at you, "I mean Borisych suck, and his deputy squeamish?" You were taken aback by these words. How does he know about what happened in the fitting room. Apparently on your face that is reflected Ivan chuckled. "Yes Borisitch raskazal himself about it. If you calculated, but the fact that you manage Okrut Borisitch, then nothing. Did you tell him something and not really needed. And I''m offering you a decent zarobotok. So, be a good boy and show me that knows your mouth. "'
 
 							act 'Perebesh!':dom += 1 & gt 'burger', 'start'
 
@@ -456,9 +442,9 @@ if $ARGS[0] = 'start':
 								cls
 								bistroQW = 55
 								minut += 3
-								gs 'stat'
 								bj += 1
 								guy += 1
+								gs 'stat'
 								'<center><img src="images/maggot/bj3.jpg"></center>'
 								'Still standing in front of Ivan you even more bent and gently licked his tongue member, then again and again. Finally you lips wrapped around his cock and began to suck his cock absorbing into your hot mouth until the very end, utykayas nose at every movement in curly pubis that tickle your nose.'
 								'Ivan finally broke down and without warning began to cum in your mouth. Jet of hot liquid hit you in the mouth, you have opened wide-eyed, but you continued to suck dick spewing seed finally you had a mouth full of semen already and you could not contain it and it has emerged on your lips member Ivan.'
@@ -482,12 +468,10 @@ if $ARGS[0] = 'start':
 
 					exit
 				end
-			end
-
-			if bistroQW = 55:
-				'To you and Ivan approached the manager said "I´ll see you in my office."'
+			elseif bistroQW = 55:
+				'To you and Ivan approached the manager said "I''ll see you in my office."'
 
-				act 'Go to the manager´s office':
+				act 'Go to the manager''s office':
 					cls
 					bistroQW = 60
 					'You went into the office, Ivan sat at the table and motioned you under the table. You understand that Ivan wants, what would you crawled under the table.'
@@ -495,11 +479,11 @@ if $ARGS[0] = 'start':
 					act 'Crawl under the table':
 						cls
 						minut += 3
-						gs 'stat'
 						bj += 1
 						swallow += 1
 						cumlip += 1
 						money += 1500
+						gs 'stat'
 						'<center><img src="images/maggot/bjud.jpg"></center>'
 						'You crawled under the table and pulled out Ivan in front of your face his penis. You cupped his mouth and began to suck trying to incorporate it into your mouth as deeply as possible. Under the table was cramped and uncomfortable to suck, but you have coped and buccal a few minutes in your mouth poured semen Ivan you started quickly swallow, that would not ispachkatsya.'
 						'Thereafter, as Ivan and for the first time took a half thousand and handed to you.'
@@ -507,12 +491,10 @@ if $ARGS[0] = 'start':
 						act 'Leave':gt 'burger', 'start'
 					end
 				end
-			end
-
-			if bistroQW = 60:
+			elseif bistroQW = 60:
 				'Ivan that is nowhere to be seen and he has not approached you, you had the idea to check his office.'
 
-				act 'Go to the manager´s office':
+				act 'Go to the manager''s office':
 					cls
 					bistroQW = 65
 					'You came to the office, but it was closed, you came to the deputy manager and told you with a chuckle, "What <<$name>>? Without a" tea stick "does not work? I know all about you and our general manager. But it was not until the end of the week. And if you do not want me to tell others how you earn a living, then you go to the office and serve me. "'
@@ -563,9 +545,7 @@ if $ARGS[0] = 'start':
 						act 'Scream at full throat and run':bistroQW = 61 & gt 'burger', 'start'
 					end
 				end
-			end
-
-			if bistroQW >= 65 and soplakTimes ! 3:
+			elseif bistroQW >= 65 and soplakTimes ! 3:
 				'To you came pimply deputy manager and taking his hand led him into his office.'
 				'In office, he sat on a chair pulled out dick and put you in front of him on all fours.'
 
@@ -590,14 +570,12 @@ if $ARGS[0] = 'start':
 				end
 
 				exit
-			end
-
-			if bistroQW = 57 and BistroBoss = 0 or bistroQW >= 65 and BistroBoss = 0 and soplakTimes = 3:
+			elseif bistroQW = 57 and BistroBoss = 0 or bistroQW >= 65 and BistroBoss = 0 and soplakTimes = 3:
 				BistroBoss = 1
 
 				if soplakTimes = 3:soplakTimes = 4
 
-				'When you have finished, seemed on the verge of bystroezhki Anatoly Borisovich, he nodded to you "Hello <<$name>>, you´re done, come to me."'
+				'When you have finished, seemed on the verge of bystroezhki Anatoly Borisovich, he nodded to you "Hello <<$name>>, you''re done, come to me."'
 
 				act 'Leave':gt 'burger', 'start'
 
@@ -606,18 +584,16 @@ if $ARGS[0] = 'start':
 
 			act 'Leave':gt 'burger', 'start'
 		end
-	end
-
-	if posudaA >= 1 and posudaAday ! day and hour < 10 and NoBistroWork = 0 and PersSecWork = 0:
+	elseif posudaA >= 1 and posudaAday ! day and hour < 10 and NoBistroWork = 0 and PersSecWork = 0:
 		act 'Wash the floor for 100 rubles(1:00)':
 			cla
 			*clr
-			set posudaAday = day
-			set minut += 60
-			set posuda += 1
-			set manna -= 15
-			set money += 100
-			set sweat += 1
+			posudaAday = day
+			minut += 60
+			posuda += 1
+			manna -= 15
+			money += 100
+			sweat += 1
 			'<center><img src="images/etogame/clener1.jpg"></center>'
 			'You within the hour namyvali floor eatery. After that you were given 100 rubles for his work.'
 

+ 25 - 34
locations/burgerBoss

@@ -13,18 +13,22 @@ if BistroBoss = 10:
 	act 'Leave':gt 'burger', 'start'
 
 	if PersSecWork = 2:
-		if week < 6 and hour < 10:'Anatoly Borisovich looked sternly at you, "<<$name>>, you´re fired, and I did not raise, go away, we´re done, I, my wife more than you."'
-	end
-
-	if PersSecWork = 1:
+		if week < 6 and hour < 10:'Anatoly Borisovich looked sternly at you, "<<$name>>, you''re fired, and I did not raise, go away, we''re done, I, my wife more than you."'
+	elseif PersSecWork = 1:
 		if week < 6 and hour < 10 and ofclo = 1:
 			act 'Work':gt 'burgerWork'
-		end
 
-		if week < 6 and hour < 10 and ofclo ! 1:'Anatoly Borisovich looked sternly at you, "<<$name>>, what are you dressed up? Go home and change your clothes, you hooky today!"'
+			act 'Resign':
+				PersSecWork = 0
+				work = 0
+				minut += 20
+
+				gt 'burger', 'start'
+			end
+		elseif week < 6 and hour < 10 and ofclo ! 1:'Anatoly Borisovich looked sternly at you, "<<$name>>, what are you dressed up? Go home and change your clothes, you hooky today!"'
 	end
 
-	if PersSecWork = 0 and week < 6:
+	elseif PersSecWork = 0 and week < 6:
 		if secrDiplom = 1:
 			act 'Show diploma':
 				cls
@@ -36,17 +40,17 @@ if BistroBoss = 10:
 					cls
 					minut += 1
 					gs 'stat'
-					'You said what works elsewhere. Anatoly Borisovich smiled a little, "What could I take you to work, what would you need to quit my former employment. You think hard, I do not force you, but I´ll give you a salary normal. Polchaetsya 2500 Will the working day is longer fifty dollars a month. "'
+					'You said what works elsewhere. Anatoly Borisovich smiled a little, "What could I take you to work, what would you need to quit my former employment. You think hard, I do not force you, but I''ll give you a salary normal. Polchaetsya 2500 Will the working day is longer fifty dollars a month. "'
 
 					act 'Leave':gt 'burger', 'start'
 				end
 
-				if work = 0:
+				if (work = 0 and PersSecWork = 0 and cheatWork = 0) or (cheatWork = 0 and cheatWork = 1):
 					act 'That labor':
 						cls
 						minut += 1
 						gs 'stat'
-						'Labor you put on the table. Anatoly Borisovich little smile, "You think well, I will not force you, but I´ll give you a salary normal. Polchaetsya 2500 Will the working day is longer fifty dollars a month. From you I need loyalty, hard work, strict compliance guidelines."'
+						'Labor you put on the table. Anatoly Borisovich little smile, "You think well, I will not force you, but I''ll give you a salary normal. Polchaetsya 2500 Will the working day is longer fifty dollars a month. From you I need loyalty, hard work, strict compliance guidelines."'
 
 						act 'Leave':gt 'burger', 'start'
 
@@ -56,7 +60,7 @@ if BistroBoss = 10:
 							work = 1
 							PersSecWork = 1
 							gs 'stat'
-							'You agreed to become secretary Anatoly Chubais, he took your career, made a copy of passport and diploma, and began to tell. Come back every weekday at bystroezhku no later than 9 o´clock, carefully observe the dress code. Receive calls, write, print documents, in general nothing supernatural. Will work to 17ti hours, salary every month.'
+							'You agreed to become secretary Anatoly Chubais, he took your career, made a copy of passport and diploma, and began to tell. Come back every weekday at bystroezhku no later than 9 o''clock, carefully observe the dress code. Receive calls, write, print documents, in general nothing supernatural. Will work to 17ti hours, salary every month.'
 
 							act 'Leave':gt 'burger', 'start'
 						end
@@ -65,10 +69,8 @@ if BistroBoss = 10:
 			end
 		end
 	end
-end
-
-if BistroBoss = 1:
-	'You have entered the principal´s office. Anatoly Borisovich sitting at the table and studied the documents, you see, he put them aside and showed you invited to sit on a chair.'
+elseif BistroBoss = 1:
+	'You have entered the principal''s office. Anatoly Borisovich sitting at the table and studied the documents, you see, he put them aside and showed you invited to sit on a chair.'
 
 	act 'Sit on a chair':
 		cls
@@ -78,7 +80,7 @@ if BistroBoss = 1:
 
 		if bistroQW = 57:
 			kosmetica += 200
-			'You sat on a chair and smiled Anatoly Borisovich you. "I´m so glad this damn trip over. I had already missed you. Incidentally I do not come empty-handed, here´s a gift." with these words Anatoly Borisovich put on the table a set of expensive cosmetics. "And yet, I want you to devote some of the details. I am married and I have kids. So do not even stutter about any marriage, this I will not go. My wife, the daughter of a very influential deputy and my current position of Director of the lousy diner time, very soon I´ll get the post of deputy minister of construction, but for now I just need to get the record in labor. So, you showed yourself a stiff upper lip, I need loyal people, and I invite you to be my secretary. Do you have passed the diploma courses secretary? "'
+			'You sat on a chair and smiled Anatoly Borisovich you. "I''m so glad this damn trip over. I had already missed you. Incidentally I do not come empty-handed, here''s a gift." with these words Anatoly Borisovich put on the table a of expensive cosmetics. "And yet, I want you to devote some of the details. I am married and I have kids. So do not even stutter about any marriage, this I will not go. My wife, the daughter of a very influential deputy and my current position of Director of the lousy diner time, very soon I''ll get the post of deputy minister of construction, but for now I just need to get the record in labor. So, you showed yourself a stiff upper lip, I need loyal people, and I invite you to be my secretary. Do you have passed the diploma courses secretary? "'
 
 			if secrDiplom = 1:
 				act 'Yes, I have a diploma.':
@@ -89,9 +91,7 @@ if BistroBoss = 1:
 
 					act 'Leave':gt 'burger', 'start'
 				end
-			end
-
-			if secrDiplom = 0 and sekrObu > 0:
+			elseif secrDiplom = 0 and sekrObu > 0:
 				act 'I do not have a diploma, but I am a secretary.':
 					cls
 					minut += 1
@@ -100,22 +100,18 @@ if BistroBoss = 1:
 
 					act 'Leave':gt 'burger', 'start'
 				end
-			end
-
-			if secrDiplom = 0 and sekrObu = 0:
+			elseif secrDiplom = 0 and sekrObu = 0:
 				act 'No.':
 					cls
 					sekrObu = 1
 					minut += 1
 					gs 'stat'
-					'You shook his head. Anatoly Borisovich smiled. "It does not matter, I now pay for your training and once you´re done, come to me."'
+					'You shook his head. Anatoly Borisovich smiled. "It does not matter, I now pay for your training and once you''re done, come to me."'
 
 					act 'Leave':gt 'burger', 'start'
 				end
 			end
-		end
-
-		if bistroQW >= 65:
+		elseif bistroQW >= 65:
 			'You sat on a chair and Chubais gave you a grim look. "I did not think you were such deshovke. What is your fee? Three weave for suction to swallow?" He pulled out his bill of 300 rubles and threw it on the floor. "Get up on your knees and work it off, as you are able, vaflersha."'
 
 			act 'Leave':gt 'burger', 'start'
@@ -137,21 +133,16 @@ if BistroBoss = 1:
 			end
 		end
 	end
-end
-
-if BistroBoss = 2 and BistroBossDay = day:
+elseif BistroBoss = 2 and BistroBossDay = day:
 	'Knocking you walked into the office to Anatoly Borisovich. He looked angrily at you, "I said, get out of here."'
 
 	act 'Leave':gt 'burger', 'start'
-end
-
-if BistroBoss = 2 and BistroBossDay ! day:
+elseif BistroBoss = 2 and BistroBossDay ! day:
+	BistroBossDay = day
 	'Knocking you walked into the office to Anatoly Borisovich. He looked darkly at you and got a bill of 300 rubles, "Get up on your knees and work it off, as you are able, vaflersha."'
 
 	act 'Leave':gt 'burger', 'start'
 
-	BistroBossDay = day
-
 	act 'To kneel':
 		cls
 		minut += 5

+ 31 - 48
locations/burgerWork

@@ -2,36 +2,32 @@
 $dinBistroWork = {
 	act 'Dinner':
 		cls
+		minut += 30
+		health += 10
+		manna += 5
+		willpower += 5
 		gs 'stat'
 		'<center><img src="images/pics/food.jpg"></center>'
-		set minut += 30
-		set health += 10
-		set manna += 5
-		set willpower += 5
 		'You took bystroezhke food and sat at a table for dinner.'
 
 		if energy >= 30:
-			set fat += 8
-			'You can no longer have.'
-		end
-
-		if energy >= 20 and energy < 30:
-			set fat += 6
-			set energy += 10
+			fat += 8
+			'You can no longer eat.'
+		elseif energy >= 20 and energy < 30:
+			fat += 6
+			energy += 10
 			'You pushed through the power of a meal.'
-		end
-
-		if energy < 20:
-			set energy += 20
-			set fat += 4
+		elseif energy < 20:
+			energy += 20
+			fat += 4
 			'You gladly ate the food.'
 		end
 
-		if water >= 20:'Tea in you no longer climbs.'
-
-		if water < 20:
+		if water >= 20:
+			'You don''t need any more tea.'
+		elseif water < 20:
+			water += 20
 			'You gladly drank a mug of tea.'
-			set water += 20
 		end
 
 		gs 'stat'
@@ -47,14 +43,10 @@ $dinBistroWork2 = {
 		if kompromatBlackMail >= 6 and ivanFilmBJ > 0:
 			kobl = 0
 			kobl2 = 2
-		end
-
-		if kompromatBlackMail >= 6 and ivanFilmBJ = 0:
+		elseif kompromatBlackMail >= 6 and ivanFilmBJ = 0:
 			kobl = 0
 			kobl2 = 2
-		end
-
-		if kompromatBlackMail < 6:
+		elseif kompromatBlackMail < 6:
 			kobl = 0
 			kobl2 = 1
 		end
@@ -80,9 +72,7 @@ $dinBistroWork2 = {
 				end
 
 				dynamic $din_Ivan_work4
-			end
-
-			if komblrand = 1:
+			elseif komblrand = 1:
 				'After work, you are going to leave bystroezhki, but you came Ivan. "Where are you going, baby? And how to suck my candy?"'
 
 				act 'Agree':
@@ -100,9 +90,7 @@ $dinBistroWork2 = {
 				end
 
 				dynamic $din_Ivan_work4
-			end
-
-			if komblrand = 2:
+			elseif komblrand = 2:
 				'After work, you are going to leave bystroezhki, but you came Ivan. "Where are you going, baby? And how to suck my candy?"'
 
 				act 'Agree':
@@ -149,7 +137,7 @@ $dinBistroWork2 = {
 				dynamic $din_Ivan_work4
 			end
 
-			if komblrand = 3:''
+			!!if komblrand = 3:''
 
 			exit
 		end
@@ -164,19 +152,19 @@ $dinBistroWork3 = {
 		PSBBtimes = 2
 		minut += 30
 		minut += 60 * 3
+		!!gs 'BurgerTip'
 		gs 'stat'
 		'<center><img src="images/qwest/sosed/work.jpg"></center>'
-		!!gs 'BurgerTip'
+
 		'You sat down and started on the computer to prepare the contract.'
 		dynamic $burger_work_din
 		dynamic $dinBistroWork2
 	end
 }
 
-gs 'BurgerTip'
-
 if hour < 10:hour = 10 & minut = 0 & PersSecWorkTimes += 1
 
+gs 'BurgerTip'
 gs 'stat'
 '<center><img src="images/qwest/sosed/work.jpg"></center>'
 'You sit in front of his office cabinet Chubais.'
@@ -186,31 +174,26 @@ if hour < 17:
 		cls
 		PSBBtimes = 1
 		minut += 60 * 2
+		!!gs 'BurgerTip'
 		gs 'stat'
 		'<center><img src="images/qwest/sosed/work.jpg"></center>'
-		!!gs 'BurgerTip'
 		'You sat at the table and began to prepare the agreement on the computer.'
 
 		if TerminalPapper = 1:
 			TerminalPapper = 0
 			kosiakBU += 1
-			'Chubais gave you dressing for what you are not carried documents in a storage terminal and disrupted supplies.'
-		end
-
-		if TerminalPapper = 2:
+			'Anatoly Borisovich gave you dressing for what you are not carried documents in a storage terminal and disrupted supplies.'
+		elseif TerminalPapper = 2:
 			TerminalPapper = 0
 			'Anatoly Borisovich thanked you for what you just delivered documents to storage terminal.'
 		end
-
-		if BankPapper = 2:
-			BankPapper = 0
-			'Anatoly Borisovich thanked you for what you just delivered the documents to the bank.'
-		end
-
 		if BankPapper = 1:
 			BankPapper = 0
 			kosiakBU += 1
 			'Anatoly Borisovich chastised you for what you did not take the documents to the bank.'
+		elseif BankPapper = 2:
+			BankPapper = 0
+			'Anatoly Borisovich thanked you for what you just delivered the documents to the bank.'
 		end
 
 		if BuSWworkEnd = 1 or kompromatBlackMail = 1:
@@ -224,7 +207,7 @@ if hour < 17:
 				PersSecWorkTimes = 0
 				money += Pay
 				gs 'stat'
-				'You wrote a statement of resignation and quickly signed his boss, he was counted out to you <<pay>> rubles your paycheck and said, "It´s over <<$name>>, get out of here."'
+				'You wrote a statement of resignation and quickly signed his boss, he was counted out to you <<pay>> rubles your paycheck and said, "It''s over <<$name>>, get out of here."'
 
 				act 'Leave':gt 'down'
 			end

+ 33 - 33
locations/butik

@@ -1,22 +1,22 @@
 # butik
 if $ARGS[0] = 'start':
-	cla
-	*clr
-	set mag = 1
 	$metka = $ARGS[0]
 	$loc = $CURLOC
 	$metkaM = $ARGS[0]
 	$locM = $CURLOC
-	set minut += 5
-	'<center><b><font color="maroon">Boutique</font></b></center>'
-	'<center><img src="images/etogame/butik.jpg"></center>'
+	cla
 	clr
+	*clr
+	mag = 1
+	minut += 5
 	gs 'stat'
 	fcolor = rgb(0, 0, 0)
 	bcolor = rgb(255, 255, 255)
 	lcolor = rgb(106, 90, 205)
-	'7m kinds of dresses, all at 25, 000 rubles'
-	set evrand = rand(0, 100)
+	'All kind of dresses, all at 25,000 rubles'
+	'<center><b><font color="maroon">Boutique</font></b></center>'
+	'<center><img src="images/etogame/butik.jpg"></center>'
+	evrand = rand(0, 100)
 
 	if evrand >= 80 and skin > 0 and lesbiQW = 0:
 		'In the boutique you see a stylish and slender woman forty years.'
@@ -48,8 +48,8 @@ if $ARGS[0] = 'start':
 		if money >= 50000:
 			act 'Buy a fur coat (50,000 rubles)':
 				cla
-				set money -= 50000
-				set palto = 3
+				money -= 50000
+				palto = 3
 				$palto = 'fur coat'
 				'You bought a fur coat.'
 
@@ -60,97 +60,97 @@ if $ARGS[0] = 'start':
 
 	if money >= 25000:
 		if dress[1] = 0:
-			act 'Inspect the 1st dress.':set numdres = 1 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 1st dress (25,000 rubles)':numdres = 1 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[2] = 0:
-			act 'Inspect the 2nd dress.':set numdres = 2 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 2nd dress (25,000 rubles)':numdres = 2 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[3] = 0:
-			act 'Inspect the third dress.':set numdres = 3 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 3rd dress (25,000 rubles)':numdres = 3 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[5] = 0:
-			act 'Inspect 5e dress.':set numdres = 5 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 5th dress (25,000 rubles)':numdres = 5 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[6] = 0:
-			act 'Inspect 6e dress.':set numdres = 6 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 6th dress (25,000 rubles)':numdres = 6 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[7] = 0:
-			act 'Inspect 7e dress.':set numdres = 7 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 7th dress (25,000 rubles)':numdres = 7 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[8] = 0:
-			act 'Inspect 8e dress.':set numdres = 8 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 8th dress (25,000 rubles)':numdres = 8 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[9] = 0:
-			act 'Inspect the 9th dress.':set numdres = 9 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 9th dress (25,000 rubles)':numdres = 9 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[10] = 0:
-			act 'Inspect 10s dress.':set numdres = 10 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 10th dress (25,000 rubles)':numdres = 10 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[11] = 0:
-			act 'Inspect 11e dress.':set numdres = 11 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 11th dress (25,000 rubles)':numdres = 11 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[12] = 0:
-			act 'Inspect 12e dress.':set numdres = 12 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 12th dress (25,000 rubles)':numdres = 12 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[13] = 0:
-			act 'Inspect the 13th dress.':set numdres = 13 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 13th dress (25,000 rubles)':numdres = 13 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[14] = 0:
-			act 'Inspect 14e dress.':set numdres = 14 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 14th dress (25,000 rubles)':numdres = 14 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[15] = 0:
-			act 'Inspect 15e dress.':set numdres = 15 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 15th dress (25,000 rubles)':numdres = 15 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[16] = 0:
-			act 'Inspect 16e dress.':set numdres = 16 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 16th dress (25,000 rubles)':numdres = 16 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[17] = 0:
-			act 'Inspect 17e dress.':set numdres = 17 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 17th dress (25,000 rubles)':numdres = 17 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[18] = 0:
-			act 'Inspect 18e dress.':set numdres = 18 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 18th dress (25,000 rubles)':numdres = 18 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[19] = 0:
-			act 'Inspect 19e dress.':set numdres = 19 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 19th dress (25,000 rubles)':numdres = 19 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[20] = 0:
-			act 'Inspect 20s dress.':set numdres = 20 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 20th dress (25,000 rubles)':numdres = 20 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[21] = 0:
-			act 'Inspect 21e dress.':set numdres = 21 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 21th dress (25,000 rubles)':numdres = 21 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[22] = 0:
-			act 'Inspect 22e dress.':set numdres = 22 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 22th dress (25,000 rubles)':numdres = 22 & payclo = 25000 & gt 'loker', 'dress'
 		end
 
 		if dress[23] = 0:
-			act 'Inspect 23rd dress.':set numdres = 23 & payclo = 25000 & gt 'loker', 'dress'
+			act 'Inspect the 23th dress (25,000 rubles)':numdres = 23 & payclo = 25000 & gt 'loker', 'dress'
 		end
 	end
 
 	act 'Leave the boutique':
 		cla
-		set minut += 5
+		minut += 5
 		gt 'torgcentr'
 	end
 end

+ 30 - 23
locations/butoilet

@@ -1,18 +1,18 @@
 # butoilet
-set minut += 5
-'<center><b><font color="maroon">WC</font></b></center>'
-'<center><img src="images/etogame/PublicToilet.jpg"></center>'
-''
+minut += 5
 clr
 gs 'stat'
 fcolor = rgb(0, 0, 0)
 bcolor = rgb(255, 255, 255)
 lcolor = rgb(106, 90, 205)
+'<center><b><font color="maroon">WC</font></b></center>'
+'<center><img src="images/etogame/PublicToilet.jpg"></center>'
+''
 
 if tanga = 1:
 	act 'Remove Underwear':
 		cla
-		set tanga = 0
+		tanga = 0
 		gt $curloc
 	end
 end
@@ -22,8 +22,8 @@ act 'Off the toilet':gt 'burger', 'start'
 act 'Look in the mirror':
 	cla
 	gs 'portmirror'
-	set $gt1 = $curloc
-	set $gt2 = ''
+	$gt1 = $curloc
+	$gt2 = ''
 	dynamic $portmirror
 
 	act 'Move away from the mirror':
@@ -35,15 +35,22 @@ end
 !!0.2.6 extension: reworked how quick wash and face wash was supposed to work, it is now uniform in all toilet/bathroom locations
 !!Removed sweat =- 1 when cum is wiped off clothes
 !!clrbelo: Amount of clean panties available
-if (cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0) and clrbelo > 0:
+if cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0:
 	act 'Quick wash (0:15)':
 		cla
 		*clr
+
+		if clrbelo > 0 and tanga = 1:
+			clrbelo -= 1
+			dirtbelo += 1
+		elseif clrbelo <= 0 and tanga = 1:
+			tanga = 0
+			dirtbelo += 1
+		end
+	
 		dynamic $showerdin
-		set sweat -= 1
-		set minut += 15
-		set clrbelo -= 1
-		set dirtbelo += 1
+		sweat -= 1
+		minut += 15
 		'<center><img src="images/pics/wash5.jpg"></center>'
 		'You gave yourself a catlick, thus removing any traces of cum.'
 
@@ -55,11 +62,11 @@ if cumlip > 0 or cumface > 0:
 	act 'Clean your face from sperm (0:05)':
 		cla
 		*clr
-		set mop = 1
-		set cumlip = 0
-		set cumface = 0
-		set sweat -= 1
-		set minut += 5
+		mop = 1
+		cumlip = 0
+		cumface = 0
+		sweat -= 1
+		minut += 5
 		'<center><img src="images/etogame/facesp.jpg"></center>'
 		'You clean your face and got rid of any trace of cum.'
 
@@ -71,8 +78,8 @@ if cumfrot > 0:
 	act 'Wipe the cum off your clothes (0:10)':
 		cla
 		*clr
-		set cumfrot = 0
-		set minut += 10
+		cumfrot = 0
+		minut += 10
 		!!'<center><img src="images/etogame/frotsp.jpg"></center>'
 		'You remove traces of semen from the clothes.'
 
@@ -85,10 +92,10 @@ if tampon > 0 and mesec > 0 and isprok = 0:
 	act 'Use a tampon (0:05)':
 		cla
 		*clr
-		set tampon -= 1
-		set isprok = 1
-		set minut += 5
-		set manna -= 5
+		tampon -= 1
+		isprok = 1
+		minut += 5
+		manna -= 5
 		'<center><img src="images/pics/wash3.jpg"></center>'
 		'You use a tampon.'
 

+ 1 - 1
locations/hall

@@ -21,7 +21,7 @@ if picrand = 2:'<right><img src="images/casino/hcasino3.jpg"></right>'
 'In room games <a href="exec:gt ''tape_measure''">Roulette</a>'
 'In room games <a href="exec:gt ''cards''">Cards</a>'
 !!'In <a href="exec:gt ''restaurant''">restaurant</a>'
-!!'In <a href="exec:gt ''bar''">bar</a>'
+!!'In <a href="exec:gt ''saloon''">bar</a>'
 !!'In <a href="exec:gt ''theater''">Theatre</a>'
 'K <a href="exec:gt ''inn''">Hotel</a>'
 

برخی فایل ها در این مقایسه diff نمایش داده نمی شوند زیرا تعداد فایل ها بسیار زیاد است