glife.qproj

@@ -780,6 +780,7 @@
 		<Location name="city_library"/>
 		<Location name="fit"/>
 		<Location name="talent_agency"/>
+		<Location name="casting"/>
 		<Location name="tatiana_lab"/>
 		<Location name="tatiana_missions"/>
 		<Location name="alexandriaHome"/>

locations/KatjaHomeTalk.qsrc

@@ -130,6 +130,8 @@ if $ARGS[0] = '':
 		!!Friday and Sturday evening Katja goes to the disco, if the player is talking to when this happens she asks them to go with. Alternatively the can just leave.
 		'"Let''s go to the disco!" Katja suggests with a smile.'
 		if money >= 25:act 'Go to the disco':money -= 25 & minut += 10 & gt 'pav_disco'
+	elseif locat['katja'] = 9:
+		'Katja notices how late it is and politely asks you to leave.'
 	else
 		if pcs_sweat >= 20:
 			!katja doesn''t like stinky people so if the player is sveaty she will ask the player to take a bath. The player can leave instead.
@@ -876,16 +878,7 @@ if $ARGS[0] = 'Sextalk':
 		end
 
 		if stat['bj'] > 0:
-			act 'Talk about blowjobs':
-				cls
-				katjaQW['horny'] += 5
-				katjaQW['knows_BJ'] = 1
-				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
-				'You tell Katja how you''ve sucked dick and what it feels like. She blushes and bites her lip.'
-
-				act 'Further':minut += 15 & gt 'KatjaHomeTalk'
-			end
+			gs'KatjaHomeTalk','bj_talk1'
 		else
 			act 'You''ve never given a blowjob':
 				cls
@@ -1073,6 +1066,88 @@ if $ARGS[0] = 'Sextalk':
 	end
 end
 
+if $ARGS[0] = 'bj_talk1':
+	if KatjaKnowBJ > 0:
+		'"<<$pcs_nickname>>!" she says, a sparkle in her eye. "Tell me what it''s like to suckiong dick again."'
+	elseif KatjaKnowBJ = 0:
+		'"<<$pcs_nickname>>, have you ever given a guy a blowjob?"'
+	end
+
+	if stat['bj'] > 0:
+		if KatjaKnowBJ = 0:
+			act 'No (lie)':
+				cla & *clr
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+				'"No," you shake your head before shamelessly lying through your teeth. "I''ve never given a blowjob before."'
+				'"Oh." She sits back, looking disappointed for some reason.'
+				act 'Continue':minut += 15 & gt 'KatjaHomeTalk'
+			end
+			act'Yes':
+				cla & *clr
+				KatjaLust += 5
+				KatjaHorny += 10
+				KatjaKnowBJ = 1
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+				'"Yeah. I''ve given a few," you admit.'
+				'"What''s it like?" Katja asks, eyes wide with excitement.'
+				gs'KatjaHomeTalk','bj_talk2'
+			end
+		elseif stat['bj'] > 0:
+			gs'KatjaHomeTalk','bj_talk2'
+		end
+	else
+		act 'No':
+			cla & *clr
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big14.jpg"></center>'
+			'"No," you shake your head. "I''ve never given a blowjob before."'
+			'"Oh." She sits back, looking disappointed for some reason. "Guess we''re both clueless then, huh?"'
+			act 'Continue':minut += 15 & gt 'KatjaHomeTalk'
+		end
+		!!act'I''ve given a few (lie)':
+	end
+end
+
+if $ARGS[0] = 'bj_talk2':
+	act'It tastes funny':
+		cla & *nl
+		'"It tastes funny," you wrinkle your nose. "It''s like, kinda salty? But also sort of... musty? I don''t think I mind the act itself that much, but dick has a weird flavor."'
+		'Katja seems taken aback, almost disappointed. You guess this isn''t the answer she was hoping for.'
+		act 'Continue':minut += 15 & gt 'KatjaHomeTalk'
+	end
+	
+	act'It''s fun':
+		cla & *nl
+		'"It''s fun!" you grin. "I''m not really sure what it is, but something about having a dick in your mouth is really entertaining. It''s like, totally alive! And you can feel it making all these tiny movements when it''s on your tongue. I really like giving head."'
+		'Katja hangs on your every word, nodding excitedly for you to keep describing your experiences with oral sex to her.'
+		act 'Continue':minut += 15 & gt 'KatjaHomeTalk'
+	end
+	
+	act'It''s whatever':
+		cla & *nl
+		'"I don''t mind doing it but I don''t love it either," you say. "Dick doesn''t really taste like anything if it''s clean. Kinda salty if it isn''t. I don''t know. It''s whatever I guess."'
+		'You shrug.'
+		'Katja seems taken aback, almost disappointed. You guess this isn''t the answer she was hoping for.'
+		act 'Continue':minut += 15 & gt 'KatjaHomeTalk'
+	end
+	
+	act'It''s boring':
+		cla & *nl
+		'"It''s boring," you roll your eyes. "You have to keep sucking the whole time and after a while my jaw just starts to ache with the motion. It''s a dick in your mouth, I don''t know what to tell you.'
+		'Katja seems taken aback, looking almost worried. You guess you just shattered some impressions she had about giving head.'
+		act 'Continue':minut += 15 & gt 'KatjaHomeTalk'
+	end
+	
+	act'It turns me on':
+		cla & *nl
+		'"It turns me on so much," you admit, biting your lip in a lusty smile. "When someone''s in your mouth, you can make them feel <i>really</i> good. And they''ll respond to what you do. If you take their whole length, they''ll squirm. If you lick the head, it''ll twitch under your touch. Just knowing you can make someone else feel that way... Ugh, just <i>thinking</i> about it gets me wet!"'
+		'Katja hangs on your every word, nodding along with wide eyes as you describe what it is you love so much about giving head. A faint blush also comes to her cheeks and you notice her unconsciously rubbing her thighs together.'
+		act 'Continue':minut += 15 & gt 'KatjaHomeTalk'
+	end	
+end
+
 if $ARGS[0] = 'hornykiss':
 	'Katja brings her face so close to yours that you can feel her hot breath on your skin.'
 

locations/Komp.qsrc

@@ -398,7 +398,7 @@ if $ARGS[0] = 'rabota':
 		'<center><img <<$set_imgh>> src="images/pc/items/accessories/computer/eror.jpg"></center>'
 		'You have no prepaid internet access remaining. You need to buy more, before you can go online again.'
 
-		act 'Close the browser':gt 'komp','start'
+		act 'Close the browser':gt 'komp','brows'
 	else
 		minut += 60
 		internet -= 1
@@ -1784,7 +1784,7 @@ if $ARGS[0] = 'bank':
 			act 'Continue': gt 'komp', 'bank'
 		end
 	end
-	act 'Close your browser':gt 'komp', 'start'
+	act 'Close your browser':gt 'komp', 'brows'
 end
 
 if $ARGS[0] = 'fuckornot':
@@ -1808,7 +1808,7 @@ if $ARGS[0] = 'fuckornot':
 		if $view_location = 'school':
 			gt 'gschool_lessons', 'short_break'
 		else
-			gt 'komp', 'start'
+			gt 'komp', 'brows'
 		end
 	end
 end
@@ -1834,7 +1834,7 @@ if $ARGS[0] = 'hotornot':
 		if $view_location = 'school':
 			gt 'gschool_lessons', 'short_break'
 		else
-			gt 'komp', 'start'
+			gt 'komp', 'brows'
 		end
 	end
 end

locations/_attributes_danilovich_outfits.qsrc

@@ -1,5 +1,5 @@
 # $attributes_danilovich_outfits
-!!2022/01/11
+!!2022/02/28
 !!Quality range is 2-5. 3 for casual short-and-shorts, 4 for clothing specially designed for exercise, 5 is more designed for looks than exercise.
 
 if ARGS[1] = 1:
@@ -908,33 +908,33 @@ elseif ARGS[1] = 150:
 	CloPantsShortness = 1
 	
 elseif ARGS[1] = 151:
-	CloQuality = 3
+	CloQuality = 4
 	CloThinness = 4
 	CloBra = 1
 	CloPanties =1
 	
 elseif ARGS[1] = 152:
-	CloQuality = 3
+	CloQuality = 4
 	CloThinness = 4
 	CloBra = 1
 	CloPanties =1
 	
 elseif ARGS[1] = 153:
-	CloQuality = 3
+	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 1
 	CloPantsShortness = 6
 	CloOnePiece = 1
 	
 elseif ARGS[1] = 154:
-	CloQuality = 3
+	CloQuality = 4
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 1
 	CloOnePiece = 1
 	
 elseif ARGS[1] = 155:
-	CloQuality = 3
+	CloQuality = 4
 	CloThinness = 2
 	CloTopCut = 2
 	CloPantsShortness = 6
@@ -948,7 +948,7 @@ elseif ARGS[1] = 156:
 	CloOnePiece = 1
 	
 elseif ARGS[1] = 157:
-	CloQuality = 4
+	CloQuality = 5
 	CloThinness = 4
 	CloTopCut = 2
 	CloPantsShortness = 6

locations/_attributes_scandalicious_outfits.qsrc

@@ -1,154 +1,221 @@
 # $attributes_scandalicious_outfits
-!2021/05/08
-!price range from 2 to 3, please avoid adding too many outside of that range
+!2022/02/28
+!price range from 2 to 5, please avoid adding too many 5''s
 
 if ARGS[1] = 1:
-	CloQuality = 2
+	CloQuality = 5
 	CloThinness = 5
-	CloTopCut = 2
+	CloTopCut = 4
 	CloPantsShortness = 1
-	CloStyle = 4
+	CloOnePiece = 1
 
 elseif ARGS[1] = 2:
-	CloQuality = 2
+	CloQuality = 3
 	CloThinness = 5
-	CloTopCut = 3
-	CloPantsShortness = 1
+	CloTopCut = 4
+	CloPantsShortness = 6
+	CloOnePiece = 1
 	CloBimbo = 1
-	CloStyle = 4
 	
 elseif ARGS[1] = 3:
-	CloQuality = 2
-	CloThinness = 5
-	CloBra = 1
-	CloPantsShortness = 1
-	CloBimbo = 1
+	CloQuality = 3
+	CloThinness = 6
+	CloTopCut = 3
+	CloPantsShortness = 6
+	CloOnePiece = 1
 	CloStyle = 4
 	
 elseif ARGS[1] = 4:
 	CloQuality = 3
-	CloThinness = 6
-	CloBra = 1
-	CloPantsShortness = 4
-	CloStyle = 4
+	CloThinness = 5
+	CloTopCut = 4
+	CloPantsShortness = 1
 	
 elseif ARGS[1] = 5:
-	CloQuality = 3
+	CloQuality = 4
 	CloThinness = 5
-	CloTopCut = 2
-	CloPantsShortness = 5
+	CloTopCut = 4
+	CloPantsShortness = 6
+	CloOnePiece = 1
 
 elseif ARGS[1] = 6:
-	CloQuality = 3
+	CloQuality = 4
 	CloThinness = 5
-	CloTopCut = 3
-	CloPantsShortness = 5
-	CloStyle = 4
+	CloTopCut = 4
+	CloPantsShortness = 6
+	CloOnePiece = 1
 	
 elseif ARGS[1] = 7:
-	CloQuality = 3
+	CloQuality = 4
 	CloThinness = 5
-	CloTopCut = 3
-	CloPantsShortness = 5
+	CloTopCut = 4
+	CloPantsShortness = 6
+	CloOnePiece = 1
+	CloBimbo = 1
 	
 elseif ARGS[1] = 8:
-	CloQuality = 3
+	CloQuality = 4
 	CloThinness = 5
-	CloTopCut = 3
-	CloPantsShortness = 5
-	CloStyle = 4
+	CloTopCut = 4
+	CloPantsShortness = 6
+	CloOnePiece = 1
+	CloBimbo = 1
 	
 elseif ARGS[1] = 9:
-	CloQuality = 3
+	CloQuality = 4
 	CloThinness = 5
-	CloTopCut = 3
-	CloPantsShortness = 5
-	CloBimbo = 1
+	CloBra = 1
+	CloPanties = 1
 	CloStyle = 4
 	
 elseif ARGS[1] = 10:
-	CloQuality = 3
+	CloQuality = 4
 	CloThinness = 5
-	CloTopCut = 3
-	CloPantsShortness = 5
+	CloBra = 1
+	CloPanties = 1
 	CloStyle = 4
 	
 elseif ARGS[1] = 11:
-	CloQuality = 3
-	CloThinness = 4
-	CloTopCut = 3
-	CloPantsShortness = 5
-	CloDress = 1
-	CloBimbo = 1
+	CloQuality = 4
+	CloThinness = 5
+	CloBra = 1
+	CloPanties = 1
+	CloStyle = 4
 	
 elseif ARGS[1] = 12:
-	CloQuality = 2
+	CloQuality = 4
 	CloThinness = 5
-	CloTopCut = 3
-	CloPantsShortness = 5
-	CloDress = 1
-	CloBimbo = 1
+	CloBra = 1
+	CloPanties = 1
+	CloStyle = 4
 	
 elseif ARGS[1] = 13:
-	CloQuality = 2
+	CloQuality = 4
 	CloThinness = 5
 	CloBra = 1
-	CloPantsShortness = 5
+	CloPanties = 1
 	CloStyle = 4
 	
 elseif ARGS[1] = 14:
-	CloQuality = 2
+	CloQuality = 3
 	CloThinness = 5
-	CloBra = 1
+	CloTopCut = 3
 	CloPantsShortness = 5
-	CloBimbo = 1
 	CloStyle = 4
 	
 elseif ARGS[1] = 15:
-	CloQuality = 3
-	CloThinness = 4
+	CloQuality = 5
+	CloThinness = 5
 	CloTopCut = 4
 	CloPantsShortness = 5
+	CloOnePiece = 1
 	CloBimbo = 1
 	CloStyle = 4
 	
 elseif ARGS[1] = 16:
 	CloQuality = 3
-	CloThinness = 4
-	CloBra = 1
+	CloThinness = 5
+	CloTopCut = 3
 	CloPantsShortness = 5
 	CloStyle = 4
 	
 elseif ARGS[1] = 17:
-	CloQuality = 4
+	CloQuality = 5
 	CloThinness = 5
-	CloTopCut = 2
-	CloPantsShortness = 6
-	CloOnePiece = 1
+	CloTopCut = 4
+	CloPantsShortness = 5
 	CloStyle = 4
 	
 elseif ARGS[1] = 18:
-	CloQuality = 3
+	CloQuality = 5
 	CloThinness = 5
 	CloTopCut = 4
-	CloPantsShortness = 6
-	CloOnePiece = 1
+	CloPantsShortness = 5
 	CloStyle = 4
 	
 elseif ARGS[1] = 19:
-	CloQuality = 2
+	CloQuality = 5
 	CloThinness = 5
+	CloTopCut = 4
+	CloPantsShortness = 5
+	CloStyle = 4
+	
+elseif ARGS[1] = 20:
+	CloQuality = 5
+	CloThinness = 5
+	CloTopCut = 4
+	CloPantsShortness = 5
+	CloBimbo = 1
+	CloStyle = 4
+
+elseif ARGS[1] = 21:
+	CloQuality = 5
+	CloThinness = 4
 	CloTopCut = 3
 	CloPantsShortness = 6
-	CloOnePiece = 1
+	
+elseif ARGS[1] = 22:
+	CloQuality = 3
+	CloThinness = 5
+	CloTopCut = 3
+	CloPantsShortness = 5
 	CloStyle = 4
 	
-elseif ARGS[1] = 20:
+elseif ARGS[1] = 23:
 	CloQuality = 2
 	CloThinness = 5
+	CloTopCut = 3
+	CloPantsShortness = 5
+	CloStyle = 4
+	
+elseif ARGS[1] = 24:
+	CloQuality = 4
+	CloThinness = 4
 	CloTopCut = 4
-	CloPantsShortness = 6
-	CloOnePiece = 1
+	CloPantsShortness = 5
+	
+elseif ARGS[1] = 25:
+	CloQuality = 2
+	CloThinness = 5
+	CloTopCut = 4
+	CloPantsShortness = 5
+	CloStyle = 4
+	
+elseif ARGS[1] = 26:
+	CloQuality = 2
+	CloThinness = 5
+	CloTopCut = 4
+	CloPantsShortness = 5
+	CloStyle = 4
+	
+elseif ARGS[1] = 27:
+	CloQuality = 4
+	CloThinness = 5
+	CloBra = 1
+	CloPanties = 1
+	CloStyle = 4
+	
+elseif ARGS[1] = 28:
+	CloQuality = 5
+	CloThinness = 5
+	CloBra = 1
+	CloPantsShortness = 5
+	CloBimbo = 1
+	CloStyle = 4
+	
+elseif ARGS[1] = 29:
+	CloQuality = 4
+	CloThinness = 5
+	CloBra = 1
+	CloPanties = 1
+	CloStyle = 4
+	
+else
+	CloQuality = 4
+	CloThinness = 5
+	CloBra = 1
+	CloPanties = 1
+	CloBimbo = 1
 	CloStyle = 4
 	
 end

locations/albina_chat.qsrc

@@ -285,14 +285,14 @@ if $ARGS[0] = 'Doggystyle':
 	act'It''s more intense':
 		cla & *nl
 		'"There''s something <i>intense</i> about it," you say. "Something primal. I can''t explain it, but when I get fucked from behind, it drives me wild."'
-		'"I definitely get that," Albina says. "I love that about it too. All I want from a guy is for him to grab me by the hair, shove his cock up my ass, and spank me til I come. Best night ever."'
+		'"I definitely get that," Albina says. "I love that about it too. All I want from a guy is for him to grab me by the hair, shove his cock up my ass, and spank me until I cum. Best night ever."'
 		gs'albina_chat','Doggystyle2'
 	end
 	
 	act'It goes deeper':
 		cla & *nl
 		'"It goes deeper in doggy," you explain. "I feel like it <i>fills</i> me, hitting every part of my insides. It just feels the best in that position."'
-		'"Fuck yeah," Albina says. "Doggy is the only way to <i>really</i> get balls deep inside a girl. And then when you get grabbed by the hair and pulled back even harder? And when he shoves it up your ass and spanks you? Fuck me, I could come just thinking about it."'
+		'"Fuck yeah," Albina says. "Doggy is the only way to <i>really</i> get balls deep inside a girl. And then when you get grabbed by the hair and pulled back even harder? And when he shoves it up your ass and spanks you? Fuck me, I could cum just thinking about it."'
 		gs'albina_chat','Doggystyle2'
 	end
 	
@@ -329,14 +329,14 @@ if $ARGS[0] = 'Cowgirl':
 	act'I like being in control':
 		cla & *nl
 		'"I like being in control," you explain. "If I want to go slow, I can go slow. If I want to go fast, I can ride him as hard as I like. It makes me feel... powerful? Just knowing that I''m the one in charge is such a turn on for me."'
-		'"I don''t think that kind of stuff matters to me," Albina shrugs back. "I like it hard and rough every time. Don''t get all slow and gentle with me. If I''m gonna get fucked, I want to <i>feel</i> it. I''d rather get my face stuffed into the sheets with a cock balls deep up my ass and spanked until my eyes water. At the end of it, I want my makeup to look as fucked as I feel. Now <i>that''s</i> a good time!"'
+		'"I don''t think that kind of stuff matters to me," Albina shrugs back. "I like it hard and rough every time. Don''t get all slow and gentle with me. If I''m gonna get fucked, I want to <i>feel</i> it. I''d rather have my face stuffed into the sheets with a cock balls deep up my ass being spanked until my eyes water. At the end of it, I want my makeup to look as fucked as I feel. Now <i>that''s</i> a good time!"'
 		gs'albina_chat','Cowgirl2'
 	end
 		
-	act'I like it when he grabs my boobs':
+	act'I like it when he grabs my breasts':
 		cla & *nl
 		'"I like having my boobs grabbed," you grin. "If I''m on top, then his hands are free to grope me."'
-		'"But he can still grab your tits from behind," Albina argues. "Plus, he can spank you til you''re red and wriggling. Why choose when you can have both?"'
+		'"But he can still grab your tits from behind," Albina argues. "Plus, he can spank you until you''re red and wriggling too. Why choose when you can have both?"'
 		gs'albina_chat','Cowgirl2'
 	end
 end
@@ -639,13 +639,13 @@ if $ARGS[0] = 'wine_chat2':
 		cla & *clr
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/wine_talk.jpg"></center>'
 		'"So, spit or swallow?" you ask, looking down at Albina.'
-		'"Swallow, duh.'
+		'"Swallow, duh."'
 		act'Ew, gross':
 			cla & *nl
 			'"Ewww," you wrinkle your nose in disgust. "Thad''s fucking gross! I can''t believe you do that!"'
 			'"Waht else am I suppozed do?"'
 			'"Just spit it out!"'
-			'"But if he comes in your mouth, that means he wants you to swallow, right?" she says, looking genuinely confused that you''re suggesting there''s a choice.'
+			'"But if he cums in your mouth, that means he wants you to swallow, right?" she says, looking genuinely confused that you''re suggesting there''s a choice.'
 			act'Continue':gt'albina_chat','wine_chat1'
 		end
 
@@ -663,7 +663,7 @@ if $ARGS[0] = 'wine_chat2':
 				'"Yeah, it''s why I swallow. You don''t like it?"'
 				'"No! It fuckin'' tastes like shit!"'
 				'"Then why do you do it?"'
-				'"Cuz you''re supposed to? If he comes in my mouth, I can''t spit it out," she says, looking genuinely confused that you''re suggesting there''s a choice.'
+				'"Cuz you''re supposed to? If he cums in my mouth, I can''t spit it out," she says, looking genuinely confused that you''re suggesting there''s a choice.'
 				act'Continue':gt'albina_chat','wine_chat1'
 			end
 		end

locations/arturRinok.qsrc

@@ -140,7 +140,7 @@ if $ARGS[0] = 'work_1':
 				gs 'stat'
 
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/arthur/arturqw_4.jpg"></center>'
-				'Arthur comes up behind you and firmly grabs a handful of your ass. "<<$pcs_nickname>>, here you go, you earned this." He hands you 5000 <b>₽</b>.'
+				'Arthur comes up behind you and firmly grabs a handful of your ass. "<<$pcs_nickname>>, here you go, you earned this." He hands you 1250 <b>₽</b>.'
 				'"I like helping you very much, thank you very much Arturik." You look at him with grateful eyes and take the money.'
 				'"Well, you know, the sight of your beautiful eyes nearly overwhelm me every time I see them. So does your tight ass." He says, smiling lecherously at you'
 				'You turn and give him a quick shake of your rump before departing.'

locations/begin.qsrc

