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"/>
@@ -1097,5 +1099,11 @@
 	</Folder>
 	<Location name="LBZhouse"/>
 	<Location name="BanSexType"/>
+	<Folder name="Magic">
+		<Location name="castSpell"/>
+		<Location name="spellTeleport"/>
+		<Location name="treeCircle"/>
+		<Location name="treeCircActs"/>
+	</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
 
@@ -1660,9 +1660,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/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/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/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[rnd(0,2)]
+
+			killvar $tpRand
+		end
 	end
 
 	act 'Go on your way': killvar 'frandchat' & gt $loc, $metka

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/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/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/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/brother.qsrc

@@ -23,7 +23,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.
@@ -52,7 +52,7 @@ if $ARGS[0] = 'start':
 	'<center><b><font color="maroon">Kolka</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
 	'Kolka, your brother, is <<brotherAge>> years old. While you share the same mother, Kolka''s dad is your and Anya''s stepfather. He is a student at the same school as you. When not in school, he is either at home playing video games or out playing football with his friends.'
-	
+
 	if brotherSex >= 10 and npc_rel['A34'] >= 80:
 		'You and your brother are lovers.'
 	elseif brotherSex >= 10 and npc_rel['A34'] >= 60 and npc_rel['A34'] < 80:
@@ -158,7 +158,7 @@ if $ARGS[0] = 'start':
 				act 'Go with the boys':minut += 5 & gt 'seeporn'
 			elseif evgenQW >= 4 and kolkaseepornday ! daystart:
 				'The guys gather around you. Kolka speaks up, "We just finished playing, so let''s go watch some porn."'
-				
+
 				act 'Go watch porn':minut += 5 & gt 'seeporn'
 			elseif evgenQW < 4 or kolkaseepornday = daystart:
 				'Your brother grins, "Hi, <<$pcs_nickname>>. Fancy a game of football?"'
@@ -204,7 +204,7 @@ if $ARGS[0] = 'start':
 	end
 
 	if $loc = 'sitrPar':
-		if pregTalkBrother = 0: gs 'brother', 'pregreact'
+		if npc_pregtalk['A34'] = 0: gs 'brother', 'pregreact'
 		gs 'brother', 'brotherSexCount'
 
 		if indorf = 0 and $clothingworntype ! 'nude' and brothersawpirsF=0 and father_go = 1 and npc_rel['A34'] > 85 and hour >= 18 and hour < 23 and pirsF > 0:
@@ -366,12 +366,12 @@ if $ARGS[0] = 'start':
 			'Kolka, your brother, is <<brotherAge>> years old. While you share the same mother, Kolka''s dad is your and Anya''s stepfather. He is a student at the same school as you. When not in school, he is either at home playing video games or out playing football with his friends.'
 			*pl
 			'Kolka turns to you and asks, "<<$pcs_nickname>>, can you help me with my homework?"'
-			act'Agree to help him':gt 'brother_lessons', 'homework'
 			act'Decline':
 				cla
 				'You shake your head, "Sorry, little brother. I''m busy right now."'
 				act 'Leave': gt 'sitrPar'
 			end
+			act'Agree to help him':gt 'brother_lessons', 'homework'
 		else
 			act'Offer help with homework': gt 'brother_lessons', 'homework'
 		end
@@ -392,6 +392,7 @@ if $ARGS[0] = 'playfootball':
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/grounds/football<<picrand>>.jpg"></center>'
 		end
 		'You spend an hour sitting on the bench, watching the guys play football.'
+		act 'Leave':gt $loc, $metka
 	else
 		*clr & cla
 		minut += 60
@@ -403,9 +404,11 @@ if $ARGS[0] = 'playfootball':
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/grounds/football3.jpg"></center>'
 		'You spend an hour running around, chasing the ball across the field with Kolka and his friends Mishan and Zhendos.'
+		act 'Leave':gt $loc, $metka
 	end
 	if rand(0, 1) = 0 and seepornofut = 0:
 		'The three boys gather together and begin whispering between themselves while giving you conspiratorial looks.'
+		act 'Leave':gt $loc, $metka
 		act 'Ask what they''re talking about':
 			*clr & cla
 			gs 'stat'
@@ -449,11 +452,10 @@ if $ARGS[0] = 'playfootball':
 
 	if seepornofut >= 1 and kolkaseepornday ! daystart:
 		'The guys gather together and ask you, "<<$pcs_nickname>>, want to watch some porn?"'
-
+		
+		act 'Leave':gt $loc, $metka
 		act 'Go watch porn':minut += 5 & gt 'seeporn'
 	end
-
-	act 'Leave':gt $loc, $metka
 end
 
 if $ARGS[0] = 'kiss_talk':
@@ -464,14 +466,14 @@ if $ARGS[0] = 'kiss_talk':
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/kolka/brother.jpg"></center>'
 	'"Hey..." you say awkwardly. "Can we talk? About... you know..." you blush and look away awkwardly, the memory of your brother''s lips pressing at your mind.'
 	'Kolka immediately blushes back and swallows, "Uh... yeah. We can talk... about... you know..."'
-	
+
 	act'Sit down':
 		minut += 3
 		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>'
 		'You sit down next to him and continue to sit there awkwardly not saying anything for several minutes, trying to think of what you''re going to say.'
-		
+
 		act'Try to explain':
 			cla & *clr
 			minut += 3
@@ -483,7 +485,7 @@ if $ARGS[0] = 'kiss_talk':
 			'"I just don''t want you getting any ideas," you say, looking away. "It''s not like we''re going to start dating or do... other stuff... It''s not like we could anyways. We''re blood family. Your my brother and that''s it."'
 			'"R-right..." he says. You look back towards him and find yourself shocked by his expression. Even though all this is wrong and taboo, you can''t help but feel bad about the wounded look on his face. His hurt hurts you too.'
 			'You look away again, mulling over what you should say next...'
-			
+
 			act'Continue':
 				cla & *clr
 				minut += 3
@@ -494,7 +496,7 @@ if $ARGS[0] = 'kiss_talk':
 				'"So..." With a fast beating heart and feeling the heat flush to your face, you force out your next words. "So... if I want to show you how much I love you in the future, there''s nothing wrong with that."'
 				'You turn back towards your brother to see him looking at you with wide eyes.'
 				'"If I want to kiss my brother to show him that I love him, then I''m allowed to do that," you say firmly. Before you can convince yourself to change your mind, you lean forward towards him.'
-				
+
 				act'Kiss him':
 					cla & *clr
 					brotherkiss += 1
@@ -505,16 +507,16 @@ if $ARGS[0] = 'kiss_talk':
 					'"I love you too, sis..." he murmurs back.'
 					'Looking into his eyes one more time, you quickly pull back and stand up to walk out of the room. You pause at the door to look back at him.'
 					'"I''ll, uh... see you later," you say awkwardly before hurrying out into the hallway.'
-					
+
 					gs 'arousal', 'kiss_give', 3, 'incest'
 					gs 'arousal', 'end'
 					gs 'stat'
-					
+
 					act'Leave':gt 'korrPar'
 				end
 			end
 		end
-		
+
 		act'Apologize':
 			cla & *clr
 			'<center><b><font color = maroon>Kolka</font></b></center>'
@@ -527,7 +529,7 @@ if $ARGS[0] = 'kiss_talk':
 			'"But I''m your sister!" you say, tears held back behind your eyes. "It wasn''t right of me to do that. I shouldn''t have..."'
 			'"It''s okay, <<$pcs_nickname>>," he repeats as he turns back towards you. "Really, it is. You''re a beautiful girl," he says, causing you to blush even harder. "Anyone would be made happy if you kissed them like that. Even your brother. And if that''s wrong..."'
 			'He starts to lean forward towards you. Your breath hitches because you know what he''s about to do but you''re frozen in place, unable bring yourself to move away, "If that''s wrong, then I don''t want to be right..."'
-			
+
 			act'Continue':
 				cla & *clr
 				brotherkiss += 1
@@ -537,11 +539,11 @@ if $ARGS[0] = 'kiss_talk':
 				'When he finally pulls away, you find yourself breathless. He smiles back at you, "See? No harm done."'
 				'Chewing on your lip to suppress a larger smile, you sheepishly simper back at him. "I guess you''re right..." you say. "No harm done."'
 				'You get up to leave, looking back at him before you do. "Thanks, Kolka. For... you know," you say, before escaping into the hallway.'
-				
+
 				gs 'arousal', 'kiss_give', 3, 'incest'
 				gs 'arousal', 'end'
 				gs 'stat'
-				
+
 				act'Leave':gt 'korrPar'
 			end
 		end
@@ -555,7 +557,7 @@ if $ARGS[0] = 'kiss_talk':
 			'"Maybe, it''s not so bad to have a little fun now and then..." you say, casually inching towards him. "I mean, it''s not like we''re doing anything that wrong are we?"'
 			'"No..." he says, mimicking your casual posture and motion. "We''re teenagers with raging hormones or something right? We need to enjoy ourselves now and then or we''ll go crazy, right?"'
 			'"Right..." you say, leaning in towards his face.'
-			
+
 			act'Kiss him':
 				cla & *clr
 				brotherkiss += 1
@@ -564,11 +566,11 @@ if $ARGS[0] = 'kiss_talk':
 				'You press your lips hard against his, letting yourself be consumed by the kiss for a moment. Just as eager, he presses back and you suddenly find yourself surprised by the intrusion of his tongue in your mouth. You find yourself particularly surprised by how welcome it is. You pull back briefly for gasps of breath and single words between kisses, "Maybe-! It isn''t-! So-! Mmmrph! Bad-! If we-! Cut-! Loose-! Now and-! Mmmmmmm! Again-!"'
 				'"Mmm mmm!" Your brother doesn''t say anything back except to hum in agreement and keep kissing you. The two of you continue making out for several more minutes before you finally break apart and you get up to leave. As you stand by the door, you look back towards your brother.'
 				'"I''m glad we had this talk," you say, licking your lips and departing.'
-				
+
 				gs 'arousal', 'kiss_give', 3, 'incest'
 				gs 'arousal', 'end'
 				gs 'stat'
-				
+
 				act'Leave':gt 'korrPar'
 			end
 		end
@@ -584,7 +586,7 @@ if $ARGS[0] = 'sleepsexcum':
 
 		if rand(0, 100) < pcs_horny:
 			!!Inside
-			gs 'cum_call', '', 'Kolka', 1
+			gs 'cum_call', '', 'A34', 1
 			'<<$boydesc>> groans and you feel a jet of sperm fill your pussy.'
 			pcs_mood -= 15
 			pcs_willpwr -= 15
@@ -594,18 +596,18 @@ if $ARGS[0] = 'sleepsexcum':
 			!!Outside
 			if pose = 0:
 				if rand(0,1) = 0:
-					gs 'cum_call', 'stomach', 'Kolka', 1
+					gs 'cum_call', 'stomach', 'A34', 1
 					'<<$boydesc>> groans and you quickly pull yourself off of his dick. His hot sperm squirts on your stomach.'
 				else
-					gs 'cum_call', 'labia', 'Kolka', 1
+					gs 'cum_call', 'labia', 'A34', 1
 					'<<$boydesc>> groans and you quickly pull yourself off of his dick. His hot sperm squirts on your exposed pussy.'
 				end
 			elseif pose = 1:
 				if rand(0,1) = 0:
-					gs 'cum_call', 'back', 'Kolka', 1
+					gs 'cum_call', 'back', 'A34', 1
 					'<<$boydesc>> groans and you quickly pull yourself off of his dick. His hot sperm squirts on your back.'
 				else
-					gs 'cum_call', 'butt', 'Kolka', 1
+					gs 'cum_call', 'butt', 'A34', 1
 					'<<$boydesc>> groans and you quickly pull yourself off of his dick. His hot sperm squirts on your ass.'
 				end
 			end
@@ -614,7 +616,7 @@ if $ARGS[0] = 'sleepsexcum':
 		protect = 0
 
 		if rand(0, 89) = 0:sexcontra = 4
-		gs 'cum_call', '', 'Kolka', 1
+		gs 'cum_call', '', 'A34', 1
 		if sexcontra = 4:
 			'You pull off of <<$boydesc>>, look at his dick and think, <i>Oh shit! The condom ripped.</i>'
 		elseif sexcontra = 5:
@@ -634,7 +636,7 @@ if $ARGS[0] = 'sleepsexcum':
 	'You catch your breath then carefully climb off your still sleeping, though smiling, brother. You gently replace the blanket and quietly step away.'
 	gs 'arousal', 'end'
 	gs 'stat'
-	
+
 	act 'Leave':gt $loc, $metka
 end
 
@@ -714,12 +716,12 @@ if $ARGS[0] = 'brotherSexStart':
 	act 'Jerk your brother off':
 		*clr & cla
 		npc_rel['A34'] += 2
-		gs 'cum_call', 'hands', 'Kolka', 1
+		gs 'cum_call', 'hands', 'A34', 1
 		if brotherSex < 5:brotherSex = 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hj1.jpg"></center>'
 		'You take his hard <<npc_dick[''A34'']>> cm cock in your hand and begin masturbating him. It only takes a few minutes of gliding your hand up and down his shaft for him to cum. Kolka quietly groans as jets of hot cum erupt from his throbbing member all over your hand.'
-		
+
 		gs 'arousal', 'hj', 5, 'incest'
 		gs 'stat'
 		gs 'brother', 'brotherSexEnd'
@@ -734,25 +736,25 @@ if $ARGS[0] = 'brotherSexStart':
 
 			'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/kolka/sex/blow0,<<rand(0,6)>>.mp4"></video></center>'
 			'You drop to your knees in front of your brother and move your face towards his waiting member. Kolka takes a deep breath in anticipation.'
-			
+
 			gs 'arousal', 'bj', 5, 'incest'
 			gs 'stat'
 			gs 'dinsex','dinrandbj'
 
 			'It isn''t long before you hear your brother moan, "I''m gonna cum, <<$pcs_nickname>>!"'
-			
+
 			act 'Keep sucking':
 				*clr & cla
 				gs 'boyStat', 'A34'
-				gs 'cum_call', 'mouth', 'Kolka', 1
+				gs 'cum_call', 'mouth', 'A34', 1
 				swallow += 1
 				gs 'stat'
 
 				'<center><video autoplay loop src="images/shared/sex/cum/mouth/cum1,<<rand(0,11)>>.mp4"></video></center>'
-				
+
 				gs 'arousal', 'bj', 5, 'incest'
 				gs 'stat'
-				
+
 				gs 'dinsex','dinrandswallow'
 
 				gs 'brother', 'brotherSexEnd'
@@ -765,13 +767,13 @@ if $ARGS[0] = 'brotherSexStart':
 				brotherfuck += 1
 				npc_rel['A34'] += 5
 				gs 'boyStat', 'A34'
-				gs 'cum_call', 'face', 'Kolka', 1
+				gs 'cum_call', 'face', 'A34', 1
 				facial += 1
 				gs 'stat'
 
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial21.jpg"></center>'
 				'Just as you take his dick out of your mouth, you''re hit with a hot blast of cum across your face, followed by several more spurts. Your face is covered in your brother''s jism when he is finally finished with his orgasm.'
-				
+
 				gs 'brother', 'brotherSexEnd'
 			end
 			if brotherSex >= 6:
@@ -803,7 +805,7 @@ if $ARGS[0] = 'fuckvaginal':
 
 	'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/kolka/sex/sex,<<rand(0,11)>>.mp4"></video></center>'
 	'You lie back on the sofa and spread your legs. You slip a finger inside yourself and smile seductively at Kolka. You push your digit in and out a few times before adding a second, your brother staring at you hypnotically. You remove your slickened fingers and use them to beckon Kolka closer, before licking them clean. You embrace your sibling as he lies on top of you.'
-					
+
 	$risk_boy = 'your own brother'
 	gs 'dinsex', 'boy_puts_condom'
 	gs 'dinsex','vaginal_sex',10
@@ -825,7 +827,7 @@ if $ARGS[0] = 'fuckanal':
 
 	'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/kolka/sex/anal,<<rand(0,4)>>.mp4"></video></center>'
 	'You lie back on the sofa, pulling your knees up to your chest and expose your <<$pcdesc_anus>> asshole to your sibling. "I want you to fuck my ass, Kolka," you tell him. Your brother practically pounces you, not needing more encouragement from you.'
-						
+
 	gs 'dinSex','boy_wants_anal','Kolka' & gs 'dinsex','analsex'
 
 	gs 'brother', 'brotherSexEnd'
@@ -898,7 +900,7 @@ if $ARGS[0] = 'brother_go_away':
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/shower/b (13).jpg"></center>'
 	'You cover your pussy with your hands and yell at your brother, "Kolka!? What the <i>fuck</i>? Get the fuck out of here, you small fry!"'
 	'Caught red-handed, Kolka slams the door and runs away. You finish showering quietly and dry yourself off.'
-	
+
 	act 'Exit the shower':mirror_steam = hour & gt $loc, $metka
 end
 
@@ -913,7 +915,7 @@ if $ARGS[0] = 'brother_go_away2':
 	'Turning to look at him, you give your brother a hard stare, "Kolka, if you don''t leave right now, I''m gonna spray you with the shower head."'
 	'Caught red-handed, Kolka backs away slowly and the door clicks shut.'
 	'<i>Ugh, boys...</i> you think to yourself, rolling your eyes in annoyance. You finish showering and dry yourself off.'
-	
+
 	act 'Exit the shower':mirror_steam = hour & gt $loc, $metka
 end
 
@@ -937,7 +939,7 @@ if $ARGS[0] = 'brother_voyeur_end':
 !	end
 	gs 'arousal', 'end'
 	gs 'stat'
-	
+
 	act 'Exit the shower':mirror_steam = hour & gt $loc, $metka
 end
 
@@ -951,12 +953,12 @@ if $ARGS[0] = 'brother_voyeur_ev1':
 	if npc_QW['A34'] < 1: npc_QW['A34'] = 1
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/shower/b (<<picrand>>).jpg"></center>'
 	'You continue to wash as if nothing has happened, glancing at your brother. You carefully wash your body, paying particular attention to your breasts and pussy, feeling the excitement grow in your abdomen.'
-	
+
 	gs 'arousal','breasts', 2, 'incest'
 	gs 'stat'
-	
+
 	act 'Wipes':gt 'brother','brother_voyeur_end'
-	
+
 	if pcs_horny >= 40: act 'Play with your tits': gt 'brother','brother_voyeur_ev2'
 end
 
@@ -971,10 +973,10 @@ if $ARGS[0] = 'brother_voyeur_ev2':
 	if npc_rel['A34'] <50:npc_rel['A34'] += rand(1,2)
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/shower/c (<<picrand>>).jpg"></center>'
 	'You turn to face the door, giving Kolka a better view of your body and then erotically squeeze your <<$titsize>> tits. Your fingers graze over your <<pcdesc_nipples>> nipples and you can''t help but give them a slight pinch. You reach for the detachable shower head and begin spraying water over your chest, all the way gazing at your awestruck sibling. You close your eyes and in the heat of the moment, your heart flutters and you let out a light moan.'
-	
+
 	gs 'arousal','breasts', 3, 'incest'
 	gs 'stat'
-	
+
 	act 'Continue your shower':gt 'brother','brother_voyeur_end'
 	if pcs_horny >= 80:
 		act 'Direct the water at your pussy':gt 'brother','brother_voyeur_ev3'
