Преглед изворни кода

merged everything from devel and fixed a bug in fighting

morgolon пре 10 година
родитељ
комит
b0610c0109
100 измењених фајлова са 11188 додато и 12253 уклоњено
  1. BIN
      glife.txt
  2. 17 46
      locations/001_start
  3. 2 3
      locations/002_gameover
  4. 5 3
      locations/003_begin
  5. 5 12
      locations/004_begin1
  6. 1017 1272
      locations/005_onobjsel
  7. 9 10
      locations/006_counter
  8. 29 0
      locations/007_init_music
  9. 0 534
      locations/007_loadg
  10. 0 21
      locations/008_LOCA
  11. 3 0
      locations/008_loadg
  12. 3 0
      locations/009_LOCA
  13. 0 4
      locations/009_saveg
  14. 0 4
      locations/010_inputProcessing
  15. 3 0
      locations/010_saveg
  16. 316 0
      locations/011_body
  17. 0 153
      locations/011_cikl
  18. 0 345
      locations/012_body
  19. 173 0
      locations/012_cikl
  20. 78 246
      locations/013_dina
  21. 3 3
      locations/014_dinBoroda
  22. 114 99
      locations/015_dinSex
  23. 0 126
      locations/016_din2
  24. 548 0
      locations/016_dinSex2
  25. 0 103
      locations/017_MenuLoc
  26. 121 0
      locations/017_din2
  27. 160 0
      locations/018_MenuLoc
  28. 0 11
      locations/018_MenuMainLoc
  29. 12 0
      locations/019_MenuMainLoc
  30. 0 55
      locations/019_oral
  31. 56 0
      locations/020_oral
  32. 0 202
      locations/020_orgazm
  33. 223 0
      locations/021_orgazm
  34. 0 18
      locations/021_preg
  35. 19 0
      locations/022_preg
  36. 0 15
      locations/022_starenie
  37. 15 0
      locations/023_starenie
  38. 0 1698
      locations/023_stat
  39. 0 50
      locations/024_din_bad
  40. 1363 0
      locations/024_stat
  41. 37 0
      locations/025_din_bad
  42. 0 21
      locations/025_statBat
  43. 21 0
      locations/026_statBat
  44. 0 6
      locations/026_statPRE
  45. 6 0
      locations/027_statPRE
  46. 0 439
      locations/027_time
  47. 0 47
      locations/028_kid
  48. 358 0
      locations/028_time
  49. 52 0
      locations/029_kid
  50. 0 16
      locations/029_subkid
  51. 0 474
      locations/030_alterStart
  52. 16 0
      locations/030_subkid
  53. 441 0
      locations/031_alterStart
  54. 0 954
      locations/031_event
  55. 996 0
      locations/032_event
  56. 0 370
      locations/032_frot
  57. 414 0
      locations/033_frot
  58. 0 91
      locations/033_kisameQW
  59. 99 0
      locations/034_kisameQW
  60. 0 499
      locations/034_lesbidomhouse
  61. 516 0
      locations/035_lesbidomhouse
  62. 0 83
      locations/035_mainQW
  63. 87 0
      locations/036_mainQW
  64. 0 156
      locations/036_tobiQW
  65. 0 239
      locations/037_Kafe2
  66. 157 0
      locations/037_tobiQW
  67. 0 393
      locations/038_Kafe3
  68. 102 0
      locations/038_roomPRE
  69. 0 295
      locations/039_ParkKafe
  70. 121 0
      locations/039_roadPRE
  71. 143 0
      locations/040_otelPRE
  72. 0 99
      locations/040_roomPRE
  73. 101 0
      locations/041_karinPRE
  74. 0 113
      locations/041_roadPRE
  75. 0 133
      locations/042_otelPRE
  76. 146 0
      locations/042_sleepPRE
  77. 349 0
      locations/043_fight
  78. 0 94
      locations/043_karinPRE
  79. 0 145
      locations/044_sleepPRE
  80. 576 0
      locations/044_strelba
  81. 78 0
      locations/045_before
  82. 0 317
      locations/045_fight
  83. 155 0
      locations/046_init
  84. 0 496
      locations/046_strelba
  85. 0 81
      locations/047_before
  86. 48 0
      locations/047_boxing
  87. 0 133
      locations/048_init
  88. 86 0
      locations/048_magik
  89. 0 44
      locations/049_boxing
  90. 489 0
      locations/049_enemy
  91. 493 0
      locations/050_atak
  92. 0 74
      locations/050_magik
  93. 271 0
      locations/051_atakA
  94. 0 476
      locations/051_enemy
  95. 0 425
      locations/052_atak
  96. 284 0
      locations/052_atakA1
  97. 0 247
      locations/053_atakA
  98. 126 0
      locations/053_atakB
  99. 0 260
      locations/054_atakA1
  100. 126 0
      locations/054_atakB1

+ 17 - 46
locations/001_start

@@ -7,7 +7,7 @@ showobjs 0
 showinput 0
 $ongload = 'loadg'
 $ongsave = 'saveg'
-$onnewloc  = 'LOCA'
+$onnewloc = 'LOCA'
 $onobjsel = 'onobjsel'
 $counter = 'counter'
 $usercom = 'inputProcessing'
@@ -18,14 +18,12 @@ bcolor = rgb(255, 255, 255)
 lcolor = rgb(106, 90, 205)
 fsize = 12
 $fname = 'Tahoma'
-$version = "0.2.5e (Minor G&M bugfix) (If you haven't updated your image library recently, you may need to do so for hairstyles to work properly)"
+$version = '0.2.5e (Minor G & M bugfix) (If you haven''t updated your image library recently, you may need to do so for hairstyles to work properly)'
 
 *nl
 *nl
-'<center><h2>Girl Life'
-'[English Community Version]</h2></center>'
-
 '<hr align="left" color="red" size="3" width="1200">'
+'<center><h2>Girl Life [English Community Version]</h2></center>'
 *nl
 '<center>This is game is based on the russian game ЭТО by DeGross.</center>'
 *nl
@@ -47,7 +45,7 @@ $version = "0.2.5e (Minor G&M bugfix) (If you haven't updated your image library
 'Recent Version Tracking:'
 *nl
 "0.2.5e"
-"- Fixed bug making G&M officewear un-buyable"
+'- Fixed bug making G & M officewear un-buyable'
 '- Fixed bang-less buns not calling images correctly'
 '- Updated start-selection screen to be actually <i>relevant</i>'
 *nl
@@ -72,7 +70,7 @@ $version = "0.2.5e (Minor G&M bugfix) (If you haven't updated your image library
 '-- Cheat Menu to tinker around with your hair, it also tells you how your current hair looks.'
 '- Added the Hairsalon in the Mall'
 '- Added the Barbershop in the small town, cheaper & faster than the hairsalon, but doesn''t do braided hair'
-"- While I'm not a native english speaker, I tried to fix some of the broken english"
+'- While I''m not a native english speaker, I tried to fix some of the broken english'
 '-- Done in following locations: street, down, Nord, club, park'
 '- Additional conditions to get into the club.'
 '-- Jeans, Shorts, Pants and Kis-Clothes can get you in.'
@@ -100,14 +98,14 @@ set month = 5
 set week = 1
 set hour = 7
 set day = 25
-!body
+!!body
 set rost = 186
 set fat = 130
 set dick = 0
 set energy = 15
 set water = 15
 set son = 16
-!stats
+!!stats
 set stren = 160
 set speed = 50
 set agil = 50
@@ -122,51 +120,24 @@ set BDSMfilm = 0
 set pornstudio = 0
 set pfilmSTOP = 0
 set money = 1500
-set karta = 4000
 set opPRE = 1
 tanga = 1
 clrbelo = 1
 
 GameUpdate = 1
 update_2014_08_28 = 1
-
-month_end[1]=31
-month_end[2]=28
-month_end[3]=31
-month_end[4]=30
-month_end[5]=31
-month_end[6]=30
-month_end[7]=31
-month_end[8]=31
-month_end[9]=30
-month_end[10]=31
-month_end[11]=30
-month_end[12]=31
-
-$month_name[1] = 'January'
-$month_name[2] = 'February'
-$month_name[3] = 'March'
-$month_name[4] = 'April'
-$month_name[5] = 'May'
-$month_name[6] = 'June'
-$month_name[7] = 'July'
-$month_name[8] = 'August'
-$month_name[9] = 'September'
-$month_name[10] = 'October'
-$month_name[11] = 'November'
-$month_name[12] = 'December'
-
-$week_name[1] = 'Monday'
-$week_name[2] = 'Tuesday'
-$week_name[3] = 'Wednesday'
-$week_name[4] = 'Thursday'
-$week_name[5] = 'Friday'
-$week_name[6] = 'Saturday'
-$week_name[7] = 'Sunday'
-
 act '<center><b>Start</b></center>':
 	cla
 	gt 'begin'
 end
---- start ---------------------------------
 
+!!105 101 106 112
+if music_on = 0:
+	inited = 1
+	music_on = 1
+	volume = 100
+	$music_theme = 'sukizaebali'
+	gs 'init_music'
+end
+
+--- start ---------------------------------

+ 2 - 3
locations/002_gameover

@@ -1,5 +1,5 @@
 # gameover
-'<center><b><font color ="maroon">GAME OVER</font></b></center>'
+'<center><b><font color="maroon">GAME OVER</font></b></center>'
 
 if over = 1:
 	gs 'stat'
@@ -8,7 +8,7 @@ end
 
 if over = 2:
 	'<center><img src="images/etogame/over.jpg"></center>'
-	"You're mad and started to run around town naked screaming 'I am a man!'. You quickly alerted the police and you were taken to a metal hospital. There you got put in a straitjacket and placed in a room with soft walls. You spent the rest of your days in happy delusions about your family and about being a man again. But the delusions never became reality."
+	'You''re mad and started to run around town naked screaming ''I am a man!''. You quickly alerted the police and you were taken to a metal hospital. There you got put in a straitjacket and placed in a room with soft walls. You spent the rest of your days in happy delusions about your family and about being a man again. But the delusions never became reality.'
 	*nl
 	'Hint:'
 	'When your mood falls, your mind weakens and finally breaks. Do not forget, it is difficult for a normal man to come to terms with the fact that he is now a woman. In order to keep your mood and psyche at an acceptable level make sure you are of healthy weight, have at least a TV and visit the psychotherapist. Strengthening your will and intellect also increases the maximum value of your mood, such that the harmful effects will not be as devastating.'
@@ -27,4 +27,3 @@ if over = 6:'You suddenly feel a sharp piercing pain in the abdomen, then anothe
 if over = 7:'The last thing you saw was a police baton, flying into your face. You were beaten to death, and your early surmise was written in as an accident.'
 
 --- gameover ---------------------------------
-

+ 5 - 3
locations/003_begin

@@ -5,10 +5,11 @@
 'You are Michael Kuznetsov, a fairly average, 35 year old businessman whose life is about to be turned inside out. Features magic and an (incomplete) over-arching plot. Beware of unintelligible translations.'
 *nl
 '<b>Alternate Start:</b>'
-"You are a 15-year-old small-town girl about to start her first year of high school. Name and starting stats are customizable, no magic and no major 'plot' other than <i>life</i>. Not to say that your classmates and family don't have their own stories, though!" 
+'You are a 15-year-old small-town girl about to start her first year of high school. Name and starting stats are customizable, no magic and no major ''plot'' other than <i>life</i>. Not to say that your classmates and family don''t have their own stories, though!'
 
 act '<center><b>Original start</b></center>':
 	cla
+	music_on = 0
 	showstat 1
 	showobjs 1
 	addobj 'Player'
@@ -16,6 +17,7 @@ act '<center><b>Original start</b></center>':
 end
 
 act '<center>Original start (skip intro)</center>':
+	music_on = 0
 	gs 'begin1'
 	gt 'street'
 end
@@ -24,8 +26,8 @@ act '<center><b>Start the alternative game</b></center>':
 	cla
 	showstat 1
 	showobjs 1
-	!addobj 'Player'
+	!!addobj 'Player'
 	gt 'alterStart'
 end
---- begin ---------------------------------
 
+--- begin ---------------------------------

+ 5 - 12
locations/004_begin1

@@ -26,7 +26,7 @@ set year = 2010
 set month = 5
 set week = 3
 set hour = 13
-!body
+!!body
 set rost = 170
 set fat = 60
 set salo = 60
@@ -34,7 +34,7 @@ set dick = 0
 set energy = 15
 set water = 15
 set son = 16
-!stats
+!!stats
 set stren = 10
 set strenbuf = 10
 set speed = 10
@@ -49,9 +49,9 @@ 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
+!!etogame
 set nastjaqw = 0
-!etogame
+!!etogame
 set money = 16500
 set vidageday = 300
 set housrA = 1
@@ -63,18 +63,13 @@ set lobok = 3
 set leghair = 3
 set mop = 1
 set housr = 1
-set housr['Street'] = 1
-set BuyHous['Street'] = 1
 set tanga = 1
-
 !!!!!!!!!!!!!! Maruda Hair Mod
 set hairlength = 165
 !!!!!!!!!!!!!! Maruda Hair Mod
 set hcol = 1
-
 clr
 gs 'stat'
-
 set numdres = 1
 set odetjeans = 1
 set numdress = 1
@@ -88,14 +83,12 @@ set clrbelo = 2
 set poroshok = 5
 set shampoo = 5
 set nude = 0
-
 gs 'stat'
-
 set opPRE = 0
 set daystart = 0
 
 addobj 'Character'
 addobj 'See'
 addobj 'Others'
---- begin1 ---------------------------------
 
+--- begin1 ---------------------------------

Разлика између датотеке није приказан због своје велике величине
+ 1017 - 1272
locations/005_onobjsel


+ 9 - 10
locations/006_counter

@@ -4,9 +4,9 @@ if music_on <> music_on_prev or $music_theme <> $music_theme_prev:
 	music_on_prev = music_on
 	$music_theme_prev = $music_theme
 
-	if $music_theme <>'':
+	if $music_theme <> '':
 		copyarr 'cur_theme', 'tracklist_<<$music_theme>>'
-		track[$music_theme] = track[$music_theme]-1
+		track[$music_theme] = track[$music_theme] - 1
 
 		if track[$music_theme] < 0:track[$music_theme] = arrsize('cur_theme')
 	end
@@ -22,7 +22,7 @@ if music_on = 1 and $music_theme <> '':
 	play $cur_theme[track[$music_theme]], volume
 end
 
-!race
+!!race
 if race_start = 1:
 	bcolor = rgb(255, 255, 255)
 	refint
@@ -32,27 +32,26 @@ if race_start = 1:
 		set race_miss += 1
 		race_hit = 1
 	end
-		
+
 	if $race1[race_row] <> ' ' and race_row > 0:race_hit = 0
 
 	'<center><b><<$car>></b></center>'
-	!interior of the vehicle and the line route
+	!!interior of the vehicle and the line route
 	*pl $showcar
 	*p $race1[race_row]
-		
+
 	if $race1[race_row] = '<center>-------FINISH--------</center>':
 		set race_start = 0
-		!return timer
+		!!return timer
 		settimer 500
 		wait 2000
-		!return point
+		!!return point
 		set $metka = 'finish'
 		set $loc = 'RACE_COUNT'
 		gt $loc, $metka
 	end
-		
+
 	race_row += 1
 end
 
 --- counter ---------------------------------
-

+ 29 - 0
locations/007_init_music

@@ -0,0 +1,29 @@
+# init_music
+$tracklist_start[0] = 'music/start.mp3'
+$tracklist_pivbar[0] = 'music/pivbar.mp3'
+$tracklist_kafe[0] = 'music/kafe.mp3'
+$tracklist_kafe[1] = 'music/kafe1.mp3'
+$tracklist_gdis[0] = 'qwest/muz/komb.mp3'
+$tracklist_gnewyear[0] = 'qwest/muz/newyear.mp3'
+$tracklist_sukizaebali[0] = 'qwest/muz/suki.mp3'
+$tracklist_club[0] = 'music/club.mp3'
+$tracklist_club[1] = 'music/club1.mp3'
+$tracklist_club[2] = 'music/club2.mp3'
+$tracklist_club[3] = 'music/club3.mp3'
+$tracklist_club[4] = 'music/club4.mp3'
+$tracklist_fight[0] = 'music/fight.mp3'
+$tracklist_fight[1] = 'music/fight1.mp3'
+$tracklist_orochimaru[0] = 'music/orochimaru.mp3'
+
+if club = 1:
+	clubrand = rand(0, 5)
+
+	if clubrand = 0:$tracklist_club[0] = 'music/club.mp3'
+	if clubrand = 1:$tracklist_club[0] = 'music/club1.mp3'
+	if clubrand = 2:$tracklist_club[0] = 'music/club2.mp3'
+	if clubrand = 3:$tracklist_club[0] = 'music/club3.mp3'
+	if clubrand = 4:$tracklist_club[0] = 'music/club4.mp3'
+	if clubrand = 5:$tracklist_club[0] = 'music/club5.mp3'
+end
+
+--- init_music ---------------------------------

+ 0 - 534
locations/007_loadg

@@ -1,534 +0,0 @@
-# loadg
-if GameUpdate = 0 and StoryLine = 0:
-	karta += 4000
-	GameUpdate = 1
-end
-
-!Ремонт одежды, для старых сохранений.
-if remdrop = 0:
-	set remdrop = 1
-	if jeans = 1: set jeans[1] = 1 & set jeansH[1] = 50 & set jeansB[1] = bedra
-	if jeans2 = 1: set jeans[2] = 1 & set jeansH[2] = 50 & set jeansB[2] = bedra
-	if jeans3 = 1: set jeans[3] = 1 & set jeansH[3] = 50 & set jeansB[3] = bedra
-	if jeans4 = 1: set jeans[4] = 1 & set jeansH[4] = 50 & set jeansB[4] = bedra
-	if jeans5 = 1: set jeans[5] = 1 & set jeansH[5] = 50 & set jeansB[5] = bedra
-	if yoga = 1: set yoga[1] = 1 & set yogaH[1] = 50
-	if yoga2 = 1: set yoga[2] = 1 & set yogaH[2] = 50
-	if yoga3 = 1: set yoga[3] = 1 & set yogaH[3] = 50
-	if yoga4 = 1: set yoga[4] = 1 & set yogaH[4] = 50
-	if yoga5 = 1: set yoga[5] = 1 & set yogaH[5] = 50
-	if yoga6 = 1: set yoga[6] = 1 & set yogaH[6] = 50
-	if yoga7 = 1: set yoga[7] = 1 & set yogaH[7] = 50
-	if yoga8 = 1: set yoga[8] = 1 & set yogaH[8] = 50
-	if yoga9 = 1: set yoga[9] = 1 & set yogaH[9] = 50
-	if yoga10 = 1: set yoga[10] = 1 & set yogaH[10] = 50
-	if yoga11 = 1: set yoga[11] = 1 & set yogaH[11] = 50
-	if yoga12 = 1: set yoga[12] = 1 & set yogaH[12] = 50
-	if yoga13 = 1: set yoga[13] = 1 & set yogaH[13] = 50
-	if yoga14 = 1: set yoga[14] = 1 & set yogaH[14] = 50
-	if yoga15 = 1: set yoga[15] = 1 & set yogaH[15] = 50
-	if yoga16 = 1: set yoga[16] = 1 & set yogaH[16] = 50
-	if yoga17 = 1: set yoga[17] = 1 & set yogaH[17] = 50
-	if yoga18 = 1: set yoga[18] = 1 & set yogaH[18] = 50
-	if sarafan = 1: set sarafan[1] = 1 & set sarafanH[1] = 50
-	if sarafan2 = 1: set sarafan[2] = 1 & set sarafanH[2] = 50
-	if short = 1: set short[1] = 1 & set shortH[1] = 50 & set shortB[1] = bedra
-	if short2 = 1: set short[2] = 1 & set shortH[2] = 50 & set shortB[2] = bedra
-	if short3 = 1: set short[3] = 1 & set shortH[3] = 50 & set shortB[3] = bedra
-	if short4 = 1: set short[4] = 1 & set shortH[4] = 50 & set shortB[4] = bedra
-	if short5 = 1: set short[5] = 1 & set shortH[5] = 50 & set shortB[5] = bedra
-	if skirt = 1: set skirt[1] = 1 & set skirtH[1] = 50 & set skirtB[1] = bedra
-	if skirt2 = 1: set skirt[2] = 1 & set skirtH[2] = 50 & set skirtB[2] = bedra
-	if skirt3 = 1: set skirt[3] = 1 & set skirtH[3] = 50 & set skirtB[3] = bedra
-	if skirt4 = 1: set skirt[4] = 1 & set skirtH[4] = 50 & set skirtB[4] = bedra
-	if skirt5 = 1: set skirt[5] = 1 & set skirtH[5] = 50 & set skirtB[5] = bedra
-	if dress = 1: set dress[1] = 1 & set dressH[1] = 100 & set dressB[1] = bedra
-	if dress2 = 1: set dress[2] = 1 & set dressH[2] = 100 & set dressB[2] = bedra
-	if dress3 = 1: set dress[3] = 1 & set dressH[3] = 100 & set dressB[3] = bedra
-	if dress4 = 1: set dress[4] = 1 & set dressH[4] = 100 & set dressB[4] = bedra
-	if dress5 = 1: set dress[5] = 1 & set dressH[5] = 100 & set dressB[5] = bedra
-	if dress6 = 1: set dress[6] = 1 & set dressH[6] = 100 & set dressB[6] = bedra
-	if dress7 = 1: set dress[7] = 1 & set dressH[7] = 100 & set dressB[7] = bedra
-	if dress8 = 1: set dress[8] = 1 & set dressH[8] = 100 & set dressB[8] = bedra
-	if dress9 = 1: set dress[9] = 1 & set dressH[9] = 100 & set dressB[9] = bedra
-	if dress10 = 1: set dress[10] = 1 & set dressH[10] = 100 & set dressB[10] = bedra
-	if dress11 = 1: set dress[11] = 1 & set dressH[11] = 100 & set dressB[11] = bedra
-	if dress12 = 1: set dress[12] = 1 & set dressH[12] = 100 & set dressB[12] = bedra
-	if dress13 = 1: set dress[13] = 1 & set dressH[13] = 100 & set dressB[13] = bedra
-	if dress14 = 1: set dress[14] = 1 & set dressH[14] = 100 & set dressB[14] = bedra
-	if dress15 = 1: set dress[15] = 1 & set dressH[15] = 100 & set dressB[15] = bedra
-	if dress16 = 1: set dress[16] = 1 & set dressH[16] = 100 & set dressB[16] = bedra
-	if dress17 = 1: set dress[17] = 1 & set dressH[17] = 100 & set dressB[17] = bedra
-	if dress18 = 1: set dress[18] = 1 & set dressH[18] = 100 & set dressB[18] = bedra
-	if dress19 = 1: set dress[19] = 1 & set dressH[19] = 100 & set dressB[19] = bedra
-	if dress20 = 1: set dress[20] = 1 & set dressH[20] = 100 & set dressB[20] = bedra
-	if dress21 = 1: set dress[21] = 1 & set dressH[21] = 100 & set dressB[21] = bedra
-	if dress22 = 1: set dress[22] = 1 & set dressH[22] = 100 & set dressB[22] = bedra
-	if dress23 = 1: set dress[23] = 1 & set dressH[23] = 100 & set dressB[23] = bedra
-	if dress24 = 1: set dress[24] = 1 & set dressH[24] = 100 & set dressB[24] = bedra
-	if profi = 1: set profi[1] = 1 & set profiH[1] = 50 & set profiB[1] = bedra
-	if profi2 = 1: set profi[2] = 1 & set profiH[2] = 50 & set profiB[2] = bedra
-	if pants = 1: set pants[1] = 1 & set pantsH[1] = 50 & set pantsB[1] = bedra
-	if pants2 = 1: set pants[2] = 1 & set pantsH[2] = 50 & set pantsB[2] = bedra
-	if pants3 = 1: set pants[3] = 1 & set pantsH[3] = 50 & set pantsB[3] = bedra
-	if pants4 = 1: set pants[4] = 1 & set pantsH[4] = 50 & set pantsB[4] = bedra
-	if pants5 = 1: set pants[5] = 1 & set pantsH[5] = 50 & set pantsB[5] = bedra
-	if latex = 1: set latex[1] = 1 & set latexH[1] = 50 & set latexB[1] = bedra
-	if latex2 = 1: set latex[2] = 1 & set latexH[2] = 50 & set latexB[2] = bedra
-	if hooker = 1: set hooker[1] = 1 & set hookerH[1] = 50 & set hookerB[1] = bedra
-	if hooker2 = 1: set hooker[2] = 1 & set hookerH[2] = 50 & set hookerB[2] = bedra
-	if hooker3 = 1: set hooker[3] = 1 & set hookerH[3] = 50 & set hookerB[3] = bedra
-	if hooker4 = 1: set hooker[4] = 1 & set hookerH[4] = 50 & set hookerB[4] = bedra
-	if hooker5 = 1: set hooker[5] = 1 & set hookerH[5] = 50 & set hookerB[5] = bedra
-	if dressel1 = 1: set odekis[1] = 1 & set odekisH[1] = 50 & set odekisB[1] = bedra
-	if odekis1 = 1: set odekis[2] = 1 & set odekisH[2] = 50 & set odekisB[2] = bedra
-	if odekis2 = 1: set odekis[3] = 1 & set odekisH[3] = 50 & set odekisB[3] = bedra
-	if odekis3 = 1: set odekis[4] = 1 & set odekisH[4] = 50 & set odekisB[4] = bedra
-	if odekis4 = 1: set odekis[5] = 1 & set odekisH[5] = 50 & set odekisB[5] = bedra
-	if odekis5 = 1: set odekis[6] = 1 & set odekisH[6] = 50 & set odekisB[6] = bedra
-	if odekis6 = 1: set odekis[7] = 1 & set odekisH[7] = 50 & set odekisB[7] = bedra
-	if odekis7 = 1: set odekis[8] = 1 & set odekisH[8] = 50 & set odekisB[8] = bedra
-	if odekis8 = 1: set odekis[9] = 1 & set odekisH[9] = 50 & set odekisB[9] = bedra
-	if odekis9 = 1: set odekis[10] = 1 & set odekisH[10] = 50 & set odekisB[10] = bedra
-	
-		if jeans201 = 1:set jeans[201]=1&set jeansH[201]=50&set jeansB[201]=bedra
-	if jeans202 = 1:set jeans[202]=1&set jeansH[202]=50&set jeansB[202]=bedra
-	if jeans203 = 1:set jeans[203]=1&set jeansH[203]=50&set jeansB[203]=bedra
-	if jeans204 = 1:set jeans[204]=1&set jeansH[204]=50&set jeansB[204]=bedra
-	if jeans205 = 1:set jeans[205]=1&set jeansH[205]=50&set jeansB[205]=bedra
-	if jeans206 = 1:set jeans[206]=1&set jeansH[206]=50&set jeansB[206]=bedra
-	if jeans207 = 1:set jeans[207]=1&set jeansH[207]=50&set jeansB[207]=bedra
-	if jeans208 = 1:set jeans[208]=1&set jeansH[208]=50&set jeansB[208]=bedra
-	if jeans209 = 1:set jeans[209]=1&set jeansH[209]=50&set jeansB[209]=bedra
-	if jeans210 = 1:set jeans[210]=1&set jeansH[210]=50&set jeansB[210]=bedra
-	if jeans211 = 1:set jeans[211]=1&set jeansH[211]=50&set jeansB[211]=bedra
-	if jeans212 = 1:set jeans[212]=1&set jeansH[212]=50&set jeansB[212]=bedra
-	if jeans213 = 1:set jeans[213]=1&set jeansH[213]=50&set jeansB[213]=bedra
-	if jeans214 = 1:set jeans[214]=1&set jeansH[214]=50&set jeansB[214]=bedra
-	if jeans215 = 1:set jeans[215]=1&set jeansH[215]=50&set jeansB[215]=bedra
-	if jeans216 = 1:set jeans[216]=1&set jeansH[216]=50&set jeansB[216]=bedra
-	if jeans217 = 1:set jeans[217]=1&set jeansH[217]=50&set jeansB[217]=bedra
-	if jeans218 = 1:set jeans[218]=1&set jeansH[218]=50&set jeansB[218]=bedra
-	if jeans219 = 1:set jeans[219]=1&set jeansH[219]=50&set jeansB[219]=bedra
-	if jeans220 = 1:set jeans[220]=1&set jeansH[220]=50&set jeansB[220]=bedra
-	if jeans221 = 1:set jeans[221]=1&set jeansH[221]=50&set jeansB[221]=bedra
-	if jeans222 = 1:set jeans[222]=1&set jeansH[222]=50&set jeansB[222]=bedra
-	if jeans223 = 1:set jeans[223]=1&set jeansH[223]=50&set jeansB[223]=bedra
-	if jeans224 = 1:set jeans[224]=1&set jeansH[224]=50&set jeansB[224]=bedra
-	if jeans225 = 1:set jeans[225]=1&set jeansH[225]=50&set jeansB[225]=bedra
-	if jeans226 = 1:set jeans[226]=1&set jeansH[226]=50&set jeansB[226]=bedra
-	if jeans227 = 1:set jeans[227]=1&set jeansH[227]=50&set jeansB[227]=bedra
-	if jeans228 = 1:set jeans[228]=1&set jeansH[228]=50&set jeansB[228]=bedra
-	if jeans229 = 1:set jeans[229]=1&set jeansH[229]=50&set jeansB[229]=bedra
-	if jeans230 = 1:set jeans[230]=1&set jeansH[230]=50&set jeansB[230]=bedra
-	if jeans231 = 1:set jeans[231]=1&set jeansH[231]=50&set jeansB[231]=bedra
-	if jeans232 = 1:set jeans[232]=1&set jeansH[232]=50&set jeansB[232]=bedra
-	if jeans236 = 1:set jeans[236]=1&set jeansH[236]=50&set jeansB[236]=bedra
-	if jeans237 = 1:set jeans[237]=1&set jeansH[237]=50&set jeansB[237]=bedra
-	if jeans238 = 1:set jeans[238]=1&set jeansH[238]=50&set jeansB[238]=bedra
-	if jeans239 = 1:set jeans[239]=1&set jeansH[239]=50&set jeansB[239]=bedra
-	if jeans240 = 1:set jeans[240]=1&set jeansH[240]=50&set jeansB[240]=bedra
-	if jeans241 = 1:set jeans[241]=1&set jeansH[241]=50&set jeansB[241]=bedra
-	if jeans243 = 1:set jeans[243]=1&set jeansH[243]=50&set jeansB[243]=bedra
-	if jeans244 = 1:set jeans[244]=1&set jeansH[244]=50&set jeansB[244]=bedra
-	if jeans245 = 1:set jeans[245]=1&set jeansH[245]=50&set jeansB[245]=bedra
-	if jeans246 = 1:set jeans[246]=1&set jeansH[246]=50&set jeansB[246]=bedra
-	if jeans247 = 1:set jeans[247]=1&set jeansH[247]=50&set jeansB[247]=bedra
-	if jeans248 = 1:set jeans[248]=1&set jeansH[248]=50&set jeansB[248]=bedra
-	if jeans249 = 1:set jeans[249]=1&set jeansH[249]=50&set jeansB[249]=bedra
-	if jeans250 = 1:set jeans[250]=1&set jeansH[250]=50&set jeansB[250]=bedra
-	if jeans251 = 1:set jeans[251]=1&set jeansH[251]=50&set jeansB[251]=bedra
-	if jeans252 = 1:set jeans[252]=1&set jeansH[252]=50&set jeansB[252]=bedra
-	if jeans253 = 1:set jeans[253]=1&set jeansH[253]=50&set jeansB[253]=bedra
-	if jeans254 = 1:set jeans[254]=1&set jeansH[254]=50&set jeansB[254]=bedra
-	if jeans255 = 1:set jeans[255]=1&set jeansH[255]=50&set jeansB[255]=bedra
-	if jeans256 = 1:set jeans[256]=1&set jeansH[256]=50&set jeansB[256]=bedra
-	if jeans257 = 1:set jeans[257]=1&set jeansH[257]=50&set jeansB[257]=bedra
-	if jeans258 = 1:set jeans[258]=1&set jeansH[258]=50&set jeansB[258]=bedra
-	if jeans259 = 1:set jeans[259]=1&set jeansH[259]=50&set jeansB[259]=bedra
-	if jeans260 = 1:set jeans[260]=1&set jeansH[260]=50&set jeansB[260]=bedra
-	if jeans261 = 1:set jeans[261]=1&set jeansH[261]=50&set jeansB[261]=bedra
-	if jeans262 = 1:set jeans[262]=1&set jeansH[262]=50&set jeansB[262]=bedra
-	if jeans263 = 1:set jeans[263]=1&set jeansH[263]=50&set jeansB[263]=bedra
-	if jeans264 = 1:set jeans[264]=1&set jeansH[264]=50&set jeansB[264]=bedra
-	if jeans265 = 1:set jeans[265]=1&set jeansH[265]=50&set jeansB[265]=bedra
-	if jeans266 = 1:set jeans[266]=1&set jeansH[266]=50&set jeansB[266]=bedra
-	if jeans267 = 1:set jeans[267]=1&set jeansH[267]=50&set jeansB[267]=bedra
-	if jeans268 = 1:set jeans[268]=1&set jeansH[268]=50&set jeansB[268]=bedra
-	if jeans269 = 1:set jeans[269]=1&set jeansH[269]=50&set jeansB[269]=bedra
-	if jeans270 = 1:set jeans[270]=1&set jeansH[270]=50&set jeansB[270]=bedra
-	if jeans271 = 1:set jeans[271]=1&set jeansH[271]=50&set jeansB[271]=bedra
-	if jeans272 = 1:set jeans[272]=1&set jeansH[272]=50&set jeansB[272]=bedra
-	if jeans273 = 1:set jeans[273]=1&set jeansH[273]=50&set jeansB[273]=bedra
-	if jeans274 = 1:set jeans[274]=1&set jeansH[274]=50&set jeansB[274]=bedra
-	if jeans275 = 1:set jeans[275]=1&set jeansH[275]=50&set jeansB[275]=bedra
-	if jeans276 = 1:set jeans[276]=1&set jeansH[276]=50&set jeansB[276]=bedra
-	if jeans278 = 1:set jeans[278]=1&set jeansH[278]=50&set jeansB[278]=bedra
-	if jeans279 = 1:set jeans[279]=1&set jeansH[279]=50&set jeansB[279]=bedra
-	if jeans280 = 1:set jeans[280]=1&set jeansH[280]=50&set jeansB[280]=bedra
-	if jeans281 = 1:set jeans[281]=1&set jeansH[281]=50&set jeansB[281]=bedra
-	if jeans282 = 1:set jeans[282]=1&set jeansH[282]=50&set jeansB[282]=bedra
-	if jeans283 = 1:set jeans[283]=1&set jeansH[283]=50&set jeansB[283]=bedra
-	if jeans285 = 1:set jeans[285]=1&set jeansH[285]=50&set jeansB[285]=bedra
-	if jeans286 = 1:set jeans[286]=1&set jeansH[286]=50&set jeansB[286]=bedra
-	if jeans287 = 1:set jeans[287]=1&set jeansH[287]=50&set jeansB[287]=bedra
-	if jeans289 = 1:set jeans[289]=1&set jeansH[289]=50&set jeansB[289]=bedra
-	if jeans290 = 1:set jeans[290]=1&set jeansH[290]=50&set jeansB[290]=bedra
-	if jeans291 = 1:set jeans[291]=1&set jeansH[291]=50&set jeansB[291]=bedra
-	if jeans292 = 1:set jeans[292]=1&set jeansH[292]=50&set jeansB[292]=bedra
-	if jeans293 = 1:set jeans[293]=1&set jeansH[293]=50&set jeansB[293]=bedra
-	if jeans294 = 1:set jeans[294]=1&set jeansH[294]=50&set jeansB[294]=bedra
-	if jeans295 = 1:set jeans[295]=1&set jeansH[295]=50&set jeansB[295]=bedra
-	if jeans297 = 1:set jeans[297]=1&set jeansH[297]=50&set jeansB[297]=bedra
-
-	if short201 = 1:set short[201]=1&set shortH[201]=50&set shortB[201]=bedra
-	if short202 = 1:set short[202]=1&set shortH[202]=50&set shortB[202]=bedra
-	if short203 = 1:set short[203]=1&set shortH[203]=50&set shortB[203]=bedra
-	if short204 = 1:set short[204]=1&set shortH[204]=50&set shortB[204]=bedra
-	if short205 = 1:set short[205]=1&set shortH[205]=50&set shortB[205]=bedra
-	if short206 = 1:set short[206]=1&set shortH[206]=50&set shortB[206]=bedra
-	if short207 = 1:set short[207]=1&set shortH[207]=50&set shortB[207]=bedra
-	if short208 = 1:set short[208]=1&set shortH[208]=50&set shortB[208]=bedra
-	if short209 = 1:set short[209]=1&set shortH[209]=50&set shortB[209]=bedra
-	if short210 = 1:set short[210]=1&set shortH[210]=50&set shortB[210]=bedra
-	if short211 = 1:set short[211]=1&set shortH[211]=50&set shortB[211]=bedra
-	if short212 = 1:set short[212]=1&set shortH[212]=50&set shortB[212]=bedra
-	if short213 = 1:set short[213]=1&set shortH[213]=50&set shortB[213]=bedra
-	if short214 = 1:set short[214]=1&set shortH[214]=50&set shortB[214]=bedra
-	if short215 = 1:set short[215]=1&set shortH[215]=50&set shortB[215]=bedra
-	if short216 = 1:set short[216]=1&set shortH[216]=50&set shortB[216]=bedra
-	if short217 = 1:set short[217]=1&set shortH[217]=50&set shortB[217]=bedra
-	if short218 = 1:set short[218]=1&set shortH[218]=50&set shortB[218]=bedra
-	if short219 = 1:set short[219]=1&set shortH[219]=50&set shortB[219]=bedra
-	if short220 = 1:set short[220]=1&set shortH[220]=50&set shortB[220]=bedra
-	if short221 = 1:set short[221]=1&set shortH[221]=50&set shortB[221]=bedra
-	if short222 = 1:set short[222]=1&set shortH[222]=50&set shortB[222]=bedra
-	if short223 = 1:set short[223]=1&set shortH[223]=50&set shortB[223]=bedra
-	if short224 = 1:set short[224]=1&set shortH[224]=50&set shortB[224]=bedra
-	if short225 = 1:set short[225]=1&set shortH[225]=50&set shortB[225]=bedra
-	if short226 = 1:set short[226]=1&set shortH[226]=50&set shortB[226]=bedra
-	if short227 = 1:set short[227]=1&set shortH[227]=50&set shortB[227]=bedra
-	if short228 = 1:set short[228]=1&set shortH[228]=50&set shortB[228]=bedra
-	if short229 = 1:set short[229]=1&set shortH[229]=50&set shortB[229]=bedra
-	if short230 = 1:set short[230]=1&set shortH[230]=50&set shortB[230]=bedra
-	if short231 = 1:set short[231]=1&set shortH[231]=50&set shortB[231]=bedra
-	if short232 = 1:set short[232]=1&set shortH[232]=50&set shortB[232]=bedra
-	if short233 = 1:set short[233]=1&set shortH[233]=50&set shortB[233]=bedra
-	if short234 = 1:set short[234]=1&set shortH[234]=50&set shortB[234]=bedra
-	if short235 = 1:set short[235]=1&set shortH[235]=50&set shortB[235]=bedra
-	if short236 = 1:set short[236]=1&set shortH[236]=50&set shortB[236]=bedra
-	if short237 = 1:set short[237]=1&set shortH[237]=50&set shortB[237]=bedra
-	if short238 = 1:set short[238]=1&set shortH[238]=50&set shortB[238]=bedra
-	if short239 = 1:set short[239]=1&set shortH[239]=50&set shortB[239]=bedra
-	if short240 = 1:set short[240]=1&set shortH[240]=50&set shortB[240]=bedra
-	if short241 = 1:set short[241]=1&set shortH[241]=50&set shortB[241]=bedra
-	if short242 = 1:set short[242]=1&set shortH[242]=50&set shortB[242]=bedra
-	if short244 = 1:set short[244]=1&set shortH[244]=50&set shortB[244]=bedra
-	if short245 = 1:set short[245]=1&set shortH[245]=50&set shortB[245]=bedra
-	if short246 = 1:set short[246]=1&set shortH[246]=50&set shortB[246]=bedra
-	if short247 = 1:set short[247]=1&set shortH[247]=50&set shortB[247]=bedra
-	if short248 = 1:set short[248]=1&set shortH[248]=50&set shortB[248]=bedra
-	if short249 = 1:set short[249]=1&set shortH[249]=50&set shortB[249]=bedra
-	if short250 = 1:set short[250]=1&set shortH[250]=50&set shortB[250]=bedra
-	if short251 = 1:set short[251]=1&set shortH[251]=50&set shortB[251]=bedra
-	if short252 = 1:set short[252]=1&set shortH[252]=50&set shortB[252]=bedra
-	if short253 = 1:set short[253]=1&set shortH[253]=50&set shortB[253]=bedra
-	if short255 = 1:set short[255]=1&set shortH[255]=50&set shortB[255]=bedra
-	if short256 = 1:set short[256]=1&set shortH[256]=50&set shortB[256]=bedra
-
-	if skirt201 = 1:set skirt[201]=1&set skirtH[201]=50&set skirtB[201]=bedra
-	if skirt202 = 1:set skirt[202]=1&set skirtH[202]=50&set skirtB[202]=bedra
-	if skirt203 = 1:set skirt[203]=1&set skirtH[203]=50&set skirtB[203]=bedra
-	if skirt204 = 1:set skirt[204]=1&set skirtH[204]=50&set skirtB[204]=bedra
-	if skirt205 = 1:set skirt[205]=1&set skirtH[205]=50&set skirtB[205]=bedra
-	if skirt206 = 1:set skirt[206]=1&set skirtH[206]=50&set skirtB[206]=bedra
-	if skirt207 = 1:set skirt[207]=1&set skirtH[207]=50&set skirtB[207]=bedra
-	if skirt208 = 1:set skirt[208]=1&set skirtH[208]=50&set skirtB[208]=bedra
-	if skirt209 = 1:set skirt[209]=1&set skirtH[209]=50&set skirtB[209]=bedra
-	if skirt210 = 1:set skirt[210]=1&set skirtH[210]=50&set skirtB[210]=bedra
-	if skirt211 = 1:set skirt[211]=1&set skirtH[211]=50&set skirtB[211]=bedra
-	if skirt212 = 1:set skirt[212]=1&set skirtH[212]=50&set skirtB[212]=bedra
-	if skirt213 = 1:set skirt[213]=1&set skirtH[213]=50&set skirtB[213]=bedra
-	if skirt214 = 1:set skirt[214]=1&set skirtH[214]=50&set skirtB[214]=bedra
-	if skirt215 = 1:set skirt[215]=1&set skirtH[215]=50&set skirtB[215]=bedra
-	if skirt216 = 1:set skirt[216]=1&set skirtH[216]=50&set skirtB[216]=bedra
-	if skirt217 = 1:set skirt[217]=1&set skirtH[217]=50&set skirtB[217]=bedra
-	if skirt218 = 1:set skirt[218]=1&set skirtH[218]=50&set skirtB[218]=bedra
-	if skirt219 = 1:set skirt[219]=1&set skirtH[219]=50&set skirtB[219]=bedra
-	if skirt221 = 1:set skirt[221]=1&set skirtH[221]=50&set skirtB[221]=bedra
-	if skirt222 = 1:set skirt[222]=1&set skirtH[222]=50&set skirtB[222]=bedra
-	if skirt223 = 1:set skirt[223]=1&set skirtH[223]=50&set skirtB[223]=bedra
-	if skirt224 = 1:set skirt[224]=1&set skirtH[224]=50&set skirtB[224]=bedra
-	if skirt225 = 1:set skirt[225]=1&set skirtH[225]=50&set skirtB[225]=bedra
-	if skirt226 = 1:set skirt[226]=1&set skirtH[226]=50&set skirtB[226]=bedra
-	if skirt227 = 1:set skirt[227]=1&set skirtH[227]=50&set skirtB[227]=bedra
-	if skirt228 = 1:set skirt[228]=1&set skirtH[228]=50&set skirtB[228]=bedra
-	if skirt229 = 1:set skirt[229]=1&set skirtH[229]=50&set skirtB[229]=bedra
-	if skirt230 = 1:set skirt[230]=1&set skirtH[230]=50&set skirtB[230]=bedra
-	if skirt232 = 1:set skirt[232]=1&set skirtH[232]=50&set skirtB[232]=bedra
-	if skirt233 = 1:set skirt[233]=1&set skirtH[233]=50&set skirtB[233]=bedra
-	if skirt234 = 1:set skirt[234]=1&set skirtH[234]=50&set skirtB[234]=bedra
-	if skirt235 = 1:set skirt[235]=1&set skirtH[235]=50&set skirtB[235]=bedra
-	if skirt237 = 1:set skirt[237]=1&set skirtH[237]=50&set skirtB[237]=bedra
-	if skirt238 = 1:set skirt[238]=1&set skirtH[238]=50&set skirtB[238]=bedra
-	if skirt239 = 1:set skirt[239]=1&set skirtH[239]=50&set skirtB[239]=bedra
-	if skirt240 = 1:set skirt[240]=1&set skirtH[240]=50&set skirtB[240]=bedra
-	if skirt242 = 1:set skirt[242]=1&set skirtH[242]=50&set skirtB[242]=bedra
-	if skirt243 = 1:set skirt[243]=1&set skirtH[243]=50&set skirtB[243]=bedra
-	if skirt245 = 1:set skirt[245]=1&set skirtH[245]=50&set skirtB[245]=bedra
-	if skirt246 = 1:set skirt[246]=1&set skirtH[246]=50&set skirtB[246]=bedra
-	if skirt247 = 1:set skirt[247]=1&set skirtH[247]=50&set skirtB[247]=bedra
-	if skirt248 = 1:set skirt[248]=1&set skirtH[248]=50&set skirtB[248]=bedra
-	if skirt249 = 1:set skirt[249]=1&set skirtH[249]=50&set skirtB[249]=bedra
-	if skirt250 = 1:set skirt[250]=1&set skirtH[250]=50&set skirtB[250]=bedra
-	if skirt251 = 1:set skirt[251]=1&set skirtH[251]=50&set skirtB[251]=bedra
-	if skirt252 = 1:set skirt[252]=1&set skirtH[252]=50&set skirtB[252]=bedra
-	if skirt253 = 1:set skirt[253]=1&set skirtH[253]=50&set skirtB[253]=bedra
-	if skirt254 = 1:set skirt[254]=1&set skirtH[254]=50&set skirtB[254]=bedra
-	if skirt255 = 1:set skirt[255]=1&set skirtH[255]=50&set skirtB[255]=bedra
-	if skirt256 = 1:set skirt[256]=1&set skirtH[256]=50&set skirtB[256]=bedra
-	if skirt257 = 1:set skirt[257]=1&set skirtH[257]=50&set skirtB[257]=bedra
-	if skirt258 = 1:set skirt[258]=1&set skirtH[258]=50&set skirtB[258]=bedra
-	if skirt259 = 1:set skirt[259]=1&set skirtH[259]=50&set skirtB[259]=bedra
-	if skirt260 = 1:set skirt[260]=1&set skirtH[260]=50&set skirtB[260]=bedra
-	if skirt261 = 1:set skirt[261]=1&set skirtH[261]=50&set skirtB[261]=bedra
-	if skirt262 = 1:set skirt[262]=1&set skirtH[262]=50&set skirtB[262]=bedra
-	if skirt263 = 1:set skirt[263]=1&set skirtH[263]=50&set skirtB[263]=bedra
-	if skirt264 = 1:set skirt[264]=1&set skirtH[264]=50&set skirtB[264]=bedra
-	if skirt265 = 1:set skirt[265]=1&set skirtH[265]=50&set skirtB[265]=bedra
-	if skirt266 = 1:set skirt[266]=1&set skirtH[266]=50&set skirtB[266]=bedra
-	if skirt267 = 1:set skirt[267]=1&set skirtH[267]=50&set skirtB[267]=bedra
-	if skirt268 = 1:set skirt[268]=1&set skirtH[268]=50&set skirtB[268]=bedra
-	if skirt269 = 1:set skirt[269]=1&set skirtH[269]=50&set skirtB[269]=bedra
-	if skirt270 = 1:set skirt[270]=1&set skirtH[270]=50&set skirtB[270]=bedra	
-	if skirt271 = 1:set skirt[271]=1&set skirtH[271]=50&set skirtB[271]=bedra
-	if skirt272 = 1:set skirt[272]=1&set skirtH[272]=50&set skirtB[272]=bedra
-	if skirt273 = 1:set skirt[273]=1&set skirtH[273]=50&set skirtB[273]=bedra
-
-	if dress201 = 1:set dress[201]=1&set dressH[201]=100&set dressB[201]=bedra
-	if dress202 = 1:set dress[202]=1&set dressH[202]=100&set dressB[202]=bedra
-	if dress203 = 1:set dress[203]=1&set dressH[203]=100&set dressB[203]=bedra
-	if dress204 = 1:set dress[204]=1&set dressH[204]=100&set dressB[204]=bedra
-	if dress205 = 1:set dress[205]=1&set dressH[205]=100&set dressB[205]=bedra
-	if dress206 = 1:set dress[206]=1&set dressH[206]=100&set dressB[206]=bedra
-	if dress207 = 1:set dress[207]=1&set dressH[207]=100&set dressB[207]=bedra
-	if dress208 = 1:set dress[208]=1&set dressH[208]=100&set dressB[208]=bedra
-	if dress209 = 1:set dress[209]=1&set dressH[209]=100&set dressB[209]=bedra
-	if dress210 = 1:set dress[210]=1&set dressH[210]=100&set dressB[210]=bedra
-	if dress211 = 1:set dress[211]=1&set dressH[211]=100&set dressB[211]=bedra
-	if dress212 = 1:set dress[212]=1&set dressH[212]=100&set dressB[212]=bedra
-	if dress213 = 1:set dress[213]=1&set dressH[213]=100&set dressB[213]=bedra
-	if dress214 = 1:set dress[214]=1&set dressH[214]=100&set dressB[214]=bedra
-	if dress215 = 1:set dress[215]=1&set dressH[215]=100&set dressB[215]=bedra
-	if dress216 = 1:set dress[216]=1&set dressH[216]=100&set dressB[216]=bedra
-	if dress217 = 1:set dress[217]=1&set dressH[217]=100&set dressB[217]=bedra
-	if dress218 = 1:set dress[218]=1&set dressH[218]=100&set dressB[218]=bedra
-	if dress219 = 1:set dress[219]=1&set dressH[219]=100&set dressB[219]=bedra
-	if dress220 = 1:set dress[220]=1&set dressH[220]=100&set dressB[220]=bedra
-	if dress221 = 1:set dress[221]=1&set dressH[221]=100&set dressB[221]=bedra
-	if dress222 = 1:set dress[222]=1&set dressH[222]=100&set dressB[222]=bedra
-	if dress223 = 1:set dress[223]=1&set dressH[223]=100&set dressB[223]=bedra
-	if dress224 = 1:set dress[224]=1&set dressH[224]=100&set dressB[224]=bedra
-	if dress225 = 1:set dress[225]=1&set dressH[225]=100&set dressB[225]=bedra
-
-	if pants201 = 1:set pants[201]=1&set pantsH[201]=50&set pantsB[201]=bedra
-	if pants202 = 1:set pants[202]=1&set pantsH[202]=50&set pantsB[202]=bedra
-	if pants203 = 1:set pants[203]=1&set pantsH[203]=50&set pantsB[203]=bedra
-	if pants204 = 1:set pants[204]=1&set pantsH[204]=50&set pantsB[204]=bedra
-	if pants205 = 1:set pants[205]=1&set pantsH[205]=50&set pantsB[205]=bedra
-	if pants206 = 1:set pants[206]=1&set pantsH[206]=50&set pantsB[206]=bedra
-	if pants207 = 1:set pants[207]=1&set pantsH[207]=50&set pantsB[207]=bedra
-	if pants208 = 1:set pants[208]=1&set pantsH[208]=50&set pantsB[208]=bedra
-	if pants210 = 1:set pants[210]=1&set pantsH[210]=50&set pantsB[210]=bedra
-	if pants211 = 1:set pants[211]=1&set pantsH[211]=50&set pantsB[211]=bedra
-	if pants212 = 1:set pants[212]=1&set pantsH[212]=50&set pantsB[212]=bedra
-	if pants213 = 1:set pants[213]=1&set pantsH[213]=50&set pantsB[213]=bedra
-	if pants214 = 1:set pants[214]=1&set pantsH[214]=50&set pantsB[214]=bedra
-	if pants215 = 1:set pants[215]=1&set pantsH[215]=50&set pantsB[215]=bedra
-	if pants216 = 1:set pants[216]=1&set pantsH[216]=50&set pantsB[216]=bedra
-	if pants217 = 1:set pants[217]=1&set pantsH[217]=50&set pantsB[217]=bedra
-	if pants218 = 1:set pants[218]=1&set pantsH[218]=50&set pantsB[218]=bedra
-	if pants219 = 1:set pants[219]=1&set pantsH[219]=50&set pantsB[219]=bedra
-	if pants220 = 1:set pants[220]=1&set pantsH[220]=50&set pantsB[220]=bedra
-	if pants221 = 1:set pants[221]=1&set pantsH[221]=50&set pantsB[221]=bedra
-	if pants222 = 1:set pants[222]=1&set pantsH[222]=50&set pantsB[222]=bedra
-	if pants223 = 1:set pants[223]=1&set pantsH[223]=50&set pantsB[223]=bedra
-	if pants226 = 1:set pants[226]=1&set pantsH[226]=50&set pantsB[226]=bedra
-	if pants227 = 1:set pants[227]=1&set pantsH[227]=50&set pantsB[227]=bedra
-	if pants228 = 1:set pants[228]=1&set pantsH[228]=50&set pantsB[228]=bedra
-	if pants230 = 1:set pants[230]=1&set pantsH[230]=50&set pantsB[230]=bedra
-	if pants231 = 1:set pants[231]=1&set pantsH[231]=50&set pantsB[231]=bedra
-	if pants232 = 1:set pants[232]=1&set pantsH[232]=50&set pantsB[232]=bedra
-	if pants233 = 1:set pants[233]=1&set pantsH[233]=50&set pantsB[233]=bedra
-	if pants234 = 1:set pants[234]=1&set pantsH[234]=50&set pantsB[234]=bedra
-	if pants235 = 1:set pants[235]=1&set pantsH[235]=50&set pantsB[235]=bedra
-	if pants236 = 1:set pants[236]=1&set pantsH[236]=50&set pantsB[236]=bedra
-	if pants237 = 1:set pants[237]=1&set pantsH[237]=50&set pantsB[237]=bedra
-	if pants238 = 1:set pants[238]=1&set pantsH[238]=50&set pantsB[238]=bedra
-	if pants239 = 1:set pants[239]=1&set pantsH[239]=50&set pantsB[239]=bedra
-	if pants240 = 1:set pants[240]=1&set pantsH[240]=50&set pantsB[240]=bedra
-	if pants241 = 1:set pants[241]=1&set pantsH[241]=50&set pantsB[241]=bedra
-	if pants242 = 1:set pants[242]=1&set pantsH[242]=50&set pantsB[242]=bedra
-	if pants243 = 1:set pants[243]=1&set pantsH[243]=50&set pantsB[243]=bedra
-	if pants244 = 1:set pants[244]=1&set pantsH[244]=50&set pantsB[244]=bedra
-	if pants245 = 1:set pants[245]=1&set pantsH[245]=50&set pantsB[245]=bedra
-	if pants246 = 1:set pants[246]=1&set pantsH[246]=50&set pantsB[246]=bedra
-	if pants247 = 1:set pants[247]=1&set pantsH[247]=50&set pantsB[247]=bedra
-	if pants248 = 1:set pants[248]=1&set pantsH[248]=50&set pantsB[248]=bedra
-	if pants249 = 1:set pants[249]=1&set pantsH[249]=50&set pantsB[249]=bedra
-	if pants250 = 1:set pants[250]=1&set pantsH[250]=50&set pantsB[250]=bedra
-	if pants251 = 1:set pants[251]=1&set pantsH[251]=50&set pantsB[251]=bedra
-	if pants252 = 1:set pants[252]=1&set pantsH[252]=50&set pantsB[252]=bedra
-	if pants253 = 1:set pants[253]=1&set pantsH[253]=50&set pantsB[253]=bedra
-	if pants254 = 1:set pants[254]=1&set pantsH[254]=50&set pantsB[254]=bedra
-	if pants255 = 1:set pants[255]=1&set pantsH[255]=50&set pantsB[255]=bedra
-	if pants256 = 1:set pants[256]=1&set pantsH[256]=50&set pantsB[256]=bedra
-	if pants257 = 1:set pants[257]=1&set pantsH[257]=50&set pantsB[257]=bedra
-	if pants258 = 1:set pants[258]=1&set pantsH[258]=50&set pantsB[258]=bedra
-	if pants259 = 1:set pants[259]=1&set pantsH[259]=50&set pantsB[259]=bedra
-	if pants260 = 1:set pants[260]=1&set pantsH[260]=50&set pantsB[260]=bedra
-	if pants261 = 1:set pants[261]=1&set pantsH[261]=50&set pantsB[261]=bedra
-	if pants262 = 1:set pants[262]=1&set pantsH[262]=50&set pantsB[262]=bedra
-	if pants263 = 1:set pants[263]=1&set pantsH[263]=50&set pantsB[263]=bedra
-	if pants264 = 1:set pants[264]=1&set pantsH[264]=50&set pantsB[264]=bedra
-	if pants265 = 1:set pants[265]=1&set pantsH[265]=50&set pantsB[265]=bedra
-	if pants266 = 1:set pants[266]=1&set pantsH[266]=50&set pantsB[266]=bedra
-	if pants267 = 1:set pants[267]=1&set pantsH[267]=50&set pantsB[267]=bedra
-	if pants268 = 1:set pants[268]=1&set pantsH[268]=50&set pantsB[268]=bedra
-	if pants269 = 1:set pants[269]=1&set pantsH[269]=50&set pantsB[269]=bedra
-	if pants270 = 1:set pants[270]=1&set pantsH[270]=50&set pantsB[270]=bedra
-	if pants271 = 1:set pants[271]=1&set pantsH[271]=50&set pantsB[271]=bedra
-	if pants273 = 1:set pants[273]=1&set pantsH[273]=50&set pantsB[273]=bedra
-	if pants274 = 1:set pants[274]=1&set pantsH[274]=50&set pantsB[274]=bedra
-	if pants275 = 1:set pants[275]=1&set pantsH[275]=50&set pantsB[275]=bedra
-	if pants276 = 1:set pants[276]=1&set pantsH[276]=50&set pantsB[276]=bedra
-	if pants277 = 1:set pants[277]=1&set pantsH[277]=50&set pantsB[277]=bedra
-	if pants278 = 1:set pants[278]=1&set pantsH[278]=50&set pantsB[278]=bedra
-	if pants279 = 1:set pants[279]=1&set pantsH[279]=50&set pantsB[279]=bedra
-	if pants280 = 1:set pants[280]=1&set pantsH[280]=50&set pantsB[280]=bedra
-	if pants281 = 1:set pants[281]=1&set pantsH[281]=50&set pantsB[281]=bedra
-	if pants282 = 1:set pants[282]=1&set pantsH[282]=50&set pantsB[282]=bedra
-	if pants283 = 1:set pants[283]=1&set pantsH[283]=50&set pantsB[283]=bedra
-	if pants284 = 1:set pants[284]=1&set pantsH[284]=50&set pantsB[284]=bedra
-	if pants285 = 1:set pants[285]=1&set pantsH[285]=50&set pantsB[285]=bedra
-	if pants286 = 1:set pants[286]=1&set pantsH[286]=50&set pantsB[286]=bedra
-	if pants287 = 1:set pants[287]=1&set pantsH[287]=50&set pantsB[287]=bedra
-	if pants288 = 1:set pants[288]=1&set pantsH[288]=50&set pantsB[288]=bedra
-	if pants289 = 1:set pants[289]=1&set pantsH[289]=50&set pantsB[289]=bedra
-	if pants290 = 1:set pants[290]=1&set pantsH[290]=50&set pantsB[290]=bedra
-	if pants291 = 1:set pants[291]=1&set pantsH[291]=50&set pantsB[291]=bedra
-	if pants292 = 1:set pants[292]=1&set pantsH[292]=50&set pantsB[292]=bedra
-	if pants293 = 1:set pants[293]=1&set pantsH[293]=50&set pantsB[293]=bedra
-	if pants294 = 1:set pants[294]=1&set pantsH[294]=50&set pantsB[294]=bedra
-	if pants295 = 1:set pants[295]=1&set pantsH[295]=50&set pantsB[295]=bedra
-	if pants296 = 1:set pants[296]=1&set pantsH[296]=50&set pantsB[296]=bedra
-	if pants297 = 1:set pants[297]=1&set pantsH[297]=50&set pantsB[297]=bedra
-	if pants298 = 1:set pants[298]=1&set pantsH[298]=50&set pantsB[298]=bedra
-	if pants299 = 1:set pants[299]=1&set pantsH[299]=50&set pantsB[299]=bedra
-	if pants300 = 1:set pants[300]=1&set pantsH[300]=50&set pantsB[300]=bedra
-	if pants301 = 1:set pants[301]=1&set pantsH[301]=50&set pantsB[301]=bedra
-	if pants302 = 1:set pants[302]=1&set pantsH[302]=50&set pantsB[302]=bedra
-	if pants303 = 1:set pants[303]=1&set pantsH[303]=50&set pantsB[303]=bedra
-	if pants304 = 1:set pants[304]=1&set pantsH[304]=50&set pantsB[304]=bedra
-	if pants305 = 1:set pants[305]=1&set pantsH[305]=50&set pantsB[305]=bedra
-	if pants306 = 1:set pants[306]=1&set pantsH[306]=50&set pantsB[306]=bedra
-	if pants307 = 1:set pants[307]=1&set pantsH[307]=50&set pantsB[307]=bedra
-	if pants309 = 1:set pants[309]=1&set pantsH[309]=50&set pantsB[309]=bedra
-	if pants311 = 1:set pants[311]=1&set pantsH[311]=50&set pantsB[311]=bedra
-	if pants312 = 1:set pants[312]=1&set pantsH[312]=50&set pantsB[312]=bedra
-	if pants313 = 1:set pants[313]=1&set pantsH[313]=50&set pantsB[313]=bedra
-	if pants314 = 1:set pants[314]=1&set pantsH[314]=50&set pantsB[314]=bedra
-	if pants315 = 1:set pants[315]=1&set pantsH[315]=50&set pantsB[315]=bedra
-	if pants316 = 1:set pants[316]=1&set pantsH[316]=50&set pantsB[316]=bedra
-	if pants317 = 1:set pants[317]=1&set pantsH[317]=50&set pantsB[317]=bedra
-	if pants318 = 1:set pants[318]=1&set pantsH[318]=50&set pantsB[318]=bedra
-	if pants319 = 1:set pants[319]=1&set pantsH[319]=50&set pantsB[319]=bedra
-	if pants320 = 1:set pants[320]=1&set pantsH[320]=50&set pantsB[320]=bedra
-	if pants321 = 1:set pants[321]=1&set pantsH[321]=50&set pantsB[321]=bedra
-	if pants322 = 1:set pants[322]=1&set pantsH[322]=50&set pantsB[322]=bedra
-	if pants324 = 1:set pants[324]=1&set pantsH[324]=50&set pantsB[324]=bedra
-	if pants325 = 1:set pants[325]=1&set pantsH[325]=50&set pantsB[325]=bedra
-	if pants326 = 1:set pants[326]=1&set pantsH[326]=50&set pantsB[326]=bedra
-	if pants327 = 1:set pants[327]=1&set pantsH[327]=50&set pantsB[327]=bedra
-	if pants328 = 1:set pants[328]=1&set pantsH[328]=50&set pantsB[328]=bedra
-	if pants329 = 1:set pants[329]=1&set pantsH[329]=50&set pantsB[329]=bedra
-	if pants330 = 1:set pants[330]=1&set pantsH[330]=50&set pantsB[330]=bedra
-	if pants331 = 1:set pants[331]=1&set pantsH[331]=50&set pantsB[331]=bedra
-	if pants332 = 1:set pants[332]=1&set pantsH[332]=50&set pantsB[332]=bedra
-	if pants333 = 1:set pants[333]=1&set pantsH[333]=50&set pantsB[333]=bedra
-	if pants334 = 1:set pants[334]=1&set pantsH[334]=50&set pantsB[334]=bedra
-	if pants335 = 1:set pants[335]=1&set pantsH[335]=50&set pantsB[335]=bedra
-	if pants336 = 1:set pants[336]=1&set pantsH[336]=50&set pantsB[336]=bedra
-	if pants337 = 1:set pants[337]=1&set pantsH[337]=50&set pantsB[337]=bedra
-	if pants338 = 1:set pants[338]=1&set pantsH[338]=50&set pantsB[338]=bedra
-	if pants339 = 1:set pants[339]=1&set pantsH[339]=50&set pantsB[339]=bedra
-	if pants341 = 1:set pants[341]=1&set pantsH[341]=50&set pantsB[341]=bedra
-	if pants342 = 1:set pants[342]=1&set pantsH[342]=50&set pantsB[342]=bedra
-	if pants343 = 1:set pants[343]=1&set pantsH[343]=50&set pantsB[343]=bedra
-	if pants344 = 1:set pants[344]=1&set pantsH[344]=50&set pantsB[344]=bedra
-	if pants345 = 1:set pants[345]=1&set pantsH[345]=50&set pantsB[345]=bedra
-	if pants346 = 1:set pants[346]=1&set pantsH[346]=50&set pantsB[346]=bedra
-
-	if hooker201 = 1: set hooker[201] = 1 & set hookerH[201] = 50 & set hookerB[201] = bedra
-	if hooker202 = 1: set hooker[202] = 1 & set hookerH[202] = 50 & set hookerB[202] = bedra
-	if hooker203 = 1: set hooker[203] = 1 & set hookerH[203] = 50 & set hookerB[203] = bedra
-	if hooker204 = 1: set hooker[204] = 1 & set hookerH[204] = 50 & set hookerB[204] = bedra
-	if hooker205 = 1: set hooker[205] = 1 & set hookerH[205] = 50 & set hookerB[205] = bedra
-	
-	if profi201 = 1: set profi[201] = 1 & set profiH[201] = 50 & set profiB[201] = bedra
-	if profi202 = 1: set profi[202] = 1 & set profiH[202] = 50 & set profiB[202] = bedra
-	if profi203 = 1: set profi[203] = 1 & set profiH[203] = 50 & set profiB[203] = bedra
-	if profi204 = 1: set profi[204] = 1 & set profiH[204] = 50 & set profiB[204] = bedra
-	if profi205 = 1: set profi[205] = 1 & set profiH[205] = 50 & set profiB[205] = bedra
-	if profi206 = 1: set profi[206] = 1 & set profiH[206] = 50 & set profiB[206] = bedra
-	if profi207 = 1: set profi[207] = 1 & set profiH[207] = 50 & set profiB[207] = bedra
-	if profi208 = 1: set profi[208] = 1 & set profiH[208] = 50 & set profiB[208] = bedra
-
-end
-
-if update_2014_08_28 = 0:
-	update_2014_08_28 = 1
-
-	month_end[1]=31
-	month_end[2]=28
-	month_end[3]=31
-	month_end[4]=30
-	month_end[5]=31
-	month_end[6]=30
-	month_end[7]=31
-	month_end[8]=31
-	month_end[9]=30
-	month_end[10]=31
-	month_end[11]=30
-	month_end[12]=31
-
-	$month_name[1] = 'January'
-	$month_name[2] = 'February'
-	$month_name[3] = 'March'
-	$month_name[4] = 'April'
-	$month_name[5] = 'May'
-	$month_name[6] = 'June'
-	$month_name[7] = 'July'
-	$month_name[8] = 'August'
-	$month_name[9] = 'September'
-	$month_name[10] = 'October'
-	$month_name[11] = 'November'
-	$month_name[12] = 'December'
-
-	$week_name[1] = 'Monday'
-	$week_name[2] = 'Tuesday'
-	$week_name[3] = 'Wednesday'
-	$week_name[4] = 'Thursday'
-	$week_name[5] = 'Friday'
-	$week_name[6] = 'Saturday'
-	$week_name[7] = 'Sunday'
-end
-
-if month > 12:
-	month = month mod 12
-	if month = 0: month = 12
-end
-
-KikWinProKO = KikKOPro
---- loadg ---------------------------------
-

+ 0 - 21
locations/008_LOCA

@@ -1,21 +0,0 @@
-# LOCA
-if $MAINTXT = '':
-	'<center><B><font color = red>Error</font></B></center>'
-
-	*nl
-	*nl
-
-	'<center>Please report this error this error informing the line below.</center>'
-	'<center>Area:<<$loc>> Location:<<$curloc>> Sub:<<$args[0]>></center>'
-
-	!gs 'dexcheats'
-
-	dynamic $dex_debug_loc
-	dynamic $dex_cheat_character_stats
-
-	act 'ESCAPE TO STREET': gt 'street'
-	act 'GO TO START': gt $CurLoc,'start'
-end
-
---- LOCA ---------------------------------
-

+ 3 - 0
locations/008_loadg

@@ -0,0 +1,3 @@
+# loadg
+
+--- loadg ---------------------------------

+ 3 - 0
locations/009_LOCA

@@ -0,0 +1,3 @@
+# LOCA
+
+--- LOCA ---------------------------------

+ 0 - 4
locations/009_saveg

@@ -1,4 +0,0 @@
-# saveg
-KikKOPro = KikWinProKO
---- saveg ---------------------------------
-

+ 0 - 4
locations/010_inputProcessing

@@ -1,4 +0,0 @@
-# inputProcessing
-
---- inputProcessing ---------------------------------
-

+ 3 - 0
locations/010_saveg

@@ -0,0 +1,3 @@
+# saveg
+
+--- saveg ---------------------------------

+ 316 - 0
locations/011_body

@@ -0,0 +1,316 @@
+# body
+if analplugIN = 0:
+	if anus = 0:anpic = 0 & set $anus = 'You have a virgin <a href="exec:view''images/body/0.jpg''">anus</a>.'
+	if anus > 0 and anus <= 5:anpic = 1 & set $anus = 'Your <a href="exec:view''images/body/1.jpg''">anus</a> is barely used, but you wouldn''t really see that.'
+	if anus > 5 and anus <= 10:anpic = 2 & set $anus = 'Your <a href="exec:view''images/body/2.jpg''">anus</a> has the shape of an asterisk.'
+	if anus > 10 and anus <= 15:anpic = 3 & set $anus = 'Your <a href="exec:view''images/body/3.jpg''">anus</a> is now slightly parted, has it has been used quite often.'
+	if anus > 15 and anus <= 20:anpic = 4 & set $anus = 'Your <a href="exec:view''images/body/4.jpg''">anus</a> look like a wide hole, one would definetely think the only thing you were doing was anal sex.'
+	if anus > 20 and anus <= 35:anpic = 5 & set $anus = 'Your <a href="exec:view''images/body/5.jpg''">anus</a> doesn''t fully close on its own anymore. You could put a fist through it and it wouldn''t stretch at all.'
+	if anus > 35:anpic = 6 & set $anus = 'Your <a href="exec:view''images/body/6.jpg''">anus</a> is almost completely wrecked. Even with conscious effort it''s hard to close it.' & $anustipe = 'destroyed'
+else
+	$anus = 'Your <a href="exec:view''picb/analplug.jpg''">anus</a> is currently filled with your butt plug.'
+end
+
+!!'<a href="exec:view''images/body/1.jpg''">anus</a>'
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!SIZE AND WEIGHT
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+if dounspell = 0:
+	strenbuf = stren
+	vitalbuf = vital
+	set vmeat = (strenbuf + vitalbuf) / 8
+	set vfat = salo / 10
+	set Kves = vmeat + vfat
+	set krost = rost - 130
+	set ves = Kves + krost - (agilbuf / 10)
+	set talia = ves - (agilbuf / 10) + waistShrink
+	set grudi = talia + 10 + vfat + silicone
+	!!!CV edition: bedra = hip size 
+	set bedra = talia + 15 + (vmeat / 2) + vfat + hipGrow
+	set titK = grudi - talia + bgrow + brgrow
+	!!!
+
+	if titK <= 10:set tits = 0
+	if titK > 10 and titK <= 15:set tits = 1
+	if titK > 15 and titK <= 20:set tits = 2
+	if titK > 20 and titK <= 25:set tits = 3
+	if titK > 25 and titK <= 30:set tits = 4
+	if titK > 30 and titK <= 35:set tits = 5
+	if titK > 35 and titK <= 40:set tits = 6
+	if titK > 40 and titK <= 45:set tits = 7
+	if titK > 45 and titK <= 50:set tits = 8
+	if titK > 50 and titK <= 55:set tits = 9
+	if titK > 55:set tits = 10
+else
+	set fat = 0
+	set bedra = bedraDoun
+	set talia = TaliaDoun + waistShrink
+	set grudi = talia + 14 + silicone
+	set ves = TaliaDoun
+	set titK = grudi - talia 
+
+	if titK <= 10:set tits = 0
+	if titK > 10 and titK <= 15:set tits = 1
+	if titK > 15 and titK <= 20:set tits = 2
+	if titK > 20 and titK <= 25:set tits = 3
+	if titK > 25 and titK <= 30:set tits = 4
+	if titK > 30 and titK <= 35:set tits = 5
+	if titK > 35 and titK <= 40:set tits = 6
+	if titK > 40 and titK <= 45:set tits = 7
+	if titK > 45 and titK <= 50:set tits = 8
+	if titK > 50 and titK <= 55:set tits = 9
+	if titK > 55:set tits = 10
+end
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!! Maruda Hair Mod
+if hairlength <= 80:
+	set hpigtail = 0
+	set hscrunchw = 0
+	set hpingripw = 0
+	set curly = 0
+end
+
+if hairlength > 400:set hpingripw = 0
+
+if hairlength > 400 and hpigtail >= 1:
+	set hscrunchw = 0
+	set hpigtail = 0
+end
+
+if hairlength <= 80:set hbraids = 0
+
+if hbraids >= 1:
+	set curly = 0
+	set hscrunchw = 0
+	set hpingripw = 0
+	set hbangs = 0
+	set hpigtail = 0
+end
+
+if hapri = 0:set $hapri = '<b>tangled</b>, you should comb it, to keep it healthy'
+if hapri = 1:set $hapri = 'neatly arranged'
+
+if curly <= 0:set $curly = 'straight, slightly wavy '
+if curly > 0:set $curly = 'curly '
+
+if hbangs <= 0:set $hbangs = ''
+if hbangs > 0:set $hbangs = ', with a fringe covering your forehead'
+
+if hscrunchw <= 0:set $hscrunch = ''
+if hscrunchw = 1:set $hscrunch = ' A hair-tie holds your hair as a ponytail in place.'
+
+if hpingripw <= 0:set $hpingrip = ''
+if hpingripw > 0:set $hpingrip = ' Hair-pins hold your hair as an updo-hairstyle in place.'
+
+if hscrunchw <= 0:set $hpigtail = ''
+if hscrunchw = 2:set $hpigtail = ' Two scrunchies hold your hair as a twin-tail styled pigtails in place.'
+
+if hbraids <= 0:set $hbraids = ''
+if hbraids > 0:set $hbraids = ' You have your hair beautifully braided.'
+
+if hcol = 0:set $hcol = 'black'
+if hcol = 1:set $hcol = 'brown'
+if hcol = 2:set $hcol = 'red'
+if hcol = 3:set $hcol = 'blonde'
+
+if hairlength <= 30:set $hair = 'You have very short, <<$hcol>> hair. It doesn''t cover your ears, with some masculine complexions, one might mistake you for a man. Nonetheless, some people like this style, as it''s easy to take care off.'
+if hairlength > 30 and hairlength <= 80:set $hair = 'You have short <<$hcol>> hair, which may cover your ears to the the earlobes. It''s a modern, yet classy, hairstyle. Currently your hair is <<$hapri>>.'
+if hairlength > 80 and hairlength <= 160:set $hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. Your hair goes down to your chinline and is therefore considered to be of a medium length, it fits almost all face shapes. Your hair is at the moment <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hpigtail>>'
+if hairlength > 160 and hairlength <= 260:set $hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. Your hair reaches your shoulders, with several strains going beyond. Currently your hair is <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
+if hairlength > 260 and hairlength <= 400:set $hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. As your hair reaches your bra-strapline, hairdress would consider this a rather long hair style, yet beautiful styles are created with this length. Your hair is <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
+if hairlength > 400:set $hair = 'Your very long <<$hcol>> hair<<$hbangs>>, that goes beyond your bra-strapline. Rapunzel would be jealous. Your hair is currently <<$hapri>>.<<$hscrunch>><<$hbraids>>'
+!!if hcol = 0 and curly <= 0:set $hair = 'You have <<$hapri>> straight, black hair.'
+!!if hcol = 1 and curly <= 0:set $hair = 'You have <<$hapri>> straight, brown hair.'
+!!if hcol = 2 and curly <= 0:set $hair = 'You have <<$hapri>> straight, red hair.'
+!!if hcol = 3 and curly <= 0:set $hair = 'You have <<$hapri>> straight, blonde hair.'
+!!if hcol = 0 and curly > 0:set $hair = 'You have <<$hapri>> curly, black hair.'
+!!if hcol = 1 and curly > 0:set $hair = 'You have <<$hapri>> curly, brown hair.'
+!!if hcol = 2 and curly > 0:set $hair = 'You have <<$hapri>> curly red hair.'
+!!if hcol = 3 and curly > 0:set $hair = 'You have <<$hapri>> curly blonde hair.'
+!!if hcol = 0:set $hair = 'You have <<$hapri>> <<$curly>>, black hair.'
+!!if hcol = 1:set $hair = 'You have <<$hapri>> <<$curly>>, brown hair.'
+!!if hcol = 2:set $hair = 'You have <<$hapri>> <<$curly>>, red hair.'
+!!if hcol = 3:set $hair = 'You have <<$hapri>> <<$curly>>, blonde hair.'
+
+
+!!! Maruda Hair Mod
+
+if lip > 4:set lip = 4
+if lip > 4:lip = 4
+if lip < 0:lip = 0
+
+if lipbalmstat > 0:
+	if lip = 0:$lipbalmstat = ' shiny'
+	if lip = 1:$lipbalmstat = ' shiny'
+	if lip = 2:$lipbalmstat = ' brilliant and juicy'
+	if lip = 3:$lipbalmstat = ' juicy'
+	if lip = 4:$lipbalmstat = ' glossy'
+else
+	$lipbalmstat = ''
+end
+
+if pirsA = 1:$pirsA = 'When you talk, your conversation partner can get a glance at your tongue piercing.'
+if pirsA = 0:$pirsA = ''
+if pirsB = 1:$pirsB = 'You lower lip is pierced by a ring.'
+if pirsB = 0:$pirsB = ''
+if lip = 0:set $lip = 'You have thin <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips' & $lip1 = 'thin'
+if lip = 1:set $lip = 'You have normal <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'soft lips' & $liptalk2 = 'soft lips' & $liptalk3 = 'soft lips' & $lip1 = 'normal'
+if lip = 2:set $lip = 'You have plump <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips' & $lip1 = 'plump'
+if lip = 3:set $lip = 'You have big, pouting, <<$lipbalmstat>> full lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'pouting lips' & $liptalk2 = 'pouting lips' & $liptalk3 = 'pouting lips' & $lip1 = 'pouting'
+if lip = 4:set $lip = 'You have thick <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thick lips' & $liptalk2 = 'her thick lips' & $liptalk3 = 'thick lips' & $lip1 = 'large thick'
+if tan <= 0:set $tan = 'pale'
+if tan > 0:set $tan = 'Tanned'
+if skin > 4:set skin = 4
+if skin < 0:skin = 0
+if pirsC = 1:$pirsC = 'Your ears are pierced and you are wearing earrings.'
+if pirsC = 0:$pirsC = ''
+if pirsD = 1:$pirsD = 'Into your nose is a nosering inserted.'
+if pirsD = 0:$pirsD = ''
+if pirsE = 1:$pirsE = 'Your eyebrow is pierced and a rod is sticking through it.'
+if pirsE = 0:$pirsE = ''
+if skin = 0:set $skin = 'Your <<$tan>> skin is rough and covered with pimples and blackheads. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'very bad'
+if skin = 1:set $skin = 'Your <<$tan>> skin rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'bad'
+if skin = 2:set $skin = 'Your <<$tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'normal'
+if skin = 3:set $skin = 'You have <<$tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'good'
+if skin = 4:set $skin = 'You have <<$tan>>, very smooth skin, which almost feels like silk, when touching it. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'excellent'
+if glacol = 0:set $glacol = 'brown'
+if glacol = 1:set $glacol = 'gray'
+if glacol = 2:set $glacol = 'green'
+if glacol = 3:set $glacol = 'blue'
+if resnic > 2:set resnic = 2
+if resnic = 0:set $resnic = 'with short eyelashes'
+if resnic = 1:set $resnic = 'normal eyelashes'
+if resnic = 2:set $resnic = 'with long eyelashes'
+if brow = 0 and browper = 0:$brow = 'little neat eyebrows'
+if brow > 0 and browper = 0:$brow = 'groomed eyebrows' & brokoef = 1
+if browper > 0:$brow = 'permanent tattooed eyebrows' & brokoef = 2
+if glass <= 0:$glass = '' & glassvnesh = 0
+if glass = 1:$glass = ' You wear silly glasses in a cheap frame.' & glassvnesh = 10
+if glass = 2:$glass = ' Do you wear glasses.' & glassvnesh = 0
+if glaraz > 3:set glaraz = 3
+if glaraz = 0:set $glaza = 'You have little <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>.'
+if glaraz = 1:set $glaza = 'You have a medium-sized <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>.'
+if glaraz = 2:set $glaza = 'You have large <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>.'
+if glaraz = 3:set $glaza = 'You have a huge <<$glacol>> eyes that almost look like they''re out of anime, <<$resnic>> and <<$brow>>.<<$glass>>'
+
+if mop = 0:set $mop = '<b><font color="red">Your makeup is smeared all over your face</font></b>'
+if mop = 1:set $mop = 'You''re not wearing any kind of makeup'
+if mop = 2:set $mop = 'Your makeup is very light, just a very few touch-ups here and there'
+if mop = 3:set $mop = 'You have "everyday"-like makeup applied'
+if mop = 4:set $mop = 'You have thick makeup, possible a bit too flashy for daytime wear'
+
+if leghair <= 0:set legkoef = 3 & set $leghair = 'You have smooth legs.'
+if leghair > 0 and leghair <= 2:set legkoef = 0 & set $leghair = 'You do not see with our eyes but rough to the touch bristles on his feet.'
+if leghair > 2 and leghair <= 5:set legkoef = 0 & set $leghair = 'You clearly visible thin hairs on the legs.'
+if leghair > 5:set legkoef = 0 & set $leghair = 'Do you have long hair standing out on his feet.'
+
+if pirsG = 1:$pirsG = 'There are several piercings hanging from your vaginas lips.'
+if pirsG = 0:$pirsG = ''
+
+if lobok <= 0:set lobkoef = 3 & set $lobok = 'You have a smoothly <a href="exec:view ''images/body/pussy.jpg''">shaved mound</a>. <<$pirsG>>'
+if lobok > 0 and lobok <= 2:set lobkoef = 0 & set $lobok = 'You have a light but visible thatch of hair above your <a href="exec:view ''images/body/spussy.jpg''">crotch</a>. <<$pirsG>>'
+if lobok > 2:set lobkoef = 0 & set $lobok = 'You have a thick, full delta of <a href="exec="view ''images/body/hpussy.jpg''">pubic hair</a>. <<$pirsG>>'
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+set bodytipe = bedra - talia
+
+if bodytipe < 20:set bodykoef = 0
+if bodytipe >= 20 and bodytipe < 25:set bodykoef = 2
+if bodytipe >= 25 and bodytipe < 30:set bodykoef = 4
+if bodytipe >= 30 and bodytipe < 35:set bodykoef = 8
+if bodytipe >= 35:set bodykoef = 4
+
+if tan > 0:
+	set tanKoef = 1
+else
+	set tanKoef = 0
+end
+
+if curly > 0:
+	curlykoef = 1
+else
+	curlykoef = 0
+end
+
+if sweat <= 0:
+	set sweatKoef = 0
+else
+	set sweatKoef = sweat * 5
+end
+
+if lipbalmstat > 0:
+	lipbalmKoef = 1
+else
+	lipbalmKoef = 0
+end
+
+if vidage < 21:vidagebonus = 0
+if vidage >= 21 and vidage < 26:vidagebonus = 1
+if vidage >= 26 and vidage < 30:vidagebonus = 3
+if vidage >= 30 and vidage < 34:vidagebonus = 6
+if vidage >= 34 and vidage < 36:vidagebonus = 9
+if vidage >= 36 and vidage < 38:vidagebonus = 12
+if vidage >= 38 and vidage < 40:vidagebonus = 16
+if vidage >= 40 and vidage < 45:vidagebonus = 25
+if vidage >= 45:vidagebonus = 50
+
+if age < 18:leghair = -5
+
+!!CV edition: tits and lobkoef (pubic hair) removed from calc, replaced with flat bonus of 9 (6 tits, 3 hair)
+set vnesh = (9 + curlykoef + lip + tanKoef + skin + mop + resnic + glaraz + bodykoef + legkoef + odevnesh + hapri + bonusZ + lipbalmKoef) - sweatKoef + vidagebonus - (zub * 2) + tatKeof - glassvnesh
+!!!
+
+if vnesh < 0:vnesh = 0
+
+if StrongNarkota <= 0:
+	if SNarkTimes >= 3 and SLomka = 0:SLomka = 1
+	if Gerpes >= 3 or Sifilis >= 21 or Triper > 2:vnesh = -10
+end
+
+if StrongNarkota > 0:
+	if SLomka > 0:SLomka = 0
+
+	manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
+end
+
+if vnesh = -10:set $vnesh = 'Your looks is even worse than terrible. It''s terribad. Noone want to see or talk to you and avoid you at any cost necessary.'
+if vnesh < 5 and vnesh> - 10:set $vnesh = 'Your looks is terrible. People try to avoid looking and talking to you.'
+if vnesh >= 5 and vnesh < 15:set $vnesh = 'You''re a wallflower. Barely anyone notices you.'
+if vnesh >= 15 and vnesh < 30:set $vnesh = 'You have good looks. Men and women like to take a glance at you.'
+if vnesh >= 30 and vnesh < 50:set $vnesh = 'You have a simply stunning appearence. Other girls are a bit jealous and guys constantly check you out.'
+if vnesh >= 50:set $vnesh = 'Your appearence is divine! No one is able to take his or her eyes off of you.'
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!BODY
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+musle = strenbuf + vitalbuf
+
+if musle >= salo:
+	!!muscular type
+		if bedra < 60:set $body = 'You are very thin and fat on the body virtually no muscles act through the skin.'
+		if bedra >= 60 and bedra < 70:set $body = 'You are very thin and fat on the body virtually no muscles act through the skin.'
+		if bedra >= 70 and bedra < 80:set $body = 'You are thin, fat on the body virtually no muscles act through the skin.'
+		if bedra >= 80 and bedra < 90:set $body = 'You are thin, fat on the body virtually no muscles act through the skin.'
+		if bedra >= 90 and bedra < 100:set $body = 'You are thin, fat on the body there is little, through the skin are the large muscles.'
+		if bedra >= 100 and bedra < 110:set $body = 'Body fat there is little, through the skin are the large muscles.'
+		if bedra >= 110 and bedra < 120:set $body = 'Body fat there is little, through the skin are the massive muscles.'
+		if bedra >= 120:set $body = 'Body fat there is little, through the skin are the massive muscles.'
+	else
+		!!bold type
+		if bedra < 60:set $body = 'You are very lean and you have virtually no muscle.'
+		if bedra >= 60 and bedra < 70:set $body = 'You are very thin girl with a small soft booty and you are virtually no muscle.'
+		if bedra >= 70 and bedra < 80:set $body = 'You are very skinny girl.'
+		if bedra >= 80 and bedra < 90:set $body = 'You skinny girl.'
+		if bedra >= 90 and bedra < 100:set $body = 'You skater girl.'
+		if bedra >= 100 and bedra < 110:set $body = 'You formastaya girl.'
+		if bedra >= 110 and bedra < 120:set $body = 'You zhirnovat girl.'
+		if bedra >= 120:set $body = 'You are very fat.'
+	end
+
+	$fat = $body
+
+--- body ---------------------------------

+ 0 - 153
locations/011_cikl

@@ -1,153 +0,0 @@
-# cikl
-!циклы
-if curly > 0: set curly -= 1
-set sweat += 1
-if tan > 0: set tan -= 1
-if tabletki > 0: set tabletki -= 1
-set leghair += 1
-set lobok += 1
-if suhbelo > 0: set suhbelo2 = suhbelo & set suhbelo = 0
-set manna -= 10
-
-!{
-if salo>fat:
-salo -= 1
-fat += 1
-end
-if salo < fat:
-salo += 1
-fat -= 1
-end
-if strenbuf > stren: set strenbuf -= 1
-if strenbuf < stren: set strenbuf += 1
-if vitalbuf > vital: set vitalbuf -= 1
-if vitalbuf < vital: set vitalbuf += 1
-if agilbuf > agil: set agilbuf -= 1
-if agilbuf < agil: set agilbuf += 1
-}
-
-if anus > 1 and anusK < 0: set anusK = 0
-if anus > 1 and anusK < 3: set anusK += 1
-if anus > 1 and anusK >= 3: set anus -= 1 & set anusK = 0
-if vagina > 10 and vaginaK < 0: set vaginaK = 0
-if vagina > 10 and vaginaK < 6: set vaginaK += 1
-if vagina > 10 and vaginaK >= 6: set vaginaK = 0 & set vagina -= 1
-
-set lipkoef -= 1
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!Работы
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-!ВЫБРОС ПРОКЛАДКИ
-if isprok = 1: Set isprok = 0 & 'You threw away your used tampon.'
-
-!CYCLE 28 days 4 days mentsruatsiya
-if preg = 0:
-if mesec > 0: Set mesec -= 1
-if mesec = 0: Set cikl += 1
-if cikl >= 23 and preg ! 1: Set mesec = 4 & Set cikl = 0
-end
-if preg = 1 and pregtime < 280:
-set pregtime += 1
-if pregTimes = 0: pregTimes = 1
-end
-
-if preg = 1 and pregtime = 280 and hourpreg ! hour:
-hourpreg = hour
-'<center><B>A sharp pain ran through your stomach, and something flows down your legs. Snap, you water broke! You have to get to the clinic fast!</B></center>'
-end
-
-if preg = 1 and pregtime > 280:
-cla
-*clr
-set over = 4
-'<center><B>A horrible pain shots through your body.</B></center>'
-xgt 'gameover'
-exit
-end
-
-if StoryLine=0:
-if horny < 100:set horny = horny + vagina
-end
-if StoryLine>0:
-     if vagina=0:
-     razeba=0
-         if horny>0 and horny<=50:horny-=10
-         if horny>50:horny-=25
-     end
-     if vagina>0:
-         if pregTimes=0:
-             if age<18:
-             razeba=1
-             if horny>0 and horny<=50:horny-=5
-             if horny>50 and horny<80:horny-=10
-             if horny>=80:horny-=20
-             end
-             if age>=18 and age<21:
-             razeba=2
-             if horny>0 and horny<=50:horny-=1
-             if horny>50 and horny<80:horny-=5
-             if horny>=80:horny-=10
-             end
-             if age>=21 and age<25:
-             razeba=3
-             if horny>0 and horny<=50:horny+=1
-             if horny>50 and horny<80:horny-=1
-             if horny>=80:horny-=5
-             end
-             if age>=25 and age<30:
-             razeba=4
-             if horny>0 and horny<=50:horny+=5
-             if horny>50 and horny<80:horny+=1
-             if horny>=80:horny-=5
-             end
-             if age>=30:
-             razeba=5
-             if horny>0 and horny<=50:horny+=10
-             if horny>50 and horny<80:horny+=5
-             if horny>=80:horny+=1
-             end
-         end
-         if pregTimes>0:
-             if preg=0:
-             razeba=5
-             if horny>0 and horny<=50:horny+=10
-             if horny>50 and horny<80:horny+=5
-             if horny>=80:horny+=1
-             end
-             if preg>0:
-             razeba=6
-             if horny < 100:set horny = horny + (pregtime/10)
-             end
-         end
-     end
-end
-if horny < 0:set horny = 0
-
-if musle >= salo and stren >= 10 and vital >= 10 and dounspell = 0:
-!Падение мускулистости
-	if downmusl >= 5:
-		downmusl   = 0
-		set stren -= 1
-		set vital -= 1
-		set fat   += 4
-		salo      += 4
-	else
-		downmusl  += 1
-	end
-end
-
-!!! Maruda Hair Mod
-!!! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area. 
-!!! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
-if hairlength < 601: set hairlength += 1
-
-if hscrunch > 0:
-	set hscrunchRAND = RAND (1,100)
-		if hscrunchRAND <= 8: set hscrunch -= 1
-end
-!!! Maruda Hair Mod
-
-gs 'starenie'
---- cikl ---------------------------------
-

+ 0 - 345
locations/012_body

@@ -1,345 +0,0 @@
-# body
-if analplugIN = 0:
-if anus = 0: anpic = 0 & set $anus = 'You have a virgin <a href="exec:view''images\body\0.jpg''">anus</a>.'
-if anus > 0 and anus <= 5: anpic = 1 & set $anus = 'Your <a href="exec:view''images\body\1.jpg''">anus</a> is barely used, but you wouldn''t really see that.' & $anustipe = 'tiny'
-if anus > 5 and anus <= 10: anpic = 2 & set $anus = 'Your <a href="exec:view''images\body\2.jpg''">anus</a> has the shape of an asterisk.' & $anustipe = 'tight'
-if anus > 10 and anus <= 15: anpic = 3 & set $anus = 'Your <a href="exec:view''images\body\3.jpg''">anus</a> is now slightly parted, has it has been used quite often.' & $anustipe = 'slightly stretched'
-if anus > 15 and anus <= 20: anpic = 4 & set $anus = 'Your <a href="exec:view''images\body\4.jpg''">anus</a> look like a wide hole, one would definetely think the only thing you were doing was anal sex.' & $anustipe = 'stretched'
-if anus > 25 and anus <= 35: anpic = 5 & set $anus = 'Your <a href="exec:view''images\body\5.jpg''">anus</a> doesn''t fully close on its own anymore. You could put a fist through it and it wouldn''t stretch at all.' & $anustipe = 'gaping'
-if anus > 35: anpic = 6 & set $anus = 'Your <a href="exec:view''images\body\6.jpg''">anus</a> is completely wrecked. Even with conscious effort it''s hard to close it.' & $anustipe = 'destroyed'
-end
-if analplugIN = 1:
-$anus = 'Your <a href="exec:view''images\body\plug.jpg''">anus</a> is currently filled by your anal plug.'
-end
-
-!'<a href="exec:view''images\body\1.jpg''">anus</a>'
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!РОСТ И ВЕС
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!! grudi = breast => chest girth or chest measurement
-if dounspell = 0:
-	strenbuf  = stren
-	vitalbuf  = vital
-	set vmeat = (strenbuf + vitalbuf) / 8
-	set vfat  = salo / 10
-	set Kves  = vmeat + vfat
-	set krost = rost - 130
-	set ves   = Kves + krost - (agilbuf/10)
-!!! 	talia = waist measurement in cm
-	set talia = ves - (agilbuf/10) + waistShrink
-!!! 	grudi = chest measurement !PROBABLY! in cm
-	set grudi = talia + 10 + vfat + silicone - waistShrink + brgrow
-!!! 	bedra = hip size 
-	set bedra = talia + 15 + (vmeat/2) + vfat + hipGrow
-	set titK  = grudi - talia + bgrow + brgrow
-	if titK <= 10: set tits = 0
-	if titK > 10 and titK <= 15: set tits = 1
-	if titK > 15 and titK <= 20: set tits = 2
-	if titK > 20 and titK <= 25: set tits = 3
-	if titK > 25 and titK <= 30: set tits = 4
-	if titK > 30 and titK <= 35: set tits = 5
-	if titK > 35 and titK <= 40: set tits = 6
-	if titK > 40 and titK <= 45: set tits = 7
-	if titK > 45 and titK <= 50: set tits = 8
-	if titK > 50 and titK <= 55: set tits = 9
-	if titK > 55: set tits = 10
-end
-
-
-if dounspell = 1:
-	set fat   = 0
-	set bedra = bedraDoun
-	set talia = TaliaDoun + waistShrink
-	set grudi = talia + 14 + silicone - waistShrink + brgrow
-	set ves   = TaliaDoun + hipGrow
-	set titK  = grudi - talia + bgrow + brgrow
-	if titK <= 10: set tits = 0
-	if titK > 10 and titK <= 15: set tits = 1
-	if titK > 15 and titK <= 20: set tits = 2
-	if titK > 20 and titK <= 25: set tits = 3
-	if titK > 25 and titK <= 30: set tits = 4
-	if titK > 30 and titK <= 35: set tits = 5
-	if titK > 35 and titK <= 40: set tits = 6
-	if titK > 40 and titK <= 45: set tits = 7
-	if titK > 45 and titK <= 50: set tits = 8
-	if titK > 50 and titK <= 55: set tits = 9
-	if titK > 55: set tits = 10
-end
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!! Maruda Hair Mod
-if hairlength <= 80:
-	set hpigtail = 0
-	set hscrunchw = 0
-	set hpingripw = 0
-	set curly = 0
-end
-
-if hairlength > 400: set hpingripw = 0
-
-if hairlength > 400 and hpigtail >= 1:
-	set hscrunchw = 0
-	set hpigtail = 0
-end
-
-if hairlength <= 80: set hbraids = 0
-
-if hbraids >= 1:
-	set curly = 0
-	set hscrunchw = 0
-	set hpingripw = 0
-	set hbangs = 0
-	set hpigtail = 0
-end	
-
-if hapri = 0: set $hapri = '<B>tangled</B>, you should comb it, to keep it healthy'
-if hapri = 1: set $hapri = 'neatly arranged'
-
-if curly <= 0: set $curly = 'straight, slightly wavy '
-if curly > 0: set $curly = 'curly '
-
-if hbangs <= 0: set $hbangs = ''
-if hbangs > 0: set $hbangs = ', with a fringe covering your forehead'
-
-if hscrunchw <= 0: set $hscrunch = ''
-if hscrunchw = 1: set $hscrunch = ' A hair-tie holds your hair as a ponytail in place.'
-
-if hpingripw <= 0: set $hpingrip = ''
-if hpingripw > 0: set $hpingrip = ' Hair-pins hold your hair as an updo-hairstyle in place.'
-
-if hscrunchw <= 0: set $hpigtail = ''
-if hscrunchw = 2: set $hpigtail = ' Two scrunchies hold your hair as a twin-tail styled pigtails in place.'
-
-if hbraids <= 0: set $hbraids = ''
-if hbraids > 0: set $hbraids = ' You have your hair beautifully braided.'
-
-if hcol = 0: set $hcol = 'black'
-if hcol = 1: set $hcol = 'brown'
-if hcol = 2: set $hcol = 'red'
-if hcol = 3: set $hcol = 'blonde'
-
-if hairlength <= 30: set $hair = 'You have very short, <<$hcol>> hair. It doesn''t cover your ears, with some masculine complexions, one might mistake you for a man. Nonetheless, some people like this style, as it''s easy to take care off.'
-if hairlength > 30 and hairlength <= 80: set $hair = 'You have short <<$hcol>> hair, which may cover your ears to the the earlobes. It''s a modern, yet classy, hairstyle. Currently your hair is <<$hapri>>.'
-if hairlength > 80 and hairlength <= 160: set $hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. Your hair goes down to your chinline and is therefore considered to be of a medium length, it fits almost all face shapes. Your hair is at the moment <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hpigtail>>'
-if hairlength > 160 and hairlength <= 260: set $hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. Your hair reaches your shoulders, with several strains going beyond. Currently your hair is <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
-if hairlength > 260 and hairlength <= 400: set $hair = 'You have <<$curly>><<$hcol>> hair<<$hbangs>>. As your hair reaches your bra-strapline, hairdress would consider this a rather long hair style, yet beautiful styles are created with this length. Your hair is <<$hapri>>.<<$hscrunch>><<$hpingrip>><<$hbraids>><<$hpigtail>>'
-if hairlength > 400: set $hair = 'Your very long <<$hcol>> hair<<$hbangs>>, that goes beyond your bra-strapline. Rapunzel would be jealous. Your hair is currently <<$hapri>>.<<$hscrunch>><<$hbraids>>'
-!if hcol = 0 and curly <= 0: set $hair = 'You have <<$hapri>> straight, black hair.'
-!if hcol = 1 and curly <= 0: set $hair = 'You have <<$hapri>> straight, brown hair.'
-!if hcol = 2 and curly <= 0: set $hair = 'You have <<$hapri>> straight, red hair.'
-!if hcol = 3 and curly <= 0: set $hair = 'You have <<$hapri>> straight, blonde hair.'
-!if hcol = 0 and curly > 0: set $hair = 'You have <<$hapri>> curly, black hair.'
-!if hcol = 1 and curly > 0: set $hair = 'You have <<$hapri>> curly, brown hair.'
-!if hcol = 2 and curly > 0: set $hair = 'You have <<$hapri>> curly red hair.'
-!if hcol = 3 and curly > 0: set $hair = 'You have <<$hapri>> curly blonde hair.'
-!if hcol = 0: set $hair = 'You have <<$hapri>> <<$curly>>, black hair.'
-!if hcol = 1: set $hair = 'You have <<$hapri>> <<$curly>>, brown hair.'
-!if hcol = 2: set $hair = 'You have <<$hapri>> <<$curly>>, red hair.'
-!if hcol = 3: set $hair = 'You have <<$hapri>> <<$curly>>, blonde hair.'
-
-
-!!! Maruda Hair Mod
-
-if lip > 4: set lip = 4
-if lip > 4: lip = 4
-if lip < 0: lip = 0
-if lipbalmstat > 0:
-if lip = 0:$lipbalmstat = ' shiny'
-if lip = 1:$lipbalmstat = ' shiny'
-if lip = 2:$lipbalmstat = ' brilliant and juicy'
-if lip = 3:$lipbalmstat = ' juicy'
-if lip = 4:$lipbalmstat = ' glossy'
-else
-$lipbalmstat = ''
-end
-if pirsA = 1:$pirsA = 'When you talk, your conversation partner can get a glance at your tongue piercing.'
-if pirsA = 0:$pirsA = ''
-if pirsB = 1:$pirsB = 'You lower lip is pierced by a ring.'
-if pirsB = 0:$pirsB = ''
-if lip = 0: set $lip = 'You have thin <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thin lips' & $liptalk2 = 'thin lips' & $liptalk3 = 'thin lips' & $lip1 = 'thin'
-if lip = 1: set $lip = 'You have normal <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'soft lips' & $liptalk2 = 'soft lips' & $liptalk3 = 'soft lips' & $lip1 = 'normal'
-if lip = 2: set $lip = 'You have plump <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'plump lips' & $liptalk2 = 'plump lips' & $liptalk3 = 'plump lips' & $lip1 = 'plump'
-if lip = 3: set $lip = 'You have big, pouting, <<$lipbalmstat>> full lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'pouting lips' & $liptalk2 = 'pouting lips' & $liptalk3 = 'pouting lips' & $lip1 = 'pouting'
-if lip = 4: set $lip = 'You have thick <<$lipbalmstat>> lips. <<$pirsB>> <<$pirsA>>' & $liptalk = 'thick lips' & $liptalk2 = 'her thick lips' & $liptalk3 = 'thick lips' & $lip1 = 'large thick'
-if tan <= 0: set $tan = 'pale'
-if tan > 0: set $tan = 'Tanned'
-if skin > 4: set skin = 4
-if skin < 0: skin = 0
-if pirsC = 1:$pirsC = 'Your ears are pierced and you are wearing earrings.'
-if pirsC = 0:$pirsC = ''
-if pirsD = 1:$pirsD = 'Into your nose is a nosering inserted.'
-if pirsD = 0:$pirsD = ''
-if pirsE = 1:$pirsE = 'Your eyebrow is pierced and a rod is sticking through it.'
-if pirsE = 0:$pirsE = ''
-if skin = 0: set $skin = 'Your <<$tan>> skin is rough and covered with pimples and blackheads. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'very bad'
-if skin = 1: set $skin = 'Your <<$tan>> skin rough and has a few pimples. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'bad'
-if skin = 2: set $skin = 'Your <<$tan>> skin is clear of acne but still slightly rough. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'normal'
-if skin = 3: set $skin = 'You have <<$tan>>, smooth and well-groomed skin. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'good'
-if skin = 4: set $skin = 'You have <<$tan>>, very smooth skin, which almost feels like silk, when touching it. <<$pirsC>> <<$pirsD>> <<$pirsE>>' & $skin1 = 'excellent'
-if glacol = 0: set $glacol = 'brown'
-if glacol = 1: set $glacol = 'gray'
-if glacol = 2: set $glacol = 'green'
-if glacol = 3: set $glacol = 'blue'
-if resnic > 2: set resnic = 2
-if resnic = 0: set $resnic = 'with short eyelashes'
-if resnic = 1: set $resnic = 'normal eyelashes'
-if resnic = 2: set $resnic = 'with long eyelashes'
-if brow=0 and browper=0:$brow='little neat eyebrows'
-if brow>0 and browper=0:$brow='groomed eyebrows'&brokoef=1
-if browper>0:$brow='permanent tattoo eyebrows'&brokoef=2
-
-if glass<=0:$glass=''&glassvnesh=0
-if glass=1:$glass=' You wear silly glasses in a cheap frame.'&glassvnesh=10
-if glass=2:$glass=' Do you wear glasses.'&glassvnesh=0
-
-if glaraz > 3: set glaraz = 3
-if glaraz = 0: set $glaza = 'You have little <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>'
-if glaraz = 1: set $glaza = 'You have a medium-sized <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>'
-if glaraz = 2: set $glaza = 'You have large <<$glacol>> eyes <<$resnic>> and <<$brow>>.<<$glass>>'
-if glaraz = 3: set $glaza = 'You have a huge <<$glacol>> eyes that almost look like they''re out of an anime, <<$resnic>> and <<$brow>>.<<$glass>>'
-
-if mop = 0: set $mop = '<B><font color = red>Your make-up is smeared all over your face</font></B>'
-if mop = 1: set $mop = 'You''re not wearing any makeup'
-if mop = 2: set $mop = 'Your makeup is very light, just a very few touch-ups here and there'
-if mop = 3: set $mop = 'You have "everyday"-like makeup applied'
-if mop = 4: set $mop = 'You have thick makeup, possibly a bit too flashy for daytime wear'
-
-if leghair <= 0: set legkoef = 3 & set $leghair = 'You have smooth legs.'
-if leghair > 0 and leghair <= 2: set legkoef = 0 & set $leghair = 'You do not see with our eyes but rough to the touch bristles on his feet.'
-if leghair > 2 and leghair <= 5: set legkoef = 0 & set $leghair = 'You clearly visible thin hairs on the legs.'
-if leghair > 5: set legkoef = 0 & set $leghair = 'Do you have long hair standing out on his feet.'
-
-if pirsG = 1:$pirsG = 'There are several piercings hanging from your vaginas lips.'
-if pirsG = 0:$pirsG = ''
-
-if lobok <= 0: set lobkoef = 3 & set $lobok = 'You have a smoothly shaved mound. <<$pirsG>>'
-if lobok > 0 and lobok <= 2: set lobkoef = 0 & set $lobok = 'You have a light but visible thatch of hair above your crotch. <<$pirsG>>'
-if lobok > 2: set lobkoef = 0 & set $lobok = 'You have a thick, full delta of pubic hair. <<$pirsG>>'
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-set bodytipe = bedra - talia
-if bodytipe < 20: set bodykoef = 0
-if bodytipe >= 20 and bodytipe < 25: set bodykoef = 2
-if bodytipe >= 25 and bodytipe < 30: set bodykoef = 4
-if bodytipe >= 30 and bodytipe < 35: set bodykoef = 8
-if bodytipe >= 35: set bodykoef = 4
-
-if tan > 0: set tanKoef = 1
-if tan = 0: set tanKoef = 0
-
-if curly > 0: curlykoef = 1
-if curly = 0: curlykoef = 0
-
-if sweat <= -6:
-	set sweatKoef = -1
-elseif sweat <= 0:
-	set sweatKoef = 0
-else
-	set sweatKoef = sweat * 5
-end
-
-if lipbalmstat > 0:
-lipbalmKoef = 1
-else
-lipbalmKoef = 0
-end
-
-if vidage < 21: vidagebonus = 0
-if vidage >= 21 and vidage < 26: vidagebonus = 1
-if vidage >= 26 and vidage < 30: vidagebonus = 3
-if vidage >= 30 and vidage < 34: vidagebonus = 6
-if vidage >= 34 and vidage < 36: vidagebonus = 9
-if vidage >= 36 and vidage < 38: vidagebonus = 12
-if vidage >= 38 and vidage < 40: vidagebonus = 16
-if vidage >= 40 and vidage < 45: vidagebonus = 25
-if vidage >= 45: vidagebonus = 50
-
-if age < 18: leghair = -5
-if age < 18: lobok = -5
-
-set tatKeof = kendra * 5
-if tatvag >= 3: set tatKeof += 5
-if tatleg >= 1: set tatKeof += 5
-set vnesh = (9 + curlykoef + lip + tanKoef + skin + mop + resnic + glaraz + bodykoef + legkoef + odevnesh + hapri + bonusZ + lipbalmKoef) - (sweatKoef + vidagebonus) - (zub * 2) + tatKeof - glassvnesh
-!tits and lobkoef (pubic hair) removed from calc, replaced with flat bonus of 9 (6 tits, 3 hair)
-
-if vnesh < 0: vnesh = 0
-if StrongNarkota <= 0:
-if SNarkTimes >= 3 and SLomka = 0: SLomka = 1
-if Gerpes >= 3 or Sifilis >= 21 or Triper > 2: vnesh = -10
-end
-
-if StrongNarkota > 0:
-if SLomka > 0: SLomka = 0
-manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
-end
-if vnesh = -10: set $vnesh = 'Your looks is even worse than terrible. It''s terribad. Noone want to see or talk to you and avoid you at any cost necessary.'
-if vnesh < 5 and vnesh>-10: set $vnesh = 'Your looks is terrible. People try to avoid looking and talking to you.'
-if vnesh >= 5 and vnesh < 15: set $vnesh = 'You''re a wallflower. Barely anyone notices you.'
-if vnesh >= 15 and vnesh < 30: set $vnesh = 'You have good looks. Men and women like to take a glance at you.'
-if vnesh >= 30 and vnesh < 50: set $vnesh = 'You have a simply stunning appearence. Other girls are a bit jealous and guys constantly check you out.'
-if vnesh >= 50: set $vnesh = 'Your appearence is divine! No one is able to take his or her eyes off of you.'
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!ТЕЛО
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-musle = strenbuf + vitalbuf
-	if musle >= salo:
-	!мускулистый тип
-		if bedra < 60:
-		set $body = 'You are very thin and fat on the body virtually no muscles act through the skin.'
-		end
-		if bedra >= 60 and bedra < 70:
-		set $body = 'You are very thin and fat on the body virtually no muscles act through the skin.'
-		end
-		if bedra >= 70 and bedra < 80:
-		set $body = 'You are thin, fat on the body virtually no muscles act through the skin.'
-		end
-		if bedra >= 80 and bedra < 90:
-		set $body = 'You are thin, fat on the body virtually no muscles act through the skin.'
-		end
-		if bedra >= 90 and bedra < 100:
-		set $body = 'You are thin, fat on the body there is little, through the skin are the large muscles.'
-		end
-		if bedra >= 100 and bedra < 110:
-		set $body = 'Body fat there is little, through the skin are the large muscles.'
-		end
-		if bedra >= 110 and bedra < 120:
-		set $body = 'Body fat there is little, through the skin are the massive muscles.'
-		end
-		if bedra >= 120:
-		set $body = 'Body fat there is little, through the skin are the massive muscles.'
-		end
-	end
-	if musle < salo:
-	!жирный тип
-		if bedra < 60:
-		set $body = 'You are very lean and you have virtually no muscle.'
-		end
-		if bedra >= 60 and bedra < 70:
-		set $body = 'You are very thin girl with a small soft booty and you are virtually no muscle.'
-		end
-		if bedra >= 70 and bedra < 80:
-		set $body = 'You are very skinny girl.'
-		end
-		if bedra >= 80 and bedra < 90:
-		set $body = 'You skinny girl.'
-		end
-		if bedra >= 90 and bedra < 100:
-		set $body = 'You skater girl.'
-		end
-		if bedra >= 100 and bedra < 110:
-		set $body = 'You formastaya girl.'
-		end
-		if bedra >= 110 and bedra < 120:
-		set $body = 'You zhirnovat girl.'
-		end
-		if bedra >= 120:
-		set $body = 'You are very fat.'
-		end
-	end
-	$fat = $body
---- body ---------------------------------
-

+ 173 - 0
locations/012_cikl

@@ -0,0 +1,173 @@
+# cikl
+!!cycles
+if curly > 0:set curly -= 1
+
+set sweat += 1
+
+if tan > 0:set tan -= 1
+if tabletki > 0:set tabletki -= 1
+
+set leghair += 1
+set lobok += 1
+
+if suhbelo > 0:set suhbelo2 = suhbelo & set suhbelo = 0
+
+set manna -= 10
+
+!'if salo > fat:
+	salo -= 1
+	fat += 1
+else
+	salo += 1
+	fat -= 1
+end
+
+if strenbuf > stren:set strenbuf -= 1
+if strenbuf < stren:set strenbuf += 1
+if vitalbuf > vital:set vitalbuf -= 1
+if vitalbuf < vital:set vitalbuf += 1
+if agilbuf > agil:set agilbuf -= 1
+if agilbuf < agil:set agilbuf += 1'!
+if anus > 1 and anusK < 0:set anusK = 0
+if anus > 1 and anusK < 3:set anusK += 1
+if anus > 1 and anusK >= 3:set anus -= 1 & set anusK = 0
+if vagina > 10 and vaginaK < 0:set vaginaK = 0
+if vagina > 10 and vaginaK < 6:set vaginaK += 1
+if vagina > 10 and vaginaK >= 6:set vaginaK = 0 & set vagina -= 1
+
+set lipkoef -= 1
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!jobs
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!RELEASE STRIP
+if isprok = 1:set isprok = 0 & 'You threw away your used tampon.'
+
+!!CYCLE 28 days 4 days mentsruatsiya
+if preg = 0:
+	if mesec > 0:set mesec -= 1
+	if mesec = 0:set cikl += 1
+	if cikl >= 23 and preg ! 1:set mesec = 4 & set cikl = 0
+end
+
+if preg = 1 and pregtime < 280:
+	set pregtime += 1
+
+	if pregtimes = 0:pregtimes = 1
+end
+
+if preg = 1 and pregtime = 280 and hourpreg ! hour:
+	hourpreg = hour
+	'<center><b>A sharp pain ran through your stomach, and something flows down your legs. Snap, you water broke! You have to get to the clinic fast!</b></center>'
+end
+
+if preg = 1 and pregtime > 280:
+	cla
+	*clr
+	set over = 4
+	'<center><b>A horrible pain shots through your body.</b></center>'
+	xgt 'gameover'
+	exit
+end
+
+if StoryLine = 0:
+	if horny < 100:set horny = horny + vagina
+else
+	if vagina = 0:
+		razeba = 0
+
+		if horny > 0 and horny <= 50:horny -= 10
+		if horny > 50:horny -= 25
+	end
+
+	if vagina > 0:
+		if pregtimes = 0:
+
+			if age < 18:
+				razeba = 1
+
+				if horny > 0 and horny <= 50:horny -= 5
+				if horny > 50 and horny < 80:horny -= 10
+				if horny >= 80:horny -= 20
+			end
+
+			if age >= 18 and age < 21:
+				razeba = 2
+
+				if horny > 0 and horny <= 50:horny -= 1
+				if horny > 50 and horny < 80:horny -= 5
+				if horny >= 80:horny -= 10
+			end
+
+			if age >= 21 and age < 25:
+				razeba = 3
+
+				if horny > 0 and horny <= 50:horny += 1
+				if horny > 50 and horny < 80:horny -= 1
+				if horny >= 80:horny -= 5
+			end
+
+			if age >= 25 and age < 30:
+				razeba = 4
+
+				if horny > 0 and horny <= 50:horny += 5
+				if horny > 50 and horny < 80:horny += 1
+				if horny >= 80:horny -= 5
+			end
+
+			if age >= 30:
+				razeba = 5
+
+				if horny > 0 and horny <= 50:horny += 10
+				if horny > 50 and horny < 80:horny += 5
+				if horny >= 80:horny += 1
+			end
+		end
+
+		if pregtimes > 0:
+			if preg = 0:
+				razeba = 5
+
+				if horny > 0 and horny <= 50:horny += 10
+				if horny > 50 and horny < 80:horny += 5
+				if horny >= 80:horny += 1
+			end
+
+			if preg > 0:
+				razeba = 6
+
+				if horny < 100:set horny += pregtime / 10
+			end
+		end
+	end
+end
+
+if horny < 0:set horny = 0
+
+if musle >= salo and stren >= 10 and vital >= 10 and dounspell = 0:
+	!!Fall muscularity
+	if downmusl >= 5:
+		downmusl = 0
+		set stren -= 1
+		set vital -= 1
+		set fat += 4
+		set salo += 4
+	else
+		downmusl += 1
+	end
+end
+
+!!! Maruda Hair Mod
+!!! Max. Hair length 600mm, or 60cm, which should be somewhere in the lower back area.
+!!! Hair grows 1mm each day, it takes 20 months (1 month = 30 days) to regrow the hair from 0.
+if hairlength < 601:set hairlength += 1
+
+if hscrunch > 0:
+	set hscrunchrand = rand(1, 100)
+
+	if hscrunchrand <= 8:set hscrunch -= 1
+end
+!!! Maruda Hair Mod
+
+gs 'starenie'
+
+--- cikl ---------------------------------

+ 78 - 246
locations/013_dina

@@ -3,9 +3,9 @@ gs 'dinSex'
 gs 'dinBoroda'
 
 $d_read_porn = {
-	act'Read porn magazine':
+	act 'Read porn magazine':
 		cls
-		'<center><img src="images/qwest/alter/porn.jpg" ></center>'
+		'<center><img src="images/qwest/alter/porn.jpg"></center>'
 
 		if pornMagazine = 1:
 			'skukota, this magazine you`ve memorized by heart, think it`s time to buy a new one.'
@@ -27,11 +27,11 @@ $sitr_tread_d = {
 	*clr
 	set minut += 15
 	set treadmillday = day
-	set agil  += 2
+	set agil += 2
 	set sweat += 1
-	set beg   += 1
+	set beg += 1
 	set manna -= 1
-	set fat   -= 2
+	set fat -= 2
 
 	'<center><img src="images/etogame/fit3.jpg"></center>'
 	'You''ve spent fifteen minutes running in the treadmill.'
@@ -63,7 +63,7 @@ $sitryogd = {
 	set will += 1
 	set manna += 5
 	!!!WD: Community extension
-	!'<center><img src="images/etogame/bookYog.jpg"></center>'
+	!!'<center><img src="images/etogame/bookYog.jpg"></center>'
 
 	if nude = 0:'<center><img src="images/community/yoga_dressed.jpg"></center>'
 	if nude = 1 and tanga = 1:'<center><img src="images/community/yoga_underwear.jpg"></center>'
@@ -85,7 +85,7 @@ $sitrskakd = {
 	set manna -= 1
 	set fat -= 1
 	!!!WD: Community extension
-	!'<center><img src="images/etogame/skak.jpg"></center>'
+	!!'<center><img src="images/etogame/skak.jpg"></center>'
 
 	if nude = 0:'<center><img src="images/community/rope_dressed.jpg"></center>'
 	if nude = 1 and tanga = 0:'<center><img src="images/community/rope_naked.jpg"></center>'
@@ -107,7 +107,7 @@ $sitrpressd = {
 	set manna -= 1
 	set fat -= 1
 	!!!WD: Community extension
-	!'<center><img src="images/etogame/press.jpg"></center>'
+	!!'<center><img src="images/etogame/press.jpg"></center>'
 
 	if nude = 0:'<center><img src="images/community/abdominal_dressed.jpg"></center>'
 	if nude = 1 and tanga = 1:'<center><img src="images/community/abdominal_underwear.jpg"></center>'
@@ -122,24 +122,23 @@ $sitrpressd = {
 $sitrpushd = {
 	cla
 	*clr
-	set minut  += 15
+	set minut += 15
 	set pushday = day
-	set stren  += 1
-	set sweat  += 1
-	set manna  -= 1
-	set fat    -= 1
+	set stren += 1
+	set sweat += 1
+	set manna -= 1
+	set fat -= 1
 	!!!WD: Community extension
-	!'<center><img src="images/etogame/push.jpg"></center>'
+	!!'<center><img src="images/etogame/push.jpg"></center>'
 
 	if nude = 0:'<center><img src="images/community/push_dressed.jpg"></center>'
 	if nude = 1 and tanga = 1:'<center><img src="images/community/push_underwear.jpg"></center>'
 	if nude = 1 and tanga = 0:'<center><img src="images/community/push_naked.jpg"></center>'
 	!!!
-
 	'You do push-ups for fifteen minutes, developing your strength.'
-
 	pushnum = rand(stren / 10, stren / 5)
 	'<br>You managed to do <<pushnum>> push-ups. Your previous record is <<pushrecord>>.'
+
 	if pushrecord < pushnum:pushrecord = pushnum & 'This is a new record!'
 
 	act 'Exit':gt $curloc
@@ -154,7 +153,7 @@ $gladbelo = {
 	set manna -= 10
 	set elektro += 10
 	!!!WD: Community extension
-	!'<center><img src="images/etogame/belo.jpg"></center>'
+	!!'<center><img src="images/etogame/belo.jpg"></center>'
 
 	if nude = 0:'<center><img src="images/community/iron_dressed.jpg"></center>'
 	if nude = 1 and tanga = 1:'<center><img src="images/community/iron_underwear.jpg"></center>'
@@ -176,12 +175,12 @@ $showerdin = {
 	set cumanus = 0
 }
 
-!WD: Kioks event replaced with new code from Przemar!Przemar:** KIOSK ** ver 02
-!Przemar:IMAGE NEEDED 'Man punched you and say " Go away bitch your mouth full of sperm " at this rate you needed to wait 4 hours and paid 200 rubles'
-!WD:set  "SUB >= 15" for act - Will need balancing / playtesting
+!!WD: Kioks event replaced with new code from Przemar!Przemar:** KIOSK ** ver 02
+!!Przemar:IMAGE NEEDED 'Man punched you and say " Go away bitch your mouth full of sperm " at this rate you needed to wait 4 hours and paid 200 rubles'
+!!WD:set "SUB >= 15" for act - Will need balancing / playtesting
 $kiosksig = {
 	cls
-	gs'stat'
+	gs 'stat'
 	'<center><img src="images/community/kiosk.jpg"></center>'
 	'A pack of cigarettes costs 50 rubles.'
 	*pl
@@ -189,11 +188,11 @@ $kiosksig = {
 	if money >= 50:
 		if hour >= 12 and hour <= 15:
 			'<center><img src="images/community/queue.jpg"></center>'
-			'There''s a long queue infron of the kiosk.'
+			'There''s a long queue infront of the kiosk.'
 
 			act 'Wait in line and buy cigarettes (30 Minutes)':
 				minut += 30
-				siga  += 20
+				siga += 20
 				money -= 50
 				gt $curloc
 
@@ -203,10 +202,10 @@ $kiosksig = {
 			if exhibi >= 4:
 				act 'Flash both your tits and your pussy':
 					cls
-					gs'stat'
-					minut  += 10
-					siga   += 20
-					money  -= 50
+					gs 'stat'
+					minut += 10
+					siga += 20
+					money -= 50
 
 					if kioskflash = 0:
 						set exhibi += 1
@@ -222,10 +221,10 @@ $kiosksig = {
 			if exhibi >= 3:
 				act 'Flash your pussy':
 					cls
-					gs'stat'
-					minut  += 10
-					siga   += 20
-					money  -= 50
+					gs 'stat'
+					minut += 10
+					siga += 20
+					money -= 50
 
 					if kioskflash = 0:
 						set exhibi += 1
@@ -244,10 +243,10 @@ $kiosksig = {
 			if exhibi >= 2:
 				act 'Flash your tits':
 					cls
-					gs'stat'
-					minut  += 10
-					siga   += 20
-					money  -= 50
+					gs 'stat'
+					minut += 10
+					siga += 20
+					money -= 50
 
 					if kioskflash = 0:
 						set exhibi += 1
@@ -264,12 +263,12 @@ $kiosksig = {
 			if SUB >= 15:
 				act 'Suggest to blow someone infront of you':
 					cls
-					gs'stat'
-					minut  += 10
-					siga   += 20
-					money  -= 50
+					gs 'stat'
+					minut += 10
+					siga += 20
+					money -= 50
 					throat += 1
-					bj     += 1
+					bj += 1
 
 					if cumlip = 0:
 						'<center><img src="images/community/kiosk_blowjob.jpg"></center>'
@@ -293,11 +292,11 @@ $kiosksig = {
 							act 'Go away and buy cigarettes':gt $curloc
 						end
 					else
-						!Przemar:IMAGE NEEDED
+						!!Przemar:IMAGE NEEDED
 						'<center><img src="images/community/Image_needed.png"></center>'
 						'Man punched you and say " Go away bitch your mouth full of sperm " at this rate you needed to wait 4 hours and paid 200 rubles.'
 						minut += 240
-						siga  += 20
+						siga += 20
 						money -= 200
 
 						act 'Leave':gt $curloc
@@ -306,7 +305,7 @@ $kiosksig = {
 			end
 		else
 			act 'Buy a pack of cigarettes':
-				siga  += 20
+				siga += 20
 				money -= 50
 				minut += 5
 				gt $curloc
@@ -321,11 +320,10 @@ $kiosksig = {
 	exit
 }
 
-
 $budilnik = {
-	'<b><center><font size=4><font color="black"> Clock</font></center></b>'
+	'<b><center><font size = 4><font color="black"> Clock</font></center></b>'
 	'Clock wound <<alarm1>> hours <<alarm2>> minutes'
-	'<b><center><font size=3><font color="black"> Hours Minutes</font></center></b>'
+	'<b><center><font size = 3><font color="black"> Hours Minutes</font></center></b>'
 	'<center><a href="exec:set alarm1 = 01 & gt $curloc">01</a> <a href="exec:set alarm1 = 02 & gt $curloc">02</a><a href="exec:set alarm1 = 03 & gt $curloc">03</a><a href="exec:set alarm1 = 04 & gt $curloc">04</a><a href="exec:set alarm1 = 05 & gt $curloc">05</a></center>'
 	'<center><a href="exec:set alarm1 = 06 & gt $curloc">06</a> <a href="exec:set alarm1 = 07 & gt $curloc">07</a><a href="exec:set alarm1 = 08 & gt $curloc">08</a><a href="exec:set alarm1 = 09 & gt $curloc">09</a><a href="exec:set alarm1 = 10 & gt $curloc">10</a><a href="exec:set alarm2 = 00 & gt $curloc">00</a><a href="exec:set alarm2 = 05 & gt $curloc">05 ( 3)<a href="exec:set alarm2 = 10 & gt $curloc">10</a><a href="exec:set alarm2 = 15 & gt $curloc">15</a></center>'
 	'<center><a href="exec:set alarm1 = 11 & gt $curloc">11</a> <a href="exec:set alarm1 = 12 & gt $curloc">12</a><a href="exec:set alarm1 = 13 & gt $curloc">13</a><a href="exec:set alarm1 = 14 & gt $curloc">14</a><a href="exec:set alarm1 = 15 & gt $curloc">15</a><a href="exec:set alarm2 = 20 & gt $curloc">20</a><a href="exec:set alarm2 = 25 & gt $curloc">25 ( 3)<a href="exec:set alarm2 = 30 & gt $curloc">30</a><a href="exec:set alarm2 = 35 & gt $curloc">35</a></center>'
@@ -464,7 +462,7 @@ $margoroomdi3 = {
 				cls
 				minut += 15
 				horny += 60
-				anus  += 5
+				anus += 5
 				gs 'stat'
 				'<center><img src="images/zoo/margo5.jpg"></center>'
 				'First one paeets, then two, three and so the whole entire hand. She quickly found herself in the depths of ass. It´s incredible. I still had no hand in its entirety. And so it happened. Margarita penetrated deeper and deeper and I was in seventh heaven. Supple ass took a hand. Was incredibly good. She massaged me inside like a real iskusstnitsa, causing me to moan loudly and wagging his ass with pleasure.'
@@ -567,7 +565,7 @@ $butikreiqdi = {
 	'Starting to turn my head, you nobody unnoticed, but your actions have attracted prodovtsa, dealer young girl in a shirt with a little too narrow logotpom Boutique enough that her shirt was so testnovata and had to unbutton the top button (MDA-YOU think whether it is men´s boutique shirt obtyag would be understandable, but in the female? for what and what the administration is thinking?) coming to you a little bit inconsistent and quickly asked:'
 	'Seller:I can help you or what?'
 
-	act 'No, thank you':gt 'butik','start'
+	act 'No, thank you':gt 'butik', 'start'
 	act 'Silently leave':gt 'down'
 
 	act 'Staring at her breasts':
@@ -633,8 +631,8 @@ $butikreiqdi = {
 
 								act 'Extort taken in head? What do you want?':
 									cls
-									minut         += 5
-									QWdogReiq      = 2
+									minut += 5
+									QWdogReiq = 2
 									QWdogreiqTimer = 7
 									gs 'stat'
 									'Decided to blackmail me? Clitoris with one hand plucking another rented? And how much do you want? Viciously proiznositi you:think yourself a damn how much it wants.'
@@ -660,9 +658,9 @@ $butikreiqdi = {
 
 						act 'Do you like me?':
 							cls
-							minut   += 5
-							orgasm  += 1
-							horny    = 0
+							minut += 5
+							orgasm += 1
+							horny = 0
 							lesbian += 1
 
 							if RimmaSex = 0:RimmaSex = 1 & girl += 1
@@ -682,8 +680,8 @@ $butikreiqdi = {
 
 							act 'Exit out of the dressing':
 								cls
-								minut         += 5
-								QWdogReiq      = 2
+								minut += 5
+								QWdogReiq = 2
 								QWdogreiqTimer = 7
 								gs 'stat'
 								'Rima took you to the door.'
@@ -720,9 +718,9 @@ $polactdog = {
 	cls
 	streetdogday = day
 
-	!if QWdogReiq = 0:QWdogReiq = 1 & QWdogreiqTimer = 7
+	!!if QWdogReiq = 0:QWdogReiq = 1 & QWdogreiqTimer = 7
 
-	zoo   += 1
+	zoo += 1
 	minut += 10
 	gs 'stat'
 	'<center><img src="images/zoo/first.jpg"></center>'
@@ -732,9 +730,9 @@ $polactdog = {
 
 	act 'Send a member of the vagina':
 		cls
-		minut  += 10
+		minut += 10
 		orgasm += 3
-		horny   = 0
+		horny = 0
 		vagina += 3
 		gs 'stat'
 		'<center><img src="images/zoo/vag.jpg"></center>'
@@ -742,7 +740,7 @@ $polactdog = {
 
 		act '....':
 			cls
-			minut    += 10
+			minut += 10
 			cumpussy += 1
 			gs 'stat'
 			'<center><img src="images/zoo/vag2.jpg"></center>'
@@ -755,17 +753,17 @@ $polactdog = {
 
 	act 'Send dick in the ass':
 		cls
-		minut  += 10
+		minut += 10
 		orgasm += 3
-		horny   = 0
-		anus   += 3
+		horny = 0
+		anus += 3
 		gs 'stat'
 		'<center><img src="images/zoo/anal.jpg"></center>'
 		'Kneeling in the excited state, a member of the Dog came into the ass. Anus was ajar because of the uncomfortable position and strongly relaxed muscles and his cock slipped inside ass very easily. Sharp rhythmic movements dostovlyaet both pain and pleasure, orgasm followed orgasm. But then he went completely sharp movement in the anus sphincter tightly wraps it, thereby sealing the anus completely.'
 
 		act '....':
 			cls
-			minut   += 10
+			minut += 10
 			cumanus += 1
 			gs 'stat'
 			'<center><img src="images/zoo/anal2.jpg"></center>'
@@ -793,7 +791,7 @@ $youriqwest = {
 	act 'Go with Yuri':
 		cls
 		jouryQwNo = 0
-		minut    += 30
+		minut += 30
 		gs 'stat'
 		'You walked down the street with Yuri, came to the metro, where you went in the car and drove in silence with him in the northern part of the city. Coming out of the subway Yuri led you in the direction of new buildings, all the way you walked in silence and Yuri looked tense. Finally you come to a new nine-story, Yuri opened the front door and you walked in the entrance. Yuri called the elevator and you have arrived at his pad.'
 
@@ -826,23 +824,23 @@ $youriqwest = {
 
 						act 'Squat down and take in the mouth':
 							cls
-							guy     += 1
+							guy += 1
 							jourySex = 1
-							bj      += 1
-							minut   += 10
+							bj += 1
+							minut += 10
 							gs 'stat'
 							'<center><img src="images/qwest/youri/bjdance.jpg"></center>'
 							'Little hand caressed member Yuri you squatted in front of him and your face was right on standing against the member. You cupped his purple head <<$liptalk>> and started to suck dick. Your lips slid across the smooth and hot cock sucking it. Yuri was moaning and looked down into your eyes. Finally, he choked hissed, "Come to bed."'
-							gs 'oral','0'
+							gs 'oral', '0'
 
 							act 'Go to bed':
 								cls
-								minut      += 10
-								set $nameV  = 'Yuri'
-								$boy        = $nameV
-								set dick    = 18
+								minut += 10
+								set $nameV = 'Yuri'
+								$boy = $nameV
+								set dick = 18
 								set silavag = 2
-								pose        = 1
+								pose = 1
 								gs 'stat'
 								'<center><img src="images/qwest/youri/sex.jpg"></center>'
 								'The bed Yuri helped you to undress and put you on all fours ready to enter you.'
@@ -854,7 +852,7 @@ $youriqwest = {
 								act 'Moan':
 									cls
 									minut += 10
-									pose   = 1
+									pose = 1
 									gs 'stat'
 									'<center><img src="images/qwest/youri/sex1.jpg"></center>'
 									'Yuri is not paying attention, the fact that you fell on the bed feeding continued to thrust his cock in you.'
@@ -883,18 +881,18 @@ $youriqwest = {
 												cls
 												minut += 10
 												horny += 10
-												bj    += 1
+												bj += 1
 												gs 'stat'
 												'<center><img src="images/qwest/youri/shower1.jpg"></center>'
 												'Yuri put you in the bathroom on his haunches and put his still soft dick in your mouth. You started to suck cock, which rose directly in your mouth, filling it. Soon the cock was like a steel and Yuri began to moan. Finally he took a member of your mouth and prepared to stop.'
-												gs 'oral','0'
+												gs 'oral', '0'
 
 												act 'Substitute person':
 													cls
-													minut   += 10
-													horny   += 10
+													minut += 10
+													horny += 10
 													cumface += 1
-													facial  += 1
+													facial += 1
 													gs 'stat'
 													'<center><img src="images/qwest/youri/shower2.jpg"></center>'
 													'Cum Yuri slapped you in the face, but it was not much and the flow soon stopped.'
@@ -933,170 +931,4 @@ $youriqwest = {
 	end
 }
 
-$meet_boyfriend ={
-	set streetrand = RAND(0,100)
-
-	if streetrand >= 10 and bfa < 1:
-		set vnerand = RAND(0,300)
-
-		if vnerand <= vnesh:
-			gs 'boy'
-			'<br>A guy walks up to you. He''s a <<$boybody>> <<$boybod>> <<$boyface>>, <<$boyClo>>'
-			'The guy introduces himself as <<$boy>> and asks for your number.'
-
-			act 'Give him your phone number':
-				cla
-				gs 'boyfrend','start'
-				set stopboy = 0
-				'<<$boyA>> recorded your phone and left.'
-				act 'Complete walk': gt $loc
-			end
-		end
-	end
-}
-
-$vladimir_driver={
-	if vladimirday = day and vladimirQW = 30 and hour >= 16 and week = 6: '<a href="exec: GT ''qwmeet2''">Before your porch worth audit and near stolidly worth waiting for you driver Glory</a>.'
-	if vladimirday = day and vladimirQW = 40 and hour >= 16 and week = 6: '<a href="exec: GT ''qwmeet3''">Before your porch worth audit and near stolidly worth waiting for you driver Glory</a>.'
-}
-
-!Przemar: ** KIOSK ** ver 02
-!Przemar: IMAGE NEEDED 'Man punched you and say " Go away bitch your mouth full of sperm " at this rate you needed to wait 4 hours and paid 200 rubles'
-!WD: Set  "SUB >= 15" for act - Will need balancing / playtesting
-$kiosksig = {
-	cls
-	gs'stat'
-	'<center><img src="images\community\kiosk.jpg"></center>'
-	'A pack of cigarettes costs 50 rubles.'
-	*pl
-
-	if money >= 50:
-		if hour >= 12 and hour <= 15:
-			'<center><img src="images\community\queue.jpg"></center>'
-			'There''s a long queue infron of the kiosk.'
-
-			act 'Wait in line and buy cigarettes (30 Minutes)':
-				minut += 30
-				siga  += 20
-				money -= 50
-				gt $curloc
-				act 'Leave': gt $curloc
-			end
-
-			if exhibi >= 4:
-				act 'Flash both your tits and your pussy':
-					cls
-					gs'stat'
-					minut  += 10
-					siga   += 20
-					money  -= 50
-					if kioskflash = 0:
-						set exhibi += 1
-						set kioskflash = 1
-					end
-					'<center><img src="images\community\flash_tits_pus.jpg"></center>'
-					'The people infront of you are shocked, as they see you flashing your tits and your pussy. As a small thank you, some of them let you move further up in the queue.'
-					act 'Buy and leave': gt $curloc
-				end
-			end
-
-			if exhibi >= 3:
-				act 'Flash your pussy':
-					cls
-					gs'stat'
-					minut  += 10
-					siga   += 20
-					money  -= 50
-					if kioskflash = 0:
-						set exhibi += 1
-						set kioskflash = 1
-					end
-					if lobok >= 2:'<center><img src="images\community\flash_hairy.jpg"></center>'
-					if lobok <= 2:'<center><img src="images\community\flash_nohairy.jpg"></center>'
-					'The people infront of you are shocked, as they see you flashing your pussy. As a small thank you, some of them let you move further up in the queue.'
-					act 'Buy and leave': gt $curloc
-				end
-			end
-
-			if exhibi >= 2:
-				act 'Flash your tits':
-					cls
-					gs'stat'
-					minut  += 10
-					siga   += 20
-					money  -= 50
-					if kioskflash = 0:
-						set exhibi += 1
-						set kioskflash = 1
-					end
-					'<center><img src="images\community\flash_tits.jpg"></center>'
-					'The people infront of you are shocked, as they see you flashing your tits. As a small thank you, some of them let you move further up in the queue.'
-					act 'Buy and leave': gt $curloc
-				end
-			end
-
-			if SUB >= 15:
-				act 'Suggest to blow someone infront of you':
-					cls
-					gs'stat'
-					minut  += 10
-					siga   += 20
-					money  -= 50
-					throat += 1
-					bj     += 1
-
-					if cumlip = 0:
-						'<center><img src="images\community\kiosk_blowjob.jpg"></center>'
-						'A man agreed to your suggestion and let''s you move infront of him.'
-
-						act 'Cum on face':
-							cls
-							'<center><img src="images\body\cumface.jpg"></center>'
-							'The man cums on your face.'
-							cumface += 1
-							act 'Go away and buy cigarettes': gt $curloc
-						end
-
-						act 'Cum in mouth':
-							cls
-							'<center><img src="images\etogame\cumlip.jpg"></center>'
-							'The man cums inside your mouth.'
-							cumlip += 1
-							act 'Go away and buy cigarettes': gt $curloc
-						end
-
-					!if cumlip = 1:
-					else
-
-						!Przemar: IMAGE NEEDED
-						'<center><img src="images\community\Image_needed.png"></center>'
-						'Man punched you and say " Go away bitch your mouth full of sperm " at this rate you needed to wait 4 hours and paid 200 rubles.'
-						minut += 240
-						siga  += 20
-						money -= 200
-						act 'Leave': gt $curloc
-					end
-				end
-			end
-
-		!if money >= 50 and hour > 15 or hour < 12:
-		else
-			act 'Buy a pack of cigarettes':
-				siga  += 20
-				money -= 50
-				minut += 5
-				gt $curloc
-			end
-		end
-
-	!if money < 50
-	else
-
-		'Not enough money to buy cigarettes.'
-	end
-
-	act 'Leave': gt $curloc
-	exit
-}
 --- dina ---------------------------------
-

+ 3 - 3
locations/014_dinBoroda

@@ -12,7 +12,7 @@ $borodachNo = {
 }
 
 $borodachNo2 = {
-	act 'I have to go.':
+	act 'I have to go now':
 		cla
 		minut += 15
 		gs 'stat'
@@ -23,7 +23,7 @@ $borodachNo2 = {
 	end
 }
 $borodachDrink = {
-	act 'Another drink.':
+	act 'Another drink':
 		cla
 		minut += 15
 		horny += 20
@@ -91,6 +91,7 @@ $ohrhjcum = {
 		gs 'stat'
 		'<center><img src="images/qwest/ohrannik/hjcum.jpg"></center>'
 		'Sasha groaned and his cock began to fly jet of sperm in your palm.'
+
 		act 'Leave':gt 'street'
 	end
 }
@@ -192,4 +193,3 @@ $ohrsex = {
 rikudootvet = 1415
 
 --- dinBoroda ---------------------------------
-

+ 114 - 99
locations/015_dinSex

@@ -28,7 +28,7 @@ $universalklient = {
 					if torgklirand = 0:clientPRyes = 0
 
 					if torgklirand = 1:
-						'Client grins and offers <<KlientMON*100>> per job.'
+						'Client grins and offers <<KlientMON * 100>> per job.'
 
 						act 'Agree':
 							cla
@@ -62,7 +62,7 @@ $dinprostable = {
 	if vidage >= 18 and vidage < 20:vnpr += 10
 	if vidage < 18:vnpr += 15
 	if vnesh = -10:vnpr -= 100
-	if vnesh < 5 and vnesh>-10:vnpr -= 10
+	if vnesh < 5 and vnesh > -10:vnpr -= 10
 	if vnesh >= 5 and vnesh < 15:vnpr -= 5
 	if vnesh >= 15 and vnesh < 30:vnpr += 1
 	if vnesh >= 30 and vnesh < 50:vnpr += 5
@@ -82,8 +82,8 @@ $dinprostable = {
 	if sweat > 0:vnpr -= 10
 	if hapri = 0:vnpr -= 1
 	if lip = 4:vnpr += 1
-	!maximum 40
-	!minimum -161
+	!!maximum 40
+	!!minimum -161
 }
 
 $dinklient = {
@@ -102,7 +102,7 @@ $dinklient = {
 	end
 }
 
-$din_prost_bj       = {
+$din_prost_bj = {
 	act 'Get into the client machine':
 		vidageday -= 5
 		set $nameV = 'stranger'
@@ -202,7 +202,7 @@ $venerasiak = {
 
 $veneradinitog = {
 	if tipvenerarand >= 8:
-		!herpes
+		!!herpes
 		set gerprand = rand(0, 100)
 
 		if gerprand > 90:
@@ -214,7 +214,7 @@ $veneradinitog = {
 	end
 
 	if tipvenerarand = 7:
-		!syphilis
+		!!syphilis
 		venerarand = rand(0, 100)
 
 		if venerarand > 95:
@@ -227,7 +227,7 @@ $veneradinitog = {
 	end
 
 	if tipvenerarand >= 5 and tipvenerarand < 7:
-		!gonorrhea/triper
+		!!gonorrhea/triper
 
 		venerarand = rand(0, 100)
 
@@ -241,7 +241,7 @@ $veneradinitog = {
 	end
 
 	if tipvenerarand < 5:
-		!candidiasis/thrush
+		!!candidiasis/thrush
 
 		venerarand = rand(0, 100)
 
@@ -268,7 +268,7 @@ $sexstart2 = {
 	frost = 0
 
 	if mesec > 0:
-		!Menstruation makes orgasm impossible
+		!!Menstruation makes orgasm impossible
 		set horny = 0
 		set manna -= 10
 		set willpower -= 10
@@ -276,25 +276,25 @@ $sexstart2 = {
 	end
 
 	if mesec <= 0 and vagina > 0:
-		!No Menstruatsion
-		!horny - excitement
-		!vagina - vagina elasticity
-		!silavag - male skill:0-clumsy, 1-middle, 2-stud
-		!dick - his penis size
-		!orgazm - what kind of orgasm
-		!0 - very painful, 1 - hurts, 2 - unpleasant, 3 - so-so, 4 - little orgasm, 5 - orgasm
+		!!No Menstruatsion
+		!!horny - excitement
+		!!vagina - vagina elasticity
+		!!silavag - male skill:0-clumsy, 1-middle, 2-stud
+		!!dick - his penis size
+		!!orgazm - what kind of orgasm
+		!!0 - very painful, 1 - hurts, 2 - unpleasant, 3 - so-so, 4 - little orgasm, 5 - orgasm
 		set smazka = horny / 10
 		set prinat = smazka + vagina
 
 		if dick >= prinat * 2:
-			!member of the critical features more years
+			!!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:
-			!member more options gg
+		if 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
@@ -324,7 +324,7 @@ $sexstart2 = {
 		end
 
 		if dick <= prinat and dick >= vagina:
-			!Member fewer opportunities gg
+			!!Member fewer opportunities gg
 			if silavag = 0:
 				if horny >= 80:set orgazm = 5
 				if horny >= 60 and horny < 80:set orgazm = 4
@@ -367,7 +367,7 @@ $sexstart2 = {
 			end
 		 end
 
-		if oragazm=5:
+		if oragazm = 5:
 			preOrg += 1
 
 			if razeba < 4:
@@ -402,7 +402,7 @@ $sexstart2 = {
 				end
 
 				if silavag < 2:
-					orgrand=rand(0, 100)
+					orgrand = rand(0, 100)
 
 					if orgrand > preOrg:oragazm = 4
 				end
@@ -439,12 +439,13 @@ $sexstart2 = {
 		end
 
 		if orgazm = 3:
-			set manna  += 5
+			set manna += 5
 			set willpower += 5
 			'You are startled by the feeling when your pussy is stretched as <<$boy>> entered. It feels good when his <<dick>> centimeter dick fucks your pussy.'
 		end
 
 		if orgazm = 4:
+			!set horny += 10
 			set manna += 10
 			set willpower += 10
 			'You are startled by the feeling when your pussy is stretched as <<$boy>> entered. It feels good when his <<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. !)'
@@ -455,6 +456,7 @@ $sexstart2 = {
 			set manna += 15
 			set willpower += 15
 			set orgasm += 1
+			vaginalOrgasm += 1
 			'You flinched from a pleasant feeling when your pussy is stretched by his dick. It feels good when his <<dick>> centimeter dick fucks 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 scream with pleasure.'
 		end
 
@@ -485,7 +487,7 @@ $sexstart3 = {
 	frost = 0
 
 	if mesec > 0:
-		!periods, orgasm is not possible
+		!!periods, orgasm is not possible
 		set horny = 0
 		set manna -= 10
 		set willpower -= 10
@@ -493,25 +495,25 @@ $sexstart3 = {
 	end
 
 	if mesec <= 0 and vagina > 0:
-		!no monthly
-		!horny - excitement
-		!vagina - the elasticity of the vagina
-		!silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
-		!dick - penis Man
-		!orgazm - Total coefficient of pleasure
-		!0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
+		!!no monthly
+		!!horny - excitement
+		!!vagina - the elasticity of the vagina
+		!!silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
+		!!dick - penis Man
+		!!orgazm - Total coefficient of pleasure
+		!!0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
 		set smazka = horny / 10
 		set prinat = smazka + vagina
 
 		if dick >= prinat * 2:
-			!member of the critical features more years
+			!!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:
-			!member more options gg
+		if 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
@@ -541,7 +543,7 @@ $sexstart3 = {
 		end
 
 		if dick <= prinat and dick >= vagina:
-			!Member fewer opportunities gg
+			!!Member fewer opportunities gg
 			if silavag = 0:
 				if horny >= 80:set orgazm = 5
 				if horny >= 60 and horny < 80:set orgazm = 4
@@ -656,14 +658,14 @@ $sexstart3 = {
 		end
 
 		if orgazm = 3:
-			!set horny += 5
+			!!set horny += 5
 			set manna += 5
 			set willpower += 5
 			'You startled by the feeling that your pussy is stretched when sat on and felt like a member of <<$boy>> has entered into you. Between the legs gets a little nice when you jump on strong <<dick>> centimeter penis.'
 		end
 
 		if orgazm = 4:
-			!set horny += 10
+			!!set horny += 10
 			set manna += 10
 			set willpower += 10
 			'You startled by the feeling that your pussy is stretched when sat on and felt like a member of <<$boy>> has entered into you. Between the legs gets a little nice when you jump on strong <<dick>> centimeter penis. Pritnoe gradually grow warm and throbbing in the lower abdomen, and then feeling a little decrease and remain until the end.'
@@ -674,6 +676,7 @@ $sexstart3 = {
 			set manna += 15
 			set willpower += 15
 			set orgasm += 1
+			vaginalOrgasm += 1
 			'You flinched from a pleasant feeling when your pussy rastyagivatsya start taking a dick. Between the legs becomes very warm and pleasant, when you jump on the strong <<dick>> centimeter penis. 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
 
@@ -704,7 +707,7 @@ $sexstart4 = {
 	frost = 0
 
 	if mesec > 0:
-		!periods, orgasm is not possible
+		!!periods, orgasm is not possible
 		set horny = 0
 		set manna = manna - 10
 		set willpower = willpower - 10
@@ -712,26 +715,26 @@ $sexstart4 = {
 	end
 
 	if mesec <= 0 and vagina > 0:
-		!no monthly
-		!horny - excitement
-		!vagina - the elasticity of the vagina
-		!silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
-		!dick - penis Man
-		!orgazm - Total coefficient of pleasure
-		!0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
+		!!no monthly
+		!!horny - excitement
+		!!vagina - the elasticity of the vagina
+		!!silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
+		!!dick - penis Man
+		!!orgazm - Total coefficient of pleasure
+		!!0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
 
 		set smazka = horny / 10
 		set prinat = smazka + vagina
 
 		if dick >= prinat * 2:
-			!member of the critical features more years
+			!!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:
-			!member more options gg
+			!!member more options gg
 			if silavag = 0:
 				if horny >= 100:set orgazm = 5
 				if horny >= 90 and horny < 100:set orgazm = 4
@@ -761,7 +764,7 @@ $sexstart4 = {
 		end
 
 		if dick <= prinat and dick >= vagina:
-			!Member fewer opportunities gg
+			!!Member fewer opportunities gg
 				if silavag = 0:
 				if horny >= 80:set orgazm = 5
 				if horny >= 60 and horny < 80:set orgazm = 4
@@ -878,14 +881,14 @@ $sexstart4 = {
 		end
 
 		if orgazm = 3:
-			!set horny = horny + 5
+			!!set horny = horny + 5
 			set manna += 5
 			set willpower += 5
 			'You flinched from feeling, your pussy stretched, when <<$boy>> You entered. Between the legs becomes a little nice, when strong <<dick>> inch dick fuck your pussy.'
 		end
 
 		if orgazm = 4:
-			!set horny = horny + 10
+			!!set horny = horny + 10
 			set manna += 10
 			set willpower += 10
 			'You flinched from feeling, your pussy stretched, when <<$boy>> You entered. Between the legs becomes a little nice, when strong <<dick>> inch dick fuck your pussy. Gradually pritno warm and throbbing grow in the lower abdomen, then feeling slightly reduced and remain until the end of. '
@@ -920,10 +923,10 @@ $sexstart4 = {
 
 	if vagina < dick:vagina += 1
 
-	!sex+=1
+	!!sex += 1
 }
 $sexudo = {
-	set protect    = 0
+	set protect = 0
 	set vidageday -= 1
 	frost = 0
 
@@ -934,7 +937,7 @@ $sexudo = {
 	end
 
 	if mesec > 0:
-		!periods, orgasm is not possible
+		!!periods, orgasm is not possible
 		set horny = 0
 		set manna -= 10
 		set willpower -= 10
@@ -942,25 +945,25 @@ $sexudo = {
 	end
 
 	if mesec <= 0 and vagina > 0:
-		!no monthly
-		!horny - arousal
-		!vagina - elasticy of the vagina
-		!silavag - skill man 0-sad sack, 1-middle pleasant 2-stud
-		!dick - рenis man
-		!orgazm - Total coefficient of pleasure
-		!0 - very painful, 1 - it hurts, 2 - not nice, 3 - so-so, 4 - needoorgazm 5 - orgasm
+		!!no monthly
+		!!horny - arousal
+		!!vagina - elasticy of the vagina
+		!!silavag - skill man 0-sad sack, 1-middle pleasant 2-stud
+		!!dick - рenis man
+		!!orgazm - Total coefficient of pleasure
+		!!0 - very painful, 1 - it hurts, 2 - not nice, 3 - so-so, 4 - needoorgazm 5 - orgasm
 		set smazka = horny / 10
 		set prinat = smazka + vagina
 
 		if dick >= prinat * 2:
-			!member of the critical features more years
+			!!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:
-			!member more options gg
+		if 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
@@ -990,7 +993,7 @@ $sexudo = {
 		end
 
 		if dick <= prinat and dick >= vagina:
-			!Member fewer opportunities gg
+			!!Member fewer opportunities gg
 			if silavag = 0:
 				if horny >= 80:set orgazm = 5
 				if horny >= 60 and horny < 80:set orgazm = 4
@@ -1014,7 +1017,6 @@ $sexudo = {
 		end
 
 		if dick <= prinat and dick < vagina:
-
 			if silavag = 0:
 				if horny >= 100:set orgazm = 5
 				if horny >= 90 and horny < 100:set orgazm = 4
@@ -1034,7 +1036,7 @@ $sexudo = {
 			end
 		end
 
-		if oragazm=5:
+		if oragazm = 5:
 			preOrg += 1
 
 			if razeba < 4:
@@ -1111,14 +1113,14 @@ $sexudo = {
 		end
 
 		if orgazm = 3:
-			!set horny += 5
+			!!set horny += 5
 			set manna += 5
 			set 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 horny += 10
 			set manna += 10
 			set 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.'
@@ -1129,6 +1131,7 @@ $sexudo = {
 			set manna += 15
 			set willpower += 15
 			set orgasm += 1
+			vaginalOrgasm += 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
 
@@ -1159,11 +1162,11 @@ $sexcum = {
 	frost = 0
 
 	if protect ! 1:
-		!Unprotected sex
+		!!Unprotected sex
 		set finrand = rand(0, 1)
 
 		if finrand = 0:
-			!Inside
+			!!Inside
 			set cumpussy += 1
 			'<<$boy>> groaned and you feel a jet of sperm fill your pussy.'
 
@@ -1176,7 +1179,7 @@ $sexcum = {
 		end
 
 		if finrand = 1:
-			!Out
+			!!Out
 
 			if pose = 0:
 				set cumbelly += 1
@@ -1187,13 +1190,24 @@ $sexcum = {
 				set cumass += 1
 				'<<$boy>> groaned and after pulling out came on your ass.'
 			end
+
+			narrand = rand(0, 100)
+
+			if narrand = 0:gs 'preg'
 		end
 	end
 
 	if protect = 1:
 		set protect = 0
 		'<<$boy>> groaned and you realized that he had came in the condom.'
+		prezrand = rand(0, 100)
+
+		if prezrand = 0:
+			'Pulling out of you dick <<$boy>> said "Hmm, condom burst"'
+			gs'preg'
+		end
 	end
+
 	set pose = 0
 }
 
@@ -1202,21 +1216,21 @@ $analsex = {
 
 	if analplugin = 1:
 		!!!WD:No Anal Lube if Anal Plug
-		!analpluginbonus = 10
-		lubonus    = 10
+		!!analpluginbonus = 10
+		lubonus = 10
 		!!!
 		analplugin = 0
 		'<<$boy>> has pulled out of your ass plug'
 	end
 
-	if dick >=anus:set anus += 3
+	if dick >= anus:set anus += 3
 
 	'<<$boy>> began to massage your anus with his fingers.'
 
 	!!!WD: Replaced
-	!if lubri > 0:
+	!!if lubri > 0:
 	!!!
-	if (lubonus = 0 and lubri > 0):
+	if lubonus = 0 and lubri > 0:
 	!!!
 		lubri -= 1
 		lubonus += rand(1, 5)
@@ -1256,7 +1270,7 @@ $analsex = {
 			if anal >= 10 and orgasm > 0:
 				manna += 20
 
-				if agape < 1 and lubonus = 0:agape = 1
+				if agape < 1 and lubonus = 0:agape = 1 & agapetime = totminut
 
 				'You moan in pleasure while his dick moves inside your ass.'
 			end
@@ -1264,19 +1278,19 @@ $analsex = {
 	end
 
 	lubonus = 0
-	'Through some time <<$boy>> groaned and you feel like your ass fills a pleasant warmth.'
+	!!'Through some time <<$boy>> groaned and you feel like your ass fills a pleasant warmth.'
 	anal += 1
 }
-$analsex2={
+$analsex2 = {
 	frost = 0
 
-	if analplugin=1:
+	if analplugin = 1:
 		!!!WD:No Anal Lube if Anal Plug
-		!analpluginbonus = 10
-		lubonus    = 10
+		!!analpluginbonus = 10
+		lubonus = 10
 		!!!
-		analplugin=0
-		'You moan in pleasure while his dick moves inside your ass.'
+		analplugin = 0
+		'<<$boy>> pulled your butt plug out of your narrow and tight ass, '
 	end
 
 	if dick >= anus:set anus += 3
@@ -1284,7 +1298,7 @@ $analsex2={
 	'<<$boy>> began to massage your anus with his fingers.'
 
 	!!!WD: Replaced
-	!if lubri > 0:
+	!!if lubri > 0:
 	!!!
 	if lubonus = 0 and lubri > 0:
 	!!!
@@ -1298,16 +1312,18 @@ $analsex2={
 
 	'<<$boy>> pulled his fingers out of your ass and you felt his hard cock near your hole.'
 
+	!!!WD: Added lubonus
 	if anus + lubonus + 10 < dick:'You screamed and bit your lip from a sharp pain when his <<dick>> centimeter dick entered your ass.'
-	if anus + lubbonus + 10 >= dick:'You moaned when his <<dick>> centimeter dick entered your ass.'
+	if anus + lubonus + 10 >= dick:'You moaned when his <<dick>> centimeter dick entered your ass.'
+	!!!
 
 	'<<$boy>> stopped for a moment, giving your ass time to adjust to his cock in it, and then started to slowly move, stretching your anus.'
 
 	if anus + lubonus + 2 < dick:
 		if mop > 1:set mop = 0
 
-		horny-=20
-		manna-=20
+		horny -= 20
+		manna -= 20
 
 		if agape < 3:agape = 3
 
@@ -1335,19 +1351,19 @@ $analsex2={
 	end
 
 	lubonus = 0
-	!'Through some time <<$boy>> groaned and you feel like your ass fills a pleasant warmth.'
-	!anal+=1
+	!!'Through some time <<$boy>> groaned and you feel like your ass fills a pleasant warmth.'
+	!!anal += 1
 }
 
-$analsexrude={
+$analsexrude = {
 	frost = 0
 
-	if analplugin=1:
+	if analplugin = 1:
 		!!!WD:No Anal Lube if Anal Plug
-		!analpluginbonus = 10
-		lubonus    = 10
+		!!analpluginbonus = 10
+		lubonus = 10
 		!!!
-		analplugin=0
+		analplugin = 0
 		'You moan in pleasure while his dick moves inside your ass.'
 	end
 
@@ -1359,8 +1375,8 @@ $analsexrude={
 
 	'<<$boy>> pulled his fingers out of your priests and you feel his hard cock ran into your hole.'
 
-	if anus + lobonus + 10 < dick:'You screamed and bit your lip from a sharp pain when his <<dick>> centimeter dick entered your ass.'
-	if anus + lobonus + 10 >= dick:'You moaned when his <<dick>> centimeter dick entered your ass.'
+	if anus + lubonus + 10 < dick:'You screamed and bit your lip from a sharp pain when his <<dick>> centimeter dick entered your ass.'
+	if anus + lubonus + 10 >= dick:'You moaned when his <<dick>> centimeter dick entered your ass.'
 
 	'<<$boy>> stopped for a moment, giving your ass time to adjust to his cock in it, and then started to slowly move, stretching your anus.'
 
@@ -1403,4 +1419,3 @@ $analsexrude={
 }
 
 --- dinSex ---------------------------------
-

+ 0 - 126
locations/016_din2

@@ -1,126 +0,0 @@
-# din2
-$din_street_cum = {
-if cumfrot > 0 or cumface > 0:
-	if hour >= 7 and hour <= 21:
-	manna -= 10
-	'Passers puzzled turn around staring at you. Some pictures on the phone you do not entirely hiding and giggling at you. You clearly noticeable sperm.'
-	end
-end
-
-$d_read_book={
-act'read the book':
-cls
-gs'stat'
-'<center><img src="pics/book.jpg" ></center>'
-     if f_book<=0 and fantasybook<=0 and w_book=0 and womanbook=0:
-     'You scratch your head looking at already read the book "Eh, even read nothing, a walk or something on the market for a new book?"'
-     end
-
-     if f_book>0:
-         if fantasybook<=0:fantasybook=5&f_book-=1
-     end
-     if f_book>0:'You still <<f_book>> do not read fantasy novels.'
-     
-     if fantasybook>0:
-         act'Read fantasy book 1 h. Do not read more <<fantasybook*100>> pages':
-		 cls
-		 fantasybook-=1
-		 if fantasybook=0:totalbook+=1
-		 minut+=60
-			 if nerdism>0:
-			 lastread=totminut
-			 lastreadday=daystart
-			 nerdism+=1
-			 blizoruk+=1
-			 end
-		 gs'stat'
-		 '<center><img src="pics/book.jpg" ></center>'
-			 if nerdism>0:
-			 manna+=100
-			 if stren>1:stren-=1
-			 if vital>5:vital-=1
-			 'Within an hour you enthusiastically read the book completely live in what is happening.'
-			 else
-			 manna+=10
-			 'Within an hour you read the book.'
-			 end
-			 	
-		 act'close this book':gt $loc
-		 END		
-	 end
-	 
-	 if w_book>0:
-         if womanbook<=0:womanbook=5&w_book-=1
-     end
-     if w_book>0:'You still <<w_book>> not read the novel female.'
-	 
-	 if womanbook>0:
-         act'Read Women`s Novel 1 h. Do not read more <<womanbook*100>> pages':
-		 cls
-		 womanbook-=1
-		 if womanbook=0:totalbook+=1
-		 minut+=60
-			 if nerdism>0:
-			 lastread=totminut
-			 lastreadday=daystart
-			 nerdism+=1
-			 blizoruk+=1
-			 end
-		 gs'stat'
-		 '<center><img src="pics/book.jpg" ></center>'
-			 if nerdism>0:
-			 manna+=100
-			 horny+=10
-			 if stren>1:stren-=1
-			 if vital>5:vital-=1
-			 'Within an hour you enthusiastically read the book completely live in what is happening.'
-			 else
-			 manna+=10
-			 horny+=3
-			 'Within an hour you read the book.'
-			 end	
-		 act'close this book':gt $loc
-		 END		
-	 end
-act'close this book':gt $loc
-end
-}
-$d_slut_horny={
-you_slut+=1
-if you_slut<10:
-end
-if you_slut>=10 and you_slut<20:
-horny+=1
-end
-if you_slut>=20 and you_slut<30:
-horny+=2
-end
-if you_slut>=30 and you_slut<40:
-horny+=3
-end
-if you_slut>=40 and you_slut<50:
-horny+=4
-end
-if you_slut>=50 and you_slut<60:
-horny+=5
-end
-if you_slut>=60 and you_slut<70:
-horny+=6
-end
-if you_slut>=70 and you_slut<80:
-horny+=7
-end
-if you_slut>=80 and you_slut<90:
-horny+=8
-end
-if you_slut>=90 and you_slut<100:
-horny+=9
-end
-if you_slut>=100:
-horny+=10
-end
-}
-end
-}
---- din2 ---------------------------------
-

+ 548 - 0
locations/016_dinSex2

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

+ 0 - 103
locations/017_MenuLoc

@@ -1,103 +0,0 @@
-# MenuLoc
-if $ARGS[0] = 'zapis':
-$zapis+= input ("What do you want to record?")
-gs 'stat'
-end
-
-if $ARGS[0] = 'zapis2':
-$zapis2+= input ("What do you want to record?")
-gs 'stat'
-end
-
-if $ARGS[0] = 'zapis3':
-$zapis3+= input ("What do you want to record?")
-gs 'stat'
-end
-
-if $ARGS[0] = 'zapis4':
-$zapis4+= input ("What do you want to record?")
-gs 'stat'
-end
-
-if $ARGS[0] = 'zapis5':
-$zapis5+= input ("What do you want to record?")
-gs 'stat'
-end
-
-if $ARGS[0] = 'zapis6':
-$zapis6+= input ("What do you want to record?")
-gs 'stat'
-end
-
-if $ARGS[0] = 'zapis7':
-$zapis7+= input ("What do you want to record?")
-gs 'stat'
-end
-
-if $ARGS[0] = 'zapis8':
-$zapis8+= input ("What do you want to record?")
-gs 'stat'
-end
-
-if $ARGS[0] = 'zapis9':
-$zapis9+= input ("What do you want to record?")
-gs 'stat'
-end
-
-if $ARGS[0] = 'zapis10':
-$zapis10+= input ("What do you want to record?")
-gs 'stat'
-end
-
-
-if $ARGS[0] = 'diszapis':
-$zapis = ''
-gs 'stat'
-end
-
-if $ARGS[0] = 'diszapis2':
-$zapis2 = ''
-gs 'stat'
-end
-
-if $ARGS[0] = 'diszapis3':
-$zapis3 = ''
-gs 'stat'
-end
-
-if $ARGS[0] = 'diszapis4':
-$zapis4 = ''
-gs 'stat'
-end
-
-if $ARGS[0] = 'diszapis5':
-$zapis5 = ''
-gs 'stat'
-end
-
-if $ARGS[0] = 'diszapis6':
-$zapis6 = ''
-gs 'stat'
-end
-
-if $ARGS[0] = 'diszapis7':
-$zapis7 = ''
-gs 'stat'
-end
-
-if $ARGS[0] = 'diszapis8':
-$zapis8 = ''
-gs 'stat'
-end
-
-if $ARGS[0] = 'diszapis9':
-$zapis9 = ''
-gs 'stat'
-end
-
-if $ARGS[0] = 'diszapis10':
-$zapis10 = ''
-gs 'stat'
-end
---- MenuLoc ---------------------------------
-

+ 121 - 0
locations/017_din2

@@ -0,0 +1,121 @@
+# din2
+$din_street_cum = {
+	if cumfrot > 0 or cumface > 0:
+		if hour >= 7 and hour <= 21:
+			manna -= 10
+			'Passers puzzled turn around staring at you. Some pictures on the phone you do not entirely hiding and giggling at you. You clearly noticeable sperm.'
+		end
+	end
+}
+
+$d_read_book = {
+	act 'Read the book':
+		cls
+		gs 'stat'
+		'<center><img src="images/pics/book.jpg"></center>'
+
+		if f_book <= 0 and fantasybook <= 0 and w_book = 0 and womanbook = 0:'You scratch your head looking at already read the book "Eh, even read nothing, a walk or something on the market for a new book?"'
+
+		if f_book > 0:if fantasybook <= 0:fantasybook = 5 & f_book -= 1
+
+		if f_book > 0:'You still <<f_book>> do not read fantasy novels.'
+
+		if fantasybook > 0:
+			act 'Read fantasy book. There are <<fantasybook * 100>> more pages to read (1:00)':
+				cls
+				fantasybook -= 1
+
+				if fantasybook = 0:totalbook += 1
+
+				minut += 60
+
+				if nerdism > 0:
+					lastread = totminut
+					lastreadday = daystart
+					nerdism += 1
+					blizoruk += 1
+				end
+
+				gs 'stat'
+				'<center><img src="images/pics/book.jpg"></center>'
+
+				if nerdism > 0:
+					manna += 100
+
+					if stren > 1:stren -= 1
+					if vital > 5:vital -= 1
+					'Within an hour you enthusiastically read the book completely live in what is happening.'
+				else
+					manna += 10
+					'Within an hour you read the book.'
+				end
+
+				act 'close this book':gt $loc
+			end
+		end
+
+		if w_book > 0:
+			if womanbook <= 0:womanbook = 5 & w_book -= 1
+		end
+
+		if w_book > 0:'You still <<w_book>> not read the novel female.'
+
+		if womanbook > 0:
+			act 'Read Women`s Novel. There are <<womanbook * 100>> more pages to read (1:00)':
+				cls
+				womanbook -= 1
+
+				if womanbook = 0:totalbook += 1
+				minut += 60
+
+				if nerdism > 0:
+					lastread = totminut
+					lastreadday = daystart
+					nerdism += 1
+					blizoruk += 1
+				end
+
+				gs 'stat'
+				'<center><img src="images/pics/book.jpg"></center>'
+
+				if nerdism > 0:
+					manna += 100
+					horny += 10
+
+					if stren > 1:stren -= 1
+					if vital > 5:vital -= 1
+
+					'Within an hour you enthusiastically read the book completely live in what is happening.'
+				else
+					manna += 10
+					horny += 3
+					'Within an hour you read the book.'
+				end
+
+				act 'Close this book':gt $loc
+			end
+		end
+
+		act ' Close this book':gt $loc
+	end
+}
+
+$d_slut_horny = {
+	you_slut += 1
+
+	if you_slut < 10:
+	end
+
+	if you_slut >= 10 and you_slut < 20:horny += 1
+	if you_slut >= 20 and you_slut < 30:horny += 2
+	if you_slut >= 30 and you_slut < 40:horny += 3
+	if you_slut >= 40 and you_slut < 50:horny += 4
+	if you_slut >= 50 and you_slut < 60:horny += 5
+	if you_slut >= 60 and you_slut < 70:horny += 6
+	if you_slut >= 70 and you_slut < 80:horny += 7
+	if you_slut >= 80 and you_slut < 90:horny += 8
+	if you_slut >= 90 and you_slut < 100:horny += 9
+	if you_slut >= 100:horny += 10
+}
+
+--- din2 ---------------------------------

+ 160 - 0
locations/018_MenuLoc

@@ -0,0 +1,160 @@
+# MenuLoc
+if $ARGS[0] = 'ot':
+	$zapis += ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'ot2':
+	$zapis2 += ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'ot3':
+	$zapis3 += ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'ot4':
+	$zapis += ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'ot5':
+	$zapis5 += ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'ot6':
+	$zapis6 += ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'ot7':
+	$zapis7 += ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'ot8':
+	$zapis8 += ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'ot9':
+	$zapis9 += ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'ot10':
+	$zapis10 += ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'zapisosn':
+	$zapisOsn += '<<day>> <<$month>>. <<$week>>. '
+	$zapisOsn += input("What do you want to record?")
+	gs 'stat'
+end
+
+if $ARGS[0] = 'zapis':
+	$zapis += input("What do you want to record?")
+	gs 'stat'
+end
+
+
+if $ARGS[0] = 'zapis2':
+	$zapis2 += input("What do you want to record?")
+	gs 'stat'
+end
+
+if $ARGS[0] = 'zapis3':
+	$zapis3 += input("What do you want to record?")
+	gs 'stat'
+end
+
+if $ARGS[0] = 'zapis4':
+	$zapis4 += input("What do you want to record?")
+	gs 'stat'
+end
+
+if $ARGS[0] = 'zapis5':
+	$zapis5 += input("What do you want to record?")
+	gs 'stat'
+end
+
+if $ARGS[0] = 'zapis6':
+	$zapis6 += input("What do you want to record?")
+	gs 'stat'
+end
+
+if $ARGS[0] = 'zapis7':
+	$zapis7 += input("What do you want to record?")
+	gs 'stat'
+end
+
+if $ARGS[0] = 'zapis8':
+	$zapis8 += input("What do you want to record?")
+	gs 'stat'
+end
+
+if $ARGS[0] = 'zapis9':
+	$zapis9 += input("What do you want to record?")
+	gs 'stat'
+end
+
+if $ARGS[0] = 'zapis10':
+	$zapis10 += input("What do you want to record?")
+	gs 'stat'
+end
+
+
+if $ARGS[0] = 'diszapis':
+	$zapis = ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'diszapis2':
+	$zapis2 = ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'diszapis3':
+	$zapis3 = ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'diszapis4':
+	$zapis4 = ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'diszapis5':
+	$zapis5 = ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'diszapis6':
+	$zapis6 = ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'diszapis7':
+	$zapis7 = ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'diszapis8':
+	$zapis8 = ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'diszapis9':
+	$zapis9 = ''
+	gs 'stat'
+end
+
+if $ARGS[0] = 'diszapis10':
+	$zapis10 = ''
+	gs 'stat'
+end
+
+--- MenuLoc ---------------------------------

+ 0 - 11
locations/018_MenuMainLoc

@@ -1,11 +0,0 @@
-# MenuMainLoc
-if $ARGS[0] = '0':
-ETOmenu = 0
-gs 'stat'
-end
-if $ARGS[0] = '1':
-ETOmenu = 1
-gs 'stat'
-end
---- MenuMainLoc ---------------------------------
-

+ 12 - 0
locations/019_MenuMainLoc

@@ -0,0 +1,12 @@
+# MenuMainLoc
+if $ARGS[0] = '0':
+	ETOmenu = 0
+	gs 'stat'
+end
+
+if $ARGS[0] = '1':
+	ETOmenu = 1
+	gs 'stat'
+end
+
+--- MenuMainLoc ---------------------------------

+ 0 - 55
locations/019_oral

@@ -1,55 +0,0 @@
-# oral
-if $ARGS[0] = 'start':
-frost = 0
-'You little fingers caress <<dick>> centimeter term then cupped his mouth and began to suck.'
-	if harakBoy = 0:
-	'<<$nameV>> closed his eyes in pleasure and enjoying the caress of your lips.'
-	end
-	if harakBoy = 1:
-	'<<$nameV>> staring you in the face until your lips glide over his hard dick.'
-	end
-	if harakBoy = 2:
-	if mop > 1: set mop = 0
-	set hapri = 0
-	set throat += 1
-	'<<$nameV>> 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
-
-	if horny >= 100:
-	set VAF += 1
-	set orgasm += 1
-	set horny = 20
-	set manna += 15
-	set willpower += 15
-	set lipkoef += 1
-		if lipkoef > 50:
-		set lipkoef = 0
-		set 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.'
-	end
-'Finally <<$nameV>> groaned and you realize that now he will start to finish.'
-end
-
-if $ARGS[0] = '0':
-
-	set horny += throat + SUB + VAF - DOM
-
-	if horny >= 100:
-	set VAF += 1
-	set orgasm += 1
-	set horny = 20
-	set manna += 15
-	set willpower += 15
-	set lipkoef += 1
-		if lipkoef > 50:
-		set lipkoef = 0
-		set 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.'
-	end
-
-end
---- oral ---------------------------------
-

+ 56 - 0
locations/020_oral

@@ -0,0 +1,56 @@
+# oral
+if $ARGS[0] = 'start':
+	frost = 0
+	'You little fingers caress <<dick>> centimeter term then cupped his mouth and began to suck.'
+
+	if harakBoy = 0:'<<$nameV>> closed his eyes in pleasure and enjoying the caress of your lips.'
+	if harakBoy = 1:'<<$nameV>> 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
+		'<<$nameV>> 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
+
+	if horny >= 100:
+		set VAF += 1
+		set orgasm += 1
+		set horny = 20
+		set manna += 15
+		set willpower += 15
+		set lipkoef += 1
+
+		if lipkoef > 50:
+			set lipkoef = 0
+			set 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.'
+	end
+
+	'Finally <<$nameV>> groaned and you realize that now he will start to finish.'
+end
+
+if $ARGS[0] = '0':
+	set horny += throat + SUB + VAF - DOM
+
+	if horny >= 100:
+		set VAF += 1
+		set orgasm += 1
+		set horny = 20
+		set manna += 15
+		set willpower += 15
+		set lipkoef += 1
+
+		if lipkoef > 50:
+			set lipkoef = 0
+			set 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.'
+	end
+end
+--- oral ---------------------------------

+ 0 - 202
locations/020_orgazm

@@ -1,202 +0,0 @@
-# orgazm
-if $ARGS[0] = 'start':
-!set protect = 0
-set vidageday -= 1
-frost = 0
-	if tabletki <= 0 and prezik > 0 and prosta = 0 and NoCondomUse = 0 and usecondom = 0:
-	set prezik -= 1
-	set protect = 1
-	'You gave the guy a condom and he dressed him in silence.'
-	end
-
-	if tabletki >= 0 and prezik > 0 and prosta > 0 and NoCondomUse = 0 and usecondom = 0:
-	set prezik -= 1
-	set protect = 1
-	end
-
-	if tabletki <= 0 and prezik > 0 and NoCondomUse = 0 and usecondom = 0:
-	set prezik -= 1
-	set protect = 1
-	end
-	usecondom = 0
-
-	if mesec > 0:
-	!месячные, оргазм не возможен
-	set horny = 0
-	set manna -= 10
-	set 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:
-	!месячных нет
-	!horny - возбужденность
-	!vagina - эластичность вагины
-	!silavag - умение парня 0-неумеха, 1-середняк 2-ебарь
-	!dick - размер члена парня
-	!orgazm - коэфициент удовольствия Итог
-	!0 - очень больно, 1 - больно, 2 - не приятно, 3 - так себе, 4 - недооргазм 5 - оргазм
-	set smazka = horny/10
-	set prinat = smazka + vagina
-		if dick >= prinat * 2:
-		!член критично больше возможностей гг
-			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:
-				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
-			end
-		end
-
-		if dick <= prinat and dick >= vagina:
-		!член меньше возможностей гг
-			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
-			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:
-			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
-			end
-		end
-
-		if orgazm = 0:
-		set horny = 0
-		set manna -= 15
-		set willpower -= 15
-		'You groaned in pain when <<$nameV>> 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
-		'You bite my lip in pain when <<$nameV>> 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
-		'You winced at the sudden pain when <<$nameV>> 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
-		'You startled by the feeling that your pussy is stretched when <<$nameV>> 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
-		'You startled by the feeling that your pussy is stretched when <<$nameV>> you entered. Between the legs becomes a little pleased when strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and ripple grow 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
-		'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. Gradually a pleasant warmth and ripple grow in the lower abdomen, and then the feeling came down on you and your whole body cover hot waves of orgasm, you can not help screaming pleasure writhing on edge.'
-		end
-		if orgazm = 6:
-		set horny += 5
-		set manna += 5
-		set willpower += 5
-		'You feel as a member enters your pussy when <<$nameV>> you entered. Between the legs nicely, but a member of your pussy significantly less and <<dick>> inches enough for you. Gradually a pleasant warmth and ripple grow 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
-	'You bite my lip in pain and tears gushed from his eyes when <<$nameV>> you entered, breaking your hymen. You moan while weeping and strong <<dick>> centimeter dick fucks your bloody pussy.'
-	end
-
-	if protect ! 1:
-	!не защищенный секс
-	set finrand = RAND(0,1)
-		if finrand = 0:
-		!внутрь
-		set cumpussy += 1
-		'<<$nameV>> 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
-			'Hell, because after all, you can fly, you thought with horror.'
-			end
-		end
-		if finrand = 1:
-		!наружу
-			if pose = 0:
-			set cumbelly += 1
-			'<<$nameV>> groaned and removing a member of you finished your stomach.'
-			end
-			if pose = 1:
-			set cumass += 1
-			'<<$nameV>> groaned and removing a member of you finished on your ass.'
-			end
-		end
-	end
-	if protect = 1:
-	set protect = 0
-	'<<$nameV>> groaned and you realized that he had finished in the condom.'
-	end
-set pose = 0
-end
---- orgazm ---------------------------------
-

+ 223 - 0
locations/021_orgazm

@@ -0,0 +1,223 @@
+# orgazm
+if $ARGS[0] = 'start':
+	set protect = 0
+	set vidageday -= 1
+	frost = 0
+
+	if tabletki <= 0 and prezik > 0 and prosta = 0:
+		set prezik -= 1
+		set protect = 1
+		'You gave the guy a condom and he dressed him in silence.'
+	end
+
+	if tabletki >= 0 and prezik > 0 and prosta > 0:
+		set prezik -= 1
+		set protect = 1
+	end
+
+	if tabletki <= 0 and prezik > 0:
+		set prezik -= 1
+		set protect = 1
+	end
+
+	if mesec > 0:
+		!!periods, orgasm is not possible
+		set horny = 0
+		set manna -= 10
+		set 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:
+		!!no monthly
+		!!horny - excitement
+		!!vagina - the elasticity of the vagina
+		!!silavag - skill Man 0-sad_sack, 1-middle_peasant 2-stud
+		!!dick - penis Man
+		!!orgazm - Total coefficient of pleasure
+		!!0 - very painful, 1 - it_hurts, 2 - not nice, 3 - so-so, 4 - nedoorgazm 5 - orgasm
+		set smazka = horny / 10
+		set prinat = smazka + vagina
+
+		if dick >= prinat * 2:
+			!!member of the critical features more years
+			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:
+			!!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
+			end
+		end
+
+		if 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
+			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:
+			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
+			end
+		end
+
+		if orgazm = 0:
+			set horny = 0
+			set manna -= 15
+			set willpower -= 15
+			'You groaned in pain when <<$nameV>> 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
+			'You bite my lip in pain when <<$nameV>> 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
+			'You winced at the sudden pain when <<$nameV>> 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
+			'You startled by the feeling that your pussy is stretched when <<$nameV>> 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
+			'You startled by the feeling that your pussy is stretched when <<$nameV>> you entered. Between the legs becomes a little pleased when strong <<dick>> centimeter dick fucks your pussy. Gradually a pleasant warmth and ripple grow 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
+			'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. Gradually a pleasant warmth and ripple grow in the lower abdomen, and then the feeling came down on you and your whole body cover hot waves of orgasm, you can not help screaming pleasure writhing on edge.'
+		end
+
+		if orgazm = 6:
+			set horny += 5
+			set manna += 5
+			set willpower += 5
+			'You feel as a member enters your pussy when <<$nameV>> you entered. Between the legs nicely, but a member of your pussy significantly less and <<dick>> inches enough for you. Gradually a pleasant warmth and ripple grow 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
+		'You bite my lip in pain and tears gushed from his eyes when <<$nameV>> you entered, breaking your hymen. You moan while weeping and strong <<dick>> centimeter dick fucks your bloody pussy.'
+	end
+
+	if protect ! 1:
+		!!unprotected sex
+		set finrand = rand(0, 1)
+
+		if finrand = 0:
+			!!inside
+			set cumpussy += 1
+			'<<$nameV>> 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
+				'Hell, because after all, you can fly, you thought with horror.'
+			end
+		end
+
+		if finrand = 1:
+			!!out
+			if pose = 0:
+				set cumbelly += 1
+				'<<$nameV>> groaned and removing a member of you finished your stomach.'
+			end
+
+			if pose = 1:
+				set cumass += 1
+				'<<$nameV>> groaned and removing a member of you finished on your ass.'
+			end
+		end
+	end
+
+	if protect = 1:
+		set protect = 0
+		'<<$nameV>> groaned and you realized that he had finished in the condom.'
+	end
+
+	set pose = 0
+end
+
+--- orgazm ---------------------------------

+ 0 - 18
locations/021_preg

@@ -1,18 +0,0 @@
-# preg
-if mesec = 0 and preg = 0 and tabletki = 0:
-!нет месячных
-Set pregrand = RAND(0,100)
-	if pregrand + fertBonus >= 93:
-	$father = $boy
-	set preg = 1
-	end
-	if tabletki > 0:
-    Set pregrand = RAND (0,200)
-         if pregrand = 0:
-		 $father=$boy
-		 set preg = 1
-		 end
-     end
-end
---- preg ---------------------------------
-

+ 19 - 0
locations/022_preg

@@ -0,0 +1,19 @@
+# preg
+if mesec = 0 and preg = 0 and tabletki = 0:
+!!no monthly
+set pregrand = rand(0, 100)
+	if pregrand >= 93:
+		$father = $boy
+		set preg = 1
+	end
+	if tabletki > 0:
+		set pregrand = rand(0, 200)
+
+		if pregrand = 0:
+			$father = $boy
+			set preg = 1
+		end
+	end
+end
+
+--- preg ---------------------------------

+ 0 - 15
locations/022_starenie

@@ -1,15 +0,0 @@
-# starenie
-if odetjeans = 1: set jeansH[numdress] -= 1
-if odetyoga = 1: set yogaH[numdress] -= 1
-if odetsarafan = 1: set sarafanH[numdress] -= 1
-if odetshort = 1: set shortH[numdress] -= 1
-if odetskirt = 1: set skirtH[numdress] -= 1
-if odetdress = 1: set dressH[numdress] -= 1
-if odetprofi = 1: set profiH[numdress] -= 1
-if odetpants = 1: set pantsH[numdress] -= 1
-if odetlatex = 1: set latexH[numdress] -= 1
-if odethooker = 1: set hookerH[numdress] -= 1
-if odetkis = 1: set odekisH[numdress] -= 1
-if odetnewclo = 1: set newcloH[numdress] -= 1
---- starenie ---------------------------------
-

+ 15 - 0
locations/023_starenie

@@ -0,0 +1,15 @@
+# starenie
+if odetjeans = 1:set jeansH[numdress] -= 1
+if odetyoga = 1:set yogaH[numdress] -= 1
+if odetsarafan = 1:set sarafanH[numdress] -= 1
+if odetshort = 1:set shortH[numdress] -= 1
+if odetskirt = 1:set skirtH[numdress] -= 1
+if odetdress = 1:set dressH[numdress] -= 1
+if odetprofi = 1:set profiH[numdress] -= 1
+if odetpants = 1:set pantsH[numdress] -= 1
+if odetlatex = 1:set latexH[numdress] -= 1
+if odethooker = 1:set hookerH[numdress] -= 1
+if odetkis = 1:set odekisH[numdress] -= 1
+if odetnewclo = 1:set newcloH[numdress] -= 1
+
+--- starenie ---------------------------------

+ 0 - 1698
locations/023_stat

@@ -1,1698 +0,0 @@
-# stat
-clr
-
-view
-
-gs'dinSex2'
-!1095
-if nippain=2:
-     if nippainday+5<daystart:
-     $nippain='You have greatly hurt nipples.'
-     nippain=1
-     nippainday=daystart
-     end
-     if nippainday+5>=daystart:
-     $nippain='You have greatly hurt nipples.'
-     end
-end
-if nippain=1:
-     if nippainday+5<daystart:
-     $nippain=''
-     nippain=0
-     end
-     if nippainday+5>=daystart:
-     $nippain='You have a little sore nipples.'
-     end
-end
-if painpub=2:
-     if painpubday+5<daystart:
-     $painpub='You have very sore vagina.'
-     painpub=1
-     painpubday=daystart
-     end
-     if painpubday+5>=daystart:
-     $painpub='You have very sore vagina.'
-     end
-end
-if painpub=1:
-     if painpubday+5<daystart:
-     $painpub=''
-     painpub=0
-     painpubday=daystart
-     end
-     if painpubday+5>=daystart:
-     $painpub='You have a little sore vagina.'
-     end
-end
-
-if year=2011 and katjaPreg=0:katjaPreg=1
-
-if analplay>=2 and anus<=10:anus+=1&analplay=0
-if analplay>=4 and anus<=15:anus+=1&analplay=0
-if analplay>=8 and anus<=20:anus+=1&analplay=0
-
-musle[1]=musle
-flex[1]=agil
-stamina[1]=vital*3
-wipo[1]=will
-intel[1]=intel
-krasota[1]=vnesh
-rost[1]=rost
-salo[1]=salo
-fat[1]=fat
-Bteh[1]=bteh
-Uteh[1]=uteh
-Zteh[1]=zteh
-!flex[0]=agil
-!stamina[0]=vital*3
-!krasota[0]=vnesh
-!wipo[0]=will
-
-if nopornowrestling=0:
-nopornowrestling=1
-NPCnum=30
-NPCnow=1
-!shag=1
-gs'npc'
-NoView=1
-NPCrost=30
-gs'generation'
-NoView=1
-NPCrost=30
-gs'generation'
-NoView=1
-NPCrost=30
-gs'generation'
-NoView=1
-NPCrost=30
-gs'generation'
-NoView=1
-NPCrost=30
-gs'generation'
-
-$nikname[1]='schoolgirl'
-!musle[0]=100
-!flex[0]=agil
-!stamina[0]=vital*3
-!wipo[0]=will
-!intel[0]=10
-!krasota[0]=vnesh
-!rost[0]=165
-!salo[0]=100
-!fat[0]=100
-
-!$nikname[1]='steel Virgo'
-!musle[1]=100
-!flex[1]=100
-!stamina[1]=300
-!wipo[1]=50
-!intel[1]=10
-!krasota[1]=10
-!rost[1]=165
-!salo[1]=100
-!fat[1]=100
-
-
-
-
-
-end
-
-if newclo[131] = 1 and SchoolAtestat = 1 or newclo[131] = 1 and SchoolBlock = 1: newclo[131] = 0
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Automatic Stuff
-if AutoMakeupType < 2: AutoMakeupType = 2
-if AutoHapri = 1 and greben > 0 and hapri = 0 and InSleep = 0:
-	set hapri = 1
-	'You brush your hair.'
-end
-
-if $HouseLocation = '':$HouseLocation = 'street'
-if housr = 1: housr['Street'] = 1
-if AutoMakeup = 1 and kosmetitka > 0 and mop = 1 and InSleep = 0 and (AutoMakeupSleep = 1 or (AutoMakeupSleep = 0 and HasWashed = 0)):
-	set mop = AutoMakeupType
-	if $CurLoc = vanr or $CurLoc = vanrPar or bag > 0:
-		if kosmetica < 3 and mop = 4: set mop = 3
-		if kosmetica < 2 and mop = 3: set mop = 2
-		if kosmetica < 1 and mop ! 1:
-			set mop = 1
-			'You have no make-up left.'
-		else
-			if mop = 2:
-				'You apply just enough make-up to touch up a few spots.'
-				set kosmetica -= 1
-			end
-			if mop = 3:
-				'You apply an amount of make-up, that should pass as an everyday-like setup.'
-				set kosmetica -= 2
-			end
-			if mop = 4:
-				'You apply an amount of make-up, that others usually wear, when they go out.'
-				set vidageday -= 1
-				set kosmetica -= 3
-			end
-		end
-	else
-		if kosmetitka < 3 and mop = 4: set mop = 3
-		if kosmetitka < 2 and mop = 3: set mop = 2
-		if kosmetitka < 1 and mop ! 1:
-			set mop = 1
-			'You have no make-up left.'
-		else
-			if mop = 2:
-				'You apply just enough make-up to touch up a few spots.'
-				set kosmetitka -= 1
-			end
-			if mop = 3:
-				'You apply an amount of make-up, that should pass as an everyday-like setup.'
-				set kosmetitka -= 2
-			end
-			if mop = 4:
-				'You apply an amount of make-up, that others usually wear, when they go out.'
-				set vidageday -= 1
-				set kosmetitka -= 3
-			end
-		end
-	end
-end
-
-if AutoVibrator = 1 and vibrator = 1 and vibratorIN=0:
-	if $CurLoc = vanr or $CurLoc = vanrPar:
-		set vibratorIN = 1
-		if vagina < 30:
-			set vagina = vagina + 2
-		end
-	end
-end
-
-if AutoButtPlug = 1 and analplug = 1 and analplugIN = 0:
-	if $CurLoc = vanr or $CurLoc = vanrPar:
-		set analplugIN = 1
-		if anus < 30:
-			set anus = anus + 5
-		end
-	end
-end
-
-if AutoEnema = 1 and klismaday ! day:
-	if $CurLoc = vanr or $CurLoc = vanrPar:
-		!set minut = minut + 5
-		set klismaday = day
-		set klismaday1= 1
-		set AEnema = 0
-		!'You put yourself an enema and clean intestines, now your ass ready for anal sex.'
-	end
-end
-
-if lipbalm > 0 and lipbalmstat <= 0 and AutoLipBalm = 1:
-	set minut -= 10
-	set lipbalm -= 1
-	set lipkoef += RAND(5,15)
-	if lipkoef > 50:
-		set lipkoef = 0
-		set lip += 1
-	end
-	set lipbalmstat += 8
-	'You apply a lip balm, to moisterize them.'
-end
-
-if AutoVitamins=1:
-	if vitamin>0 and vitaminday!day:
-		vitaminday=day
-		vitamin-=1
-		frost=0
-		if KandidozOnce=1:Kandidoz-=2
-		if GerpesOnce=1:Gerpes-=2
-		if SifacOnce=1 and Sifilis>=10:Sifilis-=RAND(0,1)
-		set skinvan = skinvan + 1
-		if skinvan = 20:set skinvan = 0&set skin = skin + 1
-	end
-end
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!DeX Cheats
-if cheatNewMovieDay = 1:
-	if pffilmday ! -1: pffilmday = -1
-end
-if cheatNewPhotoDay = 1:
-	if modelmon = month: modelmon = month - 1
-end
-if cheatYoungForever = 1:
-	if vidageday ! 300: vidageday = 300
-end
-if cheatHealthMaxed = 1:
-	set tempval = vital * 10 + stren * 5 + 1000
-	if health ! tempval: health = tempval
-end
-if cheatWillMaxed = 1:
-	set tempval = intel * 5 + will * 5 + 1000
-	if willpower ! tempval: willpower = tempval
-end
-if cheatManaMaxed = 1:
-	set tempval = (intel * magik) + magik * 100 + vital * 10 + rikudo
-	if manna ! tempval: manna = tempval
-end
-if cheatNeverHorny = 1:
-	if horny ! 0: horny = 0
-end
-if cheatModelStudent = 1:
-	if suspeh ! 100: suspeh = 100
-end
-if freezetime = 1:
-	if hour ! dctth: hour = dctth
-	if minut ! dcttm: minut = dctth
-end
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Author Cheats
-if cheatHapri = 1: hapri = 1
-if cheatNomakeup = 1:
-if mop = 0: mop = 1
-end
-
-if cheatNosweat = 1 and sweat > -3: set sweat = -3
-if cheatNoEat = 1:
-if energy ! 19: energy = 19
-if water ! 19: water = 19
-end
-
-if cheatAlwaysHorny=1:
-	if horny ! 100: horny = 100
-end
-
-if cheatNoLegHair=1:
-	if leghair ! 0: leghair = 0
-end
-
-if cheatNoPussyHair=1:
-	if lobok ! 0: lobok = 0
-end
-
-if cheatNeverTired=1:
-	if son < 25: son = 25
-end
-
-if cheatNeverThirsty=1:
-	if water < 25: water = 25
-end
-
-if cheatNeverHungry=1:
-	if energy < 25: energy = 25
-end
-
-if cheatAlwaysVirgin=1:
-	if vagina ! 0: vagina = 0
-end
-
-if cheatVaginaHealth=1:
-	if mosol ! 0: mosol = 0
-end
-
-if cheatAlwaysMarried=1:
-	if husband ! 100: husband = 100
-end
-
-if cheatNoSTDs=1:
-	if venera ! 0: venera = 0
-	if GerpesOnce ! 0: GerpesOnce = 0
-	if Gerpes ! 0: Gerpes = 0
-	if SifacOnce ! 0: SifacOnce = 0
-	if Sifilis ! 0: Sifilis = 0
-	if KandidozOnce ! 0: KandidozOnce = 0
-	if Kandidoz ! 0: Kandidoz = 0
-	if TriperOnce ! 0: TriperOnce = 0
-	if Triper ! 0: Triper = 0
-end
-
-if cheatNoSweat=1:
-	if sweat ! -3: sweat = -3
-end
-
-if cheatNoPeriods=1:
-	if mesec ! 0: mesec = 0
-end
-
-if cheatBrushedHair=1:
-	if hapri ! 1: hapri = 1
-end
-
-if cheatAlwaysMakeup=1:
-	if kosmetica=0:kosmetica+=50
-	if cheatMakeupSelect=1:set mop=1
-	if cheatMakeupSelect=2:set mop=2
-	if cheatMakeupSelect=3:set mop=3
-	if cheatMakeupSelect=4:set mop=4
-end
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!TRACKER
-if $DBCurLoc ! $CURLOC:
-	i = arrsize ('$DBPrevLoc')
-	if i = 20:
-		killvar '$DBPrevLoc', 0
-	end
-	$DBPrevLoc[i] = $DBCurLoc
-	$DBCurLoc = $CURLOC
-end
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-if alko > 0 and frost > 0: frost = 0
-
-if lernSkill >= 8: intel += 1 & lernSkill = 0
-
-if numdress ! 131 and Sforma > 0: set Sforma = 0
-if numdress = 131 and Sforma = 0: set Sforma = 1
-
-if lern >= 10: intel += 1 & lern = 0
-
-if GorSlut = 1:$gnikname = 'flirt'
-if GorSlut = 2:$gnikname = 'easy A'
-if GorSlut = 3:$gnikname = 'cocksucker'
-if GorSlut = 4:$gnikname = 'sex addict'
-if GorSlut = 5:$gnikname = 'slut'
-if GorSlut = 6:$gnikname = 'talking pussy'
-
-if GorSlut>=2:KatjaKnowBJ=1
-if GorSlut>=1 or preg>0:KatjaKnowSex=1
-
-	if film > 0 and kompromatLife < 10:
-	!порноактрисса
-	if kompromatLife < 10: kompromatLife = 10
-	$kompromatFoto = 'This photo is a screenshot from one of the porn movies you were part of.'
-	end
-	if fotoyousuck = 1 and kompromatLife < 9:
-	!сосала в паре у парней и была сфотографированна
-	if kompromatLife < 9: kompromatLife = 9
-	$kompromatFoto = 'These pictures show you sucking two cocks at the same time.'
-	end
-	if fotoCFNMsex > 0 and kompromatLife < 8:
-	kompromatLife = 8
-	$kompromatFoto = 'In this photo you see yourself getting fucked from behind by a random guy. This must have been taken in the stripclup.'
-	end
-	if fotoCFNMblowjobCum > 0 and kompromatLife < 7:
-	!кончили на лицо в стрипклубе
-	kompromatLife = 7
-	$kompromatFoto = 'In this photo you are sitting infront of a guy, kissing his cock. There seems to be cum in your face. This photo must have been taken in the stripclub.'
-	end
-	if fotoCFNMblowjob > 0 and kompromatLife < 6:
-	!сосала на глазах у всех
-	kompromatLife = 6
-	$kompromatFoto = 'In this photo you are giving a guy a blowjob. You can spot a group of women in the background and it seems like this photo was taken in the stripclub.'
-	end
-
-	if stripdancesum > 0 and kompromatLife < 2:
-	!стриптизерша
-	if kompromatLife < 2: kompromatLife = 2
-	$kompromatFoto = 'In this photo you are dancing on a pole, obviously someone photographed you, while you were on stage at the stripclub.'
-	end
-	if modelfoto > 0 and kompromatLife < 1:
-	!фото модель
-	if kompromatLife < 1: kompromatLife = 1
-	$kompromatFoto = 'These are photos of you being naked, when you were taking pictures at the model agence.'
-	end
-
-
-shameless = guy + bj + anal + hj+(slutty * 2)+(gang * 2)
-moneySUM = money + karta + stolmoney
-cumSUM = cumbelly + cumpussy + cumass + cumlip + cumface + cumfrot + cumanus
-
-gs 'dina'
-gs 'din2'
-
-if husbizvradd > 5: izvratH = 1
-if husbharmin > 10: harakHusb = 0
-if clrbelo <= 0: clrbelo = 0 & tanga = 0
-
-if husband = 0:
-	set husbizvradd = 0
-	set husbharmin = 0
-	set husbandMark = 0
-	set houseslut = 0
-end
-
-if SNarkvnesh = 0: SNarkvnesh = 1
-if SNarkTimes >= SNarkvnesh * 25:
-	SNarkvnesh += 1
-	vidage += 1
-end
-
-if gopota >= 20 and gnewQW = 1: set gnewQW = 2
-
-if horny > hornyStat:
-	hornyStat = horny
-	if pirsA > 0:
-		horny += 1
-	end
-	if pirsB > 0:
-		horny += 1
-	end
-	if pirsC > 0:
-		horny += 1
-	end
-	if pirsD > 0:
-		horny += 1
-	end
-	if pirsE > 0:
-		horny += 1
-	end
-	if pirsF > 0:
-		horny += 5
-	end
-	if pirsG > 0:
-		horny += 5
-	end
-	if pirsN > 0:
-		horny += 1
-	end
-end
-
-if horny < hornyStat:
-	hornyStat = horny
-end
-
-if workDisk = 4 and week > 5: workDisk = 1
-if workDisk = 3 and week > 5: workDiskAtkPlayer = 1
-
-
-VeneraN = 0
-if VeneraOnce > 0: VeneraOnce = 0
-if SifacOnce = 1: VeneraN += 1
-if GerpesOnce = 1: VeneraN += 1
-if TriperOnce = 1: VeneraN += 1
-Venera = VeneraN
-
-if fat < 0: fat = 0
-if vokal < 0: vokal = 0
-if vokal > 100: vokal = 100
-if dance > 100: dance = 100
-if stripdance > 100: stripdance = 100
-if poledance > 100: poledance = 100
-if dancePRO > 100: dancePRO = 100
-if bfa < 0: bfa = 0
-
-if painQW = 0: set painweather = 6
-
-if beg < 0: set beg = 0
-if beg > 2000: set beg = 2000
-
-if oficiant > 100: set oficiant = 100
-if vagina > 30: set vagina = 30
-if throat > 30: set throat = 30
-if anus > 30: set anus = 30
-
-if Jab > 120: set Jab = 120
-if Punch > 120: set Punch = 120
-if Kik > 120: set Kik = 120
-if KikDef > 120: set KikDef = 120
-
-
-if nark >= 30 and narkoman = 0:
-	set narkoman = 1
-end
-if nark = 0 and narkoman = 0:
-	set narkoman = 0
-end
-
-set boxing = Jab + Punch + Kik + KikDef
-if boxing > 100: set boxing = 100
-
-if stren > 100 and mutagenP = 0: set stren = 100
-if speed > 100 and mutagenS = 0: set speed = 100
-if agil > 100 and mutagenA = 0: set agil = 100
-if react > 100 and mutagenR = 0: set react = 100
-if vital > 100 and mutagenV = 0: set vital = 100
-if will > 100 and mutagenW = 0: set will = 100
-if intel > 100 and mutagenI = 0 and student = 0 and diplom = 0: set intel = 100
-
-if stren > 150 and mutagenP = 1: set stren = 150
-if speed > 150 and mutagenS = 1: set speed = 150
-if agil > 150 and mutagenA = 1: set agil = 150
-if react > 150 and mutagenR = 1: set react = 150
-if vital > 150 and mutagenV = 1: set vital = 150
-if will > 150 and mutagenW = 1: set will = 150
-if intel > 150 and mutagenI = 1 and student = 0 and diplom = 0: set intel = 150
-
-if stren > 200 and mutagenP = 2: set stren = 200
-if speed > 200 and mutagenS = 2: set speed = 200
-if agil > 200 and mutagenA = 2: set agil = 200
-if react > 200 and mutagenR = 2: set react = 200
-if vital > 200 and mutagenV = 2: set vital = 200
-if will > 200 and mutagenW = 2: set will = 200
-if intel > 200 and mutagenI = 2 and student = 0 and diplom = 0: set intel = 200
-
-if stren > 250 and mutagenP = 3: set stren = 250
-if speed > 250 and mutagenS = 3: set speed = 250
-if agil > 250 and mutagenA = 3: set agil = 250
-if react > 250 and mutagenR = 3: set react = 250
-if vital > 250 and mutagenV = 3: set vital = 250
-if will > 250 and mutagenW = 3: set will = 250
-if intel > 250 and mutagenI = 3 and student = 0 and diplom = 0: set intel = 250
-if intel > 250: set intel = 250
-
-if MagikDostup = 0:
-	$levelUpString = '<B>Do you feel like that might be revealed within you and you gushed magic, lifting you to a new energy level.</B>'
-	if orgasm >= 1 and magik < 1: set magik = 1 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
-	if orgasm >= 2 and magik < 2: set magik = 2 & set resnic += 1 & set rikudo += 500 & pl $levelUpString
-	if orgasm >= 4 and magik < 3: set magik = 3 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
-	if orgasm >= 8 and magik < 4: set magik = 4 & set resnic += 1 & set rikudo += 500 & pl $levelUpString
-	if orgasm >= 16 and magik < 5: set magik = 5 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
-	if orgasm >= 32 and magik < 6: set magik = 6 & set resnic += 1 & set rikudo += 1000 & pl $levelUpString
-	if orgasm >= 64 and magik < 7: set magik = 7 & set glaraz += 1 & set rikudo += 1000 & pl $levelUpString
-	if orgasm >= 100 and magik < 8: set magik = 8 & set rikudo += 1000 & pl $levelUpString
-	if orgasm >= 200 and magik < 9: set magik = 9 & set rikudo += 1000 & pl $levelUpString
-	if orgasm >= 300 and magik < 10: set magik = 10 & set rikudo += 2000 & pl $levelUpString
-	if orgasm >= 400 and magik < 11: set magik = 11 & set rikudo += 4000 & pl $levelUpString
-	if orgasm >= 500 and magik < 12: set magik = 12 & set rikudo += 4000 & pl $levelUpString
-	if orgasm >= 600 and magik < 13: set magik = 13 & set rikudo += 4000 & pl $levelUpString
-	if orgasm >= 700 and magik < 14: set magik = 14 & set rikudo += 4000 & pl $levelUpString
-	if orgasm >= 800 and magik < 15: set magik = 15 & set rikudo += 8000 & pl $levelUpString
-	if orgasm >= 900 and magik < 16: set magik = 16 & set rikudo += 8000 & pl $levelUpString
-	if orgasm >= 1000 and magik < 17: set magik = 17 & set rikudo += 8000 & pl $levelUpString
-	if orgasm >= 1100 and magik < 18: set magik = 18 & set rikudo += 8000 & pl $levelUpString
-	if orgasm >= 1200 and magik < 19: set magik = 19 & set rikudo += 8000 & pl $levelUpString
-	if orgasm >= 1300 and magik < 20: set magik = 20 & set rikudo += 16000 & pl $levelUpString
-	if orgasm >= 1400 and magik < 20: set magik = 21 & set rikudo += 21000 & pl $levelUpString
-end
-
-if exhibi >= 4: pl '<B>You opened a new outfit ready</B>'
-
-if SUB >= DOM and DOM > 0: set SUB -= DOM & set DOM = 0
-if DOM >= SUB and SUB > 0: set DOM -= SUB & set SUB = 0
-
-
-if horny < 0: set horny = 0
-if health > vital*10 + stren*5: set health = vital * 10 + stren * 5
-if willpower > intel*5 + will*5: set willpower = intel * 5 + will * 5
-if manna > (intel*magik) + magik*100 + vital*10 + rikudo: set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
-set mannamax = (intel * magik) + magik * 100 + vital * 10 + rikudo
-!set musle = strenbuf + vitalbuf
-if vidageday <= 0:
-	set vidageday = 360
-	set vidage += 1
-end
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!TIME
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-if nminut ! minut:
-	!totminut = playing time in minutes
-	totminut += minut
-	nminut = minut
-end
-
-if vgape > 0:
-	if vgape = 3:
-	if manna>(mannamax/4):manna = mannamax/4
-	end
-	if vgape = 2:
-	if manna>(mannamax/2):manna = mannamax/2
-	end
-end
-
-if agape > 0:
-	if agape = 3:
-	if manna>(mannamax/6):manna = mannamax/6
-	end
-	if agape = 2:
-	if manna>(mannamax/3):manna = mannamax/3
-	end
-end
-
-if vgape > 0:
-	if vgapetime+1500 <= totminut:
-	if vgape = 1: vgape = 0
-	if vgape = 2: vgape = 1 & vgapetime = totminut
-	if vgape = 3: vgape = 2 & vgapetime = totminut
-	end
-end
-
-if agape > 0:
-	if agapetime+2500 <= totminut:
-	if agape = 1: agape = 0
-	if agape = 2: agape = 1 & agapetime = totminut
-	if agape = 3: agape = 2 & agapetime = totminut
-	end
-end
-
-if sec >= 60:
-:loopsec
-minut+= 1
-	sec -= 60
-	if sec >= 60:
-	jump 'loopsec'
-	end
-end
-
-if minut >= 60:
-:loopmin
-if SbrosNerdism=1:nerdism-=((will/10)+orgasm)
-if nerdism<0:nerdism=0
-	if CompCheckedResponses = 1:
-		CompCheckedResponses = 0
-		if obkvsdam['Street']>0: set obkvsdam['Street'] = RAND(2,5)
-		if obkvsdam['Down']>0: set obkvsdam['Down'] = RAND(2,5)
-		if obkvsdam['Nord']>0: set obkvsdam['Nord'] = RAND(2,5)
-	end
-	
-	set hour += 1
-	set energy -= 1
-	set water -= 1
-	set son -= 1
-	set minut -= 60
-
-	if alko > 0:
-		if alko >= 4:
-		if beg > 0: beg -= 1
-		if volleyboll > 0: volleyboll -= 1
-			if alko >= 6:
-			if stren > 10: stren -= 1 & salo += 3
-			if vital > 10: vital -= 1 & salo += 3
-			if intel > 10: intel -= 1
-			end
-		end
-		alko -= 1
-	end
-
-	 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-     !!!!!!!!!!!!!!!!Avtoboy
-     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-     if hour>=8 and hour<=23 and NPCnum>10:
-     :markturnirotbort
-	 xf=0
-	 :markturnirotbortt
-	 xf+=1
-	 turnirFighter[xf]=RAND(2,NPCnum)
-	 if xf<2:jump'markturnirotbortt'
-	 if turnirFighter[1]=turnirFighter[2]:jump'markturnirotbort'
-	 a=turnirFighter[1]
-	 i=turnirFighter[2]
-	 NoView=1
-	 !gs 'autofight'
-     end
-     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-	
-	if shame > 0: shame -= 1 & manna -= 5
-	if smoker >= 20: smokerNeed += 1
-	if smokerNeed > 10 and InSleep = 0: manna -= manna * 10/100
-	if smokerNeed > 300: smokerNeed = 0 & smoker = 0
-	if StrongNarkota > 0: StrongNarkota -= 1
-	if SLomka > 0: SLomka += 1 & manna -= 500
-	if SLomka > 100 and StrongNarkota <= 0: SLomka = 0 & SNarkTimes = 0
-	set LCWorkRand = RAND(1,6)
-
-	if narkoman = 1 and narkday ! day:
-		set health -= 5
-		set willpower -= 5
-		set manna -= 10
-	end
-
-	if tanga = 0 and ski =0 or glamur = 0 and tanga = 0:
-		if nude = 0: mosolpred += 1
-	end
-
-	if mosolpred >= 10:
-		set mosol += 1
-		set mosolpred -= 10
-	end
-
-	if mosol >= 50:
-		manna -= 5
-	end
-
-	if energy >= 25: energy -= 5 & fat += 1
-
-	if tanga = 1 and mosol > 0: mosol -= 1
-	if lipbalmstat > 0: lipbalmstat -= 1
-	if sickstage = 1: sick += 1 & sicktimer += 1
-	if sickstage = 1 and sicktimer >= 80: sicktimer = 0 & sickstage = 2
-	if sickstage = 2 and sick > 0: sick -= 1
-	if sickstage = 2 and sick <= 0: sick = 0 & sickstage = 0
-	if perkice > 0: perkice -= 1
-	if frost > 0: frost -= 1
-
-	if KGOLpers > 0:
-		if KGHP < KGHPMAX: KGHP += 10
-		if KGManna < KGMannaMax: KGManna += 10
-	end
-if minut >= 60:
-     jump 'loopmin'
-     end
-end
-
-if hour >= 24:
-	if KatjaOTN > 0:
-		if KatjaHorny > 0: KatjaHorny -= rand(1,3)
-		if KatjaHorny < 0: KatjaHorny = 0
-		if KatjaHorny >= 100: KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
-	end
-
-	if volleysostav > 0: trenerepa -= 1
-
-	if birthday = day and birthmonth = month:
-		!день рождения
-		set age += 1
-		set vidage += 1
-	end
-
-	 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-     !!!!!!!!!!!!generation
-     if NPCnum<290:
-     NPCnow=NPCnum
-     NPCnum+=RAND(1,3)
-     gs'npc'
-     end
-     if NPCnum>=290 and NPCnum<300:
-     NPCnow=NPCnum
-     NPCnum+=1
-     gs'npc'
-     end
-     !End generation
-     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-	
-	if kanikuli = 0: Suspeh -= 1
-	set dmishaevent = 0
-
-	if BuyHous['Street'] = 2 and ArendHouseSL['Street'] <= 0: ArendHouseSL['Street'] = 0 & BuyHous['Street'] = 0 & housr['Street'] = 0
-	if BuyHous['Street'] = 2 and ArendHouseSL['Street']>0: ArendHouseSL['Street'] -= 1
-	if BuyHous['Down'] = 2 and ArendHouseSL['Down'] <= 0: ArendHouseSL['Down'] = 0 & BuyHous['Down'] = 0 & housr['Down'] = 0
-	if BuyHous['Down'] = 2 and ArendHouseSL['Down']>0: ArendHouseSL['Down'] -= 1
-	if BuyHous['Nord'] = 2 and ArendHouseSL['Nord'] <= 0: ArendHouseSL['Nord'] = 0 & BuyHous['Nord'] = 0 & housr['Nord'] = 0
-	if BuyHous['Nord'] = 2 and ArendHouseSL['Nord']>0: ArendHouseSL['Nord'] -= 1
-
-	if Gspravka <= 0 and GspravkaT > 0: GspravkaT = 0 & Gspravka = 0
-	if GspravkaT > 0: Gspravka -= 1
-	if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30: IvanPodstavaQW = 3
-	if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30: PodpiskaNeviezd += 1
-
-	if salo > fat:
-		salo -= 1
-		fat += 1
-	end
-
-	if salo < fat:
-		salo += 1
-		fat -= 1
-	end
-
-	if strenbuf > stren: set strenbuf -= 1
-	if strenbuf < stren: set strenbuf += 1
-	if vitalbuf > vital: set vitalbuf -= 1
-	if vitalbuf < vital: set vitalbuf += 1
-	if agilbuf > agil: set agilbuf -= 1
-	if agilbuf < agil: set agilbuf += 1
-	if husband > 0 and husbandrink ! 11: set husbandrink = rand(0,10)
-	set inWorkYoungShop = 0
-	set husbandsexday = 0
-	set borsexkol = 0
-	set givisexday = 0
-
-	if shantsr > 0:
-		set pay = shantsr * 5000
-		set karta += pay
-		set shantsr = 0
-	end
-
-	if shantbog > 0:
-		:shantftb
-		set shantftbgrand = rand(0,10)
-		if shantftbgrand > 2:
-			set shantpopala += 1
-			set shantbog -= 1
-			if shantbog > 0: jump 'shantftb'
-		end
-		if shantftbgrand <= 2:
-			set karta += 30000
-			set shantbog -= 1
-			if shantbog > 0: jump 'shantftb'
-		end
-	end
-
-	set petersexday = 0
-	set klismaday1= 0
-	set opusksexday = 0
-
-	:loop
-	set day += 1
-	set daystart += 1
-	set week += 1
-	set hour -= 24
-	!ЗПП
-	if SifacOnce = 1: Sifilis += 1
-	if GerpesOnce = 1: Gerpes += 1
-	if TriperOnce = 1: Triper += 1
-	if KandidozOnce = 1: Kandidoz += 1
-	if beg >= 100 and beg < 1000: beg -= 1
-	if beg >= 1000 and beg < 1500: beg -= 2
-	if beg >= 1500 and beg < 2000: beg -= 3
-	if beg >= 2000: beg -= 4
-
-	set vidageday -= 1
-	if workDolgDay > 0: workDolgDay -= 1
-	if QWdogreiqTimer > 0: QWdogreiqTimer -= 1
-	if husband > 0: husbanday += 1
-	!if kid > 0:kid += 1
-	if husband > 10 and husbanday > 0: husband -= 15
-	if fingal > 0: fingal -= 1
-
-	if husbandMark = 1 and husband <= 10:
-		set husbizvradd = 0
-		set husbharmin = 0
-		set husbandMark = 0
-		set husband = 0
-		set divorced += 1
-		if KFOnLineReaga > 0: KFOnLineReaga -= 1
-		'<B><font color = red>Your husband has filed for a divorce.</font></B>'
-	end
-
-	gs 'cikl'
-
-	if nark > 0:
-		set nark -= 1
-	end
-
-	if pregtime > 10: fat += 1
-
-	if hour >= 24:
-		jump 'loop'
-	end
-end
-
-:loopday
-if month > 12:
-	month -= 12
-	year += 1
-	jump 'loopday'
-end
-
-if day > month_end[month]:
-	day -= month_end[month]
-	month += 1
-	jump 'loopday'
-end
-$month = $month_name[month]
-
-:loopweek
-if week > 7:
-	set week -= 7
-	set husbandrink = 0
-	if military = 1: set military = 0
-	jump 'loopweek'
-end
-$week = $week_name[week]
-
-!payments
-if day = 25:
-	interest = (karta/100)
-	if (interest>0) and (interestPay=0):
-		karta += interest
-		interestPay = 1
-		'<B><font color=green>You have received <<interest>> rubles as interest on your bank account deposit.</font></B>'
-	end
-
-	if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
-	Pay = PersSecWorkTimes * 2500
-	PersSecWorkTimes = 0
-	karta += Pay
-	paydaybistrosec = 1
-	'<B><font color = green>You have received <<pay>> rubles salary for your job as a secretary on your bank account.</font></B>'
-	end
-
-	if workKafe = 1 and paydayKafe = 0:
-	set paydayKafe = 1
-	set pay = smenaKafe * 600
-	set karta += pay
-	set smenaKafe = 0
-	'<B><font color = green>You have received <<pay>> rubles salary for your job as a waitress in a cafe on your bank account.</font></B>'
-	end
-
-	if workhosp = 1 and nopaypoly = 0:
-	set pay = smena * 1000
-	set karta += pay
-	set smena = 0
-	nopaypoly = 1
-	'<B><font color = green>You have received <<pay>> rubles salary for your work in the clinic on your bank account.</font></B>'
-	end
-
-	if worksalon = 1 and nopaysalon = 0:
-	set pay = smena * 800
-	set karta += pay
-	set smena = 0
-	nopaysalon = 1
-	'<B><font color = green>You have received <<pay>> rubles salary for your work in a beauty salon on your bank account.</font></B>'
-	end
-
-	if tanwork = 1 and nopaytanwork = 0:
-	nopaytanwork = 1
-	set karta += 25000
-	'<B><font color = green>You have received a salary of 25,000 rubles for your work as a house maid on your bank account.</font></B>'
-	end
-
-	if workSec = 1 and paydaySec = 0:
-	set paydaySec = 1
-	set pay = sekDay * 800
-	if officebestslut >= 3: set pay += 20000
-	set karta += pay
-	set sekDay = 0
-	'<B><font color = green>You have received <<pay>> rubles salary for your job as a secretary on your bank account.</font></B>'
-	end
-
-	if selfPornVidMoney>0 and paydaySelfPorn=0:
-		set paydaySelfPorn=1
-		set karta += selfPornVidMoney
-		'<B><font color = green>You have received <<selfPornVidMoney>> rubles on your bank account for your self-made porn videos.</font></B>'
-		set selfPornVidMoney=0
-	end
-
-	if husband > 0 and paydayHusb = 0:
-	paydayHusb = 1
-		if husbFin = 0: huspay = 15000
-		if husbFin = 1: huspay = 25000
-		if husbFin = 2: huspay = 40000
-		karta += huspay
-		'<B><font color = green>Your husband has sent you <<huspay>> rubles to your bank account.</font></B>'
-	end
-
-	if stipuha = 1 and stipuhaday = 0: set stipuhaday = 1 & set karta += 1200 & '<B><font color = green>You have received 1,200 rubles scholarship on your bank account.</font></B>'
-	if housr = 1 and haday = 0 and ArendHouseSL = 0: set haday = 1 & set karta -= 3000 & '<B><font color = red>You paid 3000 rubles for your apartment.</font></B>'
-	if housr = 1 and electroday = 0:
-		set electroday = 1
-		if elektro >= 800: set elektro = 800 + RAND(0,100)
-		set karta -= elektro
-
-		'<B><font color = red>You paid <<elektro>> for electricity.</font></B>'
-
-		set elektro = 0
-	end
-
-	if housr = 1 and kabel > 0 and kabelday = 0:
-		set kabelday = 1
-		set karta -= 300
-		'<B><font color = red>You have paid 300 rubles for cable TV.</font></B>'
-	end
-else
-	if interestPay = 1: interestPay = 0
-	if paydayHusb = 1: paydayHusb = 0
-	if workKafe = 1 and paydayKafe = 1: set paydayKafe = 0
-	if workSec = 1 and paydaySec = 1: set paydaySec = 0
-	if housr = 1 and haday = 1: set haday = 0
-	if housr = 1 and electroday = 1: set electroday = 0
-	if housr = 1 and kabel > 0 and kabelday = 1: set kabelday = 0
-	if stipuhaday = 1: set stipuhaday = 0
-	if nopaytanwork = 1: nopaytanwork = 0
-	if nopaypoly = 1: nopaypoly = 0
-	if nopaysalon = 1: nopaysalon = 0
-	if paydaybistrosec = 1: paydaybistrosec = 0
-end
-
-if sdaday['Street'] = day and sdamonth['Street'] = month and houserent['Street'] = 1:
-	set houserent['Street'] = 0
-	'<B><font color = red>The term of your residental apartment lease expired.</font></B>'
-end
-if sdaday['Down'] = day and sdamonth['Down'] = month and houserent['Down'] = 1:
-	set houserent['Down'] = 0
-	'<B><font color = red>The term of your downtown apartment lease expired.</font></B>'
-end
-if sdaday['Nord'] = day and sdamonth['Nord'] = month and houserent['Nord'] = 1:
-	set houserent['Nord'] = 0
-	'<B><font color = red>The term of your northern apartment lease expired.</font></B>'
-end
-
-!{
-if kid > 0:
-	if year > yearkid[1] and markyear[1]!year:
-		if monthkid[1] = month and daykid[1] = day:
-		markyear[1] = year
-		kidage[1] += 1
-		end
-	end
-}
-
-if kid > 0:
-	set kI = 1
-	:kidBirthday
-	if year > yearkid[kI] and markyear[kI]!year:
-		if monthkid[kI] = month and daykid[kI] = day:
-			markyear[kI] = year
-			kidage[kI] += 1
-		end
-	end
-	set kI += 1
-	if kI <= numkid:
-		jump 'kidBirthday'
-	end
-end
-
-if numkids > 0:
-	i = 0
-	:agethekids
-	if (kidbornyear2[i] + kidage2[i] + 1) < year: kidage2[i] += 1
-	if (kidbornyear2[i] + kidage2[i]) < year:
-		if kidbornmonth2[i] < month: kidage2[i] += 1
-		if kidbornmonth2[i] = month and kidbornday2[i] <= day: kidage2[i] += 1
-	end
-	i += 1
-	if i < numkids: jump 'agethekids'
-end
-
-if Mud >= totminut:
-	manna = mannamax
-	$mud = 'You feel buoyed.'
-else
-	$mud = ''
-end
-
-if nerdism>0:
-     if lastreadday=daystart:
-	 !<font color=green>You are completely healthy shine and a healthy glow.</font>
-	 manna=mannamax
-	 SbrosNerdism=0
-     $mudnerd='<font color=green>You are lost in a fantasy after reading the book.</font>'
-	 end
-	 
-	 if lastreadday+1=daystart:
-	 !manna=mannamax
-	 SbrosNerdism=0
-     $mudnerd='<font color=black>You a little bored and want to again plunge into a book.</font>'
-	 end
-	 
-	 if lastreadday+2=daystart:
-	 SbrosNerdism=0
-	 if manna>mannamax/2:manna-=10
-     $mudnerd='<font color=red>Do you really want something to read.</font>'
-	 end
-	 
-	 if lastreadday+3<=daystart:
-	 if manna>mannamax/10:manna-=10
-	 SbrosNerdism=1
-     $mudnerd='<font color=red><b>You terribly want at least something to read!!!</b></font>'
-	 end
-	 !$mudnerd+='lastread<<lastread>> totminut<<totminut>> <<totminut-lastread>>'
-else
-SbrosNerdism=0
-$mudnerd=''
-end
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!END OF TIME
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-subage = 0
-:metakasubage
-subage += 10
-if subage + 10 < age:
-	JUMP 'metakasubage'
-else
-	subage = age - subage
-end
-
-if subage = 0 or subage >= 5:
-	$letgoda = 'years'
-elseif subage = 1:
-	$letgoda = 'year'
-else
-	$letgoda = 'year'
-end
-
-subagevne = 0
-:metakasubagevne
-subagevne += 10
-if subagevne + 10 < vidage:
-	JUMP 'metakasubagevne'
-else
-	subagevne = vidage - subagevne
-end
-
-if subagevne ! 1:
-	$letgoda2 = 'years'
-else
-	$letgoda2 = 'year'
-end
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!ENERGY
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-if son < 0:
-	set son = 0
-	set manna -= 5
-end
-
-if energy < 0:
-	set energy = 0
-	set health -= 1
-
-	if fat = 0 and stren + vital > 0:
-		set stren -= 1
-		set vital -= 1
-		set energy += 2
-	end
-
-	if fat = 0 and stren + vital <= 0:
-		set over = 3
-		gt 'gameover'
-		exit
-	end
-
-	if fat > 0:
-		set fat -= 1
-		set energy += 2
-	end
-end
-
-if water < 0:
-	set water = 1
-	set health -= 5
-	set willpower -= 1
-end
-
-if manna <= 0:
-	set manna = 1
-	set health -= 5
-	set willpower -= 5
-	!set fat += 1
-end
-
-if health < 0:
-	set over = 1
-	gt 'gameover'
-	exit
-end
-
-if willpower < 0 and StoryLine = 0:
-	set over = 2
-	gt 'gameover'
-	exit
-end
-
-if saloonce = 0 and opPRE = 0:
-	set saloonce = 1
-	set salo = fat
-	set strenbuf = stren
-	set vitalbuf = vital
-	set agilbuf = agil
-end
-
-gs 'body'
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-if health = vital * 10 + stren * 5: set $health = '<font color = green>You are very healthy.</font>'
-if willpower = intel * 5 + will * 5: set $willpower = '<font color = green>Your mind is clear.</font>'
-if manna = (intel * magik) + magik * 100 + vital * 10 + rikudo: set $manna = '<font color = green>You are in a good mood.</font>'
-
-if health < vital*10 + stren*5 and health >= (vital * 10 + stren * 5)*75/100: set $health = '<font color = blue>You are healthy.</font>'
-if health < (vital*10 + stren*5)*75/100 and health >= (vital * 10 + stren * 5)*50/100: set $health = '<font color = brown>you are not healthy.</font>'
-if health < (vital*10 + stren*5)*50/100 and health >= (vital * 10 + stren * 5)*25/100: set $health = '<font color = red>You are sick.</font>'
-if health < (vital*10 + stren*5)*25/100: set $health = '<font color = red>You are on the verge of death.'
-
-if willpower < intel*5 + will*5 and willpower >= (intel * 5 + will * 5)*75/100: set $willpower = '<font color = blue>You are mostly in thought.</font>'
-if willpower < (intel*5 + will*5)*75/100 and willpower >= (intel * 5 + will * 5)*50/100: set $willpower = '<font color = brown>You are depressed.</font>'
-if willpower < (intel*5 + will*5)*50/100 and willpower >= (intel * 5 + will * 5)*25/100: set $willpower = '<font color = red>You are in depression.</font>'
-if willpower < (intel*5 + will*5)*25/100: set $willpower = '<font color = red>You are on the verge of madness.</font>'
-
-if manna < (intel*magik) + magik*100 + vital*10 + rikudo and manna >= ((intel * magik) + magik * 100 + vital * 10 + rikudo)*75/100: set $manna = '<font color = blue>You have a normal mood.</font>'
-if manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*75/100 and manna >= ((intel * magik) + magik * 100 + vital * 10 + rikudo)*50/100: set $manna = '<font color = brown>You are in a bad mood.</font>'
-if manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*50/100 and manna >= ((intel * magik) + magik * 100 + vital * 10 + rikudo)*25/100: set $manna = '<font color = red>You are in a terrible mood.</font>'
-if manna < ((intel*magik) + magik*100 + vital*10 + rikudo)*25/100: set $manna = '<font color = red>Your mood is below any skirting and urban sanitation.</font>'
-
-
-if energy >= 20: set $energy = '<font color = green>You couldn''t eat one more bite.</font>'
-if energy < 20 and energy >= 10: set $energy = '<font color = blue>You''re not really hungry, but a small snack would be very welcome.</font>'
-if energy < 10 and energy >= 2: set $energy = '<font color = brown>You are hungry.</font>'
-if energy < 2: set $energy = '<font color = red>You are very hungry.</font>'
-
-if water >= 20: set $water = '<font color = green>You are not thirtsy at all.</font>'
-if water < 20 and water >= 10: set $water = '<font color = blue>You are slightly thirsty.</font>'
-if water < 10 and water >= 2: set $water = '<font color = brown>You are thirsty.</font>'
-if water < 2: set $water = '<font color = red>You are very thirsty.</font>'
-
-if son >= 20: set $son = '<font color = green>You are well rested.</font>'
-if son < 20 and son >= 10: set $son = '<font color = blue>You are slightly tired.</font>'
-if son < 10 and son >= 2: set $son = '<font color = brown>You are tired.</font>'
-if son < 2: set $son = '<font color = red>You are very tired.</font>'
-
-$din_shame = {
-!dynamic din_shame
-!shame += 1
-!if shame >= 5:shame = 4 & shameless += 1
-!if shame >= 4:set $shame = '<font color = red><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
-!if shame = 3:set $shame = '<font color = red>Your cheeks are red from the blush of shame.</font>'
-!if shame = 2:set $shame = '<font color = brown>You nemnog opokrasneli shame.</font>'
-!if shame = 1:set $shame = '<font color = green>You´re a little confused.</font>'
-!if shame <= 0:set $shame = '<font color = green>You´re a little confused.</font>'
-!gs 'stat'
-}
-
-!if shame >= 5:shame = 4 & shameless += 1
-!if shame >= 4:set $shame = '<font color = red><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
-!if shame = 3:set $shame = '<font color = red>Your cheeks are red from the blush of shame.</font>'
-!if shame = 2:set $shame = '<font color = brown>You nemnog opokrasneli shame.</font>'
-!if shame = 1:set $shame = '<font color = green>You´re a little confused.</font>'
-!if shame <= 0:set $shame = '<font color = green>You´re a little confused.</font>'
-
-set $holyday = ''
-kanikuli = 0
-if (month = 10 and day >= 27) or (month = 11 and day <= 4): set $holyday = '<b>Autumn holidays.</b>'&kanikuli = 1
-if (month = 12 and day >= 29) or (month = 1 and day <= 13): set $holyday = '<b>Winter Break.</b>'&kanikuli = 2
-if (month = 3 and day >= 25): set $holyday = '<b>Spring Break.</b>'&kanikuli = 3
-if (month = 5 and day >= 25) or month = 6 or month = 7 or month = 8: set $holyday = '<b>Summer holidays.</b>'&kanikuli = 4
-if month = 1 and day = 1: set $holyday = '<b>New Year</b>'&kanikuli = 5
-
-
-if hour >= 8 and hour < 16 and week < 6 and StoryLine > 0 and SchoolAtestat = 0 and kanikuli = 0 and schoolProgulDay ! day:
-	!прогул школы
-	schoolprogul += 1
-	schoolProgulDay = day
-end
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!Beginning Description
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-if hour > 9 :
-	if minut > 9 :
-		pl '<B><<hour>>:<<minut>></B>  <<$week>> <<day>> <<$month>> <<year>>'
-	else
-		pl '<B><<hour>>:0<<minut>></B>  <<$week>> <<day>> <<$month>> <<year>>'
-	end
-else
-	if minut > 9 :
-		pl '<B>0<<hour>>:<<minut>></B>  <<$week>> <<day>> <<$month>> <<year>>'
-	else
-		pl '<B>0<<hour>>:0<<minut>></B>  <<$week>> <<day>> <<$month>> <<year>>'
-	end
-end
-
-pl '<b><<money>></b> rubles in your wallet.'
-if karta > 0: pl '<b><<karta>></b> rubles in your bank account.'
-if stolmoney > 0: pl '<b><<stolmoney>></b> rubles in the table in your hall.'
-
-if StoryLine > 0 and SchoolAtestat = 0: pl '<<$holyday>>'
-if birthday = day and birthmonth = month: pl '<b>Today is your birthday.</b>'
-!if shame > 0:pl '<<$shame>>'
-
-if ETOmenu = 1:
-pl '<B><<$manna>></B>'
-if horny >= 90: pl '<font color=#FF1493>It takes an incredible amount of willpower not to touch yourself all the time.</font>'
-if horny >= 50 and horny < 90: pl '<font color=#DB7093>You have trouble focusing at times, as your mind drifts to sex.</font>'
-pl '<B><<$health>></B>'
-pl '<B><<$willpower>></B>'
-pl '<B><<$energy>></B>'
-pl '<B><<$water>></B>'
-pl '<B><<$son>></B>'
-end
-if ETOmenu = 0:
-if ShowStatsAs = 0:
-	pl '<B><<$manna>></B>'
-	if horny >= 90: pl '<font color=#FF1493>It takes an incredible amount of willpower not to touch yourself all the time.</font>'
-	if horny >= 50 and horny < 90: pl '<font color=#DB7093>You have trouble focusing at times, as your mind drifts to sex.</font>'
-end
-set a = horny
-!set a1 = horny
-if ShowStatsAs ! 2:
-	gs 'indik','2'
-	pl '<<$ind>> Arousal'
-end
-if ShowStatsAs ! 1 and ShowStatsAs ! 0:
-	if horny >= 90: pl '<font color=#FF1493>It takes an incredible amount of willpower not to touch yourself all the time.</font>'
-	if horny >= 50 and horny < 90: pl '<font color=#DB7093>You have trouble focusing at times, as your mind drifts to sex.</font>'
-end
-
-healthmax=(vital * 10 + stren * 5)
-set a = ( health * 100 /healthmax )
-set a1 = health
-if ShowStatsAs ! 2:
-	gs 'indik','1'
-	pl '<<$ind>> Health'
-end
-if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$health>></B>'
-
-willpowermax =(intel * 5 + will * 5)
-set a = ( willpower * 100 / willpowermax )
-set a1 = willpower
-if ShowStatsAs ! 2:
-	gs 'indik','1'
-	pl '<<$ind>> Willpower'
-end
-if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$willpower>></B>'
-
-set a = ( manna *100 / mannamax )
-set a1 = manna
-if ShowStatsAs ! 2:
-	gs 'indik','1'
-	pl '<<$ind>> Mood'
-end
-if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$manna>></B>'
-
-set a = energy * 4
-set a1 = energy
-if ShowStatsAs ! 2:
-	gs 'indik','1'
-	pl '<<$ind>> Hunger'
-end
-if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$energy>></B>'
-
-set a = water * 5
-set a1 = water
-if ShowStatsAs ! 2:
-	gs 'indik','1'
-	pl '<<$ind>> Thirst'
-end
-if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$water>></B>'
-
-set a = son * 4
-set a1 = son
-if ShowStatsAs ! 2:
-	gs 'indik','1'
-	pl '<<$ind>> Sleep'
-end
-if ShowStatsAs ! 1 and ShowStatsAs ! 0: pl '<B><<$son>></B>'
-end
-
-
-$strip_dress={
-	if stripdress=0:
-		stripdress=1
-		nude=1
-		odedosna=numdress
-		numdress=0
-		gs'stat'
-		'You remove your clothes.'
-		exit
-	end
-	if stripdress=1:
-		stripdress=0
-		numdress=odedosna
-		nude=0
-		gs'stat'
-		'You get dressed.'
-		exit
-	end
-}
-
-
-nl
-if nude=1:stripdress=1
-if nude=0:stripdress=0
-if stripdress=0:$stripDress='Strip'
-if stripdress=1:$stripDress='Dress'
-pl'<a href="exec:dynamic $strip_dress"><B><<$stripDress>></B></a>'
-
-
-$smoker = {
-	siga -= 1
-	smoker += 1
-	smokeHour = hour
-	smokeDay = day
-	smokeminut = minut + 5
-	smokerNeed = 0
-	manna += 100
-	wipo += 100
-	if energy < 20: energy += 3
-	gs 'stat'
-}
-
-if $mud ! '': pl '<font color = green><b><<$mud>></b></font>'
-if siga <= 0 and smoker >= 20: pl '<font color = red><b>You have run out of cigarettes.</b></font>'
-if smokerNeed > 0 and siga > 0 and smoker >= 20:
-	pl '<a href="exec:dynamic $smoker"><font color = red><b>You want to smoke. You have <<siga>> cigarettes left</b></font></a>'
-elseif siga > 0 and smoker >= 20:
-	pl '<a href="exec:dynamic $smoker"><font color = blue><b>You have <<siga>> cigarettes left</b></font></a>'
-end
-
-if siga > 0 and smoker < 20:
-	if smokeHour = hour and smokeday = day and smokeminut >= minut:
-	else
-		pl '<a href="exec:dynamic $smoker"><font color = blue><b>You have <<siga>> cigarettes left</b></font></a>'
-	end
-end
-
-if smokeHour = hour and smokeday = day and smokeminut >= minut: pl '<font color = green>You are smoking a cigarette</font>'
-
-if pirs_pain_ton>0:
-if pirs_pain_ton=1:pl'<font color=red>You have aches language and it is a little swollen.</font>'
-if pirs_pain_ton=2:pl'<font color=red>You often aches language and it is noticeably swollen.</font>'
-if pirs_pain_ton>2:pl'<font color=red><b>Do you have a sore tongue, he was very swollen and almost tossed in the mouth.</b></font>'
-end
-if nippain>0:pl'<font color=red><b><<$nippain>></b></font>'
-if painpub>0:pl'<font color=red><b><<$painpub>></b></font>'
-
-if ReminderSystem = 1:
-	if tampon < ReminderNumber: pl '<font color = red>I should go buy some tampons</font>'
-	if stanok < ReminderNumber: pl '<font color = red>I should go buy some razors</font>'
-	if poroshok < ReminderNumber: pl '<font color = red>I should go buy some washing powder</font>'
-	if clrbelo < ReminderNumber: pl '<font color = red>I should go buy some clean underwear</font>'
-	if shampoo < ReminderNumber: pl '<font color = red>I should go buy some shampoo</font>'
-	if fairy < ReminderNumber: pl '<font color = red>I should go buy some dishwashing detergent</font>'
-	if (eda + edaD) < ReminderNumber: pl '<font color = red>I should go buy some food</font>'
-end
-
-if opPRE = 0: pl '<<$mop>> and your hair is <<$hapri>>.'
-!!!!!!!!!!!!!!!!!!!
-if sweat = 1: pl '<font color = brown>You´re sweating.</font>'
-if sweat = 2: pl '<font color = red>You are a little smelly.</font>'
-if sweat = 3: pl '<font color = red>You stink.</font>'
-if sweat > 3: pl '<B><font color = red>You stink.</font></B>'
-if isprok = 0 and mesec > 0 and preg = 0: pl '<B><font color = red>You are bleeding between your legs, urgently need a tampon.</font></B>'
-if isprok = 1 and mesec > 0 and preg = 0: pl 'You are having your period.'
-if preg = 1 and pregtime = 280: pl '<B><font color = red>You urgently need to go to the hospital</font></B>'
-if preg = 1: Set rodtime = 280 - pregtime
-if preg = 1 and pregtime < 280 and pregtime > 6: pl '<B><font color = blue>You have been pregnant for <<pregtime>> days. Days until delivery <<rodtime>></font></B>'
-if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1: pl '<B><font color = red>You have a work shift as a waitress in a cafe</font></B>'
-if hour >= 8 and hour < 9 and week < 5 and workSec >= 1: pl '<B><font color = red>You have a work shift as a secretary</font></B>'
-if PersSecWork = 1 and week < 6 and hour < 10 and hour >= 5: pl '<B><font color = red>You have a work shift as a secretary</font></B>'
-
-$cumeater = {
-cumlip += 1
-vaf += 1
-cumbelly = 0
-gs 'stat'
-'You have collected sperm from fingers and licked their stomach felt tart taste of semen.'
-}
-$cumeater2 = {
-cumlip += 1
-vaf += 1
-cumpussy = 0
-gs 'stat'
-'You have collected sperm from fingers pussy and licked them feeling tart taste of semen.'
-}
-$cumeater3 = {
-cumlip += 1
-vaf += 1
-cumass = 0
-gs 'stat'
-'You have collected sperm from fingers and licked their buttocks felt tart taste of semen.'
-}
-$cumeater4 = {
-cumlip += 1
-vaf += 1
-cumface = 0
-gs 'stat'
-'You have collected fingers semen from her face and licked them feeling tart taste of semen.'
-}
-$cumeater5 = {
-cumlip += 1
-vaf += 1
-cumfrot = 0
-gs 'stat'
-'You have collected sperm from fingers and licked their clothes felt tart taste of semen.'
-}
-$cumeater6 = {
-cumlip += 1
-vaf += 1
-cumanus = 0
-gs 'stat'
-'You have collected fingers semen out of the anus and lick their feeling tart taste of semen.'
-}
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!'<a href="exec:view''images\body\cumface.jpg''">лицо</a>'
-!'<a href="exec:view''images\body\cumface.jpg''"><B><font color = red>Ваше лицо</font></B></a>'
-!'<a href="exec:view''images\body\cumass.jpg''"><B><font color = red>Ваша попа</font></B></a>'
-
-
-if cumbelly > 0 and swallow < 10: pl '<B><font color = red>Your <a href="exec:view''images\body\cumbelly.jpg''">stomach</a> is smeared with sperm.</font></B>'
-if cumbelly > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumbelly.jpg''"><B><font color = red>Your stomach</font></B></a> <a href="exec:dynamic $cumeater"><B><font color = red>is smeared with sperm.</font></B></a>'
-
-if cumpussy > 0 and swallow < 10: pl '<B><font color = red>Sperm slowly flows from your <a href="exec:view''images\body\cumpussy.jpg''">pussy</a>.</font></B>'
-if cumpussy > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumpussy.jpg''"><B><font color = red><a href="exec:dynamic $cumeater2">Sperm slowly flows</a> from your pussy</font></B></a>.'
-
-if cumass > 0 and swallow < 10: pl '<B><font color = red>Your <a href="exec:view''images\body\cumass.jpg''">ass</a> is smeared with semen.</font></B>'
-if cumass > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumass.jpg''"><B><font color = red>Your ass</font></B></a> <a href="exec:dynamic $cumeater3"><B><font color = red>is smeared with semen.</font></B></a>'
-
-if cumlip > 0: pl '<B><font color = red>Your mouth smells like sperm.</font></B>'
-if cumface > 0 and swallow < 10: pl '<B><font color = red>Your <a href="exec:view''images\body\cumface.jpg''">face</a> and hair are smeared with sperm.</font></B>'
-if cumface > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumface.jpg''"><B><font color = red>Your face</font></B></a> <a href="exec:dynamic $cumeater4"><B><font color = red>and hair are smeared with sperm.</font></B></a>'
-if cumfrot > 0 and swallow < 10: pl '<B><font color = red>You have semen stains on your <a href="exec:view''images\body\cumfrot.jpg''">clothes</a>.</font></B>'
-if cumfrot > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumfrot.jpg''"><B><font color = redYou have <a href="exec:dynamic $cumeater5"><B><font color = red>semen stains</font></B></a> on your clothes</font></B></a>.'
-if cumanus > 0 and swallow < 10: pl '<B><font color = red>Sperm slowly flows from your <a href="exec:view''images\body\cumanal.jpg''">ass</a>.</font></B>'
-if cumanus > 0 and swallow >= 10: pl '<a href="exec:view''images\body\cumanal.jpg''"><B><font color = red><a href="exec:dynamic $cumeater6">Sperm slowly flows</a> from your ass</font></B></a>.'
-if vgape = 3: pl '<B><font color = red>You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.</font></B>'
-if vgape = 2: pl '<B><font color = red>You have a sore vagina and you can hardly keep your feet together.</font></B>'
-if vgape = 1: pl '<B><font color = red>You have a slightly sore vagina.</font></B>'
-if agape = 3: pl '<B><font color = red>You have very sore anus and it emits blood.</font></B>'
-if agape = 2: pl '<B><font color = red>You have a sore anus.</font></B>'
-if agape = 1: pl '<B><font color = red>You have a slightly sore and itchy anus.</font></B>'
-
-if Gerpes >= 3: pl '<B><font color = red>On your lips sores. All signs of genital herpes.</font></B>'
-if Gerpes < 10 and Gerpes >= 5: pl '<B><font color = red>Your pussy flushed and highly itchy. This genital herpes.</font></B>'
-if Gerpes >= 10: pl '<B><font color = red>On your pussy sores appeared. This genital herpes.</font></B>'
-if Gerpes >= 20: pl '<B><font color = red>cover your ass sores of genital herpes.</font></B>'
-if Sifilis >= 21 and Sifilis < 50: pl '<B><font color = red>You have jumped big, hard sore on the lip.</font></B>'
-if Sifilis >= 50: pl '<B><font color = red>syphilitic rash covers your whole body.</font></B>'
-if Triper > 2: pl '<B><font color = red>From the vaginal white discharge come out strong and stinging when urinating. Just out of the vagina hard and nasty smells.</font></B>'
-if Kandidoz > 30: pl '<B><font color = red>Do you thrush.</font></B>'
-if SLomka > 0: pl '<B><font color = red>You are very bad and hurt all the bones. Do you break-up</font></B>'
-if narkday ! day and narkoman = 1: pl '<B><font color = red>You are very bad and hurt all the bones. Urgently need pale lady</font></B>'
-if fingal > 0: pl '<B><font color = red>You have a black eye on the face.</font></B>'
-if tanga = 0 and ski = 1 or tanga = 0 and glamur = 1:
-pl '<B><font color = red>blush of shame fills your face, you do not put her panties and now from under your short skirt sparkles sometimes naked ass.</font></B>'
-end
-if tanga = 0 and ski = 0 and glamur = 0 and opPRE = 0 and nude = 0:
-pl '<B><font color = red>you do not put panties.</font></B>'
-end
-if mosol >= 30 and mosol < 50: pl '<B><font color = red>Pisya flushed and itchy, it seems you are rubbed by clothing.</font></B>'
-if mosol >= 50: pl '<B><font color = red>Pisya hurts and each step is given through the pain, she Crimson and visible scuffs from walking without underwear.</font></B>'
-if analplugIN = 1: pl '<B><font color = red>Do you in the ass anal plug is inserted.</font></B>'
-if vibratorin = 1: pl '<B><font color = red>Do you work in the vagina vibrator.</font></B>'
-
-if young_shop_work = 1 and hour = 14 and week < 6: pl '<B><font color = red>Within 15 hours you have to be at work in the shop Keys Puss.</font></B>'
-if young_shop_work = 1 and hour = 16 and week < 6 and inWorkYoungShop = 0: young_shop_miss += 1 & pl '<B><font color = red>You squandered work.</font></B>'
-
-if workrin = 1:
-	if week = 2 or week = 4 or week = 6:
-		if hour = 7: pl '<B><font color = red > 8m hours you work on the market.</font></B>'
-		if hour = 8: pl '<B><font color = red>You need to work on the market.</font></B>'
-	end
-end
-
-if frost > 0 and frost <= 5: pl '<B><font>You have a little chilly.</font></B>'
-if frost > 5 and frost < 11: pl '<B><font color = red>Are you cold.</font></B>'
-if frost >= 11: pl '<B><font color = red>You are very cold.</font></B>'
-if sick = 1: pl '<B><font color = red>you that is not good, tickle in the throat and a little runny nose.</font></B>'
-if sick > 1 and sick < 24: pl '<B><font color = red>you chills. You flowing from the nose and throat was raw, you cough and sneeze - it looks like you got cold.</font></B>'
-if sick >= 24 and sick < 48: pl '<B><font color = red>You have a fever. You clogged nose, it hurts to swallow - throat aches. You continually cough and sneeze - it looks like you prosudilis.</font></B>'
-if sick >= 48 and sick < 72: pl '<B><font color = red>You have a high fever. You have a stuffy nose, sore head and throat, coughing badly you - it sounds like you got a strong cold. Maybe it´s the flu.</font></B>'
-if sick >= 72: pl '<B><font color = red>you toss in the heat. You have a stuffy nose, headache and aching all the bones. Your throat is inflamed and very sore. You heavily with anguish cough - it sounds like you are seriously ill. Maybe it´s a sore throat.</font></B>'
-if $mudnerd!'':pl'<<$mudnerd>>'
-
-if $meetloc = 'street': $meetlocation = 'residential'
-if $meetloc = 'down': $meetlocation = 'downtown'
-if $meetloc = 'Nord': $meetlocation = 'northern'
-if hour < meethour and svidanieA = 1: pl '<<$boyA>> will be waiting for you near your home in <<$meetlocation>> at <<meethour>> hours'
-if hour = meethour and svidanieA = 1: pl '<B><font color = red><<$boyA>> is waiting for you around the house in <<$meetlocation>>.</font></B>'
-
-if meetday < daystart and svidanieA = 1: bfA -= 10 & svidanieA = 0
-if StrongNarkota > 20: pl '<B><font color = red>You are stoned.</font></B>'
-
-if alko > 0:
-	if alko < 3: pl '<B><font color = red>You´re a little dizzy.</font></B>'
-	if alko >= 3 and alko < 6: pl '<B><font color = red>You´re drunk.</font></B>'
-	if alko >= 6: pl '<B><font color = red>You´re wasted.</font></B>'
-end
-
-if day=29 and month=12 and year=2010 and StoryLine=1:
-     if hour>=5 and hour<=14:pl'B 14 School hours will be held New Year`s party.'
-end
-
-gs 'din_bad'
-
-if bag > 0:
-	pl '<a href="exec:dynamic $d_bag"><B>Handbag</B></a>'
-end
-
-!zero checks marriage
-set proverka1 = 0
-set proverka2 = 0
-set proverka3 = 0
-set proverka4 = 0
-set proverka5 = 0
-
-!{
-!"clothing repair, for old saved." - uncertain what this does exactly
-if remdrop=0:
-	set remdrop=1
-	if jeans = 1:set jeans[1]=1&set jeansH[1]=50&set jeansB[1]=bedra
-	if jeans2 = 1:set jeans[2]=1&set jeansH[2]=50&set jeansB[2]=bedra
-	if jeans3 = 1:set jeans[3]=1&set jeansH[3]=50&set jeansB[3]=bedra
-	if jeans4 = 1:set jeans[4]=1&set jeansH[4]=50&set jeansB[4]=bedra
-	if jeans5 = 1:set jeans[5]=1&set jeansH[5]=50&set jeansB[5]=bedra
-	if yoga = 1:set yoga[1]=1&set yogaH[1]=50
-	if yoga2 = 1:set yoga[2]=1&set yogaH[2]=50
-	if yoga3 = 1:set yoga[3]=1&set yogaH[3]=50
-	if yoga4 = 1:set yoga[4]=1&set yogaH[4]=50
-	if yoga5 = 1:set yoga[5]=1&set yogaH[5]=50
-	if yoga6 = 1:set yoga[6]=1&set yogaH[6]=50
-	if yoga7 = 1:set yoga[7]=1&set yogaH[7]=50
-	if yoga8 = 1:set yoga[8]=1&set yogaH[8]=50
-	if yoga9 = 1:set yoga[9]=1&set yogaH[9]=50
-	if yoga10 = 1:set yoga[10]=1&set yogaH[10]=50
-	if yoga11 = 1:set yoga[11]=1&set yogaH[11]=50
-	if yoga12 = 1:set yoga[12]=1&set yogaH[12]=50
-	if yoga13 = 1:set yoga[13]=1&set yogaH[13]=50
-	if yoga14 = 1:set yoga[14]=1&set yogaH[14]=50
-	if yoga15 = 1:set yoga[15]=1&set yogaH[15]=50
-	if yoga16 = 1:set yoga[16]=1&set yogaH[16]=50
-	if yoga17 = 1:set yoga[17]=1&set yogaH[17]=50
-	if yoga18 = 1:set yoga[18]=1&set yogaH[18]=50
-	if sarafan = 1:set sarafan[1] = 1&set sarafanH[1]=50
-	if sarafan2 = 1:set sarafan[2] = 1&set sarafanH[2]=50
-	if short = 1:set short[1]=1&set shortH[1]=50&set shortB[1]=bedra
-	if short2 = 1:set short[2]=1&set shortH[2]=50&set shortB[2]=bedra
-	if short3 = 1:set short[3]=1&set shortH[3]=50&set shortB[3]=bedra
-	if short4 = 1:set short[4]=1&set shortH[4]=50&set shortB[4]=bedra
-	if short5 = 1:set short[5]=1&set shortH[5]=50&set shortB[5]=bedra
-	if skirt = 1:set skirt[1]=1&set skirtH[1]=50&set skirtB[1]=bedra
-	if skirt2 = 1:set skirt[2]=1&set skirtH[2]=50&set skirtB[2]=bedra
-	if skirt3 = 1:set skirt[3]=1&set skirtH[3]=50&set skirtB[3]=bedra
-	if skirt4 = 1:set skirt[4]=1&set skirtH[4]=50&set skirtB[4]=bedra
-	if skirt5 = 1:set skirt[5]=1&set skirtH[5]=50&set skirtB[5]=bedra
-	if dress = 1:set dress[1]=1&set dressH[1]=100&set dressB[1]=bedra
-	if dress2 = 1:set dress[2]=1&set dressH[2]=100&set dressB[2]=bedra
-	if dress3 = 1:set dress[3]=1&set dressH[3]=100&set dressB[3]=bedra
-	if dress4 = 1:set dress[4]=1&set dressH[4]=100&set dressB[4]=bedra
-	if dress5 = 1:set dress[5]=1&set dressH[5]=100&set dressB[5]=bedra
-	if dress6 = 1:set dress[6]=1&set dressH[6]=100&set dressB[6]=bedra
-	if dress7 = 1:set dress[7]=1&set dressH[7]=100&set dressB[7]=bedra
-	if dress8 = 1:set dress[8]=1&set dressH[8]=100&set dressB[8]=bedra
-	if dress9 = 1:set dress[9]=1&set dressH[9]=100&set dressB[9]=bedra
-	if dress10 = 1:set dress[10]=1&set dressH[10]=100&set dressB[10]=bedra
-	if dress11 = 1:set dress[11]=1&set dressH[11]=100&set dressB[11]=bedra
-	if dress12 = 1:set dress[12]=1&set dressH[12]=100&set dressB[12]=bedra
-	if dress13 = 1:set dress[13]=1&set dressH[13]=100&set dressB[13]=bedra
-	if dress14 = 1:set dress[14]=1&set dressH[14]=100&set dressB[14]=bedra
-	if dress15 = 1:set dress[15]=1&set dressH[15]=100&set dressB[15]=bedra
-	if dress16 = 1:set dress[16]=1&set dressH[16]=100&set dressB[16]=bedra
-	if dress17 = 1:set dress[17]=1&set dressH[17]=100&set dressB[17]=bedra
-	if dress18 = 1:set dress[18]=1&set dressH[18]=100&set dressB[18]=bedra
-	if dress19 = 1:set dress[19]=1&set dressH[19]=100&set dressB[19]=bedra
-	if dress20 = 1:set dress[20]=1&set dressH[20]=100&set dressB[20]=bedra
-	if dress21 = 1:set dress[21]=1&set dressH[21]=100&set dressB[21]=bedra
-	if dress22 = 1:set dress[22]=1&set dressH[22]=100&set dressB[22]=bedra
-	if dress23 = 1:set dress[23]=1&set dressH[23]=100&set dressB[23]=bedra
-	if dress24 = 1:set dress[24]=1&set dressH[24]=100&set dressB[24]=bedra
-	if profi = 1:set profi[1]=1&set profiH[1]=50&set profiB[1]=bedra
-	if profi2 = 1:set profi[2]=1&set profiH[2]=50&set profiB[2]=bedra
-	if pants = 1:set pants[1]=1&set pantsH[1]=50&set pantsB[1]=bedra
-	if pants2 = 1:set pants[2]=1&set pantsH[2]=50&set pantsB[2]=bedra
-	if pants3 = 1:set pants[3]=1&set pantsH[3]=50&set pantsB[3]=bedra
-	if pants4 = 1:set pants[4]=1&set pantsH[4]=50&set pantsB[4]=bedra
-	if pants5 = 1:set pants[5]=1&set pantsH[5]=50&set pantsB[5]=bedra
-	if latex = 1:set latex[1]=1&set latexH[1]=50&set latexB[1]=bedra
-	if latex2 = 1:set latex[2]=1&set latexH[2]=50&set latexB[2]=bedra
-	if hooker = 1:set hooker[1]=1&set hookerH[1]=50&set hookerB[1]=bedra
-	if hooker2 = 1:set hooker[2]=1&set hookerH[2]=50&set hookerB[2]=bedra
-	if hooker3 = 1:set hooker[3]=1&set hookerH[3]=50&set hookerB[3]=bedra
-	if hooker4 = 1:set hooker[4]=1&set hookerH[4]=50&set hookerB[4]=bedra
-	if hooker5 = 1:set hooker[5]=1&set hookerH[5]=50&set hookerB[5]=bedra
-	if dressel1 = 1:set odekis[1]=1&set odekisH[1]=50&set odekisB[1]=bedra
-	if odekis1 = 1:set odekis[2]=1&set odekisH[2]=50&set odekisB[2]=bedra
-	if odekis2 = 1:set odekis[3]=1&set odekisH[3]=50&set odekisB[3]=bedra
-	if odekis3 = 1:set odekis[4]=1&set odekisH[4]=50&set odekisB[4]=bedra
-	if odekis4 = 1:set odekis[5]=1&set odekisH[5]=50&set odekisB[5]=bedra
-	if odekis5 = 1:set odekis[6]=1&set odekisH[6]=50&set odekisB[6]=bedra
-	if odekis6 = 1:set odekis[7]=1&set odekisH[7]=50&set odekisB[7]=bedra
-	if odekis7 = 1:set odekis[8]=1&set odekisH[8]=50&set odekisB[8]=bedra
-	if odekis8 = 1:set odekis[9]=1&set odekisH[9]=50&set odekisB[9]=bedra
-	if odekis9 = 1:set odekis[10]=1&set odekisH[10]=50&set odekisB[10]=bedra
-end
-}
-
-
-
---- stat ---------------------------------
-

+ 0 - 50
locations/024_din_bad

@@ -1,50 +0,0 @@
-# din_bad
-$d_salf = {
-clr
-salfetka -= 1
-pl '<a href="exec:gs ''stat''"><B>Throw out tissue</B></a>'
-if cumface > 0: pl '<a href="exec:cumface = 0 & gs ''stat''"><B>Wipe your face</B></a>'
-if cumfrot > 0: pl '<a href="exec:cumfrot = 0 & gs ''stat''"><B>Wipe clothing</B></a>'
-if mop ! 1: pl '<a href="exec:mop = 1 & gs ''stat''"><B>Wipe cosmetics</B></a>'
-}
-
-$d_kosmetitka = {
-clr
-pl '<a href="exec:gs ''stat''"><B>Close makeup bag</B></a>'
-if kosmetitka >= 1: pl '<a href="exec:mop = 2 & kosmetitka -= 1 & gs ''stat''"><B>Light make-up</B></a>'
-if kosmetitka >= 2: pl '<a href="exec:mop = 3 & kosmetitka -= 2 & gs ''stat''"><B>Natural make-up</B></a>'
-if kosmetitka >= 3: pl '<a href="exec:mop = 4 & kosmetitka -= 3 & gs ''stat''"><B>Heavy make-up</B></a>'
-}
-
-$d_bag_heroin = {
-clr
-heroin -= 1
-minut += 5
-StrongNarkota += 25
-SNarkTimes += 1
-gs 'stat'
-$tempval = ''
-if narkoman ! 0: $tempval = ' with trembling hands'
-'You injected yourself<<$tempval>>'
-}
-
-$d_bag = {
-clr
-pl '<a href="exec:gs ''stat''"><B>Close bag</B></a>'
-
-if salfetka > 0: pl 'You have <<salfetka>> wet wipes. <a href="exec:dynamic $d_salf"><B>Take tissue</B></a>'
-if kosmetitka > 0 and mop = 1: pl 'You have portable makeup bag. Cometic applications left <<kosmetitka>>. <a href="exec:dynamic $d_kosmetitka"><B>Put on makeup</B></a>'
-if kosmetitka > 0 and mop ! 1: pl 'You have portable makeup bag. Cometic applications left <<kosmetitka>>.'
-if greben > 0 and hapri = 0: pl 'You have a hairbrush. <a href="exec:hapri = 1 & gs ''stat''"><B>Brush your hair</B></a>'
-if greben > 0 and hapri = 1: pl 'You have a hairbrush.'
-if prezik > 0: pl 'You have <<prezik>> condoms. <a href="exec:prezik = 0& gs ''stat''"><B>Throw away</B></a>'
-if tabletki > 0: pl 'You have <<tabletki>> birth control pills. <a href="exec:tabletki = 0 & gs ''stat''"><B>Throw away</B></a>'
-if lubri > 0: pl 'Lubricant enough for <<lubri>> applications.'
-if bottle > 0: pl 'You have a bottle of water. <a href="exec:bottle = 0 & water = 20 & cumlip = 0 & gs ''stat''"><B>Drink</B></a>'
-if buterbrod > 0: pl 'You have a sandwich. <a href="exec:buterbrod = 0 & energy+= 20 & cumlip = 0 & salo += 1 & gs ''stat''"><B>Eat</B></a>'
-if heroin > 0: pl 'You have <<heroin>> doses of heroin. <a href="exec:dynamic $d_bag_heroin"><B>Inject</B></a>'
-if selfPornvidDVDCarry > 0: pl 'You are carrying <<selfPornvidDVDCarry>> of your amateur porn DVDs.'
-if wine = 1: pl 'You have a bottle of wine.'
-}
---- din_bad ---------------------------------
-

+ 1363 - 0
locations/024_stat

@@ -0,0 +1,1363 @@
+# stat
+clr
+view
+gs 'dinSex2'
+
+!!1095
+if nippain = 2:
+	if nippainday + 5 < daystart:
+		$nippain = 'You have greatly hurt nipples.'
+		nippain = 1
+		nippainday = daystart
+	end
+
+	if nippainday + 5 >= daystart:$nippain = 'You have greatly hurt nipples.'
+end
+
+if nippain = 1:
+	if nippainday + 5 < daystart:
+		$nippain = ''
+		nippain = 0
+	end
+
+	if nippainday + 5 >= daystart:$nippain = 'You have a little sore nipples.'
+end
+
+if painpub = 2:
+	if painpubday + 5 < daystart:
+		$painpub = 'You have very sore vagina.'
+		painpub = 1
+		painpubday = daystart
+	end
+
+	if painpubday + 5 >= daystart:$painpub = 'You have very sore vagina.'
+end
+
+if painpub = 1:
+	if painpubday + 5 < daystart:
+		$painpub = ''
+		painpub = 0
+		painpubday = daystart
+	end
+
+	if painpubday + 5 >= daystart:$painpub = 'You have a little sore vagina.'
+end
+
+if year = 2011 and katjaPreg = 0:katjaPreg = 1
+
+if analplay >= 2 and anus <= 10:anus += 1 & analplay = 0
+if analplay >= 4 and anus <= 15:anus += 1 & analplay = 0
+if analplay >= 8 and anus <= 20:anus += 1 & analplay = 0
+
+musle[1] = musle
+flex[1] = agil
+stamina[1] = vital * 3
+wipo[1] = will
+intel[1] = intel
+krasota[1] = vnesh
+rost[1] = rost
+salo[1] = salo
+fat[1] = fat
+Bteh[1] = bteh
+Uteh[1] = uteh
+Zteh[1] = zteh
+!!flex[0] = agil
+!!stamina[0] = vital * 3
+!!krasota[0] = vnesh
+!!wipo[0] = will
+
+if nopornowrestling = 0:
+	nopornowrestling = 1
+	NPCnum = 30
+	NPCnow = 1
+	!!shag = 1
+	gs 'npc'
+	NoView = 1
+	NPCrost = 30
+	gs 'generation'
+	NoView = 1
+	NPCrost = 30
+	gs 'generation'
+	NoView = 1
+	NPCrost = 30
+	gs 'generation'
+	NoView = 1
+	NPCrost = 30
+	gs 'generation'
+	NoView = 1
+	NPCrost = 30
+	gs 'generation'
+
+	$nikname[1] = 'schoolgirl'
+	!!musle[0] = 100
+	!!flex[0] = agil
+	!!stamina[0] = vital * 3
+	!!wipo[0] = will
+	!!intel[0] = 10
+	!!krasota[0] = vnesh
+	!!rost[0] = 165
+	!!salo[0] = 100
+	!!fat[0] = 100
+	!!$nikname[1] = 'steel Virgo'
+	!!musle[1] = 100
+	!!flex[1] = 100
+	!!stamina[1] = 300
+	!!wipo[1] = 50
+	!!intel[1] = 10
+	!!krasota[1] = 10
+	!!rost[1] = 165
+	!!salo[1] = 100
+	!!fat[1] = 100
+end
+if newclo[131] = 1 and SchoolAtestat = 1 or newclo[131] = 1 and SchoolBlock = 1:newclo[131] = 0
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Cheats
+if cheatHapri = 1:hapri = 1
+if cheatNomakeup = 1:
+	if mop = 0:mop = 1
+end
+
+if cheatNosweat = 1 and sweat ! -3:set sweat = -3
+
+if cheatNoEat = 1:
+	if energy ! 19:energy = 19
+	if water ! 19:water = 19
+end
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+if alko > 0 and frost > 0:frost = 0
+if lernSkill >= 8:intel += 1 & lernSkill = 0
+if numdress ! 131 and Sforma > 0:set Sforma = 0
+
+if lern >= 10:intel += 1 & lern = 0
+if GorSlut = 1:$gnikname = 'flirt'
+if GorSlut = 2:$gnikname = 'easy A'
+if GorSlut = 3:$gnikname = 'cocksucker'
+if GorSlut = 4:$gnikname = 'sex addict'
+if GorSlut = 5:$gnikname = 'slut'
+if GorSlut = 6:$gnikname = 'talking pussy'
+if GorSlut >= 2:KatjaKnowBJ = 1
+if GorSlut >= 1 or preg > 0:KatjaKnowSex = 1
+if film > 0 and kompromatLife < 10:
+ !pornoaktrissa
+	if kompromatLife < 10:kompromatLife = 10
+
+	$kompromatFoto = 'This photo is a screenshot from one of the porn movies you were part of.'
+end
+
+if fotoyousuck = 1 and kompromatLife < 9:
+	!!sucked in a couple of guys and was sfotografirovanna
+	if kompromatLife < 9:kompromatLife = 9
+
+	$kompromatFoto = 'These pictures show you sucking two cocks at the same time.'
+end
+
+if fotoCFNMsex > 0 and kompromatLife < 8:
+	kompromatLife = 8
+	$kompromatFoto = 'In this photo you see yourself getting fucked from behind by a random guy. This must have been taken in the stripclup.'
+end
+
+if fotoCFNMblowjobCum > 0 and kompromatLife < 7:
+	!!cum on face in the strip club
+	kompromatLife = 7
+	$kompromatFoto = 'In this photo you are sitting infront of a guy, kissing his cock. There seems to be cum in your face. This photo must have been taken in the stripclub.'
+end
+
+if fotoCFNMblowjob > 0 and kompromatLife < 6:
+	!!sucked in front of everyone
+	kompromatLife = 6
+	$kompromatFoto = 'In this photo you are giving a guy a blowjob. You can spot a group of women in the background and it seems like this photo was taken in the stripclub.'
+end
+
+if stripdancesum > 0 and kompromatLife < 2:
+	!!stripper
+	if kompromatLife < 2:kompromatLife = 2
+
+	$kompromatFoto = 'In this photo you are dancing on a pole, obviously someone photographed you, while you were on stage at the stripclub.'
+end
+
+if modelfoto > 0 and kompromatLife < 1:
+	!!photo model
+	if kompromatLife < 1:kompromatLife = 1
+
+	$kompromatFoto = 'These are photos of you being naked, when you were taking pictures at the model agence.'
+end
+
+shameless = guy + bj + anal + hj + ((slutty + gang) * 2)
+moneySUM = money + karta + stolmoney
+cumSUM = cumbelly + cumpussy + cumass + cumlip + cumface + cumfrot + cumanus
+
+gs 'dina'
+gs 'din2'
+
+if husbizvradd > 5:izvratH = 1
+if husbharmin > 10:harakHusb = 0
+if clrbelo <= 0:clrbelo = 0 & tanga = 0
+
+if husband = 0:
+	set husbizvradd = 0
+	set husbharmin = 0
+	set husbandMark = 0
+	set houseslut = 0
+end
+
+if SNarkvnesh = 0:SNarkvnesh = 1
+
+if SNarkTimes >= SNarkvnesh * 25:
+	SNarkvnesh += 1
+	vidage += 1
+end
+
+if gopota >= 20 and gnewQW = 1:set gnewQW = 2
+if workDisk = 4 and week > 5:workDisk = 1
+if workDisk = 3 and week > 5:workDiskAtkPlayer = 1
+
+VeneraN = 0
+
+if VeneraOnce > 0:VeneraOnce = 0
+if SifacOnce = 1:VeneraN += 1
+if GerpesOnce = 1:VeneraN += 1
+if TriperOnce = 1:VeneraN += 1
+
+Venera = VeneraN
+
+if fat < 0:fat = 0
+if vokal < 0:vokal = 0
+if vokal > 100:vokal = 100
+if dance > 100:dance = 100
+if stripdance > 100:stripdance = 100
+if poledance > 100:poledance = 100
+!'if libonce = 0:
+	libonce = 1
+	addqst 'lib/otg_lib_menu_eng.qsp'
+end'!
+
+!'if youngshoponce = 0:
+youngshoponce = 1
+ADDQST 'youngshop.qsp'
+end
+
+if qwestonce = 0:
+qwestonce = 1
+ADDQST 'qwest/qwest.qsp'
+end'!
+
+if bfa < 0:bfa = 0
+if painQW = 0:set painweather = 6
+if beg < 0:set beg = 0
+if beg > 2000:set beg = 2000
+if oficiant > 100:set oficiant = 100
+if vagina > 30:set vagina = 30
+if throat > 30:set throat = 30
+if anus > 30:set anus = 30
+if Jab > 120:set Jab = 120
+if Punch > 120:set Punch = 120
+if Kik > 120:set Kik = 120
+if KikDef > 120:set KikDef = 120
+if nark >= 30 and narkoman = 0:set narkoman = 1
+if nark = 0 and narkoman = 0:set narkoman = 0
+
+set boxing = Jab + Punch + Kik + KikDef
+
+if boxing > 100:set boxing = 100
+if stren > 100 and mutagenP = 0:set stren = 100
+if speed > 100 and mutagenS = 0:set speed = 100
+if agil > 100 and mutagenA = 0:set agil = 100
+if react > 100 and mutagenR = 0:set react = 100
+if vital > 100 and mutagenV = 0:set vital = 100
+if will > 100 and mutagenW = 0:set will = 100
+if intel > 100 and mutagenI = 0 and student = 0 and diplom = 0:set intel = 100
+if stren > 150 and mutagenP = 1:set stren = 150
+if speed > 150 and mutagenS = 1:set speed = 150
+if agil > 150 and mutagenA = 1:set agil = 150
+if react > 150 and mutagenR = 1:set react = 150
+if vital > 150 and mutagenV = 1:set vital = 150
+if will > 150 and mutagenW = 1:set will = 150
+if intel > 150 and mutagenI = 1 and student = 0 and diplom = 0:set intel = 150
+if stren > 200 and mutagenP = 2:set stren = 200
+if speed > 200 and mutagenS = 2:set speed = 200
+if agil > 200 and mutagenA = 2:set agil = 200
+if react > 200 and mutagenR = 2:set react = 200
+if vital > 200 and mutagenV = 2:set vital = 200
+if will > 200 and mutagenW = 2:set will = 200
+if intel > 200 and mutagenI = 2 and student = 0 and diplom = 0:set intel = 200
+if stren > 250 and mutagenP = 3:set stren = 250
+if speed > 250 and mutagenS = 3:set speed = 250
+if agil > 250 and mutagenA = 3:set agil = 250
+if react > 250 and mutagenR = 3:set react = 250
+if vital > 250 and mutagenV = 3:set vital = 250
+if will > 250 and mutagenW = 3:set will = 250
+if intel > 250 and mutagenI = 3 and student = 0 and diplom = 0:set intel = 250
+if intel > 250:set intel = 250
+if MagikDostup = 0:
+	$levelUpString = '<b>Do you feel like that might be revealed within you and you gushed magic, lifting you to a new energy level.</b>'
+
+	if orgasm >= 1 and magik < 1:set magik = 1 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
+	if orgasm >= 2 and magik < 2:set magik = 2 & set resnic += 1 & set rikudo += 500 & pl $levelUpString
+	if orgasm >= 4 and magik < 3:set magik = 3 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
+	if orgasm >= 8 and magik < 4:set magik = 4 & set resnic += 1 & set rikudo += 500 & pl $levelUpString
+	if orgasm >= 16 and magik < 5:set magik = 5 & set glaraz += 1 & set rikudo += 500 & pl $levelUpString
+	if orgasm >= 32 and magik < 6:set magik = 6 & set resnic += 1 & set rikudo += 1000 & pl $levelUpString
+	if orgasm >= 64 and magik < 7:set magik = 7 & set glaraz += 1 & set rikudo += 1000 & pl $levelUpString
+	if orgasm >= 100 and magik < 8:set magik = 8 & set rikudo += 1000 & pl $levelUpString
+	if orgasm >= 200 and magik < 9:set magik = 9 & set rikudo += 1000 & pl $levelUpString
+	if orgasm >= 300 and magik < 10:set magik = 10 & set rikudo += 2000 & pl $levelUpString
+	if orgasm >= 400 and magik < 11:set magik = 11 & set rikudo += 4000 & pl $levelUpString
+	if orgasm >= 500 and magik < 12:set magik = 12 & set rikudo += 4000 & pl $levelUpString
+	if orgasm >= 600 and magik < 13:set magik = 13 & set rikudo += 4000 & pl $levelUpString
+	if orgasm >= 700 and magik < 14:set magik = 14 & set rikudo += 4000 & pl $levelUpString
+	if orgasm >= 800 and magik < 15:set magik = 15 & set rikudo += 8000 & pl $levelUpString
+	if orgasm >= 900 and magik < 16:set magik = 16 & set rikudo += 8000 & pl $levelUpString
+	if orgasm >= 1000 and magik < 17:set magik = 17 & set rikudo += 8000 & pl $levelUpString
+	if orgasm >= 1100 and magik < 18:set magik = 18 & set rikudo += 8000 & pl $levelUpString
+	if orgasm >= 1200 and magik < 19:set magik = 19 & set rikudo += 8000 & pl $levelUpString
+	if orgasm >= 1300 and magik < 20:set magik = 20 & set rikudo += 16000 & pl $levelUpString
+	if orgasm >= 1400 and magik < 20:set magik = 21 & set rikudo += 21000 & pl $levelUpString
+end
+
+!!!WD: Kept because of community kiosk extension
+if exhibi >= 4:pl '<b>You opened a new outfit ready</b>'
+!!!
+if SUB >= DOM and DOM > 0:set SUB = SUB - DOM & set DOM = 0
+if DOM >= SUB and SUB > 0:set DOM = DOM - SUB & set SUB = 0
+if horny < 0:set horny = 0
+if health > vital * 10 + stren * 5:set health = vital * 10 + stren * 5
+if willpower > intel * 5 + will * 5:set willpower = intel * 5 + will * 5
+if manna > intel * magik + magik * 100 + vital * 10 + rikudo:set manna = intel * magik + magik * 100 + vital * 10 + rikudo
+
+set mannamax = (intel * magik) + magik * 100 + vital * 10 + rikudo
+!!set musle = strenbuf + vitalbuf
+
+if vidageday <= 0:
+	set vidageday = 360
+	set vidage += 1
+end
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!TIME
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+if nminut ! minut:
+	!!totminut playing time in minutes
+	totminut += minut
+	nminut = minut
+end
+
+if vgape > 0:
+	if vgape = 3:
+		if manna > mannamax / 4:manna = mannamax / 4
+	end
+
+	if vgape = 2:
+		if manna > mannamax / 2:manna = mannamax / 2
+	end
+end
+
+if agape > 0:
+	if agape = 3:
+		if manna > mannamax / 6:manna = mannamax / 6
+	end
+
+	if agape = 2:
+		if manna > mannamax / 3:manna = mannamax / 3
+	end
+
+end
+
+if vgape > 0:
+	if vgapetime + 2500 <= totminut:
+		if vgape = 1:vgape = 0
+		if vgape = 2:vgape = 1 & vgapetime = totminut
+		if vgape = 3:vgape = 2 & vgapetime = totminut
+	end
+end
+
+if agape > 0:
+	if agapetime + 5760 <= totminut:
+		if agape = 1:agape = 0
+		if agape = 2:agape = 1 & agapetime = totminut
+		if agape = 3:agape = 2 & agapetime = totminut
+		if anus > 1:anus -= 1
+	end
+end
+
+if sec >= 60:
+	:loopsec
+	minut += 1
+	sec -= 60
+
+	if sec >= 60:jump 'loopsec'
+end
+
+if minut >= 60:
+	:loopmin
+	if SbrosNerdism = 1:nerdism = will / 10 + orgasm
+	if nerdism < 0:nerdism = 0
+	if obkvsdam > 0:set obkvsdam = rand(2, 5)
+	set hour += 1
+	set energy -= 1
+	set water -= 1
+	set son -= 1
+	set minut -= 60
+
+	if alko > 0:
+		if alko >= 4:
+			if beg > 0:beg -= 1
+			if volleyboll > 0:volleyboll -= 1
+
+			if alko >= 6:
+				if stren > 10:stren -= 1 & salo += 3
+				if vital > 10:vital -= 1 & salo += 3
+				if intel > 10:intel -= 1
+
+				alko -= alko / 2
+			end
+		end
+
+		alko -= 1
+	end
+
+	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+	!!!!!!!!!!!!!!!!Avtoboy
+	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+	if hour >= 8 and hour <= 23 and NPCnum > 10:
+		:markturnirotbort
+		xf = 0
+		:markturnirotbortt
+		xf += 1
+		turnirFighter[xf] = rand(2, NPCnum)
+
+		if xf < 2:jump'markturnirotbortt'
+		if turnirFighter[1] = turnirFighter[2]:jump'markturnirotbort'
+
+		a = turnirFighter[1]
+		i = turnirFighter[2]
+		NoView = 1
+		gs 'Autofight'
+	end
+	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+	if shame > 0:shame -= 1 & manna -= 5
+	if smoker >= 20:smokerNeed += 1
+	if smokerNeed > 10 and InSleep = 0:manna -= manna * 10/100
+	if smokerNeed > 300:smokerNeed = 0 & smoker = 0
+	if StrongNarkota > 0:StrongNarkota -= 1
+	if SLomka > 0:SLomka += 1 & manna -= 500
+	if SLomka > 100 and StrongNarkota <= 0:SLomka = 0 & SNarkTimes = 0
+	set LCWorkRand = rand(1, 6)
+
+	if narkoman = 1 and narkday ! day:
+		set health -= 5
+		set willpower -= 5
+		set manna -= 10
+	end
+
+	if tanga = 0 and ski =0 or glamur = 0 and tanga = 0:mosolpred += 1
+
+	if mosolpred >= 10:
+		set mosol += 1
+		set mosolpred -= 10
+	end
+
+	if mosol >= 50:
+		manna -= 5
+	end
+
+	if energy >= 25:energy -= 5 & fat += 1
+
+	if tanga = 1 and mosol > 0:mosol -= 1
+	if lipbalmstat > 0:lipbalmstat -= 1
+	if sickstage = 1:sick += 1 & sicktimer += 1
+	if sickstage = 1 and sicktimer >= 80:sicktimer = 0 & sickstage = 2
+	if sickstage = 2 and sick > 0:sick -= 1
+	if sickstage = 2 and sick <= 0:sick = 0 & sickstage = 0
+	if perkice > 0:perkice -= 1
+	if frost > 0:frost -= 1
+
+	if KGOLpers > 0:
+		if KGHP < KGHPMAX:KGHP += 10
+		if KGManna < KGMannaMax:KGManna += 10
+	end
+
+	if minut >= 60:jump 'loopmin'
+end
+
+if hour >= 24:
+	if pirs_pain_ton > 0:pirs_pain_ton -= 1
+	if artempower <= 0:artempower = 3
+	if brow > 0 and browper = 0:brow -= 1
+
+	if shorthair = 1:
+		shorthairday += 1
+
+		if shorthairday >= 45:shorthairday = 0 & shorthair = 0
+	end
+
+	if KatjaOTN > 0:
+		if KatjaHorny > 0 and KatjaLust < 40:KatjaHorny -= rand(1, 3)
+		if KatjaLust >= 40:KatjaHorny += rand(1, 3)
+		if KatjaHorny < 0:KatjaHorny = 0
+		if KatjaHorny >= 100:KatjaHorny = 0 & KatjaMastr += 1 & KatjaLust += 1
+	end
+
+	if volleysostav > 0:trenerepa -= 1
+
+	if birthday = day and birthmonth = month:
+		!!birthday
+		set age += 1
+		set vidage += 1
+	end
+
+	if horny > hornyStat:
+		hornyStat = horny
+		if pirsA > 0:horny += 1
+		if pirsB > 0:horny += 1
+		if pirsC > 0:horny += 1
+		if pirsD > 0:horny += 1
+		if pirsE > 0:horny += 1
+		if pirsF > 0:horny += 5
+		if pirsG > 0:horny += 5
+		if pirsN > 0:horny += 1
+	end
+
+	if horny < hornyStat:hornyStat = horny
+
+	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+	!!!!!!!!!!!!generation
+	if NPCnum < 290:
+		NPCnow = NPCnum
+		NPCnum += rand(1, 3)
+		gs 'npc'
+	end
+
+	if NPCnum >= 290 and NPCnum < 300:
+		NPCnow = NPCnum
+		NPCnum += 1
+		gs 'npc'
+	end
+
+	!!End generation
+	!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+	if kanikuli = 0:Suspeh -= 1
+
+	set dmishaevent = 0
+
+	if BuyHous = 2 and ArendHouseSL <= 0:ArendHouseSL = 0 & BuyHous = 0 & housr = 0
+	if BuyHous = 2 and ArendHouseSL > 0:ArendHouseSL -= 1
+	if Gspravka <= 0 and GspravkaT > 0:GspravkaT = 0 & Gspravka = 0
+	if GspravkaT > 0:Gspravka -= 1
+	if IvanPodstavaQW = 2 and PodpiskaNeviezd = 30:IvanPodstavaQW = 3
+	if IvanPodstavaQW = 2 and PodpiskaNeviezd > 0 and PodpiskaNeviezd < 30:PodpiskaNeviezd += 1
+
+	if salo > fat:
+		salo -= 1
+		fat += 1
+	end
+
+	if salo < fat:
+		salo += 1
+		fat -= 1
+	end
+
+	if strenbuf > stren:set strenbuf -= 1
+	if strenbuf < stren:set strenbuf += 1
+	if vitalbuf > vital:set vitalbuf -= 1
+	if vitalbuf < vital:set vitalbuf += 1
+	if agilbuf > agil:set agilbuf -= 1
+	if agilbuf < agil:set agilbuf += 1
+	if husband > 0 and husbandrink ! 11:set husbandrink = rand(0, 10)
+	set inWorkYoungShop = 0
+	set husbandsexday = 0
+	set borsexkol = 0
+	set givisexday = 0
+
+	if shantsr > 0:
+		set pay = shantsr * 5000
+		set karta += pay
+		set shantsr = 0
+	end
+
+	if shantbog > 0:
+		:shantftb
+		set shantftbgrand = rand(0, 10)
+		if shantftbgrand > 2:
+			set shantpopala += 1
+			set shantbog -= 1
+			if shantbog > 0:jump 'shantftb'
+		end
+		if shantftbgrand <= 2:
+			set karta += 30000
+			set shantbog -= 1
+			if shantbog > 0:jump 'shantftb'
+		end
+	end
+
+	set petersexday = 0
+	set klismaday1= 0
+	:loop
+	set day += 1
+	set daystart += 1
+	set week += 1
+	set hour -= 24
+
+	!!RFP
+	if SifacOnce = 1:Sifilis += 1
+	if GerpesOnce = 1:Gerpes += 1
+	if TriperOnce = 1:Triper += 1
+	if KandidozOnce = 1:Kandidoz += 1
+	if beg >= 100 and beg < 1000:beg -= 1
+	if beg >= 1000 and beg < 1500:beg -= 2
+	if beg >= 1500 and beg < 2000:beg -= 3
+	if beg >= 2000:beg -= 4
+
+	set vidageday -= 1
+	if workDolgDay > 0:workDolgDay -= 1
+	if QWdogreiqTimer > 0:QWdogreiqTimer -= 1
+	if husband > 0:husbanday += 1
+	if kid > 0:kid += 1
+	if husband > 10 and husbanday > 0:husband -= 15
+	if fingal > 0:fingal -= 1
+
+	if husbandMark = 1 and husband <= 10:
+		set husbizvradd = 0
+		set husbharmin = 0
+		set husbandMark = 0
+		set husband = 0
+		set divorced += 1
+
+		if KFOnLineReaga > 0:KFOnLineReaga -= 1
+
+		'<b><font color="red">Your husband has filed for a divorce.</font></b>'
+	end
+
+	gs 'cikl'
+
+	if nark > 0:set nark -= 1
+	if pregtime > 10:fat += 1
+	if hour >= 24:jump 'loop'
+end
+
+!!payments
+if day = 25:
+	if PersSecWork = 1 and PersSecWorkTimes > 0 and paydaybistrosec = 0:
+		Pay = PersSecWorkTimes * 2500
+		PersSecWorkTimes = 0
+		money += Pay
+		paydaybistrosec = 1
+		'<b><font color="green">You have received <<pay>> rubles salary for your job as a secretary on your bank account.</font></b>'
+	end
+
+	if workKafe = 1 and paydayKafe = 0:
+		set paydayKafe = 1
+		set pay = smenaKafe * 600
+		set money += pay
+		set smenaKafe = 0
+		'<b><font color="green">You have received <<pay>> rubles salary for your job as a waitress in a cafe on your bank account.</font></b>'
+	end
+
+	if workhosp = 1 and nopaypoly = 0:
+		set pay = smena * 1000
+		set money += pay
+		set smena = 0
+		nopaypoly = 1
+		'<b><font color="green">You have received <<pay>> rubles salary for your work in the clinic on your bank account.</font></b>'
+	end
+
+	if worksalon = 1 and nopaysalon = 0:
+		set pay = smena * 800
+		set money += pay
+		set smena = 0
+		nopaysalon = 1
+		'<b><font color="green">You have received <<pay>> rubles salary for your work in a beauty salon on your bank account.</font></b>'
+	end
+
+	if tanwork = 1 and nopaytanwork = 0:
+		nopaytanwork = 1
+		set money += 25000
+		'<b><font color="green">You have received a salary of 25,000 rubles for your work as a house maid on your bank account.</font></b>'
+	end
+
+	if workSec = 1 and paydaySec = 0:
+		set paydaySec = 1
+		set pay = sekDay * 800
+
+		if officebestslut >= 3:set pay += 20000
+		set karta += pay
+		set sekDay = 0
+		'<b><font color="green">You have received <<pay>> rubles salary for your job as a secretary on your bank account.</font></b>'
+	end
+
+	if husband > 0 and paydayHusb = 0:
+		paydayHusb = 1
+
+		if husbFin = 0:huspay = 15000
+		if husbFin = 1:huspay = 25000
+		if husbFin = 2:huspay = 40000
+
+		money += huspay
+		'<b><font color="green">Your husband has sent you <<huspay>> rubles to your bank account.</font></b>'
+	end
+
+	if stipuha = 1 and stipuhaday = 0:set stipuhaday = 1 & set money += 1200 & '<b><font color="green">You have received 1,200 rubles scholarship on your bank account.</font></b>'
+	if housr = 1 and haday = 0:set haday = 1 & set money -= 3000 & '<b><font color="red">You paid 3,000 rubles for your apartment.</font></b>'
+
+	if housr = 1 and electroday = 0:
+		set electroday = 1
+		if elektro >= 800:set elektro = 800 + rand(0, 100)
+
+		set money -= elektro
+		'<b><font color="red">You paid <<elektro>> for electricity.</font></b>'
+	end
+
+	if housr = 1 and kabel > 0 and kabelday = 0:
+		set kabelday = 1
+		set money -= 300
+		'<b><font color="red">You have paid 300 rubles for cable TV.</font></b>'
+	end
+end
+
+if day ! 25:
+	if paydayHusb = 1:paydayHusb = 0
+	if workKafe = 1 and paydayKafe = 1:set paydayKafe = 0
+	if workSec = 1 and paydaySec = 1:set paydaySec = 0
+	if housr = 1 and haday = 1:set haday = 0
+	if housr = 1 and electroday = 1:set electroday = 0
+	if housr = 1 and kabel > 0 and kabelday = 1:set kabelday = 0
+	if stipuhaday = 1:set stipuhaday = 0
+	if nopaytanwork = 1:nopaytanwork = 0
+	if nopaypoly = 1:nopaypoly = 0
+	if nopaysalon = 1:nopaysalon = 0
+	if paydaybistrosec = 1:paydaybistrosec = 0
+end
+
+if sdaday = day and sdamonth = month and housr = 0:
+	set housr = 1
+	'<b><font color="red">The term of your residental apartment lease expired.</font></b>'
+end
+
+if month = 1 or month = 3 or month = 5 or month = 7 or month = 8 or month = 10 or month = 12:
+	!!31
+	if day > 31:day -= 31 & month += 1
+elseif month = 2:
+	!!28
+	if day > 28:day -= 28 & month += 1
+elseif month = 0:
+	month = 1
+
+	if day > 31:day -= 31 & month += 1
+elseif month = 13:
+	month = 1
+
+	if day > 31:day -= 31 & month += 1
+else
+	!!30
+	if day > 30:day -= 30 & month += 1
+end
+
+!'if day > 30:
+	set day -= 30
+	set month += 1
+end'!
+
+if day = 0:set day = 1
+
+if week > 7:
+	:loopweek
+	set week -= 7
+	set husbandrink = 0
+
+	if military = 1:set military = 0
+
+	if week > 7:jump 'loopweek'
+end
+
+if week = 1:set $week = 'Monday'
+if week = 2:set $week = 'Tuesday'
+if week = 3:set $week = 'Wednesday'
+if week = 4:set $week = 'Thursday'
+if week = 5:set $week = 'Friday'
+if week = 6:set $week = 'Saturday'
+if week = 7:set $week = 'Sunday'
+
+if month = 0:set month = 1
+if month = 13:set month = 1 & set year += 1
+If month = 1:set $month = 'January' & $mons = 'January'
+If month = 2:set $month = 'February' & $mons = 'February'
+If month = 3:set $month = 'March' & $mons = 'Martha'
+If month = 4:set $month = 'April' & $mons = 'April'
+If month = 5:set $month = 'May' & $mons = 'May'
+If month = 6:set $month = 'June' & $mons = 'June'
+If month = 7:set $month = 'July' & $mons = 'July'
+If month = 8:set $month = 'August' & $mons = 'August'
+If month = 9:set $month = 'September' & $mons = 'September'
+If month = 10:set $month = 'October' & $mons = 'October'
+If month = 11:set $month = 'November' & $mons = 'November'
+If month = 12:set $month = 'December' & $mons = 'December'
+if minut < 10:set $nilmin = '0'
+if minut >= 10:set $nilmin = ''
+if kid > 0:
+	if year > yearkid[1] and markyear[1] ! year:
+		if monthkid[1] = month and daykid[1] = day:
+			markyear[1] = year
+			kidage[1] += 1
+		end
+	end
+end
+!!moodlet
+!!mannamax
+!!totminut
+
+if Mud >= totminut:
+	manna = mannamax
+	$mud = 'You feel buoyed.'
+else
+	$mud = ''
+end
+
+if nerdism > 0:
+	if lastreadday = daystart:
+		!!<font color="green">You are completely healthy shine and a healthy glow.</font>
+		manna = mannamax
+		SbrosNerdism = 0
+		$mudnerd = '<font color="green">You are lost in a fantasy after reading the book.</font>'
+	end
+
+	if lastreadday + 1 = daystart:
+		!!manna = mannamax
+		SbrosNerdism = 0
+		$mudnerd = '<font color="black">You a little bored and want to again plunge into a book.</font>'
+	end
+	if lastreadday + 2 = daystart:
+		SbrosNerdism = 0
+
+		if manna > mannamax / 2:manna -= 10
+
+		$mudnerd = '<font color="red">Do you really want something to read.</font>'
+	end
+
+	if lastreadday + 3 <= daystart:
+		if manna > mannamax / 10:manna -= 10
+
+		SbrosNerdism = 1
+		$mudnerd = '<font color="red"><b>You terribly want at least something to read!!!</b></font>'
+	end
+
+	!!$mudnerd += 'lastread<<lastread>> totminut<<totminut>> <<totminut - lastread>>'
+else
+	SbrosNerdism = 0
+	$mudnerd = ''
+end
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!end OF TIME
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+subage = 0
+:metakasubage
+subage += 10
+
+if subage + 10 < age:
+	jump 'metakasubage'
+else
+	subage = age - subage
+end
+
+if subage = 0 or subage >= 5:
+	$letgoda = 'years'
+elseif subage = 1:
+	$letgoda = 'year'
+else
+	$letgoda = 'year'
+end
+
+subagevne = 0
+:metakasubagevne
+subagevne += 10
+
+if subagevne + 10 < vidage:
+	jump 'metakasubagevne'
+else
+	subagevne = vidage - subagevne
+end
+
+if subagevne ! 1:
+	$letgoda2 = 'years'
+else
+	$letgoda2 = 'year'
+end
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!ENERGY
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+if son < 0:
+	set son = 0
+	set manna -= 5
+end
+
+if energy < 0:
+	set energy = 0
+	set health -= 1
+
+	if fat = 0 and stren + vital > 0:
+		set stren -= 1
+		set vital -= 1
+		set energy += 2
+	end
+
+	if fat = 0 and stren + vital <= 0:
+		set over = 3
+		gt 'gameover'
+		exit
+	end
+
+	if fat > 0:
+		set fat -= 1
+		set energy += 2
+	end
+end
+
+if water < 0:
+	set water = 1
+	set health -= 5
+	set willpower -= 1
+end
+
+if manna <= 0:
+	set manna = 1
+	set health -= 5
+	set willpower -= 5
+	!!set fat += 1
+end
+
+if health < 0:
+	set over = 1
+	gt 'gameover'
+	exit
+end
+
+if willpower < 0 and StoryLine = 0:
+	set over = 2
+	gt 'gameover'
+	exit
+end
+
+if saloonce = 0 and opPRE = 0:
+	set saloonce = 1
+	set salo = fat
+	set strenbuf = stren
+	set vitalbuf = vital
+	set agilbuf = agil
+end
+
+gs 'body'
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+if health = vital * 10 + stren * 5:set $health = '<font color="green">You are very healthy.</font>'
+if willpower = intel * 5 + will * 5:set $willpower = '<font color="green">Your mind is clear.</font>'
+if manna = intel * magik + magik * 100 + vital * 10 + rikudo:set $manna = '<font color="green">You are in a good mood.</font>'
+
+if health < vital * 10 + stren * 5 and health >= (vital * 10 + stren * 5) * 75 / 100:set $health = '<font color="blue">You are healthy.</font>'
+if health < (vital * 10 + stren * 5) * 75 / 100 and health >= (vital * 10 + stren * 5) * 50 / 100:set $health = '<font color="brown">you are not healthy.</font>'
+if health < (vital * 10 + stren * 5) * 50 / 100 and health >= (vital * 10 + stren * 5) * 25 / 100:set $health = '<font color="red">You are sick.</font>'
+if health < (vital * 10 + stren * 5) * 25 / 100:set $health = '<font color="red">You are on the verge of death.'
+if willpower < intel * 5 + will * 5 and willpower >= (intel * 5 + will * 5) * 75 / 100:set $willpower = '<font color="blue">You are mostly in thought.</font>'
+if willpower < (intel * 5 + will * 5) * 75 / 100 and willpower >= (intel * 5 + will * 5) * 50 / 100:set $willpower = '<font color="brown">You are depressed.</font>'
+if willpower < (intel * 5 + will * 5) * 50 / 100 and willpower >= (intel * 5 + will * 5) * 25 / 100:set $willpower = '<font color="red">You are in depression.</font>'
+if willpower < (intel * 5 + will * 5) * 25 / 100:set $willpower = '<font color="red">You are on the verge of madness.</font>'
+if manna < intel * magik + magik * 100 + vital * 10 + rikudo and manna >= (intel * magik + magik * 100 + vital * 10 + rikudo) * 75 / 100:set $manna = '<font color="blue">You have a normal mood.</font>'
+if manna < (intel * magik + magik * 100 + vital * 10 + rikudo) * 75 / 100 and manna >= (intel * magik + magik * 100 + vital * 10 + rikudo) * 50 / 100:set $manna = '<font color="brown">You are in a bad mood.</font>'
+if manna < (intel * magik + magik * 100 + vital * 10 + rikudo) * 50 / 100 and manna >= (intel * magik + magik * 100 + vital * 10 + rikudo) * 25 / 100:set $manna = '<font color="red">You are in a terrible mood.</font>'
+if manna < (intel * magik + magik * 100 + vital * 10 + rikudo) * 25 / 100:set $manna = '<font color="red">Your mood is below any skirting and urban sanitation.</font>'
+if energy >= 20:set $energy = '<font color="green">You couldn''t eat one more bite.</font>'
+if energy < 20 and energy >= 10:set $energy = '<font color="blue">You''re not really hungry, but a small snack would be very welcome.</font>'
+if energy < 10 and energy >= 2:set $energy = '<font color="brown">You are hungry.</font>'
+if energy < 2:set $energy = '<font color="red">You are very hungry.</font>'
+
+if water >= 20:set $water = '<font color="green">You are not thirtsy at all.</font>'
+if water < 20 and water >= 10:set $water = '<font color="blue">You are slightly thirsty.</font>'
+if water < 10 and water >= 2:set $water = '<font color="brown">You are thirsty.</font>'
+if water < 2:set $water = '<font color="red">You are very thirsty.</font>'
+
+if son >= 20:set $son = '<font color="green">You are well rested.</font>'
+if son < 20 and son >= 10:set $son = '<font color="blue">You are slightly tired.</font>'
+if son < 10 and son >= 2:set $son = '<font color="brown">You are tired.</font>'
+if son < 2:set $son = '<font color="red">You are very tired.</font>'
+
+$din_shame = {
+	!!dynamic din_shame
+	!!shame += 1
+	!!if shame >= 5:shame = 4 & shameless += 1
+	!!if shame >= 4:set $shame = '<font color="red"><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
+	!!if shame = 3:set $shame = '<font color="red">Your cheeks are red from the blush of shame.</font>'
+	!!if shame = 2:set $shame = '<font color="brown">You nemnog opokrasneli shame.</font>'
+	!!if shame = 1:set $shame = '<font color="green">You´re a little confused.</font>'
+	!!if shame <= 0:set $shame = '<font color="green">You´re a little confused.</font>'
+	!!gs 'stat'
+}
+
+!!if shame >= 5:shame = 4 & shameless += 1
+!!if shame >= 4:set $shame = '<font color="red"><b>of your cheeks blaze zalivshego them blush with shame.</b></font>'
+!!if shame = 3:set $shame = '<font color="red">Your cheeks are red from the blush of shame.</font>'
+!!if shame = 2:set $shame = '<font color="brown">You nemnog opokrasneli shame.</font>'
+!!if shame = 1:set $shame = '<font color="green">You´re a little confused.</font>'
+!!if shame <= 0:set $shame = '<font color="green">You´re a little confused.</font>'
+
+set $holyday = ''
+kanikuli = 0
+
+if (month = 10 and day >= 27) or (month = 11 and day <= 4):set $holyday = '<b>Autumn holidays.</b>' & kanikuli = 1
+if (month = 12 and day >= 29) or (month = 1 and day <= 13):set $holyday = '<b>Winter Break.</b>' & kanikuli = 2
+if (month = 3 and day >= 25):set $holyday = '<b>Spring Break.</b>' & kanikuli = 3
+if (month = 5 and day >= 25) or month = 6 or month = 7 or month = 8:set $holyday = '<b>Summer holidays.</b>' & kanikuli = 4
+if month = 1 and day = 1:set $holyday = '<b>New Year</b>' & kanikuli = 5
+
+if hour >= 8 and hour < 16 and week < 6 and StoryLine > 0 and SchoolAtestat = 0 and kanikuli = 0 and schoolProgulDay ! day:
+	!!absence from school
+	schoolprogul += 1
+	schoolProgulDay = day
+end
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!Beginning Description
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!pl'time <b><<hour>></b> hours <b><<$nilmin>><<minut>></b> minutes'
+!!pl 'At_The_Moment <<day>> <<$month>> <<year>>year, <<$week>>.'
+
+if hour < 10 :
+	if minut > 9 :
+		pl '<b><<hour>>:<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
+	else
+		pl '<b><<hour>>:0<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
+	end
+else
+	if minut > 9 :
+		pl '<b>0<<hour>>:<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
+	else
+		pl '<b>0<<hour>>:0<<minut>></b> <<$week>> <<day>> <<$month>> <<year>>'
+	end
+end
+
+pl '<b><<money>></b> rubles in your wallet.'
+
+if StoryLine > 0 and SchoolAtestat = 0:pl '<<$holyday>>'
+if birthday = day and birthmonth = month:pl '<b>Today is your birthday.</b>'
+!!if shame > 0:pl '<<$shame>>'
+
+pl '<b><<$manna>></b>'
+
+if horny >= 90:pl '<font color="#FF1493">It takes an incredible amount of willpower not to touch yourself all the time.</font>'
+if horny >= 50 and horny < 90:pl '<font color="#DB7093">You have trouble focusing at times, as your mind drifts to sex.</font>'
+
+if ETOmenu = 1:
+	pl '<b><<$health>></b>'
+	pl '<b><<$willpower>></b>'
+	pl '<b><<$energy>></b>'
+	pl '<b><<$water>></b>'
+	pl '<b><<$son>></b>'
+end
+
+if ETOmenu = 0:
+	set a = horny
+	!!set a1 = horny
+	gs 'indik', '2'
+	pl '<<$ind>> Arousal'
+	healthmax = (vital * 10 + stren * 5)
+	set a = health * 100 / healthmax
+	set a1 = health
+	gs 'indik', '1'
+	pl '<<$ind>> Health'
+	willpowermax = intel * 5 + will * 5
+	set a = willpower * 100 / willpowermax
+	set a1 = willpower
+	gs 'indik', '1'
+	pl '<<$ind>> Willpower'
+	set a = manna * 100 / mannamax
+	set a1 = manna
+	gs 'indik', '1'
+	pl '<<$ind>> Mood'
+	set a = energy * 4
+	set a1 = energy
+	gs 'indik', '1'
+	pl '<<$ind>> Hunger'
+
+	set a = water * 5
+	set a1 = water
+	gs 'indik', '1'
+	pl '<<$ind>> Thirst'
+	set a = son * 4
+	set a1 = son
+	gs 'indik', '1'
+	pl '<<$ind>> Sleep'
+end
+
+$smoker = {
+	siga -= 1
+	smoker += 1
+	smokeHour = hour
+	smokeDay = day
+	smokeminut = minut + 5
+	smokeNeed = 0
+	manna += 100
+	wipo += 100
+	if energy < 20:energy += 3
+	gs 'stat'
+}
+
+if $mud ! '':pl '<font color="green"><b><<$mud>></b></font>'
+if siga <= 0 and smoker >= 20:pl '<font color="red"><b>You have run out of cigarettes.</b></font>'
+
+if smokeNeed > 0 and siga > 0 and smoker >= 20:
+	pl '<a href="exec:dynamic $smoker"><font color="red"><b>You want to smoke. You have <<siga>> cigarettes left</b></font></a>'
+elseif siga > 0 and smoker >= 20:
+	pl '<a href="exec:dynamic $smoker"><font color="blue"><b>You have <<siga>> cigarettes left</b></font></a>'
+end
+
+if siga > 0 and smoker < 20:
+	if smokeHour = hour and smokeday = day and smokeminut >= minut:
+	else
+		pl '<a href="exec:dynamic $smoker"><font color="blue"><b>You have <<siga>> cigarettes left</b></font></a>'
+	end
+end
+
+if smokeHour = hour and smokeday = day and smokeminut >= minut:pl '<font color="green">You are smoking a cigarette</font>'
+if pirs_pain_ton > 0:
+	if pirs_pain_ton = 1:pl'<font color="red">You have aches language and it is a little swollen.</font>'
+	if pirs_pain_ton = 2:pl'<font color="red">You often aches language and it is noticeably swollen.</font>'
+	if pirs_pain_ton > 2:pl'<font color="red"><b>Do you have a sore tongue, he was very swollen and almost tossed in the mouth.</b></font>'
+end
+
+if nippain > 0:pl'<font color="red"><b><<$nippain>></b></font>'
+if painpub > 0:pl'<font color="red"><b><<$painpub>></b></font>'
+if opPRE = 0:pl '<<$mop>> and your hair is <<$hapri>>.'
+!!!!!!!!!!!!!!!!!!!
+if sweat = 1:pl '<font color="brown">You´re sweating.</font>'
+if sweat = 2:pl '<font color="red">You are a little smelly.</font>'
+if sweat = 3:pl '<font color="red">You stink.</font>'
+if sweat > 3:pl '<b><font color="red">You stink.</font></b>'
+if isprok = 0 and mesec > 0 and preg = 0:pl '<b><font color="red">You are bleeding between your legs, urgently need a tampon.</font></b>'
+if isprok = 1 and mesec > 0 and preg = 0:pl 'You are having your period.'
+if preg = 1 and pregtime = 280:pl '<b><font color="red">You urgently need to go to the hospital</font></b>'
+if preg = 1:set rodtime = 280 - pregtime
+if preg = 1 and pregtime < 280 and pregtime > 6:pl '<b><font color="blue">You have been pregnant for <<pregtime>> days. Days until delivery <<rodtime>></font></b>'
+if hour >= 11 and hour < 12 and week > 1 and week < 5 and workKafe = 1:pl '<b><font color="red">You have a work shift as a waitress in a cafe</font></b>'
+if hour >= 8 and hour < 9 and week < 5 and workSec >= 1:pl '<b><font color="red">You have a work shift as a secretary</font></b>'
+if PersSecWork = 1 and week < 6 and hour < 10 and hour >= 5:pl '<b><font color="red">You have a work shift as a secretary</font></b>'
+
+$cumeater = {
+	cumlip += 1
+	vaf += 1
+	cumbelly = 0
+	gs 'stat'
+	'You have collected sperm from fingers and licked their stomach felt tart taste of semen.'
+}
+$cumeater2 = {
+	cumlip += 1
+	vaf += 1
+	cumpussy = 0
+	gs 'stat'
+	'You have collected sperm from fingers pussy and licked them feeling tart taste of semen.'
+}
+$cumeater3 = {
+	cumlip += 1
+	vaf += 1
+	cumass = 0
+	gs 'stat'
+	'You have collected sperm from fingers and licked their buttocks felt tart taste of semen.'
+}
+$cumeater4 = {
+	cumlip += 1
+	vaf += 1
+	cumface = 0
+	gs 'stat'
+	'You have collected fingers semen from her face and licked them feeling tart taste of semen.'
+}
+$cumeater5 = {
+	cumlip += 1
+	vaf += 1
+	cumfrot = 0
+	gs 'stat'
+	'You have collected sperm from fingers and licked their clothes felt tart taste of semen.'
+}
+
+$cumeater6 = {
+	cumlip += 1
+	vaf += 1
+	cumanus = 0
+	gs 'stat'
+	'You have collected fingers semen out of the anus and lick their feeling tart taste of semen.'
+}
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!'<a href="exec:view''images/body/cumface.jpg''">лицо</a>'
+!!'<a href="exec:view''images/body/cumface.jpg''"><b><font color="red">Your face</font></b></a>'
+!!'<a href="exec:view''images/body/cumass.jpg''"><b><font color="red">Your ass</font></b></a>'
+
+if cumbelly > 0 and swallow < 10:pl '<b><font color="red">Your <a href="exec:view''images/body/cumbelly.jpg''">stomach</a> is smeared with sperm.</font></b>'
+if cumbelly > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumbelly.jpg''"><b><font color="red">Your stomach</font></b></a> <a href="exec:dynamic $cumeater"><b><font color="red">is smeared with sperm.</font></b></a>'
+
+if cumpussy > 0 and swallow < 10:pl '<b><font color="red">Sperm slowly flows from your <a href="exec:view''images/body/cumpussy.jpg''">pussy</a>.</font></b>'
+if cumpussy > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumpussy.jpg''"><b><font color="red"><a href="exec:dynamic $cumeater2">Sperm slowly flows</a> from your pussy</font></b></a>.'
+
+if cumass > 0 and swallow < 10:pl '<b><font color="red">Your <a href="exec:view''images/body/cumass.jpg''">ass</a> is smeared with semen.</font></b>'
+if cumass > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumass.jpg''"><b><font color="red">Your ass</font></b></a> <a href="exec:dynamic $cumeater3"><b><font color="red">is smeared with semen.</font></b></a>'
+if cumlip > 0:pl '<b><font color="red">Your mouth smells like sperm.</font></b>'
+if cumface > 0 and swallow < 10:pl '<b><font color="red">Your <a href="exec:view''images/body/cumface.jpg''">face</a> and hair are smeared with sperm.</font></b>'
+if cumface > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumface.jpg''"><b><font color="red">Your face</font></b></a> <a href="exec:dynamic $cumeater4"><b><font color="red">and hair are smeared with sperm.</font></b></a>'
+if cumfrot > 0 and swallow < 10:pl '<b><font color="red">You have semen stains on your <a href="exec:view''images/body/cumfrot.jpg''">clothes</a>.</font></b>'
+if cumfrot > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumfrot.jpg''"><b><font color="red">You have <a href="exec:dynamic $cumeater5"><b><font color="red">semen stains</font></b></a> on your clothes</font></b></a>.'
+if cumanus > 0 and swallow < 10:pl '<b><font color="red">Sperm slowly flows from your <a href="exec:view''images/body/cumanal.jpg''">ass</a>.</font></b>'
+if cumanus > 0 and swallow >= 10:pl '<a href="exec:view''images/body/cumanal.jpg''"><b><font color="red"><a href="exec:dynamic $cumeater6">Sperm slowly flows</a> from your ass</font></b></a>.'
+if vgape = 3:pl '<b><font color="red">You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.</font></b>'
+if vgape = 2:pl '<b><font color="red">You have a sore vagina and you can hardly keep your feet together.</font></b>'
+if vgape = 1:pl '<b><font color="red">You have a slightly sore vagina.</font></b>'
+if agape = 3:pl '<b><font color="red">You have very sore anus and it emits blood.</font></b>'
+if agape = 2:pl '<b><font color="red">You have a sore anus.</font></b>'
+if agape = 1:pl '<b><font color="red">You have a slightly sore and itchy anus.</font></b>'
+if Gerpes >= 3:pl '<b><font color="red">On your lips sores. All signs of genital herpes.</font></b>'
+if Gerpes < 10 and Gerpes >= 5:pl '<b><font color="red">Your pussy flushed and highly itchy. This genital herpes.</font></b>'
+if Gerpes >= 10:pl '<b><font color="red">On your pussy sores appeared. This genital herpes.</font></b>'
+if Gerpes >= 20:pl '<b><font color="red">cover your ass sores of genital herpes.</font></b>'
+if Sifilis >= 21 and Sifilis < 50:pl '<b><font color="red">You have jumped big, hard sore on the lip.</font></b>'
+if Sifilis >= 50:pl '<b><font color="red">syphilitic rash covers your whole body.</font></b>'
+if Triper > 2:pl '<b><font color="red">From the vaginal white discharge come out strong and stinging when urinating. Just out of the vagina hard and nasty smells.</font></b>'
+if Kandidoz > 30:pl '<b><font color="red">Do you thrush.</font></b>'
+if SLomka > 0:pl '<b><font color="red">You are very bad and hurt all the bones. Do you break-up</font></b>'
+if narkday ! day and narkoman = 1:pl '<b><font color="red">You are very bad and hurt all the bones. Urgently need pale lady</font></b>'
+if fingal > 0:pl '<b><font color="red">You have a black eye on the face.</font></b>'
+if tanga = 0 and ski = 1 or tanga = 0 and glamur = 1:pl '<b><font color="red">blush of shame fills your face, you do not put her panties and now from under your short skirt sparkles sometimes naked ass.</font></b>'
+if tanga = 0 and ski = 0 and glamur = 0 and opPRE = 0 and nude = 0:pl '<b><font color="red">you do not put panties.</font></b>'
+if mosol >= 30 and mosol < 50:pl '<b><font color="red">Pisya flushed and itchy, it seems you are rubbed by clothing.</font></b>'
+if mosol >= 50:pl '<b><font color="red">Pisya hurts and each step is given through the pain, she Crimson and visible scuffs from walking without underwear.</font></b>'
+if analplugIN = 1:pl '<b><font color="red">Do you in the ass anal plug is inserted.</font></b>'
+if vibratorin = 1:pl '<b><font color="red">Do you work in the vagina vibrator.</font></b>'
+if young_shop_work = 1 and hour = 14 and week < 6:pl '<b><font color="red">Within 15 hours you have to be at work in the shop Keys Puss.</font></b>'
+if young_shop_work = 1 and hour = 16 and week < 6 and inWorkYoungShop = 0:young_shop_miss += 1 & pl '<b><font color="red">You squandered work.</font></b>'
+
+if workrin = 1:
+	if week = 2 or week = 4 or week = 6:
+		if hour = 7:pl '<b><font color="red"> 8m hours you work on the market.</font></b>'
+		if hour = 8:pl '<b><font color="red">You need to work on the market.</font></b>'
+	end
+end
+
+if frost > 0 and frost <= 5:pl '<b><font>You have a little chilly.</font></b>'
+if frost > 5 and frost < 11:pl '<b><font color="red">Are you cold.</font></b>'
+if frost >= 11:pl '<b><font color="red">You are very cold.</font></b>'
+if sick = 1:pl '<b><font color="red">you that is not good, tickle in the throat and a little runny nose.</font></b>'
+if sick > 1 and sick < 24:pl '<b><font color="red">you chills. You flowing from the nose and throat was raw, you cough and sneeze - it looks like you got cold.</font></b>'
+if sick >= 24 and sick < 48:pl '<b><font color="red">You have a fever. You clogged nose, it hurts to swallow - throat aches. You continually cough and sneeze - it looks like you prosudilis.</font></b>'
+if sick >= 48 and sick < 72:pl '<b><font color="red">You have a high fever. You have a stuffy nose, sore head and throat, coughing badly you - it sounds like you got a strong cold. Maybe it´s the flu.</font></b>'
+if sick >= 72:pl '<b><font color="red">you toss in the heat. You have a stuffy nose, headache and aching all the bones. Your throat is inflamed and very sore. You heavily with anguish cough - it sounds like you are seriously ill. Maybe it´s a sore throat.</font></b>'
+if $mudnerd ! '':pl '<<$mudnerd>>'
+if hour < meethour and svidanieA = 1:pl '<<$boyA>> will be waiting for you near your home in <<$meetlocation>> at <<meethour>> hours'
+if hour = meethour and svidanieA = 1:pl '<b><font color="red"><<$boyA>> is waiting for you around the house in <<$meetlocation>>.</font></b>'
+
+if meetday < daystart and svidanieA = 1:bfA -= 10 & svidanieA = 0
+if StrongNarkota > 20:pl '<b><font color="red">You are stoned.</font></b>'
+
+if alko > 0:
+	if alko < 3:pl '<b><font color="red">You´re a little dizzy.</font></b>'
+	if alko >= 3 and alko < 6:pl '<b><font color="red">You´re drunk.</font></b>'
+	if alko >= 6:pl '<b><font color="red">You´re wasted.</font></b>'
+end
+if day = 29 and month = 12 and year = 2010 and StoryLine = 1:
+	if hour >= 5 and hour <= 14:pl 'At 14 o''clock a New Year`s party will be held.'
+end
+gs 'din_bad'
+
+if bag > 0:pl '<a href="exec:dynamic $d_bag"><b>Handbag</b></a>'
+
+!!zero checks marriage
+set proverka1 = 0
+set proverka2 = 0
+set proverka3 = 0
+set proverka4 = 0
+set proverka5 = 0
+
+!!clothing repair, for old saved.
+if remdrop = 0:
+	set remdrop = 1
+
+	if jeans = 1:set jeans[1] = 1 & set jeansH[1] = 50 & set jeansB[1] = bedra
+	if jeans2 = 1:set jeans[2] = 1 & set jeansH[2] = 50 & set jeansB[2] = bedra
+	if jeans3 = 1:set jeans[3] = 1 & set jeansH[3] = 50 & set jeansB[3] = bedra
+	if jeans4 = 1:set jeans[4] = 1 & set jeansH[4] = 50 & set jeansB[4] = bedra
+	if jeans5 = 1:set jeans[5] = 1 & set jeansH[5] = 50 & set jeansB[5] = bedra
+	if yoga = 1:set yoga[1] = 1 & set yogaH[1] = 50
+	if yoga2 = 1:set yoga[2] = 1 & set yogaH[2] = 50
+	if yoga3 = 1:set yoga[3] = 1 & set yogaH[3] = 50
+	if yoga4 = 1:set yoga[4] = 1 & set yogaH[4] = 50
+	if yoga5 = 1:set yoga[5] = 1 & set yogaH[5] = 50
+	if yoga6 = 1:set yoga[6] = 1 & set yogaH[6] = 50
+	if yoga7 = 1:set yoga[7] = 1 & set yogaH[7] = 50
+	if yoga8 = 1:set yoga[8] = 1 & set yogaH[8] = 50
+	if yoga9 = 1:set yoga[9] = 1 & set yogaH[9] = 50
+	if yoga10 = 1:set yoga[10] = 1 & set yogaH[10] = 50
+	if yoga11 = 1:set yoga[11] = 1 & set yogaH[11] = 50
+	if yoga12 = 1:set yoga[12] = 1 & set yogaH[12] = 50
+	if yoga13 = 1:set yoga[13] = 1 & set yogaH[13] = 50
+	if yoga14 = 1:set yoga[14] = 1 & set yogaH[14] = 50
+	if yoga15 = 1:set yoga[15] = 1 & set yogaH[15] = 50
+	if yoga16 = 1:set yoga[16] = 1 & set yogaH[16] = 50
+	if yoga17 = 1:set yoga[17] = 1 & set yogaH[17] = 50
+	if yoga18 = 1:set yoga[18] = 1 & set yogaH[18] = 50
+	if sarafan = 1:set sarafan[1] = 1 & set sarafanH[1] = 50
+	if sarafan2 = 1:set sarafan[2] = 1 & set sarafanH[2] = 50
+	if short = 1:set short[1] = 1 & set shortH[1] = 50 & set shortB[1] = bedra
+	if short2 = 1:set short[2] = 1 & set shortH[2] = 50 & set shortB[2] = bedra
+	if short3 = 1:set short[3] = 1 & set shortH[3] = 50 & set shortB[3] = bedra
+	if short4 = 1:set short[4] = 1 & set shortH[4] = 50 & set shortB[4] = bedra
+	if short5 = 1:set short[5] = 1 & set shortH[5] = 50 & set shortB[5] = bedra
+	if skirt = 1:set skirt[1] = 1 & set skirtH[1] = 50 & set skirtB[1] = bedra
+	if skirt2 = 1:set skirt[2] = 1 & set skirtH[2] = 50 & set skirtB[2] = bedra
+	if skirt3 = 1:set skirt[3] = 1 & set skirtH[3] = 50 & set skirtB[3] = bedra
+	if skirt4 = 1:set skirt[4] = 1 & set skirtH[4] = 50 & set skirtB[4] = bedra
+	if skirt5 = 1:set skirt[5] = 1 & set skirtH[5] = 50 & set skirtB[5] = bedra
+	if dress = 1:set dress[1] = 1 & set dressH[1] = 100 & set dressB[1] = bedra
+	if dress2 = 1:set dress[2] = 1 & set dressH[2] = 100 & set dressB[2] = bedra
+	if dress3 = 1:set dress[3] = 1 & set dressH[3] = 100 & set dressB[3] = bedra
+	if dress4 = 1:set dress[4] = 1 & set dressH[4] = 100 & set dressB[4] = bedra
+	if dress5 = 1:set dress[5] = 1 & set dressH[5] = 100 & set dressB[5] = bedra
+	if dress6 = 1:set dress[6] = 1 & set dressH[6] = 100 & set dressB[6] = bedra
+	if dress7 = 1:set dress[7] = 1 & set dressH[7] = 100 & set dressB[7] = bedra
+	if dress8 = 1:set dress[8] = 1 & set dressH[8] = 100 & set dressB[8] = bedra
+	if dress9 = 1:set dress[9] = 1 & set dressH[9] = 100 & set dressB[9] = bedra
+	if dress10 = 1:set dress[10] = 1 & set dressH[10] = 100 & set dressB[10] = bedra
+	if dress11 = 1:set dress[11] = 1 & set dressH[11] = 100 & set dressB[11] = bedra
+	if dress12 = 1:set dress[12] = 1 & set dressH[12] = 100 & set dressB[12] = bedra
+	if dress13 = 1:set dress[13] = 1 & set dressH[13] = 100 & set dressB[13] = bedra
+	if dress14 = 1:set dress[14] = 1 & set dressH[14] = 100 & set dressB[14] = bedra
+	if dress15 = 1:set dress[15] = 1 & set dressH[15] = 100 & set dressB[15] = bedra
+	if dress16 = 1:set dress[16] = 1 & set dressH[16] = 100 & set dressB[16] = bedra
+	if dress17 = 1:set dress[17] = 1 & set dressH[17] = 100 & set dressB[17] = bedra
+	if dress18 = 1:set dress[18] = 1 & set dressH[18] = 100 & set dressB[18] = bedra
+	if dress19 = 1:set dress[19] = 1 & set dressH[19] = 100 & set dressB[19] = bedra
+	if dress20 = 1:set dress[20] = 1 & set dressH[20] = 100 & set dressB[20] = bedra
+	if dress21 = 1:set dress[21] = 1 & set dressH[21] = 100 & set dressB[21] = bedra
+	if dress22 = 1:set dress[22] = 1 & set dressH[22] = 100 & set dressB[22] = bedra
+	if dress23 = 1:set dress[23] = 1 & set dressH[23] = 100 & set dressB[23] = bedra
+	if dress24 = 1:set dress[24] = 1 & set dressH[24] = 100 & set dressB[24] = bedra
+	if profi = 1:set profi[1] = 1 & set profiH[1] = 50 & set profiB[1] = bedra
+	if profi2 = 1:set profi[2] = 1 & set profiH[2] = 50 & set profiB[2] = bedra
+	if pants = 1:set pants[1] = 1 & set pantsH[1] = 50 & set pantsB[1] = bedra
+	if pants2 = 1:set pants[2] = 1 & set pantsH[2] = 50 & set pantsB[2] = bedra
+	if pants3 = 1:set pants[3] = 1 & set pantsH[3] = 50 & set pantsB[3] = bedra
+	if pants4 = 1:set pants[4] = 1 & set pantsH[4] = 50 & set pantsB[4] = bedra
+	if pants5 = 1:set pants[5] = 1 & set pantsH[5] = 50 & set pantsB[5] = bedra
+	if latex = 1:set latex[1] = 1 & set latexH[1] = 50 & set latexB[1] = bedra
+	if latex2 = 1:set latex[2] = 1 & set latexH[2] = 50 & set latexB[2] = bedra
+	if hooker = 1:set hooker[1] = 1 & set hookerH[1] = 50 & set hookerB[1] = bedra
+	if hooker2 = 1:set hooker[2] = 1 & set hookerH[2] = 50 & set hookerB[2] = bedra
+	if hooker3 = 1:set hooker[3] = 1 & set hookerH[3] = 50 & set hookerB[3] = bedra
+	if hooker4 = 1:set hooker[4] = 1 & set hookerH[4] = 50 & set hookerB[4] = bedra
+	if hooker5 = 1:set hooker[5] = 1 & set hookerH[5] = 50 & set hookerB[5] = bedra
+	if dressel1 = 1:set odekis[1] = 1 & set odekisH[1] = 50 & set odekisB[1] = bedra
+	if odekis1 = 1:set odekis[2] = 1 & set odekisH[2] = 50 & set odekisB[2] = bedra
+	if odekis2 = 1:set odekis[3] = 1 & set odekisH[3] = 50 & set odekisB[3] = bedra
+	if odekis3 = 1:set odekis[4] = 1 & set odekisH[4] = 50 & set odekisB[4] = bedra
+	if odekis4 = 1:set odekis[5] = 1 & set odekisH[5] = 50 & set odekisB[5] = bedra
+	if odekis5 = 1:set odekis[6] = 1 & set odekisH[6] = 50 & set odekisB[6] = bedra
+	if odekis6 = 1:set odekis[7] = 1 & set odekisH[7] = 50 & set odekisB[7] = bedra
+	if odekis7 = 1:set odekis[8] = 1 & set odekisH[8] = 50 & set odekisB[8] = bedra
+	if odekis8 = 1:set odekis[9] = 1 & set odekisH[9] = 50 & set odekisB[9] = bedra
+	if odekis9 = 1:set odekis[10] = 1 & set odekisH[10] = 50 & set odekisB[10] = bedra
+end
+
+--- stat ---------------------------------

+ 37 - 0
locations/025_din_bad

@@ -0,0 +1,37 @@
+# din_bad
+$d_salf = {
+	clr
+	salfetka -= 1
+	pl '<a href="exec:gs ''stat''"><b>Throw out tissue</b></a>'
+
+	if cumface > 0:pl '<a href="exec:cumface = 0 & gs ''stat''"><b>Wipe your face</b></a>'
+	if cumfrot > 0:pl '<a href="exec:cumfrot = 0 & gs ''stat''"><b>Wipe clothing</b></a>'
+	if mop ! 1:pl '<a href="exec:mop = 1 & gs ''stat''"><b>Wipe cosmetics</b></a>'
+}
+
+$d_kosmetitka = {
+	clr
+	pl '<a href="exec:gs ''stat''"><b>Close makeup bag</b></a>'
+
+	if kosmetitka >= 1:pl '<a href="exec:mop = 2 & kosmetitka -= 1 & gs ''stat''"><b>Light make-up</b></a>'
+	if kosmetitka >= 2:pl '<a href="exec:mop = 3 & kosmetitka -= 2 & gs ''stat''"><b>Natural make-up</b></a>'
+	if kosmetitka >= 3:pl '<a href="exec:mop = 4 & kosmetitka -= 3 & gs ''stat''"><b>Heavy make-up</b></a>'
+}
+
+$d_bag = {
+	clr
+	pl '<a href="exec:gs ''stat''"><b>Close bag</b></a>'
+
+	if salfetka > 0:pl 'You have <<salfetka>> wet wipes. <a href="exec:dynamic $d_salf"><b>Take tissue</b></a>'
+	if kosmetitka > 0 and mop = 1:pl 'You have portable makeup bag. Cometic applications left <<kosmetitka>>. <a href="exec:dynamic $d_kosmetitka"><b>Put on makeup</b></a>'
+	if kosmetitka > 0 and mop ! 1:pl 'You have portable makeup bag. Cometic applications left <<kosmetitka>>.'
+	if greben > 0 and hapri = 0:pl 'You have a hairbrush. <a href="exec:hapri = 1 & gs ''stat''"><b>Brush your hair</b></a>'
+	if greben > 0 and hapri = 1:pl 'You have a hairbrush.'
+	if prezik > 0:pl 'You have <<prezik>> condoms. <a href="exec:prezik = 0& gs ''stat''"><b>Throw away</b></a>'
+	if tabletki > 0:pl 'You have <<tabletki>> birth control pills. <a href="exec:tabletki = 0 & gs ''stat''"><b>Throw away</b></a>'
+	if bottle > 0:pl 'You have a bottle of water. <a href="exec:bottle = 0 & water = 20 & cumlip = 0 & gs ''stat''"><b>Drink</b></a>'
+	if buterbrod > 0:pl 'You have a sandwich. <a href="exec:buterbrod = 0 & energy += 20 & cumlip = 0 & salo += 1 & gs ''stat''"><b>Eat</b></a>'
+	if wine = 1:pl 'You have a bottle of wine'
+}
+
+--- din_bad ---------------------------------

+ 0 - 21
locations/025_statBat

@@ -1,21 +0,0 @@
-# statBat
-clr
-
-if tobiPic = 1: pl '<center><img src="images\picBat\tobi.jpg"></center>'
-if kisamePic = 1: pl '<center><img src="images\picBat\kisame.jpg"></center>'
-if sasoriPic = 1: pl '<center><img src="images\picBat\sasori.jpg"></center>'
-if konanPic = 1: pl '<center><img src="images\picBat\konan.jpg"></center>'
-if kakuzuPic = 1: pl '<center><img src="images\picBat\kakuzu.jpg"></center>'
-if hidanPic = 1: pl '<center><img src="images\picBat\hidan.jpg"></center>'
-if itachiPic = 1: pl '<center><img src="images\picBat\itachi.jpg"></center>'
-if deidaraPic = 1: pl '<center><img src="images\picBat\deidara.jpg"></center>'
-if zetsuPic = 1: pl '<center><img src="images\picBat\zetsu.jpg"></center>'
-if orotimaruPic = 1: pl '<center><img src="images\picBat\orotimaru.jpg"></center>'
-if painPic = 1: pl '<center><img src="images\picBat\pain.jpg"></center>'
-if pain2Pic = 1: pl '<center><img src="images\picBat\pain2.jpg"></center>'
-if pain3Pic = 1: pl '<center><img src="images\picBat\pain3.jpg"></center>'
-if pain4Pic = 1: pl '<center><img src="images\picBat\pain4.jpg"></center>'
-if pain5Pic = 1: pl '<center><img src="images\picBat\pain5.jpg"></center>'
-if pain6Pic = 1: pl '<center><img src="images\picBat\pain6.jpg"></center>'
---- statBat ---------------------------------
-

+ 21 - 0
locations/026_statBat

@@ -0,0 +1,21 @@
+# statBat
+clr
+
+if tobiPic = 1:pl '<center><img src="images/picBat/tobi.jpg"></center>'
+if kisamePic = 1:pl '<center><img src="images/picBat/kisame.jpg"></center>'
+if sasoriPic = 1:pl '<center><img src="images/picBat/sasori.jpg"></center>'
+if konanPic = 1:pl '<center><img src="images/picBat/konan.jpg"></center>'
+if kakuzuPic = 1:pl '<center><img src="images/picBat/kakuzu.jpg"></center>'
+if hidanPic = 1:pl '<center><img src="images/picBat/hidan.jpg"></center>'
+if itachiPic = 1:pl '<center><img src="images/picBat/itachi.jpg"></center>'
+if deidaraPic = 1:pl '<center><img src="images/picBat/deidara.jpg"></center>'
+if zetsuPic = 1:pl '<center><img src="images/picBat/zetsu.jpg"></center>'
+if orotimaruPic = 1:pl '<center><img src="images/picBat/orotimaru.jpg"></center>'
+if painPic = 1:pl '<center><img src="images/picBat/pain.jpg"></center>'
+if pain2Pic = 1:pl '<center><img src="images/picBat/pain2.jpg"></center>'
+if pain3Pic = 1:pl '<center><img src="images/picBat/pain3.jpg"></center>'
+if pain4Pic = 1:pl '<center><img src="images/picBat/pain4.jpg"></center>'
+if pain5Pic = 1:pl '<center><img src="images/picBat/pain5.jpg"></center>'
+if pain6Pic = 1:pl '<center><img src="images/picBat/pain6.jpg"></center>'
+
+--- statBat ---------------------------------

+ 0 - 6
locations/026_statPRE

@@ -1,6 +0,0 @@
-# statPRE
-gs 'stat'
-
-set $vneshPRE = 'You are a strong man with broad shoulders and big muscles slightly swollen with fat.'
---- statPRE ---------------------------------
-

+ 6 - 0
locations/027_statPRE

@@ -0,0 +1,6 @@
+# statPRE
+gs 'stat'
+
+set $vneshPRE = 'You are a strong man with broad shoulders and big muscles slightly swollen with fat.'
+
+--- statPRE ---------------------------------

+ 0 - 439
locations/027_time

@@ -1,439 +0,0 @@
-# time
-If month = 1 and pogodaday ! day:
-set pogodaday = day
-set temper = RAND (-30,8)
-	if temper <= 0:
-	set osadki = RAND(0,10)
-		if osadki < painweather:
-		set $osadki = 'Clear.'
-		end
-		if osadki >= painweather:
-		set $osadki = 'Goes fluffy snow.'
-		end
-	end
-	if temper > 0:
-	set osadki = RAND(0,10)
-		if osadki < painweather:
-		set $osadki = 'Clear the snow begins to melt some places forming slush.'
-		end
-		if osadki >= painweather:
-		set $osadki = 'Wet snow falls, which immediately melts forming slush.'
-		end
-	end
-set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
-end
-
-If month = 2 and pogodaday ! day:
-set pogodaday = day
-set temper = RAND (-35,8)
-	if temper <= 0:
-	set osadki = RAND(0,10)
-		if osadki < painweather:
-		set $osadki = 'Cloudy and windy.'
-		end
-		if osadki >= painweather:
-		set $osadki = 'It´s snowing.'
-		end
-	end
-	if temper > 0:
-	set osadki = RAND(0,10)
-		if osadki < painweather:
-		set $osadki = 'Clear the snow begins to melt some places forming slush.'
-		end
-		if osadki >= painweather:
-		set $osadki = 'Wet snow falls, which immediately melts forming slush.'
-		end
-	end
-set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
-end
-
-If month = 3 and pogodaday ! day:
-set pogodaday = day
-set temper = RAND (-20,17)
-	if temper <= 0:
-	set osadki = RAND(0,10)
-		if osadki < painweather:
-		set $osadki = 'Clear and cloudless.'
-		end
-		if osadki >= painweather:
-		set $osadki = 'It´s snowing.'
-		end
-	end
-	if temper > 0:
-	set osadki = RAND(0,10)
-		if osadki < painweather:
-		set $osadki = 'Clear the snow begins to melt some places forming slush.'
-		end
-		if osadki >= painweather:
-		set $osadki = 'Wet snow falls, which immediately melts forming slush.'
-		end
-	end
-set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
-end
-
-If month = 4 and pogodaday ! day:
-set pogodaday = day
-set temper = RAND(2,20)
-set osadki = RAND(0,10)
-	if osadki < painweather:
-		if hour >= 7 and hour <= 20:
-		set $osadki = 'Clear.'
-		end
-		if hour < 7 or hour > 20:
-		set $osadki = 'Clear.'
-		end
-	end
-	if osadki >= painweather:
-	set $osadki = 'Rain.'
-	end
-
-set $pogoda = 'On the street the snow melts, the temperature <<temper>> degrees Celsius. <<$osadki>>'
-end
-
-If month = 5 and pogodaday ! day:
-set pogodaday = day
-set temper = RAND(7,25)
-set osadki = RAND(0,10)
-	if osadki < painweather:
-	set $osadki = 'Clear.'
-	end
-	if osadki >= painweather:
-	set $osadki = 'Rain.'
-	end
-
-set $pogoda = 'From puddles in the street rastaevshego snow, dirt and debris all around seem after winter, something where new grass pleases the eye with its greenery, the temperature <<temper>> degrees Celsius. <<$osadki>>'
-end
-
-If month = 6 and pogodaday ! day:
-set pogodaday = day
-set temper = RAND(15,35)
-set osadki = RAND(0,10)
-	if osadki < painweather:
-	set $osadki = 'Clear.'
-	end
-	if osadki >= painweather:
-	set $osadki = 'Rain.'
-	end
-
-set $pogoda = 'On the street the green grass, the temperature <<temper>> degrees Celsius. <<$osadki>>'
-end
-
-If month = 7 and pogodaday ! day:
-set pogodaday = day
-set temper = RAND(20,40)
-set osadki = RAND(0,10)
-	if osadki < painweather:
-	set $osadki = 'Clear.'
-	end
-	if osadki >= painweather:
-	set $osadki = 'Warm rain comes.'
-	end
-
-set $pogoda = 'Green grass on the street, the temperature <<temper>> degrees Celsius. <<$osadki>>'
-end
-
-If month = 8 and pogodaday ! day:
-set pogodaday = day
-set temper = RAND(20,35)
-set osadki = RAND(0,10)
-	if osadki < painweather:
-	set $osadki = 'Clear.'
-	end
-	if osadki >= painweather:
-	set $osadki = 'Warm rain comes.'
-	end
-
-set $pogoda = 'Outdoors green grass, where some are already visible yellowing leaves, temperature <<temper>> degrees Celsius. <<$osadki>>'
-end
-
-If month = 9 and pogodaday ! day:
-set pogodaday = day
-set temper = RAND(10,30)
-set osadki = RAND(0,10)
-	if osadki < painweather:
-	set $osadki = 'Clear.'
-	end
-	if osadki >= painweather:
-	set $osadki = 'Rain.'
-	end
-
-set $pogoda = 'Street zhuhnet grass, visible yellow leaves, the temperature <<temper>> degrees Celsius. <<$osadki>>'
-end
-
-If month = 10 and pogodaday ! day:
-set pogodaday = day
-set temper = RAND(2,20)
-set osadki = RAND(0,10)
-	if osadki < painweather:
-	set $osadki = 'Clear.'
-	end
-	if osadki >= painweather:
-	set $osadki = 'Goes cold rain.'
-	end
-
-set $pogoda = 'On the street faded grass, falling yellow leaves, mud and puddles around, temperature <<temper>> degrees Celsius. <<$osadki>>'
-end
-
-If month = 11 and pogodaday ! day:
-set pogodaday = day
-set temper = RAND (-20,17)
-	if temper <= 0:
-	set osadki = RAND(0,10)
-		if osadki < painweather:
-		set $osadki = 'Clear and cloudless.'
-		end
-		if osadki >= painweather:
-		set $osadki = 'It´s snowing.'
-		end
-	end
-	if temper > 0:
-	set osadki = RAND(0,10)
-		if osadki < painweather:
-		set $osadki = 'Clear the snow begins to melt some places forming slush.'
-		end
-		if osadki >= painweather:
-		set $osadki = 'Cold rain.'
-		end
-	end
-set $pogoda = 'The street is dirty and thin snow cover, temperature <<temper>> degrees Celsius. <<$osadki>>'
-end
-
-If month = 12 and pogodaday ! day:
-set pogodaday = day
-set temper = RAND (-30,8)
-	if temper <= 0:
-	set osadki = RAND(0,10)
-		if osadki < painweather:
-		set $osadki = 'Cloudy and windy.'
-		end
-		if osadki >= painweather:
-		set $osadki = 'Goes fluffy snow.'
-		end
-	end
-	if temper > 0:
-	set osadki = RAND(0,10)
-		if osadki < painweather:
-		set $osadki = 'Clear the snow begins to melt some places forming slush.'
-		end
-		if osadki >= painweather:
-		set $osadki = 'Wet snow falls, which immediately melts forming slush.'
-		end
-	end
-set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
-end
-
-pl '<<$pogoda>>'
-if osadki >= painweather and umbrella = 0 and mop > 1:
-set mop = 0
-'You do not have an umbrella and on the moisture flowed your cosmetics.'
-end
-
-if osadki >= painweather and umbrella = 0 and hapri = 1:
-set hapri = 0
-if curly > 0: set curly -= 1
-'You do not have an umbrella and on the moisture your hair has deteriorated.'
-end
-
-if isprok = 0 and mesec > 0 and preg = 0:
-'<B><font color = red>You have the blood flowing in the legs and staining the linen clothes.</font></B>'
-if clrbelo > 0: set clrbelo -= 1
-set sweat += 1
-set manna -= 10
-set willpower -= 10
-gs 'starenie'
-end
-
-if hour = 0:
-fcolor = rgb(255,255,255)
-bcolor = rgb(0,0,0)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 1:
-fcolor = rgb(255,255,255)
-bcolor = rgb(5,5,5)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 2:
-fcolor = rgb(255,255,255)
-bcolor = rgb(10,10,10)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 3:
-fcolor = rgb(255,255,255)
-bcolor = rgb(30,15,15)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 4:
-fcolor = rgb(255,255,255)
-bcolor = rgb(60,20,20)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 5:
-fcolor = rgb(255,255,255)
-bcolor = rgb(100,40,40)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 6:
-fcolor = rgb(0,0,0)
-bcolor = rgb(200,100,100)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 7:
-fcolor = rgb(0,0,0)
-bcolor = rgb(250,150,150)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 8:
-fcolor = rgb(0,0,0)
-bcolor = rgb(250,200,200)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 9:
-fcolor = rgb(0,0,0)
-bcolor = rgb(250,245,245)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 10:
-fcolor = rgb(0,0,0)
-bcolor = rgb(255,250,250)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 11:
-fcolor = rgb(0,0,0)
-bcolor = rgb(255,255,255)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 12:
-fcolor = rgb(0,0,0)
-bcolor = rgb(255,255,255)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 13:
-fcolor = rgb(0,0,0)
-bcolor = rgb(255,255,255)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 14:
-fcolor = rgb(0,0,0)
-bcolor = rgb(255,250,250)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 15:
-fcolor = rgb(0,0,0)
-bcolor = rgb(255,245,245)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 16:
-fcolor = rgb(0,0,0)
-bcolor = rgb(250,240,240)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 17:
-fcolor = rgb(0,0,0)
-bcolor = rgb(250,230,230)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 18:
-fcolor = rgb(0,0,0)
-bcolor = rgb(250,220,220)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 19:
-fcolor = rgb(0,0,0)
-bcolor = rgb(250,210,210)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 20:
-fcolor = rgb(0,0,0)
-bcolor = rgb(250,200,200)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 21:
-fcolor = rgb(0,0,0)
-bcolor = rgb(250,150,150)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 22:
-fcolor = rgb(255,255,255)
-bcolor = rgb(25,25,25)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if hour = 23:
-fcolor = rgb(255,255,255)
-bcolor = rgb(5,5,5)
-if vibratorin = 1:
-horny = horny + rand(1,5)
-end
-end
-if temper <= 0:
-	if palto = 1: bonusZ = -3
-	if palto = 2: bonusZ = 0
-	if palto = 3: bonusZ = 3
-	if temper<-10 and palto = 1:
-		set frost += 1
-		if energy < 5: set frost += 1
-		if tanga = 0: set frost += 1
-		if sweat > 0: set frost += 1
-		end
-	if temper<-20 and palto = 2:
-		set frost += 1
-		if energy < 5: set frost += 1
-		if sweat > 0: set frost += 1
-		end
-	if temper<-30 and palto = 3: set frost += 1
-	if palto <= 0:
-		if temper<-10: frost += 1
-		if temper<-20: frost += 2
-		if temper<-30: frost += 5
-		end
-	if frost >= 12: set sick += 1
-	if sick > 0 and sickstage = 0: set sickstage = 1
-end
---- time ---------------------------------
-

+ 0 - 47
locations/028_kid

@@ -1,47 +0,0 @@
-# kid
-if $ARGS[0] = 'start':
-	clr
-	gs 'stat'
-	if kid > 0:
-		set kidIteration = 1
-		set kidSelected = 0
-		!set kidLoops = 0
-		:loop
-		if polkid[kidIteration] = 0:
-			$kidPosPro[kidIteration] = 'her'
-		end
-		else:
-			$kidPosPro[kidIteration] = 'his'
-		end
-		"Your child, a <<$polreb[kidIteration]>> named <<$kidname[kidIteration]>>. The child's date of birth is <<daykid[kidIteration]>>-<<monthkid[kidSelected]>>-<<yearkid[kidSelected]>>. The child's age is <<kidage[kidIteration]>>"
-		if kidage[kidIteration]<1: '<<$kidname[kidIteration]>> is a baby lying in <<$kidPosPro[kidIteration]>> crib.'
-		if kidage[kidIteration] >= 1 and kidage[kidIteration]<7:
-			if hour >= 9 and hour <= 21:
-				'<<$kidname[kidIteration]>> is playing with toys.'
-			end
-			else
-				'<<$kidname[kidIteration]>> is alseep in <<$kidPosPro[kidIteration]>> crib.'
-			end
-		end
-		if kidage[kidIteration] >= 7 and kidage[kidIteration]<18:
-			if hour >= 21 or hour <= 8:
-				'<<$kidname[kidIteration]>> is alseep in <<$kidPosPro[kidIteration]>> bed.'
-			end
-			else
-				'<<$kidname[kidIteration]>> watching TV.'
-			end
-		end
-		''
-		set kidIteration += 1
-		!set kidLoops += 1
-		if kidIteration <= numkid:
-			jump 'loop'
-		end
-	end
-	act 'Leave.':
-		cla
-		gt 'sitr'
-	end
-end
---- kid ---------------------------------
-

+ 358 - 0
locations/028_time

@@ -0,0 +1,358 @@
+# time
+If month = 1 and pogodaday ! day:
+	set pogodaday = day
+	set temper = rand(-30, 8)
+
+	if temper <= 0:
+	set osadki = rand(0, 10)
+		if osadki < painweather:set $osadki = 'Clear.'
+		if osadki >= painweather:set $osadki = 'Goes fluffy snow.'
+	end
+
+	if temper > 0:
+		set osadki = rand(0, 10)
+		if osadki < painweather:set $osadki = 'Clear the snow begins to melt some places forming slush.'
+		if osadki >= painweather:set $osadki = 'Wet snow falls, which immediately melts forming slush.'
+	end
+
+	set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
+end
+
+If month = 2 and pogodaday ! day:
+	set pogodaday = day
+	set temper = rand(-35, 8)
+
+	if temper <= 0:
+		set osadki = rand(0, 10)
+			if osadki < painweather:set $osadki = 'Cloudy and windy.'
+			if osadki >= painweather:set $osadki = 'It´s snowing.'
+	end
+
+	if temper > 0:
+		set osadki = rand(0, 10)
+		if osadki < painweather:set $osadki = 'Clear the snow begins to melt some places forming slush.'
+		if osadki >= painweather:set $osadki = 'Wet snow falls, which immediately melts forming slush.'
+	end
+
+	set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
+end
+
+If month = 3 and pogodaday ! day:
+	set pogodaday = day
+	set temper = rand(-20, 17)
+
+	if temper <= 0:
+		set osadki = rand(0, 10)
+
+		if osadki < painweather:set $osadki = 'Clear and cloudless.'
+		if osadki >= painweather:set $osadki = 'It´s snowing.'
+	end
+
+	if temper > 0:
+		set osadki = rand(0, 10)
+		if osadki < painweather:set $osadki = 'Clear the snow begins to melt some places forming slush.'
+		if osadki >= painweather:set $osadki = 'Wet snow falls, which immediately melts forming slush.'
+	end
+
+	set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
+end
+
+If month = 4 and pogodaday ! day:
+	set pogodaday = day
+	set temper = rand(2, 20)
+	set osadki = rand(0, 10)
+
+	if osadki < painweather:
+		if hour >= 7 and hour <= 20:set $osadki = 'Clear.'
+		if hour < 7 or hour > 20:set $osadki = 'Clear.'
+	end
+
+	if osadki >= painweather:set $osadki = 'Rain.'
+
+	set $pogoda = 'On the street the snow melts, the temperature <<temper>> degrees Celsius. <<$osadki>>'
+end
+
+If month = 5 and pogodaday ! day:
+	set pogodaday = day
+	set temper = rand(7, 25)
+	set osadki = rand(0, 10)
+
+	if osadki < painweather:set $osadki = 'Clear.'
+	if osadki >= painweather:set $osadki = 'Rain.'
+
+	set $pogoda = 'From puddles in the street rastaevshego snow, dirt and debris all around seem after winter, something where new grass pleases the eye with its greenery, the temperature <<temper>> degrees Celsius. <<$osadki>>'
+end
+
+If month = 6 and pogodaday ! day:
+	set pogodaday = day
+	set temper = rand(15, 35)
+	set osadki = rand(0, 10)
+
+	if osadki < painweather:set $osadki = 'Clear.'
+	if osadki >= painweather:set $osadki = 'Rain.'
+
+	set $pogoda = 'On the street the green grass, the temperature <<temper>> degrees Celsius. <<$osadki>>'
+end
+
+If month = 7 and pogodaday ! day:
+	set pogodaday = day
+	set temper = rand(20, 40)
+	set osadki = rand(0, 10)
+
+	if osadki < painweather:set $osadki = 'Clear.'
+	if osadki >= painweather:set $osadki = 'Warm rain comes.'
+
+	set $pogoda = 'Green grass on the street, the temperature <<temper>> degrees Celsius. <<$osadki>>'
+end
+
+If month = 8 and pogodaday ! day:
+	set pogodaday = day
+	set temper = rand(20, 35)
+	set osadki = rand(0, 10)
+
+	if osadki < painweather:set $osadki = 'Clear.'
+	if osadki >= painweather:set $osadki = 'Warm rain comes.'
+
+	set $pogoda = 'Outdoors green grass, where some are already visible yellowing leaves, temperature <<temper>> degrees Celsius. <<$osadki>>'
+end
+
+If month = 9 and pogodaday ! day:
+	set pogodaday = day
+	set temper = rand(10, 30)
+	set osadki = rand(0, 10)
+
+	if osadki < painweather:set $osadki = 'Clear.'
+	if osadki >= painweather:set $osadki = 'Rain.'
+
+	set $pogoda = 'Street zhuhnet grass, visible yellow leaves, the temperature <<temper>> degrees Celsius. <<$osadki>>'
+end
+
+If month = 10 and pogodaday ! day:
+	set pogodaday = day
+	set temper = rand(2, 20)
+	set osadki = rand(0, 10)
+
+	if osadki < painweather:set $osadki = 'Clear.'
+	if osadki >= painweather:set $osadki = 'Goes cold rain.'
+
+	set $pogoda = 'On the street faded grass, falling yellow leaves, mud and puddles around, temperature <<temper>> degrees Celsius. <<$osadki>>'
+end
+
+If month = 11 and pogodaday ! day:
+	set pogodaday = day
+	set temper = rand(-20, 17)
+
+	if temper <= 0:
+	set osadki = rand(0, 10)
+		if osadki < painweather:set $osadki = 'Clear and cloudless.'
+		if osadki >= painweather:set $osadki = 'It´s snowing.'
+	end
+
+	if temper > 0:
+		set osadki = rand(0, 10)
+
+		if osadki < painweather:set $osadki = 'Clear the snow begins to melt some places forming slush.'
+		if osadki >= painweather:set $osadki = 'Cold rain.'
+	end
+
+	set $pogoda = 'The street is dirty and thin snow cover, temperature <<temper>> degrees Celsius. <<$osadki>>'
+end
+
+If month = 12 and pogodaday ! day:
+	set pogodaday = day
+	set temper = rand(-30, 8)
+	if temper <= 0:
+	set osadki = rand(0, 10)
+
+	if osadki < painweather:set $osadki = 'Cloudy and windy.'
+	if osadki >= painweather:set $osadki = 'Goes fluffy snow.'
+	end
+
+	if temper > 0:
+		set osadki = rand(0, 10)
+
+		if osadki < painweather:set $osadki = 'Clear the snow begins to melt some places forming slush.'
+		if osadki >= painweather:set $osadki = 'Wet snow falls, which immediately melts forming slush.'
+	end
+
+	set $pogoda = 'On the street there is snow, the temperature <<temper>> degrees Celsius. <<$osadki>>'
+end
+
+pl '<<$pogoda>>'
+
+if osadki >= painweather and umbrella = 0 and mop > 1:
+	set mop = 0
+	'You do not have an umbrella and on the moisture flowed your cosmetics.'
+end
+
+if osadki >= painweather and umbrella = 0 and hapri = 1:
+	set hapri = 0
+
+	if curly > 0:set curly -= 1
+
+	'You do not have an umbrella and on the moisture your hair has deteriorated.'
+end
+
+if isprok = 0 and mesec > 0 and preg = 0:
+	'<b><font color="red">You have the blood flowing in the legs and staining the linen clothes.</font></b>'
+
+	if clrbelo > 0:set clrbelo -= 1
+
+	set sweat += 1
+	set manna -= 10
+	set willpower -= 10
+	gs 'starenie'
+end
+
+if vibratorin = 1:horny += rand(1, 5)
+
+if hour = 0:
+	fcolor = rgb(255, 255, 255)
+	bcolor = rgb(0, 0, 0)
+end
+
+if hour = 1:
+	fcolor = rgb(255, 255, 255)
+	bcolor = rgb(5, 5, 5)
+end
+
+if hour = 2:
+	fcolor = rgb(255, 255, 255)
+	bcolor = rgb(10, 10, 10)
+end
+
+if hour = 3:
+	fcolor = rgb(255, 255, 255)
+	bcolor = rgb(30, 15, 15)
+end
+
+if hour = 4:
+	fcolor = rgb(255, 255, 255)
+	bcolor = rgb(60, 20, 20)
+end
+
+if hour = 5:
+	fcolor = rgb(255, 255, 255)
+	bcolor = rgb(100, 40, 40)
+end
+
+if hour = 6:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(200, 100, 100)
+end
+if hour = 7:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(250, 150, 150)
+end
+
+if hour = 8:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(250, 200, 200)
+end
+
+if hour = 9:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(250, 245, 245)
+end
+
+if hour = 10:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(255, 250, 250)
+end
+
+if hour = 11:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(255, 255, 255)
+end
+
+if hour = 12:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(255, 255, 255)
+end
+
+if hour = 13:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(255, 255, 255)
+end
+
+if hour = 14:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(255, 250, 250)
+end
+
+if hour = 15:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(255, 245, 245)
+end
+
+if hour = 16:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(250, 240, 240)
+end
+
+if hour = 17:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(250, 230, 230)
+end
+
+if hour = 18:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(250, 220, 220)
+end
+
+if hour = 19:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(250, 210, 210)
+end
+
+if hour = 20:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(250, 200, 200)
+end
+
+if hour = 21:
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(250, 150, 150)
+end
+
+if hour = 22:
+	fcolor = rgb(255, 255, 255)
+	bcolor = rgb(25, 25, 25)
+end
+
+if hour = 23:
+	fcolor = rgb(255, 255, 255)
+	bcolor = rgb(5, 5, 5)
+end
+
+if temper <= 0:
+	if palto = 1:bonusZ = -3
+	if palto = 2:bonusZ = 0
+	if palto = 3:bonusZ = 3
+
+	if temper < -10 and palto = 1:
+		set frost += 1
+		if energy < 5:set frost += 1
+		if tanga = 0:set frost += 1
+		if sweat > 0:set frost += 1
+	end
+
+	if temper < -20 and palto = 2:
+		set frost += 1
+		if energy < 5:set frost += 1
+		if sweat > 0:set frost += 1
+	end
+
+	if temper< -30 and palto = 3:set frost += 1
+
+	if palto <= 0:
+		if temper < -10:frost += 1
+		if temper < -20:frost += 2
+		if temper < -30:frost += 5
+	end
+
+	if frost >= 12:set sick += 1
+	if sick > 0 and sickstage = 0:set sickstage = 1
+end
+
+--- time ---------------------------------

+ 52 - 0
locations/029_kid

@@ -0,0 +1,52 @@
+# kid
+if $ARGS[0] = 'start':
+	clr
+	gs 'stat'
+
+	if kid > 0:
+		set kidIteration = 1
+		set kidSelected = 0
+		!set kidLoops = 0
+		:loop
+		if polkid[kidIteration] = 0:
+			$kidPosPro[kidIteration] = 'her'
+		else
+			$kidPosPro[kidIteration] = 'his'
+		end
+
+		"Your child, a <<$polreb[kidIteration]>> named <<$kidname[kidIteration]>>. The child's date of birth is <<daykid[kidIteration]>>-<<monthkid[kidSelected]>>-<<yearkid[kidSelected]>>. The child's age is <<kidage[kidIteration]>>"
+		if kidage[kidIteration] < 1: '<<$kidname[kidIteration]>> is a baby lying in <<$kidPosPro[kidIteration]>> crib.'
+		if kidage[kidIteration] >= 1 and kidage[kidIteration] < 7:
+
+		if hour >= 9 and hour <= 21:
+			'<<$kidname[kidIteration]>> is playing with toys.'
+			else
+				'<<$kidname[kidIteration]>> is alseep in <<$kidPosPro[kidIteration]>> crib.'
+			end
+		end
+
+		if kidage[kidIteration] >= 7 and kidage[kidIteration] < 18:
+			if hour >= 21 or hour <= 8:
+				'<<$kidname[kidIteration]>> is alseep in <<$kidPosPro[kidIteration]>> bed.'
+			else
+				'<<$kidname[kidIteration]>> watching TV.'
+			end
+		end
+
+		''
+		set kidIteration += 1
+		!set kidLoops += 1
+
+		if kidIteration <= numkid:
+			jump 'loop'
+		end
+	end
+
+	act 'Leave.':
+		cla
+		gt 'sitr'
+	end
+end
+
+--- kid ---------------------------------
+

+ 0 - 16
locations/029_subkid

@@ -1,16 +0,0 @@
-# subkid
-if kid > 0:
-	set kidIteration = 1
-	set kidSelected = 0
-	set kidLoops = 0
-	:loop
-	set kidSelected[kidLoops] = kidIteration
-	pl '<a href="exec:kidSelected = kidSelected[kidLoops]& gt ''kid'',''start'' ">In the crib lies <<$kidname[kidIteration]>>.</a>'
-	set kidIteration += 1
-	set kidLoops += 1
-	if kidIteration <= numkid:
-		jump 'loop'
-	end
-end
---- subkid ---------------------------------
-

+ 0 - 474
locations/030_alterStart

@@ -1,474 +0,0 @@
-# alterStart
-StoryLine = 1
-MagikDostup = 1
-
-umbrella = 1
-birthday = 5
-birthmonth = 3
-set $name = 'Svetlana'
-set $surname = 'Lebedev'
-set age = 15
-set vidage = 14
-!set age = 17
-!set vidage = 16
-set year = 2010
-!set month = 8
-set week = 6
-set hour = 10
-!day = 30
-set month = 3
-day = 9
-!!!!!!!!!!!!!!!
-!month = 3
-!day = 9
-!week = 6
-!hour = 10
-!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!
-month = 8
-day = 30
-week = 6
-hour = 9
-!!!!!!!!!!!!!!
-birthyear = year - age
-!body
-set rost = 170
-set fat = 60
-set salo = 60
-set dick = 0
-set energy = 15
-set water = 15
-set 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 = 50
-set vidageday = 300
-set housrA = 0
-set sarafan[1] = 1
-set sarafanH[1] = 30
-set odevnesh = 0
-set lobok = 3
-set leghair -= 5
-set mop = 1
-set recmop = 1
-set usemop = 0
-set usehapri = 0
-set uselipbalm = 0
-set housr = 0
-tanga = 1
-karta = 0
-
-
-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 = 0
-set fairy = 0
-set eda = 0
-set clrbelo = 10
-set poroshok = 0
-set shampoo = 0
-tampon = 20
-set nude = 0
-gs 'stat'
-set opPRE = 0
-set daystart = 0
-!addobj 'Character'
-!addobj 'See'
-!addobj 'Others'
-
-newclo[131] = 1
-yoga[15] = 1
-yogaH[15] = 100
-
-glacol = 1
-glaraz = 2
-hcol = 1
-lip = 2
-
-!hcol = black
-!hcol1 = brunette
-!hcol2 = red
-!hcol3 = blonde
-
-gs 'stat'
-clr
-
-dress[5] = 1
-dressH[5] = 100
-dressB[5] = 70
-
-palto = 1
-$palto = 'Chinese wear'
-
-father = 50
-mother = 50
-sister = 50
-brother = 50
-Suspeh = 75
-
-$npcName[1] = 'Dima'
-$npcSurName[1] = 'Nosov'
-$npcText[1] = 'Dima is a cute guy and all the girls adore him.'
-grupNPC[1] = 50
-npcPol[1] = 0
-grupTipe[1] = 3
-$npcGo[1] = '<a href="exec:numnpc = 1 & GT ''Snpc''"><<$npcName[1]>> <<$npcSurName[1]>></a>'
-
-$npcName[2] = 'Artem'
-$npcSurName[2] = 'Chebotarev'
-$npcText[2] = 'Artem is a typical nerd, but not a bad looking one.'
-grupNPC[2] = 50
-npcPol[2] = 0
-grupTipe[2] = 1
-$npcGo[2] = '<a href="exec:numnpc = 2 & GT ''Snpc''"><<$npcName[2]>> <<$npcSurName[2]>></a>'
-
-$npcName[3] = 'Ivan'
-$npcSurName[3] = 'Prokhorov'
-$npcText[3] = 'Ivan is an excellent athlete, who is able to succeed in any sport.'
-grupNPC[3] = 50
-npcPol[3] = 0
-grupTipe[3] = 2
-$npcGo[3] = '<a href="exec:numnpc = 3 & GT ''Snpc''"><<$npcName[3]>> <<$npcSurName[3]>></a>'
-
-$npcName[4] = 'Igor'
-$npcSurName[4] = 'Kruglov'
-$npcText[4] = 'Igor Nosov is a friend of Dimka and they are always together.'
-grupNPC[4] = 50
-npcPol[4] = 0
-grupTipe[4] = 3
-$npcGo[4] = '<a href="exec:numnpc = 4 & GT ''Snpc''"><<$npcName[4]>> <<$npcSurName[4]>></a>'
-
-$npcName[5] = 'Fedor'
-$npcSurName[5] = 'Kozlov'
-$npcText[5] = 'Fedor is not a bad athlete and he''s best friends with Ivan.'
-grupNPC[5] = 50
-npcPol[5] = 0
-grupTipe[5] = 2
-$npcGo[5] = '<a href="exec:numnpc = 5 & GT ''Snpc''"><<$npcName[5]>> <<$npcSurName[5]>></a>'
-
-$npcName[6] = 'Petka'
-$npcSurName[6] = 'Klyuyev'
-$npcText[6] = 'Petka is a nerd and can''t see beyond his textbook.'
-grupNPC[6] = 50
-npcPol[6] = 0
-grupTipe[6] = 1
-$npcGo[6] = '<a href="exec:numnpc = 6 & GT ''Snpc''"><<$npcName[6]>> <<$npcSurName[6]>></a>'
-
-$npcName[7] = 'Lesco'
-$npcSurName[7] = 'Tsarev'
-$npcText[7] = 'Everyone at school always bullies Lesco about anything and everything.'
-grupNPC[7] = 50
-npcPol[7] = 0
-grupTipe[7] = -1
-$npcGo[7] = '<a href="exec:numnpc = 7 & GT ''Snpc''"><<$npcName[7]>> <<$npcSurName[7]>></a>'
-
-$npcName[8] = 'Svyatoslav'
-$npcSurName[8] = 'Warriors'
-$npcText[8] = 'Svyatoslav is a athletic guy, who is persistently engaged in sports.'
-grupNPC[8] = 50
-npcPol[8] = 0
-grupTipe[8] = 2
-$npcGo[8] = '<a href="exec:numnpc = 8 & GT ''Snpc''"><<$npcName[8]>> <<$npcSurName[8]>></a>'
-
-$npcName[9] = 'Vitek'
-$npcSurName[9] = 'Cats'
-$npcText[9] = 'Vitek is aggressive and a strong guy, who considers himself a gangsta. But his personality is pretty much see-through. Lena is his twin-sister.'
-grupNPC[9] = 50
-npcPol[9] = 0
-grupTipe[9] = 4
-$npcGo[9] = '<a href="exec:numnpc = 9 & GT ''Snpc''"><<$npcName[9]>> <<$npcSurName[9]>></a>'
-
-$npcName[10] = 'Dan'
-$npcSurName[10] = 'Ryzhov'
-$npcText[10] = 'Dan is a tall and skinny guy who communicates to others with contempt and is always ready to expand on the concept. Also, according to him, Dan knows the boys to clear the area, which if anything, harness oneself for it.'
-grupNPC[10] = 50
-npcPol[10] = 0
-grupTipe[10] = 4
-$npcGo[10] = '<a href="exec:numnpc = 10 & GT ''Snpc''"><<$npcName[10]>> <<$npcSurName[10]>></a>'
-
-$npcName[11] = 'Bob'
-$npcSurName[11] = 'Shulgin'
-$npcText[11] = 'Bob is always with Dan and Vic, mostly watching their six, but Vitek makes continously fun of him.'
-grupNPC[11] = 50
-npcPol[11] = 0
-grupTipe[11] = 4
-$npcGo[11] = '<a href="exec:numnpc = 11 & GT ''Snpc''"><<$npcName[11]>> <<$npcSurName[11]>></a>'
-
-$npcName[12] = 'Julia'
-$npcSurName[12] = 'Milov'
-$npcText[12] = 'Julia is a diligent and silent girl. She''s a really nerdy and almost no one talks to her.'
-grupNPC[12] = 50
-npcPol[12] = 1
-grupTipe[12] = 1
-$npcGo[12] = '<a href="exec:numnpc = 12 & GT ''Snpc''"><<$npcName[12]>> <<$npcSurName[12]>></a>'
-
-$npcName[13] = 'Lariska'
-$npcSurName[13] = 'Gruzdeva'
-$npcText[13] = 'Lariska is a very sportive girl, but is very dependent on other people''s opinions.'
-grupNPC[13] = 50
-npcPol[13] = 1
-grupTipe[13] = 2
-$npcGo[13] = '<a href="exec:numnpc = 13 & GT ''Snpc''"><<$npcName[13]>> <<$npcSurName[13]>></a>'
-
-$npcName[14] = 'Katia'
-$npcSurName[14] = 'Meynold'
-$npcText[14] = 'Katia is a hot, but impulsive girl. Vick is her twin-sister.'
-grupNPC[14] = 50
-npcPol[14] = 1
-grupTipe[14] = 3
-$npcGo[14] = '<a href="exec:numnpc = 14 & GT ''Snpc''"><<$npcName[14]>> <<$npcSurName[14]>></a>'
-
-$npcName[15] = 'Vick'
-$npcSurName[15] = 'Meynold'
-$npcText[15] = 'Vick is a very sensible girl. Katia is her twin sister.'
-grupNPC[15] = 50
-npcPol[15] = 1
-grupTipe[15] = 3
-$npcGo[15] = '<a href="exec:numnpc = 15 & GT ''Snpc''"><<$npcName[15]>> <<$npcSurName[15]>></a>'
-
-$npcName[16] = 'Natasha'
-$npcSurName[16] = 'Belova'
-$npcText[16] = 'Natasha is an excellent student, but she barely speaks to anyone.'
-grupNPC[16] = 50
-npcPol[16] = 1
-grupTipe[16] = 1
-$npcGo[16] = '<a href="exec:numnpc = 16 & GT ''Snpc''"><<$npcName[16]>> <<$npcSurName[16]>></a>'
-
-$npcName[17] = 'Inna'
-$npcSurName[17] = 'Devyatova'
-$npcText[17] = 'Inna is a tall and pretty girl, her sweet smile hides her arrogance.'
-grupNPC[17] = 50
-npcPol[17] = 1
-grupTipe[17] = 3
-$npcGo[17] = '<a href="exec:numnpc = 17 & GT ''Snpc''"><<$npcName[17]>> <<$npcSurName[17]>></a>'
-
-$npcName[18] = 'Christina'
-$npcSurName[18] = 'Zvereva'
-$npcText[18] = 'Christina tall and strong girl. She''s a great athlete and has leadership abilities who, together with her tenacity and intelligence make it a very serious figure.'
-grupNPC[18] = 50
-npcPol[18] = 1
-grupTipe[18] = 2
-$npcGo[18] = '<a href="exec:numnpc = 18 & GT ''Snpc''"><<$npcName[18]>> <<$npcSurName[18]>></a>'
-
-$npcName[19] = 'Lina'
-$npcSurName[19] = 'Starov'
-$npcText[19] = 'Lina is an athlete who does anything Christina wants.'
-grupNPC[19] = 50
-npcPol[19] = 1
-grupTipe[19] = 2
-$npcGo[19] = '<a href="exec:numnpc = 19 & GT ''Snpc''"><<$npcName[19]>> <<$npcSurName[19]>></a>'
-
-$npcName[20] = 'Lena'
-$npcSurName[20] = 'Kotova'
-$npcText[20] = 'She''s the twin-sister to Witek. She is aggressive too and best of friends with Lera. Both tend to smoke in the bathrooms on a regular basis.'
-grupNPC[20] = 50
-npcPol[20] = 1
-grupTipe[20] = 4
-$npcGo[20] = '<a href="exec:numnpc = 20 & GT ''Snpc''"><<$npcName[20]>> <<$npcSurName[20]>></a>'
-
-$npcName[21] = 'Lera'
-$npcSurName[21] = 'Tsarev'
-$npcText[21] = 'Lera comes from a poor family, she quickly made friends with Lena and both are regulary smoking on the toilets.'
-grupNPC[21] = 50
-npcPol[21] = 1
-grupTipe[21] = 4
-$npcGo[21] = '<a href="exec:numnpc = 21 & GT ''Snpc''"><<$npcName[21]>> <<$npcSurName[21]>></a>'
-
-$npcName[22] = 'Bella'
-$npcSurName[22] = 'Artamonov'
-$npcText[22] = 'Bella is a beautiful and arrogant girl.'
-grupNPC[22] = 50
-npcPol[22] = 1
-grupTipe[22] = 2
-$npcGo[22] = '<a href="exec:numnpc = 22 & GT ''Snpc''"><<$npcName[22]>> <<$npcSurName[22]>></a>'
-
-$npcName[23] = 'Albina'
-$npcSurName[23] = 'Barlovskaya'
-$npcText[23] = 'Albina from a wealthy family and always knew how to look good and dress well.'
-grupNPC[23] = 50
-npcPol[23] = 1
-grupTipe[23] = 3
-$npcGo[23] = '<a href="exec:numnpc = 23 & GT ''Snpc''"><<$npcName[23]>> <<$npcSurName[23]>></a>'
-
-$npcName[24] = 'Pauline'
-$npcSurName[24] = 'Sebagotulina'
-$npcText[24] = 'Pauline like pain in the ass who does not let her sit still, she and dvoechnitsa hooligan.'
-grupNPC[24] = 50
-npcPol[24] = 1
-grupTipe[24] = 4
-$npcGo[24] = '<a href="exec:numnpc = 24 & GT ''Snpc''"><<$npcName[24]>> <<$npcSurName[24]>></a>'
-
-$npcName[25] = 'Sonia'
-$npcSurName[25] = 'Ivanko'
-!$npcText[25] = 'Sonia once inadvertently drunk and fucked her in a circle Witek Kotov and his friends. After that, the girls shunned Sonya, and the boys thought she was a whore. Local gopota regularly drove to Sonia proposals have sex.'
-$npcText[25] = 'Sonia an ordinary girl.'
-grupNPC[25] = 50
-npcPol[25] = 1
-grupTipe[25] = 0
-$npcGo[25] = '<a href="exec:numnpc = 25 & GT ''Snpc''"><<$npcName[25]>> <<$npcSurName[25]>></a>'
-
-SHOWSTAT 0
-SHOWOBJS 0
-
-$din_alter_start_ev = {
-cls
-!'When you were 13 years old, your period started like most other girls in your class. Your breasts started to grow and your armpit and pubic hair began to sprout. Your skin became covered with acne. When you finished 9th class, you did not drop out of school, and continued to study in the 10th grade.'
-'You''re about to start 10th grade (placeholder until someone comes up with a less terrible intro than was here before)'
-
-'The summer holiday ends soon and you will go to your new class to start your first of the two years you''re going to study.'
-
-act 'Start the game':
-	SHOWSTAT 1
-	SHOWOBJS 1
-	health = vital * 10 + stren * 5 + 1000
-	willpower = intel * 5 + will * 5 + 1000
-	manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
-	addobj 'Character'
-	addobj 'See'
-	addobj 'Others'
-	gt 'bedrPar'
-end
-}
-
-'You were born in <<birthyear>>.'
-'Your mother and father, Natasha Mikhail <<$surname>>, were quite young and probably didn''t know how to protect themselves.'
-'You have a sister, Anne, who is 2 years older than you.'
-'You do not remember your real father because your parents divorced when you were still too young to remember. Your mom found another man and they had your little brother Nick.'
-set $name = input("What is your first name?")
-if $name = '':
-	set $name = 'Svetlana'
-end
-set $surname = input("What is your last name?")
-if $surname = '':
-	set $surname = 'Lebedev'
-end
-act 'Further':
-	cls
-
-	'In the kindergarten where you went everything was fine, but you don''t remember it. When you were 7 years old, you finished kindergarten and went to school.'
-
-	act 'You are a good student':
-		cls
-		fat = 150
-		salo = 150
-		intel = 50
-		Suspeh = 110
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		set hairlength = 162
-		set hcol = 0
-		set hpingrip = 10
-		set hpingripw = 1
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		gs 'stat'
-		clr
-		dressB[5] = bedra
-		jeansB[1] = bedra
-		mother = 100
-		money += 2000
-		tan = 5
-		'In school, you put a lot of effort to be an excellent pupil. You didn''t make any friends because you weren''t engaged in sports, but you have excellent grades and your mom is very proud of you.'
-
-		act 'Further': dynamic $din_alter_start_ev
-	end
-
-	act 'You are actively engaged in volleyball':
-		cls
-		stren = 25
-		vital = 25
-		speed = 25
-		agil = 25
-		fat = 20
-		salo = 20
-		volleyboll = 70
-		beg = 40
-		gsAboVolley = 120
-		dom=10
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		set hairlength = 97
-		set hcol = 3
-		set hscrunch = 10
-		set hscrunchw = 0
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		gs 'stat'
-		clr
-		dressB[5] = bedra
-		jeansB[1] = bedra
-		tan = 30
-		'You spent all your free time training your volleyball skills. Because of that you weren''t that good in school and had less friends.'
-		act 'Further': dynamic $din_alter_start_ev
-	end
-
-	act 'You spent time outdoors':
-		cls
-		stren = 10
-		vital = 10
-		agil = 20
-		fat = 30
-		salo = 30
-		dom = 50
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		set hairlength = 19
-		set hcol = 2
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		gs 'stat'
-		clr
-		dressB[5] = bedra
-		jeansB[1] = bedra
-		tan = 50
-		'You spent almost all your free time outdoors playing with other girls and boys. As a result, you know how to get yourself out of trouble. You aren''t interested in School and sports.'
-		act 'Further': dynamic $din_alter_start_ev
-	end
-	
-	act 'You were completely obsessed with books.':
-		cls
-		stren=1
-		vital=5
-		agil=1
-		fat=10
-		salo=10
-		intel=30
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		set hairlength = 50
-		set hcol = 0
-		!!!!!!!!!!!!!! Maruda Hair Mod
-		gs'stat'
-		clr
-		dressB[5]=bedra
-		jeansB[1] = bedra
-		tan=0
-		blizoruk=300
-		glass=1
-		Suspeh=55
-		nerdism=100
-		fantasybook=5
-		'You spent virtually all your free time at home reading books. While you''ve definitely learned a decent bit from them, you''ve always been rather frail as a result, and too many nights of trying to read in poor light have taken a toll on your eyesight.'
-		act 'further':dynamic $din_alter_start_ev
-	 end
-	
-end
---- alterStart ---------------------------------
-

+ 16 - 0
locations/030_subkid

@@ -0,0 +1,16 @@
+
+# subkid
+if kid > 0:
+	set kidIteration = 1
+	set kidSelected = 0
+	set kidLoops = 0
+	:loop
+	set kidSelected[kidLoops] = kidIteration
+	pl '<a href="exec:kidSelected = kidSelected[kidLoops]& gt ''kid'',''start'' ">In the crib lies <<$kidname[kidIteration]>>.</a>'
+	set kidIteration += 1
+	set kidLoops += 1
+
+	if kidIteration <= numkid:jump 'loop'
+end
+
+--- subkid ---------------------------------

+ 441 - 0
locations/031_alterStart

@@ -0,0 +1,441 @@
+# alterStart
+StoryLine = 1
+MagikDostup = 1
+umbrella = 1
+birthday = 5
+birthmonth = 3
+set $name = 'Svetlana'
+set $surname = 'Lebedev'
+!!!0.2.6 addition
+set $nickname = 'Svetski'
+!!!
+set age = 15
+set vidage = 14
+!!set age = 17
+!!set vidage = 16
+set year = 2009
+!!set month = 8
+set week = 6
+set hour = 10
+!!day = 30
+set month = 3
+day = 9
+!!!!!!!!!!!!!!!
+!!month = 3
+!!day = 9
+!!week = 6
+!!hour = 10
+!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!
+month = 8
+day = 29
+week = 5
+hour = 9
+!!!!!!!!!!!!!!
+birthyear = year - age
+!!body
+set rost = 170
+set fat = 60
+set salo = 60
+set dick = 0
+set energy = 15
+set water = 15
+set 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 = 50
+set vidageday = 300
+set housrA = 0
+set sarafan[1] = 1
+set sarafanH[1] = 30
+set odevnesh = 0
+set lobok = 3
+set leghair -= 5
+set mop = 1
+set housr = 0
+tanga = 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 = 0
+set fairy = 0
+set eda = 0
+set clrbelo = 10
+set poroshok = 0
+set shampoo = 0
+tampon = 20
+set nude = 0
+gs 'stat'
+set opPRE = 0
+set daystart = 0
+!!addobj 'Character'
+!!addobj 'See'
+!!addobj 'Others'
+newclo[131] = 1
+yoga[15] = 1
+yogaH[15] = 100
+glacol = 1
+glaraz = 2
+hcol = 1
+lip = 2
+gs 'stat'
+clr
+dress[5] = 1
+dressH[5] = 100
+dressB[5] = 70
+palto = 1
+$palto = 'Chinese wear'
+father = 50
+mother = 50
+sister = 50
+brother = 50
+Suspeh = 75
+$npcName[1] = 'Dimka'
+$npcSurName[1] = 'Nosov'
+$npcText[1] = 'Dima is a cute guy and all the girls adore him.'
+grupNPC[1] = 50
+npcPol[1] = 0
+grupTipe[1] = 3
+$npcGo[1] = '<a href="exec:numnpc = 1 & gt ''Snpc''"><<$npcName[1]>> <<$npcSurName[1]>></a>'
+$npcName[2] = 'Artem'
+$npcSurName[2] = 'Chebotarev'
+$npcText[2] = 'Artem is a typical nerd, but not a bad looking one.'
+grupNPC[2] = 50
+npcPol[2] = 0
+grupTipe[2] = 1
+$npcGo[2] = '<a href="exec:numnpc = 2 & gt ''Snpc''"><<$npcName[2]>> <<$npcSurName[2]>></a>'
+$npcName[3] = 'Ivan'
+$npcSurName[3] = 'Prokhorov'
+$npcText[3] = 'Ivan is an excellent athlete, who is able to succeed in any sport.'
+grupNPC[3] = 50
+npcPol[3] = 0
+grupTipe[3] = 2
+$npcGo[3] = '<a href="exec:numnpc = 3 & gt ''Snpc''"><<$npcName[3]>> <<$npcSurName[3]>></a>'
+$npcName[4] = 'Igor'
+$npcSurName[4] = 'Kruglov'
+$npcText[4] = 'Igor Kruglov is a friend of Dimka and they are always together.'
+grupNPC[4] = 50
+npcPol[4] = 0
+grupTipe[4] = 3
+$npcGo[4] = '<a href="exec:numnpc = 4 & gt ''Snpc''"><<$npcName[4]>> <<$npcSurName[4]>></a>'
+$npcName[5] = 'Fedor'
+$npcSurName[5] = 'Kozlov'
+$npcText[5] = 'Fedor is not a bad athlete and he''s best friends with Ivan.'
+grupNPC[5] = 50
+npcPol[5] = 0
+grupTipe[5] = 2
+$npcGo[5] = '<a href="exec:numnpc = 5 & gt ''Snpc''"><<$npcName[5]>> <<$npcSurName[5]>></a>'
+$npcName[6] = 'Petka'
+$npcSurName[6] = 'Klyuyev'
+$npcText[6] = 'Petka is a nerd and can''t see beyond his textbook.'
+grupNPC[6] = 50
+npcPol[6] = 0
+grupTipe[6] = 1
+$npcGo[6] = '<a href="exec:numnpc = 6 & gt ''Snpc''"><<$npcName[6]>> <<$npcSurName[6]>></a>'
+$npcName[7] = 'Lesco'
+$npcSurName[7] = 'Tsarev'
+$npcText[7] = 'Everyone at school always bullies Lesco about anything and everything.'
+grupNPC[7] = 50
+npcPol[7] = 0
+grupTipe[7] = -1
+$npcGo[7] = '<a href="exec:numnpc = 7 & gt ''Snpc''"><<$npcName[7]>> <<$npcSurName[7]>></a>'
+$npcName[8] = 'Svyatoslav'
+$npcSurName[8] = 'Warriors'
+$npcText[8] = 'Svyatoslav is a athletic guy, who is persistently engaged in sports.'
+grupNPC[8] = 50
+npcPol[8] = 0
+grupTipe[8] = 2
+$npcGo[8] = '<a href="exec:numnpc = 8 & gt ''Snpc''"><<$npcName[8]>> <<$npcSurName[8]>></a>'
+$npcName[9] = 'Vitek'
+$npcSurName[9] = 'Cats'
+$npcText[9] = 'Vitek is aggressive and a strong guy, who considers himself a gangsta. But his personality is pretty much see-through. Lena is his twin-sister.'
+grupNPC[9] = 50
+npcPol[9] = 0
+grupTipe[9] = 4
+$npcGo[9] = '<a href="exec:numnpc = 9 & gt ''Snpc''"><<$npcName[9]>> <<$npcSurName[9]>></a>'
+$npcName[10] = 'Dan'
+$npcSurName[10] = 'Ryzhov'
+$npcText[10] = 'Dan is a tall and skinny guy who communicates to others with contempt and is always ready to expand on the concept. Also, according to him, Dan knows the boys to clear the area, which if anything, harness oneself for it.'
+grupNPC[10] = 50
+npcPol[10] = 0
+grupTipe[10] = 4
+$npcGo[10] = '<a href="exec:numnpc = 10 & gt ''Snpc''"><<$npcName[10]>> <<$npcSurName[10]>></a>'
+$npcName[11] = 'Bob'
+$npcSurName[11] = 'Shulgin'
+$npcText[11] = 'Bob is always with Dan and Vic, mostly watching their six, but Vitek makes continously fun of him.'
+grupNPC[11] = 50
+npcPol[11] = 0
+grupTipe[11] = 4
+$npcGo[11] = '<a href="exec:numnpc = 11 & gt ''Snpc''"><<$npcName[11]>> <<$npcSurName[11]>></a>'
+$npcName[12] = 'Julia'
+$npcSurName[12] = 'Milov'
+$npcText[12] = 'Julia is a diligent and silent girl. She''s a really nerdy and almost no one talks to her.'
+grupNPC[12] = 50
+npcPol[12] = 1
+grupTipe[12] = 1
+$npcGo[12] = '<a href="exec:numnpc = 12 & gt ''Snpc''"><<$npcName[12]>> <<$npcSurName[12]>></a>'
+$npcName[13] = 'Lariska'
+$npcSurName[13] = 'Gruzdeva'
+$npcText[13] = 'Lariska is a very sportive girl, but is very dependent on other people''s opinions.'
+grupNPC[13] = 50
+npcPol[13] = 1
+grupTipe[13] = 2
+$npcGo[13] = '<a href="exec:numnpc = 13 & gt ''Snpc''"><<$npcName[13]>> <<$npcSurName[13]>></a>'
+$npcName[14] = 'Katja'
+$npcSurName[14] = 'Meynold'
+$npcText[14] = 'Katja is a hot, but impulsive girl. Vick is her twin-sister.'
+grupNPC[14] = 50
+npcPol[14] = 1
+grupTipe[14] = 3
+$npcGo[14] = '<a href="exec:numnpc = 14 & gt ''Snpc''"><<$npcName[14]>> <<$npcSurName[14]>></a>'
+$npcName[15] = 'Vicky'
+$npcSurName[15] = 'Meynold'
+$npcText[15] = 'Vicky is a very sensible girl. Katja is her twin sister.'
+grupNPC[15] = 50
+npcPol[15] = 1
+grupTipe[15] = 3
+$npcGo[15] = '<a href="exec:numnpc = 15 & gt ''Snpc''"><<$npcName[15]>> <<$npcSurName[15]>></a>'
+$npcName[16] = 'Natasha'
+$npcSurName[16] = 'Belova'
+$npcText[16] = 'Natasha is an excellent student, but she barely speaks to anyone.'
+grupNPC[16] = 50
+npcPol[16] = 1
+grupTipe[16] = 1
+$npcGo[16] = '<a href="exec:numnpc = 16 & gt ''Snpc''"><<$npcName[16]>> <<$npcSurName[16]>></a>'
+$npcName[17] = 'Inna'
+$npcSurName[17] = 'Devyatova'
+$npcText[17] = 'Inna is a tall and pretty girl, her sweet smile hides her arrogance.'
+grupNPC[17] = 50
+npcPol[17] = 1
+grupTipe[17] = 3
+$npcGo[17] = '<a href="exec:numnpc = 17 & gt ''Snpc''"><<$npcName[17]>> <<$npcSurName[17]>></a>'
+$npcName[18] = 'Christina'
+$npcSurName[18] = 'Zvereva'
+$npcText[18] = 'Christina tall and strong girl. She''s a great athlete and has leadership abilities who, together with her tenacity and intelligence make it a very serious figure.'
+grupNPC[18] = 50
+npcPol[18] = 1
+grupTipe[18] = 2
+$npcGo[18] = '<a href="exec:numnpc = 18 & gt ''Snpc''"><<$npcName[18]>> <<$npcSurName[18]>></a>'
+$npcName[19] = 'Lina'
+$npcSurName[19] = 'Starov'
+$npcText[19] = 'Lina is an athlete who does anything Christina wants.'
+grupNPC[19] = 50
+npcPol[19] = 1
+grupTipe[19] = 2
+$npcGo[19] = '<a href="exec:numnpc = 19 & gt ''Snpc''"><<$npcName[19]>> <<$npcSurName[19]>></a>'
+$npcName[20] = 'Lena'
+$npcSurName[20] = 'Kotova'
+$npcText[20] = 'She''s the twin-sister to Vitek. She is aggressive too and best of friends with Lera. Both tend to smoke in the bathrooms on a regular basis.'
+grupNPC[20] = 50
+npcPol[20] = 1
+grupTipe[20] = 4
+$npcGo[20] = '<a href="exec:numnpc = 20 & gt ''Snpc''"><<$npcName[20]>> <<$npcSurName[20]>></a>'
+$npcName[21] = 'Lera'
+$npcSurName[21] = 'Tsarev'
+$npcText[21] = 'Lera comes from a poor family, she quickly made friends with Lena and both are regulary smoking on the toilets.'
+grupNPC[21] = 50
+npcPol[21] = 1
+grupTipe[21] = 4
+$npcGo[21] = '<a href="exec:numnpc = 21 & gt ''Snpc''"><<$npcName[21]>> <<$npcSurName[21]>></a>'
+$npcName[22] = 'Bella'
+$npcSurName[22] = 'Artamonov'
+$npcText[22] = 'Bella is a beautiful and arrogant girl.'
+grupNPC[22] = 50
+npcPol[22] = 1
+grupTipe[22] = 2
+$npcGo[22] = '<a href="exec:numnpc = 22 & gt ''Snpc''"><<$npcName[22]>> <<$npcSurName[22]>></a>'
+$npcName[23] = 'Albina'
+$npcSurName[23] = 'Barlovskaya'
+$npcText[23] = 'Albina from a wealthy family and always knew how to look good and dress well.'
+grupNPC[23] = 50
+npcPol[23] = 1
+grupTipe[23] = 3
+$npcGo[23] = '<a href="exec:numnpc = 23 & gt ''Snpc''"><<$npcName[23]>> <<$npcSurName[23]>></a>'
+$npcName[24] = 'Pauline'
+$npcSurName[24] = 'Sebagotulina'
+$npcText[24] = 'Pauline like pain in the ass who does not let her sit still, she and dvoechnitsa hooligan.'
+grupNPC[24] = 50
+npcPol[24] = 1
+grupTipe[24] = 4
+$npcGo[24] = '<a href="exec:numnpc = 24 & gt ''Snpc''"><<$npcName[24]>> <<$npcSurName[24]>></a>'
+$npcName[25] = 'Sonia'
+$npcSurName[25] = 'Ivanko'
+!!$npcText[25] = 'Sonia once inadvertently drunk and fucked her in a circle Witek Kotov and his friends. After that, the girls shunned Sonya, and the boys thought she was a whore. Local gopota regularly drove to Sonia proposals have sex.'
+$npcText[25] = 'Sonia an ordinary girl.'
+grupNPC[25] = 50
+npcPol[25] = 1
+grupTipe[25] = 0
+$npcGo[25] = '<a href="exec:numnpc = 25 & gt ''Snpc''"><<$npcName[25]>> <<$npcSurName[25]>></a>'
+
+showstat 0
+showobjs 0
+
+$din_alter_start_ev = {
+	cls
+	'When you were 13 years old, your period started like most other girls in your class. Your breasts started to grow and your armpit and pubic hair began to sprout. Your skin became covered with acne. When you finished 9th class, you did not drop out of school, and continued to study in the 10th grade.'
+	'You''re about to start 10th grade (placeholder until someone comes up with a less terrible intro than was here before)'
+
+	'The summer holiday ends soon and you will go to your new class to start your first of the two years you''re going to study.'
+!!'You weaned these two classes and you only have a few months before graduation.'
+
+	act 'Start the game':
+		showstat 1
+		showobjs 1
+		health = vital * 10 + stren * 5 + 1000
+		willpower = intel * 5 + will * 5 + 1000
+		manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
+		addobj 'Character'
+		addobj 'See'
+		addobj 'Others'
+		gt 'bedrPar'
+	end
+}
+
+'You were born in <<birthyear>>.'
+'Your mother and father, Natasha Mikhail <<$surname>>, were quite young and probably didn''t know how to protect themselves.'
+'You have a sister, Anne, who is 2 years older than you.'
+'You do not remember your real father because your parents divorced when you were still too young to remember. Your mom found another man and they had your little brother Nick.'
+set $name = input("What is your first name?")
+
+if $name = '':set $name = 'Svetlana'
+
+set $surname = input("What is your last name?")
+
+if $surname = '':set $surname = 'Lebedev'
+
+!!!0.2.6 addition
+set $nickname = input("What is your nick name?")
+
+if $nickname = '':set $nickname = 'Svetski'
+!!!
+
+act 'Further':
+	cls
+
+	'In the kindergarten where you went everything was fine, but you don''t remember it. When you were 7 years old, you finished kindergarten and went to school.'
+
+	act 'You are completely obsessed with books.':
+		cls
+		stren = 1
+		vital = 5
+		agil = 1
+		fat = 10
+		salo = 10
+		gs 'stat'
+		clr
+		dressB[5] = bedra
+		jeansB[1] = bedra
+		tan = 0
+		blizoruk = 300
+		glass = 1
+		Suspeh = 55
+		!!!!!!!!!!!!!! Maruda Hair Mod
+		set hairlength = 90
+		set hcol = 0
+		set hpingrip = 10
+		set hpingripw = 1
+		!!!!!!!!!!!!!! Maruda Hair Mod
+		nerdism = 100
+		fantasybook = 5
+		'You spent virtually all your free time at home reading books. While you''ve definitely learned a decent bit from them, you''ve always been rather frail as a result, and too many nights of trying to read in poor light have taken a toll on your eyesight.'
+
+		act 'further':dynamic $din_alter_start_ev
+	end
+
+	act 'You are a good student':
+		cls
+		fat = 150
+		salo = 150
+		intel = 50
+		Suspeh = 110
+		!!!!!!!!!!!!!! Maruda Hair Mod
+		set hairlength = 162
+		set hcol = 0
+		set hpingrip = 10
+		set hpingripw = 1
+		!!!!!!!!!!!!!! Maruda Hair Mod
+		gs 'stat'
+		clr
+		dressB[5] = bedra
+		jeansB[1] = bedra
+		mother = 100
+		money += 2000
+		tan = 30
+		'In school, you put a lot of effort to be an excellent pupil. You didn''t make any friends because you weren''t engaged in sports, but you have excellent grades and your mom is very proud of you.'
+
+		act 'Further':dynamic $din_alter_start_ev
+	end
+
+	act 'You are actively engaged in volleyball':
+		cls
+		stren = 25
+		vital = 25
+		speed = 25
+		agil = 25
+		fat = 20
+		salo = 20
+		volleyboll = 70
+		beg = 40
+		gsAboVolley = 120
+		dom = 10
+		!!!!!!!!!!!!!! Maruda Hair Mod
+		set hairlength = 97
+		set hcol = 3
+		set hscrunch = 10
+		set hscrunchw = 0
+		!!!!!!!!!!!!!! Maruda Hair Mod
+		gs 'stat'
+		clr
+		dressB[5] = bedra
+		jeansB[1] = bedra
+		tan = 30
+		'You spent all your free time training your volleyball skills. Because of that you weren''t that good in school and had less friends.'
+
+		act 'Further':dynamic $din_alter_start_ev
+	end
+
+	act 'You spent time outdoors':
+		cls
+		stren = 10
+		vital = 10
+		agil = 20
+		fat = 30
+		salo = 30
+		dom = 50
+		!!!!!!!!!!!!!! Maruda Hair Mod
+		set hairlength = 19
+		set hcol = 2
+		!!!!!!!!!!!!!! Maruda Hair Mod
+		gs 'stat'
+		clr
+		dressB[5] = bedra
+		jeansB[1] = bedra
+		tan = 30
+		'You spent almost all your free time outdoors playing with other girls and boys. As a result, you know how to get yourself out of trouble. You aren''t interested in School and sports.'
+
+		act 'Further':dynamic $din_alter_start_ev
+	end
+
+end
+--- alterStart ---------------------------------

+ 0 - 954
locations/031_event

@@ -1,954 +0,0 @@
-# event
-if $ARGS[0] = 'klof 2':
-cla
-*clr
-set minut += 5
-cla
-*clr
-gs 'stat'
-'<center><img src="images\klof\15 1.jpg"></center>'
-'Well baby come to us and get more entertainment, and if you will behave and you can earn more'
-'- Okay, guys leave address.'
-act 'Get dressed': gt 'event','klof 3'
-!act 'Move away': gt 'park','start'
-end
-
-if $ARGS[0] = 'klof 3':
-cla
-*clr
-set minut += 5
-set klofQW = 2
-clr
-gs 'stat'
-'<center><"klof\15 1.jpg"></center>'
-'You suddenly gripped interest and you asked:'
-'- Ryabyata help you earn money?'
-'- Of course, come in tomorrow after 10 hours of talk (said with a grin guy).'
-'(It turned out that they live in the house next door)'
-act 'Leave': gt 'park','start'
-end
-
-
-if $ARGS[0] = 'park':
-cla
-*clr
-!'<center><img src="images\picVA\event.jpg"></center>'
-'You find a quiet, deserted dead end against the wall and start to kiss, but you want more.'
-
-	act 'Masturbate.': gt 'event','hand'
-	act 'Suck.': gt 'event','blow'
-	act 'Sex.': gt 'event','sex'
-end
-
-if $ARGS[0] = 'hand':
-cla
-*clr
-'<center><img src="images\picVA\event.jpg"></center>'
-set hj += 1
-set DOM += 1
-set bfa += 1
-'Without breaking the kiss you deftly unzips pants <<$boyA>> and start it nadrachivat <<dickA>> centimeter friend. Unable to withstand such pressure it ends right on the ground.'
-act 'Complete walk': gt 'park','start'
-end
-
-if $ARGS[0] = 'blow':
-cla
-*clr
-set bfa += 2
-'<center><img src="images\picVA\event1.jpg"></center>'
-set bj += 1
-
-'You get up on his knees, unzips his pants partner and member of the dip sharply in his mouth, looking up at his relaxed face. After a few minutes the face <<$boyA>> tenses in anticipation of orgasm'
-
-	act 'Continue to suck.':
-	cla
-	set swallow += 1
-	set cumlip += 1
-	!'<center><img src="images\picV\swallow.jpg"></center>'
-	'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$boyA>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
-		act 'Leave.':
-		cla
-		gt 'park','start'
-		end
-	end
-
-	act 'Remove the mouth.':
-	cla
-		if harakBoyA = 0:
-		!'<center><img src="images\picV\hand.jpg"></center>'
-		'You remove a member from his mouth and <<$boyA>> you are finished in hand.'
-		end
-		if harakBoyA = 1:
-		set tiprand = RAND(0,3)
-			if tiprand < 3:
-			!'<center><img src="images\picV\hand.jpg"></center>'
-			'You remove a member from his mouth and <<$boyA>> you are finished in hand.'
-			end
-			if tiprand = 3:
-			set facial += 1
-			set cumface += 1
-			!'<center><img src="images\picV\facial.jpg"></center>'
-			'You took out a member and at this point <<$boyA>> is dead right on your face, covering it with warm and sticky cum.'
-			end
-		end
-		if harakBoyA = 2:
-		set facial += 1
-		set cumface += 1
-		!'<center><img src="images\picV\facial.jpg"></center>'
-		'<<$boyA>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
-		end
-
-		act 'Leave.':
-		cla
-		gt 'park','start'
-		end
-	end
-end
-
-
-if $ARGS[0] = 'sex':
-cla
-*clr
-'<center><img src="images\picVA\event2.jpg"></center>'
-set sex += 1
-set bfa += 3
-set pose = 1
-set $nameV = $boyA
-set dick = dickA
-set silavag = silavagA
-'<center><img src="images\picV\dog.jpg"></center>'
-'"You find clean pjatochek and tightens pants, shaking her ass invitingly. <<$boyA>> pushes you, putting cancer and dramatically enters you.'
-gs 'orgazm','start'
-'.'
-act 'Complete walk': gt 'park','start'
-end
-
-if $ARGS[0] = 'dima':
-cla
-*clr
-clr
-gs 'stat'
-'Seeing that you are considering it, the man went to you.'
-'he came up to you and asked politely:'
-'-Girl, I´m sorry, but can you invite? Just you, I see lonely.'
-act 'No': gt 'shop','start'
-	act 'Where invite?':
-	cla
-	'Where invite? you asked.'
-	'Understand us and his wife arrived boyfriend and I thought you could join us, sit down, let´s talk. You won´t be bored, I promise!'
-		act 'No': gt 'shop','start'
-
-		act 'Yes':
-		cla
-		*clr
-		set minut += 60
-		'"That´s fine, My name is Dmitry".'
-		'You stretched out your hand to him - "<<$name>>".'
-		'It was a man in his forties, of medium height, fairly strong build, dark short hair, nose slightly aquiline. You were talking about the weather, and all sorts of other things. Finally Dima told you to come, he brought you into their home. The house was a two-story, quite pretty. In the living room there was a man with a beer bottle in hand.'
-		'"Oh Dimon, and I´m already bored I do not know what to do", he said and added, "What a beautiful woman you have brought with you tonight, this lovely girl will really brighten up this evening?". His eyes looking all over your body and stopping on your breasts.'
-		'"<<$name>> meet Aleksei, my friend. Wife is not home yet, she went to her mother, the train should arrive at 24.00, Luda should be here soon and we will be at full strength" told me Dima smiling.'
-		'"Aleksei, you can simply call me Alex" introduced his friend. He was slightly taller than Dima and looked a little older. Dark-haired with blue eyes, rather handsome man. You thought to yourself, "What am I doing here? Probably, there is no wife, not yet too late to get out of here! But Dmitry put his arm around your waist and led you to the kitchen. "Alex, you have organized the table without me, well done!" told Dmitry. "Yes, have a seat in the middle <<$name>>, you will be with us until one, we will look after you" said Alex while helping you sit. On the table were plates with a snacks and a bottle of vodka. Dima poured vodka. You asked:'
-		'"I generally do not drink vodka. Maybe you have something poslabzhe?"'
-		act 'Excuse me I have to go': gt 'street'
-		act 'Drink vodka': gt 'event','dima2'
-		end
-	end
-end
-
-if $ARGS[0] = 'dima2':
-cla
-*clr
-set minut += 60
-clr
-gs 'stat'
-'You drink once, then again, and again, until you are a little tipsy. Men took turns to tell entertaining stories, you had a lot of fun. The wife did not come of course, but you´ve never thought to ask about it. Dima turned on the music, and invited you to dance. Alexei protested:'
-'"I do not want to miss one, you can join me?!"'
-'You smiled back. Dima immediately began to grope your ass, you danced slowly, he held you close to himself, so that you felt his erect penis, he pressed it against your crotch. Alexei came up from behind, grabbed your shoulders and his hands began to slowly lower to your chest. Drunk and the presence of two excited men had an effect. You shamelessly twisted your hips, pushing your ass against Alexei´s penis and then to Dima´s penis. Alexei caressed and squeezed your breasts, pinching your nipples through the fabric, Dima began caressing your pussy through clothes. You softly moaned with excitement. Then the men began to undress you. You stood between the two men in panties and terribly desired each of them.'
-'"You´re beautiful. Look Alex, what kind of lustful bitch I have brought!"'
-'"Yes, good friend. You will be our whore today. Want us to fuck you?" asked Alex.'
-'"Yes, this whore is already wet and she´s waiting for us to fuck her!" Dima roughly pushed aside your panties and began to thrust his fingers in your pussy.'
-act 'Moan with pleasure': gt 'event','dima3'
-end
-
-if $ARGS[0] = 'dima3':
-cla
-*clr
-set minut += 10
-clr
-gs 'stat'
-'They took you to the bedroom. In an instant, your amorous gentlemen turned into some kind of loons, and you into a whore. But you admit it is great pleasure. In the bedroom stood a large bed, men unzipped their pants and took out their huge cocks.'
-'"Go on start sucking, I see that you cannot wait" said Alex.'
-act 'Kneel down': gt 'event','dima4'
-end
-
-if $ARGS[0] = 'dima4':
-cla
-*clr
-set minut += 10
-set guy += 2
-set bj += 2
-set throat += 1
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima.jpg"></center>'
-'They stood next to the bed, you knelt down and took first Alex´s dick in your mouth the Dima. You sucked and licked the heads, then started swallowing their cocks. Dima took you by the chin, spit in his mouth and began to whip her cheeks, then sat down on the bed, grabbed you by the hair and began to roughly fuck you in the mouth, periodically pohlestyvaya cheeks. "Come on bitch, cocksucker" - he spoke to you, tears flowing down your cheeks, he humiliated you and called you names. And tougher skewer your mouth on his dick. You tried to please him. And Alex put you on your knees, ripped your panties, put my fingers in pussy and ass began to lubricate your holes with his spit, then directed his penis and roughly entered your ass.'
-act 'Scream in pain': gt 'event','dima5'
-end
-
-if $ARGS[0] = 'dima5':
-cla
-*clr
-set minut += 10
-set group += 1
-set throat += 1
-set anus += 1
-set cumass += 1
-set cumlip += 1
-set orgasm += 1
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima1.jpg"></center>'
-'You wanted to scream, but near my mouth was Dima´s cock, you uttered incomprehensible sounds. Swallowing cock deep into your throat. Your anus burning in pain, Alex fucks you in the ass and Dima is fucking your mouth.'
-'"Slut we will fuck you all night in all holes" said Alex.'
-'The room was full of fucking noises. You have experienced an orgasm. Dima sometimes pulled his dick from your mouth spit in your mouth and started fucking your mouth again. And Alex started beating your ass, with every thrust his balls beat against your pussy, bringing you to all new pleasures. "Fuck me boys, I´ll do whatever you want" you thought to yourself. Dima stiffened and said:'
-'"Swallow all that! Understood, bitch!"'
-'And cum began to pour down your throat, you almost choked by swallowing it. You swallowed it all and licked his cock.'
-'"Come on Alex, stretch this slut.'
-'Alex also started to cum, his sperm was hot inside. He pulled out his dick and ordered:'
-'"Lick it, bitch".'
-act 'Lick': gt 'event','dima6'
-end
-
-if $ARGS[0] = 'dima6':
-cla
-*clr
-if mop > 1: set mop = 0
-set minut += 10
-set cumlip += 1
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima2.jpg"></center>'
-'You turned around and took in his dick in your mouth and began to suck it thoroughly. When finished we all went together to the kitchen and started drinking again.'
-'"Did you like how we fucked you?"'
-act 'Very much': gt 'event','dima7'
-end
-
-if $ARGS[0] = 'dima7':
-cla
-*clr
-set minut += 10
-set group += 1
-set vagina += 1
-set anus += 1
-set cumpussy += 1
-set cumass += 1
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima3.jpg"></center>'
-'"And you a proper slut now, will will fuck you from both sides" said Dima.'
-'Dima squeezing your chest and biting your nipples and Alex began greasing your ass. You slowly got up and went back into the bedroom. Alex lay back, you sat down, sending his dick in your pussy yourself, fucking, he pulled himself to kiss you, you bent down and Dima roughly entered your ass. As you had two huge dicks in you, you started moaning. "More, more, fuck me, I´m your whore! Fuck my hole!" You cried. It was amazing delight having two dicks in your holes, two strangers fucked you and you moaned as the last whore. And asked them to not stop. You were finishing and finishing. They finished almost simultaneously right into you. You got up and went back to the kitchen, with cum flowing from your ass and pussy. You could hardly walk.'
-'"Alex, you have two more days, and I will come back next week, you can have this bitch to yourself, you will fuck her?'
-'"Of course leave. Only need to properly spank her for her obedience."'
-'Dima said:'
-'"Do what you want, I need to go to work in the morning, I´m going to sleep."'
-'Alex went for a belt, grabbed you by your hand and led you into the hall. Dima went to sleep.'
-act 'Don´t ... I´ll do whatever you want!': gt 'event','dima8'
-end
-
-if $ARGS[0] = 'dima8':
-cla
-*clr
-set spank += 1
-set minut += 10
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima4.jpg"></center>'
-'"Not necessary" you begged with tears in your eyes, "I will do whatever you want."'
-'"Sure you do, but we need to spank you for the future.'
-'He put you doggy-style on the floor and started beating your ass with the belt, you cried and begged him to stop. Ass burning with pain. Each hit was getting more painful.'
-'"Get up bitch!" he tied your hands with the belt, "suck my dick before bedtime."'
-act 'Suck': gt 'event','dima9'
-end
-
-if $ARGS[0] = 'dima9':
-cla
-*clr
-set minut += 30
-set throat += 1
-set bj += 1
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima5.jpg"></center>'
-'Lech took you by the head and started to fuck in the mouth, it did not last very long. His dick was bigger and went deep in his throat, he held your hair. Then he still finished, you tied to a radiator and fell on the sofa bed.'
-act 'Cry from the battery': gt 'event','dima10'
-end
-
-if $ARGS[0] = 'dima10':
-cla
-*clr
-set minut += 30
-set dimaQW = 2
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima6.jpg"></center>'
-'You lay hands tied at the battery and wept. Ass on fire after undergoing whipping. Drunken peasants went to bed. Finally you hear the mighty snoring.'
-act 'Leave': gt 'street'
-act 'Fall asleep': gt 'event','dima11'
-end
-
-if $ARGS[0] = 'dima11':
-cla
-*clr
-set minut += 480
-set datster = 1
-set bj += 1
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima7.jpg"></center>'
-'You awoke from the fact that someone grabbed you by the hair and began shamelessly fuck you in the mouth.'
-'"Hungy, I bet?", your recognize Dima´s voice, "Breakfast must be earned!"'
-act 'Suck': gt 'event','dima12'
-end
-
-if $ARGS[0] = 'dima12':
-cla
-*clr
-set minut += 10
-set throat += 1
-set bj += 1
-set swallow += 1
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima8.jpg"></center>'
-'You felt his cock stiffened and began to wring out streams of warm sperm. As soon as he finished with a contented sigh - came Lech besprikoslovno tone ordered to lick his balls to shine, otherwise no breakfast you can not see'
-act 'Dutifully fulfill': gt 'event','dima13'
-act 'Comply with the enthusiasm': gt 'event','dima14'
-act 'Try to bite': gt 'event','dima31'
-end
-
-if $ARGS[0] = 'dima13':
-cla
-*clr
-set minut += 5
-set balls += 1
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima9.jpg"></center>'
-'You lick and suck shaved Lehina balls, but he did not enjoy it. After a couple of minutes, he slaps you across the face and says:'
-'"What is this bullshit? I´ll teach you how to perform!"'
-act 'Look down': gt 'event','dima39'
-end
-
-if $ARGS[0] = 'dima14':
-cla
-*clr
-set minut += 10
-set balls += 1
-set throat += 1
-set bj += 1
-set swallow += 1
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima9.jpg"></center>'
-'Do you remember anything seen before, and try to repeat the same thing. Your tongue and lips lick and kiss each millimeter, thoroughly moisturizing the delicate skin. Then gradually move on to Lehina member and swallow whole, he immediately pushes you on the head and rapidly discharged in your throat, not letting up until his cock stops shudder convulsed'
-act 'Swallow': gt 'event','dima15'
-end
-
-if $ARGS[0] = 'dima15':
-cla
-*clr
-set minut += 30
-set runrnd = RAND(0,10)
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima6.jpg"></center>'
-'Dima unties you from the battery, throws you a bundle and tells him to go to the bathroom to freshen up. Meanwhile They Lehoy discussing something'
-	act 'Try to escape':
-		if runrnd < 9:
-		gt 'event','dima18'
-		else
-		gt 'street'
-		end
-	end
-act 'Go to the bathroom': gt 'event','dima16'
-end
-
-
-if $ARGS[0] = 'dima16':
-cla
-*clr
-set minut += 30
-set lobkoef = 3
-set legkoef = 3
-set cumpussy = 0
-	set cumbelly = 0
-	set cumass = 0
-	set cumlip = 0
-	set cumface = 0
-	set cumfrot = 0
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima6.jpg"></center>'
-'In convolution you find mesh bodysuit that you will wear. In the bathroom you wash off with a thick layer of sperm itself and clean shave vegetation where it should not be, and then apply the war paint on his face.'
-act 'Wear net': gt 'event','dima19'
-act 'Do not wear out of the tub': gt 'event','dima17'
-end
-
-if $ARGS[0] = 'dima17':
-cla
-*clr
-set dom += 2
-set minut += 30
-set runrnd = RAND(0,10)
-set lobkoef = 3
-set legkoef = 3
-set cumpussy = 0
-	set cumbelly = 0
-	set cumass = 0
-	set cumlip = 0
-	set cumface = 0
-	set cumfrot = 0
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima6.jpg"></center>'
-'In the bathroom you wash off with a thick layer of sperm itself and clean shave vegetation where it should not be, but do not dress mesh. You come out of the bathroom in the buff, in spite of instructions'
-	act 'Look at the guys with the call':
-		if runrnd < 9:
-		gt 'event','dima18'
-		else
-		gt 'event','dima21'
-		end
-	end
-end
-
-if $ARGS[0] = 'dima18':
-cla
-*clr
-set minut += 30
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima6.jpg"></center>'
-'"Oh Well bitch disobedient! Thought, you can do what you want? Fuck thou nobody here, and you will do what you tell us!" - With these words Lech sprinkled in your face some spray and you passed out'
-act 'Fall asleep': gt 'event','dima49'
-end
-
-if $ARGS[0] = 'dima19':
-set minut += 5
-clr
-gs 'stat'
-'"Here, boy, think you already vnikla what to do?"'
-act 'Men serve on the highest level': gt 'event','dima20'
-end
-
-if $ARGS[0] = 'dima20':
-cla
-*clr
-set minut += 30
-clr
-gs 'stat'
-'"Here, boy, think you already vnikla what to do?"'
-act 'Men serve on the highest level': gt 'event','dima21'
-end
-
-if $ARGS[0] = 'dima21':
-cla
-*clr
-Set hour += 3
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima3.jpg"></center>'
-'You long to fuck in various poses, some of which would be the envy of the ardent lovers of kinky sex. After all this, you release'
-set dimaqw = 2
-act 'Leave': gt 'street'
-end
-
-if $ARGS[0] = 'dima30':
-cla
-*clr
-Set hour += 3
-clr
-gs 'stat'
-'I confess, I am a sinner, a writer from me worthless, and all my dark little thoughts went to the recent arrival of women. If there are interesting ideas/scenarios to continue - fling in a personal, zabubenyu'
-set dimaqw = 2
-act 'Leave': gt 'street'
-end
-
-
-	if $ARGS[0] = 'dima31':
-	cla
-	*clr
-	set minut += 30
-	set dimaQW = 2
-	clr
-	gs 'stat'
-	'<center><img src="images\qwest\dima6.jpg"></center>'
-	'You squeeze teeth, but Lech lightning grabs your face and jaw power disconnects.'
-	'-Bitch, what are you up to?!'
-	'You get a strong blow to the face and lose consciousness.'
-	act 'Wake up': gt 'event','dima32'
-	end
-
-	if $ARGS[0] = 'dima32':
-	cla
-	*clr
-	set minut += 30
-	clr
-	gs 'stat'
-	'<center><img src="images\qwest\10028_TommyPistolJacquelineBlackLady_180.jpg"></center>'
-	'You came from a bright light batter on the eyes. My mouth was dry. Something just did not allow you to close your mouth. Body ached.'
-	'Oh, awake! And here I figured out how to re-educate you! - Lech said.'
-	'You looked around. It seems that while you were unconscious, you threw some clothes and took him outside. Metallic taste in the mouth. Hands tied behind their backs.'
-	'-And now, bitch, I´ll show you what a "safe sex."'
-	'With these words, Lech put you on your knees in front of him, pulled out his penis and sent to you in the mouth.'
-	act 'Resist': gt 'event','dima33'
-	If Kik > 50:
-	act 'Kick': gt 'event','dima37'
-	end
-	end
-
-
-
-	if $ARGS[0] = 'dima33':
-	cla
-	*clr
-	set minut += 10
-	set throat += 1
-	clr
-	gs 'stat'
-	'<center><img src="images\qwest\10028_TommyPistolJacquelineBlackLady_183.jpg"></center>'
-	'Despite your attempts to resist, gave Lech and put your head in your mouth his dick. Device in the mouth did not give you close it, so you attempt to push him. But a ride failed. It seems that the device was securely fastened, and your movements of the tongue only provoke Lech.'
-	'- Oh, I see you like "safe sex"? Come on, do not stop!'
-
-	act 'continue to please': gt 'event','dima38'
-	act 'Stop tongue movement': gt 'event','dima34'
-	end
-
-
-	if $ARGS[0] = 'dima34':
-	cla
-	*clr
-	set minut += 30
-	clr
-	gs 'stat'
-	'<center><img src="images\qwest\10028_TommyPistolJacquelineBlackLady_187.jpg"></center>'
-	'Lech realized that you are not going to continue his humor:'
-	'-Yesterday you did it with pleasure! Okay, so we´re still nowhere would come. A lesson that the mouth should be open, you´ve learned!'
-	'With these words he pulled his cock, lifted your hair and led her down.'
-	'You are trapped in an empty underground passage. Lech took the gag out of your mouth, and you were finally able to close it. Then your eyes closed bandage. Lech slightly bent you and povernull back to him.'
-	act 'stand still': gt 'event','dima35'
-	end
-
-
-	if $ARGS[0] = 'dima35':
-	cla
-	*clr
-	set minut += 30
-	set vagina += 1
-	set rape += 1
-	set cumface += 1
-	clr
-	gs 'stat'
-	'<center><img src="images\qwest\10028_TommyPistolJacquelineBlackLady_301.jpg"></center>'
-	'Lech smash you entered. Happened on the stairs has brought you, and now he easily slid publishing squish. After a while you covered orgasm.'
-	'-So I had to start the morning. And no risk! - Said Lech, increasing the tempo.'
-	'Suddenly he stopped, turned sharply and put you on your knees. You hurt hit the marble floor, and felt something warm began to beat and run down your face.'
-	'-Your Stuff for the urn. I hope you learned a lesson - with these words Lech loosened the straps on your hands, and you heard postpones steps.'
-
-	act 'Recover': gt 'event','dima36'
-	end
-
-	if $ARGS[0] = 'dima36':
-	cla
-	*clr
-	set minut += 5
-
-	clr
-	gs 'stat'
-	'<center><img src="images\qwest\10028_TommyPistolJacquelineBlackLady_352.jpg"></center>'
-	'After sitting in that position for a few minutes, you started releasing hands. When you succeed, you tore the bandage from his face, wiped her face with sperm and pushed as far as possible. Looking around, you notice an urn, which lie in your stuff. You get dressed and get out of the transition.'
-	act 'Leave': gt 'street'
-	end
-
-
-	if $ARGS[0] = 'dima37':
-	cla
-	*clr
-	set minut += 30
-
-	set money = 0
-	clr
-	gs 'stat'
-	'<center><img src="images\etogame\Kik.jpg"></center>'
-	'Things in the fitness center were not in vain. You manage to hit Lech foot so that it falls and loses consciousness. You start to run, and only remove staying far enough, and start looking for a way to free your hands. Eye catches you pointed stone, and when your hands are free, you remove the gag from his mouth, and finally, you can close it. Teeth creak from the dust that nabilas in the mouth while running. Dress trampled and torn in places, but still able to cover your body. You manage to find the right direction, and after a while you find yourself close to the supermarket, which met Dima. Then you realize that Lehi left all your money.'
-	act 'Relax': gt ' street'
-	end
-
-
-	if $ARGS[0] = 'dima38':
-	cla
-	*clr
-	set minut += 30
-	Set bj += 1
-	set cumlip += 1
-	set throat += 1
-	clr
-	gs 'stat'
-	'<center><img src="images\qwest\10028_TommyPistolJacquelineBlackLady_184.jpg"></center>'
-	'You begin to carefully caress member Lehi language, while trying to periodically swallow it as deep as possible. Limiting device in the mouth of your abilities and you seemed to be an eternity before you managed to get to Lech finish.'
-	'Yes, now a lesson learned. I think in the future you will have no problems. After all, am I right? - He said, clutching your hair.'
-	'You nodded. Lech then loosened the ties on your hands and pointing to the bushes, said:'
-	'-There you will find your things.'
-	'After Lech retired, you free your hands, mouth, and find their stuff in the specified location.'
-	act 'Leave': gt 'street'
-	end
-
-	if $ARGS[0] = 'dima39':
-	cla
-	*clr
-	set minut += 30
-
-	clr
-	gs 'stat'
-	'<center><img src="images\qwest\13606_ZenzaRaggiNikiSweet085.jpg"></center>'
-	'Lech suits you and inserts the mouth gag. Then displays the apartment, and you take the bus to the center. It is surprisingly empty.'
-	'-Look, I´ve remembered you yesterday tried, and I thought maybe you just do not get enough sleep today? Can correct the mistake right there?'
-	act 'Beckon': gt 'event','dima40'
-	act 'Refuse': gt 'event','dima45'
-	end
-
-
-	if $ARGS[0] = 'dima40':
-	cla
-	*clr
-	set minut += 30
-	set vagina += 2
-	clr
-	gs 'stat'
-	'<center><img src="images\qwest\13606_ZenzaRaggiNikiSweet113.jpg"></center>'
-	'-That´s great - with these words Lech pulls you dress, pulls already got stronger member and skewer you.'
-	'You start to move rhythmically, but rough road knocks you adding new sensations.'
-	act 'change of station': gt 'event','dima41'
-	end
-
-	if $ARGS[0] = 'dima41':
-	cla
-	*clr
-	set minut += 30
-
-	clr
-	gs 'stat'
-	'<center><img src="images\qwest\13606_ZenzaRaggiNikiSweet154.jpg"></center>'
-	'You park between the seats, and Lech adjusts rear, removing the gag with the words:'
-	'-You do me now not going to disappoint?'
-	'Looks like Lehi not like sex on the go, and he stops and asks the driver to stop the bus between stops in the park area. The driver did not mind, he stops, and you leave the transport. Looks like he´s noticed your nakedness, and you feel his gaze until Lehoy hiding among the trees.'
-	'Soon you will find a clearing near the road.'
-	'-And now prove that morning showed not all that is capable of!'
-	act 'To kneel': gt 'event','dima42'
-	end
-
-	if $ARGS[0] = 'dima42':
-	cla
-	*clr
-	set minut += 30
-	Set bj += 1
-	set cumlip += 1
-	set throat += 1
-	set cumface += 1
-	clr
-	gs 'stat'
-	'<center><img src="images\qwest\13606_ZenzaRaggiNikiSweet231.jpg"></center>'
-	'I knelt down, you start diligently to please Lech then completely swallowing, then fully releasing member. Your diligence now could envy the best porn actress. Not surprisingly, soon Lech breathing hard, and finished removing the member on your face.'
-	'-That´s clever - he said - because you can, whenever you want! Think about your ability to have to learn everything!'
-	'Lech ties your hands, naked and takes you on the road. Put you on your knees, he took a marker and wrote on your stomach "Cum" and the up arrow, and said:'
-	'- I am away for a couple of hours when I come back, bring your stuff. And yet you sit here and boast about his skill.'
-	act 'wait for the return': gt 'event','dima43'
-	act 'Leave': gt 'event','dima44'
-	end
-
-	if $ARGS[0] = 'dima43':
-	cla
-	*clr
-	set minut += 50
-	clr
-	gs 'stat'
-	'<center><img src="images\qwest\13606_ZenzaRaggiNikiSweet263.jpg"></center>'
-	'You decided to wait for the return of Lehi. The first 15 minutes passed quietly. On the road was deserted. But then began the most unpleasant pastime in your life. Passed a crowd of young people to notice you. They took a few photos, obsmeyali you, and losing interest gone. You seemed like an eternity held grandmother told me about morality, and that in its time, this was unacceptable. There were other personality, which you tried not to think.'
-	'When Lech returned, he untied you handed your things, and said that he was sorry about his imminent departure from the city as would be very happy new "rendezvous" with you.'
-	'You got dressed, took their belongings and hurriedly left his company.'
-	act 'Go to the yard': gt 'street'
-	end
-
-
-	if $ARGS[0] = 'dima44':
-	cla
-	*clr
-	set minut += 15
-	set money = 0
-	clr
-	gs 'stat'
-	'<center><img src="images\qwest\13606_ZenzaRaggiNikiSweet264.jpg"></center>'
-	'You decide that sit covered with sperm, naked on the road - too humiliating for you. When Lech hidden from view, you go up, grab his clothes, left nearby, and run into the grounds. Unfortunately your purse he prehvatil ssoboy. Eye catches you pointed stone, and when your hands are free, you carefully wipe the traces of semen from her face. You manage to find the right direction, and after a while you find yourself close to the supermarket, where you met Dima'
-
-	act 'Relax': gt ' street'
-	end
-
-
-if $ARGS[0] = 'dima45':
-cla
-*clr
-set minut += 30
-
-clr
-gs 'stat'
-'<center><img src="images\qwest\13606_ZenzaRaggiNikiSweet084.jpg"></center>'
-'How you want. So you will get new experience. Lots of new experiences! And I benefit - Lech said, smiling.'
-'After that he was silent all the way until you have passed the desired stop. Lech brought you out of the bus and led to sex shops.'
-'-There you are - you are greeted by a girl. She unceremoniously grabs you and leads to the back room. There she undresses and connects you.'
-'-And now for me - the girl you brought to the stairs.'
-act 'Go to the basement': gt 'event','dima46'
-end
-
-if $ARGS[0] = 'dima46':
-cla
-*clr
-set minut += 5
-set throat += 1
-set cumlip += 1
-set swallow += 1
-Set bj += 1
-set gloryhole += 1
-clr
-gs 'stat'
-'<center><img src="images\qwest\15933_MarkDavisDonnaAnnika_447.jpg"></center>'
-'When you went down, the girl has got you in a dark room with a round hole in one wall. Almost immediately, there is a hole in someone´s penis.'
-'-Nigh - commanded girl.'
-'After your failure, it grabbed you by the neck, and pressed to the opening force.'
-'Attempts to shove dick out of your mouth, just very excited stranger behind the wall, and not stand a minute it ends. Because your head is firmly against, you are not able to spit, and are forced to swallow.'
-'-Your companion got the money for a certain number of customers. Next she right, or should I stay and check?'
-act 'agree to suck': gt 'event','dima47'
-act 'refuse to continue': gt 'event','dima48'
-end
-
-if $ARGS[0] = 'dima47':
-cla
-*clr
-set minut += 50
-set throat += 5
-set cumlip += 8
-set swallow += 8
-Set bj += 8
-set gloryhole += 8
-set vagina += 1
-set money += 1000
-clr
-gs 'stat'
-'<center><img src="images\qwest\15933_MarkDavisDonnaAnnika_494.jpg"></center>'
-'Here-and miraculously, - she said, - I call your friend, even if it is followed. And you do not get distracted - with these words the girl pointed to the hole, which has a new member.'
-'You obediently bent over and began to please the next stranger. You tried. Men erupted one after another.'
-'Looks like you got so carried away that have not heard, as Lech walked into the room.'
-'The realization that you are not alone in the room at that moment came when he forcefully entered you.'
-'You decided not to get distracted, and continued to suck, regardless of ramming you from behind Lech.'
-'When the man you served, finished, you as before, swallowed, and were ready to accept the new, but the hole remained empty. It seems that money received Lehoy you worked.'
-'Lehi efforts were not lost, and soon you shook in orgasm. Almost immediately, he pulled out his penis, and expanding you poked your face. You are already in a couple of habitual movements could make him cum.'
-'Once you have cleaned his cock, he came out of the booth and you a few minutes to recover. Oklemavshis you out of the room. At the door of the girl you met, which led you to this basement. She took you to the restroom, where you could wash your face and rinse your mouth. When you are out, she handed you a package with your things, and a few notes, adding that it is you asked me to tell your friend, for a job well done. You dressed.'
-act 'Get Outside' : gt 'nord'
-end
-
-if $ARGS[0] = 'dima48':
-cla
-*clr
-set minut += 50
-set throat += 5
-set cumlip += 8
-set swallow += 8
-Set bj += 8
-set gloryhole += 8
-clr
-gs 'stat'
-'<center><img src="images\qwest\15933_MarkDavisDonnaAnnika_481.jpg"></center>'
-'It seems that the girl did not satisfy your refusal.'
-'-Do you want to good, then continue on the poor.'
-'With these words, the girl again summed up your head to the hole.'
-'When it has a new member, she put it to you in the mouth, and began to drive your head. The impression that she fucks a stranger behind the wall of your head. It took more time, but this ended in your mouth. At this time, she shrank your head into the wall without letting you spit on the floor. This was repeated several times.'
-'When the last "client" disappeared into the hole, she let go of your head, and left the room. Very soon she returned to your dealer. You dressed up, and she put you out of the room.'
-act 'Get Outside' : gt 'nord'
-end
-
-if $ARGS[0] = 'dima49':
-cla
-*clr
-set minut += 50
-clr
-gs 'stat'
-'<center><img src="images\qwest\10022_ParisTommy_021.jpg"></center>'
-'You came to the middle of a square. Your hands were chained to a pole, and things found in a step away from you. In the mouth gag. In the distance there were people, but no one dared to approach you. And their okriknut you too could not. So it took about an hour. Similarly, you could not tell. Your legs are tired, but his hands behind his back did not give you the opportunity to sit down.'
-'Suddenly you notice that some guy is coming to you.'
-'-Do you need help? - He asked'
-act 'Nod': gt 'event','dima50'
-end
-
-if $ARGS[0] = 'dima50':
-cla
-*clr
-set minut += 30
-
-clr
-gs 'stat'
-'<center><img src="images\qwest\10022_ParisTommy_028.jpg"></center>'
-'The guy came closer, keep your hands and pulled the gag out of his mouth.'
-'He helped collect your things, and offered to withdraw from the area as soon as possible. Was very close to the river, and he offered you a dress under the bridge.'
-'When you went down, the guy said:'
-'- Can you repay the savior?'
-act 'Suck': gt 'event','dima51'
-if agil < 50:
-act 'Send': gt 'event','dima52'
-end
-if agil > 49:
-act 'Send': gt 'event','dima53'
-end
-end
-
-if $ARGS[0] = 'dima51':
-cla
-*clr
-set minut += 5
-set throat += 1
-set cumlip += 1
-set swallow += 1
-set cumface += 1
-Set bj += 1
-clr
-gs 'stat'
-'<center><img src="images\qwest\10022_ParisTommy_088.jpg"></center>'
-'You knew immediately that hints at the guy. Kneeling, you rastegnula fly guy, and went to work. Barely a couple of minutes, the guy began to finish. When finished, he said goodbye to you, and quickly departed.'
-act 'Freshen up' : gt 'nord'
-end
-
-if $ARGS[0] = 'dima52':
-cla
-*clr
-set minut += 20
-set throat += 2
-set cumlip += 1
-set swallow += 2
-set cumface += 1
-Set bj += 2
-set money = 0
-clr
-gs 'stat'
-'<center><img src="images\qwest\10022_ParisTommy_308.jpg"></center>'
-'Enraged your refusal, the guy pushes you, grabs your stuff, throwing them into the river, and you have time to grab clothes, but handbag goes to the bottom with your savings and keys.'
-'When you go up to the bridge, from the air as there are few guys. They grab you and tie your hands. Judging by their actions, they are watching you from the square.'
-'When you find yourself on your lap, they lowered his pants. It seems you have no choice. You start to appease them.'
-'When you finish with the last guys free your hands and run away.'
-'Back in the present, you will find the right direction, and after a while find yourself far from the supermarket, which met Dima'
-act 'Relax': gt ' street'
-end
-
-
-if $ARGS[0] = 'dima53':
-cla
-*clr
-set minut += 30
-
-clr
-gs 'stat'
-'<center><img src="images\clothes\skirt1.jpg"></center>'
-'Enraged your refusal, the guy pushes you, but you stand firmly on his feet. Realizing that you do not mess, the guy runs away.'
-act 'Freshen up' : gt 'nord'
-end
-
-if $ARGS[0] = 'scoreslut1':
-cla
-*clr
-set minut += 30
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima6.jpg"></center>'
-'You woke up, tied hands of the battery. From the sofa looked expectantly at you Dima.'
-act 'Frightened look': gt 'event','scoreslut2'
-act 'Trying to escape': gt 'event','scoreslut3'
-end
-
-if $ARGS[0] = 'scoreslut2':
-cla
-*clr
-SUB = SUB + 2
-set minut += 5
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima6.jpg"></center>'
-'"Woke up, bitch? We´ll say?.'
-act 'Frightened look': gt 'event','dima30'
-end
-
-if $ARGS[0] = 'scoreslut3':
-cla
-*clr
-SUB = SUB + 2
-set minut += 5
-clr
-gs 'stat'
-'<center><img src="images\qwest\dima6.jpg"></center>'
-'"Oh, you kicking"'
-act 'Frightened look': gt 'event','dima30'
-end
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-if $ARGS[0] = 'lesbi':
-cla
-*clr
-set minut += 5
-gs 'stat'
-'<center><img src="images\qwest\lesbi.jpg"></center>'
-'Woman staring at you, caught your eye. Appreciatively examining you, she smiled and held fast to his lips tongue.'
-act 'Turn': gt 'butik','start'
-act 'Become acquainted': gt 'event','lesbi1'
-end
-
-if $ARGS[0] = 'lesbi1':
-cla
-*clr
-set minut += 5
-set lesbiQW = 1
-gs 'stat'
-'<center><img src="images\qwest\lesbi.jpg"></center>'
-'You came to the woman. She looked at you with a twinkle in his eye, "I Natalya Petrovna, and you´re nothing on my card, call me anything as we descend in an interesting place." After that the woman comes out of the boutique graceful and confident gait.'
-act 'Move away': gt 'butik','start'
-end
-
-if $ARGS[0] = 'lesbi2':
-cla
-*clr
-set minut += 5
-gs 'stat'
-'<center><img src="images\qwest\lesbi.jpg"></center>'
-'- Malyavki? yes I have had more guys than you! you misbehaved.'
-'- Guys? YES they can twist as you want, if sicki, yes cute little face. Did you ever ever tried to force'
-'another girl to live so that she is ready to do anything for your attention?'
-if lesbian > 0: '- Nuu .. no .. I do not understand this - you mumbled. The girl I tried, but that so ..'
-if lesbian = 0: '- Nuu .. no .. I do not understand this - you mumbled. I´m a woman and some really did not try ..'
-act 'Move away': gt 'park','start'
-act 'Ask teach': gt 'event','lesbi3'
-end
-
-if $ARGS[0] = 'lesbi3':
-cla
-*clr
-set minut += 5
-set lesbiQW = 2
-clr
-gs 'stat'
-'<center><img src="images\qwest\lesbi.jpg"></center>'
-'You suddenly gripped interest how does it make the other girls so you read? Can ask this woman to teach me.'
-'Then you can find yourself very docile simpleton that will make your small chores and help you escape'
-'from the guys. And deciding you asked:'
-'- And can you teach me that?'
-'- Teach? - She asked in surprise. - Teach .. hmm .. let´s try! - The lady said with a grin. - Come back tomorrow at 10 am in my'
-'apartment (oddly enough, it turned out that she lives on the floor below you'
-act 'Go in turmoil': gt 'park','start'
-end
---- event ---------------------------------
-

+ 996 - 0
locations/032_event

@@ -0,0 +1,996 @@
+# event
+if $ARGS[0] = 'klof 2':
+	cla
+	*clr
+	set minut += 5
+	cla
+	*clr
+	gs 'stat'
+	'<center><img src="images/klof/15 1.jpg"></center>'
+	'Well baby come to us and get more entertainment, and if you will behave and you can earn more'
+	'- Okay, guys leave address.'
+
+	act 'Get dressed':gt 'event', 'klof 3'
+	!!act 'Move away':gt 'park', 'start'
+end
+
+if $ARGS[0] = 'klof 3':
+	cla
+	*clr
+	set minut += 5
+	set klofQW = 2
+	clr
+	gs 'stat'
+	'<center><"klof/15 1.jpg"></center>'
+	'You suddenly gripped interest and you asked:'
+	'- Ryabyata help you earn money?'
+	'- Of course, come in tomorrow after 10 hours of talk (said with a grin guy).'
+	'(It turned out that they live in the house next door)'
+
+	act 'Leave':gt 'park', 'start'
+end
+
+if $ARGS[0] = 'park':
+	cla
+	*clr
+	!!'<center><img src="images/picVA/event.jpg"></center>'
+	'You find a quiet, deserted dead end against the wall and start to kiss, but you want more.'
+
+	act 'Masturbate.':gt 'event', 'hand'
+	act 'Suck.':gt 'event', 'blow'
+	act 'Sex.':gt 'event', 'sex'
+end
+
+if $ARGS[0] = 'hand':
+	cla
+	*clr
+	'<center><img src="images/picVA/event.jpg"></center>'
+	set hj += 1
+	set DOM += 1
+	set bfa += 1
+	'Without breaking the kiss you deftly unzips pants <<$boyA>> and start it nadrachivat <<dickA>> centimeter friend. Unable to withstand such pressure it ends right on the ground.'
+
+	act 'Complete walk':gt 'park', 'start'
+end
+
+if $ARGS[0] = 'blow':
+	cla
+	*clr
+	set bfa += 2
+	'<center><img src="images/picVA/event1.jpg"></center>'
+	set bj += 1
+
+	'You get up on his knees, unzips his pants partner and member of the dip sharply in his mouth, looking up at his relaxed face. After a few minutes the face <<$boyA>> tenses in anticipation of orgasm'
+
+	act 'Continue to suck.':
+		cla
+		set swallow += 1
+		set cumlip += 1
+		!!'<center><img src="images/picV/swallow.jpg"></center>'
+		'Hot jet of sperm hit you in the mouth. You started to swallow cum, and <<$boyA>> continued to cum in your mouth. Finally the flow of hot liquid with a pungent taste stopped.'
+
+		act 'Leave.':
+			cla
+			gt 'park', 'start'
+		end
+	end
+
+	act 'Remove the mouth.':
+		cla
+
+		if harakBoyA = 0:
+			!!'<center><img src="images/picV/hand.jpg"></center>'
+			'You remove a member from his mouth and <<$boyA>> you are finished in hand.'
+		end
+
+		if harakBoyA = 1:
+			set tiprand = rand(0, 3)
+
+			if tiprand < 3:
+				!!'<center><img src="images/picV/hand.jpg"></center>'
+				'You remove a member from his mouth and <<$boyA>> you are finished in hand.'
+			end
+
+			if tiprand = 3:
+				set facial += 1
+				set cumface += 1
+				!!'<center><img src="images/picV/facial.jpg"></center>'
+				'You took out a member and at this point <<$boyA>> is dead right on your face, covering it with warm and sticky cum.'
+			end
+		end
+
+		if harakBoyA = 2:
+			set facial += 1
+			set cumface += 1
+			!!'<center><img src="images/picV/facial.jpg"></center>'
+			'<<$boyA>> hold your hair took a member of your mouth and cum on your face, covering it with warm and sticky cum.'
+		end
+
+		act 'Leave.':
+			cla
+			gt 'park', 'start'
+		end
+	end
+end
+
+if $ARGS[0] = 'sex':
+	cla
+	*clr
+	'<center><img src="images/picVA/event2.jpg"></center>'
+	set sex += 1
+	set bfa += 3
+	set pose = 1
+	set $nameV = $boyA
+	set dick = dickA
+	set silavag = silavagA
+	'<center><img src="images/picV/dog.jpg"></center>'
+	'"You find clean pjatochek and tightens pants, shaking her ass invitingly. <<$boyA>> pushes you, putting cancer and dramatically enters you."'
+	gs 'orgazm', 'start'
+	'.'
+
+	act 'Complete walk':gt 'park', 'start'
+end
+
+if $ARGS[0] = 'dima':
+	cla
+	*clr
+	clr
+	gs 'stat'
+	'Seeing that you are considering it, the man went to you.'
+	'he came up to you and asked politely:'
+	'-Girl, I´m sorry, but can you invite? Just you, I see lonely.'
+
+	act 'No':gt 'shop', 'start'
+
+	act 'Where invite?':
+		cla
+		'Where invite? you asked.'
+		'Understand us and his wife arrived boyfriend and I thought you could join us, sit down, let´s talk. You won´t be bored, I promise!'
+
+		act 'No':gt 'shop', 'start'
+
+		act 'Yes':
+			cla
+			*clr
+			set minut += 60
+			'"That´s fine, My name is Dmitry."'
+			'You stretched out your hand to him - "<<$name>>".'
+			'It was a man in his forties, of medium height, fairly strong build, dark short hair, nose slightly aquiline. You were talking about the weather, and all sorts of other things. Finally Dima told you to come, he brought you into their home. The house was a two-story, quite pretty. In the living room there was a man with a beer bottle in hand.'
+			'"Oh Dimon, and I´m already bored I do not know what to do", he said and added, "What a beautiful woman you have brought with you tonight, this lovely girl will really brighten up this evening?". His eyes looking all over your body and stopping on your breasts.'
+			'"<<$name>> meet Aleksei, my friend. Wife is not home yet, she went to her mother, the train should arrive at 24.00, Luda should be here soon and we will be at full strength" told me Dima smiling.'
+			'"Aleksei, you can simply call me Alex" introduced his friend. He was slightly taller than Dima and looked a little older. Dark-haired with blue eyes, rather handsome man. You thought to yourself, "What am I doing here?" Probably, there is no wife, not yet too late to get out of here! But Dmitry put his arm around your waist and led you to the kitchen. "Alex, you have organized the table without me, well done!" told Dmitry. "Yes, have a seat in the middle <<$name>>, you will be with us until one, we will look after you" said Alex while helping you sit. On the table were plates with a snacks and a bottle of vodka. Dima poured vodka. You asked:'
+			'"I generally do not drink vodka. Maybe you have something poslabzhe?"'
+
+			act 'Excuse me I have to go':gt 'street'
+			act 'Drink vodka':gt 'event', 'dima2'
+		end
+	end
+
+end
+
+if $ARGS[0] = 'dima2':
+	cla
+	*clr
+	set minut += 60
+	clr
+	gs 'stat'
+	'You drink once, then again, and again, until you are a little tipsy. Men took turns to tell entertaining stories, you had a lot of fun. The wife did not come of course, but you´ve never thought to ask about it. Dima turned on the music, and invited you to dance. Alexei protested:'
+	'"I do not want to miss one, you can join me?!"'
+	'You smiled back. Dima immediately began to grope your ass, you danced slowly, he held you close to himself, so that you felt his erect penis, he pressed it against your crotch. Alexei came up from behind, grabbed your shoulders and his hands began to slowly lower to your chest. Drunk and the presence of two excited men had an effect. You shamelessly twisted your hips, pushing your ass against Alexei´s penis and then to Dima´s penis. Alexei caressed and squeezed your breasts, pinching your nipples through the fabric, Dima began caressing your pussy through clothes. You softly moaned with excitement. Then the men began to undress you. You stood between the two men in panties and terribly desired each of them.'
+	'"You´re beautiful. Look Alex, what kind of lustful bitch I have brought!"'
+	'"Yes, good friend. You will be our whore today. Want us to fuck you?" asked Alex.'
+	'"Yes, this whore is already wet and she´s waiting for us to fuck her!" Dima roughly pushed aside your panties and began to thrust his fingers in your pussy.'
+
+	act 'Moan with pleasure':gt 'event', 'dima3'
+end
+
+if $ARGS[0] = 'dima3':
+	cla
+	*clr
+	set minut += 10
+	clr
+	gs 'stat'
+	'They took you to the bedroom. In an instant, your amorous gentlemen turned into some kind of loons, and you into a whore. But you admit it is great pleasure. In the bedroom stood a large bed, men unzipped their pants and took out their huge cocks.'
+	'"Go on start sucking, I see that you cannot wait" said Alex.'
+
+	act 'Kneel down':gt 'event', 'dima4'
+end
+
+if $ARGS[0] = 'dima4':
+	cla
+	*clr
+	set minut += 10
+	set guy += 2
+	set bj += 2
+	set throat += 1
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima.jpg"></center>'
+	'They stood next to the bed, you knelt down and took first Alex´s dick in your mouth the Dima. You sucked and licked the heads, then started swallowing their cocks. Dima took you by the chin, spit in his mouth and began to whip her cheeks, then sat down on the bed, grabbed you by the hair and began to roughly fuck you in the mouth, periodically pohlestyvaya cheeks. "Come on bitch, cocksucker" - he spoke to you, tears flowing down your cheeks, he humiliated you and called you names. And tougher skewer your mouth on his dick. You tried to please him. And Alex put you on your knees, ripped your panties, put my fingers in pussy and ass began to lubricate your holes with his spit, then directed his penis and roughly entered your ass.'
+
+	act 'Scream in pain':gt 'event', 'dima5'
+end
+
+if $ARGS[0] = 'dima5':
+	cla
+	*clr
+	set minut += 10
+	set group += 1
+	set throat += 1
+	set anus += 1
+	set cumass += 1
+	set cumlip += 1
+	set orgasm += 1
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima1.jpg"></center>'
+	'You wanted to scream, but near my mouth was Dima´s cock, you uttered incomprehensible sounds. Swallowing cock deep into your throat. Your anus burning in pain, Alex fucks you in the ass and Dima is fucking your mouth.'
+	'"Slut we will fuck you all night in all holes" said Alex.'
+	'The room was full of fucking noises. You have experienced an orgasm. Dima sometimes pulled his dick from your mouth spit in your mouth and started fucking your mouth again. And Alex started beating your ass, with every thrust his balls beat against your pussy, bringing you to all new pleasures. "Fuck me boys, I´ll do whatever you want" you thought to yourself. Dima stiffened and said:'
+	'"Swallow all that! Understood, bitch!"'
+	'And cum began to pour down your throat, you almost choked by swallowing it. You swallowed it all and licked his cock.'
+	'"Come on Alex, stretch this slut."'
+	'Alex also started to cum, his sperm was hot inside. He pulled out his dick and ordered:'
+	'"Lick it, bitch."'
+
+	act 'Lick':gt 'event', 'dima6'
+end
+
+if $ARGS[0] = 'dima6':
+	cla
+	*clr
+	if mop > 1:set mop = 0
+	set minut += 10
+	set cumlip += 1
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima2.jpg"></center>'
+	'You turned around and took in his dick in your mouth and began to suck it thoroughly. When finished we all went together to the kitchen and started drinking again.'
+	'"Did you like how we fucked you?"'
+
+	act 'Very much':gt 'event', 'dima7'
+end
+
+if $ARGS[0] = 'dima7':
+	cla
+	*clr
+	set minut += 10
+	set group += 1
+	set vagina += 1
+	set anus += 1
+	set cumpussy += 1
+	set cumass += 1
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima3.jpg"></center>'
+	'"And you a proper slut now, will will fuck you from both sides" said Dima.'
+	'Dima squeezing your chest and biting your nipples and Alex began greasing your ass. You slowly got up and went back into the bedroom. Alex lay back, you sat down, sending his dick in your pussy yourself, fucking, he pulled himself to kiss you, you bent down and Dima roughly entered your ass. As you had two huge dicks in you, you started moaning. "More, more, fuck me, I´m your whore! Fuck my hole!" You cried. It was amazing delight having two dicks in your holes, two strangers fucked you and you moaned as the last whore. And asked them to not stop. You were finishing and finishing. They finished almost simultaneously right into you. You got up and went back to the kitchen, with cum flowing from your ass and pussy. You could hardly walk.'
+	'"Alex, you have two more days, and I will come back next week, you can have this bitch to yourself, you will fuck her?"'
+	'"Of course leave. Only need to properly spank her for her obedience."'
+	'Dima said:'
+	'"Do what you want, I need to go to work in the morning, I´m going to sleep."'
+	'Alex went for a belt, grabbed you by your hand and led you into the hall. Dima went to sleep.'
+
+	act 'Don´t ... I´ll do whatever you want!':gt 'event', 'dima8'
+end
+
+if $ARGS[0] = 'dima8':
+	cla
+	*clr
+	set spank += 1
+	set minut += 10
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima4.jpg"></center>'
+	'"Not necessary" you begged with tears in your eyes, "I will do whatever you want."'
+	'"Sure you do, but we need to spank you for the future."'
+	'He put you doggy-style on the floor and started beating your ass with the belt, you cried and begged him to stop. Ass burning with pain. Each hit was getting more painful.'
+	'"Get up bitch!" he tied your hands with the belt, "suck my dick before bedtime."'
+
+	act 'Suck':gt 'event', 'dima9'
+end
+
+if $ARGS[0] = 'dima9':
+	cla
+	*clr
+	set minut += 30
+	set throat += 1
+	set bj += 1
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima5.jpg"></center>'
+	'Lech took you by the head and started to fuck in the mouth, it did not last very long. His dick was bigger and went deep in his throat, he held your hair. Then he still finished, you tied to a radiator and fell on the sofa bed.'
+
+	act 'Cry from the battery':gt 'event', 'dima10'
+end
+
+if $ARGS[0] = 'dima10':
+	cla
+	*clr
+	set minut += 30
+	set dimaQW = 2
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima6.jpg"></center>'
+	'You lay hands tied at the battery and wept. Ass on fire after undergoing whipping. Drunken peasants went to bed. Finally you hear the mighty snoring.'
+
+	act 'Leave':gt 'street'
+	act 'Fall asleep':gt 'event', 'dima11'
+end
+
+if $ARGS[0] = 'dima11':
+	cla
+	*clr
+	set minut += 480
+	set datster = 1
+	set bj += 1
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima7.jpg"></center>'
+	'You awoke from the fact that someone grabbed you by the hair and began shamelessly fuck you in the mouth.'
+	'"Hungy, I bet?", your recognize Dima´s voice, "Breakfast must be earned!"'
+
+	act 'Suck':gt 'event', 'dima12'
+end
+
+if $ARGS[0] = 'dima12':
+	cla
+	*clr
+	set minut += 10
+	set throat += 1
+	set bj += 1
+	set swallow += 1
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima8.jpg"></center>'
+	'You felt his cock stiffened and began to wring out streams of warm sperm. As soon as he finished with a contented sigh - came Lech besprikoslovno tone ordered to lick his balls to shine, otherwise no breakfast you can not see'
+	act 'Dutifully fulfill':gt 'event', 'dima13'
+	act 'Comply with the enthusiasm':gt 'event', 'dima14'
+
+	act 'Try to bite':gt 'event', 'dima31'
+end
+
+if $ARGS[0] = 'dima13':
+	cla
+	*clr
+	set minut += 5
+	set balls += 1
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima9.jpg"></center>'
+	'You lick and suck shaved Lehina balls, but he did not enjoy it. After a couple of minutes, he slaps you across the face and says:'
+	'"What is this bullshit? I´ll teach you how to perform!"'
+
+	act 'Look down':gt 'event', 'dima39'
+end
+
+if $ARGS[0] = 'dima14':
+	cla
+	*clr
+	set minut += 10
+	set balls += 1
+	set throat += 1
+	set bj += 1
+	set swallow += 1
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima9.jpg"></center>'
+	'Do you remember anything seen before, and try to repeat the same thing. Your tongue and lips lick and kiss each millimeter, thoroughly moisturizing the delicate skin. Then gradually move on to Lehina member and swallow whole, he immediately pushes you on the head and rapidly discharged in your throat, not letting up until his cock stops shudder convulsed'
+
+	act 'Swallow':gt 'event', 'dima15'
+end
+
+if $ARGS[0] = 'dima15':
+	cla
+	*clr
+	set minut += 30
+	set runrnd = rand(0, 10)
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima6.jpg"></center>'
+	'Dima unties you from the battery, throws you a bundle and tells him to go to the bathroom to freshen up. Meanwhile They Lehoy discussing something'
+
+	act 'Try to escape':
+		if runrnd < 9:
+			gt 'event', 'dima18'
+		else
+			gt 'street'
+		end
+	end
+
+	act 'Go to the bathroom':gt 'event', 'dima16'
+end
+
+if $ARGS[0] = 'dima16':
+	cla
+	*clr
+	set minut += 30
+	set lobkoef = 3
+	set legkoef = 3
+	set cumpussy = 0
+	set cumbelly = 0
+	set cumass = 0
+	set cumlip = 0
+	set cumface = 0
+	set cumfrot = 0
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima6.jpg"></center>'
+	'In convolution you find mesh bodysuit that you will wear. In the bathroom you wash off with a thick layer of sperm itself and clean shave vegetation where it should not be, and then apply the war paint on his face.'
+
+	act 'Wear net':gt 'event', 'dima19'
+	act 'Do not wear out of the tub':gt 'event', 'dima17'
+end
+
+if $ARGS[0] = 'dima17':
+	cla
+	*clr
+	set dom += 2
+	set minut += 30
+	set runrnd = rand(0, 10)
+	set lobkoef = 3
+	set legkoef = 3
+	set cumpussy = 0
+	set cumbelly = 0
+	set cumass = 0
+	set cumlip = 0
+	set cumface = 0
+	set cumfrot = 0
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima6.jpg"></center>'
+	'In the bathroom you wash off with a thick layer of sperm itself and clean shave vegetation where it should not be, but do not dress mesh. You come out of the bathroom in the buff, in spite of instructions'
+
+	act 'Look at the guys with the call':
+		if runrnd < 9:
+			gt 'event', 'dima18'
+		else
+			gt 'event', 'dima21'
+		end
+	end
+end
+
+if $ARGS[0] = 'dima18':
+	cla
+	*clr
+	set minut += 30
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima6.jpg"></center>'
+	'"Oh Well bitch disobedient! Thought, you can do what you want? Fuck thou nobody here, and you will do what you tell us!" - With these words Lech sprinkled in your face some spray and you passed out'
+
+	act 'Fall asleep':gt 'event', 'dima49'
+end
+
+if $ARGS[0] = 'dima19':
+	set minut += 5
+	clr
+	gs 'stat'
+	'"Here, boy, think you already vnikla what to do?"'
+
+	act 'Men serve on the highest level':gt 'event', 'dima20'
+end
+
+if $ARGS[0] = 'dima20':
+	cla
+	*clr
+	set minut += 30
+	clr
+	gs 'stat'
+	'"Here, boy, think you already vnikla what to do?"'
+
+	act 'Men serve on the highest level':gt 'event', 'dima21'
+end
+
+if $ARGS[0] = 'dima21':
+	cla
+	*clr
+	set hour += 3
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima3.jpg"></center>'
+	'You long to fuck in various poses, some of which would be the envy of the ardent lovers of kinky sex. After all this, you release'
+	set dimaqw = 2
+
+	act 'Leave':gt 'street'
+end
+
+if $ARGS[0] = 'dima30':
+	cla
+	*clr
+	set hour += 3
+	clr
+	gs 'stat'
+	'I confess, I am a sinner, a writer from me worthless, and all my dark little thoughts went to the recent arrival of women. If there are interesting ideas/scenarios to continue - fling in a personal, zabubenyu'
+	set dimaqw = 2
+
+	act 'Leave':gt 'street'
+end
+
+if $ARGS[0] = 'dima31':
+	cla
+	*clr
+	set minut += 30
+	set dimaQW = 2
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima6.jpg"></center>'
+	'You squeeze teeth, but Lech lightning grabs your face and jaw power disconnects.'
+	'-Bitch, what are you up to?!'
+	'You get a strong blow to the face and lose consciousness.'
+
+	act 'Wake up':gt 'event', 'dima32'
+end
+
+if $ARGS[0] = 'dima32':
+	cla
+	*clr
+	set minut += 30
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/10028_TommyPistolJacquelineBlackLady_180.jpg" ></center>'
+	'You came from a bright light batter on the eyes. My mouth was dry. Something just did not allow you to close your mouth. Body ached.'
+	'Oh, awake! And here I figured out how to re-educate you! - Lech said.'
+	'You looked around. It seems that while you were unconscious, you threw some clothes and took him outside. Metallic taste in the mouth. Hands tied behind their backs.'
+	'-And now, bitch, I´ll show you what a "safe sex."'
+	'With these words, Lech put you on your knees in front of him, pulled out his penis and sent to you in the mouth.'
+
+	act 'Resist':gt 'event', 'dima33'
+
+	If Kik > 50:
+		act 'Kick':gt 'event', 'dima37'
+	end
+end
+if $ARGS[0] = 'dima33':
+	cla
+	*clr
+	set minut += 10
+	set throat += 1
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/10028_TommyPistolJacquelineBlackLady_183.jpg" ></center>'
+	'Despite your attempts to resist, gave Lech and put your head in your mouth his dick. Device in the mouth did not give you close it, so you attempt to push him. But a ride failed. It seems that the device was securely fastened, and your movements of the tongue only provoke Lech.'
+	'- Oh, I see you like "safe sex"? Come on, do not stop!'
+
+	act 'continue to please':gt 'event', 'dima38'
+	act 'Stop tongue movement':gt 'event', 'dima34'
+end
+if $ARGS[0] = 'dima34':
+	cla
+	*clr
+	set minut += 30
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/10028_TommyPistolJacquelineBlackLady_187.jpg" ></center>'
+	'Lech realized that you are not going to continue his humor:'
+	'-Yesterday you did it with pleasure! Okay, so we´re still nowhere would come. A lesson that the mouth should be open, you´ve learned!'
+	'With these words he pulled his cock, lifted your hair and led her down.'
+	'You are trapped in an empty underground passage. Lech took the gag out of your mouth, and you were finally able to close it. Then your eyes closed bandage. Lech slightly bent you and povernull back to him.'
+
+	act 'stand still':gt 'event', 'dima35'
+end
+if $ARGS[0] = 'dima35':
+	cla
+	*clr
+	set minut += 30
+	set vagina += 1
+	set rape += 1
+	set cumface += 1
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/10028_TommyPistolJacquelineBlackLady_301.jpg" ></center>'
+	'Lech smash you entered. Happened on the stairs has brought you, and now he easily slid publishing squish. After a while you covered orgasm.'
+	'-So I had to start the morning. And no risk! - Said Lech, increasing the tempo.'
+	'Suddenly he stopped, turned sharply and put you on your knees. You hurt hit the marble floor, and felt something warm began to beat and run down your face.'
+	'-Your Stuff for the urn. I hope you learned a lesson - with these words Lech loosened the straps on your hands, and you heard postpones steps.'
+
+	act 'Recover':gt 'event', 'dima36'
+end
+
+if $ARGS[0] = 'dima36':
+	cla
+	*clr
+	set minut += 5
+
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/10028_TommyPistolJacquelineBlackLady_352.jpg" ></center>'
+	'After sitting in that position for a few minutes, you started releasing hands. When you succeed, you tore the bandage from his face, wiped her face with sperm and pushed as far as possible. Looking around, you notice an urn, which lie in your stuff. You get dressed and get out of the transition.'
+
+	act 'Leave':gt 'street'
+end
+if $ARGS[0] = 'dima37':
+	cla
+	*clr
+	set minut += 30
+
+	set money = 0
+	clr
+	gs 'stat'
+	'<center><img src="images/etogame/Kik.jpg"></center>'
+	'Things in the fitness center were not in vain. You manage to hit Lech foot so that it falls and loses consciousness. You start to run, and only remove staying far enough, and start looking for a way to free your hands. Eye catches you pointed stone, and when your hands are free, you remove the gag from his mouth, and finally, you can close it. Teeth creak from the dust that nabilas in the mouth while running. Dress trampled and torn in places, but still able to cover your body. You manage to find the right direction, and after a while you find yourself close to the supermarket, which met Dima. Then you realize that Lehi left all your money.'
+
+	act 'Relax':gt ' street'
+end
+if $ARGS[0] = 'dima38':
+	cla
+	*clr
+	set minut += 30
+	set bj += 1
+	set cumlip += 1
+	set throat += 1
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/10028_TommyPistolJacquelineBlackLady_184.jpg" ></center>'
+	'You begin to carefully caress member Lehi language, while trying to periodically swallow it as deep as possible. Limiting device in the mouth of your abilities and you seemed to be an eternity before you managed to get to Lech finish.'
+	'Yes, now a lesson learned. I think in the future you will have no problems. After all, am I right? - He said, clutching your hair.'
+	'You nodded. Lech then loosened the ties on your hands and pointing to the bushes, said:'
+	'-There you will find your things.'
+	'After Lech retired, you free your hands, mouth, and find their stuff in the specified location.'
+
+	act 'Leave':gt 'street'
+end
+
+if $ARGS[0] = 'dima39':
+	cla
+	*clr
+	set minut += 30
+
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/13606_ZenzaRaggiNikiSweet085.jpg" ></center>'
+	'Lech suits you and inserts the mouth gag. Then displays the apartment, and you take the bus to the center. It is surprisingly empty.'
+	'-Look, I´ve remembered you yesterday tried, and I thought maybe you just do not get enough sleep today? Can correct the mistake right there?'
+
+	act 'Beckon':gt 'event', 'dima40'
+	act 'Refuse':gt 'event', 'dima45'
+end
+if $ARGS[0] = 'dima40':
+	cla
+	*clr
+	set minut += 30
+	set vagina += 2
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/13606_ZenzaRaggiNikiSweet113.jpg" ></center>'
+	'-That´s great - with these words Lech pulls you dress, pulls already got stronger member and skewer you.'
+	'You start to move rhythmically, but rough road knocks you adding new sensations.'
+
+	act 'change of station':gt 'event', 'dima41'
+end
+
+if $ARGS[0] = 'dima41':
+	cla
+	*clr
+	set minut += 30
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/13606_ZenzaRaggiNikiSweet154.jpg" ></center>'
+	'You park between the seats, and Lech adjusts rear, removing the gag with the words:'
+	'-You do me now not going to disappoint?'
+	'Looks like Lehi not like sex on the go, and he stops and asks the driver to stop the bus between stops in the park area. The driver did not mind, he stops, and you leave the transport. Looks like he´s noticed your nakedness, and you feel his gaze until Lehoy hiding among the trees.'
+	'Soon you will find a clearing near the road.'
+	'-And now prove that morning showed not all that is capable of!'
+
+	act 'To kneel':gt 'event', 'dima42'
+end
+
+if $ARGS[0] = 'dima42':
+	cla
+	*clr
+	set minut += 30
+	set bj += 1
+	set cumlip += 1
+	set throat += 1
+	set cumface += 1
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/13606_ZenzaRaggiNikiSweet231.jpg" ></center>'
+	'I knelt down, you start diligently to please Lech then completely swallowing, then fully releasing member. Your diligence now could envy the best porn actress. Not surprisingly, soon Lech breathing hard, and finished removing the member on your face.'
+	'-That´s clever - he said - because you can, whenever you want! Think about your ability to have to learn everything!'
+	'Lech ties your hands, naked and takes you on the road. Put you on your knees, he took a marker and wrote on your stomach "Cum" and the up arrow, and said:'
+	'- I am away for a couple of hours when I come back, bring your stuff. And yet you sit here and boast about his skill.'
+
+	act 'wait for the return':gt 'event', 'dima43'
+	act 'Leave':gt 'event', 'dima44'
+end
+
+if $ARGS[0] = 'dima43':
+	cla
+	*clr
+	set minut += 50
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/13606_ZenzaRaggiNikiSweet263.jpg" ></center>'
+	'You decided to wait for the return of Lehi. The first 15 minutes passed quietly. On the road was deserted. But then began the most unpleasant pastime in your life. Passed a crowd of young people to notice you. They took a few photos, obsmeyali you, and losing interest gone. You seemed like an eternity held grandmother told me about morality, and that in its time, this was unacceptable. There were other personality, which you tried not to think.'
+	'When Lech returned, he untied you handed your things, and said that he was sorry about his imminent departure from the city as would be very happy new "rendezvous" with you.'
+	'You got dressed, took their belongings and hurriedly left his company.'
+
+	act 'Go to the yard':gt 'street'
+end
+if $ARGS[0] = 'dima44':
+	cla
+	*clr
+	set minut += 15
+	set money = 0
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/13606_ZenzaRaggiNikiSweet264.jpg" ></center>'
+	'You decide that sit covered with sperm, naked on the road - too humiliating for you. When Lech hidden from view, you go up, grab his clothes, left nearby, and run into the grounds. Unfortunately your purse he prehvatil ssoboy. Eye catches you pointed stone, and when your hands are free, you carefully wipe the traces of semen from her face. You manage to find the right direction, and after a while you find yourself close to the supermarket, where you met Dima'
+
+	act 'Relax':gt ' street'
+end
+if $ARGS[0] = 'dima45':
+	cla
+	*clr
+	set minut += 30
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/13606_ZenzaRaggiNikiSweet084.jpg" ></center>'
+	'How you want. So you will get new experience. Lots of new experiences! And I benefit - Lech said, smiling.'
+	'After that he was silent all the way until you have passed the desired stop. Lech brought you out of the bus and led to sex shops.'
+	'-There you are - you are greeted by a girl. She unceremoniously grabs you and leads to the back room. There she undresses and connects you.'
+	'-And now for me - the girl you brought to the stairs.'
+
+	act 'Go to the basement':gt 'event', 'dima46'
+end
+
+if $ARGS[0] = 'dima46':
+	cla
+	*clr
+	set minut += 5
+	set throat += 1
+	set cumlip += 1
+	set swallow += 1
+	set bj += 1
+	set gloryhole += 1
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/15933_MarkDavisDonnaAnnika_447.jpg" ></center>'
+	'When you went down, the girl has got you in a dark room with a round hole in one wall. Almost immediately, there is a hole in someone´s penis.'
+	'-Nigh - commanded girl.'
+	'After your failure, it grabbed you by the neck, and pressed to the opening force.'
+	'Attempts to shove dick out of your mouth, just very excited stranger behind the wall, and not stand a minute it ends. Because your head is firmly against, you are not able to spit, and are forced to swallow.'
+	'-Your companion got the money for a certain number of customers. Next she right, or should I stay and check?'
+
+	act 'agree to suck':gt 'event', 'dima47'
+	act 'refuse to continue':gt 'event', 'dima48'
+end
+
+if $ARGS[0] = 'dima47':
+	cla
+	*clr
+	set minut += 50
+	set throat += 5
+	set cumlip += 8
+	set swallow += 8
+	set bj += 8
+	set gloryhole += 8
+	set vagina += 1
+	set money += 1000
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/15933_MarkDavisDonnaAnnika_494.jpg" ></center>'
+	'Here-and miraculously, - she said, - I call your friend, even if it is followed. And you do not get distracted - with these words the girl pointed to the hole, which has a new member.'
+	'You obediently bent over and began to please the next stranger. You tried. Men erupted one after another.'
+	'Looks like you got so carried away that have not heard, as Lech walked into the room.'
+	'The realization that you are not alone in the room at that moment came when he forcefully entered you.'
+	'You decided not to get distracted, and continued to suck, regardless of ramming you from behind Lech.'
+	'When the man you served, finished, you as before, swallowed, and were ready to accept the new, but the hole remained empty. It seems that money received Lehoy you worked.'
+	'Lehi efforts were not lost, and soon you shook in orgasm. Almost immediately, he pulled out his penis, and expanding you poked your face. You are already in a couple of habitual movements could make him cum.'
+	'Once you have cleaned his cock, he came out of the booth and you a few minutes to recover. Oklemavshis you out of the room. At the door of the girl you met, which led you to this basement. She took you to the restroom, where you could wash your face and rinse your mouth. When you are out, she handed you a package with your things, and a few notes, adding that it is you asked me to tell your friend, for a job well done. You dressed.'
+
+	act 'Get Outside' :gt 'nord'
+end
+
+if $ARGS[0] = 'dima48':
+	cla
+	*clr
+	set minut += 50
+	set throat += 5
+	set cumlip += 8
+	set swallow += 8
+	set bj += 8
+	set gloryhole += 8
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/15933_MarkDavisDonnaAnnika_481.jpg" ></center>'
+	'It seems that the girl did not satisfy your refusal.'
+	'-Do you want to good, then continue on the poor.'
+	'With these words, the girl again summed up your head to the hole.'
+	'When it has a new member, she put it to you in the mouth, and began to drive your head. The impression that she fucks a stranger behind the wall of your head. It took more time, but this ended in your mouth. At this time, she shrank your head into the wall without letting you spit on the floor. This was repeated several times.'
+	'When the last "client" disappeared into the hole, she let go of your head, and left the room. Very soon she returned to your dealer. You dressed up, and she put you out of the room.'
+
+	act 'Get Outside' :gt 'nord'
+end
+
+if $ARGS[0] = 'dima49':
+	cla
+	*clr
+	set minut += 50
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/10022_ParisTommy_021.jpg" ></center>'
+	'You came to the middle of a square. Your hands were chained to a pole, and things found in a step away from you. In the mouth gag. In the distance there were people, but no one dared to approach you. And their okriknut you too could not. So it took about an hour. Similarly, you could not tell. Your legs are tired, but his hands behind his back did not give you the opportunity to sit down.'
+	'Suddenly you notice that some guy is coming to you.'
+	'-Do you need help? - He asked'
+
+	act 'Nod':gt 'event', 'dima50'
+end
+
+if $ARGS[0] = 'dima50':
+	cla
+	*clr
+	set minut += 30
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/10022_ParisTommy_028.jpg" ></center>'
+	'The guy came closer, keep your hands and pulled the gag out of his mouth.'
+	'He helped collect your things, and offered to withdraw from the area as soon as possible. Was very close to the river, and he offered you a dress under the bridge.'
+	'When you went down, the guy said:'
+	'- Can you repay the savior?'
+
+	act 'Suck':gt 'event', 'dima51'
+
+	if agil < 50:
+		act 'Send':gt 'event', 'dima52'
+	end
+
+	if agil > 49:
+		act 'Send':gt 'event', 'dima53'
+	end
+end
+
+if $ARGS[0] = 'dima51':
+	cla
+	*clr
+	set minut += 5
+	set throat += 1
+	set cumlip += 1
+	set swallow += 1
+	set cumface += 1
+	set bj += 1
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/10022_ParisTommy_088.jpg" ></center>'
+	'You knew immediately that hints at the guy. Kneeling, you rastegnula fly guy, and went to work. Barely a couple of minutes, the guy began to finish. When finished, he said goodbye to you, and quickly departed.'
+
+	act 'Freshen up' :gt 'nord'
+end
+
+if $ARGS[0] = 'dima52':
+	cla
+	*clr
+	set minut += 20
+	set throat += 2
+	set cumlip += 1
+	set swallow += 2
+	set cumface += 1
+	set bj += 2
+	set money = 0
+	clr
+	gs 'stat'
+	'<center><img src="images/picQW/10022_ParisTommy_308.jpg" ></center>'
+	'Enraged your refusal, the guy pushes you, grabs your stuff, throwing them into the river, and you have time to grab clothes, but handbag goes to the bottom with your savings and keys.'
+	'When you go up to the bridge, from the air as there are few guys. They grab you and tie your hands. Judging by their actions, they are watching you from the square.'
+	'When you find yourself on your lap, they lowered his pants. It seems you have no choice. You start to appease them.'
+	'When you finish with the last guys free your hands and run away.'
+	'Back in the present, you will find the right direction, and after a while find yourself far from the supermarket, which met Dima'
+
+	act 'Relax':gt ' street'
+end
+
+
+if $ARGS[0] = 'dima53':
+	cla
+	*clr
+	set minut += 30
+	clr
+	gs 'stat'
+	'<center><img src="images/clothes/skirt1.jpg"></center>'
+	'Enraged your refusal, the guy pushes you, but you stand firmly on his feet. Realizing that you do not mess, the guy runs away.'
+
+	act 'Freshen up' :gt 'nord'
+end
+
+if $ARGS[0] = 'scoreslut1':
+	cla
+	*clr
+	set minut += 30
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima6.jpg"></center>'
+	'You woke up, tied hands of the battery. From the sofa looked expectantly at you Dima.'
+
+	act 'Frightened look':gt 'event', 'scoreslut2'
+	act 'Trying to escape':gt 'event', 'scoreslut3'
+end
+
+if $ARGS[0] = 'scoreslut2':
+	cla
+	*clr
+	SUB = SUB + 2
+	set minut += 5
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima6.jpg"></center>'
+	'"Woke up, bitch? We´ll say?"'
+
+	act 'Frightened look':gt 'event', 'dima30'
+end
+
+if $ARGS[0] = 'scoreslut3':
+	cla
+	*clr
+	SUB = SUB + 2
+	set minut += 5
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/dima6.jpg"></center>'
+	'"Oh, you kicking"'
+
+	act 'Frightened look':gt 'event', 'dima30'
+end
+
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+if $ARGS[0] = 'lesbi':
+	cla
+	*clr
+	set minut += 5
+	gs 'stat'
+	'<center><img src="images/qwest/lesbi.jpg"></center>'
+	'Woman staring at you, caught your eye. Appreciatively examining you, she smiled and held fast to his lips tongue.'
+
+	act 'Turn':gt 'butik', 'start'
+	act 'Become acquainted':gt 'event', 'lesbi1'
+end
+
+if $ARGS[0] = 'lesbi1':
+	cla
+	*clr
+	set minut += 5
+	set lesbiQW = 1
+	gs 'stat'
+	'<center><img src="images/qwest/lesbi.jpg"></center>'
+	'You came to the woman. She looked at you with a twinkle in his eye, "I Natalya Petrovna, and you´re nothing on my card, call me anything as we descend in an interesting place." After that the woman comes out of the boutique graceful and confident gait.'
+
+	act 'Move away':gt 'butik', 'start'
+end
+
+if $ARGS[0] = 'lesbi2':
+	cla
+	*clr
+	set minut += 5
+	gs 'stat'
+	'<center><img src="images/qwest/lesbi.jpg"></center>'
+	'- Malyavki? yes I have had more guys than you! you misbehaved.'
+	'- Guys? YES they can twist as you want, if sicki, yes cute little face. Did you ever ever tried to force'
+	'another girl to live so that she is ready to do anything for your attention?'
+	if lesbian > 0:'- Nuu .. no .. I do not understand this - you mumbled. The girl I tried, but that so ..'
+	if lesbian = 0:'- Nuu .. no .. I do not understand this - you mumbled. I´m a woman and some really did not try ..'
+
+	act 'Move away':gt 'park', 'start'
+	act 'Ask teach':gt 'event', 'lesbi3'
+end
+
+if $ARGS[0] = 'lesbi3':
+	cla
+	*clr
+	set minut += 5
+	set lesbiQW = 2
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/lesbi.jpg"></center>'
+	'You suddenly gripped interest how does it make the other girls so you read? Can ask this woman to teach me.'
+	'Then you can find yourself very docile simpleton that will make your small chores and help you escape'
+	'from the guys. And deciding you asked:'
+	'- And can you teach me that?'
+	'- Teach? - She asked in surprise. - Teach .. hmm .. let´s try! - The lady said with a grin. - Come back tomorrow at 10 am in my'
+	'apartment (oddly enough, it turned out that she lives on the floor below you'
+
+	act 'Go in turmoil':gt 'park', 'start'
+end
+
+--- event ---------------------------------

+ 0 - 370
locations/032_frot

@@ -1,370 +0,0 @@
-# frot
-if $ARGS[0] = 'a':
-cla
-*clr
-gs 'stat'
-'<center><img src="images\picV\frot.jpg"></center>'
-'You feel that you abuts something solid in the ass, stir you realize that you have risen between the buttocks rests member.'
-act 'Go to another place': gt 'frot','fin'
-
-	act 'Disregard':
-	cla
-	*clr
-	set horny += 10
-	clr
-	gs 'stat'
-	'<center><img src="images\picV\frot1.jpg"></center>'
-	'The guy standing behind no matter how vznachay Regarding your buttocks his hand and pressed harder you as a member to the ass.'
-	act 'Go to another place': gt 'frot','fin'
-	act 'Disregard':
-		cla
-		*clr
-		set horny += 10
-		clr
-		gs 'stat'
-		'<center><img src="images\picV\frot2.jpg"></center>'
-		'You feel like a man behind you got penis and began to rub them on your ass clinging to you and squeezing your buttocks with his hands.'
-		act 'Go to another place': gt 'frot','fin'
-		act 'Disregard':
-			cla
-			*clr
-			set horny += 10
-			set frot += 1
-			set cumfrot += 1
-			set SUB += 5
-			gs 'starenie'
-			clr
-			gs 'stat'
-			'<center><img src="images\picV\frot3.jpg"></center>'
-			'Man jerked back and you feel like something warm and viscous flowed over you. Guy finished you on your ass, then he moved on to another place.'
-			act 'Get out of the car': gt 'frot','fin2'
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'b':
-cla
-*clr
-gs 'stat'
-'<center><img src="images\picV\frot.jpg"></center>'
-'You feel that you abuts something solid in the ass, stir you realize that you have risen between the buttocks rests member.'
-act 'Go to another place': gt 'frot','fin'
-	act 'Disregard':
-	cla
-	*clr
-	set horny += 10
-	clr
-	gs 'stat'
-	'<center><img src="images\picV\frot1.jpg"></center>'
-	'The guy standing behind your buttocks squeezes hands and even more pressed his cock you to the ass.'
-	act 'Go to another place': gt 'frot','fin'
-	act 'Disregard':
-		cla
-		*clr
-		set horny += 10
-		clr
-		gs 'stat'
-		'<center><img src="images\picV\frotA1.jpg"></center>'
-		'The man lifted her skirt and you started to caress your bare buttocks with his strong hands.'
-		act 'Disregard':
-			cla
-			*clr
-			set horny += 10
-			clr
-			gs 'stat'
-			'<center><img src="images\picV\frotA2.jpg"></center>'
-			'Man lowered your panties between your naked buttocks slid his hand that caressed your wet pussy.'
-			act 'Disregard':
-				cla
-				*clr
-				set horny += 10
-				clr
-				gs 'stat'
-				set horny += 10
-				set frot += 1
-				set cumfrot += 1
-				set SUB += 1
-				gs 'starenie'
-				clr
-				gs 'stat'
-				'<center><img src="images\picV\frot3.jpg"></center>'
-				'The man pulled on below your skirt at your panties down on your knees and took his hand your hand. He forced you to take your dick with your hand. You cupped hot and hard cock and began stroking it. After you feel like a man cums on your skirt.'
-				act 'Get out of the car': gt 'frot','fin2'
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'c':
-cla
-*clr
-gs 'stat'
-'<center><img src="images\picV\frotP.jpg"></center>'
-'You feel like a man standing behind you started poking his hand in his pants you.'
-act 'Go to another place': gt 'frot','fin'
-	act 'Disregard':
-	cla
-	*clr
-	set horny += 10
-	clr
-	gs 'stat'
-	'<center><img src="images\picV\frotP1.jpg"></center>'
-	'You become a nice addition to the stranger under pants caresses your ass, suddenly you see how he pulled out a small pair of scissors to cut the ribbon wants your bra.'
-	act 'Go to another place': gt 'frot','fin'
-	act 'Disregard':
-		cla
-		*clr
-		set horny += 10
-		set clrbelo -= 1
-		set SUB += 1
-		clr
-		gs 'stat'
-		'<center><img src="images\picV\frotP2.jpg"></center>'
-		'Man cut the ribbon of your bra and pulled it off with you. Freeing you from bra he began to fondle your breasts'
-		act 'Enjoy':
-			cla
-			*clr
-			set horny += 10
-			clr
-			gs 'stat'
-			'<center><img src="images\picV\frotP3.jpg"></center>'
-			'Man you bent forward and began to caress your ass, you feel that his hands clutching your pants trying to break them.'
-			act 'Go to another place': gt 'frot','fin'
-			act 'Allow it to':
-				cla
-				*clr
-				set SUB += 1
-				set horny += 10
-				clr
-				gs 'stat'
-				set horny += 10
-				!set frot += 1
-				set cumfrot += 1
-				set SUB += 5
-				gs 'starenie'
-				gs 'starenie'
-				gs 'starenie'
-				gs 'starenie'
-				gs 'starenie'
-				clr
-				gs 'stat'
-				'<center><img src="images\picV\frotP4.jpg"></center>'
-				'Man ripped your pants between your legs, thereby exposing your wet pussy.'
-				act 'Allow it to':
-					cla
-					*clr
-					set SUB += 1
-					set horny += 10
-					set guy += 1
-					set sex += 1
-					set vagina += 1
-					clr
-					gs 'stat'
-					'<center><img src="images\picV\frotP5.jpg"></center>'
-					'He turned you around to face him and cocked up your leg came into your sweaty pussy with his hard cock.'
-					if horny >= 100:
-						set horny = 0
-						set manna += 15
-						set willpower += 15
-						set orgasm += 1
-						'You started to cum almost immediately as he entered you.'
-						end
-					if horny < 100:
-						'You cover the wild excitement of sex with a stranger in a public place.'
-						end
-						act 'Further':
-						cla
-						*clr
-						set horny += 10
-						set frot += 1
-						set cumfrot += 1
-						set frot += 1
-						set cumpussy += 1
-						gs 'preg'
-						set SUB += 1
-						gs 'stat'
-						'<center><img src="images\picV\frotP6.jpg"></center>'
-						'Stranger is not pulling out of your pussy juices flowing term ends right inside. You feel like you beat jet of sperm into the uterus.'
-						act 'Get out of the car': gt 'frot','fin2'
-						end
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'd':
-cla
-*clr
-gs 'stat'
-'<center><img src="images\picV\frotP.jpg"></center>'
-'You feel like a man standing behind you started poking his hand in his pants you.'
-act 'Go to another place': gt 'frot','fin'
-act 'Disregard':
-	cla
-	*clr
-	set horny += 10
-	clr
-	gs 'stat'
-	'<center><img src="images\picV\frotD.jpg"></center>'
-	'The man pulled the pants off you leaving you with a bare ass in a crowded subway car, he took your hand and made you take his penis with his hand.'
-	act 'Go to another place': gt 'frot','fin'
-		act 'Stroking his cock':
-		cla
-		*clr
-		set horny += 10
-		set hj += 1
-		set cumass += 1
-		set SUB += 1
-		set frot += 1
-		clr
-		gs 'stat'
-		'<center><img src="images\picV\frotD1.jpg"></center>'
-		'You caress his fingers and rubbing his dick on your bare skin, stiffened and member of it on your bare ass began splashing sperm. After the man was satisfied, you pulled his pants right on the running water from your buttocks sperm.'
-		act 'Get out of the car': gt 'frot','fin2'
-		end
-	end
-end
-
-if $ARGS[0] = 'e':
-cla
-*clr
-gs 'stat'
-'<center><img src="images\picV\frotP.jpg"></center>'
-'You feel like a man standing behind you started poking his hand in his pants you.'
-act 'Go to another place': gt 'frot','fin'
-act 'Disregard':
-	cla
-	*clr
-	set horny += 60
-	clr
-	gs 'stat'
-	'<center><img src="images\picV\frotE.jpg"></center>'
-	'The man pulled the pants off you leaving you with a bare ass in a crowded subway car, you feel like you gets his hand between her legs and starts to masturbate your pussy.'
-	!act 'Go to another place': gt 'frot','fin'
-		if horny >= 90:
-		set horny = 0
-		set manna += 15
-		set willpower += 15
-		set orgasm += 1
-		'You can no longer tolerate and you cover powerful orgasm. Your legs give way.'
-			act 'Squat':
-			cla
-			*clr
-			set horny += 10
-			set SUB += 1
-			clr
-			gs 'stat'
-			'<center><img src="images\picV\frotE1.jpg"></center>'
-			'You could no longer stand and squatted. The man pulled a member who was standing right in front of your face and you took his head began to direct your face to the member.'
-				act 'Take by mouth':
-				cla
-				*clr
-				set horny += 10
-				set bj += 1
-				set guy += 1
-				!set cumface += 1
-				set SUB += 1
-				set frot += 1
-				clr
-				gs 'stat'
-				'<center><img src="images\picV\frotE2.jpg"></center>'
-				'Man held his cock you lips a few times then sent a purple head between your lips, you obediently opened his mouth and took it hard cock. You sit on their haunches in the middle of a crowded subway car and sucks dick from a stranger.'
-				act 'Continue to suck':
-					cla
-					*clr
-					set horny += 10
-					!set bj += 1
-					!set guy += 1
-					set cumface += 1
-					set facial += 1
-					set SUB += 1
-					!set frot += 1
-					clr
-					gs 'stat'
-					'<center><img src="images\picV\frotE3.jpg"></center>'
-					'The man pulls his cock out of your mouth and ends at your lips, hot cum dripping on your lips chin.'
-						act 'Sit on the floor':
-						cla
-						*clr
-						set horny += 10 + SUB + VAF
-						set cumlip += 1
-						set swallow += 1
-						set SUB += 5
-						gs 'stat'
-						'<center><img src="images\picV\frotE4.jpg"></center>'
-						'Male fingers collects sperm from your face and puts them into your mouth, and you dutifully licked them and swallow sperm.'
-						act 'Get out of the car': gt 'frot','fin2'
-						end
-					end
-				end
-			end
-		exit
-		end
-		if horny < 90:
-		'You are very nervous and you thought comes to mind to masturbate his penis.'
-			act 'Stroking his cock':
-			cla
-			*clr
-			set horny += 10
-			set hj += 1
-			set cumass += 1
-			set SUB += 1
-			set frot += 1
-			clr
-			gs 'stat'
-			'<center><img src="images\picV\frotD1.jpg"></center>'
-			'You caress his fingers and rubbing his dick on your bare skin, stiffened and member of it on your bare ass began splashing sperm. After the man was satisfied, you pulled his pants right on the running water from your buttocks sperm.'
-			act 'Get out of the car': gt 'frot','fin2'
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'd1':
-cla
-*clr
-gs 'stat'
-'<center><img src="images\picV\frotD2.jpg"></center>'
-'You feel like a man standing behind you become bullying your skirt.'
-act 'Go to another place': gt 'frot','fin'
-act 'Disregard':
-	cla
-	*clr
-	set horny += 10
-	clr
-	gs 'stat'
-	'<center><img src="images\picV\frotD.jpg"></center>'
-	'The man pulled the pants off you leaving you with a bare ass in a crowded subway car, he took your hand and made you take his penis with his hand.'
-	act 'Go to another place': gt 'frot','fin'
-	act 'Stroking his cock':
-		cla
-		*clr
-		set horny += 10
-		set hj += 1
-		set cumass += 1
-		set SUB += 1
-		set frot += 1
-		clr
-		gs 'stat'
-		'<center><img src="images\picV\frotD1.jpg"></center>'
-		'You caress his fingers and rubbing his dick on your bare skin, stiffened and member of it on your bare ass began splashing sperm. After the man was satisfied, you pulled his pants right on the running water from your buttocks sperm.'
-		act 'Get out of the car': gt 'frot','fin2'
-		end
-	end
-end
-
-if $ARGS[0] = 'fin':
-cla
-'You barely squeezed in another place, away from the horny idiot. After a while you come to your station'
-act 'Get out of the car': gt 'metro','start'
-end
-
-if $ARGS[0] = 'fin2':
-gt 'metro','start'
-end
---- frot ---------------------------------
-

+ 414 - 0
locations/033_frot

@@ -0,0 +1,414 @@
+# frot
+if $ARGS[0] = 'a':
+	cla
+	*clr
+	gs 'stat'
+	'<center><img src="images/picV/frot.jpg"></center>'
+	'You feel that you abuts something solid in the ass, stir you realize that you have risen between the buttocks rests member.'
+
+	act 'Go to another place':gt 'frot', 'fin'
+
+	act 'Disregard':
+		cla
+		*clr
+		set horny += 10
+		clr
+		gs 'stat'
+		'<center><img src="images/picV/frot1.jpg"></center>'
+		'The guy standing behind no matter how vznachay Regarding your buttocks his hand and pressed harder you as a member to the ass.'
+
+		act 'Go to another place':gt 'frot', 'fin'
+
+		act 'Disregard':
+			cla
+			*clr
+			set horny += 10
+			clr
+			gs 'stat'
+			'<center><img src="images/picV/frot2.jpg"></center>'
+			'You feel like a man behind you got penis and began to rub them on your ass clinging to you and squeezing your buttocks with his hands.'
+
+			act 'Go to another place':gt 'frot', 'fin'
+
+			act 'Disregard':
+				cla
+				*clr
+				set horny += 10
+				set frot += 1
+				set cumfrot += 1
+				set SUB += 5
+				gs 'starenie'
+				clr
+				gs 'stat'
+				'<center><img src="images/picV/frot3.jpg"></center>'
+				'Man jerked back and you feel like something warm and viscous flowed over you. Guy finished you on your ass, then he moved on to another place.'
+
+				act 'Get out of the car':gt 'frot', 'fin2'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'b':
+	cla
+	*clr
+	gs 'stat'
+	'<center><img src="images/picV/frot.jpg"></center>'
+	'You feel that you abuts something solid in the ass, stir you realize that you have risen between the buttocks rests member.'
+
+	act 'Go to another place':gt 'frot', 'fin'
+
+	act 'Disregard':
+		cla
+		*clr
+		set horny += 10
+		clr
+		gs 'stat'
+		'<center><img src="images/picV/frot1.jpg"></center>'
+		'The guy standing behind your buttocks squeezes hands and even more pressed his cock you to the ass.'
+
+		act 'Go to another place':gt 'frot', 'fin'
+
+		act 'Disregard':
+			cla
+			*clr
+			set horny += 10
+			clr
+			gs 'stat'
+			'<center><img src="images/picV/frotA1.jpg"></center>'
+			'The man lifted her skirt and you started to caress your bare buttocks with his strong hands.'
+
+			act 'Disregard':
+				cla
+				*clr
+				set horny += 10
+				clr
+				gs 'stat'
+				'<center><img src="images/picV/frotA2.jpg"></center>'
+				'Man lowered your panties between your naked buttocks slid his hand that caressed your wet pussy.'
+
+				act 'Disregard':
+					cla
+					*clr
+					set horny += 10
+					clr
+					gs 'stat'
+					set horny += 10
+					set frot += 1
+					set cumfrot += 1
+					set SUB += 1
+					gs 'starenie'
+					clr
+					gs 'stat'
+					'<center><img src="images/picV/frot3.jpg"></center>'
+					'The man pulled on below your skirt at your panties down on your knees and took his hand your hand. He forced you to take your dick with your hand. You cupped hot and hard cock and began stroking it. After you feel like a man cums on your skirt.'
+
+					act 'Get out of the car':gt 'frot', 'fin2'
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'c':
+	cla
+	*clr
+	gs 'stat'
+	'<center><img src="images/picV/frotP.jpg"></center>'
+	'You feel like a man standing behind you started poking his hand in his pants you.'
+
+	act 'Go to another place':gt 'frot', 'fin'
+
+	act 'Disregard':
+		cla
+		*clr
+		set horny += 10
+		clr
+		gs 'stat'
+		'<center><img src="images/picV/frotP1.jpg"></center>'
+		'You become a nice addition to the stranger under pants caresses your ass, suddenly you see how he pulled out a small pair of scissors to cut the ribbon wants your bra.'
+
+		act 'Go to another place':gt 'frot', 'fin'
+
+		act 'Disregard':
+			cla
+			*clr
+			set horny += 10
+			set clrbelo -= 1
+			set SUB += 1
+			clr
+			gs 'stat'
+			'<center><img src="images/picV/frotP2.jpg"></center>'
+			'Man cut the ribbon of your bra and pulled it off with you. Freeing you from bra he began to fondle your breasts'
+
+			act 'Enjoy':
+				cla
+				*clr
+				set horny += 10
+				clr
+				gs 'stat'
+				'<center><img src="images/picV/frotP3.jpg"></center>'
+				'Man you bent forward and began to caress your ass, you feel that his hands clutching your pants trying to break them.'
+
+				act 'Go to another place':gt 'frot', 'fin'
+
+				act 'Allow it to':
+					cla
+					*clr
+					set SUB += 1
+					set horny += 10
+					clr
+					gs 'stat'
+					set horny += 10
+					!!set frot += 1
+					set cumfrot += 1
+					set SUB += 5
+					gs 'starenie'
+					gs 'starenie'
+					gs 'starenie'
+					gs 'starenie'
+					gs 'starenie'
+					clr
+					gs 'stat'
+					'<center><img src="images/picV/frotP4.jpg"></center>'
+					'Man ripped your pants between your legs, thereby exposing your wet pussy.'
+
+					act 'Allow it to':
+						cla
+						*clr
+						set SUB += 1
+						set horny += 10
+						set guy += 1
+						set sex += 1
+						set vagina += 1
+						clr
+						gs 'stat'
+						'<center><img src="images/picV/frotP5.jpg"></center>'
+						'He turned you around to face him and cocked up your leg came into your sweaty pussy with his hard cock.'
+
+						if horny >= 100:
+							set horny = 0
+							set manna += 15
+							set willpower += 15
+							set orgasm += 1
+							'You started to cum almost immediately as he entered you.'
+						end
+
+						if horny < 100:'You cover the wild excitement of sex with a stranger in a public place.'
+						act 'Further':
+							cla
+							*clr
+							set horny += 10
+							set frot += 1
+							set cumfrot += 1
+							set frot += 1
+							set cumpussy += 1
+							gs 'preg'
+							set SUB += 1
+							gs 'stat'
+							'<center><img src="images/picV/frotP6.jpg"></center>'
+							'Stranger is not pulling out of your pussy juices flowing term ends right inside. You feel like you beat jet of sperm into the uterus.'
+
+							act 'Get out of the car':gt 'frot', 'fin2'
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'd':
+	cla
+	*clr
+	gs 'stat'
+	'<center><img src="images/picV/frotP.jpg"></center>'
+	'You feel like a man standing behind you started poking his hand in his pants you.'
+
+	act 'Go to another place':gt 'frot', 'fin'
+
+	act 'Disregard':
+		cla
+		*clr
+		set horny += 10
+		clr
+		gs 'stat'
+		'<center><img src="images/picV/frotD.jpg"></center>'
+		'The man pulled the pants off you leaving you with a bare ass in a crowded subway car, he took your hand and made you take his penis with his hand.'
+
+		act 'Go to another place':gt 'frot', 'fin'
+
+		act 'Stroking his cock':
+			cla
+			*clr
+			set horny += 10
+			set hj += 1
+			set cumass += 1
+			set SUB += 1
+			set frot += 1
+			clr
+			gs 'stat'
+			'<center><img src="images/picV/frotD1.jpg"></center>'
+			'You caress his fingers and rubbing his dick on your bare skin, stiffened and member of it on your bare ass began splashing sperm. After the man was satisfied, you pulled his pants right on the running water from your buttocks sperm.'
+
+			act 'Get out of the car':gt 'frot', 'fin2'
+		end
+	end
+end
+
+if $ARGS[0] = 'e':
+	cla
+	*clr
+	gs 'stat'
+	'<center><img src="images/picV/frotP.jpg"></center>'
+	'You feel like a man standing behind you started poking his hand in his pants you.'
+
+	act 'Go to another place':gt 'frot', 'fin'
+
+	act 'Disregard':
+		cla
+		*clr
+		set horny += 60
+		clr
+		gs 'stat'
+		'<center><img src="images/picV/frotE.jpg"></center>'
+		'The man pulled the pants off you leaving you with a bare ass in a crowded subway car, you feel like you gets his hand between her legs and starts to masturbate your pussy.'
+
+		!!act 'Go to another place':gt 'frot', 'fin'
+		if horny >= 90:
+			set horny = 0
+			set manna += 15
+			set willpower += 15
+			set orgasm += 1
+			'You can no longer tolerate and you cover powerful orgasm. Your legs give way.'
+
+			act 'Squat':
+				cla
+				*clr
+				set horny += 10
+				set SUB += 1
+				clr
+				gs 'stat'
+				'<center><img src="images/picV/frotE1.jpg"></center>'
+				'You could no longer stand and squatted. The man pulled a member who was standing right in front of your face and you took his head began to direct your face to the member.'
+
+				act 'Take by mouth':
+					cla
+					*clr
+					set horny += 10
+					set bj += 1
+					set guy += 1
+					!!set cumface += 1
+					set SUB += 1
+					set frot += 1
+					clr
+					gs 'stat'
+					'<center><img src="images/picV/frotE2.jpg"></center>'
+					'Man held his cock you lips a few times then sent a purple head between your lips, you obediently opened his mouth and took it hard cock. You sit on their haunches in the middle of a crowded subway car and sucks dick from a stranger.'
+
+					act 'Continue to suck':
+						cla
+						*clr
+						set horny += 10
+						!!set bj += 1
+						!!set guy += 1
+						set cumface += 1
+						set facial += 1
+						set SUB += 1
+						!!set frot += 1
+						clr
+						gs 'stat'
+						'<center><img src="images/picV/frotE3.jpg"></center>'
+						'The man pulls his cock out of your mouth and ends at your lips, hot cum dripping on your lips chin.'
+
+						act 'Sit on the floor':
+							cla
+							*clr
+							set horny += 10 + SUB + VAF
+							set cumlip += 1
+							set swallow += 1
+							set SUB += 5
+							gs 'stat'
+							'<center><img src="images/picV/frotE4.jpg"></center>'
+							'Male fingers collects sperm from your face and puts them into your mouth, and you dutifully licked them and swallow sperm.'
+
+							act 'Get out of the car':gt 'frot', 'fin2'
+						end
+					end
+				end
+			end
+
+			exit
+		end
+
+		if horny < 90:
+			'You are very nervous and you thought comes to mind to masturbate his penis.'
+
+			act 'Stroking his cock':
+				cla
+				*clr
+				set horny += 10
+				set hj += 1
+				set cumass += 1
+				set SUB += 1
+				set frot += 1
+				clr
+				gs 'stat'
+				'<center><img src="images/picV/frotD1.jpg"></center>'
+				'You caress his fingers and rubbing his dick on your bare skin, stiffened and member of it on your bare ass began splashing sperm. After the man was satisfied, you pulled his pants right on the running water from your buttocks sperm.'
+
+				act 'Get out of the car':gt 'frot', 'fin2'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'd1':
+	cla
+	*clr
+	gs 'stat'
+	'<center><img src="images/picV/frotD2.jpg"></center>'
+	'You feel like a man standing behind you become bullying your skirt.'
+
+	act 'Go to another place':gt 'frot', 'fin'
+
+	act 'Disregard':
+		cla
+		*clr
+		set horny += 10
+		clr
+		gs 'stat'
+		'<center><img src="images/picV/frotD.jpg"></center>'
+		'The man pulled the pants off you leaving you with a bare ass in a crowded subway car, he took your hand and made you take his penis with his hand.'
+
+		act 'Go to another place':gt 'frot', 'fin'
+
+		act 'Stroking his cock':
+			cla
+			*clr
+			set horny += 10
+			set hj += 1
+			set cumass += 1
+			set SUB += 1
+			set frot += 1
+			clr
+			gs 'stat'
+			'<center><img src="images/picV/frotD1.jpg"></center>'
+			'You caress his fingers and rubbing his dick on your bare skin, stiffened and member of it on your bare ass began splashing sperm. After the man was satisfied, you pulled his pants right on the running water from your buttocks sperm.'
+
+			act 'Get out of the car':gt 'frot', 'fin2'
+		end
+	end
+end
+
+if $ARGS[0] = 'fin':
+	cla
+	'You barely squeezed in another place, away from the horny idiot. After a while you come to your station'
+	act 'Get out of the car':gt 'metro', 'start'
+end
+
+if $ARGS[0] = 'fin2':
+	gt 'metro', 'start'
+end
+
+--- frot ---------------------------------

+ 0 - 91
locations/033_kisameQW

@@ -1,91 +0,0 @@
-# kisameQW
-if $ARGS[0] = 'start':
-cla
-set horny += 20
-clr
-gs 'stat'
-'<center><img src="images\qwest\kisame1.jpg"></center>'
-'You swim in the pool, underwater turns Kisame constantly touching your body. He rips off your swimsuit and pushes you to the bottom of the pool.'
-'Kisame plunges to you and pushing your feet.'
-	act 'Trying to push him away':
-	cla
-	*clr
-	set horny += 60
-	if sweat > -3: set sweat = -3
-	set manna += 5
-	set willpower += 5
-	clr
-	gs 'stat'
-	'<center><img src="images\qwest\kisame2.jpg"></center>'
-	'Kisame despite your attempts to resist pushing your feet in your mouth bites a piece of his tongue gets you into the vagina and caresses you like. You feel on top of the world.'
-		act 'Submit':
-		cla
-		*clr
-		set horny += 60
-		if sweat > -3: set sweat = -3
-		set manna += 5
-		set willpower += 5
-		set guy += 1
-		set sex += 1
-		set vagina += 1
-		if KisameSex = 0: set KisameSex = 1 & Set guy += 1
-		clr
-		gs 'stat'
-		'<center><img src="images\qwest\kisame3.jpg"></center>'
-		'Kisame playing with you like a toy, he swam under you and skewer your pussy on his cock. You simultaneously on the verge of orgasm and fainting from suffocation. You hear the voice of Kisame, you can breathe underwater. He hard fucks you in the pussy and you can not breathe and soak up water. Suddenly, instead of water in your lungs misses completely normal air.'
-		'Sighing you immediately covers orgasm, you can be bent in convulsions of pleasure. Kisame also ends up in you.'
-		act 'Further': gt 'kisameQW','after'
-		end
-
-		act 'Attack (Kisame mag10)':
-		cla
-		*clr
-		'<center><img src="images\qwest\kisameV.jpg"></center>'
-		set horny += 60
-		set $nameV = 'Kisame'
-		!Статы
-		set strenV = 300
-		set speedV = 100
-		set agilV = 100
-		set reactV = 100
-		set vitalV = 200
-		set intelV = 100
-		set willV = 50
-		!Навыки
-		set magikV = 10
-		set boxingV = 100
-		set shootV = 100
-		!Параметры
-		set healthV = vitalV * 10 + strenV * 5
-		set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
-		set willpowerV = willV * 10
-		set BonusAtakV = 0
-		set BonusDefV = 0
-		!программа действий
-		set program = 5
-		!!!!!!!!!!!!!!!!!!!!
-		set kisamePic = 1
-		!!!!!!!!!!!!!!!!!!!!
-		set KisaFight = 1
-		set klonV = 5
-		!set defenceV = 10000
-		if spellavtoklon = 1: set klon = 3
-		if spellbefshild = 1: set defence = 500
-		gt 'fight','start'
-		'You kicked in the face Kisame. He showed his teeth, and his appearance began to change through instantaneous he was already blue gills on the face and shark teeth. He whispered with a smile, "You wanna play baby? Let´s play!"'
-		act 'Fight': gt 'fight','start'
-		end
-	end
-end
-
-if $ARGS[0] = 'after':
-cla
-set horny += 20
-clr
-gs 'stat'
-'<center><img src="images\qwest\kisameV.jpg"></center>'
-'Kisame transformed lightning in senee akulopodobnoe creature. He smiled and said, "Thank you baby." With these words he slapped you on the ass and went to the men´s locker room.'
-act 'Find a swimsuit and go in the locker room': gt 'bass','start'
-end
---- kisameQW ---------------------------------
-

+ 99 - 0
locations/034_kisameQW

@@ -0,0 +1,99 @@
+# kisameQW
+if $ARGS[0] = 'start':
+	cla
+	set horny += 20
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/kisame1.jpg"></center>'
+	'You swim in the pool, underwater turns Kisame constantly touching your body. He rips off your swimsuit and pushes you to the bottom of the pool.'
+	'Kisame plunges to you and pushing your feet.'
+
+	act 'Trying to push him away':
+		cla
+		*clr
+		set horny += 60
+		set sweat = -3
+		set manna += 5
+		set willpower += 5
+		clr
+		gs 'stat'
+		'<center><img src="images/qwest/kisame2.jpg"></center>'
+		'Kisame despite your attempts to resist pushing your feet in your mouth bites a piece of his tongue gets you into the vagina and caresses you like. You feel on top of the world.'
+
+		act 'Submit':
+			cla
+			*clr
+			set horny += 60
+			set sweat = -3
+			set manna += 5
+			set willpower += 5
+			set guy += 1
+			set sex += 1
+			set vagina += 1
+
+			if KisameSex = 0:set KisameSex = 1 & set guy += 1
+
+			clr
+			gs 'stat'
+			'<center><img src="images/qwest/kisame3.jpg"></center>'
+			'Kisame playing with you like a toy, he swam under you and skewer your pussy on his cock. You simultaneously on the verge of orgasm and fainting from suffocation. You hear the voice of Kisame, you can breathe underwater. He hard fucks you in the pussy and you can not breathe and soak up water. Suddenly, instead of water in your lungs misses completely normal air.'
+			'Sighing you immediately covers orgasm, you can be bent in convulsions of pleasure. Kisame also ends up in you.'
+
+			act 'Further':gt 'kisameQW', 'after'
+		end
+
+		act 'Attack (Kisame mag10)':
+			cla
+			*clr
+			'<center><img src="images/qwest/kisameV.jpg"></center>'
+			set horny += 60
+			set $nameV = 'Kisame'
+			!!stats
+			set strenV = 300
+			set speedV = 100
+			set agilV = 100
+			set reactV = 100
+			set vitalV = 200
+			set intelV = 100
+			set willV = 50
+			!!skills
+			set magikV = 10
+			set boxingV = 100
+			set 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
+			!!Programme of Action
+			set program = 5
+			!!!!!!!!!!!!!!!!!!!!
+			set kisamePic = 1
+			!!!!!!!!!!!!!!!!!!!!
+			set KisaFight = 1
+			set klonV = 5
+			!!set defenceV = 10000
+			if spellavtoklon = 1:set klon = 3
+			if spellbefshild = 1:set defence = 500
+
+			gt 'fight', 'start'
+			'You kicked in the face Kisame. He showed his teeth, and his appearance began to change through instantaneous he was already blue gills on the face and shark teeth. He whispered with a smile, "You wanna play baby? Let´s play!"'
+
+			act 'Fight':gt 'fight', 'start'
+		end
+	end
+end
+
+if $ARGS[0] = 'after':
+	cla
+	set horny += 20
+	clr
+	gs 'stat'
+	'<center><img src="images/qwest/kisameV.jpg"></center>'
+	'Kisame transformed lightning in senee akulopodobnoe creature. He smiled and said, "Thank you baby." With these words he slapped you on the ass and went to the men´s locker room.'
+
+	act 'Find a swimsuit and go in the locker room':gt 'bass', 'start'
+end
+
+--- kisameQW ---------------------------------

+ 0 - 499
locations/034_lesbidomhouse

@@ -1,499 +0,0 @@
-# lesbidomhouse
-gs 'stat'
-
-if $ARGS[0] = 'start':
-cla
-*clr
-set minut += 5
-set lesrand = RAND(1,3)
-clr
-gs 'stat'
-	if lesrand = 1:
-	'You called, but the door no one answered you. To re-call too, no one responded'
-	act 'Leave': gt 'street'
-	end
-	if lesrand >= 2:
-	'You rang the doorbell several times. Once you opened the third.'
-	act 'Stop by': gt 'lesbidomhouse','ev1'
-	act 'Leave': gt 'street'
-	end
-end
-
-if $args[0] = 'ev1':
-cla
-*clr
-set minut += 5
-'<center><img src="images\qwest\lesbi.jpg"></center>'
-'Rang the doorbell.'
-'You do not open and you want to leave, but the desire to learn povelevaniyu girls overpower you and you called again.'
-'And finally you have opened.'
-'-Hello - told <<$name>>'
-'Ah, it´s you, the lady said dismissively, come.'
-act 'Stop by': gt 'lesbidomhouse','ev2'
-end
-
-if $args[0] = 'ev2':
-cla
-*clr
-set minut += 5
-'<center><img src="images\etogame\irinaroom.jpg"></center>'
-'You looked around the apartment was very clean, but it did not cause comfort.'
-'How something is not cozy at you - you said, and immediately met with a cold stare ladies.'
-'You become very uncomfortable.'
-'-Sorry - you said'
-'Nothing, you have to get used to this situation. After all, what would make a girl, you need to make her feel uncomfortable, weak, defenseless.'
-'-Well, I remember that. I never asked your name.'
-'- Call me Mistress.'
-act 'Agree': gt 'lesbidomhouse','ev4'
-if sub < 30 and horny < 75:
-act 'Brawl': gt 'lesbidomhouse','ev3'
-end
-end
-
-if $args[0] = 'ev3':
-cla
-*clr
-set minut += 5
-set lesbiqw = -1
-if dom > 0: set dom += 5
-if sub > 0: set sub -= 5
-'<center><img src="images\qwest\pnx.jpg"></center>'
-'You´ve decided that she wants to make you a slave and nothing more, so you yell at the woman and went'
-act 'Leave': gt 'street'
-end
-
-if $args[0] = 'ev4':
-cla
-*clr
-set minut += 5
-'<center><img src="images\qwest\lesbi.jpg"></center>'
-'You think she wants to make you a slave, not to teach. But still did not say anything.'
-'-good hostess. And where do we start my training?'
-'-The first thing is not to hurry. You should know well the victim. For example, to begin with, have a drink and rub in credibility. With this'
-'and start, you´ll be the object on which I´ll show you all my tricks.'
-act 'Play on': gt 'lesbidomhouse','ev5'
-end
-
-if $args[0] = 'ev5':
-cla
-*clr
-set minut += 5
-'<center><img src="images\qwest\zst.jpg"></center>'
-'You agreed, went into the room where there were already cooked drinking and snack.'
-act 'Drink': gt 'lesbidomhouse','ev6'
-end
-
-if $args[0] = 'ev6':
-cla
-*clr
-set hour += 23
-set minut += 5
-set lesbiqw = 3
-'<center><img src="images\qwest\zst.jpg"></center>'
-'You started drinking and soon your stiffness and uncertainty disappeared and you began to tell his adventures Mistress,'
-'how much you guys have many times given in the ass as otsasali and drinking even told that sex was even'
-'unfamiliar guys in clubs and other park and your adventures.'
-'End drunk you decided to go home. The hostess did not accompany you, but you were so drunk that scored it.'
-if oral >= anal and oral >= sex:
-set callnm = 1
-end
-if anal >= oral and anal >= sex:
-set callnm = 2
-end
-if Sex >= oral and Sex >= anal:
-set callnm = 3
-end
-if vaf >= 100:
-set callnm = 4
-end
-act 'Go home': gt 'korr'
-end
-
-if $ARGS[0] = 'start1':
-cla
-*clr
-set minut += 5
-set lesrand = RAND(1,3)
-clr
-gs 'stat'
-	if lesrand = 1:
-	'You called, but the door no one answered you. To re-call too, no one responded'
-	act 'Leave': gt 'street'
-	end
-	if lesrand >= 2:
-	'You rang the doorbell several times. Once you opened the third.'
-	act 'Stop by': gt 'lesbidomhouse','ev7'
-	act 'Leave': gt 'street'
-	end
-end
-
-if $args[0] = 'ev7':
-cla
-*clr
-set minut += 5
-'<center><img src="images\qwest\lesbi.jpg"></center>'
-'You decided to go to, hmmm, Mistress? find out whether there was something to be ashamed of yesterday and what lesson you should train'
-'had to endure? as you remember little from that day.'
-act 'Hello': gt 'lesbidomhouse','ev8'
-end
-
-if $args[0] = 'ev8':
-cla
-*clr
-set minut += 5
-if callnm = 1:
-$callnm = 'nipple'
-end
-if callnm = 2:
-$callnm = 'analschitsa'
-end
-if callnm = 3:
-$callnm = 'davalka'
-end
-if callnm = 4:
-$callnm = 'spermoedka'
-end
-'<center><img src="images\qwest\lesbi.jpg"></center>'
-'-Hello, Mistress.'
-'Hi <<$callnm>>'
-
-'-as you call me? - You were taken aback. And blushed, because the hostess told the truth.'
-'-This is lesson number 2. Humiliate their target. Use what you learned about it.'
-act 'Ask not to call you that': gt 'lesbidomhouse','ev9'
-end
-
-if $args[0] = 'ev9':
-cla
-*clr
-set minut += 5
-if callnm = 1:
-$callnm = 'nipple'
-end
-if callnm = 2:
-$callnm = 'analschitsa'
-end
-if callnm = 3:
-$callnm = 'davalka'
-end
-if callnm = 4:
-$callnm = 'spermoedka'
-end
-'-No, you should feel on their skin all <<$callnm>>'
-'-Continue training. If what you know about the girl, touches her, I believe that it´s yours. Make it do what it'
-'loves most.'
-'-but if she loves anal and eblyu members or suck and swallow cum, I´ll make her do it? I havent a member and I do not'
-'any thread is fantasy feet.'
-'On this account, do not worry, I´ll give you (maybe) a special strap, he may issue streams of sperm.'
-act 'Try to ask': gt 'lesbidomhouse','ev10'
-end
-
-if $args[0] = 'ev10':
-cla
-*clr
-set minut += 5
-'On and I did not know about these, you can try it on?'
-'-Not yet, I told you, first you try everything on myself.'
-'-Well - you said uncertainly.'
-'-Proceed.'
-act 'Start': gt 'lesbidomhouse','ev10a'
-end
-
-if $args[0] = 'ev10a':
-cla
-*clr
-set minut += 35
-set horny = 95
-'<center><img src="images\qwest\lesbi2.jpg"></center>'
-if callnm = 1 or callnm = 4:
-'Hostess beginning you have. First, it made you suck plastic cock and then shoved a plastic dick in your throat and began shamelessly fuck you there. You were close to the peak of pleasure as hostess suddenly stopped.'
-end
-if callnm = 2:
-'The hostess sat down to have you. First, it made you suck plastic cock then you deployed and began mercilessly fuck your pussy. You were close to the peak of pleasure as hostess suddenly stopped.'
-end
-if callnm = 3:
-'The hostess sat down to have you. First, it made you suck plastic cock then you deployed and began mercilessly nasilovt your ass. You were close to the peak of pleasure as hostess suddenly stopped.'
-end
-act 'Indignant': gt 'lesbidomhouse','ev11'
-end
-
-if $args[0] = 'ev11':
-cla
-*clr
-set minut += 5
-set lesbiqw = 4
-set sub += 2
-set lesbian += 1
-if ldmistresex = 0: ldmistresex = 1 & girl += 1
-set lesbiday = day
-'Well, I´m almost finished - you moaned.'
-'-Next lesson - do not let the girl that she has not earned it. Want to come? Please lick my pussy.'
-'You started with a zeal to lick pussy Mistress, resignedly and without question.'
-'After due pleasure hostess put her hand on your head and let down your tongue to her anus.'
-act 'Protest': gt 'lesbidomhouse','ev12'
-act 'Lick ass': gt 'lesbidomhouse','ev13'
-end
-
-if $args[0] = 'ev12':
-cla
-*clr
-set minut += 5
-'Fu, he´s not washed, then callas - you started to step back.'
-'Requirements should not be easy, otherwise the girl will not be so submissive. But then it will wait for a very good encouragement.'
-act 'Leave':
-set lesbiqw = -1
-gt 'street'
-end
-act 'Lick ass': gt 'lesbidomhouse','ev13'
-end
-
-if $args[0] = 'ev13':
-cla
-*clr
-set anllick += 1
-set anllicka += 1
-set minut += 5
-set energy += 1
-'<center><img src="images\qwest\lesbi3.jpg"></center>'
-'You reluctantly began to lick the anus Mistress. You almost puked, but more excitement and a desire to know what kind of reward awaits her after forced you to continue.'
-'Mistress of all shuddered, grabbing you by the hair. She finished.'
-'-Well, what reward awaits me, Mistress?'
-'-No ...'
-act 'Uncomprehending look': gt 'lesbidomhouse','ev14'
-act 'Leave':
-set lesbiqw = -1
-gt 'street'
-end
-end
-
-if $args[0] = 'ev14':
-cla
-*clr
-set lesbiqw = 5
-'<center><img src="images\qwest\lesbi9.jpg"></center>'
-'-Chtoooo? You told me then that will be rewarded!'
-'-This is another lesson, the girl can not give awards at once. She must understand that to get something not so easy. All go.'
-'I´ll meet you tomorrow!'
-act 'Leave': gt 'street'
-end
-
-if $args[0] = 'ev15':
-cla
-*clr
-set lesbiday = day
-Set minut += 30
-'-Come,'
-if callnm = 1:
-'nipple'
-end
-if callnm = 2:
-'analschitsa'
-end
-if callnm = 3:
-'davalka'
-end
-if callnm = 4:
-'spermoedka'
-end
-'-Hello, Mistress.'
-'-Well, you know what to do to get the reward.'
-act 'Lick Mistress': gt 'lesbidomhouse','ev16'
-end
-
-if $args[0] = 'ev16':
-cla
-*clr
-set minut += 5
-set anllick += 1
-set anllicka += 1
-set horny += 20
-set energy += 1
-'<center><img src="images\qwest\lesbi4.jpg"></center>'
-'You began to lick pussy Mistress first and then unwashed anus ... you could not understand why, but you start to like it.'
-'When the hostess enjoyed in abundance, she stood up and said:'
-'-Well, slut, and now it´s time to reward you.'
-'-And what is the reward? - <<$name>> did not even resent her so called, just so she felt.'
-'Get up-cancer.'
-act 'Do as told': gt 'lesbidomhouse','ev17'
-end
-
-if $args[0] = 'ev17':
-cla
-*clr
-set minut += 5
-Set horny = 95
-'<center><img src="images\qwest\lesbi5.jpg"></center>'
-'You, in anticipation of bliss, got on all fours and relaxed.'
-'First pussy entered one finger and began to move her.'
-'then the second.'
-'Him third.'
-'You started having fun ... and were on the verge, as in pussy entered the fourth finger.'
-'Vagina start to move apart more and you hit the pain, you cried.'
-'But if he had not heard the hostess, she began to insert whole hand.'
-'You screamed in pain again and were ready to jump to his feet.'
-act 'Yell and go': gt 'lesbidomhouse','ev18'
-act 'Meekly tolerate': gt 'lesbidomhouse','ev19'
-end
-
-if $args[0] = 'ev18':
-cla
-*clr
-set horny = 0
-set minut += 5
-set lesbiqw = 6
-'<center><img src="images\qwest\pnx.jpg"></center>'
-'-Fuck you, pervert crappy!! and is a reward for your fucking ass! Fuck you!'
-'You grabbed clothes and rushed naked in his apartment.'
-act 'Leave': gt 'street'
-end
-
-if $args[0] = 'ev19':
-cla
-*clr
-set minut += 5
-set lesbiqw = 7
-set sub += 5
-set vagina += 5
-set lesbian += 1
-set horny = 5
-set orgasm += 1
-'<center><img src="images\qwest\lesbi6.jpg"></center>'
-'You were wildly painful, but you, no matter what, suffered pain. Even the tears gushed from his eyes. But the hostess continued to move his hand, and you did not even know that your pussy can get into a fist. But in the end, you even felt like it, and you hit an orgasm.'
-act 'Leave': gt 'street'
-act 'Thank mistress': gt 'lesbidomhouse','ev20'
-end
-
-if $args[0] = 'ev20':
-cla
-*clr
-set lesbiqw = 8
-set minut += 3
-'<center><img src="images\qwest\lesbi4.jpg"></center>'
-'You have got to the vagina mistress, so thank her for such a powerful orgasm, which she grinned and said:'
-'"And you´re a quick study, Svetsik Do you just learn, or you just like to do whatever you ordered?"'
-act 'Indignant': gt 'lesbidomhouse','ev18'
-act 'Silently licking pussy': gt 'lesbidomhouse','ev21'
-end
-
-if $args[0] = 'ev21':
-cla
-*clr
-set lesbiqw = 9
-set sub += 5
-set lesbian += 1
-set minut += 30
-'<center><img src="images\qwest\lesbi4.jpg"></center>'
-'After a few minutes of work vvash skillful tongue, Mistress shuddered in orgasm. You said nothing, got up and went home'
-act 'Leave': gt 'street'
-end
-
-if $args[0] = 'ev22':
-cla
-*clr
-set minut += 5
-Set horny += 50
-'<center><img src="images\qwest\lesbi.jpg"></center>'
-'By thought, "fuck this bitch." But after all the stairs, remembered how dirty ass licked and how do you like it ...'
-'Damn, she used me, and not taught ... And to hell with it ..'
-'thought you decided to visit pervert, but just to lick her.'
-'-Mistress, I came here this .. well .. in general ..'
-'-Like to obey me? - The hostess asked - well, but you insulted me. This is not good!'
-'-I am ready to lick his guilt in front of you ... but without it, your fisting ..'
-'-That would be little need to do something else!'
-'I hope no-battering?'
-'-do not worry.'
-act 'Correct their actions': gt 'lesbidomhouse','ev23'
-end
-
-if $args[0] = 'ev23':
-cla
-*clr
-set lesbiday = day
-set lesbiqw = 8
-set sub += 1
-set lesbian += 1
-set minut += 30
-set anllick += 1
-set anllicka += 1
-'<center><img src="images\qwest\lesbi7.jpg"></center>'
-'You have again started to lick Mistress of all places and you will definitely like it.'
-if sub < 50 or vaf < 100: '"What does it mean to me" - you thought'
-'-Well, now on his knees and open your mouth - Hostess said.'
-act 'Get on your knees and open your mouth': gt 'lesbidomhouse','ev24'
-end
-
-if $args[0] = 'ev24':
-cla
-*clr
-set minut += 5
-set goldenrain += 1
-set goldenraina += 1
-set orgasm += 1
-set horny += 5
-set water += 1
-'<center><img src="images\qwest\lesbi8.jpg"></center>'
-'Mistress stood over you and start writing your mouth. Urine hit all over the face, mouth and body.'
-'You covered indescribable orgasm seems like you become obey.'
-'Thank you once again licked pussy dripping with drops of urine. Pocle this hostess pointed to the door.'
-act 'Leave': gt 'street'
-end
-
-if $args[0] = 'ev25':
-cla
-*clr
-set minut += 5
-set horny += 25
-'<center><img src="images\qwest\lesbi.jpg"></center>'
-'You came to the hostess for a new portion of fisting, but she said that you did very poorly, without thanking her, and so do not get anything.'
-'Strange, but such a ban have filed nly'
-act 'Learn how to make amends': gt 'lesbidomhouse','ev26'
-end
-
-if $args[0] = 'ev26':
-cla
-*clr
-set minut += 5
-set horny += 25
-'<center><img src="images\qwest\lesbi10.jpg"></center>'
-'To start the hostess took off panties (smell of a dirty hit out of the vagina), and ordered you to do regular work tab.'
-act 'Lick': gt 'lesbidomhouse','ev23'
-end
-
-if $args[0] = 'ev28':
-cla
-*clr
-set minut += 5
-set horny += 25
-set lesbiday = day
-set energy += 1
-'<center><img src="images\qwest\lesbi11.jpg"></center>'
-'You came to the hostess for a new portion of feces and golden rain, among other things - her pussy licked'
-set lrnd = rand(1,10)
-if lrnd > 7:
-'During all these perversions you covered orgasm'
-set orgasm += 1
-end
-if lrnd <= 7:
-set horny += 75
-'Unfortunately, you do not get an orgasm, but very excited.'
-end
-set goldenrain += 1
-set goldenraina += 1
-set anllick += 1
-set anllicka += 1
-set lesbian += 1
-set lesbimeet += 1
-act 'Leave': gt 'street'
-end
-
-if $args[0] = 'ev29':
-cla
-*clr
-set minut += 5
-set horny += 25
-'<center><img src="images\qwest\lesbi3.jpg"></center>'
-'You came to the hostess once again to lick her all that you can, but she said that she had a small gift for such a nice girl like you, but the tongue to start work will still have to'
-act 'Do what you came for': gt 'lesbidomhouse','ev23'
-end
-
---- lesbidomhouse ---------------------------------
-

+ 516 - 0
locations/035_lesbidomhouse

@@ -0,0 +1,516 @@
+# lesbidomhouse
+gs 'stat'
+
+if $ARGS[0] = 'start':
+	cla
+	*clr
+	set minut += 5
+	set lesrand = rand(1, 3)
+	clr
+	gs 'stat'
+
+	if lesrand = 1:
+		'You called, but the door no one answered you. To re-call too, no one responded'
+
+		act 'Leave':gt 'street'
+	end
+
+	if lesrand >= 2:
+		'You rang the doorbell several times. Once you opened the third.'
+
+		act 'Stop by':gt 'lesbidomhouse', 'ev1'
+		act 'Leave':gt 'street'
+	end
+end
+
+if $ARGS[0] = 'ev1':
+	cla
+	*clr
+	set minut += 5
+	'<center><img src="images/qwest/lesbi.jpg"></center>'
+	'Rang the doorbell.'
+	'You do not open and you want to leave, but the desire to learn povelevaniyu girls overpower you and you called again.'
+	'And finally you have opened.'
+	'-Hello - told <<$name>>'
+	'Ah, it´s you, the lady said dismissively, come.'
+
+	act 'Stop by':gt 'lesbidomhouse', 'ev2'
+end
+
+if $ARGS[0] = 'ev2':
+	cla
+	*clr
+	set minut += 5
+	'<center><img src="images/etogame/irinaroom.jpg"></center>'
+	'You looked around the apartment was very clean, but it did not cause comfort.'
+	'How something is not cozy at you - you said, and immediately met with a cold stare ladies.'
+	'You become very uncomfortable.'
+	'-Sorry - you said'
+	'Nothing, you have to get used to this situation. After all, what would make a girl, you need to make her feel uncomfortable, weak, defenseless.'
+	'-Well, I remember that. I never asked your name.'
+	'- Call me Mistress.'
+
+	act 'Agree':gt 'lesbidomhouse', 'ev4'
+
+	if sub < 30 and horny < 75:
+		act 'Brawl':gt 'lesbidomhouse', 'ev3'
+	end
+end
+
+if $ARGS[0] = 'ev3':
+	cla
+	*clr
+	set minut += 5
+	set lesbiqw = -1
+
+	if dom > 0:set dom += 5
+	if sub > 0:set sub -= 5
+
+	'<center><img src="images/qwest/pnx.jpg"></center>'
+	'You´ve decided that she wants to make you a slave and nothing more, so you yell at the woman and went'
+
+	act 'Leave':gt 'street'
+end
+
+if $ARGS[0] = 'ev4':
+	cla
+	*clr
+	set minut += 5
+	'<center><img src="images/qwest/lesbi.jpg"></center>'
+	'You think she wants to make you a slave, not to teach. But still did not say anything.'
+	'-good hostess. And where do we start my training?'
+	'-The first thing is not to hurry. You should know well the victim. For example, to begin with, have a drink and rub in credibility. With this'
+	'and start, you´ll be the object on which I´ll show you all my tricks.'
+
+	act 'Play on':gt 'lesbidomhouse', 'ev5'
+end
+
+if $ARGS[0] = 'ev5':
+	cla
+	*clr
+	set minut += 5
+	'<center><img src="images/qwest/zst.jpg"></center>'
+	'You agreed, went into the room where there were already cooked drinking and snack.'
+
+	act 'Drink':gt 'lesbidomhouse', 'ev6'
+end
+
+if $ARGS[0] = 'ev6':
+	cla
+	*clr
+	set hour += 23
+	set minut += 5
+	set lesbiqw = 3
+	'<center><img src="images/qwest/zst.jpg"></center>'
+	'You started drinking and soon your stiffness and uncertainty disappeared and you began to tell his adventures Mistress, '
+	'how much you guys have many times given in the ass as otsasali and drinking even told that sex was even'
+	'unfamiliar guys in clubs and other park and your adventures.'
+	'End drunk you decided to go home. The hostess did not accompany you, but you were so drunk that scored it.'
+
+	if oral >= anal and oral >= sex:set callnm = 1
+	if anal >= oral and anal >= sex:set callnm = 2
+	if Sex >= oral and Sex >= anal:set callnm = 3
+	if vaf >= 100:set callnm = 4
+
+	act 'Go home':gt 'korr'
+end
+
+if $ARGS[0] = 'start1':
+	cla
+	*clr
+	set minut += 5
+	set lesrand = rand(1, 3)
+	clr
+	gs 'stat'
+
+	if lesrand = 1:
+		'You called, but the door no one answered you. To re-call too, no one responded'
+
+		act 'Leave':gt 'street'
+	end
+
+	if lesrand >= 2:
+		'You rang the doorbell several times. Once you opened the third.'
+
+		act 'Stop by':gt 'lesbidomhouse', 'ev7'
+		act 'Leave':gt 'street'
+	end
+end
+
+if $ARGS[0] = 'ev7':
+	cla
+	*clr
+	set minut += 5
+	'<center><img src="images/qwest/lesbi.jpg"></center>'
+	'You decided to go to, hmmm, Mistress? find out whether there was something to be ashamed of yesterday and what lesson you should train'
+	'had to endure? as you remember little from that day.'
+
+	act 'Hello':gt 'lesbidomhouse', 'ev8'
+end
+
+if $ARGS[0] = 'ev8':
+	cla
+	*clr
+	set minut += 5
+
+	if callnm = 1:$callnm = 'nipple'
+	if callnm = 2:$callnm = 'analschitsa'
+	if callnm = 3:$callnm = 'davalka'
+	if callnm = 4:$callnm = 'spermoedka'
+
+	'<center><img src="images/qwest/lesbi.jpg"></center>'
+	'-Hello, Mistress.'
+	'Hi <<$callnm>>'
+
+	'-as you call me? - You were taken aback. And blushed, because the hostess told the truth.'
+	'-This is lesson number 2. Humiliate their target. Use what you learned about it.'
+
+	act 'Ask not to call you that':gt 'lesbidomhouse', 'ev9'
+end
+
+if $ARGS[0] = 'ev9':
+	cla
+	*clr
+	set minut += 5
+
+	if callnm = 1:$callnm = 'nipple'
+	if callnm = 2:$callnm = 'analschitsa'
+	if callnm = 3:$callnm = 'davalka'
+	if callnm = 4:$callnm = 'spermoedka'
+
+	'-No, you should feel on their skin all <<$callnm>>'
+	'-Continue training. If what you know about the girl, touches her, I believe that it´s yours. Make it do what it'
+	'loves most.'
+	'-but if she loves anal and eblyu members or suck and swallow cum, I´ll make her do it? I havent a member and I do not'
+	'any thread is fantasy feet.'
+	'On this account, do not worry, I´ll give you (maybe) a special strap, he may issue streams of sperm.'
+
+	act 'Try to ask':gt 'lesbidomhouse', 'ev10'
+end
+
+if $ARGS[0] = 'ev10':
+	cla
+	*clr
+	set minut += 5
+	'On and I did not know about these, you can try it on?'
+	'-Not yet, I told you, first you try everything on myself.'
+	'-Well - you said uncertainly.'
+	'-Proceed.'
+
+	act 'Start':gt 'lesbidomhouse', 'ev10a'
+end
+
+if $ARGS[0] = 'ev10a':
+	cla
+	*clr
+	set minut += 35
+	set horny = 95
+	'<center><img src="images/qwest/lesbi2.jpg"></center>'
+
+	if callnm = 1 or callnm = 4:'Hostess beginning you have. First, it made you suck plastic cock and then shoved a plastic dick in your throat and began shamelessly fuck you there. You were close to the peak of pleasure as hostess suddenly stopped.'
+	if callnm = 2:'The hostess sat down to have you. First, it made you suck plastic cock then you deployed and began mercilessly fuck your pussy. You were close to the peak of pleasure as hostess suddenly stopped.'
+	if callnm = 3:'The hostess sat down to have you. First, it made you suck plastic cock then you deployed and began mercilessly nasilovt your ass. You were close to the peak of pleasure as hostess suddenly stopped.'
+
+	act 'Indignant':gt 'lesbidomhouse', 'ev11'
+end
+
+if $ARGS[0] = 'ev11':
+	cla
+	*clr
+	set minut += 5
+	set lesbiqw = 4
+	set sub += 2
+	set lesbian += 1
+
+	if ldmistresex = 0:ldmistresex = 1 & girl += 1
+
+	set lesbiday = day
+	'Well, I´m almost finished - you moaned.'
+	'-Next lesson - do not let the girl that she has not earned it. Want to come? Please lick my pussy.'
+	'You started with a zeal to lick pussy Mistress, resignedly and without question.'
+	'After due pleasure hostess put her hand on your head and let down your tongue to her anus.'
+
+	act 'Protest':gt 'lesbidomhouse', 'ev12'
+	act 'Lick ass':gt 'lesbidomhouse', 'ev13'
+end
+
+if $ARGS[0] = 'ev12':
+	cla
+	*clr
+	set minut += 5
+	'Fu, he´s not washed, then callas - you started to step back.'
+	'Requirements should not be easy, otherwise the girl will not be so submissive. But then it will wait for a very good encouragement.'
+	act 'Leave':
+		set lesbiqw = -1
+		gt 'street'
+	end
+
+	act 'Lick ass':gt 'lesbidomhouse', 'ev13'
+end
+
+if $ARGS[0] = 'ev13':
+	cla
+	*clr
+	set anllick += 1
+	set anllicka += 1
+	set minut += 5
+	set energy += 1
+	'<center><img src="images/qwest/lesbi3.jpg"></center>'
+	'You reluctantly began to lick the anus Mistress. You almost puked, but more excitement and a desire to know what kind of reward awaits her after forced you to continue.'
+	'Mistress of all shuddered, grabbing you by the hair. She finished.'
+	'-Well, what reward awaits me, Mistress?'
+	'-No ...'
+
+	act 'Uncomprehending look':gt 'lesbidomhouse', 'ev14'
+
+	act 'Leave':
+		set lesbiqw = -1
+		gt 'street'
+	end
+end
+
+if $ARGS[0] = 'ev14':
+	cla
+	*clr
+	set lesbiqw = 5
+	'<center><img src="images/qwest/lesbi9.jpg"></center>'
+	'-Chtoooo? You told me then that will be rewarded!'
+	'-This is another lesson, the girl can not give awards at once. She must understand that to get something not so easy. All go.'
+	'I´ll meet you tomorrow!'
+
+	act 'Leave':gt 'street'
+end
+
+if $ARGS[0] = 'ev15':
+	cla
+	*clr
+	set lesbiday = day
+	set minut += 30
+	'-Come, '
+
+	if callnm = 1:'nipple'
+	if callnm = 2:'analschitsa'
+	if callnm = 3:'davalka'
+	if callnm = 4:'spermoedka'
+
+	'-Hello, Mistress.'
+	'-Well, you know what to do to get the reward.'
+
+	act 'Lick Mistress':gt 'lesbidomhouse', 'ev16'
+end
+
+if $ARGS[0] = 'ev16':
+	cla
+	*clr
+	set minut += 5
+	set anllick += 1
+	set anllicka += 1
+	set horny += 20
+	set energy += 1
+	'<center><img src="images/qwest/lesbi4.jpg"></center>'
+	'You began to lick pussy Mistress first and then unwashed anus ... you could not understand why, but you start to like it.'
+	'When the hostess enjoyed in abundance, she stood up and said:'
+	'-Well, slut, and now it´s time to reward you.'
+	'-And what is the reward? - <<$name>> did not even resent her so called, just so she felt.'
+	'Get up-cancer.'
+
+	act 'Do as told':gt 'lesbidomhouse', 'ev17'
+end
+
+if $ARGS[0] = 'ev17':
+	cla
+	*clr
+	set minut += 5
+	set horny = 95
+	'<center><img src="images/qwest/lesbi5.jpg"></center>'
+	'You, in anticipation of bliss, got on all fours and relaxed.'
+	'First pussy entered one finger and began to move her.'
+	'then the second.'
+	'Him third.'
+	'You started having fun ... and were on the verge, as in pussy entered the fourth finger.'
+	'Vagina start to move apart more and you hit the pain, you cried.'
+	'But if he had not heard the hostess, she began to insert whole hand.'
+	'You screamed in pain again and were ready to jump to his feet.'
+
+	act 'Yell and go':gt 'lesbidomhouse', 'ev18'
+	act 'Meekly tolerate':gt 'lesbidomhouse', 'ev19'
+end
+
+if $ARGS[0] = 'ev18':
+	cla
+	*clr
+	set horny = 0
+	set minut += 5
+	set lesbiqw = 6
+	'<center><img src="images/qwest/pnx.jpg"></center>'
+	'-Fuck you, pervert crappy!! and is a reward for your fucking ass! Fuck you!'
+	'You grabbed clothes and rushed naked in his apartment.'
+
+	act 'Leave':gt 'street'
+end
+
+if $ARGS[0] = 'ev19':
+	cla
+	*clr
+	set minut += 5
+	set lesbiqw = 7
+	set sub += 5
+	set vagina += 5
+	set lesbian += 1
+	set horny = 5
+	set orgasm += 1
+	'<center><img src="images/qwest/lesbi6.jpg"></center>'
+	'You were wildly painful, but you, no matter what, suffered pain. Even the tears gushed from his eyes. But the hostess continued to move his hand, and you did not even know that your pussy can get into a fist. But in the end, you even felt like it, and you hit an orgasm.'
+
+	act 'Leave':gt 'street'
+	act 'Thank mistress':gt 'lesbidomhouse', 'ev20'
+end
+
+if $ARGS[0] = 'ev20':
+	cla
+	*clr
+	set lesbiqw = 8
+	set minut += 3
+	'<center><img src="images/qwest/lesbi4.jpg"></center>'
+	'You have got to the vagina mistress, so thank her for such a powerful orgasm, which she grinned and said:'
+	'"And you´re a quick study, Svetsik Do you just learn, or you just like to do whatever you ordered?"'
+
+	act 'Indignant':gt 'lesbidomhouse', 'ev18'
+	act 'Silently licking pussy':gt 'lesbidomhouse', 'ev21'
+end
+
+if $ARGS[0] = 'ev21':
+	cla
+	*clr
+	set lesbiqw = 9
+	set sub += 5
+	set lesbian += 1
+	set minut += 30
+	'<center><img src="images/qwest/lesbi4.jpg"></center>'
+	'After a few minutes of work vvash skillful tongue, Mistress shuddered in orgasm. You said nothing, got up and went home'
+
+	act 'Leave':gt 'street'
+end
+
+if $ARGS[0] = 'ev22':
+	cla
+	*clr
+	set minut += 5
+	set horny += 50
+	'<center><img src="images/qwest/lesbi.jpg"></center>'
+	'By thought, "fuck this bitch." But after all the stairs, remembered how dirty ass licked and how do you like it ...'
+	'Damn, she used me, and not taught ... And to hell with it ..'
+	'thought you decided to visit pervert, but just to lick her.'
+	'-Mistress, I came here this .. well .. in general ..'
+	'-Like to obey me? - The hostess asked - well, but you insulted me. This is not good!'
+	'-I am ready to lick his guilt in front of you ... but without it, your fisting ..'
+	'-That would be little need to do something else!'
+	'I hope no-battering?'
+	'-do not worry.'
+
+	act 'Correct their actions':gt 'lesbidomhouse', 'ev23'
+end
+
+if $ARGS[0] = 'ev23':
+	cla
+	*clr
+	set lesbiday = day
+	set lesbiqw = 8
+	set sub += 1
+	set lesbian += 1
+	set minut += 30
+	set anllick += 1
+	set anllicka += 1
+	'<center><img src="images/qwest/lesbi7.jpg"></center>'
+	'You have again started to lick Mistress of all places and you will definitely like it.'
+
+	if sub < 50 or vaf < 100:'"What does it mean to me" - you thought'
+
+	'-Well, now on his knees and open your mouth - Hostess said.'
+
+	act 'Get on your knees and open your mouth':gt 'lesbidomhouse', 'ev24'
+end
+
+if $ARGS[0] = 'ev24':
+	cla
+	*clr
+	set minut += 5
+	set goldenrain += 1
+	set goldenraina += 1
+	set orgasm += 1
+	set horny += 5
+	set water += 1
+	'<center><img src="images/qwest/lesbi8.jpg"></center>'
+	'Mistress stood over you and start writing your mouth. Urine hit all over the face, mouth and body.'
+	'You covered indescribable orgasm seems like you become obey.'
+	'Thank you once again licked pussy dripping with drops of urine. Pocle this hostess pointed to the door.'
+
+	act 'Leave':gt 'street'
+end
+
+if $ARGS[0] = 'ev25':
+	cla
+	*clr
+	set minut += 5
+	set horny += 25
+	'<center><img src="images/qwest/lesbi.jpg"></center>'
+	'You came to the hostess for a new portion of fisting, but she said that you did very poorly, without thanking her, and so do not get anything.'
+	'Strange, but such a ban have filed nly'
+
+	act 'Learn how to make amends':gt 'lesbidomhouse', 'ev26'
+end
+
+if $ARGS[0] = 'ev26':
+	cla
+	*clr
+	set minut += 5
+	set horny += 25
+	'<center><img src="images/qwest/lesbi10.jpg"></center>'
+	'To start the hostess took off panties (smell of a dirty hit out of the vagina), and ordered you to do regular work tab.'
+
+	act 'Lick':gt 'lesbidomhouse', 'ev23'
+end
+
+if $ARGS[0] = 'ev28':
+	cla
+	*clr
+	set minut += 5
+	set horny += 25
+	set lesbiday = day
+	set energy += 1
+	'<center><img src="images/qwest/lesbi11.jpg"></center>'
+	'You came to the hostess for a new portion of feces and golden rain, among other things - her pussy licked'
+	set lrnd = rand(1, 10)
+
+	if lrnd > 7:
+		'During all these perversions you covered orgasm'
+		set orgasm += 1
+	end
+
+	if lrnd <= 7:
+		set horny += 75
+		'Unfortunately, you do not get an orgasm, but very excited.'
+	end
+
+	set goldenrain += 1
+	set goldenraina += 1
+	set anllick += 1
+	set anllicka += 1
+	set lesbian += 1
+	set lesbimeet += 1
+
+	act 'Leave':gt 'street'
+end
+
+if $ARGS[0] = 'ev29':
+	cla
+	*clr
+	set minut += 5
+	set horny += 25
+	'<center><img src="images/qwest/lesbi3.jpg"></center>'
+	'You came to the hostess once again to lick her all that you can, but she said that she had a small gift for such a nice girl like you, but the tongue to start work will still have to'
+
+	act 'Do what you came for':gt 'lesbidomhouse', 'ev23'
+end
+
+--- lesbidomhouse ---------------------------------

+ 0 - 83
locations/035_mainQW

@@ -1,83 +0,0 @@
-# mainQW
-'<center><img src="images\qwest\main.jpg"></center>'
-set minut += 15
-'(Karin) - "Hmm, strange. Seems I begin to understand what was happening. Get in the car, you´ll go check."'
-'You sat in the back seat black jeep. Juugo sat behind the wheel, and Karin village near you. Karin began to feel you. "Interesting. I understand you had an orgasm and orgasm during part of the force Rikudo, male power, transformed into your power."'
-!'(Karin) -'
-act 'I am now a magician?':
-cla
-fcolor = rgb(0,0,0)
-bcolor = rgb(255,255,255)
-LCOLOR = rgb(106,90,205)
-'(You) - I am now a magician?'
-'(Karin) - Yeah, and you´re still the world champion on the run, you also have the legs and still you juggler, you also have hands. You catch? Mag is the person administering the magic power you have it there, but it does not manage you know how.'
-	act 'So teach me!':
-	cla
-	'(You) - So teach me!'
-	'(Karin) - Teach? I am in life nobody taught magic. Besides, I do not battle mage. I rather magical gift. I feel better all the magic, and at any distance. Plus fly and can modify organic life forms. But understand, to a greater extent is a gift, not learning. I´m just learning honed his gift.'
-	'(You) - Well, at least what it is you can teach me.'
-	'(Karin) - Just the basics.'
-	'(Juugo) - come, come out, ladies.'
-	'You got out and slammed the door. Gone to the lane of metal doors. They opened Juugo and Karin missed you forward.'
-		act 'Enter the door':
-		cla
-		*clr
-		'<center><img src="images\qwest\lab.jpg"></center>'
-		'The building was the laboratory. A wide variety of stands and equipment racks with different flasks and bottles.'
-		'(Karin) - Welcome to my lab. Here I explore and live. Undressed and lie down on the couch, I will search for you.'
-		set health = vital * 10
-		set willpower = intel * 5 + will * 5
-		set manna = (intel * magik) + vital * 5 + rikudo
-		clr
-		gs 'stat'
-			act 'Lie on the couch':
-			cla
-			*clr
-			clr
-			gs 'stat'
-			set minut += 30
-			killobj
-			if oldobjmenu = 0:
-			addobj 'Character'
-			addobj 'See'
-			addobj 'Others'
-			addobj 'Menu'
-			else
-			addobj '<font color=green>Character</font>'
-			addobj 'Skills'
-			addobj 'Statistics'
-			addobj 'Magic'
-			addobj 'Face'
-			addobj 'Body'
-			addobj 'Clothing'
-			addobj 'Tattoos'
-			addobj 'Piercing'
-			addobj 'Diary'
-			addobj 'Emergency exit'
-			addobj 'Update'
-			addobj 'Menu'
-			addobj 'New Menu'
-			end
-			'<center><img src="images\qwest\main1.jpg"></center>'
-			'You undressed and lay down on the couch, Karin began to examine you. She dabbed what that charms to you and use a variety of devices. Cherz half hour examination, she sighed and told you to get dressed.'
-			'You got up from the couch and dressed. You asked Karin "So what? Teach me anything else?"'
-			'(Karin) - Okay. But only in theory. Listen closely and listen hard, I will not repeat. To begin to tell about magic. Magical energy in Asian culture it is called chakra is produced by all living organisms. This vital energy, deprived her body begins to slowly die. Striking symptom of the lack of magical energy is in a bad mood. In itself it can not kill, but it undermines the mind, body and the mind exhausting, eventually either the body does not survive, or mind.'
-			'That is magical energy there in the grass, and trees, and people do not have it in dead matter. It is the energy of life itself, what awakens the lifeless living. She and you have been and there, the body protects itself by itself, prohibiting use this energy. This exhausts the body and can kill him. Mages are able to simply bypass the body´s defenses and separating themselves from the magical energy to convert it into what that action. The main task of a magician is the maximum their potential and learn to draw your energy as much as possible. But mages can not scoop up more energy than they contain. In something you´re lucky you came in as much energy as none magician asked. You just need to learn how to use it. As I have understood, your orgasms are capable of handling energy Rikudo in his own. But each new stage will be harder given. Maybe there are some ways to recycle what Rikudo energy in your own. But most importantly, your magical energy supply is almost exhausted, unlike other magicians. You know, you´re theoretically the most powerful magician in the world, as the Rikudo was the strongest in history. Perhaps there is art of magic that can only work with the force Rikudo. Most likely in the scrolls are in the dungeon were just what that spells.'
-			'(You) - Igor! Igor took one of the scrolls!'
-			'(Karin) - Just do not think I´ll be for you to solve your problems. If you want to look for his own Igor.'
-			'(You) - I have no idea where he lives. May pay a visit to the trench.'
-			'(Karin) - Do you think the Order of Dawn retreated from such findings? Hey, I see you do not quite understand what the Order of Dawn. This is not what that whipping boys. There all the magicians of the highest level. Neither I nor Juugo no good even hold a candle to any of them. Any one of them with us razotret Juugo without straining. They force their combat experience and unique technology. Do not mess with these guys, they are pros in their field. Their main business of destruction of other magicians and capture demons.'
-			'(You) - What else for demons?'
-			'(Karin) - Demons demons, creatures come to us from other worlds. Possible and Rikudo was a demon, but demons unlike him being though with terrible force, but blunt and aggressive. Something like beasts woven from pure magic.'
-			'(You) - a fig. Hey, you can turn me back into a man?'
-			'(Karin) - Can. But I will not. You have no idea how much energy it took me, I squeezed myself to dry and Juugo. I barely had enough energy. Now I do not have enough of her physically on the energy consumption of such mad I lost four of her forever. And there´s more to consider now that your body begins to prisposablivatsya magic and I have even harder. This will be possible only if you Bleed is magical at least level 10 and pass me all your energy forever. I can make you again the same, but you´ll never be a magician, this path will be forever closed to you.'
-			'(Karin) - You are not to look too far into the future. Develop your body, learn to fight, copy magical force coaches mind. Gradually everything will rise to the location at which all should be.'
-			act 'Exit': gt 'down'
-			end
-
-		end
-
-	end
-end
---- mainQW ---------------------------------
-

+ 87 - 0
locations/036_mainQW

@@ -0,0 +1,87 @@
+# mainQW
+'<center><img src="images/qwest/main.jpg"></center>'
+set minut += 15
+'(Karin) - "Hmm, strange. Seems I begin to understand what was happening. Get in the car, you´ll go check."'
+'You sat in the back seat black jeep. Juugo sat behind the wheel, and Karin village near you. Karin began to feel you. "Interesting. I understand you had an orgasm and orgasm during part of the force Rikudo, male power, transformed into your power."'
+!!'(Karin) -'
+
+act 'I am now a magician?':
+	cla
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(255, 255, 255)
+	lcolor = rgb(106, 90, 205)
+	'(You) - I am now a magician?'
+	'(Karin) - Yeah, and you´re still the world champion on the run, you also have the legs and still you juggler, you also have hands. You catch? Mag is the person administering the magic power you have it there, but it does not manage you know how.'
+
+	act 'So teach me!':
+		cla
+		'(You) - So teach me!'
+		'(Karin) - Teach? I am in life nobody taught magic. Besides, I do not battle mage. I rather magical gift. I feel better all the magic, and at any distance. Plus fly and can modify organic life forms. But understand, to a greater extent is a gift, not learning. I´m just learning honed his gift.'
+		'(You) - Well, at least what it is you can teach me.'
+		'(Karin) - Just the basics.'
+		'(Juugo) - come, come out, ladies.'
+		'You got out and slammed the door. Gone to the lane of metal doors. They opened Juugo and Karin missed you forward.'
+
+		act 'Enter the door':
+			cla
+			*clr
+			'<center><img src="images/qwest/lab.jpg"></center>'
+			'The building was the laboratory. A wide variety of stands and equipment racks with different flasks and bottles.'
+			'(Karin) - Welcome to my lab. Here I explore and live. Undressed and lie down on the couch, I will search for you.'
+			set health = vital * 10
+			set willpower = intel * 5 + will * 5
+			set manna = (intel * magik) + vital * 5 + rikudo
+			clr
+			gs 'stat'
+
+			act 'Lie on the couch':
+				cla
+				*clr
+				clr
+				gs 'stat'
+				set minut += 30
+				killobj
+				if oldobjmenu = 0:
+					addobj 'Character'
+					addobj 'See'
+					addobj 'Others'
+					addobj 'Menu'
+				else
+					addobj '<font color="green">Character</font>'
+					addobj 'Skills'
+					addobj 'Statistics'
+					addobj 'Magic'
+					addobj 'Face'
+					addobj 'Body'
+					addobj 'Clothing'
+					addobj 'Tattoos'
+					addobj 'Piercing'
+					addobj 'Diary'
+					addobj 'Emergency exit'
+					addobj 'Update'
+					addobj 'Menu'
+					addobj 'New Menu'
+				end
+
+				'<center><img src="images/qwest/main1.jpg"></center>'
+				'You undressed and lay down on the couch, Karin began to examine you. She dabbed what that charms to you and use a variety of devices. Cherz half hour examination, she sighed and told you to get dressed.'
+				'You got up from the couch and dressed. You asked Karin "So what? Teach me anything else?"'
+				'(Karin) - Okay. But only in theory. Listen closely and listen hard, I will not repeat. To begin to tell about magic. Magical energy in Asian culture it is called chakra is produced by all living organisms. This vital energy, deprived her body begins to slowly die. Striking symptom of the lack of magical energy is in a bad mood. In itself it can not kill, but it undermines the mind, body and the mind exhausting, eventually either the body does not survive, or mind.'
+				'That is magical energy there in the grass, and trees, and people do not have it in dead matter. It is the energy of life itself, what awakens the lifeless living. She and you have been and there, the body protects itself by itself, prohibiting use this energy. This exhausts the body and can kill him. Mages are able to simply bypass the body´s defenses and separating themselves from the magical energy to convert it into what that action. The main task of a magician is the maximum their potential and learn to draw your energy as much as possible. But mages can not scoop up more energy than they contain. In something you´re lucky you came in as much energy as none magician asked. You just need to learn how to use it. As I have understood, your orgasms are capable of handling energy Rikudo in his own. But each new stage will be harder given. Maybe there are some ways to recycle what Rikudo energy in your own. But most importantly, your magical energy supply is almost exhausted, unlike other magicians. You know, you´re theoretically the most powerful magician in the world, as the Rikudo was the strongest in history. Perhaps there is art of magic that can only work with the force Rikudo. Most likely in the scrolls are in the dungeon were just what that spells.'
+				'(You) - Igor! Igor took one of the scrolls!'
+				'(Karin) - Just do not think I´ll be for you to solve your problems. If you want to look for his own Igor.'
+				'(You) - I have no idea where he lives. May pay a visit to the trench.'
+				'(Karin) - Do you think the Order of Dawn retreated from such findings? Hey, I see you do not quite understand what the Order of Dawn. This is not what that whipping boys. There all the magicians of the highest level. Neither I nor Juugo no good even hold a candle to any of them. Any one of them with us razotret Juugo without straining. They force their combat experience and unique technology. Do not mess with these guys, they are pros in their field. Their main business of destruction of other magicians and capture demons.'
+				'(You) - What else for demons?'
+				'(Karin) - Demons demons, creatures come to us from other worlds. Possible and Rikudo was a demon, but demons unlike him being though with terrible force, but blunt and aggressive. Something like beasts woven from pure magic.'
+				'(You) - a fig. Hey, you can turn me back into a man?'
+				'(Karin) - Can. But I will not. You have no idea how much energy it took me, I squeezed myself to dry and Juugo. I barely had enough energy. Now I do not have enough of her physically on the energy consumption of such mad I lost four of her forever. And there´s more to consider now that your body begins to prisposablivatsya magic and I have even harder. This will be possible only if you Bleed is magical at least level 10 and pass me all your energy forever. I can make you again the same, but you´ll never be a magician, this path will be forever closed to you.'
+				'(Karin) - You are not to look too far into the future. Develop your body, learn to fight, copy magical force coaches mind. Gradually everything will rise to the location at which all should be.'
+
+				act 'Exit':gt 'down'
+			end
+		end
+	end
+end
+
+--- mainQW ---------------------------------

+ 0 - 156
locations/036_tobiQW

@@ -1,156 +0,0 @@
-# tobiQW
-if $ARGS[0] = 'start':
-cla
-*clr
-set tobiQW = 1
-set minut += 60
-'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
-'(Toby) - Mishan Hi, how´s it going?'
-'You just dumbfounded surprise in your bedroom is Toby and he obviously knows who you are.'
-
-act 'How did you find me?': gt 'tobiQW','1'
-end
-
-if $ARGS[0] = '1':
-cla
-*clr
-'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
-'(You) - How did you find me?'
-'(Toby) - Oh, okay, not that it was difficult. Our organization is not always strongly underestimate. Even the owner Karin miscalculated.'
-act 'The owner Karin?': gt 'tobiQW','2'
-end
-
-if $ARGS[0] = '2':
-cla
-*clr
-'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
-'(You) - The owner Karin?'
-'(Toby) - Oh, holy simplicity. Of course, Karin saved you from the evil Toby and teach you magic. She Horoshoo and ugly Toby bad. What naivety. Karin is a pawn in someone else´s game.'
-'(Toby) - sit down, we have a long conversation to kill you I´m not going, if built, would not you sharpen fritters.'
-'You sat down on the bed. Toby began to talk.'
-'(Toby) - When I took the amulet is not taking you, I miscalculated, I did not know that the power passed to you. When I returned to the room, you were gone, there was no trace of who is clearly very well cleaned up all traces. This someone is not weaker than me. Remember this fact, Karin silenok not enough so close to me.'
-'(Toby) - The next day I find out about your alleged death. And here the owner Karin made his biggest mistake.'
-'(You) - what? Everything seems to go smoothly.'
-'(Toby) - Yes, all passed smoothly, we waited for the funeral of the body and then it got. Perfect copy, master work, Karin can not do it, but I did not even know about its existence.'
-'(Toby) - But the owner Karin though knows a lot about the Order of Dawn, but still not enough. He did not know that Payne has the ability to find the souls of the dead and bring them back to life. We got the body for life and it turned out that this man has nothing to do with you. Someone just took a passerby in the street, he created your appearance and killed him. Payne also has the ability to see everything in a person, even when he is born, and the eyes of this man, unfortunately it kills guinea spell. Payne saw everything.'
-'(You) - Nifiga yourself is that even for such Payne?'
-'(Toby) - Payne, the true owner of all that is in the tomb. He is a true master of the force that is in you. He avatar Rikudo, the living embodiment of God, capable of destroying the city in one motion, raise the dead, to see through people, to change their body as he pleases, to have as many bodies at the same time, control the weather, gravity, live in several worlds, to see whole continents his eyes so that even the mouse does not slip from his sight, and God knows what he owns, it is incomprehensible even to me.'
-'You shake your head, puzzled. This very cool guy Payne has managed the same way for him to pass me.'
-act 'So who´s the boss and that Karin does he want?': gt 'tobiQW','3'
-end
-
-if $ARGS[0] = '3':
-cla
-*clr
-'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
-'(You) - So who´s the boss and that Karin does he want?'
-'(Toby) - This is the fun part! But to continue in order. When Payne checked memory corpse depicting you, he did not see the face of magician, but I heard his voice, vile snake hiss, it could only be Orochimaru.'
-'(You) - Orochimaru? Never heard of such a thing.'
-'(Toby) - not surprising. He was not looking for that would head off to tear only dead mages and lazy. But his name did not even try to say out loud, and then suddenly courted him on his head, he is a real threat to the powerful magicians. We were once close friends with him, he was in the Dawn.'
-'(Toby) - He is an exceptionally gifted magician, a very wise, ancient and immortal sorcerer. Owns nearly all the possible techniques of magic, many of his techniques beyond comprehension.'
-'(Toby) - But Orochimaru pay dearly for immortality. There is no eternal life without eternal fee for it. His real body has long been dead, he lives in the wrong bodies. These bodies are called donor vessels, they receptacle of his soul. Vessels but do not live long, only three or four years, then the vessel rejects soul Orochimaru. And Orochimaru is limited by the strength of the vessel.'
-'(Toby) - So, after examination of the body, it became clear you out from under our nose led Orochimaru. We began to stalk him, Payne can differentiate amongst all that is in the rain, it was he who sheds it so often. We tracked down Orochimaru manner he once showed his face snake in the rain. But there was no sign that he took power himself. We have concluded that, as before, you alive, Orochimaru technology allow crank most unexpected focus.'
-'(You) - Since you tracked me and why I need Orochimaru.'
-'(Toby) - Ah youth stupid. Yes Orochimaru wants to make your body a vessel for the soul. He trained with the help of Karin and you developed, what would your body came into full force, do not forget, its level is tied to the strength of the vessel.'
-'(Toby) - Karin spit at you like, it develops your body for what would be her master Orochimaru could use it as a new vessel. Do you even know what fate has prepared for you, Karin? You just erase your place and take Orochimaru.'
-'You think "Damn, I´m in between a rock and a hard place Toby as Orochimaru, and what to do now?"'
-'(Toby) - To change your floor Orochimaru made you useless for Payne and me, we do not need you or do not need. Frankly, we spit on you now. I continued to look for you, but out of a desire to razobratsya situation. Understand Orochimaru plans to this effect.'
-'(Toby) - I had to use and Zetsu as a spy, and that would force Payne track all magicians, we found Karin, but it is not known to us, but we found Juugo, and only then we will know exactly what he represents. He experiment Orochimaru.'
-'(Toby) - Then Payne saw you. How do you go to Karin and she teaches you, Paine saw as you leap through the levels magicity. Any magician decades to grow your current level. How old are you this time it took? You were practicing a technique for an hour, and magicians for years they are taught. It became clear that you imagine yourself out. So I came to visit you.'
-
-act 'And you can not make me a man again?': gt 'tobiQW','4'
-end
-
-if $ARGS[0] = '4':
-cla
-*clr
-'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
-'(You) - And you can not make me a man again?'
-'Toby shook his head.'
-'(Toby) - Do not think that magicians are all the same, if one could that something else can accurately. No, I have no idea how Orochimaru did what he did to you. And it was he, not Karin. Did not you surprised that she even treat you can not? It is too weak for such tricks with the body.'
-'(Toby) - And now to the point. Yeah, you´re not interested in us, we really can not take your power now. But this does not mean that we just give up such a powerful vessel Orochimaru.'
-'(Toby) - I would have already tried to kill Orochimaru, or sent Payne to do it, I think Payne would have easily killed him in battle. The problem is that Orochimaru is too great and he is able to avoid fighting.'
-'(Toby) - We can not corny podobratsya him for what would kill him.'
-act 'I doubt that I could do it': gt 'tobiQW','5'
-end
-
-if $ARGS[0] = '5':
-cla
-*clr
-'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
-'(You) - I doubt that I could do it'
-'(Toby) - I have no doubt. You can not do it. But we are of you and do not require this. We want to drive Orochimaru trapped.'
-'(Toby) - You prodolzhish as if nothing had happened with Karin will learn. We will prepare you parallel that you could cope with Karin and Juugo. When the time comes, you go and kill Karin and Juugo. If it makes any of the Dawn who, Orochimaru all understand, and so he will try to grab you myself. He needs you as a vessel, and so it just did not unhook from you.'
-'(Toby) - Here we are, and will lay the ancient serpent, put a point in its history. Well, how´s the plan?'
-
-act 'And if I refuse?': gt 'tobiQW','6'
-end
-
-if $ARGS[0] = '6':
-cla
-*clr
-'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
-'(You) - And if I refuse?'
-'(Toby) - Then I´m sorry, nothing personal, but I´m going to kill you right now. Orochimaru did not want you to give me, I do not want to give it you.'
-
-act 'If Orochimaru die, I´ll always be a woman?': gt 'tobiQW','7'
-end
-
-if $ARGS[0] = '7':
-cla
-*clr
-'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
-'(You) - If Orochimaru die, I´ll always be a woman?'
-'(Toby) - In any case, you´ll always be a woman. Orochimaru never will refuse the temptation to take power into their own hands Rikudo and return you to your previous form will mean for him to give this power to me, to which he would not, even under pain of death.'
-
-act 'What about Tsukuemi? Is that true?': gt 'tobiQW','8'
-end
-
-if $ARGS[0] = '8':
-cla
-*clr
-'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
-'(You) - What about Tsukuemi? Is that true?'
-'(Toby) - I have no idea what you wove Karin. Just tell the truth. Our Order of Dawn is not a rigid structure, rather we minded. Payne and I have to make strategic decisions, and the rest for various reasons they operate.'
-'(Toby) - We are all united by one goal, maintaining Tsukuemi in working order, for this we have to regularly catch demons in other worlds and fill them Tsukuemi force. It is heavy and rewarding work. And we do it for the sake of humanity that would have existed.'
-'(Toby) - Yes, you heard right, we do it for the sake of people. We remember the days when people knew about magic, it was a time of constant war, humanity choking blood. Magee went to war at the age of 6 - 10 years old, survived to at least 16 units. All fought against all. Violence begets violence. Me in 7 years during the battle crushed the right side of the face. I lost an eye and became compelled to hide what´s left of my face behind the mask. I went mighty magician, who was later killed. Everyone I knew and loved, killed, and I could not do anything about it. You just can not imagine a world in which almost all magicians with forces capable of destroying entire cities. Banal drunken brawl in a bar wrapped in a bloody mess with thousands of victims. People ran wild and destroy each other. Mankind fell on the edge of a precipice. Then I decided to put an end to this massacre not died.'
-'(Toby) - I founded the Order of Dawn. In the beginning we were just mercenaries, we needed money, we have taken in order only very strong mages, then I met Payne, he also wanted to stop the eternal war mages. We combined usliya captured demons and I created Tsukuemi.'
-'(Toby) - Tsukuemi makes people not believe in magic, it makes forget about it. Gradually reduced the number of magicians. And finally forgot about magic at all.'
-'(Toby) - Of course, this situation is not like the other magicians. Therefore, we are in a constant struggle. At Dawn has no friends, only enemies. We took upon themselves the burden and bear your cross for mankind as a whole.'
-
-act 'You´re going to teach me?': gt 'tobiQW','9'
-end
-
-if $ARGS[0] = '9':
-cla
-*clr
-'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
-'(You) - What about Tsukuemi? Is that true?'
-'(Toby) - I have no idea what you wove Karin. Just tell the truth. Our Order of Dawn is not a rigid structure, rather we minded. Payne and I have to make strategic decisions, and the rest for various reasons they operate.'
-'(Toby) - We are all united by one goal, maintaining Tsukuemi in working order, for this we have to regularly catch demons in other worlds and fill them Tsukuemi force. It is heavy and rewarding work. And we do it for the sake of humanity that would have existed.'
-'(Toby) - Yes, you heard right, we do it for the sake of people. We remember the days when people knew about magic, it was a time of constant war, humanity choking blood. Magee went to war at the age of 6 - 10 years old, survived to at least 16 units. All fought against all. Violence begets violence. Me in 7 years during the battle crushed the right side of the face. I lost an eye and became compelled to hide what´s left of my face behind the mask. I threw a dying friend, but I´m not dead, I went mighty magician, who was later killed. Everyone I knew and loved, killed, and I could not do anything about it. Then I decided to put an end to this massacre not died.'
-'(Toby) - I founded the Order of Dawn. In the beginning we were just mercenaries, we needed money, we have taken in order only very strong mages, then I met Payne, he also wanted to stop the eternal war mages. We combined usliya captured demons and I created Tsukuemi.'
-'(Toby) - Tsukuemi makes people not believe in magic, it makes forget about it. Gradually reduced the number of magicians. And finally forgot about magic at all. I stripped the magic world of magic. People are not ready for this level of forces.'
-'(Toby) - Of course, this situation is not like the other magicians. Therefore, we are in a constant struggle. At Dawn has no friends, only enemies but we still have a whole bunch of magicians who managed to avoid the influence Tsukuemi example preserved a Hidden Order Foliage, they at every opportunity we try to insert a stick in the wheel. But we shouldered this burden voluntarily accept his cross for the sake of humanity as a whole, and not wanting to assert themselves a handful of magicians. Particularly zealous mages going to seize power we consume, those who try to intrude into the work Tsukuemi we also consume. Others do not touch until they climb on the rampage. Well, except for the order hidden in the foliage, with them we did not reconcilable war.'
-
-act 'You´re going to teach me?': gt 'tobiQW','10'
-end
-
-
-if $ARGS[0] = '10':
-cla
-*clr
-'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
-'(You) - You´re gonna teach me?'
-'(Toby) - With this, there is something which challenges. My techniques you can not learn. They are too high. Payne forces generally something otherworldly, what can you´ll be able to learn something from him, but not now. I wish that you would teach Kakuzu. But he has a very nasty character. He will not teach you for free, even if I asked. He is the oldest of living on the planet, and the most greedy, I will ask him what he would have taught you, but not anger him, and he will kill you, no joke. I´m not just saying that Kakuzu most harmful of all the old man living, he did not just kill his teammates. I forgive him everything only from the fact that he owns the only light at the same time by all schools of magic.'
-'(Toby) - Here is harmful to this old man, I want you to send. Find him in the northern region. Here´s a piece of paper with his address. And I have to go.'
-'After these words around the eye Toby creates a vortex in which it pulled into seconds.'
-
-act 'Get out of bed': gt 'bedr'
-
-act 'Try to sleep': gt 'bed2','dosip'
-
-end
-
---- tobiQW ---------------------------------
-

+ 0 - 239
locations/037_Kafe2

@@ -1,239 +0,0 @@
-# Kafe2
-if $ARGS[0] = 'start':
-cla
-*clr
-'<<$boybody>> <<$boybod>> <<$boyface>>, introduced as <<$boy>>.'
-Set deyst = RAND(1,100)
-	if deyst <= 25:
-	'<<$boy>> has invited you to dance.'
-	act 'Dance': gt 'Kafe2','dance'
-	act 'Otshit': gt 'street'
-	end
-	if deyst > 25 and deyst <= 50:
-	'<<$boy>> sat down at your table and ordered a drink and a snack.'
-	act 'Drink': gt 'Kafe2','booze'
-	act 'Otshit': gt 'street'
-	end
-	if deyst > 50 and deyst <= 75:
-	'<<$boy>> has invited you to join the party on which he walks.'
-	act 'Agree': gt 'Kafe2','kampashka'
-		if horny < 75:
-		act 'Otshit': gt 'street'
-		end
-	end
-	if deyst > 75:
-	'<<$boy>> began to stick to you and try to take pictures. <<$boy>> offered to go with him to the toilet.'
-	act 'Agree': gt 'Kafe3','WC'
-		if horny < 75:
-		act 'Otshit': gt 'street'
-		end
-	end
-end
-
-if $ARGS[0] = 'dance':
-cla
-dance += 1
-minut += 3
-gs 'stat'
-Set deyst = RAND(1,100)
-'<center><img src="images\etogame\dance.jpg"></center>'
-''
-	if deyst <= 25:
-	'During the dance <<$boy>> you confidently and correctly conducted and not molested. His strong hands held tightly your waist. Finally the song ended.'
-	act 'Finish the dance': gt 'Kafe2','tanets2'
-	end
-
-	if deyst > 25 and deyst <= 80:
-	Set horny += 5
-	clr
-	gs 'stat'
-	if dick > 15 and dick < 18:
-	$didanc = 'During the dance, you feel like something hard between his legs pressed against your stomach.'
-	elseif dick >= 18:
-	$didanc = 'During the dance, you feel his cock pushing against your stomach hardens and grows, you feel that he´s a big, vskidku about <<dick>> centimeters.'
-	elseif dick <= 15:
-	$didanc = ''
-	end
-	'During the dance <<$boy>> gently hugged you and stroking your back down to the hips. His strong hands pressed against your fragile body to him, pressing your soft breasts <<tits>> the size of his body. <<$didanc>> Finally, the song ends.'
-	act 'Finish the dance': gt 'Kafe2','tanets2'
-	end
-
-	if deyst > 80:
-	Set horny += 8
-	clr
-	gs 'stat'
-	'During the dance <<$boy>> paw is the ass, you clung to his vzhimaya your tender flesh in his and wants to kiss you.'
-		act 'Kiss':
-		cla
-		if lip = 0: set $lipdance = 'thin lips'
-		if lip = 1: set $lipdance = 'lips'
-		if lip = 2: set $lipdance = 'plump lips'
-		if lip = 3: set $lipdance = 'plump lips'
-		if lip = 4: set $lipdance = 'thick lips'
-		'<<$boy>> your kisses <<$lipdance>> pushing them and poking his wet tongue in your mouth.'
-			act 'Chew language':
-			cla
-			Set horny += 8
-			if lip = 0: set $lipdance = 'thin lips'
-			if lip = 1: set $lipdance = 'lips'
-			if lip = 2: set $lipdance = 'plump lips'
-			if lip = 3: set $lipdance = 'plump lips'
-			if lip = 4: set $lipdance = 'thick lips'
-				if dick > 15 and dick < 18:
-				$didanc = 'pants it becomes firm and <<$boy>> is pressed to your stomach its embarked member.'
-				elseif dick >= 18:
-				$didanc = 'his cock pushing against your stomach hardens and grows, it´s big, vskidku about <<dick>> centimeters.'
-				elseif dick <= 15:
-				$didanc = 'in his pants that is uvilichivaetsya'
-				end
-			'You started passionately suck tongue kissing a guy and his own <<$lipdance>>. You feel like <<$didanc>>'
-			'Finally the song ends and you break the kiss.'
-			Set deyst = RAND(1,100)
-				if deyst <= 75:
-				'Keeping your waist and hold <<$boy>> offers to go to his home.'
-				act 'Agree': gt 'Kafe3','house'
-					if horny < 75:
-					act 'Otshit': gt 'street'
-					end
-
-				end
-				if deyst > 75:
-				'Keeping your waist and hold <<$boy>> offers to go to the toilet and continue.'
-				act 'Agree': gt 'Kafe3','WC'
-					if horny < 75:
-					act 'Otshit': gt 'street'
-					end
-
-				end
-
-			end
-
-			act 'Avoid kissing':
-			cla
-			Set horny += 8
-			if lip = 0: set $lipdance = 'thin lips'
-			if lip = 1: set $lipdance = 'lips'
-			if lip = 2: set $lipdance = 'plump lips'
-			if lip = 3: set $lipdance = 'plump lips'
-			if lip = 4: set $lipdance = 'thick lips'
-				if dick > 15 and dick < 18:
-				$didanc = 'pants it becomes firm and <<$boy>> is pressed to your stomach its embarked member.'
-				elseif dick >= 18:
-				$didanc = 'his cock pushing against your stomach hardens and grows, it´s big, vskidku about <<dick>> centimeters.'
-				elseif dick <= 15:
-				$didanc = 'in his pants that is uvilichivaetsya'
-				end
-			'You behave passively and try to clean your mouth away from the annoying guy first, but it takes him a little and you feel his hands firmly squeeze your ass, then his hands raised above and it takes you to his chest. You feel like <<$didanc>>'
-			'Finally the song ends and you break his arms.'
-			Set deyst = RAND(1,100)
-				if deyst <= 75:
-				'Keeping your waist and hold <<$boy>> offers to go to his home.'
-				act 'Agree': gt 'Kafe3','house'
-					if horny < 75:
-					act 'Otshit': gt 'street'
-					end
-
-				end
-				if deyst > 75:
-				'Keeping your waist and hold <<$boy>> offers to go to the toilet and continue.'
-				act 'Agree': gt 'Kafe3','WC'
-					if horny < 75:
-					act 'Otshit': gt 'street'
-					end
-
-				end
-
-			end
-		end
-
-
-		if horny < 75:
-		act 'Stop dancing and leave': gt 'street'
-		end
-	end
-
-end
-
-if $ARGS[0] = 'tanets2':
-cla
-Set deyst = RAND(1,70)
-	if deyst >= vnesh:
-	'The dance ended, and <<$boy>> kiss you goodbye'
-	act 'Say goodbye':
-	gt 'kafe','start'
-	end
-	end
-	if deyst < vnesh:
-	'The dance ended, and <<$boy>> suggested to go to him'
-	act 'Agree': gt 'Kafe3','house'
-		if horny < 75:
-		act 'Otshit': gt 'street'
-		end
-	end
-end
-
-if $ARGS[0] = 'booze':
-cla
-minut += 30
-gs 'stat'
-Set deyst = RAND(1,100)
-'You drink with a guy, and <<$boy>> tells a lot of interesting and interested in you.'
-	if deyst < 75:
-	'It seems you´ve had enough and should go home. <<$boy>> kiss you goodbye'
-		act 'Say goodbye':
-		gt 'kafe','start'
-		end
-	end
-
-	if deyst >= 75 and deyst < 95:
-	'It seems you´ve had enough and should go home. <<$boy>> suggested to go to him'
-	act 'Agree': gt 'Kafe3','house'
-		if horny < 75:
-		act 'Otshit': gt 'street'
-		end
-	end
-
-	if deyst >= 95:
-	'You drank to pig squeal and <<$boy>> began to stick to you. He kissed you and caressed, and then offered to go with him to the toilet.'
-	act 'Agree': gt 'Kafe3','WC'
-		if horny < 75:
-		act 'Otshit': gt 'street'
-		end
-	end
-end
-
-if $ARGS[0] = 'kampashka':
-cla
-minut += 30
-gs 'stat'
-Set deyst = RAND(1,100)
-'You drink in society guys and girls. <<$boy>> obschaetsya and flirts with you.'
-	if deyst < 60:
-	'Think you´ve had enough and should go home. <<$boy>> kiss you goodbye'
-	act 'Say goodbye':
-	gt 'kafe','start'
-	end
-	end
-	if deyst >= 60 and deyst < 90:
-	'Think you´ve had enough and should go home. <<$boy>> suggested to go to him'
-	act 'Agree': gt 'Kafe3','house'
-		if horny < 75:
-		act 'Otshit': gt 'street'
-		end
-	end
-	if deyst >= 90:
-	'You drank to pig squeal and <<$boy>> began to stick to you. He kissed you and caressed, and then offered to go to rest with the company.'
-	act 'Agree': gt 'Kafe3','kampashka'
-		if horny < 75:
-		act 'Otshit': gt 'street'
-		end
-	end
-end
-
-
-
-
-
-
---- Kafe2 ---------------------------------
-

+ 157 - 0
locations/037_tobiQW

@@ -0,0 +1,157 @@
+# tobiQW
+if $ARGS[0] = 'start':
+	cla
+	*clr
+	set tobiQW = 1
+	set minut += 60
+	'<center><img src="images/picPRE/tobiPRE.jpg"></center>'
+	'(Toby) - Mishan Hi, how´s it going?'
+	'You just dumbfounded surprise in your bedroom is Toby and he obviously knows who you are.'
+
+	act 'How did you find me?':gt 'tobiQW', '1'
+end
+
+if $ARGS[0] = '1':
+	cla
+	*clr
+	'<center><img src="images/picPRE/tobiPRE.jpg"></center>'
+	'(You) - How did you find me?'
+	'(Toby) - Oh, okay, not that it was difficult. Our organization is not always strongly underestimate. Even the owner Karin miscalculated.'
+
+	act 'The owner Karin?':gt 'tobiQW', '2'
+end
+
+if $ARGS[0] = '2':
+	cla
+	*clr
+	'<center><img src="images/picPRE/tobiPRE.jpg"></center>'
+	'(You) - The owner Karin?'
+	'(Toby) - Oh, holy simplicity. Of course, Karin saved you from the evil Toby and teach you magic. She Horoshoo and ugly Toby bad. What naivety. Karin is a pawn in someone else´s game.'
+	'(Toby) - sit down, we have a long conversation to kill you I´m not going, if built, would not you sharpen fritters.'
+	'You sat down on the bed. Toby began to talk.'
+	'(Toby) - When I took the amulet is not taking you, I miscalculated, I did not know that the power passed to you. When I returned to the room, you were gone, there was no trace of who is clearly very well cleaned up all traces. This someone is not weaker than me. Remember this fact, Karin silenok not enough so close to me.'
+	'(Toby) - The next day I find out about your alleged death. And here the owner Karin made his biggest mistake.'
+	'(You) - what? Everything seems to go smoothly.'
+	'(Toby) - Yes, all passed smoothly, we waited for the funeral of the body and then it got. Perfect copy, master work, Karin can not do it, but I did not even know about its existence.'
+	'(Toby) - But the owner Karin though knows a lot about the Order of Dawn, but still not enough. He did not know that Payne has the ability to find the souls of the dead and bring them back to life. We got the body for life and it turned out that this man has nothing to do with you. Someone just took a passerby in the street, he created your appearance and killed him. Payne also has the ability to see everything in a person, even when he is born, and the eyes of this man, unfortunately it kills guinea spell. Payne saw everything.'
+	'(You) - Nifiga yourself is that even for such Payne?'
+	'(Toby) - Payne, the true owner of all that is in the tomb. He is a true master of the force that is in you. He avatar Rikudo, the living embodiment of God, capable of destroying the city in one motion, raise the dead, to see through people, to change their body as he pleases, to have as many bodies at the same time, control the weather, gravity, live in several worlds, to see whole continents his eyes so that even the mouse does not slip from his sight, and God knows what he owns, it is incomprehensible even to me.'
+	'You shake your head, puzzled. This very cool guy Payne has managed the same way for him to pass me.'
+
+	act 'So who´s the boss and that Karin does he want?':gt 'tobiQW', '3'
+end
+
+if $ARGS[0] = '3':
+	cla
+	*clr
+	'<center><img src="images/picPRE/tobiPRE.jpg"></center>'
+	'(You) - So who´s the boss and that Karin does he want?'
+	'(Toby) - This is the fun part! But to continue in order. When Payne checked memory corpse depicting you, he did not see the face of magician, but I heard his voice, vile snake hiss, it could only be Orochimaru.'
+	'(You) - Orochimaru? Never heard of such a thing.'
+	'(Toby) - not surprising. He was not looking for that would head off to tear only dead mages and lazy. But his name did not even try to say out loud, and then suddenly courted him on his head, he is a real threat to the powerful magicians. We were once close friends with him, he was in the Dawn.'
+	'(Toby) - He is an exceptionally gifted magician, a very wise, ancient and immortal sorcerer. Owns nearly all the possible techniques of magic, many of his techniques beyond comprehension.'
+	'(Toby) - But Orochimaru pay dearly for immortality. There is no eternal life without eternal fee for it. His real body has long been dead, he lives in the wrong bodies. These bodies are called donor vessels, they receptacle of his soul. Vessels but do not live long, only three or four years, then the vessel rejects soul Orochimaru. And Orochimaru is limited by the strength of the vessel.'
+	'(Toby) - So, after examination of the body, it became clear you out from under our nose led Orochimaru. We began to stalk him, Payne can differentiate amongst all that is in the rain, it was he who sheds it so often. We tracked down Orochimaru manner he once showed his face snake in the rain. But there was no sign that he took power himself. We have concluded that, as before, you alive, Orochimaru technology allow crank most unexpected focus.'
+	'(You) - Since you tracked me and why I need Orochimaru.'
+	'(Toby) - Ah youth stupid. Yes Orochimaru wants to make your body a vessel for the soul. He trained with the help of Karin and you developed, what would your body came into full force, do not forget, its level is tied to the strength of the vessel.'
+	'(Toby) - Karin spit at you like, it develops your body for what would be her master Orochimaru could use it as a new vessel. Do you even know what fate has prepared for you, Karin? You just erase your place and take Orochimaru.'
+	'You think "Damn, I´m in between a rock and a hard place Toby as Orochimaru, and what to do now?"'
+	'(Toby) - To change your floor Orochimaru made you useless for Payne and me, we do not need you or do not need. Frankly, we spit on you now. I continued to look for you, but out of a desire to razobratsya situation. Understand Orochimaru plans to this effect.'
+	'(Toby) - I had to use and Zetsu as a spy, and that would force Payne track all magicians, we found Karin, but it is not known to us, but we found Juugo, and only then we will know exactly what he represents. He experiment Orochimaru.'
+	'(Toby) - Then Payne saw you. How do you go to Karin and she teaches you, Paine saw as you leap through the levels magicity. Any magician decades to grow your current level. How old are you this time it took? You were practicing a technique for an hour, and magicians for years they are taught. It became clear that you imagine yourself out. So I came to visit you.'
+
+	act 'And you can not make me a man again?':gt 'tobiQW', '4'
+end
+
+if $ARGS[0] = '4':
+	cla
+	*clr
+	'<center><img src="images/picPRE/tobiPRE.jpg"></center>'
+	'(You) - And you can not make me a man again?'
+	'Toby shook his head.'
+	'(Toby) - Do not think that magicians are all the same, if one could that something else can accurately. No, I have no idea how Orochimaru did what he did to you. And it was he, not Karin. Did not you surprised that she even treat you can not? It is too weak for such tricks with the body.'
+	'(Toby) - And now to the point. Yeah, you´re not interested in us, we really can not take your power now. But this does not mean that we just give up such a powerful vessel Orochimaru.'
+	'(Toby) - I would have already tried to kill Orochimaru, or sent Payne to do it, I think Payne would have easily killed him in battle. The problem is that Orochimaru is too great and he is able to avoid fighting.'
+	'(Toby) - We can not corny podobratsya him for what would kill him.'
+
+	act 'I doubt that I could do it':gt 'tobiQW', '5'
+end
+
+if $ARGS[0] = '5':
+	cla
+	*clr
+	'<center><img src="images/picPRE/tobiPRE.jpg"></center>'
+	'(You) - I doubt that I could do it'
+	'(Toby) - I have no doubt. You can not do it. But we are of you and do not require this. We want to drive Orochimaru trapped.'
+	'(Toby) - You prodolzhish as if nothing had happened with Karin will learn. We will prepare you parallel that you could cope with Karin and Juugo. When the time comes, you go and kill Karin and Juugo. If it makes any of the Dawn who, Orochimaru all understand, and so he will try to grab you myself. He needs you as a vessel, and so it just did not unhook from you.'
+	'(Toby) - Here we are, and will lay the ancient serpent, put a point in its history. Well, how´s the plan?'
+
+	act 'And if I refuse?':gt 'tobiQW', '6'
+end
+
+if $ARGS[0] = '6':
+	cla
+	*clr
+	'<center><img src="images/picPRE/tobiPRE.jpg"></center>'
+	'(You) - And if I refuse?'
+	'(Toby) - Then I´m sorry, nothing personal, but I´m going to kill you right now. Orochimaru did not want you to give me, I do not want to give it you.'
+
+	act 'If Orochimaru die, I´ll always be a woman?':gt 'tobiQW', '7'
+end
+
+if $ARGS[0] = '7':
+	cla
+	*clr
+	'<center><img src="images/picPRE/tobiPRE.jpg"></center>'
+	'(You) - If Orochimaru die, I´ll always be a woman?'
+	'(Toby) - In any case, you´ll always be a woman. Orochimaru never will refuse the temptation to take power into their own hands Rikudo and return you to your previous form will mean for him to give this power to me, to which he would not, even under pain of death.'
+
+	act 'What about Tsukuemi? Is that true?':gt 'tobiQW', '8'
+end
+
+if $ARGS[0] = '8':
+	cla
+	*clr
+	'<center><img src="images/picPRE/tobiPRE.jpg"></center>'
+	'(You) - What about Tsukuemi? Is that true?'
+	'(Toby) - I have no idea what you wove Karin. Just tell the truth. Our Order of Dawn is not a rigid structure, rather we minded. Payne and I have to make strategic decisions, and the rest for various reasons they operate.'
+	'(Toby) - We are all united by one goal, maintaining Tsukuemi in working order, for this we have to regularly catch demons in other worlds and fill them Tsukuemi force. It is heavy and rewarding work. And we do it for the sake of humanity that would have existed.'
+	'(Toby) - Yes, you heard right, we do it for the sake of people. We remember the days when people knew about magic, it was a time of constant war, humanity choking blood. Magee went to war at the age of 6 - 10 years old, survived to at least 16 units. All fought against all. Violence begets violence. Me in 7 years during the battle crushed the right side of the face. I lost an eye and became compelled to hide what´s left of my face behind the mask. I went mighty magician, who was later killed. Everyone I knew and loved, killed, and I could not do anything about it. You just can not imagine a world in which almost all magicians with forces capable of destroying entire cities. Banal drunken brawl in a bar wrapped in a bloody mess with thousands of victims. People ran wild and destroy each other. Mankind fell on the edge of a precipice. Then I decided to put an end to this massacre not died.'
+	'(Toby) - I founded the Order of Dawn. In the beginning we were just mercenaries, we needed money, we have taken in order only very strong mages, then I met Payne, he also wanted to stop the eternal war mages. We combined usliya captured demons and I created Tsukuemi.'
+	'(Toby) - Tsukuemi makes people not believe in magic, it makes forget about it. Gradually reduced the number of magicians. And finally forgot about magic at all.'
+	'(Toby) - Of course, this situation is not like the other magicians. Therefore, we are in a constant struggle. At Dawn has no friends, only enemies. We took upon themselves the burden and bear your cross for mankind as a whole.'
+
+	act 'You´re going to teach me?':gt 'tobiQW', '9'
+end
+
+if $ARGS[0] = '9':
+	cla
+	*clr
+	'<center><img src="images/picPRE/tobiPRE.jpg"></center>'
+	'(You) - What about Tsukuemi? Is that true?'
+	'(Toby) - I have no idea what you wove Karin. Just tell the truth. Our Order of Dawn is not a rigid structure, rather we minded. Payne and I have to make strategic decisions, and the rest for various reasons they operate.'
+	'(Toby) - We are all united by one goal, maintaining Tsukuemi in working order, for this we have to regularly catch demons in other worlds and fill them Tsukuemi force. It is heavy and rewarding work. And we do it for the sake of humanity that would have existed.'
+	'(Toby) - Yes, you heard right, we do it for the sake of people. We remember the days when people knew about magic, it was a time of constant war, humanity choking blood. Magee went to war at the age of 6 - 10 years old, survived to at least 16 units. All fought against all. Violence begets violence. Me in 7 years during the battle crushed the right side of the face. I lost an eye and became compelled to hide what´s left of my face behind the mask. I threw a dying friend, but I´m not dead, I went mighty magician, who was later killed. Everyone I knew and loved, killed, and I could not do anything about it. Then I decided to put an end to this massacre not died.'
+	'(Toby) - I founded the Order of Dawn. In the beginning we were just mercenaries, we needed money, we have taken in order only very strong mages, then I met Payne, he also wanted to stop the eternal war mages. We combined usliya captured demons and I created Tsukuemi.'
+	'(Toby) - Tsukuemi makes people not believe in magic, it makes forget about it. Gradually reduced the number of magicians. And finally forgot about magic at all. I stripped the magic world of magic. People are not ready for this level of forces.'
+	'(Toby) - Of course, this situation is not like the other magicians. Therefore, we are in a constant struggle. At Dawn has no friends, only enemies but we still have a whole bunch of magicians who managed to avoid the influence Tsukuemi example preserved a Hidden Order Foliage, they at every opportunity we try to insert a stick in the wheel. But we shouldered this burden voluntarily accept his cross for the sake of humanity as a whole, and not wanting to assert themselves a handful of magicians. Particularly zealous mages going to seize power we consume, those who try to intrude into the work Tsukuemi we also consume. Others do not touch until they climb on the rampage. Well, except for the order hidden in the foliage, with them we did not reconcilable war.'
+
+	act 'You´re going to teach me?':gt 'tobiQW', '10'
+end
+
+
+if $ARGS[0] = '10':
+	cla
+	*clr
+	'<center><img src="images/picPRE/tobiPRE.jpg"></center>'
+	'(You) - You´re gonna teach me?'
+	'(Toby) - With this, there is something which challenges. My techniques you can not learn. They are too high. Payne forces generally something otherworldly, what can you´ll be able to learn something from him, but not now. I wish that you would teach Kakuzu. But he has a very nasty character. He will not teach you for free, even if I asked. He is the oldest of living on the planet, and the most greedy, I will ask him what he would have taught you, but not anger him, and he will kill you, no joke. I´m not just saying that Kakuzu most harmful of all the old man living, he did not just kill his teammates. I forgive him everything only from the fact that he owns the only light at the same time by all schools of magic.'
+	'(Toby) - Here is harmful to this old man, I want you to send. Find him in the northern region. Here´s a piece of paper with his address. And I have to go.'
+	'After these words around the eye Toby creates a vortex in which it pulled into seconds.'
+
+	act 'Get out of bed':gt 'bedr'
+
+	act 'Try to sleep':gt 'bed2', 'dosip'
+end
+
+--- tobiQW ---------------------------------

+ 0 - 393
locations/038_Kafe3

@@ -1,393 +0,0 @@
-# Kafe3
-if $ARGS[0] = 'house':
-cla
-*clr
-money += 100
-minut += 15
-gs 'stat'
-'<<$boy>> pay your bill and hailed a taxi.'
-'You sat down with him in the backseat of the car. <<$boy>> put his hand on your knee and began stroking it getting higher to your pussy.'
-
-	act 'Enjoy caresses':
-	cla
-	minut += 15
-	horny += 15
-	gs 'stat'
-	dynamic $venerasiak
-	'<<$boy>> made it to your pussy and started to caress her fingers.'
-
-		act 'Try to remove his hands':
-		cla
-		minut += 15
-		horny += 10
-		gs 'stat'
-		'You tried to remove his hands from the crotch guy, but <<$boy>> turning to you began to fondle your breasts with his hands through the clothes.'
-		act 'Come': gt 'BDsex','start'
-		end
-
-		act 'Hands caress his cock':
-		cla
-		minut += 15
-		horny += 10
-		gs 'stat'
-		'You got into the pants to the guy and got him <<dick>> centimeter members began to caress his hands.'
-		derand = RAND(0,100)
-			if derand >= 95:
-			'<<$boy>> groaned and took you by the neck began to move your face to its members.'
-				act 'Take by mouth':
-				cla
-				*clr
-				minut += 15
-				horny += 10
-				guy += 1
-				bj += 1
-				gs 'stat'
-				'<center><img src="images\studia\car.gif"></center>'
-				'You bent bringing her face to the groin guy and his lips wrapped around his cock started sucking him.'
-				gs 'oral','0'
-				'Finally the guy filled your mouth with his hot sperm that you had nowhere to go and you swallow it. The taxi stopped. And <<$boy>> you put it out on the street.'
-				swallow += 1
-				cumlip += 1
-				act 'Leave': gt 'street'
-				end
-
-				act 'Try to remove his hands':
-				cla
-				minut += 15
-				horny += 10
-				gs 'stat'
-				'You tried to remove his hands from his head guy, but <<$boy>> turning to you began to fondle your breasts with his hands through the clothes.'
-				act 'Come': gt 'BDsex','start'
-				end
-			else
-			act 'Come': gt 'BDsex','start'
-			end
-		end
-	end
-
-	act 'Try to remove his hands':
-	cla
-	minut += 15
-	horny += 10
-	gs 'stat'
-	'You tried to remove his hands from the crotch guy, but <<$boy>> turning to you began to fondle your breasts with his hands through the clothes.'
-	act 'Come': gt 'BDsex','start'
-	end
-
-end
-
-if $ARGS[0] = '0':
-cla
-*clr
-$nameV = $boy
-
-
-
-minut += 15
-gs 'stat'
-Set deyst = RAND(1,100)
-	if deyst < 70:
-	:vag
-	'<<$boy>> puts you on the bed and undressed.'
-	Set deysts = RAND(1,3)
-		if deysts = 1:
-		Set guy += 1
-		Set sex += 1
-		vagina += 1
-		'<<$boy>> pushes your legs and enters you.'
-		set picrand = RAND(1,5)
-		'<center><img src="images\pics\vagmis<<picrand>>.jpg"></center>'
-		pose = 0
-		gs 'orgasm','start'
-		!'Dick like a hammer hammer inside you, you are very nice and you are ready to finish.'
-		act 'Leave': gt 'street'
-		end
-		if deysts = 2:
-		'<<$boy>> cancer puts you and enters you'
-		Set guy += 1
-		Set sex += 1
-		vagina += 1
-
-		Set cumass += 1
-		!'<<$boy>> pushes your legs and enters you.'
-
-		set picrand = RAND(1,5)
-		'<center><img src="images\pics\vagdog<<picrand>>.jpg"></center>'
-
-		pose = 1
-		gs 'orgasm','start'
-		act 'Leave': gt 'street'
-		end
-
-		if deysts = 3:
-		'<<$boy>> lays down on the bed and puts you over the top, you feel his penis enters you'
-		Set guy += 1
-		Set sex += 1
-
-		Set cumass += 1
-		'His cock went in you and you started to jump on his elde.'
-
-		set picrand = RAND(1,6)
-		'<center><img src="images\pics\vagcow<<picrand>>.jpg"></center>'
-
-		pose = 0
-		gs 'orgasm','start'
-		act 'Leave': gt 'street'
-		end
-	end
-	if deyst >= 70 and deyst < 85:
-	'<<$boy>> tells you that he wants you to suck it'
-		act 'Refuse': gt 'Kafe3','0'
-
-		act 'Take by mouth':
-		'<<$boy>> pulls his dick'
-		Set guy += 1
-		Set bj += 1
-
-		Set throat += 1
-		Set vaf += 1
-		'You took his penis in her mouth and began to suck.'
-		set picrand = RAND(1,10)
-			if picrand = 1: '<center><img src="images\pics\bj.jpg"></center>'
-			if picrand = 2: '<center><img src="images\pics\bj2.jpg"></center>'
-			if picrand = 3: '<center><img src="images\pics\bj3.jpg"></center>'
-			if picrand = 4: '<center><img src="images\pics\bj4.jpg"></center>'
-			if picrand = 5: '<center><img src="images\pics\bj5.jpg"></center>'
-			if picrand = 6: '<center><img src="images\pics\bj6.jpg"></center>'
-			if picrand = 7: '<center><img src="images\pics\bj7.jpg"></center>'
-			if picrand = 8: '<center><img src="images\pics\bj8.jpg"></center>'
-			if picrand = 9: '<center><img src="images\pics\bj9.jpg"></center>'
-			if picrand = 10: '<center><img src="images\pics\bj10.jpg"></center>'
-		'<<$boy>> moans and that´s to finish.'
-		*clr
-			act 'Remove the member of his mouth':
-			cla
-			Set bjrand = RAND(1,100)
-			if bjrand < 50 and vaf > 100: 'You have time to take out of his mouth and a member <<$boy>> commits past you.'
-			if bjrand >= 50 or vaf <= 100: Set cumface += 1 & '<<$boy>> ends up on your face.'
-			set picrand = RAND(1,5)
-				if picrand = 1 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial.jpg"></center>'
-				if picrand = 2 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial2.jpg"></center>'
-				if picrand = 3 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial3.jpg"></center>'
-				if picrand = 4 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial4.jpg"></center>'
-				if picrand = 5 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial5.jpg"></center>'
-			'You try to wipe off the face of the sperm, but the sperm erased bad.'
-			act 'Leave': gt 'street'
-			end
-
-			act 'Suck on':
-			cla
-			Set vaf += 1
-			'You feel like a hot jet of sperm hits you in the throat. You have a mouth full of sperm.'
-			set 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>'
-				act 'swallow':
-				cla
-				Set vaf += 2
-				Set cumlip += 1
-				'<<$boy>> looks like you swallow sperm.'
-				act 'Leave': gt 'street'
-				end
-
-				act 'spit out':
-				cla
-				'You go into the bathroom and there spits cum'
-				act 'Leave': gt 'street'
-				end
-			end
-
-
-		!act 'Leave': gt 'street'
-		end
-	end
-	if deyst >= 85:
-	'<<$boy>> tells you that he wants you in the ass otimet'
-		act 'Refuse': gt 'Kafe3','0'
-
-		act 'Agree':
-		cla
-		'<<$boy>> puts you cancer and lubricates your ass somehow cream. You feel like that it boils down to you in tight anus.'
-		'Sharp pain in the anus smenyaetsya easy to treat. <<$boy>> you fucked in the ass smoothly, that would not break anything.'
-		Set guy += 1
-		Set anal += 1
-		anus += 1
-		if lubri > 0: Set lubri  = lubri  - 1
-		Set cumass += 1
-		set 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>'
-			'You feel like your anus is filled with what that warm liquid. You bring yourself up in the bathroom and get dressed.'
-			act 'Leave': gt 'street'
-		end
-	end
-end
-
-if $ARGS[0] = 'WC':
-cla
-$nameV = $boy
-dynamic $venerasiak
-'You went to the toilet with a guy. <<$boy>> you began to kiss and caress. Then he offered you suck at it.'
-	act 'Refuse':
-	cla
-	'You abandoned your hot lover but is not confused, he turned you back to him and bent.'
-	'You feel that <<$boy>> bared your ass and something solid upiraetsya your vagina'
-	Set guy += 1
-	Set sex += 1
-	Set cumass += 1
-	vagina += 1
-	'You fuck cancer in the outhouse.'
-	'<center><img src="images\pics\vagtualet.jpg"></center>'
-	pose = 1
-	gs 'orgazm','start'
-	act 'Leave': gt 'street'
-	end
-
-	act 'Take by mouth':
-	cla
-	Set vaf += 1
-	'<<$boy>> pulls his dick'
-	Set guy += 1
-	Set bj+= 1
-
-	Set throat += 1
-	'You took his penis in her mouth and began to suck.'
-	set picrand = RAND(1,10)
-		if picrand = 1: '<center><img src="images\pics\bj.jpg"></center>'
-		if picrand = 2: '<center><img src="images\pics\bj2.jpg"></center>'
-		if picrand = 3: '<center><img src="images\pics\bj3.jpg"></center>'
-		if picrand = 4: '<center><img src="images\pics\bj4.jpg"></center>'
-		if picrand = 5: '<center><img src="images\pics\bj5.jpg"></center>'
-		if picrand = 6: '<center><img src="images\pics\bj6.jpg"></center>'
-		if picrand = 7: '<center><img src="images\pics\bj7.jpg"></center>'
-		if picrand = 8: '<center><img src="images\pics\bj8.jpg"></center>'
-		if picrand = 9: '<center><img src="images\pics\bj9.jpg"></center>'
-		if picrand = 10: '<center><img src="images\pics\bj10.jpg"></center>'
-	'<<$boy>> moans and that´s to finish.'
-
-		act 'Remove the member of his mouth':
-		cla
-		*clr
-		Set bjrand = RAND(1,100)
-			if bjrand < 50 and vaf < 100: 'You have time to take out of his mouth and a member <<$boy>> commits past you.'
-			if bjrand >= 50 or vaf >= 100: Set cumface += 1 & '<<$boy>> ends up on your face.'
-			set picrand = RAND(1,5)
-				if picrand = 1 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial.jpg"></center>'
-				if picrand = 2 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial2.jpg"></center>'
-				if picrand = 3 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial3.jpg"></center>'
-				if picrand = 4 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial4.jpg"></center>'
-				if picrand = 5 and bjrand >= 50 or repa = 6: '<center><img src="images\pics\facial5.jpg"></center>'
-			act 'Leave': gt 'street'
-
-		end
-
-		act 'Suck on':
-		cla
-		*clr
-		Set vaf += 2
-		'You feel like a hot jet of sperm hits you in the throat. You have a mouth full of sperm.'
-		set 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>'
-			act 'swallow':
-			cla
-			Set vaf += 1
-			Set cumlip += 1
-			swallow += 1
-			'<<$boy>> looks like you swallow sperm.'
-			act 'Leave': gt 'street'
-			end
-
-			act 'spit out':
-			cla
-			'You go into the bathroom and there spits cum'
-			act 'Leave': gt 'street'
-			end
-		end
-
-
-	end
-end
-
-if $ARGS[0] = 'kampashka':
-cla
-dynamic $venerasiak
-'You edete somewhere with the guys on the car. You´re drunk and you pat on the back seat just two guys. Finally, the machine stops and you take out of the car.'
-'Undress you, and you feel like you are part of a member, you are trying to say something, at this point you inserted with cock in her mouth.'
-set picrand = RAND(1,15)
-if picrand = 1: '<center><img src="images\pics\gang.jpg"></center>'
-if picrand = 2: '<center><img src="images\pics\gang2.jpg"></center>'
-if picrand = 3: '<center><img src="images\pics\gang3.jpg"></center>'
-if picrand = 4: '<center><img src="images\pics\gang4.jpg"></center>'
-if picrand = 5: '<center><img src="images\pics\gang5.jpg"></center>'
-if picrand = 6: '<center><img src="images\pics\gang6.jpg"></center>'
-if picrand = 7: '<center><img src="images\pics\gang7.jpg"></center>'
-if picrand = 8: '<center><img src="images\pics\gang8.jpg"></center>'
-if picrand = 9: '<center><img src="images\pics\gang9.jpg"></center>'
-if picrand = 10: '<center><img src="images\pics\gang10.jpg"></center>'
-if picrand = 11: '<center><img src="images\pics\gang11.jpg"></center>'
-if picrand = 12: '<center><img src="images\pics\gang12.jpg"></center>'
-if picrand = 13: '<center><img src="images\pics\gang13.jpg"></center>'
-if picrand = 14: '<center><img src="images\pics\gang14.jpg"></center>'
-if picrand = 15: '<center><img src="images\pics\gang15.jpg"></center>'
-'You ripped into all the cracks, and even more than once. Heavily drunk and you can not concentrate and remember details. What that vague feeling throughout the body, hands, members. Then you dovezli and thrown at the entrance.'
-Set guy += 3
-Set sex += 1
-Set bj+= 1
-Set anal += 1
-Set throat += 1
-Set cumlip += 1
-Set cumface += 1
-Set cumbutt += 1
-Set cumass += 1
-set cumpussy += 1
-set rape += 1
-set gang += 1
-vagina += 1
-anus += 1
-act 'Leave': gt 'street'
-end
-
-if $ARGS[0] = 'coffee':
-cla
-dynamic $venerasiak
-$nameV = $boy
-minut += 30
-gs 'stat'
-'<<$boy>> agree to your proposal. You brought him home, there´s a long embraced and continued to snuggle on the bed. <<$boy>> you entered with full force.'
-set picrand = RAND(1,5)
-'<center><img src="images\pics\vagmis<<picrand>>.jpg"></center>'
-pose = 0
-gs 'orgasm','start'
-Set guy += 1
-Set sex += 1
-vagina += 1
-act 'Wash': gt 'Vanr'
-end
-
---- Kafe3 ---------------------------------
-

+ 102 - 0
locations/038_roomPRE

@@ -0,0 +1,102 @@
+# roomPRE
+'<center><b><font color="maroon">Apartment</font></b></center>'
+'<center><img src="images/picPRE/room.jpg"></center>'
+clr
+gs 'statPRE'
+fcolor = rgb(0, 0, 0)
+bcolor = rgb(255, 255, 255)
+lcolor = rgb(106, 90, 205)
+
+if pre = 0:
+	set pre = 1
+	'Alarm rang. Wife Luda sluggishly rolled over. Habitual movement you have it turned off. God, how can you not want to work. Okay, enough rassusolivat.'
+
+	act 'Go to the bathroom':
+		cla
+		*clr
+		set minut += 30
+		clr
+		gs 'statPRE'
+		'<center><img src="images/picPRE/self.jpg"></center>'
+		'Quietly, that would not wake up daughter, you have gone to the bathroom and began to brush up.'
+
+		act 'Leave the apartment':
+			cla
+			*clr
+			set minut += 5
+			clr
+			gs 'statPRE'
+			'<center><img src="images/picPRE/carPRE1.jpg"></center>'
+			'In the parking lot near the house was your car. You went to her and pressed a button on the key fob opening the central locking and removing the alarm.'
+
+			act 'Go to work':
+				cla
+				*clr
+				set minut += 25
+				clr
+				gs 'statPRE'
+				'<center><img src="images/picPRE/carPRE.jpg"></center>'
+				'You got behind the wheel, started the car and drove to work. On the road, as was always going to jam you and dragged themselves on something like a traffic jam to the office.'
+
+				act 'Park at the office':
+					cla
+					*clr
+					set minut += 60
+					clr
+					gs 'statPRE'
+					'<center><img src="images/picPRE/officePRE.jpg"></center>'
+					'You put the car to the parking lot near the office and went into the building. Greeted with a security guard and went upstairs to his office.'
+					'To you the director´s secretary came and brought you travel documents. You looked at her. "Did I go to business trip?" you asked. "Probably yes. Vsyevolodovitch ears stands in the morning, what that PE in the construction industry. More I do not know." Oksana said. You have prepared travel documents, now we have to sign the director.'
+
+					act 'By Director':
+						cla
+						*clr
+						set minut += 20
+						clr
+						gs 'statPRE'
+						'<center><img src="images/picPRE/man.jpg"></center>'
+						'Going to the office of the Director, you greeted him and submitting papers to sign sat in the chair. Roman Gromov ran the text and paper podmahnul wide authoritative stroke.'
+						'"Glavbukh probably already in place, go get travel. While I make a few calls, and then come back to me, discuss your trip." director said thoughtfully.'
+
+						act 'Go to the chief accountant for travel.':
+							cla
+							*clr
+							set minut += 30
+							set money += 15000
+							clr
+							gs 'statPRE'
+							'<center><img src="images/picPRE/glavbuh.jpg"></center>'
+							'Marina was already in his office, you have filed her application, she grumbled a bit, but has given you money. Did you get their names in the statements, and came out of her office.'
+
+							act 'Go to the director.':
+								cla
+								*clr
+								set minut += 15
+								clr
+								gs 'statPRE'
+								'<center><img src="images/picPRE/man.jpg"></center>'
+								'When you entered the director Roman Gromov gestured you to a chair, and he continued to talk on the phone.'
+								'"Yes, I understand. Utryasem Once all the questions so I will immediately send you Michael, my deputy. Tell workers that they output. Igor, set a guard at the pit and let no one there no fuss, take care that would nobody got wind, you know, may prohibit the construction and this can not be allowed. Okay, let´s be engaged. " Roman hung up.'
+								'He turned and spoke to you. "Tonight, during operations in the pit at our complex construction workers stumbled upon what that space. Backhoe struck the wall there. Okay Igor was close by and realized stop the excavations. Damn, is not clear on what we would encounter. Maybe abandoned bunker or something . But in any case there is any voids under pits and further construction of the complex may not be possible. So what you need as quickly as possible to go to the construction site. Understand that there´s what. Zanochuesh in hotel. general, solve itself, according to circumstances. "'
+
+								act 'I should at least meet.':
+									cla
+									*clr
+									set minut += 5
+									clr
+									gs 'statPRE'
+									'<center><img src="images/picPRE/man.jpg"></center>'
+									'"I though we should get" had begun to pull you bagpipes, but the director interrupted you. "Michael, do not you catch up? We scored credits on the ears on this construction, we still have not even agreed on a construction project, and we dig a pit. You understand, moreover, that if a foundation pit of emptiness, we can not continue to build and find ourselves on the brink of ruin, so we can still what important object destroyed while still on trial zagremit. situation must be addressed urgently. This force majeure. I have to be here to catch in which case someone should grease the time, so you go . "'
+
+									act 'Okay, then I will not waste any more time.':gt 'roadPRE'
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+--- roomPRE ---------------------------------

+ 0 - 295
locations/039_ParkKafe

@@ -1,295 +0,0 @@
-# ParkKafe
-
-if $args[0] = 'food':
-	if money < 100:
-	'You do not have enough money for the cafe.'
-	act 'Leave': gt 'park','start'
-	exit
-	end
-set health += 10
-set money -= 100
-set manna += 5
-set willpower += 5
-
-	if energy >= 30:
-	set fat += 5
-	'You can no longer have.'
-	end
-
-	if energy >= 20 and energy < 30:
-	set fat += 3
-	set energy += 10
-	'You pushed through the power of a meal.'
-	end
-
-	if energy < 20:
-	set energy += 20
-	set fat += 1
-	'You gladly ate the food.'
-	end
-
-	if water >= 20:
-	'Tea in you no longer climbs.'
-	end
-
-	if water < 20:
-	'You gladly drank a mug of tea.'
-	set water += 20
-	end
-
-
-'You sat at the table in summer cafe. Soon you brought your order.'
-cla
-Set arand = RAND(1,7)
-if arand = 1: 'You look around and notice the cafe visitors strolling company <a href="exec: GT ''ParkKafe'',''youth''">Youth</a>'
-if arand = 2: 'You look around and notice the cafe visitors sitting alone young <a href="exec: GT ''ParkKafe'',''guy''">Man</a>'
-if arand = 3: 'You are viewing a cafe visitors and students notice campaign <a href="exec: GT ''ParkKafe'',''negros''">Africans</a>'
-if arand = 4: 'You look around and notice the cafe visitors <a href="exec: GT ''ParkKafe'',''woman''">woman</a> imperious form'
-if arand = 5: 'You look around and notice the cafe visitors solid <a href="exec: GT ''ParkKafe'',''man''">man</a> aged'
-if arand = 6: 'You are viewing a cafe visitors and notice two <a href="exec: GT ''ParkKafe'',''Armenians''">Genocide</a> sitting at the table'
-if arand = 7: 'You are viewing a cafe visitors and notice two <a href="exec: GT ''ParkKafe'',''boys''">sporty guys</a> sitting at the table and beer pschih'
-
-act 'Leave': gt 'park','start'
-end
-
-if $ARGS[0] = 'boys':
-cla
-Set rrand = RAND(1,2)
-	if rrand = 1:
-	'You´re looking at them intently, but they think you do not notice.'
-	act 'Go home': gt 'park','start'
-	end
-	if rrand = 2:
-		if parkara > 0:
-		'Jora Senya notice you, but continued to drink beer with friends.'
-		act 'Leave': gt 'park','start'
-		end
-		if parkara = 0:
-		'Your views were seen guys and one of them rolled up to you and asked to join them.'
-		act 'Leave': gt 'park','start'
-			act 'Drink beer with the guys':
-			cla
-			'You guys drank a glass of beer for guys ordered another. One of the guys that you quietly slipped it into the glass. You get drunk and you guys took in the nearest woods.'
-			Set deyrand = RAND(1,2)
-				if deyrand = 1:
-				if parkara = 0: Set guy += 2 & Set parkara = 1
-				Set sex += 1
-				Set bj += 2
-				Set cumlip += 2
-				'Guys put you on your knees and take out their members. you do not understand what is going on at once both start sucking cock.'
-				'<center><img src="images\klof\022.jpg"></center>'
-				Set horand = RAND(1,100)
-				if horand <= bj: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
-				if horand > bj: Set horny += 10 & 'You were not satisfied'
-				'They end up in your mouth, you swallow sperm greed'
-				act 'Become acquainted': gt 'parkkafe','klof 1'
-				end
-
-				if deyrand = 2:
-				if parkara = 0: Set guy += 2 & Set parkara = 1
-				Set sex += 1
-				set cumpussy += 1
-				set vagina += 1
-				set gang += 1
-				Set cumass += 1
-				anus += 1
-				anal += 1
-				'Guy fucks you in the pussy. Another time, too, does not lose his penis and shoves you in the ass.'
-				'<center><img src="images\klof\004.jpg"></center>'
-				Set horand = RAND(1,100)
-				if horand <= horny: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
-				if horand > horny: Set horny += 10 & 'You were not satisfied'
-				'One of them ends up in you, and the other is discharged you on your ass.'
-				act 'Become acquainted': gt 'parkkafe','klof 1'
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'klof 1':
-cla
-*clr
-set minut += 5
-set klofQW = 1
-clr
-gs 'stat'
-'<center><img src="images\klof\11 1.jpg"></center>'
-'In rose from the grass in front of the guys legs and hands were shaking from sex between her legs itched all. "Did you like it baby?" asked one of the guys.'
-act 'Yes': gt 'event','klof 2'
-act 'Leave': gt 'park','start'
-end
-
-
-
-
-if $ARGS[0] = 'Armenians':
-cla
-Set rrand = RAND(1,2)
-	if rrand = 1:
-	'You´re looking at them intently, but they think you do not notice.'
-	act 'Go home': gt 'park','start'
-	end
-
-	if rrand = 2:
-	'Your views were seen by Armenians and one of them rolled to your table with a bottle of champagne.'
-	act 'Leave': gt 'park','start'
-		act 'Drink together':
-		cla
-		*clr
-		'You drank champagne with Armenian. His friend moved smoothly for your table. You drank and made merry. You get drunk and Armenians took you into the back room cafe.'
-		Set deyrand = RAND(1,2)
-			if deyrand = 1:
-			if parkarman = 0: Set guy += 2 & Set parkarman = 1
-			Set bj+= 2
-			Set cumlip += 2
-			'Armenians put you on your knees and take out their mighty members. They dvoem poke them in your face, you start to suck at once both members.'
-			'<center><img src="images\pics2\ara.jpg"></center>'
-			Set horand = RAND(1,100)
-			if horand <= bj: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
-			if horand > bj: Set horny += 10 & 'You were not satisfied'
-			'They end up in your mouth with laughter and go'
-			act 'Leave': gt 'park','start'
-			end
-
-			if deyrand = 2:
-			if parkarman = 0: Set guy += 2 & Set parkarman = 1
-			Set sex += 1
-			Set bj+= 1
-			set gang += 1
-			Set cumlip += 1
-			Set cumass += 1
-			vagina += 1
-			'Armenians bend over you and puts you one cock in her mouth. Another time, too, does not lose his penis and shoves you into the vagina.'
-			'<center><img src="images\pics2\ara2.jpg"></center>'
-			Set horand = RAND(1,100)
-			if horand <= horny: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
-			if horand > horny: Set horny += 10 & 'You were not satisfied'
-			'One of them ends up in your mouth and swallow all causes, and the other is discharged you on your ass.'
-			act 'Leave': gt 'park','start'
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'man':
-cla
-set mrand = RAND(1,2)
-if mrand = 1: 'You glanced surreptitiously at respectable man, but it seems you did not notice.'
-act 'Leave': gt 'park','start'
-	if mrand = 2:
-	cla
-	'A man walks up to you and invites you to dance.'
-		act 'Dance':
-		cla
-		'He dances well and confidently leads you during the dance. After the dance, you sit down at a table with a man, he orders an expensive wine and various snacks, you relax with gallant compliments showered on you.'
-		'Cavalier offers to go to the sauna.'
-			act 'In the sauna':
-			cla
-			if saunasex = 0: Set saunasex = 1 & Set guy += 1
-			Set sex += 1
-			!Set oral += 1
-			Set cumlip += 1
-			Set cumass += 1
-			set horny = 0
-			vagina += 1
-			'<center><img src="images\pics2\sauna.jpg"></center>'
-			'In the sauna you two completely naked, have fun and enjoying yourself, gradually turns into a very passionate sex'
-			if horny > 75: Set horny = 0 & orgasm += 1 & 'You covered orgasm'
-			if horny <= 75: Set horny += 10 & 'You were not satisfied'
-			act 'Leave': gt 'street'
-			end
-		end
-	act 'Leave': gt 'park','start'
-	end
-
-end
-
-if $ARGS[0] = 'woman':
-cla
-'You glanced surreptitiously at the imperious woman, but it seems you did not notice.'
-act 'Leave': gt 'park','start'
-end
-
-if $ARGS[0] = 'youth':
-cla
-Set rrand = RAND(1,2)
-if rrand = 1:
-'You looked at the campaign secretly laughing youth, but they seem to have overlooked.'
-act 'Leave': gt 'park','start'
-end
-	if rrand = 2:
-	'To you tipsy man approached and invited you to the company.'
-	act 'Leave': gt 'park','start'
-		act 'Company':
-		cla
-		'You sat at the table where walking cheerful and noisy group of young people, it was very fun and late night parties kompashka went to continue the fun at the apartment'
-		act 'Leave': gt 'park','start'
-			act 'To go along with all':
-			cla
-			*clr
-			'<center><img src="images\pics2\Student.jpg"></center>'
-			'You continued to splash out on the flat. Most went home, but the girl was left alone, and six guys. Guys started to kiss a girl and she sat on his knees in front of them boys got members, girl stroking their hands, and guys masturbate members on the girl´s face'
-			act 'Leave': gt 'park','start'
-				act 'Kneel down next to the girl in the lap of the guys':
-				cla
-				*clr
-				set hour += 6
-				if hour >= 22: Set hour = 22 & Set minut = 0
-				set son -= 10
-				if son < 02: Set son = 2
-
-				if studentsex = 0: Set studentsex = 1 & Set guy += 6
-				Set bj += 6
-				Set cumlip += 6
-				set swallow += 6
-				'<center><img src="images\pics2\Student2.jpg"></center>'
-				'Boys jerking off on your face, and you Girl caressed and kissed members finally the boys began to lower you in their mouths. Your co-worker also nakonchal mouthful, she turns to you with a mouth full of sperm and wants to kiss you.'
-					act 'Kissing Girl':
-					cla
-					*clr
-					'<center><img src="images\pics2\Student3.jpg"></center>'
-					'You kiss a girl, you both mouthfuls of sperm and you are sharing it with a kiss, you finally get tired and you both swallow cum in your mouths.'
-					act 'Leave': gt 'street'
-					end
-				end
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'negros':
-cla
-Set rrand = RAND(1,2)
-	if rrand = 1 or afra >= 1:
-	'You glanced surreptitiously at the Africans, but they seem to have overlooked.'
-	act 'Leave': gt 'park','start'
-	end
-	if rrand = 2 and afra = 0:
-	Set afra = 1
-	Set obs = 1
-	'To fit your table a few Africans, they behave not quite restrained, talk a lot in English, grabs you by the back and chest. One of the Africans who introduced DeMarcus tells you that they are students from Africa and live in the dorm, so he tells you how to get to the hostel and find them.'
-	act 'Leave': gt 'park','start'
-	end
-end
-
-if $ARGS[0] = 'guy':
-cla
-Set rrand = RAND(1,2)
-	if rrand = 1 or gosh = 1:
-	'You secretly looked at the young boy, but it seems you did not notice.'
-	act 'Leave': gt 'park','start'
-	end
-	if rrand =2 or gosh = 1:
-	'You secretly looked at the young boy. Gosh it, but it seems you did not notice.'
-	act 'Leave': gt 'park','start'
-	end
-	if rrand = 2 and gosh = 0:
-	Set gosh = 1
-	Set obs = 1
-	'For your table fit young man and introduces himself as Gosha, you become acquainted with him, he is a student and lives in obschege. Ghosh tells you how to get to the hostel and how to find it.'
-	act 'Leave': gt 'park','start'
-	end
-end
---- ParkKafe ---------------------------------
-

+ 121 - 0
locations/039_roadPRE

@@ -0,0 +1,121 @@
+# roadPRE
+'<center><img src="images/picPRE/carPRE.jpg"></center>'
+set minut += 5
+clr
+gs 'statPRE'
+fcolor = rgb(0, 0, 0)
+bcolor = rgb(255, 255, 255)
+lcolor = rgb(106, 90, 205)
+'Once in the car you will immediately dial the phone your wife Luda. Explained the situation to her and finished the conversation went to the construction of the complex.'
+
+act 'Ride.':
+	cla
+	*clr
+	set minut += 500
+	clr
+	gs 'statPRE'
+	'<center><img src="images/picPRE/kotPRE.jpg"></center>'
+	'You´ve been traveling on the highway and tired, but before the rest in a hotel, you need to visit the pit. So you come to the site. Igor called and he said to run you protection on the scene.'
+	'Putting the car you saw that coming to you, Igor.'
+
+	act 'Say hello to Igor.':
+		cla
+		*clr
+		set minut += 15
+		clr
+		gs 'statPRE'
+		'<center><img src="images/picPRE/igor.jpg"></center>'
+		'You are greeted with Igor. He was obviously concerned about the situation and so without much delay led you to the enclosure in the pit, around which hovered dejectedly guard.'
+		'"I made a staircase that would descend into the break. Air there, I already checked threw a burning piece of paper. It´s not like a bunker or a natural cave, but rather what that ancient catacombs." said Igor until you waded through the mud to failure.'
+		'You came to the hole in the ground and looked back. Floor-five meters, you thought. "Vidisha Michael seems certainly to a natural cave, but it´s not too pravilnae form. Well, go down?" said Igor.'
+
+		act 'Descend.':
+			cla
+			*clr
+			set minut += 15
+			clr
+			gs 'statPRE'
+			'<center><img src="images/picPRE/dunPRE.jpg"></center>'
+			'You took a powerful torch Igor until the guard lowered a staircase in failure. Igor then first started down there. Behind him, you went down on an aluminum ladder into the cave.'
+			'The cave musty and gloomy, but you can breathe and not bad lantern illuminates the walls. You sent a beam into the corridor and saw in the distance something like a door.'
+			'"Damn. Now just any historians ponabegut here with your stupid research." Igor muttered.'
+			'You came to the door and saw her what that drawings like characters.'
+
+			act 'Open the door.':
+				cla
+				*clr
+				set minut += 15
+				clr
+				gs 'statPRE'
+				'<center><img src="images/picPRE/dunPRE1.jpg"></center>'
+				'Leaning against the door you managed to open it. "Your mother. Mish, look here. This same human bones." Igor said nervously.'
+				'Looking around that a lot of which poked his finger Igor you are convinced that it is really a bunch of bones and skull on top. "Tomb, I suppose." Igor muttered looking bone.'
+
+				act 'Go further.':
+					cla
+					*clr
+					set minut += 15
+					clr
+					gs 'statPRE'
+					'<center><img src="images/picPRE/dunPRE2.jpg"></center>'
+					'Going further, you have found a dilapidated gallery. In the gallery walls were stone recess in which lay the dusty scrolls of something resembling pergamet.'
+					'Igor took one of the rolls and spread it. "The hell it is not clear what that cuneiform. Ka I´ll take with me, what I find something special on ancient languages, even decipher" said Igor'
+					'Have you noticed a door in the wall and opened it.'
+
+					act 'Enter the room.':
+						cla
+						*clr
+						set minut += 15
+						clr
+						gs 'statPRE'
+						'<center><img src="images/picPRE/dunPRE3.jpg"></center>'
+						'The room on the stone dais in the center stood a variety of vessels. You have come to see them trying to figure out what exactly is you came.'
+						'Looking at the room you notice a strange little sculpture standing at the top of the stone elevations with vessels.'
+
+						act 'Mark sculpture.':
+							cla
+							*clr
+							set energy = 21
+							set water = 21
+							set son = 21
+							set minut += 15
+							set magik = 1
+							set manna = intel * magik + vital * 5
+							clr
+							gs 'statPRE'
+							'<center><img src="images/picPRE/amuletPRE.jpg"></center>'
+							'You picked up a strange sculpture and began to examine her. This is clearly something very ancient. Holding the amulet, you realize that it´s warm, almost hot and instinctively felt like some sort of strange power comes into you.'
+							'You feel a surge of strength. As if there was a long road. Do you even have a drink and did not want to.'
+							'Igor entered the room holding a piece of parchment. "Hmm. Interesting little room. On what is not clear, we came. And most importantly, what we do with this find. Whether destroy and build complex, or public."'
+
+							act 'You´ve got to think and consult with the chief.':
+								cla
+								*clr
+								set minut += 15
+								clr
+								gs 'statPRE'
+								'<center><img src="images/picPRE/dunPRE3.jpg"></center>'
+								'"You´ve got to think and consult with the chief." you said thrusting a strange amulet in his pocket.'
+								'"Well, here´s for sure you can not call the boss, let´s get out of this crypt." Igor said grimly.'
+
+								act 'Come to the surface.':
+									cla
+									*clr
+									set minut += 15
+									clr
+									gs 'statPRE'
+									'<center><img src="images/picPRE/kotPRE.jpg"></center>'
+									'You got together with Igor and climbed up ladders to the surface. Igor said, "It´s late, go to the hotel. Sozvonishsya there and with Vsyevolodovitch."'
+
+									act 'Go to the hotel.':gt 'otelPRE'
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+--- roadPRE ---------------------------------

+ 143 - 0
locations/040_otelPRE

@@ -0,0 +1,143 @@
+# otelPRE
+'<center><img src="images/picPRE/otelPRE.jpg"></center>'
+set minut += 30
+clr
+gs 'statPRE'
+fcolor = rgb(0, 0, 0)
+bcolor = rgb(255, 255, 255)
+lcolor = rgb(106, 90, 205)
+set money -= 3000
+'You uneventful found sparkling lights Hotels and putting the car went to the bar to get a room.'
+'Availability in a hotel was only a double room you have paid in full, what would you have settled inadvertently nobody.'
+
+act 'Up to the room.':
+	cla
+	*clr
+	set minut += 5
+	clr
+	gs 'statPRE'
+	'<center><img src="images/picPRE/otelPRE1.jpg"></center>'
+	'You lay on the bed. They began to speculate on what happened. And what a mysterious amulet you find there. After it you feel just wonderful.'
+
+	act 'Call the director.':
+		cla
+		*clr
+		set minut += 30
+		clr
+		gs 'statPRE'
+		'<center><img src="images/picPRE/otelPRE1.jpg"></center>'
+		'You dialed the number of Roman Vsevolodovicha and after a few rings, he responded. You said that under some sort of foundation pit ancient tomb, bones, what - what vessels, scrolls. Director pokumekali a little while and decided to stop the construction. He instructed while you stay, watch and wait for further instructions.'
+
+		act 'Go to bed.':
+			cla
+			*clr
+			set minut += 600
+			clr
+			gs 'statPRE'
+			'<center><img src="images/picPRE/otelPRE1.jpg"></center>'
+			'You lay on the bed and fell asleep. You dream of as vidili amulet what that force was a ghost and gives you than what unimaginable. You vidili moon his bloody eye looks at the world and people see the world not as it is. Suddenly, in a dream, you feel that the room who that is.'
+
+			act 'Open your eyes.':
+				cla
+				*clr
+				set minut += 5
+				clr
+				gs 'statPRE'
+				'<center><img src="images/picPRE/tobiPRE.jpg"></center>'
+				'Opening his eyes, you will see a black figure beside him. A man in a long black coat with an orange mask on the face in which there was only one hole for the eyes. A man came up to you and asked, "Where is the statue?"'
+
+				act 'Who are you?':
+					cla
+					*clr
+					set minut += 5
+					clr
+					gs 'statPRE'
+					'<center><img src="images/picPRE/tobiPRE.jpg"></center>'
+					'"Who are you?" you asked puzzled. "Listen, man, do not look for problems currently on level ground, give the statue and close construction. This place belongs to us." stranger said in a firm voice.'
+					'You´re thinking, who is this, and what it all means. "I see no small show of force, we do not reach an agreement." the man said, and at this point you feel as if you saw a stranger through and felt a burning desire to give him a statue.'
+
+					act 'Give him a statue':
+						cla
+						*clr
+						set minut += 5
+						clr
+						gs 'statPRE'
+						'<center><img src="images/picPRE/otelPRE1.jpg"></center>'
+						'You got out of bed and gave him a statue. The man picked it up, turned around and then his eyes like a whirlwind formed tightening it in your eyes the same as in the funnel. A few seconds and the man disappeared. You rubbed his eyes, "what the hell is going on here. Do I have dreamed it. No, I do not like a lunatic that would walk around the room in a dream, and the statue was gone." you pondered.'
+						'At this point, knock on the door. You came to the door and asked who was there. A woman´s voice from behind the door you said that the hotel receptionist and she wants to talk to you on an urgent matter.'
+
+						act 'Answer the door':
+							cla
+							*clr
+							set minut += 5
+							clr
+							gs 'statPRE'
+							'<center><img src="images/picPRE/karinPRE.jpg"></center>'
+							'You opened the door and entered the room not much confident step woman with red hair and glasses. She walked into the room quickly examined the situation and finally stopped his eyes on you.'
+							'"Michael? Correctly I suppose?" You nodded. "Last night you found what the place and took out something very valuable and powerful." said the girl stroking your eyes.'
+
+							act 'Listen, comrade came here already on this issue.':
+								cla
+								*clr
+								set minut += 5
+								clr
+								gs 'statPRE'
+								'<center><img src="images/picPRE/karinPRE.jpg"></center>'
+								'You embraced a mild irritation that these idiots can not even agree among themselves who come and take away the statue? So you girl blurted, "Listen, you have already started to bother me. That one will come with this damn statue, another administrator as well."'
+								'She looked at you with surprise. How? I had already come up to someone? Who was it?'
+
+								act 'Share':
+									cla
+									*clr
+									set minut += 5
+									clr
+									gs 'statPRE'
+									'<center><img src="images/picPRE/karinPRE.jpg"></center>'
+									'"What is a man in a black cloak with red clouds and orange mask with one hole for the eyes. He already took the statue." you answered.'
+									'Girl´s face fell. "Curse. Ahead. Okay Michael, we will continue in another place. Juugo, Vyazhi it." said the girl at the door.'
+									'Came into the room a tall man.'
+
+									act 'Prepare to fight':
+										cla
+										*clr
+										set minut += 5
+										clr
+										gs 'statPRE'
+										'<center><img src="images/picPRE/jugoPRE.jpg"></center>'
+										'The man across the right side of his face was visible tattoo. Red hair stood on end.'
+										set $nameV = 'Juugo'
+										!!stats
+										set strenV = 600
+										set speedV = 60
+										set agilV = 60
+										set reactV = 50
+										set vitalV = 200
+										set intelV = 50
+										set willV = 50
+										!!skills
+										set magikV = 100
+										set boxingV = 100
+										set shootV = 100
+										!!parameters
+										set healthV = vitalV * 10 + strenV * 5
+										set mannaV = intelV * 10 + magikV * 10
+										set willpowerV = willV * 10
+										set BonusAtakV = 0
+										set BonusDefV = 0
+										!!Programme of Action
+										set program = 0
+										set jugoFight = 1
+
+										act 'Fight':gt 'fight', 'start'
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+--- otelPRE ---------------------------------

+ 0 - 99
locations/040_roomPRE

@@ -1,99 +0,0 @@
-# roomPRE
-'<center><B><font color = maroon>Apartment</font></B></center>'
-'<center><img src="images\picPRE\room.jpg"></center>'
-clr
-gs 'statPRE'
-fcolor = rgb(0,0,0)
-bcolor = rgb(255,255,255)
-LCOLOR = rgb(106,90,205)
-
-
-if pre = 0:
-set pre = 1
-'Alarm rang. Wife Luda sluggishly rolled over. Habitual movement you have it turned off. God, how can you not want to work. Okay, enough rassusolivat.'
-	act 'Go to the bathroom':
-	cla
-	*clr
-	set minut += 30
-	clr
-	gs 'statPRE'
-	'<center><img src="images\picPRE\self.jpg"></center>'
-	'Quietly, that would not wake up daughter, you have gone to the bathroom and began to brush up.'
-		act 'Leave the apartment':
-		cla
-		*clr
-		set minut += 5
-		clr
-		gs 'statPRE'
-		'<center><img src="images\picPRE\carPRE1.jpg"></center>'
-		'In the parking lot near the house was your car. You went to her and pressed a button on the key fob opening the central locking and removing the alarm.'
-		act 'Go to work':
-			cla
-			*clr
-			set minut += 25
-			clr
-		gs 'statPRE'
-		'<center><img src="images\picPRE\carPRE.jpg"></center>'
-		'You got behind the wheel, started the car and drove to work. On the road, as was always going to jam you and dragged themselves on something like a traffic jam to the office.'
-			act 'Park at the office':
-				cla
-				*clr
-				set minut += 60
-				clr
-				gs 'statPRE'
-				'<center><img src="images\picPRE\officePRE.jpg"></center>'
-				'You put the car to the parking lot near the office and went into the building. Greeted with a security guard and went upstairs to his office.'
-				'To you the director´s secretary came and brought you travel documents. You looked at her. "Did I go to business trip?" you asked. "Probably yes. Vsyevolodovitch ears stands in the morning, what that PE in the construction industry. More I do not know." Oksana said. You have prepared travel documents, now we have to sign the director.'
-					act 'By Director':
-					cla
-					*clr
-					set minut += 20
-					clr
-					gs 'statPRE'
-					'<center><img src="images\picPRE\man.jpg"></center>'
-					'Going to the office of the Director, you greeted him and submitting papers to sign sat in the chair. Roman Gromov ran the text and paper podmahnul wide authoritative stroke.'
-					'"Glavbukh probably already in place, go get travel. While I make a few calls, and then come back to me, discuss your trip." director said thoughtfully.'
-						act 'Go to the chief accountant for travel.':
-						cla
-						*clr
-						set minut += 30
-						set money += 15000
-						clr
-						gs 'statPRE'
-						'<center><img src="images\picPRE\glavbuh.jpg"></center>'
-						'Marina was already in his office, you have filed her application, she grumbled a bit, but has given you money. Did you get their names in the statements, and came out of her office.'
-							act 'Go to the director.':
-							cla
-							*clr
-							set minut += 15
-							clr
-							gs 'statPRE'
-							'<center><img src="images\picPRE\man.jpg"></center>'
-							'When you entered the director Roman Gromov gestured you to a chair, and he continued to talk on the phone.'
-							'"Yes, I understand. Utryasem Once all the questions so I will immediately send you Michael, my deputy. Tell workers that they output. Igor, set a guard at the pit and let no one there no fuss, take care that would nobody got wind, you know, may prohibit the construction and this can not be allowed. Okay, let´s be engaged. " Roman hung up.'
-							'He turned and spoke to you. "Tonight, during operations in the pit at our complex construction workers stumbled upon what that space. Backhoe struck the wall there. Okay Igor was close by and realized stop the excavations. Damn, is not clear on what we would encounter. Maybe abandoned bunker or something . But in any case there is any voids under pits and further construction of the complex may not be possible. So what you need as quickly as possible to go to the construction site. Understand that there´s what. Zanochuesh in hotel. general, solve itself, according to circumstances. "'
-								act 'I should at least meet.':
-								cla
-								*clr
-								set minut += 5
-								clr
-								gs 'statPRE'
-								'<center><img src="images\picPRE\man.jpg"></center>'
-								'"I though we should get" had begun to pull you bagpipes, but the director interrupted you. "Michael, do not you catch up? We scored credits on the ears on this construction, we still have not even agreed on a construction project, and we dig a pit. You understand, moreover, that if a foundation pit of emptiness, we can not continue to build and find ourselves on the brink of ruin, so we can still what important object destroyed while still on trial zagremit. situation must be addressed urgently. This force majeure. I have to be here to catch in which case someone should grease the time, so you go . "'
-								act 'Okay, then I will not waste any more time.': gt 'roadPRE'
-								end
-
-							end
-
-						end
-
-					end
-
-				end
-		end
-
-		end
-	end
-end
---- roomPRE ---------------------------------
-

+ 101 - 0
locations/041_karinPRE

@@ -0,0 +1,101 @@
+# karinPRE
+'<center><img src="images/picPRE/karinPRE.jpg"></center>'
+set minut += 120
+clr
+gs 'statPRE'
+fcolor = rgb(0, 0, 0)
+bcolor = rgb(255, 255, 255)
+lcolor = rgb(106, 90, 205)
+'You woke up in what is not a familiar place, standing near you is the same red-haired girl. "And woke up. I told this jerk Juugo that he would have treated you more careful. But does he listen to you. As a result, I had you pull from the world, he almost did not kill you."'
+'"But there are pros, while you lay unconscious, I researched a little you. Amulet of Power passed to you. As you pull it out have no idea. This way bad news for you. Toby, well, that guy in the mask. He ''ve probably realized that the amulet worked and gave his power and now he´s looking for you. "'
+set nudity = 0
+
+act 'What´s going on?':
+	cla
+	*clr
+
+	set minut += 5
+	clr
+	gs 'statPRE'
+	'<center><img src="images/picPRE/karinPRE.jpg"></center>'
+	'"What´s all the hell´s going on?" you interrupted the girl and tried to move his hand, but you were tied to the bed.'
+	'"Um, okay, I´ll start from the beginning." said the girl. "Magic exists and is real. Earlier the world was not the same range were magicians and this can not be a surprise to anyone. Day when everything changed. Order of Dawn, whose head came to see you in person. That masked man named Toby. So this award captured several demons and use their power zakolodoval moon. Now the whole world lives in illusions moon and sends Toby directly. Someone may rebel by illusion, but it is powerful mages, but most of the world has simply forgotten about magic and went to live in an illusory world, which they believe only a reality. "'
+	'"Recently there was a powerful burst of magical energy, which even caused a malfunction Tsukuemi. Tsukuemi so called spell of illusion imposed on the moon. How can you guess magicians felt this surge. He walked out of that cave you found. Apparently surge occurred in the time of activation amulet. Who is this amulet hunting began. Mages of all stripes are looking for such a thing mad force capable disrupt Tsukuemi.'
+	'As you know, Toby wants to protect your order from destruction Tsukuemi. And perhaps due to the force of the amulet to strengthen it. Tsukuemi weakens over time. "'
+
+	act 'The whole world is an illusion Corrupts this Toby?':
+		cla
+		*clr
+		set minut += 5
+		clr
+		gs 'statPRE'
+		'<center><img src="images/picPRE/karinPRE.jpg"></center>'
+		'"The whole world is an illusion that Toby sent down?" you asked. The girl nodded. "Yes. But only an illusion specific. Around all quite material. Magical nature only has escaped the attention of the person. Machines, apartments, television and the Internet, all this really does exist and is in the form in which people see it. But if I say, hurl a fireball, then people will see how I threw a grenade or shot from a flamethrower. Once the human mind meets miracle triggered Tsukuemi and begins to affect the mind, forbidding him to perceive how the miracle miracle, hence any little green men, UFOs, poltergeists, samovozgaraniya, mind on the impact Tsukuemi forced to look for exits in the form of all rave at the sight of a miracle, if the mind can not cope with the influence Tsukuemi, then the person can go crazy and then no one would believe him. "'
+
+		act 'And who are you?':
+			cla
+			*clr
+			set minut += 5
+			clr
+			gs 'statPRE'
+			'<center><img src="images/picPRE/karinPRE.jpg"></center>'
+			'"And who are you?" you asked. The girl smiled. "I? I Karin. Mag, but certainly not a magician Toby. More I specialize in the treatment of, for mutations, changes in the body. I have little combat techniques, so that would certainly grab you, I used the services of Juugo. Mutant He, his mutation caused by the magical nature. His terrible physical strength which is very hard to resist. It can bear fists goal. But this power, combined with the effects Tsukuemi driving him crazy. We cooperate with it, I keep it in a state of sanity, and it performs my orders. "'
+
+			act 'Why do you need?':
+				cla
+				*clr
+				set minut += 5
+				clr
+				gs 'statPRE'
+				'<center><img src="images/picPRE/karinPRE.jpg"></center>'
+				'"Why do you need me?" you asked. The girl replied. "Hmm, obviously mine. When I lock you, I was hoping to get this effect. But now the situation has changed. Amulet vobschem became useless. Power passed to you. But it´s bad news for you. If you think that once you force amulet, so you can do anything. Figa with two. Naked without the ability to force anything. Toby and easily beat your will and forced to obey, and Juugo beat you like a puppy. Not so simple with this force. You yourself become amulet in force contained but you use it you can not do. "'
+
+				act 'What is this amulet? Where did he come from?':
+					cla
+					*clr
+					set minut += 5
+					clr
+					gs 'statPRE'
+					'<center><img src="images/picPRE/karinPRE.jpg"></center>'
+					'"And what is this amulet? Where did he come from?" you asked. Karin thought. "Most likely this is what is the trick Rikudo, the ancient magician stunning force. I do not know precisely. Similarly only know that the amulet was created in a special way, he could give his force only one in whom there is no magic. And he could give effect only man. Rather it was what that amulet Rikudo for emergency restoration force at the time when she had finished.'
+					'You know, you´re already dead. In your footsteps is Toby and his gang of thugs and bastards. When he finds you, he will turn you inside out, but you would get out of force. Apply your strength in the form in which it exists is the same as a call Toby and tell you where nahodishsya. Tsukuemi on you can no longer act, so you probably saw Toby moves. Times, and he was there where he wanted, convenient and fast. "'
+					'Karin thought. "You know. I do not want to give you Toby. And I think I know how to bring down the trail this bloodhound. Rikudo Power only works if it is in a man´s body. You´re a man and she works there, regardless of your will. Enormous effort I should destroy and dispel traces of this force that would hide our place position. "'
+
+					act 'Uh, I do not understand, what do you suggest?':
+						cla
+						*clr
+						set minut += 5
+						clr
+						gs 'statPRE'
+						'<center><img src="images/picPRE/karinPRE.jpg"></center>'
+						'"Uh, I do not understand, what do you suggest?" you asked. Karin giggled. "I´ll make you a pretty, young girl and Toby never find you. Well, no, there is another way, I´m just going to stop your heart and your strength will dissolve in nature, and you will die. Toby Giving you I´m not going. And admit killing you do not want. Maybe with time udastsja something sensible to do with your strength. "'
+
+						act 'Hey, I do not want to be a woman, then I have a family, wife, daughter.':
+							cla
+							*clr
+							set minut += 5
+							clr
+							gs 'statPRE'
+							'<center><img src="images/picPRE/karinPRE.jpg"></center>'
+							'"Hey, I do not want to be a woman, then I have a family, wife, daughter, " you are afraid. Karin smiled sadly. "Here the choice is simple, either you die or you live without a penis. Never understood men, so that they are shaking their rattles around. During his family not to worry. I´ll arrange everything. You will be dead for all the tragedy, but what to do, but Toby unhooked. I´ll erase your memory of the family, will be only the ghostly memories, you can not even remember where you zhil.Tselikom erase the memory I will not leave you in prevratishsya useless vegetable. "'
+
+							act 'There must be another way!':
+								cla
+								*clr
+								set minut += 5
+								clr
+								gs 'statPRE'
+								'<center><img src="images/picPRE/karinPRE.jpg"></center>'
+								'"There must be another way!" you panicked. Karin became serious. "Do not argue. But is the only way available to me. Now go to sleep." said Karin putting your hand on his chest.'
+
+								act 'Sleep':gt 'sleepPRE'
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+--- karinPRE ---------------------------------

+ 0 - 113
locations/041_roadPRE

@@ -1,113 +0,0 @@
-# roadPRE
-'<center><img src="images\picPRE\carPRE.jpg"></center>'
-set minut += 5
-clr
-gs 'statPRE'
-fcolor = rgb(0,0,0)
-bcolor = rgb(255,255,255)
-LCOLOR = rgb(106,90,205)
-'Once in the car you will immediately dial the phone your wife Luda. Explained the situation to her and finished the conversation went to the construction of the complex.'
-
-act 'Ride.':
-cla
-*clr
-set minut += 500
-clr
-gs 'statPRE'
-'<center><img src="images\picPRE\kotPRE.jpg"></center>'
-'You´ve been traveling on the highway and tired, but before the rest in a hotel, you need to visit the pit. So you come to the site. Igor called and he said to run you protection on the scene.'
-'Putting the car you saw that coming to you, Igor.'
-	act 'Say hello to Igor.':
-	cla
-	*clr
-	set minut += 15
-	clr
-	gs 'statPRE'
-	'<center><img src="images\picPRE\igor.jpg"></center>'
-	'You are greeted with Igor. He was obviously concerned about the situation and so without much delay led you to the enclosure in the pit, around which hovered dejectedly guard.'
-	'"I made a staircase that would descend into the break. Air there, I already checked threw a burning piece of paper. It´s not like a bunker or a natural cave, but rather what that ancient catacombs." said Igor until you waded through the mud to failure.'
-	'You came to the hole in the ground and looked back. Floor-five meters, you thought. "Vidisha Michael seems certainly to a natural cave, but it´s not too pravilnae form. Well, go down?" said Igor.'
-		act 'Descend.':
-		cla
-		*clr
-		set minut += 15
-		clr
-		gs 'statPRE'
-		'<center><img src="images\picPRE\dunPRE.jpg"></center>'
-		'You took a powerful torch Igor until the guard lowered a staircase in failure. Igor then first started down there. Behind him, you went down on an aluminum ladder into the cave.'
-		'The cave musty and gloomy, but you can breathe and not bad lantern illuminates the walls. You sent a beam into the corridor and saw in the distance something like a door.'
-		'"Damn. Now just any historians ponabegut here with your stupid research." Igor muttered.'
-		'You came to the door and saw her what that drawings like characters.'
-			act 'Open the door.':
-			cla
-			*clr
-			set minut += 15
-			clr
-			gs 'statPRE'
-			'<center><img src="images\picPRE\dunPRE1.jpg"></center>'
-			'Leaning against the door you managed to open it. "Your mother. Mish, look here. This same human bones." Igor said nervously.'
-			'Looking around that a lot of which poked his finger Igor you are convinced that it is really a bunch of bones and skull on top. "Tomb, I suppose." Igor muttered looking bone.'
-				act 'Go further.':
-				cla
-				*clr
-				set minut += 15
-				clr
-				gs 'statPRE'
-				'<center><img src="images\picPRE\dunPRE2.jpg"></center>'
-				'Going further, you have found a dilapidated gallery. In the gallery walls were stone recess in which lay the dusty scrolls of something resembling pergamet.'
-				'Igor took one of the rolls and spread it. "The hell it is not clear what that cuneiform. Ka I´ll take with me, what I find something special on ancient languages, even decipher" said Igor'
-				'Have you noticed a door in the wall and opened it.'
-					act 'Enter the room.':
-					cla
-					*clr
-					set minut += 15
-					clr
-					gs 'statPRE'
-					'<center><img src="images\picPRE\dunPRE3.jpg"></center>'
-					'The room on the stone dais in the center stood a variety of vessels. You have come to see them trying to figure out what exactly is you came.'
-					'Looking at the room you notice a strange little sculpture standing at the top of the stone elevations with vessels.'
-						act 'Mark sculpture.':
-						cla
-						*clr
-						set energy = 21
-						set water = 21
-						set son = 21
-						set minut += 15
-						set magik = 1
-						set manna = (intel * magik) + vital * 5
-						clr
-						gs 'statPRE'
-						'<center><img src="images\picPRE\amuletPRE.jpg"></center>'
-						'You picked up a strange sculpture and began to examine her. This is clearly something very ancient. Holding the amulet, you realize that it´s warm, almost hot and instinctively felt like some sort of strange power comes into you.'
-						'You feel a surge of strength. As if there was a long road. Do you even have a drink and did not want to.'
-						'Igor entered the room holding a piece of parchment. "Hmm. Interesting little room. On what is not clear, we came. And most importantly, what we do with this find. Whether destroy and build complex, or public."'
-							act 'You´ve got to think and consult with the chief.':
-							cla
-							*clr
-							set minut += 15
-							clr
-							gs 'statPRE'
-							'<center><img src="images\picPRE\dunPRE3.jpg"></center>'
-							'"You´ve got to think and consult with the chief." you said thrusting a strange amulet in his pocket.'
-							'"Well, here´s for sure you can not call the boss, let´s get out of this crypt." Igor said grimly.'
-								act 'Come to the surface.':
-								cla
-								*clr
-								set minut += 15
-								clr
-								gs 'statPRE'
-								'<center><img src="images\picPRE\kotPRE.jpg"></center>'
-								'You got together with Igor and climbed up ladders to the surface. Igor said, "It´s late, go to the hotel. Sozvonishsya there and with Vsyevolodovitch."'
-								act 'Go to the hotel.': gt 'otelPRE'
-								end
-							end
-						end
-
-					end
-				end
-			end
-		end
-	end
-end
---- roadPRE ---------------------------------
-

+ 0 - 133
locations/042_otelPRE

@@ -1,133 +0,0 @@
-# otelPRE
-'<center><img src="images\picPRE\otelPRE.jpg"></center>'
-set minut += 30
-clr
-gs 'statPRE'
-fcolor = rgb(0,0,0)
-bcolor = rgb(255,255,255)
-LCOLOR = rgb(106,90,205)
-set money -= 3000
-'You uneventful found sparkling lights Hotels and putting the car went to the bar to get a room.'
-'Availability in a hotel was only a double room you have paid in full, what would you have settled inadvertently nobody.'
-
-act 'Up to the room.':
-cla
-*clr
-set minut += 5
-clr
-gs 'statPRE'
-'<center><img src="images\picPRE\otelPRE1.jpg"></center>'
-'You lay on the bed. They began to speculate on what happened. And what a mysterious amulet you find there. After it you feel just wonderful.'
-	act 'Call the director.':
-	cla
-	*clr
-	set minut += 30
-	clr
-	gs 'statPRE'
-	'<center><img src="images\picPRE\otelPRE1.jpg"></center>'
-	'You dialed the number of Roman Vsevolodovicha and after a few rings, he responded. You said that under some sort of foundation pit ancient tomb, bones, what - what vessels, scrolls. Director pokumekali a little while and decided to stop the construction. He instructed while you stay, watch and wait for further instructions.'
-		act 'Go to bed.':
-		cla
-		*clr
-		set minut += 600
-		clr
-		gs 'statPRE'
-		'<center><img src="images\picPRE\otelPRE1.jpg"></center>'
-		'You lay on the bed and fell asleep. You dream of as vidili amulet what that force was a ghost and gives you than what unimaginable. You vidili moon his bloody eye looks at the world and people see the world not as it is. Suddenly, in a dream, you feel that the room who that is.'
-			act 'Open your eyes.':
-			cla
-			*clr
-			set minut += 5
-			clr
-			gs 'statPRE'
-			'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
-			'Opening his eyes, you will see a black figure beside him. A man in a long black coat with an orange mask on the face in which there was only one hole for the eyes. A man came up to you and asked, "Where is the statue?"'
-				act 'Who are you?':
-				cla
-				*clr
-				set minut += 5
-				clr
-				gs 'statPRE'
-				'<center><img src="images\picPRE\tobiPRE.jpg"></center>'
-				'"Who are you?" you asked puzzled. "Listen, man, do not look for problems currently on level ground, give the statue and close construction. This place belongs to us." stranger said in a firm voice.'
-				'You´re thinking, who is this, and what it all means. "I see no small show of force, we do not reach an agreement." the man said, and at this point you feel as if you saw a stranger through and felt a burning desire to give him a statue.'
-					act 'Give him a statue':
-					cla
-					*clr
-					set minut += 5
-					clr
-					gs 'statPRE'
-					'<center><img src="images\picPRE\otelPRE1.jpg"></center>'
-					'You got out of bed and gave him a statue. The man picked it up, turned around and then his eyes like a whirlwind formed tightening it in your eyes the same as in the funnel. A few seconds and the man disappeared. You rubbed his eyes, "what the hell is going on here. Do I have dreamed it. No, I do not like a lunatic that would walk around the room in a dream, and the statue was gone." you pondered.'
-					'At this point, knock on the door. You came to the door and asked who was there. A woman´s voice from behind the door you said that the hotel receptionist and she wants to talk to you on an urgent matter.'
-						act 'Answer the door':
-						cla
-						*clr
-						set minut += 5
-						clr
-						gs 'statPRE'
-						'<center><img src="images\picPRE\karinPRE.jpg"></center>'
-						'You opened the door and entered the room not much confident step woman with red hair and glasses. She walked into the room quickly examined the situation and finally stopped his eyes on you.'
-						'"Michael? Correctly I suppose?" You nodded. "Last night you found what the place and took out something very valuable and powerful." said the girl stroking your eyes.'
-							act 'Listen, comrade came here already on this issue.':
-							cla
-							*clr
-							set minut += 5
-							clr
-							gs 'statPRE'
-							'<center><img src="images\picPRE\karinPRE.jpg"></center>'
-							'You embraced a mild irritation that these idiots can not even agree among themselves who come and take away the statue? So you girl blurted, "Listen, you have already started to bother me. That one will come with this damn statue, another administrator as well."'
-							'She looked at you with surprise. How? I had already come up to someone? Who was it?'
-								act 'Share':
-								cla
-								*clr
-								set minut += 5
-								clr
-								gs 'statPRE'
-								'<center><img src="images\picPRE\karinPRE.jpg"></center>'
-								'"What is a man in a black cloak with red clouds and orange mask with one hole for the eyes. He already took the statue." you answered.'
-								'Girl´s face fell. "Curse. Ahead. Okay Michael, we will continue in another place. Juugo, Vyazhi it." said the girl at the door.'
-								'Came into the room a tall man.'
-									act 'Prepare to fight':
-									cla
-									*clr
-									set minut += 5
-									clr
-									gs 'statPRE'
-									'<center><img src="images\picPRE\jugoPRE.jpg"></center>'
-									'The man across the right side of his face was visible tattoo. Red hair stood on end.'
-									set $nameV = 'Juugo'
-									!Статы
-									set strenV = 600
-									set speedV = 60
-									set agilV = 60
-									set reactV = 50
-									set vitalV = 200
-									set intelV = 50
-									set willV = 50
-									!Навыки
-									set magikV = 100
-									set boxingV = 100
-									set shootV = 100
-									!Параметры
-									set healthV = vitalV * 10 + strenV * 5
-									set mannaV = intelV * 10 + magikV * 10
-									set willpowerV = willV * 10
-									set BonusAtakV = 0
-									set BonusDefV = 0
-									!программа действий
-									set program = 0
-									set jugoFight = 1
-									act 'Fight': gt 'fight','start'
-									end
-								end
-							end
-						end
-					end
-				end
-			end
-		end
-	end
-end
---- otelPRE ---------------------------------
-

+ 146 - 0
locations/042_sleepPRE

@@ -0,0 +1,146 @@
+# sleepPRE
+'<center><img src="images/picPRE/karinPRE.jpg"></center>'
+set minut += 120
+set day += 1
+set week += 1
+!!clr
+!!gs 'stat'
+killobj
+fcolor = rgb(0, 0, 0)
+bcolor = rgb(255, 255, 255)
+lcolor = rgb(106, 90, 205)
+set $name = 'Svetlana'
+set $surname = 'Lebedev'
+!!!0.2.6 addition
+set $nickname = 'Svetski'
+!!!
+set age = 18
+set vidage = 16
+set year = 2010
+!!set month = 6
+!!set week = 5
+!!set hour = 8
+!!Body
+set rost = 170
+set fat = 60
+set salo = 60
+set dick = 0
+set energy = 15
+set water = 15
+set 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
+
+!!!!!!!!!!!!!! Maruda Hair Mod
+set hairlength = 17
+set hcol = 1
+!!!!!!!!!!!!!! Maruda Hair Mod
+
+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
+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
+set $nude = 'In the corridor'
+clr
+gs 'stat'
+'"You´re awake? Rather woke up." Karin said looking into your eyes.'
+
+act 'Look at yourself':
+	cla
+	*clr
+	set minut += 5
+	clr
+	gs 'stat'
+	'<center><img src="images/picPRE/povPRE.jpg"></center>'
+	'"Fuck, " you said and shut his mouth. Voice was too feminine. Karin giggled. "The first time I changed the gender of the person. Therefore waited with curiosity how you´d react to his new body. Masterpiece. Course in something I miscalculated, for example due to sharply increased hormonal status you went pimples on the face. Failed to change the eyes and lips, but your body will be much easier to change than the body of an ordinary woman, you will be easier to gain weight, lose weight, can change facial features. Nothing, you live now in the women´s clothing. Yes, you are quite normal woman, you can fly. "'
+	'You angrily looked at Karin, "You think I´m here and so turned into a woman and immediately ran to find eldu which can jump? I´m still the same old tridtsatipyati man."'
+	'"Well, yes. Do not argue." Karin agreed. "Actually, it´s your life and only you decide what to do with it. Yeah, I already took care of alibi. Today you in his car fell into the pit and died, now just on the TV show." With these words, Karin pressed a button on the remote and the TV has earned.'
+	set $name = input("What is your first name?")
+
+	if $name = '':set $name = 'Svetlana'
+
+	set $surname = input("What is your last name?")
+
+	if $surname = '':set $surname = 'Lebedev'
+
+	!!!0.2.6 addition
+	set $nickname = input("What is your nickname?")
+
+	if $nickname = '':set $nickname = 'Svetski'
+	!!!
+
+	act 'Watch TV':
+		cla
+		*clr
+		set minut += 5
+		clr
+		gs 'stat'
+		'<center><img src="images/picPRE/car2.jpg"></center>'
+		'On TV is reporting that as a businessman who arrived on a mission yesterday afternoon breaking the fence fell into the pit. Businessman died in hospital without regaining consciousness.'
+		'You dumbfounded looked at Karin. She smiled enigmatically, "Well, I still magician and something that I can. Toby Now even lose track forever. Whoever killed in BMW, at the time of death was perfect your copy of Energy and to fillings in his teeth. Yeah, here´s the documents on apartment, passport, passport. Now you <<$name>> <<$surname>>, 18 years old girl in the city nobody knows you, but you at least have an apartment in the property. This is a gift to you from Juugo. Now get up, you´ve got to go to his new home and equip a new life. "'
+		'Entered the room Juugo redhead with a tattoo on his face. He looked at you and said, "I´ll take you."'
+
+		act 'Go with Juugo':
+			cla
+			*clr
+			set minut += 5
+			clr
+			gs 'stat'
+			'<center><img src="images/picPRE/jugoPRE.jpg"></center>'
+			'Juugo silently carried you to the garage and there you sat in a huge black jeep. Juugo sat behind the wheel and raced around the track. You silently speculated about what you do now.'
+			'Juugo is not looking at you said. "I´m sorry I beat you so much. I can not control himself during a fight. You were a little grow larger and for a second I thought you might be dangerous for me, so I hit with full force." You looked at him. "Forget it, listen Juugo that I do now?" Juugo nodded and said, "Well, I would advise you to start to buy food at the store, all sorts of washing powders, detergents, dish and laundry. The apartment has a little something of course, but not enough. There´s even no TV. Then get a job. Podaleku not from your house there is a restaurant, she works with 12, every day except Monday. approach a master, he will take the job for you, it just requires a waitress. Do not forget to monitor the health status, mood and mind. Now your mind is very weak, you can not survive and go crazy. You need to eat well, sleep regularly, have fun, do not generally become despondent, but then ended his days in a madhouse. Karin We do not seek, you will not find in the first place, and secondly, if you give us need you, we ourselves will find you. "'
+			'You arrived at the five-story home Khrushchev era buildings. Juugo stopped the car and pointed a finger at the entrance. "Your apartment number 69, are the key. Go. Thing to remember is you it´s not unusual, but not give up, keep an eye on the health and life will improve. How ever I look in on you."'
+
+			act 'Out of the car':
+				cla
+				set opPRE = 0
+				set daystart = 0
+				addobj 'Character'
+				addobj 'See'
+				addobj 'Others'
+				gt 'street'
+			end
+		end
+	end
+end
+
+--- sleepPRE ---------------------------------

+ 349 - 0
locations/043_fight

@@ -0,0 +1,349 @@
+# fight
+if $ARGS[0] = 'start':
+	cla
+	inFight = 1
+	fcolor = rgb(0, 0, 0)
+	bcolor = rgb(255, 255, 255)
+	lcolor = rgb(106, 90, 205)
+	gs 'defence'
+	gs 'statBat'
+
+	if SasoriBody > 2 and healthV <= 0 or SasoriBody > 2 and mannaV <= 0 or SasoriBody > 2 and willpowerV <= 0:
+		set SasoriBody -= 1
+		gs 'priziv', 'sasori'
+		'<b><font color="red">Doll crumbled into parts, and immediately entered into battle other doll Sasori.</font></b>'
+		'<b><font color="red">You´ve heard the sonorous voice Sasori "I have a lot of dolls, you can not win."</font></b>'
+	end
+
+	if SasoriBody = 2 and healthV <= 0 or SasoriBody = 2 and mannaV <= 0 or SasoriBody = 2 and willpowerV <= 0:
+		set SasoriBody -= 1
+		gs 'priziv', 'sasori1'
+		'<b><font color="red">Last doll crumbled into pieces and entered the fight Sasori himself.</font></b>'
+	end
+
+	if stunV > 0 and SasoriBody > 1:
+		set stunV = 0
+		'<b><font color="red">Doll began to move again.</font></b>'
+	end
+
+	if stunV > 0 and SasoriBody = 1:
+		set stunV = 0
+		'<b><font color="red">again moves Sasori.</font></b>'
+	end
+
+	if GedoMazo = 1 and healthV <= 0 or GedoMazo = 1 and mannaV <= 0 or GedoMazo = 1 and willpowerV <= 0:
+		set GedoMazo = 2
+		set barierV = 0
+		'<b><font color="green"><<$nameV>> fell to the ground turning into ashes</font></b>'
+		gs 'priziv', 'tobi'
+		'<b><font color="green"><<$nameV>> attacked you</font></b>'
+	end
+
+	if health <= 0 and heart = 0 and izanagi = 0:
+		'<b><font color="red">you lose</font></b>'
+		xgt 'ender', 'loss'
+		exit
+	end
+
+	if healthV <= 0 and heartV = 0 and izanagiV = 0:
+		'<b><font color="green"><<$nameV>> lost</font></b>'
+		xgt 'ender', 'win'
+		exit
+	end
+
+	if manna <= 0 and heart = 0 and izanagi = 0:
+		'<b><font color="red">you lose</font></b>'
+		xgt 'ender', 'loss'
+		exit
+	end
+
+	if mannaV <= 0 and heartV = 0 and izanagiV = 0:
+		'<b><font color="green"><<$nameV>> lost</font></b>'
+		xgt 'ender', 'win'
+		exit
+	end
+
+	if willpower <= 0 and heart = 0 and izanagi = 0:
+		'<b><font color="red">you lose</font></b>'
+		xgt 'ender', 'loss'
+		exit
+	end
+
+	if willpowerV <= 0 and heartV = 0 and izanagiV = 0:
+		'<b><font color="green"><<$nameV>> lost</font></b>'
+		xgt 'ender', 'win'
+		exit
+	end
+
+	if izanagiV > 0 and healthV <= 0 or izanagiV > 0 and mannaV <= 0 or izanagiV > 0 and willpowerV <= 0:
+		set izanagiV -= 1
+		'<b><font color="red"><<$nameV>> simply disappeared</font></b>'
+		set healthV = vitalV * 10 + strenV * 5
+		set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
+		set willpowerV = willV * 10
+		set stunV = 0
+
+		if program = 6 and izanagiOnce = 0:set izanagiOnce = 1 & set unmaterialV = 40 & set tobizanagi = 0
+
+		'<b><font color="red"><<$nameV>> was in front of you completely healthy. He folded his hands and Arcanum said Izanagi - perfect illusion.</font></b>'
+		'<b><font color="red">One of his eyes closed for ever, paying for it with a spell.</font></b>'
+	end
+
+	if heartV > 0 and healthV <= 0 or heartV > 0 and mannaV <= 0 or heartV > 0 and willpowerV <= 0:
+		set heartV -= 1
+		'<b><font color="red"><<$nameV>> staggered and his heart burst</font></b>'
+		set healthV = vitalV * 10 + strenV * 5
+		set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
+		set willpowerV = willV * 10
+		set stunV = 0
+		'<b><font color="red"><<$nameV>> stood up and rushed into the fray. He has run another heart.</font></b>'
+	end
+
+	if izanagi > 0 and health <= 0 or izanagi > 0 and manna <= 0 or izanagi > 0 and willpower <= 0:
+		set izanagi -= 1
+		'<b><font color="green">You are gone</font></b>'
+		set health = vital * 10 + stren * 5
+		set willpower = intel * 5 + will * 5
+		set manna = intel * magik + magik * 100 + vital * 10 + rikudo
+		set stun = 0
+		set zerkaloV = 0
+		set poisonV = 0
+		set bloodV = 0
+		'<b><font color="green">Immediately before the enemy appeared completely healthy.</font></b>'
+	end
+
+	if heart > 0 and health <= 0 or heart > 0 and manna <= 0 or heart > 0 and willpower <= 0:
+		set heart -= 1
+		set zerkaloV = 0
+		set poisonV = 0
+		set bloodV = 0
+		'<b><font color="green">Your heart gave out and snapped.</font></b>'
+		set health = vital * 10 + stren * 5
+		set willpower = intel * 5 + will * 5
+		set manna = intel * magik + magik * 100 + vital * 10 + rikudo
+		set stun = 0
+		'<b><font color="green">You´re not dead, you run another heart.</font></b>'
+	end
+
+	gs 'before'
+	'<b>==========================================================</b>'
+	'<b>======================== (ROUND <<round>>) ===========================</b>'
+	'<b>==========================================================</b>'
+	'<b><<$nameV>></b> Life <b><font color="red"><<healthV>></font></b>, manna <b><font color="blue"><<mannaV>></font></b>, the force will <b>(9 )<<willpowerV>></font></b>'
+
+	if defenceV > 0:'<b><font color="red">Protection <<defenceV>> units</font></b>'
+	if defenceMV > 0:'<b><font color="red">Protection of manna <<defenceMV>> units</font></b>'
+	if defenceWV > 0:'<b><font color="red">will protection <<defenceWV>> units</font></b>'
+
+	'Your life <b><font color="red"><<health>></font></b>, the manna <b><font color="blue"><<manna>></font></b>, willpower <b><font color="green"><<willpower>></font> ( 5)'
+
+	if defence > 0:'<b><font color="green">Protection <<defence>> units</font></b>'
+	if defenceM > 0:'<b><font color="green">Protection from the effects of manna <<defenceM>> units</font></b>'
+	if defenceW > 0:'<b><font color="green">Protection from the effects at will <<defenceW>> units</font></b>'
+	if defenceAct > 0:'<b><font color="green"><<defenceAct>> moves the regeneration of protection</font></b>'
+	if defenceActM > 0:'<b><font color="green"><<defenceActM>> moves the protection from the effects of regeneration manna</font></b>'
+	if unmaterial > 0:'<b><font color="green">, Left <<unmaterial>> moves not materiality.</font></b>'
+
+	'<b>==========================================================</b>'
+	gs 'init'
+
+	if hod = 0:
+		!!Player attacks
+		'<font color="green">You can attack</font>'
+
+		if gun > 0:
+			!!Boomstick
+			if bulletIn > 0:
+				'<<bulletIn>> load cartridges in gun'
+
+				act 'Shoot a gun':
+					cla
+					bulletIn -= 1
+					gunpower = 150
+					buu = 1
+					gunpricel = 1
+					Gcrime += 1
+					gt 'strelba'
+				end
+			end
+
+			if bulletIn <= 0:
+				if bullet = 0:'Ammunition for the gun ran.'
+
+				if bullet > 0:
+					'<<bullet>> ammunition for the pistol'
+
+					act 'Reload':
+						cla
+
+						if bullet < 7:
+							bulletIn = bullet
+							bullet = 0
+							'You loaded any remaining bullets in the gun.'
+						end
+
+						if bullet >= 7:
+							bullet -= 7
+							bulletIn = 7
+							'You loaded 7m rounds in the gun.'
+						end
+
+						act 'Further':gt 'fight', 'sta'
+					end
+				end
+			end
+		end
+
+		if Mgun > 0:
+			!!Boomstick
+			if mbulletIn > 0:
+				'<<mbulletIn>> load cartridges in the machine'
+
+				act 'Of single machine':
+					cla
+					mbulletIn -= 1
+					buu = 1
+					gunpower = 300
+					gunpricel = 2
+					Gcrime += 1
+					gt 'strelba'
+				end
+
+				if mbulletIn >= 3:
+					act 'A short burst of machine':
+						cla
+						mbulletIn -= 3
+						buu = 3
+						gunpower = 300
+						gunpricel = 1
+						Gcrime += buu
+						gt 'strelba'
+					end
+				end
+
+				if mbulletIn >= 3:
+					act 'Long queue of machine':
+						cla
+						buu = mbulletIn
+						mbulletIn = 0
+						gunpower = 300
+						gunpricel = 0
+						Gcrime += buu
+						gt 'strelba'
+					end
+				end
+			end
+
+			if mbulletIn <= 0:
+				if mbullet = 0:'Chucks for machine ran.'
+
+				if mbullet > 0:
+					'<<mbullet>> ammunition for the machine'
+
+					act 'Reload':
+						cla
+
+						if mbullet < 7:
+							mbulletIn = mbullet
+							mbullet = 0
+							'You loaded any remaining ammunition into the machine.'
+						end
+
+						if mbullet >= 30:
+							mbullet -= 30
+							mbulletIn = 30
+							'You loaded the 30 rounds in the machine.'
+						end
+
+						act 'Further':gt 'fight', 'sta'
+					end
+				end
+			end
+		end
+
+		if tragun > 0:
+			!!Travmatik
+			if tbulletIn > 0:
+				'travmatik loaded'
+
+				act 'Shoot a gun':
+					cla
+					tbulletIn -= 1
+					gunpower = 50
+					buu = 1
+					gunpricel = 0
+					gt 'strelba'
+				end
+			end
+
+			if tbulletIn <= 0:
+				if tbullet = 0:'Cartridges ran travmatika.'
+
+				if tbullet > 0:
+					'<<tbullet>> cartridges for travmatika'
+
+					act 'Reload':
+						cla
+
+						if tbullet >= 1:
+							tbullet -= 1
+							tbulletIn = 1
+							'You loaded the cartridge in travmatik.'
+						end
+
+						act 'Further':gt 'fight', 'sta'
+					end
+				end
+			end
+		end
+
+		act 'Physical Attack':xgt 'boxing'
+
+		if magik > 0:
+			act 'Magical Attack':gt 'magik'
+		end
+	end
+
+	if hod = 1:
+		!!Enemy attacks
+		'<font color="red"><<$nameV>> attacks</font>'
+
+		act 'Further':xgt 'enemy', 'start'
+	end
+end
+
+if $ARGS[0] = 'sta':
+	cla
+	set damTip = 0
+	set damTipM = 0
+	set damTipV = 0
+	set damTipMV = 0
+	set magweapbonus = 0
+	set magweapbonusV = 0
+	set bonusSh = 0
+	set bonusShV = 0
+	set eleSh = 0
+	set eleShV = 0
+	set poisonAV = 0
+	set hidanAtk = 0
+	'<b>==========================================================</b>'
+	'<b><<$nameV>></b> Life <b><font color="red"><<healthV>></font></b>, manna <b><font color="blue"><<mannaV>></font></b>, the force will <b>(9 )<<willpowerV>></font></b>'
+
+	if defenceV > 0:'<b><font color="red">Protection <<defenceV>> units</font></b>'
+	if defenceMV > 0:'<b><font color="red">Protection of manna <<defenceMV>> units</font></b>'
+	if defenceWV > 0:'<b><font color="red">will protection <<defenceWV>> units</font></b>'
+
+	'Your life <b><font color="red"><<health>></font></b>, the manna <b><font color="blue"><<manna>></font></b>, willpower <b><font color="green"><<willpower>></font> ( 5)'
+
+	if defence > 0:'<b><font color="green">Protection <<defence>> units</font></b>'
+	if defenceM > 0:'<b><font color="green">Protection from the effects of manna <<defenceM>> units</font></b>'
+	if defenceW > 0:'<b><font color="green">Protection from the effects at will <<defenceW>> units</font></b>'
+	if defenceAct > 0:'<b><font color="green"><<defenceAct>> moves the regeneration of protection</font></b>'
+	if defenceActM > 0:'<b><font color="green"><<defenceActM>> moves the protection from the effects of regeneration manna</font></b>'
+
+	'<b>==========================================================</b>'
+
+	act 'Further':gt 'fight', 'start'
+end
+
+--- fight ---------------------------------

+ 0 - 94
locations/043_karinPRE

@@ -1,94 +0,0 @@
-# karinPRE
-'<center><img src="images\picPRE\karinPRE.jpg"></center>'
-set minut += 120
-clr
-gs 'statPRE'
-fcolor = rgb(0,0,0)
-bcolor = rgb(255,255,255)
-LCOLOR = rgb(106,90,205)
-'You woke up in what is not a familiar place, standing near you is the same red-haired girl. "And woke up. I told this jerk Juugo that he would have treated you more careful. But does he listen to you. As a result, I had you pull from the world, he almost did not kill you."'
-'"But there are pros, while you lay unconscious, I researched a little you. Amulet of Power passed to you. As you pull it out have no idea. This way bad news for you. Toby, well, that guy in the mask. He ''ve probably realized that the amulet worked and gave his power and now he´s looking for you. "'
-set nudity = 0
-act 'What´s going on?':
-cla
-*clr
-set minut += 5
-clr
-gs 'statPRE'
-'<center><img src="images\picPRE\karinPRE.jpg"></center>'
-'"What´s all the hell´s going on?" you interrupted the girl and tried to move his hand, but you were tied to the bed.'
-'"Um, okay, I´ll start from the beginning." said the girl. "Magic exists and is real. Earlier the world was not the same range were magicians and this can not be a surprise to anyone. Day when everything changed. Order of Dawn, whose head came to see you in person. That masked man named Toby. So this award captured several demons and use their power zakolodoval moon. Now the whole world lives in illusions moon and sends Toby directly. Someone may rebel by illusion, but it is powerful mages, but most of the world has simply forgotten about magic and went to live in an illusory world, which they believe only a reality. "'
-'"Recently there was a powerful burst of magical energy, which even caused a malfunction Tsukuemi. Tsukuemi so called spell of illusion imposed on the moon. How can you guess magicians felt this surge. He walked out of that cave you found. Apparently surge occurred in the time of activation amulet. Who is this amulet hunting began. Mages of all stripes are looking for such a thing mad force capable disrupt Tsukuemi.'
-'As you know, Toby wants to protect your order from destruction Tsukuemi. And perhaps due to the force of the amulet to strengthen it. Tsukuemi weakens over time. "'
-	act 'The whole world is an illusion Corrupts this Toby?':
-	cla
-	*clr
-	set minut += 5
-	clr
-	gs 'statPRE'
-	'<center><img src="images\picPRE\karinPRE.jpg"></center>'
-	'"The whole world is an illusion that Toby sent down?" you asked. The girl nodded. "Yes. But only an illusion specific. Around all quite material. Magical nature only has escaped the attention of the person. Machines, apartments, television and the Internet, all this really does exist and is in the form in which people see it. But if I say, hurl a fireball, then people will see how I threw a grenade or shot from a flamethrower. Once the human mind meets miracle triggered Tsukuemi and begins to affect the mind, forbidding him to perceive how the miracle miracle, hence any little green men, UFOs, poltergeists, samovozgaraniya, mind on the impact Tsukuemi forced to look for exits in the form of all rave at the sight of a miracle, if the mind can not cope with the influence Tsukuemi, then the person can go crazy and then no one would believe him. "'
-		act 'And who are you?':
-		cla
-		*clr
-		set minut += 5
-		clr
-		gs 'statPRE'
-		'<center><img src="images\picPRE\karinPRE.jpg"></center>'
-		'"And who are you?" you asked. The girl smiled. "I? I Karin. Mag, but certainly not a magician Toby. More I specialize in the treatment of, for mutations, changes in the body. I have little combat techniques, so that would certainly grab you, I used the services of Juugo. Mutant He, his mutation caused by the magical nature. His terrible physical strength which is very hard to resist. It can bear fists goal. But this power, combined with the effects Tsukuemi driving him crazy. We cooperate with it, I keep it in a state of sanity, and it performs my orders. "'
-			act 'Why do you need?':
-			cla
-			*clr
-			set minut += 5
-			clr
-			gs 'statPRE'
-			'<center><img src="images\picPRE\karinPRE.jpg"></center>'
-			'"Why do you need me?" you asked. The girl replied. "Hmm, obviously mine. When I lock you, I was hoping to get this effect. But now the situation has changed. Amulet vobschem became useless. Power passed to you. But it´s bad news for you. If you think that once you force amulet, so you can do anything. Figa with two. Naked without the ability to force anything. Toby and easily beat your will and forced to obey, and Juugo beat you like a puppy. Not so simple with this force. You yourself become amulet in force contained but you use it you can not do. "'
-				act 'What is this amulet? Where did he come from?':
-				cla
-				*clr
-				set minut += 5
-				clr
-				gs 'statPRE'
-				'<center><img src="images\picPRE\karinPRE.jpg"></center>'
-				'"And what is this amulet? Where did he come from?" you asked. Karin thought. "Most likely this is what is the trick Rikudo, the ancient magician stunning force. I do not know precisely. Similarly only know that the amulet was created in a special way, he could give his force only one in whom there is no magic. And he could give effect only man. Rather it was what that amulet Rikudo for emergency restoration force at the time when she had finished.'
-				'You know, you´re already dead. In your footsteps is Toby and his gang of thugs and bastards. When he finds you, he will turn you inside out, but you would get out of force. Apply your strength in the form in which it exists is the same as a call Toby and tell you where nahodishsya. Tsukuemi on you can no longer act, so you probably saw Toby moves. Times, and he was there where he wanted, convenient and fast. "'
-				'Karin thought. "You know. I do not want to give you Toby. And I think I know how to bring down the trail this bloodhound. Rikudo Power only works if it is in a man´s body. You´re a man and she works there, regardless of your will. Enormous effort I should destroy and dispel traces of this force that would hide our place position. "'
-					act 'Uh, I do not understand, what do you suggest?':
-					cla
-					*clr
-					set minut += 5
-					clr
-					gs 'statPRE'
-					'<center><img src="images\picPRE\karinPRE.jpg"></center>'
-					'"Uh, I do not understand, what do you suggest?" you asked. Karin giggled. "I´ll make you a pretty, young girl and Toby never find you. Well, no, there is another way, I´m just going to stop your heart and your strength will dissolve in nature, and you will die. Toby Giving you I´m not going. And admit killing you do not want. Maybe with time udastsja something sensible to do with your strength. "'
-						act 'Hey, I do not want to be a woman, then I have a family, wife, daughter.':
-						cla
-						*clr
-						set minut += 5
-						clr
-						gs 'statPRE'
-						'<center><img src="images\picPRE\karinPRE.jpg"></center>'
-						'"Hey, I do not want to be a woman, then I have a family, wife, daughter," you are afraid. Karin smiled sadly. "Here the choice is simple, either you die or you live without a penis. Never understood men, so that they are shaking their rattles around. During his family not to worry. I´ll arrange everything. You will be dead for all the tragedy, but what to do, but Toby unhooked. I´ll erase your memory of the family, will be only the ghostly memories, you can not even remember where you zhil.Tselikom erase the memory I will not leave you in prevratishsya useless vegetable. "'
-							act 'There must be another way!':
-							cla
-							*clr
-							set minut += 5
-							clr
-							gs 'statPRE'
-							'<center><img src="images\picPRE\karinPRE.jpg"></center>'
-							'"There must be another way!" you panicked. Karin became serious. "Do not argue. But is the only way available to me. Now go to sleep." said Karin putting your hand on his chest.'
-
-							act 'Sleep': gt 'sleepPRE'
-							end
-
-						end
-					end
-				end
-
-			end
-		end
-	end
-end
---- karinPRE ---------------------------------
-

+ 0 - 145
locations/044_sleepPRE

@@ -1,145 +0,0 @@
-# sleepPRE
-'<center><img src="images\picPRE\karinPRE.jpg"></center>'
-set minut += 120
-set day += 1
-set week += 1
-
-!clr
-!gs 'stat'
-killobj
-
-fcolor = rgb(0,0,0)
-bcolor = rgb(255,255,255)
-LCOLOR = rgb(106,90,205)
-set $name = 'Svetlana'
-set $surname = 'Lebedev'
-set age = 18
-set vidage = 16
-set year = 2010
-!set month = 6
-!set week = 5
-!set hour = 8
-!тело
-set rost = 170
-set fat = 60
-set salo = 60
-set dick = 0
-set energy = 15
-set water = 15
-set son = 16
-!Статы
-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
-
-!!!!!!!!!!!!!! Maruda Hair Mod
-set hairlength = 17
-set hcol = 1
-!!!!!!!!!!!!!! Maruda Hair Mod
-
-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 recmop = 1
-set usemop = 0
-set usehapri = 0
-set uselipbalm = 0
-set housr = 1
-set housr['Street'] = 1
-set BuyHous['Street'] = 1
-set tanga = 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
-set $nude = 'In the corridor'
-clr
-gs 'stat'
-
-'"You´re awake? Rather woke up." Karin said looking into your eyes.'
-
-act 'Look at yourself':
-cla
-*clr
-set minut += 5
-clr
-gs 'stat'
-'<center><img src="images\picPRE\povPRE.jpg"></center>'
-'"Fuck," you said and shut his mouth. Voice was too feminine. Karin giggled. "The first time I changed the gender of the person. Therefore waited with curiosity how you´d react to his new body. Masterpiece. Course in something I miscalculated, for example due to sharply increased hormonal status you went pimples on the face. Failed to change the eyes and lips, but your body will be much easier to change than the body of an ordinary woman, you will be easier to gain weight, lose weight, can change facial features. Nothing, you live now in the women´s clothing. Yes, you are quite normal woman, you can fly. "'
-'You angrily looked at Karin, "You think I´m here and so turned into a woman and immediately ran to find eldu which can jump? I´m still the same old tridtsatipyati man."'
-'"Well, yes. Do not argue." Karin agreed. "Actually, it´s your life and only you decide what to do with it. Yeah, I already took care of alibi. Today you in his car fell into the pit and died, now just on the TV show." With these words, Karin pressed a button on the remote and the TV has earned.'
-set $name = input("What is your first name?")
-if $name = '':
-	set $name = 'Svetlana'
-end
-set $surname = input("What is your last name?")
-if $surname = '':
-	set $surname = 'Lebedev'
-end
-	act 'Watch TV':
-	cla
-	*clr
-	set minut += 5
-	clr
-	gs 'stat'
-	'<center><img src="images\picPRE\car2.jpg"></center>'
-	'On TV is reporting that as a businessman who arrived on a mission yesterday afternoon breaking the fence fell into the pit. Businessman died in hospital without regaining consciousness.'
-	'You dumbfounded looked at Karin. She smiled enigmatically, "Well, I still magician and something that I can. Toby Now even lose track forever. Whoever killed in BMW, at the time of death was perfect your copy of Energy and to fillings in his teeth. Yeah, here´s the documents on apartment, passport, passport. Now you <<$name>> <<$surname>>, 18 years old girl in the city nobody knows you, but you at least have an apartment in the property. This is a gift to you from Juugo. Now get up, you´ve got to go to his new home and equip a new life. "'
-	'Entered the room Juugo redhead with a tattoo on his face. He looked at you and said, "I´ll take you."'
-		act 'Go with Juugo':
-		cla
-		*clr
-		set minut += 5
-		clr
-		gs 'stat'
-		'<center><img src="images\picPRE\jugoPRE.jpg"></center>'
-		'Juugo silently carried you to the garage and there you sat in a huge black jeep. Juugo sat behind the wheel and raced around the track. You silently speculated about what you do now.'
-		'Juugo is not looking at you said. "I´m sorry I beat you so much. I can not control himself during a fight. You were a little grow larger and for a second I thought you might be dangerous for me, so I hit with full force." You looked at him. "Forget it, listen Juugo that I do now?" Juugo nodded and said, "Well, I would advise you to start to buy food at the store, all sorts of washing powders, detergents, dish and laundry. The apartment has a little something of course, but not enough. There´s even no TV. Then get a job. Podaleku not from your house there is a restaurant, she works with 12, every day except Monday. approach a master, he will take the job for you, it just requires a waitress. Do not forget to monitor the health status, mood and mind. Now your mind is very weak, you can not survive and go crazy. You need to eat well, sleep regularly, have fun, do not generally become despondent, but then ended his days in a madhouse. Karin We do not seek, you will not find in the first place, and secondly, if you give us need you, we ourselves will find you. "'
-		'You arrived at the five-story home Khrushchev era buildings. Juugo stopped the car and pointed a finger at the entrance. "Your apartment number 69, are the key. Go. Thing to remember is you it´s not unusual, but not give up, keep an eye on the health and life will improve. How ever I look in on you."'
-			act 'Out of the car':
-			cla
-			set opPRE = 0
-			set daystart = 0
-			addobj 'Character'
-			addobj 'See'
-			addobj 'Others'
-			gt 'street'
-			end
-		end
-	end
-end
-
---- sleepPRE ---------------------------------
-

+ 576 - 0
locations/044_strelba

@@ -0,0 +1,576 @@
+# strelba
+!!gunpricel = 0 no sighting
+!!gunpricel = 1 sighting
+!!gunpricel = 2 very accurate
+!!gunpower Weapon damage
+!!buu the number of shots
+!!shoot shooting skills
+:markstrelba
+!!Reita hit
+buurand = rand(0, 100)
+
+if buu = 0:xgt 'fight', 'sta'
+
+if shoot = 0:
+	if gunpricel = 0:
+		if buurand = 100:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 100:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 1:
+		if buurand >= 95:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 95:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 2:
+		if buurand >= 90:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 90:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+end
+
+if shoot > 0 and shoot < 20:
+	if gunpricel = 0:
+		if buurand >= 95:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 95:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 1:
+		if buurand >= 90:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 90:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 2:
+		if buurand >= 85:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 85:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+end
+
+if shoot >= 20 and shoot < 40:
+	if gunpricel = 0:
+		if buurand >= 90:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 90:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 1:
+		if buurand >= 85:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 85:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 2:
+		if buurand >= 80:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 80:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+end
+
+if shoot >= 40 and shoot < 60:
+	if gunpricel = 0:
+		if buurand >= 85:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 85:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 1:
+		if buurand >= 80:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 80:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 2:
+		if buurand >= 75:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 75:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+end
+
+if shoot >= 60 and shoot < 80:
+	if gunpricel = 0:
+		if buurand >= 80:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 80:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 1:
+		if buurand >= 75:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 75:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 2:
+		if buurand >= 70:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 70:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+end
+
+if shoot >= 80 and shoot < 100:
+	if gunpricel = 0:
+		if buurand >= 75:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 75:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 1:
+		if buurand >= 70:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 70:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 2:
+		if buurand >= 65:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 65:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+end
+
+if shoot >= 100 and shoot < 150:
+	if gunpricel = 0:
+		if buurand >= 70:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 70:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 1:
+		if buurand >= 65:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 65:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 2:
+		if buurand >= 60:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 60:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+end
+
+if shoot >= 150 and shoot < 200:
+	if gunpricel = 0:
+		if buurand >= 65:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 65:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 1:
+		if buurand >= 60:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 60:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 2:
+		if buurand >= 55:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 55:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+end
+
+if shoot >= 200 and shoot < 300:
+	if gunpricel = 0:
+		if buurand >= 60:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 60:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 1:
+		if buurand >= 55:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 55:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 2:
+		if buurand >= 45:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 45:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+end
+
+if shoot >= 300 and shoot < 400:
+	if gunpricel = 0:
+		if buurand >= 55:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 55:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 1:
+		if buurand >= 50:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 50:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 2:
+		if buurand >= 45:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 45:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+end
+
+if shoot >= 400 and shoot < 500:
+	if gunpricel = 0:
+		if buurand >= 50:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 50:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 1:
+		if buurand >= 45:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 45:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 2:
+		if buurand >= 40:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 40:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+end
+
+if shoot >= 500:
+	if gunpricel = 0:
+		if buurand >= 45:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 45:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 1:
+		if buurand >= 40:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 40:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+
+	if gunpricel = 2:
+		if buurand >= 35:
+			damage = gunpower
+			jump 'markstelokpopal'
+		end
+
+		if buurand < 35:
+			buu -= 1
+			'bloomer'
+			jump 'markstrelba'
+		end
+	end
+end
+
+:markstelokpopal
+!!if hit
+!!Calculation of damage
+if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
+	if dospehV > 0:set damage -= dospehDefV & set dospehEnV -= 1
+	if damage < 0:set damage = 0
+
+	set healthV -= damage
+	Gcrimein += 1
+	'<b><font color="green">harmed <<damage>> units</font></b>'
+
+	if zerkaloV > 0:
+		set zerkaloV -= 1
+		set health -= damage
+		'<b><font color="red"><<$nameV>> reflected damage and you got <<damage>> points of damage</font></b>'
+	end
+
+	if buu = 0:xgt 'fight', 'sta'
+	if buu > 0:buu -= 1 & jump 'markstrelba'
+end
+
+if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
+	set defenceV -= damage
+	'<b><font color="green">Protection enemy harmed <<damage>> units</font></b>'
+
+		if buu = 0:xgt 'fight', 'sta'
+		if buu > 0:buu -= 1 & jump 'markstrelba'
+end
+
+if klonV > 0 and unmaterialV <= 0:
+	set klonV -= 1
+	'<b><font color="green">Clone destroyed enemy, he still had <<KlonV>> clones</font></b>'
+
+	if buu = 0:xgt 'fight', 'sta'
+	if buu > 0:buu -= 1 & jump 'markstrelba'
+end
+
+if unmaterialV > 0:
+	set unmaterialV -= 1
+	'<b><font color="red">Your bullet went straight through the opponent´s body. <<$nameV>> none Materials</font></b>'
+
+	if buu = 0:xgt 'fight', 'sta'
+	if buu > 0:buu -= 1 & jump 'markstrelba'
+end
+
+if barierV > 0:
+	!!meniteta barrier for damange
+	if barierV >= damage:
+		'<b><font color="red"><<$nameV>> easily withstood hit</font></b>'
+
+		if buu = 0:xgt 'fight', 'sta'
+		if buu > 0:buu -= 1 & jump 'markstrelba'
+	end
+
+	if barierV < damage:
+		set healthV -= damage
+		Gcrimein += 1
+		'<b><font color="green">harmed <<damage>> units</font></b>'
+
+		if zerkaloV > 0:
+			set zerkaloV -= 1
+			set health -= damage
+			'<b><font color="red"><<$nameV>> reflected damage and you got <<damage>> points of damage</font></b>'
+		end
+	end
+
+	if buu = 0:xgt 'fight', 'sta'
+	if buu > 0:buu -= 1 & jump 'markstrelba'
+end
+
+--- strelba ---------------------------------

+ 78 - 0
locations/045_before

@@ -0,0 +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
+kisamePro = 0
+set 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
+end
+
+if unmaterial > 0:
+	set unmaterial -= 1
+	set 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
+	'<font color="green"><<$nameV>> becomes poisoned and <<poison>> units of life.</font>'
+	set poison -= 1
+end
+
+if poisonV > 0:
+	set health -= poisonV
+	'<font color="red">You are poisoned and lose <<poisonV>> units of life.</font>'
+	set poisonV -= 1
+end
+
+if blood > 0:
+	set healthV -= blood
+	'<font color="green"><<$nameV>> becomes <<blood>> units of life from bleeding.</font>'
+	set blood -= 1
+
+	if blood < 0:set blood = 0
+end
+
+if bloodV > 0:
+	set health -= bloodV
+	'<font color="red">You lose <<bloodV>> units of life from bleeding.</font>'
+	set bloodV -= 1
+
+	if bloodV < 0:set bloodV = 0
+end
+
+if dospehEnV <= 0 and dospehV > 0:
+	set dospehEnV = 0
+	set dospehV = 0
+	set dospehDefV = 0
+	set 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
+	'<font color="red">Your armor destroyed.</font>'
+end
+
+if initBonusA > 0:set initBonusA = 0
+
+--- before ---------------------------------

+ 0 - 317
locations/045_fight

@@ -1,317 +0,0 @@
-# fight
-if $ARGS[0] = 'start':
-cla
-inFight = 1
-fcolor = rgb(0,0,0)
-bcolor = rgb(255,255,255)
-LCOLOR = rgb(106,90,205)
-
-gs 'defence'
-
-gs 'statBat'
-
-
-if SasoriBody > 2 and healthV <= 0 or SasoriBody > 2 and mannaV <= 0 or SasoriBody > 2 and willpowerV <= 0:
-set SasoriBody -= 1
-gs 'priziv','sasori'
-'<B><font color = red>Doll crumbled into parts, and immediately entered into battle other doll Sasori.</font></B>'
-'<B><font color = red>You´ve heard the sonorous voice Sasori "I have a lot of dolls, you can not win."</font></B>'
-end
-if SasoriBody = 2 and healthV <= 0 or SasoriBody = 2 and mannaV <= 0 or SasoriBody = 2 and willpowerV <= 0:
-set SasoriBody -= 1
-gs 'priziv','sasori1'
-'<B><font color = red>Last doll crumbled into pieces and entered the fight Sasori himself.</font></B>'
-end
-if stunV > 0 and SasoriBody > 1:
-set stunV = 0
-'<B><font color = red>Doll began to move again.</font></B>'
-end
-if stunV > 0 and SasoriBody = 1:
-set stunV = 0
-'<B><font color = red>again moves Sasori.</font></B>'
-end
-
-if GedoMazo = 1 and healthV <= 0 or GedoMazo = 1 and mannaV <= 0 or GedoMazo = 1 and willpowerV <= 0:
-set GedoMazo = 2
-set barierV = 0
-'<B><font color = green><<$nameV>> fell to the ground turning into ashes</font></B>'
-gs 'priziv','tobi'
-'<B><font color = green><<$nameV>> attacked you</font></B>'
-end
-
-if health <= 0 and heart = 0 and izanagi = 0:
-'<B><font color = red>you lose</font></B>'
-xgt 'ender','loss'
-exit
-end
-
-if healthV <= 0 and heartV = 0 and izanagiV = 0:
-'<B><font color = green><<$nameV>> lost</font></B>'
-xgt 'ender','win'
-exit
-end
-if manna <= 0 and heart = 0 and izanagi = 0:
-'<B><font color = red>you lose</font></B>'
-xgt 'ender','loss'
-exit
-end
-if mannaV <= 0 and heartV = 0 and izanagiV = 0:
-'<B><font color = green><<$nameV>> lost</font></B>'
-xgt 'ender','win'
-exit
-end
-if willpower <= 0 and heart = 0 and izanagi = 0:
-'<B><font color = red>you lose</font></B>'
-xgt 'ender','loss'
-exit
-end
-if willpowerV <= 0 and heartV = 0 and izanagiV = 0:
-'<B><font color = green><<$nameV>> lost</font></B>'
-xgt 'ender','win'
-exit
-end
-if izanagiV > 0 and healthV <= 0 or izanagiV > 0 and mannaV <= 0 or izanagiV > 0 and willpowerV <= 0:
-set izanagiV -= 1
-'<B><font color = red><<$nameV>> simply disappeared</font></B>'
-set healthV = vitalV * 10 + strenV * 5
-set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
-set willpowerV = willV * 10
-set stunV = 0
-	if program = 6 and izanagiOnce = 0: set izanagiOnce = 1 & set unmaterialV = 40 & set tobizanagi = 0
-'<B><font color = red><<$nameV>> was in front of you completely healthy. He folded his hands and Arcanum said Izanagi - perfect illusion.</font></B>'
-'<B><font color = red>One of his eyes closed for ever, paying for it with a spell.</font></B>'
-end
-if heartV > 0 and healthV <= 0 or heartV > 0 and mannaV <= 0 or heartV > 0 and willpowerV <= 0:
-set heartV -= 1
-'<B><font color = red><<$nameV>> staggered and his heart burst</font></B>'
-set healthV = vitalV * 10 + strenV * 5
-set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
-set willpowerV = willV * 10
-set stunV = 0
-'<B><font color = red><<$nameV>> stood up and rushed into the fray. He has run another heart.</font></B>'
-end
-if izanagi > 0 and health <= 0 or izanagi > 0 and manna <= 0 or izanagi > 0 and willpower <= 0:
-set izanagi -= 1
-'<B><font color = green>You are gone</font></B>'
-set health = vital * 10 + stren * 5
-set willpower = intel * 5 + will * 5
-set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
-set stun = 0
-set zerkaloV = 0
-set poisonV = 0
-set bloodV = 0
-'<B><font color = green>Immediately before the enemy appeared completely healthy.</font></B>'
-end
-if heart > 0 and health <= 0 or heart > 0 and manna <= 0 or heart > 0 and willpower <= 0:
-set heart -= 1
-set zerkaloV = 0
-set poisonV = 0
-set bloodV = 0
-'<B><font color = green>Your heart gave out and snapped.</font></B>'
-set health = vital * 10 + stren * 5
-set willpower = intel * 5 + will * 5
-set manna = (intel * magik) + magik * 100 + vital * 10 + rikudo
-set stun = 0
-'<B><font color = green>You´re not dead, you run another heart.</font></B>'
-end
-
-gs 'before'
-'<B>=============================================== ===========</B>'
-'<B>======================== (ROUND <<round>>) ================= ==========</B>'
-'<B>=============================================== ===========</B>'
-'<B><<$nameV>></B> Life <B><font color = red><<healthV>></font></B>, manna <B><font color = blue><<mannaV>></font></B>, the force will <B>(9 )<<willpowerV>></font></B>'
-if defenceV > 0: '<B><font color = red>Protection <<defenceV>> units</font></B>'
-if defenceMV > 0: '<B><font color = red>Protection of manna <<defenceMV>> units</font></B>'
-if defenceWV > 0: '<B><font color = red>will protection <<defenceWV>> units</font></B>'
-'Your life <B><font color = red><<health>></font></B>, the manna <B><font color = blue><<manna>></font></B>, willpower <B><font color = green><<willpower>></font> ( 5)'
-if defence > 0: '<B><font color = green>Protection <<defence>> units</font></B>'
-if defenceM > 0: '<B><font color = green>Protection from the effects of manna <<defenceM>> units</font></B>'
-if defenceW > 0: '<B><font color = green>Protection from the effects at will <<defenceW>> units</font></B>'
-if defenceAct > 0: '<B><font color = green><<defenceAct>> moves the regeneration of protection</font></B>'
-if defenceActM > 0: '<B><font color = green><<defenceActM>> moves the protection from the effects of regeneration manna</font></B>'
-if unmaterial > 0: '<B><font color = green>, Left <<unmaterial>> moves not materiality.</font></B>'
-'<B>=============================================== ===========</B>'
-gs 'init'
-
-	if hod = 0:
-	!игрок атакует
-	'<font color = green>You can attack</font>'
-	if gun > 0:
-		!огнестрел
-			if bulletIn > 0:
-			'<<bulletIn>> load cartridges in gun'
-				act 'Shoot a gun':
-				cla
-				bulletIn -= 1
-				gunpower = 150
-				buu = 1
-				gunpricel = 1
-				Gcrime += 1
-				gt 'strelba'
-				end
-
-		end
-		if bulletIn <= 0:
-
-		if bullet = 0:
-		'Ammunition for the gun ran.'
-		end
-		if bullet > 0:
-		'<<bullet>> ammunition for the pistol'
-		act 'Reload':
-		cla
-		if bullet < 7:
-		bulletIn = bullet
-		bullet = 0
-		'You loaded any remaining bullets in the gun.'
-		end
-		if bullet >= 7:
-		bullet -= 7
-		bulletIn = 7
-		'You loaded 7m rounds in the gun.'
-		end
-		act 'Further': gt 'fight','sta'
-					end
-		end
-		end
-
-		end
-		if Mgun > 0:
-		!огнестрел
-			if mbulletIn > 0:
-			'<<mbulletIn>> load cartridges in the machine'
-				act 'Of single machine':
-				cla
-				mbulletIn -= 1
-				buu = 1
-				gunpower = 300
-				gunpricel = 2
-				Gcrime += 1
-				gt 'strelba'
-				end
-
-				if mbulletIn >= 3:
-					act 'A short burst of machine':
-					cla
-					mbulletIn -= 3
-					buu = 3
-					gunpower = 300
-					gunpricel = 1
-					Gcrime += buu
-					gt 'strelba'
-					end
-				end
-
-				if mbulletIn >= 3:
-					act 'Long queue of machine':
-					cla
-					buu = mbulletIn
-					mbulletIn = 0
-					gunpower = 300
-					gunpricel = 0
-					Gcrime += buu
-					gt 'strelba'
-					end
-				end
-		end
-		if mbulletIn <= 0:
-
-		if mbullet = 0:
-		'Chucks for machine ran.'
-		end
-		if mbullet > 0:
-		'<<mbullet>> ammunition for the machine'
-		act 'Reload':
-		cla
-		if mbullet < 7:
-		mbulletIn = mbullet
-		mbullet = 0
-		'You loaded any remaining ammunition into the machine.'
-		end
-		if mbullet >= 30:
-		mbullet -= 30
-		mbulletIn = 30
-		'You loaded the 30 rounds in the machine.'
-		end
-		act 'Further': gt 'fight','sta'
-					end
-		end
-		end
-		end
-		if tragun > 0:
-		!травматик
-		if tbulletIn > 0:
-			'travmatik loaded'
-				act 'Shoot a gun':
-				cla
-				tbulletIn -= 1
-				gunpower = 50
-				buu = 1
-				gunpricel = 0
-				gt 'strelba'
-				end
-
-		end
-		if tbulletIn <= 0:
-
-		if tbullet = 0:
-		'Cartridges ran travmatika.'
-		end
-		if tbullet > 0:
-		'<<tbullet>> cartridges for travmatika'
-		act 'Reload':
-		cla
-		if tbullet >= 1:
-		tbullet -= 1
-		tbulletIn = 1
-		'You loaded the cartridge in travmatik.'
-		end
-		act 'Further': gt 'fight','sta'
-					end
-		end
-		end
-		end
-	act 'Physical Attack': xgt 'boxing'
-		if magik > 0:
-		act 'Magical Attack': gt 'magik'
-		end
-
-	end
-	if hod = 1:
-	!противник атакует
-	'<font color = red><<$nameV>> attacks</font>'
-	act 'Further': xgt 'enemy','start'
-	end
-end
-
-
-if $ARGS[0] = 'sta':
-cla
-set damTip = 0
-set damTipM = 0
-set damTipV = 0
-set damTipMV = 0
-set magweapbonus = 0
-set magweapbonusV = 0
-set bonusSh = 0
-set bonusShV = 0
-set eleSh = 0
-set eleShV = 0
-set poisonAV = 0
-set hidanAtk = 0
-'<B>=============================================== ===========</B>'
-'<B><<$nameV>></B> Life <B><font color = red><<healthV>></font></B>, manna <B><font color = blue><<mannaV>></font></B>, the force will <B>(9 )<<willpowerV>></font></B>'
-if defenceV > 0: '<B><font color = red>Protection <<defenceV>> units</font></B>'
-if defenceMV > 0: '<B><font color = red>Protection of manna <<defenceMV>> units</font></B>'
-if defenceWV > 0: '<B><font color = red>will protection <<defenceWV>> units</font></B>'
-'Your life <B><font color = red><<health>></font></B>, the manna <B><font color = blue><<manna>></font></B>, willpower <B><font color = green><<willpower>></font> ( 5)'
-if defence > 0: '<B><font color = green>Protection <<defence>> units</font></B>'
-if defenceM > 0: '<B><font color = green>Protection from the effects of manna <<defenceM>> units</font></B>'
-if defenceW > 0: '<B><font color = green>Protection from the effects at will <<defenceW>> units</font></B>'
-if defenceAct > 0: '<B><font color = green><<defenceAct>> moves the regeneration of protection</font></B>'
-if defenceActM > 0: '<B><font color = green><<defenceActM>> moves the protection from the effects of regeneration manna</font></B>'
-'<B>=============================================== ===========</B>'
-act 'Further': gt 'fight','start'
-end
---- fight ---------------------------------
-

+ 155 - 0
locations/046_init

@@ -0,0 +1,155 @@
+# init
+!!calculation initiatives
+!!Be sure to check for mills
+!!hod variable responsible for who will attack
+!!hod = 0 player attacks hod = 1 enemy attacks
+!!<font color="red"><<$name>></font>
+
+if GedoMazo = 1 and stunV > 0:set stunV = 0 & set mannaV -= 1000 & '<font color="red"><<$nameV>> with a deafening roar, emits large amounts of energy allowing you to attack him again.</font>'
+
+set initi = react * 20 / 100
+set initi -= dospehVes
+
+if initi < 0:set initi = 0
+
+set init = rand(react - initi, react + initi) + initBonus
+set initiV = reactV * 20/100
+set initiV -= dospehVesV
+
+if initiV < 0:set initiV = 0
+
+set initV = rand(reactV - initiV, reactV + initiV) + initBonusV
+
+if hodtime >= 3 and stun = 0 and stunV = 0 and initBonus = 0:
+	!!the player has already attacked three times
+	'<font color="red"><<$nameV>> took the initiative</font>'
+	set hod = 1
+	set hodtime = 0
+	exit
+end
+
+if hodtimeV >= 3 and stun = 0 and stunV = 0 and initBonusV = 0:
+	!!the enemy attacked three times already
+	'<font color="green">You took the lead</font>'
+	set hod = 0
+	set hodtimeV = 0
+	exit
+end
+
+if stun = 0 and stunV = 0 and hodtime < 3 and hodtimeV < 3 or stun = 0 and stunV = 0 and initBonus > 0 or stun = 0 and stunV = 0 and initBonusV > 0:
+	!!both are not in the camp
+	if tuman = 0 and tumanV = 0:
+		!!No fog
+		if init > initV:
+			!!Initiative tackler
+			'<font color="green">You took the initiative</font>'
+			set hod = 0
+			set hodtime += 1
+			exit
+		end
+
+		if init < initV:
+			!!Initiative has captured the enemy
+			'<font color="red"><<$nameV>> took the initiative</font>'
+			set hod = 1
+			set hodtimeV += 1
+			exit
+		end
+
+		if init = initV:
+			set hod = rand(0, 1)
+
+			if hod = 0:'<font color="green">You hardly seized the initiative</font>'
+			if hod = 1:'<font color="red"><<$nameV>> hardly took the initiative</font>'
+			exit
+		end
+	end
+
+	if tuman > 0:
+		!!Fog player
+		set tuman -= 1
+		set initV = reactV - initiV
+
+		if init > initV:
+			!!Initiative tackler
+			'<font color="green">In your fog <<$nameV>> does not have time for you and you took the initiative</font>'
+			set hod = 0
+			set hodtime += 1
+			exit
+		end
+
+		if init < initV:
+			!!Initiative has captured the enemy
+			'<font color="red">In spite of your fog <<$nameV>> took the initiative</font>'
+			set hod = 1
+			set hodtimeV += 1
+			exit
+		end
+
+		if init = initV:
+			set hod = rand(0, 1)
+
+			if hod = 0:'<font color="green">You hardly seized the initiative in spite of your fog</font>'
+			if hod = 1:'<font color="red"><<$nameV>> in spite of your fog still took the initiative</font>'
+
+			exit
+		end
+	end
+
+	if tumanV > 0:
+		!!Fog enemy
+		set tumanV -= 1
+		set init = react - initi
+
+		if init > initV:
+			!!Initiative tackler
+			'<font color="green">In spite of the fog, you took the initiative</font>'
+			set hod = 0
+			set hodtime += 1
+			exit
+		end
+
+		if init < initV:
+			!!Initiative has captured the enemy
+			'<font color="red"><<$nameV>> use your fog easily captures initiative</font>'
+			set hod = 1
+			set hodtimeV += 1
+			exit
+		end
+
+		if init = initV:
+			set hod = rand(0, 1)
+
+			if hod = 0:'<font color="green">You hardly seized the initiative in spite of the fog</font>'
+			if hod = 1:'<font color="red"><<$nameV>> use your fog took the initiative</font>'
+
+			exit
+		end
+	end
+end
+
+if stun > 0:
+	!!Player in the camp
+	set stun -= 1
+	set hod = 1
+
+	if tuman > 0:set tuman -= 1
+	if tumanV > 0:set tumanV -= 1
+
+	'<font color="red">You can not move, and <<$nameV>> easily captures initiative</font>'
+	exit
+end
+
+if stunV > 0:
+	!!The enemy in the camp
+	set stunV -= 1
+	set hod = 0
+
+	if tuman > 0:set tuman -= 1
+	if tumanV > 0:set tumanV -= 1
+
+	'<font color="green"><<$nameV>> can not move and you can easily grab the initiative</font>'
+	exit
+end
+
+--- init ---------------------------------

+ 0 - 496
locations/046_strelba

@@ -1,496 +0,0 @@
-# strelba
-!gunpricel = 0 не прицельно
-	!gunpricel = 1 прицельно
-	!gunpricel = 2 очень точно
-
-	!gunpower урон от оружия
-	!buu количество выстрелов
-	!shoot навык стрельбы
-	:markstrelba
-	!рейты попадания
-	buurand = rand(0,100)
-	if buu = 0: xgt 'fight','sta'
-		if shoot = 0:
-		if gunpricel = 0:
-		if buurand = 100:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 100:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 1:
-		if buurand >= 95:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 95:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 2:
-		if buurand >= 90:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 90:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		end
-		if shoot > 0 and shoot < 20:
-		if gunpricel = 0:
-		if buurand >= 95:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 95:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 1:
-		if buurand >= 90:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 90:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 2:
-		if buurand >= 85:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 85:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		end
-		if shoot >= 20 and shoot < 40:
-		if gunpricel = 0:
-		if buurand >= 90:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 90:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 1:
-		if buurand >= 85:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 85:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 2:
-		if buurand >= 80:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 80:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		end
-		if shoot >= 40 and shoot < 60:
-		if gunpricel = 0:
-		if buurand >= 85:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 85:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 1:
-		if buurand >= 80:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 80:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 2:
-		if buurand >= 75:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 75:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		end
-		if shoot >= 60 and shoot < 80:
-		if gunpricel = 0:
-		if buurand >= 80:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 80:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 1:
-		if buurand >= 75:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 75:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 2:
-		if buurand >= 70:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 70:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		end
-		if shoot >= 80 and shoot < 100:
-		if gunpricel = 0:
-		if buurand >= 75:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 75:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 1:
-		if buurand >= 70:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 70:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 2:
-		if buurand >= 65:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 65:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		end
-		if shoot >= 100 and shoot < 150:
-		if gunpricel = 0:
-		if buurand >= 70:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 70:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 1:
-		if buurand >= 65:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 65:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 2:
-		if buurand >= 60:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 60:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		end
-		if shoot >= 150 and shoot < 200:
-		if gunpricel = 0:
-		if buurand >= 65:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 65:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 1:
-		if buurand >= 60:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 60:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 2:
-		if buurand >= 55:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 55:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		end
-		if shoot >= 200 and shoot < 300:
-		if gunpricel = 0:
-		if buurand >= 60:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 60:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 1:
-		if buurand >= 55:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 55:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 2:
-		if buurand >= 45:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 45:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		end
-		if shoot >= 300 and shoot < 400:
-		if gunpricel = 0:
-		if buurand >= 55:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 55:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 1:
-		if buurand >= 50:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 50:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 2:
-		if buurand >= 45:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 45:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		end
-		if shoot >= 400 and shoot < 500:
-		if gunpricel = 0:
-		if buurand >= 50:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 50:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 1:
-		if buurand >= 45:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 45:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 2:
-		if buurand >= 40:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 40:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		end
-		if shoot >= 500:
-		if gunpricel = 0:
-		if buurand >= 45:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 45:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 1:
-		if buurand >= 40:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 40:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		if gunpricel = 2:
-		if buurand >= 35:
-		damage = gunpower
-		jump 'markstelokpopal'
-		end
-		if buurand < 35:
-		buu -= 1
-		'bloomer'
-		jump 'markstrelba'
-		end
-		end
-		end
-
-	:markstelokpopal
-	!если попал
-
-
-	!расчет урона
-		if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
-		if dospehV > 0: set damage -= dospehDefV & set dospehEnV -= 1
-		if damage < 0: set damage = 0
-		Set healthV -= damage
-		Gcrimein += 1
-		'<B><font color = green>harmed <<damage>> units</font></B>'
-		if zerkaloV > 0:
-		set zerkaloV -= 1
-		set health -= damage
-		'<B><font color = red><<$nameV>> reflected damage and you got <<damage>> points of damage</font></B>'
-		end
-		if buu = 0: xgt 'fight','sta'
-		if buu > 0: buu -= 1 & jump 'markstrelba'
-		end
-
-		if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
-		Set defenceV -= damage
-		'<B><font color = green>Protection enemy harmed <<damage>> units</font></B>'
-		if buu = 0: xgt 'fight','sta'
-		if buu > 0: buu -= 1 & jump 'markstrelba'
-		end
-
-		if klonV > 0 and unmaterialV <= 0:
-		set klonV -= 1
-		'<B><font color = green>Clone destroyed enemy, he still had <<KlonV>> clones</font></B>'
-		if buu = 0: xgt 'fight','sta'
-		if buu > 0: buu -= 1 & jump 'markstrelba'
-		end
-
-		if unmaterialV > 0:
-		set unmaterialV -= 1
-		'<B><font color = red>Your bullet went straight through the opponent´s body. <<$nameV>> none Materials</font></B>'
-		if buu = 0: xgt 'fight','sta'
-		if buu > 0: buu -= 1 & jump 'markstrelba'
-		end
-
-		if barierV > 0:
-		!барьер именитета для урона
-		if barierV >= damage:
-		'<B><font color = red><<$nameV>> easily withstood hit</font></B>'
-		if buu = 0: xgt 'fight','sta'
-		if buu > 0: buu -= 1 & jump 'markstrelba'
-		end
-		if barierV < damage:
-		Set healthV -= damage
-		Gcrimein += 1
-		'<B><font color = green>harmed <<damage>> units</font></B>'
-		if zerkaloV > 0:
-		set zerkaloV -= 1
-		set health -= damage
-		'<B><font color = red><<$nameV>> reflected damage and you got <<damage>> points of damage</font></B>'
-		end
-		end
-		if buu = 0: xgt 'fight','sta'
-		if buu > 0: buu -= 1 & jump 'markstrelba'
-		end
---- strelba ---------------------------------
-

+ 0 - 81
locations/047_before

@@ -1,81 +0,0 @@
-# before
-!Просчет событий на начало раунда.
-!У кого защиты, клоны и так далее
-set knife = 0
-set knifeV = 0
-set BonusAtak = 0
-set BonusDef = 0
-set BonusAtakV = 0
-set BonusDefV = 0
-!set stunner = 0
-!set stunnerV = 0
-kisamePro = 0
-
-
-set 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
-end
-
-if unmaterial > 0:
-set unmaterial -= 1
-set 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>'
-end
-
-if poison > 0:
-set healthV -= poison
-'<font color = green><<$nameV>> becomes poisoned and <<poison>> units of life.</font>'
-set poison -= 1
-end
-
-if poisonV > 0:
-set health -= poisonV
-'<font color = red>You are poisoned and lose <<poisonV>> units of life.</font>'
-set poisonV -= 1
-end
-
-if blood > 0:
-set healthV -= blood
-'<font color = green><<$nameV>> becomes <<blood>> units of life from bleeding.</font>'
-set blood -= 1
-if blood < 0: set blood = 0
-end
-
-if bloodV > 0:
-set health -= bloodV
-'<font color = red>You lose <<bloodV>> units of life from bleeding.</font>'
-set bloodV -= 1
-if bloodV < 0: set bloodV = 0
-end
-
-if dospehEnV <= 0 and dospehV > 0:
-set dospehEnV = 0
-set dospehV = 0
-set dospehDefV = 0
-set 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
-'<font color = red>Your armor destroyed.</font>'
-end
-
-
-if initBonusA > 0: set initBonusA = 0
---- before ---------------------------------
-

+ 48 - 0
locations/047_boxing

@@ -0,0 +1,48 @@
+# boxing
+!!The choice of a physical attack
+if weapon = 0:
+	act 'Fist':
+		cla
+		!!gs 'atak'
+		xgt 'atak', 'player'
+	end
+end
+
+if weapon > 0:
+	if weaponTipe = 1:set $weap = 'sword'
+	if weaponTipe = 2:set $weap = 'mace'
+	if weaponTipe = 3:set $weap = 'ax'
+
+	act 'Strike <<$weap>>':
+		cla
+		!!gs 'atak'
+		xgt 'atak', 'player'
+	end
+end
+
+if kunai > 0:
+	'You have <<kunai>> throwing knives.'
+
+	act 'Throw a knife':
+		cla
+		knife = input ("How to throw a knife?")
+
+		if knife > kunai:
+			set knife = kunai
+			set kunai = 0
+		end
+
+		if knife <= kunai:
+			set kunai -= knife
+		end
+
+		'<font color="green">You are flashed <<knife>> knives.</font>'
+		xgt 'atak', 'player'
+	end
+end
+
+if magik > 0:
+	act 'Magical Attack':gt 'magik'
+end
+
+--- boxing ---------------------------------

+ 0 - 133
locations/048_init

@@ -1,133 +0,0 @@
-# init
-!Расчет инициативы
-!Обязательно проверять наличие станов
-!hod переменная отвечающая за то кто будет атаковать
-!hod = 0 игрок атакует hod = 1 противник атакует
-!<font color = red><<$name>></font>
-
-if GedoMazo = 1 and stunV > 0: set stunV = 0 & set mannaV -= 1000 & '<font color = red><<$nameV>> with a deafening roar, emits large amounts of energy allowing you to attack him again.</font>'
-
-set initi = react * 20/100
-set initi -= dospehVes
-if initi < 0: set initi = 0
-set init = RAND(react - initi, react + initi) + initBonus
-set initiV = reactV * 20/100
-set initiV -= dospehVesV
-if initiV < 0: set initiV = 0
-set initV = RAND(reactV - initiV, reactV + initiV) + initBonusV
-
-if hodtime >= 3 and stun = 0 and stunV = 0 and initBonus = 0:
-!игрок уже трижды атаковал
-'<font color = red><<$nameV>> took the initiative</font>'
-set hod = 1
-set hodtime = 0
-exit
-end
-if hodtimeV >= 3 and stun = 0 and stunV = 0 and initBonusV = 0:
-!противник уже трижды атаковал
-'<font color = green>You took the lead</font>'
-set hod = 0
-set hodtimeV = 0
-exit
-end
-
-
-if stun = 0 and stunV = 0 and hodtime < 3 and hodtimeV < 3 or stun = 0 and stunV = 0 and initBonus > 0 or stun = 0 and stunV = 0 and initBonusV > 0:
-!оба не в стане
-	if tuman = 0 and tumanV = 0:
-	!нет тумана
-		if init > initV:
-		!инициативу захватил игрок
-		'<font color = green>You took the initiative</font>'
-		set hod = 0
-		set hodtime += 1
-		exit
-		end
-		if init < initV:
-		!инициативу захватил противник
-		'<font color = red><<$nameV>> took the initiative</font>'
-		set hod = 1
-		set hodtimeV += 1
-		exit
-		end
-		if init = initV:
-		set hod = RAND(0,1)
-		if hod = 0: '<font color = green>You hardly seized the initiative</font>'
-		if hod = 1: '<font color = red><<$nameV>> hardly took the initiative</font>'
-		exit
-		end
-	end
-	if tuman > 0:
-	!туман игрока
-	set tuman -= 1
-	set initV = reactV - initiV
-		if init > initV:
-		!инициативу захватил игрок
-		'<font color = green>In your fog <<$nameV>> does not have time for you and you took the initiative</font>'
-		set hod = 0
-		set hodtime += 1
-		exit
-		end
-		if init < initV:
-		!инициативу захватил противник
-		'<font color = red>In spite of your fog <<$nameV>> took the initiative</font>'
-		set hod = 1
-		set hodtimeV += 1
-		exit
-		end
-		if init = initV:
-		set hod = RAND(0,1)
-		if hod = 0: '<font color = green>You hardly seized the initiative in spite of your fog</font>'
-		if hod = 1: '<font color = red><<$nameV>> in spite of your fog still took the initiative</font>'
-		exit
-		end
-	end
-	if tumanV > 0:
-	!туман противника
-	set tumanV -= 1
-	set init = react - initi
-		if init > initV:
-		!инициативу захватил игрок
-		'<font color = green>In spite of the fog, you took the initiative</font>'
-		set hod = 0
-		set hodtime += 1
-		exit
-		end
-		if init < initV:
-		!инициативу захватил противник
-		'<font color = red><<$nameV>> use your fog easily captures initiative</font>'
-		set hod = 1
-		set hodtimeV += 1
-		exit
-		end
-		if init = initV:
-		set hod = RAND(0,1)
-		if hod = 0: '<font color = green>You hardly seized the initiative in spite of the fog</font>'
-		if hod = 1: '<font color = red><<$nameV>> use your fog took the initiative</font>'
-		exit
-		end
-	end
-end
-
-if stun > 0:
-!игрок в стане
-set stun -= 1
-set hod = 1
-if tuman > 0: set tuman -= 1
-if tumanV > 0: set tumanV -= 1
-'<font color = red>You can not move, and <<$nameV>> easily captures initiative</font>'
-exit
-end
-
-if stunV > 0:
-!противник в стане
-set stunV -= 1
-set hod = 0
-if tuman > 0: set tuman -= 1
-if tumanV > 0: set tumanV -= 1
-'<font color = green><<$nameV>> can not move and you can easily grab the initiative</font>'
-exit
-end
-
---- init ---------------------------------
-

+ 86 - 0
locations/048_magik

@@ -0,0 +1,86 @@
+# magik
+
+!!Selecting a magic attack
+if round >= 0:
+	if spelltuman > 0:'Cover terrain fog <a href="exec:gt ''spell'', ''tuman''">create the spell</a>'
+	if spellklon > 0:'Substitute itself clone <a href="exec:gt ''spell'', ''klon''">create the spell</a>'
+	if spellstun > 0:'Paralyze the enemy <a href="exec:gt ''spell'', ''stun''">create the spell</a>'
+	if spellweap > 0 and weapon > 0:'Invest in energy weapons <a href="exec:gt ''spell'', ''weap''">create the spell</a>'
+	if spellwind > 0:'Blow the mist <a href="exec:gt ''spell'', ''wind''">create the spell</a>'
+	if spellklon2 > 0:'Substitute themselves clones (3 pieces) <a href="exec:gt ''spell'', ''klon2''">to create a spell</a>'
+	if spellenergo > 0:'Create weak energy shield <a href="exec:gt ''spell'', ''energo''">create the spell</a>'
+	if spellinit > 0:'Create weak deceleration time <a href="exec:gt ''spell'', ''init''">create the spell</a>'
+	if spellhel > 0:'Treat yourself to <a href="exec:gt ''spell'', ''hel''">create the spell</a>'
+	if spellhand > 0:'Striking hand <a href="exec:gt ''spell'', ''hand''">create the spell</a>'
+	if spellreset > 0 or spellunmat > 0:'<b><font color="red">POWER Rikudo</font></b>'
+	if spellreset > 0:'Power Rikudo "podcherpnut collected energy" <a href="exec:gt ''spell'', ''reset''">to create a spell</a>'
+	if spellunmat > 0:'Power Rikudo "not material" <a href="exec:gt ''spell'', ''unmat''">to create a spell</a>'
+	if spellfire1 > 0:'<b><font color="red">SCHOOL FIRE</font></b>'
+	if spellfire1 > 0:'The Flame <a href="exec:gt ''spell'', ''fire1''">create the spell</a>'
+
+	if round >= 3:
+		if spellfire2 > 0:'Release of fire <a href="exec:gt ''spell'', ''fire2''">create the spell</a>'
+		if spellfire3 > 0:'Fire barrier <a href="exec:gt ''spell'', ''fire3''">create the spell</a>'
+	end
+
+	if round >= 6:
+		if spellfire4 > 0:'Firestorm <a href="exec:gt ''spell'', ''fire4''">create the spell</a>'
+		if spellfire5 > 0:'Flame Shield <a href="exec:gt ''spell'', ''fire5''">create the spell</a>'
+	end
+
+	if spellele1 > 0:'<b><font color="red">SCHOOL OF ELECTRICITY</font></b>'
+	if spellele1 > 0:'Rank <a href="exec:gt ''spell'', ''ele1''">to create a spell</a>'
+
+	if round >= 3:
+		if spellele2 > 0:'Lightning <a href="exec:gt ''spell'', ''ele2''">create the spell</a>'
+		if spellele3 > 0:'Electric barrier <a href="exec:gt ''spell'', ''ele3''">create the spell</a>'
+	end
+
+	if round >= 6:
+		if spellele4 > 0:'Dance of thousands of birds <a href="exec:gt ''spell'', ''ele4''">create the spell</a>'
+		if spellele5 > 0:'Plyaschuschaya scope <a href="exec:gt ''spell'', ''ele5''">create the spell</a>'
+	end
+
+	if spellert1 > 0:'<b><font color="red">SCHOOL LAND</font></b>'
+	if spellert1 > 0:'Quicksand <a href="exec:gt ''spell'', ''ert1''">create the spell</a>'
+
+	if round >= 3:
+		if spellert2 > 0:'Active Protection <a href="exec:gt ''spell'', ''ert2''">create the spell</a>'
+		if spellert3 > 0:'The Abyss <a href="exec:gt ''spell'', ''ert3''">create the spell</a>'
+	end
+
+	if round >= 6:
+		if spellert4 > 0:'Absolute protection <a href="exec:gt ''spell'', ''ert4''">to create a spell</a>'
+		if spellert5 > 0:'Sando <a href="exec:gt ''spell'', ''ert5''">create the spell</a>'
+	end
+
+	if spellwind1 > 0:'<b><font color="red">SCHOOL WIND</font></b>'
+	if spellwind1 > 0:'Gust <a href="exec:gt ''spell'', ''wind1''">create the spell</a>'
+
+	if round >= 3:
+		if spellwind2 > 0:'Horrendous pressure <a href="exec:gt ''spell'', ''wind2''">create the spell</a>'
+		if spellwind3 > 0:'Vacuum protective sphere <a href="exec:gt ''spell'', ''wind3''">create the spell</a>'
+	end
+
+	if round >= 6:
+		if spellwind4 > 0:'Vacuum Rockets <a href="exec:gt ''spell'', ''wind4''">create the spell</a>'
+		if spellwind5 > 0:'Devouring vacuum <a href="exec:gt ''spell'', ''wind5''">create the spell</a>'
+	end
+
+	if spellwater1 > 0:'<b><font color="red">SCHOOL WATER</font></b>'
+	if spellwater1 > 0:'Creek manna <a href="exec:gt ''spell'', ''water1''">create the spell</a>'
+
+	if round >= 3:
+		if spellwater2 > 0:'Flooding <a href="exec:gt ''spell'', ''water2''">create the spell</a>'
+		if spellwater3 > 0:'Blister <a href="exec:gt ''spell'', ''water3''">create the spell</a>'
+	end
+
+	if round >= 6:
+		if spellwater4 > 0:'Water shark missile <a href="exec:gt ''spell'', ''water4''">create a spell</a>'
+		if spellwater5 > 0:'Great Flood <a href="exec:gt ''spell'', ''water5''">create the spell</a>'
+	end
+end
+
+act 'Physical Attack':gt 'boxing'
+
+--- magik ---------------------------------

+ 0 - 44
locations/049_boxing

@@ -1,44 +0,0 @@
-# boxing
-!Выбор физической атаки
-
-if weapon = 0:
-	act 'Fist':
-	cla
-	!gs 'atak'
-	xgt 'atak','player'
-	end
-end
-
-if weapon > 0:
-if weaponTipe = 1: set $weap = 'sword'
-if weaponTipe = 2: set $weap = 'mace'
-if weaponTipe = 3: set $weap = 'ax'
-	act 'Strike <<$weap>>':
-	cla
-	!gs 'atak'
-	xgt 'atak','player'
-	end
-end
-
-if kunai > 0:
-'You have <<kunai>> throwing knives.'
-	act 'Throw a knife':
-	cla
-	knife = input ("How to throw a knife?")
-		if knife > kunai:
-		set knife = kunai
-		set kunai = 0
-		end
-		if knife <= kunai:
-		set kunai -= knife
-		end
-	'<font color = green>You are flashed <<knife>> knives.</font>'
-	xgt 'atak','player'
-	end
-end
-
-if magik > 0:
-act 'Magical Attack': gt 'magik'
-end
---- boxing ---------------------------------
-

+ 489 - 0
locations/049_enemy

@@ -0,0 +1,489 @@
+# enemy
+!!Calculation of the enemy`s attack
+
+!!in this block is selected on the basis of the variable program enemy attacks
+if $ARGS[0] = 'start':
+	cla
+
+	if program = 0:xgt 'enemy', 'fighter' !!!Action Programme simple attacker fizuhoy
+	if program = 1:	xgt 'enemy', 'fighter2' !!Action Programme fizuha and knives
+	if program = 2:xgt 'enemy', 'fighter3' !!Action Programme fizuha, knives, it_mists
+	if program = 3:xgt 'enemy', 'fighter4' !!Action Programme fizuha, knives, it_mists, clones
+	if program = 4:xgt 'enemy', 'fighter5' !!Action Programme fizuha, knives, it_mists, clones, paralysis
+
+	if program = 5:xgt 'enemy', 'kisame' !!Action Programme Kisame
+	if program = 6:xgt 'enemy', 'tobi' !!Action Programme Toby
+	if program = 7:xgt 'enemy', 'gedomazo' !!Action Programme Toby
+	if program = 8:xgt 'enemy', 'gun' !!program of action firearms
+	if program = 9:xgt 'enemy', 'sasori' !!Action Programme Sasori
+	if program = 10:xgt 'enemy', 'konan' !!Action Programme Conan
+	if program = 11:xgt 'enemy', 'hidan' !!Action Programme Hidan
+end
+
+if $ARGS[0] = 'hidan':
+	cla
+
+	if zerkaloV > 0:set barierV = 0
+	if zerkaloV <= 0:set barierV = 5500
+	if healthV < vitalV * 10 + strenV * 5:set healthV = vitalV * 10 + strenV * 5
+
+	if zerkaloV > 0:
+		set healthV = vitalV * 10 + strenV * 5
+		set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
+		set willpowerV = willV * 10
+		set health -= 400
+		set manna -= 500
+		'<b><font color="red"><<$nameV>> yells "RITUAL BEGINS!" and stands in a circle inscribed in blood on the ground.</font></b>'
+		'<b><font color="red">He stabs himself and you feel like the pain pierces the body.</font></b>'
+		xgt 'fight', 'sta'
+		exit
+	end
+
+	if zerkaloV <= 0 and defence > 0:
+		set damTipV = 5000
+		set bonusShV = 100
+		set hidanAtk = 1
+		'<b><font color="red"><<$nameV>> yells "Your existence offends DZHASHINA MY GOD!" and throws you in his scythe trehlezviynuyu driving it by a line.</font></b>'
+
+		if klon > 0:set klon = klon / 2 & '<b><font color="red"><<$nameV>> yells "Mraz I slaughter YOU LIKE A PIG!"</font></b>'
+
+		xgt 'atakA1', 'atak'
+		exit
+	end
+
+	if zerkaloV <= 0 and defence <= 0:
+		set damTipV = 300
+		set bonusShV = 100
+		set hidanAtk = 1
+		'<b><font color="red"><<$nameV>> yells "You will die a blasphemer!" and throws you in his scythe trehlezviynuyu driving it by a line.</font></b>'
+
+		if klon > 0:set klon = 0 & '<b><font color="red">Your clones turned into steam from the blow spit. <<$nameV>> yells "I IMMORTAL Ravager! And YOU SHIT!"</font></b>'
+		if tuman > 0:set tuman = 0 & '<b><font color="red"><<$nameV>> yells "You´re pathetic in their vain attempts SPRYATATSYA FROM ME!"</font></b>'
+
+		xgt 'atakA1', 'atak'
+		exit
+	end
+end
+
+if $ARGS[0] = 'konan':
+	cla
+
+	if round < 6:
+		set mannaV -= 10
+		set damTipV = 500
+		'<b><font color="red"><<$nameV>> adds signs hands and you are flying sheets of paper.</font></b>'
+
+		if klon > 0:set klon = 0 & '<b><font color="red">Your clones turned into steam from hitting the paper.</font></b>'
+
+		xgt 'atakA1', 'atak'
+		exit
+	end
+
+	if round >= 6:
+		if unmaterialV > 5 and defence > 0:
+			set mannaV -= 250
+			set damTipV = 15000
+			set bonusShV = 100
+			'<b><font color="red"><<$nameV>> takes to the air on the white wings and pulled out from her wings paper falls on you in a flood of flying with terrible speed paper swords.</font></b>'
+
+			if klon > 0:set klon = 0 & '<b><font color="red">Your clones turned into steam from hitting the paper.</font></b>'
+
+			xgt 'atakA1', 'atak'
+			exit
+		end
+
+		if unmaterialV > 5 and defence <= 0:
+			set mannaV -= 20
+			set damTipV = 450
+			'<b><font color="red"><<$nameV>> creates a paper boomerangs that fly in your direction.</font></b>'
+			xgt 'atakA1', 'atak'
+			exit
+		end
+
+		if defenceV <= 0 and unmaterialV <= 5:
+			set mannaV -= 250
+			set defenceV += 3000
+			set defenceMV += 3000
+			set defenceWV += 3000
+			'<b><font color="red">Conan shoots up to its paper wings like an angel. Around it starts spinning paper creating her protection.</font></b>'
+			xgt 'fight', 'sta'
+			exit
+		end
+
+		if unmaterialV <= 2 and konanD < 3:
+			set mannaV -= 150
+			set konanD += 1
+			'<b><font color="red">Conan stops meditating in the air.</font></b>'
+			xgt 'fight', 'sta'
+			exit
+		end
+
+		if konanD >= 3:
+			set mannaV -= 250
+			set konanD = 0
+			set unmaterialV = 20
+			'<b><font color="red">Conan crumbles in the air for thousands of sheets of paper.</font></b>'
+			xgt 'fight', 'sta'
+			exit
+		end
+	end
+end
+
+if $ARGS[0] = 'sasori':
+	cla
+
+	if SasoriBody > 1:set damTipV = 1000
+	if SasoriBody = 1:set damTipV = 2000
+
+	set poisonAV = 1
+	set defenceV += 10
+	set defenceMV += 20
+	set defenceWV += 50
+	set mannaV -= 10
+
+	if SasoriBody = 1 and defence > 0:
+		set defSasori = defence * 20 / 100
+		set defence -= defSasori
+		'<b><font color="red">of rain falls on top of steel needles greatly weaken your defenses.</font></b>'
+	end
+
+	'<b><font color="red"><<$nameV>> shoots at you the whole cloud of poisonous spines.</font></b>'
+
+	if klon > 0:set klon = 0 & '<b><font color="red">Your clones turned into steam from the blow needle.</font></b>'
+
+	xgt 'atakA1', 'atak'
+end
+
+if $ARGS[0] = 'gedomazo':
+	cla
+
+	if klon <= 0 and tuman <= 0:
+		set magweapbonusV = 5000
+		'<b><font color="red"><<$nameV>> with a furious roar of effort on you for its huge stone fist.</font></b>'
+		xgt 'atak', 'enemy'
+		exit
+	end
+
+	if klon > 0 or tuman > 0:
+		set klon = 0
+		set tuman = 0
+		set mannaV -= 500
+		'<b><font color="red"><<$nameV>> makes a terrible roar and air shock wave sweeps over the battlefield.</font></b>'
+		xgt 'fight', 'sta'
+		exit
+	end
+end
+
+if $ARGS[0] = 'tobi':
+	cla
+
+	!!program attacks Toby
+	if unmaterialV <= 0 and IzanagiV = 0 and GedoMazo = 0:
+		*clr
+		'<b><font color="red"><<$nameV>> fingers to his lips and said quietly, "KUCHIE SAINT BUT JITSU."</font></b>'
+		'<b><font color="red">you will see Huge stone statue of a demon, and you rushed to the attack.</font></b>'
+		set GedoMazo = 1
+		set $nameV = 'Gedo Mazo'
+		!!stats
+		set strenV = 1000
+		set speedV = 100
+		set agilV = 90
+		set reactV = 100
+		set vitalV = 5000
+		set intelV = 50
+		set willV = 50
+		!!skills
+		set magikV = 1
+		set boxingV = 100
+		set 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
+		!!Programme of Action
+		set barierV = 1500
+		set program = 7
+		xgt 'fight', 'start'
+		exit
+	end
+
+	if unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 0:
+		set mannaV -= 500
+		set TobiStena = 1
+		set defenceV += 25000
+		'<b><font color="red"><<$nameV>> makes Arcanum and reinforcing the skin blackens his body and creating protection of 25,000 units.</font></b>'
+		set barierV = 2000
+		xgt 'fight', 'sta'
+		exit
+	end
+
+	if unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 1:
+		set mannaV += 6000
+		set TobiStena = 2
+		'<b><font color="red"><<$nameV>> makes the magic sign and you feel like it´s magical energy increases sharply.</font></b>'
+		xgt 'fight', 'sta'
+		exit
+	end
+
+	if stun > 0:
+		set magweapbonusV = 2000
+		'<b><font color="red"><<$nameV>> triumphantly said, "Now you´re dead."</font></b>'
+		'<b><font color="red">He grabs you by the throat and lifts his hand in the air.</font></b>'
+		'<b><font color="red">His fingers like steel and they squeeze your throat with terrible force.</font></b>'
+		xgt 'atak', 'enemy'
+		exit
+	end
+
+	if defence >= 5000:
+		set defence = 0
+		set defenceM = 0
+		set defenceActPar = 0
+		set defenceActParM = 0
+		set defenceAct = 0
+		set defenceActM = 0
+		set defAtk = 0
+		set mannaV -= 100
+		set stunV = 1
+		'<b><font color="red"><<$nameV>> close your eyes and you saw of him as a tear ran down a drop of blood.</font></b>'
+		'<b><font color="red">He opened his eyes become completely red with black veins and said Amaterasu</font></b>'
+		'<b><font color="red">In your face rushed black devouring flames destroy your lightning protection.</font></b>'
+		xgt 'fight', 'sta'
+		exit
+	end
+
+	if tuman > 0:
+		set tumanV += tuman
+		set tuman = 0
+		'<b><font color="red"><<$nameV>> adds the magic signs your hands and mist coming under his control enveloping the review of you.</font></b>'
+		'<b><font color="red">He will attack you.</font></b>'
+		xgt 'atak', 'enemy'
+		exit
+	end
+
+	if unmaterialV > 0 and klon <= 0:
+		set stunnerV = 1
+		set mannaV -= 20
+		set magweapbonusV = 800
+		'<b><font color="red"><<$nameV>> attacks you gathered the manna in the hand.</font></b>'
+		xgt 'atak', 'enemy'
+		exit
+	end
+
+	if unmaterialV > 0 and klon > 0:
+		set klon = 0
+		set stunV = 1
+		'<b><font color="red"><<$nameV>> adds signs hands and all your clones just turn into steam.</font></b>'
+		xgt 'atak', 'enemy'
+		exit
+	end
+
+	if unmaterialV <= 0 and tobizanagi < 2:
+		set mannaV -= 250
+		set tobizanagi += 1
+		!!set unmaterialV = 10
+		'<b><font color="red"><<$nameV>> adds the characters by hand.</font></b>'
+		xgt 'fight', 'sta'
+		exit
+	end
+
+	if unmaterialV <= 0 and tobizanagi = 2:
+		set mannaV -= 250
+		set tobizanagi = 0
+		set unmaterialV = 20
+		set stunV = 1
+		'<b><font color="red"><<$nameV>> folds his hands and marks around his eyes twisted vortex.</font></b>'
+		xgt 'fight', 'sta'
+		exit
+	end
+end
+
+if $ARGS[0] = 'kisame':
+	cla
+	!!program attack Kisame
+
+	if defenceV <= 0 and kisamePro = 0:
+		set kisamePro = 1
+		set mannaV -= 150
+		set defenceV += 1500
+		set defenceMV += 1500
+		set defenceWV += 1500
+		set defenceActParV = 500
+		set defenceActParMV = 500
+		set defenceActV = 10
+		set defenceActMV = 10
+		'<b><font color="red"><<$nameV>> adds the marks around his hands and formed water sphere protecting it from damage.</font></b>'
+		xgt 'fight', 'sta'
+		exit
+	end
+
+	if defenceV <= 1000 and kisamePro > 0:
+		set mannaV -= 500
+		set defenceV += 5000
+		set defenceMV += 5000
+		set defenceWV += 5000
+		set defenceActParV = 500
+		set defenceActParMV = 500
+		set defenceActV = 10
+		set defenceActMV = 10
+		set defAtkMV = 10
+		'<b><font color="red"><<$nameV>> adds the marks and the space around the hands begins pogruzhatsya water.</font></b>'
+
+		if klon > 0:set klon = 0 & '<b><font color="red">Your clones turned into steam from hitting the water.</font></b>'
+
+		xgt 'fight', 'sta'
+		exit
+	end
+
+	if defenceV > 1000:
+		set kisamerand= rand(0, 3)
+
+		if kisamerand= 0:
+			set klonV += 3
+			'<b><font color="red"><<$nameV>> adds the characters by hand.</font></b>'
+			xgt 'fight', 'sta'
+			exit
+		end
+
+		if kisamerand> 0:
+			set mannaV -= 250
+			set damTipV = 1500
+			set damTipMV = 2500
+			set bonusShV = 50
+			'<b><font color="red"><<$nameV>> adds the characters in the hands and fly sharks have created from the water.</font></b>'
+
+			if klon > 0:set klon = 0 & '<b><font color="red">Your clones turned into steam from hitting the water.</font></b>'
+
+			xgt 'atakA1', 'atak'
+			exit
+		end
+	end
+
+	'<b><font color="red"><<$nameV>> attacks.</font></b>'
+	xgt 'enemy', 'fighter'
+end
+
+if $ARGS[0] = 'gun':
+	cla
+	!!program directly attack
+	!!gs 'atak'
+	set damTipV = 1500
+	'<b><font color="red"><<$nameV>> shoots at you.</font></b>'
+	xgt 'atakA1', 'atak'
+end
+
+if $ARGS[0] = 'fighter':
+	cla
+	!!program directly attack
+	!!gs 'atak'
+	xgt 'atak', 'enemy'
+end
+
+if $ARGS[0] = 'fighter2':
+	cla
+	!!program directly attack
+	set deystrand = rand(0, 1)
+
+	if deystrand = 0:xgt 'atak', 'enemy'
+
+	if deystrand = 1:
+		set knifeV = rand(1, 3)
+		'<b><font color="red"><<$nameV>> have a throws <<knifeV>> the blades</font></b>'
+		xgt 'atak', 'enemy'
+	end
+end
+
+if $ARGS[0] = 'fighter3':
+	cla
+
+	!!program directly attack
+	if tuman = 0 and tumanV < 5 and mannaV > 10:
+		set mannaV -= 10
+		set tumanV += 10
+		'<b><font color="red"><<$nameV>> produces a fog on the battlefield.</font></b>'
+		xgt 'fight', 'sta'
+		exit
+	end
+
+	set deystrand = rand(0, 1)
+
+	if deystrand = 0:xgt 'atak', 'enemy'
+
+	if deystrand = 1:
+		set knifeV = rand(1, 3)
+		'<b><font color="red"><<$nameV>> have a throws <<knifeV>> the blades</font></b>'
+		xgt 'atak', 'enemy'
+	end
+end
+
+if $ARGS[0] = 'fighter4':
+	cla
+
+	!!program directly attack
+	if tuman = 0 and tumanV < 5 and mannaV > 10:
+		set mannaV -= 10
+		set tumanV += 10
+		'<b><font color="red"><<$nameV>> produces a fog on the battlefield.</font></b>'
+		xgt 'fight', 'sta'
+		exit
+	end
+
+	if klonV < 1 and mannaV > 15:
+		set mannaV -= 15
+		set klonV += 1
+		'<b><font color="green">is washed</font></b>'
+		xgt 'fight', 'sta'
+		exit
+	end
+
+	set deystrand = rand(0, 1)
+
+	if deystrand = 0:xgt 'atak', 'enemy'
+
+	if deystrand = 1:
+		set knifeV = rand(1, 3)
+		'<b><font color="red"><<$nameV>> have a throws <<knifeV>> the blades</font></b>'
+		xgt 'atak', 'enemy'
+	end
+end
+
+if $ARGS[0] = 'fighter5':
+	cla
+
+	!!program directly attack
+	if tuman = 0 and tumanV < 5 and mannaV > 10:
+		set mannaV -= 10
+		set tumanV += 10
+		'<b><font color="red"><<$nameV>> produces a fog on the battlefield.</font></b>'
+		xgt 'fight', 'sta'
+		exit
+	end
+
+	if klonV < 1 and mannaV > 15:
+		set mannaV -= 15
+		set klonV += 1
+		'<b><font color="green">is washed</font></b>'
+		xgt 'fight', 'sta'
+		exit
+	end
+
+	if stun < 1 and manna > 20:
+		set stunnerV = 1
+		set mannaV -= 20
+		'<b><font color="red"><<$nameV>> attacks you Gouge.</font></b>'
+		xgt 'atak', 'enemy'
+	end
+
+	set deystrand = rand(0, 1)
+
+	if deystrand = 0:xgt 'atak', 'enemy'
+
+	if deystrand = 1:
+		set knifeV = rand(1, 3)
+		'<b><font color="red"><<$nameV>> have a throws <<knifeV>> the blades</font></b>'
+		xgt 'atak', 'enemy'
+	end
+end
+
+--- enemy ---------------------------------

+ 493 - 0
locations/050_atak

@@ -0,0 +1,493 @@
+# atak
+if $ARGS[0] = 'player':
+	cla
+	!!!!!!!
+	set tip = 0
+	!!!!!!!
+	set strenA = stren
+	set speedA = speed
+	set agilA = agil
+	set vitalA = vital
+	!!skills
+	set boxingA = boxing
+	!!parameters
+	set healthA = health
+	set BonusA = BonusAtak
+	!!!!!!!!!
+	set strenD = strenV
+	set speedD = speedV
+	set agilD = agilV
+	set vitalD = vitalV
+	!!skills
+	set boxingD = boxingV
+	!!parameters
+	set healthD = healthV
+	set initBonusA = initBonus
+	set initBonus = 0
+	set initBonusV = 0
+	set BonusD = BonusDefV
+
+	if stunV <= 0:xgt 'atak', 'popad'
+
+	if stunV > 0:
+		'<b><font color="green"><<$nameV>> can not move a critical hit</font></b>'
+		xgt 'atak', 'uronKrit'
+	end
+end
+
+if $ARGS[0] = 'enemy':
+	cla
+	!!!!!!!
+	set tip = 1
+	!!!!!!!
+	set strenA = strenV
+	set speedA = speedV
+	set agilA = agilV
+	set vitalA = vitalV
+	!!skills
+	set boxingA = boxingV
+	!!parameters
+	set healthA = healthV
+	set BonusA = BonusAtakV
+	!!!!!!!!!!!!!!
+	set strenD = stren
+	set speedD = speed
+	set agilD = agil
+	set vitalD = vital
+	!!skills
+	set boxingD = boxing
+	!!parameters
+	set healthD = health
+	set BonusD = BonusDef
+	set initBonusA = initBonusV
+	set initBonus = 0
+	set initBonusV = 0
+
+	if stun <= 0:xgt 'atak', 'popad'
+
+	if stun > 0:
+		'<b><font color="red">You can not move a critical hit</font></b>'
+		xgt 'atak', 'uronKritV'
+	end
+end
+
+if $ARGS[0] = 'popad':
+	cla
+	!!payment hit dodge
+	set poSp = speedA * 20/100
+	set uvAg = agilD * 20/100
+	set poBox = boxingA * 20/100
+	set uvBox = boxingD * 20/100
+	set popad = rand(boxingA - poBox, boxingA + poBox) + rand(speedA - poSp, speedA + poSp) + BonusA + initBonusA
+	set uvorot = rand(boxingD - uvBox, boxingD + uvBox) + rand(agilD - uvAg, agilD + uvAg) + BonusD
+	set uvorKoef = uvorot * 50/100
+	set popKoef = popad * 50/100
+
+	if popad > uvorot:
+		if popad >= uvorot + uvorKoef:
+			!!Crete, very direct hit
+			if tip = 0:
+				!!attack players
+				'<b><font color="green">critical hits</font></b>'
+				xgt 'atak', 'uronKrit'
+			end
+
+			if tip = 1:
+				!!attack the enemy
+				'<b><font color="red">critical hits</font></b>'
+				xgt 'atak', 'uronKritV'
+			end
+		end
+
+		if popad < uvorot+uvorKoef:
+			!!normal hit
+			if tip = 0:
+				!!attack players
+				'<b><font color="green">Contact</font></b>'
+				xgt 'atak', 'uron'
+			end
+
+			if tip = 1:
+				!!attack the enemy
+				'<b><font color="red">Contact</font></b>'
+				xgt 'atak', 'uronV'
+			end
+		end
+	end
+
+	if popad <= uvorot:
+		if popad + popKoef <= uvorot:
+			!!critical blunder
+			if tip = 0:
+				!!attack players
+				'<b><font color="red">CRITICAL SLIP</font></b>'
+				xgt 'atak', 'uronKritV'
+			end
+
+			if tip = 1:
+				!!attack the enemy
+				'<b><font color="green">CRITICAL SLIP</font></b>'
+				xgt 'atak', 'uronKrit'
+			end
+		end
+
+		if popad + popKoef > uvorot:
+			!!bloomer
+			if tip = 0:
+				!!attack players
+				'<b><font color="red">is washed</font></b>'
+				xgt 'fight', 'sta'
+			end
+
+			if tip = 1:
+				!!attack the enemy
+				'<b><font color="green">is washed</font></b>'
+				xgt 'fight', 'sta'
+			end
+		end
+	end
+end
+
+
+if $ARGS[0] = 'uronKrit':
+	cla
+	set damage = rand(stren, stren * 2) + weapbonus + magweapbonus
+
+	if knife > 0:
+		set knibon = knife + 1
+		set knife = 0
+		set damage = damage * knibon
+		set knibon = 0
+		'<b><font color="green">your opponent flies throwing knife</font></b>'
+	end
+
+	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
+		if dospehV > 0:set damage -= dospehDefV & set dospehEnV -= 1
+		if damage < 0:set damage = 0
+
+		set healthV -= damage
+
+		if weaponTipe = 1:set bloodV += rand(weapon / 4, weapon / 2)
+		if weaponTipe = 2:set stun += rand(1, 2)
+		if weaponTipe = 3:set bloodV += rand(weapon / 4, weapon / 2)
+
+		if stunner > 0:
+			set stunner = 0
+			set stunV = rand(3, 6)
+			'<b><font color="green">You are paralyzed the enemy <<stunV>> moves.</font></b>'
+		end
+
+		'<b><font color="green">Apply Done <<damage>> units</font></b>'
+
+		if zerkaloV > 0:
+			set zerkaloV -= 1
+			set health -= damage
+			'<b><font color="red"><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></b>'
+		end
+
+		xgt 'fight', 'sta'
+	end
+
+	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
+		set defenceV -= damage
+		'<b><font color="green">Protection of the enemy harmed <<damage>> units</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if klonV > 0 and unmaterialV <= 0:
+		set klonV -= 1
+		'<b><font color="green">Destroyed clone enemy, he still had <<KlonV>> clones</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if unmaterialV > 0:
+		set unmaterialV -= 1
+		'<b><font color="red">Your shot went straight through the opponent´s body. <<$nameV>> is not material</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if barierV > 0:
+		!!imeniteta barrier for damage
+		if barierV >= damage:
+			'<b><font color="red"><<$nameV>> easily withstood your butt</font></b>'
+			xgt 'fight', 'sta'
+		end
+
+		if barierV < damage:
+			set healthV -= damage
+
+			if weaponTipe = 1:set bloodV += rand(weapon / 4, weapon / 2)
+			if weaponTipe = 2:set stun += rand(1, 2)
+			if weaponTipe = 3:set bloodV += rand(weapon / 4, weapon / 2)
+
+			if stunner > 0:
+				set stunV = rand(3, 6)
+				'<b><font color="green">You are paralyzed the enemy <<stunV>> moves.</font></b>'
+			end
+
+			'<b><font color="green">Apply Done <<damage>> units</font></b>'
+
+			if zerkaloV > 0:
+				set zerkaloV -= 1
+				set health -= damage
+				'<b><font color="red"><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></b>'
+			end
+		end
+
+		xgt 'fight', 'sta'
+	end
+end
+
+if $ARGS[0] = 'uron':
+	cla
+	set stKo = stren * 20 / 100
+	set damage = rand(stren - stKo, stren + stKo) + weapbonus + magweapbonus
+
+	if knife > 0:
+		set knibon = knife + 1
+		set knife = 0
+		set damage = damage * knibon
+		set knibon = 0
+		'<b><font color="green">your opponent flies throwing knife</font></b>'
+	end
+
+	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
+		if dospehV > 0:set damage -= dospehDefV & set dospehEnV -= 1
+		if damage < 0:set damage = 0
+
+		set healthV -= damage
+
+		if stunner > 0:
+			set stunner = 0
+			set stunV = rand(1, 3)
+			'<b><font color="green">You are paralyzed the enemy <<stunV>> moves.</font></b>'
+		end
+
+		'<b><font color="green">Apply Done <<damage>> units</font></b>'
+
+		if zerkaloV > 0:
+			set zerkaloV -= 1
+			set health -= damage
+			'<b><font color="red"><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></b>'
+		end
+
+		xgt 'fight', 'sta'
+	end
+
+	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
+		set defenceV -= damage
+		'<b><font color="green">Protection of the enemy harmed <<damage>> units</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if klonV > 0 and unmaterialV <= 0:
+		set klonV -= 1
+		'<b><font color="green">Destroyed clone enemy, he still had <<KlonV>> clones</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if unmaterialV > 0:
+		set unmaterialV -= 1
+		'<b><font color="red">Your shot went straight through the opponent´s body. <<$nameV>> is not material</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if barierV > 0:
+		!!imeniteta barrier for damage
+		if barierV >= damage:
+			'<b><font color="red"><<$nameV>> easily withstood your butt</font></b>'
+			xgt 'fight', 'sta'
+		end
+
+		if barierV < damage:
+			set healthV -= damage
+			if stunner > 0:
+				set stunV = rand(1, 3)
+				'<b><font color="green">You are paralyzed the enemy <<stunV>> moves.</font></b>'
+			end
+
+			'<b><font color="green">Apply Done <<damage>> units</font></b>'
+
+			if zerkaloV > 0:
+				set zerkaloV -= 1
+				set health -= damage
+				'<b><font color="red"><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></b>'
+			end
+		end
+
+		xgt 'fight', 'sta'
+	end
+end
+
+if $ARGS[0] = 'uronKritV':
+	cla
+	set damage = rand(strenV, strenV * 2) + weapbonusV + magweapbonusV
+
+	if knifeV > 0:
+		set knibonV = knifeV + 1
+		set knifeV = 0
+		set damage = damage * knibonV
+		set knibonV = 0
+		'<b><font color="red">you throwing knife flies</font></b>'
+	end
+
+	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
+		if dospeh > 0:set damage -= dospehDef & set dospehEn -= 1
+		if damage < 0:set damage = 0
+
+		set health -= damage
+
+		if weaponTipeV = 1:set blood += rand(weaponV / 4, weaponV / 2)
+		if weaponTipeV = 2:set stunV += rand(1, 2)
+		if weaponTipeV = 3:set blood += rand(weaponV / 4, weaponV / 2)
+
+		if stunnerV > 0:
+			set stunnerV = 0
+			set stun = rand(3, 6)
+			'<b><font color="red"><<$nameV>> paralyzed you to <<stun>> moves.</font></b>'
+		end
+
+		'<b><font color="red">You harmed <<damage>> units</font></b>'
+
+		if zerkalo > 0:
+			set zerkalo -= 1
+			set healthV -= damage
+			'<b><font color="green">You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></b>'
+		end
+
+		xgt 'fight', 'sta'
+	end
+
+	if defence > 0 and klon <= 0 and unmaterial <= 0:
+		set defence -= damage
+		'<b><font color="red">Protection of your harmed <<damage>> units</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if klon > 0 and unmaterial <= 0:
+		set klon -= 1
+		'<b><font color="red">destroy your clone, you have more <<Klon>> clones</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if unmaterial > 0:
+		set unmaterial -= 1
+		'<b><font color="green">Strike the enemy flew right through your body. YOU is not material</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if barier > 0:
+		!!imeniteta barrier for damage
+		if barier >= damage:
+			'<b><font color="green">You can easily withstood the impact of the opponent</font></b>'
+			xgt 'fight', 'sta'
+		end
+
+		if barier < damage:
+			set health -= damage
+
+			if weaponTipeV = 1:set blood += rand(weaponV / 4, weaponV / 2)
+			if weaponTipeV = 2:set stunV += rand(1, 2)
+			if weaponTipeV = 3:set blood += rand(weaponV / 4, weaponV / 2)
+
+			if stunnerV > 0:
+				set stun = rand(3, 6)
+				'<b><font color="red"><<$nameV>> paralyzed you to <<stun>> moves.</font></b>'
+			end
+
+			'<b><font color="red">You harmed <<damage>> units</font></b>'
+
+			if zerkalo > 0:
+				set zerkalo -= 1
+				set healthV -= damage
+				'<b><font color="green">You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></b>'
+			end
+		end
+
+		xgt 'fight', 'sta'
+	end
+end
+
+if $ARGS[0] = 'uronV':
+	cla
+	set stKo = strenV * 20/100
+	set damage = rand(strenV - stKo, strenV + stKo) + weapbonusV + magweapbonusV
+
+	if knifeV > 0:
+		set knibonV = knifeV + 1
+		set knifeV = 0
+		set damage = damage * knibonV
+		set knibonV = 0
+		'<b><font color="red">you throwing knife flies</font></b>'
+	end
+
+	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
+		if dospeh > 0:set damage -= dospehDef & set dospehEn -= 1
+		if damage < 0:set damage = 0
+
+		set health -= damage
+
+		if stunnerV > 0:
+			set stunnerV = 0
+			set stun = rand(3, 6)
+			'<b><font color="red"><<$nameV>> paralyzed you to <<stun>> moves.</font></b>'
+		end
+
+		'<b><font color="red">You harmed <<damage>> units</font></b>'
+
+		if zerkalo > 0:
+			set zerkalo -= 1
+			set healthV -= damage
+			'<b><font color="green">You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></b>'
+		end
+
+		xgt 'fight', 'sta'
+	end
+
+	if defence > 0 and klon <= 0 and unmaterial <= 0:
+		set defence -= damage
+		'<b><font color="red">Protection of your harmed <<damage>> units</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if klon > 0 and unmaterial <= 0:
+		set klon -= 1
+		'<b><font color="red">destroy your clone, you have more <<Klon>> clones</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if unmaterial > 0:
+		set unmaterial -= 1
+		'<b><font color="green">Strike the enemy flew right through your body. YOU is not material</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if barier > 0:
+		!!imeniteta barrier for damage
+		if barier >= damage:
+			'<b><font color="green">You can easily withstood the impact of the opponent</font></b>'
+			xgt 'fight', 'sta'
+		end
+
+		if barier < damage:
+			set health -= damage
+
+			if stunnerV > 0:
+				set stun = rand(3, 6)
+				'<b><font color="red"><<$nameV>> paralyzed you to <<stun>> moves.</font></b>'
+			end
+
+			'<b><font color="red">You harmed <<damage>> units</font></b>'
+
+			if zerkalo > 0:
+				set zerkalo -= 1
+				set healthV -= damage
+				'<b><font color="green">You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></b>'
+			end
+		end
+
+		xgt 'fight', 'sta'
+	end
+end
+
+--- atak ---------------------------------

+ 0 - 74
locations/050_magik

@@ -1,74 +0,0 @@
-# magik
-!Выбор магической атаки
-
-'Spells:'
-
-if round >= 0:
-	if spelltuman > 0: 'Cover terrain fog <a href="exec: GT ''spell'',''tuman''">create the spell</a>'
-	if spellklon > 0: 'Substitute itself clone <a href="exec: GT ''spell'',''klon''">create the spell</a>'
-	if spellstun > 0: 'Paralyze the enemy <a href="exec: GT ''spell'',''stun''">create the spell</a>'
-	if spellweap > 0 and weapon > 0: 'Invest in energy weapons <a href="exec: GT ''spell'',''weap''">create the spell</a>'
-	if spellwind > 0: 'Blow the mist <a href="exec: GT ''spell'',''wind''">create the spell</a>'
-	if spellklon2 > 0: 'Substitute themselves clones (3 pieces) <a href="exec: GT ''spell'',''klon2''">to create a spell</a>'
-	if spellenergo > 0: 'Create weak energy shield <a href="exec: GT ''spell'',''energo''">create the spell</a>'
-	if spellinit > 0: 'Create weak deceleration time <a href="exec: GT ''spell'',''init''">create the spell</a>'
-	if spellhel > 0: 'Treat yourself to <a href="exec: GT ''spell'',''hel''">create the spell</a>'
-	if spellhand > 0: 'Striking hand <a href="exec: GT ''spell'',''hand''">create the spell</a>'
-	if spellreset > 0 or spellunmat > 0: '<B><font color = red>POWER Rikudo</font></B>'
-	if spellreset > 0: 'Power Rikudo "podcherpnut collected energy" <a href="exec: GT ''spell'',''reset''">to create a spell</a>'
-	if spellunmat > 0: 'Power Rikudo "not material" <a href="exec: GT ''spell'',''unmat''">to create a spell</a>'
-	if spellfire1 > 0: '<B><font color = red>SCHOOL FIRE</font></B>'
-	if spellfire1 > 0: 'The Flame <a href="exec: GT ''spell'',''fire1''">create the spell</a>'
-	if round >= 3:
-	if spellfire2 > 0: 'Release of fire <a href="exec: GT ''spell'',''fire2''">create the spell</a>'
-	if spellfire3 > 0: 'Fire barrier <a href="exec: GT ''spell'',''fire3''">create the spell</a>'
-	end
-	if round >= 6:
-	if spellfire4 > 0: 'Firestorm <a href="exec: GT ''spell'',''fire4''">create the spell</a>'
-	if spellfire5 > 0: 'Flame Shield <a href="exec: GT ''spell'',''fire5''">create the spell</a>'
-	end
-	if spellele1 > 0: '<B><font color = red>SCHOOL OF ELECTRICITY</font></B>'
-	if spellele1 > 0: 'Rank <a href="exec: GT ''spell'',''ele1''">to create a spell</a>'
-	if round >= 3:
-	if spellele2 > 0: 'Lightning <a href="exec: GT ''spell'',''ele2''">create the spell</a>'
-	if spellele3 > 0: 'Electric barrier <a href="exec: GT ''spell'',''ele3''">create the spell</a>'
-	end
-	if round >= 6:
-	if spellele4 > 0: 'Dance of thousands of birds <a href="exec: GT ''spell'',''ele4''">create the spell</a>'
-	if spellele5 > 0: 'Plyaschuschaya scope <a href="exec: GT ''spell'',''ele5''">create the spell</a>'
-	end
-	if spellert1 > 0: '<B><font color = red>SCHOOL LAND</font></B>'
-	if spellert1 > 0: 'Quicksand <a href="exec: GT ''spell'',''ert1''">create the spell</a>'
-	if round >= 3:
-	if spellert2 > 0: 'Active Protection <a href="exec: GT ''spell'',''ert2''">create the spell</a>'
-	if spellert3 > 0: 'The Abyss <a href="exec: GT ''spell'',''ert3''">create the spell</a>'
-	end
-	if round >= 6:
-	if spellert4 > 0: 'Absolute protection <a href="exec: GT ''spell'',''ert4''">to create a spell</a>'
-	if spellert5 > 0: 'Sando <a href="exec: GT ''spell'',''ert5''">create the spell</a>'
-	end
-	if spellwind1 > 0: '<B><font color = red>SCHOOL WIND</font></B>'
-	if spellwind1 > 0: 'Gust <a href="exec: GT ''spell'',''wind1''">create the spell</a>'
-	if round >= 3:
-	if spellwind2 > 0: 'Horrendous pressure <a href="exec: GT ''spell'',''wind2''">create the spell</a>'
-	if spellwind3 > 0: 'Vacuum protective sphere <a href="exec: GT ''spell'',''wind3''">create the spell</a>'
-	end
-	if round >= 6:
-	if spellwind4 > 0: 'Vacuum Rockets <a href="exec: GT ''spell'',''wind4''">create the spell</a>'
-	if spellwind5 > 0: 'Devouring vacuum <a href="exec: GT ''spell'',''wind5''">create the spell</a>'
-	end
-	if spellwater1 > 0: '<B><font color = red>SCHOOL WATER</font></B>'
-	if spellwater1 > 0: 'Creek manna <a href="exec: GT ''spell'',''water1''">create the spell</a>'
-	if round >= 3:
-	if spellwater2 > 0: 'Flooding <a href="exec: GT ''spell'',''water2''">create the spell</a>'
-	if spellwater3 > 0: 'Blister <a href="exec: GT ''spell'',''water3''">create the spell</a>'
-	end
-	if round >= 6:
-	if spellwater4 > 0: 'Water shark missile <a href="exec: GT ''spell'',''water4''">create a spell</a>'
-	if spellwater5 > 0: 'Great Flood <a href="exec: GT ''spell'',''water5''">create the spell</a>'
-	end
-end
-
-act 'Physical Attack': gt 'boxing'
---- magik ---------------------------------
-

+ 271 - 0
locations/051_atakA

@@ -0,0 +1,271 @@
+# atakA
+
+if $ARGS[0] = 'atak':
+	cla
+	!!payment hit dodge
+	set poSp = speed * 20/100
+	set uvAg = agilV * 20/100
+	set poBox = react * 20/100
+	set uvBox = reactV * 20/100
+	set popad = rand(react - poBox, react + poBox) + rand(speed - poSp, speed + poSp) + bonusSh
+	set uvorot = rand(reactV - uvBox, reactV + uvBox) + rand(agilV - uvAg, agilV + uvAg)
+	set uvorKoef = uvorot * 50/100
+	set popKoef = popad * 50/100
+
+	if popad > uvorot:
+		if popad >= uvorot + uvorKoef:
+			!!Crete, very direct hit
+			'<b><font color="green">critical hits</font></b>'
+			xgt 'atakA', 'uronKrit'
+		end
+
+		if popad < uvorot + uvorKoef:
+			!!normal hit
+			!!attack the enemy
+			'<b><font color="green">Contact</font></b>'
+			xgt 'atakA', 'uron'
+		end
+	end
+
+	if popad <= uvorot:
+		'<b><font color="red">is washed</font></b>'
+		xgt 'fight', 'sta'
+	end
+end
+
+if $ARGS[0] = 'uronKrit':
+	cla
+	set damKoef = damTip * 20 / 100
+
+	set damage = rand(damTip + damKoef, damTip + damKoef * 2)
+
+	if damTipM > 0:
+		set damKoefM = damTipM * 20/100
+		set damageM = rand(damTipM + damKoefM, damTipM + damKoefM * 2)
+	end
+
+	xgt 'atakA', 'damage'
+end
+
+if $ARGS[0] = 'uron':
+	cla
+	set damKoef = damTip * 20 / 100
+	set damage = rand(damTip - damKoef, damTip + damKoef)
+
+	if damTipM > 0:
+		set damKoefM = damTipM * 20/100
+		set damageM = rand(damTipM - damKoefM, damTipM + damKoefM)
+	end
+
+	xgt 'atakA', 'damage'
+end
+
+if $ARGS[0] = 'damage':
+	cla
+
+	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
+		if dospehV > 0:set damageV -= dospehDefV & set dospehEn -= 1
+		if damage < 0:set damage = 0
+
+		set healthV -= damage
+
+		if damTipM > 0:
+			set mannaV -= damageM
+			set manna += damageM
+			'<b><font color="green">you have ingested <<damageM>> units of manna from the enemy.</font></b>'
+		end
+
+		!!set manna -= damageM
+
+		if eleSh > 0:
+			set stunV = rand(eleSh, eleSh * 3)
+			'<b><font color="green"><<$nameV>> paralyzed <<stunV>> rounds</font></b>'
+		end
+
+		'<b><font color="green">You have caused damage <<damage>> units</font></b>'
+		!!'<b><font color="red">caused damage your manna <<damageM>> units</font></b>'
+
+		if zerkaloV > 0:
+			set zerkaloV -= 1
+			set health -= damage
+			'<b><font color="red"><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></b>'
+		end
+
+		xgt 'fight', 'sta'
+	end
+
+	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
+		!!set damSum = damage + damageM
+		!!set defence -= damSum
+		set defenceV -= damage
+		'<b><font color="green">You have caused damage <<damage>> Protection of the enemy units</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if klonV > 0 and unmaterialV <= 0:
+		set klonV -= 1
+		'<b><font color="green">Destroyed enemy clone</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if unmaterialV > 0:
+		set unmaterialV -= 1
+		'<b><font color="red">Your shot went through the opponent´s body. Opponents do not materials</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if barierV > 0:
+		!!imeniteta barrier for damage
+		if barierV >= damage:
+			'<b><font color="red"><<$nameV>> easily withstood your butt</font></b>'
+			xgt 'fight', 'sta'
+		end
+
+		if barierV < damage:
+			!!set manna -= damageM
+			!!set health -= damage
+			set damage -= barierV
+			set healthV -= damage
+
+			if damTipM > 0:
+				set mannaV -= damageM
+				set manna += damageM
+				'<b><font color="green">you have ingested <<damageM>> units of manna from the enemy.</font></b>'
+			end
+
+			if eleSh > 0:
+				set stunV = rand(eleSh, eleSh * 3)
+				'<b><font color="green"><<$nameV>> paralyzed <<stunV>> rounds</font></b>'
+			end
+
+			'<b><font color="green">You have caused damage <<damage>> units</font></b>'
+			!!'<b><font color="red">caused damage your manna <<damageM>> units</font></b>'
+
+			if zerkaloV > 0:
+				set zerkaloV -= 1
+				set health -= damage
+				'<b><font color="red">Enemy reflected damage and you got <<damage>> points of damage</font></b>'
+			end
+		end
+
+		xgt 'fight', 'sta'
+	end
+end
+
+if $ARGS[0] = 'atakW':
+	cla
+	!!payment hit dodge
+	set poSp = speed * 20 / 100
+	set uvAg = agilV * 20 / 100
+	set poBox = react * 20 / 100
+	set uvBox = reactV * 20 / 100
+	set popad = rand(react - poBox, react + poBox) + rand(speed - poSp, speed + poSp)
+	set uvorot = rand(reactV - uvBox, reactV + uvBox) + rand(agilV - uvAg, agilV + uvAg)
+	set uvorKoef = uvorot * 50 / 100
+	set popKoef = popad * 50 / 100
+
+	if popad > uvorot:
+		if popad >= uvorot + uvorKoef:
+		!!Crete, very direct hit
+			'<b><font color="red">critical hits</font></b>'
+			xgt 'atakA', 'uronKritW'
+		end
+
+		if popad < uvorot + uvorKoef:
+			!!normal hit
+			'<b><font color="red">Contact</font></b>'
+			xgt 'atakA', 'uronW'
+		end
+	end
+
+	if popad <= uvorot:
+		'<b><font color="green">is washed</font></b>'
+		xgt 'fight', 'sta'
+	end
+end
+
+if $ARGS[0] = 'uronKritW':
+	cla
+	set damKoef = damTip * 20 / 100
+	set damage = rand(damTip + damKoef, damTip + damKoef * 2)
+	set damKoefM = damTipM * 20 / 100
+	set damageM = rand(damTipM + damKoefM, damTipM + damKoefM * 2)
+	xgt 'atakA', 'damageW'
+end
+
+if $ARGS[0] = 'uronW':
+	cla
+	set damKoef = damTip * 20 / 100
+	set damage = rand(damTip - damKoef, damTip + damKoef)
+	set damKoefM = damTipM * 20 / 100
+	set damageM = rand(damTipM - damKoefM, damTipM + damKoefM)
+	xgt 'atakA', 'damageW'
+end
+
+if $ARGS[0] = 'damageW':
+	cla
+
+	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
+		if dospehV > 0:set damageV -= dospehDefV & set dospehEn -= 1
+		if damage < 0:set damage = 0
+
+		set healthV -= damage
+		set mannaV -= damageM
+		'<b><font color="green">You are harmed <<damage>> units</font></b>'
+		'<b><font color="green">You have caused damage to the enemy manna <<damageM>> units</font></b>'
+
+		if zerkaloV > 0:
+			set zerkaloV -= 1
+			set health -= damage
+			'<b><font color="red"><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></b>'
+		end
+
+		xgt 'fight', 'sta'
+	end
+
+	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
+		set damSum = damage + damageM
+		set defenceV -= damSum
+		!!set defenceV -= damage
+		'<b><font color="green">You have caused damage <<damSum>> Protection of the enemy units</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if klonV > 0 and unmaterialV <= 0:
+		set klonV -= 1
+		'<b><font color="green">Destroyed enemy clone</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if unmaterialV > 0:
+		set unmaterialV -= 1
+		'<b><font color="red">Your shot went through the opponent´s body. Opponents do not materials</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if barierV > 0:
+		!!imeniteta barrier for damage
+		if barierV >= damage:
+			'<b><font color="red"><<$nameV>> easily withstood your butt</font></b>'
+			xgt 'fight', 'sta'
+		end
+
+		if barierV < damage:
+			set mannaV -= damageM
+			set healthV -= damage
+			!!set healthV -= damage
+			'<b><font color="green">You have caused damage <<damage>> units</font></b>'
+			'<b><font color="green">You have caused damage to the enemy manna <<damageM>> units</font></b>'
+
+			if zerkaloV > 0:
+				set zerkaloV -= 1
+				set health -= damage
+				'<b><font color="red">Enemy reflected damage and you got <<damage>> points of damage</font></b>'
+			end
+		end
+
+		xgt 'fight', 'sta'
+	end
+end
+
+--- atakA ---------------------------------

+ 0 - 476
locations/051_enemy

@@ -1,476 +0,0 @@
-# enemy
-!Расчет атаки противника
-
-if $ARGS[0] = 'start':
-cla
-!в этом блоке на основании переменной выбирается программа атаки противника
-	if program = 0:
-	!программа действий простых атакеров физухой
-	xgt 'enemy','fighter'
-	end
-	if program = 1:
-	!программа действий физуха и ножи
-	xgt 'enemy','fighter2'
-	end
-	if program = 2:
-	!программа действий физуха, ножи, туман
-	xgt 'enemy','fighter3'
-	end
-	if program = 3:
-	!программа действий физуха, ножи, туман, клоны
-	xgt 'enemy','fighter4'
-	end
-	if program = 4:
-	!программа действий физуха, ножи, туман, клоны, паралич
-	xgt 'enemy','fighter5'
-	end
-	if program = 5:
-	!программа действий Кисаме
-	xgt 'enemy','kisame'
-	end
-	if program = 6:
-	!программа действий Тоби
-	xgt 'enemy','tobi'
-	end
-	if program = 7:
-	!программа действий Тоби
-	xgt 'enemy','gedomazo'
-	end
-	if program = 8:
-	!программа действий Огнестрела
-	xgt 'enemy','gun'
-	end
-	if program = 9:
-	!программа действий Сасори
-	xgt 'enemy','sasori'
-	end
-	if program = 10:
-	!программа действий Конан
-	xgt 'enemy','konan'
-	end
-	if program = 11:
-	!программа действий Хидан
-	xgt 'enemy','hidan'
-	end
-
-end
-
-if $ARGS[0] = 'hidan':
-cla
-	if zerkaloV > 0: set barierV = 0
-	if zerkaloV <= 0: set barierV = 5500
-if healthV < vitalV*10 + strenV*5: set healthV = vitalV * 10 + strenV * 5
-	if zerkaloV > 0:
-	set healthV = vitalV * 10 + strenV * 5
-	set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
-	set willpowerV = willV * 10
-	set health -= 400
-	set manna -= 500
-	'<B><font color = red><<$nameV>> yells "RITUAL BEGINS!" and stands in a circle inscribed in blood on the ground.</font></B>'
-	'<B><font color = red>He stabs himself and you feel like the pain pierces the body.</font></B>'
-	xgt 'fight','sta'
-	exit
-	end
-	if zerkaloV <= 0 and defence > 0:
-	set damTipV = 5000
-	set bonusShV = 100
-	set hidanAtk = 1
-	'<B><font color = red><<$nameV>> yells "Your existence offends DZHASHINA MY GOD!" and throws you in his scythe trehlezviynuyu driving it by a line.</font></B>'
-	if klon > 0: set klon = klon / 2 & '<B><font color = red><<$nameV>> yells "Mraz I slaughter YOU LIKE A PIG!"</font></B>'
-	xgt 'atakA1','atak'
-	exit
-	end
-	if zerkaloV <= 0 and defence <= 0:
-	set damTipV = 300
-	set bonusShV = 100
-	set hidanAtk = 1
-	'<B><font color = red><<$nameV>> yells "You will die a blasphemer!" and throws you in his scythe trehlezviynuyu driving it by a line.</font></B>'
-	if klon > 0: set klon = 0 & '<B><font color = red>Your clones turned into steam from the blow spit. <<$nameV>> yells "I IMMORTAL Ravager! And YOU SHIT!"</font></B>'
-	if tuman > 0: set tuman = 0 & '<B><font color = red><<$nameV>> yells "You´re pathetic in their vain attempts SPRYATATSYA FROM ME!"</font></B>'
-	xgt 'atakA1','atak'
-	exit
-	end
-end
-
-if $ARGS[0] = 'konan':
-cla
-	if round < 6:
-	set mannaV -= 10
-	set damTipV = 500
-	'<B><font color = red><<$nameV>> adds signs hands and you are flying sheets of paper.</font></B>'
-	if klon > 0: set klon = 0 & '<B><font color = red>Your clones turned into steam from hitting the paper.</font></B>'
-	xgt 'atakA1','atak'
-	exit
-	end
-	if round >= 6:
-		if unmaterialV > 5 and defence > 0:
-		set mannaV -= 250
-		set damTipV = 15000
-		set bonusShV = 100
-		'<B><font color = red><<$nameV>> takes to the air on the white wings and pulled out from her wings paper falls on you in a flood of flying with terrible speed paper swords.</font></B>'
-		if klon > 0: set klon = 0 & '<B><font color = red>Your clones turned into steam from hitting the paper.</font></B>'
-		xgt 'atakA1','atak'
-		exit
-		end
-		if unmaterialV > 5 and defence <= 0:
-		set mannaV -= 20
-		set damTipV = 450
-		'<B><font color = red><<$nameV>> creates a paper boomerangs that fly in your direction.</font></B>'
-		xgt 'atakA1','atak'
-		exit
-		end
-		if defenceV <= 0 and unmaterialV <= 5:
-		set mannaV -= 250
-		set defenceV += 3000
-		set defenceMV += 3000
-		set defenceWV += 3000
-		'<B><font color = red>Conan shoots up to its paper wings like an angel. Around it starts spinning paper creating her protection.</font></B>'
-		xgt 'fight','sta'
-		exit
-		end
-		if unmaterialV <= 2 and konanD < 3:
-		set mannaV -= 150
-		set konanD += 1
-		'<B><font color = red>Conan stops meditating in the air.</font></B>'
-		xgt 'fight','sta'
-		exit
-		end
-		if konanD >= 3:
-		set mannaV -= 250
-		set konanD = 0
-		set unmaterialV = 20
-		'<B><font color = red>Conan crumbles in the air for thousands of sheets of paper.</font></B>'
-		xgt 'fight','sta'
-		exit
-		end
-	end
-end
-
-if $ARGS[0] = 'sasori':
-cla
-if SasoriBody > 1: set damTipV = 1000
-if SasoriBody = 1: set damTipV = 2000
-set poisonAV = 1
-set defenceV += 10
-set defenceMV += 20
-set defenceWV += 50
-set mannaV -= 10
-	if SasoriBody = 1 and defence > 0:
-	set defSasori = defence * 20/100
-	set defence -= defSasori
-	'<B><font color = red>of rain falls on top of steel needles greatly weaken your defenses.</font></B>'
-	end
-'<B><font color = red><<$nameV>> shoots at you the whole cloud of poisonous spines.</font></B>'
-if klon > 0: set klon = 0 & '<B><font color = red>Your clones turned into steam from the blow needle.</font></B>'
-xgt 'atakA1','atak'
-end
-
-if $ARGS[0] = 'gedomazo':
-cla
-	if klon <= 0 and tuman <= 0:
-	set magweapbonusV = 5000
-	'<B><font color = red><<$nameV>> with a furious roar of effort on you for its huge stone fist.</font></B>'
-	xgt 'atak','enemy'
-	exit
-	end
-	if klon > 0 or tuman > 0:
-	set klon = 0
-	set tuman = 0
-	set mannaV -= 500
-	'<B><font color = red><<$nameV>> makes a terrible roar and air shock wave sweeps over the battlefield.</font></B>'
-	xgt 'fight','sta'
-	exit
-	end
-
-end
-
-if $ARGS[0] = 'tobi':
-cla
-!программа атаки Тоби
-	if unmaterialV <= 0 and IzanagiV = 0 and GedoMazo = 0:
-	*clr
-	'<B><font color = red><<$nameV>> fingers to his lips and said quietly, "KUCHIE SAINT BUT JITSU."</font></B>'
-	'<B><font color = red>you will see Huge stone statue of a demon, and you rushed to the attack.</font></B>'
-	set GedoMazo = 1
-	set $nameV = 'Gedo Mazo'
-	!Статы
-	set strenV = 1000
-	set speedV = 100
-	set agilV = 90
-	set reactV = 100
-	set vitalV = 5000
-	set intelV = 50
-	set willV = 50
-	!Навыки
-	set magikV = 1
-	set boxingV = 100
-	set shootV = 100
-	!Параметры
-	set healthV = vitalV * 10 + strenV * 5
-	set mannaV = intelV * magikV + magikV * 100 + vitalV * 10
-	set willpowerV = willV * 10
-	set BonusAtakV = 0
-	set BonusDefV = 0
-	!программа действий
-	set barierV = 1500
-	set program = 7
-	xgt 'fight','start'
-	exit
-	end
-
-	if unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 0:
-	set mannaV -= 500
-	set TobiStena = 1
-	set defenceV += 25000
-	'<B><font color = red><<$nameV>> makes Arcanum and reinforcing the skin blackens his body and creating protection of 25,000 units.</font></B>'
-	set barierV = 2000
-	xgt 'fight','sta'
-	exit
-	end
-
-	if unmaterialV <= 2 and IzanagiV = 0 and GedoMazo > 0 and TobiStena = 1:
-	set mannaV += 6000
-	set TobiStena = 2
-	'<B><font color = red><<$nameV>> makes the magic sign and you feel like it´s magical energy increases sharply.</font></B>'
-	xgt 'fight','sta'
-	exit
-	end
-
-
-	if stun > 0:
-	set magweapbonusV = 2000
-	'<B><font color = red><<$nameV>> triumphantly said, "Now you´re dead."</font></B>'
-	'<B><font color = red>He grabs you by the throat and lifts his hand in the air.</font></B>'
-	'<B><font color = red>His fingers like steel and they squeeze your throat with terrible force.</font></B>'
-	xgt 'atak','enemy'
-	exit
-	end
-
-	if defence >= 5000:
-	set defence = 0
-	set defenceM = 0
-	set defenceActPar = 0
-	set defenceActParM = 0
-	set defenceAct = 0
-	set defenceActM = 0
-	set defAtk = 0
-	set mannaV -= 100
-	set stunV = 1
-	'<B><font color = red><<$nameV>> close your eyes and you saw of him as a tear ran down a drop of blood.</font></B>'
-	'<B><font color = red>He opened his eyes become completely red with black veins and said Amaterasu</font></B>'
-	'<B><font color = red>In your face rushed black devouring flames destroy your lightning protection.</font></B>'
-	xgt 'fight','sta'
-	exit
-	end
-	if tuman > 0:
-	set tumanV += tuman
-	set tuman = 0
-	'<B><font color = red><<$nameV>> adds the magic signs your hands and mist coming under his control enveloping the review of you.</font></B>'
-	'<B><font color = red>He will attack you.</font></B>'
-	xgt 'atak','enemy'
-	exit
-	end
-	if unmaterialV > 0 and klon <= 0:
-	set stunnerV = 1
-	set mannaV -= 20
-	set magweapbonusV = 800
-	'<B><font color = red><<$nameV>> attacks you gathered the manna in the hand.</font></B>'
-	xgt 'atak','enemy'
-	exit
-	end
-	if unmaterialV > 0 and klon > 0:
-	set klon = 0
-	set stunV = 1
-	'<B><font color = red><<$nameV>> adds signs hands and all your clones just turn into steam.</font></B>'
-	xgt 'atak','enemy'
-	exit
-	end
-	if unmaterialV <= 0 and tobizanagi < 2:
-	set mannaV -= 250
-	set tobizanagi += 1
-	!set unmaterialV = 10
-	'<B><font color = red><<$nameV>> adds the characters by hand.</font></B>'
-	xgt 'fight','sta'
-	exit
-	end
-	if unmaterialV <= 0 and tobizanagi = 2:
-	set mannaV -= 250
-	set tobizanagi = 0
-	set unmaterialV = 20
-	set stunV = 1
-	'<B><font color = red><<$nameV>> folds his hands and marks around his eyes twisted vortex.</font></B>'
-	xgt 'fight','sta'
-	exit
-	end
-
-end
-
-if $ARGS[0] = 'kisame':
-cla
-!программа атаки Кисаме
-	if defenceV <= 0 and kisamePro = 0:
-	set kisamePro = 1
-	set mannaV -= 150
-	set defenceV += 1500
-	set defenceMV += 1500
-	set defenceWV += 1500
-	set defenceActParV = 500
-	set defenceActParMV = 500
-	set defenceActV = 10
-	set defenceActMV = 10
-	'<B><font color = red><<$nameV>> adds the marks around his hands and formed water sphere protecting it from damage.</font></B>'
-	xgt 'fight','sta'
-	exit
-	end
-	if defenceV <= 1000 and kisamePro > 0:
-	set mannaV -= 500
-	set defenceV += 5000
-	set defenceMV += 5000
-	set defenceWV += 5000
-	set defenceActParV = 500
-	set defenceActParMV = 500
-	set defenceActV = 10
-	set defenceActMV = 10
-	set defAtkMV = 10
-	'<B><font color = red><<$nameV>> adds the marks and the space around the hands begins pogruzhatsya water.</font></B>'
-	if klon > 0: set klon = 0 & '<B><font color = red>Your clones turned into steam from hitting the water.</font></B>'
-	xgt 'fight','sta'
-	exit
-	end
-	if defenceV > 1000:
-	set kisameRAND = RAND(0,3)
-		if kisameRAND = 0:
-		set klonV += 3
-		'<B><font color = red><<$nameV>> adds the characters by hand.</font></B>'
-		xgt 'fight','sta'
-		exit
-		end
-		if kisameRAND > 0:
-		set mannaV -= 250
-		set damTipV = 1500
-		set damTipMV = 2500
-		set bonusShV = 50
-		'<B><font color = red><<$nameV>> adds the characters in the hands and fly sharks have created from the water.</font></B>'
-		if klon > 0: set klon = 0 & '<B><font color = red>Your clones turned into steam from hitting the water.</font></B>'
-		xgt 'atakA1','atak'
-		exit
-		end
-	end
-	'<B><font color = red><<$nameV>> attacks.</font></B>'
-	xgt 'enemy','fighter'
-end
-
-if $ARGS[0] = 'gun':
-cla
-!непосредственно программа атаки
-!gs 'atak'
-set damTipV = 1500
-'<B><font color = red><<$nameV>> shoots at you.</font></B>'
-xgt 'atakA1','atak'
-end
-
-if $ARGS[0] = 'fighter':
-cla
-!непосредственно программа атаки
-!gs 'atak'
-xgt 'atak','enemy'
-end
-
-if $ARGS[0] = 'fighter2':
-cla
-!непосредственно программа атаки
-set deystrand = RAND(0,1)
-	if deystrand = 0:
-	xgt 'atak','enemy'
-	end
-	if deystrand = 1:
-	set knifeV = RAND(1,3)
-	'<B><font color = red><<$nameV>> have a throws <<knifeV>> the blades</font></B>'
-	xgt 'atak','enemy'
-	end
-end
-
-if $ARGS[0] = 'fighter3':
-cla
-!непосредственно программа атаки
-	if tuman = 0 and tumanV < 5 and mannaV > 10:
-	set mannaV -= 10
-	set tumanV += 10
-	'<B><font color = red><<$nameV>> produces a fog on the battlefield.</font></B>'
-	xgt 'fight','sta'
-	exit
-	end
-set deystrand = RAND(0,1)
-	if deystrand = 0:
-	xgt 'atak','enemy'
-	end
-	if deystrand = 1:
-	set knifeV = RAND(1,3)
-	'<B><font color = red><<$nameV>> have a throws <<knifeV>> the blades</font></B>'
-	xgt 'atak','enemy'
-	end
-end
-
-if $ARGS[0] = 'fighter4':
-cla
-!непосредственно программа атаки
-	if tuman = 0 and tumanV < 5 and mannaV > 10:
-	set mannaV -= 10
-	set tumanV += 10
-	'<B><font color = red><<$nameV>> produces a fog on the battlefield.</font></B>'
-	xgt 'fight','sta'
-	exit
-	end
-	if klonV < 1 and mannaV > 15:
-	set mannaV -= 15
-	set klonV += 1
-	'<B><font color = green>is washed</font></B>'
-	xgt 'fight','sta'
-	exit
-	end
-set deystrand = RAND(0,1)
-	if deystrand = 0:
-	xgt 'atak','enemy'
-	end
-	if deystrand = 1:
-	set knifeV = RAND(1,3)
-	'<B><font color = red><<$nameV>> have a throws <<knifeV>> the blades</font></B>'
-	xgt 'atak','enemy'
-	end
-end
-
-if $ARGS[0] = 'fighter5':
-cla
-!непосредственно программа атаки
-	if tuman = 0 and tumanV < 5 and mannaV > 10:
-	set mannaV -= 10
-	set tumanV += 10
-	'<B><font color = red><<$nameV>> produces a fog on the battlefield.</font></B>'
-	xgt 'fight','sta'
-	exit
-	end
-	if klonV < 1 and mannaV > 15:
-	set mannaV -= 15
-	set klonV += 1
-	'<B><font color = green>is washed</font></B>'
-	xgt 'fight','sta'
-	exit
-	end
-	if stun < 1 and manna > 20:
-	set stunnerV = 1
-	set mannaV -= 20
-	'<B><font color = red><<$nameV>> attacks you Gouge.</font></B>'
-	xgt 'atak','enemy'
-	end
-set deystrand = RAND(0,1)
-	if deystrand = 0:
-	xgt 'atak','enemy'
-	end
-	if deystrand = 1:
-	set knifeV = RAND(1,3)
-	'<B><font color = red><<$nameV>> have a throws <<knifeV>> the blades</font></B>'
-	xgt 'atak','enemy'
-	end
-end
---- enemy ---------------------------------
-

+ 0 - 425
locations/052_atak

@@ -1,425 +0,0 @@
-# atak
-if $ARGS[0] = 'player':
-cla
-!!!!!!!
-set tip = 0
-!!!!!!!
-set strenA = stren
-set speedA = speed
-set agilA = agil
-set vitalA = vital
-!Навыки
-set boxingA = boxing
-!Параметры
-set healthA = health
-set BonusA = BonusAtak
-!!!!!!!!!
-set strenD = strenV
-set speedD = speedV
-set agilD = agilV
-set vitalD = vitalV
-!Навыки
-set boxingD = boxingV
-!Параметры
-set healthD = healthV
-set initBonusA = initBonus
-set initBonus = 0
-set initBonusV = 0
-set BonusD = BonusDefV
-	if stunV <= 0:
-	xgt 'atak','popad'
-	end
-	if stunV > 0:
-	'<B><font color = green><<$nameV>> can not move a critical hit</font></B>'
-	xgt 'atak','uronKrit'
-	end
-end
-
-if $ARGS[0] = 'enemy':
-cla
-!!!!!!!
-set tip = 1
-!!!!!!!
-set strenA = strenV
-set speedA = speedV
-set agilA = agilV
-set vitalA = vitalV
-!Навыки
-set boxingA = boxingV
-!Параметры
-set healthA = healthV
-set BonusA = BonusAtakV
-!!!!!!!!!!!!!!
-set strenD = stren
-set speedD = speed
-set agilD = agil
-set vitalD = vital
-!Навыки
-set boxingD = boxing
-!Параметры
-set healthD = health
-set BonusD = BonusDef
-set initBonusA = initBonusV
-set initBonus = 0
-set initBonusV = 0
-	if stun <= 0:
-	xgt 'atak','popad'
-	end
-	if stun > 0:
-	'<B><font color = red>You can not move a critical hit</font></B>'
-	xgt 'atak','uronKritV'
-	end
-end
-
-if $ARGS[0] = 'popad':
-cla
-!расчет попадания уворота
-set poSp = speedA * 20/100
-set uvAg = agilD * 20/100
-set poBox = boxingA * 20/100
-set uvBox = boxingD * 20/100
-set popad = RAND(boxingA - poBox, boxingA + poBox) + RAND(speedA-poSp, speedA + poSp) + BonusA + initBonusA
-set uvorot = RAND(boxingD - uvBox, boxingD + uvBox) + RAND(agilD-uvAg, agilD + uvAg) + BonusD
-set uvorKoef = uvorot * 50/100
-set popKoef = popad * 50/100
-	if popad > uvorot:
-		if popad >= uvorot + uvorKoef:
-		!крит, очень точное попадание
-			if tip = 0:
-			!атаковал игрок
-			'<B><font color = green>critical hits</font></B>'
-			xgt 'atak','uronKrit'
-			end
-			if tip = 1:
-			!атаковал противник
-			'<B><font color = red>critical hits</font></B>'
-			xgt 'atak','uronKritV'
-			end
-		end
-		if popad < uvorot+uvorKoef:
-		!нормальное попадание
-			if tip = 0:
-			!атаковал игрок
-			'<B><font color = green>Contact</font></B>'
-			xgt 'atak','uron'
-			end
-			if tip = 1:
-			!атаковал противник
-			'<B><font color = red>Contact</font></B>'
-			xgt 'atak','uronV'
-			end
-		end
-	end
-	if popad <= uvorot:
-		if popad+popKoef <= uvorot:
-		!критический промах
-			if tip = 0:
-			!атаковал игрок
-			'<B><font color = red>CRITICAL SLIP</font></B>'
-			xgt 'atak','uronKritV'
-			end
-			if tip = 1:
-			!атаковал противник
-			'<B><font color = green>CRITICAL SLIP</font></B>'
-			xgt 'atak','uronKrit'
-			end
-		end
-		if popad+popKoef > uvorot:
-		!промах
-			if tip = 0:
-			!атаковал игрок
-			'<B><font color = red>is washed</font></B>'
-			xgt 'fight','sta'
-			end
-			if tip = 1:
-			!атаковал противник
-			'<B><font color = green>is washed</font></B>'
-			xgt 'fight','sta'
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'uronKrit':
-cla
-set damage = RAND(stren, stren * 2) + weapbonus + magweapbonus
-	if knife > 0:
-	set knibon = knife + 1
-	set knife = 0
-	set damage = damage * knibon
-	set knibon = 0
-	'<B><font color = green>your opponent flies throwing knife</font></B>'
-	end
-	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
-	if dospehV > 0: set damage -= dospehDefV & set dospehEnV -= 1
-	if damage < 0: set damage = 0
-	Set healthV -= damage
-		if weaponTipe = 1: set bloodV += RAND(weapon/4, weapon/2)
-		if weaponTipe = 2: set stun += RAND(1,2)
-		if weaponTipe = 3: set bloodV += RAND(weapon/4, weapon/2)
-		if stunner > 0:
-		set stunner = 0
-		set stunV = RAND(3,6)
-		'<B><font color = green>You are paralyzed the enemy <<stunV>> moves.</font></B>'
-		end
-	'<B><font color = green>Apply Done <<damage>> units</font></B>'
-		if zerkaloV > 0:
-		set zerkaloV -= 1
-		set health -= damage
-		'<B><font color = red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
-		end
-	xgt 'fight','sta'
-	end
-	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
-	Set defenceV -= damage
-	'<B><font color = green>Protection of the enemy harmed <<damage>> units</font></B>'
-	xgt 'fight','sta'
-	end
-	if klonV > 0 and unmaterialV <= 0:
-	set klonV -= 1
-	'<B><font color = green>Destroyed clone enemy, he still had <<KlonV>> clones</font></B>'
-	xgt 'fight','sta'
-	end
-	if unmaterialV > 0:
-	set unmaterialV -= 1
-	'<B><font color = red>Your shot went straight through the opponent´s body. <<$nameV>> is not material</font></B>'
-	xgt 'fight','sta'
-	end
-	if barierV > 0:
-	!барьер именитета для урона
-		if barierV >= damage:
-		'<B><font color = red><<$nameV>> easily withstood your butt</font></B>'
-		xgt 'fight','sta'
-		end
-		if barierV < damage:
-		Set healthV -= damage
-		if weaponTipe = 1: set bloodV += RAND(weapon/4, weapon/2)
-		if weaponTipe = 2: set stun += RAND(1,2)
-		if weaponTipe = 3: set bloodV += RAND(weapon/4, weapon/2)
-		if stunner > 0:
-		set stunV = RAND(3,6)
-		'<B><font color = green>You are paralyzed the enemy <<stunV>> moves.</font></B>'
-		end
-		'<B><font color = green>Apply Done <<damage>> units</font></B>'
-			if zerkaloV > 0:
-			set zerkaloV -= 1
-			set health -= damage
-			'<B><font color = red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
-			end
-		end
-	xgt 'fight','sta'
-	end
-
-end
-
-
-if $ARGS[0] = 'uron':
-cla
-set stKo = stren * 20/100
-set damage = RAND(stren - stKo, stren + stKo) + weapbonus + magweapbonus
-	if knife > 0:
-	set knibon = knife + 1
-	set knife = 0
-	set damage = damage * knibon
-	set knibon = 0
-	'<B><font color = green>your opponent flies throwing knife</font></B>'
-	end
-	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
-	if dospehV > 0: set damage -= dospehDefV & set dospehEnV -= 1
-	if damage < 0: set damage = 0
-	Set healthV -= damage
-		if stunner > 0:
-		set stunner = 0
-		set stunV = RAND(1,3)
-		'<B><font color = green>You are paralyzed the enemy <<stunV>> moves.</font></B>'
-		end
-	'<B><font color = green>Apply Done <<damage>> units</font></B>'
-		if zerkaloV > 0:
-		set zerkaloV -= 1
-		set health -= damage
-		'<B><font color = red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
-		end
-	xgt 'fight','sta'
-	end
-	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
-	Set defenceV -= damage
-	'<B><font color = green>Protection of the enemy harmed <<damage>> units</font></B>'
-	xgt 'fight','sta'
-	end
-	if klonV > 0 and unmaterialV <= 0:
-	set klonV -= 1
-	'<B><font color = green>Destroyed clone enemy, he still had <<KlonV>> clones</font></B>'
-	xgt 'fight','sta'
-	end
-	if unmaterialV > 0:
-	set unmaterialV -= 1
-	'<B><font color = red>Your shot went straight through the opponent´s body. <<$nameV>> is not material</font></B>'
-	xgt 'fight','sta'
-	end
-	if barierV > 0:
-	!барьер именитета для урона
-		if barierV >= damage:
-		'<B><font color = red><<$nameV>> easily withstood your butt</font></B>'
-		xgt 'fight','sta'
-		end
-		if barierV < damage:
-		Set healthV -= damage
-		if stunner > 0:
-		set stunV = RAND(1,3)
-		'<B><font color = green>You are paralyzed the enemy <<stunV>> moves.</font></B>'
-		end
-		'<B><font color = green>Apply Done <<damage>> units</font></B>'
-			if zerkaloV > 0:
-			set zerkaloV -= 1
-			set health -= damage
-			'<B><font color = red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
-			end
-		end
-	xgt 'fight','sta'
-	end
-
-end
-
-
-
-if $ARGS[0] = 'uronKritV':
-cla
-set damage = RAND(strenV, strenV * 2) + weapbonusV + magweapbonusV
-	if knifeV > 0:
-	set knibonV = knifeV + 1
-	set knifeV = 0
-	set damage = damage * knibonV
-	set knibonV = 0
-	'<B><font color = red>you throwing knife flies</font></B>'
-	end
-	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
-	if dospeh > 0: set damage -= dospehDef & set dospehEn -= 1
-	if damage < 0: set damage = 0
-	Set health -= damage
-		if weaponTipeV = 1: set blood += RAND(weaponV/4, weaponV/2)
-		if weaponTipeV = 2: set stunV += RAND(1,2)
-		if weaponTipeV = 3: set blood += RAND(weaponV/4, weaponV/2)
-		if stunnerV > 0:
-		set stunnerV = 0
-		set stun = RAND(3,6)
-		'<B><font color = red><<$nameV>> paralyzed you to <<stun>> moves.</font></B>'
-		end
-	'<B><font color = red>You harmed <<damage>> units</font></B>'
-		if zerkalo > 0:
-		set zerkalo -= 1
-		set healthV -= damage
-		'<B><font color = green>You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></B>'
-		end
-	xgt 'fight','sta'
-	end
-	if defence > 0 and klon <= 0 and unmaterial <= 0:
-	Set defence -= damage
-	'<B><font color = red>Protection of your harmed <<damage>> units</font></B>'
-	xgt 'fight','sta'
-	end
-	if klon > 0 and unmaterial <= 0:
-	set klon -= 1
-	'<B><font color = red>destroy your clone, you have more <<Klon>> clones</font></B>'
-	xgt 'fight','sta'
-	end
-	if unmaterial > 0:
-	set unmaterial -= 1
-	'<B><font color = green>Strike the enemy flew right through your body. YOU is not material</font></B>'
-	xgt 'fight','sta'
-	end
-	if barier > 0:
-	!барьер именитета для урона
-		if barier >= damage:
-		'<B><font color = green>You can easily withstood the impact of the opponent</font></B>'
-		xgt 'fight','sta'
-		end
-		if barier < damage:
-		Set health -= damage
-		if weaponTipeV = 1: set blood += RAND(weaponV/4, weaponV/2)
-		if weaponTipeV = 2: set stunV += RAND(1,2)
-		if weaponTipeV = 3: set blood += RAND(weaponV/4, weaponV/2)
-		if stunnerV > 0:
-		set stun = RAND(3,6)
-		'<B><font color = red><<$nameV>> paralyzed you to <<stun>> moves.</font></B>'
-		end
-		'<B><font color = red>You harmed <<damage>> units</font></B>'
-			if zerkalo > 0:
-			set zerkalo -= 1
-			set healthV -= damage
-			'<B><font color = green>You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></B>'
-			end
-		end
-	xgt 'fight','sta'
-	end
-
-end
-
-
-if $ARGS[0] = 'uronV':
-cla
-set stKo = strenV * 20/100
-set damage = RAND(strenV - stKo, strenV + stKo) + weapbonusV + magweapbonusV
-	if knifeV > 0:
-	set knibonV = knifeV + 1
-	set knifeV = 0
-	set damage = damage * knibonV
-	set knibonV = 0
-	'<B><font color = red>you throwing knife flies</font></B>'
-	end
-	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
-	if dospeh > 0: set damage -= dospehDef & set dospehEn -= 1
-	if damage < 0: set damage = 0
-	Set health -= damage
-		if stunnerV > 0:
-		set stunnerV = 0
-		set stun = RAND(3,6)
-		'<B><font color = red><<$nameV>> paralyzed you to <<stun>> moves.</font></B>'
-		end
-	'<B><font color = red>You harmed <<damage>> units</font></B>'
-		if zerkalo > 0:
-		set zerkalo -= 1
-		set healthV -= damage
-		'<B><font color = green>You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></B>'
-		end
-	xgt 'fight','sta'
-	end
-	if defence > 0 and klon <= 0 and unmaterial <= 0:
-	Set defence -= damage
-	'<B><font color = red>Protection of your harmed <<damage>> units</font></B>'
-	xgt 'fight','sta'
-	end
-	if klon > 0 and unmaterial <= 0:
-	set klon -= 1
-	'<B><font color = red>destroy your clone, you have more <<Klon>> clones</font></B>'
-	xgt 'fight','sta'
-	end
-	if unmaterial > 0:
-	set unmaterial -= 1
-	'<B><font color = green>Strike the enemy flew right through your body. YOU is not material</font></B>'
-	xgt 'fight','sta'
-	end
-	if barier > 0:
-	!барьер именитета для урона
-		if barier >= damage:
-		'<B><font color = green>You can easily withstood the impact of the opponent</font></B>'
-		xgt 'fight','sta'
-		end
-		if barier < damage:
-		Set health -= damage
-		if stunnerV > 0:
-		set stun = RAND(3,6)
-		'<B><font color = red><<$nameV>> paralyzed you to <<stun>> moves.</font></B>'
-		end
-		'<B><font color = red>You harmed <<damage>> units</font></B>'
-			if zerkalo > 0:
-			set zerkalo -= 1
-			set healthV -= damage
-			'<B><font color = green>You are repelled damage and <<$nameV>> to give <<damage>> points of damage</font></B>'
-			end
-		end
-	xgt 'fight','sta'
-	end
-
-end
---- atak ---------------------------------
-

+ 284 - 0
locations/052_atakA1

@@ -0,0 +1,284 @@
+# atakA1
+if $ARGS[0] = 'atak':
+	cla
+	!!payment hit dodge
+	set poSp = speedV * 20/100
+	set uvAg = agil * 20/100
+	set poBox = reactV * 20/100
+	set uvBox = react * 20/100
+	set popad = rand(reactV - poBox, reactV + poBox) + rand(speedV - poSp, speedV + poSp) + bonusShV
+	set uvorot = rand(react - uvBox, react + uvBox) + rand(agil - uvAg, agil + uvAg)
+	set uvorKoef = uvorot * 50/100
+	set popKoef = popad * 50/100
+
+	if popad > uvorot:
+		if popad >= uvorot + uvorKoef:
+			!!Crete, very direct hit
+			'<b><font color="red">critical hits</font></b>'
+			xgt 'atakA1', 'uronKrit'
+		end
+
+		if popad < uvorot + uvorKoef:
+			!!normal hit
+			!!attack the enemy
+			'<b><font color="red">Contact</font></b>'
+			xgt 'atakA1', 'uron'
+		end
+	end
+
+	if popad <= uvorot:
+		'<b><font color="green">is washed</font></b>'
+		xgt 'fight', 'sta'
+	end
+end
+
+if $ARGS[0] = 'uronKrit':
+	cla
+	set damKoef = damTipV * 20 / 100
+	set damage = rand(damTipV + damKoef, damTipV + damKoef * 2)
+
+	if damTipMV > 0:
+		set damKoefM = damTipMV * 20/100
+		set damageM = rand(damTipMV + damKoefM, damTipMV + damKoefM * 2)
+	end
+
+	xgt 'atakA1', 'damage'
+end
+
+if $ARGS[0] = 'uron':
+	cla
+	set damKoef = damTipV * 20 / 100
+	set damage = rand(damTipV - damKoef, damTipV + damKoef)
+
+	if damTipMV > 0:
+		set damKoefM = damTipMV * 20/100
+		set damageM = rand(damTipMV - damKoefM, damTipMV + damKoefM)
+	end
+
+	xgt 'atakA1', 'damage'
+end
+
+if $ARGS[0] = 'damage':
+	cla
+
+	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
+		if dospeh > 0:set damage -= dospehDef & set dospehEn -= 1
+		if damage < 0:set damage = 0
+
+		set health -= damage
+
+		if hidanAtk = 1:
+			set hidanAtk = 0
+			set zerkaloV += 50
+			set bloodV += 50
+			'<b><font color="red"><<$nameV>> drink your blood.</font></b>'
+		end
+
+		if damTipMV > 0:
+			set manna -= damageM
+			set manna += damageM
+			'<b><font color="red"><<$nameV>> absorbed <<damageM>> units of manna you.</font></b>'
+		end
+
+		if poisonAV = 1:
+			set poisonV = 50
+			'<b><font color="red"><<$nameV>> have poisoned the needles hit.</font></b>'
+		end
+
+		!!set manna -= damageM
+		if eleShV > 0:
+			set stun = rand(eleShV, eleShV * 3)
+			'<b><font color="red">You are paralyzed <<stunV>> rounds</font></b>'
+		end
+
+		'<b><font color="red"><<$nameV>> damage caused you <<damage>> units</font></b>'
+		!!'<b><font color="red">caused damage your manna <<damageM>> units</font></b>'
+
+		if zerkalo > 0:
+			set zerkalo -= 1
+			set healthV -= damage
+			'<b><font color="green">You are repelled damage and <<$nameV>> received <<damage>> points of damage</font></b>'
+		end
+
+		xgt 'fight', 'sta'
+	end
+
+	if defence > 0 and klon <= 0 and unmaterial <= 0:
+		!!set damSum = damage + damageM
+		!!set defence -= damSum
+		set defence -= damage
+		'<b><font color="red">Protection of your harmed <<damage>> units</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if klon > 0 and unmaterial <= 0:
+		set klon -= 1
+		'<b><font color="red">destroy your clone</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if unmaterial > 0:
+		set unmaterial -= 1
+		'<b><font color="green">Strike the enemy passed through you. YOU is not material</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if barier > 0:
+		!!imeniteta barrier for damage
+		if barier >= damage:
+			'<b><font color="green">You can easily withstood the impact of the opponent</font></b>'
+			xgt 'fight', 'sta'
+		end
+
+		if barier < damage:
+			!!set manna -= damageM
+			!!set health -= damage
+			set health -= damage
+
+			if damTipM > 0:
+				set manna -= damageM
+				set mannaV += damageM
+				'<b><font color="green">you have ingested <<damageM>> units of manna from the enemy.</font></b>'
+			end
+
+			if eleShV > 0:
+				set stun = rand(eleShV, eleShV * 3)
+				'<b><font color="green"><<$nameV>> paralyzed <<stunV>> rounds</font></b>'
+			end
+
+			if poisonAV = 1:
+				set poisonV = 50
+				'<b><font color="red"><<$nameV>> have poisoned the needles hit.</font></b>'
+			end
+
+			'<b><font color="red">you have caused damage <<damage>> units</font></b>'
+			!!'<b><font color="red">caused damage your manna <<damageM>> units</font></b>'
+
+			if zerkalo > 0:
+				set zerkalo -= 1
+				set healthV -= damage
+				'<b><font color="green">You are repelled enemy damage and received <<damage>> points of damage</font></b>'
+			end
+		end
+
+		xgt 'fight', 'sta'
+	end
+end
+
+if $ARGS[0] = 'atakW':
+	cla
+	!!payment hit dodge
+	set poSp = speedV * 20 / 100
+	set uvAg = agil * 20 / 100
+	set poBox = reactV * 20 / 100
+	set uvBox = react * 20 / 100
+	set popad = rand(reactV - poBox, reactV + poBox) + rand(speedV - poSp, speedV + poSp)
+	set uvorot = rand(react - uvBox, react + uvBox) + rand(agil - uvAg, agil + uvAg)
+	set uvorKoef = uvorot * 50 / 100
+	set popKoef = popad * 50 / 100
+
+	if popad > uvorot:
+		if popad >= uvorot + uvorKoef:
+			!!Crete, very direct hit
+			'<b><font color="red">critical hits</font></b>'
+			xgt 'atakA1', 'uronKritW'
+		end
+
+		if popad < uvorot + uvorKoef:
+			!!normal hit
+			'<b><font color="red">Contact</font></b>'
+			xgt 'atakA1', 'uronW'
+		end
+	end
+
+	if popad <= uvorot:
+		'<b><font color="green">is washed</font></b>'
+		xgt 'fight', 'sta'
+	end
+end
+
+if $ARGS[0] = 'uronKritW':
+	cla
+	set damKoef = damTipV * 20/100
+	set damage = rand(damTipV + damKoef, damTipV + damKoef * 2)
+	set damKoefM = damTipMV * 20/100
+	set damageM = rand(damTipMV + damKoefM, damTipMV + damKoefM * 2)
+	xgt 'atakA1', 'damageW'
+end
+
+if $ARGS[0] = 'uronW':
+	cla
+	set damKoef = damTipV * 20/100
+	set damage = rand(damTipV - damKoef, damTipV + damKoef)
+	set damKoefM = damTipMV * 20/100
+	set damageM = rand(damTipMV - damKoefM, damTipMV + damKoefM)
+	xgt 'atakA1', 'damageW'
+end
+
+if $ARGS[0] = 'damageW':
+	cla
+
+	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
+		if dospeh > 0:set damage -= dospehDef & set dospehEn -= 1
+		if damage < 0:set damage = 0
+
+		set health -= damage
+		set manna -= damageM
+		'<b><font color="green">You are harmed <<damage>> units</font></b>'
+		'<b><font color="green">You have caused damage to the enemy manna <<damageM>> units</font></b>'
+
+		if zerkalo > 0:
+			set zerkalo -= 1
+			set health -= damage
+			'<b><font color="red"><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></b>'
+		end
+
+		xgt 'fight', 'sta'
+	end
+
+	if defence > 0 and klon <= 0 and unmaterial <= 0:
+		set damSum = damage + damageM
+		set defence -= damSum
+		!!set defenceV -= damage
+		'<b><font color="green">You have caused damage <<damSum>> Protection of the enemy units</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if klon > 0 and unmaterial <= 0:
+		set klon -= 1
+		'<b><font color="green">Destroyed enemy clone</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if unmaterial > 0:
+		set unmaterial -= 1
+		'<b><font color="red">Your shot went through the opponent´s body. Opponents do not materials</font></b>'
+		xgt 'fight', 'sta'
+	end
+
+	if barier > 0:
+		!!imeniteta barrier for damage
+		if barier >= damage:
+			'<b><font color="red"><<$nameV>> easily withstood your butt</font></b>'
+			xgt 'fight', 'sta'
+		end
+
+		if barier < damage:
+			set manna -= damageM
+			set health -= damage
+			!!set healthV -= damage
+			'<b><font color="green">You have caused damage <<damage>> units</font></b>'
+			'<b><font color="green">You have caused damage to the enemy manna <<damageM>> units</font></b>'
+
+			if zerkalo > 0:
+				set zerkalo -= 1
+				set healthV -= damage
+				'<b><font color="red">Enemy reflected damage and you got <<damage>> points of damage</font></b>'
+			end
+		end
+
+		xgt 'fight', 'sta'
+	end
+end
+
+--- atakA1 ---------------------------------

+ 0 - 247
locations/053_atakA

@@ -1,247 +0,0 @@
-# atakA
-if $ARGS[0] = 'atak':
-cla
-!расчет попадания уворота
-set poSp = speed * 20/100
-set uvAg = agilV * 20/100
-set poBox = react * 20/100
-set uvBox = reactV * 20/100
-set popad = RAND(react - poBox, react + poBox) + RAND(speed-poSp, speed + poSp) + bonusSh
-set uvorot = RAND(reactV - uvBox, reactV + uvBox) + RAND(agilV-uvAg, agilV + uvAg)
-set uvorKoef = uvorot * 50/100
-set popKoef = popad * 50/100
-	if popad > uvorot:
-		if popad >= uvorot + uvorKoef:
-		!крит, очень точное попадание
-		'<B><font color = green>critical hits</font></B>'
-		xgt 'atakA','uronKrit'
-		end
-
-		if popad < uvorot+uvorKoef:
-		!нормальное попадание
-		!атаковал противник
-		'<B><font color = green>Contact</font></B>'
-		xgt 'atakA','uron'
-		end
-	end
-
-	if popad <= uvorot:
-	'<B><font color = red>is washed</font></B>'
-	xgt 'fight','sta'
-	end
-end
-
-
-if $ARGS[0] = 'uronKrit':
-cla
-set damKoef = damTip * 20/100
-set damage = RAND(damTip + damKoef, damTip + damKoef * 2)
-	if damTipM > 0:
-	set damKoefM = damTipM * 20/100
-	set damageM = RAND(damTipM + damKoefM, damTipM + damKoefM * 2)
-	end
-xgt 'atakA','damage'
-end
-
-if $ARGS[0] = 'uron':
-cla
-set damKoef = damTip * 20/100
-set damage = RAND(damTip - damKoef, damTip + damKoef)
-	if damTipM > 0:
-	set damKoefM = damTipM * 20/100
-	set damageM = RAND(damTipM - damKoefM, damTipM + damKoefM)
-	end
-xgt 'atakA','damage'
-end
-
-if $ARGS[0] = 'damage':
-cla
-	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
-	if dospehV > 0: set damageV -= dospehDefV & set dospehEn -= 1
-	if damage < 0: set damage = 0
-	Set healthV -= damage
-		if damTipM > 0:
-		set mannaV -= damageM
-		set manna += damageM
-		'<B><font color = green>you have ingested <<damageM>> units of manna from the enemy.</font></B>'
-		end
-	!Set manna -= damageM
-		if eleSh > 0:
-		set stunV = RAND(eleSh, eleSh * 3)
-		'<B><font color = green><<$nameV>> paralyzed <<stunV>> rounds</font></B>'
-		end
-	'<B><font color = green>You have caused damage <<damage>> units</font></B>'
-
-	!'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
-		if zerkaloV > 0:
-		set zerkaloV -= 1
-		set health -= damage
-		'<B><font color = red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
-		end
-	xgt 'fight','sta'
-	end
-
-	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
-	!set damSum = damage + damageM
-	!Set defence -= damSum
-	Set defenceV -= damage
-	'<B><font color = green>You have caused damage <<damage>> Protection of the enemy units</font></B>'
-	xgt 'fight','sta'
-	end
-
-	if klonV > 0 and unmaterialV <= 0:
-	set klonV -= 1
-	'<B><font color = green>Destroyed enemy clone</font></B>'
-	xgt 'fight','sta'
-	end
-
-	if unmaterialV > 0:
-	set unmaterialV -= 1
-	'<B><font color = red>Your shot went through the opponent´s body. Opponents do not materials</font></B>'
-	xgt 'fight','sta'
-	end
-
-	if barierV > 0:
-	!барьер именитета для урона
-		if barierV >= damage:
-		'<B><font color = red><<$nameV>> easily withstood your butt</font></B>'
-		xgt 'fight','sta'
-		end
-		if barierV < damage:
-		!Set manna -= damageM
-		!Set health -= damage
-		set damage -= barierV
-		Set healthV -= damage
-			if damTipM > 0:
-			set mannaV -= damageM
-			set manna += damageM
-			'<B><font color = green>you have ingested <<damageM>> units of manna from the enemy.</font></B>'
-			end
-			if eleSh > 0:
-			set stunV = RAND(eleSh, eleSh * 3)
-			'<B><font color = green><<$nameV>> paralyzed <<stunV>> rounds</font></B>'
-			end
-		'<B><font color = green>You have caused damage <<damage>> units</font></B>'
-		!'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
-			if zerkaloV > 0:
-			set zerkaloV -= 1
-			set health -= damage
-			'<B><font color = red>Enemy reflected damage and you got <<damage>> points of damage</font></B>'
-			end
-		end
-	xgt 'fight','sta'
-	end
-
-end
-
-if $ARGS[0] = 'atakW':
-cla
-!расчет попадания уворота
-set poSp = speed * 20/100
-set uvAg = agilV * 20/100
-set poBox = react * 20/100
-set uvBox = reactV * 20/100
-set popad = RAND(react - poBox, react + poBox) + RAND(speed-poSp, speed + poSp)
-set uvorot = RAND(reactV - uvBox, reactV + uvBox) + RAND(agilV-uvAg, agilV + uvAg)
-set uvorKoef = uvorot * 50/100
-set popKoef = popad * 50/100
-	if popad > uvorot:
-		if popad >= uvorot + uvorKoef:
-		!крит, очень точное попадание
-		'<B><font color = red>critical hits</font></B>'
-		xgt 'atakA','uronKritW'
-		end
-
-		if popad < uvorot+uvorKoef:
-		!нормальное попадание
-		'<B><font color = red>Contact</font></B>'
-		xgt 'atakA','uronW'
-		end
-	end
-
-	if popad <= uvorot:
-	'<B><font color = green>is washed</font></B>'
-	xgt 'fight','sta'
-	end
-end
-
-
-if $ARGS[0] = 'uronKritW':
-cla
-set damKoef = damTip * 20/100
-set damage = RAND(damTip + damKoef, damTip + damKoef * 2)
-set damKoefM = damTipM * 20/100
-set damageM = RAND(damTipM + damKoefM, damTipM + damKoefM * 2)
-xgt 'atakA','damageW'
-end
-
-if $ARGS[0] = 'uronW':
-cla
-set damKoef = damTip * 20/100
-set damage = RAND(damTip - damKoef, damTip + damKoef)
-set damKoefM = damTipM * 20/100
-set damageM = RAND(damTipM - damKoefM, damTipM + damKoefM)
-xgt 'atakA','damageW'
-end
-
-if $ARGS[0] = 'damageW':
-cla
-	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
-	if dospehV > 0: set damageV -= dospehDefV & set dospehEn -= 1
-	if damage < 0: set damage = 0
-	Set healthV -= damage
-	Set mannaV -= damageM
-	'<B><font color = green>You are harmed <<damage>> units</font></B>'
-	'<B><font color = green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
-		if zerkaloV > 0:
-		set zerkaloV -= 1
-		set health -= damage
-		'<B><font color = red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
-		end
-	xgt 'fight','sta'
-	end
-
-	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
-	set damSum = damage + damageM
-	Set defenceV -= damSum
-	!Set defenceV -= damage
-	'<B><font color = green>You have caused damage <<damSum>> Protection of the enemy units</font></B>'
-	xgt 'fight','sta'
-	end
-
-	if klonV > 0 and unmaterialV <= 0:
-	set klonV -= 1
-	'<B><font color = green>Destroyed enemy clone</font></B>'
-	xgt 'fight','sta'
-	end
-
-	if unmaterialV > 0:
-	set unmaterialV -= 1
-	'<B><font color = red>Your shot went through the opponent´s body. Opponents do not materials</font></B>'
-	xgt 'fight','sta'
-	end
-
-	if barierV > 0:
-	!барьер именитета для урона
-		if barierV >= damage:
-		'<B><font color = red><<$nameV>> easily withstood your butt</font></B>'
-		xgt 'fight','sta'
-		end
-		if barierV < damage:
-		Set mannaV -= damageM
-		Set healthV -= damage
-		!Set healthV -= damage
-		'<B><font color = green>You have caused damage <<damage>> units</font></B>'
-		'<B><font color = green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
-			if zerkaloV > 0:
-			set zerkaloV -= 1
-			set health -= damage
-			'<B><font color = red>Enemy reflected damage and you got <<damage>> points of damage</font></B>'
-			end
-		end
-	xgt 'fight','sta'
-	end
-
-end
---- atakA ---------------------------------
-

+ 126 - 0
locations/053_atakB

@@ -0,0 +1,126 @@
+# atakB
+if $ARGS[0] = 'atak':
+	cla
+	!!payment hit dodge
+	set poSp = speed * 20 / 100
+	set uvAg = agilV * 20 / 100
+	set poBox = react * 20 / 100
+	set uvBox = reactV * 20 / 100
+	set popad = rand(react - poBox, react + poBox) + rand(speed - poSp, speed + poSp) + bonusSh
+	set uvorot = rand(reactV - uvBox, reactV + uvBox) + rand(agilV - uvAg, agilV + uvAg)
+	set uvorKoef = uvorot * 50 / 100
+	set popKoef = popad * 50 / 100
+
+	if popad > uvorot:
+		if popad >= uvorot + uvorKoef:
+			!!Crete, very direct hit
+			'<b><font color="green">critical hits</font></b>'
+			gs 'atakB', 'uronKrit'
+		end
+
+		if popad < uvorot + uvorKoef:
+			!!normal hit
+			!!attack the enemy
+			'<b><font color="green">Contact</font></b>'
+			gs 'atakB', 'uron'
+		end
+	end
+
+	if popad <= uvorot:'<b><font color="red">is washed</font></b>'
+end
+
+if $ARGS[0] = 'uronKrit':
+	cla
+	set damDef = defence/100
+	set damKoef = damDef * 20/100
+	set damage = rand(damDef + damKoef, damDef + damKoef * 2)
+	gs 'atakB', 'damage'
+end
+
+if $ARGS[0] = 'uron':
+	cla
+	set damDef = defence / 100
+	set damKoef = damDef * 20 / 100
+	set damage = rand(damDef - damKoef, damDef + damKoef)
+	gs 'atakB', 'damage'
+end
+
+if $ARGS[0] = 'damage':
+	cla
+
+	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
+		if dospehV > 0:set damageV -= dospehDefV & set dospehEn -= 1
+		if damage < 0:set damage = 0
+
+		set healthV -= damage
+		!!set manna -= damageM
+
+		if eleSh > 0:
+			set stunV = rand(eleSh, eleSh * 3)
+			'<b><font color="green"><<$nameV>> paralyzed <<stunV>> rounds</font></b>'
+		end
+
+		'<b><font color="green">You have caused damage <<damage>> units</font></b>'
+		!!'<b><font color="red">caused damage your manna <<damageM>> units</font></b>'
+
+		if zerkaloV > 0:
+			set zerkaloV -= 1
+			set defence -= damage
+			'<b><font color="red"><<$nameV>> reflected the damage and your defense has received <<damage>> points of damage</font></b>'
+		end
+
+		!!xgt 'fight', 'sta'
+	end
+
+	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
+		!!set damSum = damage + damageM
+		!!set defence -= damSum
+		set defenceV -= damage
+		'<b><font color="green">caused damage to your defense <<damage>> Protection of the enemy units</font></b>'
+		!!xgt 'fight', 'sta'
+	end
+
+	if klonV > 0 and unmaterialV <= 0:
+		set klonV -= 1
+		'<b><font color="green">Destroyed enemy clone</font></b>'
+		!!xgt 'fight', 'sta'
+	end
+
+	if unmaterialV > 0:
+		set unmaterialV -= 1
+		'<b><font color="red">Blow your protection passed through the body of the opponent. Opponents do not materials</font></b>'
+		!!xgt 'fight', 'sta'
+	end
+
+	if barierV > 0:
+		!!imeniteta barrier for damage
+		if barierV >= damage:
+			'<b><font color="red"><<$nameV>> easily withstood kick your protection</font></b>'
+			!!xgt 'fight', 'sta'
+		end
+
+		if barierV < damage:
+			!!set manna -= damageM
+			!!set health -= damage
+			set healthV -= damage
+
+			if eleSh > 0:
+				set stunV = rand(eleSh, eleSh * 3)
+				'<b><font color="green"><<$nameV>> paralyzed <<stunV>> rounds</font></b>'
+			end
+
+			'<b><font color="green">caused damage to your defense <<damage>> units</font></b>'
+			!!'<b><font color="red">caused damage your manna <<damageM>> units</font></b>'
+
+			if zerkaloV > 0:
+				set zerkaloV -= 1
+				set defence -= damage
+				'<b><font color="red">Enemy reflected damage and your defense received <<damage>> points of damage</font></b>'
+			end
+		end
+
+		!!xgt 'fight', 'sta'
+	end
+end
+
+--- atakB ---------------------------------

+ 0 - 260
locations/054_atakA1

@@ -1,260 +0,0 @@
-# atakA1
-if $ARGS[0] = 'atak':
-cla
-!расчет попадания уворота
-set poSp = speedV * 20/100
-set uvAg = agil * 20/100
-set poBox = reactV * 20/100
-set uvBox = react * 20/100
-set popad = RAND(reactV - poBox, reactV + poBox) + RAND(speedV-poSp, speedV + poSp) + bonusShV
-set uvorot = RAND(react - uvBox, react + uvBox) + RAND(agil-uvAg, agil + uvAg)
-set uvorKoef = uvorot * 50/100
-set popKoef = popad * 50/100
-	if popad > uvorot:
-		if popad >= uvorot + uvorKoef:
-		!крит, очень точное попадание
-		'<B><font color = red>critical hits</font></B>'
-		xgt 'atakA1','uronKrit'
-		end
-
-		if popad < uvorot+uvorKoef:
-		!нормальное попадание
-		!атаковал противник
-		'<B><font color = red>Contact</font></B>'
-		xgt 'atakA1','uron'
-		end
-	end
-
-	if popad <= uvorot:
-	'<B><font color = green>is washed</font></B>'
-	xgt 'fight','sta'
-	end
-end
-
-
-if $ARGS[0] = 'uronKrit':
-cla
-set damKoef = damTipV * 20/100
-set damage = RAND(damTipV + damKoef, damTipV + damKoef * 2)
-	if damTipMV > 0:
-	set damKoefM = damTipMV * 20/100
-	set damageM = RAND(damTipMV + damKoefM, damTipMV + damKoefM * 2)
-	end
-xgt 'atakA1','damage'
-end
-
-if $ARGS[0] = 'uron':
-cla
-set damKoef = damTipV * 20/100
-set damage = RAND(damTipV - damKoef, damTipV + damKoef)
-	if damTipMV > 0:
-	set damKoefM = damTipMV * 20/100
-	set damageM = RAND(damTipMV - damKoefM, damTipMV + damKoefM)
-	end
-xgt 'atakA1','damage'
-end
-
-if $ARGS[0] = 'damage':
-cla
-	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
-	if dospeh > 0: set damage -= dospehDef & set dospehEn -= 1
-	if damage < 0: set damage = 0
-	Set health -= damage
-		if hidanAtk = 1:
-		set hidanAtk = 0
-		set zerkaloV += 50
-		set bloodV += 50
-		'<B><font color = red><<$nameV>> drink your blood.</font></B>'
-		end
-		if damTipMV > 0:
-		set manna -= damageM
-		set manna += damageM
-		'<B><font color = red><<$nameV>> absorbed <<damageM>> units of manna you.</font></B>'
-		end
-		if poisonAV = 1:
-		set poisonV = 50
-		'<B><font color = red><<$nameV>> have poisoned the needles hit.</font></B>'
-		end
-	!Set manna -= damageM
-		if eleShV > 0:
-		set stun = RAND(eleShV, eleShV * 3)
-		'<B><font color = red>You are paralyzed <<stunV>> rounds</font></B>'
-		end
-	'<B><font color = red><<$nameV>> damage caused you <<damage>> units</font></B>'
-
-	!'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
-		if zerkalo > 0:
-		set zerkalo -= 1
-		set healthV -= damage
-		'<B><font color = green>You are repelled damage and <<$nameV>> received <<damage>> points of damage</font></B>'
-		end
-	xgt 'fight','sta'
-	end
-
-	if defence > 0 and klon <= 0 and unmaterial <= 0:
-	!set damSum = damage + damageM
-	!Set defence -= damSum
-	Set defence -= damage
-	'<B><font color = red>Protection of your harmed <<damage>> units</font></B>'
-	xgt 'fight','sta'
-	end
-
-	if klon > 0 and unmaterial <= 0:
-	set klon -= 1
-	'<B><font color = red>destroy your clone</font></B>'
-	xgt 'fight','sta'
-	end
-
-	if unmaterial > 0:
-	set unmaterial -= 1
-	'<B><font color = green>Strike the enemy passed through you. YOU is not material</font></B>'
-	xgt 'fight','sta'
-	end
-
-	if barier > 0:
-	!барьер именитета для урона
-		if barier >= damage:
-		'<B><font color = green>You can easily withstood the impact of the opponent</font></B>'
-		xgt 'fight','sta'
-		end
-		if barier < damage:
-		!Set manna -= damageM
-		!Set health -= damage
-		Set health -= damage
-			if damTipM > 0:
-			set manna -= damageM
-			set mannaV += damageM
-			'<B><font color = green>you have ingested <<damageM>> units of manna from the enemy.</font></B>'
-			end
-			if eleShV > 0:
-			set stun = RAND(eleShV, eleShV * 3)
-			'<B><font color = green><<$nameV>> paralyzed <<stunV>> rounds</font></B>'
-			end
-			if poisonAV = 1:
-			set poisonV = 50
-			'<B><font color = red><<$nameV>> have poisoned the needles hit.</font></B>'
-			end
-		'<B><font color = red>you have caused damage <<damage>> units</font></B>'
-		!'<B><font color = red>caused damage your manna <<damageM>> units</font></B>'
-			if zerkalo > 0:
-			set zerkalo -= 1
-			set healthV -= damage
-			'<B><font color = green>You are repelled enemy damage and received <<damage>> points of damage</font></B>'
-			end
-		end
-	xgt 'fight','sta'
-	end
-
-end
-
-if $ARGS[0] = 'atakW':
-cla
-!расчет попадания уворота
-set poSp = speedV * 20/100
-set uvAg = agil * 20/100
-set poBox = reactV * 20/100
-set uvBox = react * 20/100
-set popad = RAND(reactV - poBox, reactV + poBox) + RAND(speedV-poSp, speedV + poSp)
-set uvorot = RAND(react - uvBox, react + uvBox) + RAND(agil-uvAg, agil + uvAg)
-set uvorKoef = uvorot * 50/100
-set popKoef = popad * 50/100
-	if popad > uvorot:
-		if popad >= uvorot + uvorKoef:
-		!крит, очень точное попадание
-		'<B><font color = red>critical hits</font></B>'
-		xgt 'atakA1','uronKritW'
-		end
-
-		if popad < uvorot+uvorKoef:
-		!нормальное попадание
-		'<B><font color = red>Contact</font></B>'
-		xgt 'atakA1','uronW'
-		end
-	end
-
-	if popad <= uvorot:
-	'<B><font color = green>is washed</font></B>'
-	xgt 'fight','sta'
-	end
-end
-
-
-if $ARGS[0] = 'uronKritW':
-cla
-set damKoef = damTipV * 20/100
-set damage = RAND(damTipV + damKoef, damTipV + damKoef * 2)
-set damKoefM = damTipMV * 20/100
-set damageM = RAND(damTipMV + damKoefM, damTipMV + damKoefM * 2)
-xgt 'atakA1','damageW'
-end
-
-if $ARGS[0] = 'uronW':
-cla
-set damKoef = damTipV * 20/100
-set damage = RAND(damTipV - damKoef, damTipV + damKoef)
-set damKoefM = damTipMV * 20/100
-set damageM = RAND(damTipMV - damKoefM, damTipMV + damKoefM)
-xgt 'atakA1','damageW'
-end
-
-if $ARGS[0] = 'damageW':
-cla
-	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
-	if dospeh > 0: set damage -= dospehDef & set dospehEn -= 1
-	if damage < 0: set damage = 0
-	Set health -= damage
-	Set manna -= damageM
-	'<B><font color = green>You are harmed <<damage>> units</font></B>'
-	'<B><font color = green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
-		if zerkalo > 0:
-		set zerkalo -= 1
-		set health -= damage
-		'<B><font color = red><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></B>'
-		end
-	xgt 'fight','sta'
-	end
-
-	if defence > 0 and klon <= 0 and unmaterial <= 0:
-	set damSum = damage + damageM
-	Set defence -= damSum
-	!Set defenceV -= damage
-	'<B><font color = green>You have caused damage <<damSum>> Protection of the enemy units</font></B>'
-	xgt 'fight','sta'
-	end
-
-	if klon > 0 and unmaterial <= 0:
-	set klon -= 1
-	'<B><font color = green>Destroyed enemy clone</font></B>'
-	xgt 'fight','sta'
-	end
-
-	if unmaterial > 0:
-	set unmaterial -= 1
-	'<B><font color = red>Your shot went through the opponent´s body. Opponents do not materials</font></B>'
-	xgt 'fight','sta'
-	end
-
-	if barier > 0:
-	!барьер именитета для урона
-		if barier >= damage:
-		'<B><font color = red><<$nameV>> easily withstood your butt</font></B>'
-		xgt 'fight','sta'
-		end
-		if barier < damage:
-		Set manna -= damageM
-		Set health -= damage
-		!Set healthV -= damage
-		'<B><font color = green>You have caused damage <<damage>> units</font></B>'
-		'<B><font color = green>You have caused damage to the enemy manna <<damageM>> units</font></B>'
-			if zerkalo > 0:
-			set zerkalo -= 1
-			set healthV -= damage
-			'<B><font color = red>Enemy reflected damage and you got <<damage>> points of damage</font></B>'
-			end
-		end
-	xgt 'fight','sta'
-	end
-
-end
---- atakA1 ---------------------------------
-

+ 126 - 0
locations/054_atakB1

@@ -0,0 +1,126 @@
+# atakB1
+
+if $ARGS[0] = 'atak':
+	cla
+	!!payment hit dodge
+	set poSp = speedV * 20 / 100
+	set uvAg = agil * 20 / 100
+	set poBox = reactV * 20 / 100
+	set uvBox = react * 20 / 100
+	set popad = rand(reactV - poBox, reactV + poBox) + rand(speedV - poSp, speedV + poSp) + bonusShV
+	set uvorot = rand(react - uvBox, react + uvBox) + rand(agil - uvAg, agil + uvAg)
+	set uvorKoef = uvorot * 50 / 100
+	set popKoef = popad * 50 / 100
+
+	if popad > uvorot:
+		if popad >= uvorot + uvorKoef:
+			!!Crete, very direct hit
+			'<b><font color="green">critical hits</font></b>'
+			gs 'atakB1', 'uronKrit'
+		end
+
+		if popad < uvorot + uvorKoef:
+			!!normal hit
+			!!attack the enemy
+			'<b><font color="green">Contact</font></b>'
+			gs 'atakB1', 'uron'
+		end
+	end
+
+	if popad <= uvorot:'<b><font color="red">is washed</font></b>'
+end
+
+if $ARGS[0] = 'uronKrit':
+	cla
+	set damDef = defenceV / 100
+	set damKoef = damDef * 20 / 100
+	set damage = rand(damDef + damKoef, damDef + damKoef * 2)
+	gs 'atakB1', 'damage'
+end
+
+if $ARGS[0] = 'uron':
+	cla
+	set damDef = defenceV / 100
+	set damKoef = damDef * 20 / 100
+	set damage = rand(damDef - damKoef, damDef + damKoef)
+	gs 'atakB1', 'damage'
+end
+
+if $ARGS[0] = 'damage':
+	cla
+
+	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
+		if dospeh > 0:set damage -= dospehDefV & set dospehEn -= 1
+		if damage < 0:set damage = 0
+		set health -= damage
+		!!set manna -= damageM
+
+		if eleShV > 0:
+			set stun = rand(eleShV, eleShV * 3)
+			'<b><font color="red">Protection of the enemy paralyze you <<stun>> rounds</font></b>'
+		end
+
+		'<b><font color="red">Protection of the enemy caused you damage <<damage>> units</font></b>'
+		!!'<b><font color="red">caused damage your manna <<damageM>> units</font></b>'
+
+		if zerkalo > 0:
+			set zerkalo -= 1
+			set defenceV -= damage
+			'<b><font color="green">You are reflected damage from the defense and protection of the enemy received <<damage>> points of damage</font></b>'
+		end
+
+		!!xgt 'fight', 'sta'
+	end
+
+	if defence > 0 and klon <= 0 and unmaterial <= 0:
+		!!set damSum = damage + damageM
+		!!set defence -= damSum
+		set defence -= damage
+		'<b><font color="red">your defense harmed <<damage>> units from the defense</font></b>'
+		!!xgt 'fight', 'sta'
+	end
+
+	if klon > 0 and unmaterial <= 0:
+		set klon -= 1
+		'<b><font color="red">destroy your clone</font></b>'
+		!!xgt 'fight', 'sta'
+	end
+
+	if unmaterial > 0:
+		set unmaterial -= 1
+		'<b><font color="green">Beat the defense went through you. YOU is not material</font></b>'
+		!!xgt 'fight', 'sta'
+	end
+
+	if barier > 0:
+		!!imeniteta barrier for damage
+		if barier >= damage:
+			'<b><font color="green">You can easily withstand the impact of the defense</font></b>'
+			!!xgt 'fight', 'sta'
+		end
+
+		if barier < damage:
+			!!set manna -= damageM
+			!!set health -= damage
+			set health -= damage
+
+			if eleShV > 0:
+				set stun = rand(eleShV, eleShV * 3)
+				'<b><font color="red">Protection of the enemy paralyze you <<stun>> rounds</font></b>'
+			end
+
+			'<b><font color="red">You have harmed <<damage>> units from the defense</font></b>'
+			!!'<b><font color="red">caused damage your manna <<damageM>> units</font></b>'
+
+			if zerkalo > 0:
+				set zerkalo -= 1
+				set defenceV -= damage
+				'<b><font color="green">You are repelled enemy damage and protection received <<damage>> points of damage</font></b>'
+			end
+		end
+
+		!!xgt 'fight', 'sta'
+	end
+end
+
+--- atakB1 ---------------------------------

Неке датотеке нису приказане због велике количине промена