@@ -7,6 +7,7 @@ if $ARGS[0] = 'start':
 	timerEndM = 0
 	timer = 6
 	timerM = 30
+	settingmode = 0
 
 	gs 'Cheatmenu_din'
 	showstat 1

locations/beverage.qsrc

@@ -181,6 +181,37 @@ if $ARGS[0] = 'bev_tea':
 	end
 end
 
+if $ARGS[0] = 'bev_energy_drink':
+	*clr & cla
+	frost = 1
+	if alko > 0: alko -= 1
+	minut += 5
+	money -= val($_drink['<<args[1]>>,price'])
+	pcs_health += 10
+	pcs_mood += 20
+	pcs_energy += 20
+	fat += 3
+	if pcs_hydra >= 100:
+		pcs_hydra += 25
+	else
+		pcs_hydra += 50
+	end
+	cumspclnt = 2
+	gs 'cum_cleanup'
+	pcs_breath = 0
+	gs 'beverage', 'afterdrink'
+	'<center><img <<$set_imgh>> src="images/shared/drinks/energy_drink.jpg"></center>'
+	'You enjoy an energy drink, and<<$mtxt>>'
+	gs 'stat'
+	killvar '$_drink'
+
+	if food_loc = 1:
+		act 'Finish': gt 'food_menu'
+	else
+		act 'Finish':gt $loc, $loc_arg
+	end
+end
+
 if $ARGS[0] = 'bev_vod':
 	if pcs_health > 20:
 		*clr & cla

locations/city_apt_building.qsrc

@@ -323,14 +323,6 @@ if $ARGS[0] = 'lift':
 	killvar 'res_lift_ev'
 end
 
-if $ARGS[0] = 'elev_objava':
-		*clr & cla
-		minut += 1
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/apartment/stairs/elevator_ob'+rand(1,2)+'.jpg"></center>'
-	act 'Continue': gt 'city_apt_building','lift'
-end
-
 if $ARGS[0] = 'pod_objava':
 		*clr & cla
 		minut += 1

locations/city_market.qsrc

@@ -248,19 +248,24 @@ if $ARGS[0] = 'tailor':
 			'"So <<$pcs_nickname>>. Do you need any clothing adjusted?"'
 
 			if money >= 500:
-				act 'Take in the clothes you are wearing (500 <b>₽</b>)':
-					cla
-					*clr
-					minut += 15
+				act 'Resize the clothes you''re wearing (500 <b>₽</b>)':
+					*clr & cla
+					minut += 10
 					if CloStyle = 5 or $clothingworntype = 'danilovich_outfits':
-						'"What are you wasting my time for? This does not need to be resized!"'
+						'The tailor is looking irritatingly at you, "Why are you wasting my time with exercise clothing? That type of clothing does not need to be resized..."'
+					elseif dyneval('RESULT = <<$clothingworntype>>_b[<<clothingwornnumber>>]') = pcs_hips:
+						'The tailor is looking irritatingly at you, "Is this joke? Your clothes could not fit you better if they had been made for you. I have no time for such foolishness."'
+					elseif (dyneval('RESULT = <<$clothingworntype>>_b[<<clothingwornnumber>>]') > pcs_hips + 4) or (dyneval('RESULT = <<$clothingworntype>>_b[<<clothingwornnumber>>]') < pcs_hips - 4):
+						'The tailor is looking irritatingly at you, "Why are you wasting my time? Your clothing does not need to be resized. It might not be perfect but it is still fine."'
 					else
 						money -= 500
 						dynamic '<<$clothingworntype>>_b[<<clothingwornnumber>>] = pcs_hips'
-						'You undress and give your clothes to Jacob. Fifteen minutes pass before he returns.'
+						'You are handed a t-shirt and shorts as you undress and give the clothes to the tailor for adjustment.'
+						'Jacob quickly measures your waist and hips, then only takes a few minutes to adjust your outfit.'
+						'You are handed your clothes back and quickly get dressed. You''re pleased with the job that the tailor has done.'
 					end
 
-					act 'Leave': minut += 10 & gt 'city_residential'
+					act 'Continue': minut += 10 & gt 'city_market', 'tailor'
 				end
 
 				act 'Take in different clothes':gt 'clothing', 'view_clothing_list', 'resize'

locations/city_nightclub.qsrc

@@ -172,6 +172,7 @@ if $ARGS[0] = 'inside':
 
 	if (hour < 1 or hour >= 18) and clubwork = 1:
 		act 'Find Erik for work':
+			menu_off = 1
 			*clr & cla
 			minut += 5
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/club11.jpg"></center>'

locations/clothing_QV.qsrc

@@ -1132,7 +1132,7 @@ if $ARGS[0] = 'clothing_list':
 			if (clothingfilter['quality'] = 0 and CloQuality = clo_i) or (clothingfilter['inhibition'] = 0 and CloInhibit = clo_i) or clothingfilter['number'] = 0:
 				if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1 and clothingfilter['sport_only'] = 0:
 					if CloInhibit <= pcs_inhib:
-						if materinstvo_dress_s[i] = 0 and materinstvo_dress_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''materinstvo_dress'', <<i>>"><img src="images/pc/items/materinstvo/<<i>>.jpg" 	height="250" /></a>'
+						if materinstvo_dress_s[i] = 0 and materinstvo_dress_h[i] > 0:*p '<a href="exec:gt ''clothing_QV'', ''change'', ''materinstvo_dress'', <<i>>"><img src="images/pc/items/mommy/<<i>>.jpg" 	height="250" /></a>'
 					end
 				end
 			end

locations/clothing_descriptions.qsrc

@@ -174,7 +174,7 @@ elseif CloSkirtShortness > 0:
 	elseif CloSkirtShortness = 2:
 		$description += ' and a knee-length skirt.'
 	elseif CloSkirtShortness = 3:
-		$description += ' and a fairly standard skirt.'
+		$description += ' and an above knee length skirt.'
 	elseif CloSkirtShortness = 4:
 		$description += ' and a rather short skirt.'
 	elseif CloSkirtShortness = 5:

locations/cum_call.qsrc

@@ -4,7 +4,7 @@
 'labia' - 'pantyfront' - 'anus' - 'butt' - 'pantyrear' - 'clothes_hidden' - 'clothes' - 'back' - 'legs'
 'arms' - 'face' - 'mouth' - 'hands' - 'stomach' - 'breasts' - 'hair' - 'internalcondom' - 'precum' - 'mouth_swallow'
 	'precum' - is for whenever Sveta has unprotected vaginal sex. It will automatically set the volume to 1.
-	'mouth_swallow' does the same as mouth but increaments swallow for the cum eater trait
+	'mouth_swallow' does the same as mouth but increments swallow for the cum eater trait
 	'feet' redirects to 'legs'
 	'anal' redirects to 'anus' (prevents further errors)
 $ARGS[1] is for the name of the sexual partner

locations/din_bad.qsrc