@@ -993,13 +995,13 @@ if $ARGS[0] = 'brother_voyeur_ev3':
 	pcs_mood += 15
 	pcs_willpwr += 15
 	$orgasm_or = 'yes'
-	
+
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/kolka/event/shower/d (<<picrand>>).jpg"></center>'
 	'You move your feet a little wider apart and move the shower head down your body until it hovers just over your aching pussy. The spray of water is intense against your oh-so-sensitive lips and <<$pcdesc_clit>> clit. It doesn''t take long before the sensation is too much and you orgasm - wave after wave hitting your entire body, you bite down on your tongue to muffle your moans, but are unable to keep completely silent; the occasional gasp escaping your lips.'
-	
+
 	gs 'arousal','masturbate', 5, 'incest'
 	gs 'stat'
-	
+
 	act 'Dry yourself off':gt 'brother','brother_voyeur_end'
 end
 
@@ -1015,7 +1017,7 @@ if $ARGS[0] = 'brother_voyeur_ev3_2':
 	$orgasm_or = 'yes'
 	gs 'cum_call', '', 'A34', 1
 	gs 'stat'
-	
+
 	'<center><video src="images/characters/pavlovsk/resident/kolka/event/shower/broshower.mp4"></center>'
 	'After you gesture for Kolka to enter the room, he closes the latch on the door.'
 	if brother_knows_not_virgin = 1:
@@ -1051,7 +1053,7 @@ if $ARGS[0] = 'brother_voyeur_ev3_2':
 	'The two of you stay latched together for a few more seconds. You finally release Kolka''s hands and he slowly withdraws his softening penis. You turn to face your younger sibling, the two of you blushing as your eyes meet. Kolka grins, "Thank you, <<$pcs_nickname>>. You''ve made me very happy."'
 	'Kolka steps out of the shower and begins to dry off. You stay under the water, still somewhat out of breath, as he gets dressed. He heads for the bathroom door, checking momentarily to see if the coast is clear, before turning back to you one last time, "Thanks again, <<$pcs_nickname>>, I really mean it."'
 	'"That was one of the best thing I have ever done. Thank you!" he says, then he quitely listens at the door for any movement outside, opens the door and leave you alone.'
-	
+
 	act 'Finish your shower':gt 'brother','brother_sex_end'
 end
 
@@ -1070,10 +1072,10 @@ if $ARGS[0] = 'brother_sex_end':
  	else
 		'It''s hard to believe, but you just had sex with your little brother. You''re somewhat shocked but also wonder how something so <i>wrong</i> can feel so <i>right</i>.'
 	end
-	
+
 	gs 'arousal', 'end'
 	gs 'stat'
-	
+
 	act 'Exit the shower':mirror_steam = hour & gt $loc, $metka
 end
 
@@ -1300,7 +1302,7 @@ if $ARGS[0] = 'brother_voyeur_ev7':
 				gs 'arousal','vaginal_finger', 5, 'incest'
 				gs 'arousal','masturbate', 5, 'incest'
 				gs 'stat'
-				
+
 				act'Continue':gt 'brother','brother_voyeur_ev8'
 			end
 		else
@@ -1311,7 +1313,7 @@ if $ARGS[0] = 'brother_voyeur_ev7':
 				'A small grin grows on his face, "Just lie on the floor and don''t move! I''ll do everything myself!"'
 			elseif npc_QW['A34'] > 5:
 				'You ask him, "What now?" You smile at him, because you''re pretty sure you know what''s coming.'
-				'Kolka smiles back, "Will you lie on the floor again?"'		
+				'Kolka smiles back, "Will you lie on the floor again?"'
 			end
 			if sub < 30:
 				act'Refuse and get dressed':gt $loc, $metka
@@ -1341,12 +1343,12 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 		'You get off the chair and lie down on the carpet. Overcome with lust, you instinctively begin to rub your pussy and breast.'
 		if pcs_vag > 0:'You slip your fingers into your burning pussy, the sensation causing you to moan.'
 		'You watch as Kolka pulls down his pants and his fully erect <<npc_dick[''A34'']>> cm cock pops free. He kneels between your spread knees and starts to jerk himself off while he watches you play with yourself. Your heart begins to beat faster and faster, you start panting as you feel a primitive heat bubbling up deep from within. Moments later, you hear Kolka groan and watch as ropes of hot cum fly out of his cock, splashing over your crotch, stomach and even your breasts. It''s too much for you and soon you join your brother in ecstasy when your own release finally peaks. It takes everything inside of you to keep from screaming in bliss as your hips buck up and down, your fingers rubbing faster as you ride wave after wave of your orgasm.'
-		
+
 		gs 'arousal','masturbate', 10, 'incest'
 		gs 'arousal','breasts', 10, 'incest'
 		minut -= 10
 		gs 'stat'
-					
+
 		act'Continue':
 			*clr & cla
 			cla
@@ -1371,10 +1373,10 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 				'"Lucky we didn''t get caught!" you tell him as your fingers play with some of his cum splattered across your abdomen.'
 				'He pulls his pants back up and starts reaching for your clothes, "Come on, <<$pcs_nickname>>... that was fun!" He tosses your stuff at you, careful to miss the mess he''s left on you.'
 			end
-			
+
 			gs 'arousal', 'end'
 			gs 'stat'
-			
+
 			act'Get dressed':gt $loc, $metka
 		end
 	elseif brotherSex >= 4:
@@ -1390,14 +1392,14 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 		'You get off the chair and lie down on the carpet. Overcome with lust, you instinctively begin to rub your pussy and breast.'
 		if pcs_vag > 0:'You slip your fingers into your burning pussy, the sensation causing you to moan.'
 		'You watch as Kolka pulls down his pants and his fully erect <<npc_dick[''A34'']>> cm cock pops free. You follow his movements as he walks up to your head and kneels, his hardened member mere inches from your face. You open your mouth, ready to accept him orally. Kolka pushes forward slowly, your <<$liptalk>> moving over his head and inching down his shaft more and more until he stops. He holds you for a moment before he begins gently thrusting into your mouth. Your fingers continue to play with your own body, as you focus on your sibling. You swirl your tongue around his cock and suck, his moans growing deeper all the while.'
-		'A fire had been building inside you since you disrobed and now your body is nearly engulfed when you feel Kolka stiffen, his penis twitching inside your mouth. He whispers your name as he cums, his jism filling your mouth and you begin to greedily swallow. Your own orgasm isn''t far behind; your entire body begins to convulse and you start to suck your brother''s throbbing dick harder, hoping for more of his delicious cum. The world fades for a few moments...' 
-		
+		'A fire had been building inside you since you disrobed and now your body is nearly engulfed when you feel Kolka stiffen, his penis twitching inside your mouth. He whispers your name as he cums, his jism filling your mouth and you begin to greedily swallow. Your own orgasm isn''t far behind; your entire body begins to convulse and you start to suck your brother''s throbbing dick harder, hoping for more of his delicious cum. The world fades for a few moments...'
+
 		gs 'arousal','breasts', 5, 'incest'
 		gs 'arousal','masturbate', 5, 'incest'
 		gs 'arousal','bj', 5, 'incest'
 		minut -= 5
 		gs 'stat'
-					
+
 		act'Continue':
 			*clr & cla
 			cla
@@ -1408,10 +1410,10 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 			'Your brother pulls his softening cock out of your mouth. You give it a quick peck.'
 			'Kolka catches his breath and looks down at you, "Nice one, <<$pcs_nickname>>! Good job! Just remember: this is our little secret!" He stands and pulls his pants up before going over to the couch.'
 			'You don''t say anything as you get slowly gather your clothes.'
-			
+
 			gs 'arousal', 'end'
 			gs 'stat'
-			
+
 			act'Get dressed':gt $loc, $metka
 		end
 	elseif brotherConfidence > 10 and brotherSex < 4:
@@ -1428,14 +1430,14 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 		'You get off the chair and lie down on the carpet. Overcome with lust, you instinctively begin to rub your pussy and breast.'
 		if pcs_vag > 0:'You slip your fingers into your burning pussy, the sensation causing you to moan.'
 		'You watch as Kolka pulls down his pants and his fully erect <<npc_dick[''A34'']>> cm cock pops free. You follow his movements as he walks up to your head and kneels, his hardened member mere inches from your face. You open your mouth, ready to accept him orally. Kolka pushes forward slowly, your <<$liptalk>> moving over his head and inching down his shaft more and more until he stops. He holds you for a moment before he begins gently thrusting into your mouth. Your fingers continue to play with your own body, as you focus on your sibling. You swirl your tongue around his cock and suck, his moans growing deeper all the while.'
-		'A fire had been building inside you since you disrobed and now your body is nearly engulfed when you feel Kolka stiffen, his penis twitching inside your mouth. He whispers your name as he cums, his jism filling your mouth and you begin to greedily swallow. Your own orgasm isn''t far behind; your entire body begins to convulse and you start to suck your brother''s throbbing dick harder, hoping for more of his delicious cum. The world fades for a few moments...' 
-		
+		'A fire had been building inside you since you disrobed and now your body is nearly engulfed when you feel Kolka stiffen, his penis twitching inside your mouth. He whispers your name as he cums, his jism filling your mouth and you begin to greedily swallow. Your own orgasm isn''t far behind; your entire body begins to convulse and you start to suck your brother''s throbbing dick harder, hoping for more of his delicious cum. The world fades for a few moments...'
+
 		gs 'arousal','breasts', 5, 'incest'
 		gs 'arousal','masturbate', 5, 'incest'
 		gs 'arousal','bj', 5, 'incest'
 		minut -= 5
 		gs 'stat'
-		
+
 		act'Continue':
 			*clr & cla
 			cla
@@ -1446,10 +1448,10 @@ if $ARGS[0] = 'brother_voyeur_ev8':
 			'You slowly move your mouth away from your brother''s member, your face flushed with shame.'
 			'Kolka signs contently, clearly out of breath. He pulls his pants up and plops down on the couch.'
 			'Slowly you get up, refusing to make eye contact. The room is very quiet as you gather your clothes.'
-			
+
 			gs 'arousal', 'end'
 			gs 'stat'
-			
+
 			act'Get dressed':gt $loc, $metka
 		end
 	end
@@ -1459,19 +1461,19 @@ if $ARGS[0] = 'pregreact':
 	if knowpreg = 1 and kid = 0:
 		if $clothingworntype = 'nude' and pregchem > 2000 and brotherSex < 7 and kid = 0:
 			'Surprised, your brother looks at your stomach. "<<$pcs_nickname>>, are you pregnant? <<$npc_nickname[''A29'']>> and dad are going to be pissed!" After a moments pause he adds, "You do still look good, though."'
-			pregTalkbrother = 1
+			npc_pregtalk['A34'] = 1
 
 			act 'Continue' :gt 'sitrPar'
 		exit
 
 		elseif $clothingworntype ! 'nude' and pregchem > 3460 and brotherSex < 7 and kid = 0:
 			'Surprised, your brother looks at your stomach, "<<$pcs_nickname>>, why didn''t you tell me I''m going to be an uncle?"'
-			pregTalkbrother = 1
+			npc_pregtalk['A34'] = 1
 
 			act 'Continue' :gt 'sitrPar'
 			exit
 
-		elseif brotherSex >= 7 and kid = 0 and pregTalkMom = 0 and (($clothingworntype = 'nude' and pregchem > 2000) or ($clothingworntype ! 'nude' and pregchem >= 3460) or ($clothingworntype = 'nude' and pregchem < 2000) or ($clothingworntype ! 'nude' and pregchem < 3460)):
+		elseif brotherSex >= 7 and kid = 0 and npc_pregtalk['A29'] = 0 and (($clothingworntype = 'nude' and pregchem > 2000) or ($clothingworntype ! 'nude' and pregchem >= 3460) or ($clothingworntype = 'nude' and pregchem < 2000) or ($clothingworntype ! 'nude' and pregchem < 3460)):
 			cla
 			'Surprised, your brother looks at your stomach, "Are you really pregnant? It... it''s not mine, is it?"'
 			*nl
@@ -1495,8 +1497,8 @@ if $ARGS[0] = 'pregreact':
 		'You''re briefly taken aback by his uncharacteristic sincerity, "Thanks, really. I love you, too."'
 		'You leave your brother to what he was doing before, glad that the two of you have the relationship that you do.'
 
-		act 'Continue' :pregTalkbrother = 1 & gt 'sitrPar'
-	elseif brotherSex >= 7 and kid > 0 and pregTalkMom = 0 and (($clothingworntype = 'nude' and pregchem >= 2000) or ($clothingworntype ! 'nude' and pregchem >= 3460)):
+		act 'Continue' :npc_pregtalk['A34'] = 1 & gt 'sitrPar'
+	elseif brotherSex >= 7 and kid > 0 and npc_pregtalk['A29'] = 0 and (($clothingworntype = 'nude' and pregchem >= 2000) or ($clothingworntype ! 'nude' and pregchem >= 3460)):
 		cla
 		'Kolka looks at your stomach for moment before asking, "Wow, you''re pregnant again? Is it mine?"'
 		*nl
@@ -1512,7 +1514,7 @@ end
 
 if $ARGS[0] = 'brotherknows1':
 	cla
-	pregTalkbrother = 1
+	npc_pregtalk['A34'] = 1
 	*nl
 	'"Yeah, this baby is yours," you say, rubbing your belly. "And after it''s born, I might let you help me make another one," you add before giving your brother a kiss. You look down at him and notice a lump starting to form in his pants.'
 	'Kolka''s eyes suddenly go wide, "Wait! You''re not going to tell <<$npc_nickname[''A29'']>> I got you pregnant, are you?"'
@@ -1541,7 +1543,7 @@ end
 
 if $ARGS[0] = 'brotherknows2':
 	cla
-	pregTalkbrother = 1
+	npc_pregtalk['A34'] = 1
 	*nl
 	'"Yes, it is and you''re going to take responsibility. I am not going to be a single mother raising this child on my own."'
 	'Kolka stares at you in shock, "But I don''t know anything about raising a kid!"'
@@ -1567,7 +1569,7 @@ end
 
 if $ARGS[0] = 'brotherknows3':
 	cla
-	pregTalkbrother = 1
+	npc_pregtalk['A34'] = 1
 	*nl
 	'"It could be, I''m still not sure yet. I just wanted to give you a heads up." You then add with a wink, "Honestly, I kind of hope it is."'
 	'"Me too," he states just a little too eagerly. He then quickly moves his lips to yours and you share a passionate kiss.'
@@ -1577,7 +1579,7 @@ end
 
 if $ARGS[0] = 'brotherknows4':
 	cla
-	pregTalkbrother = 1
+	npc_pregtalk['A34'] = 1
 	*nl
 	'"I''m still not sure," you say. "But if it is, you had better take responsibility."'
 	'Your brother rolls his eyes, "Then I really hope it''s someone else''s problem."'
@@ -1588,7 +1590,7 @@ end
 
 if $ARGS[0] = 'brotherknows5':
 	cla
-	pregTalkbrother = 1
+	npc_pregtalk['A34'] = 1
 	*nl
 	'"No, you got lucky this time. It''s actually <<$wombthfath>>''s," you tell him. "I just wanted to share the news with my little brother."'
 	'"Oh, well congratulations!" He tries to sound happy, but you detect a note of disappointment in his voice.'
@@ -1598,7 +1600,7 @@ end
 
 !Once pregnancy fetish is added, these will be expanded
 if $ARGS[0] = 'brotherknows6':
-	pregTalkbrother = 1
+	npc_pregtalk['A34'] = 1
 	*nl
 	if arrpos('$ChildThFath','Kolka') >= 0 and arrpos('$ChildThFath','Kolka') ! arrsize('$ChildThFath')-1 and BrotherHappy = 1:
 		cla
@@ -1684,7 +1686,7 @@ end
 
 if $ARGS[0] = 'brotherknows7':
 	cla
-	pregTalkbrother = 1
+	npc_pregtalk['A34'] = 1
 	*nl
 	if arrpos('$ChildThFath','Kolka') >= 0 and arrpos('$ChildThFath','Kolka') ! arrsize('$ChildThFath')-1 and BrotherHappy = 1:
 		'"It could be, I''m still not sure yet. I just wanted to give you a heads up." You then add with a wink, "Honestly, I''m kind of hoping it is. I would love to be carrying another one of my brother''s children."'
@@ -1705,7 +1707,7 @@ end
 
 if $ARGS[0] = 'brotherknows8':
 	cla
-	pregTalkbrother = 1
+	npc_pregtalk['A34'] = 1
 	*nl
 	if $ChildThFath = 'Kolka':
 		'"Not this time. It''s actually <<$wombthfath>>''s. Why, were you hoping you''d give me more children? Sorry, but this body is just too good to limit myself to one man, even if that man is my cute younger brother," you giggle.'

locations/brother2.qsrc

@@ -309,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
@@ -317,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.'
@@ -351,8 +349,8 @@ 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."'
 			gs 'brother2', 'wakeupresponse', 'tits'
 			if $clothingworntype ! 'nude':
@@ -551,6 +549,7 @@ end
 
 if $ARGS[0] = 'morninghj':
 	cla & *clr
+	brotherMorningSex = daystart
 	gs 'arousal', 'hj', 5
 	gs 'cum_call','hands', $boy
 	npc_rel['A34'] += 5
@@ -569,6 +568,7 @@ if $ARGS[0] = 'morninghj':
 end
 
 if $ARGS[0] = 'morningbj':
+	brotherMorningSex = daystart
 	brotherwakeup += 1
 	cla & *clr
 	gs 'arousal', 'hj', 5

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.
@@ -2045,12 +2045,14 @@ 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>'
+				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
@@ -2145,16 +2147,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 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
@@ -2166,7 +2170,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:'	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
@@ -2199,16 +2203,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
@@ -2224,16 +2230,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
@@ -2264,16 +2272,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
@@ -2283,34 +2293,38 @@ 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
 
@@ -2343,16 +2357,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
@@ -2378,16 +2394,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

locations/castSpell.qsrc

@@ -0,0 +1,67 @@
+# 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
+!		teleport
+
+!teleport
+spellMana['teleport'] = 1000
+spellTime['teleport'] = 20
+spellWill['teleport'] = 20
+spellDiff['teleport'] = 20
+!glamour
+spellMana['glamour'] = 500
+spellTime['glamour'] = 1
+spellWill['glamour'] = 15
+spellDiff['glamour'] = 30
+
+spellSuccess = 0
+
+if spellKnown[$ARGS[0]] = 1:
+	!Make a Skill Check to see if the Spell succeeds
+	spellRoll = pcs_splcstng - spellDiff[$ARGS[0]] - (pcs_horny/5) + rand(1,100)
+	if spellRoll > 50:
+		!Critical Success
+		spellSuccess = 2
+		splcstng_exp += rand(1,spellDiff[$ARGS[0]]) + rand(0,5)
+	elseif spellRoll > 10:
+		!Success
+		spellSuccess = 1
+		splcstng_exp += rand(1,spellDiff[$ARGS[0]])
+	elseif spellRoll > -20:
+		!Failure
+		spellSuccess = 0
+		splcstng_exp += rand(1,spellDiff[$ARGS[0]]) / 2
+	else:
+		!Critical Failure
+		spellSuccess = -1
+		splcstng_exp += rand(1,spellDiff[$ARGS[0]]) / 2
+	end
+	killvar 'spellRoll'
+
+	!Incur the costs of casting the spell
+	if spellSuccess = 2:
+		manaCost = spellMana[$ARGS[0]] / 2
+	elseif spellSuccess = -1:
+		manaCost = spellMana[$ARGS[0]] * 2
+	else:
+		manaCost = spellMana[$ARGS[0]]
+	end
+	pcs_manna -= manaCost
+	!pcs_willpwr -= spellWill[$ARGS[0]]
+	arouseVal = manaCost / 50
+	gs 'arousal', 'voyeur', arouseVal
+	minut -= arouseVal
+	killvar 'arouseVal'
+	killvar 'manaCost'
+
+end
+
+minut += spellTime[$ARGS[0]]
+
+gs 'stat'
+
+result = spellSuccess
+
+--- castSpell ---------------------------------

