CONTRIBUTING.md

@@ -1,55 +0,0 @@
-# Girl Life - ECV: Contribution Guide
-
-## Branches
-
-*master*  - This is where we develop most of the game.
-
-*release* - Current release bug fix.
-
-## Remember
-
-- Try to keep the game playable ... always. Bugs will happen but obvious mistakes can be eliminated in a simple testing run.
-- **Be careful! Do not erase other people work.**
-    - Git offer some help with that but sometimes we have to resolve conflicts ourselves.
-- Try to make **meaningful** commit messages.
-    - You can use emojis like: :wrench:, :up:, :recycle:, :new:, :x:, :shower:. Just dont overload :smile:
-    - emoji cheat sheet: http://www.emoji-cheat-sheet.com/
-- Commit **often** and in **small** chunks. 
-    - If revert is needed we don't lose much.
-
-### How to contribute?
-
-- Fork our repository clicking that "fork" button near the star button above.
-- **Read the code** to see how we do things.
-    - There is a developer guide, a coding guide and a QSP reference in our wiki.
-- Make your changes.
-- Submit merge requests.
-
-## Instructions
-
-### SSH Keys
-
-#### Windows:
-
-To generate you SSH Key you may use **puttygen** (http://www.chiark.greenend.org.uk/~sgtatham/putty/download.html)  to generate them.
-
-Open the program and follow:
-
-- Make sure the middle option (SSH-2 RSA) in the bottom is marked.
-- Make sure the number of bits in a generated key is 2048 (just below those options).
-- Click generate and follow instructions.
-- Copy the content in the big rectangle there.
-- Go to your profile >> profile settings >> ssh keys and paste it in the key field (another big rectangle).
-- Save the public key in a file.
-- Save the private file.
-
-### Using SourceTree client to manage your fork.
-
-- Download and install SourceTree (https://www.sourcetreeapp.com/). Let it install everything.
-- Create your own fork of project if you haven't already. 
-- Go to the project tab of your fork and copy SSH/HTTP link there.
-- Run SourceTree and Clone/New button. Paste in the SSH/HTTP link of your fork. You will probably get a prompt to log into GitLab. Do so. Project files will be copied to your drive.
-- You search and edit files in working copy. 
-- Since files in /location have no extension its best to open them using custom actions. Tools/Options/Custom actions. Enter $FILE in parameters and link to your text editor of choice in scripts. Will need to restart SourceTree for new actions to become available.
-- Commits you make will not appear on your project web page until you Push them.
-- To sync your fork with main fork when there are new commits go to Repository/Repository Settings in SourceTree menu bar and click add. Enter ssh://[email protected]:9000/mjsmagalhes/girllife-ecv.git (or http://) into Url/Path. Name it whatever you want. Once that is done click Pull button and select it from the dropdown list. Your fork will be updated.

README.md

@@ -1,48 +0,0 @@
-# Girl Life (ЭТО) [English Community Version] - github edition
-
-## Formatting comments when posting commits
-Please use one of the following terms:
-* fixed
-* changed
-* added
-* removed
-* text edit
-Added and removed are for files being added or removed, fixed is for bug/code fixes, changed is for when events are changed and text edit is for changes to the text that'll appear on screen.
-These are for searching to aid those working on the files.
-Can you also include filenames (unless its a large number of files) and include any description you feel will help.
-If adding content that is disabled (due to being WIP) can you comment in the file that its disabled and include your name so that it doesn't get activated in error.
-
-## Quick start (for Unixy machines)
-* clone/fork the repo
-* make edits to the files in `locations`
-* run `./txtmerge.py locations glife.txt`
-* run `wine txt2gam.exe glife.txt glife.qsp`
-* test that it works
-* commit your changes
-* push and/or send a pull request
-
-## Quick start (for Windows machines)
-* Double click the MakeQSP.bat
-* Enjoy :)
-
-## What exactly is all this?
-In an effort to make editing the text of Girl Life easier, I set up this repo. This is based on the english community version. There are two branches: `master` and `releases`. On the `master` branch I will keep my version of the game as I make edits, merge pull requests, etc. while the `releases` is where you'd get things that you expect to actually work.
-
-## Where are the images?
-Not here. Shouldn't you know this already?
-
-## What is `glife.txt`?
-It turns out that `glife.qsp` is not the friendliest format for this game, but if you use `qgen` you can export the game in what they call `TXT2GAM` format. This is how `glife.txt` is obtained. Note that this is a large text file encoded in UTF-16, so git still has some trouble with it.
-
-## What are the python scripts?
-Since `glife.txt` is large and in UTF-16, I wrote two scripts, one that splits this file into one file per location, and puts them in `locations` after turning them to UTF-8, another that takes the UTF-8 files from `locations` and generates a UTF-16 file in `TXT2GAM` format.
-
-## I modified something in `locations`, ran the `txtmerge.py` script, now what?
-Assuming you ran something like
-    ./txtmerge.py locations glife.txt
-you now need to turn `glife.txt` into a `qsp` file. On my system, I use `wine` to run `txt2gam.exe`, works quite well:
-    wine txt2gam.exe glife.txt glife.qsp
-
-## Where do I get `qgen` and `txt2gam.exe`?
-* [qgen](http://qsp.su/index.php?option=com_content&task=view&id=46&Itemid=56)
-* [txt2gam](http://qsp.su/index.php?option=com_content&task=view&id=52&Itemid=56)

common_typos.license.md

@@ -1,5 +0,0 @@
-List of words uses material from the wikipedia article [List of common misspellings][1], which is released under [Creative Commons Attribution-Share-Alike License 3.0][2].
-
-
-[1]: https://en.wikipedia.org/wiki/Wikipedia:Lists_of_common_misspellings/For_machines
-[2]: https://creativecommons.org/licenses/by-sa/3.0/

glife.qproj

@@ -56,6 +56,7 @@
 		<Location name="food"/>
 		<Location name="food_menu"/>
 		<Location name="virginity_call"/>
+		<Location name="willpower"/>
 	</Folder>
 	<Folder name="Body">
 		<Location name="body"/>
@@ -182,6 +183,7 @@
 		<Location name="npcpreservec"/>
 		<Location name="npcrnamefile"/>
 		<Location name="npcbreeder"/>
+		<Location name="npcstaticdefaults"/>
 		<Location name="npcstatic1"/>
 		<Location name="npcstatic2"/>
 		<Location name="npcstatic3"/>
@@ -206,7 +208,6 @@
 		<Location name="atakB"/>
 		<Location name="atakB1"/>
 		<Location name="atakM"/>
-		<Location name="spell"/>
 		<Location name="ender"/>
 		<Location name="nill"/>
 		<Location name="test"/>
@@ -349,15 +350,32 @@
 	</Folder>
 	<Folder name="Tanya">
 		<Location name="tanapartment"/>
+		<Location name="tanhouse"/>
 		<Location name="tanroom"/>
 		<Location name="tanhozspal"/>
-		<Location name="tanhousezal"/>
-		<Location name="tanhouse"/>
 		<Location name="tankitchen"/>
 		<Location name="tanspalnya"/>
 		<Location name="tanvanr"/>
 		<Location name="tanNicholas"/>
 	</Folder>
+	<Folder name="Nicholas">
+		<Location name="nichApartment"/>
+		<Location name="nichBathGuest"/>
+		<Location name="nichBathMaster"/>
+		<Location name="nichBathServant"/>
+		<Location name="nichBedroomMaster"/>
+		<Location name="nichBedroomServant"/>
+		<Location name="nichBedroomTanja"/>
+		<Location name="nichChore"/>
+		<Location name="nichCook"/>
+		<Location name="nichGala"/>
+		<Location name="nichKitchen"/>
+		<Location name="nichLivingroom"/>
+		<Location name="nichNicholas"/>
+		<Location name="nichStudy"/>
+		<Location name="nichTanya"/>
+		<Location name="nichUtil"/>
+	</Folder>
 	<Folder name="Apartment">
 		<Location name="bedr"/>
 		<Location name="sitr"/>
@@ -499,8 +517,6 @@
 		<Location name="mitkabuh"/>
 		<Location name="mitkabuh_group"/>
 		<Location name="mitkasex"/>
-		<Location name="bandit"/>
-		<Location name="banditbreak"/>
 		<Location name="gadprostitutes"/>
 		<Location name="bicycle"/>
 		<Location name="gadfield"/>
@@ -528,6 +544,7 @@
 		<Location name="hunter_favors"/>
 		<Location name="hunter_ambient"/>
 		<Location name="hunter_interactions"/>
+		<Location name="swamp_woods"/>
 		<Location name="AndreiHunter"/>
 		<Location name="IgorHunter"/>
 		<Location name="SergeiHunter"/>
@@ -707,7 +724,6 @@
 		<Location name="LariskaHome"/>
 	</Folder>
 	<Folder name="Pets">
-		<Location name="soba"/>
 		<Location name="krol"/>
 		<Location name="popu"/>
 		<Location name="qwlocdog"/>
@@ -1096,5 +1112,13 @@
 	</Folder>
 	<Location name="LBZhouse"/>
 	<Location name="BanSexType"/>
+	<Folder name="Magic">
+		<Location name="castSpell"/>
+		<Location name="spellList"/>
+		<Location name="spell"/>
+		<Location name="treeCircle"/>
+		<Location name="treeCircActs"/>
+		<Location name="treeCircEntry"/>
+	</Folder>
 	</Structure>
 </QGen-project>

insanity.sh

@@ -75,7 +75,7 @@ else
 fi
 
 _build_negative_match() {
-    _output=""
+    output=""
     for arg in "$@"
     do
         output+=" --and --not -e \"${arg}\""

locations/Cheatmenu_din.qsrc

@@ -241,27 +241,27 @@ $cheatmenu['bodyMod'] = {
 			''
 		end
 		if (pregchem >= 3696 and pregchem < 4200) = 0:
-			'<a href="exec:pregchem = 3696 & pregtime = 133 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 3)]>></a>'
+			'<a href="exec:pregchem = 3696 & pregtime = 154 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 3)]>></a>'
 			''
 		end
 		if (pregchem >= 4200 and pregchem < 4704) = 0:
-			'<a href="exec:pregchem = 4200 & pregtime = 154 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 4)]>></a>'
+			'<a href="exec:pregchem = 4200 & pregtime = 175 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 4)]>></a>'
 			''
 		end
 		if (pregchem >= 4704 and pregchem < 5208) = 0:
-			'<a href="exec:pregchem = 4704 & pregtime = 175 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 5)]>></a>'
+			'<a href="exec:pregchem = 4704 & pregtime = 196 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 5)]>></a>'
 			''
 		end
 		if (pregchem >= 5208 and pregchem < 5712) = 0:
-			'<a href="exec:pregchem = 5208 & pregtime = 196 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 6)]>></a>'
+			'<a href="exec:pregchem = 5208 & pregtime = 217 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 6)]>></a>'
 			''
 		end
 		if (pregchem >= 5712 and pregchem < 6216) = 0:
-			'<a href="exec:pregchem = 5712 & pregtime = 217 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 7)]>></a>'
+			'<a href="exec:pregchem = 5712 & pregtime = 238 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 7)]>></a>'
 			''
 		end
 		if (pregchem >= 6216) = 0:
-			'<a href="exec:pregchem = 6216 & pregtime = 238 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 8)]>></a>'
+			'<a href="exec:pregchem = 6216 & pregtime = 259 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 8)]>></a>'
 			''
 		end
 	end
@@ -445,8 +445,8 @@ $cheatmenu['permanent'] = {
 	if cumeater_cheat = 1:$cheatcumtrait = 'Disabled'
 	if exhib_cheat = 0:$cheatexhib = 'Enabled'
 	if exhib_cheat = 1:$cheatexhib = 'Disabled'
-	if cheatConsole = 0:$cheatConsole = 'Disabled'
-	if cheatConsole = 1:$cheatConsole = 'Enabled'
+	if cheatConsole = 0:$cheatConsole = 'Visible'
+	if cheatConsole = 1:$cheatConsole = 'Hidden'
 	if cheatTime = 0:$cheatTime = 'Disabled'
 	if cheatTime = 1:$cheatTime = 'Enabled'
 
@@ -512,7 +512,7 @@ $cheatmenu['permanent'] = {
 		'No dream chance: <a href="exec:Enable_nodream=input(''Enter no dream chance (%)'') & dynamic $cheatmenu[''permanent'']">Currently OFF</a>'
 	end & !1.2.3 new function
 	*nl
-	'Console input in Objects window: <a href="exec:dynamic $cheatmenu[''consolecheat'']"><<$cheatConsole>></a>'
+	'Hide Console input in objects window: <a href="exec:dynamic $cheatmenu[''consolecheat'']"><<$cheatConsole>></a>'
 	'Time Cheat in Objects window: <a href="exec:dynamic $cheatmenu[''timecheat'']"><<$cheatTime>></a>'
 	*nl
 
@@ -1178,6 +1178,9 @@ $cheatmenu['reputation'] = {
 			'<<$npc_firstname[''A138'']>> <<$npc_lastname[''A138'']>>: <<npc_rel[''A138'']>>  <a href="exec:npc_rel[''A138''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A138''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
 		end
 	end
+	*nl
+	'<font color="blue"><b>Nicholas'' Family</b></font>'
+	'<a href="exec:gt ''nichUtil'', ''debug''">Storyline Debug Menu</a>'
 	'</td><td width="50%" cellpadding="10" valign="top">'
 	*nl
 	'Miscellaneous relationships'
@@ -1195,9 +1198,6 @@ $cheatmenu['reputation'] = {
 		if npc_rel['A219'] >= 0:
 			'Kat: <<npc_rel[''A219'']>>	<a href="exec:npc_rel[''A219''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A219''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
 		end
-		if npc_rel['A218'] >= 0:
-			'Tanya: <<npc_rel[''A218'']>>	<a href="exec:npc_rel[''A218''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A218''] & dynamic $cheatmenu[''reputation'']">-10</a>'
-		end
 		if npc_rel['A220'] >= 0:
 			'Vika: <<npc_rel[''A220'']>>  <a href="exec:npc_rel[''A220''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A220''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
 		end
@@ -1205,7 +1205,7 @@ $cheatmenu['reputation'] = {
 			'Irina: <<npc_rel[''A93'']>>  <a href="exec:npc_rel[''A93''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A93''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
 		end
 		if npc_rel['A43'] >= 0:
-			'Tamara: <<npc_rel[''A93'']>>	<a href="exec:npc_rel[''A43''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A43''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
+			'Tamara: <<npc_rel[''A43'']>>	<a href="exec:npc_rel[''A43''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A43''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
 		end
 		if alla >= 0:
 			'Alla: <<alla>>	<a href="exec:alla += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:alla -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
@@ -1515,6 +1515,54 @@ $cheatmenu['month'] = {
 	'<a href="exec:temp_month = 12 & $temp_month = ''December'' & dynamic $cheatmenu[''time'']">December</a>'
 }
 
+$cheatmenu['magicTable'] = {
+	!Build a cheat table for spells with a given Array of spell names.
+	!	ARGS[0] = Friendly name for table
+	!	ARGS[1] = the name of the arraay to use
+
+	$SpellTabName = $ARGS[0]
+	$ThisArrName = $ARGS[1]
+	maxArrSizeC = dyneval("result=arrsize('<<$ThisArrName>>')")
+
+	! make the header for the table
+	$SpellListStr = "<center>
+		<table width='90%' cellspacing='0' cellpadding='5' valign='top' border='1'>
+			<tr><th colspan='4'><b><<$SpellTabName>></b></th></tr>
+			<tr>
+				<th></th>
+				<th>Spell</th>
+				<th>Mana</th>
+				<th>Description</th>
+			</tr>"
+	i = 0
+	:CheatDinSpell1
+	$ThisSpellName = dyneval("$result=<<$ThisArrName>>[<<i>>]")
+	if i < maxArrSizeC:
+		if spellKnown[$ThisSpellName] = 1:
+			$spellFlipper = "<a href=""EXEC: spellKnown['<<$ThisSpellName>>'] = 0 & dynamic $cheatmenu['magic']"">[Unlearn]</a>"
+		else
+			$spellFlipper = "<a href=""EXEC: spellKnown['<<$ThisSpellName>>'] = 1 & dynamic $cheatmenu['magic']"">[Learn]</a>"
+		end
+		$SpellListStr = $SpellListStr + " <tr><td><<$spellFlipper>></td><td><<$spellName[$ThisSpellName]>></td><td><<spellMana[$ThisSpellName]>></td><td><<$spellDesc[$ThisSpellName]>></td></tr>"
+		i += 1
+		jump 'CheatDinSpell1'
+	end
+
+	$SpellListStr = $SpellListStr + " 
+		</table>
+	</center>"
+
+	*p $SpellListStr
+
+	killvar 'i'
+	killvar '$ThisSpellName'
+	killvar '$ThisArrName'
+	killvar 'maxArrSizeC'
+	killvar '$SpellTabName'
+	killvar '$spellFlipper'
+	killvar '$SpellListStr'
+}
+
 $cheatmenu['magic'] = {
 	gs'stat'
 	*clr & cla
@@ -1525,72 +1573,44 @@ $cheatmenu['magic'] = {
 		'<center><a href="exec:dynamic $cheatmenu[''succubreset'']"><b>Remove & Reset Succubus status</b></a></center>'
 		*nl
 	end
-	'<center><table  width="90%" cellspacing="0" cellpadding="0" valign="top">'
-	'<tr><td width="50%" cellpadding="10" valign="top">'
-		*nl
-		'<b>General Spells:</b></a>'
-	if spelltuman = 0:'<a href="exec:spelltuman = 1 & dynamic $cheatmenu[''magic'']">Cover the area fog</a>'
-	if spellklon = 0:'<a href="exec:spellklon = 1 & dynamic $cheatmenu[''magic'']">Override clone of yourself</a>'
-	if spellstun = 0:'<a href="exec:spellstun = 1 & dynamic $cheatmenu[''magic'']">Checkmate</a>'
-	if spellweap = 0:'<a href="exec:spellweap = 1 & dynamic $cheatmenu[''magic'']">Invest energy into a weapon (It requires weapons)</a>'
-	if spellwind = 0:'<a href="exec:spellwind = 1 & dynamic $cheatmenu[''magic'']">Blow away the fog</a>'
-	if spellklon2 = 0:'<a href="exec:spellklon2 = 1 & dynamic $cheatmenu[''magic'']">Substitute itself clones (3 pieces)</a>'
-	if spellenergo = 0:'<a href="exec:spellenergo = 1 & dynamic $cheatmenu[''magic'']">Create a weak energy shield</a>'
-	if spellinit = 0:'<a href="exec:spellinit = 1 & dynamic $cheatmenu[''magic'']">Create a slight delay of time</a>'
-	if spellhel = 0:'<a href="exec:spellhel = 1 & dynamic $cheatmenu[''magic'']">Battle Heal</a>'
-
-	if spellfire0 = 0 or spellfire2 = 0 or spellfire3 = 0 or spellfire4 = 0 or spellfire5 = 0:
-		*nl
-		'<b>Elemental Spells Fire:</b></a>'
-	end
-	if spellfire0 = 0:'<a href="exec:spellfire0 = 1 & dynamic $cheatmenu[''magic'']">Flame</a>'
-	if spellfire2 = 0:'<a href="exec:spellfire2 = 1 & dynamic $cheatmenu[''magic'']">The release of fire</a>'
-	if spellfire3 = 0:'<a href="exec:spellfire3 = 1 & dynamic $cheatmenu[''magic'']">Fire Barrier</a>'
-	if spellfire4 = 0:'<a href="exec:spellfire4 = 1 & dynamic $cheatmenu[''magic'']">Firestorm</a>'
-	if spellfire5 = 0:'<a href="exec:spellfire5 = 1 & dynamic $cheatmenu[''magic'']">Flame Shield</a>'
 
-	if spellele0 = 0 or spellele2 = 0 or spellele3 = 0 or spellele4 = 0 or spellele5 = 0:
-		*nl
-		'<b>Elements Lightning Spells:</b></a>'
-	end
-	if spellele0 = 0:'<a href="exec:spellele0 = 1 & dynamic $cheatmenu[''magic'']">Category</a>'
-	if spellele2 = 0:'<a href="exec:spellele2 = 1 & dynamic $cheatmenu[''magic'']">Lightning</a>'
-	if spellele3 = 0:'<a href="exec:spellele3 = 1 & dynamic $cheatmenu[''magic'']">Electric barrier</a>'
-	if spellele4 = 0:'<a href="exec:spellele4 = 1 & dynamic $cheatmenu[''magic'']">Dance of thousands of birds</a>'
-	if spellele5 = 0:'<a href="exec:spellele5 = 1 & dynamic $cheatmenu[''magic'']">Dancing Sphere</a>'
+	!Make sure spell list is initialized
+	if spellMana['fog'] = 0:gs 'spellList'
 
-	'</td><td width="50%" cellpadding="10" valign="top">'
-	if spellert0 = 0 or spellert2 = 0 or spellert3 = 0 or spellert4 = 0 or spellert5 = 0:
-		*nl
-		'<b>Spells Earth Elements:</b></a>'
-	end
-	if spellert0 = 0:'<a href="exec:spellert0 = 1 & dynamic $cheatmenu[''magic'']">Quicksand</a>'
-	if spellert2 = 0:'<a href="exec:spellert2 = 1 & dynamic $cheatmenu[''magic'']">Active protection</a>'
-	if spellert3 = 0:'<a href="exec:spellert3 = 1 & dynamic $cheatmenu[''magic'']">Abyss</a>'
-	if spellert4 = 0:'<a href="exec:spellert4 = 1 & dynamic $cheatmenu[''magic'']">Absolute protection</a>'
-	if spellert5 = 0:'<a href="exec:spellert5 = 1 & dynamic $cheatmenu[''magic'']">Sando</a>'
+	dynamic $cheatmenu['magicTable'], 'Combat Spells', '$combatSpells'
+	dynamic $cheatmenu['magicTable'], 'Non-Combat Spells', '$nonComSpells'
 
-	if spellwind0 = 0 or spellwind2 = 0 or spellwind3 = 0 or spellwind4 = 0 or spellwind5 = 0:
-		*nl
-		'<b>Wind Elemental Spells:</b></a>'
+	! Add in Teleport Location toggles.
+	! make the header for the table
+	$SpellListStr = "<center>
+		<table width='90%' cellspacing='0' cellpadding='5' valign='top' border='1'>
+			<tr><th colspan='2'><b>Known Tree Circle Locations</b></th></tr>
+			<tr><td><a href=""EXEC: spellKnown['teleport']=<<iif(spellKnown['teleport']=1,'0','1')>> & dynamic $cheatmenu['magic']""><<iif(spellKnown['teleport']=1,'[Unlearn]','[Learn]')>></a></td><td>Teleport Spell</td></tr>"
+	i = 0
+	:CheatDinTP1
+	$ThisLocation = $tpLocations[i]
+	if i < arrsize('$tpLocations'):
+		if tpKnown[$ThisLocation] = 1:
+			$spellFlipper = "<a href=""EXEC: tpKnown['<<$ThisLocation>>'] = 0 & dynamic $cheatmenu['magic']"">[Unlearn]</a>"
+		else
+			$spellFlipper = "<a href=""EXEC: tpKnown['<<$ThisLocation>>'] = 1 & dynamic $cheatmenu['magic']"">[Learn]</a>"
+		end
+		$SpellListStr = $SpellListStr + " <tr><td><<$spellFlipper>></td><td><<$treeCircName[$ThisLocation]>></td></tr>"
+		i += 1
+		jump 'CheatDinTP1'
 	end
-	if spellwind0 = 0:'<a href="exec:spellwind0 = 1 & dynamic $cheatmenu[''magic'']">Wind gust</a>'
-	if spellwind2 = 0:'<a href="exec:spellwind2 = 1 & dynamic $cheatmenu[''magic'']">The horrific pressure</a>'
-	if spellwind3 = 0:'<a href="exec:spellwind3 = 1 & dynamic $cheatmenu[''magic'']">Vacuum Sphere</a>'
-	if spellwind4 = 0:'<a href="exec:spellwind4 = 1 & dynamic $cheatmenu[''magic'']">Vacuum shells</a>'
-	if spellwind5 = 0:'<a href="exec:spellwind5 = 1 & dynamic $cheatmenu[''magic'']">Devouring vacuum</a>'
 
-	if spellwater0 = 0 or spellwater2 = 0 or spellwater3 = 0 or spellwater4 = 0 or spellwater5 = 0:
-		*nl
-		'<b>Water Elemental Spell:</b></a>'
-	end
-	if spellwater0 = 0:'<a href="exec:spellwater0 = 1 & dynamic $cheatmenu[''magic'']">Creek manna</a>'
-	if spellwater2 = 0:'<a href="exec:spellwater2 = 1 & dynamic $cheatmenu[''magic'']">Flooding</a>'
-	if spellwater3 = 0:'<a href="exec:spellwater3 = 1 & dynamic $cheatmenu[''magic'']">Blister</a>'
-	if spellwater4 = 0:'<a href="exec:spellwater4 = 1 & dynamic $cheatmenu[''magic'']">Water shark rocket</a>'
-	if spellwater5 = 0:'<a href="exec:spellwater5 = 1 & dynamic $cheatmenu[''magic'']">The Great Flood</a>'
+	$SpellListStr = $SpellListStr + " 
+		</table>
+	</center>"
+
+	*p $SpellListStr
+
+	killvar 'i'
+	killvar '$ThisLocation'
+	killvar '$spellFlipper'
+	killvar '$SpellListStr'
 
-	'</td></tr></table></center>'
 }
 
 $cheatmenu['dynamic'] = {
@@ -1660,9 +1680,9 @@ $cheatmenu['force_preg'] = {
 $cheatmenu['remove_preg'] = {
 	pregtime = 0
 	pregtalk = 0
-	pregTalkPC = 0
-	pregTalkNat = 0
-	pregTalkbrother = 0
+	pcs_pregtalk = 0
+	npc_pregtalk['A16'] = 0
+	npc_pregtalk['A34'] = 0
 	preg = 0
 	thinkpreg = 0
 	knowpreg = 0

locations/Gadhouse.qsrc

@@ -535,6 +535,8 @@ if $ARGS[0] = 'intro':
 	menu_off = 1
 	hour = 6
 	gs 'stat'
+	music_loop = 0
+	CLOSE ALL
 	'<center><H4>Your Grandparents'' Cottage</H4></center>'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost4.jpg"></center>'
 	*nl

locations/Gadsarai.qsrc

@@ -7,436 +7,154 @@ if $ARGS[0] = '':
 	$loc = 'Gadsarai'
 	$location_type = 'secluded'
 
-	temp = RAND(1,20)
+	'<center><h4>Old Barn</h4></center>'
+	if month >= 4 and month <= 10:
+		if hour >= 6 and hour < 22:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai_night.jpg"></center>'
+		end
+	else
+		if hour >= 8 and hour < 18:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai_winter.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai_winter_night.jpg"></center>'
+		end
+	end
+	'An old junk filled barn that could hold some useful items. Sitting near the barn is an old unused dog house.'
 
-	if npc_QW['A66'] >= 30 and temp <= 3:
-		gs 'boyStat', 'A66'
-		sexpartkno = 1
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/leghump.jpg"></center>'
-		'Bandit pounces on you and pins your thigh between his front legs. He begins to persistently and significantly put pressure on you, growling menacingly...'
-		if pcs_dom > 0 and alko < 6:
-			act 'Push off': minut += 1 & gt 'Gaddvor'
+	if mira_dog > 0: 'A naked and chained <a href="exec: gt ''Gadsarai'',''mira_dog'' ">Mira</a> sits near the dog house.</a>'
+
+	if month > 4 and month < 10:
+		if hour > 9 and hour < 20:
+			'On your right is a cattle barn.'
 		else
-			act 'Submit':
-				*clr & cla
-				banditknow = RAND(0,1)
-				npc_horny['A66'] = 0
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/predoggy.jpg"></center>'
-				'You remove your panties and get up on all fours in front of Bandit, presenting him with your bare ass. The dog instinctively knowing what to do, throws his forepaws on your back and starts to poke you in the crotch with his hot member.'
-				gs 'arousal', 'foreplay', 2, 'sub', 'beast'
-				gs 'arousal', 'end'
-				gs 'stat'
-				if banditknow = 1:
-					if pcs_vag = 0:
-						act 'Wait':
-							*clr & cla
-							if npc_QW['A66'] < 30:npc_QW['A66'] += 5
-							pcs_vag = 5
-							vgape = 3
-							pcs_mood = 50
-							gs 'boyStat', 'A66'
-							sexvolume = rand(20,590)
-							gs 'cum_manage'
-							'<center><img <<$set_imgh>> src="images/beast/bandit/doggyvirgin.jpg"></center>'
-							'You obediently wait until your dog finds his way to your hole. His tongue is hanging out, panting and snorting loudly over your ear. He begins making fast sharp movements with his hips, and you immediately feel the tip of his cock break through your hymen and begin furiously jabbing at your insides. The acute pain makes you moan loudly, and you have to stretch both hands on the floor to keep from falling onto the ground because of the dogs pounding. Biting your lip, you endure the pain as the animal takes your virginity.'
-							'His penis gets bigger and bigger with each passing second it''s painfully stretching your pussy. He tries to pull out from you, but his cock knot has swollen inside your tight pussy. You scream in pain as he tries to free himself from your sore bleeding vagina. Eventually, he settles down and you can feel a mix of blood and dog semen drip down your legs. After waiting for nearly half and hour, he finally shrinks enough to pop out of your well and truely fucked hole. You cry a little from your still bleeding and abused pussy, but somehow you manage to gather yourself after this intense ordeal...'
-							gs 'arousal', 'vaginal', 30, 'sub', 'beast', 'rough'
-							gs 'arousal', 'end'
-							gs 'pain', 4, 'vaginal', 'stretch'
-							gs 'stat'
-							act 'So I more or girl':gt 'Gadsarai'
-						end
-					else
-						*clr & cla
-						'<center><img <<$set_imgh>> src="images/beast/bandit/piratvag.jpg"></center>'
-						act 'Wait':
-							if pcs_vag < 10:
-								*clr & cla
-								pcs_vag += 5
-								vgape = 3
-								pcs_horny = 0
-								gs 'boyStat', 'A66'
-								sexvolume = rand(20,590)
-								gs 'cum_manage'
-								'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagknot.jpg"></center>'
-								'After a few moments you feel his hot cock sharply penetrate your tight vagina and start flailing wildly and deeply, reaching almost to the back of your uterus. Your eyes instantly well with involuntarily tears, and painful groans fall from your mouth. You shake your hips, trying to somehow reduce the pain, but Bandit snarls and gets angry. His teeth quite noticeably grip your neck and you are left with no choice but to obediently endure. He''s so strong, fast, and deep.'
-								'He hammers your pussy with his cock, and in a minute you feel like it gets hotter and starts to swell. The walls of your vagina painfully stretch, causing you more suffering, but you dare not move for fear that Bandit will take you by the neck again ... But after a couple of minutes, he gets off inside you and turns his back to your ass. All the rest of the time you wait to uncork your dog cum oozing pussy...'
-								gs 'arousal', 'vaginal', 25, 'sub', 'beast', 'rough'
-								gs 'arousal', 'end'
-								gs 'pain', 2, 'vaginal', 'stretch'
-								gs 'pain', 2, 'neck', 'pierce'
-								gs 'stat'
-								act 'Close':gt 'Gadsarai'
-							elseif pcs_vag >= 10 and pcs_vag < 25:
-								*clr & cla
-								pcs_vag += 4
-								vgape = 2
-								gs 'boyStat', 'A66'
-								sexvolume = rand(20,590)
-								gs 'cum_manage'
-								gs 'stat'
-								if pcs_horny >= 100:
-									*clr & cla
-									pcs_mood = 100
-									if pirsG = 1:
-										'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagcumpirs.jpg"></center>'
-									else
-										'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagcum.jpg"></center>'
-									end
-									'After a few moments you feel his hot cock sharply penetrate your moist vagina and start flailing wildly and deeply, reaching almost to the back of your uterus. From your lips come frustrated groans of both pain and pleasure. You gyrate your hips, trying to somehow reduce the pain and ironically almost prevent your approaching orgasm, but Bandit snarls and gets angry. His teeth quite noticeably grip your neck and you are left with no choice but to obediently endure. He''s so strong, fast, and deep.'
-									'He hammers your pussy with his cock, and in a minute you feel like it gets hotter and starts to swell. The walls of your vagina stretch, giving you a surprisingly painful yet pleasant feeling. A few minutes later you have to let go and Bandit gets off you and turns his back to your ass. You''re exhausted, and have to wait the rest of the time before you can uncork your dog cum oozing pussy...'
-									$orgasm_or = 'yes'
-									gs 'arousal', 'vaginal', 20, 'sub', 'beast', 'rough'
-									gs 'arousal', 'end'
-									gs 'pain', 2, 'vaginal', 'stretch'
-									gs 'pain', 2, 'neck', 'pierce'
-									gs 'stat'
-								else
-									'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagknot.jpg"></center>'
-									'After a few moments you feel his hot cock sharply penetrate your moist vagina and start flailing wildly and deeply, reaching almost to the back of your uterus. Your eyes instantly well with involuntarily tears, and painful groans fall from your mouth. You shake your hips, trying to somehow reduce the pain, but Bandit snarls and gets angry. His teeth quite noticeably grip your neck and you are left with no choice but to obediently endure. He''s so strong, fast, and deep.'
-									'He hammers your pussy with his cock, and in a minute you feel like it gets hotter and starts to swell. The walls of your vagina painfully stretch, causing more suffering, but you dare not move for fear that Bandit will take you by the neck again ... But after a couple of minutes, he gets off inside you and turns his back to your ass. All the rest of the time you wait to uncork your dog cum oozing pussy...'
-									gs 'arousal', 'vaginal', 20, 'sub', 'beast', 'rough'
-									gs 'arousal', 'end'
-									gs 'pain', 2, 'vaginal', 'stretch'
-									gs 'pain', 2, 'neck', 'pierce'
-									gs 'stat'
-								end
-								act 'Close':gt 'Gadsarai'
-							elseif pcs_vag >= 25 and pcs_vag < 35:
-								*clr & cla
-								pcs_vag += 3
-								gs 'boyStat', 'A66'
-								sexvolume = rand(20,590)
-								gs 'cum_manage'
-								gs 'stat'
-								if pcs_horny >= 100:
-									*clr & cla
-									pcs_mood = 100
-									if pirsG = 1:
-										'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagcumpirs.jpg"></center>'
-									else
-										'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagcum.jpg"></center>'
-									end
-									'After a few moments you feel his hot cock sharply penetrate your wet vagina and start flailing wildly and deeply, every thrust pushing at your womb. From your lips comes lustful groans, expressing both animal and human lust. You gyrate your hips, trying to somehow reduce the pain and ironically almost prevent your approaching orgasm, but Bandit snarls and gets angry. His teeth quite noticeable as he grips your neck and you are left with no choice but to obediently endure. He''s so strong, fast, and deep.'
-									'He hammers your pussy with his cock, and in a minute you scream and cry as your orgasm overwhelms you. You yell loudly as you cum, forgetting that someone might hear you. As you come down from your orgasm, it''s only a few minutes before Bandit has turned away from you waiting patiently for his knot to deflate...'
-									$orgasm_or = 'yes'
-									gs 'arousal', 'vaginal', 20, 'sub', 'beast', 'rough'
-									gs 'arousal', 'end'
-									gs 'pain', 2, 'vaginal', 'stretch'
-									gs 'pain', 2, 'neck', 'pierce'
-									gs 'stat'
-								else
-									'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagcum.jpg"></center>'
-									'After a few moments you feel his hot cock sharply penetrate your wet vagina and start flailing wildly and deeply, every thrust pushing at your womb. From your lips come lustful groans, expressing both animal and human lust. You gyrate your hips, trying to build towards orgasm, but Bandit snarls and gets angry. His teeth are quite noticeable as he grips your neck and you are left with no choice but to obediently endure. He''s so strong, fast, and deep.'
-									'The walls of your vagina stretch, sending a new wave of pleasure through your body, but you dare not move for fear that Bandit will take you by the neck again... But after a couple of minutes, he gets off inside you and turns his back to your ass. All the rest of the time you wait to uncork your dog cum oozing pussy...'
-									gs 'arousal', 'vaginal', 20, 'sub', 'beast', 'rough'
-									gs 'arousal', 'end'
-									gs 'stat'
-								end
-								act 'Close':gt 'Gadsarai'
-							elseif pcs_vag >= 35:
-								*clr & cla
-								pcs_vag += 1
-								gs 'boyStat', 'A66'
-								sexvolume = rand(20,590)
-								gs 'cum_manage'
-								gs 'stat'
-								if pcs_horny >= 100:
-									*clr & cla
-									pcs_mood = 100
-									if pirsG = 1:
-										'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagcumpirs.jpg"></center>'
-									else
-										'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagcum.jpg"></center>'
-									end
-									'After a few moments you feel his hot cock sharply penetrate your soaking wet vagina and begin furiously and deeply pounding, every thrust filling your womb. You groan with animal lust, completely devoid of humanity. Like a bitch in heat you grind your ass back against Bandit. You squeeze the muscles in your vagina, so that there is no chance of losing your favorite dog cock. Bandit spends a couple more minutes hammering away at your gaping vagina, and in a minute you scream as an animal-like orgasm overwhelms you. You wait humbly for ten minutes before your dogs cock slips out of your well fucked hole...'
-									$orgasm_or = 'yes'
-									gs 'arousal', 'vaginal', 15, 'sub', 'beast', 'rough'
-									gs 'arousal', 'end'
-									gs 'stat'
-								else
-									'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagcum.jpg"></center>'
-									'After a few moments you feel his hot cock sharply penetrate your soaking wet vagina and begin furiously and deeply pounding, every thrust filling your womb. You groan with animal lust, completely devoid of humanity. Like a bitch in heat you grind your ass back against Bandit. You squeeze the muscles in your vagina, so that there is no chance of losing your favorite dog cock. Bandit spends a couple more minutes hammering away at your gaping vagina, and soon jumps aside weary, turning his ass towards you. You wait unsatisfied for ten minutes, your ass fidgeting from arousal, before your dogs cock slips out of your well fucked hole...'
-									gs 'arousal', 'vaginal', 15, 'sub', 'beast', 'rough'
-									gs 'arousal', 'end'
-									gs 'stat'
-								end
-								act 'Close':gt 'Gadsarai'
-							end
-						end
-					end
-				else
-					act 'Wait':
-						*clr & cla
-						minut += 2
-						pcs_mood = 50
-						sub += RAND(0,1)
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/beast/bandit/analknot1.jpg"></center>'
-						if pcs_ass < 10:
-							pcs_ass += 5
-							agape = 3
-							spafinloc = 3
-							gs 'boyStat', 'A66'
-							sexvolume = rand(20,590)
-							gs 'cum_manage'
-							'You obediently wait until your dog finds his way to your hole. His tongue is hanging out, panting and snorting loudly over your ear. He begins making fast sharp movements with his hips, and you immediately feel the tip of his cock, with plenty of cock grease, slam through your puckered anus. Each time he thrusts he makes his way deeper and deeper into your tight ass. The acute pain makes you moan loudly, and you have to stretch both hands on the floor to keep from falling onto the ground because of the dogs pounding.'
-							'You groan from the pain and cramps in your anus, but Bandit''s angry snarling teeth powerfully grabs you by the neck. You have no choice but to try to relax as Bandit takes your ass with a fury. The pain subsided a bit, but not for long - as the long hot pulsating lump of flesh starts to increase rapidly in size, clogging your ass. The pain grows even greater as it increased to its maximum size, and you begin to squirm involuntarily, while not ceasing to moan and hum. But Bandit no longer pays any attention to you. He climbs down imperiously from your back and waits for his knot to deflate...'
-							gs 'arousal', 'anal', 20, 'sub', 'beast', 'rough'
-							gs 'arousal', 'end'
-							gs 'pain', 2, 'asshole', 'stretch'
-							gs 'pain', 2, 'neck', 'pierce'
-							gs 'stat'
-							act 'Close':gt 'Gadsarai'
-						elseif pcs_ass >= 10 and pcs_ass < 25:
-							pcs_ass += 3
-							agape = 2
-							spafinloc = 3
-							gs 'boyStat', 'A66'
-							sexvolume = rand(20,590)
-							gs 'cum_manage'
-							'You obediently wait until your dog finds his way to your hole. His tongue is hanging out, panting and snorting loudly over your ear. He begins making fast sharp movements with his hips, and you immediately feel the tip of his cock, with plenty of cock grease, slam through your puckered anus. Each time he thrusts he makes his way deeper and deeper into your ass. The dull aching pain makes you moan loudly, and you have to stretch both hands on the floor to keep from falling onto the ground because of the dogs pounding.'
-							'Biting your lip, you endure the pain as the animal gets further into your rectum. His penis gets bigger and bigger with each passing second, and the thrusts become stronger as your ass stretches with every penetrating movement. You groan and whine from the pain in your anus, but Bandit''s angry snarling teeth powerfully grabs you by the neck, and you will inevitably have to submit. To reduce the pain, you try to relax your anus, but it starts to get worse - after his cock gets fully in your ass, then the knot itself finds its way in and quickly starts to grow in size. Bandit fights against you, trying to push the knot in further. Eventually it is firmly corked in your rectum, and you even feel it erupt with hot cum deep inside you. Bandit finally calms down and quietly dismounts his bitch – all you can do is wait for the knot to deflate...'
-							gs 'arousal', 'anal', 20, 'sub', 'beast', 'rough'
-							gs 'arousal', 'end'
-							gs 'pain', 2, 'asshole', 'stretch'
-							gs 'pain', 2, 'neck', 'pierce'
-							gs 'stat'
-							act 'Close':gt 'Gadsarai'
-						elseif pcs_ass >= 25 and pcs_ass < 35:
-							pcs_ass += 2
-							agape = 1
-							spafinloc = 3
-							gs 'boyStat', 'A66'
-							sexvolume = rand(20,590)
-							gs 'cum_manage'
-							gs 'stat'
-							if pcs_horny >= 100:
-								*clr & cla
-								pcs_mood = 100
-								'<center><img <<$set_imgh>> src="images/beast/bandit/analknotcum.jpg"></center>'
-								'You obediently wait until your dog finds his way to your hole. His tongue is hanging out, panting and snorting loudly over your ear. He begins making fast sharp movements with his hips, and you immediately feel the tip of his cock, with plenty of cock grease, slam through your puckered anus. Each time he thrusts he makes his way deeper and deeper into your ass. There is a little pain, but your starting to moan louder with pleasure as Bandit forces his hard cock into you.'
-								'You have to stretch both hands on the floor to keep from falling onto the ground, and even begin to grind back against the dog to please him. However, Bandit does not like this and viciously growls as he possessively grabs you by the neck with his teeth, forcing you to submit and stay still. The knot easily penetrates into your wet ass, and when it begins to grow, you feel a slight discomfort that almost spoils your growing arousal. In an attempt to reach orgasm, you accidentally run a hand against his crotch, but Bandit immediately jumps away from you. Back on the ground, he turned his ass to yours and began to pull away, trying to free himself.'
-								'From such an unexpected turn of events you begin to rapidly and continuously try to finish, cumming hard, and not noticing the sound of Bandits nails scrapping the floor in an attempt to get away. His knot pulls at your asshole, stretching it outward. After half a minute Bandit is unable to get free, and you can feel his knot spewing out warm, sticky dog cum deep into your ass...'
-								$orgasm_or = 'yes'
-								gs 'arousal', 'anal', 20, 'sub', 'beast', 'rough'
-								gs 'arousal', 'end'
-								gs 'pain', 1, 'asshole', 'stretch'
-								gs 'pain', 1, 'neck', 'pierce'
-								gs 'stat'
-							else
-								'You obediently wait until your dog finds his way to your hole. His tongue is hanging out, panting and snorting loudly over your ear. He begins making fast sharp movements with his hips, and you immediately feel the tip of his cock, with plenty of cock grease, slam through your puckered anus. Each time he thrusts he makes his way deeper and deeper into your ass. There is a little pain, but your starting to moan louder with pleasure as Bandit forces his hard cock into you. You have to stretch both hands on the floor to keep from falling onto the ground, and even begin to grind back against the dog to please him.'
-								'However, Bandit does not like this and viciously growls as he possessively grabs you by the neck with his teeth, forcing you to submit and stay still. The knot easily penetrates into your wet ass, and when it begins to grow, you feel a slight discomfort that almost spoils your growing arousal. In an attempt to reach orgasm, you accidentally run a hand against his crotch, but Bandit immediately jumps away from you. Back on the ground, he turned and began to growl menacingly with displeasure. You decide it is not worth the risk to try and climax. You spent the rest of the waiting for Bandits knot to fade...'
-								gs 'arousal', 'anal', 20, 'sub', 'beast', 'rough'
-								gs 'arousal', 'end'
-								gs 'stat'
-							end
-							act 'Close':gt 'Gadsarai'
-						elseif pcs_ass >= 35:
-							pcs_ass += 1
-							spafinloc = 3
-							gs 'boyStat', 'A66'
-							sexvolume = rand(20,590)
-							gs 'cum_manage'
-							gs 'stat'
-							if pcs_horny >= 100:
-								*clr & cla
-								pcs_mood = 100
-								'<center><img <<$set_imgh>> src="images/beast/bandit/analcum.jpg"></center>'
-								'You obediently wait until your dog finds his way to your hole. His tongue is hanging out, panting and snorting loudly over your ear. He begins making fast sharp movements with his hips, and you immediately feel the tip of his cock, with plenty of cock grease, slam through your puckered anus. Each time he thrusts he makes his way deeper and deeper into your ass. There is almost no pain, and your starting to moan louder with animal lust and pleasure as Bandit forces his hard cock into you. You have to stretch both hands on the floor to keep from falling onto the ground, and even begin to grind back against the dog to please him.'
-								'However, Bandit does not like this and viciously growls as he possessively grabs you by the neck with his teeth, forcing you to submit and stay still. The knot easily penetrates into your wet ass, and when it begins to grow, you feel a slight discomfort that almost spoils your growing arousal. In an attempt to reach orgasm, you accidentally run a hand against his crotch, but Bandit immediately jumps away from you. Back on the ground, he turned his ass to yours and began to pull away, trying to free himself. From such an unexpected turn of events you begin to rapidly and continuously try to finish, without noticing that the knot has long since popped out of your gaping asshole and Bandit is now sitting opposite you, indifferently watching your post-orgasmic convulsions and yelps...'
-								$orgasm_or = 'yes'
-								gs 'arousal', 'anal', 20, 'sub', 'beast', 'rough'
-								gs 'arousal', 'end'
-								gs 'stat'
-							else
-								'The knot continues to get larger and larger in size until it finally reaches its maximum. You''re overcome with animal lust and pleasure, and love how nice it feels stretching the walls of your anus. The next twenty minutes consist of you writhing and squirming from feeling that hot dog cock in your ass... '
-								gs 'arousal', 'anal', 20, 'sub', 'beast', 'rough'
-								gs 'arousal', 'end'
-								gs 'stat'
-							end
-							act 'Close':gt 'Gadsarai'
-						end
-					end
-				end
-			end
+			'On your right is a <a href="exec: gt ''Gadsarai'',''cow'' ">cattle</a> barn.'
 		end
-	elseif mirabandit > 0 and temp >= 15:
-		if rand(0,4) = 0:
-			'<center><img <<$set_imgh>> src="images/beast/bandit/piratmira0,<<rand(0,2)>>.jpg"></center>'
-			'Going into the barn, you can see Miroslava coupled with Bandit. You can see part of the swollen knot stretching her red vagina, and Bandit happily wagging tail as you come up to greet him. Mira grunts in pain on all fours, ass to you, crawling behind the dog. You ruffle his ears and smile at the shameless tramp Mira has become under your care. Then you leave and close the door...'
-			gs 'arousal', 'voyeur', 10, 'beast'
-			gs 'arousal', 'end'
-			gs 'stat'
-			act 'Leave them alone':minut += 10 & gt 'Gaddvor'
+		if hour > 9 and hour < 20 and week < 6 or horse_river = 2:
+			'On your left is a horse stable.'
 		else
-			'<center><img <<$set_imgh>> src="images/beast/bandit/piratmira1,<<rand(0,1)>>.jpg"></center>'
-			'Going into the barn, you can see Bandit fucking Miroslava. He frantically plowed into her pussy, and she tried to hold back the moans and screams every time he thrust, crawling centimeter by centimeter forward under his pressure ... She did not even notice you, so you are a little more aroused after watching this scene. You step forward and slap Mira''s hard, leaving a bright red hand print. Mira yelps and looks back at you. She smiles as Bandit continues to plow into her pussy with wild abandon. You turn away and leave the barn with the door open...'
-			gs 'arousal', 'voyeur', 10, 'beast'
-			gs 'arousal', 'end'
-			gs 'stat'
-			act 'Leave them alone':minut += 10 & gt 'Gaddvor'
+			'On your left is a <a href="exec: gt ''Gadsarai'',''horse'' ">horse</a> stable.'
 		end
 	else
-		'<center><h4>Old Barn</h4></center>'
-		if month >= 4 and month <= 10:
-			if hour >= 6 and hour < 22:
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai.jpg"></center>'
+		'On your right is a <a href="exec: gt ''Gadsarai'',''cow'' ">cattle</a> barn.'
+		'On your left is a <a href="exec: gt ''Gadsarai'',''horse'' ">horse</a> stable.'
+	end
+	'There''s a <a href="exec: gt ''Gadsarai'',''boar'' ">boar</a> living in a separate stable.'
+	if findvel = 1:'You see an old <a href="exec:gt ''bicycle'',''sarai''">bike</a> in the corner.'
+
+	clr
+	gs 'stat'
+
+	act 'Leave':minut += 1 & gt 'Gaddvor'
+
+	act 'Poke around in the barn':
+		if grigoryEV > 0 and grigory_barn ! daystart and hour > 8 and hour < 12: gt 'grigory', 'barn'
+		*clr & cla
+		minut += 15
+		gs 'stat'
+		if vcard = 0 and vcard_trash = 0:
+			*clr & cla
+			if rand(0,5) >= 4:
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/vcards.jpg"></center>'
+				'"Hmm, what''s this?" You''ve found an unopened deck of vintage adult playing cards, still in its original cellophone wrapper.'
+				vcard = 1
+				observ_exp += 3
 			else
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai_night.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
+				'In the barn you find many mouldy magazines, rusty tools and equipment, toys and many dusty, yellowed books. The entire barn reeks of mould and decay.'
 			end
-		else
-			if hour >= 8 and hour < 18:
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai_winter.jpg"></center>'
+			act 'Leave and get some fresh air':gt 'Gadsarai'
+		elseif findvel = 0:
+			*clr & cla
+			if rand(0,8) >= 7:
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/findbike.jpg"></center>'
+				'In the far corner of the barn you manage to find an old bicycle. It''s in surprisingly good condition. You pull it out of the barn and clean it up.'
+				findvel = 1
+				observ_exp += 3
 			else
-				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai_winter_night.jpg"></center>'
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
+				'In the barn you find many mouldy magazines, rusty tools and equipment, toys and many dusty, yellowed books. The entire barn reeks of mould and decay.'
 			end
-		end
-		'An old junk filled barn that could hold some useful items. Sitting near the barn is your grandparents <a href="exec:gt ''bandit''">large dog, named Bandit</a>'
-		!125s
-		if mira_dog > 0: 'A naked and chained <a href="exec: gt ''Gadsarai'',''mira_dog'' ">Mira</a> sits near the dog house.</a>'
-		!125e
-		if month > 4 and month < 10:
-			if hour > 9 and hour < 20:
-				'On your right is a cattle barn.'
+			act 'Leave and get some fresh air':gt 'Gadsarai'
+		elseif findbag = 0 and bag = 0:
+			*clr & cla
+			if rand(0,10) > 9:
+				findbag = 1
+				observ_exp += 3
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/pc/purses/cheap/5.jpg"></center>'
+				'In a far corner of the barn you find a hessian sack filled with mostly junk, but at the bottom you find a good quality messenger bag.'
+				cheap_purses[5] = 1
+				$currentpursetype = 'cheap'
+				currentpursenumber = 5
+				'You can use this cool looking bag as a handbag.'
 			else
-				'On your right is a <a href="exec: gt ''Gadsarai'',''cow'' ">cattle</a> barn.'
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
+				'In the barn you find many mouldy magazines, rusty tools and equipment, toys and many dusty, yellowed books. The entire barn reeks of mould and decay.'
 			end
-			if hour > 9 and hour < 20 and week < 6 or horse_river = 2:
-				'On your left is a horse stable.'
+			act 'Leave and get some fresh air':
+				if findbag = 1: bag = 1
+				gt 'Gadsarai'
+			end
+		elseif findbraclet = 0:
+			*clr & cla
+			if rand(0,15) >= 14:
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/bracelet.jpg"></center>'
+				'While looking through the barn you spot a glint of metal under a pile of wood. Upon closer inspection you see a bracelet made of silver and crafted into the likeness of a snake. Strange, but cool that you would find something this valuable in the barn.'
+				findbraclet = 1
+				observ_exp += 3
 			else
-				'On your left is a <a href="exec: gt ''Gadsarai'',''horse'' ">horse</a> stable.'
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
+				'In the barn you find many mouldy magazines, rusty tools and equipment, toys and many dusty, yellowed books. The entire barn reeks of mould and decay.'
 			end
-		else
-			'On your right is a <a href="exec: gt ''Gadsarai'',''cow'' ">cattle</a> barn.'
-			'On your left is a <a href="exec: gt ''Gadsarai'',''horse'' ">horse</a> stable.'
-		end
-		'There''s a <a href="exec: gt ''Gadsarai'',''boar'' ">boar</a> living in a separate stable.'
-		if findvel = 1:'You see an old <a href="exec:gt ''bicycle'',''sarai''">bike</a> in the corner.'
-
-		clr
-		gs 'stat'
-
-		act 'Leave':minut += 1 & gt 'Gaddvor'
-
-		act 'Poke around in the barn':
-			if grigoryEV > 0 and grigory_barn ! daystart and hour > 8 and hour < 12: gt 'grigory', 'barn'
+			act 'Leave and get some fresh air':gt 'Gadsarai'
+		elseif findbraclet > 0 and findneck = 0:
 			*clr & cla
-			minut += 15
-			gs 'stat'
-			if vcard = 0 and vcard_trash = 0:
-				*clr & cla
-				if RAND(0,5) >= 4:
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/vcards.jpg"></center>'
-					'"Hmm, what''s this?" You''ve found an unopened deck of vintage adult playing cards, still in its original cellophone wrapper.'
-					vcard = 1
-					observ_exp += 3
-				else
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
-					'In the barn you find many mouldy magazines, rusty tools and equipment, toys and many dusty, yellowed books. The entire barn reeks of mould and decay.'
-				end
-				act 'Leave and get some fresh air':gt 'Gadsarai'
-			elseif findvel = 0:
-				*clr & cla
-				if RAND(0,8) >= 7:
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/findbike.jpg"></center>'
-					'In the far corner of the barn you manage to find an old bicycle. It''s in surprisingly good condition. You pull it out of the barn and clean it up.'
-					findvel = 1
-					observ_exp += 3
-				else
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
-					'In the barn you find many mouldy magazines, rusty tools and equipment, toys and many dusty, yellowed books. The entire barn reeks of mould and decay.'
-				end
-				act 'Leave and get some fresh air':gt 'Gadsarai'
-			elseif findbag = 0 and bag = 0:
-				*clr & cla
-				if RAND(0,10) > 9:
-					findbag = 1
-					observ_exp += 3
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/pc/purses/cheap/5.jpg"></center>'
-					'In a far corner of the barn you find a hessian sack filled with mostly junk, but at the bottom you find a good quality messenger bag.'
-					cheap_purses[5] = 1
-					$currentpursetype = 'cheap'
-					currentpursenumber = 5
-					'You can use this cool looking bag as a handbag.'
-				else
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
-					'In the barn you find many mouldy magazines, rusty tools and equipment, toys and many dusty, yellowed books. The entire barn reeks of mould and decay.'
-				end
-				act 'Leave and get some fresh air':
-					if findbag = 1: bag = 1
-					gt 'Gadsarai'
-				end
-			elseif findbraclet = 0:
-				*clr & cla
-				if RAND(0,15) >= 14:
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/bracelet.jpg"></center>'
-					'While looking through the barn you spot a glint of metal under a pile of wood. Upon closer inspection you see a bracelet made of silver and crafted into the likeness of a snake. Strange, but cool that you would find something this valuable in the barn.'
-					findbraclet = 1
-					observ_exp += 3
-				else
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
-					'In the barn you find many mouldy magazines, rusty tools and equipment, toys and many dusty, yellowed books. The entire barn reeks of mould and decay.'
-				end
-				act 'Leave and get some fresh air':gt 'Gadsarai'
-			elseif findbraclet > 0 and findneck = 0:
-				*clr & cla
-				if RAND(0,20) >= 19:
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/necklace.jpg"></center>'
-					if altQS = 1:
-						'While looking through the barn your foot goes through a rotten floorboard. You suddenly feel the presence of something magical under the floor. You get on your belly and look through the hole in the floor. You find a small box made of a black wood. You pick up the box and see the box is covered in a strange writing and glyphs that look like serpents. The feeling of power is coming from within the box. You lift the lid of the box and see a black metal necklace that looks like a coiled snake with ruby eyes. You feel the power coming from the necklace, but it doesn''t feel like any power you have ever felt.'
-					else
-						'While looking through the barn your foot goes through a rotten floorboard and gets stuck. As you work your foot free, you glimpse something underneath the floor - a box or something. You get on your belly and look through the hole in the floor. You find a small box made of a black wood. You pick up the box and see the box is covered in a strange writing and glyphs that look like serpents. The exotic look of the box gives you gooseflesh and you find yourself holding your breath as you prepare to open the box. You lift the lid of the box and see a black metal necklace that looks like a coiled snake with ruby eyes. You let your breath out slowly as you tilt the necklace from side to side, watching the light sparkle as it is reflected by the facets on the deep red rubies. You cannot begin to guess what this necklace must be worth.'
-					end
-					findneck = 1
-					observ_exp += 3
+			if rand(0,20) >= 19:
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/necklace.jpg"></center>'
+				if altQS = 1:
+					'While looking through the barn your foot goes through a rotten floorboard. You suddenly feel the presence of something magical under the floor. You get on your belly and look through the hole in the floor. You find a small box made of a black wood. You pick up the box and see the box is covered in a strange writing and glyphs that look like serpents. The feeling of power is coming from within the box. You lift the lid of the box and see a black metal necklace that looks like a coiled snake with ruby eyes. You feel the power coming from the necklace, but it doesn''t feel like any power you have ever felt.'
 				else
-					*clr & cla
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
-					'In the barn you find many mouldy magazines, rusty tools and equipment, toys and many dusty, yellowed books. The entire barn reeks of mould and decay.'
+					'While looking through the barn your foot goes through a rotten floorboard and gets stuck. As you work your foot free, you glimpse something underneath the floor - a box or something. You get on your belly and look through the hole in the floor. You find a small box made of a black wood. You pick up the box and see the box is covered in a strange writing and glyphs that look like serpents. The exotic look of the box gives you gooseflesh and you find yourself holding your breath as you prepare to open the box. You lift the lid of the box and see a black metal necklace that looks like a coiled snake with ruby eyes. You let your breath out slowly as you tilt the necklace from side to side, watching the light sparkle as it is reflected by the facets on the deep red rubies. You cannot begin to guess what this necklace must be worth.'
 				end
-				act 'Leave and get some fresh air':gt 'Gadsarai'
+				findneck = 1
+				observ_exp += 3
 			else
+				*clr & cla
+				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
-					'In the barn you find many mouldy magazines, rusty tools and equipment, toys and many dusty, yellowed books. The entire barn reeks of mould and decay.'
-				act 'Leave and get some fresh air':gt 'Gadsarai'
+				'In the barn you find many mouldy magazines, rusty tools and equipment, toys and many dusty, yellowed books. The entire barn reeks of mould and decay.'
 			end
+			act 'Leave and get some fresh air':gt 'Gadsarai'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/junk_barn.jpg"></center>'
+				'In the barn you find many mouldy magazines, rusty tools and equipment, toys and many dusty, yellowed books. The entire barn reeks of mould and decay.'
+			act 'Leave and get some fresh air':gt 'Gadsarai'
 		end
-
-		if vcard > 0:
-			act 'View your vintage porn cards':card_deck = 0 & gt 'card'
-		end
-		if card > 0:
-			act 'View your new porn cards':card_deck = 1 & gt 'card'
-		end
-
-		if pcs_horny >= 50:
-			act 'Masturbate':gt 'selfplay', 'start'
-		end
-
-	!! Serpent is not ready yet, so remarking out til then.
-	!!	if findneck = 1:
-	!!		act 'You hear a scrapping noice above you.':gt 'serpent'
-	!!	end
-
-	!!	if sunWeather = 1:
-	!!		if findvel = 1 and velday ! daystart:
-	!!			'You decide to spend awhile riding the <a href="exec: gt ''events'', ''cycling''">bicycle</a> around.'
-	!!		end
-	!!	end
-
-		if npc_horny['A66'] >= 20 and banditfrend >= 10:gt 'bandit'
 	end
+	
+	if vcard > 0: act 'View your vintage porn cards':card_deck = 0 & gt 'card'
+	if card > 0: act 'View your new porn cards':card_deck = 1 & gt 'card'
+
+	if pcs_horny >= 50:	act 'Masturbate':gt 'selfplay', 'start'
+
+!! Serpent is not ready yet, so remarking out til then.
+!!	if findneck = 1:
+!!		act 'You hear a scrapping noice above you.':gt 'serpent'
+!!	end
+
+!!	if sunWeather = 1:
+!!		if findvel = 1 and velday ! daystart:
+!!			'You decide to spend awhile riding the <a href="exec: gt ''events'', ''cycling''">bicycle</a> around.'
+!!		end
+!!	end
 end
 
-!125s
 if $ARGS[0] = 'boar':
 	*clr & cla
 	minut += 1
@@ -611,7 +329,7 @@ if $ARGS[0] = 'mira_dog':
 
 	'<center><H4>The barn</H4></center>'
 	'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_kennel2.jpg"></center>'
-	'You see Mira in chains, naked, in Bandit''s dog house depicting a dog.'
+	'You see Mira in chains, naked, in the old dog house depicting a dog.'
 
 	act 'Release':
 		cla
@@ -630,20 +348,5 @@ if $ARGS[0] = 'mira_dog':
 	act 'Go':gt'Gadsarai'
 end
 
-!Maybe we will have a no-zoo switch someday, keep this for good. by illume
-! this is in memory of the untimely deceased Bandit(((
-!{
-if know_no_bandit = 0:
-	*clr & cla
-	minut += 60
-	know_no_bandit = 1
-	gs'stat'
-	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/know_no_pirat.jpg"></center>'
-	'"Where''s Bandit? The bastard probably ran away, you sadly thought, looking at an empty dog house, remembering the beloved dog fondly.'
-	act 'Continue':gt $loc, $metka
-end
-}
-!125e
-
 --- Gadsarai ---------------------------------
 

locations/Gnpc.qsrc

@@ -214,7 +214,7 @@ act 'Take a walk through the park':
 	end
 end
 
-if preg = 1 and pregtime <= 80 and pregTalk[numnpc] = 0 and gnpcSex[numnpc] > 0 and knowpreg = 1:
+if preg = 1 and pregchem <= 1920 and npc_pregtalk[numnpc] = 0 and gnpcSex[numnpc] > 0 and knowpreg = 1:
 	if $father ! $nameBoyfrend[numnpc]:
 		$pregLie = '(Lie) '
 	else
@@ -233,7 +233,7 @@ if preg = 1 and pregtime <= 80 and pregTalk[numnpc] = 0 and gnpcSex[numnpc] > 0
 			act 'Dump him and take the money':
 				cla
 				pcs_dom += 2
-				pregTalk[numnpc] = 1
+				npc_pregtalk[numnpc] = 1
 				otnBoyFrend[numnpc] = 0
 				money += 5000
 				gs 'stat'
@@ -245,7 +245,7 @@ if preg = 1 and pregtime <= 80 and pregTalk[numnpc] = 0 and gnpcSex[numnpc] > 0
 			act 'Dump him and throw the money in his face':
 				cla
 				pcs_dom += 5
-				pregTalk[numnpc] = 1
+				npc_pregtalk[numnpc] = 1
 				otnBoyFrend[numnpc] = 0
 				gs 'stat'
 				'You furiously scream at him that you never want to see him again and throw the money in his face before storming off.'
@@ -259,7 +259,7 @@ if preg = 1 and pregtime <= 80 and pregTalk[numnpc] = 0 and gnpcSex[numnpc] > 0
 			act 'Dump him':
 				cla
 				pcs_dom += 5
-				pregTalk[numnpc] = 1
+				npc_pregtalk[numnpc] = 1
 				otnBoyFrend[numnpc] = 0
 				gs 'stat'
 				'You furiously scream at him that you never want to see him again and storm off.'

locations/HotelHole.qsrc

@@ -382,7 +382,7 @@ if $ARGS[0] = 'Pavlin' :
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/pavlin/pavlin.jpg"></center>'
 			'"<<$pcs_firstname>>, today I received a request for a pregnant girl. A Pregnant Girl! How the hell am I going to find a girl that is pregnant and willing to do this shit." he says, shaking his head.'
-			if knowpreg = 1 and pregtime >= 150:
+			if knowpreg = 1 and pregchem >= 3600:
 				cla
 				'You feel anger towards <<$npc_nickname[''A217'']>> rising up inside you. "Do you ever pay attention to me? Can''t you see I am pregnant?" You ask, gesturing at your obviously swollen belly.'
 				'"Of course I know that!" <<$npc_nickname[''A217'']>>''s brows furrow, letting you know he''s getting mad. Butterflies flutter in your stomach, fear trying to match up with the anger.'
@@ -395,7 +395,7 @@ if $ARGS[0] = 'Pavlin' :
 				end
 				act '"Of course I am, for the right price..."': gt 'HotelHole','PregBDSM'
 			end
-			if knowpreg = 1 and pregtime < 150:
+			if knowpreg = 1 and pregchem < 3600:
 				cla
 				'"Actually I am pregnant but unfortunately not really showing yet."'
 				'"That''s great, Once you are showing come to me again and I''ll introduce you."'
@@ -617,9 +617,9 @@ if $ARGS[0] = 'PregBDSM' :
 									'The nurse turns around, slightly startled, and says, "Oh you are awake. Just one minute, I will get the doctor for you." The nurse quickly exits the room.'
 									pregtime = 0
 									pregtalk = 0
-									pregTalkPC = 0
-									pregTalkNat = 0
-									pregTalkbrother = 0
+									pcs_pregtalk = 0
+									npc_pregtalk['A16'] = 0
+									npc_pregtalk['A34'] = 0
 									preg = 0
 									abortionbirthdate = daystart
 									cycle = 4

locations/HotelWork.qsrc

@@ -238,6 +238,8 @@ if $ARGS[0] = 'maid':
 	'You check your planning, and go to the next room on your list.'
 	if hour >= 19:
 		cla & *clr
+		cleaning_exp += rand (5,15)
+		maidHotelCount += 1
 		if threesomewatched = 0 or threesometojoin = 2:
 			maid_cloth = 0
 			maidtime += 1

locations/KatjaHomeTalk.qsrc

@@ -223,8 +223,8 @@ if $ARGS[0] = '':
 		end
 	end
 
-	if pregTalkKatja = 0 and KatjaConflict = 0 and kid = 0:
-		if knowKatjaPreg = 1 and pregtime >= 150:
+	if npc_pregtalk['A14'] = 0 and KatjaConflict = 0 and kid = 0:
+		if knowKatjaPreg = 1 and pregchem >= 3600:
 			cla
 			gs 'stat'
 			minut += 5
@@ -233,7 +233,7 @@ if $ARGS[0] = '':
 			'"Are you pregnant? Why didn''t you tell me? I thought we were closer than that. I told you that I was pregnant. I need to think. We''ll talk later"'
 
 			act 'Say goodbye and go home':gt 'pavResidential'
-		elseif knowKatjaPreg = 1 and knowpreg = 1 and pregtime > 0 and pregtime < 150:
+		elseif knowKatjaPreg = 1 and knowpreg = 1 and pregchem > 0 and pregchem < 3600:
 			act 'Tell her you''re pregnant':
 				cls
 				'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
@@ -242,7 +242,7 @@ if $ARGS[0] = '':
 				*nl
 				act 'Next':gt 'KatjaHomeTalk', 'katjaknows'
 			end
-		elseif KatjaPreg = 0 and pregtime >= 150:
+		elseif KatjaPreg = 0 and pregchem >= 3600:
 			cla
 			*nl
 			minut += 5
@@ -251,7 +251,7 @@ if $ARGS[0] = '':
 			'"Are you pregnant? Why didn''t you tell me? I thought we were closer than that. I need to think. We''ll talk later"'
 
 			act 'Say goodbye and go home':gt 'pavResidential'
-		elseif KatjaPreg = 0 and knowpreg = 1 and pregtime > 0 and pregtime < 150:
+		elseif KatjaPreg = 0 and knowpreg = 1 and pregchem > 0 and pregchem < 3600:
 			act 'Tell her you''re pregnant':
 				cls
 				'<center><b><font color="maroon"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></font></b></center>'
@@ -263,8 +263,8 @@ if $ARGS[0] = '':
 		end
 	end
 
-	if pregTalkKatja = 0 and (KatjaConflict = 0 or katjaconflict = 2) and kid > 0:
-		if knowKatjaPreg = 1 and pregtime >= 150:
+	if npc_pregtalk['A14'] = 0 and (KatjaConflict = 0 or katjaconflict = 2) and kid > 0:
+		if knowKatjaPreg = 1 and pregchem >= 3600:
 			cla
 			gs 'stat'
 			minut += 5
@@ -272,7 +272,7 @@ if $ARGS[0] = '':
 			KatConCheck = daystart
 			'"You''re pregnant again?" Her face turns red and her expression is far angrier than you''ve ever seen her. "After everything, you still didn''t trust me enough to tell me," she screams. "I thought there was something special between us." Tears begin rolling down her cheeks. "Just leave me alone, I don''t even want to see you right now."'
 			act 'Say goodbye and go home':gt 'pavResidential'
-		elseif knowKatjaPreg = 1 and knowpreg = 1 and pregtime > 0 and (KatjaConflict = 0 or katjaconflict = 2) and pregtime < 150:
+		elseif knowKatjaPreg = 1 and knowpreg = 1 and pregchem > 0 and (KatjaConflict = 0 or katjaconflict = 2) and pregchem < 3600:
 			act 'Tell her you''re pregnant':
 				cls
 				gs 'stat'
@@ -285,7 +285,7 @@ if $ARGS[0] = '':
 		end
 	end
 
-	if pregTalkKatja = 0 and KatjaConflict = 1 and KatConCheck ! daystart and kid = 0:
+	if npc_pregtalk['A14'] = 0 and KatjaConflict = 1 and KatConCheck ! daystart and kid = 0:
 		act 'Apologize':
 			cls
 			gs 'stat'
@@ -299,7 +299,7 @@ if $ARGS[0] = '':
 		end
 	end
 
-	if pregTalkKatja = 0 and KatjaConflict = 1 and KatConCheck ! daystart and kid > 0:
+	if npc_pregtalk['A14'] = 0 and KatjaConflict = 1 and KatConCheck ! daystart and kid > 0:
 		act 'Apologize':
 			cls
 			gs 'stat'
@@ -318,7 +318,7 @@ end
 
 if $ARGS[0] = 'katjaknows':
    cla
-   pregTalkKatja = 1
+   npc_pregtalk['A14'] = 1
 	*nl
 	if KatjaSlut < 60 and $wombthfath = 'Kolka' and npc_rel['A34'] > 50:
 		minut += 10
@@ -416,7 +416,7 @@ end
 
 if $ARGS[0] = 'katjaknows1':
 	cla
-	pregTalkKatja = 1
+	npc_pregtalk['A14'] = 1
 	if KatjaSlut < 60: 
 		'"So, hot stuff. Same father as last time?"'
 	else

locations/LCporn.qsrc

@@ -91,7 +91,7 @@ if $ARGS[0] = 'sex':
 		randlcpic = rand(1, 4)
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/sex/anal<<randlcpic>>.jpg"></center>'
 		if analplugin = 1:
-			'<<$boy>> pulls the plug out of your narrow and tight ass.'
+			'Eugen pulls the plug out of your narrow and tight ass.'
 			analplugin = 0
 			analplugout = 1
 		end

locations/MagEncounterFairy.qsrc

@@ -175,7 +175,7 @@ if $ARGS[0] = 'fairy_chat':
 					if clit_size >= 80:'<center><img <<$set_imgh>> src="images/pc/body/clit/clit5.jpg"></center>'
 					'You hear a giggle and you feel a warm tingle at the top of your slit, you reach down and part your pussy lips with your fingers.'
 					'Your clitoris has shunk, and seems to more demure than before! You can''t help but rub all around it, feeling the warm tingling and the moisture build at the entrance.'
-				elseif fairy_surprise <= 7:
+				elseif fairy_surprise <= 6:
 					min_arousal += rand(1,5)
 					'You hear a giggle, then sparkles surround your body and you get all tingly.'
 					'You suddenly feel flustered and more aroused then before.'
@@ -194,7 +194,7 @@ killvar '$din_fairy_chat_no1' & killvar '$din_fairy_shoo' & killvar '$din_fairy_
 
 if $ARGS[0] = 'fairychattopic':
 !!	These are the random chat texts for the Fairy from UsagiTripleSix
-	frandchat = rand(0,14)
+	frandchat = rand(0,16)
 
 	if frandchat = 1:
 		'You spend a while chatting with the fairy. She openly wonders why human children need to go to school, and brags about how fairies already know everything there is to know.'
@@ -224,8 +224,46 @@ if $ARGS[0] = 'fairychattopic':
 		'You have a scary thought while talking to the fairy. Since she''s real, you ask her how many other mythical creatures are real as well. She tells you that she''s sure that there are others out there, but she usually doesn''t stray far from the park.'
 	elseif frandchat = 14:
 		'You get into a pretty heated discussion with the fairy over whether dogs or cats are better. Well, it''s mostly the fairy that gets heated. It would be a mundane discussion for anyone else, but she takes it very seriously.'
-	else
+	elseif frandchat = 15:
 		'Today the fairy introduces you to fairy knock-knock jokes. She spends almost half an hour telling joke after joke, but you failed to understand a single one. By the time you''re ready to leave, she''s complaining about how humans have no sense of humor.'
+	else
+		! Teleport event
+		if spellKnown['teleport'] = 0:
+			!show and teach Teleport spell
+			'The Fairy wraps her arms around your thumb and lightly tugs you over to a mysterious circle of trees.'
+			''
+			'She says, "You may have seen these circles of trees around the lands.  Fairies planted them long ago and used their magic to tether them together.  Since you also have Fae magic, I can show you how to use them."'
+			''
+			'She continues,"Most of the work was already done in the binding.  In a way, the trees of each circle are the same trees.  You just have to stand inside the circle, then hold in your mind a picture of another circle that you have been to before.  Then you say the word <i>inla</i>.  If your will is strong enough and you have enough magical energy, your energy can be used to enact your will."'
+			''
+			'She giggles.  "This lets you dance through any field you like!  "Let''s go!"'
+			''
+			'She grunts and give you a nudge into the circle.'
+			act 'Stumble into Circle':
+				''
+				'The view outside the circle seems blurry and a little indistinct.  The Fairy''s face scrunches up in concentration as she incants "inla", and the world outside seems to shimmer a little. You feel like you understand how she did that.  Though you can''t tell exactly where you are now in the blurriness, it does look different.'
+				''
+				'The Fairy says, "It''s important to take the time to feel each Fairy Ring, that''s how you can find your way back."  She flies off.'
+				''
+				'You decide it would be wise to memorize your surroundings.'
+				spellKnown['teleport'] = 1
+				tpKnown['GadForest'] = 1
+				cla
+				act 'You step out of the circle...':gt 'gadforest', '1'
+			end
+		else
+			!take the user to random location
+
+			'The Fairy nudges you into the nearby tree circle, and giggles as you hear her incant "inla", then flies out of the ring.'
+
+			$tpRand[0]='GadForest'
+			$tpRand[1]='PushkinPark'
+			$tpRand[2]='Village'
+
+			gt 'treeCircle', $tpRand[rand(0,2)]
+
+			killvar $tpRand
+		end
 	end
 
 	act 'Go on your way': killvar 'frandchat' & gt $loc, $metka

locations/MartinTalk.qsrc

@@ -445,7 +445,6 @@ if $ARGS[0] = '':
 				'Martin chuckles. "Alright, you can have your secrets." But you can tell that he is a little disappointed you didn''t tell him more about yourself.'
 				*nl
 				'Still, he does what he can to hide that and give the conversation a new direction. "So, where do you live?"'
-			
 			else
 				'"I know that you are... doing porn," Martin tells you quietly.'
 				'Your face falls. You try to keep your cool, but you''re feeling cold all of a sudden. Why is he bringing this up?'
@@ -467,10 +466,9 @@ if $ARGS[0] = '':
 				'His smile infects you too. "Yeah, maybe."'
 				*nl
 				'Despite your relief, both of you fall silent for a while. It''s a lot to process, after all, and the question that goes through your head - if Martin had been jerking off to your videos - is annoyingly persistent. But with apparently nobody in the bar requiring his attention yet, Martin eventually feels like continuing the conversation somehow:' 
-				'"So, where do you live?"'
-					
-				act 'Continue': gt 'MartinTalk','MartinTalkApartment'
+				'"So, where do you live?"'	
 			end
+			act 'Continue': gt 'MartinTalk','MartinTalkApartment'
 		end
 			
 		if SchoolAtestat = 0: 

locations/Mirafather.qsrc

@@ -14,185 +14,258 @@ if tempmonth < month or (tempmonth = month and tempday <= day): boyage -= 1
 
 gs 'stat'
 
-if npc_QW['A64'] < 10:'<center><b><font color = maroon>Father Miroslava</font></b></center>'
-if npc_QW['A64'] >= 10:'<center><b><font color = maroon>Afanasiy</font></b></center>'
+if npc_QW['A64'] = 0:'<center><b><font color = maroon>Mira''s Father</font></b></center>'
+if npc_QW['A64'] > 0:'<center><b><font color = maroon>Afanasiy</font></b></center>'
 '<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
+*nl
 'Mira''s father, <<boyage>> years old. After his wife died, he drank heavily and looks much older than he actually is. He is still in good shape for a man his age.'
 
-act 'Leave':gt 'miroslavahome', 'start'
+act 'Leave':gt 'MiroslavaHome', 'start'
 
-if MiraFather ! daystart:
-	MiraFather = daystart
-	
-	act 'Greet':
+if Mira_no > 0 and mirafathertalk = 0 and miraday ! daystart:
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
+	*nl
+	'You are passing Mira''s house when you see Mira''s father headed in your direction.'
+	'"<<$pcs_firstname>>, wait. I need to speak with you," he says coming closer to you.'
+	'You stop and look at him frightfully. "Did Mira tell him what I made her do?" you think as panicked thoughts race through your head.'
+	'"<<$pcs_nickname>>, do you know what happened to Mira?" Afanasiy asks, looking you in the eye.'
+	'"N-no, what happened to her?" you ask in a confused voice, expecting him to start shouting any second.'
+	'"I don''t know. She is just sitting at home all the time. She doesn''t leave the yard, I''m concerned." Mira''s father answers.'
+	'"Oh, ah...I don''t know," you say, trying to make it sound believable and make your eyes look innocent. "Maybe she was by hurt some local boy, or had a fight with someone..."'
+	'"Okay, I think it will pass...soon I hope. But, I want you to come and visit us, I think your company would do Mira a lot of good. It might bring her out of this funk faster." Mira''s father says good-bye, and leaves to resume working around his house.'
+	'"Close call," you think as you watch his retreating back and exhale with relief.'
+	MiraLoc = 0
+	minut += 10
+	mirafathertalk = 1
+	gs'stat'
+
+	act 'Continue':gt 'Miroslava', 'Start'
+else
+	act 'Ask if Mira is home':
 		menu_off = 1
-		*clr & cla
-		if npc_QW['A64'] < 10:npc_QW['A64'] += 1
-		minut += 2
-		gs 'stat'
+		mira_temp = rand(1,20)
+		if sunWeather = 1:
+			if mira_temp > 15 and npc_QW['A60'] > 15 and hour >= 16 and hour <= 23:
+				*clr & cla
+				minut += 2
+				MiraLoc = 8
+				gs 'stat'
+				
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
+				*nl
+				'Mira''s father tells you that she''s not home, she left without telling him where she was going.'
+				
+				if mirapimp = 1:
+					'Mira is not home but you know exactly where to find her. She has been working as your prostitute on the highway'
+				elseif miraprost > 1:
+					'Mira is not home but you know exactly where to find her. You have seen her working as a prostitute on the highway.'
+				elseif miraprost = 1:
+					'Mira is not home but you think you know where to find her. Ever since granting your second wish you have heard rumors that Mira has been earning money as a prostitute on the highway.'
+				else
+					'Mira is not home and you have no idea where she might be. Maybe you should go look around town.'
+				end
+				act 'Leave':gt 'Gadukino'
+				if miraprost > 0: act 'Go to the highway': gt 'gadprostitutes','start'
+			elseif mira_temp > 10 and month >= 4 and month <= 10 and hour <= 18:
+				*clr & cla
+				minut += 2
+				MiraLoc = 1
+				gs 'stat'
+				
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
+				*nl
+				'Mira''s father tells you that she''s not home, she said she was going to the river.'
 
-		act 'Leave': gt 'miroslavahome', 'start'
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
-		'You are greeted by Mira''s father and politely inquire about his health.  He responds with a smile and says,"All is well, little lady."'
-		if npc_QW['A64'] >= 10:
+				act 'Leave':gt 'Gadukino'
+				act 'Go to the river':gt 'gadriver','start'
+			else
+				MiraLoc = 0
+				gt 'Miroslava', 'Start'
+			end
+		else
+			MiraLoc = 0
+			gt 'Miroslava', 'Start'
+		end
+	end
 
-			act 'Chat':
+	if MiraFather ! daystart:
+		MiraFather = daystart
+		
+		if npc_QW['A64'] < 5:
+			act 'Ask how he''s doing':
 				*clr & cla
-				if npc_QW['A64'] < 20:npc_QW['A64'] += 1
+				menu_off = 1
+				if npc_QW['A64'] < 5:npc_QW['A64'] += 1
 				minut += 5
 				gs 'stat'
+				
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
-				'You spend several minutes chatting with Mira''s father about the weather and trivia.'
+				*nl
+				'You are greeted by '+iif(npc_QW['A64'] = 0, 'Mira''s father','Afanasiy')+' and politely inquire about his health.  He responds with a smile and says,"All is well, little lady."'
+				if npc_QW['A64'] = 0:'Mira''s father continues, "I''m glad Mira has finally found a friend here in the village. It will be good for her to have another girl around. By the way, you can call me Afanasiy."'
+				
+				act 'Continue': gt 'Mirafather'
+			end
+		elseif npc_QW['A64'] <= 10:
+			act 'Chat with him':
+				*clr & cla
+				menu_off = 1
+				if npc_QW['A64'] < 10:npc_QW['A64'] += 1
+				minut += 5
+				gs 'stat'
+				
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
+				*nl
+				'You spend several minutes chatting with Afanasiy about the weather and trivia.'
 
-				act 'Leave': gt 'miroslavahome', 'start'
+				act 'Continue': gt 'Mirafather'
 			end
 		end
-		if npc_QW['A64'] >= 20:
-
-			act 'Flirt':
+		
+		if npc_QW['A64'] >= 10 and npc_QW['A64'] <= 15:
+			act 'Flirt with him':
 				*clr & cla
-				if npc_QW['A64'] < 30:npc_QW['A64'] += 1
+				menu_off = 1
+				if npc_QW['A64'] < 15:npc_QW['A64'] += 1
+				gs 'arousal', 'foreplay', 10
+				gs 'arousal', 'end'
+				gs 'stat'
+				
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
-				'You spend several minutes with Afanasiy, playful looking him over and smiling meaningfully at him.  He is glad of the company of a beautiful young woman.  A couple of times during your conversation, you noticed that his eyes roving up and down your body appraisingly.'
+				*nl
+				'You spend several minutes with Afanasiy, playful looking him over and smiling meaningfully at him.  He is happy with the company of a beautiful young woman.  A couple of times during your conversation, you notice his eyes roving up and down your body appraisingly.'
+				
+				act 'Continue': gt 'Mirafather'
+			end
+		end
+		
+		if npc_QW['A64'] = 15:
+			act 'Seduce him':
+				*clr & cla
+				menu_off = 1
+				npc_QW['A64'] = 16
 				gs 'arousal', 'foreplay', 10
 				gs 'stat'
-				if npc_QW['A64'] = 30:
+				
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
+				*nl
+				'You move over and stand next to Afanasiy.  You let your hand start to stroke his thigh and slowly move towards his crotch. Afanasiy looks at you for a while deep in thought. Eventually he sighs, and then nods to himself as if he has made a decision. He takes you by the hand and leads you into his house, and then down the hall into his room.'
 
-					act 'Seduce him':
+				act 'Enjoy his touch':
+					*clr & cla
+					
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersexkuni.jpg"></center>'
+					*nl
+					'Afanasiy is a gentle lover. With practiced ease he gently undresses you and crouches before you.  His mouth and fingers play across the lips of your pussy, he skillfully licks you until, until he brings you a powerful orgasm.'
+					
+					$orgasm_or = 'yes'
+					gs 'arousal', 'cuni', 10
+					gs 'arousal', 'vaginal_finger', 10
+					gs 'stat'
+					
+					act 'Turn around for him':
 						*clr & cla
-						npc_QW['A64'] = 31
-						'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
-						'You move over and stand next to Afanasiy.  You let your hand start to strokie his thigh and end up on his chest. Afanasiy a releases languid sigh, licking his lips and in a couple of minutes nods to himself as if he has made a decision.  Which he has.  Athanasios, takes you by the hand and leds you into his house, and then down the hall into his room.'
-						gs 'arousal', 'foreplay', 10
-						gs 'stat'
-
-						act 'Enjoy':
-							*clr & cla
-							guy += 1
-							'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersexkuni.jpg"></center>'
-							'Afanasiy'' is a gentle lover.  With practiced ease he gently undresses you and crouches before you.  His mouth and fingers play across the lips of your pussy, he skillfully licks you until, until he brings you a powerful orgasm.'
-							$orgasm_or = 'yes'
-							gs 'arousal', 'cuni', 10
-							gs 'arousal', 'vaginal_finger', 10
-							minut -= 10
-							gs 'stat'
-
-							act 'Give':
-								*clr & cla
-								pose = 0
-								'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex.jpg"></center>'
-								if mesec = 0 and pcs_vag > 0:
-									gs 'dinsex', 'boy_puts_condom'
-									gs 'dinsex','vaginal_sex',10
-									gs 'dinsex','sexcum'
-									gs 'arousal', 'vaginal', 10
-								else
-									gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
-									gs 'arousal', 'anal', 10, 'rough'
-								end
-								gs 'arousal', 'end'
-								gs 'stat'
-								act 'Leave': gt 'miroslavahome', 'start'
-							end
+						
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex.jpg"></center>'
+						*nl
+						pose = 0
+						if mesec = 0 and pcs_vag > 0:
+							gs 'dinsex', 'boy_puts_condom'
+							gs 'dinsex','vaginal_sex',10
+							gs 'dinsex','sexcum'
+							gs 'arousal', 'vaginal', 10
+						else
+							gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
+							gs 'arousal', 'anal', 10
 						end
+						gs 'arousal', 'end'
+						gs 'stat'
+						
+						act 'Continue': gt 'Mirafather'
 					end
 				end
-				if npc_QW['A64'] > 30:
-
-					act 'Wink at him':
+			end
+		elseif npc_QW['A64'] > 15:
+			act 'Wink at him':	
+				*clr & cla
+				menu_off = 1
+				if npc_QW['A64'] < 20:npc_QW['A64'] += 1		
+				gs 'arousal', 'foreplay', 5
+				gs 'stat'
+				
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
+				*nl
+				'You expressly wink at Afanasiy and he understands your meaning.  Looking about for nosy neighbors, he quickly waves for you to enter the house.'
+				
+				act 'Go inside':
+					*clr & cla
+					
+					pose = 0
+					temp_mf = rand(0,9)
+					if temp_mf = 0:
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex.jpg"></center>'
+					elseif temp_mf = 1:
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex1.jpg"></center>'
+					elseif temp_mf = 2:
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex2.jpg"></center>'
+					elseif temp_mf = 3:
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex3.jpg"></center>'
+					elseif temp_mf = 4:
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex4.jpg"></center>'
+					elseif temp_mf = 5:
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafatherbj.jpg"></center>'
+					elseif temp_mf = 6:
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafatherbj1.jpg"></center>'
+					elseif temp_mf = 7:
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafatherbj2.jpg"></center>'
+					elseif temp_mf = 8:
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafatherbj3.jpg"></center>'
+					elseif temp_mf = 9:
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafatherbj4.jpg"></center>'
+					end
+					*nl
+					if temp_mf < 5:
+						if mesec = 0 or pcs_vag > 0:
+							gs 'dinsex', 'boy_puts_condom'
+							gs 'dinsex','vaginal_sex',10
+							gs 'dinsex','sexcum'
+							gs 'arousal', 'vaginal', 10
+						else
+							gs 'dinsex','boy_wants_anal','lubri'
+							gs 'dinsex','analsex'
+							gs 'arousal', 'anal', 10
+						end
+					else
+						gs 'oral','start'
+						gs 'arousal', 'bj', 10
+					end
+					gs 'stat'
+					
+					act 'Make him cum':
 						*clr & cla
-						pose = 0
-						temp_mf = RAND(0,5)
+						minut += 5
+						pcs_horny += 10
+						gs 'cum_call', 'stomach', $boy, 1,'','',15
+						gs 'cum_call', 'breasts', $boy, 1,'','',20
+						gs 'cum_call', 'mouth', $boy, 1,'','',5
+						gs 'arousal', 'end'
 						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
+						
+						'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathercum.jpg"></center>'
+						*nl
 						if temp_mf < 5:
-							'You expressly wink at Afanasiy and he understands your meaning.  Looking about for nosy neighbors, he quickly waves for you to enter the house.'
-							gs 'arousal', 'foreplay', 5
-							gs 'stat'
-
-							act 'Further':
-								*clr & cla
-								temp_mf = RAND(0,9)
-								if temp_mf = 0:
-									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex.jpg"></center>'
-									gs 'arousal', 'vaginal', 10
-								elseif temp_mf = 1:
-									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex1.jpg"></center>'
-									gs 'arousal', 'vaginal', 10
-								elseif temp_mf = 2:
-									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex2.jpg"></center>'
-									gs 'arousal', 'vaginal', 10
-								elseif temp_mf = 3:
-									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex3.jpg"></center>'
-									gs 'arousal', 'vaginal', 10
-								elseif temp_mf = 4:
-									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex4.jpg"></center>'
-									gs 'arousal', 'vaginal', 10
-								elseif temp_mf = 5:
-									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafatherbj.jpg"></center>'
-									gs 'arousal', 'bj', 10
-								elseif temp_mf = 6:
-									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafatherbj1.jpg"></center>'
-									gs 'arousal', 'bj', 10
-								elseif temp_mf = 7:
-									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafatherbj2.jpg"></center>'
-									gs 'arousal', 'bj', 10
-								elseif temp_mf = 8:
-									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafatherbj3.jpg"></center>'
-									gs 'arousal', 'bj', 10
-								elseif temp_mf = 9:
-									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafatherbj4.jpg"></center>'
-									gs 'arousal', 'bj', 10
-								end
-								gs 'stat'
-								if temp_mf < 5:
-									if mesec = 0 or pcs_vag > 0:
-										gs 'dinsex', 'boy_puts_condom'
-										gs 'dinsex','vaginal_sex',10
-										gs 'dinsex','sexcum'
-										gs 'arousal', 'vaginal', 10
-									else
-										gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
-										gs 'arousal', 'anal', 10, 'rough'
-									end
-									gs 'arousal', 'end'
-									gs 'stat'
-
-									act 'Leave':gt 'miroslavahome', 'start'
-								else
-									minut += 10
-									pcs_horny += 10
-									gs 'stat'
-									gs 'oral','start'
-
-									act 'Further':
-										*clr & cla
-										minut += 5
-										pcs_horny += 10
-										gs 'cum_call', 'stomach', $boy, 1,'','',15
-										gs 'cum_call', 'breasts', $boy, 1,'','',20
-										gs 'cum_call', 'mouth', $boy, 1,'','',5
-										'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathercum.jpg"></center>'
-										'Afanasiy gently pulls away from you and leaving a couple of pearly drops of semen on your lips, he starts cumming on your tits and abdomen.'
-										gs 'arousal', 'end'
-										gs 'stat'
-
-										act 'Leave':gt 'miroslavahome', 'start'
-									end
-								end
-							end
+							'Afanasiy gently pulls away from you, leaving a couple of pearly drops of semen on your lips, and continues cumming on your tits and abdomen.'
 						else
-							'You expressly wink at Afanasiy, but he just smiles and says,"Too busy today honey, catch me later."'
-
-							act 'Leave': gt 'miroslavahome', 'start'
+							'Afanasiy gently pulls out of you, you kneel in front of him as he begins cumming on your tits and abdomen.'
 						end
+						
+						act 'Continue': gt 'Mirafather'
 					end
 				end
-
-				act 'Leave': gt 'miroslavahome', 'start'
 			end
-		end
-	end	
+		end	
+	end
 end
 
 --- Mirafather ---------------------------------

locations/Miroslava.qsrc

@@ -806,204 +806,6 @@ if $ARGS[0] = 'Start' or $ARGS[0] = '':
 			end
 		end
 
-		if npc_QW['A60'] >= 30 and hour < 19 and month >= 5 and month <= 9 and MiraLoc ! 3:
-			act '<b>Make your third wish</b>':
-				menu_off = 1
-				*clr & cla
-				minut += 2
-				mira_guest = 0
-				if ($clothingworntype = 'nude' or $clothingworntype = 'swimwear'):
-					gs 'clothing', 'wear', $lastwornclothingtype, lastwornclothingnumber
-					gs 'underwear', 'wear'
-				end
-				gs 'stat'
-				gs 'Miroslava', 'miraclothes'
-				'You remind Mira about the third wish, and she reluctantly nods her head and says that she remembers it. You, act mysterious and with a sinister smile, command her to follow you...'
-				act 'Go to the street (Walk through village naked)':
-					*clr & cla
-					minut += 15
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/street.jpg"></center>'
-					'You lead Mira out to the village street. Mira stares at her feet, sometimes looking at you with watchful eyes...'
-
-					act 'Order her to undress':
-						*clr & cla
-						minut += 2
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_looks.jpg"></center>'
-						'You lead her to the center of the village square, in front of the market. Here you turn to her and demand in a haughty that see undress. You tell her that this is your final wish and after she completes this task you will forgive her betrayal. Mira''s mouth slowly drops open and she looks at you like you insane.'
-						'"Come on, you`re like a little girl," you snort, "we both know you`re a big whore and can`t live without having cock on a daily basis. And now this is the mother load, entirely for free."'
-						'Mira in silence and looks at you, then looks around at the village street on which people walk about their business.'
-						'"<<$pcs_nickname>>, please don''t make this your wish. I will die of embarrassment!" - Mira plaintively begs hoping it will change your mind.'
-
-						act 'Confirm your wish':
-							*clr & cla
-							minut += 5
-							pcs_horny += RAND(5,10)
-							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_nude1.jpg"></center>'
-							'"No, you freely made the promise of three wishes. Anything I want. I want you to strip naked and head through the village to the fields. I will meet you there with your cloths. Now, do as you promised," you stated in an adamant voice.'
-							'Mira hesitates for another minute shifting uncomfortably from foot to foot, then nods to herself and finally decides to undress before you. Once nude, she hands you her cloths.'
-							'"Well, now you have get through the entire village and to the fields. Once you get to me you can consider yourself forgiven," you said with a malicious smile and slammed the palm of you hand into Mira''s ass to help her on the way. You slowly follow herand watch with interest.'
-
-							act 'Watch':
-								*clr & cla
-								minut += 5
-								pcs_horny += RAND(5,10)
-								gs 'stat'
-								'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_nude2.jpg"></center>'
-								'Mira hesitantly begins to move through the village street. You look at her and the reaction of passers-by.'
-
-								act 'Look further':
-									*clr & cla
-									minut += 15
-									pcs_horny += RAND(5,10)
-									Mira_no += rand(10,30)
-									miraday = daystart
-									npc_QW['A60'] = 33
-									npc_rel['A60'] = 1
-									gs 'stat'
-									'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_nude3.jpg"></center>'
-									'Finally flushed crimson, Mira gets to the fields just beyond the village. She then turn and rushes up to you.'
-									'"<<$pcs_nickname>>, we`re even!", - Mira states and looks at you emploringly.'
-									'You nodding his head while handing her clothes back. After watching a few more minutes as Mira dresses several of the village men are hooting as she sprint to her house, slowly the men settle down and go about their business.'
-
-									act 'Finish':mira_guest = 0 & MiraLoc = 0 & gt 'gadukino'
-								end
-							end
-						end
-
-						act 'Forgive her':
-							*clr & cla
-							minut += 5
-							npc_rel['A60'] += 5
-							npc_QW['A60'] = 31
-							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_leaves.jpg"></center>'
-							'"Well Mira, fuck you. I had a good day planned. You can consider yourself forgiven," - you said, after a pause.'
-							'The girl was still for several moments, shifts uncomfortably from foot to foot, unable to believe his ears, then jumps up to you and kisses you on the cheek.'
-							'"Thank you <<$pcs_nickname>>, I.. I.., "- not retrieves as she could and ran home.'
-
-							act 'Finish':mira_guest = 0 & gt 'gadukino'
-						end
-					end
-				end
-
-				if npc_QW['A66'] > 0:
-					!'This one replaced with naked walk in 1.2.5 add back with npc_QW['A66'] check, according to texts by illume'
-
-					act 'Go to your barn (Order her suck Bandit)':
-						*clr & cla
-						minut += 10
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/beast/bandit/piratmira.jpg"></center>'
-						'You lead Mira to your grandparents barn, where you are welcomed by horny Bandit. His bloodshot swollen member and a huge dick hanging between his legs. Mira, trying not to look up, catches a glimsp at him and promptly gets flushed beet red...'
-
-						act 'Order her to suck Bandit':
-							*clr & cla
-							minut += 2
-							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/beast/bandit/piratmira.jpg"></center>'
-							'You tell Mira that she will now fulfill your third wish. You tell her in a demanding voice to suck Bandit bloated dog cock. You tell her that if shw fulfill her vow and grants her wish, all will be forgiven. Her mouth drops open slowly and she looks at you, as if your insane.'
-							'"Come on", you tell the girl. With a contemptuous snort you say, "We both know that you''re a whore and prostitute, and can''t live without dick in you at least a few times a day. And right here," you point at Bandit''s dick, "is a huge cock ready to go! Mitka''s cock is puny next to this one, is it not?"'
-							'Mira stares at you like a deer in headlights, Bandit''s huge pulsating cock and just quivers, she isn''t going for it. You decide to push her and say, "It isn''t his first time with a human. I have been riding this cock for awhile now. It''s heavenly." Mira looks at you after that confession with eyes wide and round, as if seeing you for the first time.'
-
-							act 'Confirm your wish':
-								*clr & cla
-								minut += 5
-								pcs_horny += RAND(5,15)
-								gs 'stat'
-								'<center><img <<$set_imgh>> src="images/beast/bandit/piratmira2.jpg"></center>'
-								'As proof of your words, you walk over and sit down next to Bandit, who immediately tries to knock you down and hump you. You stop him by taking his cock in your hand and then bending down and sticking it in your mouth. You withdraw your mouth from the monsterous cock but first plant a kiss on the tip of his cock. Mira is shocked and gasps, and you immediately stand up and say, "You see! A cock is a cock, man or animal makes no difference. Now it''s your turn." Mira keeps looking from you to Bandit for another couple of moments, shifting from foot to foot uncomfortably. Finally, you can see she has made up her mind...'
-
-								act 'Watch':
-									*clr & cla
-									minut += 5
-									pcs_horny += RAND(25,30)
-									gs 'stat'
-									'<center><img <<$set_imgh>> src="images/beast/bandit/piratmira1.jpg"></center>'
-									'Mira hesitantly crouches next to Bandit. He watches her with interest. Mira exhales sharply and with a new found resolve she lowers her head and gently, and with much hesitation takes his throbing cock in hand, after a minute, she sticking out her tongue and starts licking it... You tell her what a good whore she is and how much pleasure she is give to her canine lover.'
-
-									act 'Watch':
-										*clr & cla
-										minut += 15
-										pcs_horny += RAND(25,50)
-										gs 'stat'
-										npc_QW['A60'] = 31 & !back to mira questline by illume
-										mirabandit = 1
-										'<center><img <<$set_imgh>> src="images/beast/bandit/piratmira3.jpg"></center>'
-										'She spends several minutes twisting her tongue over the tip and shaft of the dog''s dick. With a sigh, Mira lays on her back and starts to suck his cock, her lips crawl over Bandit''s massive hard cock. After a minute she pulls away, you see, she is having a hard time taking his cock into her mouth, Bandit''s cock starts to drip pre-cum. You tell her, to swallow every last drop, pro-cum, sperm or even piss if Bandit needs to go. She sighs resignedly and continues to suck. Soon Bandit starts to cum and Mira chokes at the shear volume of his cum, but she swallows it all and then she wipes a finger across her face and gathers up all the stay cum and shoves that into her mouth and swallows. She repeats this on her lips, chin, and the little that escaped to her neck and chest...'
-
-										act 'Finish':mira_guest = 0 & gt 'gadukino'
-									end
-								end
-							end
-						end
-					end
-				end
-
-				act 'Go to your barn (make her your dog)':
-					*clr & cla
-					minut += 10
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/sarai.jpg"></center>'
-					'You lead Mira to his barn, where there is an empty kennel next to Bandit`s. Mira looks at you blankly, waiting for you to continue.'
-
-					act 'Order her to undress':
-						*clr & cla
-						minut += 2
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_looks.jpg"></center>'
-						'Having taken Mira and the booth, appraising look, you certain of, demanding voice Mira ordered to undress and climb into the booth, adding that this is your last wish, after which you will have to forgive her betrayal. She slowly mouth drops open and she looks at you like you insane.'
-						' - Come on, you`re like a girl, ` snort you, we both know you`re a big whore and can`t live without members. And then just want to sit in the booth and posobirat Bandit.'
-						'Mira stares on you, then on the booth, which still bears a dog.'
-						'- <<$pcs_nickname>>, can do not suddenly see who? - plaintively asks hopefully it.'
-
-						act 'Confirm your wish':
-							*clr & cla
-							minut += 5
-							pcs_horny += RAND(5,10)
-							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_kennel1.jpg"></center>'
-							'- No Peace, your tongue no one pulled, now well, do as you promised, are adamant voice said you.'
-							'The girl for another minute shifts uncomfortably from foot to foot, then finally decided and undresses before the goal.Casting box the last time she gets on all fours and awkwardly tries to get in close box.'
-							'- Now sit a couple of hours and free, you said with a malicious smile and slamming the palm Mira on the back to make the speed began to watch with interest for her.'
-
-							act 'Watch':
-								*clr & cla
-								minut += 5
-								pcs_horny += RAND(5,10)
-								mira_dog += RAND(2,5)
-								npc_QW['A60'] = 32
-								!npc_rel['A60'] = 5
-								gs 'stat'
-								'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_kennel2.jpg"></center>'
-								'After watching Mira for a while, you went on the Affairs.'
-								' - Unbind yourself if you don`t come - threw you she lastly.'
-								'<b>(While this is the end of the event, the sequel will follow in the next versions)</b>'
-
-								act 'Finish':mira_guest = 0 & gt 'Gadsarai'
-							end
-						end
-
-						act 'Forgive her':
-							*clr & cla
-							minut += 5
-							npc_rel['A60'] += 2
-							npc_QW['A60'] = 31
-							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/characters/village/mira/mira_leaves.jpg"></center>'
-							'- Well Mira, fuck you, I have a good day. You can consider yourself forgiven, - you said, after a pause.'
-							'The girl was still a few moments, hesitates from foot to foot, unable to believe his ears, then jumps up to you and smacking you in the cheek.'
-							'- Thank you <<$pcs_nickname>>, I.. I.., - not retrieves as he could and ran home.'
-
-							act 'Finish':mira_guest = 0 & gt 'Gadsarai'
-						end
-					end
-				end
-			end
-		end
-
 		if mira_temp = 0 and mira_go_blok = 0 and meadow > 2 and MiraLoc = 0:
 			menu_off = 1
 			*clr & cla
@@ -1116,7 +918,7 @@ if $ARGS[0] = 'miratalk':
 		gs 'stat'
 
 		act 'Finish':gt $loc, $metka
-		if mirasextimes > 3:
+		!if mirasextimes > 3:
 			act 'Ask Mira if she likes Mitka...':
 				*clr & cla
 				minut += 2
@@ -1129,7 +931,7 @@ if $ARGS[0] = 'miratalk':
 
 				act 'Finish':gt $loc, $metka
 			end
-		end
+		!end
 	elseif npc_QW['A60'] = 3:
 		*clr & cla
 		minut += 10

locations/MiroslavaHome.qsrc

@@ -15,96 +15,37 @@ if $ARGS[0] = 'start':
 
 	'<center><h2>Gadukino Village</h2></center>'
 	'<center><b>Mira''s Yard</b></center>'
-		
-	act 'Leave': gt 'gadukino'
-
-	if hour >= 8 and hour <= 22:
-		if Mira_no > 0 and mirafathertalk = 0 and miraday ! daystart:
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
-			'You are passing Mira''s house when you see Mira''s father headed in your direction.'
-			'"<<$pcs_firstname>>, wait. I need to speak with you," he says coming closer to you.'
-			'You stop and look at him frightfully. "Did Mira tell him what I made her do?" you think as panicked thoughts race through your head.'
-			'"<<$pcs_nickname>>, do you know what happened to Mira?" Afanasiy asks, looking you in the eye.'
-			'"N-no, what happened to her?" you ask in a confused voice, expecting him to start shouting any second.'
-			'"I don''t know. She is just sitting at home all the time. She doesn''t leave the yard, I''m concerned." Mira''s father answers.'
-			'"Oh, ah...I don''t know," you say, trying to make it sound believable and make your eyes look innocent. "Maybe she was by hurt some local boy, or had a fight with someone..."'
-			'"Okay, I think it will pass...soon I hope. But, I want you to come and visit us, I think your company would do Mira a lot of good. It might bring her out of this funk faster." Mira''s father says good-bye, and leaves to resume working around his house.'
-			'"Close call," you think as you watch his retreating back and exhale with relief.'
-			MiraLoc = 0
-			minut += 10
-			mirafathertalk = 1
-			gs'stat'
-
-			act 'Continue':gt 'miroslavahome', 'start'
+	
+	if month >= 4 and month <= 10:
+		if hour >= 6 and hour < 22:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirahome.jpg"></center>'
 		else
-			if month >= 4 and month <= 10:
-				if hour >= 6 and hour < 22:
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirahome.jpg"></center>'
-				else
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirahome_night.jpg"></center>'
-				end
-			else
-				if hour >= 8 and hour < 18:
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirahome_winter.jpg"></center>'
-				else
-					'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirahome_winter_night.jpg"></center>'
-				end
-			end
-			if npc_QW['A64'] < 10:
-				'Near the house you see <a href="exec: gt ''mirafather'' ">Mira''s father</a> working.'
-			else
-				'Near the house <a href="exec: gt ''mirafather'' ">Afanasiy</a> is working.'
-			end
-			if month >= 5 and month <= 9 and hour >= 18 and hour <= 21 and rand(0,30) >= 28:'You hear a motorcycle in the village. <a href="exec: gt ''miroslavahome'', ''mirabrother''">Miras brother</a> has come in from the city to visit his siblings and father.'
-
-			act 'Ask if Mira is home':
-				menu_off = 1
-				mira_temp = rand(1,20)
-				if sunWeather = 1:
-					if mira_temp > 15 and npc_QW['A60'] > 15 and hour >= 16 and hour <= 23:
-						*clr & cla
-						minut += 2
-						MiraLoc = 8
-						gs 'stat'
-						
-						'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
-						'Mira''s father tells you that she''s not home, she left without telling him where she was going.'
-						
-						if mirapimp = 1:
-							'Mira is not home but you know exactly where to find her. She has been working as your prostitute on the highway'
-						elseif miraprost > 1:
-							'Mira is not home but you know exactly where to find her. You have seen her working as a prostitute on the highway.'
-						elseif miraprost = 1:
-							'Mira is not home but you think you know where to find her. Ever since granting your second wish you have heard rumors that Mira has been earning money as a prostitute on the highway.'
-						else
-							'Mira is not home and you have no idea where she might be. Maybe you should go look around town.'
-						end
-						act 'Leave':gt 'Gadukino'
-						if miraprost > 0: act 'Go to the highway': gt 'gadprostitutes','start'
-					elseif mira_temp > 10 and month >= 4 and month <= 10 and hour <= 18:
-						*clr & cla
-						minut += 2
-						MiraLoc = 1
-						gs 'stat'
-						
-						'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
-						'Mira''s father tells you that she''s not home, she said she was going to the river.'
-
-						act 'Leave':gt 'Gadukino'
-						act 'Go to the river':gt 'gadriver','start'
-					else
-						MiraLoc = 0
-						gt 'Miroslava', 'Start'
-					end
-				else
-					MiraLoc = 0
-					gt 'Miroslava', 'Start'
-				end
-			end
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirahome_night.jpg"></center>'
+		end
+	else
+		if hour >= 8 and hour < 18:
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirahome_winter.jpg"></center>'
+		else
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirahome_winter_night.jpg"></center>'
+		end
+	end
+	
+	if hour >= 8 and hour <= 22:
+		*nl
+		'Near the house you see '+iif(npc_QW['A64'] = 0, 'Mira''s father','Afanasiy')+' working.'
+		
+		act 'Leave': gt 'gadukino'
+		
+		act 'Talk to '+iif(npc_QW['A64'] = 0, 'Mira''s father','Afanasiy'): gt 'Mirafather'
+		
+		! Mira''s brother now visits on Friday nights during the summer - if he ever gets more content then he can stay the whole weekend - he is not even a fully set up NPC at the moment
+		if month >= 5 and month <= 9 and hour >= 18 and hour <= 21 and week = 5 and mirabrotherday ! daystart:
+			*nl
+			'You see a motorcycle parked outside of Mira''s house. Mira''s brother has come in from the city to visit his sister and father.'
+			act 'Talk to Mira''s brother': gt 'MiroslavaHome', 'mirabrother'
 		end
 	else
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirahome.jpg"></center>'
+		*nl
 		if hour > 22 or hour < 3: 'It''s too late, most of Mira''s family is asleep, no need to wake them up unnecessarily.' else 'It''s too early, most of Mira''s family is still asleep, no need to wake them up unnecessarily.'
 		act 'Leave': gt 'gadukino'
 	end
@@ -112,6 +53,7 @@ end
 
 if $ARGS[0] = 'mirabrother':
 	*clr & cla
+	mirabrotherday = daystart
 	minut += 2
 	menu_off = 1
 	gs 'stat'

locations/NatBelHome.qsrc

@@ -291,14 +291,14 @@ elseif lernHome = 0:
 									'Natasha looks at you questioningly, whether will you let him cum inside of her. It doesn''t seems to bother her that Kolka may knock her up.'
 								elseif natpregday > 0 and (daystart-natpregday) >= 84:
 									'Natasha looks at you questioningly, whether will you let him cum inside of her. It doesn''t really matter now, since Kolka has already knocked her up.'
-								elseif natpregday = 0 and pregtalknat = 1 and natbabycount = 0:
+								elseif natpregday = 0 and npc_pregtalk['A16'] = 1 and natbabycount = 0:
 									'Natasha looks at you and almost inaudably whispers "Please let him cum inside me. I want a baby too."'
-								elseif natpregday = 0 and pregtalknat = 1 and natbabycount > 0:
+								elseif natpregday = 0 and npc_pregtalk['A16'] = 1 and natbabycount > 0:
 									'Natasha looks at you and moans "Please let him cum inside me. I need him to give me another baby."'		
 								else
 									'Natasha looks at you questioningly, whether will you let him cum inside of her and risking her getting pregnant with your niece or nephew, or letting her pull away from you brother.'
 								end
-								if natsub >= 20 and pcs_dom > 20 and natcp > 0 and pregtalknat = 0:
+								if natsub >= 20 and pcs_dom > 20 and natcp > 0 and npc_pregtalk['A16'] = 0:
 									act 'Let him cum inside her':
 										cla
 										natcp += 1
@@ -311,7 +311,7 @@ elseif lernHome = 0:
 										gs 'stat'
 										act 'Next':gt $curloc
 									end
-								elseif natsub >= 20 and pcs_dom > 20 and natcp > 0 and pregtalknat = 1:
+								elseif natsub >= 20 and pcs_dom > 20 and natcp > 0 and npc_pregtalk['A16'] = 1:
 									act 'Let him cum inside her':
 										cla
 										natcp += 1
@@ -475,14 +475,14 @@ elseif lernHome = 0:
 	end
 end
 
-if pregTalkNat = 0 and kid = 0:
-	if natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and pregtime >= 150:
+if npc_pregtalk['A16'] = 0 and kid = 0:
+	if natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and pregchem >= 3600:
 		*clr & cla
 		gs 'stat'
 		'"<<$pcs_nickname>>, are you pregnant, too? Well, I guess I don''t have to worry about being the only pregnant girl at school," she giggles.'
 
 		act 'Next':gt 'NatBelhome', 'natknows'
-	elseif natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and knowpreg = 1 and pregtime > 0 and pregtime < 150:
+	elseif natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday) < 200 and knowpreg = 1 and pregchem > 0 and pregchem < 3600:
 		act 'Tell her you''re pregnant':
 			*clr & cla
 			'"If you were worried about being the only pregnant girl at school, that won''t be a problem anymore." You smirk while rubbing your midriff. "It looks like I got myself knocked up as well."'
@@ -490,15 +490,15 @@ if pregTalkNat = 0 and kid = 0:
 			*nl
 			act 'Next':gt 'NatBelhome', 'natknows'
 		end
-	elseif pregtime > 0 and knowpreg = 1 and natsub = 0 and (daystart-natpregday) < 84:
+	elseif pregchem > 0 and knowpreg = 1 and natsub = 0 and (daystart-natpregday) < 84:
 		act 'Tell her you''re pregnant':
 			cla
 			*nl
 			'"<<$pcs_nickname>>, you''re," she pauses momentarily before continuing in a tone of shock mixed with disgust, "pregnant? Have you been sleeping around? This will definitely impact your studies."'
 			act 'Continue' :gt 'NatBelhome'
-			pregTalkNat = 1
+			npc_pregtalk['A16'] = 1
 		end
-	elseif pregtime > 0 and knowpreg = 1 and natsub > 0 and (daystart-natpregday) < 84:
+	elseif pregchem > 0 and knowpreg = 1 and natsub > 0 and (daystart-natpregday) < 84:
 		act 'Tell her you''re pregnant':
 			cla
 			*nl
@@ -508,26 +508,26 @@ if pregTalkNat = 0 and kid = 0:
 				'"Honestly, I don''t even know."'
 				'"Really? That''s crazy." Natasha whispers, rubbing her midriff longingly.'
 				act 'Continue' :gt 'NatBelhome'
-				pregTalkNat = 1
+				npc_pregtalk['A16'] = 1
 			else
 				'You tell her that <<$wombthfath>> is the father and then give her brief details as to how you got pregnant, without getting too explicit.'
 				*nl
 				'"Really? That''s crazy." Natasha whispers, rubbing her midriff longingly.'
 				act 'Continue' :gt 'NatBelhome'
-				pregTalkNat = 1
+				npc_pregtalk['A16'] = 1
 			end
 		end
 	end
 end
 
-if pregTalkNat = 0 and kid > 0:
-	if (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and pregtime >= 150:
+if npc_pregtalk['A16'] = 0 and kid > 0:
+	if (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and pregchem >= 3600:
 		*clr & cla
 		gs 'stat'
 		'"Wow, <<$pcs_nickname>>, you''re pregnant again? You''re really committed to making sure I''m not the only young mother around here, huh?" She playfully smiles and puts a hand on your shoulder. "It''s good to know you''re looking out for me."'
 
 		act 'Next':gt 'NatBelhome', 'natknows1'
-	elseif (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and knowpreg = 1 and pregtime > 0 and pregtime < 150:
+	elseif (natpregday > 0 and (daystart-natpregday) > 84 and (daystart-natpregday)< 200) or (natbabycount > 0) and knowpreg = 1 and pregchem > 0 and pregchem < 3600:
 		act 'Tell her you''re pregnant':
 			*clr & cla
 			'"Hey, guess who''s pregnant again. You know, I''m glad I forced you to let Kolka impregnate you so that I could have someone I can relate to."'
@@ -535,28 +535,28 @@ if pregTalkNat = 0 and kid > 0:
 			*nl
 			act 'Next':gt 'NatBelhome', 'natknows1'
 		end
-	elseif pregtime > 0 and natsub = 0 and knowpreg = 1:
+	elseif pregchem > 0 and natsub = 0 and knowpreg = 1:
 		act 'Tell her you''re pregnant':
 			*clr & cla
 			*nl
 			'"Really? You''re pregnant again? You should really try to be more careful."'
 			act 'Continue' :gt 'NatBelhome'
-			pregTalkNat = 1
+			npc_pregtalk['A16'] = 1
 		end
-	elseif pregtime > 0 and natsub > 0 and (daystart-natpregday) < 84 and knowpreg = 1:
+	elseif pregchem > 0 and natsub > 0 and (daystart-natpregday) < 84 and knowpreg = 1:
 		act 'Tell her you''re pregnant':
 			*clr & cla
 			*nl
 			'"You got pregnant again. It must be wonderful…" She trails off, clearly envious.'
 			act 'Continue' :gt 'NatBelhome'
-			pregTalkNat = 1
+			npc_pregtalk['A16'] = 1
 		end
 	end
 end
 
 if $ARGS[0] = 'natknows':
 	cla
-	pregTalkNat = 1
+	npc_pregtalk['A16'] = 1
 	if pav_slut < 125: '"So, who''s the father?"'
 	if pav_slut >= 125: '"So, do you know who the father is?"'
 	*nl
@@ -578,7 +578,7 @@ end
 !When pregnancy fetish is added, another reaction will be added here
 if $ARGS[0] = 'natknows1':
 	cla
-	pregTalkNat = 1
+	npc_pregtalk['A16'] = 1
 	if pav_slut < 125: '"Is it the same father as last time?"'
 	if pav_slut >= 125: '"Do you know if it''s the same father as last time?"'
 	*nl

locations/NewCloShop.qsrc

@@ -222,7 +222,7 @@ if $ARGS[0] = 'dressingpanties':
 	act 'Return':
 		cla
 		minut += 1
-		gt 'NewCloShop', 'start'
+		gt 'NewCloShop', 'changingroom'
 	end
 
 	i = 1

locations/NikoDates.qsrc

@@ -1748,7 +1748,7 @@ if $ARGS[0] = 'Walk Of Shame':
 						cls
 						gs'stat'
 						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/school/restroom/6.jpg"></center>'
-						'Even though the pain is quite severe, you do as he says, not wanting to disappoint him. Feeling his dry dick roughly scraping against your inner ass you close your eyes and try to think of anything other than the pain. <font color=#FF00FF>Please cum soon. Please. I can''t tae much more of this. Please just cum. PLEEEEAASE!</font> to your relief you hear Radomir groan then feel his warm seed filling your ass. The focus on the warm as he continues pumping you with his cum. After Radomir is spent, he pushes you off of him then says, "You were great <<$pcs_firstname>>. We should do this again sometime." You reply, "Does that mean that we can out together, maybe?" Radomir laughs as he replies, "I didn''t say that. I''m not a one girl kind of guy, but you have my permission to keep dreaming about me." Radomir continues laughing as he gets dressed then leave you alone in the restroom. <font color=#FF00FF>So...He didn''t care for me. Does no one care for me? I need someone. Why won''t anyone care for me anymore?</font> you suddenly hear, "Ah there you are. I''ve been looking all over for you."'
+						'Even though the pain is quite severe, you do as he says, not wanting to disappoint him. Feeling his dry dick roughly scraping against your inner ass you close your eyes and try to think of anything other than the pain. <font color=#FF00FF>Please cum soon. Please. I can''t taKe much more of this. Please just cum. PLEEEEAASE!</font> to your relief you hear Radomir groan then feel his warm seed filling your ass. The focus on the warm as he continues pumping you with his cum. After Radomir is spent, he pushes you off of him then says, "You were great <<$pcs_firstname>>. We should do this again sometime." You reply, "Does that mean that we can out together, maybe?" Radomir laughs as he replies, "I didn''t say that. I''m not a one girl kind of guy, but you have my permission to keep dreaming about me." Radomir continues laughing as he gets dressed then leave you alone in the restroom. <font color=#FF00FF>So...He didn''t care for me. Does no one care for me? I need someone. Why won''t anyone care for me anymore?</font> you suddenly hear, "Ah there you are. I''ve been looking all over for you."'
 						gs 'cum_call', 'anus', $boy
 						gs 'arousal', 'anal', 5, 'sub'
 						gs 'arousal', 'end'

locations/NikoEv2.qsrc

@@ -554,7 +554,7 @@ if $ARGS[0] =  'Diner 1':
 					minut += 5
 					gs'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev2/diner/npc/1.jpg"></center>'
-					'You see the biker shake hands with Niko then give him the money. Niko counts the money then gives the biker an approving nod before the biker takes his seat again. Niko turns to you, and says, "Good job <<$pcs_nickname>>. We are making some good progre..." A nearby trucker begins examining your face before shouting out, "Is that what I think it is? Hey guys look at this girl. She is walking around with cum leaking off of my face!" You freeze in place. <font color=#FF00FF>Oh shit! I forgot to wash up. How did I forget that? I''m walking around with cum leaking off my chin. How could I forget?</font> the truckers, and bikers in the room surround you then begin talking to each other.'
+					'You see the biker shake hands with Niko then give him the money. Niko counts the money then gives the biker an approving nod before the biker takes his seat again. Niko turns to you, and says, "Good job <<$pcs_nickname>>. We are making some good progre..." A nearby trucker begins examining your face before shouting out, "Is that what I think it is? Hey guys look at this girl. She is walking around with cum plastering her face!" You freeze in place. <font color=#FF00FF>Oh shit! I forgot to wash up. How did I forget that? I''m walking around with cum leaking off my chin. How could I forget?</font> the truckers, and bikers in the room surround you then begin talking to each other.'
 					*nl
 					'<center><img <<$set_imgh>> src="images/pc/body/cum/cumface/blonde/15.jpg"></center>'
 

locations/ParChurch.qsrc

@@ -66,8 +66,7 @@ if $ARGS[0] = 'vigil':
 		pcs_horny -= temprand
 	end
 	moral += 1
-	hour = 22
-	gs 'stat'
+	minut += 30
 	PLAY 'sound/church/Blessing.mp3',30
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(1,5) +'.jpg"></center>'
 	'You attend the vigil and reflect on the recent events in your life. The harmonies as the hymns and psalms are sung sweep aside some of the worries in your heart, although you know they will return once you leave this holy place, you still enjoy the rest. The sweet scent of incense tickles your nose and reminds you of the scent of' + iif(rex_love = 1, 'Rex', 'your step-father') + '''s cologne.'  
@@ -78,6 +77,7 @@ if $ARGS[0] = 'vigil':
 	elseif pav_slut >= 25:
 		'You notice some of the old women looking at you with disapproval and one or two of the old men looking at you with interest.'
 	end
+	gs 'stat'
 
 	act 'Return to Narthex': gt 'ParChurch', 'Narthex'
 	act 'Stay for the Rite of Mutual Forgiveness':
@@ -85,25 +85,27 @@ if $ARGS[0] = 'vigil':
 		pcs_mood += 10
 		pcs_horny -= 20
 		moral += 1
+		minut += 10
 		gs 'stat'
 		temprand = rand(1,100)
 		if temprand <= 80:
 			if pav_sex > 10: 
-				pav_sex -= 10
+				pav_sex -= 2
 			else
 				pav_sex = 0
 			end
 			if pav_prostitute > 10:
-				pav_prostitute -= 10
+				pav_prostitute -= 2
 			else
 				pav_prostitute = 0
 			end
 		end
-		hour = 23
+		
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(9,10) +'.jpg"></center>'
 		'You decide to stay for the rite of mutual forgiveness and feel much better afterwards.'
 		act 'Return to Narthex': gt 'ParChurch', 'Narthex'
 	end
+
 end
 
 if $ARGS[0] = 'liturgy':
@@ -111,8 +113,7 @@ if $ARGS[0] = 'liturgy':
 	CLOSE ALL
 	churchday = daystart
 	menu_off = 1
-	gs 'stat'
-	hour = 12
+	minut += 60
 	PLAY 'sound/church/t' + rand(1,19) + '.mp3',30
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/church'+ rand(1,8) +'.jpg"></center>'
 	if pav_slut < 50 and Conf_Kirill <= 1: 
@@ -129,12 +130,12 @@ if $ARGS[0] = 'liturgy':
 	elseif pav_slut >= 50:
 		if rand(1,100) > 20:
 			if pav_sex > 25:
-				pav_sex -= 25
+				pav_sex -= 5
 			else
 				pav_sex = 0
 			end
-			if pav_prostitute > 10:
-				pav_prostitute -= 10
+			if pav_prostitute > 25:
+				pav_prostitute -= 5
 			else
 				pav_prostitute = 0
 			end
@@ -147,7 +148,8 @@ if $ARGS[0] = 'liturgy':
 		'The people in the congregation seem a bit uncomfortable while hearing these words. Some look towards you and seem to have trouble looking you in the eyes. Those that do meet your eyes look away guiltily. You feel better and it seems the townsfolk might see you in a slightly better light.'	
 	end
     vokal_exp += rand(0,3) 
-    
+    gs 'stat'
+	
 	act 'Return to Narthex': gt 'ParChurch', 'Narthex'
 end
 	
@@ -164,9 +166,7 @@ if $ARGS[0] = 'Narthex':
 	'To your left as you enter, there is a counter where a deacon sells candles, icons, and prayer books. He smiles and nods at you absently. acknowledging your presence without really seeing you.'
 	
 	act 'Leave the Church': gt 'ParChurch' , 'start'
-	if ((week <= 5 and hour >= 7 and hour < 9) or (hour >= 16 and hour < 18)) and confessday ! daystart:
-		act 'Go to confession': confessday = daystart & gt 'Parchurch2', 'confession'
-	end
+	if ((week <= 5 and hour >= 7 and hour < 9) or (hour >= 16 and hour < 18)) and confessday ! daystart: act 'Go to confession': confessday = daystart & gt 'Parchurch2', 'confession'
 	act 'Light a candle': gt 'ParChurch' , 'candle'
 	act 'Pray': gt 'ParChurch' , 'pray'
 	
@@ -174,7 +174,7 @@ end
 
 if $ARGS[0] = 'candle':
 	*clr & cla
-	minut += 30
+	minut += 10
 	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_candle.jpg"></center>'
@@ -209,11 +209,9 @@ end
 if $ARGS[0] = 'pray':
 	*clr & cla
 	menu_off = 1
-	randtime = rand(15,60)
-	minut += randtime
-	if pav_sex > 1: pav_sex -= 1
-	if pav_prostitute > 1: pav_prostitute -= rand(0,1)
-	gs 'stat'
+	minut += 10
+	if pav_sex > 10: pav_sex -= 1
+	if pav_prostitute > 10: pav_prostitute -= rand(0,1)
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_praying.jpg"></center>'
 	if hour >6 and hour < 20 and moral < 30:
 		pcs_horny -= 10
@@ -264,6 +262,7 @@ if $ARGS[0] = 'pray':
 		'The Nave is lit only with candles and small presence lights and the darkness feels very comforting, like being in the womb. You get the urge to pray very intensely. Before you know it, more than an hour went by and you feel a bit reborn and cleansed.'
 		'"That felt refreshing," you mumble to yourself.'	
 	end
+	gs 'stat'	
 
 	act 'Return to Narthex': gt 'ParChurch', 'Narthex'
 end
@@ -276,7 +275,6 @@ if $ARGS[0] = 'amends':
 	'As you approach the priest, you recall your previous behaviour and that the priest said that he wanted to discuss it with you further.'
 	act 'Approach him':
 		*clr & cla
-		cla
 		gs 'stat'
 		moral += 1
 		Kirill += 1
@@ -295,10 +293,10 @@ if $ARGS[0] = 'amends':
 			'Taking out a broom, the priest smiles at you, "The Narthex and the Sanctuary could use a good sweeping and mopping." he says.'
 			act 'Take the broom':
 				*clr & cla
-				gs 'stat'
 				minut += 60
 				Churchbad = 0
 				moral += 1
+				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/churchclean.jpg"></center>'
 				'You take the broom and began your task, thankful that the church isn''t a very large one. You diligently sweep the floor, making sure to get into all the corners. Once the sweeping is done, you mop the floor then put everything away. You feel a sense of wellbeing at a job well done.'
 				'As you close the closet door, you turn around to find the priest looking at you with a pleased expression.'
@@ -307,11 +305,11 @@ if $ARGS[0] = 'amends':
 			end
 			act 'Tell him what he can do with the broom':
 				*clr & cla
-				gs 'stat'
 				minut += 5
 				Churchbad = 2
 				Kirill -= 5 
 				moral -= 2
+				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/pc/bukli_angry.jpg"></center>'
 				'"As if." you state flatly, looking at the priest coldly, "You''re the one that took an oath to work for God, not me. I''m out of here."'
 				'The priest looks as if he was going to say something then changed his mind. He shakes his head sadly as you walk away.'
@@ -353,8 +351,8 @@ if $ARGS[0] = 'amends':
 						Churchbadtime = daystart + badrand
 						'You look the priest right in the eyes then when his attention is on you, you slowly lean forward, allowing your breasts to be exposed. To your delight, you see his eyes dart to your tits then snap back up to your face. His face flushes red.'
 						if Kirill <= 0: 
-						'"You whore!" The priest roars in fury, "I''ll teach you what happens to those who desecrate the House of God!"'
-						'Stunned by his unexpected fury, you were unable to react before the furious priest grabs you by the arm and drags you to his office.'
+							'"You whore!" The priest roars in fury, "I''ll teach you what happens to those who desecrate the House of God!"'
+							'Stunned by his unexpected fury, you were unable to react before the furious priest grabs you by the arm and drags you to his office.'
 							act 'Continue': gt 'ParChurch', 'spank'
 						elseif Kirill > 0 and Kirill <= 20:
 							'"<<$pcs_nickname>> <<$lastname>>!" the priest hisses, his face twisted in rage, "How dare you behave like this in the House of God! Get out now!"'
@@ -372,12 +370,13 @@ if $ARGS[0] = 'amends':
 				moral += rand(0,3)
 				Churchbad = 1
 				Kirill += rand(0,2)
-				minut += rand(30,60)
+				minut += 45
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/ch_talk.jpg"></center>'
 				'You sit and talk with the priest about morality and how Russian society has changed since the fall of the Soviet Union. You get the impression that although the priest was happy to see the church gain wider acceptance and freedom from the government, he doesn''t seem to approve of how today''s youth behave.'
 				'You see an old woman you know vaguely from the apartment block next to yours. She seems anxious to talk to the priest.'
 				if Kirill > 60:
 					'"It looks like Mrs. Seldipi needs to regal me with the latest of her neighbours'' multitude of sins." the priest confides with a wry smile, "We can continue our discussion another day."'
+					act 'Leave the church': gt 'ParChurch' , 'start'
 				else
 					'"I am sorry, <<$pcs_nickname>>. It seems that I am needed by Mrs. Seldipi." he says with obvious regret, "I''ve enjoyed our chat. Please think on what we''ve discussed and we will talk another time."'
 					act 'Leave the church': gt 'ParChurch' , 'start'
@@ -387,8 +386,8 @@ if $ARGS[0] = 'amends':
 	end
 	act 'Chicken out': 
 		'You could not bring yourself to talk to the priest yet. You were torn between stalling or simply leaving.'
-		act 'Stay in the Narthex': gt 'ParChurch', 'Narthex'
 		act 'Leave the church': gt 'ParChurch' , 'start'
+		act 'Stay in the Narthex': gt 'ParChurch', 'Narthex'
 	end
 end
 
@@ -505,7 +504,7 @@ if $ARGS[0] = 'Questions':
 	gs 'stat'
 	if Kirillsex = 0:
 		pcs_horny += 2
-		'"father, are you alright?" you ask concerned, "You sound out of breath."'
+		'"Father, are you alright?" you ask concerned, "You sound out of breath."'
 		'"Hmm, what?" Father Kirill stammers and you hear him moving around in the dark confessional, "No, I''m fine. I guess it must the dust and damp down here. I appreciate your conern though."'
 		'"Okay, then," you reply with a little smile as you imagine him covering himself up.'
 	else

locations/ParChurch2.qsrc

@@ -2,6 +2,7 @@
 if $ARGS[0] = 'confession':
 	*clr & cla
 	menu_off = 1
+	minut += 5
 	gs 'stat'
 	if confK ! 0: lastconf = daystart - confess
 	confess = daystart
@@ -30,9 +31,9 @@ if $ARGS[0] = 'confession':
 	'"Hello, my child. What''s troubling you?" he asks gently.'
 	'"Father, it has been <<lastconf>> days since I last confessed."'
 	if confK >= 10 and Kirill >= 60: gt 'ParChurch2', 'secrets'
-	minut += rand(20,45)
 	act 'Be honest':
 		*clr & cla
+		minut += 5
 		gs 'stat'
 		if con_box = 0: $confstring = 'kneel together next to the analogion holding a richly decorated Gospel Book with a blessing cross upon its cover' & '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 		if con_box = 1:	$confstring = 'go to the confessional in the basement and sit down inside' & '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confession.jpg"></center>'
@@ -69,6 +70,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -105,6 +108,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -141,6 +146,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -176,6 +183,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -211,6 +220,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -246,6 +257,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -281,6 +294,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				KnoKirillName = 1
+				minut += 5
+				gs 'stat'
 				'You once more feel the need to speak to the priest about some of the things that happened recently in your life.'
 				'"I sometimes think that my <<$npc_nickname[''A29'']>> doesn''t trust me. I''m still a virgin, but she won''t take my word for it. Every month she nags my head off about going to the gynecologist to prove I''m still a virgin. She claims that my school needs to know, but I know that is a lie. It’s starting to irritate me."'
 				'The priest sighed, "I''m sure she''s just doing what she thinks is best for you."'
@@ -306,6 +321,8 @@ if $ARGS[0] = 'confession':
 				moral += 1
 				Kirill += 1
 				KnoKirillName = 1
+				minut += 5
+				gs 'stat'
 				'You once more feel the need to speak to the priest about some of the things that happened recently in your life.'
 				'"Every month my mother nags my head off about going to the gynecologist to prove I''m still a virgin. She claims that my school needs to know, but I know that is a lie. It’s starting to irritate me."'
 				'The priest sighed, "I''m sure she''s just doing what she thinks is best for you."'
@@ -337,8 +354,8 @@ end
 
 if $ARGS[0] = 'first_conf':
 	*clr & cla
+	minut += 5
 	gs 'stat'
-	minut += rand(20,30)
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 	'You wait for the priest to finish listening to an old woman than approach him.'
 	'You bow down, touching the floor with your right hand then place your right hand over the left with your palms upward and say, "Bless, Father"'
@@ -349,6 +366,7 @@ if $ARGS[0] = 'first_conf':
 	'You indicated your understanding and the priests asked you if you are ready to begin.'
 	act 'Be honest':
 		*clr & cla
+		minut += 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 
@@ -446,6 +464,7 @@ if $ARGS[0] = 'first_conf':
 	end
 	act 'Don''t confess':
 		*clr & cla
+		minut += 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 		confK += 1
@@ -462,6 +481,7 @@ if $ARGS[0] = 'first_conf':
 	end
 	act 'Waste his time':
 		*clr & cla
+		minut += 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 		confK += 1
@@ -512,8 +532,8 @@ end
 
 if $ARGS[0] = 'secrets':
 	*clr & cla
+	minut += 5
 	gs 'stat'
-	minut += rand(20,60)
 	if Kirill_Crpt >= 20 and con_box = 0: gt 'ParChurch', 'confessional'
 	if con_box = 0:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
@@ -523,6 +543,8 @@ if $ARGS[0] = 'secrets':
 		'As you enter the confessional and wait for Father Kirill to prepare himself, you think about what you want to say to him.'
 	end
 	act 'Hold back':
+		minut += 5
+		gs 'stat'
 		if pcs_vag = 0:
 			'You decide to talk to Father Kirill about some of the things going on in your life, but you don''t feel comfortable being too detailed. You touch briefly on some of the feelings you''ve had recently, but avoid going into any details. Father Kirill listens intently and asks a few questions, trying to get you to open up a little more but he doesn''t put any real pressure on you. In the end, Father Kirill absolves you of your sins and encourages you to put your trust in God and him. As you left, you felt unsatisfied.'
 			act 'Return to Narthex': gt 'ParChurch', 'Narthex'
@@ -534,6 +556,7 @@ if $ARGS[0] = 'secrets':
 	end
 	act 'Confess your less dramatic sins':
 		*clr & cla
+		minut += 5
 		gs 'stat'
 		if con_box = 0: $confstring = 'kneel together next to the analogion holding a richly decorated Gospel Book with a blessing cross upon its cover' & '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 		if con_box = 1:	$confstring = 'go to the confessional in the basement and sit down inside' & '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confession.jpg"></center>'
@@ -568,6 +591,8 @@ if $ARGS[0] = 'secrets':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -603,6 +628,8 @@ if $ARGS[0] = 'secrets':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -638,6 +665,8 @@ if $ARGS[0] = 'secrets':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -673,6 +702,8 @@ if $ARGS[0] = 'secrets':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -708,6 +739,8 @@ if $ARGS[0] = 'secrets':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -743,6 +776,8 @@ if $ARGS[0] = 'secrets':
 				moral += 1
 				Kirill += 1
 				Kirill_Crpt += 1
+				minut += 5
+				gs 'stat'
 				if confK < 5:
 					'"Father, I don''t really have anything important to confess, but I felt I should speak to you."'
 					'"Maybe it was our Holy Father who guided you to me, to keep your soul clean, my child." responded the priest.'
@@ -776,6 +811,8 @@ if $ARGS[0] = 'secrets':
 	if lesbian ! 0 or sisterLesb ! 0 or seepornofut ! 0:
 		act 'Confess a secret':
 			*clr & cla
+			minut += 5
+			gs 'stat'
 			if con_box = 0: $confstring = 'kneel together next to the analogion holding a richly decorated Gospel Book with a blessing cross upon its cover' & '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 			if con_box = 1:	$confstring = 'go to the confessional in the basement and sit down inside' & '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confession.jpg"></center>'
 
@@ -784,7 +821,7 @@ if $ARGS[0] = 'secrets':
 			'"Go on, my dear." Father Kirill says gently, "Remember, our Lord already knows what you have done. All you need do is acknowledge the sin by speaking it."'
 			'Steeling your nerve, you decided to tell him about...'
 			if lesbian ! 0 or sisterLesb ! 0:
-				act 'wanting to have sex with a girl':
+				act 'Wanting to have sex with a girl':
 					cla
 					minut += 5
 					gs 'stat'
@@ -803,6 +840,8 @@ if $ARGS[0] = 'secrets':
 						'"Really?" Father Kirill answered eagerly, "And have you acted on these feelings?"'
 					end
 					act 'Tell him what you have done, but only in general terms':
+						minut += 5
+						gs 'stat'
 						'"Is it really bad that I''ve done stuff with another girl?" you ask hesitantly.'
 						if Kirill_Crpt < 20:
 							'"Well, technically, it is considered a sin by most priests," Father Kirill replied thoughtfully, "However, there are some who believe that having sex with someone of the same gender is only a sin for men. There are a number of hints in the Bible that seem to indicate that women were permitted to please one another so long as the marriage bed was respected. Of course it also depends on what you have done."'
@@ -819,6 +858,8 @@ if $ARGS[0] = 'secrets':
 					if sisterLesb = 0:
 						act 'Tell him what you have done in detail':
 							Kirill_Crpt += 3
+							minut += 5
+							gs 'stat'
 							'You describe in detail what you have done with other girls and, although you didn''t intend to name names, you accidentally mention who you were with. As you recount your lesbian activities, you become aware of a soft rustling noise from Fater Kirill''s direction. You also become away of a very slight rythmic rocking sensation. As you describe what it was like to taste another girl''s pussy, Father Kirill''s responses become more abrupt and grunt-like. As you finish, you ask Father Kirill if he is alright, his answer is a drawn out sibilant "Yessss".'
 							'When you are done, you step outside the confessional. It takes Father Kirill a bit longer than normal to join you and when he does, you notice that his face seems flushed and a little sweaty. You both kneel and you recite the prayer of absolution together.'
 							act 'Return to Narthex': gt 'ParChurch', 'Narthex'
@@ -826,6 +867,8 @@ if $ARGS[0] = 'secrets':
 					else
 						act 'Tell him what you have done in detail':
 							Kirill_Crpt += 5
+							minut += 5
+							gs 'stat'
 							'You describe in detail what you have done with other girls and, although you didn''t intend to name names, you accidentally mention you activities with your sister.'
 							'"Did you say that you''ve been intimate with your sister?" Father Kirill interjects, "I believe we need to delve a bit more into these activities."'
 							'As you recount your lesbian activities with Anya, starting with how you couldn''t stop looking at her ass, you become aware of a soft rustling noise from Fater Kirill''s direction. You also become away of a very slight rythmic rocking sensation. As you describe what it was like to taste Anya''s pussy, Father Kirill''s responses become more abrupt and grunt-like. As you finish describing Anya fucking your ass with her strapon, you ask Father Kirill if he is alright, his answer is a drawn out sibilant "Yessss".'
@@ -870,8 +913,8 @@ if $ARGS[0] = 'secrets':
 							cla
 							if con_box = 0: '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 							if con_box = 1:	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confession.jpg"></center>'
-							gs 'stat'
 							minut += 5
+							gs 'stat'
 							'"Well, there is a little more." you admit sheepishly, "The boys got a little excited and I couldn''t just leave them like that, so I helped them."'
 							'"And just how did you ''help'' them?" Father Kirill probed, "Remember, it is best to be as thorough as possible when confessing."'
 							'"It wasn''t my idea, but when they asked me to, you know, jerk them, I agreed." you say quickly, before you can change your mind.'
@@ -887,8 +930,8 @@ if $ARGS[0] = 'secrets':
 							*clr & cla
 							if con_box = 0: '<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confessionalt.jpg"></center>'
 							if con_box = 1:	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/church/confession.jpg"></center>'
-							gs 'stat'
 							minut += 5
+							gs 'stat'
 							'Blushing fiercely, you think about the other stuff you''ve done with your brother and his friends.'
 							'"There''s more, Father." you admit softly, "After the first couple of times, the boys decided that my hands weren''t enough and so I started sucking them."'
 							if Kirill_Crpt < 20:
@@ -911,6 +954,8 @@ if $ARGS[0] = 'secrets':
 								if brothersex ! 0:
 									act 'Tell him about your brother':
 										'"He was there." you confess, "He didn''t do anything the first couple of times, I only jerked his friends. Then one time he just went and stuck his cock, I mean, penis into my mouth while I was jerking his friends."'
+										minut += 5
+										gs 'stat'
 										if Kirill_Crpt < 20:
 											Kirill_Crpt += 1
 											'"Hmmm." Father Kirill muses, "This is very disturbing. Incest is a sure path to hell."'

locations/Sgrup.qsrc

@@ -12,21 +12,26 @@ if $loc = 'gschool_grounds' or $loc = 'gschool_lunch':
 	'You stay in the cafeteria where some of the teachers are eating or watching over the kids making sure there is no trouble.'
 end
 *nl
+
+gs 'gschool_lessons', 'npc_data'
+$textgrup = ''
 count1 = 0
-i = 0
+i = 1
 '<center><table cellspacing="3">'
-:markgruploop
-i += 1
-if count1 = 6 : $textgrup += '<tr>'
-
-if grupTipe[i] = 6:count1 += 1 & $textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/characters/pavlovsk/school/head/<<i>>.jpg"><br>' + $npcGo[i]
-if count1< 6 and grupTipe[i] = 6 :
-	$textgrup += '</td>'
-elseif count1 = 6 and grupTipe[i] = 6:
-	$textgrup +='</td></tr><tr>' & count1 = 0
-end
-
-if i < ARRSIZE('school_static_num'):jump 'markgruploop'
+:gruploop	
+	if count1 = 6 : $textgrup += '<tr>'
+
+	if grupTipe[i] = 6 and schoolenable[i] = 1:
+		count1 += 1
+		$textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/pc/npc_headshots/<<i>>.jpg"><br>' + $npcGo[i]
+	end
+	if count1< 6 and grupTipe[i] = 6:
+		$textgrup += '</td>'
+	elseif count1 = 6 and grupTipe[i] = 6:
+		$textgrup +='</td></tr><tr>' & count1 = 0
+	end
+	i += 1
+if i <= maxnpcs:jump 'gruploop'
 
 '<<$textgrup>>'
 

locations/Sgrup1.qsrc

@@ -12,21 +12,26 @@ if $loc = 'gschool_grounds' or $loc = 'gschool_lunch':
 	'You decide to spend your break in a classroom. As you enter, you find several of your classmates already sitting there: the smart kids decided to get an early start on their homework assignments, while the outcasts are mostly hiding away from everyone else, hoping that no one will pick on them today.'
 end
 *nl
+
+gs 'gschool_lessons', 'npc_data'
+$textgrup = ''
 count1 = 0
-i = 0
+i = 1
 '<center><table cellspacing="3">'
-:markgruploop
-i += 1
-if count1 = 6 : $textgrup += '<tr>'
-
-if grupTipe[i] = 3:count1 += 1 & $textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/characters/pavlovsk/school/head/<<i>>.jpg"><br>' + $npcGo[i]
-if count1< 6 and grupTipe[i] = 3 :
-	$textgrup += '</td>'
-elseif count1 = 6 and grupTipe[i] = 3:
-	$textgrup +='</td></tr><tr>' & count1 = 0
-end
-
-if i < ARRSIZE('school_static_num'):jump 'markgruploop'
+:gruploop	
+	if count1 = 6 : $textgrup += '<tr>'
+
+	if grupTipe[i] = 3 and schoolenable[i] = 1:
+		count1 += 1
+		$textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/pc/npc_headshots/<<i>>.jpg"><br>' + $npcGo[i]
+	end
+	if count1< 6 and grupTipe[i] = 3:
+		$textgrup += '</td>'
+	elseif count1 = 6 and grupTipe[i] = 3:
+		$textgrup +='</td></tr><tr>' & count1 = 0
+	end
+	i += 1
+if i <= maxnpcs:jump 'gruploop'
 
 '<<$textgrup>>'
 

locations/Sgrup2.qsrc

@@ -12,21 +12,26 @@ if $loc = 'gschool_grounds' or $loc = 'gschool_lunch':
 	'When the break finally comes, the girls wander through the hallways of the school, gossiping about pretty much everyone they know. The guys are standing around in small groups, some of them sneaking off to have a smoke behind the school building. The cool kids are hanging out in one area, and on the other side of the hallway the sporty kids are talking about their upcoming competitions.'
 end
 *nl
+
+gs 'gschool_lessons', 'npc_data'
+$textgrup = ''
 count1 = 0
-i = 0
+i = 1
 '<center><table cellspacing="3">'
-:markgruploop
-i += 1
-if count1 = 6 : $textgrup += '<tr>'
-
-if grupTipe[i] = 2:count1 += 1 & $textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/characters/pavlovsk/school/head/<<i>>.jpg"><br>' + $npcGo[i]
-if count1< 6 and grupTipe[i] = 2 :
-	$textgrup += '</td>'
-elseif count1 = 6 and grupTipe[i] = 2:
-	$textgrup +='</td></tr><tr>' & count1 = 0
-end
-
-if i < ARRSIZE('school_static_num'):jump 'markgruploop'
+:gruploop	
+	if count1 = 6 : $textgrup += '<tr>'
+
+	if grupTipe[i] = 2 and schoolenable[i] = 1:
+		count1 += 1
+		$textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/pc/npc_headshots/<<i>>.jpg"><br>' + $npcGo[i]
+	end
+	if count1< 6 and grupTipe[i] = 2:
+		$textgrup += '</td>'
+	elseif count1 = 6 and grupTipe[i] = 2:
+		$textgrup +='</td></tr><tr>' & count1 = 0
+	end
+	i += 1
+if i <= maxnpcs:jump 'gruploop'
 
 '<<$textgrup>>'
 

locations/Sgrup3.qsrc

@@ -12,21 +12,26 @@ if $loc = 'gschool_grounds' or $loc = 'gschool_lunch':
 	'When the break finally comes, the girls wander through the hallways of the school, gossiping about pretty much everyone they know. The guys are standing around in small groups, some of them sneaking off to have a smoke behind the school building. The cool kids are hanging out in one area, and on the other side of the hallway the sporty kids are talking about their upcoming competitions.'
 end
 *nl
+
+gs 'gschool_lessons', 'npc_data'
+$textgrup = ''
 count1 = 0
-i = 0
+i = 1
 '<center><table cellspacing="3">'
-:markgruploop
-i += 1
-if count1 = 6 : $textgrup += '<tr>'
-
-if grupTipe[i] = 1:count1 += 1 & $textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/characters/pavlovsk/school/head/<<i>>.jpg"><br>' + $npcGo[i]
-if count1< 6 and grupTipe[i] = 1 :
-	$textgrup += '</td>'
-elseif count1 = 6 and grupTipe[i] = 1:
-	$textgrup +='</td></tr><tr>' & count1 = 0
-end
-
-if i < ARRSIZE('school_static_num'):jump 'markgruploop'
+:gruploop	
+	if count1 = 6 : $textgrup += '<tr>'
+
+	if grupTipe[i] = 1 and schoolenable[i] = 1:
+		count1 += 1
+		$textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/pc/npc_headshots/<<i>>.jpg"><br>' + $npcGo[i]
+	end
+	if count1< 6 and grupTipe[i] = 1:
+		$textgrup += '</td>'
+	elseif count1 = 6 and grupTipe[i] = 1:
+		$textgrup +='</td></tr><tr>' & count1 = 0
+	end
+	i += 1
+if i <= maxnpcs:jump 'gruploop'
 
 '<<$textgrup>>'
 

locations/Sgrup4.qsrc

@@ -12,21 +12,26 @@ if $loc = 'gschool_grounds' or $loc = 'gschool_lunch':
 	'You need to use the restroom and as you enter you notice a lot of beautiful girls from your school there. They check their make-up, doing minor touch-ups while they gossip about their classmates who happen to not be there. Some people are standing by the windows, smoking. The Gopniks from your class are standing near the toilets.'
 end
 *nl
+
+gs 'gschool_lessons', 'npc_data'
+$textgrup = ''
 count1 = 0
-i = 0
+i = 1
 '<center><table cellspacing="3">'
-:markgruploop
-i += 1
-if count1 = 6 : $textgrup += '<tr>'
-
-if grupTipe[i] = 4:count1 += 1 & $textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/characters/pavlovsk/school/head/<<i>>.jpg"><br>' + $npcGo[i]
-if count1< 6 and grupTipe[i] = 4 :
-	$textgrup += '</td>'
-elseif count1 = 6 and grupTipe[i] = 4:
-	$textgrup +='</td></tr><tr>' & count1 = 0
-end
-
-if i < ARRSIZE('school_static_num'):jump 'markgruploop'
+:gruploop	
+	if count1 = 6 : $textgrup += '<tr>'
+
+	if grupTipe[i] = 4 and schoolenable[i] = 1:
+		count1 += 1
+		$textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/pc/npc_headshots/<<i>>.jpg"><br>' + $npcGo[i]
+	end
+	if count1< 6 and grupTipe[i] = 4:
+		$textgrup += '</td>'
+	elseif count1 = 6 and grupTipe[i] = 4:
+		$textgrup +='</td></tr><tr>' & count1 = 0
+	end
+	i += 1
+if i <= maxnpcs:jump 'gruploop'
 
 '<<$textgrup>>'
 

locations/Sgrup5.qsrc

@@ -12,21 +12,26 @@ if $loc = 'gschool_grounds' or $loc = 'gschool_lunch':
 	'You decide to spend your break in a classroom. As you enter, you find several of your classmates already sitting there: the smart kids decided to get an early start on their homework assignments, while the outcasts are mostly hiding away from everyone else, hoping that no one will pick on them today.'
 end
 *nl
+
+gs 'gschool_lessons', 'npc_data'
+$textgrup = ''
 count1 = 0
-i = 0
+i = 1
 '<center><table cellspacing="3">'
-:markgruploop
-i += 1
-
-if count1 = 6 : $textgrup += '<tr>'
-if grupTipe[i] = 5:count1 += 1 & $textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/characters/pavlovsk/school/head/<<i>>.jpg"><br>' + $npcGo[i]
-if count1 < 6 and grupTipe[i] = 5 :
-	$textgrup += '</td>'
-elseif count1 = 6 and grupTipe[i] = 5:
-	$textgrup +='</td></tr><tr>' & count1 = 0
-end
-
-if i < ARRSIZE('school_static_num'):jump 'markgruploop'
+:gruploop	
+	if count1 = 6 : $textgrup += '<tr>'
+
+	if grupTipe[i] = 5 and schoolenable[i] = 1:
+		count1 += 1
+		$textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/pc/npc_headshots/<<i>>.jpg"><br>' + $npcGo[i]
+	end
+	if count1< 6 and grupTipe[i] = 5:
+		$textgrup += '</td>'
+	elseif count1 = 6 and grupTipe[i] = 5:
+		$textgrup +='</td></tr><tr>' & count1 = 0
+	end
+	i += 1
+if i <= maxnpcs:jump 'gruploop'
 
 '<<$textgrup>>'
 

locations/SgrupDisco.qsrc

@@ -3,43 +3,55 @@
 *clr & cla
 gs 'themes', 'food_menu'
 gs 'stat'
-$textgrup = ''
-$textgrup2 = ''
 
 act 'Move away':gt $loc, $metka
 
 '<center><b><font color="maroon">Disco</font></b></center>'
-!'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/club_yaho.jpg"></center>'
-*nl
+
+gs 'gschool_lessons', 'npc_data'
+
+!! First string for popular kids
+$textgrup = ''
 count1 = 0
-count2 = 0
-i = 0
+i = 1
 '<center><table cellspacing="3">'
-:markgruploop
-i += 1
-if count1 = 6 : $textgrup += '<tr>'
+:gruploop	
+	if count1 = 6 : $textgrup += '<tr>'
 
-if grupTipe[i] = 1:count1 += 1 & $textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/characters/pavlovsk/school/head/<<i>>.jpg"><br>' + $npcGo[i]
-if count1 < 6 and grupTipe[i] = 1 :
-	$textgrup += '</td>'
-elseif count1 = 6 and grupTipe[i] = 1:
-	$textgrup +='</td></tr><tr>' & count1 = 0
-end
+	if grupTipe[i] = 1 and discoenable[i] = 1:
+		count1 += 1
+		$textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/pc/npc_headshots/<<i>>.jpg"><br>' + $npcGo[i]
+	end
+	if count1< 6 and grupTipe[i] = 1:
+		$textgrup += '</td>'
+	elseif count1 = 6 and grupTipe[i] = 1:
+		$textgrup +='</td></tr><tr>' & count1 = 0
+	end
+	i += 1
+if i <= maxnpcs:jump 'gruploop'
 
-!hack to force a new section for gopniks
-if i = 9 : $textgrup2 += '<tr></tr>'
-!end hack
+!! Force new line for gopniks
+$textgrup +='</td></tr><tr>'
 
-if count2 = 6 : $textgrup2 += '<tr>'
-if grupTipe[i] = 4: count2 += 1 & $textgrup2 += '' + '<td bgcolor=<<$bcolor1>> align="center"><img height="100" src="images/characters/pavlovsk/school/head/<<i>>.jpg"><br>' + $npcGo[i]
-
-if count2 < 6 and grupTipe[i] = 4:
-	$textgrup2 += '</td>'
-elseif count2 = 6 and grupTipe[i] = 4:
-	$textgrup2 +='</td></tr><tr>' & count2 = 0
-end
+!! Second string for gopniks
+$textgrup2 = ''
+count1 = 0
+i = 1
+'<center><table cellspacing="3">'
+:gruploop2	
+	if count1 = 6 : $textgrup2 += '<tr>'
 
-if i < 61:jump 'markgruploop'
+	if grupTipe[i] = 4 and discoenable[i] = 1:
+		count1 += 1
+		$textgrup2 += '' + '<td bgcolor=<<$bcolor2>> align="center"><img  height="100" src="images/pc/npc_headshots/<<i>>.jpg"><br>' + $npcGo[i]
+	end
+	if count1< 6 and grupTipe[i] = 4:
+		$textgrup2 += '</td>'
+	elseif count1 = 6 and grupTipe[i] = 4:
+		$textgrup2 +='</td></tr><tr>' & count1 = 0
+	end
+	i += 1
+if i <= maxnpcs:jump 'gruploop2'
 
 '<<$textgrup>>'
 *nl
@@ -48,5 +60,6 @@ if i < 61:jump 'markgruploop'
 if hour >= 21 and hour < 23 and week=5: '<center>At the entrance of the disco hall stands <a href="exec:gt ''VolleyTrenerSpeak''">Coach Mikhail Nikolayevich</a></center>'
 '</table><center>'
 
+
 --- SgrupDisco ---------------------------------
 

locations/Snpc.qsrc

@@ -119,77 +119,51 @@ if numnpc = 45:
 				minut -= 5
 				gs 'stat'
 				act 'Um that''s not what I meant': gt 'Snpc', 'anushnottoday'
-				act 'Kiss her back.':
-					*clr & cla
-					Anush_lunch = 1
-					npc_rel['A144'] += 1
-					pav_sex +=1
-					gs 'stat'
-					'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/anushka/makeout.mp4"></video></center>'
-					'You kiss her back. Your hands are roaming each others bodies, several of the other gopniks are checking the two of you out, especially the guys. Several of them starting hooting, hollering or whistling as the two of you make out hard right in front of them. After a couple of minutes she grabs you by the hands and says "Come on lets go some place more private to continue this.'
-					gs 'arousal', 'foreplay', 5, 'lesbian', 'exhibitionism'
-					minut -= 5
-					gs 'stat'
-					act 'Not today': gt 'Snpc', 'anushnottoday'
-					act 'Go with it':
-						*clr & cla
-						Anush_lunch = 1
-						pcs_horny += 10
-						npc_rel['A144'] += 1
-						grupvalue[4] +=1
-						pav_sex +=1
-						gs 'stat'
-						'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/anushka/makeout.mp4"></video></center>'
-						'You breath heavily feeling yourself turned on. "Ok, where?"'
-						'Her hand slides up your skirt and rubs your clit. "Come with me, I know just the place." With that she takes you by the hand and the two of your head off, with the whistles and cat calls of the other gopniks behind you.'
-						gs 'arousal', 'foreplay', 5, 'lesbian', 'exhibitionism'
-						minut -= 5
-						gs 'stat'
-						act 'Go somewhere private':  gt 'gschool_sex', 'Anush_private'
-					end
-				end
+				act 'Kiss her back.': gt 'Snpc', 'kissback'
 			else
 				'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/anushka/makeout.mp4"></video></center>'
 				'Noticing she is looking fairly turned on today, well more so than usual, you say to her. "You ok? You are looking pretty flush again today."'
-				'You barely even have time to get the words out when she is leaning in and kissing you, her hands reach around to squeeze you butt.'
+				'You barely even have time to get the words out when she is leaning in and kissing you, her hands reach around to squeeze your butt.'
 				gs 'arousal', 'foreplay', 5, 'lesbian', 'exhibitionism'
 				minut -= 5
 				gs 'stat'
 				act 'Not today': gt 'Snpc', 'anushnottoday'
-				act 'Kiss her back.':
-					*clr & cla
-					Anush_lunch = 1
-					npc_rel['A144'] += 1
-					pav_sex +=1
-					gs 'stat'
-					'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/anushka/makeout.mp4"></video></center>'
-					'You kiss her back. Your hands are roaming each others bodies, several of the other gopniks are checking the two of you out, especially the guys. Several of them starting hooting, hollering or whistling as the two of you make out hard right in front of them. After a couple of minutes she grabs you by the hands and says "Come on lets go some place more private to continue this.'
-					gs 'arousal', 'foreplay', 5, 'lesbian', 'exhibitionism'
-					minut -= 5
-					gs 'stat'
-					act 'Not today': gt 'Snpc', 'anushnottoday'
-					act 'Go with it':
-						*clr & cla
-						Anush_lunch = 1
-						pcs_horny += 10
-						npc_rel['A144'] += 1
-						grupvalue[4] +=1
-						pav_sex +=1
-						gs 'stat'
-						'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/anushka/makeout.mp4"></video></center>'
-						'You breath heavily feeling yourself turned on. "Ok, where?"'
-						'Her hand slides up your skirt and rubs your clit. "Come with me, I know just the place." With that she takes you by the hand and the two of your head off, with the whistles and cat calls of the other gopniks behind you.'
-						gs 'arousal', 'foreplay', 5, 'lesbian', 'exhibitionism'
-						minut -= 5
-						gs 'stat'
-						act 'Go somewhere private':  gt 'gschool_sex', 'Anush_private'
-					end
-				end
+				act 'Kiss her back.': gt 'Snpc', 'kissback'
 			end
 		end
 	end
 end
 
+if $ARGS[0] = 'kissback':
+	*clr & cla
+	Anush_lunch = 1
+	npc_rel['A144'] += 1
+	pav_sex +=1
+	gs 'stat'
+	'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/anushka/makeout.mp4"></video></center>'
+	'You kiss her back. Your hands are roaming each others bodies, several of the other gopniks are checking the two of you out, especially the guys. Several of them starting hooting, hollering or whistling as the two of you make out hard right in front of them. After a couple of minutes she grabs you by the hands and says "Come on lets go some place more private to continue this.'
+	gs 'arousal', 'foreplay', 5, 'lesbian', 'exhibitionism'
+	minut -= 5
+	gs 'stat'
+	act 'Not today': gt 'Snpc', 'anushnottoday'
+	act 'Go with it':
+		*clr & cla
+		Anush_lunch = 1
+		pcs_horny += 10
+		npc_rel['A144'] += 1
+		grupvalue[4] +=1
+		pav_sex +=1
+		gs 'stat'
+		'<center><video autoplay loop src="images/characters/pavlovsk/school/girl/anushka/makeout.mp4"></video></center>'
+		'You breath heavily feeling yourself turned on. "Ok, where?"'
+		'Her hand slides up your skirt and rubs your clit. "Come with me, I know just the place." With that she takes you by the hand and the two of your head off, with the whistles and cat calls of the other gopniks behind you.'
+		gs 'arousal', 'foreplay', 5, 'lesbian', 'exhibitionism'
+		minut -= 5
+		gs 'stat'
+		act 'Go somewhere private':  gt 'gschool_sex', 'Anush_private'
+	end
+end
+
 if $ARGS[0] = 'anushnottoday':
 	*clr & cla
 	npc_rel['A144'] -= 2
@@ -419,7 +393,7 @@ if numnpc = 14:
 			minut += 1
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga_kiss1.jpg"></center>'
-		elseif $loc ! 'gdkin':
+		else
 			minut += 1
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tanga_kiss.jpg"></center>'

locations/Voltrener.qsrc

@@ -126,6 +126,18 @@ if $ARGS[0] = 'talk':
 					elseif trenerSex = 1:
 						volleysostav = 1
 						'You ask the coach about joining the team, he smiles and says, "<<$pcs_nickname>>, honey. I can do that, but you''ll have to start as a sub or people might be suspicious."'
+					elseif pcs_vball >= 65:
+						'You ask the coach about joining the team, the coach thinks for a minute. "You have good skills for an amateur but you''re still not good enough to start on the team. However, I have a spot for a substitute and we can put you there. How does that sound?"'
+						act 'Leave':gt 'gdksport', 'start'
+						
+						act 'Accept the substitute position':
+							*clr & cla
+							gs 'stat'
+							volleysostav = 1
+							'You accept the substitute position and the coach nods his head in confirmation.'
+							'"Okay, welcome to the team <<$pcs_lastname>>. Remember, tournament matches are on Saturdays. Don''t forget to show up!"'
+							act 'Leave':gt 'gdksport', 'start'
+						end
 					else
 						'You ask the coach about joining the team, the coach thinks for a minute. "I have a spot for a substitute, but I do not know if you have what it takes."'
 						act 'Persuade him':

locations/_attributes_average.qsrc

@@ -156,6 +156,7 @@ elseif ARGS[1] = 25:
 	CloTopCut = 4
 	CloPantsShortness = 5
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 26:
 	CloQuality = 3
 	CloThinness = 5
@@ -206,6 +207,7 @@ elseif ARGS[1] = 33:
 	CloTopCut = 2
 	CloPantsShortness = 5
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 34:
 	CloQuality = 3
 	CloThinness = 3
@@ -231,6 +233,7 @@ elseif ARGS[1] = 37:
 	CloTopCut = 4
 	CloPantsShortness = 5
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 38:
 	CloQuality = 4
 	CloThinness = 3
@@ -432,12 +435,14 @@ elseif ARGS[1] = 69:
 	CloTopCut = 2
 	CloSkirtShortness = 3
 	CloExhibit = 10
+	CloStyle = 2
 elseif ARGS[1] = 70:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 2
 	CloSkirtShortness = 2
 	CloExhibit = 10
+	CloStyle = 2
 elseif ARGS[1] = 71:
 	CloQuality = 5
 	CloThinness = 3
@@ -493,7 +498,7 @@ elseif ARGS[1] = 79:
 	CloThinness = 3
 	CloTopCut = 2
 	CloSkirtShortness = 4
-	CloStyle = 2
+	CloStyle = 4
 	CloExhibit = 20
 elseif ARGS[1] = 80:
 	CloQuality = 3
@@ -525,6 +530,7 @@ elseif ARGS[1] = 84:
 	CloTopCut = 2
 	CloPantsShortness = 4
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 85:
 	CloQuality = 3
 	CloThinness = 5
@@ -574,6 +580,7 @@ elseif ARGS[1] = 92:
 	CloTopCut = 1
 	CloSkirtShortness = 3
 	CloExhibit = 25
+	CloStyle = 2
 elseif ARGS[1] = 93:
 	CloQuality = 4
 	CloThinness = 4
@@ -592,6 +599,7 @@ elseif ARGS[1] = 95:
 	CloBra = 1
 	CloPantsShortness = 1
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 96:
 	CloQuality = 4
 	CloThinness = 3
@@ -649,6 +657,7 @@ elseif ARGS[1] = 104:
 	CloTopCut = 3
 	CloSkirtShortness = 4
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 105:
 	CloQuality = 3
 	CloThinness = 2
@@ -674,6 +683,7 @@ elseif ARGS[1] = 108:
 	CloTopCut = 4
 	CloSkirtShortness = 5
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 109:
 	CloQuality = 3
 	CloThinness = 4
@@ -767,6 +777,7 @@ elseif ARGS[1] = 123:
 	CloTopCut = 4
 	CloSkirtShortness = 5
 	CloExhibit = 30
+	CloBimbo = 1
 elseif ARGS[1] = 124:
 	CloQuality = 4
 	CloThinness = 4
@@ -804,12 +815,14 @@ elseif ARGS[1] = 129:
 	CloTopCut = 4
 	CloPantsShortness = 6
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 130:
 	CloQuality = 4
 	CloThinness = 5
 	CloBra = 1
 	CloPantsShortness = 6
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 131:
 	CloQuality = 4
 	CloThinness = 4 
@@ -945,6 +958,7 @@ elseif ARGS[1] = 152:
 	CloTopCut = 4
 	CloPantsShortness = 1
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 153:
 	CloQuality = 4
 	CloThinness = 4
@@ -993,6 +1007,7 @@ elseif ARGS[1] = 160:
 	CloTopCut = 1
 	CloSkirtShortness = 4
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 161:
 	CloQuality = 3
 	CloThinness = 4
@@ -1201,6 +1216,7 @@ elseif ARGS[1] = 194:
 	CloTopCut = 2
 	CloSkirtShortness = 4
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 195:
 	CloQuality = 3
 	CloThinness = 3
@@ -1213,6 +1229,7 @@ elseif ARGS[1] = 196:
 	CloTopCut = 1
 	CloSkirtShortness = 3
 	CloExhibit = 10
+	CloStyle = 4
 elseif ARGS[1] = 197:
 	CloQuality = 4
 	CloThinness = 2
@@ -1225,6 +1242,7 @@ elseif ARGS[1] = 198:
 	CloTopCut = 2
 	CloSkirtShortness = 4
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 199:
 	CloQuality = 3
 	CloThinness = 4
@@ -1353,6 +1371,7 @@ elseif ARGS[1] = 219:
 	CloTopCut = 4
 	CloPantsShortness = 5
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 220:
 	CloQuality = 4
 	CloThinness = 3
@@ -1390,6 +1409,7 @@ elseif ARGS[1] = 225:
 	CloTopCut = 1
 	CloSkirtShortness = 5
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 226:
 	CloQuality = 4
 	CloThinness = 2
@@ -1474,6 +1494,7 @@ elseif ARGS[1] = 239:
 	CloTopCut = 1
 	CloPantsShortness = 1
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 240:
 	CloQuality = 3
 	CloThinness = 3
@@ -1510,6 +1531,7 @@ elseif ARGS[1] = 245:
 	CloTopCut = 3
 	CloSkirtShortness = 4
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 246:
 	CloQuality = 4
 	CloThinness = 4
@@ -1523,6 +1545,7 @@ elseif ARGS[1] = 247:
 	CloTopCut = 3
 	CloSkirtShortness = 4
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 248:
 	CloQuality = 3
 	CloThinness = 4
@@ -1663,6 +1686,7 @@ elseif ARGS[1] = 270:
 	CloTopCut = 2
 	CloSkirtShortness = 2
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 271:
 	CloQuality = 3
 	CloThinness = 3
@@ -1682,6 +1706,7 @@ elseif ARGS[1] = 273:
 	CloSkirtShortness = 5
 	CloBimbo = 1
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 274:
 	CloQuality = 4
 	CloThinness = 4
@@ -1854,6 +1879,7 @@ elseif ARGS[1] = 301:
 	CloTopCut = 3
 	CloPantsShortness = 5
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 302:
 	CloQuality = 4
 	CloThinness = 4
@@ -2158,6 +2184,7 @@ elseif ARGS[1] = 349:
 	CloTopCut = 3
 	CloPantsShortness = 5
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 350:
 	CloQuality = 4
 	CloThinness = 5
@@ -2244,6 +2271,7 @@ elseif ARGS[1] = 363:
 	CloTopCut = 3
 	CloSkirtShortness = 2
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 364:
 	CloQuality = 3
 	CloThinness = 4
@@ -2256,6 +2284,7 @@ elseif ARGS[1] = 365:
 	CloTopCut = 3
 	CloSkirtShortness = 2
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 366:
 	CloQuality = 4
 	CloThinness = 3
@@ -2651,7 +2680,7 @@ elseif ARGS[1] = 429:
 	CloThinness = 4
 	CloTopCut = 1
 	CloPantsShortness = 4
-	CloBimbo = 1
+	CloStyle = 4
 	CloExhibit = 15
 elseif ARGS[1] = 430:
 	CloQuality = 3
@@ -2714,6 +2743,7 @@ elseif ARGS[1] = 439:
 	CloTopCut = 1
 	CloSkirtShortness = 4
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 440:
 	CloQuality = 4
 	CloThinness = 4
@@ -2845,7 +2875,7 @@ elseif ARGS[1] = 461:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 4
-	CloBimbo = 1
+	CloStyle = 4
 	CloExhibit = 20
 elseif ARGS[1] = 462:
 	CloQuality = 3
@@ -2909,6 +2939,7 @@ elseif ARGS[1] = 471:
 	CloTopCut = 1
 	CloPantsShortness = 5
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 472:
 	CloQuality = 4
 	CloThinness = 2
@@ -3137,6 +3168,7 @@ elseif ARGS[1] = 508:
 	CloTopCut = 3
 	CloSkirtShortness = 5
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 509:
 	CloQuality = 3
 	CloThinness = 2
@@ -3189,6 +3221,7 @@ elseif ARGS[1] = 516:
 	CloBra = 1
 	CloPantsShortness = 5
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 517:
 	CloQuality = 3
 	CloThinness = 3

locations/_attributes_cheap.qsrc

@@ -137,7 +137,7 @@ elseif ARGS[1] = 25:
 	CloThinness = 2
 	CloTopCut = 2
 	CloSkirtShortness = 4
-	CloStyle = 2
+	CloStyle = 4
 elseif ARGS[1] = 26:
 	CloQuality = 1
 	CloThinness = 4
@@ -273,13 +273,12 @@ elseif ARGS[1] = 51:
 	CloThinness = 3
 	CloTopCut = 1
 	CloSkirtShortness = 5
-	CloStyle = 2
+	CloStyle = 4
 elseif ARGS[1] = 52:
 	CloQuality = 2
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 3
-	CloStyle = 4
 elseif ARGS[1] = 53:
 	CloQuality = 1
 	CloThinness = 5
@@ -323,6 +322,7 @@ elseif ARGS[1] = 60:
 	CloThinness = 3
 	CloTopCut = 1
 	CloSkirtShortness = 5
+	CloStyle = 2
 elseif ARGS[1] = 61:
 	CloQuality = 2
 	CloThinness = 4
@@ -620,6 +620,7 @@ elseif ARGS[1] = 115:
 	CloTopCut = 3
 	CloSkirtShortness = 4
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 116:
 	CloQuality = 1
 	CloThinness = 2
@@ -741,6 +742,7 @@ elseif ARGS[1] = 134:
 	CloBra = 1
 	CloPantsShortness = 5
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 135:
 	CloQuality = 1
 	CloThinness = 2
@@ -776,7 +778,7 @@ elseif ARGS[1] = 139:
 	CloThinness = 4
 	CloTopCut = 4
 	CloSkirtShortness = 5
-	CloBimbo = 1
+	CloStyle = 4
 	CloExhibit = 30
 elseif ARGS[1] = 140:
 	CloQuality = 1
@@ -864,6 +866,7 @@ elseif ARGS[1] = 153:
 	CloTopCut = 1
 	CloPantsShortness = 5
 	CloExhibit = 15
+	CloStyle = 4
 elseif ARGS[1] = 154:
 	CloQuality = 1
 	CloThinness = 2
@@ -883,6 +886,7 @@ elseif ARGS[1] = 156:
 	CloPantsShortness = 5
 	CloBimbo = 1
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 157:
 	CloQuality = 2
 	CloThinness = 2
@@ -908,6 +912,7 @@ elseif ARGS[1] = 160:
 	CloTopCut = 2
 	CloSkirtShortness = 2
 	CloExhibit = 10
+	CloStyle = 5
 elseif ARGS[1] = 161:
 	CloQuality = 2
 	CloThinness = 2
@@ -998,7 +1003,7 @@ elseif ARGS[1] = 175:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 4
-	CloBimbo = 1
+	CloStyle = 4
 	CloExhibit = 20
 elseif ARGS[1] = 176:
 	CloQuality = 1
@@ -1198,6 +1203,7 @@ elseif ARGS[1] = 207:
 	CloTopCut = 2
 	CloSkirtShortness = 4
 	CloExhibit = 20
+	CloStyle = 2
 elseif ARGS[1] = 208:
 	CloQuality = 2
 	CloThinness = 2
@@ -1222,6 +1228,7 @@ elseif ARGS[1] = 211:
 	CloTopCut = 1
 	CloSkirtShortness = 4
 	CloExhibit = 15
+	CloStyle = 5
 elseif ARGS[1] = 212:
 	CloQuality = 2
 	CloThinness = 3
@@ -1348,6 +1355,7 @@ elseif ARGS[1] = 231:
 	CloTopCut = 2
 	CloSkirtShortness = 4
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 232:
 	CloQuality = 1
 	CloThinness = 2
@@ -1384,6 +1392,7 @@ elseif ARGS[1] = 237:
 	CloTopCut = 3
 	CloPantsShortness = 5
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 238:
 	CloQuality = 2
 	CloThinness = 1
@@ -1533,6 +1542,7 @@ elseif ARGS[1] = 261:
 	CloTopCut = 4
 	CloPantsShortness = 5
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 262:
 	CloStyle = 3
 	CloQuality = 2
@@ -1583,7 +1593,7 @@ elseif ARGS[1] = 269:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 5
-	CloBimbo = 1
+	CloStyle = 4
 	CloExhibit = 30
 elseif ARGS[1] = 270:
 	CloQuality = 1
@@ -1603,6 +1613,7 @@ elseif ARGS[1] = 272:
 	CloTopCut = 4
 	CloPantsShortness = 5
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 273:
 	CloQuality = 2
 	CloThinness = 2
@@ -1744,6 +1755,7 @@ elseif ARGS[1] = 294:
 	CloTopCut = 3
 	CloPantsShortness = 5
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 295:
 	CloQuality = 1
 	CloThinness = 3
@@ -1762,6 +1774,7 @@ elseif ARGS[1] = 297:
 	CloTopCut = 1
 	CloSkirtShortness = 4
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 298:
 	CloQuality = 1
 	CloThinness = 2
@@ -1800,6 +1813,7 @@ elseif ARGS[1] = 303:
 	CloTopCut = 3
 	CloSkirtShortness = 5
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 304:
 	CloStyle = 4
 	CloQuality = 1
@@ -1819,6 +1833,7 @@ elseif ARGS[1] = 306:
 	CloTopCut = 2
 	CloPantsShortness = 5
 	CloExhibit = 25
+	CloStyle = 4
 elseif ARGS[1] = 307:
 	CloStyle = 1
 	CloQuality = 2
@@ -1858,6 +1873,7 @@ elseif ARGS[1] = 312:
 	CloTopCut = 4
 	CloSkirtShortness = 5
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 313:
 	CloQuality = 2
 	CloThinness = 3
@@ -1940,6 +1956,7 @@ elseif ARGS[1] = 325:
 	CloTopCut = 1
 	CloPantsShortness = 4
 	CloExhibit = 20
+	CloStyle = 4
 elseif ARGS[1] = 326:
 	CloQuality = 2
 	CloThinness = 2
@@ -2457,6 +2474,7 @@ elseif ARGS[1] = 410:
 	CloTopCut = 2
 	CloSkirtShortness = 4
 	CloExhibit = 30
+	CloStyle = 4
 elseif ARGS[1] = 411:
 	CloQuality = 2
 	CloThinness = 2
@@ -2481,7 +2499,12 @@ elseif ARGS[1] = 414:
 	CloTopCut = 1
 	CloSkirtShortness = 3
 	CloExhibit = 0
-
+elseif ARGS[1] = 415:
+	CloQuality = 2
+	CloThinness = 5
+	CloTopCut = 4
+	CloSkirtShortness = 3
+	CloExhibit = 15
 end
 
 --- $attributes_cheap ---------------------------------

locations/_attributes_expensive.qsrc

@@ -32,7 +32,7 @@ elseif ARGS[1] = 6:
 	CloThinness = 5
 	CloTopCut = 3
 	CloSkirtShortness = 5
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 7:
 	CloQuality = 5
 	CloThinness = 3
@@ -77,6 +77,7 @@ elseif ARGS[1] = 14:
 	CloThinness = 3
 	CloTopCut = 3
 	CloPantsShortness = 5
+	CloStyle = 4
 elseif ARGS[1] = 15:
 	CloQuality = 5
 	CloThinness = 4
@@ -102,7 +103,7 @@ elseif ARGS[1] = 19:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 5
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 20:
 	CloQuality = 6
 	CloThinness = 5
@@ -179,13 +180,13 @@ elseif ARGS[1] = 34:
 	CloThinness = 4
 	CloTopCut = 1
 	CloPantsShortness = 5
-	CloStyle = 2
+	CloStyle = 4
 elseif ARGS[1] = 35:
 	CloQuality = 6
 	CloThinness = 5
 	CloTopCut = 3
 	CloSkirtShortness = 3
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 36:
 	CloQuality = 5
 	CloThinness = 4
@@ -238,17 +239,18 @@ elseif ARGS[1] = 45:
 	CloTopCut = 4
 	CloPantsShortness = 5
 	CloBimbo = 1
-	CloStyle = 3
 elseif ARGS[1] = 46:
 	CloQuality = 5
 	CloThinness = 5
 	CloTopCut = 3
 	CloSkirtShortness = 5
+	CloStyle = 4
 elseif ARGS[1] = 47:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 1
+	CloStyle = 5
 elseif ARGS[1] = 48:
 	CloQuality = 5
 	CloThinness = 4
@@ -259,6 +261,7 @@ elseif ARGS[1] = 49:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 4
+	CloStyle = 4
 elseif ARGS[1] = 50:
 	CloQuality = 6
 	CloThinness = 3
@@ -279,6 +282,7 @@ elseif ARGS[1] = 53:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 5
+	CloStyle = 4
 elseif ARGS[1] = 54:
 	CloQuality = 5
 	CloThinness = 4
@@ -355,7 +359,7 @@ elseif ARGS[1] = 67:
 	CloThinness = 3
 	CloTopCut = 2
 	CloSkirtShortness = 5
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 68:
 	CloQuality = 5
 	CloThinness = 4
@@ -366,12 +370,13 @@ elseif ARGS[1] = 69:
 	CloThinness = 4
 	CloTopCut = 1
 	CloSkirtShortness = 5
+	CloStyle = 4
 elseif ARGS[1] = 70:
 	CloQuality = 6
 	CloThinness = 5
 	CloTopCut = 2
 	CloSkirtShortness = 5
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 71:
 	CloQuality = 5
 	CloThinness = 4
@@ -387,7 +392,7 @@ elseif ARGS[1] = 73:
 	CloThinness = 3
 	CloTopCut = 3
 	CloSkirtShortness = 5
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 74:
 	CloQuality = 5
 	CloThinness = 3
@@ -410,6 +415,7 @@ elseif ARGS[1] = 77:
 	CloThinness = 5
 	CloTopCut = 2
 	CloSkirtShortness = 4
+	CloStyle = 4
 elseif ARGS[1] = 78:
 	CloQuality = 5
 	CloThinness = 3
@@ -420,6 +426,7 @@ elseif ARGS[1] = 79:
 	CloThinness = 5
 	CloTopCut = 2
 	CloSkirtShortness = 5
+	CloStyle = 4
 elseif ARGS[1] = 80:
 	CloQuality = 6
 	CloThinness = 3
@@ -550,7 +557,7 @@ elseif ARGS[1] = 103:
 	CloThinness = 4
 	CloTopCut = 2
 	CloSkirtShortness = 5
-	CloBimbo = 1
+	CloStyle = 4
 elseif ARGS[1] = 104:
 	CloQuality = 5
 	CloThinness = 4
@@ -571,7 +578,7 @@ elseif ARGS[1] = 107:
 	CloThinness = 4
 	CloTopCut = 4
 	CloSkirtShortness = 5
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 108:
 	CloQuality = 6
 	CloThinness = 4
@@ -619,6 +626,7 @@ elseif ARGS[1] = 115:
 	CloThinness = 4
 	CloTopCut = 1
 	CloSkirtShortness = 5
+	CloStyle = 4
 elseif ARGS[1] = 116:
 	CloQuality = 5
 	CloThinness = 4
@@ -636,7 +644,7 @@ elseif ARGS[1] = 118:
 	CloThinness = 5
 	CloTopCut = 3
 	CloSkirtShortness = 4
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 119:
 	CloQuality = 5
 	CloThinness = 5
@@ -714,18 +722,19 @@ elseif ARGS[1] = 132:
 	CloThinness = 4
 	CloTopCut = 4
 	CloSkirtShortness = 4
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 133:
 	CloQuality = 6
 	CloThinness = 5
 	CloTopCut = 2
 	CloSkirtShortness = 4
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 134:
 	CloQuality = 5
 	CloThinness = 5
 	CloTopCut = 1
 	CloSkirtShortness = 3
+	CloStyle = 4
 elseif ARGS[1] = 135:
 	CloQuality = 6
 	CloThinness = 4
@@ -771,6 +780,7 @@ elseif ARGS[1] = 142:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 4
+	CloStyle = 4
 elseif ARGS[1] = 143:
 	CloQuality = 6
 	CloThinness = 4
@@ -792,13 +802,13 @@ elseif ARGS[1] = 146:
 	CloThinness = 5
 	CloTopCut = 1
 	CloSkirtShortness = 5
-	CloStyle = 3
+	CloStyle = 4
 elseif ARGS[1] = 147:
 	CloQuality = 5
 	CloThinness = 3
 	CloTopCut = 1
 	CloSkirtShortness = 5
-	CloBimbo = 1
+	CloStyle = 4
 elseif ARGS[1] = 148:
 	CloQuality = 5
 	CloThinness = 3
@@ -1037,6 +1047,7 @@ elseif ARGS[1] = 193:
 	CloThinness = 4
 	CloTopCut = 2
 	CloSkirtShortness = 3
+	CloStyle = 4
 elseif ARGS[1] = 194:
 	CloQuality = 5
 	CloThinness = 3
@@ -1091,6 +1102,7 @@ elseif ARGS[1] = 203:
 	CloThinness = 5
 	CloTopCut = 1
 	CloSkirtShortness = 4
+	CloStyle = 4
 elseif ARGS[1] = 204:
 	CloQuality = 6
 	CloThinness = 3
@@ -1149,7 +1161,7 @@ elseif ARGS[1] = 214:
 	CloThinness = 5
 	CloTopCut = 1
 	CloSkirtShortness = 3
-	CloBimbo = 1
+	CloStyle = 4
 elseif ARGS[1] = 215:
 	CloQuality = 6
 	CloThinness = 2
@@ -1303,7 +1315,6 @@ elseif ARGS[1] = 243:
 	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 3
-	CloBra = 1
 	CloPantsShortness = 1
 	CloBimbo = 1
 elseif ARGS[1] = 244:
@@ -1414,7 +1425,7 @@ elseif ARGS[1] = 264:
 	CloThinness = 4
 	CloTopCut = 3
 	CloPantsShortness = 1
-	CloBimbo = 1
+	CloStyle = 4
 elseif ARGS[1] = 265:
 	CloQuality = 5
 	CloThinness = 4
@@ -1574,6 +1585,7 @@ elseif ARGS[1] = 294:
 	CloThinness = 4
 	CloTopCut = 1
 	CloSkirtShortness = 5
+	CloStyle = 4
 elseif ARGS[1] = 295:
 	CloQuality = 6
 	CloThinness = 3
@@ -1731,6 +1743,7 @@ elseif ARGS[1] = 323:
 	CloTopCut = 3
 	CloPantsShortness = 1
 	CloBimbo = 1
+	CloStyle = 4
 elseif ARGS[1] = 324:
 	CloQuality = 5
 	CloThinness = 4
@@ -2009,6 +2022,7 @@ elseif ARGS[1] = 376:
 	CloThinness = 3
 	CloTopCut = 2
 	CloSkirtShortness = 4
+	CloStyle = 4
 elseif ARGS[1] = 377:
 	CloQuality = 6
 	CloThinness = 3
@@ -2045,7 +2059,7 @@ elseif ARGS[1] = 383:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 4
-	CloBimbo = 1
+	CloStyle = 4
 elseif ARGS[1] = 384:
 	CloQuality = 6
 	CloThinness = 4
@@ -2174,6 +2188,7 @@ elseif ARGS[1] = 408:
 	CloThinness = 4
 	CloTopCut = 3
 	CloSkirtShortness = 3
+	CloStyle = 4
 elseif ARGS[1] = 409:
 	CloQuality = 6
 	CloThinness = 4
@@ -2185,7 +2200,6 @@ elseif ARGS[1] = 410:
 	CloThinness = 4
 	CloTopCut = 1
 	CloPantsShortness = 5
-	CloBimbo = 1
 	CloStyle = 4
 elseif ARGS[1] = 411:
 	CloQuality = 6

locations/anushapt.qsrc

@@ -248,6 +248,9 @@ if $ARGS[0] = 'bathroom':
 			'<center><h4><font color="maroon">Bathroom</font></h4></center>'
 			'<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
 			'You take a quick shower.'
+			act 'Take a selfie':
+				gs 'telefon', 'Phone_selfie_image_bathing', 'shower'
+			end
 			act 'Get out of the shower': gt 'anushapt','bathroom'
 		end
 	end

locations/backwater.qsrc

@@ -178,7 +178,7 @@ else
 			'You pick up your clothes laying on the ground.'
 			gt $loc, $metka
 		end
-	else
+	elseif forced_naked_day < daystart:
 		act 'Get dressed':
 			cla
 			*clr

locations/banditbreak.qsrc

@@ -1,537 +0,0 @@
-# banditbreak
-
-!! Bandit the Dog - npc static id A66
-
-cls
-menu_off = 1
-gs 'boyStat', 'A66'
-sexpartkno = 1
-sexvolume = rand(20,590)
-sexspecpot = 0
-minut += 2
-pcs_horny += RAND(5,10)
-gs 'stat'
-
-'<center><img <<$set_imgh>> src="images/beast/bandit/piratbreak.jpg"></center>'
-
-act 'Vaginal':
-	if vgape > 1:
-		cls
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/predoggy.jpg"></center>'
-		'You pussy is too sore, let it recover, bitch.'
-		act 'Close':gt 'Gadsarai'
-	else
-		cls
-		npc_horny['A66'] = 0
-		pcs_mood = pcs_mood/2
-		gs 'stat'
-
-		'<center><img <<$set_imgh>> src="images/beast/bandit/piratvag.jpg"></center>'
-		'You extend one of your arms between your legs and carefully guide Bandit''s penis to your twat, as soon as he feels how wet you are, the dog powerfully thrusts forwards and fills your main fuckhole with his canine boner. You grit your teeth as your grandparents dog mercilessly uses your snatch for what it''s worth, bestially having his way with you without any care for your own pleasure, which is still a thrilling enough experience. Soon you can feel his panting and the relentless pounding intensify...'
-		gs 'arousal', 'foreplay', 2, 'sub', 'beast'
-		gs 'stat'
-		act 'Allow':
-			cls
-			pcs_mood = pcs_mood/2
-			gs 'stat'
-
-			'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagknot.jpg"></center>'
-			'You hands rest against the floor and you arch your ass backwards, literally begging Bandit to give your pussy the knotting it needs so badly. As expected from a dog, he is too focused on fucking that warm fuckhole of yours to understand or simply care about your desires, but without any warning, you feel his pointed tip hitting your cervix with a deep hard thrust from your dog lover, and before you realize it, his knot has slipped past your damp petals like a knife through butter... Which leaves you shocked in bliss, relishing from the warm jets of spunk being poured inside your well fucked cumdump.'
-			gs 'arousal', 'vaginal', 2, 'sub', 'beast'
-			gs 'stat'
-			banditboggle = RAND(0,5)
-			if banditboggle <= 3:
-				if pcs_vag < 10:
-					pcs_vag += 4
-					vgape = 3
-					gs 'cum_manage'
-					gs 'stat'
-					'The knot continues to grow bigger and bigger as Bandit climaxes, filling your pussy to the brim with his warm load. Too worried of being hurt, you patiently wait for Bandit''s knot to deflate, and twenty minutes later he finally slips out, which leaves you with a feeling of emptiness as a torrent of dog cum flows out from your snatch.'
-					gs 'arousal', 'vaginal', 20, 'sub', 'beast'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				elseif pcs_vag >= 10 and pcs_vag < 25:
-					pcs_vag += 3
-					vgape = 2
-					gs 'cum_manage'
-					gs 'stat'
-					if pcs_horny >= 100:
-						cls
-						pcs_mood = 100
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagcum.jpg"></center>'
-						'The knot continues to grow bigger and bigger as Bandit climaxes, filling your pussy to the brim with his warm load. Too worried of being hurt, you patiently wait for Bandit''s knot to deflate, and twenty minutes later he finally slips out, which leaves you with a feeling of emptiness as a torrent of dog cum flows out from your snatch.'
-						$orgasm_or = 'yes'
-						gs 'arousal', 'vaginal', 20, 'sub', 'beast'
-						gs 'stat'
-					else
-						'The knot continues to grow bigger and bigger as Bandit climaxes, filling your pussy to the brim with his warm load. Too worried of being hurt, you patiently wait for Bandit''s knot to deflate, and twenty minutes later he finally slips out, which leaves you with a feeling of emptiness as a torrent of dog cum flows out from your snatch.'
-						$orgasm_or = 'yes'
-						gs 'arousal', 'vaginal', 20, 'sub', 'beast'
-						gs 'stat'
-					end
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				elseif pcs_vag >= 25 and pcs_vag < 35:
-					pcs_vag += 2
-					gs 'cum_manage'
-					gs 'stat'
-					if pcs_horny >= 100:
-						cls
-						pcs_mood = 100
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagcum.jpg"></center>'
-						'The knot continues to grow bigger and bigger as Bandit climaxes, filling your pussy to the brim with his warm load. Too worried of being hurt, you patiently wait for Bandit''s knot to deflate, and twenty minutes later he finally slips out, which leaves you with a feeling of emptiness as a torrent of dog cum flows out from your snatch.'
-						$orgasm_or = 'yes'
-						gs 'arousal', 'vaginal', 20, 'sub', 'beast'
-						gs 'stat'
-					else
-						'The knot continues to grow bigger and bigger as Bandit climaxes, filling your pussy to the brim with his warm load. Too worried of being hurt, you patiently wait for Bandit''s knot to deflate, and twenty minutes later he finally slips out, which leaves you with a feeling of emptiness as a torrent of dog cum flows out from your snatch.'
-						gs 'arousal', 'vaginal', 20, 'sub', 'beast'
-						gs 'stat'
-					end
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				elseif pcs_vag >= 35:
-					pcs_vag += 1
-					gs 'cum_manage'
-					gs 'stat'
-					if pcs_horny >= 100:
-						cls
-						pcs_mood = 100
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagcum.jpg"></center>'
-						'The knot continues to grow bigger and bigger as Bandit climaxes, filling your pussy to the brim with his warm load. Too worried of being hurt, you patiently wait for Bandit''s knot to deflate, and twenty minutes later he finally slips out, which leaves you with a feeling of emptiness as a torrent of dog cum flows out from your snatch.'
-						$orgasm_or = 'yes'
-						gs 'arousal', 'vaginal', 20, 'sub', 'beast'
-						gs 'stat'
-					else
-						'The knot continues to grow bigger and bigger as Bandit climaxes, filling your pussy to the brim with his warm load. Too worried of being hurt, you patiently wait for Bandit''s knot to deflate, and twenty minutes later he finally slips out, which leaves you with a feeling of emptiness as a torrent of dog cum flows out from your snatch.'
-						gs 'arousal', 'vaginal', 20, 'sub', 'beast'
-						gs 'stat'
-					end
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				end
-			else
-				if pcs_vag < 10:
-					minut += 20
-					pcs_vag += 4
-					vgape = 3
-					pcs_horny = 0
-					gs 'cum_manage'
-					gs 'stat'
-					'The knot continues to grow bigger and bigger as Bandit climaxes, filling your pussy to the brim with his warm load. Too worried of being hurt, you patiently wait for Bandit''s knot to deflate, and twenty minutes later he finally slips out, which leaves you with a feeling of emptiness as a torrent of dog cum flows out from your snatch.'
-					act 'Leave':gt 'Gadsarai'
-				elseif pcs_vag >= 10 and pcs_vag < 25:
-					pcs_vag += 3
-					vgape = 1
-					gs 'cum_manage'
-					gs 'stat'
-					if pcs_horny >= 100:
-						cls
-						pcs_mood = 100
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagcum.jpg"></center>'
-						'Knot all continues and continues to increase in size until it finally reaches its maximum size. Your excitement is so great that you start to finish even though mild aching pain in the vagina...'
-						$orgasm_or = 'yes'
-						gs 'arousal', 'vaginal', 20, 'sub', 'beast'
-						gs 'arousal', 'end'
-						gs 'stat'
-					else
-						'Knot all continues and continues to increase in size until it finally reaches its maximum size. Your excitement is so great that you start to finish even though mild aching pain in the vagina...'
-						gs 'arousal', 'vaginal', 20, 'sub', 'beast'
-						gs 'stat'
-					end
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				elseif pcs_vag >= 25:
-					pcs_vag += 2
-					gs 'stat'
-
-					'<center><img <<$set_imgh>> src="images/beast/bandit/piratbreak.jpg"></center>'
-					'Bandit mounts you once again and vigorously starts to fuck your vagina, but it is so loose that there is just no way you it can hold the knot, and as soon as Bandit''s cock slips out from your gaping fuckhole he starts moving away from you...'
-					gs 'arousal', 'vaginal', 5, 'sub', 'beast'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'try again':gt 'banditbreak'
-				end
-			end
-		end
-		act 'Prevent':
-			cls
-			minut += 2
-			pcs_mood = pcs_mood/2
-			gs 'stat'
-
-			'<center><img <<$set_imgh>> src="images/beast/bandit/piratvag.jpg"></center>'
-			'You decide you don''t want Bandit to knot your pussy and clench your inner walls around his girth before quickly sending one of your shaky hands to his warm cock, you carefully pull him out of you between two thrusts, leaving the poor dog all frustrated, you quickly stand up before Bandit comes back.'
-			banditboggle = RAND(0,5)
-			if banditboggle <= 2:
-				if pcs_vag < 15:
-					pcs_vag += 1
-					vgape = 1
-					sexvolume = rand(20,50)
-					gs 'cum_manage'
-					gs 'stat'
-					'You extend one of your arms between your legs and carefully guide Bandit''s penis to your twat, as soon as he feels how wet you are, the dog powerfully thrusts forwards and fills your main fuckhole with his canine boner. You grit your teeth as your grandparents dog mercilessly uses your snatch for what it''s worth, bestially having his way with you without any care for your own pleasure, which is still a thrilling enough experience. Soon you can feel his panting and the relentless pounding intensify and you feel him ejaculating deep inside your twat...'
-					gs 'arousal', 'vaginal', 10, 'sub', 'beast'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				elseif pcs_vag >= 15 and pcs_vag < 25:
-					pcs_vag += 1
-					sexvolume = rand(20,50)
-					gs 'cum_manage'
-					gs 'stat'
-					if pcs_horny >= 100:
-						cls
-						pcs_mood = 100
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagcum1.jpg"></center>'
-						'You extend one of your arms between your legs and carefully guide Bandit''s penis to your twat, as soon as he feels how wet you are, the dog powerfully thrusts forwards and fills your main fuckhole with his canine boner. You grit your teeth as your grandparents dog mercilessly uses your snatch for what it''s worth, bestially having his way with you without any care for your own pleasure, which is still a thrilling enough experience. Soon you can feel his panting and the relentless pounding intensify and you feel him ejaculating deep inside your twat...'
-						$orgasm_or = 'yes'
-						gs 'arousal', 'vaginal', 10, 'sub', 'beast'
-						gs 'stat'
-					else
-						'You extend one of your arms between your legs and carefully guide Bandit''s penis to your twat, as soon as he feels how wet you are, the dog powerfully thrusts forwards and fills your main fuckhole with his canine boner. You grit your teeth as your grandparents dog mercilessly uses your snatch for what it''s worth, bestially having his way with you without any care for your own pleasure, which is still a thrilling enough experience. Soon you can feel his panting and the relentless pounding intensify and you feel him ejaculating deep inside your twat...'
-						gs 'arousal', 'vaginal', 10, 'sub', 'beast'
-						gs 'stat'
-					end
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				elseif pcs_vag >= 25 and pcs_vag < 35:
-					gs 'cum_manage'
-					gs 'stat'
-					if pcs_horny >= 100:
-						cls
-						pcs_mood = 100
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagcum1.jpg"></center>'
-						'You extend one of your arms between your legs and carefully guide Bandit''s penis to your twat, as soon as he feels how wet you are, the dog powerfully thrusts forwards and fills your main fuckhole with his canine boner. You grit your teeth as your grandparents dog mercilessly uses your snatch for what it''s worth, bestially having his way with you without any care for your own pleasure, which is still a thrilling enough experience. Soon you can feel his panting and the relentless pounding intensify and you feel him ejaculating deep inside your twat...'
-						$orgasm_or = 'yes'
-						gs 'arousal', 'vaginal', 20, 'sub', 'beast'
-						gs 'stat'
-					else
-						'You extend one of your arms between your legs and carefully guide Bandit''s penis to your twat, as soon as he feels how wet you are, the dog powerfully thrusts forwards and fills your main fuckhole with his canine boner. You grit your teeth as your grandparents dog mercilessly uses your snatch for what it''s worth, bestially having his way with you without any care for your own pleasure, which is still a thrilling enough experience. Soon you can feel his panting and the relentless pounding intensify and you feel him ejaculating deep inside your twat...'
-						gs 'arousal', 'vaginal', 20, 'sub', 'beast'
-						gs 'stat'
-					end
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				elseif pcs_vag >= 35:
-					gs 'cum_manage'
-					gs 'stat'
-					if pcs_horny >= 100:
-						cls
-						pcs_mood = 100
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/beast/bandit/piratvagcum1.jpg"></center>'
-						'You extend one of your arms between your legs and carefully guide Bandit''s penis to your twat, as soon as he feels how wet you are, the dog powerfully thrusts forwards and fills your main fuckhole with his canine boner. You grit your teeth as your grandparents dog mercilessly uses your snatch for what it''s worth, bestially having his way with you without any care for your own pleasure, which is still a thrilling enough experience. Soon you can feel his panting and the relentless pounding intensify and you feel him ejaculating deep inside your twat...'
-						$orgasm_or = 'yes'
-						gs 'arousal', 'vaginal', 20, 'sub', 'beast'
-						gs 'stat'
-					else
-						'You extend one of your arms between your legs and carefully guide Bandit''s penis to your twat, as soon as he feels how wet you are, the dog powerfully thrusts forwards and fills your main fuckhole with his canine boner. You grit your teeth as your grandparents dog mercilessly uses your snatch for what it''s worth, bestially having his way with you without any care for your own pleasure, which is still a thrilling enough experience. Soon you can feel his panting and the relentless pounding intensify and you feel him ejaculating deep inside your twat...'
-						$orgasm_or = 'yes'
-						gs 'arousal', 'vaginal', 20, 'sub', 'beast'
-						gs 'stat'
-					end
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				end
-			else
-				cls
-				if pcs_vag < 15:
-					minut += 10
-					pcs_vag += 1
-					if vgape <3:vgape += 1
-					pcs_horny -= RAND(10,20)
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/beast/bandit/piratbreak.jpg"></center>'
-					'Bandit begins to vigorously fuck your vagina, but it is so loose that there is just no way you it can hold the knot, and as soon as Bandit''s cock slips out from your gaping fuckhole he starts moving away from you...'
-					gs 'arousal', 'end'
-					gs 'stat'
-				elseif pcs_vag >= 15 and pcs_vag < 25:
-					pcs_vag += 1
-					sexvolume = rand(20,50)
-					gs 'cum_manage'
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/beast/bandit/piratbreak.jpg"></center>'
-					'Bandit begins to vigorously fuck your vagina, but it is so loose that there is just no way you it can hold the knot, and as soon as Bandit''s cock slips out from your gaping fuckhole he starts moving away from you...'
-					gs 'arousal', 'vaginal', 10, 'sub', 'beast', 'rough'
-					gs 'arousal', 'end'
-					gs 'stat'
-				elseif pcs_vag >= 25 and pcs_vag < 35:
-					minut += 20
-					pcs_horny += RAND(30,50)
-					gs 'cum_manage'
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/beast/bandit/piratbreak.jpg"></center>'
-					'Bandit begins to vigorously fuck your vagina, but it is so loose that there is just no way you it can hold the knot, and as soon as Bandit''s cock slips out from your gaping fuckhole he starts moving away from you...'
-					gs 'arousal', 'vaginal', 20, 'sub', 'beast'
-					gs 'arousal', 'end'
-					gs 'stat'
-				elseif pcs_vag >= 35:
-					gs 'cum_manage'
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/beast/bandit/piratbreak.jpg"></center>'
-					'Bandit begins to vigorously fuck your vagina, but it is so loose that there is just no way you it can hold the knot, and as soon as Bandit''s cock slips out from your gaping fuckhole he starts moving away from you...'
-					gs 'arousal', 'vaginal', 20, 'sub', 'beast'
-					gs 'arousal', 'end'
-					gs 'stat'
-				end
-				act 'Try again':gt 'banditbreak'
-			end
-		end
-	end
-end
-act 'Anal':
-	if agape > 1:
-		cls
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/predoggy.jpg"></center>'
-		'Your ass is too sore, let it recover, dumb slut.'
-		act 'Close':gt 'Gadsarai'
-	else
-		cls
-		npc_horny['A66'] = 0
-		pcs_mood = pcs_mood/2
-		gs 'stat'
-
-		'<center><img <<$set_imgh>> src="images/beast/bandit/piratanal.jpg"></center>'
-		'You lower your ass a bit and cover your pussy with one of your hand to make your ass the only possible target for Bandit then blush in shame as you realize how much of a dog slut you''ve become and brace yourself as the dog starts to furiously poke your ass and fingers with his pointed tip, smearing small amount of precum on your skin as he does. After a few attempts, Bandit''s cock savagely makes its way past your anal pucker and roughly starts moving in and out of you, claiming your asshole as his new personal playroom, you crie out both from pain and pleasure, doing your best to relax your backdoor and make it as enjoyable as possible for your canine lover. Bandit continues to use you like the filthy bitch you are for several minutes, you groan under him and feel his warm breath in the back of your neck, the pounding increasing in speed and strenght makes you instinctively clench your ass around his girth, and the feeling of his swollen knot hitting the ravaged ring of your ass with every single thrust makes you very aware of the horny dog''s intentions, he wants to knot your ass !'
-		gs 'arousal', 'foreplay', 2, 'sub', 'beast'
-		gs 'stat'
-		act 'Allow':
-			cls
-			pcs_mood = pcs_mood/2
-			gs 'stat'
-
-			'<center><img <<$set_imgh>> src="images/beast/bandit/analknot.jpg"></center>'
-			'You brace yourself and dig your nails in the dirty ground as you prepare yourself to be anally knotted by your grandparents dog. Bandit doesn''t seem to pay attention an casually continues to pound your ass, you grit your teeth in anticipation when you feel the swollen orb hitting your ravaged anal spincher again, it''s gonna slip in soon !! And it finally happens, with one hell of a hard thrust, Bandit mercilessly pushes his knot inside your ass, you cry out in pain and bliss, your legs shaking from the intense orgasm you''re experiencing, and the endless amount of canine spunk he is pouring in your bowels only intensify your shameful orgasm further.'
-			gs 'arousal', 'anal', 2, 'sub', 'beast'
-			gs 'stat'
-			banditboggle = RAND(0,5)
-			if banditboggle <= 4:
-				if pcs_ass < 15:
-					minut += 20
-					pcs_ass += 4
-					agape = 3
-					pcs_horny = 0
-					spafinloc = 3
-					gs 'cum_manage'
-					gs 'stat'
-					'You can feel Bandit''s cock bathing in its own sperm within your ass now, and you endure the filling he''s giving you like a good bitch, trapped under your canine mate, his huge knot sealed past your puckered asshole for about ten long minutes before the knot starts to deflate and slips out from your well used butthole, followed by a thick torrent of sperm which creates a funny puddle on the floor.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				elseif pcs_ass >= 15 and pcs_ass < 25:
-					minut += 20
-					pcs_ass += 3
-					agape = 2
-					pcs_horny -= RAND(15,30)
-					spafinloc = 3
-					gs 'cum_manage'
-					gs 'stat'
-					'You can feel Bandit''s cock bathing in its own sperm within your ass now, and you endure the filling he''s giving you like a good bitch, trapped under your canine mate, his huge knot sealed past your puckered asshole for about ten long minutes before the knot starts to deflate and slips out from your well used butthole, followed by a thick torrent of sperm which creates a funny puddle on the floor.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				elseif pcs_ass >= 25 and pcs_ass < 35:
-					pcs_ass += 2
-					agape = 1
-					spafinloc = 3
-					gs 'cum_manage'
-					gs 'stat'
-					if pcs_horny >= 100:
-						cls
-						pcs_mood = 100
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/beast/bandit/analcum.jpg"></center>'
-						'As soon as you feel Bandit''s knot in your ass you bring one hand between your legs and start rubbing your clit with eager lust, sadly, your ass is so loose that the cock almost instantly slips out from your butt, you barely had enough time to enjoy your anal creampie when you notice his tip still shooting thick jets of spunk which you wish would have been poured in your bowels instead of painting the dirty floor of the barn...'
-						$orgasm_or = 'yes'
-						gs 'arousal', 'anal', 20, 'sub', 'beast'
-						gs 'stat'
-					else
-						'You can feel Bandit''s cock bathing in its own sperm within your ass now, and you endure the filling he''s giving you like a good bitch, trapped under your canine mate, his huge knot sealed past your puckered asshole for about ten long minutes before the knot starts to deflate and slips out from your well used butthole, followed by a thick torrent of sperm which creates a funny puddle on the floor.'
-						gs 'arousal', 'anal', 20, 'sub', 'beast'
-						gs 'stat'
-					end
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				elseif pcs_ass >= 35:
-					pcs_ass += 1
-					spafinloc = 3
-					gs 'cum_manage'
-					gs 'stat'
-					if pcs_horny >= 100:
-						cls
-						pcs_mood = 100
-						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/beast/bandit/analcum.jpg"></center>'
-						'As soon as you feel Bandit''s knot in your ass you bring one hand between your legs and start rubbing your clit with eager lust, sadly, your ass is so loose that the cock almost instantly slips out from your butt, you barely had enough time to enjoy your anal creampie when you notice his tip still shooting thick jets of spunk which you wish would have been poured in your bowels instead of painting the dirty floor of the barn...'
-						gs 'arousal', 'anal', 20, 'sub', 'beast'
-						gs 'stat'
-					else
-						'You can feel Bandit''s cock bathing in its own sperm within your ass now, and you endure the filling he''s giving you like a good bitch, trapped under your canine mate, his huge knot sealed past your puckered asshole for about ten long minutes before the knot starts to deflate and slips out from your well used butthole, followed by a thick torrent of sperm which creates a funny puddle on the floor.'
-						gs 'arousal', 'anal', 20, 'sub', 'beast'
-						gs 'stat'
-					end
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				end
-			else
-				cls
-				if pcs_ass < 15:
-					minut += 20
-					pcs_ass += 5
-					agape = 3
-					pcs_horny = 0
-					spafinloc = 3
-					gs 'cum_manage'
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/beast/bandit/analpain.jpg"></center>'
-					'You can feel Bandit''s cock bathing in its own sperm within your ass now, and you endure the filling he''s giving you like a good bitch, trapped under your canine mate, his huge knot sealed past your puckered asshole for about ten long minutes before the knot starts to deflate and slips out from your well used butthole, followed by a thick torrent of sperm which creates a funny puddle on the floor.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				elseif pcs_ass >= 15 and pcs_ass < 25:
-					minut += 20
-					pcs_ass += 5
-					agape = 3
-					pcs_horny = 0
-					spafinloc = 3
-					gs 'cum_manage'
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/beast/bandit/analpain.jpg"></center>'
-					'You can feel Bandit''s cock bathing in its own sperm within your ass now, and you endure the filling he''s giving you like a good bitch, trapped under your canine mate, his huge knot sealed past your puckered asshole for about ten long minutes before the knot starts to deflate and slips out from your well used butthole, followed by a thick torrent of sperm which creates a funny puddle on the floor.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				elseif pcs_ass >= 25 and pcs_ass < 35:
-					minut += 20
-					pcs_ass += 4
-					agape = 2
-					pcs_horny -= RAND(40,60)
-					spafinloc = 3
-					gs 'cum_manage'
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/beast/bandit/analpain.jpg"></center>'
-					'You can feel Bandit''s cock bathing in its own sperm within your ass now, and you endure the filling he''s giving you like a good bitch, trapped under your canine mate, his huge knot sealed past your puckered asshole for about ten long minutes before the knot starts to deflate and slips out from your well used butthole, followed by a thick torrent of sperm which creates a funny puddle on the floor.'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				elseif pcs_ass >= 35:
-					pcs_ass += 3
-					agape = 1
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/beast/bandit/analpain.jpg"></center>'
-					'You can feel Bandit''s cock bathing in its own sperm within your ass now, and you endure the filling he''s giving you like a good bitch, trapped under your canine mate, his huge knot sealed past your puckered asshole for about ten long minutes before the knot starts to deflate and slips out from your well used butthole, followed by a thick torrent of sperm which creates a funny puddle on the floor.'
-					gs 'arousal', 'anal', 5, 'sub', 'beast'
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave':gt 'Gadsarai'
-				end
-			end
-		end
-		act 'Prevent':
-			cls
-			minut += 2
-			pcs_mood = pcs_mood/2
-			sub += 1
-			gs 'stat'
-
-			'<center><img <<$set_imgh>> src="images/beast/bandit/piratanal.jpg"></center>'
-			'You grin as you realizee Bandit is trying to knot your ass and decide to stop him, you extend one of your hands between your legs to grab the base of his cock, your fingers carefully placed on each side of the knot, which prevents it from slipping past your well used anal pucker, but still, it doesn''t prevent Bandit from giving you one hell of a messy anal creampie.'
-
-			if pcs_ass < 15:
-				minut += 10
-				pcs_ass += 1
-				agape = 2
-				pcs_horny -= RAND(15,30)
-				spafinloc = 3
-				sexvolume = rand(20,50)
-				gs 'cum_manage'
-				gs 'stat'
-				'You shudder in pleasure as Bandit furiously pounds away at your butthole without any care about your well being, you moan in bliss when you feel his warm load filling your bowels and groan when he pulls out without knotting you, leaving you panting with his viscous gift dripping out of your freshly used anus.'
-				act 'Leave':gt 'Gadsarai'
-			elseif pcs_ass >= 15 and pcs_ass < 25:
-				pcs_ass += 1
-				spafinloc = 3
-				gs 'cum_manage'
-				gs 'stat'
-				if pcs_horny >= 100:
-					cls
-					pcs_mood = 100
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/beast/bandit/analcum2.jpg"></center>'
-					'Soon Bandit finishes and you powerfully orgasm, the flow of semen into your rectum driving you over the edge. Still holding the base of his cock in one hand while the other is shakily stroking your clit and getting drenched in your love juices.'
-					$orgasm_or = 'yes'
-					gs 'arousal', 'anal', 20, 'sub', 'beast'
-					gs 'stat'
-				else
-					'You shudder in pleasure as Bandit furiously pounds away at your butthole without any care about your well being, you moan in bliss when you feel his warm load filling your bowels and groan when he pulls out without knotting you, leaving you panting with his viscous gift dripping out of your freshly used anus.'
-					gs 'arousal', 'anal', 20, 'sub', 'beast'
-					gs 'stat'
-				end
-				gs 'arousal', 'end'
-				gs 'stat'
-				act 'Leave':gt 'Gadsarai'
-			elseif pcs_ass >= 25 and pcs_ass < 35:
-				spafinloc = 3
-				gs 'cum_manage'
-				gs 'stat'
-				if pcs_horny >= 100:
-					cls
-					pcs_mood = 100
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/beast/bandit/analcum2.jpg"></center>'
-					'Soon Bandit finishes and you powerfully orgasm, the flow of semen into your rectum driving you over the edge. Still holding the base of his cock in one hand while the other is shakily stroking your clit and getting drenched in your love juices.'
-					$orgasm_or = 'yes'
-					gs 'arousal', 'anal', 20, 'sub', 'beast'
-					gs 'stat'
-				else
-					'You shudder in pleasure as Bandit furiously pounds away at your butthole without any care about your well being, you moan in bliss when you feel his warm load filling your bowels and groan when he pulls out without knotting you, leaving you panting with his viscous gift dripping out of your freshly used anus.'
-					gs 'arousal', 'anal', 20, 'sub', 'beast'
-					gs 'stat'
-				end
-				gs 'arousal', 'end'
-				gs 'stat'
-				act 'Leave':gt 'Gadsarai'
-			elseif pcs_ass >= 35:
-				spafinloc = 3
-				gs 'cum_manage'
-				gs 'stat'
-				if pcs_horny >= 100:
-					cls
-					pcs_mood = 100
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/beast/bandit/analcum2.jpg"></center>'
-					'Soon Bandit finishes and you powerfully orgasm, the flow of semen into your rectum driving you over the edge. Still holding the base of his cock in one hand while the other is shakily stroking your clit and getting drenched in your love juices.'
-					$orgasm_or = 'yes'
-					gs 'arousal', 'anal', 20, 'sub', 'beast'
-					gs 'stat'
-				else
-					'You shudder in pleasure as Bandit furiously pounds away at your butthole without any care about your well being, you moan in bliss when you feel his warm load filling your bowels and groan when he pulls out without knotting you, leaving you panting with his viscous gift dripping out of your freshly used anus.'
-					gs 'arousal', 'anal', 20, 'sub', 'beast'
-					gs 'stat'
-				end
-				gs 'arousal', 'end'
-				gs 'stat'
-				act 'Leave':gt 'Gadsarai'
-			end
-		end
-	end
-end
-
---- banditbreak ---------------------------------
-

locations/bass.qsrc

@@ -143,7 +143,7 @@ if $ARGS[0] = 'a':
 		gs 'exercise', 'tier1', 60, 'stren_exp'
 		pcs_sweat = 10 + rand(0,4)
 		if pcs_inhib < 50:inhib_exp += rand(1,2)
-		if pregtime < 150:	
+		if pregchem < 3600:	
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/pool/poolswim.jpg"></center>'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/pool/poolswimpreg.jpg"></center>'

locations/bed2.qsrc

@@ -494,9 +494,9 @@ if $ARGS[0] = 'succubinit':
 		preg = 0
 		pregtime = 0
 		pregtalk = 0
-		pregTalkPC = 0
-		pregTalkNat = 0
-		pregTalkbrother = 0
+		pcs_pregtalk = 0
+		npc_pregtalk['A16'] = 0
+		npc_pregtalk['A34'] = 0
 		thinkpreg = 0
 		knowpreg = 0
 		pregchem = 0

locations/bedrPar.qsrc

@@ -235,6 +235,8 @@ if $ARGS[0] = 'intro':
 	menu_off = 1
 	hour = 6
 	gs 'stat'
+	music_loop = 0
+	CLOSE ALL
 	'<center><h1><font color="maroon">Your Bedroom</font></h1></center>'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/mom/prost4.jpg"></center>'
 	*nl

locations/beg1.qsrc

@@ -87,22 +87,31 @@ if $ARGS[0] = 'br':
 	if begresult <= 18:  
 		'Sadly, you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made a bit of a fool of yourself.'
 	elseif begresult <= 23:
+		gs 'fame', 'city', 'running', 1
 		'You performed well for an amateur but still only came in last (8th place).'
 	elseif begresult < 19:
+		gs 'fame', 'city', 'running', 1
 		'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
 	elseif begresult < 20:
+		gs 'fame', 'city', 'running', 2
 		'You fought hard, but managed to only take the penultimate place (7th place).'
 	elseif begresult < 21:
+		gs 'fame', 'city', 'running', 2
 		'You fought hard, but only managed to take 6th place.'
 	elseif begresult < 22:
+		gs 'fame', 'city', 'running', 2
 		'You fought hard, but only managed to take 5th place.'
 	elseif begresult < 23:
+		gs 'fame', 'city', 'running', 2
 		'You fought hard, but only managed to take 4th place.'
 	elseif begresult < 24:
+		gs 'fame', 'city', 'running', 3
 		bronzebeg += 1 & money += 100 & 'You fought hard and managed to take 3rd place, earning a prize: You receive a bronze bade and a prize of 100 <b>₽</b>'
 	elseif begresult < 25:
+		gs 'fame', 'city', 'running', 3
 		silverbeg += 1 & money += 500 & 'You fought hard and managed to take 2nd place, earning a prize: You receive a silver badge and a prize of 500 <b>₽</b>'
 	elseif begresult >= 25:
+		gs 'fame', 'city', 'running', 4
 		razradbeg = 1 & goldbeg += 1 & money += 1000 & 'You fought hard and managed to take 1st place! You receive a gold badge, a prize of 1, 000 <b>₽</b> and are now part of your club''s junior squad.'
 	end
 	
@@ -128,20 +137,28 @@ if $ARGS[0] = '3':
 	if begresult <= 18:
 		'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made a bit of a fool of yourself.'
 	elseif begresult < 26:
+		gs 'fame', 'city', 'running', 2
 		'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
 	elseif begresult < 27:
+		gs 'fame', 'city', 'running', 2
 		'You fought hard, but managed to only take the penultimate place (7th place).'
 	elseif begresult < 28:
+		gs 'fame', 'city', 'running', 2
 		'You fought hard, but only managed to take 6th place.'
 	elseif begresult < 29:
+		gs 'fame', 'city', 'running', 2
 		'You fought hard, but only managed to take 5th place.'
 	elseif begresult < 30:
+		gs 'fame', 'city', 'running', 2
 		'You fought hard, but only managed to take 4th place.'
 	elseif begresult < 31:
+		gs 'fame', 'city', 'running', 3
 		bronzebeg += 1 & money += 500 & 'You fought hard and managed to take 3rd place, earning a prize: You receive a bronze badge and a prize of 500 <b>₽</b>'
 	elseif begresult < 32:
+		gs 'fame', 'city', 'running', 3
 		silverbeg += 1 & money += 1000 & 'You fought hard and managed to take 2nd place, earning a prize: You reveice a silver badge and a prize of 1, 000 <b>₽</b>'
 	elseif begresult >= 32:
+		gs 'fame', 'city', 'running', 4
 		razradbeg = 2 & goldbeg += 1 & money += 2000 & 'You fought hard and managed to take 1st place! You receive a gold badge, a prize of 2, 000 <b>₽</b> and are now part of your club''s senior squad, representing it at the next city championship!'
 	end
 	act 'Leave':gt 'fit', 'dressing room'
@@ -164,22 +181,31 @@ if $ARGS[0] = '2':
 	'You get in position. Then, you hear the starting shot: The race begins!'
 
 	if begresult <= 18:
+		gs 'fame', 'city', 'running', 1
 		'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made a bit of a fool of yourself.'
 	elseif begresult < 33:
+		gs 'fame', 'city', 'running', 2
 		'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
 	elseif begresult < 34:
+		gs 'fame', 'city', 'running', 3
 		'You fought hard, but managed to only take the penultimate place (7th place).'
 	elseif begresult < 35:
+		gs 'fame', 'city', 'running', 3
 		'You fought hard, but only managed to take 6th place.'
 	elseif begresult < 36:
+		gs 'fame', 'city', 'running', 3
 		'You fought hard, but only managed to take 5th place.'
 	elseif begresult < 37:
+		gs 'fame', 'city', 'running', 3
 		'You fought hard, but only managed to take 4th place.'
 	elseif begresult < 38:
+		gs 'fame', 'city', 'running', 4
 		bronzebeg += 1 & money += 1000 & 'You fought hard and managed to take 3rd place, earning a prize: You get a bronze medal and a prize of 1, 000 <b>₽</b>'
 	elseif begresult < 39:
+		gs 'fame', 'city', 'running', 4
 		silverbeg += 1 & money += 2000 & 'You fought hard and managed to take 2nd place, earning a prize: You get a silver medal and a prize of 2, 000 <b>₽</b>'
 	elseif begresult >= 39:
+		gs 'fame', 'city', 'running', 5
 		razradbeg = 3 & goldbeg += 1 & money += 3000 & 'You fought hard and managed to take 1st place! You get a gold medal, a prize of 3000 <b>₽</b> and became the "Track Champion of the City of Saint Petersburg", which qualifies you for the next oblast championship!'
 	end
 	act 'Leave':gt 'fit', 'dressing room'
@@ -203,22 +229,31 @@ if $ARGS[0] = '1':
 	'You get in position. Then, you hear the starting shot: The race begins!'
 
 	if begresult <= 18:
+		gs 'fame', 'city', 'running', 1
 		'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made of a fool of yourself. People on the ranks seem to be asking themselves how you even managed to make it this far. Maybe they are right?'
 	elseif begresult < 40:
+		gs 'fame', 'city', 'running', 2
 		'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
 	elseif begresult < 41:
+		gs 'fame', 'city', 'running', 3
 		'You fought hard, but managed to only take the penultimate place (7th place).'
 	elseif begresult < 42:
+		gs 'fame', 'city', 'running', 3
 		'You fought hard, but only managed to take 6th place.'
 	elseif begresult < 43:
+		gs 'fame', 'city', 'running', 3
 		'You fought hard, but only managed to take 5th place.'
 	elseif begresult < 44:
+		gs 'fame', 'city', 'running', 4
 		'You fought hard, but only managed to take 4th place.'
 	elseif begresult < 45:
+		gs 'fame', 'city', 'running', 5
 		bronzebeg += 1 & money += 2000 & 'You fought hard and managed to take 3rd place, earning a prize: You get a bronze medal and a prize of 2, 000 <b>₽</b>'
 	elseif begresult < 46:
+		gs 'fame', 'city', 'running', 5
 		silverbeg += 1 & money += 3000 & 'You fought hard and managed to take 2nd place, earning a prize: You get a silver medal and a prize of 3, 000 <b>₽</b>'
 	elseif  begresult >= 46:
+		gs 'fame', 'city', 'running', 6
 		razradbeg = 4 & goldbeg += 1 & money += 4000 & 'You fought hard and managed to take 1st place! You get a gold medal, a prize of 4000 <b>₽</b> and became the "Track Champion of the Leningrad Oblast", not only putting you on the list of the 50 best track athletes in the Russian Federation but also qualifying you for the next district championship!'
 	end
 	act 'Leave':gt 'fit', 'dressing room'
@@ -242,22 +277,31 @@ if $ARGS[0] = 'kms':
 	'You get in position. Then, you hear the starting shot: The race begins!'
 
 	if begresult <= 18:
+		gs 'fame', 'city', 'running', 2
 		'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made of a fool of yourself. People on the ranks seem to be asking themselves how you even managed to make it this far. Maybe they are right?'
 	elseif begresult < 47:
+		gs 'fame', 'city', 'running', 3
 		'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
 	elseif begresult < 48:
+		gs 'fame', 'city', 'running', 4
 		'You fought hard, but managed to only take the penultimate place (7th place).'
 	elseif begresult < 49:
+		gs 'fame', 'city', 'running', 4
 		'You fought hard, but only managed to take 6th place.'
 	elseif begresult < 50:
+		gs 'fame', 'city', 'running', 4
 		'You fought hard, but only managed to take 5th place.'
 	elseif begresult < 51:
+		gs 'fame', 'city', 'running', 5
 		'You fought hard, but only managed to take 4th place.'
 	elseif begresult < 52:
+		gs 'fame', 'city', 'running', 6
 		bronzebeg += 1 & money += 3000 & 'You fought hard and managed to take 3rd place, earning a prize: You get a bronze medal and a prize of 3, 000 <b>₽</b>'
 	elseif begresult < 53:
+		gs 'fame', 'city', 'running', 8
 		silverbeg += 1 & money += 4000 & 'You fought hard and managed to take 2nd place, earning a prize: You get a silver medal and a prize of 4, 000 <b>₽</b>'
 	elseif begresult >= 53:
+		gs 'fame', 'city', 'running', 10
 		razradbeg = 5 & goldbeg += 1 & money += 5000 & 'You fought hard and managed to take 1st place! You get a gold medal, a prize of 5000 <b>₽</b> and became the "Track Champion of the Northwest District". You are now one of the 8 best track athletes in the Russian Federation and qualified for the next national championship!'
 	end
 	act 'Leave':gt 'fit', 'dressing room'
@@ -282,22 +326,31 @@ if $ARGS[0] = 'ross':
 	'You get in position. Then, you hear the starting shot: The race begins!'
 
 	if begresult <= 18:
+		gs 'fame', 'city', 'running', 4
 		'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made of a fool of yourself. People on the ranks seem to be asking themselves how you even managed to make it this far. Maybe they are right?'
 	elseif begresult < 54:
+		gs 'fame', 'city', 'running', 6
 		'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
 	elseif begresult < 55:
+		gs 'fame', 'city', 'running', 8
 		'You fought hard, but managed to only take the penultimate place (7th place).'
 	elseif begresult < 56:
+		gs 'fame', 'city', 'running', 8
 		'You fought hard, but only managed to take 6th place.'
 	elseif begresult < 57:
+		gs 'fame', 'city', 'running', 8
 		'You fought hard, but only managed to take 5th place.'
 	elseif begresult < 58:
+		gs 'fame', 'city', 'running', 10
 		'You fought hard, but only managed to take 4th place.'
 	elseif begresult < 59:
+		gs 'fame', 'city', 'running', 15
 		bronzebeg += 1 & money += 4000 & 'You fought hard and managed to take 3rd place, earning a prize: You get a bronze medal and a prize of 4, 000 <b>₽</b>'
 	elseif begresult < 60:
+		gs 'fame', 'city', 'running', 15
 		silverbeg += 1 & money += 5000 & 'You fought hard and managed to take 2nd place, earning a prize: You get a silver medal and a prize of 5, 000 <b>₽</b>'
 	elseif begresult >= 60:
+		gs 'fame', 'city', 'running', 20
 		razradbeg = 6 & goldbeg += 1 & money += 6000 & 'You fought hard and managed to take 1st place! You get a gold medal, a prize of 6000 <b>₽</b> and became the "Track Champion of the Russian Federation". You are the single best track athlete in Russia - maybe you should try to qualify for the European championship?'
 	end
 	act 'Leave':gt 'fit', 'dressing room'
@@ -321,22 +374,31 @@ if $ARGS[0] = 'kval':
 	'You get in position. Then, you hear the starting shot: The race begins!'
 
 	if begresult <= 18:
+		gs 'fame', 'city', 'running', 4
 		'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made of a fool of yourself.'
 	elseif begresult < 61:
+		gs 'fame', 'city', 'running', 6
 		'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
 	elseif begresult < 62:
+		gs 'fame', 'city', 'running', 8
 		'You fought hard, but managed to only take the penultimate place (7th place).'
 	elseif begresult < 63:
+		gs 'fame', 'city', 'running', 8
 		'You fought hard, but only managed to take 6th place.'
 	elseif begresult < 64:
+		gs 'fame', 'city', 'running', 8
 		'You fought hard, but only managed to take 5th place.'
 	elseif begresult < 65:
+		gs 'fame', 'city', 'running', 10
 		'You fought hard, but only managed to take 4th place.'
 	elseif begresult < 66:
+		gs 'fame', 'city', 'running', 15
 		razradbegK += 1 & bronzebeg += 1 & money += 5000 & 'You fought hard and managed to take 3rd place, earning a prize. You get a bronze badge and a prize of 5,000 <b>₽</b>, but sadly, only the 1st place adds to your qualification for the European championship.'
 	elseif begresult < 67:
+		gs 'fame', 'city', 'running', 15
 		razradbegK += 1 & silverbeg += 1 & money += 10000 & 'You fought hard and managed to take 2nd place, earning a prize. You get a silver medal and a prize of 10,000 <b>₽</b>, but sadly, only the 1st place adds to your qualification for the European championship.'
 	elseif begresult >= 67:
+		gs 'fame', 'city', 'running', 25
 		razradbegK += 1 & goldbeg += 1 & money += 15000 & 'You fought hard and managed to take 1st place! You get a gold medal, a prize of 15,000 <b>₽</b> and are one step closer to qualifying for the European championship.'
 	end
 	act 'Leave':gt 'fit', 'dressing room'
@@ -362,26 +424,35 @@ if $ARGS[0] = 'evro':
 	'You get in position. Then, you hear the starting shot: The race begins!'
 
 	if begresult <= 16:
+		gs 'fame', 'city', 'running', 6
 		'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made of a fool of yourself. People on the ranks seem to be asking themselves how you even managed to make it this far. Maybe they are right?'
 	elseif begresult < 68:
+		gs 'fame', 'city', 'running', 8
 		'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
 	elseif begresult < 70:
+		gs 'fame', 'city', 'running', 10
 		'You fought hard, but managed to only take the penultimate place (7th place).'
 	elseif begresult < 72:
+		gs 'fame', 'city', 'running', 10
 		'You fought hard, but only managed to take 6th place.'
 	elseif begresult < 74:
+		gs 'fame', 'city', 'running', 10
 		'You fought hard, but only managed to take 5th place.'
 	elseif begresult < 76:
+		gs 'fame', 'city', 'running', 15
 		'You fought hard, but only managed to take 4th place.'
 	elseif begresult < 78:
+		gs 'fame', 'city', 'running', 20
 		razradbegEB += 1
 		money += 10000
 		'You fought hard and managed to take 3rd place, earning a prize. You get a bronze medal and a prize of 10,000 <b>₽</b>'
 	elseif begresult < 80:
+		gs 'fame', 'city', 'running', 20
 		razradbegES += 1
 		money += 15000
 		'You fought hard and managed to take 2nd place, earning a prize. You get a silver medal and a prize of 15,000 <b>₽</b>'
 	elseif begresult >= 80: 
+		gs 'fame', 'city', 'running', 30
 		razradbegEG += 1
 		money += 20000
 		'You fought hard and managed to take 1st place. You get a gold medal, a prize of 20,000 <b>₽</b> and are now the "European Track Champion"!'
@@ -409,26 +480,35 @@ if $ARGS[0] = 'Int':
 	'You get in position. Then, you hear the starting shot: The race begins!'
 	
 	if begresult < 18:
+		gs 'fame', 'city', 'running', 10
 		'But you barely managed to reach the finish line, walking the last 100 meters. Of course, you came in last - but you also made of a fool of yourself. People on the ranks seem to be asking themselves how you even managed to make it this far. Maybe they are right?'
 	elseif begresult < 82:
+		gs 'fame', 'city', 'running', 15
 		'You fought hard but still have a lot of work ahead of you if you want to be better than your competition. You only came in last (8th place).'
 	elseif begresult < 85:
+		gs 'fame', 'city', 'running', 20
 		'You fought hard, but managed to only take the penultimate place (7th place).'
 	elseif begresult < 88:
+		gs 'fame', 'city', 'running', 20
 		'You fought hard, but only managed to take 6th place.'
 	elseif begresult < 91:
+		gs 'fame', 'city', 'running', 20
 		'You fought hard, but only managed to take 5th place.'
 	elseif begresult < 94:
+		gs 'fame', 'city', 'running', 25
 		'You fought hard, but only managed to take 4th place.'
 	elseif begresult < 97:
+		gs 'fame', 'city', 'running', 30
 		razradbegIB += 1
 		money += 30000
 		'You fought hard and managed to take 3rd place, earning a prize. You get a bronze medal and a prize of 30,000 <b>₽</b>'
 	elseif begresult < 100:
+		gs 'fame', 'city', 'running', 35
 		razradbegIS += 1
 		money += 50000
 		'You fought hard and managed to take 2nd place, earning a prize. You get a silver medal and a prize of 50,000 <b>₽</b>'
 	elseif begresult >= 100:
+		gs 'fame', 'city', 'running', 50
 		razradbegIG += 1
 		money += 100000
 		'You fought hard and managed to take 1st place. You get a gold medal, a prize of 100,000 <b>₽</b> and the title "World Track Champion" - YOU are the fastest woman alive!'

locations/body.qsrc

@@ -1794,6 +1794,8 @@ end
 !!Moved to base calculation in "body_shape"; bimbobeauty = Bimbo bonus; pcs_lip = lip size; skin = skin condition; pcs_lashes = eyelashes; pcs_eyesize = eyes; bodykoef = hips:waist ratio; pcs_teeth = missing teeth; vidagebonus = youth
 !!Removed as primary appearance factors; will be eventually used in an NPC preference system instead; tanKoef = suntan
 pcs_apprnc = pcs_apprncbase + CloAdjustedBeauty + mopkoef + (pcs_hairbsh * 10) + lipbalmKoef + (pcs_breath * 5) - sweatKoef - glassvnesh - dyevmod - hairkoef - legkoef + panty_beautybounus + bra_beautybounus
+!!adjustment to make max achievable
+pcs_apprnc = pcs_apprnc*200/170
 
 if pcs_apprnc >= 200: pcs_apprnc = 200
 pcs_apprnc = pcs_apprnc + supnatvnesh

locations/bras.qsrc

@@ -20,8 +20,8 @@ if $ARGS[0] = 'remove':
 end
 
 if $ARGS[0] = 'wear':
+	bra_none = 0
 	if $ARGS[1] = '':
-		bra_none = 0
 		if $lastwornbratype ! '':
 			$braworntype = $lastwornbratype
 			brawornnumber = lastwornbranumber
@@ -68,7 +68,7 @@ if $ARGS[0] = 'view_bra_list':
 
 	i = 1
 	:loopcheapbras
-	if cheap_brasS[i] = metka_bras and cheap_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''cheap'', <<i>>"><img src="images/pc/bras/basic/<<i>>.jpg" 	height="300" /></a>'
+	if cheap_brasS[i] = metka_bras and cheap_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''cheap'', <<i>>"><img src="images/pc/bras/basic/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('cheap_bras'):jump 'loopcheapbras'
 
@@ -76,7 +76,7 @@ if $ARGS[0] = 'view_bra_list':
 
 	i = 1
 	:loopboutiquebras 
-	if boutique_brasS[i] = metka_bras and boutique_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''boutique'', <<i>>"><img src="images/pc/bras/boutique/<<i>>.jpg" 	height="300" /></a>'
+	if boutique_brasS[i] = metka_bras and boutique_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''boutique'', <<i>>"><img src="images/pc/bras/boutique/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('boutique_bras'):jump 'loopboutiquebras'
 
@@ -84,7 +84,7 @@ if $ARGS[0] = 'view_bra_list':
 
 	i = 1
 	:loopexhibitionistbras 
-	if exhibitionist_brasS[i] = metka_bras and exhibitionist_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''exhibitionist'', <<i>>"><img src="images/pc/bras/exhibitionist/<<i>>.jpg" 	height="300" /></a>'
+	if exhibitionist_brasS[i] = metka_bras and exhibitionist_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''exhibitionist'', <<i>>"><img src="images/pc/bras/exhibitionist/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('exhibitionist_bras'):jump 'loopexhibitionistbras'
 
@@ -92,7 +92,7 @@ if $ARGS[0] = 'view_bra_list':
 
 	i = 1
 	:loopfashionistabras 
-	if fashionista_brasS[i] = metka_bras and fashionista_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''fashionista'', <<i>>"><img src="images/pc/bras/fashionista/<<i>>.jpg" 	height="300" /></a>'
+	if fashionista_brasS[i] = metka_bras and fashionista_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''fashionista'', <<i>>"><img src="images/pc/bras/fashionista/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('fashionista_bras'):jump 'loopfashionistabras'
 
@@ -100,7 +100,7 @@ if $ARGS[0] = 'view_bra_list':
 
 	i = 1
 	:loopkatsbras 
-	if kats_brasS[i] = metka_bras and kats_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''kats'', <<i>>"><img src="images/pc/bras/kats/<<i>>.jpg" 	height="300" /></a>'
+	if kats_brasS[i] = metka_bras and kats_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''kats'', <<i>>"><img src="images/pc/bras/kats/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('kats_bras'):jump 'loopkatsbras'
 
@@ -108,7 +108,7 @@ if $ARGS[0] = 'view_bra_list':
 
 	i = 1
 	:loopsexshopbras 
-	if sexshop_brasS[i] = metka_bras and sexshop_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''sexshop'', <<i>>"><img src="images/pc/bras/sexshop/<<i>>.jpg" 	height="300" /></a>'
+	if sexshop_brasS[i] = metka_bras and sexshop_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''sexshop'', <<i>>"><img src="images/pc/bras/sexshop/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('sexshop_bras'):jump 'loopsexshopbras'
 
@@ -116,7 +116,7 @@ if $ARGS[0] = 'view_bra_list':
 
 	i = 1
 	:loopsportbras 
-	if sport_brasS[i] = metka_bras and sport_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''sport'', <<i>>"><img src="images/pc/bras/sport/<<i>>.jpg" 	height="300" /></a>'
+	if sport_brasS[i] = metka_bras and sport_bras[i] = 1:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''<<$ARGS[1]>>'', ''sport'', <<i>>"><img src="images/pc/bras/sport/<<i>>.jpg" 	height="150" /></a>'
 	i += 1
 	if i <= ARRSIZE('sport_bras'):jump 'loopsportbras'
 end

locations/brosh.qsrc

@@ -7,13 +7,13 @@ gs 'stat'
 evgentipe = rand(0,3)
 
 if evgentipe = 0:
-	'During the break you are greeted by Zhendos, a friend of your brother "<<$pcs_nickname>>! My little pet, meet me after school."'
+	'During the break you are greeted by Zhendos, a friend of your brother "<<$pcs_nickname>>! My little pet, come with me."'
 
-	act 'After school "meeting"':
+	act 'Go with him':
 		cls
 		gs'stat'
 
-		'You meet Zhendos after school, behind the bike sheds.'
+		'You follow Zhendos behind the bike sheds.'
 
 		act 'Suck Zhendos':
 			cls
@@ -27,31 +27,30 @@ if evgentipe = 0:
 
 			act 'Suck':
 				cls
-				spafinloc = 12
-				gs 'cum_manage'
+				gs 'cum_call', 'mouth', 'Zhendos', 1
 				swallow += 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum50.jpg"></center>'
-				'Zhendos did not last long and fills you mouth with sperm, you quickly swallow it down.'
+				'Zhendos doesn''t last long and fills you mouth with sperm, you quickly swallow it down.'
 
 				gs 'arousal', 'bj', 10, 'sub'
 				gs 'arousal', 'end'
 				gs 'stat'
 
-				act 'Continue': gt 'gschool_lessons', 'short_break'
+				act 'Go back inside': gt 'gschool_lessons', 'short_break'
 			end
 		end
 	end
 
 	exit
 elseif evgentipe = 1:
-	'During the break you are greeted by Mishan, a friend of your brother "<<$pcs_nickname>>! Let''s meet up school, I have sweetie for you."'
+	'During the break you are greeted by Mishan, a friend of your brother "<<$pcs_nickname>>! Come with me, I have a treat for you."'
 
-	act 'After school "meeting"':
+	act 'Go with him':
 		cls
 		gs'stat'
 
-		'You meet Mishan after school, behind the bike sheds'
+		'You follow Mishan behind the bike sheds.'
 
 		act 'Suck Mishanya':
 			cls
@@ -65,31 +64,30 @@ elseif evgentipe = 1:
 
 			act 'Suck':
 				cls
-				spafinloc = 12
-				gs 'cum_manage'
+				gs 'cum_call', 'mouth', 'Mishan', 1
 				swallow += 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/bscum'+rand(1,2)+'.jpg"></center>'
-				'Mishan did not last long and fills you mouth with sperm, you quickly swallow it down.'
+				'Mishan doesn''t last long and fills you mouth with sperm, you quickly swallow it down.'
 
 				gs 'arousal', 'bj', 10, 'sub'
 				gs 'arousal', 'end'
 				gs 'stat'
 
-				act 'Continue': gt 'gschool_lessons', 'short_break'
+				act 'Go back inside': gt 'gschool_lessons', 'short_break'
 			end
 		end
 	end
 
 	exit
 elseif evgentipe = 2:
-	'During the break you see your brother Kolka "<<$pcs_nickname>>! Let''s meet after school, I need to relieve some tension."'
+	'During the break you see your brother Kolka "<<$pcs_nickname>>! Follow me, I need to relieve some tension."'
 
-	act 'After school "meeting"':
+	act 'Go with him':
 		cls
 		gs'stat'
 
-		'You meet Kolka after school, behind the bike sheds'
+		'You follow Kolka behind the bike sheds'
 		gs 'boyStat', 'A34'
 		act 'Suck Kolka':
 			cls
@@ -103,23 +101,22 @@ elseif evgentipe = 2:
 
 			act 'Suck':
 				cls
-				spafinloc = 12
-				gs 'cum_manage'
+				gs 'cum_call', 'mouth', 'Kolka', 1
 				swallow += 1
 				gs 'stat'
 
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/cum43.jpg"></center>'
-				'Kolka did not last long and fills you mouth with sperm, you make a show of swallowing it.'
+				'Kolka doesn''t last long and fills you mouth with sperm, you make a show of swallowing it.'
 
 				gs 'arousal', 'bj', 10, 'sub', 'incest'
 				gs 'arousal', 'end'
 				gs 'stat'
 
-				act 'Continue': gt 'gschool_lessons', 'short_break'
+				act 'Go back inside': gt 'gschool_lessons', 'short_break'
 			end
 		end
 		if brotherSex > 6:
-			act 'Bend':
+			act 'Bend over':
 				cls
 				pose = 1
 				brosh_rand1 = rand(0,100)
@@ -139,42 +136,36 @@ elseif evgentipe = 2:
 
 				gs 'brother', 'brotherSexEnd'
 
-				act 'Continue': gt 'gschool_lessons', 'short_break'
+				act 'Go back inside': gt 'gschool_lessons', 'short_break'
 			end
 		end
 	end
 
 	exit
 elseif evgentipe = 3:
-	'During the break you are greeted by Zhendos and Mishan, friends of your brother. "<<$pcs_nickname>>! You are our after school entertainment."'
+	'During the break you are greeted by Zhendos and Mishan, friends of your brother. "<<$pcs_nickname>>! Come with ust."'
 
-	act 'After school "meeting"':
+	act 'Go with them':
 		cls
 		gs'stat'
 
-		'You meet Zhendos and Mishan after school, behind the bike sheds'
+		'You follow Zhendos and Mishan behind the bike sheds'
 
 		act 'Suck Guys':
 			cls
-			gs 'boyStat', 'A58'
-			spafinloc = 12
-			sexpartkno = 1
-			gs 'cum_manage'
-			gs 'boyStat', 'A59'
-			spafinloc = 12
-			sexpartkno = 1
-			gs 'cum_manage'
-			swallow += 1
+			gs 'cum_call', 'mouth', 'Zhendos', 1
+			gs 'cum_call', 'mouth', 'Mishan', 1
+			swallow += 2
 			gs'stat'
 
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/bs2.jpg"></center>'
-			'You crouch down in front of the guys as they pull out their cocks, you take turns stroking and suck each of them. The guys don''t last long and take turns finishing in your mouth, you swallow their seed hungrily.'
+			'You crouch down in front of the guys as they pull out their cocks, you take turns stroking and sucking each of them. The guys don''t last long and take turns finishing in your mouth, you swallow their seed hungrily.'
 
 			gs 'arousal', 'bj', 10, 'sub', 'group'
 			gs 'arousal', 'end'
 			gs 'stat'
 
-			act 'Continue': gt 'gschool_lessons', 'short_break'
+			act 'Go back inside': gt 'gschool_lessons', 'short_break'
 		end
 	end
 

locations/brother2.qsrc

@@ -86,8 +86,58 @@ if $ARGS[0] = 'chat':
 	act'Continue':gt'brother','start'
 end
 
+if $ARGS[0] = 'nattalk':
+	*clr & cla
+	minut += 15
+	gs 'stat'
+	'<center><b><font color="maroon">Kolka</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
+	'"So Kolka, did you like what you saw in the stairway?" You ask him coyly.'
+	'"I was wondering if you did that for my benefit." He says hesitantly.'
+	'"Well? Did you like it?"'
+	'"Ofcourse I did, Natasha wasn''t wearing any panties, I could see everything."'
+	'"She was wearing panties." You say with a grin. "I had stuffed them in her tight pussy."'
+	'"You? Wow. That''s hot."'
+	if kolkawantsnat = 0:
+		act 'Offer to set something up between them':
+			*clr & cla
+			natkolkatease += 1
+			kolkawantsnat = 1
+			'<center><b><font color="maroon">Kolka</font></b></center>'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
+			if brotherSex > 6:	
+				'"Would you like to fuck Natasha too? I could arrange something."'
+				'"Could I?" He asks in disbelief.'
+				'"Only if you promise to do exactly as I say."'
+			elseif npc_rel['A34'] >= 50:
+				'"Since you''re constantly sporting a boner lately I thought I''d help you out a bit. Would you like me to set something up with Natasha?"'
+				'"You''d be the best sister ever if you did." He says, grinning from ear to ear.'
+				'"But you''ll have to promise to do exactly as I say."'
+			else
+				'"Look Kolka, I know we haven''t been very close lately. So I wanted to try and make it up to you. I was thinking I could help you hook you up with Natasha."'
+				'Kolka looks at you dubiously. "Why would you do that?"'
+				'"Do I need a reason to try and be a better sister? Do you want me to set it up or not?"'
+				'"How would that work?"'
+				'"Just trust me. As long as you do as I tell you it''ll work out."'
+			end
+			'"Ofcourse, I promise." He says without hesitation.'
+			'"Good, I''ll keep you informed."'
+			act'Continue':gt'brother','start'
+		end
+	end
+	act 'Tease him':
+		*clr & cla
+		'<center><b><font color="maroon">Kolka</font></b></center>'
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
+		'"She was dripping wet all day long." You say, eyeing the growing bulge in his pants.'
+		'You lean in close to him and whisper in his ear: "Now you''ll have something to jerk off to tonight."'
+		act'Continue':gt'brother','start'
+	end
+end
+
 if $ARGS[0] = 'kiss':
 	gs 'arousal', 'kiss', rand(1,5)
+	gs 'stat'
 	brotherkiss += 1
 	'<center><video autoplay loop src="images/shared/sex/kiss/kiss_lips.mp4"></video></center>'
 	'With your stepfather gone, you take the opportunity you have and start kissing your brother.'
@@ -119,13 +169,14 @@ if $ARGS[0] = 'kiss2':
 end
 
 if $ARGS[0] = 'kiss_end':
-	gs 'arousal', 'end'
 	cla & *clr
 	'<center><b><font color = maroon>Kolka</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
 	'Eventually, you the two of you reluctantly pull apart.'
 	'"Better stop before we get caught," you say breathlessly.'
 	'"Yeah..."'
+	gs 'arousal', 'end'
+	gs 'stat'
 	act'Finish':gt 'sitrPar'
 end
 
@@ -134,6 +185,7 @@ if $ARGS[0] = 'hj':
 	npc_rel['A34'] += 1
 	cla & *clr
 	gs 'arousal', 'hj', rand(1,3)
+	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/homework/hj.jpg"></center>'
 	'Snaking your hand into his pants, you pull out his cock, jerking him off with the same vigor you continue to kiss him with.'
 	brohj = 1
@@ -141,6 +193,7 @@ if $ARGS[0] = 'hj':
 		cla
 		*nl
 		gs 'arousal', 'hj', rand(1,3)
+		gs 'stat'
 		'You continue to give him a handjob while making out with him until you feel his body start to stiffen beneath yours. You think he''s probably about to cum.'
 		act'Let him cum in your hand':
 			cla & *clr
@@ -148,6 +201,7 @@ if $ARGS[0] = 'hj':
 			'Not stopping, you quicken your pace until you feel ropes of his thick cum spattering against your hand.'
 			'Moving your head back, you survey your handiwork before smiling back at him and leaning in for a peck on the lips before getting up to find some tissues for your brother and to wash off your hand.'
 			gs 'arousal', 'end'
+			gs 'stat'
 			act 'Finish': gt 'sitrPar'
 		end
 		act'Put your lips over the tip':
@@ -155,6 +209,7 @@ if $ARGS[0] = 'hj':
 			gs 'arousal', 'bj', 1
 			gs 'cum_call', 'mouth', 'A34', 1
 			gs 'arousal', 'end'
+			gs 'stat'
 			npc_rel['A34'] += 3
 			swallow += 1
 			if brotherSex < 6: brotherSex = 6
@@ -174,6 +229,7 @@ if $ARGS[0] = 'bj':
 	cla & *clr
 	npc_rel['A34'] += 2
 	gs 'arousal', 'bj', rand(1,5)
+	gs 'stat'
 	if brotherSex < 6: brotherSex = 6
 	brotherbj += 1
 	if $clothingworntype = 'nude' and $braworntype = 'none':
@@ -194,6 +250,7 @@ if $ARGS[0] = 'bj':
 		swallow += 1
 		gs 'cum_call', 'mouth', 'A34', 1
 		gs 'arousal', 'end'
+		gs 'stat'
 		'<center><video autoplay loop src="images/characters/pavlovsk/resident/kolka/event/homework/swallow.mp4"></video></center>'
 		'You diligently continue to blow him until you feel his hot cum spurting into your mouth. Gathering it all up, your remove your lips from Kolka''s cock, tilting your head back and swallowing at the same time.'
 		'"I can''t believe you just swallowed like that," he says, breathless.'
@@ -207,6 +264,7 @@ if $ARGS[0] = 'bj':
 		'<center><video src="images/shared/sex/cum/facial/facial0,3.mp4"></center>'
 		gs 'cum_call', 'face', 'A34', 1
 		gs 'arousal', 'end'
+		gs 'stat'
 		'You quickly pull back and kneel in front of Kolka as he furiously jerks off in front of you. You close your eyes just as you feel his hot cum spatter against your face, flinching as it does. When he''s finally done, you feel a few droplets drip down your cheeks onto the carpeted floor.'
 		'Peeking through cum-slathered eyes, you look at your brother, saying, "Maybe we shouldn''t have done it like this. Now we need to clean up before someone spots us."'
 		'Leaving Kolka to clean his semen out of the carpet, you slink towards the bathroom to wash off your face.'
@@ -234,6 +292,7 @@ if $ARGS[0] = 'bj':
 			'"Maybe we shouldn''t have finished like that..." you say, smiling wistfully at your brother.'
 			'Leaving Kolka to clean his semen out of the carpet, you slink towards the bathroom to wipe off .'
 			gs 'arousal', 'end'
+			gs 'stat'
 			act'Finish':gt'vanrPar'
 		end
 	end
@@ -250,7 +309,6 @@ if $ARGS[0] = 'wakeup':
 	*nl
 	act'Leave him alone':
 		cla
-		*nl
 		'You shrug, realizing that you''re not going to find a way to wake him up any time soon without him being mad at you and decide to leave him be.'
 		act'Move away':gt $loc, $metka
 	end
@@ -258,7 +316,6 @@ if $ARGS[0] = 'wakeup':
 	act'Yank his blanket off':
 		brotherMorningSex = daystart
 		cla
-		*nl
 		'"Come on Kolka! Wake. UP!"'
 		if $clothingworntype = 'nude':
 			'With a mighty tug, you yank the blanket off of him, leaving him clutching himself and shivering on the couch. After a few moments, he forces his eyes open, blinking wearily as he sits up on the couch and shamelessly glances up and down your naked body.'
@@ -292,99 +349,27 @@ if $ARGS[0] = 'wakeup':
 		
 	if brotherSex >= 2 or pcs_inhib >= 35 or npc_rel['A34'] >= 75:
 		act'Tell him you''ll show him your tits':
-			cla	
-			*nl
+			cla
+			brotherMorningSex = daystart
 			'"I''ll tell you what Kolka, if you get up now, I''ll let you look at my tits."'
-			if $clothingworntype = 'nude' and $braworntype = 'none':
-				'He cracks open an eye. "I don''t need to get up to do that."'
-				'You look down at yourself and remember that you''re already topless. Right. That wasn''t a very good plan...'
-				act'Back to the drawing board':gt'brother2','wakeup'
-			end
-			
+			gs 'brother2', 'wakeupresponse', 'tits'
 			if $clothingworntype ! 'nude':
 				act'Pull up your top':
-					brotherMorningSex = daystart
-					cla & *clr
-					npc_rel['A34'] += 4
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/titflash<<rand(1,4)>>.jpg"></center>'
-					'Following through on your promise, you lift up your top, revealing your breasts to your brother. Still tired, he smiles only faintly in satisfaction.'
-					'"There. Happy now?"'
-					if brotherwaketrick = 1:
-						'"Pretty happy, yeah. Especially since you actually kept your promise this time."'
-						'You gently lower your top again, not really sure what to say to that. He is right. You didn''t keep your promise last time.'
-						'"Well, I followed through this time. Hopefully you''ll forgive me. Now go get dressed Kolka."'
-						brotherwaketrick = 2
-					else
-						'"Very."'
-						'"Good." You cover yourself up, putting your clothes back in place. "Now go get dressed."'
-					end
-					'"Alright," he says, yawning one more time before folding his blanket for storage and beginning the process of getting ready for school.'
-					act'Move away':gt $loc, $metka
+					$whatshow = 'top'
+					gt 'brother2', 'show'
 				end
-			end
-			if $braworntype ! 'none':
+			elseif $clothingworntype = 'nude' and $braworntype ! 'none':
 				act'Pull down your bra':
-					brotherMorningSex = daystart
-					cla & *clr
-					npc_rel['A34'] += 4
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/titflash5.jpg"></center>'
-					'Following through on your promise, you pull down your bra, revealing your breasts to your brother. Still tired, he smiles only faintly in satisfaction.'
-					'"There. Happy now?"'
-					if brotherwaketrick = 1:
-						'"Pretty happy, yeah. Especially since you actually kept your promise this time."'
-						'You gently lower your top again, not really sure what to say to that. He is right. You didn''t keep your promise last time.'
-						'"Well, I followed through this time. Hopefully you''ll forgive me. Now go get dressed Kolka."'
-						brotherwaketrick = 2
-					else
-						'"Very."'
-						'"Good." You cover yourself up, putting your clothes back in place. "Now go get dressed."'
-					end
-					'"Alright," he says, yawning one more time before folding his blanket for storage and beginning the process of getting ready for school.'
-					act'Move away':gt $loc, $metka
+					$whatshow = 'bra'
+					gt 'brother2', 'show'
 				end
-			end
-			
+			end		
 			if $clothingworntype ! 'nude' or $braworntype ! 'none':
 				act'Trick him and don''t do it':
-					cla & *clr
-					brotherMorningSex = daystart
-					brotherwaketrick = 1
-					npc_rel['A34'] -= 5
-					'<center><b><font color="maroon">Kolka</font></b></center>'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
-					'You wait for him to be more or less fully awake before snatching his blanket and move away.'
-					'"Hey!" he cries. "What are you doing?"'
-					'"I''m leaving. What the hell is wrong with you? You really thought I was gonna show you my tits?"'
-					if brotherSex = 2 or brotherSex = 3:
-						'"You''ve let me look at you before!"'
-						'"Yeah well, this isn''t ''before''. I''m not doing it today."'
-					elseif brotherSex >= 4:
-						'"You''ve done so much with me before!"'
-						'"Yeah well, this isn''t ''before''. I''m not doing anything today."'
-					end
-					'"Liar!" he screams at you.'
-					'"Listen here you little-!"'
-					'<b><i>"Hey!"</i></b> your mother shouts from the bedroom. "What is all this racket going on so early in the morning?! You two get along or so help me I will spank you! I don''t care how old you are!"'
-					'Glaring silently at one another, the two of you retreat after a ceasefire being called by your mother. This probably wasn''t good for your relationship though...'
-					act'Move away':gt $loc, $metka
+					$whatshow = 'tits'
+					gt 'brother2', 'trick'
 				end
 			end
-			
-			if brotherwaketrick = 1 and ($clothingworntype ! 'nude' or $braworntype ! 'none'):
-				'He opens his eyes slowly, looking at you with suspicion.'
-				'"You''re not just going to leave like you did last time are you?"'
-				'"No Kolka."'
-				'"You promise? For real this time?"'
-				'"I promise."'
-				'He pulls back his blanket and sits up, rubbing the sleep from his eyes to focus on you.'
-			elseif $clothingworntype ! 'nude' or $braworntype ! 'none':
-				'He opens his eyes slowly, looking at you with suspicion.'
-				'"This isn''t just some trick to get me out of bed?"'
-				'"No Kolka."'
-				'"You promise?"'
-				'"I promise."'
-				'He pulls back his blanket and sits up, rubbing the sleep from his eyes before focus on you.'
-			end
 		end
 	end
 	if brotherSex >= 3  or pcs_inhib >= 45 or npc_rel['A34'] >= 80:
@@ -392,25 +377,7 @@ if $ARGS[0] = 'wakeup':
 			cla
 			brotherMorningSex = daystart
 			'"I''ll tell you what Kolka, if you get up now, I''ll show you my pussy."'
-			if $clothingworntype = 'nude':
-				'He cracks open an eye. "I don''t need to get up to do that."'
-				'You look down at yourself and remember that you''re naked. Right. That wasn''t a very good plan...'
-				act'Back to the drawing board':gt'brother2','wakeup'
-			elseif brotherwaketrick = 1:
-				'He opens his eyes slowly, looking at you with suspicion.'
-				'"You''re not just going to leave like you did last time are you?"'
-				'"No Kolka."'
-				'"You promise? For real this time?"'
-				'"I promise."'
-				'He pulls back his blanket and sits up, rubbing the sleep from his eyes to focus on you.'
-			else
-				'He opens his eyes slowly, looking at you with suspicion.'
-				'"This isn''t just some trick to get me out of bed?"'
-				'"No Kolka."'
-				'"You promise?"'
-				'"I promise."'
-				'He pulls back his blanket and sits up, rubbing the sleep from his eyes before focus on you.'
-			end
+			gs 'brother2', 'wakeupresponse', 'pussy'
 			if $clothingworntype ! 'nude' or $pantyworntype ! 'none':
 				act'Expose yourself':
 					cla & *clr
@@ -432,32 +399,13 @@ if $ARGS[0] = 'wakeup':
 				end
 			
 				act'Trick him and don''t do it':
-					cla & *clr
-					brotherwaketrick = 1
-					npc_rel['A34'] -= 5
-					'<center><b><font color="maroon">Kolka</font></b></center>'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
-					'You wait for him to be more or less fully awake before snatching his blanket and move away.'
-					'"Hey!" he cries. "What are you doing?"'
-					'"I''m leaving. What the hell is wrong with you? You really thought I was gonna show you my pussy?"'
-					if brotherSex = 2 or brotherSex = 3:
-						'"You''ve let me look at you before!"'
-						'"Yeah well, this isn''t ''before''. I''m not doing it today."'
-					elseif brotherSex >= 4:
-						'"You''ve done so much with me before!"'
-						'"Yeah well, this isn''t ''before''. I''m not doing anything today."'
-					end
-					'"Liar!" he screams at you.'
-					'"Listen here you little-!"'
-					'<b><i>"Hey!"</i></b> your mother shouts from the bedroom. "What is all this racket going on so early in the morning?! You two get along or so help me I will spank you! I don''t care how old you are!"'
-					'Glaring silently at one another, the two of you retreat after a ceasefire being called by your mother. This probably wasn''t good for your relationship though...'
-					act'Move away':gt $loc, $metka
+					$whatshow = 'pussy'
+					gt 'brother2', 'trick'
 				end
 			end
 		end
 	end
 			
-	
 	if brotherSex >= 5 or pcs_inhib >= 50 or npc_rel['A34'] >= 85:
 		act'Tell him you''ll give him a handjob':
 			npc_rel['A34'] += 5
@@ -480,6 +428,7 @@ if $ARGS[0] = 'wakeup':
 				'Your duty done, you pull your now sticky hand back, saying, "Alright Kolka. A deal''s a deal. Now clean up and get dressed before <<$npc_nickname[''A29'']>> comes out here and sees you like this."'
 				'"Alright!" he says cheerfully, waddling away with his pants around his ankles to find some tissues to clean himself up.'
 				gs 'arousal', 'end'
+				gs 'stat'
 				act'Move away':gt $loc, $metka
 			end
 		end
@@ -512,14 +461,95 @@ if $ARGS[0] = 'wakeup':
 				'"Glad I could help I guess," you reply, giving his cock a few more licks to make sure it''s clean. "Now go get dressed for school. Before <<$npc_nickname[''A29'']>> comes out and yells at you for having your dick hanging out."'
 				'"Okay, okay," he says, getting up and tidying up the couch from where he was sleeping.'
 				gs 'arousal', 'end'
+				gs 'stat'
 				act'Move away':gt $loc, $metka
 			end
 		end
 	end
 end
 
+if $ARGS[0] = 'wakeupresponse':
+	if $ARGS[1] = 'tits' and $clothingworntype = 'nude' and $braworntype = 'none':
+		'He cracks open an eye. "I don''t need to get up to do that."'
+		'You look down at yourself and remember that you''re already topless. Right. That wasn''t a very good plan...'
+		act'Back to the drawing board':gt'brother2','wakeup'
+	elseif $ARGS[1] = 'pussy' and $clothingworntype = 'nude' and $pantyworntype = 'none':
+		'He cracks open an eye. "I don''t need to get up to do that."'
+		'You look down at yourself and remember that you''re naked. Right. That wasn''t a very good plan...'
+		act'Back to the drawing board':gt'brother2','wakeup'
+	elseif brotherwaketrick = 1:
+		'He opens his eyes slowly, looking at you with suspicion.'
+		'"You''re not just going to leave like you did last time are you?"'
+		'"No Kolka."'
+		'"You promise? For real this time?"'
+		'"I promise."'
+		'He pulls back his blanket and sits up, rubbing the sleep from his eyes before focusing on you.'
+	else
+		'He opens his eyes slowly, looking at you with suspicion.'
+		'"This isn''t just some trick to get me out of bed?"'
+		'"No Kolka."'
+		'"You promise?"'
+		'"I promise."'
+		'He pulls back his blanket and sits up, rubbing the sleep from his eyes before focusing on you.'
+	end
+end
+
+if $ARGS[0] = 'show':
+	brotherMorningSex = daystart
+	cla & *clr
+	npc_rel['A34'] += 4
+	if $whatshow = 'top':
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/titflash<<rand(1,4)>>.jpg"></center>'
+		'Following through on your promise, you lift up your top, revealing your breasts to your brother. Still tired, he smiles only faintly in satisfaction.'
+	elseif $whatshow = 'bra':
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/titflash5.jpg"></center>'
+		'Following through on your promise, you pull down your bra, revealing your breasts to your brother. Still tired, he smiles only faintly in satisfaction.'
+	end
+	'"There. Happy now?"'
+	if brotherwaketrick = 1:
+		'"Pretty happy, yeah. Especially since you actually kept your promise this time."'
+		if $whatshow = 'top':
+			'You gently lower your top again, not really sure what to say to that. He is right. You didn''t keep your promise last time.'
+		elseif $whatshow = 'bra':
+			'You gently pull your bra up again, not really sure what to say to that. He is right. You didn''t keep your promise last time.'
+		end
+		'"Well, I followed through this time. Hopefully you''ll forgive me. Now go get dressed Kolka."'
+		brotherwaketrick = 2
+	else
+		'"Very."'
+		'"Good." You cover yourself up, putting your clothes back in place. "Now go get dressed."'
+	end
+	'"Alright," he says, yawning one more time before folding his blanket for storage and beginning the process of getting ready for school.'
+	act'Move away':gt $loc, $metka
+end
+
+if $ARGS[0] = 'trick':
+	cla & *clr
+	brotherMorningSex = daystart
+	brotherwaketrick = 1
+	npc_rel['A34'] -= 5
+	'<center><b><font color="maroon">Kolka</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
+	'You wait for him to be more or less fully awake before snatching his blanket and move away.'
+	'"Hey!" he cries. "What are you doing?"'
+	'"I''m leaving. What the hell is wrong with you? You really thought I was gonna show you my <<$whatshow>>?"'
+	if brotherSex = 2 or brotherSex = 3:
+		'"You''ve let me look at you before!"'
+		'"Yeah well, this isn''t ''before''. I''m not doing it today."'
+	elseif brotherSex >= 4:
+		'"You''ve done so much with me before!"'
+		'"Yeah well, this isn''t ''before''. I''m not doing anything today."'
+	end
+	'"Liar!" he screams at you.'
+	'"Listen here you little-!"'
+	'<b><i>"Hey!"</i></b> your mother shouts from the bedroom. "What is all this racket going on so early in the morning?! You two get along or so help me I will spank you! I don''t care how old you are!"'
+	'Glaring silently at one another, the two of you retreat after a ceasefire being called by your mother. This probably wasn''t good for your relationship though...'
+	act'Move away':gt $loc, $metka
+end
+
 if $ARGS[0] = 'morninghj':
 	cla & *clr
+	brotherMorningSex = daystart
 	gs 'arousal', 'hj', 5
 	gs 'cum_call','hands', $boy
 	npc_rel['A34'] += 5
@@ -533,10 +563,12 @@ if $ARGS[0] = 'morninghj':
 	'As you think about what you should do to clean it off, you hear him saying, "Handjobs are great and everything, but do you think you could try a blowjob next time instead?"'
 	'"I''ll think about it," you say, rolling your eyes in amusement as you walk away, your brother automatically beginning to get ready for school.'
 	gs 'arousal', 'end'
+	gs 'stat'
 	act'Move away':gt $loc, $metka
 end
 
 if $ARGS[0] = 'morningbj':
+	brotherMorningSex = daystart
 	brotherwakeup += 1
 	cla & *clr
 	gs 'arousal', 'hj', 5
@@ -559,6 +591,7 @@ if $ARGS[0] = 'morningbj':
 	'Swallowing his cum, you flash him a toothy grin. "I know. Now up an at''em kiddo! I don''t do this just so you can go back to sleep."'
 	'Having been given sufficient positive reinforcement, he obediently gets up and starts going about tidying the sofa and getting ready to go to school.'
 	gs 'arousal', 'end'
+	gs 'stat'
 	act'Move away':gt $loc, $metka
 end
 --- brother2 ---------------------------------

locations/brother_voyeur.qsrc

@@ -16,7 +16,7 @@ if npc_QW['A34'] > 20 and npc_QW['A34'] < 25: npc_QW['A34'] = 20
 ! npc_QW['A34']: Quest stages
 ! brotherAge: your age - 2
 ! brotherknowslut: brother knowledge of your sexual activity (1 = seen cum, 2 = groupsex in park)
-! pregTalkBrother: Flag 0/1 Do your brother know you are pregnant
+! npc_pregtalk['A34']: Flag 0/1 Do your brother know you are pregnant
 ! brotherDay:
 ! brotherSexCount: the number of times left that you can have sex with your brother today (resets to 5 each day)
 ! brotherMorningSex: Last day this happend. Used to block to once a day.
@@ -59,7 +59,7 @@ if $ARGS[0] = 'showertalk1':
 		'	"Oh, okay..." he nods, still looking away.'
 		if npc_rel['A34'] <50:npc_rel['A34'] += rand(1,3)
 		
-		if pcs_inhib >= 40 or npc_rel['A34'] >= 50:
+		if pcs_inhib >= 40 or npc_rel['A34'] >= 90:
 			act'"You can look at me you know"':
 				npc_rel['A34'] += 5
 				*clr & cla
@@ -118,6 +118,7 @@ if $ARGS[0] = 'showertalk1':
 end
 
 if $ARGS[0] = 'showertalk2':
+	if npc_QW['A34'] <= 1: npc_QW['A34'] = 2
 	brothershowertalk += 1
 	npc_rel['A34'] += rand(2,3)
 	if brothershowerlook = 1:gt'brother_voyeur','brothershowerlook'
@@ -284,6 +285,61 @@ if $ARGS[0] = 'showertalk2':
 				end
 			end
 		end
+		
+		if pcs_horny >= 55:
+			act'Use the showerhead on your pussy':
+				cla & *clr
+				'<center><video src="images/shared/home/bathroom/brothershowertalk.mp4"></center>'
+				'While talking to your brother you can''t help but be distracted from the conversation by the heat of arousal coming from your pussy. A crazy idea comes into your head and you suddenly consider using the showerhead on your pussy while your brother is sitting right there.'
+				'Are you really going to do this?'
+				act'Don''t do it':
+					cla & *clr
+					'<center><video src="images/shared/home/bathroom/brothershowertalk.mp4"></center>'
+					pcs_horny += 10
+					gs 'stat'
+					'Deciding it''s too risky, you continue the conversation normally, though you find yourself unconsciously rubbing your thighs together and the denial of your release increasing your frustration some more.'
+					if pcs_pubes >= 4 or pcs_leghair >= 4:
+						act'Continue':gt'brother_voyeur','shave'
+					else
+						act'Finish showering':gt'brother_voyeur','dryoff'
+					end
+				end
+				act'Do it':
+					menu_off = 1
+					*clr & cla
+					if rand(0, 5) = 0 and obdysh = 1:gt 'vann', 'v4'
+					'<center><video autoplay loop src="images/shared/home/bathroom/wash2.mp4"></center>'
+					'Unable to help yourself, you decide to risk it. After taking a quick look at your brother to make sure he''s still facing away you gently lower the showerhead between your legs.'
+					'As the pressure builds on your pussy your reponses to what your brother is saying become increasingly close to moans, often being monosyllabic or simple hums and your eyes squeeze tight as you concentrate on the sensation.'
+					'"Mmm. Mhmm~! Mmm-MMMM!"'
+					'Finally, release comes and you begin to quiver, bracing yourself with a hand on the slick shower wall as you ride out your orgasm.'
+					act'Calm down':
+						cla & *clr
+						if pcs_inhib < 40:inhib_exp += rand(1,3)
+						pcs_mood += 15
+						pcs_willpwr += 15
+						bro_mast_look = rand(1,3)
+						$orgasm_or = 'yes'
+						gs 'arousal', 'masturbate', 10
+						gs 'arousal', 'end'
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/home/vanrpar.jpg"></center>'
+						if bro_mast_look ! 1:
+							'After taking a few more seconds to calm down, you peek back out at your brother and he doesn''t seem to have noticed anything was amiss. With a quiet sigh of relief, you decide to quickly finish washing up.'
+						else
+							'As your orgasm winds down, you breathe deeply and glance upward towards your brother. You quickly stiffen up when you see what looks to be like the finishing movements of his shoulders turning back forward. Were you so caught up in pleasure that you didn''t notice that he was watching you masturbate in front of him?'
+							'You gulp and try to continue the conversation normally. His responses seem more or less the same and the conversation doesn''t seem to be any different other than a burning in your cheeks. Maybe he didn''t see anything after all? But you can''t be sure...'
+						end
+						
+						if pcs_pubes >= 4 or pcs_leghair >= 4:
+							act'Continue':gt'brother_voyeur','shave'
+						else
+							act'Finish showering':gt'brother_voyeur','dryoff'
+						end
+					end
+				end
+			end
+		end
 	end
 end
 
@@ -687,6 +743,7 @@ if $ARGS[0] = 'brother_shower_together':
 					act'Continue':
 						cla & *clr
 						gs 'arousal','masturbate', 5
+						gs 'stat'
 						mastr += 1
 						orgasm += 1
 						'<center><video src="images/shared/home/bathroom/wash2.mp4"></center>'
@@ -846,6 +903,7 @@ end
 if $ARGS[0] = 'showerfun':
 	if brothergrope < 4:
 		gs 'arousal','breasts', 1
+		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex1.jpg"></center>'
 		'	You squeak as you feel your brother''s hands grab you by the breasts, squeezing hard and pinching your nipples.'
 		if milkedvolume > 0:
@@ -905,6 +963,7 @@ if $ARGS[0] = 'showerfun':
 			*nl
 			gs 'arousal','breasts', 2
 			pcs_horny += 10
+			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 			'	"Ughh... Oh yeah... Keep doing <i>that...</i>"'
 			'	You lean into your brother''s touch, his hands roaming up and down your body, focusing mostly on your breasts. Your hand unconsciously reaches back and grabs hold of his dick, jerking it gently. You think about what you want to do next.'
@@ -913,6 +972,7 @@ if $ARGS[0] = 'showerfun':
 		end
 	else
 		gs 'arousal','breasts', 3
+		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 		'	Feeling turned on from your brother''s hands on you, you lean back into him, teasingly handling his package. He responds in kind, fondling your breasts, eliciting moans when he pinches your nipples.'
 		act'Blow him':gt'brother_voyeur','brother_shower_bj'
@@ -953,6 +1013,7 @@ if $ARGS[0] = 'brother_shower_shave':
 				act'Continue':
 					if brotherfuck > 0 or brotherbj > 0 or brotherwash > 5:
 						gs 'arousal','vaginal_finger', 1
+						gs 'stat'
 						cla & *clr
 						'<center><video src="images/shared/home/bathroom/brotherpussyfeel.mp4"></center>'
 						'	"There," you say, rinsing off the last of the hair, stubble, and lather. "Satisfied?"'
@@ -964,6 +1025,7 @@ if $ARGS[0] = 'brother_shower_shave':
 							cla
 							*nl
 							gs 'arousal','vaginal_finger', 5
+							gs 'stat'
 							'	Unable to help yourself, you grab his wrist and lean into it, letting his fingers work you even harder.'
 							act'Blow him':gt'brother_voyeur','brother_shower_bj'
 							act'Fuck him':gt'brother_voyeur','brother_shower_fuck'
@@ -1005,6 +1067,7 @@ if $ARGS[0] = 'brother_shower_shave':
 						if brotherfuck > 0 or brotherbj > 0 or brotherwash > 5:
 							act'Get frisky':
 								gs 'arousal','breasts', 1
+								gs 'stat'
 								'	Clean from your shower together, and now with freshly shaved legs, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 								act'Blow him':gt'brother_voyeur','brother_shower_bj'
 								act'Fuck him':gt'brother_voyeur','brother_shower_fuck'
@@ -1049,6 +1112,7 @@ if $ARGS[0] = 'brother_shower_shave':
 						if brotherfuck > 0 or brotherbj > 0 or brotherwash > 5:
 							act'Have some fun':
 								gs 'arousal','breasts', 1
+								gs 'stat'
 								'	Clean from your shower together, and now with freshly shaved legs, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 								act'Blow him':gt'brother_voyeur','brother_shower_bj'
 								act'Fuck him':gt'brother_voyeur','brother_shower_fuck'
@@ -1097,6 +1161,7 @@ if $ARGS[0] = 'brother_shower_shave':
 							if brotherfuck > 0 or brotherbj > 0 or brotherwash > 5:
 								act'Have some fun':
 									gs 'arousal','breasts', 1
+									gs 'stat'
 									'	Clean from your shower together, and now with freshly shaved legs, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 									act'Blow him':gt'brother_voyeur','brother_shower_bj'
 									act'Fuck him':gt'brother_voyeur','brother_shower_fuck'
@@ -1150,6 +1215,7 @@ if $ARGS[0] = 'brother_shower_shave':
 								act'Have some fun':
 									cla & *clr
 									gs 'arousal','breasts', 1
+									gs 'stat'
 									'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 									'	Clean from your shower together, and now with freshly shaved legs, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 									act'Blow him':gt'brother_voyeur','brother_shower_bj'
@@ -1183,6 +1249,7 @@ if $ARGS[0] = 'brother_shower_shave':
 									*nl
 									gs 'arousal','vaginal_finger', 5
 									gs 'arousal','breasts', 1
+									gs 'stat'
 									'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 									'	Clean from your shower together, and now with freshly a shaved pussy, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 									act'Blow him':gt'brother_voyeur','brother_shower_bj'
@@ -1204,6 +1271,7 @@ if $ARGS[0] = 'brother_shower_shave':
 					act'Have some fun':
 						cla & *clr
 						gs 'arousal','breasts', 1
+						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 						'	Clean from your shower together, and now with freshly shaved legs, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 						act'Blow him':gt'brother_voyeur','brother_shower_bj'
@@ -1252,6 +1320,7 @@ if $ARGS[0] = 'brother_shower_shave':
 							cla & *clr
 							gs 'arousal','vaginal_finger', 5
 							gs 'arousal','breasts', 1
+							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 							'	Clean from your shower together, and now with freshly a shaved pussy, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 							act'Blow him':gt'brother_voyeur','brother_shower_bj'
@@ -1287,6 +1356,7 @@ if $ARGS[0] = 'brother_shower_shave':
 									cla & *clr
 									gs 'arousal','vaginal_finger', 5
 									gs 'arousal','breasts', 1
+									gs 'stat'
 									'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 									'	Clean from your shower together, and now with freshly a shaved pussy, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 									act'Blow him':gt'brother_voyeur','brother_shower_bj'
@@ -1308,6 +1378,7 @@ if $ARGS[0] = 'brother_shower_shave':
 					pcs_horny += 10
 					'<center><video src="images/shared/home/bathroom/brotherpussyfeel.mp4"></center>'
 					gs 'arousal','vaginal_finger', 1
+					gs 'stat'
 					'	"There," you say, taking your brother''s hand and pressing it against your freshly shaved pubic region. "Happy now?"'
 					'	He takes advantage of the opportunity sliding his fingers down your smooth front of your pussy to slip his fingers inside, forcing a moan from you.'
 					'	"Very," he grins back.'
@@ -1316,6 +1387,7 @@ if $ARGS[0] = 'brother_shower_shave':
 						cla & *clr
 						gs 'arousal','vaginal_finger', 5
 						gs 'arousal','breasts', 1
+						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/shared/home/bathroom/brothershowersex2.jpg"></center>'
 						'	Clean from your shower together, and now with freshly a shaved pussy, you can''t help yourself as you start to get frisky with your brother. His hands slide up your body to caress your breasts. In response, you reach back and start jerking his cock feeling him harden under your touch.'
 						act'Blow him':gt'brother_voyeur','brother_shower_bj'
@@ -1415,7 +1487,7 @@ if $ARGS[0] = 'brother_shower_bj':
 		gs 'arousal', 'bj', rand(1,5)
 		brotherbjfinish = rand(1,2)
 		if brotherbjfinish = 1:
-			gs 'cum_call', 'mouth', $boy
+			gs 'cum_call', 'mouth', 'A34', 1
 			brotherbjcomment = rand(1,2)
 			gs 'stat'
 
@@ -1425,7 +1497,7 @@ if $ARGS[0] = 'brother_shower_bj':
 			'	"Hey <<$pcs_nickname>>," he says through grunts. "I''m gonna cum soon. Can I cum on your face?"'
 			act'Ignore him and keep sucking':
 				cla
-				gs 'cum_call', 'mouth', $boy
+				gs 'cum_call', 'mouth', 'A34', 1
 				gs 'arousal', 'end'
 				gs 'stat'
 				*nl
@@ -1534,8 +1606,11 @@ end
 
 
 if $ARGS[0] = 'shower_swallow':
-	brotherbjcomment = rand(1,2)
 	cla & *clr
+	brotherbjcomment = rand(1,2)
+	gs 'boystat','A34'
+	gs 'cum_call', 'mouth', 'A34', 1
+	gs 'stat'
 	'<center><video src="images/shared/home/bathroom/showerbj.mp4"></center>'
 	if broshowerfuck = daystart:
 		'	Sinking to your knees, you barely put the tip of Kolka''s cock in before he explodes between your lips. Cum fills your mouth and you contemplate what to do with it.'
@@ -1643,7 +1718,7 @@ if $ARGS[0] = 'shower_swallow':
 					act'Only for you(sisterly)':
 						cla
 						*nl
-						'	"Only for you!" You wrap your arms around him, smothering him and rubbing your head against his cheek. "I just love you so so so so so very much! What sister could stop herself from slutting up for such a cute baby brother?"'
+						'	"Only for you!" You wrap your arms around him, smothering him and rubbing your head against his cheek. "I just love you so very much! What sister could stop herself from slutting up for such a cute baby brother?"'
 						'	"Ack!" he cries out and shoves you away. "Get off of me! Weirdo!"'
 						if broshowerfuck = daystart:
 							'	"Hey! What''s wrong with that?" you grin at him. "I''d say it''s pretty weird to for your sister to let you fuck her in the shower. I thought you liked that! Don''t you want me to be a slutty weirdo then?"'
@@ -1710,10 +1785,11 @@ if $ARGS[0] = 'shower_swallow':
 end
 
 if $ARGS[0] = 'shower_facial':
+	cla & *clr
 	brotherbjcomment = rand(1,2)
-	gs 'cum_call', 'face', $boy
+	gs 'boystat','A34'
+	gs 'cum_call', 'face', 'A34', 1
 	gs 'stat'
-	cla & *clr
 	'<center><img <<$set_imgh>> src="images/shared/home/bathroom/facial1.jpg"></center>'
 	if broshowerfuck = daystart:
 		'	You kneel down in front of Kolka, jerking his cock off. He starts to cum and as the first spurt hits you, you squeeze your eyes shut, continuing to jerk your brother until your face is thoroughly coated and feel no more droplets.'
@@ -2029,12 +2105,16 @@ if $ARGS[0] = 'brother_shower_fuck_first2':
 			'	"Is... is that cum? Did you cum inside me?!" you pant.'
 			'	"Y-yeah... I was trying to tell you that I was cumming but you didn''t say anything so..."'
 
-			if pillcon >= 30000 or tabletkishot >= 1:
-				'	<i>Well,</i> you think to yourself, <i>It''s a good thing I''m on birth control.</i>'
-			elseif mesec > 0:
-				'	<i>Well,</i> you think to yourself, <i>I don''t think I can get pregnant when I''m on my period... right...?</i>'
-			else
-				'	<i>Shit...</i> You close your eyes, sighing as you feel another glob of Kolka''s cum drip from your pussy. <i>I fucked up...</i>'
+			if succubusflag = 0:
+				if pillcon >= 30000 or tabletkishot >= 1:
+					'	<i>Well,</i> you think to yourself, <i>It''s a good thing I''m on birth control.</i>'
+				elseif mesec > 0:
+					'	<i>Well,</i> you think to yourself, <i>I don''t think I can get pregnant when I''m on my period... right...?</i>'
+				elseif knowpreg = 1:
+					'	<i>Well,</i> you think to yourself, <i>I''m already pregnant.</i>'
+				else
+					'	<i>Shit...</i> You close your eyes, sighing as you feel another glob of Kolka''s cum drip from your pussy. <i>I fucked up...</i>'
+				end
 			end
 			act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 		else
@@ -2081,6 +2161,7 @@ end
 
 if $ARGS[0] = 'brother_fuck_cum':
 	cla & *clr
+	gs 'boystat','A34'
 	'<center><video src="images/characters/pavlovsk/resident/kolka/event/shower/broshower.mp4"></center>'
 	if brotherfuck ! 1:brothercumchoice = rand(1,4)
 	if brotherfuck = 1:brothercumchoice = 1
@@ -2129,16 +2210,18 @@ if $ARGS[0] = 'brother_fuck_cum':
 			'	Your cries push him over the edge and Kolka can''t hold back any longer. He groans and pulls you tight against him. His cock plunges deep and you feel his cum spurting deep inside you. The sensation brings you to orgasm, body spasming and your pussy tightening up around him, squeezing him to the last drop.	As your orgasm winds down and your legs stop quivering, you lean forward against the shower wall, Kolka''s cock slipping from between your legs.'
 			'	Pressing your face against the wall, you feel Kolka''s cum drip from your pussy.'
 			*nl
-			if knowpreg = 1 or thinkpreg = 1:
-				'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
-			elseif pillcon >= 30000 or tabletkishot >= 1:
-				'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
-				'	<i>It''s a good thing I''m on birth control...</i>'
-			elseif mesec > 0:
-				'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
-				'	<i>It''s a good thing I can''t get pregnant when I''m on my period... right...?</i>'
-			else
-				'	<i>Shit...</i> Another glob of cum dribbles from your pussy, plopping onto the tub floor. <i>What if I get pregnant?</i>'
+			if succubusflag = 0:
+				if knowpreg = 1 or thinkpreg = 1:
+					'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+				elseif tmp = -1 or tmp = -2:
+					'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
+					'	<i>It''s a good thing I''m on birth control...</i>'
+				elseif mesec > 0:
+					'	<i>Fuck, that feels good...</i> you think to yourself as another red white glob dribbles out, plopping onto the tub floor.'
+					'	<i>I can''t get pregnant when I''m on my period... can I...?</i>'
+				else
+					'	<i>Shit...</i> Another glob of cum dribbles from your pussy, plopping onto the tub floor. <i>What if I get pregnant?</i>'
+				end
 			end
 			act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 		end
@@ -2150,7 +2233,7 @@ if $ARGS[0] = 'brother_fuck_cum':
 				gs 'cum_call', 'stomach', 'A34', 1
 				'<center><video src="images/shared/home/bathroom/showercum.mp4"></center>'
 				'	"No! Not inside me!" you cry out. You push him off you and turn around. Grabbing his cock, you jerk him vigorously until he groans, spraying hot cum that spatters all over your stomach.'
-				if pillcon < 30000 and pillday < 18 and tabletkishot < 1:'	Feeling his spunk on your stomach, you suddenly grow annoyed and wonder why you even finished him off. "What the fuck Kolka?! Are you <i>trying</i> to get me pregnant?"'
+				if pillcon < 30000 and pillday < 18 and tabletkishot < 1 and succubusflag = 0 and knowpreg = 0 and thinkpreg = 0:'	Feeling his spunk on your stomach, you suddenly grow annoyed and wonder why you even finished him off. "What the fuck Kolka?! Are you <i>trying</i> to get me pregnant?"'
 				act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 			end
 		end
@@ -2161,7 +2244,7 @@ if $ARGS[0] = 'brother_fuck_cum':
 			gs 'stat'
 			'<center><video src="images/shared/home/bathroom/showercum.mp4"></center>'
 			'	"Not today Kolka." You push your brother off of you and turn around. Grabbing his cock, you jerk him vigorously until he groans, spraying hot cum that spatters all over your stomach.'
-			if pillcon < 30000 and pillday < 18 and tabletkishot < 1 and knowpreg = 0 and thinkpreg = 0:'	"Sorry little brother." You smile apologetically. "I''m not on birth control and I can''t afford to get knocked up. Especially not by my one of my siblings."'
+			if pillcon < 30000 and pillday < 18 and tabletkishot < 1 and succubusflag = 0 and knowpreg = 0 and thinkpreg = 0:'	"Sorry little brother." You smile apologetically. "I''m not on birth control and I can''t afford to get knocked up. Especially not by my one of my siblings."'
 			act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 		end
 
@@ -2183,16 +2266,18 @@ if $ARGS[0] = 'brother_fuck_cum':
 				act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 			else
 				'	You smile mischievously and suddenly speed up, causing your brother to erupt inside you. He groans and you curl your toes in pleasure, feeling his cum spurting deep inside you. It''s not enough to bring you to orgasm, but it still feels good. You tighten up on him and work your hips a little more, trying to milk him for a couple more shots. Finally, Kolka pulls away and as his cock slips from inside you, cum bursts out like your pussy was a champagne bottle uncorked.'
-				if knowpreg = 1 or thinkpreg = 1:
-					'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
-				elseif pillcon >= 30000 or tabletkishot >= 1:
-					'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
-					'	<i>It''s a good thing I''m on birth control...</i>'
-				elseif mesec > 0:
-					'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
-					'	<i>It''s a good thing I can''t get pregnant when I''m on my period... right...?</i>'
-				else
-					'	<i>Shit...</i> Another glob of cum dribbles from your pussy, plopping onto the tub floor. <i>What if I get pregnant?</i>'
+				if succubusflag = 0:
+					if knowpreg = 1 or thinkpreg = 1:
+						'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+					elseif pillcon >= 30000 or tabletkishot >= 1:
+						'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
+						'	<i>It''s a good thing I''m on birth control...</i>'
+					elseif mesec > 0:
+						'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
+						'	<i>It''s a good thing I can''t get pregnant when I''m on my period... right...?</i>'
+					else
+						'	<i>Shit...</i> Another glob of cum dribbles from your pussy, plopping onto the tub floor. <i>What if I get pregnant?</i>'
+					end
 				end
 				act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 			end
@@ -2208,16 +2293,18 @@ if $ARGS[0] = 'brother_fuck_cum':
 			'	Your cries push him over the edge and Kolka can''t hold back any longer. He groans and pulls you tight against him. His cock plunges deep and you feel his cum spurting deep inside you. The sensation brings you to orgasm, body spasming and your pussy tightening up around him, squeezing him to the last drop. As your orgasm winds down and your legs stop quivering, you lean forward against the shower wall, Kolka''s cock slipping from between your legs.'
 			'	Pressing your face against the cool wall, you feel Kolka''s cum drip from your pussy, splashing on the bottom of the tub. You think to yourself...'
 			*nl
-			if knowpreg = 1 or thinkpreg = 1:
-				'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
-			elseif pillcon >= 30000 or tabletkishot >= 1:
-				'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
-				'	<i>It''s a good thing I''m on birth control...</i>'
-			elseif mesec > 0:
-				'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
-				'	<i>It''s a good thing I can''t get pregnant when I''m on my period... right...?</i>'
-			else
-				'	<i>Shit...</i> Another glob of cum dribbles from your pussy, plopping onto the tub floor. <i>What if I get pregnant?</i>'
+			if succubusflag = 0:
+				if knowpreg = 1 or thinkpreg = 1:
+					'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+				elseif pillcon >= 30000 or tabletkishot >= 1:
+					'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
+					'	<i>It''s a good thing I''m on birth control...</i>'
+				elseif mesec > 0:
+					'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
+					'	<i>It''s a good thing I can''t get pregnant when I''m on my period... right...?</i>'
+				else
+					'	<i>Shit...</i> Another glob of cum dribbles from your pussy, plopping onto the tub floor. <i>What if I get pregnant?</i>'
+				end
 			end
 			act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 		end
@@ -2248,16 +2335,18 @@ if $ARGS[0] = 'brother_fuck_cum':
 				'	"But that''s not fair! So what I want doesn''t count for anything?"'
 				'	"Nope! But I get to decide if I''m feeling generous."'
 				'	With Kolka''s hands balled into fists at his side and your hands on your hips, the two of you glare at each other, scowling. This turned into a much bigger argument than you meant it to.'
-				if knowpreg = 1 or thinkpreg = 1:
-					'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
-				elseif pillcon >= 30000 or tabletkishot >= 1:
-					'	<i>Goddamn it,</i> you think, looking down to watch another glob of cum drips from your snatch. <i>Only my idiot brother could ruin a perfectly good creampie like this.</i>'
-					'	<i>At least I''m on birth control...</i>'
-				elseif mesec > 0:
-					'	<i>Goddamn it,</i> you think, looking down to watch another glob of cum drips from your snatch. <i>Only my idiot brother could ruin a perfectly good creampie like this.</i>'
-					'	<i>At least I don''t have to worry about getting pregnant on my period... right...?</i>'
-				else
-					'	<i>Goddamn it,</i> you think, looking down to watch another glob of cum drips from your snatch. <i>Fuck. I shouldn''t have done this anyways. This gets me pregnant?</i>'
+				if succubusflag = 0:	
+					if knowpreg = 1 or thinkpreg = 1:
+						'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+					elseif pillcon >= 30000 or tabletkishot >= 1:
+						'	<i>Goddamn it,</i> you think, looking down to watch another glob of cum drips from your snatch. <i>Only my idiot brother could ruin a perfectly good creampie like this.</i>'
+						'	<i>At least I''m on birth control...</i>'
+					elseif mesec > 0:
+						'	<i>Goddamn it,</i> you think, looking down to watch another glob of cum drips from your snatch. <i>Only my idiot brother could ruin a perfectly good creampie like this.</i>'
+						'	<i>At least I don''t have to worry about getting pregnant on my period... right...?</i>'
+					else
+						'	<i>Goddamn it,</i> you think, looking down to watch another glob of cum drips from your snatch. <i>Fuck. I shouldn''t have done this anyways. This gets me pregnant?</i>'
+					end
 				end
 				act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 			end
@@ -2267,38 +2356,40 @@ if $ARGS[0] = 'brother_fuck_cum':
 				'	"I''m sorry Kolka! Your cock just felt so good, I couldn''t stop! You can''t be mad at me for being too addicted to your cock to stop, right?" You kneel down, trying to apologize by cleaning him up with your tongue.'
 				'	He grumbles a bit but you can tell that he''s not mad at you. "I guess I can''t be mad about that... But next time I ask, I want to cum on your face!"'
 				'	"Okay, it''s a promise!" you say, standing back up and kissing him on the cheek. "So long as I can stop myself that is."'
-				if knowpreg = 1 or thinkpreg = 1:
-					'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
-				elseif pillcon >= 30000 or tabletkishot >= 1:
-					'	<i>Fuck, that felt good...</i> you think to yourself, looking down to watch another glob dribbles out of you with satisfaction.'
-					'	<i>It''s a good thing I''m on birth control...</i>'
-				elseif mesec > 0:
-					'	<i>Fuck, that felt good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
-					'	<i>It''s a good thing I can''t get pregnant when I''m on my period... right...?</i>'
-				else
-					'	<i>Shit... I probably should have had more self control...</i> you think to yourself, watching another glob of cum dribble from your pussy. <i>What if this gets me pregnant?</i>'
+				if succubusflag = 0:	
+					if knowpreg = 1 or thinkpreg = 1:
+						'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+					elseif pillcon >= 30000 or tabletkishot >= 1:
+						'	<i>Fuck, that felt good...</i> you think to yourself, looking down to watch another glob dribbles out of you with satisfaction.'
+						'	<i>It''s a good thing I''m on birth control...</i>'
+					elseif mesec > 0:
+						'	<i>Fuck, that felt good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
+						'	<i>It''s a good thing I can''t get pregnant when I''m on my period... right...?</i>'
+					else
+						'	<i>Shit... I probably should have had more self control...</i> you think to yourself, watching another glob of cum dribble from your pussy. <i>What if this gets me pregnant?</i>'
+					end
 				end
 				act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 			end
-
-			act'Too much mess':
-				cla
-				if knowpreg = 1 or thinkpreg = 1:
-					'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
-				elseif pillcon >= 30000 or tabletkishot >= 1:
-					'	<i>Fuck, that feels good...</i> you think to yourself, looking down to watch another glob dribbles out of you with satisfaction.'
-					'	<i>It''s a good thing I''m on birth control...</i>'
-				elseif mesec > 0:
-					'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
-					'	<i>It''s a good thing I can''t get pregnant when I''m on my period... right...?</i>'
-				else
-					'	<i>Shit...</i> Another glob of cum dribbles from your pussy, plopping onto the tub floor. <i>What if I get pregnant?</i>'
+			
+			if succubusflag = 0:
+				act'Too much mess':
+					cla
+					if knowpreg = 1 or thinkpreg = 1:
+						'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+					elseif pillcon >= 30000 or tabletkishot >= 1:
+						'	<i>Fuck, that feels good...</i> you think to yourself, looking down to watch another glob dribbles out of you with satisfaction.'
+						'	<i>It''s a good thing I''m on birth control...</i>'
+					elseif mesec > 0:
+						'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
+						'	<i>It''s a good thing I can''t get pregnant when I''m on my period... right...?</i>'
+					else
+						'	<i>Shit...</i> Another glob of cum dribbles from your pussy, plopping onto the tub floor. <i>What if I get pregnant?</i>'
+					end
+					act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 				end
-				act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 			end
 		end
-
-
 	elseif brothercumchoice = 4:
 		'	"<<$pcs_nickname>>-! I''m almost there! Can I cum in your mouth?"'
 		brotherbjcomment = 3
@@ -2327,16 +2418,18 @@ if $ARGS[0] = 'brother_fuck_cum':
 				'	"But that''s not fair! So what I want doesn''t count for anything?"'
 				'	"Nope! But I get to decide if I''m feeling generous."'
 				'	With Kolka''s hands balled into fists at his side and your hands on your hips, the two of you glare at each other, scowling. This turned into a much bigger argument than you meant it to.'
-				if knowpreg = 1 or thinkpreg = 1:
-					'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
-				elseif pillcon >= 30000 or tabletkishot >= 1:
-					'	<i>Goddamn it,</i> you think, looking down to watch another glob of cum drips from your snatch. <i>Only my idiot brother could ruin a perfectly good creampie like this.</i>'
-					'	<i>At least I''m on birth control...</i>'
-				elseif mesec > 0:
-					'	<i>Goddamn it,</i> you think, looking down to watch another glob of cum drips from your snatch. <i>Only my idiot brother could ruin a perfectly good creampie like this.</i>'
-					'	<i>At least I don''t have to worry about getting pregnant on my period... right...?</i>'
-				else
-					'	<i>Goddamn it,</i> you think, looking down to watch another glob of cum drips from your snatch. <i>Fuck. I shouldn''t have done this anyways. This gets me pregnant?</i>'
+				if succubusflag = 0:
+					if knowpreg = 1 or thinkpreg = 1:
+						'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+					elseif pillcon >= 30000 or tabletkishot >= 1:
+						'	<i>Goddamn it,</i> you think, looking down to watch another glob of cum drips from your snatch. <i>Only my idiot brother could ruin a perfectly good creampie like this.</i>'
+						'	<i>At least I''m on birth control...</i>'
+					elseif mesec > 0:
+						'	<i>Goddamn it,</i> you think, looking down to watch another glob of cum drips from your snatch. <i>Only my idiot brother could ruin a perfectly good creampie like this.</i>'
+						'	<i>At least I don''t have to worry about getting pregnant on my period... right...?</i>'
+					else
+						'	<i>Goddamn it,</i> you think, looking down to watch another glob of cum drips from your snatch. <i>Fuck. I shouldn''t have done this anyways. This gets me pregnant?</i>'
+					end
 				end
 				act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 			end
@@ -2362,16 +2455,18 @@ if $ARGS[0] = 'brother_fuck_cum':
 				cla
 				'	"Too messy," you say. "Sorry Kolka, but I don''t feel like cleaning that off my face. You understand don''t you?"'
 				'	"Yeah I guess..."'
-				if knowpreg = 1 or thinkpreg = 1:
-					'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
-				elseif pillcon >= 30000 or tabletkishot >= 1:
-					'	<i>Fuck, that feels good...</i> you think to yourself, looking down to watch another glob dribbles out of you with satisfaction.'
-					'	<i>It''s a good thing I''m on birth control...</i>'
-				elseif mesec > 0:
-					'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
-					'	<i>It''s a good thing I can''t get pregnant when I''m on my period... right...?</i>'
-				else
-					'	<i>Shit...</i> Another glob of cum dribbles from your pussy, plopping onto the tub floor. <i>Maybe I should have let him cum on my face after all... What if I get pregnant?</i>'
+				if succubusflag = 0:
+					if knowpreg = 1 or thinkpreg = 1:
+						'You chuckle to yourself: "Well, at least I can''t get any more pregnant than I already am!"'
+					elseif pillcon >= 30000 or tabletkishot >= 1:
+						'	<i>Fuck, that feels good...</i> you think to yourself, looking down to watch another glob dribbles out of you with satisfaction.'
+						'	<i>It''s a good thing I''m on birth control...</i>'
+					elseif mesec > 0:
+						'	<i>Fuck, that feels good...</i> you think to yourself as another glob dribbles out, plopping onto the tub floor.'
+						'	<i>It''s a good thing I can''t get pregnant when I''m on my period... right...?</i>'
+					else
+						'	<i>Shit...</i> Another glob of cum dribbles from your pussy, plopping onto the tub floor. <i>Maybe I should have let him cum on my face after all... What if I get pregnant?</i>'
+					end
 				end
 				act'Continue':gt'brother_voyeur','brother_shower_fuck_end'
 			end
@@ -2446,7 +2541,7 @@ if $ARGS[0] = 'brother_shower_fuck_end':
 			if pcs_vag >= 25:
 				'	"If it was your first time, how come you''re so loose?"'
 				'	<i>Shit!</i>'
-				'	"I always heard that virgins are supposed to be really really tight for their first time, but you weren''t. I mean, it still felt really good but I slid in so easily. How come?"'
+				'	"I always heard that virgins are supposed to be really tight for their first time, but you weren''t. I mean, it still felt really good but I slid in so easily. How come?"'
 				'	Unable to come up with a suitable explanation, you decide to retaliate with false offense.'
 				'	"What are you trying to say about me? Huh? That I''m a slut? That I would lie to you about giving you my virginity? How dare you!"'
 				'	Kolka shies away at your sudden burst of emotion.'

locations/budgetclothes.qsrc

@@ -125,6 +125,7 @@ if $ARGS[0] = 'clothes':
 			gs 'clothing_QV', 'shop_filter'
 				
 			if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''cheapclo''"><img src="images/pc/clothing/1cheap/<<i>>.jpg" 	height="250" /></a>'
+			
 		end
 		i += 6
 		if i = 3: i = 9

locations/cardgame_durak.qsrc

@@ -32,7 +32,7 @@ if $ARGS[0] = 'start':
 		$cgd_clothes['A9'] = ' shirt, jeans, socks, briefs'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/card/durak.jpg"></center>'
 		'"Cards? We can deal you in, but only if you want to play strip poker", Vitek grins. "The loser does whatever the winner wants them to do. Because you''re a girl, you''ll get one extra piece of clothing to start with. Sound fair?"'
-		'Your game statistics: You''ve won <<card_game_durak_win>> times, lost <<card_game_durak_loss>> times, managed a draw <<card_game_durak_draw>> times, and have taken off <<card_game_durak_nude>> articles of clothing.'
+		'Your game statistics: You''ve won <<card_game_durak_win>> times, lost <<card_game_durak_loss>> times, managed a draw <<card_game_durak_draw>> times, and ended up naked <<card_game_durak_nude>> times.'
 		act 'Play': gt 'cardgame_durak', 'card_game_durak_play'
 	else
 		'<<iif(RAND(0,1) = 0,''Dan'',''Vitek'')>> sighs: "I''m tired of playing cards. Let''s just watch some TV or something, or have some more beers."'

locations/castSpell.qsrc

@@ -0,0 +1,79 @@
+# castSpell
+! Used to cast a spell.  Use as a function.  Returns 1 OR 0 for Success or Failure.
+!
+! ARGS[0] is the spell being cast
+!	Valid Spells are listed below
+!		teleport
+! ARGS[1-n] are any parameters that need to be passed to the Spell
+!
+!	Example:
+!		gs 'castSpell', 'teleport', 'CentralPark'
+
+gs 'spellList'
+
+spellSuccess = 0
+
+$SpellID = $ARGS[0]
+$SpellArgs = ""
+i=1
+:ArgLoop
+if i < arrsize('$ARGS'):
+	i += 1
+	$SpellArgs = $SpellArgs + ", '<<$ARGS[i - 1]>>'"
+	jump 'ArgLoop'
+end
+killvar 'i'
+
+if spellKnown[$SpellID] = 1:
+	!Make a Skill Check to see if the Spell succeeds
+	spellRoll = pcs_splcstng - spellDiff[$SpellID] - (pcs_horny/5) + rand(1,100)
+	if spellRoll > 50:
+		!Critical Success
+		spellSuccess = 2
+		splcstng_exp += rand(1,spellDiff[$SpellID]) + rand(0,5)
+	elseif spellRoll > 10:
+		!Success
+		spellSuccess = 1
+		splcstng_exp += rand(1,spellDiff[$SpellID])
+	elseif spellRoll > -20:
+		!Failure
+		spellSuccess = 0
+		splcstng_exp += rand(1,spellDiff[$SpellID]) / 2
+	else
+		!Critical Failure
+		spellSuccess = -1
+		splcstng_exp += rand(1,spellDiff[$SpellID]) / 2
+	end
+	killvar 'spellRoll'
+
+	!Incur the costs of casting the spell
+	if spellSuccess = 2:
+		manaCost = spellMana[$SpellID] / 2
+	elseif spellSuccess = -1:
+		manaCost = spellMana[$SpellID] * 2
+	else
+		manaCost = spellMana[$SpellID]
+	end
+	pcs_manna -= manaCost
+	!pcs_willpwr -= spellWill[$SpellID]
+	arouseVal = manaCost / 50
+	gs 'arousal', 'voyeur', arouseVal
+	minut -= arouseVal
+	killvar 'arouseVal'
+	killvar 'manaCost'
+
+end
+
+minut += spellTime[$SpellID]
+
+gs 'stat'
+
+$SpellExec = "gs 'spell', '<<$SpellID>>', '<<spellSuccess>>'<<$SpellArgs>>"
+
+dynamic $SpellExec
+
+killvar '$SpellID'
+killvar '$SpellArgs'
+killvar '$SpellExec'
+
+--- castSpell ---------------------------------

locations/cikl.qsrc

@@ -200,11 +200,11 @@ snapshotY = 0
 if pcs_exhib > 0 or exhibitionist_lvl > 0:
 	if pcs_exhib < 10:
 		pcs_exhib -= 1
-	elseif pcs_exhib < 20:
+	elseif pcs_exhib < 50:
 		exhibitionist_lvl = 1
-	elseif pcs_exhib < 30:
+	elseif pcs_exhib < 100 or exhibitionQW < 3:
 		exhibitionist_lvl = 2
-	else
+	elseif exhibitionQW = 3:
 		exhibitionist_lvl = 3
 	end
 end
@@ -604,7 +604,13 @@ end
 lipkoef -= rand(0,1)
 if lipkoef <= 0: lipkoef = 0
 
-if Enable_autotampon = 0 and isprok = 1:isprok = 0 & 'You threw away your used tampon.'
+if isprok = 1 or isprokp = 1:
+	isprok_lastday = 1
+else
+	isprok_lastday = 0
+end
+
+if Enable_autotampon = 0 and isprok = 1: isprok = 0 & 'You threw away your used tampon.'
 if Enable_autotampon = 0 and isprokp = 1:isprokp = 0 & 'You threw away your used sanitary pad.'
 
 if preg = 1:
@@ -625,21 +631,20 @@ elseif preg = 2 and pregminut < totminut:
 		pregminut = totminut + 1440
 	end
 elseif preg = 0:
-	KILLVAR 'pregTalkBrother'
-	KILLVAR 'pregTalkSister'
-	KILLVAR 'pregTalkFather'
-	!{KILLVAR 'pregTalkFamily' -- Do not kill this (Abortion talk).}
-	KILLVAR 'pregTalkMom'
-	KILLVAR 'pregTalk'
-	KILLVAR 'pregTalkNat'
-	KILLVAR 'pregTalkKatja'
-	KILLVAR 'pregTalkAlbina'
-	KILLVAR 'pregTalkPC'
-	KILLVAR 'pregTalkStarlets'
-	KILLVAR 'pregTalkvball'
-	KILLVAR 'pregTalkTrack'
-	killvar 'pregtalkStarlets'
-	killvar 'pregtalkvball'
+	gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A14'
+	gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A16'
+	gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A23'
+	gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A28'
+	gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A29'
+	gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A33'
+	gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A34'
+	gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A69'
+	gs 'shortgs', 'remove_array_element', 'npc_pregtalk','A131'
+
+	!{killvar 'pregTalkFamily' -- Do not kill this (Abortion talk).}
+
+	killvar 'pcs_pregtalk'
+	killvar 'pregTalk'
 	killvar 'pregtime'
 	killvar 'knowpreg'
 	killvar 'denypreg'
@@ -701,7 +706,7 @@ else
 			elseif preg > 0:
 				razeba = 6
 
-				if pcs_horny < 100:pcs_horny += pregtime / 10
+				if pcs_horny < 100:pcs_horny += pregchem / 240
 			end
 		end
 	end
@@ -765,7 +770,7 @@ elseif nark > 0:
 	nark -= 1
 end
 
-if pregtime > 10:fat += 1
+if pregchem > 240:fat += 1
 
 !!------------------------------------------------------------------------------------------------------------
 !!	Pain
@@ -1142,7 +1147,6 @@ if day = 25:
 			'<b><font color="green">300 <b>₽</b> has been deducted from your bank account, for you cable TV subscription.</font></b>'
 			kabelday = 1
 			karta -= 300 * hcount_cable
-			'<b><font color="red">Your card was declined during automatic debit of 300 <b>₽</b> for cable TV subscription.</font></b>'
 		elseif bankAccount = 1 and karta + bankDebtLimit >= (300 * hcount_cable):
 			'<b><font color="green">300 <b>₽</b> has been deducted from your bank account and overdraw facility, for you cable TV subscription.</font></b>'
 			kabelday = 1
@@ -1345,8 +1349,11 @@ if storyline = 1:
         end
 	end
 	!!Brother''s dick growth as he gets older
-	kolka_dick_month = daystart/30
-	if kolka_dick_month > daystart/30 and npc_dick['A34'] < 26: npc_dick['A34'] += 1
+	
+	if kolka_dick_day + 30 < daystart and npc_dick['A34'] < 26: 
+		kolka_dick_day = daystart
+		npc_dick['A34'] += 1
+	end
 	if npc_dick['A34'] < 20 and npc_dick['A34'] > 16:
 		$npc_thdick['A34'] = 'well proportioned'
 	elseif npc_dick['A34'] >= 20 and npc_dick['A34'] <= 26:

locations/clothing.qsrc

@@ -17,7 +17,7 @@ $clothing_list_line = {
 	else
 		clothing_temp = 150 & !clothing widdefault to 150
 	end
-	$RESULT +='<TD><a href="exec:gt ''clothing'', ''view_clothing_item'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>"><img src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>" width="<<clothing_temp>>"></a></TD>'
+	$RESULT +='<TD><a href="exec:gt ''clothing'', ''view_clothing_item'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>"><img src="<<FUNC(''$clothing_image'', $ARGS[1], ARGS[2])>>" width="<<clothing_temp>>"><p><<$ARGS[1]>> outfit</p></a></TD>'
 	killvar 'clothing_temp'
 	gs 'clothing_attributes', $ARGS[1], ARGS[2]
 

locations/club.qsrc

@@ -254,7 +254,7 @@ if $ARGS[0] = 'dance':
 	gs 'stat'
 	'<center><b><font color="maroon">The dance floor</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/club9.jpg"></center>'
-	'The club is filled to the brink with people. Most of which are dancing on the dancefloor.'
+	'The club is filled to the brink with people. Most of whom are on the dance floor having a great time.'
 	
 	act 'Leave the dance floor':gt 'club', 'inside'
 	
@@ -272,7 +272,7 @@ if $ARGS[0] = 'dance':
 			pcs_willpwr += 10
 			clrand = rand(0, 400)
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/club4.jpg"></center>'
-			'On the dance floor very closely, you can put a hand on his shoulder one guy to make a couple of steps and pressed her chest already to another, and in the dance, how much one can do in dance.'
+			'The dance floor is packed and everyone is dancing very closely, you could put your hand on the shoulder of the guy in front of you but you when you turn around your chest is right up against another. You don''t let it bother you as everyone is forced to dance this close.'
 
 			if pcs_apprnc >= clrand:
 				pcs_horny += 1
@@ -284,7 +284,7 @@ if $ARGS[0] = 'dance':
 				act 'Dance with him':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/club8.jpg"></center>'
-					'You continue to dance with the guy on the dancefloor, but he doesn''t stop touching your. It somehow gets you excited, when a random guy is touching you in public.'
+					'You continue to dance with the guy on the dance floor, but he doesn''t stop touching your butt. It gets you quite excited having a random guy feeling you up in public.'
 
 					gs 'arousal', 'foreplay', 30, 'sub'
 					gs 'stat'
@@ -299,7 +299,7 @@ if $ARGS[0] = 'dance':
 						dansexclub = rand(0, 1)
 
 						if dansexclub = 1:
-							'You''re passionately kissing the guy, while he''s continously groping you, always dedicating one of his hands to either your tits or your ass. "Why don''t we go to the VIP-Area. There we''ll have a bit more privacy.", he says inbetween kisses.'
+							'You''re passionately kissing the guy, while he''s continuously groping you, always dedicating one of his hands to either your tits or your ass. "Why don''t we go to the VIP-Area. There we''ll have a bit more privacy.", he says inbetween kisses.'
 
 							gs 'arousal', 'kiss', 15, 'sub'
 							gs 'stat'
@@ -308,7 +308,7 @@ if $ARGS[0] = 'dance':
 							if pcs_horny < 70: act 'Go to the dance floor':gt 'club', 'dance'
 							act 'Go to Vip-room with the guy':$sexloc = 'vipclub' & xgt 'sex', 'var'
 						elseif dansexclub = 0:
-							'You''re passionately kissing the guy, while he''s continously groping you, always dedicating one of his hands to either your tits or your ass. "Let''s go to the toilet.", he says with a smile.'
+							'You''re passionately kissing the guy, while he''s continuously groping you, always dedicating one of his hands to either your tits or your ass. "Let''s go to the toilet.", he says with a smile.'
 
 							gs 'arousal', 'kiss', 15, 'sub'
 							gs 'stat'
@@ -322,7 +322,7 @@ if $ARGS[0] = 'dance':
 				if clrand > 85:
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/dancelezb.jpg"></center>'
-					'While you''re dancing you a hand groping your ass. You turn around to see who touched your, but you''re surprised to see women smiling at you, she seems to be biting her lips.'
+					'While you''re dancing you a hand groping your ass. You turn around to see who touched your butt, but you''re surprised to see a woman smiling at you, she is seductively biting her lip.'
 					dansexclub = rand(0, 1)
 
 					act 'Stop dancing':gt 'club', 'inside'

locations/cum_arrcheat.qsrc

@@ -1,5 +1,8 @@
 # cum_arrcheat
 
+!! npc_pregtalk[] 0/1: Does character A# know that you are currently pregnant
+!! pcs_pregtalk 0/1: Has PC been told she is pregnant
+
 *clr & cla
 '<center><h2>Cheat Menu - OOX Debug</h2></center>'
 if cycle = 0:

locations/dimaRevenge.qsrc

@@ -1114,30 +1114,30 @@ if dimaRevChoice = 5:
 						And if he isn''t. Fuck him. That is one kid who deserves to be picked on.'
 						act 'leave school': gt 'gschool_grounds', 'main'
 						!!normal end of school
-						act 'No more':
+					end
+				end
+				act 'No more':
+					*clr & cla
+					grupvalue[4] += 10
+					'<center><img src="images/characters/pavlovsk/school/boy/dimka/revenge/chokegirl.jpg"></center>'
+					'You''ve been picked on for the last time. You put your hands on her throat and continue choking her. She tries to pry your finger off, but you are running on hysterical strength now. As she passes out, the principal grabs you and throw you off her.
+					She calls for a nurse then drags you to her office.'
+					act 'In trouble':
+						*clr & cla
+						demerit += 40
+						'<center><img src="images/characters/pavlovsk/school/head/50.jpg"></center>'
+						'Miss. Volkov looks at you. "I don''t know what''s on your mind miss <<$pcs_lastname>> but what have you done will have serious consequences...now go"'
+						!!sent to princeipal''s office and earn 20 demerits, afterwards it goes to this scene.
+						!!Office doesn''t exist yet according to gschool_grounds.
+						act 'Back to class':
 							*clr & cla
-							grupvalue[4] += 10
-							'<center><img src="images/characters/pavlovsk/school/boy/dimka/revenge/chokegirl.jpg"></center>'
-							'You''ve been picked on for the last time. You put your hands on her throat and continue choking her. She tries to pry your finger off, but you are running on hysterical strength now. As she passes out, the principal grabs you and throw you off her.
-							She calls for a nurse then drags you to her office.'
-							act 'In trouble':
-								*clr & cla
-								demerit += 40
-								'<center><img src="images/characters/pavlovsk/school/head/50.jpg"></center>'
-								'Miss. Volkov looks at you. "I don''t know what''s on your mind miss <<$pcs_lastname>> but what have you done will have serious consequences...now go"'
-								!!sent to princeipal''s office and earn 20 demerits, afterwards it goes to this scene.
-								!!Office doesn''t exist yet according to gschool_grounds.
-								act 'Back to class':
-									*clr & cla
-									dimaRevenge += 1
-									minut += 60 * 2
-									hour = 14
-									minut = 0
-									'You sit in class. You noticed a lot of the students talking about what happened in the hall. They fall silent when you look at them. Some of the students are afraid of you now. And you are fine with that, as long as they leave you alone.
-									And the ones who don''t better watch out, because you aren''t gonna let them pick on you anymore.'
-									act 'Continue': gt 'gschool_grounds', 'main'
-								end
-							end
+							dimaRevenge += 1
+							minut += 60 * 2
+							hour = 14
+							minut = 0
+							'You sit in class. You noticed a lot of the students talking about what happened in the hall. They fall silent when you look at them. Some of the students are afraid of you now. And you are fine with that, as long as they leave you alone.
+							And the ones who don''t better watch out, because you aren''t gonna let them pick on you anymore.'
+							act 'Continue': gt 'gschool_grounds', 'main'
 						end
 					end
 				end

locations/din_van.qsrc

@@ -33,8 +33,7 @@ $bteeth = {
 	if pcs_breath ! 1 or cumloc[12] = 1:
 		act 'Brush your teeth (0:05)':
 		menu_off = 1
-			cla
-			*clr
+			*clr & cla
 			minut += 5
 			cumspclnt = 2
 			gs 'cum_cleanup'
@@ -130,8 +129,7 @@ $shower = {
 		if pcs_horny >= 40:
 			act 'Use the shower head on your pussy':
 				menu_off = 1
-				cla
-				*clr
+				*clr & cla
 				if rand(0, 5) = 0 and obdysh = 1:gt 'vann', 'v4'
 				'<center><video autoplay loop src="images/shared/home/bathroom/wash2.mp4"></center>'
 				*nl
@@ -154,6 +152,10 @@ $shower = {
 				dynamic $dryOff
 			end
 		end
+		
+		act 'Take a selfie':
+			gs 'telefon', 'Phone_selfie_image_bathing', 'shower'
+		end
 
 		dynamic $dryOff
 		dynamic $brit
@@ -163,8 +165,7 @@ $shower = {
 $bath = {
 	act 'Soak in the bath (0:30)':
 		menu_off = 1
-		cla
-		*clr
+		*clr & cla
 		shampoo -= 1
 		minut += 30
 		pcs_sweat = 7 + rand(0,4)
@@ -178,7 +179,11 @@ $bath = {
 
 		if frost > 0:frost = 0
 
-		pcs_skin += 1
+		if bath_daystart ! daystart:
+			bath_daystart = daystart
+			pcs_skin += rand(1,2)
+		end
+		
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash4.jpg"></center>'
 		*nl
@@ -210,8 +215,7 @@ $bath = {
 
 		act '"Wash" your pussy':
 			menu_off = 1
-			cla
-			*clr
+			*clr & cla
 			if obdysh = 1 and rand(0, 5) = 1:gt 'vann', 'v4'
 			minut += 10
 
@@ -228,6 +232,10 @@ $bath = {
 
 			dynamic $dryOff
 		end
+		
+		act 'Take a selfie':
+			gs 'telefon', 'Phone_selfie_image_bathing', 'bath'
+		end
 
 		dynamic $dryOff
 		dynamic $brit
@@ -250,9 +258,9 @@ $brit = {
 					elseif pubestyle = 8 and pcs_pubes > 11:
 						pcs_pubes = 16
 					elseif pubestyle = 9 and pcs_pubes > 20:
-						pcs_pubes = 20
+						pcs_pubes = 16
 					elseif pubestyle = 10 and pcs_pubes > 26:
-						pcs_pubes = 26
+						pcs_pubes = 20
 					end
 					pcs_horny += 5
 					stanok -= 2
@@ -393,8 +401,7 @@ $tampon = {
 	if sanpad > 0 and (mesec > 0 or (placebopart > 2 and pillcon < 40000)) and isprokp = 0 and isprok = 0 and $pantyworntype ! 'none' and knowpreg = 0:
 		act 'Use a sanitary pad (0:05)':
 			menu_off = 1
-			cla
-			*clr
+			*clr & cla
 			sanpad -= 1
 			isprokp = 1
 			minut += 5
@@ -408,8 +415,7 @@ $tampon = {
 	if tampon > 0 and (mesec > 0 or (placebopart > 2 and pillcon < 40000)) and isprok = 0 and isprokp = 0 and knowpreg = 0:
 		act 'Use a tampon (0:05)':
 			menu_off = 1
-			cla
-			*clr
+			*clr & cla
 			tampon -= 1
 			isprok = 1
 			minut += 5
@@ -426,8 +432,7 @@ $quickwash = {
 	if spdirty > 0:
 		act 'Quick wash (0:15)':
 			menu_off = 1
-			cla
-			*clr
+			*clr & cla
 
 			cumspclnt = 4
 			gs 'cum_cleanup'
@@ -654,8 +659,7 @@ $basin = {
 }
 
 $pir_title = {
-	cla
-	*clr
+	*clr & cla
 	'<center><b>Available piercings - select one by clicking the image</b></center>'
 	*nl
 }
@@ -1063,7 +1067,7 @@ if $ARGS[0] = 'private':
 			minut += 5
 			pregtest -= 1
 			gs 'stat'
-			 if pregchem > 120 and bimbolevel < 3 and knowpreg = 0 and huband = 0 and pregTalkPC = 0:
+			 if pregchem > 120 and bimbolevel < 3 and knowpreg = 0 and huband = 0 and pcs_pregtalk = 0:
 				cla
 				knowpreg = 1
 				thinkpreg = 1
@@ -1072,7 +1076,7 @@ if $ARGS[0] = 'private':
 				act 'Horrified':gt 'din_van', 'HorrifiedReact1'
 				act 'Concerned':gt 'din_van', 'ConcernedReact1'
 				act 'Excited':gt 'din_van', 'ExcitedReact1'
-			elseif pregchem > 120 and bimbolevel = 3 and knowpreg = 0 and huband = 0 and pregTalkPC = 0:
+			elseif pregchem > 120 and bimbolevel = 3 and knowpreg = 0 and huband = 0 and pcs_pregtalk = 0:
 				cla
 				knowpreg = 1
 				thinkpreg = 1
@@ -1080,20 +1084,20 @@ if $ARGS[0] = 'private':
 				'The test shows two strips. You are pregnant. As you look at the test in your hand, you are?'
 				act 'Excited':gt 'din_van', 'ExcitedReact1'
 				act 'Aroused':gt 'din_van', 'ArousedReact1'
-			elseif pregchem > 120 and knowpreg = 0 and huband = 1 and kid = 0 and pregTalkPC = 0:
+			elseif pregchem > 120 and knowpreg = 0 and huband = 1 and kid = 0 and pcs_pregtalk = 0:
 				knowpreg = 1
 				thinkpreg = 1
 				gt 'din_van', 'WifeReact1'
-			elseif pregchem > 120 and knowpreg = 0 and huband = 1 and kid > 0 and pregTalkPC = 0:
+			elseif pregchem > 120 and knowpreg = 0 and huband = 1 and kid > 0 and pcs_pregtalk = 0:
 				knowpreg = 1
 				thinkpreg = 1
 				gt 'din_van', 'WifeReact2'
-			elseif pregTalkPC = 1 and pregchem > 120 and knowpreg = 0:
+			elseif pcs_pregtalk = 1 and pregchem > 120 and knowpreg = 0:
 				*nl
 				knowpreg = 1
 				thinkpreg = 1
 				'The test shows two strips. You are pregnant.'
-			elseif pregTalkPC = 1 or (knowpreg = 1 and preg = 1):
+			elseif pcs_pregtalk = 1 or (knowpreg = 1 and preg = 1):
 				*nl
 				knowpreg = 1
 				thinkpreg = 1
@@ -1136,8 +1140,7 @@ if $ARGS[0] = 'misery':
 
 	if husband > 0 and husbanday > 0 and husporday ! daystart and poroshok >= 2:
 		act 'Wash your husbands clothes (2 units of washing powder) (1:00)':
-			cla
-			*clr
+			*clr & cla
 			husband += 5
 			poroshok -= 2
 			minut += 60
@@ -1153,8 +1156,7 @@ if $ARGS[0] = 'misery':
 
 	if husband > 0 and husbanday > 0 and huspolday ! daystart:
 		act 'Clean the apartment (1:00)':
-			cla
-			*clr
+			*clr & cla
 			husband += 5
 			minut += 60
 			huspolday = daystart
@@ -1181,7 +1183,7 @@ end
 if $ARGS[0] = 'HorrifiedReact1':
 	menu_off = 1
 	cla
-	pregTalkPC = 1
+	pcs_pregtalk = 1
 	minut += 10
 	*nl
 	'You stare in disbelief at the test in your hand. The two strips displayed can only mean one thing: you are pregnant. You sink to the floor, mind spinning. Tears well in your eyes. How could this happen?'
@@ -1204,7 +1206,7 @@ end
 if $ARGS[0] = 'ConcernedReact1':
 	menu_off = 1
 	cla
-	pregTalkPC = 1
+	pcs_pregtalk = 1
 	minut += 10
 	*nl
 	'Your mind races as you gaze at the test in your hand. The two strips clearly show that you''re pregnant. You know this isn''t the worst thing that could happen to you, but your life is definitely going to change. Are you even ready for that kind of change?'
@@ -1224,7 +1226,7 @@ end
 if $ARGS[0] = 'ExcitedReact1':
 	menu_off = 1
 	cla
-	pregTalkPC = 1
+	pcs_pregtalk = 1
 	minut += 10
 	*nl
 	'You''re overcome with glee as you look at the pregnancy test in your hand. Its two strips confirm that your wish has been granted: you are pregnant. You giggle as you clutch the pregnancy test, excited to share the news with everyone you know.'
@@ -1244,28 +1246,26 @@ end
 if $ARGS[0] = 'ArousedReact1':
 	menu_off = 1
 	cla
-	pregTalkPC = 1
+	pcs_pregtalk = 1
 	minut += 10
 	*nl
 	'You rub your thighs together as you stare at the pregnancy test in your hand. The two strips displayed confirm that you’ve been knocked up. You excitedly recount every load of cum blast into your fertile womb, wondering which one found purchase. You gently rub your clit in a circular motion as you think about the fact that, in a few months, everyone who sees your large, pregnant belly will know what a slut you are.'
 		if rape > 0 and stat['vaginal'] > 1 and incest['exp'] = 0:
 			'You pick up speed as you recall your rapist forcefully pumping you full of his wonderful semen without any concern for your desires. You loved having your agency stripped away as a complete stranger decided to make you a mother.'
-			'After several minutes of this you orgasm hard. You spend a moment panting before cleaning up and straightening your clothes. Once you''ve freshened up, you move on with your day, still aroused.'
 		elseif incest['exp'] > 0:
 			'You pick up speed as you recall willingly allowing yourself to be pumped full of all of that wonderful semen. Knowing that you would get pregnant filled you with joy every time someone shot rope after rope of their baby batter into you.'
 			'The taboo knowledge that you could have gotten pregnant from incest turns you on even more.'
-			'After several minutes of this you orgasm hard. You spend a moment panting before cleaning up and straightening your clothes. Once you''ve freshened up, you move on with your day, still aroused.'
 		else
-			'You pick up speed as you recall willingly allowing yourself to be pumped full of all of that wonderful semen. Knowing that you would get pregnant filled you with joy every time someone shot rope after rope of their baby batter into you.'
-			'After several minutes of this you orgasm hard. You spend a moment panting before cleaning up and straightening your clothes. Once you''ve freshened up, you move on with your day, still aroused.'
+			'You pick up speed as you recall willingly allowing yourself to be pumped full of all of that wonderful semen. Knowing that you would get pregnant filled you with joy every time someone shot rope after rope of their baby batter into you.'	
 		end
+		'After several minutes of this you orgasm hard. You spend a moment panting before cleaning up and straightening your clothes. Once you''ve freshened up, you move on with your day, still aroused.'
 	act 'Finish' :menu_off = 0 & gt $loc, $metka
 end
 
 if $ARGS[0] = 'WifeReact1':
 	menu_off = 1
 	cla
-	pregTalkPC = 1
+	pcs_pregtalk = 1
 	minut += 10
 	*nl
 		'A wide smile spreads across your face as you look down at the pregnancy test. The two strips displayed exclaim that you’re finally starting a family. You begin to shake with excitement as you think about how you are going to tell your husband. Should you just tell him as soon as you see him, or do you want to make it an even more special occasion and tell him over a fancy dinner? Maybe you should just nonchalantly drop the test in front of him to see his reaction. Regardless of how you decide to do it, you can''t keep the excitement to yourself any longer. You take a brief moment to freshen up before leaving the room. '
@@ -1276,7 +1276,7 @@ end
 if $ARGS[0] = 'WifeReact2':
 	menu_off = 1
 	cla
-	pregTalkPC = 1
+	pcs_pregtalk = 1
 	minut += 10
 	*nl
 	'You smile warmly at the test in your hand. You are definitely pregnant again. Your chest swells with joy, knowing that your wonderful family is about to get a little bit larger. You contentedly sigh as you envision your pregnant belly swelling again, proclaiming your motherhood to the world. Having a child is the greatest thing that has ever happened to you, and you’re thrilled at the opportunity to experience it again. You can’t wait any longer to tell your husband. You quickly spruce yourself up before going to share the fantastic news with your spouse.'
@@ -1319,8 +1319,7 @@ if $ARGS[0] = 'prvt_pee':
 !!This may require an addition check to see if the PC has a purse since I think they need that to carry tampons with them.
 		if isprok = 1 and tampon > 0:
 			act 'Change tampon':
-				*clr
-				cla
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/pc/pee/period/tampon/' + rand(1,12) + '.jpg"></center>'
 				'Reaching down and taking the string between your fingers, you slowly pull the used tampon from your vagina. You wrap it in toilet paper to be thrown in the trash bin. Opening your purse, you retrieve a fresh one before unpackaging it and carefully inserting it into you.'
 
@@ -1331,8 +1330,7 @@ if $ARGS[0] = 'prvt_pee':
 !!This may require an addition check to see if the PC has a purse since I think they need that to carry pads with them.
 		if isprokp = 1 and sanpad > 0:
 			act 'Change pad':
-				*clr
-				cla
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/pc/pee/period/pad/' + rand(1,6) + '.jpg"></center>'
 				'Checking your pad, you decide it''s time for a new one. You carefully peel it off of your panties before folding it into thirds and setting it aside to be thrown away. Digging in your bag, you pull out a fresh pad, unpackage it, peel off the adhesive strip, and place it into your underwear. Finally, you wrap the wings around the sides of the gusset to make sure it is nice and secure.'
 
@@ -1346,8 +1344,7 @@ end
 
 if $ARGS[0] = 'prvt_pee_end':
 	act 'Finish and wipe':
-		*clr
-		cla
+		*clr & cla
 		'<center><img <<$set_imgh>> src="images/pc/pee/wiping/' + rand(1,9) + '.jpg"></center>'
 		rand_pee = rand(0,2)
 		if rand_pee = 0:
@@ -1393,7 +1390,7 @@ if $ARGS[0] = 'pblc_pee':
 			if rand_pee = 0:
 				'Albina and her Starlettes are a bunch of dirty whores.'
 			elseif rand_pee = 1:
-				'<<$rand_girl>>''s vagina smells like throw-up!'
+				'<<$rand_girl>>''s vagina smells like puke!'
 			elseif rand_pee = 2:
 				'Beware of Dimka! He''s not as nice as he seems!'
 			elseif rand_pee = 3:
@@ -1409,7 +1406,7 @@ if $ARGS[0] = 'pblc_pee':
 			elseif rand_pee = 8:
 				'Tampons vs. Pads, cast your vote! Below this text are hash marks indicating various girl''s preference. One person also wrote “Freebleeder for life!” Ewww.'
 			elseif rand_pee = 9:
-				'Petra’s cock is smaller than my lipstick tube, LOL!'
+				'Petra''s cock is smaller than my lipstick tube, LOL!'
 			elseif rand_pee = 10:
 				'You''re beautiful! Believe that!'
 			elseif rand_pee = 11:

locations/dinsister.qsrc

@@ -114,9 +114,9 @@ $sischecks = {
 		'Your sister takes a good look at your eyebrow piercing and says, "Nice, but be careful, don''t accidentally get it caught on something!"'
 	end
 	
-	if pregTalkSister = 0 and (($clothingworntype = 'nude' and pregtime > 90) or ($clothingworntype ! 'nude' and pregtime > 150)):
-		pregTalkSister = 1
-		if $clothingworntype ! 'nude' and pregtime > 150:
+	if npc_pregtalk['A33'] = 0 and (($clothingworntype = 'nude' and pregchem > 2688) or ($clothingworntype ! 'nude' and pregchem > 3600)):
+		npc_pregtalk['A33'] = 1
+		if $clothingworntype ! 'nude' and pregchem > 3600:
 			'With surprise your sister says, "You''re pregnant, <<$pcs_nickname>>!"'
 			'"How the hell can you tell?"'
 			'With a smile, she says, "I have a bionic eye." As she reaches out and rubs your protruding belly, "So, do you know who the father is?"'
@@ -328,7 +328,8 @@ $d_sister[3]={
 			'You chat with your sister, discussing the latest trends in fashion.'
 		end
 		if sisterTalk = 12:
-			'Anya recognized, that before she was fond of diets, but they are deteriorated skin and went pryshi, and the start of this match, so now it cracks for three and it only gets more beautiful.'
+			'Anya tells you how used to try various fad diets to make herself beautiful. However she was under weight, her skin looked gaunt and she kept getting acne. Since quitting the diets she is much healthier and looks more beautiful every day.'
+			'The last part has you both laughing.'
 		end
 		if sisterTalk = 13:
 			'You chat with your sister and she tells you that she went dancing before, but she quickly got tired.'
@@ -344,9 +345,10 @@ $d_sister[3]={
 		end
 		if sisterTalk = 17:
 			'You chat with your sister, she says that her ex-boyfriend was a weirdo, "He told me, pier, I love you as much, I just a shit in the sea. Both out on the sea, but we do not go together..."'
+			'You wonder if she was dating Venom.'
 		end
 		if sisterTalk = 18:
-			'You chat with your sister, Anya, she asks you how you feel about womens sexual rights. You spend some time having a very frank and quite revealing conversation.'
+			'You chat with your sister, Anya, she asks you how you feel about women''s sexual rights. You spend some time having a very frank and quite revealing conversation.'
 		end
 	end
 }

locations/down.qsrc

@@ -56,7 +56,7 @@ end
 
 gs'street_event','down', 'extras'
 
-if tanwork = 1:act '<b>GO HOME</b> (Tanyas apartment)':gt 'tanhouse'
+if nichWork = 2:act '<b>GO HOME</b> (Nicholas'' apartment)':gt 'nichApartment'
 
 if shantpopala > 0:
 	cla
@@ -211,18 +211,28 @@ end
 $desc_txt7 = '<a href="exec: minut += 5 & gt ''police_station'',''start''">Main city police station</a>'
 'Away from the shops is both <<$desc_txt6>> and the <<$desc_txt7>>.'
 *nl
+if nichHotelReferral = 2:
+	if hour >= 4 and hour < 16:
+		'You could go to the apartment of a man named Nicholas to apply for a job as a live-in maid. But it is too early for that. You should come back between 16:00 and 20:59.'
+	elseif hour < 4 or hour > 20:
+		'You could go to the apartment of a man named Nicholas to apply for a job as a live-in maid. But it is too late for that. You should come back between 16:00 and 20:59.'
+	else
+		'You could go to the <a href="exec:gt ''nichApartment'', ''jobInterview''">apartment of a man named Nicholas</a> to apply for a job as a live-in maid.'
+	end
+end
+
 
 if Enable_tablemap = 0:
-	if npc_rel['A218'] > 0 and tanwork = 0 and hour >= 16 and hour <= 21 and tanday ! daystart:'<a href="exec:gt ''tanapartment''">Apartment where Tanya lives</a>.'
-	if tanwork = 1:'<a href="exec:gt ''tanhouse''">Tanyas</a> apartment where you work as a live in maid.'
+	if nichTanyaOpinion = 1 and nichWork ! 2 and hour >= 16 and hour <= 21 and nichTanyaFuckLast ! daystart:'<a href="exec:gt ''nichApartment'', ''visitTanya''">Apartment where Tanya lives</a>.'
+	if nichWork = 2:'<a href="exec:gt ''nichApartment''">Nicholas''</a> apartment where you work as a live in maid.'
 	if izoldaQW >= 1:'Your friend <a href="exec:gt ''qwIzoldaApp''">Isolde''s</a> apartment.'
 	if mainQW >= 1:'<a href="exec:gt ''lab'', ''start''">Tatiana''s</a> secret hideout.'
 	if yaq = 1:'<a href="exec:gt ''yarik'', ''start''">Yaroslav</a> from the office''s apartment.'
 	if peter > 0:'<a href="exec:gt ''peterroom'', ''start_door''">Peter</a> the sexshop owner''s apartment.'
 else
 	st_count=0 & $show_table=''
-	if npc_rel['A218'] > 0 and tanwork = 0 and hour >= 16 and hour <= 21 and tanday ! daystart:gs'show_table','<a href="exec:gt ''tanapartment''">Apartment</a> where Tanya lives','3'
-	if tanwork = 1:gs'show_table','<a href="exec:gt ''tanhouse''">Tanyas</a> apartment','3'
+	if nichTanyaOpinion = 1 and nichWork ! 2 and hour >= 16 and hour <= 21 and nichTanyaFuckLast ! daystart:gs'show_table','<a href="exec:gt ''nichApartment'', ''visitTanya''">Apartment</a> where Tanya lives','3'
+	if nichWork = 2:gs'show_table','<a href="exec:gt ''nichApartment''">Nicholas''</a> apartment','3'
 	if izoldaQW >= 1:gs'show_table','<a href="exec:gt ''qwIzoldaApp''">Isoldes</a> apartment','3'
 	if mainQW >= 1:gs'show_table','<a href="exec:gt ''lab'', ''start''">Tatiana''s</a> secret hideout','3'
 	if yaq = 1:gs'show_table','<a href="exec:gt ''yarik'', ''start''">Yaroslavs</a> apartment','3'
@@ -244,5 +254,11 @@ if hour >= 20 or hour <= 4:
 	end
 end
 
+
+!! Savegame Compatibility
+if tanwork ! 0:
+	gt 'nichUtil','updateNotice'
+end
+
 --- down ---------------------------------
 

locations/ender.qsrc

@@ -117,7 +117,7 @@ if $ARGS[0] = 'loss':
 		killvar 'autocombat_surrender'
 		if succubusQW >= 4: gt 'succubus', 'RapistFight'
 		RapistFight = 0
-		SUB += 1
+		sub += 1
 		Loss += 1
 		if rikudo > 10:rikudo -= 10
 		pcs_vag += 1
@@ -155,16 +155,26 @@ if $ARGS[0] = 'loss':
 		gs 'stat'
 
 		act 'Cry': gt $loc, $metka
+		
+	elseif ThiefFight = 1:
+		if autocombat_surrender = 0 or pcs_health < 100: pcs_health = 100
+		killvar 'autocombat_surrender'
+		ThiefFight = 0
+		sub += 1
+		Loss += 1
+		money = 0
+		'He knocks you down with one final hit. The moment he puts you out of commission he grabs the money and runs away.'
+		act 'Get back on your feet': gt $loc, $metka
 		exit
 	elseif DimaFight = 1:
 		if autocombat_surrender = 0 or pcs_health < 100: pcs_health = 100
 		killvar 'autocombat_surrender'
 		DimaFight = 0
 		grupvalue[4] -= 2
-		Loss = 0
+		if Loss < 0: Loss = 0
 		'<center><img src="images/characters/pavlovsk/school/boy/dimka/revenge/girlbeatsguy2.jpg"></center>'
 		'"Where the hell did you learn how to fight, <<$pcs_nickname>>," Lera asks in an annoyed tone before sweeping Dimka''s legs out from under him. Lena and Lera proceed to kick and stomp Dimka until he starts begging them to stop.'
-		'After a few more hits, they get bored and check his pockets for cash. "10000 rubles! Sweet!" They split the money among themselves leaving none for you.'
+		'After a few more hits, they get bored and check his pockets for cash. "10.000 rubles! Sweet!" They split the money among themselves leaving none for you.'
 		'Lena turns to you and says tauntingly, "You either need to learn how to fight or get used to serving us, little bunny." Before you can say anything, the bell rings for class.'
 
 		act 'Continue': gt 'gschool_lessons', 'short_break'
@@ -297,7 +307,7 @@ if $ARGS[0] = 'win':
 
 		act 'Further':gt'street'
 		exit
-	elseif RapistFight = 1:
+	elseif RapistFight = 1 or ThiefFight = 1:
 		if succubusQW >= 4 and scpopt < 2:
 			$sclocrt = 'ender'
 			$scargrt = 'win'
@@ -306,13 +316,15 @@ if $ARGS[0] = 'win':
 			gt 'succubus', 'RapistFight'
 		end
 		scpopt = 0
-		RapistFight = 0
 		if rikudo > 10:rikudo += 100
 		pcs_dom += 1
 		Win += 1
-		money += RAND(500,2000)
+		money += rand(500,2000)
 
-		'You fought back the rapist and took his wallet.'
+		'You fought back the '+iif(RapistFight = 1, 'rapist', 'thief')+' and took his wallet.'
+		
+		RapistFight = 0
+		ThiefFight = 0
 
 		act 'Leave': gt $loc, $metka
 		exit

locations/etoexhib.qsrc

@@ -214,6 +214,8 @@ if $ARGS[0] = 'pos6':
 
 		act 'Leave':gt 'dachi'
 	end
+
+	gs 'treeCircEntry', 'Village'
 end
 
 if $ARGS[0] = 'pos7':
@@ -297,7 +299,7 @@ if $ARGS[0] = 'pos9':
 		'Work:"For some shoveling work, 3000<b>₽</b>."'
 
 		act 'Agree':
-			cls
+			*clr & cla
 			etoexhib = 11
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/suburban/dachastroy.jpg"></center>'
@@ -366,7 +368,7 @@ if $ARGS[0] = 'pos12':
 		'Work:"Sorry young lady. Some motivation would help us work harder."'
 
 		act 'Decline':
-			cls
+			*clr & cla
 			etoexhib = 15
 			temp = daystart
 			gs 'stat'
@@ -377,7 +379,7 @@ if $ARGS[0] = 'pos12':
 		end
 
 		act 'Accept and give half the amount':
-			cls
+			*clr & cla
 			money -= 1500
 			etoexhib = 14
 			temp = daystart
@@ -701,7 +703,7 @@ if $ARGS[0] = 'pos19':
 	'The Lyceum entrance hall. It''s pretty clean and quiet. There is a desk and office for the personnel department. On the wall hangs a timetable.'
 
 	if workPTU = 2:
-		cls
+		*clr & cla
 		pcs_mood -= 50
 		workPTU = 1
 		teachlevel = 0
@@ -814,13 +816,13 @@ if $ARGS[0] = 'pos21':
 	temp = rand(1, 100)
 
 	if temp >= 90:
-		cls
+		*clr & cla
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/altschool/ptu_fight.jpg"></center>'
 		'You see a group of girls, mocking and kicking a young man.'
 
 		act 'Interfere for the man':
-			cls
+			*clr & cla
 			teachlevel += 1
 			'"What are you doing? Immediately stop, I''ll call the police!" You yell at the girls. And they snort:"He''s an ssshole, he deserved it!" but they still leave the guy alone.'
 			'You are a good example by helping the helpless man. This will positively impact your reputation.'
@@ -844,7 +846,7 @@ if $ARGS[0] = 'pos22':
 	temp = rand(1, 100)
 
 	if temp >= 90:
-		cls
+		*clr & cla
 		pcs_horny += 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/altschool/ptu_rand.jpg"></center>'
@@ -869,7 +871,7 @@ if $ARGS[0] = 'pos23':
 	temp = rand(1, 100)
 
 	if temp >= 90:
-		cls
+		*clr & cla
 		pcs_horny += 10
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/altschool/ptu_korr1.jpg"></center>'
@@ -915,7 +917,7 @@ if $ARGS[0] = 'pos24tk':
 	'In one corner there is a small old sofa.'
 
 	$prositdirizv = {
-		cls
+		*clr & cla
 		cla
 		gs'stat'
 		set izvad = 1
@@ -943,7 +945,7 @@ if $ARGS[0] = 'pos24tk':
 	if hour >= 14 and hour <= 15:
 		temp = RAND(1,100)
 		if temp >= 90:
-			cls
+			*clr & cla
 			minut += 6
 			pcs_mood -= 10
 			pcs_willpwr -= 10
@@ -996,7 +998,7 @@ if $ARGS[0] = 'pos25':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/altschool/ptu_klass.jpg"></center>'
 	'Your class.'
 	if workPTU = 3:
-		cls
+		*clr & cla
 		hour = 14
 		workPTU = 4
 		gs 'stat'
@@ -1008,7 +1010,7 @@ if $ARGS[0] = 'pos25':
 
 		act 'Next':gt 'etoexhib', 'pos25'
 	elseif workPTU = 4 and gor_dorm = 4:
-		cls
+		*clr & cla
 		hour = 14
 		gor_dorm = 5
 		gs 'stat'
@@ -1080,7 +1082,7 @@ if $ARGS[0] = 'pos27':
 
 		if temp >= 95:
 			act 'Drop your pencil on the ground':
-				cls
+				*clr & cla
 				pcs_horny += 40
 				minut += 60
 				teachlevel -= 5
@@ -1104,7 +1106,7 @@ if $ARGS[0] = 'pos27':
 			end
 		elseif temp >= 85 and temp < 90:
 			act 'Sit on the table':
-				cls
+				*clr & cla
 				pcs_horny += 40
 				minut += 60
 				teachlevel -= 2
@@ -1117,7 +1119,7 @@ if $ARGS[0] = 'pos27':
 			end
 		elseif temp >= 75 and temp < 80:
 			act 'Drop the chalk':
-				cls
+				*clr & cla
 				pcs_horny += 40
 				minut += 60
 				teachlevel -= 5
@@ -1141,7 +1143,7 @@ if $ARGS[0] = 'pos27':
 			end
 		elseif temp >= 65 and temp < 70:
 			act 'Sit sexily on the table':
-				cls
+				*clr & cla
 				pcs_horny += 40
 				minut += 60
 				teachlevel -= 2
@@ -1154,7 +1156,7 @@ if $ARGS[0] = 'pos27':
 			end
 		elseif temp >= 55 and temp < 60:
 			act 'Show stockings':
-				cls
+				*clr & cla
 				pcs_horny += 40
 				minut += 60
 				teachlevel -= 2
@@ -1170,7 +1172,7 @@ if $ARGS[0] = 'pos27':
 
 	if hour < 16:
 		act 'Teach':
-			cls
+			*clr & cla
 			minut += 60
 			pcs_mood -= 5
 
@@ -1243,7 +1245,7 @@ if $ARGS[0] = 'pos34':
 	temp = rand(1, 100)
 
 	if temp >= 90:
-		cls
+		*clr & cla
 		minut += 15
 		pcs_horny += 20
 		gs 'stat'
@@ -1282,7 +1284,7 @@ if $ARGS[0] = 'pos36':
 	temp = rand(1, 100)
 
 	if temp >= 90:
-		cls
+		*clr & cla
 		minut += 15
 		pcs_horny += 10
 		gs 'stat'
@@ -1308,7 +1310,7 @@ if $ARGS[0] = 'pos37':
 
 	if temp >= 90:
 		act 'Say hello to the Director':
-			cls
+			*clr & cla
 			minut += 15
 			teachlevel += 1
 			gs 'stat'
@@ -1340,7 +1342,7 @@ if $ARGS[0] = 'pos38':
 	temp = rand(1, 100)
 
 	if temp >= 90:
-		cls
+		*clr & cla
 		minut += 15
 		pcs_horny += 10
 		gs 'stat'
@@ -1353,7 +1355,7 @@ if $ARGS[0] = 'pos38':
 
 	if gor_dorm = 5:
 		act 'Search the Web for "Tetrodotoxin"':
-			cls
+			*clr & cla
 			minut += 120
 			gor_dorm = 6
 			gs 'stat'
@@ -1398,7 +1400,7 @@ if $ARGS[0] = 'pos39':
 	temp = rand(1, 100)
 
 	if temp >= 90:
-		cls
+		*clr & cla
 		minut += 15
 		pcs_horny += 10
 		gs 'stat'
@@ -1540,25 +1542,28 @@ if $ARGS[0] = 'pos50':
 end
 
 if $ARGS[0] = 'pos51':
-	cla
-	*clr
+	$menu_loc = 'etoexhib'
+	$menu_arg = 'pos51'
+	menu_off = 0
+	*clr & cla
 	minut += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/podezd.jpg"></center>'
 	'Entrance to the 5-floors building in which you live. The lock on the door leading to the attic is broken.'
 
 	if sosedQW = 0:
+		menu_off = 1
 		'<br>Suddenly in the stairwell you are faced with a young guy who is climbing up the stairs. He runs into you and is noticeably embarrassed.<font color="#1589FF">"I''m sorry, I did not see you there. You''ve moved into apartment 69, right?"</font>'
 
 		act 'Yes, I live in the apartment 69':
-			cls
+			*clr & cla
 			sosedQW = 1
 			minut += 5
 			gs 'stat'
 			'You nod, confirming that you live in apartment 69. The guy looks visibly delighted and says, <font color="#1589FF">"Wonderful. I lived there before Petrovich. He tormented the whole building. By the way I''m Timothy, and you are?"</font> '
 
 			act '<<$pcs_nickname>>':
-				cls
+				*clr & cla
 				gs 'stat'
 				'<font color="magenta">"My name is <<$pcs_nickname>>,"</font> you say. He nodded his head and began to get the key to open the door of the apartment 68. "Very nice. I live in the next apartment." The guy opened the door and on the threshold appeared the curious face of an elderly woman. She pointed her sharp nose at you and began to curiously look you. Timothy entered the apartment and said irritably, "Mother, stop hanging around the front door!" and closed the door.'
 
@@ -1574,8 +1579,7 @@ if $ARGS[0] = 'pos51':
 	end
 
 	act 'Leave the building':
-		cls
-
+		*clr & cla
 		if $clothingworntype = 'nude':
 			'<b><font color="red">You need to get dressed.</font></b>'
 			xgt $curloc
@@ -1593,7 +1597,10 @@ if $ARGS[0] = 'pos51':
 end
 
 if $ARGS[0] = 'pos52':
-	cls
+	$menu_loc = 'etoexhib'
+	$menu_arg = 'pos52'
+	menu_off = 0
+	*clr & cla
 	minut += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/cherdak.jpg"></center>'
@@ -1614,8 +1621,11 @@ end
 if $ARGS[0] = 'pos53':
 	$metka = $ARGS[0]
 	$loc = $CURLOC
+	$menu_loc = 'etoexhib'
+	$menu_arg = 'pos53'
+	menu_off = 0
 	$location_type = 'secluded'
-	cls
+	*clr & cla
 	minut += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/roof.jpg"></center>'
@@ -1751,7 +1761,7 @@ if $ARGS[0] = 'pos90':
 	end
 
 	act 'Leave':
-		cls
+		*clr & cla
 		gt 'etoexhib', 'pos24'
 	end
 end

locations/experiment.qsrc

@@ -3,14 +3,14 @@
 $loc = 'experiment'
 $location_type = private
 $locM = 'experiment'
-$menu_loc = 'experiment'
-$menu_arg = 'private'
-menu_off = 0
 
 $doc1 = 'Doctor Sokolnikov'
 $doc2 = 'Doctor Ivanov'
 
 if $ARGS[0] = 'start':
+	$menu_loc = 'experiment'
+	$menu_arg = 'start'
+	menu_off = 0
 	$metka = 'start'
 	minut += 2
 	gs 'stat'
@@ -90,6 +90,8 @@ end
 
 if $ARGS[0] = 'deskTalk:shout':
 	shouted = 1
+	menu_off = 1
+	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\shout.jpg"></center>'
 	*nl
 	'"Calm damn miss <<$pcs_lastname>>, or I will be forced to call a security!" the woman yells as she tries to calm you down.'
@@ -99,6 +101,8 @@ if $ARGS[0] = 'deskTalk:shout':
 end
 
 if $ARGS[0] = 'deskTalk:refuse':
+	menu_off = 1
+	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
 	*nl
 	'"I understand miss <<$pcs_lastname>>. I guess being used by those extra large sized cocks is not an experience that a woman would like to go through repeatedly." she understandingly replies.'
@@ -115,14 +119,16 @@ if $ARGS[0] = 'deskTalk:refuse':
 end
 
 if $ARGS[0] = 'deskTalk:admitWhore':
+	menu_off = 1
+	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
 	*nl
 	'"You see miss <<$pcs_lastname>>, acceptance is the first step. Now do you want to rejoin the experiment, or not?" she grins as she asks.'
 	'"I am not sure, nurse..." you hesitantly answer.'
 	'"Just think about all those big black cocks, ready to fill you up... And all the orgasms you would be experiencing!" she is trying her best to tempt you.'
 
-	act 'Yes, I need it...':gt 'experiment', 'deskTalk:volunteer'
 	act 'No, I have to fight this..':gt 'poli', 'start'
+	act 'Yes, I need it...':gt 'experiment', 'deskTalk:volunteer'
 end
 
 if $ARGS[0] = 'deskTalk:volunteer':
@@ -130,6 +136,7 @@ if $ARGS[0] = 'deskTalk:volunteer':
 	impreg = 0
 	expVolunteer = 1
 	expVolunteerExam = 0
+	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
 	*nl
@@ -139,6 +146,7 @@ end
 
 if $ARGS[0] = 'deskTalk:volunteer:start':
 	minut += 3
+	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
 	*nl
@@ -154,6 +162,7 @@ end
 
 if $ARGS[0] = 'form':
 	minut += 2
+	menu_off = 1
 	gs 'stat'
 	'<h2>Research project #667 - "Fruit of Eden"</h2>'
 
@@ -183,6 +192,7 @@ end
 if $ARGS[0] = 'form:filled':
 	exp_form = 1
 	minut += 3
+	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\desk.jpg"></center>'
 	*nl
@@ -195,6 +205,7 @@ end
 
 if $ARGS[0] = 'testarea:start':
 	minut += 1
+	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse2.jpg"></center>'
 	*nl
@@ -582,8 +593,9 @@ if $ARGS[0] = 'testarea:start:treatmentStart':
 	'She takes out a syringe, pushing the remaining air bubbles out. Holding you by the arm she is about to inject it into you...'
 
 	act 'Brace for the pinch':
-		if preg = 0: gt 'experiment', 'testarea:start:treatmentStart:injection'
-		if preg > 0:
+		if pregchem = 0: 
+			gt 'experiment', 'testarea:start:treatmentStart:injection'
+		elseif pregchem > 0:
 			cla & *clr
 			minut += 120
 			thinkpreg = 1
@@ -761,13 +773,33 @@ if $ARGS[0] = 'testarea:start:treatmentStart:dream3':
 		if interr = 3:'<<$doc1>>: "Indeed. And she has had sex with both an asian AND an african male."'
 	end
 	*nl
-	'Unable to stay awake anymore you fade out back to the world of unknowing...'
+	
+	if venera = 0 and GerpesOnce = 0 and Gerpes = 0 and SifacOnce = 0 and Sifilis = 0 and TriperOnce = 0 and Triper = 0 and TriperOral = 0 and KandidozOnce = 0 and Kandidoz = 0:
+		'Unable to stay awake anymore you fade out back to the world of unknowing...'
+		act '(Fade out)':minut += 300 & gt 'experiment', 'testarea:start:treatmentStart:wakeup1'
+	else
+		'"But she has a STD," is the last thing you here before you fade out back to world of unknowing...'
+		act '(Fade out)':minut += 300 & gt 'experiment', 'testarea:start:treatmentStart:wakeup:std'
+	end
+end
 
-	act '(Fade out)':minut += 300 & gt 'experiment', 'testarea:start:treatmentStart:wakeup1'
+if $ARGS[0] = 'testarea:start:treatmentStart:wakeup:std':
+	minut += 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\lights.jpg"></center>'
+	'You''re finally awake, feeling as if you''ve slept for days.'
+	'Your eyes slowly adjust to the light coming from the ceiling lamps. It looks as if there are no windows at all and only artificial light illuminates the room.'
+	*nl
+	'A nurse stands next to your bed. "Sorry, we can''t let you be part of the experiment. You have a STD," she says. "You can get dressed here before you leave."'
+	
+	act 'Get dressed and leave': gt 'poli', 'start'	
 end
 
 if $ARGS[0] = 'testarea:start:treatmentStart:wakeup1':
 	minut += 1
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:start:treatmentStart:wakeup1'
+	menu_off = 0
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\lights.jpg"></center>'
 	*nl
@@ -782,6 +814,9 @@ if $ARGS[0] = 'testarea:start:treatmentStart:wakeup1':
 end
 
 if $ARGS[0] = 'testarea:start:treatmentStart:wakeup2':
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:start:treatmentStart:wakeup2'
+	menu_off = 0
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound1.jpg"></center>'
 	*nl
 	'...you are not just bound, but also completely naked!'
@@ -793,6 +828,7 @@ end
 
 if $ARGS[0] = 'testarea:start:treatmentStart:wakeup3':
 	minut += 5
+	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\doc1.jpg"></center>'
 	*nl
@@ -955,6 +991,9 @@ end
 
 if $ARGS[0] = 'testarea:treatment:bed':
 	minut += 5
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:treatment:bed'
+	menu_off = 0
 	gs 'stat'
 	'<center><h3>Experiment public room</h3></center>'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound2.jpg"></center>'
@@ -989,6 +1028,7 @@ if $ARGS[0] = 'testarea:treatment:bed':
 end
 
 if $ARGS[0] = 'testarea:treatment:bed:sleep':
+	menu_off = 1
 	if plugIn = 0:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound3.jpg"></center>'
 	if plugIn = 1:'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\bedbound5.jpg"></center>'
 	*nl
@@ -1004,6 +1044,7 @@ if $ARGS[0] = 'testarea:treatment:bed:sleep':
 end
 
 if $ARGS[0] = 'testarea:treatment:bed:wait':
+	menu_off = 1
 	minut += rand (20, 60)
 	gs 'stat'
 
@@ -1116,7 +1157,7 @@ if $ARGS[0] = 'testarea:treatment:bed:wait:event':
 				act 'Continue':gt 'experiment', 'testarea:treatment:bed:doctor1'
 			else
 				if pregchem > 30:
-					pregTalkPC = 1
+					pcs_pregtalk = 1
 					impreg = 1
 					*nl
 					'"Very well you little cum bucket, you have finally managed to finish the impregnation process. You will proceed to the final stage in a short time." the doctor tells you.'
@@ -1202,6 +1243,8 @@ if $ARGS[0] = 'testarea:treatment:sex3':
 	gs 'arousal', 'vaginal', 4, 'bound', 'sub', 'rough', 'humiliation'
 	gs 'arousal', 'end'
 	gs 'cum_call', '', 'Some african male', 0, '', 100000, 75
+	gs 'experiment', 'std_block'
+	
 	gs 'stat'
 	*nl
 	'At last his ejaculation ends. He does not pull immediately out, instead he signals for the nurse. As she arrives, he finally pulls his sticky, cum covered cock out. And you don''t feel empty for too long...'
@@ -1209,6 +1252,7 @@ if $ARGS[0] = 'testarea:treatment:sex3':
 end
 
 if $ARGS[0] = 'testarea:treatment:deflower':
+	menu_off = 1
 	if experi_stage = 0:
 		minut += 2
 		gs 'stat'
@@ -1278,6 +1322,8 @@ if $ARGS[0] = 'testarea:treatment:deflower':
 		gs 'arousal', 'vaginal', 5, 'bound', 'sub', 'rough', 'humiliation'
 		gs 'arousal', 'end'
 		gs 'cum_call', '', 'Some african male', 0, '', 100000, 75
+		gs 'experiment', 'std_block'
+		
 		gs 'stat'
 		*nl
 		act '(endure)':experi_stage = 5 & gt 'experiment', 'testarea:treatment:deflower'
@@ -1388,6 +1434,9 @@ end
 
 if $ARGS[0] = 'testarea:treatment:room':
 	minut += 1
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:treatment:room'
+	menu_off = 0
 	gs 'stat'
 	$metka = 'testarea:treatment:room'
 	'<center><h3>Experiment private room</h3></center>'
@@ -1397,7 +1446,7 @@ if $ARGS[0] = 'testarea:treatment:room':
 	'The bed has arm and leg cuffs. A hook is hanging from the ceiling. A large box in the far corner is locked by a code lock, you can only guess what''s inside.'
 	'What strikes fear in your heart is a first aid kit on one of the walls, what just might happen here is so terrible that a first aid kit would be needed...'
 	'The <a href="exec:gt ''experiment'', ''testarea:treatment:room:shower''">bathroom</a> has, in addition to regular equipment, also an enema kit.'
-	'The exit door has a safety glass window. You are able to leave the room, but the only way you can go is the <a href="exec:gt ''experiment'', ''testarea:treatment:room:social''">social room</a>. All the other doors are securely locked.'
+	'The exit door has a safety glass window. You are able to leave the room, but the only way you can go is the <a href="exec:minut += 10 & gt ''experiment'', ''testarea:treatment:room:social''">social room</a>. All the other doors are securely locked.'
 
 	act 'Wait for some time':gt 'experiment', 'testarea:treatment:room:wait'
 	act 'Go to the bathroom':gt 'experiment', 'testarea:treatment:room:shower'
@@ -1424,10 +1473,11 @@ if $ARGS[0] = 'testarea:treatment:room':
 	if pcs_sleep < 50:
 		act 'Go to sleep':gt 'experiment', 'testarea:treatment:room:sleep'
 	end
-	act 'Go to social room':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Go to social room':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:sleep':
+	menu_off = 1
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\sleep.jpg"></center>'
 	*nl
 	'You fall asleep on the bed, barely covered by the sheets...'
@@ -1448,6 +1498,9 @@ if $ARGS[0] = 'testarea:treatment:room:shower':
 	$locM = 'experiment'
 	$metkaM = 'testarea:treatment:room:shower'
 	$metka = 'testarea:treatment:room:shower'
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:treatment:room:shower'
+	menu_off = 0
 	'<center><h3>Experiment private - bathroom</h3></center>'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\roomshower.jpg"></center>'
 	*nl
@@ -1496,7 +1549,9 @@ if $ARGS[0] = 'testarea:treatment:room:wait':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social':
-	minut += 10
+	$menu_loc = 'experiment'
+	$menu_arg = 'testarea:treatment:room:social'
+	menu_off = 0
 	$metka = 'testarea:treatment:room:social'
 
 	G1R = rand (0, 100)
@@ -1606,6 +1661,8 @@ if $ARGS[0] = 'testarea:treatment:room:social':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:gofuck':
+	menu_off = 1
+	gs 'stat'
 	'"White whore stop reading! Too much cum in balls I have, I need to empty them!" you hear a deep voice say.'
 	*nl
 	'One of the men approached you directly in the social room! You have no choice but to submit to him... like some kind of pet.'
@@ -1615,16 +1672,18 @@ if $ARGS[0] = 'testarea:treatment:room:social:gofuck':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G1':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g1.jpg"></center>'
 	*nl
 	'A petite young girl, she must''ve just turned eighteen. She is obviously in a bad mood, keeping to herself.'
 	act 'Talk to her':gt 'experiment', 'testarea:treatment:room:social:girls:G1:talk'
-	act 'Go back':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Go back':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk':
+	menu_off = 1
 	$subloc = 'testarea:treatment:room:social:girls:G1:talk:question'
 	minut += 3
 	gs 'stat'
@@ -1636,10 +1695,11 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk':
 	act 'Why did you join this experiment?':G1Q = 2 & gt 'experiment', $subloc
 	act 'What will you do once you finish the experiment?':G1Q = 3 & gt 'experiment', $subloc
 	act 'You don''t mind the way we are treated by the men?':G1Q = 4 & gt 'experiment', $subloc
-	act 'Leave her be':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Leave her be':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk:question':
+	menu_off = 1
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g1.jpg"></center>'
@@ -1663,16 +1723,18 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G1:talk:question':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G2':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g2.jpg"></center>'
 	*nl
 	'A thin but lively girl. She is observing everyone else in the room, probably looking for a distraction from the usual boredom.'
 	act 'Talk to her':gt 'experiment', 'testarea:treatment:room:social:girls:G2:talk'
-	act 'Go back':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Go back':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk':
+	menu_off = 1
 	minut += 3
 	gs 'stat'
 	$subloc = 'testarea:treatment:room:social:girls:G2:talk:question'
@@ -1684,10 +1746,11 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk':
 	act 'Why did you join this experiment?':G2Q = 2 & gt 'experiment', $subloc
 	act 'What will you do once you finish the experiment?':G2Q = 3 & gt 'experiment', $subloc
 	act 'You don''t mind the way we are treated by the men?':G2Q = 4 & gt 'experiment', $subloc
-	act 'Leave her be':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Leave her be':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk:question':
+	menu_off = 1
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g2.jpg"></center>'
@@ -1711,14 +1774,17 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G2:talk:question':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G3':
+	menu_off = 1
+	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g3.jpg"></center>'
 	*nl
 	'A mature but fairly attractive woman in her late thirties. She is minding her own, reading a book.'
 	act 'Talk to her':gt 'experiment', 'testarea:treatment:room:social:girls:G3:talk'
-	act 'Go back':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Go back':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk':
+	menu_off = 1
 	minut += 3
 	gs 'stat'
 	$subloc = 'testarea:treatment:room:social:girls:G3:talk:question'
@@ -1730,10 +1796,11 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk':
 	act 'Why did you join this experiment?':G3Q = 2 & gt 'experiment', $subloc
 	act 'What will you do once you finish the experiment?':G3Q = 3 & gt 'experiment', $subloc
 	act 'You don''t mind the way we are treated by the men?':G3Q = 4 & gt 'experiment', $subloc
-	act 'Leave her be':gt 'experiment', 'testarea:treatment:room:social'
+	act 'Leave her be':minut += 10 & gt 'experiment', 'testarea:treatment:room:social'
 end
 
 if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk:question':
+	menu_off = 1
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\g3.jpg"></center>'
@@ -1757,6 +1824,8 @@ if $ARGS[0] = 'testarea:treatment:room:social:girls:G3:talk:question':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event':
+	menu_off = 1
+	gs 'stat'
 	actionType = rand (1, 12)
 
 	! SEX
@@ -1816,6 +1885,7 @@ if $ARGS[0] = 'testarea:treatment:room:event':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:positionDoggy':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	i = rand(1, 3)
@@ -1829,6 +1899,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:positionDoggy':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:positionVag':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	i = rand(1, 3)
@@ -1841,6 +1912,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:positionVag':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:positionKneel':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	i = rand(1, 3)
@@ -1855,6 +1927,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:positionKneel':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:seduce':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	i = rand(1, 3)
@@ -1878,6 +1951,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:seduce':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:beg':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\beg.jpg"></center>'
@@ -1890,6 +1964,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:beg':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:resist':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\resist.jpg"></center>'
@@ -1900,6 +1975,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:resist':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:sex':
+	menu_off = 1
 	gs 'stat'
 
 	! COITUS: vaginal doggy, 1v1
@@ -1914,6 +1990,8 @@ if $ARGS[0] = 'testarea:treatment:room:event:sex':
 		gs 'arousal', 'vaginal', 20, 'sub', 'rough', 'humiliation'
 		gs 'arousal', 'end'
 		gs 'cum_call', '', 'Some african male', 0, '', 250000, 100
+		gs 'experiment', 'std_block'
+		
 		gs 'stat'
 
 	! COITUS: vaginal cowgirl, 1v1
@@ -1930,6 +2008,8 @@ if $ARGS[0] = 'testarea:treatment:room:event:sex':
 		gs 'arousal', 'vaginal', 45, 'bound', 'sub', 'rough', 'humiliation'
 		gs 'arousal', 'end'
 		gs 'cum_call', '', 'Some african male', 0, '', 250000, 100
+		gs 'experiment', 'std_block'
+		
 		gs 'stat'
 
 	! COITUS: vaginal missionary, 1v1
@@ -1945,6 +2025,8 @@ if $ARGS[0] = 'testarea:treatment:room:event:sex':
 		gs 'arousal', 'bj', 15, 'sub', 'rough', 'humiliation'
 		gs 'arousal', 'end'
 		gs 'cum_call', '', 'Some african male', 0, '', 250000, 100
+		gs 'experiment', 'std_block'
+		
 		gs 'stat'
 
 	! COITUS: vaginal + mouth, 2v1
@@ -1962,6 +2044,8 @@ if $ARGS[0] = 'testarea:treatment:room:event:sex':
 		gs 'arousal', 'end'
 		gs 'cum_call', '', 'Some african male', 0, '', 250000, 100
 		gs 'cum_call', 'mouth', 'Some african male', 0, '', 250000, 100
+		gs 'experiment', 'std_block'
+		
 		gs 'stat'
 
 	! COITUS: anal doggy, 1v1
@@ -1978,6 +2062,8 @@ if $ARGS[0] = 'testarea:treatment:room:event:sex':
 		gs 'arousal', 'anal', 20, 'sub', 'rough', 'humiliation'
 		gs 'arousal', 'end'
 		gs 'cum_call', 'anus', 'Some african male', 0, '', 250000, 100
+		gs 'experiment', 'std_block'
+		
 		gs 'stat'
 
 	! COITUS: anal missionary, 1v1
@@ -1994,6 +2080,8 @@ if $ARGS[0] = 'testarea:treatment:room:event:sex':
 		gs 'arousal', 'anal', 30, 'sub', 'rough', 'humiliation'
 		gs 'arousal', 'end'
 		gs 'cum_call', 'anus', 'Some african male', 0, '', 250000, 100
+		gs 'experiment', 'std_block'
+		
 		gs 'stat'
 
 	! COITUS: bj, 1v1
@@ -2013,6 +2101,8 @@ if $ARGS[0] = 'testarea:treatment:room:event:sex':
 		gs 'arousal', 'end'
 		gs 'cum_call', 'mouth', 'Some african male', 0, '', 250000, 70
 		gs 'cum_call', 'face', 'Some african male', 0, '', 250000, 20
+		gs 'experiment', 'std_block'
+		
 		gs 'stat'
 
 	! COITUS: bdsm, anal, 1v1
@@ -2031,6 +2121,8 @@ if $ARGS[0] = 'testarea:treatment:room:event:sex':
 		gs 'arousal', 'anal', 30, 'bound', 'sub', 'rough', 'humiliation'
 		gs 'arousal', 'end'
 		gs 'cum_call', 'anus', 'Some african male', 0, '', 250000, 100
+		gs 'experiment', 'std_block'
+		
 		gs 'stat'
 
 	! COITUS: bdsm, whip, 1v1
@@ -2057,6 +2149,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:sex':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:african:talk':
+	menu_off = 1
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\<<$africanN>>.jpg"></center>'
@@ -2221,8 +2314,10 @@ if $ARGS[0] = 'testarea:treatment:room:event:african:talk:Q8':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:nurse:check':
+	menu_off = 1
 	minut += 5
 	! STATUS CHECK: nurse
+	gs 'experiment', 'std_block'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
 	'She takes a sample of your blood, measures your temperature, blood pressure and proceeds to examine insides of your vagina.'
 
@@ -2235,7 +2330,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:nurse:check':
 	'<i>The cold medical mirror is nothing compared to the abuse endured by the giant black cocks.</i>'
 	'When she''s done, she packs up her equipment and says,'
 	if pregchem > 30:
-		pregTalkPC = 1
+		pcs_pregtalk = 1
 		impreg = 1
 		'Very well miss <<$pcs_lastname>>, you have finally managed to complete the impregnation process. You will proceed to the final stage in a short time.'
 	else
@@ -2255,6 +2350,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:nurse:check':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:nurse:talkTry':
+	menu_off = 1
 	minut += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
@@ -2263,6 +2359,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:nurse:talkTry':
 end
 
 if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk':
+	menu_off = 1
 	nurseRel += 1
 	minut += 2
 	gs 'stat'
@@ -2395,6 +2492,7 @@ if $ARGS[0] = 'testarea:treatment:room:event:nurse:talk:Q7':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg':
+	menu_off = 1
 	minut += 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\positiondoggy2.jpg"></center>'
@@ -2409,6 +2507,7 @@ if $ARGS[0] = 'testarea:treatment:impreg':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:doctor:volunteer':
+	menu_off = 1
 	minut += 3
 	thinpreg = 1
 	knowpreg = 1
@@ -2432,6 +2531,7 @@ if $ARGS[0] = 'testarea:treatment:impreg:doctor:volunteer':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:doctor':
+	menu_off = 1
 	minut += 3
 	thinpreg = 1
 	knowpreg = 1
@@ -2456,6 +2556,7 @@ if $ARGS[0] = 'testarea:treatment:impreg:doctor':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:cry':
+	menu_off = 1
 	minut += 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\cry.jpg"></center>'
@@ -2467,7 +2568,9 @@ if $ARGS[0] = 'testarea:treatment:impreg:cry':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:dressup':
+	menu_off = 1
 	minut += 8
+	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
 	'The nurse enters the room, "So miss <<$pcs_lastname>>, here are your things from the locker, please dress up."'
 	'You eagerly put on the clothing that you left in the locker before getting locked up for days, maybe weeks, but definitely dozens of ejaculations ago.'
@@ -2478,9 +2581,11 @@ if $ARGS[0] = 'testarea:treatment:impreg:dressup':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:leave':
+	menu_off = 1
 	minut += 5
 	money += 50000
 	experimentAbsolved += 1
+	gs 'experiment', 'std_block'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images\locations\shared\clinic\experiment\nurse1.jpg"></center>'
 	'The nurse speaks up, "And the last matter to be settled is your payment."'
@@ -2515,9 +2620,10 @@ if $ARGS[0] = 'testarea:treatment:impreg:shout:punish:volunteer2':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:shout':
+	menu_off = 1
 	minut += 3
 	gs 'stat'
-	'<center><img <<$set_imgh>> src="images\shout\pc.jpg"></center>'
+	'<center><img <<$set_imgh>> src="images\pc\shout.jpg"></center>'
 	'"My life is ruined! You have forced upon this me! I was raped at least million times!" you angrily yell out.'
 	'<<$doc1>>: "Calm down miss <<$pcs_lastname>>. You should be proud of yourself, you helped the medical field progress.'
 	'"Go to hell! You and your medicine!" you keep on yelling.'
@@ -2533,6 +2639,7 @@ if $ARGS[0] = 'testarea:treatment:impreg:shout':
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:shout:punish':
+	menu_off = 1
 	'<center><video autoplay loop src="images\shared\sex\group\africangroup1.mp4"></video></center>'
 	'Several black men, most of them you have ''met'' before, start entering the room.'
 	'The one called Abdul is holding you while the other men grab your legs, making their way to your battered groin.'
@@ -2557,13 +2664,15 @@ if $ARGS[0] = 'testarea:treatment:impreg:shout:punish':
 	gs 'cum_call', 'breasts', 'Some african male', 0, '', 250000, 50
 	gs 'cum_call', 'butt', 'Some african male', 0, '', 250000, 50
 	gs 'cum_call', 'labia', 'Some african male', 0, '', 250000, 50
-
+	gs 'experiment', 'std_block'
+	
 	gs 'stat'
 
 	act 'Continue':gt 'experiment', 'testarea:treatment:impreg:shout:punish:kickout'
 end
 
 if $ARGS[0] = 'testarea:treatment:impreg:shout:punish:kickout':
+	menu_off = 1
 	minut += 5
 	'When they are finally done with you, one by one they leave the room and you crumble to the ground, filled with and covered by thick layers of jizz.'
 	'Far too exhausted, you can barely move, much less say anything. The only thing heard in the room for a moment is your hard, shaky breathing.'
@@ -2585,5 +2694,18 @@ if $ARGS[0] = 'testarea:treatment:impreg:shout:punish:kickout':
 	act 'Get up':gt 'poli', 'start'
 end
 
+if $ARGS[0] = 'std_block':
+	venera = 0
+	GerpesOnce = 0
+	Gerpes = 0
+	SifacOnce = 0
+	Sifilis = 0
+	TriperOnce = 0
+	Triper = 0
+	TriperOral = 0
+	KandidozOnce = 0
+	Kandidoz = 0
+end
+
 --- experiment ---------------------------------
 

locations/fame.qsrc

@@ -9,7 +9,7 @@
 
 if $ARGS[0] ! 'deg':
 
-	dynamic '<<$ARGS[0]>>_<<ARGS[1]>> += <<ARGS[2]>>'
+	dynamic '<<$ARGS[0]>>_<<$ARGS[1]>> += <<ARGS[2]>>'
 
 	fame_performer = 0
 	fame_sexind = 0

locations/father.qsrc

@@ -134,19 +134,19 @@ if tatlip>0 and fatherTatLip=0 and npc_rel['A28']>=60:
     end
 end
 
-if $clothingworntype = 'nude' and pregTalkFather = 0 and pregtime > 90:
+if $clothingworntype = 'nude' and npc_pregtalk['A28'] = 0 and pregchem > 2688:
     'Your stepfather looks at your belly with a surprised look on his face: "<<$pcs_nickname>>, you''re pregnant?"'
     if npc_sex['A28']!0:
         'You see him hesitate for a second, as if weighing whether he should say something or not. He finally does: "It''s not mine, I hope?"'
     end
-    pregTalkFather = 1
+    npc_pregtalk['A28'] = 1
     
-elseif $clothingworntype ! 'nude' and pregTalkFather = 0 and pregtime > 150:
+elseif $clothingworntype ! 'nude' and npc_pregtalk['A28'] = 0 and pregchem > 3600:
     'Your stepfather looks at your belly with a surprised look on his face: "<<$pcs_nickname>>, you''re pregnant?"'
     if npc_sex['A28']!0:
         'You see him hesitate for a second, as if weighing whether he should say something or not. He finally does: "It''s not mine, I hope?"'
     end
-    pregTalkFather = 1
+    npc_pregtalk['A28'] = 1
 end
 
 !!----------------------------------------end reaction block---------------------------------------------

locations/fit.qsrc

@@ -61,32 +61,11 @@ if $ARGS[0] = 'dressing room':
 	gs 'stat'
 	'<center><b><font color="maroon">Dressing</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/razd.jpg"></center>'
-	'Classifieds'
 	'Recruiting girls for local track team, the winners will receive cash prizes.'
 	'Attention, visitors to the sports section must wear sports outfits and shoes when using the facilities.'
-	! WD: Uninitialised ~ 'razdrand'
-	! if razdrand = 0 and tanznak = 0 and tanday ! daystart:
-	if tanznak = 0 and tanday ! daystart:
-		tanday = daystart
-		'In the locker room you notice <a href="exec:gt ''fit'', ''fitgirl''">cute girl</a>.'
-	elseif tanznak = 2:
-		*clr & cla
-		menu_off = 1
-		tanznak = 3
-		if $pantyworntype = 'none': gs 'underwear', 'wear'
-		gs 'panties', 'dispose'
-		gs 'clothing', 'wear_last_worn'
-		npc_rel['A218'] += 5
-		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/razd4.jpg"></center>'
-		'"You can at least tell me your name, maniac, seeing as you did not even have the decency to do so before you raped me." The girl says, catching her breath.'
-		'"I am <<$pcs_nickname>>, and how can I rape someone so keen?" You ask trying to find your panties.'
-		'"Looking for this?" asks the girl twirling your panties on her finger. "I''m Tanya, and you seduced me, I have never been with a girl before, and with very good reason. I live here with my parents, if you want to come for a visit."'
-		'"Okay that would be nice, can I have my panties back?" you ask, while holding out your hand.'
-		'"Nope, no return, there must be something of a momento from my first girl." With these words, Tanya slips your panties in her pocket and leaves.'
-
-		act 'Further':gt 'fit', 'dressing room'
-
-		exit
+	
+	if nichTanyaOpinion = 0 and (rand(1,100) <= 20 or nichDebug = 1):
+		'In the locker room you notice <a href="exec:gt ''fit'', ''fitgirl''">a cute girl</a>.'
 	end
 
 	act 'Take a shower (0:15)':
@@ -160,7 +139,7 @@ if $ARGS[0] = 'dressing room':
 	end
 
 	act 'Exit the locker room':
-		if $clothingworntype ! 'nude':
+		if $clothingworntype ! 'nude' and $clothingworntype ! 'swimwear':
 			gt 'fit', 'start'
 		else
 			cla
@@ -172,18 +151,20 @@ end
 
 if $ARGS[0] = 'fitgirl':
 	menu_off = 1
+	'<center><img <<$set_imgh>> src="images/characters/city/tanya/gym/idle0.jpg"></center>'
 	'The girl notices you looking and returns the smile. She undresses and taking some toiletries goes into the shower.'
 
 	act 'Turn away':gt 'fit', 'dressing room'
 
 	act 'Follow her':
 		*clr & cla
-		pcs_hairbsh = 0
-		pcs_makeup = 1
-		dynamic $showerdin
+		!! pcs_hairbsh = 0
+		!! pcs_makeup = 1
+		!! dynamic $showerdin
+		!! dont ruin the pcs makeup and hair because otherwise its pretty hard to get to 80 appearance
 		shovertania += 1
 		gs 'stat'
-		'<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
+		'<center><img <<$set_imgh>> src="images/characters/city/tanya/gym/shower0.jpg"></center>'
 		'There''s no one in the shower, except this girl. The girl looks around and seeing you smiles again then turns away.'
 		if pcs_dom > 10:
 			act 'Molest her':
@@ -191,8 +172,8 @@ if $ARGS[0] = 'fitgirl':
 				*clr
 				tanday = daystart
 				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/razd1.jpg"></center>'
-				'You walk up to a girl and place one hand on her buttock, she turns to face you.'
+				'<center><img <<$set_imgh>> src="images/characters/city/tanya/gym/shower_mol0.jpg"></center>'
+				'You walk up to the girl and gently place one hand on her right breast. She turns to face you.'
 
 				gs 'arousal', 'foreplay', 5, 'dom', 'lesbian'
 				gs 'stat'
@@ -202,7 +183,7 @@ if $ARGS[0] = 'fitgirl':
 
 					act 'Go':gt 'fit', 'dressing room'
 				elseif pcs_apprnc >= 80:
-					'The girl grabs your hand squeezing her ass, but stops for a moment considering you. She probably expected to see a guy and isn''t sure what to do.'
+					'The girl quickly turns around. She looks a little bit puzzled as she realizes that it was you who grabed her. She probably expected to see a guy and isn''t sure what to do.'
 
 					act 'Take advantage of the confusion':
 						cla
@@ -210,13 +191,13 @@ if $ARGS[0] = 'fitgirl':
 						gs 'underwear', 'remove'
 						gs 'clothing', 'strip'
 						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/razd2.jpg"></center>'
-						'While she is trying to understand what is happening you pull up her shirt and begin fondling her nipples with your tongue, and then her hand strokes your ass.'
+						'<center><img <<$set_imgh>> src="images/characters/city/tanya/gym/shower_mol1.jpg"></center>'
+						'While she is trying to understand what is happening you begin fondling her sex with your fingers, and then her hand strokes your ass.'
 
 						gs 'arousal', 'foreplay', 10, 'dom', 'lesbian'
 						gs 'stat'
 
-						act 'Further':tanznak = 1 & gt 'lezbsex', 'start'
+						act 'Further':tanznak = 1 & gt 'fit', 'tanyaIntroduction'
 					end
 
 					act 'Wait for her reaction':
@@ -232,7 +213,7 @@ if $ARGS[0] = 'fitgirl':
 							*clr
 							gs 'underwear', 'remove'
 							gs 'clothing', 'strip'
-							'<center><img <<$set_imgh>> src="images/locations/city/citycenter/gym/razd3.jpg"></center>'
+							'<center><img <<$set_imgh>> src="images/characters/city/tanya/gym/shower_mol2.jpg"></center>'
 							'The girl presses up to you even stronger and kisses your lips.'
 
 							gs 'arousal', 'kiss', 5, 'dom', 'lesbian'
@@ -240,7 +221,7 @@ if $ARGS[0] = 'fitgirl':
 
 							act 'Further':
 								tanznak = 1
-								gt 'lezbsex', 'start'
+								gt 'fit', 'tanyaIntroduction'
 							end
 						end
 					end
@@ -252,6 +233,27 @@ if $ARGS[0] = 'fitgirl':
 	end
 end
 
+if $ARGS[0] = 'tanyaIntroduction':
+	'<center><img <<$set_imgh>> src="images/characters/city/tanya/gym/shower1.jpg"></center>'
+	'Just as the both of you are about to get more intimate a group of middleaged women enters the showers. They haven''t noticed you yet. The girl next to you is clearly afraid of being spotted in the shower with you and takes her first opportunity to quietely escape to the dressing room.'
+	'You follow her only a few seconds later. She has already begun to dress herself.'
+	
+	if $pantyworntype = 'none': gs 'underwear', 'wear'
+	gs 'panties', 'dispose'
+	gs 'clothing', 'wear_last_worn'
+	nichTanyaOpinion = 1
+	npc_rel['A218'] += 5
+	nichTanyaFuckLast = daystart
+	'"You can at least tell me your name, seeing as you did not even have the decency to do so before you assaulted me." The girl says, catching her breath. Despite her words she doesn''t seem to be angry with you.'
+	'"I am <<$pcs_nickname>>, and how can I assault someone so keen?" You ask trying to find your panties.'
+	'"Looking for this?" asks the girl twirling your panties on her finger.'
+	'"Yes, can I have them back, please?" you ask, while holding out your hand.'
+	'"Nope. You seduced me. I have never been with a girl before and I think I earned this as a memento." With these words, Tanya slips your panties in her pocket.'
+	'"My name is Tanya by the way. I live only a short distance from here with my parents. You might come over if you like. Usually I''m home in the late afternoon. We could continue were we left off." she winks at you and leaves.'
+	'<i>You can now visit Tanya at her parents home in the Downtown area once a day after 16:00.</i>'
+	act 'Back':gt 'fit', 'dressing room'
+end
+
 if $ARGS[0] = 'gym':
 	*clr & cla
 	menu_off = 1

locations/foto.qsrc

@@ -81,7 +81,7 @@ if $ARGS[0] = 'start':
 	end
 
 	if $pantyworntype ! 'none' and pcs_inhib < 60:
-		if studio_strip_talk < 3 and $braworntype ! 'none' and pcs_inhib < 60:
+		if studio_strip_talk < 3:
 			act'Just strip to your panties':
 				gs 'clothing', 'strip'
 				cla & *clr
@@ -106,7 +106,7 @@ if $ARGS[0] = 'start':
 			end
 		end
 
-		if studio_strip_talk < 2 and pcs_inhib < 60:
+		if studio_strip_talk < 2 and $braworntype ! 'none':
 			act'Just strip to your underwear':
 				gs 'clothing', 'strip'
 				gs 'stat'
@@ -290,6 +290,13 @@ if $ARGS[0] = 'studio':
 			elseif pcs_skin < 40:
 				'	"Girl, your face is covered in acne unless you improve your appearance there is no chance of working here."'
 				act 'Leave':minut += 1 & gt 'down'
+			elseif bmi_calc >= foto_weight and foto_weight > 0:
+				'	You walk up to the front desk and find the same man who interviewed you previously. He looks up at you from his computer as you approach and frowns.'
+				'	Before you can say anything, he sternly says, "Girl, I told you to lose weight, not put it on! Now get out of here until you slim down some!"'
+				'	The comment turns your face bright red and you stop in your tracks. He stares at you angrily until you slowly start to back up and head towards the door.'
+				act 'Leave':minut += 1 & gt 'down'
+			elseif bmi_calc < foto_weight and foto_weight > 0:
+				gt'foto','interview2'
 			elseif fotofakepassport = 1:
 				'	You walk up to the front desk and find the same man who "interviewed" you previously. He looks up at you from his computer as you approach.'
 				'	"Hello there. Did you find your passport?"'
@@ -299,7 +306,7 @@ if $ARGS[0] = 'studio':
 					*nl
 					act'Continue':
 						cla
-						'	You step away from the desk with a sigh. You hoped to work something out but it looks like it''s no use. Damn. You really need to find a fake passport!'
+						'	You step away from the desk with a sigh. You hoped to work something out but it looks like it''s no use. Damn. You really need to find a fake passport! That or just wait a few years...'
 						act'Leave':gt'foto','start'
 					end
 
@@ -385,6 +392,7 @@ if $ARGS[0] = 'studio':
 		if first_fame_event = 2:
 			act'Ask if there''s special work available':gt'foto_events','special'
 		end
+		!!act'Check auditions':gt'foto_events2','auditions'
 	else
 		*nl
 		'	There is no way anyone is going to want to see pictures of you while your std is so obvious, you should see a doctor.'
@@ -439,14 +447,19 @@ if $ARGS[0] = 'interview2':
 	cla & *clr
 	menu_off = 1
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
-	if age_truth = 1 or age >= 18:
-		*nl
-		'	"I''m <<age>>."'
-		'	"I see. Alright, undress. Let me take a look at you."'
+	if bmi_calc < foto_weight:
+		'	You walk up to the front desk and find the same man who interviewed you previously. He looks up at you from his computer as you approach.'
+		'	"Hmm..." he says appraisingly. "You look like you lost some weight since the last time I saw you."'
+		'	"Yes I did!" You smile brightly at him.'
+		'	"Well, let''s have a look then. Go ahead, undress for me."'
 	elseif fakepassport = 1 or age_lie = 1:
 		*nl
 		'	"I''m 18."'
 		'	"I see. Alright, undress. Let me take a look at you."'
+	elseif age_truth = 1 or age >= 18:
+		*nl
+		'	"I''m <<age>>."'
+		'	"I see. Alright, undress. Let me take a look at you."'
 	end
 	if undress_ask = 0:
 		act'What? Why?':
@@ -477,14 +490,48 @@ if $ARGS[0] = 'interview2':
 			gs 'underwear', 'remove'
 			gs 'stat'
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/strip1.mp4"></video><video autoplay loop src="images/locations/city/citycenter/photo/strip2.mp4"></video></center>'
-			if undress_ask = 0 and why_here = 0:
-				'	You unquestioningly take off your clothes and leave them on the floor while the photographer examines you.'
+			if bmi_calc < foto_weight and foto_weight > 0:
+				foto_weight = bmi_calc
+				if foto_weight < 25: fotofit = 1
+				'You strip off your clothing for the photographer once again, holding your breath and hoping that you''ve slimmed down enough to work here now.'
+				'Just like before, he circles you, asks you to adjust your pose for him, carefully inspecting every aspect of your nude body.'
+				if foto_cupsize > tits:
+					'He pauses a moment, staring at your breasts more intently than you remember him looking last time.'
+					if pcs_inhib < 50:
+						'You steel yourself to keep yourself from squirming but can''t keep the blush off your face.'
+						'"Are your breasts smaller than they were before?"'
+						'"Erhm, yeah..." you mumble. "I might''ve lost a cupsize or two when I lost the weight... Is that a problem...?" you ask awkwardly.'
+					else
+						'You look down at yourself to see if there''s something on them, or at least a reason he''s staring at them so much other than because he likes them.'
+						'"Are your breasts smaller than they were before?"'
+						'"Oh," you say, blinking. "Yeah, they''re a little smaller now. Kind of happened when I lost weight. That''s not a problem is it?"'
+					end
+					'"No, not at all," he says, shaking his head. "We don''t tend to discriminate on breast size here. We have plenty of big tit and small tit girls, I was just wondering if it was my imagination or not.'
+					'You nod in understanding.'
+				end
+				act'Continue':
+					if bmi_calc < 25:
+						gt'foto','job_offer'
+					else
+						gt'foto','job_decline'
+					end
+				end
 			else
-				'	You take off your clothes and leave them on the floor while the photographer examines you.'
+				if undress_ask = 0 and why_here = 0:
+					'	You unquestioningly take off your clothes and leave them on the floor while the photographer examines you.'
+				else
+					'	You take off your clothes and leave them on the floor while the photographer examines you.'
+				end
+				'	He circles you slowly, occasionally asking you to adjust your pose slightly, carefully inspecting every aspect of your nude body. Your <<$pcs_eyecol>> eyes framed by your <<$pcs_haircol>> hair, your <<$liptalk3>>, your <<$titsize>> breasts, your <<$skin1>> <<$pcs_tan>> skin, your thighs, even your <<$$pcdesc_pubes>> pussy...'
+				'	He spends several minutes doing this without saying anything. Several people walk by while he does, including several beautiful and nude women who glance at you, whispering to each other before moving on.'
+				act'Continue':
+					if bmi_calc < 25:
+						gt'foto','job_offer'
+					else
+						gt'foto','job_decline'
+					end
+				end
 			end
-			'	He circles you slowly, occasionally asking you to adjust your pose slightly, carefully inspecting every aspect of your nude body. Your <<$pcs_eyecol>> eyes framed by your <<$pcs_haircol>> hair, your <<$liptalk3>>, your <<$titsize>> breasts, your <<$skin1>> <<$pcs_tan>> skin, your thighs, even your <<$vaginatipe>> pussy...'
-			'	He spends several minutes doing this without saying anything. Several people walk by while he does, including several beautiful and nude women who glance at you, whispering to each other before moving on.'
-			act'Continue':gt'foto','job_offer'
 		end
 	elseif pcs_inhib >= 15:
 		act'Reluctantly undress':
@@ -496,10 +543,16 @@ if $ARGS[0] = 'interview2':
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/strip1.mp4"></video><video autoplay loop src="images/locations/city/citycenter/photo/strip2.mp4"></video></center>'
 			'	You take a deep breath and begin to take off your clothes. As long as it''s just this one time, you can handle it for now. You leave them on the floor while the photographer examines you.'
 			!if pcs_inhib <= 20'	You instinctively cover up as he steps closer, your hands trying to shield your nipples and pussy.'
-			'	He circles you slowly, occasionally asking you to adjust your pose slightly, carefully inspecting every aspect of your nude body. Your <<$pcs_eyecol>> eyes framed by your <<$pcs_haircol>> hair, your <<$liptalk3>>, your <<$titsize>> breasts, your <<$skin1>> <<$pcs_tan>> skin, your thighs, even your <<$vaginatipe>> pussy...'
+			'	He circles you slowly, occasionally asking you to adjust your pose slightly, carefully inspecting every aspect of your nude body. Your <<$pcs_eyecol>> eyes framed by your <<$pcs_haircol>> hair, your <<$liptalk3>>, your <<$titsize>> breasts, your <<$skin1>> <<$pcs_tan>> skin, your thighs, even your <<$$pcdesc_pubes>> pussy...'
 			'	He spends several minutes doing this without saying anything. Several people walk by while he does, including several beautiful and nude women who glance at you, whispering to each other before moving on.'
-			'	<i>This is so embarrassing!</i>'
-			act'Continue':gt'foto','job_offer'
+			'	You blush furiously at the attention, both his and the other models.'
+			act'Continue':
+				if bmi_calc < 25:
+					gt'foto','job_offer'
+				else
+					gt'foto','job_decline'
+				end
+			end
 		end
 	end
 	act'I can''t do it':
@@ -510,11 +563,64 @@ if $ARGS[0] = 'interview2':
 	end
 end
 
+if $ARGS[0] = 'job_decline':
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
+	if foto_weight >= 25:
+		'"I''m sorry," he says shaking his head. "You did lose weight, I''ll give you that, but it''s not quite enough for our requirements. But you''ve made progress. Give it a few more weeks of effort and come back again. We can still use you if you''re within the limit."'
+		act'Sigh':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
+			'You sigh in disappointment as you pick your clothes back up and start to get dressed again. Still more weight to lose? Now what are you going to do? Keep trying or give up?'
+			gs 'clothing', 'wear_last_worn'
+			gs 'underwear', 'wear'
+			gs 'stat'
+			act 'Leave': minut += 1 & gt 'down'
+		end
+	else
+		'"I''m sorry to say, but you are too heavy to work here. We don''t require girls to be stick thin, but it doesn''t make us any money to sell magazines with overweight women in them."'
+		'The man''s words sting heavily at your confidence and you cover yourself in shame by instinct. He still continues to eye you up and down and you squirm as his gaze roams your breasts, stomach, and pussy.'
+		'"That being said, I can still see that you have some potential. So go running, start working out. If you lose some weight, I could see you getting another shot at working here in the future."'
+		act'React solemnly':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
+			'You glumly pick your clothes up off the floor and get dressed before leaving. As you do, you stop at the door and look back in.'
+			'<i>Is this it for me? Am I ever going to be able to lose enough weight to work here?</i>'
+			foto_weight = bmi_calc
+			foto_cupsize = tits
+			gs 'clothing', 'wear_last_worn'
+			gs 'underwear', 'wear'
+			gs 'stat'
+			act 'Leave': minut += 1 & gt 'down'
+		end
+		
+		act'React determinedly':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
+			'You nod at him, feeling a bit dejected but more determined than ever. You get dressed with purpose and head to the door. As you do, you think to yourself...'
+			'<i>I will be able to do this! I''ll get in shape and I''ll work here one day! I''m not going to lose my shot at this!</i>'
+			foto_weight = bmi_calc
+			foto_cupsize = tits
+			gs 'clothing', 'wear_last_worn'
+			gs 'underwear', 'wear'
+			gs 'stat'
+			act 'Leave': minut += 1 & gt 'down'
+		end
+	end
+end
 
 if $ARGS[0] = 'job_offer':
 	menu_off = 1
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
-	if age >= 18 or fakepassport = 1 or age_lie = 1:
+	if foto_weight < 25 and foto_weight > 0:
+		if age_lie = 1 or age >= 18:
+			'"Well done!" he says, with a smile. "You''ve slimmed down to meet our requirements and you have a beautiful body. Now I just need your passport to confirm your age and put your info into our database, and you can be one of the registered models here at the studio."'
+			'He holds out his hand expectantly.'
+		elseif age_truth = 1:
+			'"Well done!" he says, with a smile. "You''ve slimmed down to meet our requirements and you have a beautiful body. Unfortunately... how old was it that you said you were again?"'
+			'"<<age>>," you reply slowly.'
+			'"Ahuh... Well, you see, legally we can only hire girls 18 years and older, so unfortunately, you aren''t going to be allowed to work here right now.'
+		end
+	elseif age >= 18 or fakepassport = 1 or age_lie = 1:
 		'	When he''s finished, he stands in front of you and says, "You fit the criteria for the kind of images we want to produce. I just need to see your passport to confirm your age and put your info into our database," holding out his hand.'
 	elseif age_truth = 1:
 		'	After several minutes, he stands in front of you and says, "You fit the criteria for the kind of images we want to produce. However, you need to be 18 to work here. If you come back then, we''ll be happy to have you." He smiles at you and starts heading back to his computer.'
@@ -605,14 +711,16 @@ if $ARGS[0] = 'job_offer':
 			end
 		end
 	elseif age_truth = 1:
-		act '"Oh. Okay..."':
-			cla & *clr
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
-			'	You put your clothes back on, slightly annoyed as you get ready to leave. If he knew you were underage, why did he have you strip in the first place?!'
-			gs 'clothing', 'wear_last_worn'
-			gs 'underwear', 'wear'
-			gs 'stat'
-			act 'Leave': minut += 1 & gt 'down'
+		if fotofit ! 1:
+			act '"Oh. Okay..."':
+				cla & *clr
+				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
+				'	You put your clothes back on, slightly annoyed as you get ready to leave. If he knew you were underage, why did he have you strip in the first place?!'
+				gs 'clothing', 'wear_last_worn'
+				gs 'underwear', 'wear'
+				gs 'stat'
+				act 'Leave': minut += 1 & gt 'down'
+			end
 		end
 
 		act 'Plead':
@@ -636,12 +744,16 @@ if $ARGS[0] = 'job_offer':
 			fotofakepassport = 2
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
 			'	You''ve come this far, you can''t turn back now.'
-			'	"Okay, so I''m not 18. But I really want to earn some money right now. Isn''t there any way I can still work here?'
+			if fotofit = 1:
+				'	"Okay, so I''m not 18. But I really want to earn some money right now. And worked to lose all that weight, you know what a good employee I''ll be! Isn''t there any way I can still work here?'
+			else
+				'	"Okay, so I''m not 18. But I really want to earn some money right now. Isn''t there any way I can still work here?'
+			end
 			'	He studies you for a moment, still completely naked before him, not a scrap of clothing to hide your naked body. You realize it suddenly, almost as if you had forgotten and you feel your face flush with embarrassment.'
 			act 'Continue':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
-				'"Hmmm..." He rubs his chin thoughtfully while continuing to look at your body before saying, "Alright, listen, I''m not supposed to do this but you have an exceptional body so I''m going to make an exception."'
+				'	"Hmmm..." He rubs his chin thoughtfully while continuing to look at your body before saying, "Alright, listen, I''m not supposed to do this but you have an exceptional body so I''m going to make an exception."'
 				'	He leans in close and whispers into your ear, "There''s a man who hangs around at the train station in the industrial area. If you can come up with 30.000 cash, he can sell you a fake passport that says you''re 18. If you can do that, I can at least have some deniability and you can work here. Sound good?"'
 				'	You smile and sigh with relief. "Thanks. I''ll do just that," you say before getting dressed and leaving.'
 				gs 'clothing', 'wear_last_worn'
@@ -656,31 +768,61 @@ if $ARGS[0] = 'job_offer':
 			fakepassport = 2
 			fotofakepassport = 4
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
-			if reluctant_undress = 1:'	Rage fills your eyes as you stomp towards him, oblivious to your beautifully bouncing breasts, practically shouting, "What the fuck?! You knew I wasn''t eligible for the job and made me get naked even though I didn''t want to?! What the fuck is wrong with you?! How can you do this?!"'
-			if reluctant_undress = 0:'	Rage fills your eyes as you stomp towards him, oblivious to your beautifully bouncing breasts, practically shouting, "What do you mean I can''t work here?! You knew I was underage but you made me strip anyways?! What''s your fucking problem?! Do you expect me to just take this from you?!"'
-			'	You stand defiantly in front of him, glaring with your hands on your hips, your nudity completely forgotten in your burning fury.'
+			if fotofit = 1:
+				'	Rage fills your eyes as you stomp towards him, oblivious to your beautifully bouncing breasts, practically shouting, "What the fuck?! You knew I was underage but you made me strip anyways?! I worked so hard and lost all that weight and now you''re telling me that I can''t even work here?! What the fuck is wrong with you?! How can you do this?!"'
+			elseif reluctant_undress = 1:
+				'	Rage fills your eyes as you stomp towards him, oblivious to your beautifully bouncing breasts, practically shouting, "What the fuck?! You knew I wasn''t eligible for the job and made me get naked even though I didn''t want to?! What the fuck is wrong with you?! How can you do this?!"'
+			elseif reluctant_undress = 0:
+				'	Rage fills your eyes as you stomp towards him, oblivious to your beautifully bouncing breasts, practically shouting, "What do you mean I can''t work here?! You knew I was underage but you made me strip anyways?! What''s your fucking problem?! Do you expect me to just take this from you?!"'
+			end
+			'	You stand defiantly in front of him, glaring with your hands on your hips.'
 			*nl
-			'	He gives a short laugh. "I have to admit kid, you''ve got spunk and that''s real sexy," he says while reaching out his hand to gently fondle your breast before you slap his hand away.'
-			'	"So I''ll tell you what, there''s a guy who hangs around the train station in the industrial area. If you can scrape together 30.000 in cash, he''ll get you a fake passport that says you''re 18 and you can work here. Deal?"'
-			'	He holds his hand out for a shake.'
-			act 'Shake':
-				cla
-				*nl
-				'	You grasp his hand suspiciously and shake when he quickly reaches out and fondles your breast with his free hand.'
-				'	You tear your hand away and give him a look before moving back over to your clothes and getting dressed before leaving.'
-				gs 'clothing', 'wear_last_worn'
-				gs 'underwear', 'wear'
-				act 'Leave': minut += 1 & gt 'down'
+			if fotofit = 1:
+				'"Woah woah woah!" he says, holding up his hands but still infuriatingly smiling. "I didn''t say all your hard work was for nothing. I just said that you wouldn''t legally be allowed to work here. Illegally however..."'
+				'"What the hell are you talking about?" you growl.'
+				'"Well you see, after all your effort I feel it would be a shame to lose such a good worker. So I''m going to let you in on a little secret. There''s a guy who hangs around the train station in the industrial area. If you can scrape together 30.000 in cash, he''ll get you a fake passport that says you''re 18 and you can work here. You get to be employed, I get to cover my ass. How does that sound?"'
+			else
+				'	He gives a short laugh. "I have to admit kid, you''ve got spunk and that''s real sexy," he says while reaching out his hand to gently fondle your breast before you slap his hand away.'
+				'	"So I''ll tell you what, there''s a guy who hangs around the train station in the industrial area. If you can scrape together 30.000 in cash, he''ll get you a fake passport that says you''re 18 and you can work here. Deal?"'
+				'	He holds his hand out for a shake.'
+			end
+			if fotofit ! 1:
+				act 'Shake':
+					cla
+					*nl
+					'	You grasp his hand suspiciously and shake when he quickly reaches out and fondles your breast with his free hand.'
+					'	You tear your hand away and give him a look before moving back over to your clothes and getting dressed before leaving.'
+					gs 'clothing', 'wear_last_worn'
+					gs 'underwear', 'wear'
+					act 'Leave': minut += 1 & gt 'down'
+				end
+			else
+				act'Breathe deeply':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
+					'Holding your hands to your head you bend over to grab your hair in your hands and squeeze tightly, letting out a steaming breath as you do.'
+					'"After all this, just more fucking work..." you sigh in frustration.'
+					'"So? How about it?" he asks.'
+					'Standing back up, you give him a glare.'
+					'"Fine. I''ll get the money for that too if that''s what it takes to work here. But don''t expect me to thank you for this!"'
+					'You get dressed quickly, trying to shrug off your anger as you do before leaving the studio, practically slamming the door behind you.'
+					gs 'clothing', 'wear_last_worn'
+					gs 'underwear', 'wear'
+					act 'Leave': minut += 1 & gt 'down'
+				end
 			end
 
 			act 'Tell him to fuck off':
 				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
 				*nl
-				'	You slap his hand away and give him the middle finger before walking back towards your clothes.'
-				'	"I''m not going to work for some pervert who forces <<age>> year old girls to get naked and jerk off to them."'
-				*nl
-				'	You get dressed and leave, giving him another viewing of the bird as you stomp out the door.'
+				if fotofit ! 1:
+					'	You slap his hand away and give him the middle finger before walking back towards your clothes.'
+					'	"I''m not going to work for some pervert who forces <<age>> year old girls to get naked and jerk off to them."'
+				else
+					'"No, fuck you!" you spit at him. "I''m not going to work for some manipulative ass who gets off on underage girls and leading them on. I''m done here."'
+				end
+				'	You angrily pick up your clothes, getting dressed furiously and leave, stomping your way out the door.'
 				'	He continues to stand there and softly chuckles to himself. "She''ll be back. They always come back."'
 				gs 'clothing', 'wear_last_worn'
 				gs 'underwear', 'wear'
@@ -1818,6 +1960,8 @@ if $ARGS[0] = 'model':
 			cla & *clr
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion3.mp4"></video></center>'
 			'You spend two hours modelling for the online catalogs of retail clothing stores, wearing various different dresses but the same expression. It''s boring but it still gets you paid.'
+			*nl
+			'You recieve <<modelpayfin>> <b>₽</b> for the job.'
 			act 'Leave':gt 'foto', 'end'
 		end
 		act'Swimsuits':
@@ -1826,6 +1970,8 @@ if $ARGS[0] = 'model':
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/bikini<<rand(3,5)>>.mp4"></video></center>'
 			bikinicatalog += 1
 			'	You change in and out of various different bikinis, modelling them with the same pose and expression for use in online and department store catalogs.'
+			*nl
+			'You recieve <<modelpayfin>> <b>₽</b> for the job.'
 			act 'Leave':gt 'foto', 'end'
 		end
 	end
@@ -1847,8 +1993,8 @@ if $ARGS[0] = 'model':
 					modelpayfin = 300 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (city_modelling/2) + (pcs_mdlng/2 * 10)
 					modelfoto_fashion += 1
 					mdlng_exp += rand(5,8)
-					city_modelling += rand(7,12)
-					pav_modelling += rand(1,city_modelling)/10
+					gs 'fame', 'city', 'mdlng', rand(7,12)
+					gs 'fame', 'pav', 'mdlng', rand(1,city_modelling)/10
 					fashionshoot = rand(1,2)
 					gs 'stat'
 					if fashionshoot = 1:
@@ -1875,8 +2021,8 @@ if $ARGS[0] = 'model':
 						minut += 120
 						modelpayfin = 325 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (city_modelling/2) + (pcs_mdlng/2 * 10)
 						modelfoto_bikini += 1
-						city_modelling += rand(7,12)
-						pav_modelling += rand(1,city_modelling)/10
+						gs 'fame', 'city', 'mdlng', rand(7,12)
+						gs 'fame', 'pav', 'mdlng', rand(1,city_modelling)/10
 						mdlng_exp += rand(6,10)
 						if pcs_inhib < 50:inhib_exp += 1
 						bikinishoot = rand(1,5)
@@ -1913,8 +2059,8 @@ if $ARGS[0] = 'model':
 						modelpayfin = 350 + (modelpay) + (15*rand(0,5)) + (pcs_apprnc) + (city_modelling/2) + (pcs_mdlng/2 * 10)
 						modelfoto_lingerie += 1
 						mdlng_exp += rand(6,10)
-						city_modelling += rand(7,13)
-						pav_modelling += rand(0,city_modelling)/10
+						gs 'fame', 'city', 'mdlng', rand(7,13)
+						gs 'fame', 'pav', 'mdlng', rand(0,city_modelling)/10
 						inhib_exp += 2
 						shoot_type = rand(1,2)
 						gs 'stat'
@@ -2001,8 +2147,8 @@ if $ARGS[0] = 'nude_shoot':
 				modelfoto_glamour += 1
 				modelfoto_ero_clo += 1
 				mdlng_exp += rand(5,10)
-				city_modelling += rand(7,12)
-				pav_modelling += rand(1,city_modelling)/10
+				gs 'fame', 'city', 'mdlng', rand(7,12)
+				gs 'fame', 'pav', 'mdlng', rand(1,city_modelling)/10
 				inhib_exp += 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/ero<<rand(1,3)>>.jpg"></center>'
@@ -2026,8 +2172,8 @@ if $ARGS[0] = 'nude_shoot':
 			modelfoto_glamour += 1
 			modelfoto_nip += 1
 			mdlng_exp += rand(6,10)
-			city_modelling += rand(7,13)
-			pav_modelling += rand(1,city_modelling)/10
+			gs 'fame', 'city', 'mdlng', rand(7,13)
+			gs 'fame', 'pav', 'mdlng', rand(1,city_modelling)/10
 			inhib_exp += rand(1,3)
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/seethru<<rand(1,6)>>.jpg"></center>'
@@ -2057,8 +2203,8 @@ if $ARGS[0] = 'nude_shoot':
 				modelfoto_nip += 1
 				modelfoto_lingerie += 1
 				mdlng_exp += rand(8,10)
-				city_modelling += rand(9,14)
-				pav_modelling += rand(0,city_modelling)/10
+				gs 'fame', 'city', 'mdlng', rand(9,14)
+				gs 'fame', 'pav', 'mdlng', rand(0,city_modelling)/10
 				inhib_exp += 4
 				gs 'stat'
 				'<center><video autoplay loop src="images/locations/city/citycenter/photo/lingerie_trans<<rand(1,3)>>.mp4"></video></center>'
@@ -2091,8 +2237,8 @@ if $ARGS[0] = 'nude_shoot':
 				modelfoto_nip += 1
 				modelfoto_topless += 1
 				mdlng_exp += rand(6,10)
-				city_modelling += rand(8,14)
-				pav_modelling += rand(1,city_modelling)/10
+				gs 'fame', 'city', 'mdlng', rand(8,14)
+				gs 'fame', 'pav', 'mdlng', rand(1,city_modelling)/10
 				inhib_exp += 3
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/topless<<rand(1,22)>>.jpg"></center>'
@@ -2123,8 +2269,8 @@ if $ARGS[0] = 'nude_shoot':
 				modelfoto_glamour += 1
 				modelfoto_nude += 1
 				mdlng_exp += rand(9,10)
-				city_modelling += rand(10,20)
-				pav_modelling += rand(0,city_modelling)/4
+				gs 'fame', 'city', 'mdlng', rand(10,20)
+				gs 'fame', 'pav', 'mdlng', rand(0,city_modelling)/4
 				inhib_exp += 5
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude<<rand(1,5)>>.jpg"></center>'
 				'	Already naked, you step onto the set and begin the shoot immediately.'
@@ -2154,8 +2300,8 @@ if $ARGS[0] = 'nude_shoot':
 				modelfoto_glamour += 1
 				modelfoto_nude += 1
 				mdlng_exp += rand(9,10)
-				city_modelling += rand(10,20)
-				pav_modelling += rand(0,city_modelling)/4
+				gs 'fame', 'city', 'mdlng', rand(10,20)
+				gs 'fame', 'pav', 'mdlng', rand(0,city_modelling)/4
 				inhib_exp += 5
 				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude<<rand(6,26)>>.jpg"></center>'
 				'	Already naked, you step onto the set and begin the shoot immediately.'
@@ -2189,8 +2335,8 @@ if $ARGS[0] = 'nude_shoot':
 				modelfoto_nip += 1
 				modelfoto_pussy += 1
 				mdlng_exp += rand(9,10)
-				city_modelling += rand(10,20)
-				pav_modelling += rand(10,15)
+				gs 'fame', 'city', 'mdlng', rand(10,20)
+				gs 'fame', 'pav', 'mdlng', rand(10,15)
 				inhib_exp += 5
 				if pcs_pubes <= 20:
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/nude<<rand(27,35)>>.jpg"></center>'
@@ -2503,7 +2649,12 @@ if $ARGS[0] = 'blackm':
 										studiaday = 7
 										'"You can keep your presents from the guys." says Victor as he quickly makes you dress and leads you to the exit.'
 										'"I hope you''ve learned your lesson. I will be here to teach stupid girls like you that you cannot get away with such behaviour and if needed I will put you through this all over again."'
-										act 'Leave': minut += 1 & gt 'down'
+										act 'Leave':
+											minut += 1
+											gs 'clothing', 'wear_last_worn'
+											gs 'underwear', 'wear'
+											gt 'down'
+										end
 									end
 								end
 							end

locations/furi.qsrc

@@ -5,7 +5,7 @@ $menu_arg = ''
 menu_off = 0
 gs 'stat'
 '<center><img <<$set_imgh>> src="images/locations/highway/furi.jpg"></center>'
-'A paved area next to the main road between St. Petersburg and Pavlovsk, which functions as a truck stop. There are a few lorries here, but you only see one driver. He''s taking a break, next to his truck.'
+'A paved area next to the main road between St. Petersburg and Pavlovsk, which functions as a truck stop. There are a few lorries here, but you only see one driver. He''s leaning against his truck, smoking a cigarette.'
 
 act 'Return to the road':minut += 5 & gt 'road'
 
@@ -34,56 +34,202 @@ act 'Try to get a lift':
 	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/highway/furi.jpg"></center>'
+	furi_recog = rand(1,200)
+	furi_driver = rand(1,20)
+
+	if nroad = 0:
+		'"Excuse me, sir?" you ask the driver. "I need to go to Pavlovsk, could you give me a lift if you''re going in that direction?"'
+		furi_recog_city = rand(1,200)
+	elseif nroad = 20:
+		furi_recog_pav = rand(1,200)
+		'"Excuse me, sir?" you ask the driver. "I need to go to St. Petersburg, could you give me a lift if you''re going in that direction?"'
+	end
+	if furi_recog =< furibj:
+		if (furibj / 10) >= furi_driver:
+			'As you start to walk over he glances up and grins at you.'
+			if furibj >= 200:
+				'"Well hello again road head girl! Need another ride? The boys and I were wondering who was going to get you today."'
+				if furibj = 200:'You recognize him almost immediately. You''ve sucked him off for a ride before. Maybe several rides. Actually, you know that it''s almost certainly a double digit number of times. Now that you think about it, you''ve been doing this so much that you can''t remember the last time you blew someone you didn''t know for a ride on this road. You knew that you had been making the rounds and that a lot of truckers knew you by reputation, but is it possible you''ve managed to suck off every driver in the area???'
+			elseif furibj >= 150:
+				'"Lookie lookie! It''s road head girl," he exclaims as he blows out a waft of cigarette smoke from his nose. "Was wondering if I might see you today. Need another ride?"'
+			elseif furibj >= 100:
+				'"Oh, it''s road head girl," he says as he blows out a waft of cigarette smoke from his nose. "Need another ride?"'
+				if furibj = 100:
+					'"Road head girl?" you say in confusion.'
+					'"Yeah, it''s what we call you out here."'
+					'"We?"'
+					'He laughs loudly. "Yeah, we! Haven''t you realized? You must''ve sucked off at least half the drivers out here! Those of us who have driven you before are always looking forward to the next time and the ones that haven''t are praying every day for the chance to pick you up!"'
+					'You frown. You''re not sure if you like the fact that you''re starting to become famous among truckers for this. Or the fact that you''re nickname is "road head girl."'
+					'"So did you want a ride today or what?"'
+				end
+			elseif furibj >= 50:
+				'"Oh, it''s you again," he says with a smirk as he blows out a waft of cigarette smoke from his nose. "Need another ride?" he asks, adjusting his trousers suggestively.'
+			else
+				'"Well hello there little missy," he says with a smirk as he blows out a waft of cigarette smoke from his nose. "I remember you. Really enjoyed what you did for me last time I saw you. I''d be willing to give you another lift if you''re willing to do it again. So what do you say, need another ride?"'
+			end
+			
+			act'Not today':
+				cla & *clr
+				'<center><img <<$set_imgh>> src="images/locations/highway/furi.jpg"></center>'
+				'"Uhh, sorry, not today. I was just passing by for... something..."'
+				'"Oh." He seems more than a little disappointed and leans back on his truck, flicking away his burnt out cigarette and pulling out another.'
+				'"Well," he says as he sparks the new one. "If you ever need a ride, just let me know."'
+				'Nodding awkwardly, you retreat away from him and head back to the road.'
+				act 'Leave': minut += 5 & gt $curloc
+			end
+			
+			act'Nod meekly':
+				cla & *clr
+				'<center><img <<$set_imgh>> src="images/locations/highway/furi.jpg"></center>'
+				'You nod meekly and his grin widens. Without saying anything, you step up to the passenger side and he flicks away his cigarette to climb into the driver''s seat.'
+				act 'Get into the truck': furisex = 100 & gt 'furisex'
+			end
+			
+			if furibj >= 50:
+				act'Grin back':
+					cla & *clr
+					'<center><video autoplay loop src="images/locations/highway/hj_motion.mp4"></video></center>'
+					'"Yeah I do," you grin. "Is there anything I can do to make it up to you? Anything I can... help with?" you ask, miming an inappropriate motion.'
+					'"There sure is. But with your mouth, not your hand," he says, climbing into the driver''s seat.'
+					'"Of course!" you smile, pulling yourself into the passenger''s seat beside him. "Why would I use anything else?"'
+					act 'Get into the truck': furisex = 100 & gt 'furisex'
+				end
+			
+			
+				act'Another blowjob today?':
+					cla & *clr
+					'<center><img <<$set_imgh>> src="images/locations/highway/furi.jpg"></center>'
+					'"Yup!" you say smiling and matter-of-fact-ly. "Care for another blowjob today?"'
+					'He flicks his cigarette away and climbs into the driver''s seat, you following into the passenger''s.'
+					act 'Get into the truck': furisex = 100 & gt 'furisex'
+				end
+			end
+		elseif furibj >= 150:
+			'"You''re road head girl right? I recognize you by the description of the other guys."'
+			'"Willing to do the same for me as you did for them? Blowjob for a lift?" He opens up the passenger door for you and waits expecantly.'
+			act 'Change your mind': minut += 5 & gt $curloc
+			act 'Get into the truck': furisex = 100 & gt 'furisex'
+		elseif furibj >= 100:
+			'He continues to look at you for a moment longer before saying, "Maybe. Are you road head girl?"'
+			if furibj = 100:
+				'"Road head girl?" you say in confusion.'
+				'"Yeah. Someone who''s always asking for lifts too and from the city and trades blowjobs for the ride. And she''s supposed to look a lot like you..."'
+				'"Do that many people really know me?"'
+				'He grins widely at you. "Yeah. Truckers tend to talk a lot, part of the job. Based on what I hear you must''ve sucked off at least half the drivers out here. Apparently not including me, though I''d love to add to your scoreboard."'
+				'You frown. You''re not sure if you like the fact that you''re starting to become famous among truckers for this. Or the fact that you''re nickname is "road head girl."'
+				'"So, planning on living up to your name today?" He opens up the passenger door for you and waits expecantly.'
+				act 'Change your mind': minut += 5 & gt $curloc
+				act 'Get into the truck': furisex = 100 & gt 'furisex'
+			else
+				act'Uhh...':
+					cla & *clr
+					'<center><img <<$set_imgh>> src="images/locations/highway/furi.jpg"></center>'
+					'"Uhh..."'
+					'The driver grins at you some more. "I guess that''s a yes. So, road head for a ride. Is that a deal then?"'
+					act 'Change your mind': minut += 5 & gt $curloc
+					act 'Get into the truck': furisex = 100 & gt 'furisex'
+				end
+				act'That''s me!':
+					cla & *clr
+					'<center><img <<$set_imgh>> src="images/locations/highway/furi.jpg"></center>'
+					'"That''s me!" you say cheerfully.'
+					'He smiles expectantly. "I was wondering when I''d get my turn with you." He opens up the passenger door and waits beside it. "So, are you gonna get in?"'
+					act 'Change your mind': minut += 5 & gt $curloc
+					act 'Get into the truck': furisex = 100 & gt 'furisex'
+				end
+			end
+		elseif furibj >= 50:
+			'He continues to look at you for a moment squinting his eyes in semi-recognition.'
+			'"Hmmm... Are you that girl who''s been trading truckers blowjobs for lifts to and from the city?"'
+			act'Uhh...':
+				cla
+				*nl
+				'"Uhh..."'
+				'The driver grins at you. "I guess that''s a yes. So, are you still operating on that kind of payment basis?" he asks, opening up the passenger door and looking at you expectantly.'
+				act 'Change your mind': minut += 5 & gt $curloc
+				act 'Get into the truck': furisex = 100 & gt 'furisex'
+			end
+			act'That''s me!':
+				cla
+				*nl
+				'"That''s me!" you say cheerfully.'
+				'He grins. "I hoped it was you. I heard rumors but I''ve always wanted to try you for myself."'
+				'He opens up the passenger door and starts to make his way around to the driver''s side.'
+				act 'Change your mind': minut += 5 & gt $curloc
+				act 'Get into the truck': furisex = 100 & gt 'furisex'
+			end			
+		else
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/locations/highway/furi.jpg"></center>'
+			'"I could... But that depends on how you''re going to return the favor. Actually, wait a minute, you don''t happen to be that girl who shows up by the road and sucks drivers off for a lift do you? We get a lot of girls who do that but not so many repeat customers and someone said she looked like you."'
+			act'Uhh...':
+				cla
+				*nl
+				'"Uhh..."'
+				'The driver grins at you. "I guess that''s a yes. So, are you still operating on that kind of payment basis?" he asks, opening up the passenger door and looking at you expectantly.'
+				act 'Change your mind': minut += 5 & gt $curloc
+				act 'Get into the truck': furisex = 100 & gt 'furisex'
+			end
+			act'That''s me!':
+				cla
+				*nl
+				'"That''s me!" you say cheerfully.'
+				'He grins. "I hoped it was you. I heard rumors but I''ve always wanted to try you for myself."'
+				'He opens up the passenger door and starts to make his way around to the driver''s side.'
+				act 'Change your mind': minut += 5 & gt $curloc
+				act 'Get into the truck': furisex = 100 & gt 'furisex'
+			end		
+		end
+	else
+		act 'Refuse and leave':minut += 5 & gt $curloc
 
-	if nroad = 0:'"Excuse me, sir?" you ask the driver. "I need to go to Pavlovsk, could you give me a lift if you''re going in that direction?"'
-	if nroad = 20:'"Excuse me, sir?" you ask the driver. "I need to go to St. Petersburg, could you give me a lift if you''re going in that direction?"'
-
-	'The truck driver gives you a knowing grin: "Ah, a hitchhiker? Of course I can, dear! But the real question is... how are you going to thank me if I do?"'
-	'He walks over to you and puts his hand on your buttocks, not leaving any question as to what he wants from you.'
-	'You quickly look around, but no other drivers are around to give you a ride instead; he''s your only option right now.'
-
-	act 'Refuse and leave':minut += 5 & gt $curloc
-
-	act 'Tell him you''ll suck him off':
-		*clr & cla
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/highway/furi.jpg"></center>'
-		'After you make sure no one else can hear you say it, you move your head closer to the driver and say: "How about I give you a blowjob?"'
-		'The driver laughs and says: "Sounds good, I wouldn''t mind some road head. Do you have a condom?"'
-
-		act 'No':
+		act 'Tell him you''ll suck him off':
 			*clr & cla
 			gs 'stat'
-			'"Uhh... no?" you admit, which upsets the man.'
-			'He shoos you away and says: "Do you think I''m crazy? I get sluts like you in my truck all the time, I''m not touching you without a condom! My wife would kill me if I came home with an STD!"'
-			'You try to object, but he continues: "I''d suggest you start walking, honey... and remember to bring one next time you want a lift. No guy would let some hitchhiker slut near his cock without a condom!"'
-
-			act 'Leave':minut += 5 & gt $curloc
+			'<center><img <<$set_imgh>> src="images/locations/highway/furi.jpg"></center>'
+			'After you make sure no one else can hear you say it, you move your head closer to the driver and say: "How about I give you a blowjob?"'
+			'The driver laughs and says: "Sounds good, I wouldn''t mind some road head. Do you have a condom?"'
 
-			act 'Try to persuade him':
+			act 'No':
 				*clr & cla
 				gs 'stat'
-				'"Wait, please! Sir, you have to understand... I normally never do this! I''m clean, I swear!" you beg him. "Please, I really need this lift!"'
-				'The driver has another close look at you and sighs: "Damn you... you''re too cute, how could I say no? Fine, get in the truck before I change my mind."'
-
-				act 'Change your mind and leave':minut += 5 & gt $curloc
-				act 'Get into the truck':minut += 5 & furisex = 100 & gt 'furisex'
+				'"Uhh... no?" you admit, which upsets the man.'
+				'He shoos you away and says: "Do you think I''m crazy? I get sluts like you in my truck all the time, I''m not touching you without a condom! My wife would kill me if I came home with an STD!"'
+
+				act 'Leave':minut += 5 & gt $curloc
+
+				act 'Try to persuade him':
+					*clr & cla
+					gs 'stat'
+					if (furiswallow / 10) >= furi_driver:
+						'"No! Wait! Please!" You panic and suddenly remember something and blurt it out. "Wait! I''ve sucked you off without a condom before! Don''t you remember? You didn''t get an STD since then, so you know I''m clean!"'
+						'He squints at you trying to trigger his memory as you wait in anxiety.'
+						'"Ohh... I thought you seemed familiar to me."'
+						'"Right!" you say breathlessly. "So that means you''ll take me, right?"'
+						'"Well, you were pretty good last time. Hop in the truck and I''ll get my dick out and we can trade favors again."'
+					else
+						'"Wait, please! Sir, you have to understand... I normally never do this! I''m clean, I swear!" you beg him. "Please, I really need this lift!"'
+						'The driver has another close look at you and sighs: "Damn you... you''re too cute, how could I say no? Fine, get in the truck before I change my mind."'
+					end
+					act 'Change your mind and leave':minut += 5 & gt $curloc
+					act 'Get into the truck':minut += 5 & furisex = 100 & gt 'furisex'
+				end
 			end
-		end
-
-		if prezik > 0:
-			act 'Yes':
-				*clr & cla
-				gs 'stat'
-				'You nod: "Yes, I do."'
-				'"Excellent... I love it when they come prepared", the driver smiles. He opens the door and invites you in: "Milady, after you!"'
 
-				act 'Change your mind and leave': minut += 5 & gt $curloc
-				act 'Get into the truck':
-					minut += 5 
-					furisex = 0
-					prezik -= 1
-					gt 'furisex'
+			if prezik > 0:
+				act 'Yes':
+					*clr & cla
+					gs 'stat'
+					'You nod: "Yes, I do."'
+					'"Excellent... I love it when they come prepared", the driver smiles. He opens the door and invites you in: "Milady, after you!"'
+
+					act 'Change your mind and leave': minut += 5 & gt $curloc
+					act 'Get into the truck':
+						minut += 5 
+						furisex = 0
+						prezik -= 1
+						gt 'furisex'
+					end
 				end
 			end
 		end

locations/furisex.qsrc

@@ -59,27 +59,81 @@ elseif furisex = 6:
 	if nroad = 20:nroad = 0 & gt 'nord'
 	end
 elseif furisex = 100:
-	'The driver climbs into his seat and starts the engine. The two of you drive off, and chat casually for a few minutes.'
-	'Then he nods at his groin, and says: "I believe you owe me something! I don''t have much time, so just do it while I''m driving. Oh, and take off your clothes. I want to look at your tits while you suck me off."'
-
-	act 'Do as he says':furisex = 101 & gt $curloc
+	if furibj >= 5:
+		'The driver starts the engine and unzips his trousers. His semi-hard cock flops out and without further instruction you reach over and jerk him a few times to get him properly stiff.'
+		if (furibj / 10) >= furi_driver:
+			'You''ve done this with him before, you know the drill.'
+		elseif furibj < 15:
+			'You''ve done this more than a few times now so you kind of understand what the driver expects from you, but even so it''s still hard to get used to, sucking off a stranger for a ride in their car.'
+		elseif furibj < 20:
+			'You didn''t necessarily think you''d be making a habit out of this but dare you say it, you''re starting to get used to trading sexual favors for transport and your body instinctively starts going through the motions.'
+		elseif furibj < 30:
+			'This is almost completely normalized to you now. You''ve gotten quite used to blowing people for rides. The only worry left in your mind is if this could cause a reputation about you to pop up.'
+		else
+			'You''re an expert hitchhiker at this point and trading road head for rides is as natural to you as breathing. You know what you need to do'
+		end
+		act 'Blow him':furisex = 101 & gt $curloc
+	else
+		'The driver climbs into his seat and starts the engine. The two of you drive off, and chat casually for a few minutes.'
+		'Then he nods at his groin, and says: "I believe you owe me something! I don''t have much time, so just do it while I''m driving. Oh, and take off your clothes. I want to look at your tits while you suck me off."'
+		act 'Do as he says':furisex = 101 & gt $curloc
+	end
+	
 elseif furisex = 101:
 	gs 'npcgeneratec', 0, 'Truck Driver', rand(30,40)
 	gs 'boyStat', $npclastgenerated
 	guy += 1
 	furibj += 1
+	furiswallow += 1
 
 	dynamic $venerasiakOral
 
 	spafinloc = 12
 	gs 'cum_manage'
-	'<center><img <<$set_imgh>> src="images/locations/highway/sex/furibj.jpg"></center>'
-	'That wasn''t part of the deal! You frown for a moment but decide to do as he says, and expose your boobs for him to look at. Then you free the driver''s cock from his pants and close your lips around it, gently sucking on it while he keeps driving.'
+	if furibj >= 5:
+		'<center><video autoplay loop src="images/locations/highway/sex/bj (1).mp4"></video></center>'
+	else
+		'<center><img <<$set_imgh>> src="images/locations/highway/sex/furibj.jpg"></center>'
+	end
+	if furibj >= 200 or (furibj / 10) >= furi_driver:
+		'He hits the accelerator and starts the journey and you bend over his lap, gently sucking his cock. You try your best to remember what this particular driver likes in how you use your tongue and what his sensitive spots are. Judging by some of his reactions and sharpish movements he makes with the wheel, you think you''ve got him on point.'
+	elseif furibj < 10:
+		'He hits the accelerator and starts the journey and you apprehensively bend over his lap. You place your quivering lips to his head and begin awkwardly blowing him, adjusting to the bumps and jostling of the road.'
+	elseif furibj < 20:
+		'He hits the accelerator and starts the journey and you naturally but nervously bend over his lap to wrap your mouth around his cock.'
+	elseif furibj >= 30:
+		'He hits the accelerator and starts the journey and you calmly bend over his lap and start sucking his cock.'
+	else
+		'That wasn''t part of the deal! You frown for a moment but decide to do as he says, and expose your boobs for him to look at. Then you free the driver''s cock from his pants and close your lips around it, gently sucking on it while he keeps driving.'
+	end
 	'The driver casually steers his truck along the road and chats with colleagues over the board radio casually while you have his cock in your mouth, and gently strokes his hand through your hair when he can.'
-	'"Oh yea... I know it''s risky, but it''s so much better without a condom!" he groans, and you feel his sperm being squirted into your mouth mere seconds later. It has a rather tangy taste, but you can''t spit it out anywhere! You swallow it quickly, without giving it much thought.'
-	'"Nice timing!" the driver grins. "If you ever need another ride, come find me. That was the best head I''ve had in quite a while!"'
+	if (furibj / 10) >= furi_driver:
+		'"Mmm..." he hums with satisfaction. "You''re my favorite hitchhiker you know that? You always give such great road head." You can''t really respond so you just continue to bob your head up and down over his dick.'
+		'With no warning other than a grunt, he begins to cum and your mouth is filled with hot sperm.'
+		if furibj < 5:
+			'Not knowing what else to do, you swallow it like you did the last time you sucked him off.'
+		elseif furibj < 10:
+			'You swallow it quickly. You''ve hitchhiked with payment via blowjob enough to know there''s nothing else to be done with cum in your mouth.'
+		else
+			'You swallow without a second thought. You''ve done this all before.'
+		end
+		'You straighten up in your seat, you notice that you have coincidentally arrived at your destination and the driver pulls over for you.'
+		'As you hop out of the truck the driver rolls down the window and calls out to you.'
+		if furibj >= 200:
+			'"See you around, road head girl! Keep up the good work!"'
+		elseif furibj >= 100:
+			'"Hope to see you again road head girl!"'
+		elseif furibj >= 50:
+			'"I hope to see you again some time!"'
+		else
+			'"If you ever need another lift, come look for me! I''ll be more than happy to take you!"'
+		end
+	else
+		'"Oh yea... I know it''s risky, but it''s so much better without a condom!" he groans, and you feel his sperm being squirted into your mouth mere seconds later. It has a rather tangy taste, but you can''t spit it out anywhere! You swallow it quickly, without giving it much thought.'
+		'"Nice timing!" the driver grins. "If you ever need another ride, come find me. That was the best head I''ve had in quite a while!"'
+	end
 	swallow += 1
-	gs 'arousal', 'bj', 15, 'sub'
+	gs 'arousal', 'bj', 15
 	gs 'arousal', 'end'
 	gs 'stat'
 	

locations/gLakeNude.qsrc

@@ -6,6 +6,7 @@ $loc = 'gLakeNude'
 $metka = ''
 $menu_loc = 'gLakeNude'
 $menu_arg = ''
+$locclass = 'beach'
 menu_off = 0
 *clr & cla
 gs'stat'
@@ -59,8 +60,7 @@ end
 
 if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
 	act'Get dressed':
-		cla
-		*clr
+		*clr & cla
 		menu_off = 1
 		minut+=5
 		gs 'clothing', 'wear_last_worn'
@@ -74,8 +74,7 @@ end
 if temper >= 15 and month >= 5 and month <= 9:
 	if ARRSIZE('swimwear') > 0 and $clothingworntype ! 'swimwear':
 		act'Change into your swimwear':
-			cla
-			*clr
+			*clr & cla
 			menu_off = 1
 			minut+=5
 			if pcs_horny >= 90:
@@ -99,8 +98,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 		act'Take off your clothes':
 			menu_off = 1
 			if pcs_inhib > 30:
-				cla
-				*clr
+				*clr & cla
 				minut+=5
 				gs 'clothing', 'strip'
 				gs 'underwear', 'remove'
@@ -127,8 +125,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 		act'Go swimming (1:00)':
 			menu_off = 1
 			if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
-				cla
-				*clr
+				*clr & cla
 				cumspclnt = 4
 				gs 'cum_cleanup'
 				minut = minut + 60
@@ -161,8 +158,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 		act'Go sunbathing (1:00)':
 			menu_off = 1
 			if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
-				cla
-				*clr
+				*clr & cla
 				minut = minut + 60
 				if pcs_sweat < 35 : pcs_sweat += 5
 				pcs_mood += 5
@@ -175,12 +171,10 @@ if temper >= 15 and month >= 5 and month <= 9:
 				end
 				if krem = 0:
 					pcs_tan = pcs_tan + 1
-
 					'You lie down on your towel for some sunbathing and hopefully a nicer tan, and enjoy the warm rays of the sun for an hour.'
-				elseif krem > 0:
+				else:
 					krem = krem - 1
 					pcs_tan = pcs_tan + 3
-
 					'You smear your body with sunscreen and lie down on your towel for some sunbathing, hoping to work on your tan. You enjoy the warm rays of the sun for an hour.'
 				end
 				act 'Continue':gt'gLakeNude'
@@ -201,8 +195,7 @@ end
 if temper >= 15 and month >= 5 and month <= 9:
 	if voyeurism_start = 0:
 		act'Look around the beach':
-			cla
-			*clr
+			*clr & cla
 			menu_off = 1
 			minut += 5
 			voyeurism_start_view = RAND(1,3)
@@ -219,8 +212,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 		end
 	elseif voyeurism_start = 1:
 		act'Watch couple on the beach':
-			cla
-			*clr
+			*clr & cla
 			menu_off = 1
 			if voyeurism = 0:
 				minut += 5
@@ -248,8 +240,7 @@ if temper >= 15 and month >= 5 and month <= 9:
 				gs'gLakeNudeEvent','gLakeNude_nudist'
 				act'Continue': gt 'gLakeNude'
 			else
-				cla
-				*clr
+				*clr & cla
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/nudebeachself'+rand(1,3)+'.jpg"></center>'
 				'You want to watch for nudists, but suddenly notice that you start to feel weird.<br><dh>"Probably spying too much."</dh> you think and look straight ahead.'
 				act'Continue': gt'gLakeNude'

locations/gadforest.qsrc

@@ -120,6 +120,8 @@ if $ARGS[0] = '1':
 		end
 	end
 
+	gs 'treeCircEntry', 'GadForest'
+
 	! can only be naked if successfully complete Mira gadforest_event, nude_event
 	if $clothingworntype ! 'nude' and clothesAtLocation = 0 and temper >= 15 and sunWeather = 1 and hour>=6 and hour<=20 and miratalkforest > 1 and MiraLoc ! 3 and (pcs_inhib >= 25 or exhibitionist_lvl > 1):
 		act'Strip naked':
@@ -205,7 +207,6 @@ if $ARGS[0] = '1':
 			menu_off = 1
 			minut += 60
 			pcs_mood += 20
-			pcs_willpwr += willpowermax/5
 			if $clothingworntype = 'nude':
 				pcs_health += healthmax/5 & pcs_horny += 5
 				inhib_exp += rand(1,5)

locations/gadforest_event.qsrc

@@ -2501,13 +2501,11 @@ if $ARGS[0] = 'forest_hunters':
 					act 'Go with them':hunters = 1 & minut += 60 & gt 'swamp_yard'
 				else
 					act 'Go with them':
-						temp_gadf = rand(1,3)
+						temp_gadf = rand(1,2)
 						temphunt = rand(1,3)
 						hunters = 1
 						if temp_gadf = 1:
 							forest_huntersex = 1 & gt 'hunters', 'start'
-						elseif temp_gadf = 2:
-							forest_huntersex = 2 & gt 'huntersex', 'doublelovesex'
 						else
 							forest_huntersex = 3 & gt 'hunters', 'start'
 						end
@@ -2586,11 +2584,10 @@ if $ARGS[0] = 'forest_hunters':
 						act 'Go with them':hunters = 1 & minut += 60 & gt 'swamp_yard'
 						act 'Stay in the woods':gt $loc, $metka
 					else
-						temp_gadf = rand(1,3)
+						temp_gadf = rand(1,2)
 						temphunt = rand(1,3)
 						if temp_gadf = 1:hunters = 1 & forest_huntersex = 1 & gt 'hunters', 'start'
-						if temp_gadf = 2:hunters = 1 & forest_huntersex = 2 & gt 'huntersex', 'doublelovesex'
-						if temp_gadf = 3:hunters = 1 & forest_huntersex = 3 & gt 'hunters', 'start'
+						if temp_gadf = 2:hunters = 1 & forest_huntersex = 3 & gt 'hunters', 'start'
 					end
 				end
 			end
@@ -2630,11 +2627,10 @@ if $ARGS[0] = 'forest_hunters':
 				if pcs_horny >= 40 and pcs_horny < 70:'"It must be this way." you thought as you followed the guys, knowing where they were taking you and why.'
 				if pcs_horny >= 70:'"Well, that''s exactly what you need right now." you thought, feeling your pussy screaming with desire. You went with the guys, you were so eager, you almost lead the way.'
 
-				temp_gadf = rand(1,3)
+				temp_gadf = rand(1,2)
 				temphunt = rand(1,3)
 				if temp_gadf = 1:hunters = 1 & forest_huntersex = 1 & gt 'hunters', 'start'
-				if temp_gadf = 2:hunters = 1 & forest_huntersex = 2 & gt 'huntersex', 'doublelovesex'
-				if temp_gadf = 3:hunters = 1 & forest_huntersex = 3 & gt 'hunters', 'start'
+				if temp_gadf = 2:hunters = 1 & forest_huntersex = 3 & gt 'hunters', 'start'
 			end
 		end
 	end

locations/gadprostitutes.qsrc

@@ -215,7 +215,7 @@ if $ARGS[0] = 'just_mira':
 		act 'Leave Mira to her work': gt 'gadprostitutes', 'start'
 	else
 		'It is too late for Mira to work as a prostitute now.'
-		act 'Walk back to Gadukino together':MiraLoc = 0 & gt 'gadukino', 'start'
+		act 'Walk back to Gadukino together':MiraLoc = 0 & gt 'gadukino', ''
 	end
 end
 

locations/gadukino.qsrc

@@ -100,7 +100,7 @@ if $ARGS[0] = '':
 			'Nearby are a series of small farms, on one of which <a href="exec:minut += 5 & gt ''Gaddvor''">your grandparents</a> live.'
 			act 'Grandparent''s house': minut += 5 & gt 'Gaddvor'
 		end
-		if npc_rel['A60'] > 0: 'Just down the road '+iif(StoryLine=1,'from your grandparents house ','')+'is <a href="exec:minut += 5 & gt ''MiroslavaHome'', ''start''">Mira''s</a> house.'
+		if npc_rel['A60'] > 0 and metmira = 1: 'Just down the road '+iif(StoryLine=1,'from your grandparents house ','')+'is <a href="exec:minut += 5 & gt ''MiroslavaHome'', ''start''">Mira''s</a> house.'
 		*nl
 
 		if month >= 6 and month <= 9:
@@ -301,7 +301,8 @@ if $ARGS[0] = 'mira_events':
 		'Walking around the village you notice a young girl around your own age. You do not recognize her from the last time you were at the village. She is pulling on a rope attached to the collar on a small calf. The calf grunts with displeasure, shakes her head and refuses to move any further.'
 		act 'Help her':
 			*clr & cla
-			npc_rel['A60'] = 10
+			metmira = 1
+			npc_rel['A60'] += 10
 			minut += 15
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/village/mira/mira.jpg"></center>'

locations/gdksex.qsrc

@@ -98,7 +98,7 @@ if $ARGS[0] = 'outside':
 						if DPtipe = 2:
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/grab.jpg"></center>'
 							'The guy is too drunk to notice your objections and slides a hand underneath your clothes, squeezing your boobs in his hands.'
-							gs 'gdksex', 'blowjob', 'unpaid'
+							act 'Squat down before him': gt 'gdksex', 'blowjob', 'unpaid'
 
 							act 'Don''t say anything':
 								*clr & cla
@@ -139,7 +139,7 @@ if $ARGS[0] = 'outside':
 							end
 
 							'Your horniness has made you rather frisky as well! You moan softly when <<$boydesc>> exposes your boobs and begins to lick and suck on your nipples.'
-							gs 'gdksex', 'blowjob', 'unpaid'
+							act 'Squat down before him': gt 'gdksex', 'blowjob', 'unpaid'
 						end
 
 						gs 'gdksex', 'handjob'
@@ -389,7 +389,7 @@ if $ARGS[0] = 'outside':
 									if pcs_horny < 75 or pav_slut < 75: act 'Go back to the disco': gt 'gdkin'
 
 									gs 'gdksex', 'handjob'
-									gs 'gdksex', 'blowjob', 'unpaid'
+									act 'Squat down before him': gt 'gdksex', 'blowjob', 'unpaid'
 								end
 							end
 						end
@@ -420,21 +420,21 @@ if $ARGS[0] = 'outside':
 		end
 			gs 'gdksex', 'decline'
 			gs 'gdksex', 'handjob'
-			gs 'gdksex', 'blowjob', 'unpaid'
+			act 'Squat down before him': gt 'gdksex', 'blowjob', 'unpaid'
 	elseif (gdk_nice_guy = 1 and pav_slut >= 100 and pav_slut < 125) or (gdk_nice_guy = 0 and pav_slut >= 65 and pav_slut < 75):
 		'<<$boydesc>> says: "<<$pcs_nickname>>, my buddies told me you''re a <<$gnikname>>. I want to have some fun with you too!"'
 		'He pulls his cock out of his pants while he says it, and looks at you expectantly.'
 		
 		gs 'gdksex', 'decline'	
 		gs 'gdksex', 'handjob'
-		gs 'gdksex', 'blowjob', 'unpaid'	
+		act 'Squat down before him': gt 'gdksex', 'blowjob', 'unpaid'	
 	elseif (gdk_nice_guy = 1 and pav_slut >= 125) or (gdk_nice_guy = 0 and pav_slut >= 75):
 		gs 'boymass', 'B'
 		'<<$boydesc>> says: "<<$pcs_nickname>>, let''s cut the crap: the whole town knows you''re a <<$gnikname>>. I want a blowjob, here''s 100 <b>₽</b>."'
 		'He pulls his cock out of his pants while he says it, and looks at you expectantly.'
 		
 		gs 'gdksex', 'decline'
-		gs 'gdksex', 'blowjob', 'paid'
+		act 'Squat down before him': gt 'gdksex', 'blowjob', 'paid'
 	end
 
 	if (gdk_nice_guy = 1 and pav_slut >= 65) or (gdk_nice_guy = 0 and pav_slut >= 35):
@@ -479,7 +479,7 @@ if $ARGS[0] = 'outside':
 				if slutty > 10: 'You have done worse. You only say: "200 <b>₽</b>."'
 				'<<$boydesc>> looks a bit confused for a moment, but gives you 200 <b>₽</b>.'
 			
-				gs 'gdksex', 'blowjob', 'unpaid'
+				act 'Squat down before him': gt 'gdksex', 'blowjob', 'unpaid'
 			end
 		end
 	end
@@ -501,94 +501,92 @@ if $ARGS[0] = 'decline':
 end
 
 if $ARGS[0] = 'blowjob':
-	act 'Squat down before him':
+	*clr & cla
+	minut += 5
+	pcs_horny += 10
+	stat['bj'] += 1
+	if $ARGS[1] = 'paid': 
+		slutty += 1
+		money += 100
+		if gdk_nice_guy = 1:
+			pav_prostitute += rand (1,3)
+		elseif gdk_nice_guy = 0:
+			pav_prostitute += rand (3,9)
+		end
+	end
+	if boynumBlock = 0:guy += 1
+	if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0:guy += 1
+
+	sub += 1
+	gs 'boymass', 'B'
+	bmBJ[Tboynum] += 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/boybj.jpg"></center>'
+	'You squat before him as you wrap your fingers around his shaft, and slowly begin to jerk him off.'
+
+	act 'Suck his dick':
 		*clr & cla
 		minut += 5
 		pcs_horny += 10
-		stat['bj'] += 1
-		if $ARGS[1] = 'paid': 
-			slutty += 1
-			money += 100
-			if gdk_nice_guy = 1:
-				pav_prostitute += rand (1,3)
-			elseif gdk_nice_guy = 0:
-				pav_prostitute += rand (3,9)
-			end
+
+		if gdk_nice_guy = 1:
+			pav_sex += rand(1,3)
+		elseif gdk_nice_guy = 0:
+			pav_sex += rand(3,9)
 		end
-		if boynumBlock = 0:guy += 1
-		if boynumBlock > 0 and bmTOTSEX[Tboynum] = 0:guy += 1
+			
+		bmGossip[Tboynum] = 2
 
-		sub += 1
-		gs 'boymass', 'B'
-		bmBJ[Tboynum] += 1
 		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/boybj.jpg"></center>'
-		'You squat before him as you wrap your fingers around his shaft, and slowly begin to jerk him off.'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/boybj2.jpg"></center>'
+		gs 'dinsex','dinrandbj'
 
-		act 'Suck his dick':
+		act 'Continue':
 			*clr & cla
 			minut += 5
 			pcs_horny += 10
-
-			if gdk_nice_guy = 1:
-				pav_sex += rand(1,3)
-			elseif gdk_nice_guy = 0:
-				pav_sex += rand(3,9)
-			end
-			
-			bmGossip[Tboynum] = 2
-
+			swallow += 1
+			spafinloc = 11
+			gs 'cum_manage'
+			spafinloc = 12
+			gs 'cum_manage'
+			spafinloc = 7
+			gs 'cum_manage'
 			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/boybj2.jpg"></center>'
-			gs 'dinsex','dinrandbj'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/boybj3.jpg"></center>'
+			gs 'dinsex','dinrandswallow'
 
-			act 'Continue':
-				*clr & cla
-				minut += 5
-				pcs_horny += 10
-				swallow += 1
-				spafinloc = 11
-				gs 'cum_manage'
-				spafinloc = 12
-				gs 'cum_manage'
-				spafinloc = 7
-				gs 'cum_manage'
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/community/disco/sex/boybj3.jpg"></center>'
-				gs 'dinsex','dinrandswallow'
-
-				act 'Leave':gt 'gdk'
-			end
+			act 'Leave':gt 'gdk'
 		end
+	end
 
-		act 'Turn around and let him fuck you':
-			*clr & cla
-			minut += 5
-			pcs_horny += 10
+	act 'Turn around and let him fuck you':
+		*clr & cla
+		minut += 5
+		pcs_horny += 10
 
-			if boynumBlock = 0:guy += 1
+		if boynumBlock = 0:guy += 1
 
-			bmSEX[Tboynum] += 1
-			gs 'boyStat', $bmNane[Tboynum]
-			pose = 1
+		bmSEX[Tboynum] += 1
+		gs 'boyStat', $bmNane[Tboynum]
+		pose = 1
 
-			if gdk_nice_guy = 1:
-				pav_sex += rand(1,3)
-			elseif gdk_nice_guy = 0:
-				pav_sex += rand(3,9)
-			end
+		if gdk_nice_guy = 1:
+			pav_sex += rand(1,3)
+		elseif gdk_nice_guy = 0:
+			pav_sex += rand(3,9)
+		end
 			
-			bmGossip[Tboynum] = 1
+		bmGossip[Tboynum] = 1
 
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/shared/sex/public/boysex.jpg"></center>'
-			'You turn around, bend over, pull down your panties, and lean your hands against a wall for support. <<$boydesc>> immediately gets behind you.'
-			dynamic $sexstart
-			gs 'dinsex','vaginal_sex',10
-			gs 'dinsex','sexcum'
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/shared/sex/public/boysex.jpg"></center>'
+		'You turn around, bend over, pull down your panties, and lean your hands against a wall for support. <<$boydesc>> immediately gets behind you.'
+		dynamic $sexstart
+		gs 'dinsex','vaginal_sex',10
+		gs 'dinsex','sexcum'
 
-			act 'Leave':gt 'gdk'
-		end
+		act 'Leave':gt 'gdk'
 	end
 end
 
@@ -616,7 +614,7 @@ if $ARGS[0] = 'handjob':
 				'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj.jpg"></center>'
 				'You begin to move your hand up and down his shaft slowly, but slowly pick up the pace while you kiss him dominantly.'
 				'<<$boydesc>> wants more however, and suddenly places his hands on your shoulder. He firmly pushes downwards, forcing you to squat before him.'
-				gs 'gdksex', 'blowjob', 'unpaid'
+				act 'Squat down before him': gt 'gdksex', 'blowjob', 'unpaid'
 			end
 		end
 	end
@@ -809,7 +807,7 @@ if $ARGS[0] = 'kissing':
 					if pcs_horny < 75 or pav_slut < 75: act 'Go back to the disco': gt 'gdkin'
 
 					gs 'gdksex', 'handjob'
-					gs 'gdksex', 'blowjob', 'unpaid'
+					act 'Squat down before him': gt 'gdksex', 'blowjob', 'unpaid'
 				end
 			end
 		end

locations/gdksport.qsrc

@@ -74,10 +74,10 @@ if $ARGS[0] = 'start':
 	*nl
 
 	if pcs_stam > 20 and $clothingworntype = 'exercise' and $shoeworntype = 'trainers' and hour < 18:
-		if gsAboBeg > 0 and pregTalkTrack = 0:
+		if gsAboBeg > 0 and npc_pregtalk['A131'] = 0:
 			act 'Take a track lesson, you have <<gsAboBeg>> lessons remaining':gt 'gdksport', 'racing2'
 		end
-		if gsAboVolley > 0 and volleysostav = 0 and pregTalkvball = 0:
+		if gsAboVolley > 0 and volleysostav = 0 and npc_pregtalk['A69'] = 0:
 			if week ! 5:
 				act 'Take a volleyball lesson, you have <<gsAboVolley>> lessons remaining':gt 'gdksport', 'vball2'
 			else
@@ -98,10 +98,10 @@ if $ARGS[0] = 'start':
 				act 'Play with the team':gt 'gdksport', 'vballreact'
 			end
 		end
-		if gsAboDance > 0 and albinaQWdance = 0 and pregTalkStarlets = 0:
+		if gsAboDance > 0 and albinaQWdance = 0 and npc_pregtalk['A23'] = 0:
 			act 'Take a dance lesson, you have <<gsAboDance>> lessons remaining':gt 'gdksport', 'dance2'
 		end
-		if albinaQWdance > 0 and AlbinaBlokDance = 0 and ZvezdEnd = 0 and pregTalkStarlets = 0 and startletsday ! daystart:
+		if albinaQWdance > 0 and AlbinaBlokDance = 0 and ZvezdEnd = 0 and npc_pregtalk['A23'] = 0 and startletsday ! daystart:
 			if pregtime >= 90:
 				act 'Train with Starlets':gt 'gdksport', 'Starletsreact'
 			else
@@ -1113,8 +1113,8 @@ if $ARGS[0] = 'Ivan_bored':
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/ivan/sex/school/bbivanbj.jpg"></center>'
 		'Once inside Ivan starts to kiss you passionately while pulling your clothes off and tossing them all over, you return his kiss and help remove your clothes. He backs up pulling you along into one of the stalls with him. Once your clothes are removed he starts removing his own clothes, which you are only to happy to help with. Once you''re both fully naked, he sits down on the toilet and gently pushes you down to your knees.'
-		'He guides your head to his <<dick>>cm <<$dick_girth>> cock, using one your hands you grab his dick and start to stroke the shaft while you open your mouth and take his dick into your mouth. You wrap your lips tightly around his shaft and start sucking him, while using your tongue to tease the head. You alternate your hand from stroking him and fondling his balls.'
-		'He moans and grabs your hair, you can feel he is restraining himself from forcing your head down and jamming his dick down your throat. After a couple of minutes, he growls a bit and stands up, pulling you up as well. With out explaining he turns you around so quickly you almost stumble, only his strong hands on you keep you from falling into the stall wall. He roughly bends you over, using one hand to guide his cock the other grabs your butt cheek to spread it open.'
+		'He guides your head to his <<dick>>cm <<$dick_girth>> cock, using one of your hands you grab his dick and start to stroke the shaft while you open your mouth and take his dick into your mouth. You wrap your lips tightly around his shaft and start sucking him, while using your tongue to tease the head. You alternate your hand from stroking him and fondling his balls.'
+		'He moans and grabs your hair, you can feel he is restraining himself from forcing your head down and jamming his dick down your throat. After a couple of minutes, he growls a bit and stands up, pulling you up as well. Without explaining he turns you around so quickly you almost stumble, only his strong hands on you keep you from falling into the stall wall. He roughly bends you over, using one hand to guide his cock the other grabs your butt cheek to spread it open.'
 		gs 'arousal', 'kiss', 5, 'sub'
 		gs 'arousal', 'hj', 5, 'dom'
 		gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
@@ -1142,7 +1142,7 @@ if $ARGS[0] = 'Ivan_bored':
 			'He rubs the tip of his dick against your asshole for a couple of moments and then you feel a sharp pain as he pushes it in. With only your saliva as lubrication, it doesn''t slide in as easily. You bite your lip and cry out a little in pain. He relaxes a little and rubs your back as he takes it slow, giving you time to stretch and adjust to his cock invading your ass.'
 			'He slowly strokes his <<dick>>cm <<$dick_girth>> cock in your ass, with each stroke pushing it just a little deeper in your ass. Once he is about half way in your moans turn from pain to pleasure, while one of your hands starts rubbing your clit. You start moaning louder and panting, your pussy is now soaking wet. After a couple of minutes the pleasure is building up inside of your body so much you no longer even need to stimulate your clitorous any longer. "Fuck <<$pcs_nickname>>, you not only have the hottest ass of any girls in school, but the tightest one I have ever fucked." Ivan says as he can tell your getting into it, grabbing your hips with both hands. He drives himself balls deep into your ass, eliciting a squeak of pain from you, but sensation of pain is quickly overwhelmed by pleasure.'
 			'Holding onto your hips with both hands, he holds you steady and keeps you from pulling away, as he jack hammers his <<dick>>cm <<$dick_girth>> cock balls deep in your ass. You moan in pain and pleasure, mostly pleasure, the sounds of your moans, almost drowned out the sounds of his skin slapping against yours, his balls slapping against your wet pussy. You place your hands against the stall wall to keep him from driving your head into it, from his powerful and violent thrusts. As he abuses your poor little asshole, you find yourself loving every second of it.'
-			'You have an intense orgasm that leaves your legs shaking and barely able to keep standing. You are almost to the point where you are unable to take it anymore, either from the intense pleasure or the growing burning sensation in your ass. Either way the matter is moot, as Ivan drives himself once more balls deep into your ass, but this time holds himself there. You feel his cock twitching as he shoots hot sperm deep in your ass, spurt after spurt filling you up with his seamen in what seems an almost unending stream. Finally he takes a shuddering breath and pulls out of you, leaving you to almost collapse with out his support.'
+			'You have an intense orgasm that leaves your legs shaking and barely able to keep standing. You are almost to the point where you are unable to take it anymore, either from the intense pleasure or the growing burning sensation in your ass. Either way the matter is moot, as Ivan drives himself once more balls deep into your ass, but this time holds himself there. You feel his cock twitching as he shoots hot sperm deep in your ass, spurt after spurt filling you up with his semen in what seems an almost unending stream. Finally he takes a shuddering breath and pulls out of you, leaving you to almost collapse with out his support.'
 			'You both start to get dressed, him faster than you, as your still unsteady on your feet, from your shaky legs. Once he is done getting dressed he helps you gather the rest of your clothes from where he tossed them aside. As you are seeing to the final adjustments of your clothes he goes to the bathroom door and looks out both ways down the hall, motioning you over just as the class bell rings. Oh well, at least you have a good excuse to be a little late, you think to yourself with a smile.'
 			'As you start to go out the door, he stops you and squeezes your ass with his strong hand and says. "That was great <<$pcs_nickname>>, you are coolest chick in school, not to mention the hottest. Maybe we can do this again sometime soon, or maybe I will come see you in the shower at the community center some night, maybe even tonight." He grins and winks at you, giving your ass a hard slap, as he rushes off to class. You only have time to nod in agreement to his idea of doing this again, you bite your lip as you watch him go. You have mixed feelings about this, Ivan is a great guy and a lot of fun, but you know he doesn''t want a girlfriend. He just wants to be friends with benefits, but is that enough for you? You don''t have time to think on it more as you hurry to class.'
 
@@ -1232,14 +1232,14 @@ if $ARGS[0] = 'Starletsreact':
 	cla
 	menu_off = 1
 	'As you approach the Starlets, Albina looks at you in disgust. Loudly enough for the whole team to hear, she says "<<$pcs_nickname>>, no one wants to see some pregnant whore dance. Leave. You''re done." Tears welling in your eyes, you leave, the sound of laughter and taunting following your departure.'
-	act 'Continue':pregtalkStarlets = 1 & gt 'gdk'
+	act 'Continue':npc_pregtalk['A23'] = 1 & gt 'gdk'
 end
 
 if $ARGS[0] = 'vballreact':
 	cla
 	menu_off = 1
 	'As you approach the team, your coach notices you and calls you aside. "<<$pcs_firstname>>, are you pregnant? I can''t let you play like that. Also, a pregnant teenager would definitely reflect poorly on me and the rest of the team. Sorry, but off the team." Tears welling in your eyes, you leave.'
-	act 'Continue':pregtalkvball = 1 & gt 'gdk'
+	act 'Continue':npc_pregtalk['A69'] = 1 & gt 'gdk'
 end
 
 

locations/gevent.qsrc

@@ -7,61 +7,65 @@ if $ARGS[0] = '1':
 	*clr & cla
 	menu_off = 1
 	dyadyamishaevent = 1
-	dick = 18
 	gs 'themes', 'indoors'
+	gs 'boyStat', 'A54'
 
-	'You agree to help, and leave the cafe with uncle Misha. When you reach his apartment, he takes you by the hand and pulls you to his bedroom, locking the door with a key behind him. Roughly grabbing you by your hair, he pulls you down to your knees and unbuttons his pants with his other hand. His erect cock springs to life, which he impatiently pushes against your pursed lips.'
-	'"Open your mouth, whore. You know why you are here", he commands, slapping your cheeks with his hand.'
-	'As you try to resist and keep your mouth shut, he starts rubbing the head of his engorged dick against your lips, spreading his precum over it with a lewd grin on his face. When he realizes you have no intentions of opening your mouth he slaps you harder and harder. After one particularly hard slap he leans over and snarls menacingly: "Stop testing my patience and open up, bitch. I''m not going to ask again."'
-	'Reluctantly you open your mouth, allowing his vile smelling dick access past your lips. He places the head of his dick firmly inside your mouth and continues to pressure you: "Go on bitch, suck it. You''ll regret it if you make me do all the work."'
-	'Thoroughly intimidated by his demands, you begin to suck him off obediently. He can tell your heart is not really into it and decides to help out, shoving his cock further and further down your throat until you''re nuzzling his hairy crotch. He leaves it in a few seconds more than you are comfortable with, making you gag. Watching you struggle puts an evil grin on his face and after a while he pulls his dick out of your mouth, a thick strand of saliva slowly dripping off it.'
-	'"Not bad <<$pcs_nickname>>, not bad. Lie down, I''m going to have some fun with you."'
-
-	act 'Lie down on the bed':
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/misha/sex/rape.jpg"></center>'
+	'You agree to help, and leave the cafe with uncle Misha. When you reach his apartment, he takes you by the hand and pulls you to his bedroom, locking the door with a key behind him. Roughly grabbing you by your hair, he pulls you down to your knees and unbuttons his pants with his other hand.'
+	act 'Continue':
 		*clr & cla
-		'You are no longer resisting, having lost all hope of getting yourself out of this situation. Lying wearily on the bed, he quickly takes your clothes off and sits down at your feet, examining your pussy with his fingers as much as his eyes.'
-
-		if pcs_vag = 0 and stat['vaginal'] = 0:
-			cumprecheck = 1
-			gs 'cum_manage'
-			'"You''re still a virgin? We''ll have to fix that."'
-			'He mounts you and guides the head of his cock towards your virgin pussy, rubbing it against you for a little while before slamming his cock in all the way, breaking your hymen. It hurts so much! With no concerns for your feelings, he starts hammering his dick in you, while you meekly try to resist but fail to even inconvenience him. After raping your pussy for a few minutes, he pulls his dick out and forcibly thrusts it down your throat. You no longer have the strength to even fight it and just go along with whatever he wants to do, trying to appease him so he doesn''t think of anything worse to do instead. You quietly lick your blood off his dick trying to hide the disgust, and when he cums he pulls back just a bit. You can feel it spasm just as a warm liquid hits your tongue.'
-		else
-			cumprecheck = 1
-			gs 'cum_manage'
-			'"No longer a virgin, eh? No need for me to take it slow, then!"'
-			'He mounts you and guides the head of his cock towards your pussy, rubbing it against your opening for a little while before slamming his cock in all the way. He begins to fuck you with short, intense strokes.'
-
-			if dick - pcs_vag > 10 and dick - pcs_vag <= 7:'The rough handling uncle Misha gives you is feeling quite good, and you wish he''d fuck you even harder.'
-			if dick - pcs_vag > 6 and dick - pcs_vag <= 3:'Uncle Misha''s thrusts hurt a lot, and you wish for it to be over soon.'
-
-			'After raping your pussy for a few minutes, he pulls his dick out and forcibly thrusts it down your throat. You no longer have the strength to even fight it and just go along with whatever he wants to do, trying to appease him so he doesn''t think of anything worse to try instead. When he cums he pulls back just a bit, and you can feel it spasm as a warm liquid hits your tongue.'
-		end
-		
-		act 'Swallow his cum':
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/misha/sex/bj.jpg"></center>'
+		'His erect cock springs to life, which he impatiently pushes against your pursed lips.'
+		'"Open your mouth, whore. You know why you are here", he commands, slapping your cheeks with his hand.'
+		'As you try to resist and keep your mouth shut, he starts rubbing the head of his engorged dick against your lips, spreading his precum over it with a lewd grin on his face. When he realizes you have no intentions of opening your mouth he slaps you harder and harder. After one particularly hard slap he leans over and snarls menacingly: "Stop testing my patience and open up, bitch. I''m not going to ask again."'
+		'Reluctantly you open your mouth, allowing his vile smelling dick access past your lips. He places the head of his dick firmly inside your mouth and continues to pressure you: "Go on bitch, suck it. You''ll regret it if you make me do all the work."'
+		'Thoroughly intimidated by his demands, you begin to suck him off obediently. He can tell your heart is not really into it and decides to help out, shoving his cock further and further down your throat until you''re nuzzling his hairy crotch. He leaves it in a few seconds more than you are comfortable with, making you gag. Watching you struggle puts an evil grin on his face and after a while he pulls his dick out of your mouth, a thick strand of saliva slowly dripping off it.'
+		'"Not bad <<$pcs_nickname>>, not bad. Lie down, I''m going to have some fun with you."'
+		gs 'arousal', 'bj', 25, 'rough', 'rape'
+
+		act 'Lie down on the bed':
 			*clr & cla
-			stat['vaginal'] += 1
-			stat['bj'] += 1
-			swallow += 1
-			spafinloc = 12
-			gs 'cum_manage'
-			pcs_throat += 1
-
-			if pcs_vag < dick:pcs_vag += 1
-
-			rape += 1
-			minut += 75
-			money += 500
-			gs 'stat'
-
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/1.jpg"></center>'
-			'His sperm tastes quite bitter as it hits your tongue. Nevertheless, knowing it is what he expects you to do, you swallow it and lick your lips clean like an obedient girl.'
-			'"You swallowed it, girl?" he asks, melodramatically patting your head as a sign of approval. He continues: "Very nice. Go ahead and get dressed, I''ll give you a present for your efforts."'
-			'Uncle Misha leaves the room as you get dressed, and while you quickly put your clothes back on you hope that ''present'' is not more punishment in some shape or form. To your surprise, his present is actually a bank note worth 500 <b>₽</b>.'
-			'"Go on child, go buy yourself some ice cream. I know you''re from a poor family, so if you''re ever in need of money you can come pay me a visit. There''s more where that came from."'
-			'Having had his fun, he gestures that you should get lost now. You quietly take the money from uncle Misha''s hand, and leave as he says.'
-
-			act 'Leave uncle Misha''s apartment':gt 'pod_ezd','etaj_2'
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/misha/sex/sex.jpg"></center>'
+			'You are no longer resisting, having lost all hope of getting yourself out of this situation. Lying wearily on the bed, he quickly takes your clothes off and sits down at your feet, examining your pussy with his fingers as much as his eyes.'
+
+			if pcs_vag = 0 and stat['vaginal'] = 0:
+				cumprecheck = 1
+				gs 'cum_manage'
+				'"You''re still a virgin? We''ll have to fix that."'
+				'He mounts you and guides the head of his cock towards your virgin pussy, rubbing it against you for a little while before slamming his cock in all the way, breaking your hymen. It hurts so much! With no concerns for your feelings, he starts hammering his dick in you, while you meekly try to resist but fail to even inconvenience him.'
+				gs 'arousal', 'vaginal', 25, 'rough'
+				'After raping your pussy for a few minutes, he pulls his dick out and forcibly thrusts it down your throat. You no longer have the strength to even fight it and just go along with whatever he wants to do, trying to appease him so he doesn''t think of anything worse to do instead. You quietly lick your blood off his dick trying to hide the disgust, and when he cums he pulls back just a bit. You can feel it spasm just as a warm liquid hits your tongue.'
+			else
+				cumprecheck = 1
+				gs 'cum_manage'
+				'"No longer a virgin, eh? No need for me to take it slow, then!"'
+				'He mounts you and guides the head of his cock towards your pussy, rubbing it against your opening for a little while before slamming his cock in all the way. He begins to fuck you with short, intense strokes.'
+
+				if dick - pcs_vag > 10 and dick - pcs_vag <= 7:'The rough handling uncle Misha gives you is feeling quite good, and you wish he''d fuck you even harder.'
+				if dick - pcs_vag > 6 and dick - pcs_vag <= 3:'Uncle Misha''s thrusts hurt a lot, and you wish for it to be over soon.'
+				gs 'arousal', 'vaginal', 25, 'rough', 'rape'
+
+				'After raping your pussy for a few minutes, he pulls his dick out and forcibly thrusts it down your throat. You no longer have the strength to even fight it and just go along with whatever he wants to do, trying to appease him so he doesn''t think of anything worse to try instead. When he cums he pulls back just a bit, and you can feel it spasm as a warm liquid hits your tongue.'
+			end
+			
+			act 'Swallow his cum':
+				*clr & cla
+				swallow += 1
+				gs 'cum_call', 'mouth', 'A54'
+				minut += 5
+				money += 500
+				gs 'arousal', 'end'
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/misha/sex/cum.jpg"></center>'
+				'His sperm tastes quite bitter as it hits your tongue. Nevertheless, knowing it is what he expects you to do, you swallow it and lick your lips clean like an obedient girl.'
+				'"You swallowed it, girl?" he asks, melodramatically patting your head as a sign of approval. He continues: "Very nice. Go ahead and get dressed, I''ll give you a present for your efforts."'
+				'Uncle Misha leaves the room as you get dressed, and while you quickly put your clothes back on you hope that ''present'' is not more punishment in some shape or form. To your surprise, his present is actually a bank note worth 500 <b>₽</b>.'
+				'"Go on child, go buy yourself some ice cream. I know you''re from a poor family, so if you''re ever in need of money you can come pay me a visit. There''s more where that came from."'
+				'Having had his fun, he gestures that you should get lost now. You quietly take the money from uncle Misha''s hand, and leave as he says.'
+
+				act 'Leave uncle Misha''s apartment':gt 'pod_ezd','etaj_2'
+			end
 		end
 	end
 end

locations/gkafe.qsrc

@@ -94,7 +94,8 @@ if $ARGS[0] = '':
 				razvrand = rand(1, 10)
 
 				! WD: Allpw event to trigger even after talking to <<$npc_nickname[''A29'']>> about fucking her boss
-				if razvrand > 7 and hour > 16 and hour < 20 and age < 18 and dyadyamishaevent = 0 and momslut >= 1:
+				! SM: Change event to trigger once Misha has seen Sveta with cum on face in public at least once
+				if razvrand > 7 and hour > 16 and hour < 20 and age < 18 and dyadyamishaevent = 0 and sosedknow = 1:
 					''
 					'A male figure walks closely by your table. You look up and recognize uncle Misha, your neighbor. He stops and recognizes you as well, and sits down with you. He gives you a friendly smile as he says: "Oh, <<$pcs_nickname>>, hello. Listen, me and your stepfather were working late in the garage yesterday, and went for a nightcap at my place when we were finished. When your stepfather left, he accidentally left some of his tools behind. I''m fairly sure he needs them again today, and I could use a hand bringing them back to the garage. Could you help me out? I''ll give you money so you can get some ice cream for your troubles."'
 

locations/glake.qsrc

@@ -5,6 +5,7 @@ $loc = 'gLake'
 $metka = ''
 $menu_loc = 'glake'
 $menu_arg = ''
+$locclass = 'beach'
 menu_off = 0
 $location_type = 'public_outdoors'
 gs'stat'
@@ -211,8 +212,7 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 
 	if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
 		act 'Go swim in the lake (1:00)':
-			cla
-			*clr
+			*clr & cla
 			menu_off = 1
 			pcs_makeup = 1
 			cumspclnt = 4
@@ -240,8 +240,7 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 
 				menu_off = 1
 				if $clothingworntype = 'nude' and zoo > 0 and rand(1,10) = 5:
-					cla
-					*clr
+					*clr & cla
 					pcs_willpwr -= 5
 					pcs_mood -= 5
 					inhib_exp += rand(1,3)
@@ -249,8 +248,7 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 					'As you lie down on your towel to catch some rays of sun and hopefully work on your tan a little, a stray dog appears out of nowhere. It keeps sniffing between your legs, which makes you feel very uncomfortable since you''re not wearing anything. You spend most of the hour trying to chase the dog away, but it comes back every time you think you got rid of it. You don''t get much sunbathing done as a result.'
 					act 'Give up on sunbathing':gt'glake'
 				else
-					cla
-					*clr
+					*clr & cla
 					minut += 60
 					if pcs_inhib < 50:inhib_exp += rand(1,2)
 					if pcs_sweat < 35 : pcs_sweat += 5
@@ -265,7 +263,7 @@ if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
 					if krem = 0:
 						'You lie down on your towel for some sunbathing and hopefully a nicer tan, and enjoy the warm rays of the sun for an hour.'
 						pcs_tan = pcs_tan + 1
-					elseif krem > 0:
+					else
 						krem = krem - 1
 						'You smear your body with sunscreen and lie down on your towel for some sunbathing, hoping to work on your tan. You enjoy the warm rays of the sun for an hour.'
 						pcs_tan = pcs_tan + 3
@@ -395,8 +393,7 @@ act'Go to the secluded beach':minut += 10 & gt'gLakeNude'
 if month = 12 or month = 1 or month = 2:
 	if konki_cloth = 1:
 		act'Take off your skates':
-			cla
-			*clr
+			*clr & cla
 			menu_off = 1
 			minut+=10
 			konki_cloth=0

locations/gopsex.qsrc

@@ -1566,7 +1566,7 @@ if $ARGS[0] = 'hide':
 				$dummytxt = 'He hikes up your skirt'
 			elseif CloPantsShortness > 2: 
 				$dummytxt = 'He pulls your shorts down to your knees'
-			else:
+			else
 				$dummytxt = 'He pulls your pants down to your knees'
 			end
 			$txt_sex_doggy = 'You delight <<$boydesc>>. He jumps, and prompts you to bend forward. <<$dummytxt>> revealing your cute tushy, and shoves his dick into your pussy from behind. You don''t expect such abrupt action, but he is fucking you for ten minutes, almost without slowing the pace, only occasionally stopping to take a breath. You think he would be tired soon, but it turns out that he is more tenacious than one might assume. The last five minutes you forget where you are, and screaming your head off. <<$boydesc>> is growling spanking your butt with one hand and pulling your <<$pcs_haircol>> <<$curly>> hair with the other.'

locations/gopskver.qsrc

@@ -12,6 +12,8 @@ gs 'stat'
 gs 'dinsexFX'
 if $prevloc = 'gkafe':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/cafe/gkafe2.jpg"></center>'
+elseif $prevloc = 'pavtrainhall':
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/vokzal.jpg"></center>'
 else
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/skver.jpg"></center>'
 end
@@ -21,6 +23,8 @@ if kotovLoveQW > 0:
 	if hour < 20:
 		if $prevloc = 'gkafe':
 			'Vitek Kotov sees you entering the cafe and tells you to come over. When you approach him, he explains he''s drinking some beer with his friends, and offers you to join them.'
+		elseif $prevloc = 'pavtrainhall':
+			'Vitek Kotov sees you entering the train station and tells you to come over. When you approach him, he explains he''s drinking some beer with his friends, and offers you to join them.'
 		else
 			'Vitek Kotov sees you walking in the park, and tells you to come over. When you approach him, he explains he''s drinking some beer with his friends in the park, and offers you to join them.'
 		end
@@ -207,8 +211,8 @@ else
 				iif($prevloc = 'gkafe','The boys ordered some extra beers ','The boys have some extra beers with them,') + 'and invite you to have a seat and join them.'
 
 				act 'Decline the beer and leave':
-					if $prevloc = 'gkafe':
-						gt 'gkafe'
+					if $prevloc = 'gkafe' or $prevloc = 'pavtrainhall':
+						gt $prevloc
 					else
 						gt 'gskver', 'start'
 					end
@@ -231,8 +235,8 @@ else
 					'The guys cheer and pour out a beer for you. Vasily gives you ' + iif($prevloc = 'gkafe','a glass','the cup') +' while the others propose a toast, already having beers in their hands. You happily join them in their toast, and spend the next 15 minutes chatting with them and having sips of your cold beer.'
 							
 					act 'Continue':
-						if $prevloc = 'gkafe':
-							gt 'gkafe'
+						if $prevloc = 'gkafe' or $prevloc = 'pavtrainhall':
+							gt $prevloc
 						else
 							gt 'gskver', 'start'
 						end
@@ -260,17 +264,21 @@ else
 						'Vasily puts his hand on your shoulder and tells you that his friends aren''t the kind of guys a nice girl should be getting drunk with and sends you on your way.'
 
 						act 'Continue':
-							if $prevloc = 'gkafe':
-								gt 'gkafe'
+							if $prevloc = 'gkafe' or $prevloc = 'pavtrainhall':
+								gt $prevloc
 							else
 								gt 'gskver', 'start'
 							end
 						end
 					end
 				elseif pav_slut < 75:
-					if $prevloc = 'gkafe':'Vasily suggests to the guys to leave the cafe and continue drinking in the park. You are too drunk to resist so you just follow them to the park'
+					if $prevloc = 'gkafe':
+						'Vasily suggests to the guys to leave the cafe and continue drinking in the park. You are too drunk to resist so you just follow them to the park'			
+					elseif $prevloc = 'pavtrainhall':
+						'Vasily suggests to the guys to leave the train station and continue drinking in the park. You are too drunk to resist so you just follow them to the park'	
+					end
 					'At one point, Vasily sits down next to you and says: "Hey <<$pcs_nickname>>... I''ve heard from someone that you''re a huge tease, is that true?"'
-
+					
 					act '"Yes that''s true"':
 						*clr & cla
 						gs 'stat'
@@ -381,7 +389,9 @@ else
 			'Vasily grins and shouts as he sees you walk by: "Look guys, it''s our favourite slut! <<$shultextrand>>" His friends laugh loudly at your expense.'
 			
 			if $prevloc = 'gkafe':
-				act 'Blush and quickly leave the cafe':gt'pavtrain'
+				act 'Blush and quickly leave the cafe': gt $prevloc
+			elseif $prevloc = 'pavtrainhall':
+				act 'Blush and quickly leave the train station': gt $prevloc
 			else
 				act 'Blush and keep walking':gt 'gskver', 'start'
 				if BjBeerQW >= 5:

locations/gpoli.qsrc

@@ -57,9 +57,9 @@ if $ARGS[0] = '':
 			knowpregrecover = 1
 			vidage += 1
 			pregtalk = 0
-			pregTalkPC = 0
-			pregTalkNat = 0
-			pregTalkbrother = 0
+			pcs_pregtalk = 0
+			npc_pregtalk['A16'] = 0
+			npc_pregtalk['A34'] = 0
 			pregchem = 0
 			cycle = 4
 			gs 'cum_cleanup', 'reset'
@@ -313,7 +313,7 @@ if $ARGS[0] = '':
 
 					'"That''s it, you might still feel a bit off but the infection is now cured".'
 
-					act 'Leave':gt 'poli', 'start'
+					act 'Leave':gt 'gpoli'
 				end
 			end
 		end

locations/grandmahelp.qsrc

@@ -9,120 +9,35 @@ frost = 0
 
 'You ask your grandmother if you there was something you could help out with something here at home. Your grandmother turns to you and says:'
 
-if month <= 4 and month >= 10:grandmahelping = RAND(0,2)
-if month = 5 or month = 6:grandmahelping = RAND(0,5)
-if month = 7:grandmahelping = RAND(0,6)
-if month = 8:grandmahelping = RAND(7,13)
-if month = 9:grandmahelping = RAND(14,19)
-
-if grandmahelping = 0:
-	'"- There is always something to do <<$pcs_nickname>>. I''ve gotten quite old and my strength is not what it used to be. Could you help me out by cleaning the floor?"'
-
-	act 'Clean the floor (1:00)':
-		cls
-		minut += 60
-		grandmahelp += 1
-		gs'stat'
+if month <= 4 or month >= 10:
+	grandmahelping = RAND(0,2)
+elseif month = 5 or month = 6:
+	grandmahelping = RAND(0,5)
+else
+	grandmahelping = RAND(0,6)
+end
 
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/washfloor.jpg"></center>'
-		'You grab a bucket and a rag, and get down on your knees and begin scrubbing the floor. Within the hour the floor shines and you are satisfied with the work you''ve done. You put the cleaning supplies into a corner and continue on with your day.'
-		
-		act 'Go':gt'Gadhouse'
-	end
+if grandmahelping = 0: 
+	gt 'grandmahelp', 'cleanfloor'
 elseif grandmahelping = 1:
-	'"- Of course, <<$pcs_nickname>>, you can help me wash your grandfathers dirty clothes."'
-
-	act 'Wash clothes (1:00)':
-		cls
-		minut += 60
-		grandmahelp += 1
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes1.jpg"></center>'
-		'You pick up grandfathers dirty clothes and take it with you outside where you soak them in water for an hour.'
-		
-		act 'Hang the Laundry':
-		    cls
-		    minut += 10
-		    gs'stat'
-		    '<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes2.jpg"></center>'
-		    'You are done with the washing and walk over to the yard to carefully hang the clothes to dry.'
-
-		    act 'Go':gt'Gaddvor'
-		end    
-	end
+	gt 'grandmahelp', 'washclothes'
 elseif grandmahelping = 2 and hour < 9 and hour > 20:
-	' "- <<$pcs_nickname>>, go to the barn and milk the cows."'
-
-	act 'Go to the barn (0:10)':
-		cls
-		minut += 10
-		milk_cow = 1
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You walk over to the shed where the cows are kept.'
-
-		act 'Further':gt'Gadsarai'
-	end	
+	gt 'grandmahelp', 'milkcows'
 elseif grandmahelping = 3:
-	'"- Of course my dear <<$pcs_nickname>>, could you go to the yard and feed the chickens?"'
-	
-	act 'Feed for the chickens (0:30)':
-		cls
-		feed_chickens = 1
-		minut += 30
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/feed_chickens.jpg"></center>'
-		'You take the grain mix for the chickens with you and walk over to the yard.'
-
-		act 'Go':gt'Gaddvor'
-	end
+	gt 'grandmahelp', 'feedchickens'
 elseif grandmahelping = 4 and sunWeather = 1:
-	'"- <<$pcs_nickname>>, go to the garden and check on the plants."'
-
-	act 'Go to garden (0:10)':
-		cls
-        work_garden = 1
-		minut += 10
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You go to the garden.'
-
-		act 'Further':gt'Gadgarden','garden'
-	end	
+	gt 'grandmahelp', 'checkplants'
 elseif grandmahelping = 5 and sunWeather = 1:
-	'"- Dear <<$pcs_nickname>>, could you go and water the planted field in the garden?"'
-
-	act 'Go to the garden (0:10)':
-		cls
-        water_garden = 1
-		minut += 10
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You bring a bucket along with you to the garden.'
-
-		act 'Further':gt'Gadgarden','garden'
-	end
+	gt 'grandmahelp', 'waterplants'
 elseif grandmahelping = 6 and sunWeather = 1:
-	'"- <<$pcs_nickname>> dear, the strawberries are ripe to pick. Could you go over to the plot and pick them today?"'
-	
-	act 'Go to the strawberry plot (0:15)':
-		cls
-        collect_strawberries = 1
-		minut += 15
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You bring a basket with you and walk to the strawberry plot.'
+	gt 'grandmahelp', 'harvest'
+else
+	'"- There is nothing to do today <<$pcs_nickname>>, take a day off.'
+	act 'Go':gt'Gadhouse'			
+end
 
-		act 'Further':gt'Gadgarden','strawberry'
-	end
-elseif grandmahelping = 7:
-	'"- There is always something to do <<$pcs_nickname>>. I''ve gotten quite old and my knees hurt. Would you be kind and help me out by cleaning the floor?"'
+if $ARGS[0] = 'cleanfloor':
+	'"- There is always something to do <<$pcs_nickname>>. I''ve gotten quite old and my strength is not what it used to be. Could you help me out by cleaning the floor?"'
 
 	act 'Clean the floor (1:00)':
 		cls
@@ -131,117 +46,13 @@ elseif grandmahelping = 7:
 		gs'stat'
 
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/washfloor.jpg"></center>'
-		'Armed with a bucket and a rag, you hunch over and begin to scrub the floor. The floor is shining. You are satisfied and put the cleaning supplies into a corner.'
-
-		act 'Go':gt'Gadhouse'
-	end
-elseif grandmahelping = 8:
-	'"- Of course, <<$pcs_nickname>>, you grandfather was out running around the field, could you help me wash his dirty clothes?"'
-	
-	act 'Do the laundry (1:00)':
-		cls
-		minut += 60
-		grandmahelp += 1
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes1.jpg"></center>'
-		'You pick up grandfathers dirty clothes and take it with you outside where you soak them in water for an hour.'
+		'You grab a bucket and a rag, and get down on your knees and begin scrubbing the floor. Within the hour the floor shines and you are satisfied with the work you''ve done. You put the cleaning supplies into a corner and continue on with your day.'
 		
-		act 'Hang the Laundry':
-		    cls
-		    minut += 10
-		    gs'stat'
-		    '<center><img <<$set_imgh>> src="images/locations/gadukino/village/washclothes2.jpg"></center>'
-		    'You took the laundry out of the metal basin and carefully hung it in the yard.'
-
-		    act 'Go':gt'Gaddvor'
-		end    
-	end
-elseif grandmahelping = 9:
-	'"- Of course my dear <<$pcs_nickname>>, could you go and feed the chickens?"'
-	
-	act 'Feed the chickens (0:30)':
-		cls
-		feed_chickens = 1
-		minut += 30
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/feed_chickens.jpg"></center>'
-		'You take the grain mix for the chickens with you and walk over to the yard.'
-
-		act 'Go':gt'Gaddvor'
-	end
-elseif grandmahelping = 10 and hour < 9 and hour > 20:
-	'"- <<$pcs_nickname>>, go to the barn to milk the cows."'
-
-	act 'Go to the barn (0:10)':
-		cls
-		minut += 10
-		milk_cow = 1
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You walk over to the shed where the cows are kept.'
-
-		act 'Further':gt'Gadsarai'
-	end
-elseif grandmahelping = 11 and sunWeather = 1:
-	'"- <<$pcs_nickname>>, go to the garden and check on the plants."'
-
-	act 'Go to the garden (0:10)':
-		cls
-        work_garden = 1
-		minut += 10
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You go to the garden.'
-
-		act 'Further':gt'Gadgarden','garden'
-	end		
-elseif grandmahelping = 12 and sunWeather = 1:
-	'"- Dear <<$pcs_nickname>>, could you go and water the field in the garden?"'
-
-	act 'Go to the garden (0:10)':
-		cls
-        water_garden = 1
-		minut += 10
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You bring a bucket along with you to the garden.'
-
-		act 'Further':gt'Gadgarden','garden'
-	end	
-elseif grandmahelping = 13 and sunWeather = 1:
-	'"- <<$pcs_nickname>> dear, the fruits are ripe and it is time to start collecting them, could you go and do it today?"'
-
-	act 'Go to the garden (0:15)':
-		cls
-        fruit_collect = 1
-		minut += 15
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You bring a basket with you and walk to the fruit garden.'
-
-		act 'Further':gt'Gadgarden','fruit_garden'
-	end
-elseif grandmahelping = 14:
-	'"- Sure <<$pcs_nickname>>. I''ve gotten quite old, could you help me out by cleaning the floor?"'
-
-	act 'Clean the floor (1:00)':
-		cls
-		minut += 60
-		grandmahelp += 1
-		gs'stat'
-
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/washfloor.jpg"></center>'
-		'Armed with a bucket and a rag, you hunch over and begin to scrub the floor. The floor is shining. You are satisfied and put the cleaning supplies into a corner.'
-
 		act 'Go':gt'Gadhouse'
 	end
-elseif grandmahelping = 15:
+end
+
+if $ARGS[0] = 'washclothes':
 	'"- Of course, <<$pcs_nickname>>, you can help me wash your grandfathers dirty clothes."'
 	
 	act 'Wash clothes (1:00)':
@@ -263,7 +74,9 @@ elseif grandmahelping = 15:
 		    act 'Go':gt'Gaddvor'
 		end    
 	end
-elseif grandmahelping = 16:
+end
+
+if $ARGS[0] = 'feedchickens':
 	'"- Of course <<$pcs_nickname>>, would you be kind and feed the chickens?"'
 	
 	act 'Feed the chickens (0:30)':
@@ -277,8 +90,10 @@ elseif grandmahelping = 16:
 
 		act 'Go':gt'Gaddvor'
 	end
-elseif grandmahelping = 17 and hour < 9 and hour > 20:
-	'"- <<$pcs_nickname>>, go to the barn and milk the cows."'
+end
+
+if $ARGS[0] = 'milkcows':
+	' "- <<$pcs_nickname>>, go to the barn and milk the cows."'
 
 	act 'Go to the barn (0:10)':
 		cls
@@ -290,9 +105,11 @@ elseif grandmahelping = 17 and hour < 9 and hour > 20:
 		'You walk over to the shed where the cows are kept.'
 
 		act 'Further':gt'Gadsarai'
-	end
-elseif grandmahelping = 18 and sunWeather = 1:
-	'"- <<$pcs_nickname>>, could you go to the garden and check on the plants?"'
+	end	
+end
+
+if $ARGS[0] = 'checkplants':
+	'"- <<$pcs_nickname>>, go to the garden and check on the plants."'
 
 	act 'Go to garden (0:10)':
 		cls
@@ -301,27 +118,73 @@ elseif grandmahelping = 18 and sunWeather = 1:
 		gs'stat'
 
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You take a walk to the garden.'
+		'You go to the garden.'
 
 		act 'Further':gt'Gadgarden','garden'
 	end
-elseif grandmahelping = 19 and sunWeather = 1:
-	'"- <<$pcs_nickname>> dear, could you go to the garden today, it''s time to collect the harvest."'
+end
 
-	act 'Go to garden (0:10)':
+if $ARGS[0] = 'waterplants':
+	'"- Dear <<$pcs_nickname>>, could you go and water the planted field in the garden?"'
+
+	act 'Go to the garden (0:10)':
 		cls
-        harvest_garden = 1
+        water_garden = 1
 		minut += 10
 		gs'stat'
 
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You bring the harvest tools with you and go over to the garden.'
+		'You bring a bucket along with you to the garden.'
 
 		act 'Further':gt'Gadgarden','garden'
 	end
-else
-	'"- There is nothing to do today <<$pcs_nickname>>, take a day off.'
-	act 'Go':gt'Gadhouse'			
 end
+
+if $ARGS[0] = 'harvest':
+	if month = 7:
+		'"- <<$pcs_nickname>> dear, the strawberries are ripe to pick. Could you go over to the plot and pick them today?"'
+		
+		act 'Go to the strawberry plot (0:15)':
+			cls
+			collect_strawberries = 1
+			minut += 15
+			gs'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+			'You bring a basket with you and walk to the strawberry plot.'
+
+			act 'Further':gt'Gadgarden','strawberry'
+		end
+	elseif month = 8:
+		'"- <<$pcs_nickname>> dear, the fruits are ripe and it is time to start collecting them, could you go and do it today?"'
+
+		act 'Go to the garden (0:15)':
+			cls
+			fruit_collect = 1
+			minut += 15
+			gs'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+			'You bring a basket with you and walk to the fruit garden.'
+
+			act 'Further':gt'Gadgarden','fruit_garden'
+		end
+	elseif month = 9:
+		'"- <<$pcs_nickname>> dear, could you go to the garden today, it''s time to collect the harvest."'
+
+		act 'Go to garden (0:10)':
+			cls
+			harvest_garden = 1
+			minut += 10
+			gs'stat'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+			'You bring the harvest tools with you and go over to the garden.'
+
+			act 'Further':gt'Gadgarden','garden'
+		end
+	end
+end
+
 --- grandmahelp ---------------------------------
 

locations/grandpahelp.qsrc

@@ -6,47 +6,18 @@ gs'stat'
 '<center><img <<$set_imgh>> src="images/locations/gadukino/grandparents/grandpa1.jpg"></center>'
 'You walk up to your grandfather and ask if he needs any help. Grandpa thinks for a moment and says:'
 
-if month = 1:grandpahelping = RAND(0,5)
-if month = 2:grandpahelping = RAND(0,5)
-if month = 3:grandpahelping = RAND(0,5)
-if month = 4:grandpahelping = RAND(0,5)
-if month = 5:grandpahelping = RAND(6,11)
-if month = 6:grandpahelping = RAND(12,21)
-if month = 7:grandpahelping = RAND(22,32)
-if month = 8:grandpahelping = RAND(22,32)
-if month = 9:grandpahelping = RAND(12,21)
-if month = 10:grandpahelping = RAND(0,4)
-if month = 11:grandpahelping = RAND(0,4)
-if month = 12:grandpahelping = RAND(0,4)
+if month <= 4 or month >= 10:
+	grandpahelping = RAND(0,5)
+elseif month = 5:
+	grandpahelping = RAND(3,8)
+elseif month = 6 or month = 9:
+	grandpahelping = RAND(3,12)
+else
+	grandpahelping = RAND(3,13)
+end
 
 !month >= 1 and month < 5 and month > 9
 if grandpahelping = 0:
-	'"- Of course <<$pcs_nickname>>, I need your help in the yard. Bring a garden tool with you."'
-
-	act 'Clean up the yard (1:00)':
-		*clr & cla
-		if month >= 4 and month <= 10:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard1.jpg"></center>'
-				'Armed with a rake, you begin cleaning the yard. You''re pleased seeing the yard clean. You return the rake to the shed and continue on with your business.'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard2.jpg"></center>'
-			'Armed with a shovel, you begin clearing the yard from snow. You''re pleased with yourself seeing the courtyard is free from snow. You return the shovel to the shed and continue on with your business.'
-		end
-		minut += 60
-		grandmahelp += 1
-		if month >= 4 and month <= 10:
-			fat -= RAND(1,3)
-		else
-			stren_exp += 1
-			fat -= RAND(1,5)
-		end
-		gs'stat'
-
-		act 'Go':gt'Gaddvor'
-	end
-end
-
-if grandpahelping = 1:
 	'"- <<$pcs_nickname>>, could you bring firewood for the stove?"'
 
 	act 'Fetch firewood (0:15)':
@@ -65,9 +36,7 @@ if grandpahelping = 1:
 
 		act 'Go':gt'Gadhouse'
 	end
-end
-
-if grandpahelping = 2:
+elseif grandpahelping = 1:
 	'"- <<$pcs_nickname>>, I need you to go to the barn and feed Desperado."'
 
 	act 'Go to the barn (0:15)':
@@ -84,9 +53,7 @@ if grandpahelping = 2:
 
 		act 'Further':gt'Gadsarai'
 	end
-end
-
-if grandpahelping = 3:
+elseif grandpahelping = 2:
 	'"- <<$pcs_nickname>>, go to the barn to feed the cows."'
 
 	act 'Go to the barn (0:15)':
@@ -103,206 +70,81 @@ if grandpahelping = 3:
 
 		act 'Further':gt'Gadsarai'
 	end
-end
-
-if grandpahelping = 4:
-	'"- Of course <<$pcs_nickname>>, I need your help to groom Desperado."'
-
-	act 'Go to the barn (0:15)':
-		*clr & cla
-		if month >= 4 and month <= 10:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
-		end
-		'You went to the barn, took out a brush and started grooming Desperado.'
-		comb_horse = 1
-		minut += 15
-		gs'stat'
-
-		act 'Further':gt'Gadsarai'
-	end
-end
-
-if grandpahelping = 5:
-	'"- <<$pcs_nickname>>, could you go to the barn and feed the hogs."'
-
-	act 'Go to the barn (0:15)':
-		*clr & cla
-		if month >= 4 and month <= 10:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
-		end
-		'You went to the barn and fed the hogs.'
-		feed_boar = 1
-		minut += 15
-		gs'stat'
-
-		act 'Further':gt'Gadsarai'
-	end
-end
+elseif grandpahelping = 3:
+	gt 'grandpahelp', 'cleanyard'
+elseif grandpahelping = 4:
+	gt 'grandpahelp', 'groomhorse'
+elseif grandpahelping = 5:
+	gt 'grandpahelp', 'feedhogs'
 !month = 5
-if grandpahelping = 6:
-	'"- Of course <<$pcs_nickname>>, I need your help cleaning the yard. Bring a garden tool with you."'
+elseif grandpahelping = 6 and hour >= 6 and hour < 9:
+	gt 'grandpahelp', 'grazehorse'
+elseif grandpahelping = 7 and hour >= 6 and hour < 9:
+	gt 'grandpahelp', 'leadcows'
+elseif grandpahelping = 8 and hour >= 6 and hour < 9:
+	gt 'grandpahelp', 'grazecows'
+!month = 6 or month = 9
+elseif grandpahelping = 9 and temper >= 15 and sunWeather = 1 and week > 5:
+	gt 'grandpahelp', 'washhorse'
+elseif grandpahelping = 10 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
+	gt 'grandpahelp', 'pickforest'
+elseif grandpahelping = 11 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
+	gt 'grandpahelp', 'pickforest'
+elseif grandpahelping = 12 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
+	gt 'grandpahelp', 'pickforest'
+!month = 7 or month = 8
+elseif grandpahelping = 13 and temper >= 15 and sunWeather = 1 and hour >= 6 and hour < 9:
+	'"- <<$pcs_nickname>>, we need to help out with hay gathering today. We have to go to the field and help out."'
+	'"- Okay, grandfather," you replied. You grab a rake, and start walking towards the field.'
 
-	act 'Clean up the yard (1:00)':
+	act 'Go to the field (0:40)':
 		*clr & cla
-		if month >= 4 and month <= 10:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard1.jpg"></center>'
-			'Armed with a rake, you begin cleaning the yard. You''re pleased seeing the yard clean. You return the rake to the shed and continue on with your business.'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard2.jpg"></center>'
-			'Armed with a shovel, you begin clearing the yard from snow. You''re pleased with yourself seeing the courtyard is free from snow. You return the shovel to the shed and continue on with your business.'
-		end
-		minut += 60
-		grandmahelp += 1
-		if month >= 4 and month <= 10:
-			fat -= RAND(1,3)
-		else
-			stren_exp += 1
-			fat -= RAND(1,5)
-		end
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_gadfield.jpg"></center>'
+		'With the rake in your hand you met up with the other local residents at the field. All the present at the field got assigned to a task. You work hard gathering the hay.'
+		haying_time = 1
+		minut += 40
 		gs'stat'
 
-		act 'Go':gt'Gaddvor'
+		act 'Further':gt'gadfield','field'
 	end
-end
-
-if grandpahelping = 7:
-	'"- <<$pcs_nickname>>, could you go to the barn and feed the hogs."'
-
-	act 'Go to the barn (0:15)':
-		*clr & cla
-		if month >= 4 and month <= 10:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+else
+	if hour >= 9:
+		randmsg = rand(0,5)
+		if randmsg = 0:
+			'"- You can rest today <<$pcs_nickname>>, you don''t need to help me today."'
+		elseif randmsg = 1:
+			'"- You can rest today child, there is nothing to do."'
+		elseif randmsg = 2:
+			'"- You can rest today <<$pcs_nickname>>, there is nothing to do."'
+		elseif randmsg = 3:
+			'"- There''s no work today <<$pcs_nickname>>, go and rest up."'
+		elseif randmsg = 4:
+			'"- You can rest today my dear granddaughter."'
 		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
+			'"- You can take the day off to rest up."'
 		end
-		'You went to the barn and fed the hogs.'
-		feed_boar = 1
-		minut += 15
-		gs'stat'
-
-		act 'Further':gt'Gadsarai'
-	end
-end
-
-if grandpahelping = 8 and week > 5:
-	'"- Of course <<$pcs_nickname>>, I need your help to groom Desperado."'
-
-	act 'Go to the barn (0:15)':
-		*clr & cla
-		if month >= 4 and month <= 10:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
+	else
+		randmsg = rand(0,1)
+		if randmsg = 0:
+			'"- You don''t need to help out today <<$pcs_nickname>>."'
 		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
+			'"- You can take the day off."'
 		end
-		'You went to the barn, took out a brush and started grooming Desperado.'
-		comb_horse = 1
-		minut += 15
-		gs'stat'
-
-		act 'Further':gt'Gadsarai'
 	end
-elseif grandpahelping = 8 and week <= 5:
-	'"- You don''t need to help out today <<$pcs_nickname>>."'
-
 	act 'Go':gt'Gadhouse'
 end
 
-if grandpahelping = 9 and hour >= 6 and hour < 9:
-	'"- <<$pcs_nickname>>, take the horse to the field, my legs hurt so I need to rest for a bit. I`ll retrieve the horse up in the evening."'
-
-	act 'Go to the barn (0:15)':
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You led the horse to the field.'
-		horse_field = 1
-		minut += 15
-		gs'stat'
-
-		act 'Further':& gt'Gadsarai'
-	end
-elseif grandpahelping = 9 and hour >= 9:
-	'"- You can rest today <<$pcs_nickname>>, you don''t need to help me today."'
-
-	act 'Go':gt'Gadhouse'
-end
-
-if grandpahelping = 10 and hour >= 6 and hour < 9:
-	'"- I have sore feet today, <<$pcs_nickname>>. My dear granddaughter could you lead the cows on the field and tell the herders to drive them home at the end of the day."'
-
-	act 'Go to the barn (0:15)':
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You went to the shed where the cows are and led the herd to the field.'
-		cow_field = 1
-		minut += 15
-		gs'stat'
-
-		act 'Further':gt'Gadsarai'
-	end
-elseif grandpahelping = 10 and hour >= 9:
-	'"- You can rest today child, there is nothing to do."'
-
-	act 'Go':gt'Gadhouse'
-end
-
-if grandpahelping = 11 and hour >= 6 and hour < 9:
-	if graze_cow_exp = 0: '"- <<$pcs_nickname>>, we need to let the cows graze on the field today. Grab something to eat, lead the herd to the field. I''ll meet you there."'
-	if graze_cow_exp > 0: '"- <<$pcs_nickname>>, it''s our turn to look out for the cows grazing on the field today. So grab something to eat quickly, and stop by the field where the herd is. I''ll bring back them back home."'
-
-	if graze_cow_exp = 0:
-		act 'Go to the barn (0:20)':
-			gs 'food', 'm_meal' &! use current one, *clr & cla will clear messages
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-			'You took a little nibble of a sandwich and went to the shed where the herd was. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
-			graze_cow = 1
-			pcs_mood += 20
-			pcs_health += 10
-			minut += 20
-			bottle += 1
-			buterbrod += 1
-			gs'stat'
-
-			act 'Further':gt'Gadsarai'
-		end
-	else
-		act 'Go to the field (0:20)':
-			gs 'food', 'm_meal' &! use current one, *clr & cla will clear messages
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_go_field.jpg"></center>'
-			'You had a quick bite and went to the field where the village herd is. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
-			graze_cow = 1
-			pcs_mood += 20
-			pcs_health += 10
-			minut += 20
-			bottle += 1
-			buterbrod += 1
-			gs'stat'
-
-			act 'Further':gt'gadfield','cow'
-		end
-	end
-elseif grandpahelping = 11 and hour >= 9:
-	'"- You can rest today <<$pcs_nickname>>, there is nothing to do."'
-
-	act 'Go':gt'Gadhouse'
-end
-!month = 6 or month = 9
-if grandpahelping = 12:
-	'"– I need your help cleaning the yard, bring the garden tools."'
+if $ARGS[0] = 'cleanyard':
+	'"- Of course <<$pcs_nickname>>, I need your help in the yard. Bring a garden tool with you."'
 
 	act 'Clean up the yard (1:00)':
 		*clr & cla
 		if month >= 4 and month <= 10:
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard1.jpg"></center>'
-			 'Armed with a rake, you begin cleaning the yard. You''re pleased seeing the yard clean. You return the rake to the shed and continue on with your business.'
+			'Armed with a rake, you begin cleaning the yard. You''re pleased seeing the yard clean. You return the rake to the shed and continue on with your business.'
 		else
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard2.jpg"></center>'
-			'Armed with a shovel, you begin clearing the yard from snow. You''re pleased with yourself seeing the courtyard is free from snow. You return the shovel to the shed and continue on with your business.'
+			'Armed with a shovel, you begin clearing the yard of snow. You''re pleased with yourself seeing the courtyard is free of snow. You return the shovel to the shed and continue on with your business.'
 		end
 		minut += 60
 		grandmahelp += 1
@@ -318,8 +160,8 @@ if grandpahelping = 12:
 	end
 end
 
-if grandpahelping = 13:
-	'"- <<$pcs_nickname>>, could you go to the barn and feed the pigs."'
+if $ARGS[0] = 'feedhogs':
+	'"- <<$pcs_nickname>>, could you go to the barn and feed the hogs."'
 
 	act 'Go to the barn (0:15)':
 		*clr & cla
@@ -328,7 +170,7 @@ if grandpahelping = 13:
 		else
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
 		end
-		'You went to the barn to fed the pigs.'
+		'You go to the barn and feed the hogs.'
 		feed_boar = 1
 		minut += 15
 		gs'stat'
@@ -337,111 +179,7 @@ if grandpahelping = 13:
 	end
 end
 
-if grandpahelping = 14 and week > 5:
-	'"- <<$pcs_nickname>>, I need your help to groom Desperado."'
-
-	act 'Go to the barn (0:15)':
-		*clr & cla
-		if month >= 4 and month <= 10:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
-		end
-		'You went to the barn, took out a brush and started grooming Desperado.'
-		comb_horse = 1
-		minut += 15
-		gs'stat'
-
-		act 'Further':gt'Gadsarai'
-	end
-elseif grandpahelping = 14 and week <= 5:
-	'"- You can take the day off."'
-
-	act 'Go':gt'Gadhouse'
-end
-
-if grandpahelping = 15 and hour >= 6 and hour < 9:
-	'"- <<$pcs_nickname>>, take the horse to the field, my legs hurt so I need to rest for a bit. I`ll retrieve the horse up in the evening."'
-
-	act 'Go to the barn (0:15)':
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You led the horse to the field.'
-		horse_field = 1
-		minut += 15
-		gs'stat'
-
-		act 'Further':& gt'Gadsarai'
-	end
-elseif grandpahelping = 15 and hour >= 9:
-	'"- There''s no work today <<$pcs_nickname>>, go and rest up."'
-
-	act 'Go':gt'Gadhouse'
-end
-
-if grandpahelping = 16 and hour >= 6 and hour < 9:
-	'"- I have sore feet today, <<$pcs_nickname>>. My dear granddaughter could you lead the cows on the field and tell the herders to drive them home at the end of the day."'
-
-	act 'Go to the barn (0:15)':
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You went to the shed where the cows are and led the herd to the field.'
-		cow_field = 1
-		minut += 15
-		gs'stat'
-
-		act 'Further':gt'Gadsarai'
-	end
-elseif grandpahelping = 16 and hour >= 9:
-	'"- You can rest today my dear granddaughter."'
-
-	act 'Go':gt'Gadhouse'
-end
-
-if grandpahelping = 17 and hour >= 6 and hour < 9:
-	if graze_cow_exp = 0: '"- <<$pcs_nickname>>, we need to let the cows graze on the field today. Grab something to eat, lead the herd to the field. I''ll meet you there."'
-	if graze_cow_exp > 0: '"- <<$pcs_nickname>>, it''s our turn to look out for the cows grazing on the field today. So grab something to eat quickly, and stop by the field where the herd is. I''ll bring back them back home."'
-
-	if graze_cow_exp = 0:
-		act 'Go to the barn (0:20)':
-			gs 'food', 'm_meal'&!use current one, *clr & cla will clear messages
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-			'You took a little nibble of a sandwich and went to the shed where the herd was. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
-			graze_cow = 1
-			pcs_mood += 20
-			pcs_health += 10
-			minut += 20
-			bottle += 1
-			buterbrod += 1
-			gs'stat'
-
-			act 'Further':gt'Gadsarai'
-		end
-	else
-		act 'Go to the field (0:20)':
-			gs 'food', 'm_meal'&!use current one, *clr & cla will clear messages
-			*clr & cla
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_go_field.jpg"></center>'
-			'You had a quick bite and went to the field where the village herd is. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
-			graze_cow = 1
-			pcs_mood += 20
-			pcs_health += 10
-			minut += 20
-			bottle += 1
-			buterbrod += 1
-			gs'stat'
-
-			act 'Further':gt'gadfield','field'
-		end
-	end
-elseif grandpahelping = 17 and hour >= 9:
-	'"- You can take the day off to rest up."'
-
-	act 'Go':gt'Gadhouse'
-end
-
-if grandpahelping = 18 and temper >= 15 and sunWeather = 1 and week > 5:
+if $ARGS[0] = 'washhorse':
 	'"- It''s good weather today. Take Desperado to the river and give him a bath."'
 
 	act 'Go to the barn (0:10)':
@@ -452,103 +190,11 @@ if grandpahelping = 18 and temper >= 15 and sunWeather = 1 and week > 5:
 		minut += 10
 		gs'stat'
 
-		act 'Further':gt'Gadsarai'
-	end
-elseif grandpahelping = 18 and week <= 5 or grandpahelping = 18 and temper < 15 or grandpahelping = 18 and sunWeather = 0:
-	'"- You don''t need to help out today <<$pcs_nickname>>."'
-
-	act 'Go':gt'Gadhouse'
-end
-
-if grandpahelping = 19 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
-	grandpa_boletus = rand(2,3)
-	go_in_boletus = 1
-	'"- <<$pcs_nickname>>, could you go to the forest and pick mushrooms? I''m craving fried mushrooms."'
-	'"- How much should I pick, grandpa?", you asked.'
-	'"- <<grandpa_boletus>> kg will be enough," grandfather replied. "- Be careful so you don''t get lost."'
-
-	act 'Go':gt'Gadhouse'
-elseif grandpahelping = 19 and go_in_boletus = 1 or grandpahelping = 19 and go_in_bilberry = 1 or grandpahelping = 19 and go_in_boletus_bilberry = 1:
-	'"- You can rest today <<$pcs_nickname>>, you don''t need to help me today."'
-
-	act 'Go':gt'Gadhouse'
-end
-
-if grandpahelping = 20 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
-	grandpa_bilberry = rand(3,5)
-	go_in_bilberry = 1
-	'"- <<$pcs_nickname>>, could you go to the forest to pick some berries? Grandma wants to make homemade fruit jam."'
-	'"- How much should I pick, grandpa?" you asked.'
-	'"- <<grandpa_bilberry>> kg will be enough," grandfather replied. "- Just be careful so you don''t get lost."'
-
-	act 'Go':gt'Gadhouse'
-elseif grandpahelping = 20 and go_in_boletus = 1 or grandpahelping = 20 and go_in_bilberry = 1 or grandpahelping = 20 and go_in_boletus_bilberry = 1:
-	'"- You can take the day off."'
-
-	act 'Go':gt'Gadhouse'
-end
-
-if grandpahelping = 21 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
-	grandpa_boletus = rand(2,3)
-	grandpa_bilberry = rand(2,3)
-	go_in_boletus_bilberry = 1
-	'"- <<$pcs_nickname>>, can you go to the forest and pick some berries and mushrooms? Your grandmother wants to make a mushroom soup, and has a craving for some fresh berries."'
-	'"- How much should I pick, grandpa?"'
-	'"- <<grandpa_boletus>> kg mushrooms and <<grandpa_bilberry>> kg of berries will be enough," grandfather replied. "- Just don`t get lost."'
-
-	act 'Go':gt'Gadhouse'
-elseif grandpahelping = 21 and go_in_boletus = 1 or grandpahelping = 21 and go_in_bilberry = 1 or grandpahelping = 21 and go_in_boletus_bilberry = 1:
-	'"- There''s no work today <<$pcs_nickname>>, go and rest up."'
-
-	act 'Go':gt'Gadhouse'
-end
-!month = 7 or month = 8
-if grandpahelping = 22:
-	'"- Of course <<$pcs_nickname>>, I need your help in the yard. Bring a garden tool with you."'
-
-	act 'Clean up the yard (1:00)':
-		*clr & cla
-		if month >= 4 and month <= 10:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard1.jpg"></center>'
-			'Armed with a rake, you begin cleaning the yard. You''re pleased seeing the yard clean. You return the rake to the shed and continue on with your business.'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/clean_yard2.jpg"></center>'
-			'Armed with a shovel, you begin clearing the yard from snow. You''re pleased with yourself seeing the courtyard is free from snow. You return the shovel to the shed and continue on with your business.'
-		end
-		minut += 60
-		grandmahelp += 1
-		if month >= 4 and month <= 10:
-			fat -= RAND(1,3)
-		else
-			stren_exp += 1
-			fat -= RAND(1,5)
-		end
-		gs'stat'
-
-		act 'Go':gt'Gaddvor'
-	end
-end
-
-if grandpahelping = 23:
-	'"- <<$pcs_nickname>>, could you go to the barn and feed the hogs."'
-
-	act 'Go to the barn (0:15)':
-		*clr & cla
-		if month >= 4 and month <= 10:
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
-		end
-		'You went to the barn and fed the hogs.'
-		feed_boar = 1
-		minut += 15
-		gs'stat'
-
 		act 'Further':gt'Gadsarai'
 	end
 end
 
-if grandpahelping = 24 and week > 5:
+if $ARGS[0] = 'groomhorse':
 	'"- Of course <<$pcs_nickname>>, I need your help to groom Desperado."'
 
 	act 'Go to the barn (0:15)':
@@ -558,67 +204,43 @@ if grandpahelping = 24 and week > 5:
 		else
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard_winter.jpg"></center>'
 		end
-		'You went to the barn, took out a brush and started grooming Desperado.'
+		'You go to the barn, take out a brush and start grooming Desperado.'
 		comb_horse = 1
 		minut += 15
 		gs'stat'
 
 		act 'Further':gt'Gadsarai'
 	end
-elseif grandpahelping = 24 and week <= 5:
-	'"- You don''t need to help out today <<$pcs_nickname>>."'
-
-	act 'Go':gt'Gadhouse'
 end
 
-if grandpahelping = 25 and hour >= 6 and hour < 9:
+if $ARGS[0] = 'grazehorse':
 	'"- <<$pcs_nickname>>, take the horse to the field, my legs hurt so I need to rest for a bit. I`ll retrieve the horse up in the evening."'
 
-	act 'Go to the barn (0:10)':
+	act 'Go to the barn (0:15)':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You led the horse to the field.'
+		'You lead the horse to the field.'
 		horse_field = 1
-		minut += 10
+		minut += 15
 		gs'stat'
 
 		act 'Further':& gt'Gadsarai'
 	end
-elseif grandpahelping = 25 and hour >= 9:
-	'"- There''s no work today <<$pcs_nickname>>, go and rest up."'
-
-	act 'Go':gt'Gadhouse'
 end
 
-if grandpahelping = 26 and hour >= 6 and hour < 9:
-	'"- I have sore feet today, <<$pcs_nickname>>. My dear granddaughter could you lead the cows on the field and tell the herders to drive them home at the end of the day."'
-
-	act 'Go to the barn (0:10)':
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You went to the shed where the cows are and led the herd to the field.'
-		cow_field = 1
-		minut += 10
-		gs'stat'
-
-		act 'Further':gt'Gadsarai'
+if $ARGS[0] = 'grazecows':
+	if graze_cow_exp = 0: 
+		'"- <<$pcs_nickname>>, we need to let the cows graze on the field today. Grab something to eat and lead the herd to the field. I''ll meet you there."'
+	else
+		'"- <<$pcs_nickname>>, it''s our turn to look out for the cows grazing on the field today. So grab something to eat quickly, and stop by the field where the herd is. I''ll bring them back home."'
 	end
-elseif grandpahelping = 26 and hour >= 9:
-	'"- You can rest today my dear granddaughter."'
-
-	act 'Go':gt'Gadhouse'
-end
-
-if grandpahelping = 27 and hour >= 6 and hour < 9:
-	if graze_cow_exp = 0: '"- <<$pcs_nickname>>, we need to let the cows graze on the field today. Grab something to eat, lead the herd to the field. I''ll meet you there."'
-	if graze_cow_exp > 0: '"- <<$pcs_nickname>>, it''s our turn to look out for the cows grazing on the field today. So grab something to eat quickly, and stop by the field where the herd is. I''ll bring back them back home."'
 
 	if graze_cow_exp = 0:
 		act 'Go to the barn (0:20)':
-			gs 'food', 'm_meal'&!use current one, *clr & cla will clear messages
+			gs 'food', 'm_meal' &! use current one, *clr & cla will clear messages
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-			'You took a little nibble of a sandwich and went to the shed where the herd was. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
+			'You take a little nibble of a sandwich and go to the shed where the herd is. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
 			graze_cow = 1
 			pcs_mood += 20
 			pcs_health += 10
@@ -631,10 +253,10 @@ if grandpahelping = 27 and hour >= 6 and hour < 9:
 		end
 	else
 		act 'Go to the field (0:20)':
-			gs 'food', 'm_meal'&!use current one, *clr & cla will clear messages
+			gs 'food', 'm_meal' &! use current one, *clr & cla will clear messages
 			*clr & cla
 			'<center><img <<$set_imgh>> src="images/locations/gadukino/village/cow_go_field.jpg"></center>'
-			'You had a quick bite and went to the field where the village herd is. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
+			'You have a quick bite and go to the field where the village herd is. Your grandmother put a sandwich and a bottle of water in the bag for lunch.'
 			graze_cow = 1
 			pcs_mood += 20
 			pcs_health += 10
@@ -643,95 +265,48 @@ if grandpahelping = 27 and hour >= 6 and hour < 9:
 			buterbrod += 1
 			gs'stat'
 
-			act 'Further':gt'gadfield','field'
+			act 'Further':gt'gadfield','cow'
 		end
 	end
-elseif grandpahelping = 27 and hour >= 9:
-	'"- You can take the day off to rest up."'
-
-	act 'Go':gt'Gadhouse'
 end
 
-if grandpahelping = 28 and temper >= 15 and sunWeather = 1 and week > 5:
-	'"- It''s good weather today. Take Desperado to the river and give him a bath."'
+if $ARGS[0] = 'leadcows':
+	'"- I have sore feet today, <<$pcs_nickname>>. My dear granddaughter could you lead the cows on the field and tell the herders to drive them home at the end of the day."'
 
-	act 'Go to the barn (0:10)':
+	act 'Go to the barn (0:15)':
 		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_yard.jpg"></center>'
-		'You went and got the horse from the barn and led it to the river.'
-		horse_river = 1
-		minut += 10
+		'You go to the shed where the cows are and lead the herd to the field.'
+		cow_field = 1
+		minut += 15
 		gs'stat'
 
 		act 'Further':gt'Gadsarai'
 	end
-elseif grandpahelping = 28 and week <= 5 or grandpahelping = 28 and temper < 15 or grandpahelping = 28 and sunWeather = 0:
-	'"- You don''t need to help out today <<$pcs_nickname>>."'
-
-	act 'Go':gt'Gadhouse'
 end
 
-if grandpahelping = 29 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
+if $ARGS[0] = 'pickforest':
 	grandpa_boletus = rand(2,3)
-	go_in_boletus = 1
-	'"- <<$pcs_nickname>>, could you go to the forest and pick mushrooms? I''m craving fried mushrooms."'
-	'"- How much should I pick, grandpa?", you asked.'
-	'"- <<grandpa_boletus>> kg will be enough," grandfather replied. "- Be careful so you don''t get lost."'
-
-	act 'Go':gt'Gadhouse'
-elseif grandpahelping = 29 and go_in_boletus = 1 or grandpahelping = 29 and go_in_bilberry = 1 or grandpahelping = 29 and go_in_boletus_bilberry = 1:
-	'"- You can rest today <<$pcs_nickname>>, you don''t need to help me today."'
-
-	act 'Go':gt'Gadhouse'
-end
-
-if grandpahelping = 30 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
 	grandpa_bilberry = rand(3,5)
-	go_in_bilberry = 1
-	'"- <<$pcs_nickname>>, could you go to the forest to pick some berries? Grandma wants to make homemade fruit jam."'
-	'"- How much should I pick, grandpa?" you asked.'
-	'"- <<grandpa_bilberry>> kg will be enough," grandfather replied. "- Just be careful so you don''t get lost."'
-
-	act 'Go':gt'Gadhouse'
-elseif grandpahelping = 30 and go_in_boletus = 1 or grandpahelping = 30 and go_in_bilberry = 1 or grandpahelping = 30 and go_in_boletus_bilberry = 1:
-	'"- You can take the day off."'
-
-	act 'Go':gt'Gadhouse'
-end
-
-if grandpahelping = 31 and go_in_boletus = 0 and go_in_bilberry = 0 and go_in_boletus_bilberry = 0:
-	grandpa_boletus = rand(2,3)
-	grandpa_bilberry = rand(2,3)
-	go_in_boletus_bilberry = 1
-	'"- <<$pcs_nickname>>, can you go to the forest and pick some berries and mushrooms? Your grandmother wants to make a mushroom soup, and has a craving for some fresh berries."'
-	'"- How much should I pick, grandpa?"'
-	'"- <<grandpa_boletus>> kg mushrooms and <<grandpa_bilberry>> kg of berries will be enough," grandfather replied. "- Just don`t get lost."'
-
-	act 'Go':gt'Gadhouse'
-elseif grandpahelping = 31 and go_in_boletus = 1 or grandpahelping = 31 and go_in_bilberry = 1 or grandpahelping = 31 and go_in_boletus_bilberry = 1:
-	'"- There''s no work today <<$pcs_nickname>>, go and rest up."'
-
-	act 'Go':gt'Gadhouse'
-end
-
-if grandpahelping = 32 and temper >= 15 and sunWeather = 1 and hour >= 6 and hour < 9:
-	'"- <<$pcs_nickname>>, we need to help out with hay gathering today. We have to go to the field and help out."'
-	'"- Okay, grandfather," you replied. You grabed a rake, and started walking towards the field.'
-
-	act 'Go to the field (0:40)':
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/go_gadfield.jpg"></center>'
-		'With the rake in your hand you met up with the other local residents at the field. All the present at the field got assigned to a task. You work hard gathering the hay.'
-		haying_time = 1
-		minut += 40
-		gs'stat'
-
-		act 'Further':gt'gadfield','field'
+	if grandpahelping = 10:
+		go_in_boletus = 1
+		'"- <<$pcs_nickname>>, could you go to the forest and pick mushrooms? I''m craving fried mushrooms."'
+		'"- How much should I pick, grandpa?", you ask.'
+		'"- <<grandpa_boletus>> kg will be enough," grandfather replies. "- Be careful so you don''t get lost."'
+	elseif grandpahelping = 11:
+		go_in_bilberry = 1
+		'"- <<$pcs_nickname>>, could you go to the forest to pick some berries? Grandma wants to make homemade fruit jam."'
+		'"- How much should I pick, grandpa?" you ask.'
+		'"- <<grandpa_bilberry>> kg will be enough," grandfather replies. "- Just be careful so you don''t get lost."'
+	elseif grandpahelping = 12:
+		grandpa_bilberry = rand(2,3)
+		go_in_boletus_bilberry = 1
+		'"- <<$pcs_nickname>>, can you go to the forest and pick some berries and mushrooms? Your grandmother wants to make a mushroom soup, and has a craving for some fresh berries."'
+		'"- How much should I pick, grandpa?"'
+		'"- <<grandpa_boletus>> kg mushrooms and <<grandpa_bilberry>> kg of berries will be enough," grandfather replies. "- Just don`t get lost."'
 	end
-elseif grandpahelping = 32 and hour >= 9 or grandpahelping = 32 and temper < 15 or grandpahelping = 32 and sunWeather = 0:
-	'"- You don''t need to help out today <<$pcs_nickname>>."'
-
 	act 'Go':gt'Gadhouse'
 end
+
 --- grandpahelp ---------------------------------
 

locations/gschool_boys_bathroom.qsrc

@@ -1227,7 +1227,7 @@ if $ARGS[0] = 'companyb4':
 		'You decide to keep watching them, she sucks his cock for awhile as you watch. Neither seem to be aware of your presence as they are engrossed in each other. Then he pulls her up standing and turns her around, he pushes her forward. Bending her over the sinks, as she pulls up her skirt, he pulls down her panties. With her panties around her ankles, he moves up and starts fucking her; at first he is slow but passionate. As she begins to moan louder he picks up his pace and before long he is pounding her like crazy.'
 		*nl
 		'It doesn''t take much longer until Miss Orlov is having a screaming orgasm, Mr. Kuznetsov, is forced to put his hand over her mouth as she orgasms while he fucks her to muffle her cries of ecstasy. Some time after she finishes, he pulls out of her. She turns around and gets back on her knees and starts sucking his cock again. Moment latter he starts grunting obviously cumming in her mouth. Not a single drop escapes her mouth, she milks his cock of ever last drop before removing it from her mouth. The grin at each other and then kiss, after that they get dressed and leave the bathroom.'
-		act 'Masturbate':gt 'gschool_boys_bathroom', 'bathroom2'
+		act 'Masturbate': gt 'gschool_boys_bathroom', 'masturbateb4'
 		if school_bunk = 0:
 			act 'Continue playing on phone':gt 'gschool_boys_bathroom', 'bathroom2'
 		else
@@ -1245,26 +1245,28 @@ if $ARGS[0] = 'companyb4':
 			act 'Keep smoking':gt 'gschool_boys_bathroom', 'bathroom2'
 		end
 	end
-	act 'Masturbate':
-		cla & *clr
-		stat['mast'] += 1
-		if pcs_inhib < 40:inhib_exp += rand(1,3)
-		orgasm += 1
-		pcs_horny = 0
-		gs 'arousal', 'mast', 10
-		gs 'stat'
-		'<center><b><font color="maroon">Girls bathroom</font></b></center>'
-		'<center><video autoplay loop src="images/locations/pavlovsk/school/bathroom/sex/masturbate'+ rand(1,2) +'.mp4"></video></center>'
-		if $pantyworntype = 'true':
-			'Listening to Miss Orlov getting pounded, the constant slapping sounds of flesh and her moans of pleasure is exciting - too exciting for you. You know you shouldn''t, you know it''s risky, but you just can''t resist: You hike up your skirt and spread your legs. Your hand slides down your thigh, then back up towards your crotch. Your pussy lips are already swollen and starting to get wet, and your clit stands out as if to make it easier for you to find it.'
-		else
-			'Listening to Miss Orlov getting pounded, the constant slapping sounds of flesh and her moans of pleasure is exciting - too exciting for you. You know you shouldn''t, you know it''s risky, but you just can''t resist: You pull your panties off, hike up your skirt and spread your legs. Your hand slides down your thigh, then back up towards your crotch. Your pussy lips are already swollen and starting to get wet, and your clit stands out as if to make it easier for you to find it.'
-		end
-		*nl
-		'You rub your sensitive little nub carefully, to ease yourself into the pleasure; if you don''t stay in control, you''re going to make sounds and you don''t want them to notice you. After teasing yourself for a bit, you sink two of your fingers into your wet hole, gasping soundlessly, and mimic the fucking Vice Principal Kuznetsov is giving Miss Orlov. You add your other hand to the mix, rubbing your clit while you''re fingerfucking yourself, faster and faster as they get louder and louder. You have to bite your lip to keep from crying out as an orgasm shoots through your body and causes you to convulse on the toilet seats like you are having a seizure.'
-		'By the sound of it, you came in perfect unison with her and only a few moments later, you can hear him grunt as well. They talk in low voices again after they have both cum; the water is running for a couple of seconds as they clean up, then you hear the door open and close and all is quiet once more.'
-		act 'Go to class':gt 'gschool_lessons', 'short_break'
+	act 'Masturbate': gt 'gschool_boys_bathroom', 'masturbateb4'
+end
+
+if $ARGS[0] = 'masturbateb4':
+	cla & *clr
+	stat['mast'] += 1
+	if pcs_inhib < 40:inhib_exp += rand(1,3)
+	orgasm += 1
+	pcs_horny = 0
+	gs 'arousal', 'mast', 10
+	gs 'stat'
+	'<center><b><font color="maroon">Girls bathroom</font></b></center>'
+	'<center><video autoplay loop src="images/locations/pavlovsk/school/bathroom/sex/masturbate'+ rand(1,2) +'.mp4"></video></center>'
+	if $pantyworntype = 'true':
+		'Listening to Miss Orlov getting pounded, the constant slapping sounds of flesh and her moans of pleasure is exciting - too exciting for you. You know you shouldn''t, you know it''s risky, but you just can''t resist: You hike up your skirt and spread your legs. Your hand slides down your thigh, then back up towards your crotch. Your pussy lips are already swollen and starting to get wet, and your clit stands out as if to make it easier for you to find it.'
+	else
+		'Listening to Miss Orlov getting pounded, the constant slapping sounds of flesh and her moans of pleasure is exciting - too exciting for you. You know you shouldn''t, you know it''s risky, but you just can''t resist: You pull your panties off, hike up your skirt and spread your legs. Your hand slides down your thigh, then back up towards your crotch. Your pussy lips are already swollen and starting to get wet, and your clit stands out as if to make it easier for you to find it.'
 	end
+	*nl
+	'You rub your sensitive little nub carefully, to ease yourself into the pleasure; if you don''t stay in control, you''re going to make sounds and you don''t want them to notice you. After teasing yourself for a bit, you sink two of your fingers into your wet hole, gasping soundlessly, and mimic the fucking Vice Principal Kuznetsov is giving Miss Orlov. You add your other hand to the mix, rubbing your clit while you''re fingerfucking yourself, faster and faster as they get louder and louder. You have to bite your lip to keep from crying out as an orgasm shoots through your body and causes you to convulse on the toilet seats like you are having a seizure.'
+	'By the sound of it, you came in perfect unison with her and only a few moments later, you can hear him grunt as well. They talk in low voices again after they have both cum; the water is running for a couple of seconds as they clean up, then you hear the door open and close and all is quiet once more.'
+	act 'Go to class':gt 'gschool_lessons', 'short_break'
 end
 
 if $ARGS[0] = 'caughtb':

locations/gschool_lessons.qsrc

@@ -1612,7 +1612,7 @@ if $ARGS[0] = 'biology':
 	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/classbiology.jpg"></center>'
-	'You go to your biology class and find a seat at your lab station. Before long all of your fellow students file in and takes their seats as well. Once the bell rings Miss Orlov takes roll call, you say here when your name is called. With that done, she gets up and starts walking around the room explaining todays lessons. Occasionally stopping at each lab station to make sure the students are doing the work correctly, she often gives words of encouragement if things are going well or stops and helps the student understand what they are doing wrong.'
+	'You go to your biology class and find a seat at your lab station. Before long all of your fellow students file in and takes their seats as well. Once the bell rings Miss Orlov takes roll call, you say here when your name is called. With that done, she gets up and starts walking around the room explaining today''s lessons. Occasionally stopping at each lab station to make sure the students are doing the work correctly, she often gives words of encouragement if things are going well or stops and helps the student understand what they are doing wrong.'
 	*nl
 	'She occasionally asks questions and those that get them right, she heaps praise upon them. Those that get them wrong, she takes the time to explain why they was wrong and what the correct answer is. Then making sure the student understands, once she is sure the student understands their mistake she moves on with her lesson. She is always quick to help anyone with a problem or answer questions about class, always with that shy smile of hers.'
 	act 'Listen attentively to Miss Orlov':
@@ -1766,7 +1766,7 @@ if $ARGS[0] = 'computer':
 	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/classroom/classcomputer.jpg"></center>'
-	'You go to your computer class and find a seat at one of the computer stations. Before long all of your fellow students file in and takes their seats as well. Once the bell rings Mr. Ivanov takes roll call, you say here when your name is called. With that done, he gets up and starts walking around the room explaining todays lessons. Occasionally stopping to look at the screen of varies students to make sure they are doing it right.'
+	'You go to your computer class and find a seat at one of the computer stations. Before long all of your fellow students file in and takes their seats as well. Once the bell rings Mr. Ivanov takes roll call, you say here when your name is called. With that done, he gets up and starts walking around the room explaining today''s lessons. Occasionally stopping to look at the screen of various students to make sure they are doing it right.'
 	*nl
 	'If he has to correct one of the nerds he will take his time and quietly explain it to them, giving them lots of encouragement. For everyone else he loudly proclaims what you did wrong, drawing attention to how easy this is. He makes sure the whole class knows about their mistake and he does it in such a condescending manner, like he is trying to prove to everyone how much smarter he is than you are, or maybe he just wants the others students to make fun of them. With Mr. Ivanov it is hard to tell. He doesn''t seem to approve of anyone but the nerds and harshly grades everyone else.'
 	act 'Listen attentively to Mr. Ivanov':
@@ -1784,7 +1784,7 @@ if $ARGS[0] = 'computer':
 				'Mr. Ivanov nods approvingly. He happily spends some extra time explaining the topic again to you, and answers any extra questions you might have. You feel like you learned a lot, thoroughly understanding today''s lessons now.'
 			else
 				!!If Sveta is anything else other than a nerd then get this text.
-				'Mr. Ivanov audibly sighs. "Why are you unable to grasp this. I know you are not the smartest student, but this is very simple. Even a small child should be able to grasp it." He goes on to explain the part you asked about again, but he does so in a completely belittling manner.'
+				'Mr. Ivanov audibly sighs. "Why are you unable to grasp this? I know you are not the smartest student, but this is very simple. Even a small child should be able to grasp it." He goes on to explain the part you asked about again, but he does so in a completely belittling manner.'
 			end
 			act 'Wait for the end of the lesson': gs 'gschool_lessonsev1', 'computer'
 		end
@@ -3082,6 +3082,11 @@ if $ARGS[0] = 'npc_data':
 !!4 - Gopnik
 !!5 - outcasts
 !!6 - teachers
+!!7 - Family
+!!8 - Pavlovsk
+
+!!===========================General=============================
+maxnpcs = 231
 
 !!
 !!===========================Male Students=======================
@@ -3090,191 +3095,272 @@ if $ARGS[0] = 'npc_data':
 	$school_static_num[1] = 'A1'
 	npcPol[1] = 0
 	grupTipe[1] = 1
+	selfieenable[1] = 1
+	schoolenable[1] = 1
+	discoenable[1] = 1
 	$npcGo[1] = '<a href="exec:numnpc = 1 & gt ''Snpc''"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></a>'
-	$npcSelfie[1] = '<a href="exec:numnpc = 1 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></a>'
+	$npcSelfie[1] = '<a href="exec:numnpc = 1 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>></a>'
 
 !!Artem Chebotarev
 	$school_static_num[2] = 'A2'
 	npcPol[2] = 0
 	grupTipe[2] = 3
+	selfieenable[2] = 1
+	schoolenable[2] = 1
+	discoenable[2] = 1
 	$npcGo[2] = '<a href="exec:numnpc = 2 & gt ''Snpc''"><<$npc_firstname[''A2'']>> <<$npc_lastname[''A2'']>></a>'
-	$npcSelfie[2] = '<a href="exec:numnpc = 2 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A2'']>> <<$npc_lastname[''A2'']>></a>'
+	$npcSelfie[2] = '<a href="exec:numnpc = 2 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A2'']>> <<$npc_lastname[''A2'']>></a>'
 
 !!Ivan Prokhorov
 	$school_static_num[3] = 'A3'
 	npcPol[3] = 0
 	grupTipe[3] = 2
+	selfieenable[3] = 1
+	schoolenable[3] = 1
+	discoenable[3] = 1
 	$npcGo[3] = '<a href="exec:numnpc = 3 & gt ''Snpc''"><<$npc_firstname[''A3'']>> <<$npc_lastname[''A3'']>></a>'
-	$npcSelfie[3] = '<a href="exec:numnpc = 3 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A3'']>> <<$npc_lastname[''A3'']>></a>'
+	$npcSelfie[3] = '<a href="exec:numnpc = 3 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A3'']>> <<$npc_lastname[''A3'']>></a>'
 
 !!Igor Kruglov
 	$school_static_num[4] = 'A4'
 	npcPol[4] = 0
 	grupTipe[4] = 1
+	selfieenable[4] = 1
+	schoolenable[4] = 1
+	discoenable[4] = 1
 	$npcGo[4] = '<a href="exec:numnpc = 4 & gt ''Snpc''"><<$npc_firstname[''A4'']>> <<$npc_lastname[''A4'']>></a>'
-	$npcSelfie[4] = '<a href="exec:numnpc = 4 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A4'']>> <<$npc_lastname[''A4'']>></a>'
+	$npcSelfie[4] = '<a href="exec:numnpc = 4 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A4'']>> <<$npc_lastname[''A4'']>></a>'
 
 !!Fedor Kozlov
 	$school_static_num[5] = 'A5'
 	npcPol[5] = 0
 	if fedormasha = 1: grupTipe[5] = 5
 	if fedormasha = 0: grupTipe[5] = 2
+	selfieenable[5] = 1
+	schoolenable[5] = 1
+	discoenable[5] = 1
 	$npcGo[5] = '<a href="exec:numnpc = 5 & gt ''Snpc''"><<$npc_firstname[''A5'']>> <<$npc_lastname[''A5'']>></a>'
-	$npcSelfie[5] = '<a href="exec:numnpc = 5 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A5'']>> <<$npc_lastname[''A5'']>></a>'
+	$npcSelfie[5] = '<a href="exec:numnpc = 5 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A5'']>> <<$npc_lastname[''A5'']>></a>'
 
 !!Petka Klyuyev
 	$school_static_num[6] = 'A6'
 	npcPol[6] = 0
 	grupTipe[6] = 3
+	selfieenable[6] = 1
+	schoolenable[6] = 1
+	discoenable[6] = 1
 	$npcGo[6] = '<a href="exec:numnpc = 6 & gt ''Snpc''"><<$npc_firstname[''A6'']>> <<$npc_lastname[''A6'']>></a>'
-	$npcSelfie[6] = '<a href="exec:numnpc = 6 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A6'']>> <<$npc_lastname[''A6'']>></a>'
+	$npcSelfie[6] = '<a href="exec:numnpc = 6 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A6'']>> <<$npc_lastname[''A6'']>></a>'
 
 !!Lesco Tsarev
 	$school_static_num[7] = 'A7'
 	npcPol[7] = 0
 	grupTipe[7] = 5
+	selfieenable[7] = 1
+	schoolenable[7] = 1
+	discoenable[7] = 1
 	$npcGo[7] = '<a href="exec:numnpc = 7 & gt ''Snpc''"><<$npc_firstname[''A7'']>> <<$npc_lastname[''A7'']>></a>'
-	$npcSelfie[7] = '<a href="exec:numnpc = 7 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A7'']>> <<$npc_lastname[''A7'']>></a>'
+	$npcSelfie[7] = '<a href="exec:numnpc = 7 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A7'']>> <<$npc_lastname[''A7'']>></a>'
 
 !!Svyatoslav Voinov
 	$school_static_num[8] = 'A8'
 	npcPol[8] = 0
 	grupTipe[8] = 2
+	selfieenable[8] = 1
+	schoolenable[8] = 1
+	discoenable[8] = 1
 	$npcGo[8] = '<a href="exec:numnpc = 8 & gt ''Snpc''"><<$npc_firstname[''A8'']>> <<$npc_lastname[''A8'']>></a>'
-	$npcSelfie[8] = '<a href="exec:numnpc = 8 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A8'']>> <<$npc_lastname[''A8'']>></a>'
+	$npcSelfie[8] = '<a href="exec:numnpc = 8 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A8'']>> <<$npc_lastname[''A8'']>></a>'
 
 !!Vitek Kotov
 	$school_static_num[9] = 'A9'
 	npcPol[9] = 0
 	grupTipe[9] = 4
+	selfieenable[9] = 1
+	schoolenable[9] = 1
+	discoenable[9] = 1
 	$npcGo[9] = '<a href="exec:numnpc = 9 & gt ''Snpc''"><<$npc_firstname[''A9'']>> <<$npc_lastname[''A9'']>></a>'
-	$npcSelfie[9] = '<a href="exec:numnpc = 9 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A9'']>> <<$npc_lastname[''A9'']>></a>'
+	$npcSelfie[9] = '<a href="exec:numnpc = 9 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A9'']>> <<$npc_lastname[''A9'']>></a>'
 
 !!Dan Ryzhov
 	$school_static_num[10] = 'A10'
 	npcPol[10] = 0
 	grupTipe[10] = 4
+	selfieenable[10] = 1
+	schoolenable[10] = 1
+	discoenable[10] = 1
 	$npcGo[10] = '<a href="exec:numnpc = 10 & gt ''Snpc''"><<$npc_firstname[''A10'']>> <<$npc_lastname[''A10'']>></a>'
-	$npcSelfie[10] = '<a href="exec:numnpc = 10 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A10'']>> <<$npc_lastname[''A10'']>></a>'
+	$npcSelfie[10] = '<a href="exec:numnpc = 10 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A10'']>> <<$npc_lastname[''A10'']>></a>'
 
 !!Vasily Shulgin
 	$school_static_num[11] = 'A11'
 	npcPol[11] = 0
 	grupTipe[11] = 4
+	selfieenable[11] = 1
+	schoolenable[11] = 1
+	discoenable[11] = 1
 	$npcGo[11] = '<a href="exec:numnpc = 11 & gt ''Snpc''"><<$npc_firstname[''A11'']>> <<$npc_lastname[''A11'']>></a>'
-	$npcSelfie[11] = '<a href="exec:numnpc = 11 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A11'']>> <<$npc_lastname[''A11'']>></a>'
+	$npcSelfie[11] = '<a href="exec:numnpc = 11 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A11'']>> <<$npc_lastname[''A11'']>></a>'
 
 !!Marcus Larson
-	$school_static_num[27] = 'A146'
-	npcPol[27] = 0
-	grupTipe[27] = 1
-	$npcGo[27] = '<a href="exec:numnpc = 27 & gt ''Snpc''"><<$npc_firstname[''A146'']>> <<$npc_lastname[''A146'']>></a>'
-	$npcSelfie[27] = '<a href="exec:numnpc = 27 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A146'']>> <<$npc_lastname[''A146'']>></a>'
+	$school_static_num[146] = 'A146'
+	npcPol[146] = 0
+	grupTipe[146] = 1
+	selfieenable[146] = 1
+	schoolenable[146] = 1
+	discoenable[146] = 1
+	$npcGo[146] = '<a href="exec:numnpc = 146 & gt ''Snpc''"><<$npc_firstname[''A146'']>> <<$npc_lastname[''A146'']>></a>'
+	$npcSelfie[146] = '<a href="exec:numnpc = 146 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A146'']>> <<$npc_lastname[''A146'']>></a>'
 
 !!Andrey Aleksandrov
-	$school_static_num[28] = 'A147'
-	npcPol[28] = 0
-	grupTipe[28] = 1
-	$npcGo[28] = '<a href="exec:numnpc = 28 & gt ''Snpc''"><<$npc_firstname[''A147'']>> <<$npc_lastname[''A147'']>></a>'
-	$npcSelfie[28] = '<a href="exec:numnpc = 28 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A147'']>> <<$npc_lastname[''A147'']>></a>'
+	$school_static_num[147] = 'A147'
+	npcPol[147] = 0
+	grupTipe[147] = 1
+	selfieenable[147] = 1
+	schoolenable[147] = 1
+	discoenable[147] = 1
+	$npcGo[147] = '<a href="exec:numnpc = 147 & gt ''Snpc''"><<$npc_firstname[''A147'']>> <<$npc_lastname[''A147'']>></a>'
+	$npcSelfie[147] = '<a href="exec:numnpc = 147 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A147'']>> <<$npc_lastname[''A147'']>></a>'
 
 !!Mefodiy Utkin
-	$school_static_num[29] = 'A148'
-	npcPol[29] = 0
-	grupTipe[29] = 1
-	$npcGo[29] = '<a href="exec:numnpc = 29 & gt ''Snpc''"><<$npc_firstname[''A148'']>> <<$npc_lastname[''A148'']>></a>'
-	$npcSelfie[29] = '<a href="exec:numnpc = 29 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A148'']>> <<$npc_lastname[''A148'']>></a>'
+	$school_static_num[148] = 'A148'
+	npcPol[148] = 0
+	grupTipe[148] = 1
+	selfieenable[148] = 1
+	schoolenable[148] = 1
+	discoenable[148] = 1
+	$npcGo[148] = '<a href="exec:numnpc = 148 & gt ''Snpc''"><<$npc_firstname[''A148'']>> <<$npc_lastname[''A148'']>></a>'
+	$npcSelfie[148] = '<a href="exec:numnpc = 148 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A148'']>> <<$npc_lastname[''A148'']>></a>'
 
 !!Lazar Utkin
-	$school_static_num[32] = 'A149'
-	npcPol[32] = 0
-	grupTipe[32] = 2
-	$npcGo[32] = '<a href="exec:numnpc = 32 & gt ''Snpc''"><<$npc_firstname[''A149'']>> <<$npc_lastname[''A149'']>></a>'
-	$npcSelfie[32] = '<a href="exec:numnpc = 32 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A149'']>> <<$npc_lastname[''A149'']>></a>'
+	$school_static_num[149] = 'A149'
+	npcPol[149] = 0
+	grupTipe[149] = 2
+	selfieenable[149] = 1
+	schoolenable[149] = 1
+	discoenable[149] = 1
+	$npcGo[149] = '<a href="exec:numnpc = 149 & gt ''Snpc''"><<$npc_firstname[''A149'']>> <<$npc_lastname[''A149'']>></a>'
+	$npcSelfie[149] = '<a href="exec:numnpc = 149 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A149'']>> <<$npc_lastname[''A149'']>></a>'
 
 !!Erast Vagin
-	$school_static_num[33] = 'A150'
-	npcPol[33] = 0
-	grupTipe[33] = 2
-	$npcGo[33] = '<a href="exec:numnpc = 33 & gt ''Snpc''"><<$npc_firstname[''A150'']>> <<$npc_lastname[''A150'']>></a>'
-	$npcSelfie[33] = '<a href="exec:numnpc = 33 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A150'']>> <<$npc_lastname[''A150'']>></a>'
+	$school_static_num[150] = 'A150'
+	npcPol[150] = 0
+	grupTipe[150] = 2
+	selfieenable[150] = 1
+	schoolenable[150] = 1
+	discoenable[150] = 1
+	$npcGo[150] = '<a href="exec:numnpc = 150 & gt ''Snpc''"><<$npc_firstname[''A150'']>> <<$npc_lastname[''A150'']>></a>'
+	$npcSelfie[150] = '<a href="exec:numnpc = 150 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A150'']>> <<$npc_lastname[''A150'']>></a>'
 
 !!Evgeny Kuznetsov
-	$school_static_num[35] = 'A151'
-	npcPol[35] = 0
-	grupTipe[35] = 3
-	$npcGo[35] = '<a href="exec:numnpc = 35 & gt ''Snpc''"><<$npc_firstname[''A151'']>> <<$npc_lastname[''A151'']>></a>'
-	$npcSelfie[35] = '<a href="exec:numnpc = 35 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A151'']>> <<$npc_lastname[''A151'']>></a>'
+	$school_static_num[151] = 'A151'
+	npcPol[151] = 0
+	grupTipe[151] = 3
+	selfieenable[151] = 1
+	schoolenable[151] = 1
+	discoenable[151] = 1
+	$npcGo[151] = '<a href="exec:numnpc = 151 & gt ''Snpc''"><<$npc_firstname[''A151'']>> <<$npc_lastname[''A151'']>></a>'
+	$npcSelfie[151] = '<a href="exec:numnpc = 151 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A151'']>> <<$npc_lastname[''A151'']>></a>'
 
 !!Feofan Krupin
-	$school_static_num[36] = 'A152'
-	npcPol[36] = 0
-	grupTipe[36] = 3
-	$npcGo[36] = '<a href="exec:numnpc = 36 & gt ''Snpc''"><<$npc_firstname[''A152'']>> <<$npc_lastname[''A152'']>></a>'
-	$npcSelfie[36] = '<a href="exec:numnpc = 36 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A152'']>> <<$npc_lastname[''A152'']>></a>'
+	$school_static_num[152] = 'A152'
+	npcPol[152] = 0
+	grupTipe[152] = 3
+	selfieenable[152] = 1
+	schoolenable[152] = 1
+	discoenable[152] = 1
+	$npcGo[152] = '<a href="exec:numnpc = 152 & gt ''Snpc''"><<$npc_firstname[''A152'']>> <<$npc_lastname[''A152'']>></a>'
+	$npcSelfie[152] = '<a href="exec:numnpc = 152 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A152'']>> <<$npc_lastname[''A152'']>></a>'
 
 !!Gerasim Vasilyev
-	$school_static_num[37] = 'A153'
-	npcPol[37] = 0
-	grupTipe[37] = 3
-	$npcGo[37] = '<a href="exec:numnpc = 37 & gt ''Snpc''"><<$npc_firstname[''A153'']>> <<$npc_lastname[''A153'']>></a>'
-	$npcSelfie[37] = '<a href="exec:numnpc = 37 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A153'']>> <<$npc_lastname[''A153'']>></a>'
+	$school_static_num[153] = 'A153'
+	npcPol[153] = 0
+	grupTipe[153] = 3
+	selfieenable[153] = 1
+	schoolenable[153] = 1
+	discoenable[153] = 1
+	$npcGo[153] = '<a href="exec:numnpc = 153 & gt ''Snpc''"><<$npc_firstname[''A153'']>> <<$npc_lastname[''A153'']>></a>'
+	$npcSelfie[153] = '<a href="exec:numnpc = 153 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A153'']>> <<$npc_lastname[''A153'']>></a>'
 
 !!Radomir Popov
-	$school_static_num[39] = 'A154'
-	npcPol[39] = 0
-	grupTipe[39] = 4
-	$npcGo[39] = '<a href="exec:numnpc = 39 & gt ''Snpc''"><<$npc_firstname[''A154'']>> <<$npc_lastname[''A154'']>></a>'
-	$npcSelfie[39] = '<a href="exec:numnpc = 39 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A154'']>> <<$npc_lastname[''A154'']>></a>'
+	$school_static_num[154] = 'A154'
+	npcPol[154] = 0
+	grupTipe[154] = 4
+	selfieenable[154] = 1
+	schoolenable[154] = 1
+	discoenable[154] = 1
+	$npcGo[154] = '<a href="exec:numnpc = 154 & gt ''Snpc''"><<$npc_firstname[''A154'']>> <<$npc_lastname[''A154'']>></a>'
+	$npcSelfie[154] = '<a href="exec:numnpc = 154 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A154'']>> <<$npc_lastname[''A154'']>></a>'
 
 !!Lavrenti Romanov
-	$school_static_num[40] = 'A155'
-	npcPol[40] = 0
-	grupTipe[40] = 4
-	$npcGo[40] = '<a href="exec:numnpc = 40 & gt ''Snpc''"><<$npc_firstname[''A155'']>> <<$npc_lastname[''A155'']>></a>'
-	$npcSelfie[40] = '<a href="exec:numnpc = 40 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A155'']>> <<$npc_lastname[''A155'']>></a>'
+	$school_static_num[155] = 'A155'
+	npcPol[155] = 0
+	grupTipe[155] = 4
+	selfieenable[155] = 1
+	schoolenable[155] = 1
+	discoenable[155] = 1
+	$npcGo[155] = '<a href="exec:numnpc = 155 & gt ''Snpc''"><<$npc_firstname[''A155'']>> <<$npc_lastname[''A155'']>></a>'
+	$npcSelfie[155] = '<a href="exec:numnpc = 155 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A155'']>> <<$npc_lastname[''A155'']>></a>'
 
 !!Arkadi Fyodorov
-	$school_static_num[41] = 'A156'
-	npcPol[41] = 0
-	grupTipe[41] = 4
-	$npcGo[41] = '<a href="exec:numnpc = 41 & gt ''Snpc''"><<$npc_firstname[''A156'']>> <<$npc_lastname[''A156'']>></a>'
-	$npcSelfie[41] = '<a href="exec:numnpc = 41 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A156'']>> <<$npc_lastname[''A156'']>></a>'
+	$school_static_num[156] = 'A156'
+	npcPol[156] = 0
+	grupTipe[156] = 4
+	selfieenable[156] = 1
+	schoolenable[156] = 1
+	discoenable[156] = 1
+	$npcGo[156] = '<a href="exec:numnpc = 156 & gt ''Snpc''"><<$npc_firstname[''A156'']>> <<$npc_lastname[''A156'']>></a>'
+	$npcSelfie[156] = '<a href="exec:numnpc = 156 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A156'']>> <<$npc_lastname[''A156'']>></a>'
 
 !!Roman Yakovlev
-	$school_static_num[42] = 'A157'
-	npcPol[42] = 0
-	grupTipe[42] = 4
-	$npcGo[42] = '<a href="exec:numnpc = 42 & gt ''Snpc''"><<$npc_firstname[''A157'']>> <<$npc_lastname[''A157'']>></a>'
-	$npcSelfie[42] = '<a href="exec:numnpc = 42 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A157'']>> <<$npc_lastname[''A157'']>></a>'
+	$school_static_num[157] = 'A157'
+	npcPol[157] = 0
+	grupTipe[157] = 4
+	selfieenable[157] = 1
+	schoolenable[157] = 1
+	discoenable[157] = 1
+	$npcGo[157] = '<a href="exec:numnpc = 157 & gt ''Snpc''"><<$npc_firstname[''A157'']>> <<$npc_lastname[''A157'']>></a>'
+	$npcSelfie[157] = '<a href="exec:numnpc = 157 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A157'']>> <<$npc_lastname[''A157'']>></a>'
 
 !!Valentin Bogdanov
-	$school_static_num[43] = 'A158'
-	npcPol[43] = 0
-	grupTipe[43] = 4
-	$npcGo[43] = '<a href="exec:numnpc = 43 & gt ''Snpc''"><<$npc_firstname[''A158'']>> <<$npc_lastname[''A158'']>></a>'
-	$npcSelfie[43] = '<a href="exec:numnpc = 43 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A158'']>> <<$npc_lastname[''A158'']>></a>'
+	$school_static_num[158] = 'A158'
+	npcPol[158] = 0
+	grupTipe[158] = 4
+	selfieenable[158] = 1
+	schoolenable[158] = 1
+	discoenable[158] = 1
+	$npcGo[158] = '<a href="exec:numnpc = 158 & gt ''Snpc''"><<$npc_firstname[''A158'']>> <<$npc_lastname[''A158'']>></a>'
+	$npcSelfie[158] = '<a href="exec:numnpc = 158 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A158'']>> <<$npc_lastname[''A158'']>></a>'
 
 !!Petia Alkaev
-	$school_static_num[47] = 'A159'
-	npcPol[47] = 0
-	grupTipe[47] = 5
-	$npcGo[47] = '<a href="exec:numnpc = 47 & gt ''Snpc''"><<$npc_firstname[''A159'']>> <<$npc_lastname[''A159'']>></a>'
-	$npcSelfie[47] = '<a href="exec:numnpc = 47 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A159'']>> <<$npc_lastname[''A159'']>></a>'
+	$school_static_num[159] = 'A159'
+	npcPol[159] = 0
+	grupTipe[159] = 5
+	selfieenable[159] = 1
+	schoolenable[159] = 1
+	discoenable[159] = 1
+	$npcGo[159] = '<a href="exec:numnpc = 159 & gt ''Snpc''"><<$npc_firstname[''A159'']>> <<$npc_lastname[''A159'']>></a>'
+	$npcSelfie[159] = '<a href="exec:numnpc = 159 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A159'']>> <<$npc_lastname[''A159'']>></a>'
 
 !!Vanya Yanka
-	$school_static_num[59] = 'A165'
-	npcPol[59] = 0
-	grupTipe[59] = 2
-	$npcGo[59] = '<a href="exec:numnpc = 59 & gt ''Snpc''"><<$npc_firstname[''A165'']>> <<$npc_lastname[''A165'']>></a>'
-	$npcSelfie[59] = '<a href="exec:numnpc = 59 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A165'']>> <<$npc_lastname[''A165'']>></a>'
+	$school_static_num[165] = 'A165'
+	npcPol[165] = 0
+	grupTipe[165] = 2
+	selfieenable[165] = 1
+	schoolenable[165] = 1
+	discoenable[165] = 1
+	$npcGo[165] = '<a href="exec:numnpc = 165 & gt ''Snpc''"><<$npc_firstname[''A165'']>> <<$npc_lastname[''A165'']>></a>'
+	$npcSelfie[165] = '<a href="exec:numnpc = 165 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A165'']>> <<$npc_lastname[''A165'']>></a>'
 	
 !!Nikolai Volkov
-	$school_static_num[61] = 'A189'
-	npcPol[61] = 0
-	grupTipe[61] = 4
-	$npcGo[61] = '<a href="exec:numnpc = 61 & gt ''Snpc''"><<$npc_firstname[''A189'']>> <<$npc_lastname[''A189'']>></a>'
-	$npcSelfie[61] = '<a href="exec:numnpc = 61 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A189'']>> <<$npc_lastname[''A189'']>></a>'
+	$school_static_num[189] = 'A189'
+	npcPol[189] = 0
+	grupTipe[189] = 4
+	selfieenable[189] = 1
+	schoolenable[189] = 1
+	discoenable[189] = 1
+	$npcGo[189] = '<a href="exec:numnpc = 189 & gt ''Snpc''"><<$npc_firstname[''A189'']>> <<$npc_lastname[''A189'']>></a>'
+	$npcSelfie[189] = '<a href="exec:numnpc = 189 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A189'']>> <<$npc_lastname[''A189'']>></a>'
 
 !!
 !!===========================Female Students=======================
@@ -3283,96 +3369,135 @@ if $ARGS[0] = 'npc_data':
 	$school_static_num[12] = 'A12'
 	npcPol[12] = 1
 	grupTipe[12] = 3
+	selfieenable[12] = 1
+	schoolenable[12] = 1
+	discoenable[12] = 1
 	$npcGo[12] = '<a href="exec:numnpc = 12 & gt ''Snpc''"><<$npc_firstname[''A12'']>> <<$npc_lastname[''A12'']>></a>'
-	$npcSelfie[12] = '<a href="exec:numnpc = 12 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A12'']>> <<$npc_lastname[''A12'']>></a>'
+	$npcSelfie[12] = '<a href="exec:numnpc = 12 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A12'']>> <<$npc_lastname[''A12'']>></a>'
 
 !!Lariska Gruzdeva
 	$school_static_num[13] = 'A13'
 	npcPol[13] = 1
 	grupTipe[13] = 2
+	selfieenable[13] = 1
+	schoolenable[13] = 1
+	discoenable[13] = 1
 	$npcGo[13] = '<a href="exec:numnpc = 13 & gt ''Snpc''"><<$npc_firstname[''A13'']>> <<$npc_lastname[''A13'']>></a>'
-	$npcSelfie[13] = '<a href="exec:numnpc = 13 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A13'']>> <<$npc_lastname[''A13'']>></a>'
+	$npcSelfie[13] = '<a href="exec:numnpc = 13 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A13'']>> <<$npc_lastname[''A13'']>></a>'
 
 !!Katja Meynold
 	$school_static_num[14] = 'A14'
 	npcPol[14] = 1
 	grupTipe[14] = 1
+	selfieenable[14] = 1
+	schoolenable[14] = 1
+	discoenable[14] = 1
 	$npcGo[14] = '<a href="exec:numnpc = 14 & gt ''Snpc''"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></a>'
-	$npcSelfie[14] = '<a href="exec:numnpc = 14 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></a>'
+	$npcSelfie[14] = '<a href="exec:numnpc = 14 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>></a>'
 
 !!Vicky Meynold
 	$school_static_num[15] = 'A15'
 	npcPol[15] = 1
 	grupTipe[15] = 1
+	selfieenable[15] = 1
+	schoolenable[15] = 1
+	discoenable[15] = 1
 	$npcGo[15] = '<a href="exec:numnpc = 15 & gt ''Snpc''"><<$npc_firstname[''A15'']>> <<$npc_lastname[''A15'']>></a>'
-	$npcSelfie[15] = '<a href="exec:numnpc = 15 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A15'']>> <<$npc_lastname[''A15'']>></a>'
+	$npcSelfie[15] = '<a href="exec:numnpc = 15 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A15'']>> <<$npc_lastname[''A15'']>></a>'
 
 !!Natasha Belova
 	$school_static_num[16] = 'A16'
 	npcPol[16] = 1
 	grupTipe[16] = 3
+	selfieenable[16] = 1
+	schoolenable[16] = 1
+	discoenable[16] = 1
 	$npcGo[16] = '<a href="exec:numnpc = 16 & gt ''Snpc''"><<$npc_firstname[''A16'']>> <<$npc_lastname[''A16'']>></a>'
-	$npcSelfie[16] = '<a href="exec:numnpc = 16 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A16'']>> <<$npc_lastname[''A16'']>></a>'
+	$npcSelfie[16] = '<a href="exec:numnpc = 16 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A16'']>> <<$npc_lastname[''A16'']>></a>'
 
 !!Inna Devyatova
 	$school_static_num[17] = 'A17'
 	npcPol[17] = 1
 	grupTipe[17] = 1
+	selfieenable[17] = 1
+	schoolenable[17] = 1
+	discoenable[17] = 1
 	$npcGo[17] = '<a href="exec:numnpc = 17 & gt ''Snpc''"><<$npc_firstname[''A17'']>> <<$npc_lastname[''A17'']>></a>'
-	$npcSelfie[17] = '<a href="exec:numnpc = 17 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A17'']>> <<$npc_lastname[''A17'']>></a>'
+	$npcSelfie[17] = '<a href="exec:numnpc = 17 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A17'']>> <<$npc_lastname[''A17'']>></a>'
 
 !!Christina Zvereva
 	$school_static_num[18] = 'A18'
 	npcPol[18] = 1
 	if zverSlutQW >= 2:
-		grupTipe[18] = 0
+		grupTipe[18] = 5
 	else
 		grupTipe[18] = 2
 	end
+	selfieenable[18] = 1
+	schoolenable[18] = 1
+	discoenable[18] = 1
 	$npcGo[18] = '<a href="exec:numnpc = 18 & gt ''Snpc''"><<$npc_firstname[''A18'']>> <<$npc_lastname[''A18'']>></a>'
-	$npcSelfie[18] = '<a href="exec:numnpc = 18 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A18'']>> <<$npc_lastname[''A18'']>></a>'
+	$npcSelfie[18] = '<a href="exec:numnpc = 18 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A18'']>> <<$npc_lastname[''A18'']>></a>'
 
 !!Lina Starov
 	$school_static_num[19] = 'A19'
 	npcPol[19] = 1
 	grupTipe[19] = 2
+	selfieenable[19] = 1
+	schoolenable[19] = 1
+	discoenable[19] = 1
 	$npcGo[19] = '<a href="exec:numnpc = 19 & gt ''Snpc''"><<$npc_firstname[''A19'']>> <<$npc_lastname[''A19'']>></a>'
-	$npcSelfie[19] = '<a href="exec:numnpc = 19 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A19'']>> <<$npc_lastname[''A19'']>></a>'
+	$npcSelfie[19] = '<a href="exec:numnpc = 19 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A19'']>> <<$npc_lastname[''A19'']>></a>'
 
 !!Lena Kotova
 	$school_static_num[20] = 'A20'
 	npcPol[20] = 1
 	grupTipe[20] = 4
+	selfieenable[20] = 1
+	schoolenable[20] = 1
+	discoenable[20] = 1
 	$npcGo[20] = '<a href="exec:numnpc = 20 & gt ''Snpc''"><<$npc_firstname[''A20'']>> <<$npc_lastname[''A20'']>></a>'
-	$npcSelfie[20] = '<a href="exec:numnpc = 20 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A20'']>> <<$npc_lastname[''A20'']>></a>'
+	$npcSelfie[20] = '<a href="exec:numnpc = 20 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A20'']>> <<$npc_lastname[''A20'']>></a>'
 
 !!Lera Tsarev
 	$school_static_num[21] = 'A21'
 	npcPol[21] = 1
 	grupTipe[21] = 4
+	selfieenable[21] = 1
+	schoolenable[21] = 1
+	discoenable[21] = 1
 	$npcGo[21] = '<a href="exec:numnpc = 21 & gt ''Snpc''"><<$npc_firstname[''A21'']>> <<$npc_lastname[''A21'']>></a>'
-	$npcSelfie[21] = '<a href="exec:numnpc = 21 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A21'']>> <<$npc_lastname[''A21'']>></a>'
+	$npcSelfie[21] = '<a href="exec:numnpc = 21 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A21'']>> <<$npc_lastname[''A21'']>></a>'
 
 !!Bella Artamonov
 	$school_static_num[22] = 'A22'
 	npcPol[22] = 1
 	grupTipe[22] = 2
+	selfieenable[22] = 1
+	schoolenable[22] = 1
+	discoenable[22] = 1
 	$npcGo[22] = '<a href="exec:numnpc = 22 & gt ''Snpc''"><<$npc_firstname[''A22'']>> <<$npc_lastname[''A22'']>></a>'
-	$npcSelfie[22] = '<a href="exec:numnpc = 22 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A22'']>> <<$npc_lastname[''A22'']>></a>'
+	$npcSelfie[22] = '<a href="exec:numnpc = 22 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A22'']>> <<$npc_lastname[''A22'']>></a>'
 
 !!Albina Barlovskaya
 	$school_static_num[23] = 'A23'
 	npcPol[23] = 1
+	selfieenable[23] = 1
 	grupTipe[23] = 1
+	schoolenable[23] = 1
+	discoenable[23] = 1
 	$npcGo[23] = '<a href="exec:numnpc = 23 & gt ''Snpc''"><<$npc_firstname[''A23'']>> <<$npc_lastname[''A23'']>></a>'
-	$npcSelfie[23] = '<a href="exec:numnpc = 23 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A23'']>> <<$npc_lastname[''A23'']>></a>'
+	$npcSelfie[23] = '<a href="exec:numnpc = 23 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A23'']>> <<$npc_lastname[''A23'']>></a>'
 
 !!Pauline Sebagotulina
 	$school_static_num[24] = 'A24'
 	npcPol[24] = 1
 	grupTipe[24] = 4
+	selfieenable[24] = 1
+	schoolenable[24] = 1
+	discoenable[24] = 1
 	$npcGo[24] = '<a href="exec:numnpc = 24 & gt ''Snpc''"><<$npc_firstname[''A24'']>> <<$npc_lastname[''A24'']>></a>'
-	$npcSelfie[24] = '<a href="exec:numnpc = 24 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A24'']>> <<$npc_lastname[''A24'']>></a>'
+	$npcSelfie[24] = '<a href="exec:numnpc = 24 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A24'']>> <<$npc_lastname[''A24'']>></a>'
 
 !!Sonia Ivanko
 	$school_static_num[25] = 'A25'
@@ -3382,65 +3507,91 @@ if $ARGS[0] = 'npc_data':
 	else
 		grupTipe[25] = 1
 	end
+	selfieenable[25] = 1
+	schoolenable[25] = 1
+	discoenable[25] = 1
 	$npcGo[25] = '<a href="exec:numnpc = 25 & gt ''Snpc''"><<$npc_firstname[''A25'']>> <<$npc_lastname[''A25'']>></a>'
-	$npcSelfie[25] = '<a href="exec:numnpc = 25 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A25'']>> <<$npc_lastname[''A25'']>></a>'
+	$npcSelfie[25] = '<a href="exec:numnpc = 25 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A25'']>> <<$npc_lastname[''A25'']>></a>'
 
 !!Stasya Pavlov
-	$school_static_num[30] = 'A139'
-	npcPol[30] = 1
-	grupTipe[30] = 1
-	$npcGo[30] = '<a href="exec:numnpc = 30 & gt ''Snpc''"><<$npc_firstname[''A139'']>> <<$npc_lastname[''A139'']>></a>'
-	$npcSelfie[30] = '<a href="exec:numnpc = 30 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A139'']>> <<$npc_lastname[''A139'']>></a>'
+	$school_static_num[139] = 'A139'
+	npcPol[139] = 1
+	grupTipe[139] = 1
+	selfieenable[139] = 1
+	schoolenable[139] = 1
+	discoenable[139] = 1
+	$npcGo[139] = '<a href="exec:numnpc = 139 & gt ''Snpc''"><<$npc_firstname[''A139'']>> <<$npc_lastname[''A139'']>></a>'
+	$npcSelfie[139] = '<a href="exec:numnpc = 139 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A139'']>> <<$npc_lastname[''A139'']>></a>'
 
 !!Lizaveta Petrov
-	$school_static_num[31] = 'A140'
-	npcPol[31] = 1
-	grupTipe[31] = 1
-	$npcGo[31] = '<a href="exec:numnpc = 31 & gt ''Snpc''"><<$npc_firstname[''A140'']>> <<$npc_lastname[''A140'']>></a>'
-	$npcSelfie[31] = '<a href="exec:numnpc = 31 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A140'']>> <<$npc_lastname[''A140'']>></a>'
+	$school_static_num[140] = 'A140'
+	npcPol[140] = 1
+	grupTipe[140] = 1
+	selfieenable[140] = 1
+	schoolenable[140] = 1
+	discoenable[140] = 1
+	$npcGo[140] = '<a href="exec:numnpc = 140 & gt ''Snpc''"><<$npc_firstname[''A140'']>> <<$npc_lastname[''A140'']>></a>'
+	$npcSelfie[140] = '<a href="exec:numnpc = 140 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A140'']>> <<$npc_lastname[''A140'']>></a>'
 
 !!Veronika Sokolov
-	$school_static_num[34] = 'A141'
-	npcPol[34] = 1
-	grupTipe[34] = 2
-	$npcGo[34] = '<a href="exec:numnpc = 34 & gt ''Snpc''"><<$npc_firstname[''A141'']>> <<$npc_lastname[''A141'']>></a>'
-	$npcSelfie[34] = '<a href="exec:numnpc = 34 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A141'']>> <<$npc_lastname[''A141'']>></a>'
+	$school_static_num[141] = 'A141'
+	npcPol[141] = 1
+	grupTipe[141] = 2
+	selfieenable[141] = 1
+	schoolenable[141] = 1
+	discoenable[141] = 1
+	$npcGo[141] = '<a href="exec:numnpc = 141 & gt ''Snpc''"><<$npc_firstname[''A141'']>> <<$npc_lastname[''A141'']>></a>'
+	$npcSelfie[141] = '<a href="exec:numnpc = 141 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A141'']>> <<$npc_lastname[''A141'']>></a>'
 
 !!Zinaida Alkaev
-	$school_static_num[38] = 'A142'
-	npcPol[38] = 1
-	grupTipe[38] = 3
-	$npcGo[38] = '<a href="exec:numnpc = 38 & gt ''Snpc''"><<$npc_firstname[''A142'']>> <<$npc_lastname[''A142'']>></a>'
-	$npcSelfie[38] = '<a href="exec:numnpc = 38 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A142'']>> <<$npc_lastname[''A142'']>></a>'
+	$school_static_num[142] = 'A142'
+	npcPol[142] = 1
+	grupTipe[142] = 3
+	selfieenable[142] = 1
+	schoolenable[142] = 1
+	discoenable[142] = 1
+	$npcGo[142] = '<a href="exec:numnpc = 142 & gt ''Snpc''"><<$npc_firstname[''A142'']>> <<$npc_lastname[''A142'']>></a>'
+	$npcSelfie[142] = '<a href="exec:numnpc = 142 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A142'']>> <<$npc_lastname[''A142'']>></a>'
 	
 !!Alyona Alkaev
-	$school_static_num[44] = 'A143'
-	npcPol[44] = 1
-	grupTipe[44] = 4
-	$npcGo[44] = '<a href="exec:numnpc = 44 & gt ''Snpc''"><<$npc_firstname[''A143'']>> <<$npc_lastname[''A143'']>></a>'
-	$npcSelfie[44] = '<a href="exec:numnpc = 44 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A143'']>> <<$npc_lastname[''A143'']>></a>'
+	$school_static_num[143] = 'A143'
+	npcPol[143] = 1
+	grupTipe[143] = 4
+	selfieenable[143] = 1
+	schoolenable[143] = 1
+	discoenable[143] = 1
+	$npcGo[143] = '<a href="exec:numnpc = 143 & gt ''Snpc''"><<$npc_firstname[''A143'']>> <<$npc_lastname[''A143'']>></a>'
+	$npcSelfie[143] = '<a href="exec:numnpc = 143 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A143'']>> <<$npc_lastname[''A143'']>></a>'
 
 !!Anushka Konstantinov
-	$school_static_num[45] = 'A144'
-	npcPol[45] = 1
-	grupTipe[45] = 4
-	$npcGo[45] = '<a href="exec:numnpc = 45 & gt ''Snpc''"><<$npc_firstname[''A144'']>> <<$npc_lastname[''A144'']>></a>'
-	$npcSelfie[45] = '<a href="exec:numnpc = 45 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A144'']>> <<$npc_lastname[''A144'']>></a>'
+	$school_static_num[144] = 'A144'
+	npcPol[144] = 1
+	grupTipe[144] = 4
+	selfieenable[144] = 1
+	schoolenable[144] = 1
+	discoenable[144] = 1
+	$npcGo[144] = '<a href="exec:numnpc = 144 & gt ''Snpc''"><<$npc_firstname[''A144'']>> <<$npc_lastname[''A144'']>></a>'
+	$npcSelfie[144] = '<a href="exec:numnpc = 144 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A144'']>> <<$npc_lastname[''A144'']>></a>'
 
 !!Ekaterina Maksimov
-	$school_static_num[46] = 'A145'
-	npcPol[46] = 1
-	grupTipe[46] = 4
-	$npcGo[46] = '<a href="exec:numnpc = 46 & gt ''Snpc''"><<$npc_firstname[''A145'']>> <<$npc_lastname[''A145'']>></a>'
-	$npcSelfie[46] = '<a href="exec:numnpc = 46 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A145'']>> <<$npc_lastname[''A145'']>></a>'
+	$school_static_num[145] = 'A145'
+	npcPol[145] = 1
+	grupTipe[145] = 4
+	selfieenable[145] = 1
+	schoolenable[145] = 1
+	discoenable[145] = 1
+	$npcGo[145] = '<a href="exec:numnpc = 145 & gt ''Snpc''"><<$npc_firstname[''A145'']>> <<$npc_lastname[''A145'']>></a>'
+	$npcSelfie[145] = '<a href="exec:numnpc = 145 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A145'']>> <<$npc_lastname[''A145'']>></a>'
 	
 !! Aleksandra Kirilenko
-	$school_static_num[62] = 'A231'
-	$npcPol[62] = 1
-	grupTipe[62] = 3
-	$npcGo[62] = '<a href="exec:numnpc = 62 & gt ''Snpc''"><<$npc_firstname[''A231'']>> <<$npc_lastname[''A231'']>></a>'
-	$npcSelfie[62] = '<a href="exec:numnpc = 62 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A231'']>> <<$npc_lastname[''A231'']>></a>'
-
+	$school_static_num[231] = 'A231'
+	$npcPol[231] = 1
+	grupTipe[231] = 3
+	selfieenable[231] = 0
+	schoolenable[231] = 0
+	discoenable[231] = 0
+	$npcGo[231] = '<a href="exec:numnpc = 231 & gt ''Snpc''"><<$npc_firstname[''A231'']>> <<$npc_lastname[''A231'']>></a>'
+	$npcSelfie[231] = '<a href="exec:numnpc = 231 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A231'']>> <<$npc_lastname[''A231'']>></a>'
 
 !!
 !!===========================Teachers=======================
@@ -3449,92 +3600,228 @@ if $ARGS[0] = 'npc_data':
 	$school_static_num[26] = 'A26'
 	npcPol[26] = 0
 	grupTipe[26] = 6
+	selfieenable[26] = 1
+	schoolenable[26] = 1
+	discoenable[26] = 0
 	$npcGo[26] = '<a href="exec:numnpc = 26 & gt ''Snpc''"><<$npc_firstname[''A26'']>> <<$npc_lastname[''A26'']>></a>'
-	$npcSelfie[26] = '<a href="exec:numnpc = 26 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A26'']>> <<$npc_lastname[''A26'']>></a>'
+	$npcSelfie[26] = '<a href="exec:numnpc = 26 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A26'']>> <<$npc_lastname[''A26'']>></a>'
 
+!!Mikhail Nikolaevich
+	$school_static_num[69] = 'A69'
+	npcPol[69] = 0
+	grupTipe[69] = 6
+	selfieenable[69] = 1
+	schoolenable[69] = 1
+	discoenable[69] = 1
+	$npcGo[69] = '<a href="exec:numnpc = 69 & gt ''Snpc''"><<$npc_firstname[''A69'']>> <<$npc_lastname[''A69'']>></a>'
+	$npcSelfie[69] = '<a href="exec:numnpc = 69 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A69'']>> <<$npc_lastname[''A69'']>></a>'
+
+!!Makar Vasilyev
+	$school_static_num[128] = 'A128'
+	npcPol[128] = 0
+	grupTipe[128] = 6
+	selfieenable[128] = 1
+	schoolenable[128] = 1
+	discoenable[128] = 0
+	$npcGo[128] = '<a href="exec:numnpc = 128 & gt ''Snpc''"><<$npc_firstname[''A128'']>> <<$npc_lastname[''A128'']>></a>'
+	$npcSelfie[128] = '<a href="exec:numnpc = 128 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A128'']>> <<$npc_lastname[''A128'']>></a>'
+
+!!Serafim Ivanov
+	$school_static_num[129] = 'A129'
+	npcPol[129] = 0
+	grupTipe[129] = 6
+	selfieenable[129] = 1
+	schoolenable[129] = 1
+	discoenable[129] = 0
+	$npcGo[129] = '<a href="exec:numnpc = 129 & gt ''Snpc''"><<$npc_firstname[''A129'']>> <<$npc_lastname[''A129'']>></a>'
+	$npcSelfie[129] = '<a href="exec:numnpc = 129 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A129'']>> <<$npc_lastname[''A129'']>></a>'
+	
 !!Ilya Yenotin
-	$school_static_num[48] = 'A130'
-	npcPol[48] = 0
-	grupTipe[48] = 6
-	$npcGo[48] = '<a href="exec:numnpc = 48 & gt ''Snpc''"><<$npc_firstname[''A130'']>> <<$npc_lastname[''A130'']>></a>'
-	$npcSelfie[48] = '<a href="exec:numnpc = 48 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A130'']>> <<$npc_lastname[''A130'']>></a>'
+	$school_static_num[130] = 'A130'
+	npcPol[130] = 0
+	grupTipe[130] = 6
+	selfieenable[130] = 1
+	schoolenable[130] = 1
+	discoenable[130] = 0
+	$npcGo[130] = '<a href="exec:numnpc = 130 & gt ''Snpc''"><<$npc_firstname[''A130'']>> <<$npc_lastname[''A130'']>></a>'
+	$npcSelfie[130] = '<a href="exec:numnpc = 130 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A130'']>> <<$npc_lastname[''A130'']>></a>'
 
 !!Viktor Pavlovich
-	$school_static_num[49] = 'A131'
-	npcPol[49] = 0
-	grupTipe[49] = 6
-	$npcGo[49] = '<a href="exec:numnpc = 49 & gt ''Snpc''"><<$npc_firstname[''A131'']>> <<$npc_lastname[''A131'']>></a>'
-	$npcSelfie[49] = '<a href="exec:numnpc = 49 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A131'']>> <<$npc_lastname[''A131'']>></a>'
+	$school_static_num[131] = 'A131'
+	npcPol[131] = 0
+	grupTipe[131] = 6
+	selfieenable[131] = 1
+	schoolenable[131] = 1
+	discoenable[131] = 0
+	$npcGo[131] = '<a href="exec:numnpc = 131 & gt ''Snpc''"><<$npc_firstname[''A131'']>> <<$npc_lastname[''A131'']>></a>'
+	$npcSelfie[131] = '<a href="exec:numnpc = 131 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A131'']>> <<$npc_lastname[''A131'']>></a>'
+
+!!Ruslan Kuznetsov
+	$school_static_num[132] = 'A132'
+	npcPol[132] = 0
+	grupTipe[132] = 6
+	selfieenable[132] = 1
+	schoolenable[132] = 1
+	discoenable[132] = 0
+	$npcGo[132] = '<a href="exec:numnpc = 132 & gt ''Snpc''"><<$npc_firstname[''A132'']>> <<$npc_lastname[''A132'']>></a>'
+	$npcSelfie[132] = '<a href="exec:numnpc = 132 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A132'']>> <<$npc_lastname[''A132'']>></a>'
 
+!!Rolan Matveev
+	$school_static_num[133] = 'A133'
+	npcPol[133] = 0
+	grupTipe[133] = 6
+	selfieenable[133] = 1
+	schoolenable[133] = 1
+	discoenable[133] = 0
+	$npcGo[133] = '<a href="exec:numnpc = 133 & gt ''Snpc''"><<$npc_firstname[''A133'']>> <<$npc_lastname[''A133'']>></a>'
+	$npcSelfie[133] = '<a href="exec:numnpc = 133 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A133'']>> <<$npc_lastname[''A133'']>></a>'
+	
 !!Aleksandrina Volkov
-	$school_static_num[50] = 'A134'
-	npcPol[50] = 1
-	grupTipe[50] = 6
-	$npcGo[50] = '<a href="exec:numnpc = 50 & gt ''Snpc''"><<$npc_firstname[''A134'']>> <<$npc_lastname[''A134'']>></a>'
-	$npcSelfie[50] = '<a href="exec:numnpc = 50 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A134'']>> <<$npc_lastname[''A134'']>></a>'
+	$school_static_num[134] = 'A134'
+	npcPol[134] = 1
+	grupTipe[134] = 6
+	selfieenable[134] = 1
+	schoolenable[134] = 1
+	discoenable[134] = 0
+	$npcGo[134] = '<a href="exec:numnpc = 134 & gt ''Snpc''"><<$npc_firstname[''A134'']>> <<$npc_lastname[''A134'']>></a>'
+	$npcSelfie[134] = '<a href="exec:numnpc = 134 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A134'']>> <<$npc_lastname[''A134'']>></a>'
 
 !!Yeva Sokoloff
-	$school_static_num[51] = 'A135'
-	npcPol[51] = 1
-	grupTipe[51] = 6
-	$npcGo[51] = '<a href="exec:numnpc = 51 & gt ''Snpc''"><<$npc_firstname[''A135'']>> <<$npc_lastname[''A135'']>></a>'
-	$npcSelfie[51] = '<a href="exec:numnpc = 51 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A135'']>> <<$npc_lastname[''A135'']>></a>'
-
-!!Serafim Ivanov
-	$school_static_num[52] = 'A129'
-	npcPol[52] = 0
-	grupTipe[52] = 6
-	$npcGo[52] = '<a href="exec:numnpc = 52 & gt ''Snpc''"><<$npc_firstname[''A129'']>> <<$npc_lastname[''A129'']>></a>'
-	$npcSelfie[52] = '<a href="exec:numnpc = 52 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A129'']>> <<$npc_lastname[''A129'']>></a>'
+	$school_static_num[135] = 'A135'
+	npcPol[135] = 1
+	grupTipe[135] = 6
+	selfieenable[135] = 1
+	schoolenable[135] = 1
+	discoenable[135] = 0
+	$npcGo[135] = '<a href="exec:numnpc = 135 & gt ''Snpc''"><<$npc_firstname[''A135'']>> <<$npc_lastname[''A135'']>></a>'
+	$npcSelfie[135] = '<a href="exec:numnpc = 135 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A135'']>> <<$npc_lastname[''A135'']>></a>'
 
 !!Olga Aleksandrov
-	$school_static_num[53] = 'A136'
-	npcPol[53] = 1
-	grupTipe[53] = 6
-	$npcGo[53] = '<a href="exec:numnpc = 53 & gt ''Snpc''"><<$npc_firstname[''A136'']>> <<$npc_lastname[''A136'']>></a>'
-	$npcSelfie[53] = '<a href="exec:numnpc = 53 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A136'']>> <<$npc_lastname[''A136'']>></a>'
+	$school_static_num[136] = 'A136'
+	npcPol[136] = 1
+	grupTipe[136] = 6
+	selfieenable[136] = 1
+	schoolenable[136] = 1
+	discoenable[136] = 0
+	$npcGo[136] = '<a href="exec:numnpc = 136 & gt ''Snpc''"><<$npc_firstname[''A136'']>> <<$npc_lastname[''A136'']>></a>'
+	$npcSelfie[136] = '<a href="exec:numnpc = 136 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A136'']>> <<$npc_lastname[''A136'']>></a>'
 
 !!Raven Braakman
-	$school_static_num[54] = 'A137'
-	npcPol[54] = 1
-	grupTipe[54] = 6
-	$npcGo[54] = '<a href="exec:numnpc = 54 & gt ''Snpc''"><<$npc_firstname[''A137'']>> <<$npc_lastname[''A137'']>></a>'
-	$npcSelfie[54] = '<a href="exec:numnpc = 54 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A137'']>> <<$npc_lastname[''A137'']>></a>'
+	$school_static_num[137] = 'A137'
+	npcPol[137] = 1
+	grupTipe[137] = 6
+	selfieenable[137] = 1
+	schoolenable[137] = 1
+	discoenable[137] = 0
+	$npcGo[137] = '<a href="exec:numnpc = 137 & gt ''Snpc''"><<$npc_firstname[''A137'']>> <<$npc_lastname[''A137'']>></a>'
+	$npcSelfie[137] = '<a href="exec:numnpc = 137 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A137'']>> <<$npc_lastname[''A137'']>></a>'
 
 !!Arina Orlov
-	$school_static_num[55] = 'A138'
-	npcPol[55] = 1
-	grupTipe[55] = 6
-	$npcGo[55] = '<a href="exec:numnpc = 55 & gt ''Snpc''"><<$npc_firstname[''A138'']>> <<$npc_lastname[''A138'']>></a>'
-	$npcSelfie[55] = '<a href="exec:numnpc = 55 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A138'']>> <<$npc_lastname[''A138'']>></a>'
+	$school_static_num[138] = 'A138'
+	npcPol[138] = 1
+	grupTipe[138] = 6
+	selfieenable[138] = 1
+	schoolenable[137] = 1
+	discoenable[137] = 0
+	$npcGo[138] = '<a href="exec:numnpc = 138 & gt ''Snpc''"><<$npc_firstname[''A138'']>> <<$npc_lastname[''A138'']>></a>'
+	$npcSelfie[138] = '<a href="exec:numnpc = 138 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A138'']>> <<$npc_lastname[''A138'']>></a>'
 
-!!Ruslan Kuznetsov
-	$school_static_num[56] = 'A132'
+!!
+!!===========================Family=======================
+!!
+!!Vladimir Lebedev
+	$school_static_num[28] = 'A28'
+	npcPol[28] = 0
+	grupTipe[28] = 7
+	selfieenable[28] = 1
+	schoolenable[28] = 0
+	discoenable[28] = 0
+	$npcGo[28] = '<a href="exec:numnpc = 28 & gt ''Snpc''"><<$npc_firstname[''A28'']>> <<$npc_lastname[''A28'']>></a>'
+	$npcSelfie[28] = '<a href="exec:numnpc = 28 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A28'']>> <<$npc_lastname[''A28'']>></a>'
+	
+!!Natasha Lebedev
+	$school_static_num[29] = 'A29'
+	npcPol[29] = 1
+	grupTipe[29] = 7
+	selfieenable[29] = 1
+	schoolenable[29] = 0
+	discoenable[29] = 0
+	$npcGo[29] = '<a href="exec:numnpc = 29 & gt ''Snpc''"><<$npc_firstname[''A29'']>> <<$npc_lastname[''A29'']>></a>'
+	$npcSelfie[29] = '<a href="exec:numnpc = 29 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A29'']>> <<$npc_lastname[''A29'']>></a>'
+	
+!!Anya Lebedev
+	$school_static_num[33] = 'A33'
+	npcPol[33] = 1
+	grupTipe[33] = 7
+	selfieenable[33] = 1
+	schoolenable[33] = 0
+	discoenable[33] = 0
+	$npcGo[33] = '<a href="exec:numnpc = 33 & gt ''Snpc''"><<$npc_firstname[''A33'']>> <<$npc_lastname[''A33'']>></a>'
+	$npcSelfie[33] = '<a href="exec:numnpc = 33 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A33'']>> <<$npc_lastname[''A33'']>></a>'
+	
+!!Kolka Lebedev
+	$school_static_num[34] = 'A34'
+	npcPol[34] = 0
+	grupTipe[34] = 7
+	selfieenable[34] = 1
+	schoolenable[34] = 0
+	discoenable[34] = 0
+	$npcGo[34] = '<a href="exec:numnpc = 34 & gt ''Snpc''"><<$npc_firstname[''A34'']>> <<$npc_lastname[''A34'']>></a>'
+	$npcSelfie[34] = '<a href="exec:numnpc = 34 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A34'']>> <<$npc_lastname[''A34'']>></a>'
+
+!!Mikhail Kuznetsov
+	$school_static_num[35] = 'A35'
+	npcPol[35] = 0
+	grupTipe[35] = 7
+	selfieenable[35] = 1
+	schoolenable[35] = 0
+	discoenable[35] = 0
+	$npcGo[35] = '<a href="exec:numnpc = 35 & gt ''Snpc''"><<$npc_firstname[''A35'']>> <<$npc_lastname[''A35'']>></a>'
+	$npcSelfie[35] = '<a href="exec:numnpc = 35 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A35'']>> <<$npc_lastname[''A35'']>></a>'
+
+!!Uncle Misha
+	$school_static_num[54] = 'A54'
+	npcPol[54] = 0
+	grupTipe[54] = 7
+	selfieenable[54] = 1
+	schoolenable[54] = 0
+	discoenable[54] = 0
+	$npcGo[54] = '<a href="exec:numnpc = 54 & gt ''Snpc''"><<$npc_firstname[''A54'']>> <<$npc_lastname[''A54'']>></a>'
+	$npcSelfie[54] = '<a href="exec:numnpc = 54 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_nickname[''A54'']>>'
+	
+!!
+!!===========================Pavlovsk=======================
+!!
+!!Roma Meynold
+	$school_static_num[56] = 'A56'
 	npcPol[56] = 0
-	grupTipe[56] = 6
-	$npcGo[56] = '<a href="exec:numnpc = 56 & gt ''Snpc''"><<$npc_firstname[''A132'']>> <<$npc_lastname[''A132'']>></a>'
-	$npcSelfie[56] = '<a href="exec:numnpc = 56 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A132'']>> <<$npc_lastname[''A132'']>></a>'
-
-!!Makar Vasilyev
-	$school_static_num[58] = 'A128'
-	npcPol[58] = 0
-	grupTipe[58] = 6
-	$npcGo[58] = '<a href="exec:numnpc = 58 & gt ''Snpc''"><<$npc_firstname[''A128'']>> <<$npc_lastname[''A128'']>></a>'
-	$npcSelfie[58] = '<a href="exec:numnpc = 58 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A128'']>> <<$npc_lastname[''A128'']>></a>'
-
-!!Rolan Matveev
-	$school_static_num[57] = 'A133'
+	grupTipe[56] = 8
+	selfieenable[56] = 1
+	schoolenable[56] = 0
+	discoenable[56] = 0
+	$npcGo[56] = '<a href="exec:numnpc = 56 & gt ''Snpc''"><<$npc_firstname[''A56'']>> <<$npc_lastname[''A56'']>></a>'
+	$npcSelfie[56] = '<a href="exec:numnpc = 56 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A56'']>> <<$npc_lastname[''A56'']>></a>'
+
+!!Rex
+	$school_static_num[57] = 'A57'
 	npcPol[57] = 0
-	grupTipe[57] = 6
-	$npcGo[57] = '<a href="exec:numnpc = 57 & gt ''Snpc''"><<$npc_firstname[''A133'']>> <<$npc_lastname[''A133'']>></a>'
-	$npcSelfie[57] = '<a href="exec:numnpc = 57 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A133'']>> <<$npc_lastname[''A133'']>></a>'
-	
-!!Mikhail Nikolaevich
-	$school_static_num[60] = 'A69'
-	npcPol[60] = 0
-	grupTipe[60] = 6
-	$npcGo[60] = '<a href="exec:numnpc = 60 & gt ''Snpc''"><<$npc_firstname[''A69'']>> <<$npc_lastname[''A69'']>></a>'
-	$npcSelfie[60] = '<a href="exec:numnpc = 60 & gt ''phone_selfies'', ''schoolselfies''"><<$npc_firstname[''A69'']>> <<$npc_lastname[''A69'']>></a>'
+	grupTipe[57] = 8
+	selfieenable[57] = 1
+	schoolenable[57] = 0
+	discoenable[57] = 0
+	$npcGo[57] = '<a href="exec:numnpc = 57 & gt ''Snpc''"><<$npc_firstname[''A57'']>> <<$npc_lastname[''A57'']>></a>'
+	$npcSelfie[57] = '<a href="exec:numnpc = 57 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A57'']>>'
+
+!!Sergey Shulgin
+	$school_static_num[112] = 'A112'
+	npcPol[112] = 0
+	grupTipe[112] = 8
+	selfieenable[112] = 1
+	schoolenable[112] = 0
+	discoenable[112] = 0
+	$npcGo[112] = '<a href="exec:numnpc = 112 & gt ''Snpc''"><<$npc_firstname[''A112'']>> <<$npc_lastname[''A112'']>></a>'
+	$npcSelfie[112] = '<a href="exec:numnpc = 112 & gt ''phone_selfies'', ''listretrieve2''"><<$npc_firstname[''A112'']>> <<$npc_lastname[''A112'']>></a>'
+
 end
 
 --- gschool_lessons ---------------------------------

locations/gschool_socialchg1.qsrc

@@ -209,8 +209,8 @@ if $ARGS[0] = 'tChristina':
 	menu_off = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/18.jpg"></center>'
-	'"What are you two up to?" you ask Christina ignoring Lina as you walk up to them.'
-	'"I''m trying to get this lazy ass to perform better..." Christina sourly answers. "Thanks to her we lost the last relay race. And now I''ve got to whip her into shape before the next race."'
+	'"What are the two of you up to?" you ask Christina ignoring Lina as you walk up to them.'
+	'"I''m trying to get this lazy ass to perform better..." Christina sourly answers. "Thanks to her we lost the last relay race. And now I''ve got to whip her into shape before the next one."'
 	
 	act 'You''re right':
 		cla & *clr
@@ -221,9 +221,9 @@ if $ARGS[0] = 'tChristina':
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/18.jpg"> <img <<$set_imgh>> src="images/characters/pavlovsk/school/head/19.jpg"></center>'
 		'"But... But..." Lina tries to explain but gets interrupted by you, "No Lina, Christina is right. If you messed it up then you need to train harder and perform better next time. There''s no slacking off."'
 		'"Of course I''m correct." Christina fills in, "I''m the most prominent athlete at the school and also the captain of the track and field team. My word is law."'
-		'Dejected, Lina stares at the ground and you can hear her quietly whimper as she thought that you would help her out.'
-		'"No time to rest, time for you to take another run around the lake. I''ll time you this time and if you fail, you''ll be in a world of hurt." Christina commands.'
-		'As Lina can''t find a way out she nods and gets ready. You hear Christina yell out "GO!" and watch Lina speed off...'
+		'Dejected, Lina stares at the ground and you can hear her quietly whimper since she thought that you would have helped her out.'
+		'"No time to rest, time for you to take another run around the lake. I''ll time you this time and if you fail, you''ll be in a world of troubles." Christina commands.'
+		'As Lina can''t find a way out she nods and gets ready. You hear Christina shout "GO!" and watch Lina speed off...'
 		
 		act 'Leave them alone': gt 'gLake'
 	
@@ -237,9 +237,9 @@ if $ARGS[0] = 'tChristina':
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/head/18.jpg"></center>'
 		'"Give her a break, Christina. Everyone can have a bad race once in a while..." you begin defending Lina.'
-		'"What do you know, <<$pcs_nickname>>? Where you there?! You have no idea how humiliated I felt." Christina replies.'
+		'"What do you know, <<$pcs_nickname>>? Were you there?! You have no idea how humiliated I felt." Christina replies.'
 		'"Put your ego aside. Just look at Lina, she''s totally exhausted and needs a break. What will you do if she gets injured?" you continue on.'
-		'Christina is looking at you with despise in her eyes, "Like I care... Only because of this you''ll do double the sprints, Lina."'
+		'Christina glares at you menacingly, "Like I care... Because of this you''ll do double the sprints, Lina."'
 		'The only thing you can do is sigh and look apologetically to Lina while she nods understandingly.'
 		
 		act 'Leave them alone': gt 'gLake'

locations/gskver.qsrc

@@ -8,6 +8,7 @@ if $ARGS[0] = 'start':
 	$location_type = 'public_outdoors'
 	$menu_loc = 'gskver'
 	$menu_arg = 'start'
+	$locclass = 'park'
 	menu_off = 0
 	gs 'stat'
 

locations/hotel_resep.qsrc

@@ -106,12 +106,68 @@ if $ARGS[0] = '':
 			act'No, thank you':gt'HotelHole'
 		end
 	end
+end
+
+if hotelcollect > 0:
+	hotelcollect = 0
+	money+=maidtime*250
+	'She quickly checks the computer and then gives you <<maidtime*250>> <b>₽</b> for all the shifts you worked in the hotel.'
+	maidtime=0
+	
+	if maidHotelCount >= rand (8,10) and nichHotelReferral = 0:
+		'"You are doing a good job as our maid. Did you ever think about working as a maid full-time? I know of a person who''s living in the city and is looking for a live-in maid. The job also pays well."'
+		'She hesitates for a second.'
+		'"I could write you a referral. He wouldn''t invite you for a job interview without one. But the boss wouldn''t like me referring his maids to another employer. That''s why I require you to pay me 5.000 <b>₽</b> for my troubles. Just look at it as a small fee. Just tell me if you want the job and have the money."'
+		nichHotelReferral = 1
+	end
+	
+end
+
+if nichHotelReferral = 1:
+	act 'Ask about the live-in maid job':
+		menu_off = 1
+		*clr & cla
+
+		gs'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
+		'You approach the reception desk, and ask the girl: "About the job you told me about ... I''d like to get your referral."'
+		'"Great. Do you have my fee of 5.000 <b>₽</b> with you?"'
+		if money >= 5000:
+			act 'Yes (give it to her)':
+				cla
+				money -= 5000
+				nichHotelReferral = 2
+				'You give her the money and she swiftly puts it into her purse. Then she hands you your referral. It says that you are a experienced, wellbehaved and diligent maid. It is written on the official paper of the hotel and even has the signature of the manager on it.'
+				'"Don''t worry, the signature is legit. The boss signs everything I hand him."'
+				'She also hands you a small card with an address on it.'
+				'"This is the address. You can get there easily from the city center of St. Petersburg. Just go there in the late afternoon and present your referral. You also have to wear a maid uniform. If you don''t own one you can buy one at the G&M-Store. And make sure you look presentable in every way. I heard this man is a perfectionist. Good luck!"'
+				act 'Thank her and step away':gt'HotelHole','skip_resepevent'
+			end
+		end
+		
+		act 'No':
+			cla
+			'"Actually I don''t."'
+			'"Too bad. I''m afraid I can''t help you unless you pay me. Just come back as soon as you have the money."'
+			act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
+		end
+		
+		
+	end
+end
+
+
+If GermanQW < 1:
+	act 'Ask about the maid job':
+		menu_off = 1
+		*clr & cla
+		if GermanQW = 0:GermanQW = 1
+		gs'stat'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
+		'You approach the reception desk, and ask the girl: "Excuse me... I hear you are often looking for maids? I would like to come work as a maid here."'
+		'She nods understandingly, and takes a quick look at your figure: "We do often need maids, that''s true. I''d hire you in an instant, but unfortunately it''s not up to me. You should go see Herman Leonidovich, the hotel manager. He''s usually in his office between 12:00 and 14:00. I bet he will hire you! Good luck when you go see him!"'
 
-	if hotelcollect > 0:
-		hotelcollect = 0
-		money+=maidtime*250
-		'She quickly checks the computer and then gives you <<maidtime*250>> <b>₽</b> for all the shifts you worked in the hotel.'
-		maidtime=0
+		act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
 	end
 
 	If GermanQW < 1:

locations/hunter_ambient.qsrc

@@ -238,8 +238,32 @@ if $ARGS[0] = 'yard_convo':
 end
 
 !Behavior events
+if $ARGS[0] = 'schedule':
+
+    hunters_breakfast = 0
+    hunters_off = 0
+    hunters_lunch = 0
+    hunters_evening = 0
+    hunters_drink = 0
+    hunters_sleep = 0
+
+    if hour = 5: 
+        hunters_breakfast = 0
+    elseif (hour >=6 and hour < 12) or (hour >= 14 and hour < 18):
+        hunters_off = 1
+    elseif hour >=12 and hour < 14:
+        hunters_lunch = 1
+    elseif hour >= 18 and hour < 20:
+        hunters_evening = 1
+    elseif hour >= 20 and hour < 23:
+        hunters_drink = 1
+    else
+        hunters_sleep = 1    
+    end
+end    
+
 if $ARGS[0] = 'bring_food':
-    if hour >= 9 and hour < 17:
+    if (hunters_lunch = 1 or hunters_evening = 1) and rand(1,10) = 1:
         !TODO: Show the name of the hunter bringing the food. Also add variety besides rabbit
         cla & *clr
         '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/bunny_butcher.jpg"></center>'
@@ -248,6 +272,7 @@ if $ARGS[0] = 'bring_food':
 
         act 'Further': gt 'swamp_yard'
     end
-end    
+end
+
 
 --- hunter_ambient ---------------------------------

locations/hunter_favors.qsrc

@@ -412,4 +412,380 @@ if $ARGS[0] = 'creekside_gangbang_request':
     end
 end
 
+if $ARGS[0] = 'yard_bondage':
+	if $ARGS[1] = '':
+		yard_bound_temprand = rand(1,9)
+
+		if hour >= 22 or hour < 5:
+			gs 'arousal', 'end'
+
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/released_from_bondage.jpg"></center>'
+			'Finally with the hour getting so late, Igor comes to free you from your bounds. You are so drained you almost stumble down as you feel blood rushing back to your hands.'
+			'Even though you are glad to be able to move around again, part of you aches to be tied back and used as a naked and ready sex toy'
+
+			act 'Further': gt 'swamp_yard'
+		end	
+
+		cla & *clr
+
+		hunter_sexual_comfort  += 1
+
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bound_outdoors4.jpg"></center>'
+		'You are bound completely naked to some trees by the yard. Just the thought of being so helpless and exposed makes you feel butterflies in your stomach'
+	    'Anyone could do anything they wanted with your body right now. You are especially aware of the nakedness of your most intimate areas, and how they are available for the hunters to do anything they might want.'
+
+		gs 'arousal', 'flash', 5, 'bound', 'exhibitionism', 'sub'
+		gs 'arousal', 'end'
+
+		minut += 5
+		gs 'stat'
+
+		hunter_selector_temprand = rand(1,3)
+		if hunter_selector_temprand = 1:
+			gs 'boyStat', 'A172'
+		elseif hunter_selector_temprand = 2:
+			gs 'boyStat', 'A173'
+		elseif hunter_selector_temprand = 3:
+			gs 'boyStat', 'A174'
+		end	
+
+		if yard_bound_temprand = 4:
+			act 'Further': gt 'hunter_favors', 'yard_bondage', 'passing_bj'
+		elseif yard_bound_temprand = 5:
+			act 'Further': gt 'hunter_favors', 'yard_bondage', 'passing_fuck'
+		elseif yard_bound_temprand = 6:
+			act 'Further': gt 'hunter_favors', 'yard_bondage', 'clamp_fuck'
+		elseif yard_bound_temprand = 8:
+			act 'Further': gt 'hunter_favors', 'yard_bondage', 'unbound_fuck'
+		!elseif yard_bound_temprand = 9:
+			!act 'Further': gs 'hunter_favors', 'yard_bondage', 'unbound_gangbang'
+		!elseif yard_bound_temprand = 10:
+			!act 'Further': gs 'hunter_favors', 'yard_bondage', 'bound_gangbang'	
+		else
+			act 'Wait': gt 'hunter_favors', 'yard_bondage'						
+		end	
+	end
+
+	if $ARGS[1] = 'lost_bet':
+		*clr & cla
+
+		hunter_collective_opinion -= 20
+        hunter_sexual_comfort += 40
+		gs 'arousal', 'flash', 15, 'bound', 'exhibitionism', 'humiliation'
+		gs 'arousal', 'end'
+
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bound_outdoors2.jpg"></center>'
+		'You let Andrei bind you right by the yard. After he is done, he leaves you hanging there to take care of something'
+		'You are completely helpless and feel your nipples start to harden as you feel the breeze on your bare skin.'
+
+		act 'Wait for him to come back': gt 'hunter_favors', 'yard_bondage'
+	end	
+	
+	!TODO: Add variety per hunter as opposed to the same event for all
+	if $ARGS[1] = 'passing_bj':
+		cla & *clr 
+		hunter_sexual_comfort += 6
+		hunter_collective_opinion -= 3
+		gs 'arousal', 'bj', 10, 'sub', 'bound', 'deepthroat'
+		gs 'arousal', 'end'
+			
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bound_fucked_mouth1.jpg"></center>'
+		'You notice <<$boydesc>> walking towards you. Without saying a word, he slackens your ties and pushes you down to your knees before tightening them back.'
+		'He does not waste too much time unzipping his cock and pushing it on your face. You comply and start sucking his dick.'
+		'After a minute grabs your head and starts fucking your mouth. You struggle between trying to breathe and trying not to puke as his cock rams in and out of your throat'
+			
+		act 'Try and match his rythm':
+				cla & *clr
+				*nl
+				hunter_sexual_comfort += 4
+				hunter_collective_opinion -= 2
+				gs 'arousal', 'bj', 5, 'sub', 'bound', 'deepthroat'
+				gs 'arousal', 'end'
+				spafinloc = 12
+				gs 'cum_manage'
+				swallow += 1
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bound_fucked_mouth2.jpg"></center>'
+				'You decide to make it some more fun for for him. You start bobbing your head in rhythm with his pumping.'
+				'Whenever he is all the way down your throat, you swallow to massage his cock.'
+
+				gs 'dinsex', 'dinrandbj'
+				*nl 
+				'Your efforts start paying off pretty quickly as he grabs your head and starts pumping even more quickly before he buries his cock all the way in'
+
+				gs 'dinsex', 'dinrandswallow'
+				'He gives you a pat on the head and says "Now that''s a good girl" before tying you upright and walking off, satisfied and drained.'
+
+				act 'Further': gt 'hunter_favors', 'yard_bondage'
+		end
+		act 'Let him have his way':
+				cla & *clr
+				*nl
+				gs 'arousal', 'bj', 10, 'rough', 'bound', 'deepthroat'
+				gs 'arousal', 'end'
+				spafinloc = 11
+				gs 'cum_manage'
+				spafinloc = 15
+				gs 'cum_manage'
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bound_fucked_mouth3.jpg"></center>'
+				'You decide if you relax your throat and face it will be easier not to puke all over his dick.'
+				'He strokes your hair as he keeps furiously ramming his cock up and down your throat, fucking your face like as if it was a sex toy.' 
+
+				gs 'dinsex', 'dinrandbj'
+				*nl 
+				'After a few minutes he pulls out of your mouth and jerks off to your face, splattering your face and chest with his spunk.'
+				'As you blink the cum off your eyes, he zips up and ties you back upright before walking away without saying anything else.'
+
+				act 'Further': gt 'hunter_favors', 'yard_bondage'
+		end
+	end	
+	
+	if $ARGS[1] = 'passing_fuck':
+		cla & *clr
+		hunter_sexual_comfort += 10
+		hunter_collective_opinion -= 5
+			
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bound_fucked2.jpg"></center>'
+		'You notice <<$boydesc>> walking towards you. Without saying a word, he unzips and bends you over.'
+		'He rubs the tip of his dick against your already wet pussy lips a few times before pushing all the way in. You cannot help but gasp as <<$boydesc>>''s cock fills your pussy'
+		'After letting you settle in to the sensation for a second he slowly starts pumping your pussy. In a minute you are screaming and moaning as he picks his pace up.'
+			
+		gs 'dinsex', 'vaginal_sex', 10, 'sub', 'bound'
+
+		act 'Start pumping your hips to match him':
+			cla & *clr
+			*nl
+			hunter_sexual_comfort += 5
+			hunter_collective_opinion -= 2
+
+			gs 'arousal', 'vaginal', 5, 'sub', 'bound'
+			gs 'arousal', 'end'
+			spafinloc = 0
+			pose = 3
+			gs 'cum_manage'
+			gs 'stat'
+
+			'<center><video autoplay loop src="images/locations/gadukino/sex/hunter/bound_fucked.mp4"></video></center>'
+			'You cannot get enough of the sensation of <<$boydesc>>''s cock sliding inside you. You start pumping your hips to get more of his cock.'
+			
+			*nl
+			'<<$boydesc>> starts fucking you even harder before he buries his cock all the way to the hilt inside you.'
+			gs 'dinsex', 'sexcum'
+			'After catching his breath, <<$boydesc>> gives your ass a fondle before walking away, leaving you hanging.'
+
+			act 'Further': gt 'hunter_favors', 'yard_bondage'
+		end
+		act 'Let him have his way':
+				cla & *clr
+				*nl
+				gs 'arousal', 'vaginal', 10, 'rough', 'bound'
+				gs 'arousal', 'end'
+				spafinloc = 1
+				gs 'cum_manage'
+				spafinloc = 4
+				gs 'cum_manage'
+				spafinloc = 9
+				gs 'cum_manage'
+				gs 'stat'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bound_fucked1.jpg"></center>'
+				'You are pretty much overwhelmed by <<$boydesc>> pumping your pussy while you are bound helpless and naked like this.'
+				'You decide to give in and enjoy the sensation of being casually fucked like a blow-up doll.'
+				*nl
+				'He roughly grabs your ass to brace himself as he picks his pace even further, pounding your pussy with near fury.'
+				'Sounds of his hips rhythmically slamming against your ass fills your surrondings, mixed with the lewd smacking sounds of his cock pumping in your pussy and your loud moans and screams' 
+
+				*nl
+				'Just as you start feeling his cock throbbing in your pussy, he pulls out and blows his load all over your ass and pussy.'
+				'Without saying anything, <<$boydesc>> zips up and walks away, leaving you with cum running down your legs.'
+
+				act 'Further': gt 'hunter_favors', 'yard_bondage'
+		end
+	end	
+	
+	if $ARGS[1] = 'clamp_fuck':
+		cla & *clr
+		hunter_sexual_comfort += 15
+		hunter_collective_opinion -= 10
+		gs 'boyStat', 'A172'
+		gs 'pain', 6, 'pinch', 'nipples'
+		gs 'pain', 3, 'pinch', 'breasts'
+
+		gs 'arousal', 'breasts', 5, 'rough', 'masochism', 'sub'
+		gs 'arousal', 'end'
+		gs 'stat'
+
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bondage_clamps3.jpg"></center>'
+		'You are so proccupied with thinking how you are tied up to some tree completely naked and exposed, you do not hear Andrei approaching from behind.'
+		'Not missing the opportunity, he yanks you by the nipple, making you yelp loudly.'
+		'"Hey now, don''t fall asleep just yet. I have something special for you." he says before showing you a piece of leather strap and a clamp with a weight attached.'
+		'"Hope you are into a bit of fun. Or, at least we will find out." he says. You do not object, having already agreed to ''anything'''
+		
+		act 'Further':
+			cla & *clr
+			gs 'pain', 3, 'spank', 'nipples'
+			gs 'arousal', 'breasts', 5, 'rough', 'masochism', 'sub'
+			gs 'arousal', 'end'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bondage_clamps2.jpg"></center>'
+			'Andrei does not lose time starting to pay some special attention to your nipples.'
+			'The leather strip really stings and you cannot help but yelp with each hit. But you somehow actually enjoy the sensation.'
+
+			act 'Further':
+				cla & *clr
+				gs 'pain', 10, 'pinch', 'nipples'
+				gs 'arousal', 'breasts', 10, 'rough', 'masochism', 'sub'
+				minut -= 5
+				gs 'arousal', 'end'
+
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bondage_clamps1.jpg"></center>'
+				'Satisfied with the ''warm-up'', Andrei picks up the clamps and attaches them to your nipples'
+				'The mix of pain and pleasure from the clamps biting on your nipples is almost unbearable.'
+				'It really hurts and you want to shake them off, but yet you feel your pussy throbbing and getting wet the more you think about the pain.'
+				*nl
+				'"Please, I can''t take it anymore!" you plead.'
+				'"''Please'' what, little princess?" Andrei asks'
+				
+				act 'Seriousy, please let me go!':
+					cla & *clr
+					hunter_collective_opinion += 10
+					hunter_sexual_comfort -= 15
+
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/released_from_bondage.jpg"></center>'
+					'"Well, alright, you are no fun" says Andrei before releasing you from your bonds.'
+					'You rub your sore breasts for a few seconds before shooing away Andrei staring at you giving him a last show.'
+					act 'Further': gt 'swamp_yard'
+				end
+				act 'Please fuck me!':
+					cla & *clr
+					hunter_collective_opinion -= 5
+					hunter_sexual_comfort += 25
+
+					gs 'dinsex', 'vaginal_sex', 10, 'sub', 'bound', 'masochism', 'humiliation'
+					gs 'arousal', 'vaginal', 5, 'sub', 'bound', 'masochism', 'humiliation'
+				
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bound_clamps_fuck.jpg"></center>'
+					'"You really like this don''t you now." says Andrei before roughly penetrating you.'
+					'You let out a loud moan from the relief of finally having your aching pussy filled. It does not take Andrei long to cum with you pumping your hips and doing most of the fucking,'
+					
+					gs 'arousal', 'end'
+					spafinloc = 0
+					pose = 3
+					gs 'cum_manage'
+					gs 'stat'
+
+					gs 'dinsex', 'sexcum'
+					
+					*nl
+					'After catching his breath, Andrei releases you from your bonds. "We should do this again" he says, before walking away.'
+					act 'Further': gt 'swamp_yard'
+				end
+			end		
+		end	
+	end	
+
+	if $ARGS[1] = 'unbound_fuck':
+		cla & *clr
+		hunter_sexual_comfort += 15
+		hunter_collective_opinion += 15
+
+		gs 'boyStat', 'A173'
+
+		gs 'arousal', 'foreplay', 5, 'sub', 'exhibitionism'
+		gs 'arousal', 'kiss', 5, 'sub', 'exhibitionism'
+		gs 'arousal', 'end'
+		gs 'stat'
+
+		'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/unbound_fucked2.jpg"></center>'
+		'You do not notice Igor approaching you from behind before he starts stroking your body as he rubs his cock over your pussy lips.'
+		'"You are driving me crazy, <<$pcs_nickname>>" he says. "I cannot help it any longer, I need to have you."'
+		'You turn your head to give him a kiss as he undoes the last of the ropes'
+
+		act 'Further':
+			cla & *clr
+			gs 'arousal', 'vaginal', 5, 'sub', 'exhibitionism'
+
+			'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/unbound_fucked1.jpg"></center>'
+			'Igor settles on the ground and you settle on his crotch, mounting him.'
+			'You start bouncing up and down, gasping from the feeling of his cock pumping inside you'
+			gs 'dinsex', 'vaginal_sex', 10, 'sub', 'exhibitonism'
+
+			act 'Further':
+				cla & *clr
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/unbound_fucked1.jpg"></center>'
+				'After some minutes, Igor pushes you on your hands and starts fucking you from behind.'
+				'He really picks up the pace as you start moaning and screaming like a wanton whore, getting fucked like that right out in the open.'
+
+				gs 'dinsex', 'vaginal_sex', 10, 'sub', 'exhibitonism', 'rough', 'humiliation'
+				spafinloc = 4
+				gs 'cum_manage'
+				spafinloc = 8
+				gs 'cum_manage'
+				gs 'stat'
+
+				*nl 'After a few more minutes of railing your pussy, you feel Ifor pulling out and cumming all over your ass and back'
+				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/unbound_fuck1.jpg"></center>'
+
+				act 'Further':
+					cla & *clr
+					'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/unbound_nude.jpg"></center>'
+					'After a couple of seconds catching your breath, you both get up. Before you walk away, Igor asks:'
+					'"Sveta, can I ask you for a favor? All of us have rather gotten used to seeing you in the nude."'
+					'"So," he says "Can you just walk around like that all the time?"'
+					'"You mean, never wear clothes around and stay naked the whole time?" you ask, surprised'
+					'"Yes, at least while it is only us around." he says. "So what do you say?"'
+
+					act 'Agree':
+						cla
+						*nl
+						hunter_collective_opinion += 20
+						hunter_sexual_comfort += 10
+						forced_naked_day = 999999999999999
+						gs 'stat'
+
+						'"Well," you respond. "At this point we are well past the point of being shy about a bit of nudity. So sure, why not?" you reply.'
+						'"Thanks <<$pcs_nickname>>" he says, before walking away'
+						act 'Further': gt 'swamp_yard'
+					end
+					act 'Refuse':
+						cla
+						*nl
+						hunter_collective_opinion -= 5
+						hunter_sexual_comfort += 15
+						gs 'stat'
+
+						'"Well," you respond. "Do I look like some sex toy to you?" you reply. "What is next, you just randomly fuck me whenever?"'
+						'"You are not exactly all pure and innocent, <<$pcs_nickname>>" he says. "I think you are just being a bitchy cocktease" and walks away'
+						act 'Further': gt 'swamp_yard'
+					end
+				end			
+			end
+		end
+	end
+
+	!if $ARGS[1] = 'unbound_gangbang':
+	!end
+
+	!if $ARGS[1] = 'bound_gangbang':
+	!end
+
+		
+		!gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
+		!gs 'arousal', 'vaginal', 20, 'sub', 'rough', 'group'
+		!gs 'arousal', 'end'
+		!gs 'stat'
+			
+		!gs 'dinsex','vaginal_sex',10,'sub'
+
+		!gs 'arousal', 'bj', 240, 'sub', 'gangbang', 'humiliation'
+		!gs 'arousal', 'hj', 240, 'sub', 'gangbang', 'humiliation'
+		!gs 'arousal', 'vaginal', 240, 'sub', 'gangbang', 'humiliation'
+		!gs 'arousal', 'anal', 240, 'sub', 'gangbang', 'humiliation' 
+		!minut -= 720
+end	
+
 --- hunter_favors ---------------------------------

locations/hunter_interactions.qsrc

@@ -253,7 +253,7 @@ if $ARGS[0] = 'drink_with_hunters':
 			*nl
 			'You take a shot of vodka. The men laugh at the funny face you''re making after the shot.'
 
-			act 'Continue': gs 'swamphouse', 'meal_table'
+			act 'Continue': gs 'swamp_yard', 'fireside'
 		end
 		act 'Drink beer':
 			*clr & cla
@@ -267,7 +267,7 @@ if $ARGS[0] = 'drink_with_hunters':
 			*nl
 			'You take a bottle of bear, open it and start drinking it.'
 
-			act 'Continue': gs 'swamphouse', 'meal_table'
+			act 'Continue': gs 'swamp_yard', 'fireside'
 		end
 end
 
@@ -275,26 +275,129 @@ if $ARGS[0] = 'chat_with_hunters':
     *clr & cla
     minut += rand (30,90)
     pcs_mood += rand(10,20)
-    if huntersAndreiQw < 10:huntersAndreiQw += 1
-    if huntersIgorQw < 10:huntersIgorQw += 1
-    if huntersSergeiQw < 10:huntersSergeiQw += 1
+    
+    hunter_collective_opinion += 2
     gs 'stat'
 
-    if CloSkirtShortness > 0 and $pantyworntype = 'none':
-        *clr & cla
-        if huntersKnowSlut > 0:hunterslut += 1
-        '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hantersnotanga1.jpg"></center>'
-        'You are sitting in front of the men, not wearing any panties, so the stories they tell get jumbled and most of the time is spent on throwing sideways glances at your naked vagina.'
-        gs 'arousal', 5, 'flashlite'
-        gs 'stat'
-    else
-        !TODO: Add more interactivity to the conversations. Make it point ot another dialogue event blog with new content even
+    act 'Finish chatting': gt 'swamp_yard'
+
+    if $ARGS[1] = '':
+        if boy_talk = 0 and hunters_drink = 1 and rand(1,10) = 1:
+            gs 'hunter_interactions', 'chat_with_hunters', 'boy_talk'
+        elseif boy_talk = 1 and virginity_talk = 0 and hunters_drink = 1 and rand(1,10) = 1:
+            gs 'hunter_interactions', 'chat_with_hunters', 'virginity_talk'
+        elseif CloSkirtShortness > 0 and $pantyworntype = 'none' and rand(1,5) = 1:
+            gs 'hunter_interactions', 'chat_with_hunters', 'pantiless_flash'
+        elseif $clothingworntype = 'nude' and rand(1,2) = 1:
+            gs 'hunter_interactions', 'chat_with_hunters', 'nude'
+        else
+            gs 'hunter_interactions', 'chat_with_hunters', 'generic'
+        end
+
+    end
+
+    if $ARGS[1] = 'generic':
         '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hanters1.jpg"></center>'
         'You enthusiastically listen to the their hunting stories and even share some of your stories.'
         gs 'hunter_ambient', 'generic_convo'
         'You get so caught up in the conversation, you don''t even notice how fast the time flies by.'
+    end    
+
+    if $ARGS[1] = 'pantiless_flash':
+        *clr
+        hunter_sexual_comfort += 5
+        hunter_collective_opinion -= 4
+    
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/hantersnotanga1.jpg"></center>'
+        'You are sitting in front of the men, not wearing any panties, so the stories you tell are mostly ignored by the men throwing not-so-subtle glances at your exposed pussy.'
+        gs 'arousal', 5, 'flashlite'
+        gs 'stat'
+    end  
+    
+    if $ARGS[1] = 'boy_talk':
+        *clr
+        
+        boy_talk = 1
+        
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/fireside_drink.jpg"></center>'
+        '"So, Sveta, anyone special in your life?" Igor asks, slurring noticably'
+        
+        act 'Yes, actually':
+            cla 
+            act 'Finish chatting': gt 'swamp_yard'
+            hunter_sexual_comfort -= 5
+            hunter_collective_opinion += 3
+            '"Yeah I have been seeing someone for a while", you answer'
+            if hunter_sexual_comfort < 35 and hunter_collective_opinion > 40:
+                '"Now that''s a lucky guy heh." says Andrei. "Let us know if he dares upset you though, we  will show him"'
+            elseif hunter_sexual_comfort > 50:
+                cla
+                '"Bet he is not as fun as us" says Andrei'
+                '"Can he fuck you in all your holes at the same time like we can?" asks Sergey before the hunters get up and approach you'
+                if hunter_collective_opinion > 40 and alko < 4: act 'Maybe another time boys, not feeling it now': gt 'swamp_yard'
+                act 'You freeze in place, anticipating what is coming': gt 'hunter_interactions', 'fireside_gangbang'    
+            end    
+        end    
+        act 'No, not really': 
+            cla
+            act 'Finish chatting': gt 'swamp_yard'
+            hunter_sexual_comfort += 1
+            hunter_collective_opinion += 1
+            '"No, I do not really have someone. At least no one special.", you answer'
+            if hunter_sexual_comfort < 35 or hunter_collective_opinion > 40:
+                '"How come?" says Igor. "Those... uh... boys in your class musssss... be stipud" drunkenly slurs Igor'
+            elseif hunter_sexual_comfort > 45 and hunter_collective_opinion > 30:
+                cla
+                '"Well guess it is better that way. You do not have someone to think about while having some fun" says Andrei'
+                '"Talking about fun, why don''t you get up and give us a little show" says Sergey before taking out his radio and putting on some music.'
+                gt 'hunter_interactions', 'dance_show'    
+            end 
+        end
+    end
+    
+    if $ARGS[1] = 'virginity_talk':
+        *clr
+
+        virginity_talk = 1
+
+        !TODO: Add event branch with no panties and short skirt or nude
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/fireside_drink.jpg"></center>'
+        '"So, Sveta, have you ever done it with a boy" Andrei asks, grinning mischievously.'
+        act '...no':
+            cla 
+            hunter_sexual_comfort -= 5
+            hunter_collective_opinion += 1
+            '"Huh...what? No I have not!" you answer, blushing to your ears'
+            if hunter_sexual_comfort < 35 and hunter_collective_opinion > 40:
+                '"Stop embarrassing the little lady" says Sergey. "She is our guest, we have to be polite"'
+            elseif hunter_sexual_comfort > 50:
+                '"Wow so you really are a full on tease." says Igor'
+                '"Since you are such an innocent young lady why don''t you give us a little show without clothes blocking your innocence'
+                !TODO: Implement event
+                !if hunter_collective_opinion > 30 and alko < 4: act 'Maybe another time boys, not feeling it now': gt 'swamp_yard'
+                !act 'You get up and start getting into rhythm with some imaginary music': gt 'hunter_interactions', 'dance_show', 'nude'
+                act 'Maybe another time boys, not feeling it now': gt 'swamp_yard', 'fireside'    
+            end    
+        end    
+        act 'Uhh... kinda...': 
+            cla
+            hunter_sexual_comfort += 5
+            'You blurt out a small "yeah!" before going all red in the face. Why are you even telling these men that you have had sex? You look down embarrassed.'
+            if hunter_sexual_comfort < 35 or hunter_collective_opinion > 40:
+                '"Well uhhh... it is normal at your age. You are not a little kid anymore" says Sergey'
+            elseif hunter_sexual_comfort > 50:
+                '"That means you know how to have fun. say, how about we play together a bit?" says Andrei before the hunters get up and start approaching you'
+                !TODO: Implement event
+                !if hunter_collective_opinion > 30 and alko < 4: act 'Maybe another time boys, not feeling it now': gt 'swamp_yard'
+                !act 'You oblige, feeling your pussy already getting wet': gs 'hunter_interactions', 'fireside_gangbang'    
+                act 'Maybe another time boys, not feeling it now': gt 'swamp_yard'
+            end  
+        end
+    end
+
+    if $ARGS[1] = 'nude':
+        !TODO: Fill this in
     end
-    act 'Move away': gt 'swamp_yard'
 end
 
 if $ARGS[0] = 'meet_hunters':
@@ -386,161 +489,106 @@ if $ARGS[0] = 'meet_hunters_after_rescue':
 	end
 end
 
-!TODO: Revamp this
-if $ARGS[0] = 'shooting_practice':
-    if huntersKnowSlut = 0:
-        if shooting = 0:
-            act 'Ask to learn how to shoot the rifle':
-                *clr & cla
-                minut += 5
-                shootingday = daystart
-                gs 'stat'
-                '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/claps_eyes.jpg"></center>'
-                '"Can''t you guys teach me how to shoot a rifle?'
-                '"You''re a girl, why would you want to learn something like that <<$pcs_nickname>>?" Andrei said smiling. "You should pursue sewing or maybe a girly sport instead. Shooting is for boys."'
-                '"Pretty please." you look at them while making puppy eyes.'
-                if pcs_apprnc >= 60:
-                    shooting = 1
-                    if huntersAndreiQw < 20:huntersAndreiQw += 1
-                    if huntersIgorQw < 20:huntersIgorQw += 1
-                    if huntersSergeiQw < 20:huntersSergeiQw += 1
-                    '"Okay <<$pcs_nickname>>, we give up", they say smiling. "You''ve persuaded us, we''ll teach you how to shoot...'
-                else
-                    huntersAndreiQw -= 1
-                    huntersIgorQw -= 1
-                    huntersSergeiQw -= 1
-                    '"No, <<$pcs_nickname>>, that will not work." they answer. "And don''t assume that those puppy eyes will work on us.'
-                    'You frown your lips and turn your back on the men. "You guys are no fun, I''m leaving." you say angrily while moving away from the hunters.'
+if $ARGS[0] = 'shooting_bet':
+    if $clothingworntype ! 'nude':
+        '<center><video autoplay loop src="images/locations/gadukino/hunters/shooting.mp4"></video></center>'
+    else
+        '<center><video autoplay loop src="images/locations/gadukino/hunters/shooting_nude.mp4"></video></center>'
+    end    
+    
+    !This beautiful snippet is from park.qsrc
+    tirkoef = pcs_agil + pcs_shoot
+	tirmin = tirkoef * 20 / 100
+    tirand = rand(tirkoef - tirmin, tirkoef + tirmin)
+    
+    act 'Further':
+        if tirand > 70:
+            gt 'hunter_interactions', 'shooting_bet', 'win'
+        else
+            gt 'hunter_interactions', 'shooting_bet', 'lose'
+        end        
+    end
+
+    if $ARGS[1] = 'win':
+        cla & *clr
+        !TODO: Make this part have mroe stuff
+        '"Hah!" you exclaim. "I win!", before looking back.'
+        'Andrei is nowhere to be seen. That bastard ran away!'
+        
+        hunter_collective_opinion += 15
+        act 'Further': gt 'swamp_woods'
+    end    
+
+    if $ARGS[1] = 'lose':
+        cla & *clr
+        '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/AndreiHanter.jpg"></center>'
+        '"Well seems like that did not work out as expected. Now, give me a moment while I think" says Andrei.'
+        'Just a second after you start thinking about what perverted scheme he can come up with, "Oh I know!" he says.'
+
+        !lost_bet_temprand = rand(1,4)
+        lost_bet_temprand = 1
+
+        if lost_bet_temprand = 1:
+            if $clothingworntype = 'nude':
+                '"I am going to tie you to that tree right next to the yard and then you will allow me to do whatever you want me to."'
+                '"Or the others..." he adds.'
+                act 'No fucking way!':
+                    cla
+
+                    hunter_collective_opinion -= 5
+                    hunter_sexual_comfort -= 20
+
+                    '"No fucking way! You really are getting ahead of yourself now." you angrily respond.'
+                    '"Damn you are such a cocktease. You are all fine walking around displaying yourself like that but the moment someone wants some fun you turn into an absolute prude." he says, somewhat annoyed.'
+                    act 'Walk away': gt 'swamp_woods'
                 end
-                if shooting = 1:
 
-                    act 'Learn how to shoot the rifle (0:30)':
-                        *clr & cla
-                        minut += 30
-                        '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/shooting.jpg"></center>'
-                        'The hunters explain how to hold the rifle, aim, and when to squeeze the trigger. You feel that you are ready and decide to take a...'
-                        gs 'stat'
+                act 'Let him lead you to the trees': gt 'hunter_favors', 'yard_bondage', 'lost_bet'
+            else
+                '"I want you to lose the clothes for today and tomorrow. Be more in touch with nature and all that. You can put em back on the day after of course"'
 
-                        act 'Shot':
-                            *clr & cla
-                            minut += 1
-                            fingal +=  rand(1,3)
-                            shoot_exp += 1
-                            '<center><video autoplay loop src="images/locations/gadukino/hunters/shooting1.mp4"></video></center>'
-                            'The recoil wasn''t at all as you expected it to be. You hear a loud bang, and the last thing you remember is something hitting you on the forehead...'
-                            gs 'stat'
+                act 'Strip naked':
 
-                            act 'Pass out':gt 'hunters', 'huntersgroupfaint'
-                        end
-                    end
-                else
-                    act 'Go':gt 'swamp_yard'
-                end
-            end
-        else
-            act 'Ask to shoot the rifle':
-                if fingal = 0:
-                    *clr & cla
-                    minut += 5
-                    shootingday = daystart
-                    gs 'stat'
-                    '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/claps_eyes.jpg"></center>'
-                    'You approach the hunters sitting in a clearing. "Guys, could you give me the rifle? I want to try it out again." You ask the hunters.'
-                    if shooting = 1:
-                        shooting = 2
-                        '"Okay, <<$pcs_nickname>>, just don''t end up like the first time," Andrei said jokingly.'
-                    elseif pcs_shoot <= 10:
-                        '"Sure, <<$pcs_nickname>>, just be careful." Andrei said smiling.'
-                    else
-                        '"Here, <<$pcs_nickname>>, just don''t shoot too much, the bullets are expensive." Andrei said smiling.'
-                    end
-                    if pcs_shoot >= 1 and pcs_shoot <= 10:
+                    !TODO: Add flavor 
+                    hunter_collective_opinion -= 5
+                    hunter_sexual_comfort += 10
 
-                        act 'Go shooting (1:00)':
-                            if (pcs_stren + pcs_shoot > 20) or (pcs_stren + pcs_shoot < 20 and rand(1,2) = 1):
-                                *clr & cla
-                                minut += 60
-                                shoot_exp += 1
-                                gs 'stat'
-                                '<center><video autoplay loop src="images/locations/gadukino/hunters/shooting2.mp4"></video></center>'
-                                'You fire the rifle for an hour under the hunters watchful eyes.'
+                    forced_naked_day = daystart + 1
 
-                                act'Further':gt 'swamp_yard'
-                            else
-                                *clr & cla
-                                minut += 5
-                                shoot_exp += 1
-                                gs 'stat'
-                                '<center><video autoplay loop src="images/locations/gadukino/hunters/shooting1.mp4"></video></center>'
-                                'Everything went wrong just like the first time. You take a shot and got hit once again by the rifle on the forehead...'
-                                '"<<$pcs_nickname>>, are you still alive?" Igor asked you with some concern in his voice.'
-                                '"Yeah, I think so..." you reply, holding your bruised forehead.'
-                                '"I''m glad to hear that," Andrei said laughing. "Go get some rest, little Rambo".'
+                    gs 'clothing', 'strip', 'swamphouse'
+				    gs 'underwear', 'remove'
 
-                                act'Further':
-                                    *clr & cla
-                                    minut += 1
-                                    gs 'stat'
-                                    '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/tongue.jpg"></center>'
-                                    '"I''m not Rambo, I''m Lara Croft," you reply. Andrei, stands there looking confused not understanding the reference.'
+				    gs 'arousal', 'flash', 10, 'exhibitionism', 'sub'
+				    gs 'arousal', 'end'
 
-                                    act'Further':gt 'swamp_yard'
-                                end
-                            end
-                        end
-                    else
-                        act 'Go shooting (1:00)':
-                            *clr & cla
-                            minut += 60
-                            shoot_exp += 1
-                            gs 'stat'
-                            '<center><video autoplay loop src="images/locations/gadukino/hunters/shooting2.mp4"></video></center>'
-                            'You fire the rifle for an hour under the hunters watchful eyes.'
+    			    gs 'stat'
+                    gt 'swamp_woods'
+                end
+                
+                act 'Refuse':
+                    cla 
 
-                            act'Further':gt 'swamp_yard'
-                        end
-                    end
-                else
-                    *clr & cla
-                    minut += 5
-                    shootingday = daystart
-                    gs 'stat'
-                    '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/claps_eyes.jpg"></center>'
-                    'You approach the hunters sitting in a clearing. "Guys, could you give me the rifle? I want to try it out again." You ask the hunters.'
-                    '"You need to heal your forehead first." Andrei says smiling. "You have the spirit of an Amazon, you need to relax."'
+                    hunter_collective_opinion += 5
+                    hunter_sexual_comfort -= 15
 
-                    act'Further':gt 'swamp_yard'
+                    '"I am not sure..." you respond. "I would be prancing around completely naked for three men I barely know, that''s just too much"'
+                    '"Three men you barely know? <<$pcs_nickname>>, I thought we were your friends. It is nothing more than just having some silly fun together" he responds.'
+                    '"Besides, it is not fair to just back down from a bet like that." he adds.'
+                    '"Sorry, but I will not just prance around naked for your viewing pleasure." you firmly respond.'
+                    act 'Walk away': gt 'swamp_woods'
                 end
             end
-        end
-    else
-        if huntslutsex = 0:
-            *clr & cla
-            minut += 5
-            shootingday = daystart
-            huntersexnude = 1
-            gs 'stat'
-            '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/claps_eyes.jpg"></center>'
-            'You approach the hunters sitting in the meadow. "Guys, let me shoot the rifle," you look at them with your puppy eyes.'
-            '"<<$pcs_nickname>>, come closer," replied Andrei. "If you want to shoot you need to repay us somehow."'
-
-            act'Approach':gt 'hunters', 'start'
-        else
-            *clr & cla
-            minut += 5
-            shootingday = daystart
-            gs 'stat'
 
-            '<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/claps_eyes.jpg"></center>'
-            '"Please guys, I really want to shoot with the rifle."'
-            '"Don''t you worry <<$pcs_nickname>>, you have other talents that are more needed." Andrei replied.'
-            'He scoffs, pleased with the joke.'
+        !TODO: Implement these additional options
+        elseif lost_bet_temprand = 2:
+        elseif lost_bet_temprand = 3:
+        elseif lost_bet_temprand = 4:
+        end    
+    end 
 
-            act'Move away':gt 'swamp_yard'
-        end
-    end
 end    
 
+
 !Sexual interactions
 if $ARGS[0] = 'andrei_quick_fuck':
 	cla & *clr
@@ -554,7 +602,7 @@ if $ARGS[0] = 'andrei_quick_fuck':
 		'Andrei walks up to you without saying another word and forcefully pulls you closer by your nipples.'
 		gs 'pain', 10, 'pinch', 'nipples'
 		'You yelp but it is cut short when he shoves his tongue down your throat, roughly fondling you all over'
-		gs 'arousal', 'foreplay', 25, 'sub'
+		gs 'arousal', 'foreplay', 15, 'sub'
 		act 'You feel your pussy starting to get wet':
 			cla & *clr
             '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/andrei_naked_encounter_finger.jpg"></center>'
@@ -563,8 +611,10 @@ if $ARGS[0] = 'andrei_quick_fuck':
             *nl
             '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/andrei_naked_encounter_fuck.jpg"></center>'
             'He starts fucking you rough and hard, not caring what you are getting out of it. You are merely a cocksleeve for him.'
-			gs 'arousal', 'vaginal_finger', '15', 'sub'
-			gs 'arousal', 'vaginal', '30', 'sub', 'rough'
+            gs 'arousal', 'vaginal_finger', 15, 'sub'
+            gs 'dinsex','vaginal_sex', 30,'sub', 'rough'
+            minut -= 25
+
 			act '...':
 				cla & *clr
                 '<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/andrei_naked_encounter_cum.jpg"></center>'
@@ -575,10 +625,18 @@ if $ARGS[0] = 'andrei_quick_fuck':
 				gs 'arousal', 'end'
 				gs 'cum_call', 'breasts', 'A172', 1
 				gs 'cum_call', 'stomach', 'A172', 1
-				gs 'stat'
-				
-				act 'Further': gt 'swamp_yard'
-			end 
+                gs 'stat'
+                
+                minut -= 10
+                
+                act 'Further':
+                    if $loc = 'swamp_woods':
+                        gt 'swamp_woods', 'shooting_practice', 'practice'    
+                    else
+                        if $loc = 'swamp_yard': gt 'swamp_yard'
+                    end    
+                end
+            end 
 		end
 	!end
 end
@@ -622,35 +680,38 @@ if $ARGS[0] = 'igor_demonstration':
 	end
 end
 
+if $ARGS[0] = 'indoors_naked_encounter':
+    gt $loc
+end    
+
 if $ARGS[0] = 'naked_encounter':
-	if huntersKnowSlut = 0 and $clothingworntype = 'nude':
-		cla
-		*clr
+	if huntersKnowSlut = 0 and $clothingworntype = 'nude' and hour < 23 and hour >= 7:
+		cla & *clr
 		gs 'stat'
 
 		'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swampdvornude.jpg"></center>'
 		'You notice the hunters ogling your body while you are walking around naked. You subconsciously cover up your private parts'
 
-		if FUNC('lost_clothes_here','swamphouse') = 1 and $lastwornclothingtype ! 'nude':
-			act 'Run inside and get dressed':
+		if FUNC('lost_clothes_here','swamphouse') = 1 and $lastwornclothingtype ! 'nude' and forced_naked_day < daystart:
+			act 'Run and get dressed':
 				*clr & cla
 				minut += 5
 				gs 'underwear', 'wear'
 				gs 'clothing', 'recover_lost_clothes', 'swamphouse', 1
 
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/swampdvornude1.jpg"></center>'
-				'You rush inside the hut so you can get dressed.'
-				act'Further':gt 'swamphouse'
+				'You rush to get your stuff in the hut so you can get dressed.'
+				act'Further': gt 'swamphouse'
 			end
-		else
-			act 'Run inside and cover up with a burlap sack':
+        elseif forced_naked_day < daystart:
+			act 'Cover up with a burlap sack you found':
 				*clr & cla
 				minut+=5
 				gs 'clothing', 'swamp_clothes', 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/hunters/tkan_cloth.jpg"></center>'
-				'You quickly rush inside the hut and wear a sack... It''s not much, but at least it''s better than nothing.'
-				act'Further':gt 'swamphouse'
+				'You look around and put on a piece of burlap sack you see... It''s not much, but at least it''s better than nothing.'
+				act'Further': gt $loc
 			end
 		end
 
@@ -744,13 +805,23 @@ if $ARGS[0] = 'naked_encounter':
 					'"What in the hell are you doing you dumb girl, put something on" says Sergei'
 					'"Leave her Sergei, she is not useful for anything else anyway. Might as well be eye candy and easy acccess for a quick fuck." says Andrei'
 					'"In fact, let me demonstrate" he says before looking at you, grinning wolfishly"'
-					gs 'hunter_interactions', 'andrei_quick_fuck'
+					gt 'hunter_interactions', 'andrei_quick_fuck'
 				end
 			end
 		end	
 	end
 end
 
+if $ARGS[0] = 'dance_show':
+    gt $loc
+    !TODO: Fill this in
+end
+
+if $ARGS[0] = 'fireside_gangbang':
+    gt $loc
+    !TODO: Fill this in
+end
+
 if $ARGS[0] = 'striptease':
     if alko >= 8 and huntersKnowSlut > 0:
         *clr & cla

locations/hunters.qsrc

@@ -39,7 +39,7 @@ if $ARGS[0] = 'check_opinion':
 	if hunter_sexual_comfort > 50:
 		if $clothingworntype ! 'nude':
 			'Andrei then looks at you and says "What is it with all the clothing? Let it all air out!"'
-		else:
+		else
 			'"Damn, <<$pcs_nickname>>, you look really good without the clothes. The things I would want to do to you..." said a somewhat aroused Andrei.'	
 		end
 	elseif hunter_sexual_comfort > 25:

locations/husbSex.qsrc

@@ -472,8 +472,10 @@ if $ARGS[0] = 'miss':
 
 	'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/vag.jpg"></center>'
 	'<<$husName>> spreads your legs and uses his fingers to caress your pussy.'
+	'After a few minutes you are practically begging him to take you and he is more than willing, it is slow and gentle making you feel full and satisfied.'
 
-	gs 'arousal', 'vaginal_finger', 20
+	gs 'arousal', 'vaginal_finger', 5
+	gs 'arousal', 'vaginal', 15
 	gs 'stat'
 	
 	gs'orgazm','start'
@@ -497,7 +499,7 @@ if $ARGS[0] = 'dog':
 	'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/dog1.jpg"></center>'
 	'<<$husName>> turns you around into the doggy style position and spreads your buttcheeks before he enters you.'
 
-	gs 'arousal', 'anal', 30, 'sub'
+	gs 'arousal', 'vaginal', 30, 'sub'
 	gs 'stat'
 	
 	gs'orgazm','start'

locations/igorhome.qsrc

@@ -300,7 +300,7 @@ if $ARGS[0] = 'sisterroom':
 					'"It''s the holidays so I wanted to spend some time with the family before heading back to the University."'
 					act 'So you''re Igor''s sister?':
 						*clr & cla
-						'Looking wide-eyed at her you ask if she''s Ivan''s sister.'
+						'Looking wide-eyed at her you ask if she''s Igor''s sister.'
 						'"Yeah, my name is Galina and who might you be?"'
 						'"My name is <<$pcs_nickname>>. And I''m one of Igor''s classmates..." you say trying to be as vague as possible as you still don''t know how Galina will react.'
 						'"That''s great news!" Galina exclaims. "I''m so glad that Igor got a female friend. Finally I''ve been waiting for this day for a long time." she grins.'

locations/kafe.qsrc

@@ -21,10 +21,6 @@ if $ARGS[0] = 'start':
 	*nl
 	act 'Leave the diner': minut += 5 & gt 'street'
 
-	if QWdogReiq = 3 and week = 7 and hour >= 12:
-		act 'Sit down and wait for Margaret':gt 'kafe2', 'margo'
-	end
-
 	act 'Sit down at a table': gt 'kafe', 'table'
 end
 

locations/kafe2.qsrc

@@ -570,286 +570,5 @@ if $ARGS[0] = 'givipredlog':
 	act 'Help Givi':gt 'kavkazkafe', 'podgivi'
 end
 
-if $ARGS[0] = 'margo':
-	cls
-	minut += 15
-	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/beast/zoo/margo.jpg"></center>'
-	'You are about to summon the waitress but here comes Margaret, on noticing you she immediately comes to your table.'
-	'"Hi sorry that I took so long" Margaret sits down at the table'
-
-	if MargoSex = 0:
-		'And so you wanted to talk to me? you really took the bull by the horns.'
-		'"About the animal sex... you''re practicing it?" Margaret Asked.'
-		'"Yeah, no, you saw?" You decide to show a bit of character.'
-		'"I like the dog" Margaret said without confidence. "and I would like to try."'
-		'"Do you have a dog?" you smirk, amused by her words'
-		'"Unfortunately no," Margaret sighs sadly "I live with my parents and we are not allowed to have a dog"'
-		'"And you want to fuck my dog?" you say with undisguised sarcasm.'
-		'"Well, yes." Margaret says, your sarcasm falling on deaf ears.'
-	else
-		'You sit at the table with Margot and she admits that she liked with the dog and she wants more.'
-	end
-
-	act 'Leave':gt 'street'
-
-	if husbandMark <= 0 and husband <= 0:
-		act 'Come with me':
-			cls
-			minut += 15
-			gs 'stat'
-			'You and Margaret rise from the table and go to your home. when you get in the apartment Margaret goes into the shower.'
-
-			act 'Peek in the bathroom':gt 'kafe2', 'margoroom'
-			act 'Wait in the room':gt 'kafe2', 'margoroom2'
-
-			if pcs_horny >= 50:act 'Walk in on Margaret in the shower':gt 'kafe2', 'margoroom3'
-		end
-	end
-end
-
-if $ARGS[0] = 'margoroom':
-	cls
-	minut += 15
-	gs 'stat'
-	'You open the door a little bit and look in after her but nothing happens. Margaret just looks at you and you notice that she beautiful body.'
-
-	act 'Walk into the room':gt 'kafe2', 'margoroom2'
-end
-
-if $ARGS[0] = 'margoroom2':
-	cls
-	minut += 15
-	gs 'stat'
-	'-I''m ready:Margaret says entering the hall'
-	'A very good start, you answer Margaret.'
-
-	act 'Suck the dog''s dick':
-		cls
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo6.jpg"></center>'
-		'Margot leans towards the male and shifts to an excellent position to start sucking him. Finally the member of the dog is alert.'
-
-		gs 'arousal', 'voyeur', 15, 'beast'
-		gs 'stat'
-
-		act 'Insert the dog''s dick in her ass.':
-			cls
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/beast/zoo/anal.jpg"></center>'
-			'Margaret gets on all fours and you direct the cock into her anus, the dog''s fleshy bulb slides slowly inside her tight hole. After only two thrusts, Margaret  was already squealing like the most natural bitch.'
-			'Margaret suddenly starts crying, then as the dog thrust in, abruptly moaned as her eyes welled up with tears.'
-			'"Margaret, what happened, did you cum?"'
-			'"<<$pcs_nickname>> it stuck in me" Margaret said quietly licking her lips, "It feels unusual, something is pushing against the walls of my anus and feels painful and pleasant at the same time, I did not yet cum."'
-			'"Yes, it is an unusual and pleasant feelings, I completely agree, do not make any sudden movements or jerks, or the dog can break your wonderful ass. Show some care Margaret.'
-			'"<<$pcs_nickname>> you know, I watched a zooporno with a 19 year old girl that had 17 orgasms in 3 hours" then as she moves Margaret licks her lip "Yeah, this would kill her record."'
-			'"Right, a video like what would certainly be...interesting " you say skeptically "my father would love that video personally." Margaret said, trying to change positions but the dog viciously thrust inside and Margaret could not be freed so that she couldn''t move'
-			'The unexpected knot in Margaret''s ass loosened and the member of the dog come out with a strange "SCHLPOP!" sound and out of Margarets ass flowed sperm and blood.'
-			'"Ohrenet, (Jeeze,)" Margaret sighed in delight. "I''ll do this kind of stuff more often. I''m going to bathe, and then I''ll head home."'
-
-			gs 'arousal', 'voyeur', 15, 'beast'
-			gs 'arousal', 'end'
-			gs 'stat'
-
-			act 'Walk into the shower with Margaret':gt 'kafe2', 'margoshower'
-		end
-	end
-end
-
-if $ARGS[0] = 'margoshower':
-	cls
-	QWdogreiqTimer = 7
-	QWdogReiq = 2
-	gs 'stat'
-	'You undress and start to follow Margaret into the shower. You didn''t really have time for a bath since Margaret pulls your head in for kiss.'
-
-	gs 'arousal', 'kiss', 15, 'lesbian'
-	gs 'stat'
-
-	act '<font color="magenta">Have her lick your nipples</font>':
-		cls
-
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo2.jpg"></center>'
-		'Margaret takes your swollen nipples into her mouth. She begins to lick them and their sharp little edges'
-
-		gs 'arousal', 'foreplay', 15, 'lesbian', 'dom'
-		gs 'stat'
-
-		if lactation['active'] = 1:
-			'You feel your breasts let down, as Margaret continues to suck on your nipples'
-			temp_var = (lactation['breastmv'] + lactation['lactaterate'])/1000
-			if tempvar > 8000:
-				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 60)
-				'She sucks for a long while, drinking a full belly of your ample milk.'
-
-			else
-				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 20)
-				'She empties your breasts, and then smiles at you.'
-
-			end
-		end
-		act 'Carry her out':gt 'korr'
-	end
-
-	act '<font color="magenta">Have her lick your pussy</font>':
-		cls
-
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo3.jpg"></center>'
-		'Margaret kneels down and starts to lick your pussy. Her tongue makes your body tingle with a wave of pleasure.'
-
-		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
-		gs 'stat'
-
-		if pcs_horny >= 90:pcs_horny = 0 & orgasm += 1 & 'You covered orgasm.'
-
-		act 'Carry her out':gt 'korr'
-	end
-
-	act '<font color="magenta">Have her lick your ass</font>':
-		cls
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo4.jpg"></center>'
-		'Margo quickly began to lick your ass, causing a pleasant sensation all over your body. For Margaret this was not enough, so she slowly inserted a finger into your ass and began to make rhythmic movements.'
-
-		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
-		gs 'arousal', 'anal_finger', 15, 'lesbian', 'dom'
-		minut -= 15
-		gs 'stat'
-
-		if pcs_horny >= 99:pcs_horny = 0 & orgasm += 1 & 'You covered orgasm.'
-
-		$orgasm_or = 'yes'
-		gs 'stat'
-
-		act 'Carry her out':gt 'korr'
-
-		if pcs_ass > 15 and pcs_horny > 0:
-			act '<font color="magenta">Stick your hand in the ass</font>':
-				cls
-				pcs_ass += 5
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/beast/zoo/margo5.jpg"></center>'
-				'First she inserts one finger, then two, three and so on, until eventually she shoves her hand in completely. She quickly found herself in the depths of your ass. It feels unbelievable. Margaret penetrated deeper and deeper and you felt like you were in seventh heaven. It feels impossibly good. Your ass accepted her flexible hand. She starts massaging inside you like a real mistress, causing you to moan loudly and wagging your ass with pleasure.'
-
-				gs 'arousal', 'anal_fist', 15, 'lesbian'
-				gs 'stat'
-
-				if pcs_horny >= 90:pcs_horny = 0 & analorgasm += 1 & 'You covered orgasm.'
-
-				$orgasm_or = 'yes'
-				gs 'arousal', 'end'
-				gs 'stat'
-
-				act 'Carry her out':gt 'korr'
-			end
-		end
-	end
-end
-
-if $ARGS[0] = 'margoroom3':
-	cls
-	gs 'stat'
-	'You start to undress and go to the shower, following Margaret. You do not have time to really get into the bath since Margaret pulls your head in for a kiss.'
-
-	gs 'arousal', 'kiss', 15, 'lesbian'
-	gs 'stat'
-
-	act 'Have her lick your nipples':
-		cls
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo2.jpg"></center>'
-		'Margaret takes your swollen nipples into her mouth. She begins to lick and nibble on them with her sharp little teeth'
-
-		gs 'arousal', 'foreplay', 15, 'lesbian', 'dom'
-		gs 'stat'
-
-		if lactation['active'] = 1:
-			'You feel your breasts let down, as Margaret continues to suck on your nipples'
-			temp_var = (lactation['breastmv'] + lactation['lactaterate'])/1000
-			if tempvar > 8000:
-				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 60)
-				'She sucks for a long while, drinking a full belly of your ample milk.'
-
-			else
-				milkedvolume = breastmilkvolume = func('lact_lib','$get_breastmilk', 0, 20)
-				'She empties your breasts, and then smiles at you.'
-
-			end
-		end
-		act 'Walk into the room':gt 'kafe2', 'margoroom2'
-	end
-
-	act 'Have her lick your vagina':
-		cls
-
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo3.jpg"></center>'
-		'Margaret kneels down and starts to lick your pussy. Her tongue makes your body tingle with a wave of pleasure.'
-
-		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
-		gs 'stat'
-
-		if pcs_horny >= 90:pcs_horny = 0 & orgasm += 1 & 'You have an orgasm.'
-
-		$orgasm_or = 'yes'
-		gs 'stat'
-
-		act 'Walk into the room':gt 'kafe2', 'margoroom2'
-	end
-
-	act 'Have her lick your ass':
-		cls
-
-		if MargoSex = 0:MargoSex = 1 & girl += 1
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/beast/zoo/margo4.jpg"></center>'
-		'Margo quickly began to lick your ass, causing a pleasant sensation all over your body. For Margaret this was not enough, so she slowly inserted a finger into your ass and began to make rhythmic movements.'
-
-		gs 'arousal', 'cuni', 15, 'lesbian', 'dom'
-		gs 'stat'
-
-		if pcs_horny >= 99:pcs_horny = 0 & orgasm += 1 & 'You have an orgasm.'
-
-		$orgasm_or = 'yes'
-		gs 'stat'
-
-		act 'Walk into the room':gt 'kafe2', 'margoroom2'
-
-		if pcs_ass > 15 and pcs_horny > 0:
-			act 'Stick me in the ass hand':
-				cls
-				minut += 15
-				pcs_horny += 60
-				pcs_ass += 5
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/beast/zoo/margo5.jpg"></center>'
-				'First she inserts one finger, then two, three and so on, until eventually she shoves her hand in completely. She quickly found herself in the depths of your ass. It feels unbelievable. Margaret penetrated deeper and deeper and you felt like you were in seventh heaven. It feels impossibly good. Your ass accepted her flexible hand. She starts massaging inside you like a real mistress, causing you to moan loudly and wagging your ass with pleasure.'
-
-				gs 'arousal', 'anal_fist', 15, 'lesbian', 'dom'
-				gs 'stat'
-
-				if pcs_horny >= 90:pcs_horny = 0 & orgasm += 1 & 'You covered orgasm.'
-
-				$orgasm_or = 'yes'
-				gs 'arousal', 'end'
-				gs 'stat'
-
-				act 'Walk into the room':gt 'kafe2', 'margoroom2'
-			end
-		end
-	end
-end
-
 --- kafe2 ---------------------------------
 

locations/kafesvid.qsrc

@@ -147,7 +147,7 @@ if $ARGS[0] = '11':
 	
 	if kafesvidsex < 3:
 		act 'Her ass':gt 'kafesvid', '12'
-		act 'Her pussy':gt 'kafesvid', '13'
+		act 'Your pussy':gt 'kafesvid', '13'
 	end
 
 	act 'Finish':gt 'kafesvid', '3'
@@ -166,7 +166,7 @@ if $ARGS[0] = '12':
 	
 	if kafesvidsex < 3:
 		act 'Her pussy':gt 'kafesvid', '11'
-		act 'Their pussy':gt 'kafesvid', '13'
+		act 'Your pussy':gt 'kafesvid', '13'
 	end
 
 	act 'Finish':gt 'kafesvid', '3'