@@ -1,81 +1,83 @@
 # din_bad
 !2021/05/02
 $mobile_check = {
-	gs 'stat'
-	if vladimirday ! daystart and hour >= 15 and hour <= 17:
-		if vladimirQW = 20:
-			'<b><font color="red">Your phone is ringing</font></b>'
-			$caller = 'Vladimir'
-			$callerid = 'images/characters/city/vladimir/001.jpg'
-			gs 'telefon','phone_ring'
-			pl'<center><a href="exec:gt ''qwloc'',''2''"><img src="images/system/phone/call_accept.png"></a>		<a href="exec:vladimirday = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
-		elseif vladimirQW = 25 and week = 6:
+	if menu_off = 0:
+		gs 'stat'
+		if vladimirday ! daystart and hour >= 15 and hour <= 17:
+			if vladimirQW = 20:
+				'<b><font color="red">Your phone is ringing</font></b>'
+				$caller = 'Vladimir'
+				$callerid = 'images/characters/city/vladimir/001.jpg'
+				gs 'telefon','phone_ring'
+				pl'<center><a href="exec:gt ''qwloc'',''2''"><img src="images/system/phone/call_accept.png"></a>		<a href="exec:vladimirday = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
+			elseif vladimirQW = 25 and week = 6:
+				'<b><font color="red">Your phone is ringing</font></b>'
+				$caller = 'Vladimir'
+				$callerid = 'images/characters/city/vladimir/001.jpg'
+				gs 'telefon','phone_ring'
+				pl'<center><a href="exec:gt ''qwloc'',''3''"><img src="images/system/phone/call_accept.png"></a>		<a href="exec:vladimirday = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
+			elseif vladimirQW = 35 and week = 6:
+				'<b><font color="red">Your phone is ringing</font></b>'
+				$caller = 'Vladimir'
+				$callerid = 'images/characters/city/vladimir/001.jpg'
+				gs 'telefon','phone_ring'
+				pl'<center><a href="exec:gt ''qwloc'',''4''"><img src="images/system/phone/call_accept.png"></a>		<a href="exec:vladimirday = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
+			end
+		end
+
+		if leonidSlaveDay = daystart and hour >= 6 and hour <= 10 and leonidVisit = 0:
 			'<b><font color="red">Your phone is ringing</font></b>'
-			$caller = 'Vladimir'
-			$callerid = 'images/characters/city/vladimir/001.jpg'
+			$caller = 'Leonid Vostov'
+			$callerid = 'images/characters/pavlovsk/resident/leonid/leonidphone.jpg'
 			gs 'telefon','phone_ring'
-			pl'<center><a href="exec:gt ''qwloc'',''3''"><img src="images/system/phone/call_accept.png"></a>		<a href="exec:vladimirday = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
-		elseif vladimirQW = 35 and week = 6:
+			pl'<center><a href="exec:gt ''leonid'', ''call''"><img src="images/system/phone/call_accept.png"></a>		<a href="exec:leonidSlaveDay = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
+		end
+
+		if QWdogreiqTimer = 0 and QWdogReiq = 2 and week = 7 and qwdogiventday ! daystart and hour >= 12:
 			'<b><font color="red">Your phone is ringing</font></b>'
-			$caller = 'Vladimir'
-			$callerid = 'images/characters/city/vladimir/001.jpg'
+			$caller = 'Margaret'
+			$callerid = ''
 			gs 'telefon','phone_ring'
-			pl'<center><a href="exec:gt ''qwloc'',''4''"><img src="images/system/phone/call_accept.png"></a>		<a href="exec:vladimirday = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
+			pl''
+			pl''
+			pl''
+			pl''
+			pl''
+			pl''
+			pl''
+			pl''
+			pl''
+			pl''
+			'<center><a href="exec:gt ''qwlocdog''"><img src="images/system/phone/call_accept.png"></a>			 <a href="exec:qwdogiventday = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
 		end
-	end
 
-	if leonidSlaveDay = daystart and hour >= 6 and hour <= 10 and leonidVisit = 0:
-		'<b><font color="red">Your phone is ringing</font></b>'
-		$caller = 'Leonid Vostov'
-		$callerid = 'images/characters/pavlovsk/resident/leonid/leonidphone.jpg'
-		gs 'telefon','phone_ring'
-		pl'<center><a href="exec:gt ''leonid'', ''call''"><img src="images/system/phone/call_accept.png"></a>		<a href="exec:leonidSlaveDay = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
-	end
-
-	if QWdogreiqTimer = 0 and QWdogReiq = 2 and week = 7 and qwdogiventday ! daystart and hour >= 12:
-		'<b><font color="red">Your phone is ringing</font></b>'
-		$caller = 'Margaret'
-		$callerid = ''
-		gs 'telefon','phone_ring'
-		pl''
-		pl''
-		pl''
-		pl''
-		pl''
-		pl''
-		pl''
-		pl''
-		pl''
-		pl''
-		'<center><a href="exec:gt ''qwlocdog''"><img src="images/system/phone/call_accept.png"></a>			 <a href="exec:qwdogiventday = daystart & gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
-	end
-
-	!! iterating all lovers
-	lover_number = 0
-	:loverloop
-	if pcs_lovers[lover_number] = 1 and loverday[lover_number] ! daystart and hour > 5 and hour < 20 and ringA = 0 and rand(1,7) > 5:
-		if pcs_apprnc < vneshlover[lover_number]:
-			loverrelation[lover_number] -= 1
-			if loverrelation[lover_number] = 0:
-				'<b><font color="red">Your lover hasn''t been calling you lately, they''ve probably grown tired of you.</font></b>'
+		!! iterating all lovers
+		lover_number = 0
+		:loverloop
+		if pcs_lovers[lover_number] = 1 and loverday[lover_number] ! daystart and hour > 5 and hour < 20 and ringA = 0 and rand(1,7) > 5:
+			if pcs_apprnc < vneshlover[lover_number]:
+				loverrelation[lover_number] -= 1
+				if loverrelation[lover_number] = 0:
+					'<b><font color="red">Your lover hasn''t been calling you lately, they''ve probably grown tired of you.</font></b>'
+				else
+					'Your lover <<$loverdesc[lover_number]>> has not called you.'
+				end
 			else
-				'Your lover <<$loverdesc[lover_number]>> has not called you.'
+				ring = 1
+				ringA = 1
+				'<b><font color="red">Your phone is ringing</font></b>'
+				PLAY 'sound/old_phone.mp3',30
+				$caller = '<<$loverdesc[lover_number]>>'
+				$callerid = 'images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg'
+				gs 'telefon','phone_ring'
+				pl'<center><a href="exec:gt ''telefon'', ''lover'', <<lover_number>>"><img src="images/system/phone/call_accept.png"></a>			 <a href="exec:gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
 			end
-		else
-			ring = 1
-			ringA = 1
-			'<b><font color="red">Your phone is ringing</font></b>'
-			PLAY 'sound/old_phone.mp3',30
-			$caller = '<<$loverdesc[lover_number]>>'
-			$callerid = 'images/characters/shared/headshots_generic/'+lover_picture[lover_number]+'.jpg'
-			gs 'telefon','phone_ring'
-			pl'<center><a href="exec:gt ''telefon'', ''lover'', <<lover_number>>"><img src="images/system/phone/call_accept.png"></a>			 <a href="exec:gt $loc, $loc_arg"><img src="images/system/phone/decline.png"></a></center>'
 		end
-	end
-	lover_number += 1
-	if lover_number < arrsize('pcs_lovers'): jump 'loverloop'
+		lover_number += 1
+		if lover_number < arrsize('pcs_lovers'): jump 'loverloop'
 
-	killvar 'lover_number'
+		killvar 'lover_number'
+	end
 }
 
 $d_salf = {

locations/ender.qsrc

@@ -19,7 +19,11 @@ if $ARGS[0] = 'loss':
 
 		'You fall to the floor and feel your consciousness slipping away.'
 
-		act 'Further': gt 'intro_city_tg', 'tatianaPRE'
+		if $start_type = 'uni_tg':
+			act 'Further': gt 'intro_uni_tg', 'tatianaPRE'
+		else
+			act 'Further': gt 'intro_city_tg', 'tatianaPRE'
+		end
 		exit
 	elseif fightEnding = 2:
 		if autocombat_surrender = 0 or pcs_health < 100: pcs_health = 100
@@ -777,7 +781,11 @@ if $ARGS[0] = 'surrender':
 		'He ignores your pleas and hits you with a huge upper cut.'
 		'You fall to the floor and feel your consciousness slipping away.'
 
-		act 'Further': gt 'intro_city_tg', 'tatianaPRE'
+		if $start_type = 'uni_tg':
+			act 'Further': gt 'intro_uni_tg', 'tatianaPRE'
+		else
+			act 'Further': gt 'intro_city_tg', 'tatianaPRE'
+		end
 		exit
 	elseif fightEnding = 2:
 		if pcs_health < 100: pcs_health = 100

locations/gschool_events1.qsrc

@@ -199,6 +199,7 @@ if $ARGS[0] = 'butt_grab':
 				act 'Take his cock out of his pants': gt 'gschool_sex', 'rand_bj'
 			end
 			act 'Take him to the old school building':
+				*clr & cla
 				grupvalue[1] -= 5
 				grupvalue[2] -= 5
 				grupvalue[3] -= 5
@@ -218,7 +219,7 @@ if $ARGS[0] = 'butt_grab':
 					grupvalue[4] -= 1
 					gs 'fame', 'pav', 'sex', 5
 					gs 'npc_relationship', 'modify', 'A8', 'love'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/kiss.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss.jpg"></center>'
 					'You remember the back room that Katja showed you. When you tell Svyatoslav about it, he takes your hand and tells you to take him there. As soon as you close the door behind you, Svyatoslav pounces on you and begins to kiss you.'
 					gs 'arousal', 'kiss', 2
 					gs 'stat'
@@ -371,7 +372,7 @@ if $ARGS[0] = 'butt_grab':
 					grupvalue[3] -= 5
 					gs 'fame', 'pav', 'sex', 5
 					gs 'npc_relationship', 'modify', 'A6', 'like'
-					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/kiss.jpg"></center>'
+					'<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss.jpg"></center>'
 					'You remember the back room that Katja showed you. You take Petka by the hand and lead him off, you can feel his sweaty palm, you can tell he is nervous. As soon as you close the door you turn towards him and start to kiss him. He shy and awkward at first but then starts to get into it, though he isn''t a very good kisser.'
 					gs 'arousal', 'kiss', 2
 					gs 'stat'

locations/gschool_gopnik_chats.qsrc

@@ -14,7 +14,7 @@ if $ARGS[0] = 'vitek':
 			npc_rel[$static_num] = 0
 			kotovLoveQW = -1
 			gs 'stat'
-			'You start yelling at Vitek that he has fucked other girls. Vitek starts yelling at you and suddenly, there is a ringing in your head and your vision goes blurry. You find you''re on the floor with Vitek standing over you. Your cheek burns with pain and it takes you a few moments to understand what happened. It seems he slapped you so hard it knocked you off your feet. "Stay away from me you fucking whore! It''s over between us!"'
+			'You start yelling at Vitek about him fucking other girls. Vitek starts yelling at you in return before there is a sudden ringing in your head and your vision goes blurry. You find you''re on the floor with Vitek standing over you. Your cheek burns with pain and it takes you a few seconds to understand what happened. It seems he slapped you so hard it knocked you off your feet. "Stay away from me, you fucking whore! It''s over between us!"'
 
 			act 'Continue': gt 'gschool_lessons', 'short_break'
 		end
@@ -27,7 +27,7 @@ if $ARGS[0] = 'vitek':
 				if fame['pav_sex'] > 75: gs 'fame', 'pav', 'sex', -75
 				if fame['pav_prostitute'] > 75: gs 'fame', 'pav', 'prostitute', -75
 				gs 'stat'
-				'It takes a bit, but you convince him that all this was just gossip and none of it was true. He frowns. "I''ll knock their teeth out if they whisper one more word about you then. Don''t worry baby. I will shut their yapping mouths."'
+				'It takes a while, but you convince him that all this was just gossip and none of it was true. He frowns. "I''ll knock their teeth out if they whisper one more word about you then. Don''t worry baby. I will shut their yapping mouths."'
 
 				act 'Continue': gt 'gschool_lessons', 'short_break'
 			end

locations/gschool_grounds.qsrc

@@ -349,11 +349,9 @@ if $ARGS[0] = 'sports':
 		act 'Go for a run (1 hour)':
 			*clr & cla
 			menu_off = 1
-			minut += 60
-			schoolrunday = daystart
-			fat -= rand(2, 7)
-			run_exp += rand(0, 2)
-			gs 'sweat', 'add', 20
+			gs 'exercise', 'tier1', 60, 'run_exp'
+			fat -= rand(0,4)
+			gs 'sweat', 'add', 5
 			gs 'stat'
 			if month > 2 and month < 9:
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/grounds/runsummer.jpg"></center>'

locations/gschool_nerd_chats.qsrc

@@ -168,7 +168,7 @@ if $ARGS[0] = 'natasha':
 			'You approach Natasha and explain how you''re struggling in school and could really use her help studying. She thinks it over for a second, but happily agrees: "Sure <<$pcs_nickname>>, that could be fun!"'
 			act 'Time for the next class': gt 'gschool_lessons', 'short_break'
 		end
-	elseif NatbelQW['QWstage'] >= 8 and NatbelQW['Debt'] > 0:
+	elseif NatbelQW['QWstage'] >= 8 and NatbelQW['Debt'] > 0 and NatbelQW['DebtDay'] <= daystart:
 		act 'Come to the bathroom with me':
 			*clr & cla
 			minut += 5

locations/gschool_sex.qsrc

@@ -119,85 +119,74 @@ if $ARGS[0] = 'afterschool':
 	menu_off = 1
 	gs 'boyStat', 'A3'
 	ivan_afterschool = 0
-	pcs_horny += 10
 	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/afterschool.jpg"></center>'
-	'You go back to where you and Katja made out with Ivan and find both of them already there talking. As soon as they see you, they both stop talking.'
-	'Katja has a suspicious grin on her face while you can already see the bulge of Ivan''s cock straining against his pants as he looks at you hungrily.'
+	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/katja_ivan0.jpg"></center>'
+	'As school end you go and find Katja and the two of you head to the English classroom you told Ivan to meet you in. Once inside you close the door and take seats at the some of the desks and the two you start talking as you wait for Ivan to show up. As you wait Katja pulls out a small bottle of lube from her purse, which makes you both giggle.'
+	'It doesn''t take to long until the door opens and there is Ivan. He see''s the two of you and grins, he closes the door and strides over to the two of you. You can already see the bulge of Ivan''s cock straining against his pants as he looks at you both hungrily.'
 	*nl
-	'You can tell by Katja''s look that she planned something with Ivan and you find yourself eager to find out what it is as Katja waves you over. "Well what took you? We''ve been waiting for a few minutes, come on." Before you can even respond, she takes you both by the hand and leads you down the least used wing of the school to one of the classrooms that barely sees any activity.'
-	*nl
-	'Katja pulls you into the room as Ivan stops for a moment and looks back down the hall before coming in and closing the door.' 
+	'"Well what took you? We''ve been waiting for a few minutes, come on." Katja says to him.' 
 	act 'Continue':
 		*clr & cla
-		pcs_horny += 10
 		if dick > npc_throat['A14']: npc_throat['A14'] += 1
 		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/doublebj.jpg"></center>'
-		'You and Katja begin kissing and pulling each other''s clothes off and within moments, you''re both naked. Breaking your kiss, you both look at Ivan, cheek to cheek. He stands there with his <<dick>>cm <<$dick_girth>> cock in his hand, stroking it as he watches the two of you.'
-		*nl
-		'Katja wastes no time. She walks over to him, pulling you along, and drops to her knees in front of him. She pulls his pants the rest of the way off as you kneel down beside her.'
+		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/katja_ivan1.jpg"></center>'
+		'Katja gets out of the desk as Ivan stops next to the two of you, she drops down to her knees and starts unzipping his pants. You quickly join her, just in time to see his <<dick>>cm <<$dick_girth>> cock spring free, Katja starts stroking it once, as he looks down at the two of you.'
 		*nl
-		'She pulls his hand away and takes his <<dick>>cm <<$dick_girth>> cock into her mouth. He moans at once, even louder once she starts sucking him off, quickly offering you a turn. Licking your lips, you take Ivan''s cock into your mouth as well.'
-		'The two of you trade his cock back and forth between you.'
-		gs 'arousal', 'bj', 10, 'group'
-		act 'Katja wants more':
+		'She takes his cock into her mouth. He moans at once, even louder once she starts sucking him off, quickly offering you a turn. Licking your lips, you take Ivan''s cock into your mouth as well. The two of you trade his cock back and forth between you.'
+		gs 'arousal', 'bj', 3, 'group'
+		gs 'stat'
+		act 'Ivan fucks you':
 			*clr & cla
-			pcs_horny += 10
-			if npc_vag['A14'] < dick: npc_vag['A14'] += 1
-			if npc_vag['A14']*2 < dick: npc_vag['A14'] += 1
 			gs 'stat'
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/cowgirlmissionary.jpg"></center>'
-			'Pulling away from Ivan, Katja lays down on her back. She pulls you on top of her and you are straddling her face, looking down towards her legs. Her tongue immediately begins to lap at your pussy and you feel yourself getting wet.'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/katja_ivan2.jpg"></center>'
+			'Pulling away from Ivan, Katja lays down on her back on the teachers desk, with her legs spread wide. Ivan gets the idea and pulls you up, shoving your face in her pussy. Your tongue immediately begins to lap at her pussy and you feel her getting wet.'
 			*nl
-			'She spreads and lifts her legs up, inviting Ivan in and he wastes no time. Lowering himself between her legs, he slides his <<dick>>cm <<$dick_girth>> dick into her pussy and starts fucking her. You and Ivan start kissing while he fucks Katja and her tongue teases your wet pussy.'
-			'You and Katja are both moaning in pleasure as Ivan looks into your eyes and says "I want to fuck you now."'
-			gs 'arousal', 'cuni', 10, 'group'
-			act 'Ivan fucks you':
+			'Ivan grabs the bottle of lube, lubing up his dick and rubbing some of it on your asshole, as you keep eating Katja out. He rubs the tip of his lubed dick against your butthole making it slippery, then he slides his <<dick>>cm <<$dick_girth>> dick into your ass and starts fucking your butt. Several minutes of this goes by, Ivan isn''t to rough, he adjust his speed and depth based on your moans, making it feel good the whole time. You and Katja are both moaning in pleasure as she looks into his eyes and says "I want you to fuck me now."'
+			gs 'arousal', 'cuni_give', 3, 'group', 'lesbian'
+			gs 'arousal', 'anal', -3, 'group'
+			gs 'stat'
+			act 'Ivan fucks Katja':
 				*clr & cla
-				pcs_horny += 10
+				if npc_ass['A14'] < dick: npc_ass['A14'] += 1
+				if npc_ass['A14']*2 < dick: npc_ass['A14'] += 1
+				if katjaQW['anal_quest'] = 2: katjaQW['anal_quest'] = 3
 				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/69doggy.jpg"></center>'
-				'Ivan pulls out of Katja and gets up. You lean forward and begin to lick Katja''s soaking wet pussy, your tongue easily sliding inside her in place of Ivan''s dick. Ivan walks around and kneels down behind you, near Katja''s head.'
-				'Within seconds, you feel Ivan''s <<dick>>cm <<$dick_girth>> cock slide inside your wet pussy and he starts pounding you balls deep as Katja sucks his balls. Ivan fucks you for several more minutes while you eat Katja out. Her body begins to convulse as she starts having an orgasm.'
-				'Hearing her cum, Ivan beings to grunt and pick up the pace.'
-				gs 'arousal', 'cuni_give', 10, 'group'
-				gs 'arousal', 'vaginal', 10, 'group'
-				minut -= 10
-				act 'Surprise':
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/katja_ivan3.jpg"></center>'
+				'Ivan pulls out of you and pulls you from Katja, then he slides her off the desk as he flips her over effortlessly, until she is facing away bent over the desk. You kneel down next to them and hold Katja''s butt cheeks apart as Ivan lubes up her butt, then wasting no time he slides his dick up her ass as well. She hisses a bit and then moans deeply in pleasure. He fucks her butt for several more minutes before he pulls out and says. "Both of you up on the desk, lay on your backs."'
+				gs 'arousal', 'voyeur_sex', 3, 'group'
+				gs 'stat'
+				act 'Get on the desk':
 					*clr & cla
 					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/anal.jpg"></center>'
-					'After her orgasm, Katja slides under you. You''re face to face and laying on her stomach, your breasts squeezed together, as she begins to kiss you.'
-					*nl
-					'Ivan starts to pant. It sounds like he is starting to get close himself. Katja reaches up with both her hands and grabs your ass, pulling your cheeks as far apart as she can. Grunting as he fucks you, Ivan understands the invitation.'
-				    'Pulling out of your pussy and slipping his <<dick>>cm <<$dick_girth>> cock into your ass, he hardly misses a beat. In a single stroke, he plunges his <<dick>>cm <<$dick_girth>> dick balls deep into your ass. You gasp and moan in a mixture of surprise, pain and pleasure.'
-					*nl
-					'Looking down at Katja, your eyes lock and you realize now this is what she and Ivan had been talking about when you approached them earlier. You begin to pant while rubbing your clit.'
-					'Katja slides out from under you, kneels down next to you and watches Ivan roughly hammer your ass. You begin to cry out as your body spasms in an intense orgasm.'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/katja_ivan4.jpg"></center>'
+					'You both climb on the desk laying on your backs side by side with your legs spread wide for Ivan. He walks up and you feel his <<dick>>cm <<$dick_girth>> cock slide back into your ass, he picks up the pace and starts fucking you a little harder and faster this time. You glance over and see Katja staring at him as he fucks your ass and rubbing her own clit. Ivan keeps looking to her as she plays with herself.'
 					anal_slip += 4
-					gs 'arousal', 'anal', 10, 'group'
-					gs 'arousal', 'vaginal', 10, 'group'
-					minut -= 10
+					gs 'arousal', 'anal', 3, 'group'
 					act 'Happy ending':
 						*clr & cla
-						katjaQW['slut'] += 2
-						katjaQW['Horny'] = 0
-						sexpartkno = 1
-						spafinloc = 12
-						gs 'cum_manage'
-						orgasm += 1
-						gs 'arousal', 'end'
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/katja_ivan5.jpg"></center>'
+						'He suddenly pulls out of you, leaving your ass filling empty suddenly. Within seconds, Ivan''s shoves cock slide inside Katja''s gapping asshole, she moans loudly as he starts fucking her again. You reach over and start rubbing her clit as he keeps fucking her. Ivan fucks her for several more minutes while you rub Katja''s clit. Her body begins to convulse as she starts having an orgasm.'
+						'Hearing her cum, Ivan beings to grunt and pick up the pace. Ivan starts to pant. It sounds like he is starting to get close himself. Katja reaches up with both her hands and grabs your ass, pulling your cheeks as far apart as she can. Grunting as he fucks you, Ivan understands the invitation.'
+						gs 'arousal', 'voyeur_sex', 3, 'group'
+						gs 'arousal', 'vaginal_finger_give', -3, 'group', 'lesbian'
 						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/katjacumkiss.jpg"></center>'
-						'Feeling you orgasm, Ivan redoubles his efforts and within minutes, he pulls out of you and begins shooting spurts of cum all over your ass and Katja''s face.'
-						'Ivan sits back on his heels, sweating as he catches his breath and watches Katja lick all his cum off your ass. Once she is done, you sit up next to her. Seeing the cum running down her face, you lean over and lick it up. You then kiss each other with your cum coated tongues, sharing Ivan''s sperm between you.'
-						'Watching this, Ivan only says one word. "Damn!"'
-						*nl
-						'You all start getting dressed and Ivan looks at the two of you. "Girls, we''ve got to do this again some time! What do you say?"'
-						'You look at each other and start giggling before Katja turns to look at him. "If you''re a good boy maybe. We''ll see." You both give him a look that promises, right or wrong, you want another go as badly as he does.'
-						'"I''m always good." he says with a laugh. He quickly finishes dressing and leaves, likely late for practice. Once he is gone, you and Katja look at each other and giggle, then leave as well.'
-						act 'Leave': gt 'gschool_grounds', 'main'
+						act 'Happy ending':
+							*clr & cla
+							katjaQW['slut'] += 2
+							katjaQW['Horny'] = 0
+							gs 'stat'
+							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/afterschool/sex/katja_ivan6.jpg"></center>'
+							'Ivan redoubles his efforts and within minutes, he pulls out of her ass. Katja slides off the desk first, you follow suit as he starts jerking off, soon you are both kneeling in front of him, just as he begins shooting spurts of cum all over your Katja''s tits and your own.'
+							'Once he finishes cumming Ivan sits in the teachers chair, sweating as he catches his breath and watches the two of you. Ivan only says one word. "Damn!"'
+							*nl
+							'You all start getting dressed and Ivan looks at the two of you. "Girls, we''ve got to do this again some time! What do you say?"'
+							'You look at each other and start giggling before Katja turns to look at him. "If you''re a good boy maybe. We''ll see." You both give him a look that promises, right or wrong, you want another go as badly as he does.'
+							'"I''m always good." he says with a laugh. He quickly finishes dressing and leaves, likely late for practice. Once he is gone, you and Katja look at each other and giggle, then leave as well.'
+							gs 'cum_call', 'breasts', 'A3', 1
+							gs 'arousal', 'end'
+							gs 'stat'
+							act 'Leave': gt 'gschool_grounds', 'main'
+						end
 					end
 				end
 			end

locations/hookup_talk.qsrc

@@ -279,12 +279,14 @@ if $ARGS[0] = 'sex_review':
 							gt'hookup_after','pre'
 						end
 						
-						act'If you''re offering...':
-							cla & *clr
-							$npc_apt_bedroom[$npclastsaved]
-							'"Well... if you''re seriously offering..."'
-							'<<$npc_firstname[$npclastsaved]>> smiles at you and slinks down the bed, pushing your legs open and dipping his head between them.'
-							act'Get eaten out':gt'hookup','lick_pussy'
+						if hypnoHardToCum = 0:
+							act'If you''re offering...':
+								cla & *clr
+								$npc_apt_bedroom[$npclastsaved]
+								'"Well... if you''re seriously offering..."'
+								'<<$npc_firstname[$npclastsaved]>> smiles at you and slinks down the bed, pushing your legs open and dipping his head between them.'
+								act'Get eaten out':gt'hookup','lick_pussy'
+							end
 						end
 					else
 						act'It was just boring':

locations/intro_city.qsrc

@@ -63,7 +63,7 @@ if $ARGS[0] = 'start':
 	pcs_sleep = 100
 	willpowermax = 100
 
-	gs 'set_home', 1 & gt 'korr'
+	gs 'set_home', 1
 	
 	gt 'intro_city', 'city_intro'
 end

locations/intro_customization.qsrc

@@ -156,14 +156,14 @@ if $ARGS[0] = 'modrel_setup2':
 	dynamic 'if <<$ARGS[1]>> < 0: <<$ARGS[1]>> = 0'
 	dynamic 'if <<$ARGS[1]>> > 100: <<$ARGS[1]>> = 100'
 	dynamic 'x = <<$ARGS[1]>>'
-	'<TR bgcolor=#ffffff><TD><<$ARGS[2]>> (<<x>>/100)</TD><TD><a href="exec:<<$ARGS[1]>> = 0 & gt ''intro_customization'', $loc_arg">zero</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>> -= 10 & gt ''intro_customization'', $loc_arg">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>>  -= 5 & gt ''intro_customization'', $loc_arg">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  += 5 & gt ''intro_customization'', $loc_arg">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  += 10 & gt ''intro_customization'', $loc_arg">plus 10</a></TD><TD><a href="exec:<<$ARGS[1]>>  = 100 & gt ''intro_customization'', $loc_arg">100</a></TD>'
+	$table_display += '<TR bgcolor=#ffffff><TD><<$ARGS[2]>> (<<x>>/100)</TD><TD><a href="exec:<<$ARGS[1]>> = 0 & gt ''intro_customization'', $locM_arg">zero</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>> -= 10 & gt ''intro_customization'', $locM_arg">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>>  -= 5 & gt ''intro_customization'', $locM_arg">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  += 5 & gt ''intro_customization'', $locM_arg">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  += 10 & gt ''intro_customization'', $locM_arg">plus 10</a></TD><TD><a href="exec:<<$ARGS[1]>>  = 100 & gt ''intro_customization'', $locM_arg">100</a></TD>'
 end
 
 if $ARGS[0] = 'modrel_setup3':
 	dynamic 'if <<$ARGS[1]>> < 50: <<$ARGS[1]>> = 50'
 	dynamic 'if <<$ARGS[1]>> > 200: <<$ARGS[1]>> = 200'
 	dynamic 'x = <<$ARGS[1]>>'
-	'<TR bgcolor=#ffffff><TD><<$ARGS[2]>> (<<x>>/200)</TD><TD><a href="exec:<<$ARGS[1]>> = 0 & gt ''intro_customization'', $loc_arg">zero</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>> -= 10 & gt ''intro_customization'', $loc_arg">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>>  -= 5 & gt ''intro_customization'', $loc_arg">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  += 5 & gt ''intro_customization'', $loc_arg">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  += 10 & gt ''intro_customization'', $loc_arg">plus 10</a></TD><TD><a href="exec:<<$ARGS[1]>>  = 200 & gt ''intro_customization'', $loc_arg">200</a></TD>'
+	$table_display += '<TR bgcolor=#ffffff><TD><<$ARGS[2]>> (<<x>>/200)</TD><TD><a href="exec:<<$ARGS[1]>> = 0 & gt ''intro_customization'', $locM_arg">zero</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>> -= 10 & gt ''intro_customization'', $locM_arg">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>>  -= 5 & gt ''intro_customization'', $locM_arg">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  += 5 & gt ''intro_customization'', $locM_arg">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  += 10 & gt ''intro_customization'', $locM_arg">plus 10</a></TD><TD><a href="exec:<<$ARGS[1]>>  = 200 & gt ''intro_customization'', $locM_arg">200</a></TD>'
 end
 
 !!Values reversed just for inhib use
@@ -171,31 +171,31 @@ if $ARGS[0] = 'modrel_setup4':
 	dynamic 'if <<$ARGS[1]>> < 0: <<$ARGS[1]>> = 0'
 	dynamic 'if <<$ARGS[1]>> > 100: <<$ARGS[1]>> = 100'
 	dynamic 'x = 100-<<$ARGS[1]>>'
-	'<TR bgcolor=#ffffff><TD><<$ARGS[2]>> (<<x>>/100)</TD><TD><a href="exec:<<$ARGS[1]>> = 100 & gt ''intro_customization'', $loc_arg">zero</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>> += 10 & gt ''intro_customization'', $loc_arg">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>>  += 5 & gt ''intro_customization'', $loc_arg">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  -= 5 & gt ''intro_customization'', $loc_arg">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  -= 10 & gt ''intro_customization'', $loc_arg">plus 10</a></TD><TD><a href="exec:<<$ARGS[1]>>  = 0 & gt ''intro_customization'', $loc_arg">100</a></TD>'
+	$table_display += '<TR bgcolor=#ffffff><TD><<$ARGS[2]>> (<<x>>/100)</TD><TD><a href="exec:<<$ARGS[1]>> = 100 & gt ''intro_customization'', $locM_arg">zero</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>> += 10 & gt ''intro_customization'', $locM_arg">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:<<$ARGS[1]>>  += 5 & gt ''intro_customization'', $locM_arg">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  -= 5 & gt ''intro_customization'', $locM_arg">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:<<$ARGS[1]>>  -= 10 & gt ''intro_customization'', $locM_arg">plus 10</a></TD><TD><a href="exec:<<$ARGS[1]>>  = 0 & gt ''intro_customization'', $locM_arg">100</a></TD>'
 end
 
 if $ARGS[0] = 'modite_cos':
-	$loc_arg = 'modite_cos'
+	$locM_arg = 'modite_cos'
 	'<center><b>Cosmetic items</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	killvar '$table_display'
 	gs 'intro_customization', 'modrel_setup2', 'kosmetica', 'Cosmetics'
 	gs 'intro_customization', 'modrel_setup2', 'stanok', 'Razors (number of shaves)'
 	gs 'intro_customization', 'modrel_setup2', 'krem', 'Sunblock'
 	gs 'intro_customization', 'modrel_setup2', 'hscrunch', 'Hair scrunchies'
 	gs 'intro_customization', 'modrel_setup2', 'hpingrip', 'Hair pins'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	$table_display
 	'</table></center>'
 	!act 'Shampoo (<<shampoo>>/100)': gs 'intro_customization','setval3' & shampoo = nstat & gt 'intro_customization','modite_cos'
 	act 'Return': gt'intro_customization','modite'
 end
 
 if $ARGS[0] = 'modite_pha':
-	$loc_arg = 'modite_pha'
+	$locM_arg = 'modite_pha'
 	'<center><b>Pharmaceutical items</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	killvar '$table_display'
 	gs 'intro_customization', 'modrel_setup2', 'prezik', 'Condoms'
 	gs 'intro_customization', 'modrel_setup2', 'pregtest', 'Pregnancy tests'
 	gs 'intro_customization', 'modrel_setup2', 'tabletki', 'Birth control pills'
@@ -208,19 +208,22 @@ if $ARGS[0] = 'modite_pha':
 	gs 'intro_customization', 'modrel_setup2', 'fatdel', 'Weight loss pills'
 	gs 'intro_customization', 'modrel_setup2', 'tampon', 'Tampons'
 	gs 'intro_customization', 'modrel_setup2', 'sanpad', 'Sanitary napkins'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	$table_display
 	'</table></center>'
 	act 'Return': gt'intro_customization','modite'
 end
 
 if $ARGS[0] = 'modite_mis':
-	$loc_arg = 'modite_mis'
+	$locM_arg = 'modite_mis'
 	'<center><b>Misc items</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	killvar '$table_display'
 	gs 'intro_customization', 'modrel_setup2', 'siga', 'Cigarettes'
 	gs 'intro_customization', 'modrel_setup2', 'dur', 'Cocaine'
 	gs 'intro_customization', 'modrel_setup2', 'pranik', 'Tea Biscuits'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	$table_display
 	'</table></center>'
 	act 'Return': gt 'intro_customization','modite'
 end
@@ -403,12 +406,10 @@ end
 
 if $ARGS[0] = 'modatt':
 	*clr & cla
-	$loc_arg = 'modatt'
+	$locM_arg = 'modatt'
 	'<center><b>Attributes</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
-	gs 'intro_customization', 'modrel_setup3', 'willpowermax', 'Willpower'
+	killvar '$table_display'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_stren', 'Strength'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_agil', 'Agility'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_vital', 'Endurance'
@@ -421,6 +422,9 @@ if $ARGS[0] = 'modatt':
 	gs 'intro_customization', 'modrel_setup2', 'pcs_grades', 'Grades'
 	gs 'intro_customization', 'modrel_setup4', 'pcs_inhib', 'Inhibition'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_heels', 'Heels'
+	gs 'intro_customization', 'modrel_setup3', 'willpowermax', 'Willpower'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	$table_display
 	'</table></center>'
 	nl
 
@@ -441,15 +445,16 @@ end
 
 if $ARGS[0] = 'modskl_men':
 	*clr & cla
-	$loc_arg = 'modskl_men'
+	$locM_arg = 'modskl_men'
 	'<center><b>Mental Skills</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	killvar '$table_display'
 	if MagikDostup = 0: gs 'intro_customization', 'modrel_setup2', 'pcs_splcstng', 'Spell Casting'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_humint', 'People skills'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_persuas', 'Persuasion'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_observ', 'Observation'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	$table_display
 	'</table></center>'
 	nl
 
@@ -460,11 +465,10 @@ end
 
 if $ARGS[0] = 'modskl_spo':
 	*clr & cla
-	$loc_arg = 'modskl_spo'
+	$locM_arg = 'modskl_spo'
 	'<center><b>Sport Skills</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	killvar '$table_display'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_jab', 'Jabs'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_punch', 'Power Strikes'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_kick', 'Kicks'
@@ -478,6 +482,8 @@ if $ARGS[0] = 'modskl_spo':
 	gs 'intro_customization', 'modrel_setup2', 'pcs_chess', 'Chess'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_icesktng', 'Ice Skating'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_gaming', 'Gaming'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	$table_display
 	'</table></center>'
 	nl
 
@@ -488,17 +494,18 @@ end
 
 if $ARGS[0] = 'modskl_bea':
 	*clr & cla
-	$loc_arg = 'modskl_bea'
+	$locM_arg = 'modskl_bea'
 	'<center><b>Beauty skills</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	killvar '$table_display'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_makupskl', 'Makeup Skills'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_danc', 'Modern Dancing'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_dancero', 'Erotic Dancing'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_dancpol', 'Pole Dancing'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_cheer', 'Cheerleading'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_mdlng', 'Modelling'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	$table_display
 	'</table></center>'
 	nl
 
@@ -509,16 +516,17 @@ end
 
 if $ARGS[0] = 'modskl_art':
 	*clr & cla
-	$loc_arg = 'modskl_art'
+	$locM_arg = 'modskl_art'
 	'<center><b>Artistic Skills</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	killvar '$table_display'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_vokal', 'Singing'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_instrmusic', 'Instrumental Music'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_photoskl', 'Photography'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_artskls', 'Artistic Skills'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_perform', 'Performance'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	$table_display
 	'</table></center>'
 	nl
 
@@ -529,17 +537,18 @@ end
 
 if $ARGS[0] = 'modskl_job':
 	*clr & cla
-	$loc_arg = 'modskl_job'
+	$locM_arg = 'modskl_job'
 	'<center><b>Job Skills</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	killvar '$table_display'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_compskl', 'Computer Skills'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_comphckng', 'Hacking'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_hndiwrk', 'Handy-work'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_sewng', 'Tailoring'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_servng', 'Serving'
 	gs 'intro_customization', 'modrel_setup2', 'pcs_medcn', 'Medicine'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	$table_display
 	'</table></center>'
 	nl
 

locations/intro_initialization.qsrc

@@ -62,8 +62,6 @@ $month = $monthName[month]
 
 gs 'telefon', 'setup'
 
-VersionCheck = 5030
-
 pcs_dob = birthyear * 10000
 pcs_dob += (birthmonth * 100)
 pcs_dob += birthday
@@ -92,6 +90,11 @@ oldsavepcs_haircol = 1
 
 gs 'body', 'initial'
 
+!!re-initialize appearance to get correct values
+gs 'AppearanceSystem', 'UpdateBaseAppearnce'
+gs 'body', 'RegularUpdate'
+gs 'AppearanceSystem'
+
 !! Adding underwear and default shoes and assigning them
 
 if $ARGS[1] ! 'CSB' and goth_clothing ! 1:
@@ -465,11 +468,6 @@ else
 	cyccustom = 1
 end
 
-!!re-initialize appearance to get correct values
-gs 'AppearanceSystem', 'UpdateBaseAppearnce'
-gs 'body', 'RegularUpdate'
-gs 'AppearanceSystem'
-
 pcs_horny = 0
 killvar 'opPRE'
 killvar 'tgs_skipinto'

locations/intro_initialization_city.qsrc

@@ -3,14 +3,12 @@
 !!	Final Initializations
 !!	Top area for things that need to be done before setting the variables for either start
 
+hour = 13
 day = 21
+week = 1
 month = 8
 year = 2017
 
-birthyear = 1999
-birthmonth = 4
-birthday = 1
-	
 BDSMfilm = 0
 pornstudio = 0
 pfilmSTOP = 0
@@ -69,8 +67,6 @@ $month = $monthName[month]
 
 gs 'telefon', 'setup'
 
-VersionCheck = 5030
-
 pcs_dob = birthyear * 10000
 pcs_dob += (birthmonth * 100)
 pcs_dob += birthday
@@ -95,6 +91,11 @@ oldsavepcs_haircol = 1
 
 gs 'body', 'initial'
 
+!!re-initialize appearance to get correct values
+gs 'AppearanceSystem', 'UpdateBaseAppearnce'
+gs 'body', 'RegularUpdate'
+gs 'AppearanceSystem'
+
 !! Adding underwear and default shoes and assigning them
 
 cheap_panties[1] = 1
@@ -478,11 +479,6 @@ else
 	cyccustom = 1
 end
 
-!!re-initialize appearance to get correct values
-gs 'AppearanceSystem', 'UpdateBaseAppearnce'
-gs 'body', 'RegularUpdate'
-gs 'AppearanceSystem'
-
 pcs_horny = 0
 killvar 'opPRE'
 killvar 'tgs_skipinto'

locations/intro_sg_select.qsrc

@@ -43,26 +43,28 @@ if $ARGS[0] = 'start':
 	brothersawpirsF = 0
 	dynamic $currentpursetype + '_purses[<<currentpursenumber>>] = 1'
 
-	!!Default Names
-	$pcs_firstname = 'Svetlana'
-	$pcs_lastname = 'Lebedev'
-	$pcs_nickname = 'Sveta'
-
-	!!Player names are set here
-	$temp_firstname = '<<$pcs_firstname>>'
-	$pcs_firstname = input("What is your first name? (Leave blank for Svetlana)")
-	if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
-	killvar '$temp_firstname'
-
-	$temp_lastname = '<<$pcs_lastname>>'
-	$pcs_lastname = input("What is your family name? (Leave blank for Lebedev)")
-	if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
-	killvar '$temp_lastname'
-
-	$temp_nickname = '<<$pcs_nickname>>'
-	$pcs_nickname = input("What is your nickname? (Leave blank for Sveta)")
-	if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
-	killvar '$temp_nickname'
+	if $start_type[1] ! 'tg':
+		!!Default Names
+		$pcs_firstname = 'Svetlana'
+		$pcs_lastname = 'Lebedev'
+		$pcs_nickname = 'Sveta'
+
+		!!Player names are set here
+		$temp_firstname = '<<$pcs_firstname>>'
+		$pcs_firstname = input("What is your first name? (Leave blank for Svetlana)")
+		if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
+		killvar '$temp_firstname'
+
+		$temp_lastname = '<<$pcs_lastname>>'
+		$pcs_lastname = input("What is your family name? (Leave blank for Lebedev)")
+		if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
+		killvar '$temp_lastname'
+
+		$temp_nickname = '<<$pcs_nickname>>'
+		$pcs_nickname = input("What is your nickname? (Leave blank for Sveta)")
+		if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
+		killvar '$temp_nickname'
+	end
 
 	gs 'npcstatic1'
 	gs 'npcstatic2'
@@ -98,7 +100,9 @@ if $ARGS[0] = 'start':
 	'You also have a younger half-brother, <<$npc_firstname[''A34'']>>, who is really into sports, especially football, and is shaping up to be a fine athlete. He is a year younger than you and his father is your stepfather.'
 	'Your <<$npc_usedname[''A30'']>> lives in the same building as you do, though you rarely see her except when you pass her in the stairwell. She is your mother''s older sister. <<$npc_usedname[''A54'']>>, as everyone calls him, is best friends with your stepfather. <<$npc_firstname[''A11'']>> <<$npc_lastname[''A11'']>>, your childhood friend, is the same age as you and grew up living in the same apartment building on the floor above yours. His father, <<$npc_firstname[''A112'']>>, is an old friend of your mother.'
 
-	act 'Re-enter name(s)': gt 'intro_sg_select', 'start'
+	if $start_type[1] ! 'tg':
+		act 'Re-enter name(s)': gt 'intro_sg_select', 'start'
+	end
 	act 'Continue':	gt 'intro_sg_select', 'SGStart2'
 end
 
@@ -121,6 +125,7 @@ if $ARGS[0] = 'SGStart2':
 	'<a href="exec:gt ''intro_customization'', ''birthday''"><<$startdob>></a>.'
 
 	act 'Confirm':
+		if $start_type[1] = 'tg': gt 'intro_sg_select', 'charselect'
 		cls
 		'<center><img <<$set_imgh>> src="images/system/1_openings/shared/pre_3.jpg"></center>'
 		*nl

locations/intro_sg_select_custom.qsrc

@@ -100,33 +100,54 @@ if $ARGS[0] = 'modgrup':
 	act 'Nerd':
 		killvar 'grupvalue'
 		$soc_grup = 'Nerd'
-		grupvalue[3] = 600
+		grupvalue[1] = 200
+		grupvalue[2] = 100
+		grupvalue[3] = 800
+		grupvalue[4] = 100
+		grupvalue[6] = 600
 		grupTipe = 3
 		gt 'intro_sg_select_custom','modgrup'
 	end
 	act 'Jock':
 		killvar 'grupvalue'
 		$soc_grup = 'Jock'
-		grupvalue[2] = 600
+		grupvalue[1] = 400
+		grupvalue[2] = 800
+		grupvalue[3] = 100
+		grupvalue[4] = 200
+		grupvalue[6] = 400
 		grupTipe = 2
 		gt 'intro_sg_select_custom','modgrup'
 	end
 	act 'Popular':
 		killvar 'grupvalue'
 		$soc_grup = 'Cool'
-		grupvalue[1] = 600
+		grupvalue[1] = 800
+		grupvalue[2] = 400
+		grupvalue[3] = 200
+		grupvalue[4] = 100
+		grupvalue[6] = 400
 		grupTipe = 1
 		gt 'intro_sg_select_custom','modgrup'
 	end
 	act 'Gopnik':
 		killvar 'grupvalue'
 		$soc_grup = 'Gopnik'
-		grupvalue[4] = 600
+		grupvalue[1] = 200
+		grupvalue[2] = 300
+		grupvalue[3] = 100
+		grupvalue[4] = 800
+		grupvalue[6] = 100
 		grupTipe = 4
 		gt 'intro_sg_select_custom','modgrup'
 	end
 	act 'Outcast':
 		killvar 'grupvalue'
+		grupvalue[1] = 200
+		grupvalue[2] = 200
+		grupvalue[3] = 200
+		grupvalue[4] = 200
+		grupvalue[6] = 200
 		$soc_grup = 'Outcast'
 		grupTipe = 5
 		gt 'intro_sg_select_custom','modgrup'
@@ -274,15 +295,14 @@ end
 if $ARGS[0] = 'modrel_setup':
 	if npc_rel['<<$ARGS[1]>>'] < 0: npc_rel['<<$ARGS[1]>>'] = 0
 	if npc_rel['<<$ARGS[1]>>'] > 100: npc_rel['<<$ARGS[1]>>'] = 100
-	'<TR bgcolor=#ffffff><TD><<$npc_firstname[''<<$ARGS[1]>>'']>> <<$npc_lastname[''<<$ARGS[1]>>'']>>: <<npc_rel[''<<$ARGS[1]>>'']>></TD><TD><a href="exec:npc_rel[''<<$ARGS[1]>>''] = 0 & gt ''intro_sg_select_custom'', $locM_arg">zero</a></TD><TD bgcolor=#ff9999><a href="exec:npc_rel[''<<$ARGS[1]>>''] -= 10 & gt ''intro_sg_select_custom'', $locM_arg">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:npc_rel[''<<$ARGS[1]>>''] -= 5 & gt ''intro_sg_select_custom'', $locM_arg">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:npc_rel[''<<$ARGS[1]>>''] += 5 & gt ''intro_sg_select_custom'', $locM_arg">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:npc_rel[''<<$ARGS[1]>>''] += 10 & gt ''intro_sg_select_custom'', $locM_arg">plus 10</a></TD><TD><a href="exec:npc_rel[''<<$ARGS[1]>>''] = 100 & gt ''intro_sg_select_custom'', $locM_arg">100</a></TD>'
+	$table_display += '<TR bgcolor=#ffffff><TD><<$npc_firstname[''<<$ARGS[1]>>'']>> <<$npc_lastname[''<<$ARGS[1]>>'']>>: <<npc_rel[''<<$ARGS[1]>>'']>></TD><TD><a href="exec:npc_rel[''<<$ARGS[1]>>''] = 0 & gt ''intro_sg_select_custom'', $locM_arg">zero</a></TD><TD bgcolor=#ff9999><a href="exec:npc_rel[''<<$ARGS[1]>>''] -= 10 & gt ''intro_sg_select_custom'', $locM_arg">minus 10</a></TD><TD bgcolor=#ff9999><a href="exec:npc_rel[''<<$ARGS[1]>>''] -= 5 & gt ''intro_sg_select_custom'', $locM_arg">minus 5</a></TD><TD bgcolor=#99ff99><a href="exec:npc_rel[''<<$ARGS[1]>>''] += 5 & gt ''intro_sg_select_custom'', $locM_arg">plus 5</a></TD><TD bgcolor=#99ff99><a href="exec:npc_rel[''<<$ARGS[1]>>''] += 10 & gt ''intro_sg_select_custom'', $locM_arg">plus 10</a></TD><TD><a href="exec:npc_rel[''<<$ARGS[1]>>''] = 100 & gt ''intro_sg_select_custom'', $locM_arg">100</a></TD>'
 end
 
 if $ARGS[0] = 'modrel_pop':
 	$locM_arg = 'modrel_pop'
 	'<center><b>Popular kids relationship levels</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	killvar '$table_display'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A1'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A4'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A14'
@@ -295,8 +315,10 @@ if $ARGS[0] = 'modrel_pop':
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A25'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A139'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A140'
-	'<TR bgcolor=#ffffff><TD>Set relationship level for all boys in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 1, nstat & gt ''intro_sg_select_custom'',''modrel_pop''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
-	'<TR bgcolor=#ffffff><TD>Set relationship level for all girls in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 1, nstat & gt ''intro_sg_select_custom'',''modrel_pop''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	$table_display += '<TR bgcolor=#ffffff><TD>Set relationship level for all boys in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 1, nstat & gt ''intro_sg_select_custom'',''modrel_pop''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	$table_display += '<TR bgcolor=#ffffff><TD>Set relationship level for all girls in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 1, nstat & gt ''intro_sg_select_custom'',''modrel_pop''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	$table_display
 	'</table></center>'
 	act 'Return': gt 'intro_sg_select_custom','modrel'
 end
@@ -305,8 +327,7 @@ if $ARGS[0] = 'modrel_ath':
 	$locM_arg = 'modrel_ath'
 	'<center><b>Jocks relationship levels</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	killvar '$table_display'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A3'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A5'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A8'
@@ -317,8 +338,10 @@ if $ARGS[0] = 'modrel_ath':
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A149'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A150'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A141'
-	'<TR bgcolor=#ffffff><TD>Set relationship level for all boys in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 2, nstat & gt ''intro_sg_select_custom'',''modrel_ath''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
-	'<TR bgcolor=#ffffff><TD>Set relationship level for all girls in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 2, nstat & gt ''intro_sg_select_custom'',''modrel_ath''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	$table_display += '<TR bgcolor=#ffffff><TD>Set relationship level for all boys in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 2, nstat & gt ''intro_sg_select_custom'',''modrel_ath''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	$table_display += '<TR bgcolor=#ffffff><TD>Set relationship level for all girls in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 2, nstat & gt ''intro_sg_select_custom'',''modrel_ath''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	$table_display
 	'</table></center>'
 	act 'Return': gt 'intro_sg_select_custom','modrel'
 end
@@ -327,8 +350,7 @@ if $ARGS[0] = 'modrel_ner':
 	$locM_arg = 'modrel_ner'
 	'<center><b>Nerds relationship levels</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	killvar '$table_display'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A2'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A6'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A12'
@@ -337,8 +359,10 @@ if $ARGS[0] = 'modrel_ner':
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A152'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A153'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A142'
-	'<TR bgcolor=#ffffff><TD>Set relationship level for all boys in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 3, nstat & gt ''intro_sg_select_custom'',''modrel_ner''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
-	'<TR bgcolor=#ffffff><TD>Set relationship level for all girls in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 3, nstat & gt ''intro_sg_select_custom'',''modrel_ner''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	$table_display += '<TR bgcolor=#ffffff><TD>Set relationship level for all boys in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 3, nstat & gt ''intro_sg_select_custom'',''modrel_ner''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	$table_display += '<TR bgcolor=#ffffff><TD>Set relationship level for all girls in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 3, nstat & gt ''intro_sg_select_custom'',''modrel_ner''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	$table_display
 	'</table></center>'
 	act 'Return': gt 'intro_sg_select_custom','modrel'
 end
@@ -347,8 +371,7 @@ if $ARGS[0] = 'modrel_gop':
 	$locM_arg = 'modrel_gop'
 	'<center><b>Gopnik kids relationship levels</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	killvar '$table_display'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A9'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A10'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A11'
@@ -363,8 +386,10 @@ if $ARGS[0] = 'modrel_gop':
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A143'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A144'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A145'
-	'<TR bgcolor=#ffffff><TD>Set relationship level for all boys in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 4, nstat & gt ''intro_sg_select_custom'',''modrel_gop''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
-	'<TR bgcolor=#ffffff><TD>Set relationship level for all girls in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 4, nstat & gt ''intro_sg_select_custom'',''modrel_gop''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	$table_display += '<TR bgcolor=#ffffff><TD>Set relationship level for all boys in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 4, nstat & gt ''intro_sg_select_custom'',''modrel_gop''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	$table_display += '<TR bgcolor=#ffffff><TD>Set relationship level for all girls in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 4, nstat & gt ''intro_sg_select_custom'',''modrel_gop''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	$table_display
 	'</table></center>'
 	act 'Return': gt 'intro_sg_select_custom','modrel'
 end
@@ -374,12 +399,13 @@ if $ARGS[0] = 'modrel_out':
 	$locM_arg = 'modrel_out'
 	'<center><b>Outcast kids relationship levels</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	killvar '$table_display'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A7'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A159'
-	'<TR bgcolor=#ffffff><TD>Set relationship level for all boys in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 5, nstat & gt ''intro_sg_select_custom'',''modrel_out''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
-!!	'<TR bgcolor=#ffffff><TD>Set relationship level for all girls in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 5, nstat & gt ''intro_sg_select_custom'',''modrel_out''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	$table_display += '<TR bgcolor=#ffffff><TD>Set relationship level for all boys in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 5, nstat & gt ''intro_sg_select_custom'',''modrel_out''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+!!	$table_display += '<TR bgcolor=#ffffff><TD>Set relationship level for all girls in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 5, nstat & gt ''intro_sg_select_custom'',''modrel_out''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	$table_display
 	'</table></center>'
 	act 'Return': gt 'intro_sg_select_custom','modrel'
 end
@@ -388,8 +414,7 @@ if $ARGS[0] = 'modrel_tea':
 	$locM_arg = 'modrel_tea'
 	'<center><b>Teacher relationship levels</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	killvar '$table_display'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A26'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A128'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A129'
@@ -402,8 +427,10 @@ if $ARGS[0] = 'modrel_tea':
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A136'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A137'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A138'
-	'<TR bgcolor=#ffffff><TD>Set relationship level for all men in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 6, nstat & gt ''intro_sg_select_custom'',''modrel_tea''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
-	'<TR bgcolor=#ffffff><TD>Set relationship level for all women in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 6, nstat & gt ''intro_sg_select_custom'',''modrel_tea''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	$table_display += '<TR bgcolor=#ffffff><TD>Set relationship level for all men in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 0, 6, nstat & gt ''intro_sg_select_custom'',''modrel_tea''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	$table_display += '<TR bgcolor=#ffffff><TD>Set relationship level for all women in this group</TD><TD><a href="exec: gs ''intro_sg_select_custom'',''setval2'' & gs ''intro_sg_select_custom'', ''pol_grup_set'', 1, 6, nstat & gt ''intro_sg_select_custom'',''modrel_tea''">set value</a></TD><TD></TD><TD></TD><TD></TD><TD></TD><TD></TD>'
+	$table_display
 	'</table></center>'
 	act 'Return': gt 'intro_sg_select_custom','modrel'
 end
@@ -412,10 +439,10 @@ if $ARGS[0] = 'modrel_oth':
 	$locM_arg = 'modrel_oth'
 	'<center><b>Others relationship levels</b></center>'
 	*nl
-	*nl
-	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
+	killvar '$table_display'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A69'
 	gs 'intro_sg_select_custom', 'modrel_setup', 'A112'
+	'<center><table border=0 cellspacing=0 cellpadding=25  bgcolor=#808080><TH></TH><TH>Set to zero</TH><TH>Minus 10</TH><TH>Minus 5</TH><TH>Plus 5</TH><TH>Plus 10</TH><TH>Set to 100</TH>'
 	'</table></center>'
 	!!Volleyball Coach is here because it wasnt being controlled by grup6 the teachers/coaches.
 	act 'Return': gt 'intro_sg_select_custom','modrel'

locations/intro_sg_tg.qsrc

@@ -286,7 +286,7 @@ end
 
 if $ARGS[0] = 'intro_6_looks':
 	$loc = 'intro_sg_tg'
-	$loc_arg = 'intro_7'
+	$loc_arg = 'intro_6_looks'
 	*clr & cla
 	if player_avatar = 1:
 		'<center><img HEIGHT = 478 src="images/avatar.jpg"></center>'
@@ -302,15 +302,14 @@ if $ARGS[0] = 'intro_6_looks':
 
 	
 	act 'Meet her': gt 'intro_sg_tg', 'intro_7'
-	act 'Customise <<$pcs_firstname>>': $loc_arg = 'intro_7' & gt 'intro_customization', 'start'
+	act 'Customise <<$pcs_firstname>>': gt 'intro_customization', 'start'
 end
 
 
 if $ARGS[0] = 'intro_7':
 	*clr & cla
 	'<center><img <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
-	'She''s shorter than you, but rather tall for a girl, with a body that is neither too fat nor especially skinny. On her chest rest a pair of decently-sized breasts. Her <<$curly>><<$pcdesc_hairlength>> hair is <<$pcs_haircol>>.'
-	'She has <<$pcs_eyecol>> eyes with <<$pcs_lashes>>'+iif(glass > 0, ' hidden behind a pair of cheap glasses.', '.')
+	'You couldn''t tell from her photo, but although shorter than you, she is rather tall for a girl.' 
 	'She looks like she''s spent some time in front of the mirror trying to pretty herself up, and her clothes are very clean. Despite that, she still looks rather average. Like she is the type of girl that would be a background character in another person''s life.'
 
 	act 'Go for a walk':
@@ -461,15 +460,16 @@ if $ARGS[0] = 'intro_9':
 	fcolor = rgb (255, 255, 255)
 	
 	'<center><img <<$set_imgh>> src="images/system/1_openings/4_csb/11.jpg"></center>'
-	'...'
+	'<center>...</center>'
 	wait 1500
 	*nl
-	'...'
+	'<center>...</center>'
 	wait 1500
 	*nl
-	'...'
+	'<center>...</center>'
 	wait 1500
-	'...'
+	*nl
+	'<center>...</center>'
 	wait 1500
 	*nl
 	'Darkness consumes your thoughts for some time. Eventually, images begin to form in your mind and you soon find yourself in the middle of a dream. The strange amulet stands before you and out of it comes a ghost of some sort. Before you even realize what you are doing, you find yourself staring deep into the ghost''s eyes, which turn into two Earths.'
@@ -649,7 +649,7 @@ end
 if $ARGS[0] = 'gad_start':
 	*clr & cla
 	'<center><h2>Gadukino</h2></center>'
-	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_pavlovsk.jpg"></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_gadukino.jpg"></center>'
 	*nl
 	'<center>A small farming village with just as many rickety wooden houses dot the landscape as ruins. The village has seen better days.</center>'
 

locations/intro_uni.qsrc

@@ -147,23 +147,25 @@ if $ARGS[0] = 'mom_intro':
 	'"Yeah, <<$npc_nickname[''A29'']>>! There''s so much to do and see here."'
 	'"Well don''t forget to stay focused on your studies, and stay away from boys for now. There will be plenty of time after you''ve finished studying to think about that stuff."'
 	
-	act 'Tell her what she wants to hear':
-		gs 'npc_relationship', 'set', 'A29', '50'
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big29.jpg"></center>'
-		'"Everything will be fine, <<$npc_nickname[''A29'']>>. You got me here, I will do the rest."'
-		'She gives you a hug before going to stand over at your pile of stuff to keep an eye on it.'
-		
-		act 'Go on tour': gt 'intro_uni', 'tour_intro'
-	end
-	act 'Snap at her':
-		gs 'npc_relationship', 'set', 'A29', '30'
-		*clr & cla
-		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big29.jpg"></center>'
-		'"Just stop <<$npc_nickname[''A29'']>>! I''m an adult now, and I''ll do whatever I want with whoever I want!"'
-		'Her eyes flash in anger, but she doesn''t say anything. She goes and stands next to your pile to keep an eye on it.'
-		
-		act 'Go on tour': gt 'intro_uni', 'tour_intro'
+	if $start_type[1] ! 'tg':
+		act 'Tell her what she wants to hear':
+			gs 'npc_relationship', 'set', 'A29', '50'
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big29.jpg"></center>'
+			'"Everything will be fine, <<$npc_nickname[''A29'']>>. You got me here, I will do the rest."'
+			'She gives you a hug before going to stand over at your pile of stuff to keep an eye on it.'
+			
+			act 'Go on tour': gt 'intro_uni', 'tour_intro'
+		end
+		act 'Snap at her':
+			gs 'npc_relationship', 'set', 'A29', '30'
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big29.jpg"></center>'
+			'"Just stop <<$npc_nickname[''A29'']>>! I''m an adult now, and I''ll do whatever I want with whoever I want!"'
+			'Her eyes flash in anger, but she doesn''t say anything. She goes and stands next to your pile to keep an eye on it.'
+			
+			act 'Go on tour': gt 'intro_uni', 'tour_intro'
+		end
 	end
 	act 'Appreciate her concern':
 		gs 'npc_relationship', 'set', 'A29', '70'
@@ -220,7 +222,11 @@ if $ARGS[0] = 'family_goodbye':
 	*nl
 	'They all wave at you before leaving. You spend some time putting the rest of your stuff away or stashing it under your bed before deciding to explore the grounds.'
 
-	act 'Head outside': gt 'intro_uni', 'welcome_intro'
+	if $start_type[1] = 'tg':
+		act 'Head outside': gt 'intro_uni_tg', 'welcome_intro'
+	else
+		act 'Head outside': gt 'intro_uni', 'welcome_intro'
+	end
 end
 
 if $ARGS[0] = 'welcome_intro':

locations/intro_uni_tg.qsrc

@@ -1,13 +1,531 @@
 # intro_uni_tg
 
+!2022/01/09
+!!The TF Story Elements
 gs 'themes', 'indoors'
 killvar '$start_type'
 $start_type = 'uni_tg'
 $start_type[1] = 'tg'
 
-'Not yet available!!'
 
-act 'Return': gt 'begin', 'start'
+if $ARGS[0] = 'roomPRE':
+	menu_off = 1
+	'<center><b><font color="maroon">Apartment</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/1.jpg"></center>'
+	'You wake up to the sound of your alarm clock. You hear Luda, your wife, mumbling next to you, "Don''t want to, it''s too early." She pulls her blanket up and rolls over. You reach over and turn the clock off.'
+	*nl
+	'<i>There are days when I just want to keep on sleeping</i>, you think to yourself. <i>But I can''t, not today.</i>'
+	act 'Go to the bathroom':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/mikhail_2.jpg"></center>'
+		'Quietly, so that you don''t wake up your daughter, you go to the bathroom and take care of your morning routine.'
+		act 'Leave the apartment':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/3.jpg"></center>'
+			'In a parking lot near your house sits your car. You unlock it with the remote key and climb in.'
+			act 'Go to work':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/4.jpg"></center>'
+				'You turn the key and the engine roars to life. As you drive to work the roads are filled with traffic, but it''s the morning rush hour, so it''s no surprise. You drive for what feels like an eternity, give or take an hour, but you eventually reach the office. The music on the radio was pleasant, at least.'
+				act 'Park at the office':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/5.jpg"></center>'
+					'You pull into a parking lot near the building and manage to find a good spot. You greet the security guard on your way in to the building, and then go upstairs to your office. Shortly after you sit down at your desk and boot up your computer, your boss''s secretary comes in and hands you a folder with several travel documents.'
+					*nl
+					'"Am I going on a business trip or something?" you ask her.'
+					*nl
+					'"Yes, the director said it had something to do with a construction project, out in the middle of nowhere, but that''s pretty much all I know," Oksana says.'
+					*nl
+					'After she leaves, you read over the travel documents and fill them out. Time to go to the director.'
+					act 'Go and see your boss':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_roman.jpg"></center>'
+						'You head into the directors'' office, greet him and hand him the papers to sign. The director, Roman Gromov, scans through the text before signing off on it with a broad, sweeping stroke.'
+						*nl
+						'"Ms. Glavbukh is in her office. Go get some travel money while I make a few calls. We''ll discuss your trip when you get back."'
+						act 'Go to the chief accountant':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_marina.jpg"></center>'
+							'Marina is indeed already in her office. After filing your signed travel documents, she grumbles about antiquated systems as she counts out the money.'
+							act 'Return to the director':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_roman.jpg"></center>'
+								'Roman is busy talking on the phone when you re-enter the his office, he gestures for you to sit down on one of the chairs across from him.'
+								*nl
+								'"Yes, I understand... yes. I will send Mikhail over ASAP, he''ll represent me... Yes... Tell your men to work on some other parts of the project in the meantime. Have Igor guard the pit and let no one make any fuss, and make sure nobody gets wind of this and, you know, try to halt the construction... Okay, we''ll keep in touch."'
+								*nl
+								'Roman hangs up and turns to you.'
+								*nl
+								'"Last night, while excavating for the foundations, the workers stumbled upon something; one of the excavators dug into a hollow space of some sort. Luckily Igor was on site and he halted the excavation.'
+								*nl
+								'"It''s not clear what exactly it is, yet. Maybe an abandoned bunker or a cave. But in any case, if there are any more chambers under the foundation, we might not be able to build on the land. So what I want you to do, is to go to the construction site, figure out exactly what the problem is and solve this whole mess as quickly as possible."'
+								act 'Remind him of the correct procedures':
+									*clr & cla
+									'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_roman.jpg"></center>'
+									'"Firstly we need to talk to..." you start to say, but are quickly interrupted by your boss.'
+									*nl
+									'"Mikhail, do you realize what''s at stake here? We''re near the end of our credit line, we still have unfinalized agreements on the project''s contract, and we already have guys digging the pit. If there is a too big hole under the foundation, and we can''t build on the site, that could bankrupt the company. So this mysterious structure must be addressed immediately and I have to hold the fort here and keep a lid on things."'
+									act 'Doesn''t look like you have a choice': gt 'intro_uni_tg', 'roadPRE'
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'roadPRE':
+	music_loop = 0
+	CLOSE ALL
+	'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/4.jpg"></center>'
+	'You leave the office and from your car phone your wife Luda. You explain the situation to her and as soon as you finish the call, you drive off to the construction site.'
+	act 'Drive':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_working.jpg"></center>'
+		'You''ve been on the highway for hours before you arrive at the town near the site, leaving you feeling tired. But before you can check into a hotel and get some sleep, you need to get an understanding of the magnitude of the problem you''re dealing with. You follow the directions to the site. Igor calls on the way and tells you that you won''t have to go through a security check.'
+		*nl
+		'You arrive and park your car at the site. You see Igor waving at you from a distance and you walk up to him.'
+		act 'Greet Igor':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_igor.jpg"></center>'
+			'Igor greets you. He is obviously concerned about the situation and without delay leads you to the pit''s fenced-off entrance. It rained earlier so the ground is all muddy, you''re going to have to clean your shoes when you get back to the hotel.'
+			*nl
+			'"The ladder''s over there," Igor informs you, while pointing to your left.'
+			*nl
+			'You reach the hole in the ground and peek inside using the small flashlight from your keychain. "There seems to be a floor about 5 meters down."'
+			*nl
+			'"Well, what do you think Mikhail? Shall we go down?" Igor says with a faint glimmer of adventure in his eyes.'
+			act 'Descend':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_cave_1.jpg"></center>'
+				'Igor hands you a powerful flashlight and tells the guard to get the ladder over here. Igor is the first one to go down, once he reaches the bottom, he holds the ladder so you can safely climb down as well.'
+				*nl
+				'The cave smells musty and looks all gloomy, but you can breathe freely and the light from your flashlight illuminates the walls. You shoot a beam of light into the corridor and in the distance see something that resembles a door.'
+				*nl
+				'"Damn. If any historians hear about this, they''ll be all over this construction site." Igor mutters.'
+				*nl
+				'You walk up to the door and see drawings on it. Most of them resemble people, but with other stick figures as well.'
+				act 'Open the door':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_cave_3.jpg"></center>'
+					'You lean against the door, it''s stiff but you manage to push it open.'
+					*nl
+					'"Oh shit...! Take a look over there. Human bones." Igor says nervously.'
+					*nl
+					'You take a look at what Igor is pointing at and see a pile of human bones with a skull on top.'
+					*nl
+					'"A tomb, I suppose." Igor mutters looking apprehensive.'
+					*nl
+					'"Probably", you nod. "We can''t rule anything out just yet."'
+					act 'Go further':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_cave_5.jpg"></center>'
+						'Further into the cave, you reach a room that resembles some kind of archive, filled with dozens of old, dusty scrolls inside of racks built into the walls.'
+						*nl
+						'Igor takes one of the scrolls and carefully unrolls it. "What the hell? Look at this, it must be some kind of ancient language," Igor says. "I''ll take one with me, and see what I can find out about these, maybe I can get it deciphered. So we''ll know what we are dealing with."'
+						*nl
+						'Looking around, you notice another door on the other side of the chamber, you walk over and open it.'
+						act 'Enter the room':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_cave_altar.jpg"></center>'
+							'There''s an altar in the center of the room, on it there are various pots, several gold amulets and even some stone figures. You continue looking around the room curiously, trying to figure out what it''s purpose was.'
+							*nl
+							'Looking closely at the altar, you notice a strange little amulet placed at the very top.'
+							act 'Examine the amulet':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/system/1_openings/shared/item_amulet.jpg"></center>'
+								'You pick up the strange amulet and examine it. <i>This is clearly very old</i>, you think to yourself.'
+								*nl
+								'While holding the amulet, you realize that it''s getting warm, almost hot. Suddenly you feel heat coursing through your entire body. You feel a surge of strength inside you. It''s like you just finished a long jog, but without the fatigue.'
+								*nl
+								'Igor enters the room with one of the scrolls in his hands. "Huh. Interesting little room.", he says, glancing over the altar. "Well, we have to make a decision: either we fill the catacombs up to the brink with cement or we let someone into these rooms. Who knows what all this stuff is, maybe it''s worth more than it looks."'
+								act 'Consult you boss':
+									*clr & cla
+									'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_cave_altar.jpg"></center>'
+									'"I''ve got to think about it and consult the director before we do anything." You reply and without thinking about it, you put the small amulet into your pocket.'
+									*nl
+									'"Well, one thing''s for sure, you won''t get reception down here. Let''s go outside." Igor tells you.'
+									act 'Go back to the surface':
+										*clr & cla
+										'<center><img <<$set_imgh>> src="images/system/1_openings/shared/site_working.jpg"></center>'
+										'You walk together with Igor out of the strange chambers and up the ladder, back to the surface.'
+										*nl
+										'"We must have been down there longer than I thought, it''s already late. There will only be security on site now so there''s nothing we can do here until the morning, you should go to the hotel." Igor says.'
+										*nl
+										'With a hasty goodbye to Igor, you make your way back to your car.'
+										'<i>Damn</i>, you think, <i>tomorrow''s going to be a stressful day.</i>'
+										act 'Go to the hotel': gt 'intro_uni_tg', 'otelPRE'
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'otelPRE':
+	'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/6.jpg"></center>'
+	'Your trip to the hotel is quite uneventful compared to your tomb raiding adventure.'
+	*nl
+	'You park your car and go to the receptionist to get a room. There are only double rooms available, but it''s going on the company card, so that just means you''ll get a bigger room. You swipe your company card and take your room key.'
+	act 'Head upstairs to your room':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/7.jpg"></center>'
+		'Lying down on one of the beds, you start to wonder just who built that crypt and what it''s purpose was. Your thoughts drift to that amulet you found. The way that thing you touched half an hour ago is still making you feel wonderful baffles you.'
+		act 'Call the director':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/7.jpg"></center>'
+			'You dial Romans'' number and after a few rings, he picks up. You report to him the details of what you found at the site with Igor: an ancient tomb, human bones, scrolls in a mysterious language and the altar in that room.'
+			*nl
+			'The director stays silent while you give your report. A few moments later, he decides that it would be best to stop the construction. He tells you to stay and keep watch over the site until further notice.'
+			*nl
+			'You put the phone away. <i>Looks like this trip is going to last longer than expected</i>, you think to yourself.'
+			act 'Go to bed':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/7.jpg"></center>'
+				'It doesn''t take you long to drift off to sleep'
+				*nl
+				'Images begin to form in your mind and you soon find yourself in a middle of a dream. The amulet stands before you and out of it comes a ghost of some sort. Before you even realize what you are doing, you find yourself staring deep into the ghost''s eyes which then turn into two planet earths.'
+				*nl
+				'"Looking at the world most just see the mundane, but there is more to it, much more and now you see that too. You have the potential to shape it all, but first, you have company."'
+				*nl
+				'Suddenly your senses return and you are aware of the hotel room around you, you can tell you are not alone.'
+				act 'Open your eyes':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_reinhold.jpg"></center>'
+					'As you open your eyes, you see a man standing in your room. He is wearing a long black coat and his face looks weary; he is unshaven and reminds you of most police detectives in Hollywood films.'
+					*nl
+					'"Where is the amulet?" he approaches you.'
+					act 'Ask who he is':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_reinhold.jpg"></center>'
+						'"Who are you?" you ask puzzledly. The man''s sudden appearance and a sense you never knew you had tell you something about him, that he is not of the world you know.'
+						*nl
+						'"Listen, don''t cause any problems now. Give me the amulet, close the construction site, and all will be fine. After all that place belongs to us," he says in a firm voice.'
+						*nl
+						'<i>Belongs to us?</i> His response leaves you bewildered, wondering who he is and what this is all about.'
+						*nl
+						'"Well, how about I give you a small taste of my power." the man says, and out of nowhere comes a burning desire to give him the amulet.'
+						act 'Give him the amulet':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/7.jpg"></center>'
+							'You get out of the bed and give him the stone figure you had put in your pocket earlier. The man takes it, steps back, and without warning, something in his eyes begins to spin like a whirlwind, causing your own eyes to blur as if he was hypnotizing you. A few seconds later your vision clears with the man having somehow disappeared into thin air.'
+							*nl
+							'You rub your eyes, "What the hell is going on here? Was that a dream?. No, it can''t be. I wouldn''t walk around in a dream. I think." You say to no one in particular then check your pocket, the amulet is indeed gone. You sit down on the bed trying to make sense of what just happened.'
+							*nl
+							'While lost in thought, you hear a knock on the door. You get up to open the door, not even thinking why you would have visitors this late at night.'
+							'"...Who''s there?", you ask, still confused.'
+							*nl
+							'A woman''s voice responds that she''s the hotel receptionist and that she needs to talk to you on an urgent matter.'
+							act 'Answer the door':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+								'You open the door, but don''t recall the woman in front of you being at the reception desk; the woman from earlier didn''t have red hair and glasses. After entering the room she quickly examines the place, before locking her eyes on you.'
+								*nl
+								'"Mikhail, right?" You nod.'
+								*nl
+								'"Last night you went to a certain place and took out something very valuable and powerful." the woman speaks to you.'
+								act 'Another one?':
+									*clr & cla
+									'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+									'<i>Again?</i>'
+									*nl
+									'You sigh, irritated that not only have you been disturbed in the middle of the night, but these idiots apparently cannot even agree among themselves which one of them should disturb you.'
+									*nl
+									'"Listen, you''re starting to bother me. That other guy already showed up asking for the damn amulet."'
+									*nl
+									'She looks at you with surprise. "What? Someone already came here? Who was it?"'
+									act 'Tell her':
+										*clr & cla
+										'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+										'"It was some man in a navy cloak with ginger hair and a light beard, he didn''t tell me his name. He already took the amulet." You answer.'
+										*nl
+										'The girl''s face drops. "Damn it!" She looks into your eyes. "Okay... Mikhail, we have to go somewhere else, there are too many people that might get hurt here. Gustav, come here!" The girl calls out to the corridor.'
+										*nl
+										'A tall man enters the room'
+										StoryLine = 0
+										MagikDostup = 0
+										$pcs_firstname = 'Mikhail'
+										$pcs_lastname = 'Ivanov'
+										age = 33
+										vidage = 33
+										year = 2016
+										month = 5
+										week = 1
+										hour = 7
+										day = 25
+										!!body
+										pcs_hgt = 186
+										dick = 0
+										pcs_energy = 60
+										pcs_hydra = 60
+										pcs_sleep = 70
+										!!stats
+										pcs_stren = 160
+										pcs_agil = 50
+										pcs_vital = 160
+										pcs_intel = 50
+										pcs_sprt = 100
+										pcs_react = 50
+										pcs_kick = 20
+										pcs_punch = 20
+										pcs_jab = 20
+										pcs_health = pcs_vital * 10
+										pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
+										pcs_mana = (pcs_intel * pcs_magik) + pcs_vital * 5
+										birthday = 1
+										birthmonth = 4
+										birthyear = 1983
+										pcs_dob = 19830401
+										act 'Prepare to fight':
+											*clr & cla
+											'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_gustav.jpg"></center>'
+											'The man has a large tattoo across the left side of his face. He too has red hair'
+											$boy = 'Gustav'
+											gs 'fight','initFight',1
+
+											gs 'fight_npcdata', 'gustav'
+											fightEnding = 1
+
+											act 'Fight': gt 'fight', 'start'
+										end
+									end
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'tatianaPRE':
+	$pcs_firstname = '<<$temp_firstname>>'
+	$pcs_lastname = '<<$temp_lastname>>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+	'You wake up in an unfamiliar room. Standing near you is the same red-haired girl that entered your hotel room.'
+	*nl
+	'"Ah, you''re awake," she chirps. "I told this jerk he should have been more careful, but he never listens. As a result I had to use some magic to stabilize you, he almost knocked you out permanently."'
+	*nl
+	'"While you were unconscious I did some research on you. Turns out the Amulet of Power passed to you. Must have happened when you touched it. Unfortunately, Reinhold, the guy in your room, has probably realized by now that the amulet no longer has the power and now he''s out to hunt you down."'
+	act 'What''s going on?':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+		'"What the hell is going on?" you respond. You try to move your hands, but you''re tied to the bed.'
+		*nl
+		'"Um, okay, I''ll start from the beginning," the girl says. "Magic exists and is real. Ages ago the world was not the same, the fae creatures who possess natural magic lived in balance but the succubus were free to breed with whom ever they wished."'
+		*nl
+		'"They breed with humans with that human magicians were born. The Sidhe as the most powerful of the fae feared the increasing numbers of human magicians and cast a very powerful spell to bind the succubus to them, this prevented either from being able to reproduce without the other."'
+		*nl
+		'"All magicians have some of that original fae blood in there bodies and it is through that that they are able to connect with the world of magic."'
+		*nl
+		'The redhead adjusts her glasses. "Most of the world simply ignore magic or are protected from it by magic''s natural desire to remain hidden."'
+		*nl
+		'"But last night there was a powerful burst of magical energy, strong enough to be clearly seen by any with magical connections. Can you guess where this surge came from? Yeah, that cave you found. Apparently the surge occurred when you opened the seal to the archive. Anyway, that was when we started to search, that source of power is desired by many, but it is extremely dangerous and in the wrong hands could do untold horrors."'
+		*nl
+		'She stops for a few seconds for you process that information. It seems really far fetched.'
+		*nl
+		'"As you can figure out, Reinhold wanted to prevent the amulet being misused, but he wasn''t very thorough and didn''t check you over."'
+		act 'So, the whole world is just an illusion?':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+			'"So magic exists and is used by all these people and creatures, but the rest of us just don''t see it, or convince ourselves it didn''t happen?"'
+			*nl
+			'The girl nods. "Yes. You''re a quick study. Machines, apartments, television and the Internet, all this really does exist and is in the form in which people see it. But if I say, hurl a fireball, then people might see that I threw a grenade or shot from a flamethrower. The human mind can''t process magic, so it blocks it as a way to protect the person from going crazy."'
+			*nl
+			'"Hence such things as little green men, UFOs, poltergeists, spontaneous combustion, are when people encounter a difficult to hide phenomenon and the conclusion is flawed. In some cases, if someone''s mind can not cope with the spell they witness, they can be driven crazy and then no one believes them."'
+			act 'And who are you?':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+				'Trying to come to terms with your new reality, you ask "And who are you?"'
+				*nl
+				'The girl smiled. "Me? I''m Tatiana, a young mage with an keen interest in magical phenomenon. I specialize in the treatment of mutations, and magic relating to the body. I have little combat skill, so I rely on the services of Gustav to provide some muscle. He''s a Mutant, his mutation is due to magical exposure and it gives him unmatched physical strength and he is a great tracker."'
+				*nl
+				'"The two of us run a detective agency for cover and money, but our real objective is studying magic and its effects."'
+				act 'What do you want from me?':
+					*clr & cla
+					'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+					'"What do you want from me?"'
+					*nl
+					'"Hmm, well... the amulet obviously," Tatiana replies. "When I looked for you, I was hoping to get that object of power to study but Reinhold got to you first. The amulet will now be pretty much useless anyway, as its power passed on to you."'
+					*nl
+					'"This isn''t good for you, though. You may think since you have the amulets'' power that you can do anything. But in reality, you''re helpless without the skill to use it. Reinhold easily overpowered your will and forced you to obey, and Gustav beat you like a puppy."'
+					act 'What is this amulet? Where did it come from?':
+						*clr & cla
+						'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+						'"And what is this amulet? Where did it come from?" you ask.'
+						'Tatiana thinks about it for a few moments. "It was made by the trickster Rikudo, one of the most powerful ancient magicians. Before he died, he taunted the only living mage who could control its immense power by cursing him to be stuck in a female form and making it only activate for a male mage."'
+						*nl
+						'"Great. So I''ve been thrown into this mess by the dead owner of that ancient tomb." Still trying to absorb all this information, something occurs to you. "Hang on, I''m not a mage, how could the power be transferred to me?"'
+						*nl
+						'"It seems that its long time underground has caused it to malfunction and its power has entered your body. The bad news is it is far too powerful and will kill you." At this you are filled with fear and start to struggle against your bindings.'
+						*nl
+						'"You are lucky Reinhold didn''t realize this, he would have stopped you from accidentally wielding the power and killing yourself and who knows how many others by killing you in that hotel room. I have another way to save you, but you''re not going to like it."'
+						*nl
+						'You don''t say anything, so she continues, "I can feel the aura of power emanating from you, by drawing from that I can perform a powerful magic spell that will transform you into someone who is protected from the masculine alignment of the power."'
+						act 'Uh, I do not understand, what are you suggesting?':
+							*clr & cla
+							'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+							'"Uh, I do not understand, what are you suggesting?" you ask her.'
+							*nl
+							'Tatiana runs a hand through her hair and giggles. "I''ll turn you into a young girl and the power will lie dormant, saving you from blowing up a city or something."'
+							*nl
+							'Your eyes widen in shock.'
+							*nl
+							'"Well, there is another way, I can just stop your heart and let your power dissolve into nature, but you will die. I''m not Reinhold, I can take this risk and I don''t want to kill you. Maybe with more time and research I can work out another solution, but I cannot leave you like this."'
+							act 'What about your family?':
+								*clr & cla
+								'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+								'"Hey, I don''t want to be a woman. I have a family; a wife and a daughter," you tell her, afraid.'
+								*nl
+								'Tatiana smiles. "Well the choice is simple, either you die or live without a penis for the time being."'
+								*nl
+								'"As for your family, not to worry. I''ll arrange everything. We will fabricate your death to get Reinhold off your back. To make your transition easier I''ll cover your memory of the family, they will only be ghostly memories, you won''t even remember where you lived. Don''t worry, I won''t erase your entire memory and leave you a useless vegetable."'
+								act 'There must be another way!':
+									$loc = 'intro_uni_tg'
+									$loc_arg = 'custom'
+									*clr & cla
+									'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+									'Panicking, you yell out "There must be another way!" You tug at the restraints on the bed.'
+									*nl
+									'Tatiana''s face turns serious. "Do not argue. It''s the only way available to me. You''ll need to use a new name, so think it over in your dreams and tell me when you wake up, otherwise I''ll give you a pretty name. Now go to sleep." She puts her hand on your chest and your vision immediately fades. You dream about a girl you never knew and what she did at school...'
+									act 'Dream': gt 'intro_city_select', 'start'
+								end
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'custom':
+	$loc = 'intro_uni_tg'
+	$loc_arg = 'custom'
+!!	This is to bypass the next part if the avatar system was used
+!!	It will be changed to bypass the head options, once more body options are added
+
+!!	Just hair and eye color here for now; the dialog will be updated as more options are added
+	'<center><b><font color = maroon>CHARACTER CUSTOMIZATION</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/character_creation_2.jpg"></center>'
+	'As you drift in unconsciousness, an impression of a woman forms in your mind. Many aspects of her appearance are indistinct, but there are some things you can make out.'
+	'She is fairly tall.'
+	*nl
+	'<center>Customize your:</center>'
+	'<center><a href="exec:gs ''intro_customization'', ''hair''"><img src="images/system/1_openings/shared/icon_hair.png"></a> <a href="exec:gs ''intro_customization'', ''eyes''"><img src="images/system/1_openings/shared/icon_eye.png"></a></center>'
+	*nl
+	'Everything else about her is fuzzy...'
+
+	act 'Done': gt 'intro_uni_tg', 'sleepPRE'
+end
+
+if $ARGS[0] = 'sleepPRE':
+	killobj
+	'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_tatiana.jpg"></center>'
+	'"You''re awake?." Tatiana says looking into your eyes.'
+	act 'Look at yourself':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/8.jpg"></center>'
+		'"Fuck," you say and immediately shut your mouth again. Your voice... it''s so feminine. Tatiana giggles.'
+
+		!!Default Names
+		$pcs_firstname = 'Svetlana'
+		$pcs_lastname = 'Lebedev'
+		$pcs_nickname = 'Sveta'
+
+		!!Player names are set here
+		if $temp_firstname = '':
+			$temp_firstname = 'Svetlana'
+		else
+			$temp_firstname = '<<$pcs_firstname>>'
+		end
+		$pcs_firstname = input("What is your first name? (Leave blank for Svetlana)")
+		if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
+		killvar '$temp_firstname'
+
+		
+		if $temp_lastname = '':
+			$temp_lastname = 'Lebedev'
+		else
+			$temp_lastname = '<<$pcs_lastname>>'
+		end
+		$pcs_lastname = input("What is your family name? (Leave blank for Lebedev)")
+		if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
+		killvar '$temp_lastname'
+
+		if $temp_nickname = '':
+			$temp_nickname = 'Sveta'
+		else
+			$temp_nickname = '<<$pcs_nickname>>'
+		end
+		$pcs_nickname = input("What is your nickname? (Leave blank for Sveta)")
+		if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
+		killvar '$temp_nickname'
+
+		'"This is the first time I changed the gender of a person, therefore I just HAD to see your reaction. Totally worth it. But you turned out exactly like her."'
+		'Puzzled, you ask "Like who?"'
+		'"<<$pcs_firstname>> <<$pcs_lastname>> of course. It''s the dead girl I swapped you with. I found her in the morgue, erased evidence of her death,  made her look like you, and you like her. You needed an alibi, and I needed to throw Reinhold off your trail. Today, Mikhail crashed his car into the pit and died, it''s on the news." With these words, Tatiana picked up the remote and turned on the TV.'
+		
+		act 'Watch TV':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/9.jpg"></center>'
+			'On TV there is a news report about a businessman, who drove his car into a hole at a construction site. The man died later in hospital without regaining consciousness.'
+			'You look at Tatiana, with a bewildered look. She has an enigmatic smile, "Well, I''m still a magician and that''s something that I can do. Reinhold has definitely lost the trail. The body that ''died'' behind the wheel of the BMW was a perfect copy of your old self, from your absorbed amulet energy down to the placement of every single hair."'
+			'"Anyways, here are her legal documents, including her passport. Starting today, you are <<$pcs_nickname>> <<$pcs_lastname>>, an 18 year old girl who lives in the city. Nobody knows you since she just moved here from Pavlovsk, but here is her journal in case you do run into someone she knew. You should study it, she was pretty detailed about the people in her life, including her family. Here are the keys to her dorm, she is enrolled at the University, her first year. You don''t have to attend if you don''t want to, it''s your life now."'
+			'"Some things to consider before you go. You are a girl now. That means you will get periods, and you can certainly get pregnant if you have unprotected sex."'
+			'"Just because you made me into a young girl doesn''t mean I''m not still 33 years old," you say, annoyed at her.'
+			'"Be careful, life as a girl is much harder than as a man. Protecting yourself means less about fighting and more about staying out of situations where guys can force you into things you won''t want to do."'
+			*nl
+			'"Now get up, you''ve got to go to your new home and start your new life."'
+			*nl
+			'Gustav, the redhead with a tattoo on his face enters the room. He looks at you and says, "I''ll take you."'
+
+			act 'Go with Gustav':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/system/1_openings/shared/npc_gustav.jpg"></center>'
+				'Gustav silently takes you to the garage and you enter the black jeep. Gustav gets behind the wheel and drives you into the city. You silently speculate about what to do now.'
+				'After a few minutes, while keeping his eyes on the road, Gustav speaks. "I''m sorry I beat you up. I have trouble controlling myself during a fight. You had a large build and for a second I thought you might be dangerous for me, so I ended up hitting you with my full force."'
+				'You look at him. "Forget it. Listen Gustav... what do I do now?"'
+				'Gustav nods and says, "Well, I would advise you to start by buying food, laundry detergents and dishes should be covered by the university. Maybe get a job. Don''t forget to monitor your health, keep your mood up and have a clear mind."'
+				'"Right now your mind is very weak, if you don''t take care of yourself you will go crazy. You need to eat well, sleep regularly, have fun, do not generally become depressive or else you end up in a madhouse. Don''t go looking for Tatiana, you will not find her anyway, and secondly, if we need to contact you, we will find you."'
+				'You arrive at an old apartment block in the town of Pavlovsk. Gustav stops the car and points a finger at the entrance. Your parents are on the third floor, the number is on your key Tatiana gave you. Tomorrow they are going to take you to your university dorm. Act natural and get some sleep, the changes to your body took a lot of energy out of you. Remember don''t just give up, not everyone gets an entirely new chance at life. Tatiana and me will keep an eye out for you."'
+				
+				act 'Go to the apartment':
+					$loc = 'intro_uni'
+					$loc_arg = 'custom'
+					'<center><img <<$set_imgh>> src="images/locations/city/island/university/uni_day.jpg"></center>'
+					'You are exhausted and trying to take in all the strange things you''ve learnt and barely speak to anyone at home. You remember your Mom sitting you down and making you eat something before you get an early night''s sleep.'
+					'The next morning you find you already have your bags packed, you get ready and throw some wash things in your bag. Your sister then takes some back out saying they are hers and puts some other things in there. Your family all head down stairs with you and pile into your stepfather''s Gazelle pickup and you all traveled from your hometown, Pavlovsk, to St. Petersburg.'
+					'As you approach the city, you read through the journal you have inherited and learn about the school days and kids. You find out what type of kid ''you'' were...'
+
+					act 'Continue': gt 'intro_city_select', 'start'
+				end
+			end
+		end
+	end
+end
+
+
+if $ARGS[0] = 'welcome_intro':
+	gs 'intro_initialization_city'
+	!! Welcome to Girl Life speech
+	MagikDostup = 1
+	showstat 1
+	showobjs 1
+	gs 'obj_din', 'old'
+	*clr & cla
+	'<center><img <<$set_imgh>> src="images/system/1_openings/1_tf/start_tf.jpg"></center>'
+	'Welcome to the Transformation start! Although you have lost your masculinity and your old life, new possibilities are opening up before your eyes, aided by your newfound knowledge of the magical nature of the world!'
+	gs 'stat'
+	act 'Begin': gt 'uni_grounds', 'main'
+end
 
 --- intro_uni_tg ---------------------------------
 

locations/katjaEvDin.qsrc

@@ -451,7 +451,7 @@ if $ARGS[0] = 'sex':
 	end
 
 	!!This is for a scene of using a dildo on Katja. But such a scene is not yet written.
-	!!if (katjaQW['slut'] >= 20) and katjaQW['horny'] >= 30 and dildo > 0:
+	!!if (katjaQW['slut'] >= 30) and katjaQW['horny'] >= 30 and dildo > 0:
 	!!	act 'Grab a dildo': gt 'KatjaEvDin', 'dildo'
 	!!end
 
@@ -762,7 +762,7 @@ if $ARGS[0] = 'moron':
 		'Ivan shrugged, looking a little embarrassed. But it was obvious, he was pleased.'
 		act 'Thank Ivan':
 			*clr & cla
-			if npc_sex['A3'] = 1 and $loc ! 'pav_disco':
+			if npc_sex['A3'] > 0 and npc_sex['A14'] > 0 and $loc ! 'pav_disco' and katjaQW['slut'] >= 40 and katjaQW['Horny'] >= 40:
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/whisper.jpg"></center>'
 				'Approaching Ivan, you raised up on tiptoe, and, clasping her arms round his neck, and kissed, and then whispered. "Like kissing girls?" Ivan only replied with a dumbfounded nodded, "Well, then we can show you our appreciation, right Katja?"'
 				'Katja, nods only half paying attention. Then it hit her what you said, she looked at Ivan, at you and her eyes lit up with lustful fire, "Right."'

locations/katja_sex.qsrc

@@ -152,7 +152,7 @@ if $ARGS[0] = 'park':
 	end
 end
 
-!!Sex with Ivan After School (should soon be redone to an anal only scene
+!!Sex with Ivan After School
 if $ARGS[0] = 'prohorov_sex':
 	cla & *clr
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/tease.jpg"></center>'
@@ -164,7 +164,7 @@ if $ARGS[0] = 'prohorov_sex':
 		'You pull Katja close and you begin to kiss each other, your tongues exploring each other''s mouths as your hands roam over each other''s bodies. You completely ignore Ivan.'
 		gs 'arousal', 'kiss', 1, 'lesbian'
 		gs 'stat'
-		if katjaQW['Horny'] >= 50:
+		if katjaQW['Horny'] >= 50 and katjaQW['slut'] >= 50:
 			act 'Kissing and more':
 				cls
 				katjaQW['Horny'] += 5
@@ -175,7 +175,7 @@ if $ARGS[0] = 'prohorov_sex':
 				gs 'arousal', 'foreplay_give', 2, 'lesbian'
 				minut -= 2
 				gs 'stat'
-				if katjaQW['Horny'] >= 60 and npc_sex['A14'] > 0:
+				if katjaQW['Horny'] >= 60 and katjaQW['slut'] >= 60:
 					act 'It''s getting hot':
 						katjaQW['Horny'] += 5
 						cla & *clr
@@ -191,7 +191,7 @@ if $ARGS[0] = 'prohorov_sex':
 								'You pull her face up to yours and the two of you start kissing again. While your hands caress each other''s breasts, Katja hooks one of her legs around yours and you become intertwined. You''re so distracted that you don''t even notice the heavy breathing coming from Ivan as he continues to watch.'
 								gs 'arousal', 'kiss', 1, 'lesbian'
 								gs 'stat'
-								if katjaQW['Horny'] >= 80 and katjaQW['QWstage'] = 6 and katjaQW['anal_quest'] = 2:
+								if katjaQW['Horny'] >= 80:
 									act 'Lift skirt':
 										cla
 										*clr
@@ -202,7 +202,7 @@ if $ARGS[0] = 'prohorov_sex':
 										gs 'stat'
 										
 										gs 'willpower', 'sex', 'resist', 'hard'
-										if will_cost <= pcs_willpwr:
+										if katjaQW['anal_quest'] < 2 or will_cost <= pcs_willpwr:
 											act 'Tell Ivan to just watch (<<will_cost>> Willpower)':
 												cla & *clr
 												gs 'willpower', 'pay', 'self'
@@ -219,24 +219,26 @@ if $ARGS[0] = 'prohorov_sex':
 											act 'Tell Ivan to just watch (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 										end	
 										
-										act 'Encourage Ivan':
-											cls
-											ivan_afterschool = 1
-											gs 'stat'
-											'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/letshavefun.jpg"></center>'
-											'Feeling Ivan''s finger rubbing your asshole, you reach back and put your hand on his ass, giving it a squeeze before pulling him up against you. You turn your head and begin to kiss him.'
-											'Katja quickly joins you and soon all three of you are kissing and fondling each other. At your encouragement, Ivan slips his finger into your ass, eliciting a moan of pleasure from you.'
-											'A few seconds later, the bell rings and you all break apart. "Meet me after school so we can continue this?" Ivan pleads as you and Katja get dressed.'
-											'You look at Ivan for a second and bite your lower lip in consideration. Turning to look at Katja, you find her looking at you and enthusiastically nodding. You can''t help but grin at her eagerness and nod as well.'
-											'Katja walks up to Ivan. "Meet us here after school and we''ll rock your world..." she says in a seductive tone and you watch as the biggest grin appears on his face. You turn to Katja and you both laugh as you all rush to class.'
+										if katjaQW['anal_quest'] > 1:
+											act 'Encourage Ivan':
+												cls
+												ivan_afterschool = 1
+												gs 'stat'
+												'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/katja/letshavefun.jpg"></center>'
+												'Feeling Ivan''s finger rubbing your asshole, you reach back and put your hand on his ass, giving it a squeeze before pulling him up against you. You turn your head and begin to kiss him.'
+												'Katja quickly joins you and soon all three of you are kissing and fondling each other. At your encouragement, Ivan slips his finger into your ass, eliciting a moan of pleasure from you.'
+												'A few seconds later, the bell rings and you all break apart. "Meet me after school so we can continue this?" Ivan pleads as you and Katja get dressed.'
+												'You look at Ivan for a second and bite your lower lip in consideration. Turning to look at Katja, you find her looking at you and enthusiastically nodding. You can''t help but grin at her eagerness and nod as well.'
+												'"Meet us in the English classroom after school" you tel Ivan.'+iif(katjaQW['anal_quest']  >= 3 and katjaQW['slut']  >= 100,  ' Katja walks up to Ivan. "Meet us here after school and we''ll rock your world..." she says in a seductive tone and you watch as the biggest grin appears on his face. You turn to Katja and you both laugh as you all rush to class.', ' You noticed that Katja''s face is getting completely red before you all rush to class.')
 											
-											gs 'arousal', 'anal_finger', 3
-											gs 'arousal', 'kiss', 3, 'lesbian'
-											gs 'arousal', 'kiss', 3
-											minut -= 3
-											gs 'arousal', 'end'
-											gs 'stat'
-											act 'Continue': gt 'gschool_lessons', 'short_break'
+												gs 'arousal', 'anal_finger', 3
+												gs 'arousal', 'kiss', 3, 'lesbian'
+												gs 'arousal', 'kiss', 3
+												minut -= 3
+												gs 'arousal', 'end'
+												gs 'stat'
+												act 'Continue': gt 'gschool_lessons', 'short_break'
+											end
 										end
 									end
 								else

locations/metro_events.qsrc

@@ -1,5 +1,5 @@
 # metro_events
-!2021/05/02
+!2022/02/16
 
 if $ARGS[0] = 'frot':
 	menu_off = 1
@@ -43,6 +43,7 @@ if $ARGS[0] = 'a':
 			act 'Move away (<<will_cost>> Willpower)':
 				*clr & cla
 				gs 'willpower', 'pay', 'resist'
+				gs 'arousal', 'end'
 				gs 'stat'
 				gt 'metro_events', 'fin'
 			end
@@ -60,6 +61,7 @@ if $ARGS[0] = 'a':
 				act 'Move away (<<will_cost>> Willpower)':
 					*clr & cla
 					gs 'willpower', 'pay', 'resist'
+					gs 'arousal', 'end'
 					gs 'stat'
 					gt 'metro_events', 'fin'
 				end
@@ -112,6 +114,7 @@ if $ARGS[0] = 'b':
 			act 'Move away (<<will_cost>> Willpower)':
 				*clr & cla
 				gs 'willpower', 'pay', 'resist'
+				gs 'arousal', 'end'
 				gs 'stat'
 				gt 'metro_events', 'fin'
 			end
@@ -130,6 +133,7 @@ if $ARGS[0] = 'b':
 					*clr & cla
 					gs 'willpower', 'sex', 'resist', 'medium'
 					gs 'willpower', 'pay', 'resist'
+					gs 'arousal', 'end'
 					gs 'stat'
 					gt 'metro_events', 'fin'
 				end
@@ -142,6 +146,7 @@ if $ARGS[0] = 'b':
 					*clr & cla
 					gs 'willpower', 'hj', 'resist', 'medium'
 					gs 'willpower', 'pay', 'resist'
+					gs 'arousal', 'end'
 					frot += 1
 					gs 'cum_call', 'butt', 'stranger on the metro', 0, 0, spot, svol
 					gs 'stat'
@@ -167,6 +172,7 @@ if $ARGS[0] = 'b':
 					act 'Pull hand away (<<will_cost>> Willpower)':
 						*clr & cla
 						gs 'willpower', 'pay', 'resist'
+						gs 'arousal', 'end'
 						gs 'stat'
 						frot += 1
 						gs 'cum_call', 'butt', 'stranger on the metro', 0, 0, spot, svol
@@ -191,6 +197,7 @@ if $ARGS[0] = 'b':
 						act 'Move away (<<will_cost>> Willpower)':
 							*clr & cla
 							gs 'willpower', 'pay', 'resist'
+							gs 'arousal', 'end'
 							gs 'stat'
 							gt 'metro_events', 'fin'
 						end
@@ -253,6 +260,7 @@ if $ARGS[0] = 'c':
 			act 'Move away (<<will_cost>> Willpower)':
 				*clr & cla
 				gs 'willpower', 'pay', 'resist'
+				gs 'arousal', 'end'
 				gs 'stat'
 				gt 'metro_events', 'fin'
 			end
@@ -271,6 +279,7 @@ if $ARGS[0] = 'c':
 				act 'Move away (<<will_cost>> Willpower)':
 					*clr & cla
 					gs 'willpower', 'pay', 'resist'
+					gs 'arousal', 'end'
 					gs 'stat'
 					gt 'metro_events', 'fin'
 				end
@@ -290,6 +299,7 @@ if $ARGS[0] = 'c':
 						*clr & cla
 						gs 'willpower', 'bj', 'resist', 'medium'
 						gs 'willpower', 'pay', 'resist'
+						gs 'arousal', 'end'
 						gs 'stat'
 						gt 'metro_events', 'fin'
 					end
@@ -302,6 +312,7 @@ if $ARGS[0] = 'c':
 						*clr & cla
 						gs 'willpower', 'bj', 'resist', 'medium'
 						gs 'willpower', 'pay', 'resist'
+						gs 'arousal', 'end'
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotd1.jpg"></center>'
 						'He stands firm, and once again tries to push you down, but you won''t budge. As he can''t convince you, he relaxes instead, letting you go on as you keep jerking him off. When he moans into your ear, you start stroking it more vigorously, a couple of minutes later, you feel spurts of hot cum splashing against your ass cheek. Once he is finished he pulls your panties back up over your sperm covered ass then pats you on the butt, before moving away, and disappearing in the crowd.'
@@ -323,6 +334,7 @@ if $ARGS[0] = 'c':
 						act 'Resist and keep jerking him off (<<will_cost>> Willpower)':
 							*clr & cla
 							gs 'willpower', 'pay', 'resist'
+							gs 'arousal', 'end'
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/sex/grop/frotd1.jpg"></center>'
 							'He stands firm, and once again tries to push you down, but you won''t budge. As he can''t convince you, he relaxes instead, letting you go on as you keep jerking him off. When he moans into your ear, you start stroking it more vigorously, a couple of minutes later, you feel spurts of hot cum splashing against your ass cheek. Once he is finished he pulls your panties back up over your sperm covered ass then pats you on the butt, before moving away, and disappearing in the crowd.'
@@ -342,6 +354,7 @@ if $ARGS[0] = 'c':
 							act 'Move away (<<will_cost>> Willpower)':
 								*clr & cla
 								gs 'willpower', 'pay', 'resist'
+								gs 'arousal', 'end'
 								gs 'stat'
 								gt 'metro_events', 'fin'
 							end
@@ -389,7 +402,7 @@ end
 
 if $ARGS[0] = 'station':
 	*clr & cla
-	metrorand = rand(1,19)
+	metrorand = rand(1,22)
 	if metrorand = 1:
 		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/station/aflash1.jpg"></center>'
 		'After your ride on the metro, you leave the station, following several people up the stairs, towards the street. The backside of a women''s skirt keeps lifting up; from the draft of air. Each time it lifts up, it shows off her firm tightly ass, which draws the attention of several men and even a few of the women.'
@@ -556,8 +569,13 @@ if $ARGS[0] = 'station':
 		gs 'arousal', 'end'
 		gs 'stat'
 		act 'Ignore Her':minut += 5 & gt $loc, $loc_arg
-		!!act 'Help Her':
-			!!'text'
+		act 'Help Her and pay for taxi':
+			money -= 50
+			pcs_mood += 10
+			minut += 10
+			'You notice a newspaper on one of the benches, you walk over and grab it then come back to her offering it to her. Now that you are closer you can see she is crying, she nods though and takes the newspaper and covers up as best she can. You then lead her out of the metro and call her a taxi, as you wait for the taxi you find out she made her boyfriend mad who stripped her and left her naked. Telling her she would have nothing with out him and to see how she likes it. Once the taxi arrives she thanks you for paying for it the taxi.'
+			act 'Leave': minut += 5 & gt $loc, $loc_arg
+		end
 	elseif metrorand = 10:
 		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/station/nakedm1.jpg"></center>'
 		'As you head through the metro station, you see a naked man, the only thing he is wearing is a huge grin. He seems rather proud at the attention he is getting, though you have no idea why. After a quick check you notice he packs nothing special in the manhood department. He continues on his way, just as you do.'
@@ -599,7 +617,6 @@ if $ARGS[0] = 'station':
 			gs 'stat'
 		end
 		act 'Record them':
-			*clr & cla
 			photoskl_exp += 2
 			'You pull out your phone as well then start recording them. The one on all fours is going at it, and has her friend quickly moaning loudly, clutching at her hair. Moments later, she gasps loudly, and withers against her friends face, obviously having an orgasm. Once she recovers from her orgasm, they passionately kiss, then get up and straighten their clothes, before heading out.'
 			gs 'arousal', 'voyeur_sex', 3
@@ -619,7 +636,6 @@ if $ARGS[0] = 'station':
 			gt $loc, $loc_arg
 		end
 		act 'Record them':
-			*clr & cla
 			photoskl_exp += 2
 			'You pull out your phone as well then start recording them. He pounds her without mercy, but by the sounds of her moans, she is loving every moment of it. They fuck for several more minutes until he starts to grunt, and then buries himself; balls deep in her for a moment, as he is obviously cumming. Once he pulls out of her, they both quickly get dressed then move to catch a train.'
 			gs 'arousal', 'voyeur_sex', 3
@@ -717,12 +733,42 @@ if $ARGS[0] = 'station':
 				end
 			end
 		end
+	elseif metrorand = 20:
+		'<center><video autoplay loop src="images/locations/city/shared/metro/station/sex/fuck3.mp4"></video></center>'
+		'As you head through the metro station, you notice a couple having sex very obviously across the tracks. You can''t believe your eyes and despite this being a completely public place, you can''t pull your eyes away. They are either a very sexually adventurous couple or a very stupid one, as this terminal is often patrolled by police officers. Regardless, they don''t seem to be stopping anytime soon, and when the male half notices you watching, he flashes you a hand gesture, never missing a thrust.'
+		gs 'arousal', 'voyeur_sex', 3
+		gs 'stat'
+		act 'Hurry away':
+			minut += 5
+			gs 'arousal', 'end'
+			gs 'stat'
+			gt $loc, $loc_arg
+		end
+		act 'Record them':
+			photoskl_exp += 2
+			'You pull out your phone as well then start recording them. He pounds her without mercy, but by the sounds of her moans, she is loving every moment of it. They fuck for several more minutes until he starts to grunt, and then buries himself; balls deep in her for a moment, as he is obviously cumming. Once he pulls out of her, they both quickly get dressed then move to catch a train.'
+			gs 'arousal', 'voyeur_sex', 3
+			gs 'arousal', 'end'
+			gs 'stat'
+			act 'Leave': minut += 5 & gt $loc, $loc_arg
+		end
+	elseif metrorand = 21:
+		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/station/caught_skirt.jpg"></center>'
+		'As you step off the metro and begin to head up the stairs toward the street above, you notice a girl trying to adjust her skirt which has gotten caught up around her waistband. But while doing so, she has accidentally exposed her bare butt to everyone behind her! Just a few moments after you notice what''s going on, a few gopniks do as well, and start to cat-call and yell at at the girl. She quickly covers up, rushing out of the terminal with bright red cheeks, clearly embarrassed.'
+		gs 'arousal', 'erotic', 3
+		gs 'arousal', 'end'
+		gs 'stat'
+		act 'Leave':minut += 5 & gt $loc, $loc_arg	
+	elseif metrorand = 22:
+		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/station/caught_skirt.jpg"></center>'
+		'As you head through the metro station, there''s two women standing on the the platform waiting for the metro dressed in latex body suits. Their heels are extremely high and you imagine how much muscle control it must take just to stand in them, let alone walk through the city''s streets and sidewalks.'
+		act 'Leave':minut += 5 & gt $loc, $loc_arg	
 	end
 end
 
 if $ARGS[0] = 'train':
 	*clr & cla
-	metrorand = rand(1,26)
+	metrorand = rand(1,33)
 	if metrorand = 1:
 		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/annoyed.jpg"></center>'
 		'As you take a seat on the metro, you hear a huff. You glance up to see a woman giving you a dirty looks, like you took her seat, or something. She moves over to sit across from you, and for the rest of the ride, gives you a dirty look. You really have no idea what you did, but whatever it was it pissed her off.'
@@ -905,6 +951,36 @@ if $ARGS[0] = 'train':
 		'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big77.jpg"></center>'
 		'You notice your neighbor <a href="exec:gt ''tryndin'', ''tryndinmetro''">Tryndin</a> in the metro car.'
 		act 'Leave': gt 'metro', 'start'
+	elseif metrorand = 27:
+		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/dog.jpg"></center>'
+		'It seems as if some of the famous "Moscow Metro Dogs" have made their way to St. Petersburg. You heard about them on the news awhile back, but today was the first day you''ve seen one for yourself. It was pretty cute and it made you happy to see the other passengers petting it and being generally kind to the animal. Still, you don''t think the public metro is really a place for a dog to be, and wonder about taking it home with you, or at least to the local animal shelter. Before you can inspect it''s collar however, the metro doors open and the dog trots away.'
+		act 'Leave': gt 'metro', 'start'
+	elseif metrorand = 28:
+		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/mannequin.jpg"></center>'
+		'Sitting across from you is a woman who is hauling some sort of mannequin around in a bag. You wonder what it''s for or where she''s going. Maybe she''s a clothing designer or something? No one else seems to think it''s unusual though, so you shrug it off and play on your phone for the rest of the trip. Just another day on the metro.'
+		act 'Leave': gt 'metro', 'start'
+	elseif metrorand = 29:
+		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/mask.jpg"></center>'
+		'You honestly don''t understand how some people get to be the way they are. But such is life in the big city! You just never know what you''re going to encounter, especially on the metro. You wonder if this person is asleep under their mask as they''re sitting there as still as a statue. Another curious passenger must be thinking the same thing and walks up to him, cautiously reaching out to touch his mask. Suddenly, the masked man jumps to life and starts barking and growling at the lady who dared to touch him! She darts away into the crowd of other passengers, who are now trying to see what all the commotion is about. As soon as you reach your destination, you get up quickly and leave the bizarre scene.'
+		act 'Leave': gt 'metro', 'start'
+	elseif metrorand = 30:
+		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/oldman_nipples.jpg"></center>'
+		'You take a seat on the metro and wait for it to head to your destination. Across from you sits an older man, who appears to be rather scruffy and dirty. You wonder if maybe he''s homeless, or just poor, and you almost feel sorry for him for a moment. That''s when he opens his jacket and reveals a very provocative women''s top, with the nipples cut out of it! A woman a few seats away shouts "oh my God!" and starts to film the man with her phone. He then starts making lewd faces at her while tweaking his nipples, clearly liking the attention.'
+		act 'Leave': gt 'metro', 'start'
+	elseif metrorand = 31:
+		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/police.jpg"></center>'
+		'As you take your spot in the metro, you notice a police officer standing across from you, staring at you the moment you come in. You try to ignore him the best you can by looking down at your phone or around to the other passengers. Whenever you glance back up at him however, he''s still staring right at your face. You don''t think he''s even blinked once! Does he know me from somewhere or something? What''s his problem? you think to yourself.'
+		'You do your best to turn away from his creepy stare, but there''s only so much you can do. Even as the metro pulls up to your stop, you cast one more peek in his direction and he''s still staring right into your eyes.'
+		act 'Leave': gt 'metro', 'start'
+	elseif metrorand = 32:
+		'<center><img <<$set_imgh>> src="images/locations/city/shared/metro/rude.jpg"></center>'
+		'The metro is mostly empty today. A lady sits across from you and you close your eyes here and there, almost dozing off. That''s when a man enters the metro and sits right next to the woman and spreads his legs wide, pressing them into her. There is plenty of room in the metro for this guy to sit, so he''s either being intentionally rude or intentionally creepy. He has one of his hands underneath the bags he''s holding and it seems to be moving slightly...Is he touching himself? Gross! The woman doesn''t tolerate this for long and huffs loudly, sliding down the bench to get away from him. He doesn''t follow her, but continues to sit there while breathing heavily through his mouth, his arm still moving under the bag.'
+		act 'Leave': gt 'metro', 'start'
+	elseif metrorand = 33:
+		'<center><video autoplay loop src="images/locations/city/shared/metro/station/toclose.mp4"></video></center>'
+		'The metro is exceptionally packed today, with most of the younger passengers opting to stand to let the elderly take the limited seats. As the metro beings to move, a middle aged man with chiseled features stands next to you, placing his hand very near yours on the pole. You were there first and so you hold your ground, trying to not to move as the metro car twists and turns along it''s track. But the rocking of the train causes the man''s body to occasionally press up against your own.'
+		'Why is he standing so close to me? Who even does this? Is he going to try something? you think to yourself, your mind preparing for the worst. For the remainder of the trip, the stranger never says a word to you and never intentionally touches any part of your body, but he is definitely too close for comfort. When the train finally comes to a stop, you push towards the doors the second they open and get out of the station as quickly as you can.'
+		act 'Leave': gt 'metro', 'start'
 	end
 end
 

locations/natbelapt.qsrc

@@ -17,7 +17,7 @@
 !NatashaLoc = 7 (Natasha in the laundry room)
 !---------------------------------------------
 
-!!{ Natasha Quest Line
+!{ Natasha Quest Line
 NatbelQW['QWstage'] = 0:
 NatbelQW['QWstage'] = 1: You can study with Natasha after school.
 NatbelQW['QWstage'] = 2: Natasha borrowed money for the first time.
@@ -904,7 +904,7 @@ if $ARGS[0] = 'afterhomework':
 	end
 
 	gs 'willpower', 'cuni', 'force', 'easy'
-	if NatbelQW['QWstage'] >= 7 and will_cost <= pcs_willpwr:
+	if NatbelQW['QWstage'] >= 8 and will_cost <= pcs_willpwr:
 		act 'Take off your own clothes (<<will_cost>> Willpower)':
 			cla
 			gs 'willpower', 'pay', 'self'
@@ -912,7 +912,7 @@ if $ARGS[0] = 'afterhomework':
 			act 'Lie down and open your legs': gt 'natbelapt', 'openlegs'
 			act 'Straddle her face': gt 'natbelapt', 'straddleface'
 		end
-	elseif NatbelQW['QWstage'] >= 7 and will_cost > pcs_willpwr:
+	elseif NatbelQW['QWstage'] >= 8 and will_cost > pcs_willpwr:
 		act 'Take off your own clothes (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end
 	if NatbelQW['seethrough'] = 1:

locations/nerd_game_night.qsrc

@@ -1149,7 +1149,7 @@ if $ARGS[0] = 'summer_invite_sms':
 		$trialSMS += $SMSFrM+$VM['1a']+$SMSBkM
 		$SMSMessage[ARGS[1]] = $trialSMS
 		gs 'telefon', 'show_sms', ARGS[2]
-		nerd_game['invite_day'] = 2147483647 & ! block the event
+!!		nerd_game['invite_day'] = 2147483647 & ! block the event
 	end
 
 	if $ARGS[1] = 'V2':

locations/obj_din.qsrc

@@ -114,7 +114,7 @@ if $ARGS[0] = 'cheattabs':
 	act 'Exit the menu': killvar 'menu_page' & gt 'obj_din', 'menu_exit'
 end
 
-if $ARGS[0] = 'menu_exit': gt $menu_loc, $menu_arg
+if $ARGS[0] = 'menu_exit': settingmode = 0 & gt $menu_loc, $menu_arg
 
 if $ARGS[0] = 'menu_disabled': '<font color="red"><b>Menu is disabled for this event</b></font>'
 

locations/office.qsrc

@@ -105,46 +105,34 @@ if $ARGS[0] = 'work_floor':
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/lobby.jpg"></center>'
 	'This is the main hall for your work floor. It is nicely decorated and you can hear other people working in the office.'
 	if workSec = 1:
-		if sek['atwork'] = daystart and hour = 12:
-			act 'Go back to work station':
-				sekDay += 1
-				if hour = 12: minut += 60 - minut
-				gs 'stat'
-				gt 'office', 'work'
-			end
-		elseif hour >= 8 and hour < 17:
-			if hour = 8:
-				act 'Go to work':
-					sek['atwork'] = daystart
-					minut = 60 - minut
-					gt 'office', 'secretary_office'
-				end
-			else
-				'You''re too late for work, so you''re told to take the day off.'
-			end
-			act 'Go to the breakroom':gt 'office', 'work_floor'
-			act 'Go to restrooms':gt 'office', 'restrooms'
-		end
 		if CloStyle3 ! 4:
 			'You are not dressed according to the corporate dress code.'
 		else
 			if hour >= 8 and hour < 17:
-				act 'Resign':
-					*clr & cla
-					menu_off = 1
-					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/npc/torbica_office.jpg"></center>'
-					'You walk into Mrs Torbica''s office and tell her. "I am resigning."'
-					'"Are you sure?" She asks obviously a little surprised you are quiting.'
-					act 'Yes, I quit.':
-						*clr & cla
-						minut += 30
-						work = 0
-						workSec = 0
-						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/npc/torbica_office.jpg"></center>'
-						'"Yes I am sure." You tender your resignation and then leave.'
-						act 'Leave': minut += 15 & gt 'city_center'
+				!! If it''s 8, then go to work option
+				if hour = 8:
+					act 'Go to work':
+						sek['atwork'] = daystart	
+						minut = 60 - minut    				
+						gt 'office', 'secretary_office'
+					end
+				!! Otherwise it''s return to work if already at work
+				elseif sek['atwork'] = daystart:
+					act 'Go back to work station':
+						sekDay += 1
+						if hour = 12: minut += 60 - minut 
+						gs 'stat'
+						gt 'office', 'work'
 					end
-					act 'Nevermind': gt 'office', 'work_floor'
+				!! Except if didn''t start the day at 8
+				else
+					'You''re too late for work, so you''re told to take the day off.'
+				end
+				!! The remaining actions are always available				
+				act 'Go to the breakroom':gt 'office', 'break_room'
+				act 'Go to restrooms':gt 'office', 'restrooms'
+				act 'Resign':
+					gt 'office', 'resign'
 				end
 			end
 		end
@@ -189,7 +177,7 @@ if $ARGS[0] = 'break_room':
 	'The room is neat and clean. Across from the door is a couch along one wall with a few comfortable chairs. With a large table in the middle of the room and along one wall is a set of cabinets, with a sink, some appliances and a fridge to store your lunch in, if you bring one.'
 	dynamic $driwater
 	if buterbrod > 0 and hour = 12:
-		act 'eat brought lunch':
+		act 'Eat brought lunch':
 			*clr & cla
 			minut += 20
 			buterbrod = 0
@@ -792,4 +780,22 @@ if $ARGS[0] = 'interview':
 	end
 end
 
+if $ARGS[0] = 'resign':
+	*clr & cla
+	menu_off = 1
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/npc/torbica_office.jpg"></center>'
+	'You walk into Mrs Torbica''s office and tell her. "I am resigning."'
+	'"Are you sure?" She asks obviously a little surprised you are quiting.'
+	act 'Yes, I quit.':
+		*clr & cla
+		minut += 30
+		work = 0
+		workSec = 0
+		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/office/npc/torbica_office.jpg"></center>'
+		'"Yes I am sure." You tender your resignation and then leave.'
+		act 'Leave': minut += 15 & gt 'city_center'
+	end
+	act 'Nevermind': gt 'office', 'work_floor'
+end					
+
 --- office ---------------------------------

locations/pav_complexb2.qsrc

@@ -195,7 +195,7 @@ if $ARGS[0] = 'lift':
 	minut +=1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/elevator.jpg"></center>'
-	'<center>The elevator in the apartment building is quite old. The building supervisor does his best to keep it running, but it breaks down a lot. Someone put up a <a href="exec:gt ''pav_complexb2'',''elev_objava''">notification</a> in the elevator.</center>'
+	'<center>The elevator in the apartment building is quite old. The building supervisor does his best to keep it running, but it breaks down a lot. Someone put up a <a href="exec:gt ''pav_complexb2'',''elev_objava'',$ARGS[1]">notification</a> in the elevator.</center>'
 	act 'Push button: Floor 1': gt 'pav_complexb2','etaj_1'
 	act 'Push button: Floor 2': gt 'pav_complexb2','etaj_2'
 	act 'Push button: Floor 3': gt 'pav_complexb2','etaj_3'
@@ -228,7 +228,7 @@ if $ARGS[0] = 'elev_objava':
 		minut +=1
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/elevator_ob'+rand(1,2)+'.jpg"></center>'
-	act 'Continue': gt 'pav_complexb2','lift'
+	act 'Continue': gt 'pav_complexb2','lift',$ARGS[1]
 end
 
 !locked ads

locations/pav_complexb3.qsrc

@@ -198,7 +198,7 @@ if $ARGS[0] = 'lift':
 	minut +=1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/elevator.jpg"></center>'
-	'<center>The elevator in the apartment building is quite old. The building supervisor does his best to keep it running, but it breaks down a lot. Someone put up a <a href="exec:gt ''pav_complexb3'',''elev_objava''">notification</a> in the elevator.</center>'
+	'<center>The elevator in the apartment building is quite old. The building supervisor does his best to keep it running, but it breaks down a lot. Someone put up a <a href="exec:gt ''pav_complexb3'',''elev_objava'',$ARGS[1]">notification</a> in the elevator.</center>'
 	act 'Push button: Floor 1': gt 'pav_complexb3','etaj_1'
 	act 'Push button: Floor 2': gt 'pav_complexb3','etaj_2'
 	act 'Push button: Floor 3': gt 'pav_complexb3','etaj_3'
@@ -231,7 +231,7 @@ if $ARGS[0] = 'elev_objava':
 		minut +=1
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/elevator_ob'+rand(1,2)+'.jpg"></center>'
-	act 'Continue': gt 'pav_complexb3','lift'
+	act 'Continue': gt 'pav_complexb3','lift',$ARGS[1]
 end
 
 !locked ads

locations/pav_factory.qsrc

@@ -21,21 +21,22 @@ if $ARGS[0] = 'tailor':
 	if money >= 500:
 		act 'Resize the clothes you''re wearing (500 <b>₽</b>)':
 			*clr & cla
-			minut += 15
+			minut += 10
 			if CloStyle = 5 or $clothingworntype = 'danilovich_outfits':
 				'The tailor is looking irritatingly at you, "Why are you wasting my time with exercise clothing? That type of clothing does not need to be resized..."'
 			elseif dyneval('RESULT = <<$clothingworntype>>_b[<<clothingwornnumber>>]') = pcs_hips:
 				'The tailor is looking irritatingly at you, "Is this joke? Your clothes could not fit you better if they had been made for you. I have no time for such foolishness."'
-			elseif (dyneval('RESULT = <<$clothingworntype>>_b[<<clothingwornnumber>>]') > pcs_hips + 8) or (dyneval('RESULT = <<$clothingworntype>>_b[<<clothingwornnumber>>]') < pcs_hips - 8):
+			elseif (dyneval('RESULT = <<$clothingworntype>>_b[<<clothingwornnumber>>]') > pcs_hips + 4) or (dyneval('RESULT = <<$clothingworntype>>_b[<<clothingwornnumber>>]') < pcs_hips - 4):
 				'The tailor is looking irritatingly at you, "Why are you wasting my time? Your clothing does not need to be resized. It might not be perfect but it is still fine."'
 			else
 				money -= 500
 				dynamic '<<$clothingworntype>>_b[<<clothingwornnumber>>] = pcs_hips'
-				'You are handed a t-shirt and shorts as you undress and give the clothes to the tailor for adjustment. The tailor is fast and only takes fifteen minutes until your clothes are ready.'
+				'You are handed a t-shirt and shorts as you undress and give the clothes to the tailor for adjustment.'
+				'He quickly measures your waist and hips, then only takes a few minutes to adjust your outfit.'
 				'You are handed your clothes back and quickly get dressed. You''re pleased with the job that the tailor has done.'
 			end
 
-			act 'Leave': minut += 5 & gt 'pav_industrial'
+			act 'Continue': gt 'pav_factory', 'tailor'
 		end
 
 		act 'Resize your other clothes':gt 'clothing', 'view_clothing_list', 'resize'

locations/pav_lake.qsrc

@@ -63,10 +63,10 @@ end
 
 if mid($start_type,1,2) = 'sg' and temper >= 20 and sunWeather = 1 and month >= 5 and month <= 9 and hour >= 12 and hour <= 14 and ((kanikuli = 0 and week = 7) or week mod 2 = 0):
 	if $clothingworntype = 'nude':
-		'As you walk down to the beach area of the lake you see a group of kids from your school hanging out on the beach. It looks like it is the jocks and cool kids. You hope none of them have seen you naked, it would be such a scandal if they seen you like this. You should put on a bikini before approaching them if you want to hang out, or just avoid them and do your own thing today.'
+		'As you walk down to the beach area of the lake, you see the jocks and cool kids hanging out and hope none of them have seen you naked. You should put on a bikini before approaching them if you want to hang out, or just avoid them and do your own thing today.'
 	else
-		'As you walk down to the beach area of the lake you see a group of kids from your school hanging out on the beach. It looks like it is the jocks and cool kids.'
-		act 'Head towards your class mates': gt 'pav_lake', 'school_mates'
+		'As you walk down to the beach area of the lake, you see the jocks and cool kids hanging out.'
+		act 'Approach them': gt 'pav_lake', 'school_mates'
 	end
 end
 
@@ -589,18 +589,18 @@ if $ARGS[0] = 'school_mates':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/beach_hangout/school_mates.jpg"></center>'
 	if fame['pav_slut'] >= 225:
-		'You start walking over to them and you start getting disgusted stares from several of them. Soon several are making rude comments, finally Dimka comes over with Svyatoslav. "Get lost slut, we don''t want you here." You sigh as it is obvious if you try and push this, nothing good will come of it. So you turn and walk away.'
+		'You start approaching them, but are immediately greeted with disgusted stares and rude comments before Dimka walks over with Svyatoslav. "Get lost slut! We don''t want you here." You sigh before turning and walking away.'
 		act 'Leave': gt'pav_lake'
 	elseif grupTipe = 1 or grupTipe = 2:
-		'You start walking over to them and most give you friendly smiles or waves, several wave you to come over and join them.'
+		'You start approaching them and are greeted with friendly smiles as several wave at you to come over and join them.'
 		act 'Leave': gt 'pav_lake'
 		act 'Join them': gt 'pav_lake', 'beach_hangout'
 	elseif grupTipe = 3 or grupTipe = 4:
-		'You start walking over to them and most just ignore you until you start to get close then several of them give you annoyed looks, making it clear you are not really welcome here, but none of them seem like they are going to stop you from joining them at least.'
+		'You start approaching them, but the group largely ignore you until you get close and several of them give you annoyed looks, making it clear you''re not welcome here, but make no effort to stop you from joining them at least.'
 		act 'Leave': gt 'pav_lake'
 		act 'Join them': gt 'pav_lake', 'beach_hangout'
 	else
-		'You start walking over to them and you start getting annoyed stares from several of them. Soon several are making rude comments, finally Dimka comes over with Svyatoslav. "Get lost loser, we don''t want you here." You sigh as it is obvious if you try and push this, nothing good will come of it. So you turn and walk away.'
+		'You start approaching them and are greeted with annoyed stares and rude comments before Dimka walks over with Svyatoslav. "Get lost loser! We don''t want you here." You sigh before turning and walking away.'
 		act 'Leave': gt'pav_lake'
 	end
 end
@@ -608,13 +608,13 @@ end
 if $ARGS[0] = 'beach_hangout':
 	*clr & cla
 	minut += 5
-	!!Cool kids aprove of high quality bikini or outfit and disaprove of low quality
+	!!Cool kids approve of high quality bikini or outfit and disapprove of low quality
 	if PCloQuality >= 4: 	
 		grupvalue[1] += 1
 	elseif PCloQuality  < 3: 	
 		grupvalue[1] -= 1
 	end
-	!!Cool kids and jocks aprove of somewhat revealing clothes or a little skimpy bikini and disaprove of conseravite clothes or bikinis and very revealing clothes or very skimpy bikini
+	!!Cool kids and jocks approve of somewhat revealing clothes or a little skimpy bikini and disapprove of conservative clothes or bikinis and very revealing clothes or very skimpy bikini
 	if PCloInhibit >= 35:
 		grupvalue[1] -= 1
 		grupvalue[2] -= 1
@@ -625,21 +625,20 @@ if $ARGS[0] = 'beach_hangout':
 		grupvalue[1] -= 1
 		grupvalue[2] -= 1
 	end
-	!!Jocks disaprove of a one piece swimsuite
+	!!Jocks disapprove of a one piece swimsuit
 	if PCloswimwear = 1 and PCloOnePiece = 1:
 		grupvalue[2] -= 1
 	end
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/beach_hangout/beach_hangout.jpg"></center>'
 	if grupTipe = 1 or grupTipe = 2:
-		'You smile to your friends and take a seat with them and soon are joining in on the variety of conversations going on. Some of them are tanning, others sitting around talking, while a few are just horsing around. You spend some time just talking to a few of them catching up. You could use this chance to get to know one of them better if you wanted to.'
-		act 'Leave': gt'pav_lake'
-		act 'Talk to one of them': gt 'pav_beach_chat', 'start'
+		'You smile at your friends and take a seat with them before joining in on the variety of conversations going on. Some are tanning, others sit around talking, and some horse around. You can use this opportunity to get to know one of them better if you want.'
 	else
-		'You smile and take a seat with them, you get a mix of responses. The ones you know better seem at least somewhat friendly, most of the rest range from looking annoyed that you are here to indifference, many just ignore you. Some of them are tanning, others sitting around talking, while a few are just horsing around. You spend some time trying to get involved in the varies conversations going on and meet limited success. You could use this chance to get to know one of them better if you wanted to.'
-		act 'Leave': gt'pav_lake'
-		act 'Talk to one of them': gt 'pav_beach_chat', 'beach_hangout'
+		'You smile and take a seat with them, but get mixed responses. The ones you know better seem somewhat friendly, but the others range from indifference to annoyance. Many choose just to ignore you.' 
+		'Some are tanning, others sit around talking, and some horse around. You spend some time trying to get involved in the conversations going on, but meet limited success. You can use this opportunity to get to know one of them better if you want.'
 	end
+	act 'Leave': gt'pav_lake'
+	act 'Talk to one of them': gt 'pav_beach_chat', 'beach_hangout'
 end
 
 

locations/pav_park.qsrc

@@ -172,7 +172,7 @@ if $ARGS[0] = 'start':
 			'<center><h2>Pavlovsk Park</h2></center>'
 			'<center><img <<$set_imgh>> src="images/locations/shared/park/job_flyer.jpg"></center>'
 			*nl
-			'You spend an hour handing out advertising flyers to park visitors. You received 60 <b>₽</b> for your efforts.'
+			'You spend an hour handing out advertising flyers to park visitors. You received 50 <b>₽</b> for your efforts.'
 
 			act 'Continue':gt 'pav_park', 'start'
 		end

locations/pav_residential.qsrc

@@ -190,7 +190,7 @@ if (hour > 20 or hour < 4) and succubusQW = 5 and suchuntday ! daystart:
 end
 
 !!Uncle Misha is npcstatic number 54
-if StoryLine ! 0 and (hour >= 8 or hour < 23) and cumloc[11] = 1 and rand(0, 3) = 0 and npcdaycheck[54] ! daystart:
+if mid($start_type,1,2) = 'sg' and (hour >= 8 or hour < 23) and cumloc[11] = 1 and rand(0, 3) = 0 and npcdaycheck[54] ! daystart:
 	menu_off = 1
 	*clr & cla
 	npcdaycheck[54] = daystart
@@ -220,7 +220,7 @@ if pcs_magik >= 1 and mainQW = 0 and mid($start_type,1,2) = 'sg':
 	exit
 end
 
-if storyline ! 0 and AndRev = 1 and (hour >=22 or hour <=2) and rand(1,100) >= 90 and AndRevstart ! daystart:
+if mid($start_type,1,2) = 'sg' and AndRev = 1 and (hour >=22 or hour <=2) and rand(1,100) >= 90 and AndRevstart ! daystart:
 	menu_off = 1
 	*clr & cla
 	gs 'stat'

locations/pod_ezd.qsrc

@@ -311,7 +311,7 @@ if $ARGS[0] = 'lift':
 	*clr & cla
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/elevator.jpg"></center>'
-	'<center>The elevator in the apartment building is quite old. The building supervisor does his best to keep it running, but it breaks down a lot. Someone put up a <a href="exec:gt ''pod_ezd'',''elev_objava''">notification</a> in the elevator.</center>'
+	'<center>The elevator in the apartment building is quite old. The building supervisor does his best to keep it running, but it breaks down a lot. Someone put up a <a href="exec:gt ''pod_ezd'',''elev_objava'',$ARGS[1]">notification</a> in the elevator.</center>'
 	act 'Push button: floor 1': gt 'pod_ezd','etaj_1'
 	act 'Push button: floor 2': gt 'pod_ezd','etaj_2'
 	act 'Push button: floor 3': gt 'pod_ezd','etaj_3'
@@ -343,7 +343,7 @@ if $ARGS[0] = 'elev_objava':
 		minut +=1
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/elevator_ob'+rand(1,2)+'.jpg"></center>'
-	act 'Continue': gt 'pod_ezd','lift'
+	act 'Continue': gt 'pod_ezd','lift',$ARGS[1]
 end
 
 if $ARGS[0] = 'pod_objava':

locations/portnoi2.qsrc

@@ -430,9 +430,9 @@ elseif money >= poshvalldrop:
 end
 
 if $loc = 'pav_factory':
-	act 'Leave': gt 'pav_industrial'
+	act 'Continue': gt 'pav_factory', 'tailor'
 else
-	act 'Leave' :gt 'city_market', 'tailor'
+	act 'Continue' :gt 'city_market', 'tailor'
 end
 
 --- portnoi2 ---------------------------------

locations/rex_party.qsrc

@@ -102,8 +102,11 @@ if $ARGS[0] = 'Kitchen':
 end
 
 if $ARGS[0] = 'Toilet':
-    $loc_arg = 'Toilet'
-    $menu_arg = 'Toilet'
+	$loc_arg = 'Toilet'
+	$menu_arg = 'Toilet'
+	$locM = 'rex_party'
+	$locM_arg = 'Toilet'
+
 	cla & *clr
 	minut += 5
 	gs 'stat'

locations/rex_party_sexEvents.qsrc

@@ -553,7 +553,7 @@ if $ARGS[0] = 'dj_boobs':
 	'"Like this boys?" you ask as you put your breasts on the turntable and move it a bit with your breasts.'
 	'Not much sound comes out from your attempt, but the guys seem to love it all the same.'
 	act 'Move away': gt $loc, $loc_arg
-	act 'Take off your top': gt 'rex_party_smallEvents', 'dj_cock'
+	act 'Take off your top': gt 'rex_party_sexEvents', 'dj_cock'
 end
 
 if $ARGS[0] = 'dj_cock':
@@ -566,7 +566,7 @@ if $ARGS[0] = 'dj_cock':
 	'Seeing the interest from the smiling guys watching you, you get rid of your top and bra and then place your naked breasts on the turntable, trying to play it topless. "I think I did better that time. What do you think?"'
 	'The guy pulls out his erection and says "Not bad. Maybe try this instead."'
 	act 'Move away': gt $loc, $loc_arg
-	act 'Give his dick a try': gt 'rex_party_smallEvents', 'dj_suck'
+	act 'Give his dick a try': gt 'rex_party_sexEvents', 'dj_suck'
 end
 
 if $ARGS[0] = 'dj_suck':

locations/scandalicious.qsrc

@@ -88,7 +88,7 @@ if $ARGS[0] = 'clothes':
 			end
 			i += 1
 
-		if i <= 20:jump 'loopscandalicious_outfits'
+		if i <= 30:jump 'loopscandalicious_outfits'
 
 	clo_i += 1
 	if clothingfilter['quality'] = 0 and clo_i <= 7:

locations/shop_nerdvana.qsrc

@@ -243,7 +243,7 @@ if $ARGS[0] = 'purses':
 	:loopnerdvana_purses
 		if nerdvana_purses[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_nerdvana'', ''purses2''"><img src="images/pc/items/nerdvana/purses/<<i>>.jpg" 	height="150" /></a> '
 		i += 1
-	if i <= 20:jump 'loopnerdvana_purses'
+	if i <= 40:jump 'loopnerdvana_purses'
 end
 
 if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'nerdvana',i, 2000

locations/stat.qsrc

@@ -630,6 +630,10 @@ if minut >= 60:
 
 	if (hour mod 2) = 0: gs 'outdoors', 'weather'
 
+	!! I do not think that this should be here, but I put it here temporaly - rachels
+	!! generate SMS for nerd games
+	if rand(0,2) = 0 and hour > 10 and hour < 16 and week = 1 and grupTipe = 3 and nerd_game['invite_day'] < daystart: gs 'nerd_game_night', 'summer_invite_sms', 'Add SMS'
+
 	if minut >= 60:jump 'loopmin'
 end
 

locations/stat_display.qsrc

@@ -831,11 +831,6 @@ end
 
 !!---------------- Messages for Icons/Texts (End)----------------------------
 
-if ((young_shop_work = 1 and hour = 16 and week < 6) or (young_shop_work1 = 1 and hour = 9 and week >= 6) or (young_shop_work2 = 1 and hour = 9 and week < 6)) and inWorkYoungShop = 0 and misscheck ! daystart:
-	misscheck = daystart
-	young_shop_miss += 1
-end
-
 if pornstack > 0:
 	porndays = 0
 	:pfilmtime
@@ -2054,7 +2049,11 @@ if enable_extra_msg = 1:
 
 	if young_shop_work = 1 and hour = 16 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
 		$stat_msg += 'You are late for work at Pussy-Cats.'
-	elseif young_shop_work = 1 and hour = 16 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
+	elseif young_shop_work = 1 and hour = 16 and week < 6 and inWorkYoungShop = 0:
+		if kats_absent_check ! daystart:
+			kats_absent_check = daystart
+			young_shop_miss += 1
+		end
 		$stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
 	elseif young_shop_work = 1 and (hour = 14 or hour = 15) and week < 6:
 		$stat_msg += '<BR><b><font color="red">You start work at Pussy-Cats today at 16:00.</font></b>'
@@ -2062,7 +2061,11 @@ if enable_extra_msg = 1:
 		
 	if young_shop_work1 = 1 and hour = 9 and minut <= 5 and week >= 6 and inWorkYoungShop = 0:
 		$stat_msg += 'You are late for work at Pussy-Cats.'
-	elseif young_shop_work1 = 1 and hour = 9 and week >= 6 and inWorkYoungShop = 0 and misscheck ! daystart:
+	elseif young_shop_work1 = 1 and hour = 9 and week >= 6 and inWorkYoungShop = 0:
+		if kats_absent_check ! daystart:
+			kats_absent_check = daystart
+			young_shop_miss += 1
+		end
 		$stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
 	elseif young_shop_work1 = 1 and (hour = 7 or hour = 8) and week >= 6:
 		$stat_msg += '<BR><b><font color="red">By 9:00, you have to be at Pussy-Cats to start work.</font></b>'
@@ -2070,7 +2073,11 @@ if enable_extra_msg = 1:
 
 	if young_shop_work2 = 1 and hour = 9 and minut <= 5 and week < 6 and inWorkYoungShop = 0:
 		$stat_msg += 'You are late for work at Pussy-Cats.'
-	elseif young_shop_work2 = 1 and hour = 9 and week < 6 and inWorkYoungShop = 0 and misscheck ! daystart:
+	elseif young_shop_work2 = 1 and hour = 9 and week < 6 and inWorkYoungShop = 0:
+		if kats_absent_check ! daystart:
+			kats_absent_check = daystart
+			young_shop_miss += 1
+		end
 		$stat_msg += '<BR><b><font color="red">You missed work.</font></b>'
 	elseif young_shop_work2 = 1 and (hour = 7 or hour = 8) and week < 6:
 		$stat_msg += '<BR><b><font color="red">By 9:00, you have to be at Pussy-Cats to start work.</font></b>'

locations/talent_agency.qsrc

@@ -31,7 +31,7 @@ if $ARGS[0] = 'start':
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/aurora/front.jpg"></center>'
 	'"Hello, welcome to the Aurora Female Talent Agency! How may I help you?"'
 	if casting = 3 and hour <= 11 and SMTV_commercial = daystart:
-		room = 3
+		audition['room'] = 3
 		'"Oh? Are you here for the SMTV commercial? Please go to interview room <<room>>, they''re waiting for you inside.'
 	elseif casting = 3 and ((hour > 11 and SMTV_commercial = daystart) or SMTV_commercial < daystart):
 		'"You''re here for the SMTV commercial? Sorry, you''re late, and you''ve just cost the production tons of money. You''ve been fired. First rule of showbiz honey: show up on time.'
@@ -79,12 +79,18 @@ if $ARGS[0] = 'hallway':
 	*clr & cla
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/aurora/auditions/hallway.jpg"></center>'
 	act 'Leave':gt 'talent_agency','start'
+	if casting = 3:
+		act 'Room 3':gt 'talent_agency','room3'
+	end
+
+!!Block to stop rooms being accessible as they are not ready
+!{
 	act 'Room 1':gt 'talent_agency','room1'
 	act 'Room 2':gt 'talent_agency','room2'
-	act 'Room 3':gt 'talent_agency','room3'
 	act 'Room 4':gt 'talent_agency','room4'
 	act 'Room 5':gt 'talent_agency','room5'
 	act 'General Audition Room':gt 'talent_agency','room6'
+}
 end
 
 if $ARGS[0] = 'room1':
@@ -136,7 +142,7 @@ end
 
 if $ARGS[0] = 'room6':
 	*clr & cla
-	if room > 0 and room =< 5:
+	if audition['room'] > 0 and audition['room'] =< 5:
 		gt'talent_agency','wrong_room2'
 	elseif $audition['role'] = '':
 		gt'talent_agency','wrongday'
@@ -279,7 +285,7 @@ if $ARGS[0] = 'SMTV_shy':
 									'<i>Holy crap! Acting is some serious money!</i>'
 									inhib_exp += 20
 									casting = 1
-									room = 0
+									audition['room'] = 0
 									act'Leave':gt'talent_agency','end'
 								end
 							end
@@ -363,7 +369,7 @@ if $ARGS[0] = 'SMTV_confident':
 									'Looking over at the desk, you see a wad of cash lying there. You rush over, and when you finish counting, you realize that it''s <<actpayfin>> <b>₽</b>!'
 									'<i>Holy crap! Acting is some serious money!</i>'
 									casting = 1
-									room = 0
+									audition['room'] = 0
 									act'Leave':gt'talent_agency','end'
 								end
 							end

locations/tobiQW.qsrc

@@ -148,7 +148,7 @@ if $ARGS[0] = '10':
 
 	if mid($start_type,1,4) = 'city':
 		act 'Get out of bed':gt 'bedr'
-	elseif mid($start_type,1,3) = 'uni':
+	elseif mid($start_type,1,3) = 'sg':
 		act 'Get out of bed':gt 'bedrPar'
 	else
 		act 'Get out of bed':gt 'uni_dorm', 'dorm_room'

locations/traits.qsrc

@@ -114,7 +114,7 @@ if $ARGS[0] = 'menu':
 	if trt_cumeater = 0 and cumeater_cheat = 0:
 		'You do not have this trait.'
 		'To gain this trait, you must swallow cum 10 times.'
-		'You have swallowed cum <<swallow>> times.'
+		'You have swallowed cum <<stat[''swallow'']>> times.'
 	elseif trt_cumeater = 0 and cumeater_cheat = 1:
 		'You do not have this trait.'
 	else
@@ -178,7 +178,7 @@ if $ARGS[0] = 'menu':
 end
 
 if $ARGS[0] = 'hourly':
-	if swallow >= 10 and trt_cumeater = 0 and cumeater_cheat = 0:
+	if stat['swallow'] >= 10 and trt_cumeater = 0 and cumeater_cheat = 0:
 		trt_cumeater = 1
 		msg 'You have gained the trait "Cumeater"'
 	end

locations/uni_grounds.qsrc

@@ -82,7 +82,7 @@ if $ARGS[0] = 'main':
 	if university['semester_week'] > 0: gs 'uni_lessons', 'schedule'
 	if university['exam_week'] > 0: gs 'uni_lessons', 'exam_schedule'
 
-	act 'Got to the dorms':
+	act 'Go to the dorms':
 		minut += 5
 		gt 'uni_dorm', 'start'
 	end

locations/uni_lessons.qsrc

@@ -8,10 +8,6 @@
 if $ARGS[0] = 'cikl':
 !! Setting the the weeks in the university semester and makeing sure that the gades are calculated at the right times
 
-	if university['enrolled_in_semester'] > university['semester_passed'] and university['semester_week'] = 0 and (month = 8 or month = 1) and (day - week) >= 20:
-		university['semester_week'] = -1
-	end
-
 	if week = 1:
 		if university['semester_week'] = -1:
 			university['semester_week'] = 1
@@ -58,6 +54,10 @@ if $ARGS[0] = 'cikl':
 			killvar 'passed_count'
 		end
 	end
+
+	if university['enrolled_in_semester'] > university['semester_passed'] and university['semester_week'] = 0 and (month = 8 or month = 1) and (day - week) >= 20:
+		university['semester_week'] = -1
+	end
 end
 
 if $ARGS[0] = 'short_break':

locations/uni_programs.qsrc

@@ -164,7 +164,7 @@ if $ARGS[0] = 'uni_period_second':
 			elseif week = 4: 
 				*nl
 				'Your next class will start at 11:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
-				act 'Go to your Lerning Theories 101 Class': 
+				act 'Go to your Learning Theories 101 Class': 
 					if hour = 10: minut += 60 - minut
 					uni_period['second'] = daystart
 					gs 'stat'
@@ -231,7 +231,7 @@ if $ARGS[0] = 'uni_period_third':
 			elseif $ARGS[1] = 'tuesday' and $university['elective2'] ! '':
 				$Result = '<<$university[''elective2'']>> (13:15 to 14:45)'
 			elseif $ARGS[1] = 'wednesday':
-				$Result = 'Lerning Theories 101 (13:15 to 14:45)'
+				$Result = 'Learning Theories 101 (13:15 to 14:45)'
 			elseif $ARGS[1] = 'thursday' and $university['elective3'] ! '':
 				$Result = '<<$university[''elective3'']>> (13:15 to 14:45)'
 			elseif week = 1 and $university['elective1'] ! '': 
@@ -255,7 +255,7 @@ if $ARGS[0] = 'uni_period_third':
 			elseif week = 3:
 				*nl
 				'Your next class will start at 13:15. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
-				act 'Go to your Lerning Theories 101 Class': 
+				act 'Go to your Learning Theories 101 Class': 
 					if hour = 12: minut += 75 - minut
 					if hour = 13 and minut < 15: minut += 15 - minut
 					uni_period['third'] = daystart
@@ -332,13 +332,13 @@ if $ARGS[0] = 'exam':
 			if $ARGS[1] = 'schedule':
 				if university['exam_week'] = 1: 
 					if week < 4 or (week = 4 and hour < 9):
-						$Result = 'General Education 101 Exam (09:00 to 12:00) Thursday this week. Teaching Methods 101 Exam (09:00 to 12:00) Monday next week. Lerning Theories 101 Exam (09:00 to 12:00) Thursday next week.'
+						$Result = 'General Education 101 Exam (09:00 to 12:00) Thursday this week. Teaching Methods 101 Exam (09:00 to 12:00) Monday next week. Learning Theories 101 Exam (09:00 to 12:00) Thursday next week.'
 					else	
 						$Result = 'Teaching Methods 101 Exam (09:00 to 12:00) Tuesday next week. Learning Theories 101 Exam (09:00 to 12:00) Thursday next week.'
 					end
 				elseif university['exam_week'] = 2: 
 					if week < 2 or (week = 2 and hour < 9):
-						$Result = 'Teaching Methods 101 Exam (09:00 to 12:00) Tuesday this week. Lerning Theories 101 Exam (09:00 to 12:00) Thursday this week.'
+						$Result = 'Teaching Methods 101 Exam (09:00 to 12:00) Tuesday this week. Learning Theories 101 Exam (09:00 to 12:00) Thursday this week.'
 					elseif week < 4 or (week = 4 and hour < 9):
 						$Result = 'Learning Theories 101 Exam (09:00 to 12:00) Thursday this week.'
 					else
@@ -388,8 +388,8 @@ if $ARGS[0] = 'exam':
 					end
 				elseif week = 4: 
 					*nl
-					'Your Lerning Theories 101 exam will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
-					act 'Go to your Lerning Theories 101 exam': 
+					'Your Learning Theories 101 exam will start at 09:00. You can go to it now or do other things first, but you need to be at the university plaza before it starts if you want to attend it.'
+					act 'Go to your Learning Theories 101 exam': 
 						if hour = 8: minut += 60 - minut
 						if hour = 7: minut += 120 - minut					
 						gs 'stat'