locations/cikl.qsrc

@@ -631,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'
@@ -707,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
@@ -771,7 +770,7 @@ elseif nark > 0:
 	nark -= 1
 end
 
-if pregtime > 10:fat += 1
+if pregchem > 240:fat += 1
 
 !!------------------------------------------------------------------------------------------------------------
 !!	Pain

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/din_van.qsrc

@@ -179,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
@@ -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
@@ -1179,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?'
@@ -1202,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?'
@@ -1222,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.'
@@ -1242,7 +1246,7 @@ 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.'
@@ -1261,7 +1265,7 @@ 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. '
@@ -1272,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.'

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?"'

locations/etoexhib.qsrc

@@ -214,6 +214,13 @@ if $ARGS[0] = 'pos6':
 
 		act 'Leave':gt 'dachi'
 	end
+
+	! Setup for teleport circle
+	if tpKnown['Village'] = 1:
+		act 'Enter the hidden circle of trees': gt 'treeCircle', 'Village'
+	else:
+		act 'Investigate a mysterious copse of trees': gt 'treeCircle', 'Village'
+	end
 end
 
 if $ARGS[0] = 'pos7':
@@ -297,7 +304,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 +373,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 +384,7 @@ if $ARGS[0] = 'pos12':
 		end
 
 		act 'Accept and give half the amount':
-			cls
+			*clr & cla
 			money -= 1500
 			etoexhib = 14
 			temp = daystart
@@ -701,7 +708,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 +821,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 +851,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 +876,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 +922,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 +950,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 +1003,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 +1015,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 +1087,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 +1111,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 +1124,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 +1148,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 +1161,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 +1177,7 @@ if $ARGS[0] = 'pos27':
 
 	if hour < 16:
 		act 'Teach':
-			cls
+			*clr & cla
 			minut += 60
 			pcs_mood -= 5
 
@@ -1243,7 +1250,7 @@ if $ARGS[0] = 'pos34':
 	temp = rand(1, 100)
 
 	if temp >= 90:
-		cls
+		*clr & cla
 		minut += 15
 		pcs_horny += 20
 		gs 'stat'
@@ -1282,7 +1289,7 @@ if $ARGS[0] = 'pos36':
 	temp = rand(1, 100)
 
 	if temp >= 90:
-		cls
+		*clr & cla
 		minut += 15
 		pcs_horny += 10
 		gs 'stat'
@@ -1308,7 +1315,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 +1347,7 @@ if $ARGS[0] = 'pos38':
 	temp = rand(1, 100)
 
 	if temp >= 90:
-		cls
+		*clr & cla
 		minut += 15
 		pcs_horny += 10
 		gs 'stat'
@@ -1353,7 +1360,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 +1405,7 @@ if $ARGS[0] = 'pos39':
 	temp = rand(1, 100)
 
 	if temp >= 90:
-		cls
+		*clr & cla
 		minut += 15
 		pcs_horny += 10
 		gs 'stat'
@@ -1540,25 +1547,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 +1584,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 +1602,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 +1626,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 +1766,7 @@ if $ARGS[0] = 'pos90':
 	end
 
 	act 'Leave':
-		cls
+		*clr & cla
 		gt 'etoexhib', 'pos24'
 	end
 end

locations/experiment.qsrc

@@ -1145,7 +1145,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.'
@@ -2285,7 +2285,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

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/foto.qsrc

@@ -2503,7 +2503,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/gadforest.qsrc

@@ -120,6 +120,13 @@ if $ARGS[0] = '1':
 		end
 	end
 
+	! Setup for teleport circle
+	if tpKnown['GadForest'] = 1:
+		act 'Enter the hidden circle of trees': gt 'treeCircle', 'GadForest'
+	else:
+		act 'Investigate a mysterious copse of trees': gt 'treeCircle', 'GadForest'
+	end
+
 	! 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 +212,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/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
@@ -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/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/hunter_favors.qsrc

@@ -414,14 +414,14 @@ end
 
 if $ARGS[0] = 'yard_bondage':
 	if $ARGS[1] = '':
-		yard_bound_temprand = rand(1,10)
+		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.'
+			'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'
@@ -431,14 +431,15 @@ if $ARGS[0] = 'yard_bondage':
 
 		hunter_sexual_comfort  += 1
 
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bound_outdoors_4.jpg"></center>'
+		'<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. Maybe shove their dick in your available ass or pussy and have their way, or fuck your mouth as if you are a blow-up doll...'
+	    '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', 2, 'bound', 'exhibitionism', 'sub'
+		gs 'arousal', 'flash', 5, 'bound', 'exhibitionism', 'sub'
 		gs 'arousal', 'end'
 
-		minut += 3
+		minut += 5
+		gs 'stat'
 
 		hunter_selector_temprand = rand(1,3)
 		if hunter_selector_temprand = 1:
@@ -450,22 +451,20 @@ if $ARGS[0] = 'yard_bondage':
 		end	
 
 		if yard_bound_temprand = 4:
-			act 'Further': gs 'hunter_favors', 'yard_bondage', 'passing_bj'
+			act 'Further': gt 'hunter_favors', 'yard_bondage', 'passing_bj'
 		elseif yard_bound_temprand = 5:
-			act 'Further': gs 'hunter_favors', 'yard_bondage', 'passing_fuck'
+			act 'Further': gt 'hunter_favors', 'yard_bondage', 'passing_fuck'
 		elseif yard_bound_temprand = 6:
-			act 'Further': gs 'hunter_favors', 'yard_bondage', 'clamp_fuck'
-		elseif yard_bound_temprand = 7:
-			act 'Further': gs 'hunter_favors', 'yard_bondage', 'quick_fuck'
+			act 'Further': gt 'hunter_favors', 'yard_bondage', 'clamp_fuck'
 		elseif yard_bound_temprand = 8:
-			act 'Further': gs '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'						
+			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	
-
-		act 'Wait': gt 'hunter_favors', 'yard_bondage'
 	end
 
 	if $ARGS[1] = 'lost_bet':
@@ -478,21 +477,21 @@ if $ARGS[0] = 'yard_bondage':
 
 		'<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 pussy starten to moisten as you feel the breeze on your bare skin.'
+		'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 <<$boy>> walking towards you. Without saying a word, he slackens your ties and pushes you down to your knees before tightening them back.'
+		'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'
 			
@@ -546,12 +545,13 @@ if $ARGS[0] = 'yard_bondage':
 	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 <<$boy>> 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 <<$boy>>''s cock fills your pussy'
+		'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'
@@ -570,12 +570,12 @@ if $ARGS[0] = 'yard_bondage':
 			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 <<$boy>>''s cock sliding inside you. You start pumping your hips to get more of his cock.'
+			'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
-			'<<$boy>> starts fucking you even harder before he buries his cock all the way to the hilt inside you.'
+			'<<$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, <<$boy>> gives your ass a fondle before walking away, leaving you hanging.'
+			'After catching his breath, <<$boydesc>> gives your ass a fondle before walking away, leaving you hanging.'
 
 			act 'Further': gt 'hunter_favors', 'yard_bondage'
 		end
@@ -593,65 +593,199 @@ if $ARGS[0] = 'yard_bondage':
 				gs 'stat'
 
 				'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bound_fucked1.jpg"></center>'
-				'You are pretty much overwhelmed by <<$boy>> pumping your pussy while you are bound helpless and naked like this.'
-				'You decide to give in to the sensations and enjoy being fucked like an absolute whore.'
+				'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, <<$boy>> zips up and walks away, leaving you with cum running down your legs.'
+				'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'
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bondage_clamps1.jpg"></center>'
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/bound_clamps_fuck.jpg"></center>'
+		gs 'pain', 6, 'pinch', 'nipples'
+		gs 'pain', 3, 'pinch', 'breasts'
 
-	end	
+		gs 'arousal', 'breasts', 5, 'rough', 'masochism', 'sub'
+		gs 'arousal', 'end'
+		gs 'stat'
 
-	if $ARGS[1] = 'quick_fuck':
-		gs 'boyStat', 'A174'
-		'<center><video autoplay loop src="images/locations/gadukino/sex/hunter/bound_fucked.mp4"></video></center>'
+		'<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'
 
-	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.'
 
-	if $ARGS[1] = 'unbound_fuck':
-		gs 'boyStat', 'A173'
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/unbound_fuck2.jpg"></center>'
-		'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/hunter/unbound_fuck1.jpg"></center>'
+			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_gangbang':
-	end
+	if $ARGS[1] = 'unbound_fuck':
+		cla & *clr
+		hunter_sexual_comfort += 15
+		hunter_collective_opinion += 15
 
-	if $ARGS[1] = 'bound_gangbang':
-	end
+		gs 'boyStat', 'A173'
 
-		
-		gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
-		gs 'arousal', 'vaginal', 20, 'sub', 'rough', 'group'
+		gs 'arousal', 'foreplay', 5, 'sub', 'exhibitionism'
+		gs 'arousal', 'kiss', 5, 'sub', 'exhibitionism'
 		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
+		'<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
-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

@@ -510,6 +510,13 @@ if $ARGS[0] = 'shooting_bet':
     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':
@@ -561,12 +568,12 @@ if $ARGS[0] = 'shooting_bet':
                 act 'Refuse':
                     cla 
 
-                    hunter_collective_opinion -= 10
+                    hunter_collective_opinion += 5
                     hunter_sexual_comfort -= 15
 
                     '"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 being silly together" he responds.'
-                    '"Besides, it is not fair to just back down from a bet liek that." he adds.'
+                    '"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
@@ -623,8 +630,11 @@ if $ARGS[0] = 'andrei_quick_fuck':
                 minut -= 10
                 
                 act 'Further':
-                    if $loc = 'swamp_yard': gt 'swamp_yard'
-                    if $loc = 'swamp_woods': gt 'swamp_woods', 'shooting_practice', 'practice'    
+                    if $loc = 'swamp_woods':
+                        gt 'swamp_woods', 'shooting_practice', 'practice'    
+                    else
+                        if $loc = 'swamp_yard': gt 'swamp_yard'
+                    end    
                 end
             end 
 		end
@@ -795,7 +805,7 @@ 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	

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

locations/lact_lib.qsrc

@@ -622,15 +622,18 @@ if $ARGS[0] = 'breastcycle':
 	!!	things that happen when Sveta is lactating lactation['active'] > 1
 		if lactation['milkgrowday'] < daystart:
 			!!	Lactation rate growth. The higher the lactationrate is, the slower it will grow. I have not found a study on this, so this is pure asumption and common sense.
+			!!	funny parabelfunction for the lactrategrowth > 65 - ((1/1466)*((lactrate-304)*(lactrate-304)))
+			lactation['prolactinlvl'] += (lactation['dailyoverdemand']/10000)
 			if lactation['dailyoverdemand'] > 0 and lactation['breastpumped'] >= 0:
-				if lactation['lactaterate'] > 350000:
-					lactation['lactaterate'] += (5*lactation['prolactinlvl'])/2
-				elseif lactation['lactaterate'] > 600000:
-					lactation['lactaterate'] += lactation['prolactinlvl']/2
+				lactation['max_lactrate_growth'] = (65 - ((((lactation['lactaterate']/1000) - 304)*((lactation['lactaterate']/1000) - 304))/1466))*1000
+				if lactation['max_lactrate_growth'] < ((10*lactation['prolactinlvl'])/2) and lactation['max_lactrate_growth'] >= 1000:
+					lactation['lactaterate'] += lactation['max_lactrate_growth']
+				elseif lactation['max_lactrate_growth'] < ((10*lactation['prolactinlvl'])/2) and lactation['max_lactrate_growth'] < 1000:
+					lactation['lactaterate'] += 1000
 				else
 					lactation['lactaterate'] += (10*lactation['prolactinlvl'])/2
 				end
-				prolactinlvl = 100
+				lactation['prolactinlvl'] = 100
 			elseif lactation['dailyoverdemand'] <= 0 and lactation['breastpumped'] > 0:
 			!!	If there was no milk overdemand, sveta will keep her lactationrate level.
 				lactation['prolactinlvl'] = 100

locations/lake.qsrc

@@ -54,7 +54,7 @@ if $ARGS[0] = 'start':
 			'Also you can sunbathe or swim.'
 
 			act 'Walk on the beach':
-				cls
+				cla & *clr
 				minut += 60
 				pcs_mood += 5
 				gs 'stat'
@@ -215,7 +215,7 @@ end
 if $ARGS[0] = 'aquapark':
 	$location_type = 'public_outdoors'
 	minut += 5
-	cls
+	cla & *clr
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/aquapark.jpg"></center>'
 	'You go to the attractions.'
@@ -226,7 +226,7 @@ end
 
 if $ARGS[0] = 'gidro':
 	$location_type = 'event_outdoors'
-	cls
+	cla & *clr
 	gs 'stat'
 	minut += 1
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/aquapark.jpg"></center>'
@@ -238,7 +238,7 @@ if $ARGS[0] = 'gidro':
 			pcs_mood += 10
 			pcs_willpwr += 10
 			money -= 100
-			cls
+			cla & *clr
 			minut += 30
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/gidro.jpg"></center>'
 			'You take a jet ski, and spend 30 minutes having loads of fun.'
@@ -256,7 +256,7 @@ end
 
 if $ARGS[0] = 'banan':
 	$location_type = 'event_outdoors'
-	cls
+	cla & *clr
 	gs 'stat'
 	minut += 1
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/aquapark.jpg"></center>'
@@ -267,7 +267,7 @@ if $ARGS[0] = 'banan':
 		act 'Go for a ride (100 <b>₽</b>)':
 			pcs_mood += 10
 			pcs_willpwr += 10
-			cls
+			cla & *clr
 			minut += 30
 			money -= 100
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/banan.jpg"></center>'
@@ -286,7 +286,7 @@ end
 
 if $ARGS[0] = 'gorka':
 	$location_type = 'event_outdoors'
-	cls
+	cla & *clr
 	gs 'stat'
 	minut += 1
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/aquapark.jpg"></center>'
@@ -297,7 +297,7 @@ if $ARGS[0] = 'gorka':
 		act 'Go for a ride (50 <b>₽</b>)':
 			pcs_mood += 10
 			pcs_willpwr += 10
-			cls
+			cla & *clr
 			minut += 15
 			money -= 50
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/gorka.jpg"></center>'
@@ -312,7 +312,7 @@ end
 
 if $ARGS[0] = 'horse':
 	$location_type = 'event_outdoors'
-	cls
+	cla & *clr
 	gs 'stat'
 	minut += 1
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/horse0.jpg"></center>'
@@ -323,7 +323,7 @@ if $ARGS[0] = 'horse':
 		act 'Go for a ride (100 <b>₽</b>)':
 			pcs_mood += 10
 			pcs_willpwr += 10
-			cls
+			cla & *clr
 			minut += 30
 			money -= 100
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/horse.jpg"></center>'
@@ -351,7 +351,7 @@ if $ARGS[0] = 'walklake1':
 	$dinribak = {
 		gs 'boyStat', 'A177'
 		act 'Leave the idiot alone':
-			cls
+			cla & *clr
 			minut += 2
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk1/walk1.jpg"></center>'
@@ -360,7 +360,7 @@ if $ARGS[0] = 'walklake1':
 			act 'Leave':gt 'lake', 'start'
 
 			act 'Money first':
-				cls
+				cla & *clr
 				minut += 2
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk1/walk1.jpg"></center>'
@@ -370,7 +370,7 @@ if $ARGS[0] = 'walklake1':
 				act 'Change your mind and leave':gt 'lake', 'start'
 
 				act 'Take the money':
-					cls
+					cla & *clr
 					minut += 2
 					money += 2000
 
@@ -387,7 +387,7 @@ if $ARGS[0] = 'walklake1':
 					'Time slows to a halt and you have start to think that this torment will never end, when the guy pulls his cock out of your mouth.'
 
 					act '...':
-						cls
+						cla & *clr
 						minut += 2
 						sub += 1
 						sexvolume = 35
@@ -402,7 +402,7 @@ if $ARGS[0] = 'walklake1':
 						'The guy starts to cum on your face, a jet of his semen flies into your mouth and you feel awful taste of his sperm.'
 
 						act 'Wait for the man':
-							cls
+							cla & *clr
 							minut += 2
 							sub += 1
 							$ribakName = 'whore'
@@ -418,7 +418,7 @@ if $ARGS[0] = 'walklake1':
 		end
 
 		act 'Go closer':
-			cls
+			cla & *clr
 			minut += 2
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk1/walk1.jpg"></center>'
@@ -427,7 +427,7 @@ if $ARGS[0] = 'walklake1':
 			act 'Faint compliance then run':gt 'lake', 'start'
 
 			act 'Kneel in front of the guy':
-				cls
+				cla & *clr
 				minut += 2
 
 				if ribakSex = 0:ribakSex = 1 & guy += 1
@@ -443,7 +443,7 @@ if $ARGS[0] = 'walklake1':
 				'"Open your fucking mouth," Growls the man "and stick out your tongue."'
 
 				act 'Comply':
-					cls
+					cla & *clr
 					minut += 2
 					sub += 1
 					sexvolume = 35
@@ -458,7 +458,7 @@ if $ARGS[0] = 'walklake1':
 					'You obediently open your mouth and stick out your tongue. Immediately you are slapped in the face with a jet of sperm. Then another and another, covering your face. The sperm gets into your mouth and you feel its nasty taste.'
 
 					act 'Wait for the man':
-						cls
+						cla & *clr
 						minut += 2
 						sub += 1
 						swallow += 1
@@ -467,7 +467,7 @@ if $ARGS[0] = 'walklake1':
 						'Your face is dripping with semen, you feel no taste in your mouth and look at the guy. The guy smile and with his finger collects some sperm from your face. Then he puts his finger in your mouth causing you to lick sperm. When his finger is clean, he gathers the remnants of sperm from your face on his finger and stuck it back in your mouth. Once again you suck his finger and swallow cum.'
 
 						act 'Wait for the man':
-							cls
+							cla & *clr
 							minut += 2
 							sub += 1
 							$ribakName = 'lowered whore'
@@ -481,7 +481,7 @@ if $ARGS[0] = 'walklake1':
 				end
 
 				act 'Try to move out of the way':
-					cls
+					cla & *clr
 					minut += 2
 					spafinloc = 11
 					gs 'cum_manage'
@@ -500,7 +500,7 @@ if $ARGS[0] = 'walklake1':
 		act 'Leave':gt 'lake', 'start'
 
 		act 'Approach':
-			cls
+			cla & *clr
 			minut += 2
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk1/walk1.jpg"></center>'
@@ -518,14 +518,14 @@ if $ARGS[0] = 'walklake1':
 
 			if pcs_apprnc >= 60:
 				act 'What do you want?':
-					cls
+					cla & *clr
 					minut += 2
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk1/walk1.jpg"></center>'
 					'You asked what the guy wants. The guy looks at you again with a smirk. "You have written on his face that you are a whore. Here to earn your living?"'
 
 					act 'How dare you? (Troubled)':
-						cls
+						cla & *clr
 						minut += 2
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk1/walk1.jpg"></center>'
@@ -534,7 +534,7 @@ if $ARGS[0] = 'walklake1':
 					end
 
 					act 'What? (Wonder)':
-						cls
+						cla & *clr
 						minut += 2
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk1/walk1.jpg"></center>'
@@ -543,7 +543,7 @@ if $ARGS[0] = 'walklake1':
 					end
 
 					act 'hmm (thinking)':
-						cls
+						cla & *clr
 						minut += 2
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk1/walk1.jpg"></center>'
@@ -560,7 +560,7 @@ if $ARGS[0] = 'walklake1':
 
 		if $ribakName = 'whore':
 			act 'Two pieces!':
-				cls
+				cla & *clr
 				minut += 2
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk1/walk1.jpg"></center>'
@@ -569,7 +569,7 @@ if $ARGS[0] = 'walklake1':
 				act 'Leave':gt 'lake', 'start'
 
 				act 'Take the money':
-					cls
+					cla & *clr
 					minut += 2
 					money += 2000
 					ribakSex += 1
@@ -584,7 +584,7 @@ if $ARGS[0] = 'walklake1':
 					'Time slows to a halt and you have start to think that this torment will never end, when the guy pulls his cock out of your mouth.'
 
 					act '...':
-						cls
+						cla & *clr
 						minut += 2
 						sub += 1
 						sexvolume = 35
@@ -599,7 +599,7 @@ if $ARGS[0] = 'walklake1':
 						'The guy starts to cum on your face, a jet of his semen flies into your mouth and you feel awful taste of his sperm.'
 
 						act 'Wait for the man':
-							cls
+							cla & *clr
 							minut += 2
 							sub += 1
 							$ribakName = 'whore'
@@ -614,7 +614,7 @@ if $ARGS[0] = 'walklake1':
 			end
 		elseif $ribakName ! 'whore':
 			act 'Kneel in front of the man':
-				cls
+				cla & *clr
 				minut += 2
 				ribakSex += 1
 				stat['bj'] += 1
@@ -628,7 +628,7 @@ if $ARGS[0] = 'walklake1':
 				'"Open your fucking mouth," Growls the man "and stick out your tongue."'
 
 				act 'Comply':
-					cls
+					cla & *clr
 					minut += 2
 					sub += 1
 					sexvolume = 35
@@ -643,7 +643,7 @@ if $ARGS[0] = 'walklake1':
 					'You obediently open your mouth and stick out your tongue. Immediately you are slapped in the face with a jet of sperm. Then another and another, covering your face. The sperm gets into your mouth and you feel its nasty taste.'
 
 					act 'Wait for the man':
-						cls
+						cla & *clr
 						minut += 2
 						sub += 1
 						swallow += 1
@@ -652,7 +652,7 @@ if $ARGS[0] = 'walklake1':
 						'Your face is dripping with semen, you feel no taste in your mouth and look at the guy. The guy smile and with his finger collects some sperm from your face. Then he puts his finger in your mouth causing you to lick sperm. When his finger is clean, he gathers the remnants of sperm from your face on his finger and stuck it back in your mouth. Once again you suck his finger and swallow cum.'
 
 						act 'Wait for the man':
-							cls
+							cla & *clr
 							minut += 2
 							sub += 1
 							$ribakName = 'lowered whore'
@@ -666,7 +666,7 @@ if $ARGS[0] = 'walklake1':
 				end
 
 				act 'Try to move out of the way':
-					cls
+					cla & *clr
 					minut += 2
 					spafinloc = 11
 					gs 'cum_manage'
@@ -740,200 +740,35 @@ if $ARGS[0] = 'walklake2':
 
 	act 'Leave':gt 'lake', 'start'
 
-	$din_stasValera4 = {
-		act 'Relax':
-			cls
-			minut += 2
-			pcs_horny += 20
-
-			npc_sex['A50'] += 1
-			if ValeraSex = 0:ValeraSex = 1 & guy += 1
-
-			StVaGang = 1
-			gang += 1
-			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/lake.jpg"></center>'
-			'You are relaxed and begin to enjoy the caressing of your breasts and pussy.'
-			gs 'boyStat', 'A47'
-			pose = 0
-			sexpartkno = 1
-			dynamic $sexstart
-			'You feel ready as Stasik holding your feet, spreads your legs and brings his hard penis down to your soft pussy.'
-			gs 'dinsex','vaginal_sex',10
-			'While you fuck Stasik, Valera slumps to your face and brings his erect cock to your lips.'
-			gs 'boyStat', 'A48'
-			stat['bj'] += 1
-			dynamic $dinrandbj
-			gs 'boyStat', 'A47'
-			gs 'dinsex','sexcum'
-			'Valera groans and his cock shudders in your mouth.'
-			swallow += 1
-			gs 'boyStat', 'A48'
-			sexpartkno = 1
-			spafinloc = 12
-			gs 'cum_manage'
-			gs 'dinsex','dinrandswallow'
-
-			act 'Further':
-				cls
-				minut += 2
-				gs 'stat'
-				'The tired men dismount and help dress you as they dress themselves. Stasik lifts you back on to your feet, "You''re a cool girl <<$pcs_nickname>>, let us walk you home."'
-
-				act 'I''ll manage':
-					cls
-					minut += 2
-					gs 'stat'
-					'You refuse and Stasik shrugs, "Well, as you wish."'
-
-					act 'Leave':gt 'lake', 'start'
-				end
-
-				act 'Agree':
-					cls
-					minut += 5
-					cumface = 0
-					StasValeraKnow = 1
-					gs 'stat'
-					if $clothingworntype = 'swimwear':
-						gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
-						'You go to the changing room and quickly get out of your swimwear and dress in your regular clothes.'
-					end
-					'The boys walk either side of you like bodyguards as you make your way home. Along the way they keep silent, even the more sprightly Stasik seems to be at a loss for words. Finally you stop before the door of your apartment. You say goodbye to the guys and they go.'
-
-					act 'Leave':gt 'korr'
-				end
-			end
-		end
-	}
-
-	$din_stasValera3 = {
-		act 'Further':
-			cls
-			minut += 2
-			pcs_horny += 20
-			gs 'stat'
-			'You are relaxed and begin to enjoy the sensations in your chest arising from Stasiks touching. With a well honed movement he lowers the cups of your bra freeing your breasts. You do not have time to blink as Stasiks lips cover your nipple.'
-
-			act 'Hey! What are you doing?':
-				cls
-				minut += 2
-				gs 'stat'
-				'You jump to your feet adjusting your bra. Stasik smiles, "Do not be afraid girl."'
-
-				act 'Leave':gt 'lake', 'start'
-			end
-
-			act 'Feebly protest':
-				cls
-				minut += 2
-				pcs_horny += 20
-				gs 'stat'
-				'You try to pull your bra back and whisper, "No." Stasik smiles, "Do not be shy girl."'
-				dynamic $din_stasValera4
-			end
-
-			act 'Be silent':
-				cls
-				minut += 2
-				pcs_horny += 30
-				gs 'stat'
-				'You get comfortable enjoying the skillful way Staik sucks your breast, his hands begin to passionately caress your body. His strong fingers penetrate your panties and began to caress your pussy.'
-				dynamic $din_stasValera4
-			end
-		end
-	}
-
-	$din_stasValera2 = {
-		act 'Remove Stasiks hands from you':
-			cls
-			minut += 2
-			gs 'stat'
-			'You angrily remove his hands from your body. Stasik grins, "C''mon baby, relax."'
-
-			act 'Rebel and go':
-				cls
-				minut += 2
-				gs 'stat'
-				'You angrily stand up and began to leave. Stasik gets to his feet and tries to persuade you to go with the guys to the cafe.'
-
-				act 'Leave':gt 'lake', 'start'
-			end
-
-			act 'Keep silent':
-				cls
-				minut += 2
-				pcs_horny += 20
-				gs 'stat'
-				'You say nothing and Stasik immediately takes advantage of your confusion. His hands gently squeeze your chest and you feel a pleasant warmth and tenderness from your breasts being stimulated.'
-				dynamic $din_stasValera3
-			end
-		end
-
-		act 'Smile and pretend nothing is happening.':
-			cls
-			minut += 2
-			pcs_horny += 20
-			gs 'stat'
-			'You start to smile, feeling a Stasiks touch excite you. You close your eyes for a moment and suddenly feel a hand on your chest. You open your eyes in surprise and see how completely unflappable Stasik is squeezing your chest with a dreamy smile on his face.'
-			dynamic $din_stasValera3
-		end
-	}
-
-	$din_stasValera = {
-		act '<<$pcs_nickname>>':
-			cls
-			minut += 2
-			gs 'stat'
-			'You tell Stasik that your name is <<$pcs_nickname>>. He smiles even wider and says, "Nice to meet you." Valera also comes over and says hello to you. The men settle on the shore near you.'
-
-			act 'Lie on the sand':
-				cls
-				minut += 2
-				pcs_horny += 15
-				gs 'stat'
-				'You lay down on the sand and the men settle on either side of you. Stasik begins to tell you that he works with Valera as sales representatives of a major company, and boasts about their seniority and importance. Without breaking conversation, Stasik puts his hand on your stomach and begins stroking.'
-				dynamic $din_stasValera2
-			end
-
-			act 'Sit on the sand':
-				cls
-				minut += 2
-				pcs_horny += 15
-				gs 'stat'
-				'You sat down on the sand and the men settle on either side of you. Stasik begins to tell you that he works with Valera as sales representatives of a major company, and boasts about their seniority and importance. Without breaking conversation, Stasik puts his hand on your ass and starts stroking.'
-				dynamic $din_stasValera2
-			end
-		end
-	}
-
 	if StasikValera = 0:
 		act 'Look at them':
-			cls
+			cla & *clr
 			minut += 1
 			StasikValera = 1
 			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/stasValera.jpg"></center>'
 			'You look at the men and notice that they are whispering to each other. Then one of the men comes up to you. He says smiling, "Hey beautiful, I am Stasik, and this is my friend Valera. What''s your name?"'
-			dynamic $din_stasValera
+			act '<<$pcs_nickname>>': gt 'lake', 'stasValera'
 
-			act 'I have to go.':
-				cls
+			act 'I have to go':
+				cla & *clr
 				minut += 1
 				gs 'stat'
 				'You''re not going to get acquainted with these fellows and began to leave. Stasik tries to persuade you. "Come on, babe. Do we look like savages? We just wanted to talk, but I understand if you''re frightened. I just wanted to ask you your name."'
-				dynamic $din_stasValera
+				act '<<$pcs_nickname>>': gt 'lake', 'stasValera'
 
 				act 'Leave':gt 'lake', 'start'
 			end
 		end
 	end
 
-	if npc_sex['A50'] > 0 or ValeraSex > 0:
+	if npc_sex['A48'] > 0:
+		npc_sex['A48'] += 1
+		npc_sex['A49'] += 1
 		act 'Wave to them':
 			cla
 			*clr
 			!!guy += 2
-			dynamic $venerasiak
 			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk2/walk2.jpg"></center>'
 			'Looking directly at them you pull off your panties and wave to them. The men almost run toward you, you threw off the rest and kneel.'
 
@@ -941,7 +776,6 @@ if $ARGS[0] = 'walklake2':
 				cla
 				*clr
 				stat['bj'] += 1
-				dynamic $venerasiakOral
 				'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/walk2/walk3.jpg"></center>'
 				'the men unbutton their pants as they run to you, you take their members alternately sucking one then the other. One of the men roughly grabs your ass and tries to put you on all fours.'
 
@@ -1023,6 +857,175 @@ if $ARGS[0] = 'walklake2':
 	end
 end
 
+if $ARGS[0] = 'stasValera':
+	cla & *clr
+	minut += 2
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/talk1.jpg"></center>'
+	'You tell Stasik that your name is <<$pcs_nickname>>. He smiles even wider and says, "Nice to meet you." Valera also comes over and says hello to you. The men stand by the shore near you.'
+
+	act 'Chat with them':
+		cla & *clr
+		minut += 2
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/talk6.jpg"></center>'
+		'You stand aroundtalking to the men. Stasik begins to tell you that he works with Valera as sales representatives of a major company, and boasts about their seniority and importance. Throughout the conversation, both men are making lewd gestures and Stasik moves his hand to your chest.'
+		act 'Remove Stasik''s hands from you': gt 'lake', 'stasValera2a'
+		act 'Smile and pretend nothing is happening': gt 'lake', 'stasValera2b'
+	end
+end
+
+if $ARGS[0] = 'stasValera2a':
+	cla & *clr
+	minut += 2
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/refuse1.jpg"></center>'
+	'You angrily remove his hands from your body. Stasik grins, "C''mon baby, relax."'
+
+	act 'Rebel and go':
+		cla & *clr
+		minut += 2
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/refuse3.jpg"></center>'
+		'You angrily stand up and began to leave. Stasik gets to his feet and tries to persuade you to go with the guys to the cafe.'
+
+		act 'Leave':gt 'lake', 'start'
+	end
+
+	act 'Keep silent':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/tits1.jpg"></center>'
+		'You say nothing and Stasik immediately takes advantage of your confusion. His hands gently squeeze your chest and you feel a pleasant warmth and tenderness from your breasts being stimulated.'
+		gs 'arousal', 'foreplay', 5
+		minut -= 3
+		gs 'stat'
+		act 'Further': gt 'lake', 'stasValera3'
+	end
+end
+
+if $ARGS[0] = 'stasValera2b':
+	cla & *clr
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/tits1.jpg"></center>'
+	'You start to smile, feeling a Stasiks touch excite you. You close your eyes for a moment and suddenly feel a hand on your chest. You open your eyes in surprise and see how completely unflappable Stasik is squeezing your chest with a dreamy smile on his face.'
+	gs 'arousal', 'foreplay', 5
+	minut -= 3
+	gs 'stat'
+	act 'Further': gt 'lake', 'stasValera3'
+end
+
+if $ARGS[0] = 'stasValera3':
+	cla & *clr
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/tits2.jpg"></center>'
+	'You are relaxed and begin to enjoy the sensations in your chest arising from Stasiks touching. With a well honed movement he lowers the cups of your bra freeing your breasts. You do not have time to blink as Stasiks lips cover your nipple.'
+	gs 'arousal', 'foreplay', 5
+	minut -= 3
+	gs 'stat'
+
+	act 'Hey! What are you doing?':
+		cla & *clr
+		minut += 2
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/refuse4.jpg"></center>'
+		'You jump to your feet adjusting your bra. Stasik smiles, "Do not be afraid girl."'
+
+		act 'Leave':gt 'lake', 'start'
+	end
+
+	act 'Feebly protest':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/talk5.jpg"></center>'
+		'You try to pull your bra back and whisper, "No." Stasik smiles, "Do not be shy girl."'
+		gs 'arousal', 'foreplay', 5
+		minut -= 3
+		gs 'stat'
+		act 'Relax': gt 'lake', 'stasValera4'
+	end
+
+	act 'Be silent':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/tits3.jpg"></center>'
+		'You get comfortable enjoying the skillful way Staik sucks your breast, his hands begin to passionately caress your body. His strong fingers penetrate your panties and began to caress your pussy.'
+		gs 'arousal', 'foreplay', 5
+		minut -= 3
+		gs 'stat'
+		act 'Relax': gt 'lake', 'stasValera4'
+	end
+end
+
+if $ARGS[0] = 'stasValera4':
+	cla & *clr
+
+	npc_sex['A48'] += 1
+	npc_sex['A49'] += 1
+	guy += 2
+	gang += 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/oral<<rand(1,6)>>.jpg"></center>'
+	'The guys pull out they cocks and you kneel down to get them warmed up. It doesn''t take long before you are in the mood for more and it is clear they are too.'
+	gs 'arousal', 'bj', 5
+	minut -= 3
+	gs 'stat'
+	act 'Get fucked':
+		gs 'boyStat', 'A47'
+		'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/sex<<rand(7,9)>>.jpg"></center>'
+		'You feel ready as Stasik holding your feet, spreads your legs and brings his hard penis down to your soft pussy.'
+		gs 'dinsex','vaginal_sex',10
+		act 'Don''t forget Valera':
+			'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/sex<<rand(1,6)>>.jpg"></center>'
+			'While you fuck Stasik, Valera slumps to your face and brings his erect cock to your lips.'
+			gs 'boyStat', 'A48'
+			dynamic $dinrandbj
+			gs 'boyStat', 'A47'
+			pose = 1
+			gs 'dinsex','sexcum'
+			act 'Finish Valera off':
+				'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/sex<<cum(1,4)>>.jpg"></center>'
+				'Valera groans and his cock shudders in your mouth.'
+				swallow += 1
+				gs 'boyStat', 'A48'
+				gs 'cum_call', 'mouth' 'A48', 1
+				gs 'arousal', 'bj', 5
+				gs 'dinsex','dinrandswallow'
+
+				act 'Further':
+					cla & *clr
+					minut += 2
+					gs 'arousal', 'end'
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/undress.jpg"></center>'
+					'The tired men dismount and help dress you as they dress themselves. Stasik lifts you back on to your feet, "You''re a cool girl <<$pcs_nickname>>, let us walk you home."'
+
+					act 'I''ll manage':
+						cla & *clr
+						minut += 2
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/refuse2.jpg"></center>'
+						'You refuse and Stasik shrugs, "Well, as you wish."'
+
+						act 'Leave':gt 'lake', 'start'
+					end
+
+					act 'Agree':
+						cla & *clr
+						minut += 5
+						cumface = 0
+						StasValeraKnow = 1
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/locations/city/residential/lake/sex/stas/stasValera.jpg"></center>'
+						if $clothingworntype = 'swimwear':
+							gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
+							'You go to the changing room and quickly get out of your swimwear and dress in your regular clothes.'
+						end
+						'The boys walk either side of you like bodyguards as you make your way home. Along the way they keep silent, even the more sprightly Stasik seems to be at a loss for words. Finally you stop before the door of your apartment. You say goodbye to the guys and they go.'
+
+						act 'Leave':gt 'korr'
+					end
+				end
+			end
+		end
+	end
+end
+
 if $ARGS[0] = 'vlake1':
 	$location_type = 'event_outdoors'
 	cla

locations/lug.qsrc

@@ -122,6 +122,13 @@ if $ARGS[0] = 'prut2':
         gt 'lug', 'prut'
     end
 
+	! Setup for teleport circle
+	if tpKnown['PushkinPark'] = 1:
+		act 'Enter the hidden circle of trees': gt 'treeCircle', 'PushkinPark'
+	else:
+		act 'Investigate a mysterious copse of trees': gt 'treeCircle', 'PushkinPark'
+	end
+
 	if MagikDostup ! 1 and rand (1, 4) <= pcs_magik and (hour <=6 or hour >=19):
 		if knowsfairy < 1 and fairyskip = 0:
 			$metka = 'prut2'

locations/mod_setting.qsrc

@@ -48,7 +48,7 @@ act ''+iif(settingmode = 1, '<center><b>Install new mod</b></center>','Install n
 	killvar 'mod_info'
 	$mod_temp=input('input mod name (as for the example image above, input <B>isample</B>)')
 	if $mod_temp='':exit
-	ADDQST 'mod/<<$mod_temp>>.qsp'
+	addqst 'mod/<<$mod_temp>>.qsp'
 	gs 'mod_<<$mod_temp>>_setup'
 	if $mod_info[0] = '':
 		msg '<b><<$mod_temp>>.qsp</b> is not a Girl life ECV mod, please contract its author for help'
@@ -59,19 +59,19 @@ act ''+iif(settingmode = 1, '<center><b>Install new mod</b></center>','Install n
 	$mod_version[mod_list] = $mod_info[1]
 	$mod_author[mod_list] = $mod_info[2]
 	$mod_desc[mod_list] = $mod_info[3]
-	gt curloc
+	gt $loc, $metka
 end
 act ''+iif(settingmode = 1, '<center><b>Disable all mods</b></center>','Disable all mods')+'':
 	if input('Are you sure? ALL mod will be disabled!<br>please input <b>qqq</B> to confirm') = 'qqq':
-		KILLQST
+		killqst
 		set mod_list=0
-		KILLVAR '$mod_name'
-		KILLVAR '$mod_version'
-		KILLVAR '$mod_author'
-		KILLVAR '$mod_desc'
+		killvar '$mod_name'
+		killvar '$mod_version'
+		killvar '$mod_author'
+		killvar '$mod_desc'
 		'All mod disabled. You can re-install them later.'
 		cla
-		act 'Continue':goto curloc
+		act 'Continue':gt $loc, $metka
 	end
 end
 --- mod_setting ---------------------------------

locations/mother.qsrc

@@ -753,8 +753,8 @@ end
 if $ARGS[0] = 'pregreact':
 	menu_off = 1
 	*nl
-	if pregTalkFamily = 0 and pregtalkmom = 0 and kid = 0:
-		if ($clothingworntype = 'nude' and pregtime > 90) or ($clothingworntype ! 'nude' and pregtime > 150):
+	if pregTalkFamily = 0 and npc_pregtalk['A29'] = 0 and kid = 0:
+		if ($clothingworntype = 'nude' and pregchem > 2688) or ($clothingworntype ! 'nude' and pregchem > 3600):
 			cla
 			gs 'stat'
 			minut += 5
@@ -763,19 +763,19 @@ if $ARGS[0] = 'pregreact':
 			if $clothingworntype ! 'nude':
 				'"I do want to know who the father is, though."'
 
-				act 'Tell her':pregTalkFamily = 1 & pregTalkMom = 1 & gt 'mother', 'pregreact1'
+				act 'Tell her':pregTalkFamily = 1 & npc_pregtalk['A29'] = 1 & gt 'mother', 'pregreact1'
 			elseif $clothingworntype = 'nude':
 				'"And go put on some clothes and then come back to talk to me. I need you to tell me who the father is"'
 
-				act 'Go get dressed':pregTalkFamily = 1 & pregTalkMom = 1 & gt 'mother', 'pregreactnude'
+				act 'Go get dressed':pregTalkFamily = 1 & npc_pregtalk['A29'] = 1 & gt 'mother', 'pregreactnude'
 			end
-		elseif knowpreg = 1 and $clothingworntype ! 'nude' and pregtime <= 150:
+		elseif knowpreg = 1 and $clothingworntype ! 'nude' and pregchem <= 3600:
 			act 'Tell your mother you are pregnant':
 				*clr & cla
 				minut += 5
 				npc_rel['A29'] -= 20
 				pregTalkFamily = 1
-				pregtalkmom = 1
+				npc_pregtalk['A29'] = 1
 				delin_beh += 1 &!counter for getting sent to Gadukino for the summer
 				if motherKnowSpravka = 0:motherKnowSpravka = 1
 				gs 'stat'
@@ -787,15 +787,15 @@ if $ARGS[0] = 'pregreact':
 				'"Of course you can sweetie, we''ll get through this together", she reassures you, returning your hug. Despite her supportive attitude, you can tell she''s very disappointed in you. You''ll have to put in some work if you want to get back on her good side.'
 				'"So, who''s the father?"'
 
-				act 'Tell her':pregTalkFamily = 1 & pregTalkMom = 1 & gt 'mother', 'pregreact1'
+				act 'Tell her':pregTalkFamily = 1 & npc_pregtalk['A29'] = 1 & gt 'mother', 'pregreact1'
 			end
-		elseif knowpreg = 1 and $clothingworntype = 'nude' and pregtime <= 90:
+		elseif knowpreg = 1 and $clothingworntype = 'nude' and pregchem <= 2688:
 			act 'Tell your mother you are pregnant':
 				*clr & cla
 				minut += 5
 				npc_rel['A29'] -= 20
 				pregTalkFamily = 1
-				pregtalkmom = 1
+				npc_pregtalk['A29'] = 1
 				delin_beh += 1 &!counter for getting sent to Gadukino for the summer
 				if motherKnowSpravka = 0:motherKnowSpravka = 1
 				gs 'stat'
@@ -808,7 +808,7 @@ if $ARGS[0] = 'pregreact':
 
 				'"And go put on some clothes and then come back to talk to me. I need you to tell me who the father is."'
 
-				act 'Go get dressed':pregTalkFamily = 1 & pregTalkMom = 1 & gt 'mother', 'pregreactnude'
+				act 'Go get dressed':pregTalkFamily = 1 & npc_pregtalk['A29'] = 1 & gt 'mother', 'pregreactnude'
 			end
 		end
 	end
@@ -904,7 +904,7 @@ end
 !!When Sveta has another place to stay in Pav, there will be a follow-up to this conversation that restores access to the family apartment, if <<$npc_nickname[''A29'']>> relationship is high enough.
 if $ARGS[0] = 'pregreactbrother':
 	menu_off = 1
-	if npc_rel['A29'] < 60 and pregtalkbrother = 1 and brothersecret = 0:
+	if npc_rel['A29'] < 60 and npc_pregtalk['A34'] = 1 and brothersecret = 0:
 		'As soon as your brother''s name crosses your lips, your mother''s face visibly reddens. Her mouth curls into a snarl and she reaches up and grips you by your hair. '
 		'"What the fuck is wrong with you?" she screams in your face. "I knew you were a worthless whore, but this? Even I didn''t think you’d go so far as to try corrupting your brother, too."'
 		'Kolka tries to speak up. "<<$npc_nickname[''A29'']>>, <<$pcs_nickname>>-"'
@@ -928,7 +928,7 @@ if $ARGS[0] = 'pregreactbrother':
 
 			act 'Continue':momKnowsKolka = 1 & home_owned[2] = 0 & ParHomeBlock = 1 & minut += 15 & gt 'pod_ezd', 'etaj_2'
 		end
-	elseif npc_rel['A29'] >= 60 and npc_rel['A29'] <= 80 and pregtalkbrother = 1 and brothersecret = 0:
+	elseif npc_rel['A29'] >= 60 and npc_rel['A29'] <= 80 and npc_pregtalk['A34'] = 1 and brothersecret = 0:
 		'Before you can even finish the second syllable of your brother''s name, you see the rage building in your mother''s face. She balls her fists and visibly shakes, making it clear that she is using all of her strength to stop herself from transferring that strength from her open palm to your face.. '
 		'When she finally speaks, it''s through gritted teeth, and she just says "Get out."'
 		'You stare at her dumbfounded, unsure where she expects you to go.'
@@ -947,7 +947,7 @@ if $ARGS[0] = 'pregreactbrother':
 
 			act 'Continue':momKnowsKolka = 1 & home_owned[2] = 0 & ParHomeBlock = 1 & minut += 15 & gt 'pod_ezd', 'etaj_2'
 		end
-	elseif npc_rel['A29'] > 80 and pregtalkbrother = 1 and brothersecret = 0:
+	elseif npc_rel['A29'] > 80 and npc_pregtalk['A34'] = 1 and brothersecret = 0:
 		'Your mother stares in stunned silence as you utter Kolka''s name. Her knees seem to give out, and she barely manages to hold herself up by leaning on the counter.'
 		'After several moments of silence that feel like an eternity, your mother says "Please tell me I just misheard you. Did you really just say your brother''s name?"'
 		'You stare at the floor, only giving your mother the smallest nod you can manage as a reply.'
@@ -976,7 +976,7 @@ if $ARGS[0] = 'pregreactbrother':
 
 			act 'Continue':momKnowsKolka = 1 & home_owned[2] = 0 & ParHomeBlock = 1 & minut += 15 & gt 'pod_ezd', 'etaj_2'
 		end
-	elseif npc_rel['A29'] < 60 and (pregtalkbrother = 0 or brothersecret = 1):
+	elseif npc_rel['A29'] < 60 and (npc_pregtalk['A34'] = 0 or brothersecret = 1):
 		'As soon as your brother''s name crosses your lips, your mother''s face visibly reddens. Her mouth curls into a snarl and she reaches up and grips you by your hair. '
 		'"What the fuck is wrong with you?" she screams in your face. "I knew you were a worthless whore, but this? Even I didn''t think you’d go so far as to try corrupting your brother, too."'
 		'Your mother releases your hair as tears begin to stream down your face.'
@@ -996,7 +996,7 @@ if $ARGS[0] = 'pregreactbrother':
 
 			act 'Continue':momKnowsKolka = 1 & home_owned[2] = 0 & ParHomeBlock = 1 & minut += 15 & gt 'pod_ezd', 'etaj_2'
 		end
-	elseif npc_rel['A29'] >= 60 and npc_rel['A29'] <= 80 and (pregtalkbrother = 0 or brothersecret = 1):
+	elseif npc_rel['A29'] >= 60 and npc_rel['A29'] <= 80 and (npc_pregtalk['A34'] = 0 or brothersecret = 1):
 		'Before you can even finish the second syllable of your brother''s name, you see the rage building in your mother''s face. She balls her fists and visibly shakes, making it clear that she is using all of her strength to stop herself from transferring that strength from her open palm to your face.. '
 		'When she finally speaks, it''s through gritted teeth, and she just says "Get out."'
 		'You stare at her dumbfounded, unsure where she expects you to go.'
@@ -1014,7 +1014,7 @@ if $ARGS[0] = 'pregreactbrother':
 
 			act 'Continue':momKnowsKolka = 1 & home_owned[2] = 0 & ParHomeBlock = 1 & minut += 15 & gt 'pod_ezd', 'etaj_2'
 		end
-	elseif npc_rel['A29'] > 80 and (pregtalkbrother = 0 or brothersecret = 1):
+	elseif npc_rel['A29'] > 80 and (npc_pregtalk['A34'] = 0 or brothersecret = 1):
 		'Your mother stares in stunned silence as you utter Kolka''s name. Her knees seem to give out, and she barely manages to hold herself up by leaning on the counter.'
 		'After several moments of silence that feel like an eternity, your mother says "Please tell me I just misheard you. Did you really just say your brother''s name?"'
 		'You stare at the floor, only giving your mother the smallest nod you can manage as a reply.'
@@ -1044,7 +1044,7 @@ end
 !!When Sveta has another place to stay in Pav, there will be a follow-up to this conversation that restores access to the family apartment, if <<$npc_nickname[''A29'']>> relationship is high enough.
 if $ARGS[0] = 'pregreactstepdad':
 	menu_off = 1
-	if npc_rel['A29'] < 60 and pregtalkstepdad = 1 and stepdadSecret = 0:
+	if npc_rel['A29'] < 60 and npc_pregtalk['A28'] = 1 and stepdadSecret = 0:
 		'As soon as your step-father''s name crosses your lips, your mother''s face visibly reddens. Her mouth curls into a snarl and she reaches up and grips you by your hair and starts draging you around.'
 		'"What the fuck is wrong with you?" she screams in your face. "I know you are a worthless whore, but this? Even I didn''t think you''d stoop this low as seducting your own step-father... What kind of sick people are you two?"'
 		'Vladimir begins clearing his throat, "Honey, <<$pcs_nickname>> and I-"'
@@ -1068,7 +1068,7 @@ if $ARGS[0] = 'pregreactstepdad':
 			'It''s too late to look for an apartment today. Instead you decide to look for a place to sleep tonight. You''ll need to go apartment hunting first thing tomorrow.'
 			act 'Continue':momKnowsVladimir = 1 & home_owned[2] = 0 & ParHomeBlock = 1 & minut += 15 & gt 'pod_ezd', 'etaj_2'
 		end
-	elseif npc_rel['A29'] >= 60 and npc_rel['A29'] <= 80 and pregtalkbrother = 1 and brothersecret = 0:
+	elseif npc_rel['A29'] >= 60 and npc_rel['A29'] <= 80 and npc_pregtalk['A34'] = 1 and brothersecret = 0:
 		'Before you''re able to finish the second syllable of your step-father''s name, you see the rage building in your mother''s face. She tightens her fist and is visibly shaking, making it clear that she is using all of her might to hinder herself from attacking you...'
 		'When she finally manages to speak up, through gritted teeth, only saying, "Get out!"'
 		'You stare at her dumbfounded, unsure where she expects you to go.'
@@ -1086,7 +1086,7 @@ if $ARGS[0] = 'pregreactstepdad':
 			'It''s too late to look for an apartment today. Instead you decide to look for a place to sleep tonight. You''ll need to go apartment hunting first thing tomorrow.'
 			act 'Continue':momKnowsVladimir = 1 & home_owned[2] = 0 & ParHomeBlock = 1 & minut += 15 & gt 'pod_ezd', 'etaj_2'
 		end
-	elseif npc_rel['A29'] > 80 and pregtalkstepdad = 1 and stepdadSecret = 0:
+	elseif npc_rel['A29'] > 80 and npc_pregtalk['A28'] = 1 and stepdadSecret = 0:
 		'Your mother stares at you in stunned silence as you utter Vladimir''s name. Her knees seem to give out, as she barely manages to hold herself up by leaning on the counter.'
 		'After long period of silence that feels like an eternity, your mother finally manages to speak up, "Please tell me I just misheard you. Did I really hear you just say your step-father''s name?"'
 		'You stare shamefully at the floor, only giving your mother the smallest nod you can manage as a reply.'
@@ -1115,7 +1115,7 @@ if $ARGS[0] = 'pregreactstepdad':
 			'It''s too late to look for an apartment today. Instead you decide to look for a place to sleep tonight. You''ll need to go apartment hunting first thing tomorrow.'
 			act 'Continue':momKnowsVladimir = 1 & home_owned[2] = 0 & ParHomeBlock = 1 & minut += 15 & gt 'pod_ezd', 'etaj_2'
 		end
-	elseif npc_rel['A29'] < 60 and (pregtalkstepdad = 0 or stepdadSecret = 1):
+	elseif npc_rel['A29'] < 60 and (npc_pregtalk['A28'] = 0 or stepdadSecret = 1):
 		'As soon as your step-father''s name crosses your lips, your mother''s face visibly reddens. Her mouth curls into a snarl and she reaches up and grips you by your hair and starts draging you around.'
 		'"What the fuck is wrong with you?" she screams in your face. "I know you are a worthless whore, but this? Even I didn''t think you''d stoop this low as seducting your own step-father... What kind of sick people are you two?"'
 		'Vladimir begins clearing his throat, "Honey, <<$pcs_nickname>> and I-"'
@@ -1139,7 +1139,7 @@ if $ARGS[0] = 'pregreactstepdad':
 			'It''s too late to look for an apartment today. Instead you decide to look for a place to sleep tonight. You''ll need to go apartment hunting first thing tomorrow.'
 			act 'Continue':momKnowsVladimir = 1 & home_owned[2] = 0 & ParHomeBlock = 1 & minut += 15 & gt 'pod_ezd', 'etaj_2'
 		end
-	elseif npc_rel['A29'] >= 60 and npc_rel['A29'] <= 80 and (pregtalkstepdad = 0 or stepdadSecret = 1):
+	elseif npc_rel['A29'] >= 60 and npc_rel['A29'] <= 80 and (npc_pregtalk['A28'] = 0 or stepdadSecret = 1):
 		'Before you''re able to finish the second syllable of your step-father''s name, you see the rage building in your mother''s face. She tightens her fist and is visibly shaking, making it clear that she is using all of her might to hinder herself from attacking you...'
 		'When she finally manages to speak up, through gritted teeth, only saying, "Get out!"'
 		'You stare at her dumbfounded, unsure where she expects you to go.'
@@ -1157,7 +1157,7 @@ if $ARGS[0] = 'pregreactstepdad':
 			'It''s too late to look for an apartment today. Instead you decide to look for a place to sleep tonight. You''ll need to go apartment hunting first thing tomorrow.'
 			act 'Continue':momKnowsVladimir = 1 & home_owned[2] = 0 & ParHomeBlock = 1 & minut += 15 & gt 'pod_ezd', 'etaj_2'
 		end
-	elseif npc_rel['A29'] > 80 and (pregtalkstepdad = 0 or stepdadSecret = 1):
+	elseif npc_rel['A29'] > 80 and (npc_pregtalk['A28'] = 0 or stepdadSecret = 1):
 		'Your mother stares at you in stunned silence as you utter Vladimir''s name. Her knees seem to give out, as she barely manages to hold herself up by leaning on the counter.'
 		'After long period of silence that feels like an eternity, your mother finally manages to speak up, "Please tell me I just misheard you. Did I really hear you just say your step-father''s name?"'
 		'You stare shamefully at the floor, only giving your mother the smallest nod you can manage as a reply.'

locations/natbelEv.qsrc

@@ -75,9 +75,9 @@ if $ARGS[0] = 'natcumresponse':
 		'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.'

locations/natbelapt.qsrc

@@ -229,7 +229,7 @@ if $ARGS[0] = 'ask_state':
 		'"<<$NatashaMotherNickname>>... You uhm... don''t look very pleased to see me. Did I... Is it something I did?"'
 		if (daystart-svetapregday) > 120:
 			'"Well <<$pcs_nickname>>, I''m still trying to adjust to the fact that my daughter is pregnant. Excuse me if I haven''t embraced that little fact yet."'
-			if pregtime > 150:
+			if pregchem > 3600:
 				'"I don''t know what you girls were thinking. The least you could have done was use protection. Getting pregnant when you''re <<age>>, you''re not ready to raise a baby!" She says angrily, looking at your obviously swollen belly.'
 				'You lower your head at the accusation in her tone and mumble "S-Sorry..." as you pass her into the hallway.'
 			else
@@ -1911,12 +1911,12 @@ if $ARGS[0] = 'chat':
 	
 	act 'Stop talking': gt 'natbelapt','natroom'
 	
-	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
 			'"<<$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 'Continue':gt 'natbelapt', '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."'
@@ -1924,15 +1924,15 @@ if $ARGS[0] = 'chat':
 				*nl
 				act 'Continue':gt 'natbelapt', '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."'
-				pregTalkNat = 1
+				npc_pregtalk['A16'] = 1
 				act 'Continue' :gt 'natbelapt', 'natroom'
 			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
@@ -1941,25 +1941,25 @@ if $ARGS[0] = 'chat':
 				if $wombthfath = '':
 					'"Honestly, I don''t even know."'
 					'"Really? That''s crazy." Natasha whispers, rubbing her midriff longingly.'
-					pregTalkNat = 1
+					npc_pregtalk['A16'] = 1
 					act 'Continue' :gt 'natbelapt', 'natroom'
 				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.'
-					pregTalkNat = 1
+					npc_pregtalk['A16'] = 1
 					act 'Continue' :gt 'natbelapt', 'natroom'
 				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
 			'"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 'natbelapt', '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."'
@@ -1967,20 +1967,20 @@ if $ARGS[0] = 'chat':
 				*nl
 				act 'Next':gt 'natbelapt', '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."'
-				pregTalkNat = 1
+				npc_pregtalk['A16'] = 1
 				act 'Continue' :gt 'natbelapt', 'natroom'
 			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.'
-				pregTalkNat = 1
+				npc_pregtalk['A16'] = 1
 				act 'Continue' :gt 'natbelapt', 'natroom'
 			end
 		end
@@ -2160,7 +2160,7 @@ 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
@@ -2182,7 +2182,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/npcstaticdefaults.qsrc

@@ -0,0 +1,25 @@
+# npcstaticdefaults
+
+if $ARGS[0] = 'defaults':
+	npc_run['A<<npctemp>>'] = rand(1,10)
+	npc_vball['A<<npctemp>>'] = rand(1,10)
+	npc_shoot['A<<npctemp>>'] = rand(1,10)
+	npc_sewing['A<<npctemp>>'] = rand(1,10)
+	npc_serving['A<<npctemp>>'] = rand(1,10)
+	npc_chess['A<<npctemp>>'] = rand(1,10)
+	npc_dance['A<<npctemp>>'] = rand(1,10)
+	npc_danceero['A<<npctemp>>'] = rand(1,10)
+	npc_jab['A<<npctemp>>'] = rand(1,10)
+	npc_punch['A<<npctemp>>'] = rand(1,10)
+	npc_kick['A<<npctemp>>'] = rand(1,10)
+	npc_def['A<<npctemp>>'] = rand(1,10)
+	npc_vokal['A<<npctemp>>'] = rand(1,10)
+	npc_teach['A<<npctemp>>'] = rand(1,10)
+	$npc_dad['A<<npctemp>>'] = 'U'
+	$npc_mom['A<<npctemp>>'] = 'U'
+	$npc_pic['A<<npctemp>>'] = 'xPICx'
+	$npc_PersType['A<<npctemp>>'] = 'XXXX'
+end
+
+--- npcstaticdefaults ---------------------------------
+

locations/obj_din.qsrc

@@ -167,28 +167,28 @@ if $ARGS[0] = 'description':
 	'<<$nipplesize>>'
 	*nl
 	if preg = 1:
-		if denypreg = 1 and pregtime > 75:
+		if denypreg = 1 and pregchem > 2688:
 			'You seem to be putting on a bit of weight, your belly is definitely bigger.'
 			*nl
-		elseif pregtime > 196:
+		elseif pregchem > 4704:
 			'You''re rapidly approaching the finish line and have entered the third trimester. Your belly is so big now that you can barely remember what your toes look like. Your back hurts most of the time and it is a struggle to get to your feet if you sit down. The baby seems to think that your bladder makes a nice punching bag.'
 			*nl
-		elseif pregtime > 130:
+		elseif pregchem > 3696:
 			'Your belly is quite swollen now and shows under even the loosest of clothes. You find yourself constantly caressing your belly without realizing it.'
 			*nl
-		elseif pregtime > 90 and knowpreg = 1:
+		elseif pregchem > 3192 and knowpreg = 1:
 			'You are showing for sure now. Your tummy is starting to become rounder as it grows larger each day, although you can still wear baggy clothes to hide it. At least the morning sickness and nausea seem to have gone away for the most part.'
 			*nl
-		elseif pregtime > 90 and knowpreg = 0:
+		elseif pregchem > 3192 and knowpreg = 0:
 			'You can''t seem to stop gaining weight and your belly looks like it is getting bigger everyday, although you can still wear baggy clothes to hide it. At least the flu you''ve been fighting lately seems to have finally gone away for the most part.'
 			*nl
-		elseif pregtime > 75 and knowpreg = 1:
-			'Your breasts look and feel swollen and tingle at the slightest touch. Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach. Speaking of your stomach, you can definitely feel a baby bump now, although it is still hard to see.'
+		elseif pregchem > 1800 and knowpreg = 1:
+			'Your breasts look and feel swollen and tingle at the slightest touch. Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach.'
 			*nl
-		elseif pregtime > 75 and knowpreg = 0:
-			'Your breasts look and feel swollen and tingle at the slightest touch. Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach. Speaking of your stomach, you have developed a bit of a paunch, although it is still hard to see.'
+		elseif pregchem > 1800 and knowpreg = 0:
+			'Your breasts look and feel swollen and tingle at the slightest touch. Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach.'
 			*nl
-		elseif pregtime > 50:
+		elseif pregchem > 1200:
 			'You''ve noticed that your breasts seem firmer lately and your nipples seem to be sticking out more.'
 			*nl
 		end
@@ -2635,25 +2635,28 @@ if $ARGS[0] = 'old':
 	addobj '<center>Refresh</center>'
 	!addobj '<center>Settings</center>'
 	!addobj '<center>Cheats</center>'
-	if cheatConsole = 1:
-		addobj '<center>Console</center>'
-	end
+	if cheatConsole = 0: addobj '<center>Console</center>'
 	! if disable_autosave = 1:
 		! addobj '<center><font color = red><b>[</b></font>Autosave<font color = red><b>]</b></font></center>'
 	! else
 		! addobj '<center><font color = green><b>[</b></font>Autosave<font color = green><b>]</b></font></center>'
 	! end
 	if cheatTime = 1:
-		addobj '<center><i>-1 Hour</i></center>'
-		addobj '<center><i>+1 Hour</i></center>'
+		addobj '<center>-1 Hour</center>'
+		addobj '<center>+1 Hour</center>'
 	end
 	addobj ''
 	addobj '<center><font color = red>Emergency</font></center>'
+	addobj ''
+	if debug_warning_closed = 0:
+		addobj '<center>This window is for debug only and can be safely closed.</center>'
+		addobj '<center>Remove debug info</center>'
+	end
 end
 
 if $ARGS[0] = 'wait':
 	cla
-	waiting = input ("How long would you like to wait?<br>(Default 15 minutes, maximum 120 minutes)")
+	waiting = input ("How long would you like to wait?<br>(maximum 120 minutes, leave blank or press cancel to wait 15 minutes)")
 
 	if waiting = '':
 		minut += 15

locations/onobjsel.qsrc

@@ -30,9 +30,10 @@ if $selobj = '<center>Refresh</center>':gs '$menu_obnovit'
 	! if $selobj = '<center><font color = green><b>[</b></font>Autosave<font color = green><b>]</b></font></center>':gs 'obj_din', 'autosave'
 ! end
 if $selobj = '<center>Console</center>':dynamic $cheatmenu['dynamic']
-if $selobj = '<center><i>-1 Hour</i></center>':gs 'obj_din', '-1 Hour'
-if $selobj = '<center><i>+1 Hour</i></center>':gs 'obj_din', '+1 Hour'
+if $selobj = '<center>-1 Hour</center>':gs 'obj_din', '-1 Hour'
+if $selobj = '<center>+1 Hour</center>':gs 'obj_din', '+1 Hour'
 if $selobj = '<center><font color = red>Emergency</font></center>':gs 'obj_din', 'emergency'
+if $selobj = '<center>Remove debug info</center>': debug_warning_closed = 1 & gs 'stat'
 
 !The old menu: end
 

locations/park.qsrc

@@ -84,6 +84,13 @@ if $ARGS[0] = 'start':
 
 	act 'Walk around the park (1:00)': gt 'parkdin'
 
+	! Setup for teleport circle
+	if tpKnown['CentralPark'] = 1:
+		act 'Enter the hidden circle of trees': gt 'treeCircle', 'CentralPark'
+	else:
+		act 'Investigate a mysterious copse of trees': gt 'treeCircle', 'CentralPark'
+	end
+
 	if hour >= 10 and hour <= 22:
 		act 'Have some food in the cafe': minut += 5 & gt 'ParkKafe', 'start'
 	end

locations/pavCommercial.qsrc

@@ -137,7 +137,7 @@ else
 	$desc_txt2 = '<a href="exec:msg ''vocational school, which is closed right now. It will reopen again at 7:00''">vocational school</a>.'
 end
 
-'<br>If you continue past the shops, you''ll eventually find a <<$desc_txt2>>.'
+'<br>If you continue past the shops, you''ll eventually find a <<$desc_txt2>>'
 
 if workPTU > 2:act '<b>Go to the hostel</b>':gt 'etoexhib', 'pos40'
 

locations/pavtrainhall.qsrc

@@ -26,7 +26,7 @@ if $ARGS[0] = '':
 	*nl
 	if StoryLine = 1 and SchoolAtestat = 0:
 		if (sunWeather = 0 or temper <= 0) and hour >= 18 and hour < 20 and week < 6:
-			'You see your classmates <a href="exec:minut += 3 & gt ''gopskver''">Vitek, Dan and Vasily</a> hanging around here.'
+			'You see your classmates <a href="exec:minut += 3 & $prevloc = $loc & gt ''gopskver''">Vitek, Dan and Vasily</a> hanging around here.'
 		end
 	end
 	*nl

locations/placer_gskver.qsrc

@@ -148,6 +148,14 @@ end
 !_________________Change the date/nights, seasons. End.___________________________
 
 
+!Setup for teleport circle
+if tpKnown['PavlovskPark'] = 1:
+	act 'Enter the hidden circle of trees': gt 'treeCircle', 'PavlovskPark'
+else:
+	act 'Investigate a mysterious copse of trees': gt 'treeCircle', 'PavlovskPark'
+end
+
+
 if soniaPS=5 and rand(1,10)=>9 and hour>14 and hour<20:
 	''
 	'<b>While you walk past a row of bushes, you hear some strange sounds coming from behind them.</B>'

locations/pod_ezd.qsrc

@@ -1041,22 +1041,24 @@ end
 !game events in the attic (fifth floor)
 if $ARGS[0] = 'etaj5_cherdak_ev1':
 	menu_off = 1
-	gs 'arousal', 'voyeur', 5
+	gs 'arousal', 'voyeur', 7
+	minut -= 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev1_1.jpg"></center>'
 	'When you walk up the stairs to the fifth floor, you see some unfamiliar boys fucking a girl. Currently, one guy is fucking her while the other one films everything with his camera.'
 	gs 'gopsex', 'masturb_gg'
 	act 'Hide and keep watching':
 		*clr & cla
-		gs 'arousal', 'voyeur', 4
+		gs 'arousal', 'voyeur', 6
+		minut -= 3
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev1_2.jpg"></center>'
 		'Suddenly you see the guy holding the camera reach down undoes pants, before telling her to take his cock out and give him a blowjob. She happily does and takes the large cock in her mouth, while the guy behind her is still pounding her. He slaps her ass a few times, knowing her moans will make the other guy feel great.'
 		gs 'gopsex', 'masturb_gg'
-		minut -=2
 		gs 'stat'
 		act 'Stay hidden and keep watching':
 			*clr & cla
-			gs 'arousal', 'voyeur', 5
+			gs 'arousal', 'voyeur', 8
+			minut -= 3
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev1_3.jpg"></center>'
 			'The guys switch places now, and the other guy now holds the camera while the girl keeps sucking on one cock while getting fucked by the other. He makes sure to zoom in on her face while the other guy spanks her hard, trying to provoke a cute reaction for the video.'
@@ -1070,25 +1072,27 @@ end
 
 if $ARGS[0] = 'etaj5_cherdak_ev2':
 	menu_off = 1
-	gs 'arousal', 'voyeur', 4
+	gs 'arousal', 'voyeur', 6
+	minut -= 4
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev2_1.jpg"></center>'
 	'When you walk up the stairs to the fifth floor, you see a guy and a girl having sex. Currently, the girl is giving him an enthusiastic blowjob while a second guy films everything with his camera.'
 	act 'Hide and keep watching':
 		*clr & cla
-		gs 'arousal', 'voyeur', 3
+		gs 'arousal', 'voyeur', 5
+		minut -= 3
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev2_2.jpg"></center>'
 		'After a moment she decides that one cock is not enough and, with a lewd voice, asks: "Please, I need more cocks, let me suck yours too."'
 		'The other guy is happy to oblige, and soon she is struggling to take both cocks in her mouth. You can tell this is definitely not the first time she has done this.'
 		act 'Continue':
 			*clr & cla
-			gs 'arousal', 'voyeur', 2
+			gs 'arousal', 'voyeur', 5
+			minut -= 3
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev2_3.jpg"></center>'
 			'Suddenly, the boys pull away from the girl. They tell her: "Alright, time to fuck. Show your ass to the camera, Maria."'
 			'She obediently does, pulling her ass cheeks aside to show the boys her puckered anus. It doesn''t look very tight, but does look ready for anal sex, maybe they had been planning this?'
 			gs 'gopsex', 'masturb_gg'
-			minut -=3
 			gs 'stat'
 			act 'Continue':
 				*clr & cla
@@ -1098,7 +1102,7 @@ if $ARGS[0] = 'etaj5_cherdak_ev2':
 				gs 'stat'
 				act 'Continue':
 					*clr & cla
-					gs 'arousal', 'voyeur', 2
+					gs 'arousal', 'voyeur', 5
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev2_5.jpg"></center>'
 					'After a while, the couple changes position and you see the guy rubbing his dick against her ass. As you expected, his cock slides in her ass quite easily, and the guy takes the initiative now and begins to thrust his dick deeper inside her ass while she tries to steady herself against the wall.'
 					gs 'gopsex', 'masturb_gg'
@@ -1113,7 +1117,7 @@ if $ARGS[0] = 'etaj5_cherdak_ev2':
 						gs 'stat'
 						act 'Continue':
 							*clr & cla
-							gs 'arousal', 'voyeur', 2
+							gs 'arousal', 'voyeur', 5
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev2_7.jpg"></center>'
 							'The guys tell her to get on her knees, and eagerly jerk off over her while the camera guy films the jets of cum land on her face.'
 							gs 'gopsex', 'masturb_gg'
@@ -1127,7 +1131,7 @@ if $ARGS[0] = 'etaj5_cherdak_ev2':
 								gs 'stat'
 								act 'Continue':
 									*clr & cla
-									minut +=2
+									minut += 2
 									gs 'arousal', 'end'
 									gs 'stat'
 									'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev2_9.jpg"></center>'
@@ -1153,7 +1157,8 @@ end
 
 if $ARGS[0] = 'etaj5_cherdak_ev3':
 	menu_off = 1
-	gs 'arousal', 'voyeur', 4
+	gs 'arousal', 'voyeur', 6
+	minut -= 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev3_1.jpg"></center>'
 	'When you walk up the stairs to the fifth floor, you see a girl giving two guys an enthusiastic blowjob at the same time. One of the guys is filming everything with his camera.'
@@ -1165,12 +1170,12 @@ if $ARGS[0] = 'etaj5_cherdak_ev3':
 		gs 'stat'
 		act 'Continue':
 			*clr & cla
-			gs 'arousal', 'voyeur', 4
+			gs 'arousal', 'voyeur', 5
+			minut -= 3
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev3_3.jpg"></center>'
 			'The man holding the camera is tired of being left out, and he asks his friend to swing her around she can use her mouth at the same time. He does, and tells the girl to lean against the other man''s chest while she sucks him off. The girl does, and from the look in her eyes you can tell she''s thrilled by all this.'
 			'After about five minutes the body of the guy behind her tenses, and from his grunting you can only assume he finished right in her pussy.'
 			gs 'gopsex', 'masturb_gg'
-			minut -=3
 			gs 'stat'
 			act 'Continue':
 				*clr & cla
@@ -1180,7 +1185,8 @@ if $ARGS[0] = 'etaj5_cherdak_ev3':
 				gs 'stat'
 				act 'Continue':
 					*clr & cla
-					gs 'arousal', 'voyeur', 2
+					gs 'arousal', 'voyeur', 5
+					minut -= 3
 					gs 'arousal', 'end'
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev3_5.jpg"></center>'
@@ -1199,17 +1205,18 @@ end
 
 if $ARGS[0] = 'etaj5_cherdak_ev4':
 	menu_off = 1
-	gs 'arousal', 'voyeur', 5
+	gs 'arousal', 'voyeur', 7
+	minut -= 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev4_1.jpg"></center>'
 	'When you walk up the stairs to the fifth floor, you see an unfamiliar girl showing off her boobs to two guys. One of them is holding a camera. You''re fairly sure you have never seen any of them before.'
 	act 'Hide and keep watching':
 		*clr & cla
-		gs 'arousal', 'voyeur', 2
+		gs 'arousal', 'voyeur', 5
+		minut -= 3
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev4_2.jpg"></center>'
 		'One of the guys boldly walks up to the girl, his dicking hanging out of his pants already. She unashamedly squats before him and takes the dick in her mouth, giving him a skillful blowjob while the other guy keeps filming everything. Are they shooting a porn video!?'
 		gs 'gopsex', 'masturb_gg'
-		minut -=3
 		gs 'stat'
 		act 'Continue':
 			*clr & cla
@@ -1219,7 +1226,7 @@ if $ARGS[0] = 'etaj5_cherdak_ev4':
 			gs 'stat'
 			act 'Continue':
 				*clr & cla
-				gs 'arousal', 'voyeur', 2
+				gs 'arousal', 'voyeur', 5
 				minut -=3
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev4_4.jpg"></center>'
 				'The girl then stands up straight and gets between the two guys, presenting her ass to one of them while she leans over to take the dick of the other back in her mouth. Soon she''s being spit-roasted, taking in dicks on both ends.'
@@ -1233,7 +1240,8 @@ if $ARGS[0] = 'etaj5_cherdak_ev4':
 					gs 'stat'
 					act 'Continue':
 						*clr & cla
-						gs 'arousal', 'voyeur', 2
+						gs 'arousal', 'voyeur', 5
+						minut -= 3
 						gs 'arousal', 'end'
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev4_6.jpg"></center>'
@@ -1256,13 +1264,15 @@ end
 if $ARGS[0] = 'event_1':
 	menu_off = 1
 	*clr & cla
-	gs 'arousal', 'voyeur', 2
+	gs 'arousal', 'voyeur', 5
+	minut -= 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/ev1_1.jpg"></center>'
 	'As you walk around a corner in the stairwell, you''re suddenly looking straight at a woman''s bare pussy! She''s sitting on some stairs and is casually smoking a cigarette. Her partner chats her up, while he has a great look at her naked pussy and her widely spread legs.'
 	act 'Keep watching':
 		*clr & cla
-		gs 'arousal', 'voyeur', 3
+		gs 'arousal', 'voyeur', 6
+		minut -= 3
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/ev1_2.jpg"></center>'
 		'The girl notices you, and gives you a cute wink. She keeps talking with her partner, and pulls her boobs out of her shirt while spreading her legs even further. You''re confused is she doing this for you, or for him?'
@@ -1275,7 +1285,8 @@ end
 if $ARGS[0] = 'event_2':
 	menu_off = 1
 	*clr & cla
-	gs 'arousal', 'voyeur', 7
+	gs 'arousal', 'voyeur', 10
+	minut -= 3
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/ev3.jpg"></center>'
 	'As you walk around a corner in the stairwell, you run into two boys fucking some random girl dressed in lingerie and a coat. She looks familiar.'
 	'You hide for a second and try to look if you can recognize her in some way, but she''s squeezed between the boys and her face is hidden the whole time.'
@@ -1288,13 +1299,15 @@ end
 if $ARGS[0] = 'event_3':
 	menu_off = 1
 	*clr & cla
-	gs 'arousal', 'voyeur', 3
+	gs 'arousal', 'voyeur', 6
+	minut -= 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/ev4_1.jpg"></center>'
 	'As you walk around a corner in the stairwell, you see Yelena Kotov, a girl from your class. She''s taking off her panties in front of several guys. If her brother Vitek could see this, he''d probably be beating the crap out of them right now he''s really protective of his sister.'
 	act 'Hide and watch them':
 		*clr & cla
-		gs 'arousal', 'voyeur', 3
+		gs 'arousal', 'voyeur', 6
+		minut -= 3
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/ev4_2.jpg"></center>'
 		'Lena turns her back to the guys next, and pulls up her skirt slightly. She shows off her well-toned ass, slowly wagging it as she asks seductively over her shoulder: "Do you like what you see, boys?"'
@@ -1306,11 +1319,11 @@ if $ARGS[0] = 'event_3':
 			gs 'stat'
 			act 'Continue':
 				*clr & cla
-				gs 'arousal', 'voyeur', 3
+				gs 'arousal', 'voyeur', 5
+				minut -= 3
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/ev4_4.jpg"></center>'
 				'Lena really gets into it, posing seductively for the camera now while she lets her skirt ride up a little more. You can tell the stares of the guys turn her on a lot, and you realize Vitek''s little sister is not as innocent as she looks.'
 				gs 'gopsex', 'masturb_gg'
-				minut -=3
 				gs 'stat'
 				act 'Continue':
 					*clr & cla
@@ -1320,7 +1333,7 @@ if $ARGS[0] = 'event_3':
 					gs 'stat'
 					act 'Continue':
 						*clr & cla
-						gs 'arousal', 'voyeur', 3
+						gs 'arousal', 'voyeur', 5
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/ev4_6.jpg"></center>'
 						'Lena turns her back to the guys again, her skirt pulled up so far now that she''s showing off all her holes to the camera.'
 						gs 'gopsex', 'masturb_gg'
@@ -1344,7 +1357,8 @@ end
 
 if $ARGS[0] = 'event_4':
 	menu_off = 1
-	gs 'arousal', 'voyeur', 3
+	gs 'arousal', 'voyeur', 6
+	minut -= 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/ev5_1.jpg"></center>'
 	'You see a cute girl in a nightie standing on a flight of stairs, in the stairwell, doing several poses for a strong looking man holding a camera.'
@@ -1356,11 +1370,11 @@ if $ARGS[0] = 'event_4':
 		gs 'stat'
 		act 'Continue':
 			*clr & cla
-			gs 'arousal', 'voyeur', 3
+			gs 'arousal', 'voyeur', 5
+			minut -= 3
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/ev5_3.jpg"></center>'
 			'He continues: "Okay, now raise your nightie, I want some photos of your body too. Excellent babe, you''re doing great."'
 			gs 'gopsex', 'masturb_gg'
-			minut -=3
 			gs 'stat'
 			act 'Continue':
 				*clr & cla
@@ -1373,7 +1387,8 @@ if $ARGS[0] = 'event_4':
 				gs 'stat'
 				act 'Continue':
 					*clr & cla
-					gs 'arousal', 'voyeur', 3
+					gs 'arousal', 'voyeur', 5
+					minut -= 3
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/ev5_5.jpg"></center>'
 					'He encourages her further: "Wow, that''s hot. Bend over babe, show me your pretty ass."'
 					'She leans over and pulls her nightie up, showing the camera her bare ass cheeks and pulls one to the side a bit with her hand to show off her holes more: "Like this?"'
@@ -1383,15 +1398,16 @@ if $ARGS[0] = 'event_4':
 					gs 'stat'
 					act 'Continue':
 						*clr & cla
-						gs 'arousal', 'masturbate', 3
+						gs 'arousal', 'masturbate', 5
+						minut -= 3
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/ev5_6.jpg"></center>'
 						'He walks up a bit closer to her: "Almost done babe, I just need a few close-ups. Just bend over and show me your ass."'
 						gs 'gopsex', 'masturb_gg'
-						minut -=3
 						gs 'stat'
 						act 'Continue':
 							*clr & cla
-							gs 'arousal', 'voyeur', 3
+							gs 'arousal', 'voyeur', 5
+							minut -= 3
 							gs 'arousal', 'end'
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/ev5_7.jpg"></center>'
@@ -1415,7 +1431,8 @@ end
 
 if $ARGS[0] = 'event_5':
 	menu_off = 1
-	gs 'arousal', 'voyeur', 5
+	gs 'arousal', 'voyeur', 10
+	minut -= 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/luda/event/ev2.jpg"></center>'
 	'You greet aunt Luda in the stairwell, she''s on her way back up after throwing away some garbage. She greets you back, but says she has no time to chat and it looks like she''s in a hurry to get back to her apartment. When you look up, you see she''s not even wearing any pants or underwear! She can be so slutty sometimes.'

locations/poli.qsrc

@@ -151,9 +151,9 @@ if $ARGS[0] = 'start':
 			money -= 15000
 			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
@@ -245,9 +245,9 @@ if $ARGS[0] = 'start':
 			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'

locations/pornstudio.qsrc

@@ -328,7 +328,7 @@ if $ARGS[0] = 'manager':
 
 	if firstkasting = 0:gt 'pornstudio', 'first'
 
-	if pregtime >= 90 and pregtalkpornstudio = 0:gt 'pornstudio', 'pregreact'
+	if pregchem >= 2688 and pregtalkpornstudio = 0:gt 'pornstudio', 'pregreact'
 
 	if pfilmNO = 1:
 	! Banned from shooting porn

locations/preCUST.qsrc

@@ -231,6 +231,7 @@ if $ARGS[0] = 'Done':
 		pcs_energy = 100
 		pcs_hydra = 100
 		pcs_sleep = 100
+		willpowermax = 150
 
 !!		Starting Option Adjustments
 !!		The TG Background options would be aplied here
@@ -297,6 +298,7 @@ if $ARGS[0] = 'Done':
 		pcs_energy = 100
 		pcs_hydra = 100
 		pcs_sleep = 100
+		willpowermax = 100
 
 !!		Starting Option Adjustments
 !!		The TG Background options would be aplied here

locations/preSYS.qsrc

@@ -475,6 +475,7 @@ if $ARGS[0] = 'charselect':
 				pcs_skin = 40
 				genbsize = 17
 				salo = 60
+				willpowermax = 90
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -495,6 +496,7 @@ if $ARGS[0] = 'charselect':
 				grupvalue[6] = 30
 				npc_rel['A29'] += 20
 				if player_avatar ! 1: pcs_hairlng = 200
+				willpowermax = 80
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -519,6 +521,7 @@ if $ARGS[0] = 'charselect':
 				npc_rel['A129'] += 10
 				komp = 1
 				if player_avatar ! 1: pcs_hairlng = 120
+				willpowermax = 90
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -540,6 +543,7 @@ if $ARGS[0] = 'charselect':
 				chessmonth = month
 				npc_rel['A151'] += 20
 				if player_avatar ! 1: pcs_hairlng = 200
+				willpowermax = 90
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -568,6 +572,7 @@ if $ARGS[0] = 'charselect':
 				gsAboVolley += 30
 				npc_rel['A13'] += 10
 				npc_rel['A69'] += 10
+				willpowermax = 140
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -602,6 +607,7 @@ if $ARGS[0] = 'charselect':
 				gsAboDance += 30
 				npc_rel['A23'] += 20
 				grupvalue[1] = 20
+				willpowermax = 140
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -626,6 +632,7 @@ if $ARGS[0] = 'charselect':
 				npc_rel['A8'] += 5
 				npc_rel['A18'] -= 30
 				npc_rel['A131'] += 10
+				willpowermax = 140
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -647,6 +654,7 @@ if $ARGS[0] = 'charselect':
 				npc_rel['A131'] += 10
 				npc_rel['A149'] += 10
 				npc_rel['A34'] += 10
+				willpowermax = 140
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -679,6 +687,7 @@ if $ARGS[0] = 'charselect':
 				gs 'preSYS', 'socialgroup_setting', 10, 5, 0, 0, 0, 0
 				npc_rel['A140'] += 10
 				salo = 80
+				willpowermax = 110
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -719,6 +728,7 @@ if $ARGS[0] = 'charselect':
 				gs 'preSYS', 'socialgroup_setting_boys', 20, 20, 20, 20, 20, 0
 				salo = 60
 				pav_sex = 20
+				willpowermax = 110
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -759,6 +769,7 @@ if $ARGS[0] = 'charselect':
 				npc_rel['A33'] -= 10
 				npc_rel['A34'] -= 10
 				grupvalue[4] = 40
+				willpowermax = 130
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -794,6 +805,7 @@ if $ARGS[0] = 'charselect':
 				npc_rel['A29'] -= 20
 				npc_rel['A33'] -= 10
 				npc_rel['A34'] -= 10
+				willpowermax = 120
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -856,6 +868,7 @@ if $ARGS[0] = 'charselect':
 				kotovLoveQW = 1
 				vitekvisit = 5
 				npc_sex['A9'] += 5
+				willpowermax = 100
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -915,6 +928,7 @@ if $ARGS[0] = 'charselect':
 				npc_rel['A28'] -= 10
 				npc_rel['A29'] -= 10
 				npc_rel['A33'] += 10
+				willpowermax = 120
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -941,6 +955,7 @@ if $ARGS[0] = 'charselect':
 				pcs_observ = 20
 				pcs_skin = 10
 				npc_rel['A11'] -= 20
+				willpowermax = 80
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -964,6 +979,7 @@ if $ARGS[0] = 'charselect':
 					pcs_lashes = 2
 				end
 				salo = 20
+				willpowermax = 70
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -995,6 +1011,7 @@ if $ARGS[0] = 'charselect':
 				npc_rel['A28'] += 10
 				npc_rel['A29'] += 10
 				npc_rel['A11'] -= 20
+				willpowermax = 150
 				gt 'preCUST', 'SGStart'
 			end
 		end
@@ -1061,6 +1078,7 @@ if $ARGS[0] = 'charselect':
 				orgasm = 15
 				swallow = 20
 				trt_cumeater = 1
+				willpowermax = 50
 				gt 'preCUST', 'SGStart'
 			end
 		end

locations/shop.qsrc

@@ -22,6 +22,7 @@ if $shoplocation = 'main':
 	if hour < 8 or hour > 20:
 		'The supermarket is currently closed.'
 
+		if $loc = 'shop': $loc = $loc_bak
 		act 'Leave the store':minut += 3 & gt $loc
 		exit
 	end
@@ -378,13 +379,13 @@ if $shoplocation = 'clothing':
 				'Coat 1'
 				func('$clothing_name', 'coat', 1)
 				if CloInhibit > pcs_inhib:'You don''t feel daring enough to buy an outfit this revealing.'
-				'Costs 5,000 <b>₽</b>.'
+				'Costs 1,400 <b>₽</b>.'
 
 				act 'Leave':gt 'shop'
-				if money >= 5000 and CloInhibit <= pcs_inhib:
+				if money >= 1400 and CloInhibit <= pcs_inhib:
 					act 'Buy':
 						cla
-						money -= 5000
+						money -= 1400
 						coat[1] = 1
 						coatH[1] = 60
 						gt 'shop', '<font color="green">You bought <b>coat 1</b>.</font>'

locations/spellTeleport.qsrc

@@ -0,0 +1,41 @@
+#spellTeleport
+! Do the stuff of a Teleport
+!	ARGS[0] = the Target Location
+
+$NewLocation = $ARGS[0]
+
+:RandLocLoop
+$randomLoc = $tpLocations[rand(0,arrsize($tpLocations) - 1)]
+if $randomLoc = $NewLocation or $randomLoc = $EntryPoint:
+	jump 'RandLocLoop'
+end
+
+didItWork = func("castSpell", "teleport")
+
+if didItWork > 0:
+	*nl
+	"The blur you see just outside the ring seems to shift."
+	wait 1000
+	if $treeCircArg[$NewLocation] = "":
+		gt $treeCircLoc[$NewLocation]
+	else:
+		gt $treeCircLoc[$NewLocation], $treeCircArg[$NewLocation]
+	end
+elseif didItWork < 0:
+	*nl
+	"The blur you see just outside the ring seems to shift.  Something did not go right!"
+	wait 1000
+	if $treeCircArg[$randomLoc] = "":
+		gt $treeCircLoc[$randomLoc]
+	else:
+		gt $treeCircLoc[$randomLoc], $treeCircArg[$randomLoc]
+	end
+else:
+	'You feel drained, but the energy fizzles out and nothing happens'
+end
+
+killvar '$randomLoc'
+killvar '$NewLocation'
+killvar didItWork
+
+-- spellTeleport ---------------------------------

locations/sportShop.qsrc

@@ -12,7 +12,7 @@ if $ARGS[0] = 'start':
 	'As soon as you enter, a high energy song with a thumping baseline fills your eardrums, making you feeling pumped and awake. The store is sleek and professional, the walls and floors advertising all different kinds of sporting equipment and attire. The room is filled with beautifully fit people shopping, their bodies varying from big and muscular to lean and trim. If they don''t inspire you to want to work out, the posters advertising past and present famous athletes is motivating as hell.'
 	*nl
 	if refillable_bottle = 0 and money >= 1000 and bag > 0: 
-		'You can buy a high-quality <a href="exec:minut += 5 & money -= 1000 & refillable_bottle = 1 & gt ''sportShop'', ''start''">water bottle</a> that you can carry around in your purse.'
+		'You could buy a high-quality <a href="exec:minut += 5 & money -= 1000 & refillable_bottle = 1 & gt ''sportShop'', ''start''">water bottle (1000 <b>₽</b>)</a> that you can carry around in your purse.'
 	elseif refillable_bottle = 0 and (money < 1000 or bag = 0):
 		'The shop sells high-quality water bottles for 1,000 <b>₽</b>. You could carry one around in '+iif(bag > 0, 'your', 'a')+' purse.'
 	end

locations/stat.qsrc

@@ -192,12 +192,11 @@ elseif pcs_inhib > 100:
 end
 
 healthmax = (pcs_vital * 10 + pcs_stren * 5)
-willpowermax = (pcs_intel * 5 + pcs_sprt * 5)
 stammax = 5 * (2 * pcs_vital + pcs_agil + pcs_stren) / 2
 mannamax = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo
 speed = (2 * (pcs_stren + pcs_agil) + pcs_vital) / 5
 if healthmax < 1: healthmax = 1
-if willpowermax < 1: willpowermax = 1
+if willpowermax < 50: willpowermax = 50
 if stammax < 1: stammax = 1
 if mannamax < 1: mannamax = 1
 
@@ -424,6 +423,10 @@ if minut >= 60:
 		pcs_sleep -= 4
 	end
 
+	pcs_willpwr += willpowermax/50
+	if pcs_willpwr > willpowermax: pcs_willpwr = willpowermax
+	if pcs_willpwr < 20: will_degrade += 1
+	if will_degrade >= 20: willpowermax -= 1 & will_degrade = 0
 	if pcs_stam > stammax: pcs_stam = stammax
 
 	gs 'femcyc'
@@ -935,15 +938,15 @@ else
 end
 
 if pcs_willpwr >= willpowermax:
-	$pcs_willpwr = '<font color="green">Your mind is clear.</font>'
+	$pcs_willpwr = '<font color="green">You feel in charge of your actions.</font>'
 elseif pcs_willpwr >= willpowermax * 75 / 100:
-	$pcs_willpwr = '<font color=#0064FF>You are mostly clear of mind.</font>'
+	$pcs_willpwr = '<font color=#0064FF>You are mostly in control.</font>'
 elseif pcs_willpwr >= willpowermax * 50 / 100:
-	$pcs_willpwr = '<font color="brown">You are depressed.</font>'
+	$pcs_willpwr = '<font color="brown">You might have to make some concessions.</font>'
 elseif pcs_willpwr >= willpowermax * 25 / 100:
-	$pcs_willpwr = '<font color="red">You have depression.</font>'
+	$pcs_willpwr = '<font color="red">You will have to toe the line.</font>'
 else
-	$pcs_willpwr = '<font color="red">You are on the verge of madness.</font>'
+	$pcs_willpwr = '<font color="red">You are completely at our people''s mercy.</font>'
 end
 
 !!stop auto birth control pill taking if the player believes they are pregnant or are pregnant

locations/stat_display.qsrc

@@ -1283,7 +1283,7 @@ if hour < 17 and week < 5 and workSec >= 1 or hour < 17 and week < 5 and workSec
 if hour < 17 and week < 5 and PersSecWork = 1:$stat_msg += '<BR><b><font color="red">Today you have a shift as a secretary at Diner Bystroeshka from 9:00 to 17:00</font></b>'
 if hour < 20 and week => 1 and week <= 5 and age < 18 and workFabrika = 1:$stat_msg += '<BR><b><font color = red>Today you have work in the garment factory in Pavlovsk. Shift starts at 16:00.</font></b>'
 if hour < 16 and week => 1 and week <= 5 and age >= 18 and workFabrika = 1:$stat_msg += '<BR><b><font color = red>Today you have work in the garment factory in Pavlovsk. Shift starts at 8:00.</font></b>'
-if hour < 16 and week > 1 and week <= 5 and workhosp = 1:$stat_msg += '<BR><b><font color="red">You work as a nurse in the Pavlovsk clinic. Your shift starts at 8:00.</font></b>'
+if hour < 16 and week > 1 and week <= 5 and workhosp = 1:$stat_msg += '<BR><b><font color="red">You work as a nurse in the city residential area clinic. Your shift starts at 8:00.</font></b>'
 if hour < 10 and worksalon = 1 and (week = 1 or week = 3 or week = 5):$stat_msg += '<BR><b><font color = red>Today you have work as masseuse in beauty salon. Shift starts at 9:00.</font></b>'
 if leonidVisit = 1 and hour < 21 and hour > 6: $stat_msg += '<br><b>You have to serve Leonid at 20:00 in his Pavlovsk office!</b>'
 

locations/street.qsrc

@@ -68,7 +68,7 @@ housrA = 0
 if car > 0 and cardrive = 1: 'In the parking lot is <a href="exec:GS ''carF'', ''start''">your <<$car>></a>.'
 
 if home_owned[1] > 0:
-	act '<b>GO HOME</b>':
+	act '<b>Go home</b>':
 		gorand = rand(0, 100)
 
 		if (loh > 0 or gnewQW = 7) and gopdolg > 0 and hour >= 20 and gorand >= 80:

locations/stwork.qsrc

@@ -15,7 +15,7 @@ if $ARGS[0] = 'start':
 	gs 'stat'
 	gs 'themes', 'indoors'
 	'<center><b><font color="maroon">Dressing room for strippers</font></b></center>'
-	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/striprazd.jpg"></center>'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/backstage' + rand(1,7) + '.jpg"></center>'
 	''
 	'There are several <a href="exec:gt ''mirror'', ''start''">mirrors</a> hanging on the wall, where you can <a href="exec:gt ''mirror'', ''brush''">brush</a> your hair, and a selection of <a href="exec:gt ''wardrobe'', ''start''">clothes</a> hanging on rails for the girls to dress in.'
 	'There are some stairs leading to the <a href="exec:gt ''stwork'', ''stripgirl''">stage</a> where you can head out to perform.'

locations/swamphouse.qsrc

@@ -46,13 +46,6 @@ if $ARGS[0] = 'start' or $ARGS[0] = '':
 		'The hunters aren''t here right now'
 	end
 
-	if hour >= 8 and hour < 20: 
-		gs 'swamp_yard', 'daytime_flavor_events'
-	else
-		gs 'swamp_yard', 'nighttime_flavor_events'
-	end
-
-
 	*nl
 	
 	act 'Go outside':

locations/telefon.qsrc

@@ -295,7 +295,7 @@ if $ARGS[0] = 'lover' and loverGender[ARGS[1]] = 0:
 		'"Pretty good, you?"'
 		'<<$loverdesc[lover_number]>>, "Great, but I kind of miss you, can we meet today?"'
 
-		if pregtime <= lover_days and knowpreg = 1 and pregtalk = 0:
+		if (pregchem / 24) <= lover_days and knowpreg = 1 and pregtalk = 0:
 			act 'Tell him he''s going to be a dad':
 				cla
 				pregtalk = 1
@@ -351,7 +351,7 @@ if $ARGS[0] = 'lover' and loverGender[ARGS[1]] = 0:
 					act 'Hang up':gt 'telefon', 'fin'
 				end
 			end
-		elseif pregtime > lover_days and knowpreg = 1 and pregtalk = 0:
+		elseif (pregchem / 24) > lover_days and knowpreg = 1 and pregtalk = 0:
 			act 'Honey, you will soon become a dad':
 				cla
 				loverrelation[lover_number] = 0
@@ -669,7 +669,6 @@ if $ARGS[0] = 'Phone_notebook':
 	rent4 = -1
 	if home_owned[1] > 0 and ArendHouseSL > 0:rent1 = ArendHouseSL
 	if home_owned[4] > 0 and ArendHouseSL4 > 0:rent4 = ArendHouseSL4
-	preg1 = pregtime
 	d1 = day
 	w1 = week
 	m1 = month
@@ -708,7 +707,7 @@ if $ARGS[0] = 'Phone_notebook':
 
 		if daynum >= lastmens+28 and daynum < lastmens+31:$calendarday += $list + '<font color=''red''><b>Menstruation!</b></font>'
 		if daynum >= lastmens+12 and daynum < lastmens+14:$calendarday += $list + '<font color=#336600><b>Ovulation!</b></font>'
-		if preg1 = 280:$calendarday += $list + '<font color=''red''><b>Birthing day!</b></font>'
+		if pregchem >= 6720:$calendarday += $list + '<font color=''red''><b>Birthing day!</b></font>'
 
 		if w1 < 5 and (workSec >= 1 or PersSecWork = 1):$calendarday += $list + 'Working as a secretary. <i>(9:00 - 17:00)</i>'
 		if w1 < 5 and workFabrika = 1:
@@ -744,7 +743,6 @@ if $ARGS[0] = 'Phone_notebook':
 			pl $calendarday
 		end
 	if i < 14:
-		preg1 += 1
 		rent1 -= 1
 		rent4 -= 1
 		i += 1
@@ -760,7 +758,6 @@ if $ARGS[0] = 'Phone_notebook':
 	killvar 'calendarday'
 	killvar 'rent1'
 	killvar 'rent4'
-	killvar 'preg1'
 	killvar 'd1'
 	killvar 'w1'
 	killvar 'm1'

locations/trainBimbo.qsrc

@@ -205,7 +205,7 @@ if $ARGS[0] = 'pos3333':
 	'<center><video autoplay loop src="images/locations/pavlovsk/trainstation/sex/bimbo3,'+rand(0,7)+'.mp4"></video></center>'
 	'He turns your face to the wall and enters your ass from behind. You are not prepared for this, with no lubrication on your ass and only your slavia on his dick the pain is sharp, you wince and tear up. You try to pull away, but strong hands hold you firm, as you struggle more he pushes you tight up against the wall leaving you no where to go.'
 	'He pounds your ass furiously, balls deep with out mercy, the more you whimper the harder he pounds you. He seems to have a supernatural stamina as he ravishes your ass, you completely lose track of time, as tears start to stream down your face.'
-	'"Like that girl? Yeah I know a little slut like you, loves having your ass tore up, you can be my ass whore anytime, ha ha!" With these words began to twitch and you can feel his spurts of hot sperm shooting deep into your ass. Once he has finished cumming in you ass, he pushes your head against the wall while he pulls his dick out of you and wipes it off on your butt cheeks, with a final laugh he lets you go and leaves.'
+	'"Like that girl? Yeah I know a little slut like you, loves having your ass tore up, you can be my ass whore anytime, ha ha!" With these words began to twitch and you can feel his spurts of hot sperm shooting deep into your ass. Once he has finished cumming in your ass, he pushes your head against the wall while he pulls his dick out of you and wipes it off on your butt cheeks, with a final laugh he lets you go and leaves.'
 	if horand > pcs_horny:
 		pcs_horny += 10 & 'You have not managed to cum.'
 	else
@@ -249,9 +249,9 @@ if $ARGS[0] = 'pos33333':
 	body_write = 1
 	gs 'stat'
 	'<center><video autoplay loop src="images/locations/pavlovsk/trainstation/sex/bimbo.cum.body0.mp4"></video></center>'
-	'He pushes you down on the dirty floor and he starts jerking off standing over you. Soon his spurts of hot sperm start raining down all over you body. Once he is finished cumming on you, he pulls out a marker and writes on your chest Pussy Whore. "This way it will be clear to everyone what you really are, ha ha ha!" He pulled up his pants and left you there lying on the floor covered in cum.'
+	'He pulls out a marker and writes on your chest Pussy Whore. "This way it will be clear to everyone what you really are, ha ha ha!" He pulled up his pants and left you there lying on the floor covered in cum.'
 
-	act 'dress':gt 'trainbimbo', 'pos1'
+	act 'Dress': gt 'trainbimbo', 'pos1'
 end
 
 if $ARGS[0] = 'pos4':
@@ -262,7 +262,7 @@ if $ARGS[0] = 'pos4':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/trainstation/vokbimbo4.jpg"></center>'
 	'You pretend not to notice anything. Maybe they will just think you are so stupid, that you mixed up the women''s room with the mens room.'
 
-	act 'wait':gt 'trainbimbo', 'pos1'
+	act 'Wait':gt 'trainbimbo', 'pos1'
 	act 'Leave':gt 'pavtrainhall', 'male'
 end
 

locations/treeCircActs.qsrc

@@ -0,0 +1,26 @@
+#treeCircActs
+! Handles making Action Entries for Different Tree Circle Entry Points
+!	Call as a GoSub with ARGS:
+!	ARGS[0] = Location Identifier	['CentralPark']
+!	ARGS[1] = Localtion Label		['Central Park']
+!	ARGS[2] = location leaving to	['park']
+!	ARGS[3] = parameter for prev	['start']
+
+
+
+if $EntryPoint = $ARGS[0]:
+	act 'Leave the circle to <<$treeCircName[$ARGS[0]]>>':
+		if $treeCircArg['<<$ARGS[0]>>'] = '':
+			gt $treeCircLoc['<<$ARGS[0]>>']
+		else:
+			gt $treeCircLoc['<<$ARGS[0]>>'], $treeCircArg['<<$ARGS[0]>>']
+		end
+	end
+else:
+	if canTeleport = 1 and tpKnown[$ARGS[0]] = 1:
+		$dynAction = "act 'Will yourself to <<$treeCircName[$ARGS[0]]>>': gs 'spellTeleport', '<<$ARGS[0]>>'"
+		dynamic $dynAction
+	end
+end
+
+--- treeCircActs ---------------------------------

locations/treeCircle.qsrc

@@ -0,0 +1,89 @@
+#treeCircle
+! The Magical Teleport Tree Circle
+!
+! ARGS[0] is your entrance point as those listed below.  If the user doesn''t have the magical ability,
+!		they will only be allowed to leave back from their entry point.
+
+! Locations
+$tpLocations[0] = 'CentralPark'
+$tpLocations[1] = 'PavlovskPark'
+$tpLocations[2] = 'GadForest'
+$tpLocations[3] = 'PushkinPark'
+$tpLocations[4] = 'Village'
+
+! Build Info Arrays for Locations
+!	treeCircName = The Pretty Name of the Location
+!	treeCircLoc  = The Location to send the user to when leaving Circle
+!	treeCircArg  = An argument to get the user to the right spot in the location.
+!Central Park Location
+$treeCircName['CentralPark'] = 'Central Park'
+$treeCircLoc['CentralPark'] = 'park'
+$treeCircArg['CentralPark'] = 'start'
+!Pavlovsk Park Location
+$treeCircName['PavlovskPark'] = 'Pavlovsk Park'
+$treeCircLoc['PavlovskPark'] = 'placer_gskver'
+$treeCircArg['PavlovskPark'] = ''
+!Gadukino Forest Location
+$treeCircName['GadForest'] = 'Gadukino Forest'
+$treeCircLoc['GadForest'] = 'gadforest'
+$treeCircArg['GadForest'] = '1'
+!Pushkin Park Location
+$treeCircName['PushkinPark'] = 'Pushkin Park'
+$treeCircLoc['PushkinPark'] = 'lug'
+$treeCircArg['PushkinPark'] = 'prut2'
+!Communal Village Spring Location
+$treeCircName['Village'] = 'Communal Village Spring'
+$treeCircLoc['Village'] = 'etoexhib'
+$treeCircArg['Village'] = 'pos6'
+
+$EntryPoint = $ARGS[0]
+
+*clr & cla
+
+'<center><h2>Mysterious Circle of Trees</h2></center>'
+'<center><img <<$set_imgh>> src="images/locations/shared/park/tree_circle.jpg"></center>'
+
+'The small clearing in the center of the tree circle is two body lengths wide.  The ground is covered with a soft, sponging moss.  Everything is surprisingly visible considering you cna barely see the sky through the overhead cover of leaves and branches.  As you look to the outside of the circle, everything seems to be vague and indistinct.  This makes it hard to comprehend what lies outside the ring.'
+*nl
+
+! Determine if this user can teleport at all.
+canTeleport = 0
+if spellKnown['teleport'] = 1:
+	'You take the Fairy''s advice and get to know this Circle.'
+	minut += 15
+	if pcs_manna > spellMana['teleport']:
+		canTeleport = 1
+	else:
+		*nl
+		'You feel too tired to pull off a shift right now.'
+	end
+else:
+	'You can feel something strange and powerful in this place, but you can''t quite put your finger on it.  It is intriguing, though, so you take your time and loook the place over to try to understand it.'
+	minut += 15
+end
+
+! Learn the current entry point
+tpKnown[$EntryPoint] = 1
+
+! Setup Actions for locations when applicable
+i = 0
+:LocLoop
+if i < ARRSIZE('$tpLocations'):
+	gs 'treeCircActs', $tpLocations[i]
+	i += 1
+	jump 'LocLoop'
+end
+killvar 'i'
+
+act 'Masturbate to clear your head.':
+	*nl
+	'<center><video autoplay loop src="images/locations/shared/park/tree_masturb.mp4"></center>'
+	*nl
+	'That''s better!'
+	orgasm_or = 'yes'
+	gs 'arousal', 'masturbate', 15
+	gs 'arousal', 'end'
+	gs 'stat'
+end
+
+--- treeCircle ---------------------------------

locations/willpower.qsrc

@@ -0,0 +1,267 @@
+# willpower
+
+!!To use call with gs 'willpower', '<type>'
+!!type is the nature of the demand and can be any of the following:
+!!
+!!Sex acts, this is for the cost to refuse advances or force another to partake
+!!'hj', 'bj', 'sex', 'anal', 'gangbang', 'prostitution', 'swallow', 'cum_inside'
+!!Bridging a gap in skill, for succeeding when not quite meeting the required skill/attribute, must include skill with _lvl postfix in $ARGS[1]
+!!'skill'
+!!Standing up to unwanted sex
+!!'rape'
+!!Refusing peer pressure
+!!'drink', 'drugs', 'crime', 'exhib'
+!!Forcing Sveta to stay awake
+!!'sleep'
+!!The value returned as will_cost can be used to inform the player of cost and limit actions
+!!To apply the cost just call gs 'willpower', 'resist' or gs 'willpower', 'force'
+!!Force is for Sveta forcing someone else and will slowly increase the will stat, otherwise its the same as resist
+
+if $ARGS[0] = 'calc':
+	gs 'willpower', 'dnd'
+	will_calc = will_dnd
+!!fatigue
+	if pcs_sleep < 5:
+		will_calc += 50
+	elseif pcs_sleep < 10:
+		will_calc += 25
+	elseif pcs_sleep < 20:
+		will_calc += 10
+	elseif pcs_sleep < 30:
+		will_calc += 5
+	end
+!!hunger
+	if pcs_energy < 5:
+		will_calc += 50
+	elseif pcs_energy < 10:
+		will_calc += 25
+	elseif pcs_energy < 20:
+		will_calc += 10
+	elseif pcs_energy < 30:
+		will_calc += 5
+	end
+!!thirst
+	if pcs_hydra < 5:
+		will_calc += 50
+	elseif pcs_hydra < 10:
+		will_calc += 25
+	elseif pcs_hydra < 20:
+		will_calc += 10
+	elseif pcs_hydra < 30:
+		will_calc += 5
+	end
+!!Very horny
+	if pcs_horny >= 90: will_calc += 10
+!!Bad syphilis, you is mental
+	if Sifilis >= 50: will_calc += 100
+!!feeling sick
+	if sick > 72:
+		will_calc += 35
+	elseif sick > 48:
+		will_calc += 20
+	elseif sick > 24:
+		will_calc += 10
+	elseif sick > 1:
+		will_calc += 5
+	end
+
+end
+
+if $ARGS[0] = 'hj':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	if stat['hj'] <= 90:
+		will_cost = ((100 - stat['hj']) + will_calc)/10
+	else
+		will_cost = (10 + will_calc)/10
+	end
+end
+
+if $ARGS[0] = 'bj':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	if missCum >= timeTresh: will_calc += 100
+	if stat['bj'] <= 90:
+		will_cost = ((100 - stat['bj']) + will_calc)/10
+	else
+		will_cost = (10 + will_calc)/10
+	end
+end
+	
+if $ARGS[0] = 'sex':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	if stat['vaginal'] <= 90:
+		will_cost = ((100 - stat['vaginal']) + will_calc)/10
+	else
+		will_cost = (10 + will_calc)/10
+	end
+end
+	
+if $ARGS[0] = 'anal':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	if missCum >= timeTresh: will_calc += 100
+	if stat['anal'] <= 90:
+		will_cost = ((100 - stat['anal']) + will_calc)/10
+	else
+		will_cost = (10 + will_calc)/10
+	end
+end
+	
+if $ARGS[0] = 'gangbang':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	if missCum >= timeTresh: will_calc += 100
+	if stat['group'] <= 90:
+		will_cost = ((100 - stat['group']) + will_calc)/10
+	else
+		will_cost = (10 + will_calc)/10
+	end
+end
+	
+if $ARGS[0] = 'prostitution':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	if missCum >= timeTresh: will_calc += 100
+	prost_will = pav_prostitute + city_prostitute + oldtown_prostitute + village_prostitute
+	if prost_will <= 90:
+		will_cost = ((100 - prost_will) + will_calc)/10
+	else
+		will_cost = (10 + will_calc)/10
+	end
+end
+	
+if $ARGS[0] = 'swallow':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	if trt_cumeater = 0:
+		will_cost = (100 + will_calc)/10
+	else
+		will_cost = (10 + will_calc)/10
+	end
+end
+
+!! no stat for this currently so just a baseline figure and reduction if cum already inside
+if $ARGS[0] = 'cum_inside':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	if missCum >= timeTresh: will_calc += 100
+	if cumloc[0] <= 0:
+		will_cost = (100 + will_calc)/10
+	else
+		will_cost = (10 + will_calc)/10
+	end
+end
+
+!! requires the skill to be named with the _lvl postfix
+if $ARGS[0] = 'skill':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	dynamic 'will_cost = <<$ARGS[1]>> + will_calc)/10'
+end
+	
+if $ARGS[0] = 'rape':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	if missCum >= timeTresh: will_calc += 100
+	if stat['bj'] <= 90:
+		will_cost = ((100 - stat['bj']) + will_calc)/10
+	else
+		will_cost = (10 + will_calc)/10
+	end
+end
+
+if $ARGS[0] = 'drink':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	if alko > 10:
+		will_cost = (60 + will_calc)/10
+	elseif alko > 6:
+		will_cost = (100 + will_calc)/10
+	elseif alko > 3:
+		will_cost = (80 + will_calc)/10
+	end
+end
+
+!!Drug needs already included in the will_calc so just a small base cost here
+if $ARGS[0] = 'drugs':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	will_cost = (20 + will_calc)/10
+end
+
+!!There is no related stat so just a base cost of 6
+if $ARGS[0] = 'crime':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	will_cost = (60 + will_calc)/10
+end
+
+if $ARGS[0] = 'exhib':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	if stat['bj'] <= 90:
+	if Exhibitionist_lvl = 3:
+		will_cost = (0 + will_calc)/10
+	elseif Exhibitionist_lvl = 2:
+		will_cost = (1 + will_calc)/10
+	elseif Exhibitionist_lvl = 1:
+		will_cost = (2 + will_calc)/10
+	elseif pcs_inhib > 70:
+		will_cost = (3 + will_calc)/10
+	else
+		will_cost = (100 - pcs_inhib + will_calc)/10
+	end
+end
+
+!!this is to force you to stay wake so will cost nothing if you have more than 5 sleep, it has no base cost as there will always be a sleep cost in calc
+if $ARGS[0] = 'sleep':
+	gs 'willpower', 'calc'
+	will_cost = 0
+	if pcs_sleep <= 5: will_cost = will_calc/10
+end
+
+!!modifiers for drink an drugs
+if $ARGS[0] = 'dnd':
+	will_dnd = 0
+	if alko > 10:
+		will_dnd += 80
+	elseif alko > 6:
+		will_dnd += 40
+	elseif alko > 3:
+		will_dnd += 20
+	end
+
+	!!cigarettes
+	if smokerNeed > 10: will_dnd += 10
+	!!amphetamines
+	if amphWithdrawl > 2:
+		will_dnd += 40
+	elseif amphHigh > 0:
+		will_dnd += 60
+	end
+	!!heroine
+	if SLomka > 0:
+		will_dnd += 80
+	elseif StrongNarkota > 0:
+		will_dnd += 50
+	end
+	!!cocaine
+	if narkoman = 1:
+		will_dnd += 40
+	elseif nark < 0:
+		will_dnd -= 20
+	end
+end
+
+if $ARGS[0] = 'resist': pcs_willpwr -= will_cost
+
+if $ARGS[0] = 'force':
+	pcs_willpwr -= will_cost
+	will_counter += 1
+	if will_counter > 10: pcs_will += 1
+end
+
+--- willpower ---------------------------------
+