31 Commits 79fdc314b7 ... 4ac98c8129

Author SHA1 Message Date
  Kevin_Smarts 4ac98c8129 [fixed] I copy/pasted all the images links as gm, now corrected 1 year ago
  Kevin_Smarts e5395bb685 [added] Shoe filters for both wardrobe and shops 1 year ago
  Kevin_Smarts efc28ec296 [fixed] Added wrong file in my last commit 1 year ago
  Kevin_Smarts 4f15f33cee Merge remote-tracking branch 'origin/master' 1 year ago
  Kevin_Smarts 82e4e14baf Merge remote-tracking branch 'Hornguy6/master' 1 year ago
  Kevin_Smarts eab26bcbc3 [added] One line arousal call for one off arousal calls, includes the 'end' call 1 year ago
  Vengeance_11 ce91afe406 More edits to porn studio 1 year ago
  hornguy6 72fec22ce1 [fixed] forgot to change a bunch of file names for the gosubs 1 year ago
  hornguy6 ad110c63be [added] more modelling and porn talk options with Albina 1 year ago
  hornguy6 dcc04d6e18 [changed] separated sex talk with Albina into its own file 1 year ago
  hornguy6 14d2c53686 [changed] a few more sex_ev alterations i forgot to push 1 year ago
  hornguy6 4763cdbf5b [changed] more sex_ev updates, don't remember what i've added or changed 1 year ago
  Kevin_Smarts bc85ee121f [added] Comments to the school chats for the new sub catergories of uniform from BBZ01 1 year ago
  Kevin_Smarts 77773bd4f1 [fixed] Typo spoted by R. 1 year ago
  Kevin_Smarts 3e3fb73e00 Merge remote-tracking branch 'origin/master' 1 year ago
  Kevin_Smarts 0a4b29f679 Merge remote-tracking branch 'Vengeance_11/master' 1 year ago
  bgkjdgbizgblzdgbr a5907912e5 [dixed] Missing text where Katja explains that she don't want a thresome if she is not horny. 1 year ago
  Kevin_Smarts 86ec919fea [fixed] A couple of hypno variables not cleared in reset. 1 year ago
  Kevin_Smarts c4e1434698 Merge remote-tracking branch 'HotMike/master' 1 year ago
  Kevin_Smarts ed9321eba1 Merge remote-tracking branch 'Hornguy6/master' 1 year ago
  HotMike b0941465a6 Rewording Anushka journal. @Smh @Lordlrontoe 1 year ago
  HotMike 9fa10b48fe Merge remote-tracking branch 'upstream/master' 1 year ago
  hornguy6 5a7b53e44a [fixed] updated necessary conditions for failsafe message 1 year ago
  Kevin_Smarts 850b763c74 [fixed] Grammer for when cum spatters, doesn't affect when it covers or coats 1 year ago
  Vengeance_11 afb9a29af8 Edits 1 year ago
  Kevin_Smarts 909c2227ba Merge remote-tracking branch 'Hooded_Silence/master' 1 year ago
  Kevin_Smarts 8fff3eb7e2 [added] Saveupdater file for Hooded 1 year ago
  Hooded Silence f67d84c212 Life flashes before your eyes edition: 1 year ago
  hornguy6 d5089f61e4 [changed] blocks breakfast if you say you're late for school 1 year ago
  hornguy6 4f84fb3280 [fixed] a lot of incorrect variable names 1 year ago
  HotMike 145bcc0789 Add a short sentence when you talk to a teacher at lunch in school. Gives some feedback to the player. 1 year ago
49 changed files with 3404 additions and 1993 deletions
  1. 2 0
      .gitignore
  2. 2 0
      glife.qproj
  3. 23 4
      locations/Cum_Manage.qsrc
  4. 15 2
      locations/Snpc.qsrc
  5. 483 968
      locations/albina_chat.qsrc
  6. 134 27
      locations/albina_chat2.qsrc
  7. 1047 0
      locations/albina_sex_chat.qsrc
  8. 3 3
      locations/anushka_konstantinov_schedule.qsrc
  9. 9 0
      locations/arousal_oneline.qsrc
  10. 53 7
      locations/budgetclothes.qsrc
  11. 1 4
      locations/city_industrial.qsrc
  12. 2 5
      locations/city_residential.qsrc
  13. 48 31
      locations/emp_functions.qsrc
  14. 152 47
      locations/gschool_chats.qsrc
  15. 157 178
      locations/gschool_events.qsrc
  16. 187 205
      locations/gschool_sex.qsrc
  17. 1 0
      locations/katja_chat.qsrc
  18. 27 5
      locations/moncheri.qsrc
  19. 1 1
      locations/npcstatic4.qsrc
  20. 1 1
      locations/pav_lake_nude_events.qsrc
  21. 0 0
      locations/photography_work.qrsc
  22. 216 0
      locations/photography_work.qsrc
  23. 1 1
      locations/pornfilm.qsrc
  24. 38 36
      locations/pornstudio.qsrc
  25. 0 1
      locations/pushkin.qsrc
  26. 5 2
      locations/saveupdater.qsrc
  27. 1 1
      locations/sex_ev_cowgirl.qsrc
  28. 13 25
      locations/sex_ev_cum.qsrc
  29. 1 1
      locations/sex_ev_doggy.qsrc
  30. 132 32
      locations/sex_ev_leave.qsrc
  31. 1 1
      locations/sex_ev_miss.qsrc
  32. 2 17
      locations/sex_ev_morning.qsrc
  33. 57 18
      locations/sex_ev_pillow_talk.qsrc
  34. 70 59
      locations/sex_ev_reactions.qsrc
  35. 3 0
      locations/sex_ev_sex.qsrc
  36. 2 2
      locations/sex_ev_shower.qsrc
  37. 1 1
      locations/sex_ev_talk.qsrc
  38. 26 5
      locations/sexshop.qsrc
  39. 333 18
      locations/shoes.qsrc
  40. 0 23
      locations/shop_coco_carmen.qsrc
  41. 27 5
      locations/shop_dolls.qsrc
  42. 6 225
      locations/shop_photography.qsrc
  43. 26 5
      locations/shop_pussycats.qsrc
  44. 26 5
      locations/shop_scandalicious.qsrc
  45. 27 5
      locations/shop_tsar_bomba.qsrc
  46. 26 5
      locations/sportShop.qsrc
  47. 1 1
      locations/stat_display.qsrc
  48. 14 10
      locations/therapist.qsrc
  49. 1 1
      locations/version.qsrc

+ 2 - 0
.gitignore

@@ -41,3 +41,5 @@ images.zip
 MakeQSP.bat
 /glife.iml
 /Qqsp-1.9.0-win64/
+glife.7z.tmp
+glife.7z

+ 2 - 0
glife.qproj

@@ -91,6 +91,7 @@
 		<Location name="boyStat"/>
 		<Location name="pain"/>
 		<Location name="arousal"/>
+		<Location name="arousal_oneline"/>
 		<Location name="orgasm"/>
 		<Location name="dinSex"/>
 		<Location name="dinSex2"/>
@@ -926,6 +927,7 @@
 		<Location name="city_musicstore_stock"/>
 		<Location name="shop_materinstvo"/>
 		<Location name="shop_photography"/>
+		<Location name="photography_work"/>
 	</Folder>
 	<Folder name="City Residential">
 		<Location name="city_residential"/>

+ 23 - 4
locations/Cum_Manage.qsrc

@@ -684,33 +684,43 @@ if $ARGS[0] = 'cum_stat_display':
 			$icon_txtloc = 'your pussy'
 			$txtloc = 'your <a href="exec:view''images/pc/body/cum/creampie/cumpussy'+rand(1,14)+'.jpg''">pussy</a>'
 		elseif i = 1:
+			$txtloc_adj = 'all over '
 			$icon_txtloc = 'your labia'
 			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumpussy/cumpus'+rand(1,4)+'.jpg''">labia</a>'
 		elseif i = 2:
+			$txtloc_adj = 'across '
 			$txtloc = 'the front of your panties'
 			$icon_txtloc = $txtloc
 		elseif i = 3:
+			$txtloc_adj = 'across '
 			$icon_txtloc = 'your ass'
 			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumanal/cumanal'+rand(1,11)+'.jpg''">ass</a>'
 		elseif i = 4:
+			$txtloc_adj = 'all over '
 			$icon_txtloc = 'your butt'
 			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumass/cumass'+rand(1,6)+'.jpg''">butt</a>'
 		elseif i = 5:
+			$txtloc_adj = 'painting '
 			$txtloc = 'the back of your panties'
 			$icon_txtloc = $txtloc
 		elseif i = 6:
+			$txtloc_adj = 'on '
 			$icon_txtloc = 'your clothes near your groin'
 			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/'+rand(1,3)+'.jpg''">clothes near your groin</a>'
 		elseif i = 7:
+			$txtloc_adj = 'on '
 			$icon_txtloc = 'your clothes'
 			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumclothes/cumclothes'+rand(1,21)+'.jpg''">clothes</a>'
 		elseif i = 8:
+			$txtloc_adj = 'down '
 			$txtloc = 'your back'
 			$icon_txtloc = $txtloc
 		elseif i = 9:
+			$txtloc_adj = 'on '
 			$txtloc = 'your legs'
 			$icon_txtloc = $txtloc
 		elseif i = 10:
+			$txtloc_adj = 'on '
 			$txtloc = 'your arms'
 			$icon_txtloc = $txtloc
 		elseif i = 11:
@@ -730,25 +740,31 @@ if $ARGS[0] = 'cum_stat_display':
 				$cum_face_image = 'custom/'
 				$cum_face_image += rand(1, 20)
 			end
+			$txtloc_adj = 'across '
 			$icon_txtloc = 'your face'
 			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumface/<<$cum_face_image>>.jpg''">face</a>'
 			killvar 'cum_face_image'
 		elseif i = 13:
+			$txtloc_adj = 'over '
 			$txtloc = 'your hands'
 			$icon_txtloc = $txtloc
 		elseif i = 14:
-			$icon_txtloc = 'your stomach'
-			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumbelly/cumbelly'+rand(1,12)+'.jpg''">stomach</a>'
+			$txtloc_adj = 'across '
+			$icon_txtloc = 'across your stomach'
+			$txtloc = 'across your <a href="exec:view''images/pc/body/cum/cumbelly/cumbelly'+rand(1,12)+'.jpg''">stomach</a>'
 		elseif i = 15:
-			$icon_txtloc = 'your breasts'
+			$txtloc_adj = 'on '
+			$icon_txtloc = 'on your breasts'
 			$txtloc = 'your <a href="exec:view''images/pc/body/cum/cumtits/cumtits'+rand(1,19)+'.jpg''">breasts</a>'
 		elseif i = 16:
+			$txtloc_adj = 'in '
 			$icon_txtloc = 'your hair'
 			$txtloc = 'your hair</a>'
 		elseif i = 17:
 			$txtloc = 'in your vagina in a slipped condom'
 			$icon_txtloc = $txtloc
 		else
+			$txtloc_adj = 'on '
 			$icon_txtloc = 'the gusset of your panties'
 			$txtloc = 'the gusset of your panties</a>'
 		end
@@ -814,7 +830,7 @@ if $ARGS[0] = 'cum_stat_display':
 						$txtproxy = 'covering '
 					else
 						!! residue amount, no leakage
-						$txtproxy = 'spattering '
+						$txtproxy = 'spattered '
 					end
 					if j = 1:
 						$txtproxy += 'wetly '
@@ -823,6 +839,9 @@ if $ARGS[0] = 'cum_stat_display':
 					else
 						$txtproxy += 'powderly '
 					end
+					if cumvolume['<<i>>:<<j>>'] < 40:
+						$txtproxy += $txtloc_adj
+					end
 				end
 
 				$txtperson = ''

+ 15 - 2
locations/Snpc.qsrc

@@ -11,7 +11,7 @@ $static_num = 'A<<numnpc>>'
 
 if npc_rel['A<<numnpc>>'] < 20:'They really don''t like you.'
 if npc_rel['A<<numnpc>>'] >= 20 and npc_rel['A<<numnpc>>'] < 40:'They are fairly indifferent to you.'
-if npc_rel['A<<numnpc>>'] >= 40 and npc_rel['A<<numnpc>>'] < 60:'The two of you get along together fairly well, more of casual friends.'
+if npc_rel['A<<numnpc>>'] >= 40 and npc_rel['A<<numnpc>>'] < 60:'The two of you get along together fairly well, like casual friends.'
 if npc_rel['A<<numnpc>>'] >= 60 and npc_rel['A<<numnpc>>'] < 80:'You get along great with them. They are one of your friends.'
 if npc_rel['A<<numnpc>>'] >= 80:'They are one of your best friends.'
 
@@ -27,7 +27,7 @@ else
 	act 'Move away': gt $loc, $loc_arg
 end
 
-!!Chat
+!!Chat. You come here eg from school lunch.
 act 'Chat':
 	*clr & cla
 
@@ -38,6 +38,19 @@ act 'Chat':
 	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big<<numnpc>>.jpg"></center>'
 
 	if $loc ! 'pav_disco':
+	'You chat a bit with <<$npc_firstname[''A<<numnpc>>'']>> <<$npc_lastname[''A<<numnpc>>'']>>'
+		if npc_rel['A<<numnpc>>'] < 20:
+			'"I have to go now, goodbye."'
+		elseif npc_rel['A<<numnpc>>'] >= 20 and npc_rel['A<<numnpc>>'] < 40:
+			'"Nice talking to you. I will see you in class."'
+		elseif npc_rel['A<<numnpc>>'] >= 40 and npc_rel['A<<numnpc>>'] < 60:
+			'"Really nice to talk to you. I will see you in class."'
+		elseif npc_rel['A<<numnpc>>'] >= 60 and npc_rel['A<<numnpc>>'] < 80:
+			'"It was really nice chatting with you. I will see you in class."'
+		elseif npc_rel['A<<numnpc>>'] >= 80:
+			'"Really nice chatting with you, but I really need to go now. You konw, preparing my lecture. Oh, and you look great by the way!"'
+		end
+
 		act 'Continue': gt 'gschool_lessons', 'short_break'
 	else
 		act 'Move away':gt $loc, $loc_arg

File diff suppressed because it is too large
+ 483 - 968
locations/albina_chat.qsrc


+ 134 - 27
locations/albina_chat2.qsrc

@@ -21,6 +21,7 @@ if $ARGS[0] = 'first_model_talk1':
 				'"Why? What kind of modelling are you doing?" she asks suspiciously.'
 				gs 'albina_chat2','first_model_talk_shy1'
 				gs 'albina_chat2','first_model_talk2'
+				gs 'albina_chat2','first_model_talk_proud2'
 			else
 				act 'I didn''t want people to know':
 					cla & *nl
@@ -34,6 +35,64 @@ if $ARGS[0] = 'first_model_talk1':
 	end
 end
 
+if $ARGS[0] = 'first_model_talk_proud2':
+	act 'Tell her (proud)':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		if $model['type'] = 'catalog':
+			'"Catalogue modelling!" you say with bubbly excitement. "The kind that you see on websites to show what''s for sale or in magazines with a company''s stock. It''s not much right now, but it''s a foot in the door!"'
+			'"Why didn''t you tell me sooner?!" Albina squeals gleefully alongside you.'
+			'"It''s an 18+ agency," you explain. "And since I''m underage, I have to keep it on the down low. I needed a fake passport just to get registered there. They do all kinds of other stuff there. Fashion, lingerie, nudes, you name it."'
+			gs 'albina_chat2','first_model_talk3'
+		elseif $model['type'] = 'fashion':
+			'"Fashion modelling!" you whisper excitedly. "Fancy dresses, designer clothing, all the stuff you see in magazines but never actually see people wearing in real life. <i>I</i> get to wear that!"'
+			'"That''s so cool!" Albina shouts, punching you in the arm again. "Why are you hiding it?"'
+			'"It''s an 18+ agency," you explain. "I have a fake passport just to work there. They do all kinds of other stuff there. Fashion, lingerie, nudes, you name it."'
+			gs 'albina_chat2','first_model_talk3'
+		elseif $model['type'] = 'lingerie':
+			'"I''m a freaking lingerie model!" you whisper excitedly. "High end bras and panties, brand names like Victoria''s Secret and Mon Cheri!"'
+			'"That''s so cool!" Albina shouts, punching you in the arm again. "You''re a goddamn supermodel! Why are you hiding it?"'
+			'"It''s an 18+ agency," you explain. "I have a fake passport just to work there. They do other stuff there too. Erotic nudes and all that."'
+			gs 'albina_chat2','first_model_talk3'
+		elseif $model['type'] = 'glamour':
+			if modelfoto['topless'] > 0:
+				'"I do glamour modelling!" you whisper excitedly. "Sexy shoots with tight or thin clothing, a lot of cleavage and a lot of leg. I''ve even gone topless!"'
+				gs 'albina_chat2','first_model_talk4'
+			else
+				'"I do glamour modelling!" you whisper excitedly. "Sexy shoots with tight or thin clothing, a lot of cleavage and a lot of leg. Sometimes my ass too, but never my tits or pussy. They do that kind of modelling there too."'
+				gs 'albina_chat2','first_model_talk3'
+			end
+		elseif $model['type'] = 'fitness':
+			if modelfoto['topless'] > 0:
+				'"I model a lot of sports clothing," you say proudly. "But I do other stuff too. I''ve even shown off my tits!"'
+				gs 'albina_chat2','first_model_talk4'
+			else
+				'"I model a lot of sports clothing," you say proudly. "Sports bras and tight yoga pants and stuff like that. Pretty cool, huh? They do all kinds of modelling there. Even nude modelling."'
+				gs 'albina_chat2','first_model_talk3'
+			end
+		elseif $model['type'] = 'artistic nude':
+			'"Nude modelling!" you squeal in a hushed but excited tone.'
+			gs 'albina_chat2','first_model_talk4'
+		elseif $model['type'] = 'erotic':
+			'"Erotic nude modelling!" you squeal in a hushed but excited tone.'
+			gs 'albina_chat2','first_model_talk4'
+		else
+			if modelfoto['nude'] > 0:
+				'"All kinds of modelling," you say excitedly. "I''ve even done nudes!"'
+				gs 'albina_chat2','first_model_talk4'
+			elseif modelfoto['topless'] > 0:
+				'"All kinds of modelling," you say excitedly. "I''ve even gone topless!"'
+				gs 'albina_chat2','first_model_talk4'
+			else
+				'"All kinds of modelling," you say excitedly. "High end fashion. Lacy lingerie. Tight clothing, thin material. You name it."'
+				'"That''s so cool!" Albina exclaims, punching you in the arm again. "You''re a goddamn supermodel! "Why are you hiding it?"'
+				'"It''s an 18+ agency," you explain. "I have a fake passport just to work there. They do other stuff there too. Erotic nudes and all that."'
+				gs 'albina_chat2','first_model_talk3'
+			end
+		end
+	end
+end
+
 if $ARGS[0] = 'first_model_talk2':
 	act 'Tell her (nonchalant)':
 		cla & *clr
@@ -155,16 +214,15 @@ if $ARGS[0] = 'first_model_talk4':
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
 			'Albina searches and finds your profile.'
 			'"You didn''t even change your name?" she snickers.'
-			
 			act'It seemed wrong':
 				cla & *nl
-				'"It felt weird going by something that wasn''t my name," you shrug as she clicks a link you know leads straight to your nude debut.'
+				'"It felt weird going by something that wasn''t my name," you shrug as she clicks a link you know leads straight to your nude debut. "My name is who I am after all."'
 				act'Continue':gs 'albina_chat2','first_model_talk_nude1'
 			end
 			
 			act'It was a hassle':
 				cla & *nl
-				'"I just seemed like a hassle, needing to remember to go by different names and all that," you shrug as she clicks a link you know leads straight to your nude debut.'
+				'"It felt like a hassle, needing to remember to go by different names and all that," you shrug as she clicks a link you know leads straight to your nude debut.'
 				act'Continue':gs 'albina_chat2','first_model_talk_nude1'
 			end
 			
@@ -187,8 +245,7 @@ if $ARGS[0] = 'first_model_talk4':
 			'Albina stops, turning to look at you with a frown. You give her a stare and she stares back.'
 			*nl
 			'"Damn!" she swears after a moment. "Tell me what to search!"'
-			'"Nope! You''re never finding those pics," you reply smugly, enjoying a rare moment of superiority over your friend.'
-			gs 'albina_chat','small_talk'
+			gs 'albina_chat','first_model_talk_tell'
 		end
 			
 		act'Let her search':
@@ -198,22 +255,27 @@ if $ARGS[0] = 'first_model_talk4':
 			'"Why can''t I find it?!" she grumbles, cursing.'
 			'"I don''t use my <i>actual</i> name when modelling," you say. "Do you think I''m crazy?"'
 			'"Come ooooonnn!" she moans. "Tell me what to search!"'
-			act'Nope':
-				cla & *nl
-				'"Nope! You''re never finding those pics," you reply smugly, enjoying a rare moment of superiority over your friend.'
-				gs 'albina_chat','small_talk'
-			end
-			act'Tell her':
-				cla & *nl
-				'You spend a few moments considering tantalizing her with the knowledge but eventually you relent.'
-				'"Okay," you snicker. "I go by <<$model[''firstname'']>> <<$model[''lastname'']>>."'
-				'Her eyes light up and immediately starts clacking away on the keyboard. Moments later, she''s clicking a link that you know leads to your nude debut.'
-				act'Look at the photos':gs 'albina_chat2','first_model_talk_nude1'
-			end
+			gs 'albina_chat','first_model_talk_tell'
 		end
 	end
 end
 
+if $ARGS[0] = 'first_model_talk_tell':
+	act'Nope':
+		cla & *nl
+		'"Nope! You''re never finding those pics," you reply smugly, enjoying a rare moment of superiority over your friend.'
+		gs 'albina_chat','small_talk'
+	end
+	
+	act'Tell her':
+		cla & *nl
+		'You spend a few moments considering tantalizing her with the knowledge but eventually you relent.'
+		'"Okay," you snicker. "I go by <<$model[''firstname'']>> <<$model[''lastname'']>>."'
+		'Her eyes light up and immediately starts clacking away on the keyboard. Moments later, she''s clicking a link that you know leads to your nude debut.'
+		act'Look at the photos':gs 'albina_chat2','first_model_talk_nude1'
+	end
+end
+
 if $ARGS[0] = 'first_model_talk_nude1':
 	cla & *clr
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/shoots/nude/debut/1.jpg"> <img <<$set_imgh>> src="images/locations/city/citycenter/photo/shoots/nude/debut/2.jpg"> <img <<$set_imgh>> src="images/locations/city/citycenter/photo/shoots/nude/debut/3.jpg"></center>'
@@ -232,8 +294,8 @@ if $ARGS[0] = 'first_model_talk_nude1':
 		cla & *nl
 		'"I know, right?" you grin. A warm blush spreads through your cheeks despite your pride in your work, unable to help but be a little embarrassed as Albina expands the images to full screen and takes advantage of the high definition to zoom <i>very</i> far in.'
 		if pcs_pubes > 10 and AlbinaQW['model_shave'] = 0:
-			'"I can''t believe you were hiding them from me!" she exclaims. "By the way, I thought you didn''t shave?"'
-			'Albina zooms way in on your pussy, getting a close up of your cleanshaven lips.'
+			'"I can''t believe you were hiding them from me!" she exclaims. " By the way, what''s the deal? I thought you didn''t shave?"'
+			'Albina zooms way in on your crotch, getting a close up of your cleanshaven pussy.'
 		else
 			'"I can''t believe you were hiding them from me!" she exclaims. "These photos are incredible! I can''t believe you were hiding them from me!"'
 		end
@@ -244,8 +306,8 @@ if $ARGS[0] = 'first_model_talk_nude1':
 		cla & *nl
 		'"Not bad, are they?" you smirk, amused by the look of excitement on Albina''s face as she rapidly clicks through photos, often expanding them to full screen to take advantage of the high definition and zoom <i>very</i> far in.'
 		if pcs_pubes > 10 and AlbinaQW['model_shave'] = 0:
-			'"I can''t believe you were hiding them from me!" she exclaims. "By the way, I thought you didn''t shave?"'
-			'Albina zooms way in on your pussy, getting a close up of your cleanshaven lips.'
+			'"I can''t believe you were hiding them from me!" she exclaims. " By the way, what''s the deal? I thought you didn''t shave?"'
+			'Albina zooms way in on your crotch, getting a close up of your cleanshaven pussy.'
 		else
 			'"I can''t believe you were hiding them from me!" she exclaims. "These photos are incredible! I can''t believe you were hiding them from me!"'
 		end
@@ -256,13 +318,37 @@ if $ARGS[0] = 'first_model_talk_nude1':
 		cla & *nl
 		'"You''re just saying that," you remark skeptically even as she furiously clicks through them, expanding them to full screen and even zooming in at times, especially on your "womanly features."'
 		if pcs_pubes > 10 and AlbinaQW['model_shave'] = 0:
-			'"Fuck no!" she exclaims. "Why would I lie? Just looking at these makes me want to eat you out right now! I can''t believe you were hiding them from me! By the way, I thought you didn''t shave?"'
+			'"Fuck no!" she exclaims. "Why would I lie? Just looking at these makes me want to eat you out right now! I can''t believe you were hiding them from me!  By the way, what''s the deal? I thought you didn''t shave?"'
 			'Albina takes advantage of the high resolution and zooms way in on your pussy, getting a close up of your cleanshaven lips.'
 		else
 			'"Fuck no!" she exclaims. "Why would I lie? Just looking at these makes me want to eat you out right now!"'
 		end
 		gs 'albina_chat2','first_model_talk_nude2'
 	end
+	
+	act'Professional pride':
+		cla & *nl
+		'"It turned out well didn''t it?" you smile as she furiously clicks through them, expanding them to full screen and going out of her way to zoom in on your tits and pussy. "It was a big step for me."'
+		if pcs_pubes > 10 and AlbinaQW['model_shave'] = 0:
+			'"I can''t believe you were hiding this from me!" she exclaims. " By the way, what''s the deal? I thought you didn''t shave?"'
+			'Albina zooms way in on your crotch, getting a close up of your cleanshaven pussy.'
+		else
+			'"I can''t believe you were hiding them from me!" she exclaims. "These photos are incredible! I can''t believe you were hiding them from me!"'
+		end
+		gs 'albina_chat2','first_model_talk_nude2'
+	end
+	
+	act'Self centered pride':
+		cla & *nl
+		'"Fuck yeah I do," you grin, even ogling yourself a little bit as she furiously clicks through them, expanding them to full screen and even zooming in at times, especially on your "womanly features."'
+		if pcs_pubes > 10 and AlbinaQW['model_shave'] = 0:
+			'"Modest aren''t we?" she snickers back. "I can''t believe you were hiding this from me! By the way, what''s the deal? I thought you didn''t shave?"'
+			'Albina zooms way in on your crotch, getting a close up of your cleanshaven pussy.'
+		else
+			'"Modest aren''t we?" she snickers back. "I can''t believe you were hiding this from me! These photos are incredible!"'
+		end
+		gs 'albina_chat2','first_model_talk_nude2'
+	end
 end
 
 if $ARGS[0] = 'first_model_talk_nude2':
@@ -403,7 +489,7 @@ if $ARGS[0] = 'first_model_talk_nude_pubes_shaved':
 			'"They made me do it," you sigh. "This is my nude debut. The studio''s policy is that models have to go cleanshaven for their first nude set. I didn''t want to do it, but they refused to do the shoot unless I did. I really liked my bush! I was so annoyed how long it took to grow back!"'
 			'Albina''s grin fades and takes on a more somber expression, scrolling through the pictures of you with new eyes.'
 			if AlbinaQW['shave_story'] = 1:
-				'"I told you about why I started shaving, didn''t I?" she asks referring to that story she told you while you were both drunk after the pool. "What you said reminds me of that."'
+				'"I told you about why I started shaving, didn''t I?" she asks in a flat tone, referring to what she told you while you were both drunk after the pool. "What you said reminds me of that."'
 				'Albina shuts the lid on her laptop and pushes it away.'
 				'"I''m sorry <<$pcs_nickname>>," she says tenderly. "Maybe we should talk about something else?"'
 			else
@@ -418,7 +504,7 @@ if $ARGS[0] = 'first_model_talk_nude_pubes_shaved':
 			'"They made me do it," you sigh. "This is my nude debut. The studio''s policy is that models have to go cleanshaven for their first nude set. I didn''t want to do it, but they refused to do the shoot unless I did."'
 			'Albina''s grin fades and takes on a more somber expression, scrolling through the pictures of you with new eyes.'
 			if AlbinaQW['shave_story'] = 1:
-				'"I told you about why I started shaving, didn''t I?" she asks referring to that story she told you while you were both drunk after the pool. "What you said reminds me of that."'
+				'"I told you about why I started shaving, didn''t I?" she asks in a flat tone, referring to what she told you while you were both drunk after the pool. "What you said reminds me of that."'
 				'Albina shuts the lid on her laptop and pushes it away.'
 				'"I''m sorry <<$pcs_nickname>>," she says tenderly. "Maybe we should talk about something else?"'
 			else
@@ -724,7 +810,7 @@ if $ARGS[0] = 'first_model_talk_nude_shy1':
 		cla & *nl
 		'"You really think so?" you ask. You blush furiously as she furiously clicks through them, expanding them to full screen and even zooming in at times, especially on your "womanly features," but deep inside your chest you also feel a certain warmth. Something that feels good to be recognized.'
 		if pcs_pubes > 10 and AlbinaQW['model_shave'] = 0:
-			'"Fuck yes!" she exclaims. "These photos are incredible! I can''t believe you were hiding them from me! By the way, I thought you didn''t shave?"'
+			'"Fuck yes!" she exclaims. "These photos are incredible! I can''t believe you were hiding them from me!  By the way, what''s the deal? I thought you didn''t shave?"'
 			'Albina takes advantage of the high resolution and zooms way in on your pussy, getting a close up of your cleanshaven lips.'
 		else
 			'"Fuck yes!" she exclaims. "These photos are incredible! I can''t believe you were hiding them from me!"'
@@ -736,7 +822,7 @@ if $ARGS[0] = 'first_model_talk_nude_shy1':
 		cla & *nl
 		'"You''re just saying that," you remark skeptically even as she furiously clicks through them, expanding them to full screen and even zooming in at times, especially on your "womanly features."'
 		if pcs_pubes > 10 and AlbinaQW['model_shave'] = 0:
-			'"Fuck no!" she exclaims. "Why would I lie? Just looking at these makes me want to eat you out right now! I can''t believe you were hiding them from me! By the way, I thought you didn''t shave?"'
+			'"Fuck no!" she exclaims. "Why would I lie? Just looking at these makes me want to eat you out right now! I can''t believe you were hiding them from me!  By the way, what''s the deal? I thought you didn''t shave?"'
 			'Albina takes advantage of the high resolution and zooms way in on your pussy, getting a close up of your cleanshaven lips.'
 		else
 			'"Fuck no!" she exclaims. "Why would I lie? These photos are incredible! I can''t believe you were hiding them from me!"'
@@ -800,7 +886,28 @@ end
 if $ARGS[0] = 'recurrent_model_talk1':
 	cla & *clr
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
-	'"So, what''s it like working as a model?" Albina asks looking curious.'
+	'"What''s it like working as a model?" Albina asks looking curious.'
+	act'It''s whatever':
+		cla & *nl
+		'"It''s whatever," you shrug. "Same as any other job I guess. Show up, do the work, get paid."'
+		'"That''s all you have to say about being a fucking super model?" she grins back, punching you in the arm. "You bitch."'
+		if ''
+	end
+	
+	
+end
+
+if $ARGS[0] = 'recurrent_porn_talk1':
+	cla & *clr
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+	'"So..." Albina starts hesitantly, nervously drumming her fingers. "How''s... the uhh... <i>porn stuff</i> going...?"'
+	act'We don''t have to talk about this':
+		albinaQW['no_porn_talk'] = 1
+		cla & *nl
+		'"Albina," you say gently. "If you''re uncomfortable with what I do for money, we don''t have to talk about it."'
+		'She nods back, looking grateful and changes the subject.'
+		gs 'albina_chat','small_talk'
+	end
 end
 
 --- albina_chat2 ---------------------------------

+ 1047 - 0
locations/albina_sex_chat.qsrc

@@ -0,0 +1,1047 @@
+# albina_sex_chat
+
+if $ARGS[0] = 'sex_talk_start':
+	cla & *clr
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+	if stat['think_virgin'] = 1:
+		'Knowing that you don''t have much experience in the subject, she offers to change the topic.'
+		gs 'albina_sex_chat', 'sex_talk'
+	else
+		'You steer the conversation towards sex, a topic Albina is more than comfortable with and readily engages with you about it.'
+	!!'You steer the conversation towards sex, a topic Albina is a girl who is comfortable about her sexuality and so you end up talking about sex.'
+		*nl
+		gs 'albina_sex_chat', 'sex_talk2'
+	end
+end
+
+if $ARGS[0] = 'sex_talk':
+	act 'Stop talking': gt 'albinahome', 'bedroom'
+	act 'Change the subject': gt 'albina_chat', 'chat'
+	act 'Keep talking about sex': gs 'albina_sex_chat', 'sex_talk2'
+	act 'Ask her about anal': gt 'albina_sex_chat', 'anal'
+end
+
+if $ARGS[0] = 'sex_talk2':
+	minut += 1
+	cla & *clr
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+	gs 'albina_sex_chat', 'sex_talk_topics'
+	
+	gs 'albina_sex_chat', 'sex_talk_albina_lead'
+end
+
+if $ARGS[0] = 'sex_talk_topics':
+	act'Lead the conversation':
+		cla
+		gs 'albina_sex_chat', 'blowjob_talk1'
+	end
+end
+
+if $ARGS[0] = 'blowjob_talk1':
+	act'Talk about blowjobs':
+		cla
+		act'"Do you like blowjobs?"':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+			'"Do you like giving blowjobs?" you ask Albina. She twists her lips thoughtfully almost like she can''t make up her mind.'
+			'"I don''t really mind giving head, but it''s not my favorite," she says eventually. "It''s just foreplay to get the guy hard or a way to get them to finish. Although... when a guy grabs my hair, takes charge, and shoves it down my throat... <i>fuck me</i>... There''s something so hot about that. It''s actually made me cum once or twice before."'
+			act'"I don''t like blowjobs"':
+				cla & *nl
+				'"Really? You''ve gotten off on a blowjob before?" You wrinkle your nose. "I hate blowjobs. The taste is awful, they make my jaw ache, and they''re just gross all around."'
+				'"I can understand that," Albina nods. "They''re not for everybody. I guess I''ve just seen so much cock I''m used to the taste. And just to be clear, it''s only in that specific situation that I like blowjobs."'
+				gs 'albina_sex_chat', 'sex_talk'
+			end
+			
+			act'"That''s hot"':
+				cla & *nl
+				'"That''s fucking hot," you grin at her, causing her to grin back.'
+				'"Well? What about you? Do you like giving head?"'
+				gs 'albina_sex_chat', 'blowjob_talk2'
+			end
+			
+			act'Tease her':
+				cla & *nl
+				'"You cum from blowjobs?" you snicker. "You slut."'
+				'"I <i>have</i> cum from <i>one or two</i> blowjobs before," she says, smacking you with a pillow before grinning back. "But what about you, huh? Do you like giving head?"'
+				gs 'albina_sex_chat', 'blowjob_talk2'
+			end
+			
+			act'"You''re just like my sister"':
+				cla & *nl
+				'"You''re just like my sister, you know that?" you snicker. Albina cocks her head, giving you a confused look. You pull up your hand and start counting off on your fingers.'
+				'"You love taking it up the ass, you love getting face fucked, you love swallowing-"'
+				'"I don''t love swallowing!" Albina interrupts you in protest. "I said I <i>always</i> swallow because I''m not an impolite bitch! There''s a difference!"'
+				'"Suuuure!" You continue to tease her until she picks up a pillow and smacks you with it.'
+				'"Well what about you, huh?" she grins back. "Do you like giving head?"'
+				gs 'albina_sex_chat', 'blowjob_talk2'
+			end
+		end
+		
+!!		gs 'albina_sex_chat', '69_talk1'
+	end
+end
+
+if $ARGS[0] = 'blowjob_talk2':
+	act'You hate it':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"I hate giving blowjobs," you say, wrinkling your nose. "The taste is awful, they make my jaw ache, and they''re just gross all around."'
+		'"I can understand that," Albina nods. "They''re not for everybody. I guess I''ve just seen so much cock I''m used to the taste and the ache. Just another part of the process."'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	act'You don''t like it':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"I don''t really like it," you say, wrinkling your nose. "They''re not the <i>worst</i> but I don''t get off on them at all. I mostly just sit there bored out of my mind until it''s over."'
+		'"I get that," Albina nods. "If it''s not a skull-fucking, I feel pretty much the same way. Just something you have to do until you get to the good part."'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	act'Don''t love it, don''t hate it':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"Hmm. I don''t know. It''s okay I guess," you say with a shrug. "I don''t really like them, but I don''t really hate them either. Just kind of something I do. I don''t know. It''s a cock in my mouth. Is there much more to say?"'
+		'"I get that," Albina nods. "If it''s not a skull-fucking, I feel pretty much the same way. Just something you have to do until you get to the good part."'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	act'You like it':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"I like it," you say. "Knowing that I''m in charge of a guy''s pleasure is really hot. I like the feeling of them squirming inside my mouth and knowing that it''s because of me."'
+		'"I get that," Albina says with an understanding nod. "Not my personal cup of tea, but I can see the appeal when you put it like that."'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	act'You love it':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"I <i>love</i> blowjobs," you gush. "I love everything about them! The feel of a guy''s dick in my mouth, the taste, the smell, the way I can make him moan and squirm. I could get off on giving head."'
+		'"I get that," Albina smirks amusedly. "Not my personal cup of tea, but I can see the appeal when you put it like that."'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	act'Only when it''s rough':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"I''m like you," you say. "When I''m blowing a guy, it''s just whatever. But when a guy starts getting rough with me-"'
+		'"It''s so fucking hot, right?" Albina interrupts.'
+		'"It''s like a waterfall between my legs," you gush back excitedly. "It makes me want to just go limp and-"'
+		'"Let him grab you with both hands and skullfuck you?"'
+		'"Yes!"'
+		*nl
+		'The conversation quickly turns into a revolving circle of your shared face-fucking fetish.'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	act'Only if his dick is small':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"I like it..." you start. "But only when a guy''s dick is small enough. When it''s too big it takes so much effort just to get it around my teeth and I feel like I''m gonna choke. An aching jaw is kind of a turn off. But when it''s average or small and I can suck it no problem, blowjobs can be kinda fun."'
+		'"I get that," Albina nods. "Definitely choked on my share of big dicks. Almost threw up several times before I lost my gag reflex."'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	act'Only if his dick is big':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"I like it when it''s a big dick," you smirk. "There''s something really satisfying about having a big dick in my mouth, making me stretch my lips to get around it. It''s... <i>meaty</i>. As opposed to when it''s small or average, it feels like there''s too much space by comparison."'
+		'"I get that," Albina smiles back amusedly. "I''ve choked on a lot of dick in my time, but always better to choke on a bigger one than a smaller one. Better to get skullfucked with."'
+		'She grins wickedly.'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+end
+
+if $ARGS[0] = '69_talk1':
+	act'"Do you like 69ing?"':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"Do you like 69ing?" you ask Albina.'
+		'"With a guy or a girl?" she smirks back wickedly.'
+		act'Guy':
+			cla & *nl
+			'"A guy," you say.'
+			'"69ing is just a novelty if you ask me," she sighs, boredly twirling her finger through her hair. "Too much going on at once. I''m sucking dick trying to make him feel good, his face is between my legs, or at least trying to get both because matching dick to mouth and pussy to face is hard at my height, especially if he''s tall. It''s a big hassle and I can''t concentrate on anything. I just give a worse blowjob while getting less pleasure out of being eaten out. <i>If</i> he even is eating me out. And don''t get me started about when the guy''s on top. Trying to suck a dick hanging above you while in a supine position is so much harder than when it''s standing up straight."'
+			gs 'albina_sex_chat', 'sex_talk'
+		end
+		
+		act'Girl':
+			cla & *nl
+			'"A girl," you say.'
+			if npc_sex['A23'] = 1:
+				'"It''s... different... When you- I mean we- It made me-"'
+				'Albina flushes, growing flustered in a way you rarely see from her.'
+				'"When we... <i>did that...</i> it was very... wet..." she says slowly. "Not sure I can describe it another way. Everything was soft and squishy and my pussy was like a waterfall and I wanted to drown myself in yours. Really different from 69ing with a guy. Or sex with guys as a whole."'
+			else
+				'"It''s very... wet..." she says slowly. Albina flushes, growing flustered in a way you rarely see from her. "Not sure I can describe it another way. Everything was soft and squishy and my pussy was like a waterfall and I wanted to drown myself in yours. Really different from 69ing with a guy. Or sex with guys as a whole."'
+			end
+			gs 'albina_sex_chat', 'sex_talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'cum_talk1':
+	act'Talk about cum':
+		cla
+		gs 'albina_sex_chat', 'cum_taste1'
+		gs 'albina_sex_chat', 'facial_talk1'
+	end
+end
+
+if $ARGS[0] = 'cum_taste1':
+	act'Do you like the taste?':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"Do you like the taste of cum?" you ask Albina. She immediately wrinkles her nose.'
+		'"Ew. No." She makes a fake gagging sound. "It''s <i>vile</i>. I brush my teeth the first chance I get after I finish a guy with my mouth. Why? Do you like it?"'
+		gs 'albina_sex_chat', 'cum_taste2'
+	end
+end
+
+if $ARGS[0] = 'cum_taste2':
+	act'It''s gross':
+		cla & *nl
+		'"No, I agree with you one hundred percent," you say, making a face of disgust yourself. "It''s bitter, it''s sour, it''s slimy. I want to throw up as soon as I taste it. It''s just... <i>ugh!</i>"'
+		'The two of you share an involuntary shudder. Seems you''re in agreement.'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	act'Don''t mind it':
+		cla & *nl
+		'"I don''t really mind it," you shrug. "It''s a little bitter, not my favourite flavour in the world, but not really a dealbreaker for me either."'
+		'"I don''t know how you can stand it," Albina shakes her head. "I''ve tasted dozens of different guy''s cum and they''re <i>all</i> awful. One of them claimed he ate pineapple just for me, but either he was lying or that stuff about making it taste sweeter is bullshit!"'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	act'You like it':
+		cla & *nl
+		'"I like it actually," you say. "It''s a little salty, but not offensively so. Like the white part of a fried egg. Similar texture too. I can swallow it no problem."'
+		'"I don''t know how you can stand it," Albina shakes her head. "I''ve tasted dozens of different guy''s cum and they''re <i>all</i> awful. One of them claimed he ate pineapple just for me, but either he was lying or that stuff about making it taste sweeter is bullshit!"'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	if pcs_traits['cumeater'] ! 0:
+		act'You got used to it':
+			cla & *nl
+			'"I just got used to it to be honest," you shrug. "Didn''t like it at first, but after swallowing a bunch of loads, it''s removed any disgust I associated with it."'
+			'"I don''t know how you can stand it," Albina shakes her head. "I''ve tasted dozens of different guy''s cum and they''re <i>all</i> awful. One of them claimed he ate pineapple just for me, but either he was lying or that stuff about making it taste sweeter is bullshit!"'
+			gs 'albina_sex_chat', 'sex_talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'facial_talk1':
+	act'Do you like facials?':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"Do you like it when guys cum on your face?" you ask.'
+		'"Sometimes," Albina shrugs. "When a guy cums on my face, I feel <i>dirty</i>. Like a used cum rag. Which... I don''t mind if I''m in the mood for that kind of thing. Like when Lazar fucks me so hard my hair is frizzy and my makeup is fucked. That''s the perfect time for him to cum on my face. But that''s situational. I''d much rather he just blow his load in my ass. I''m always in the mood for that."'
+		'She grins at you.'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+end
+
+if $ARGS[0] = 'sex_talk_albina_lead':
+	act'Let her lead':
+		cla
+		AlbinaQW['chat_rand'] = rand(1,3)
+		if AlbinaQW['chat_rand'] = 1:
+			'"So what''s your favourite position?" she asks.'
+			act 'Missionary': gt 'albina_sex_chat', 'missionary'
+			act 'Doggystyle': gt 'albina_sex_chat', 'doggystyle'
+			act 'Cowgirl': gt 'albina_sex_chat', 'cowgirl'
+			act 'Blowjobs': gt 'albina_sex_chat', 'bj_fav'
+		elseif AlbinaQW['chat_rand'] = 2:
+			gs'albina_sex_chat', 'birth_control_talk'
+		elseif AlbinaQW['chat_rand'] = 3:
+			gs'albina_sex_chat', 'sex_toys'
+		elseif AlbinaQW['chat_rand'] = 4:
+			gs'albina_sex_chat', 'lesbian_talk1'
+		else
+			gs'albina_sex_chat', 'sexual_fantasies1'
+		end
+	end
+end
+
+if $ARGS[0] = 'missionary':
+	menu_off = 1
+	gs 'stat'
+	cla & *clr
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+	'Missionary," you admit.'
+	'"BO-RING!"'
+	act 'It''s nice!':
+		cla & *nl
+		'"What''s wrong with missionary?" you protest. "I think it''s nice."'
+		'"You''re trying to tell me that lying on your back doing nothing is ''nice''?" She rolls her eyes. "Nuh uh. Bend me over and spank me! Grab me by the hair and pound my ass! Doggystyle is the way to go!"'
+		gs 'albina_sex_chat', 'missionary2'
+	end
+
+	act 'It''s romantic':
+		cla & *nl
+		'"It''s romantic!" you protest. "You can look up into his eyes when you come. Or kiss while he fucks you. It makes it so much better."'
+		'"Romance is for decrepit old fucks," she rolls her eyes. "Nuh uh. Give it to me <i>dirty</i>. Bend me over and spank me! Grab me by the hair and pound my ass! Doggystyle is the way to go!"'
+		gs 'albina_sex_chat', 'missionary2'
+	end
+
+	act 'It''s easy':
+		cla & *nl
+		'"It''s easy," you shrug. "I don''t have to do any work. Just lay there and get dicked."'
+		'"Holy <i>fuck!</i> You sound like a dull lay," she rolls her eyes. "I can''t believe you''re the kind of girl who starfishes. Not only that, but you actually <i>like</i> it! Nuh uh. Not me. Give it to me <i>dirty</i>. Bend me over and spank me! Grab me by the hair and pound my ass! Doggystyle is the way to go!"'
+		gs 'albina_sex_chat', 'missionary2'
+	end
+end
+
+if $ARGS[0] = 'missionary2':
+	pcs_horny += 15
+	gs'stat'
+	'You both agree to disagree, but find yourself a little turned on by her response. Judging by the way she''s rubbing her thighs together, you think she is too.'
+	gs'albina_sex_chat', 'sex_talk'
+	act 'Ask her about her anal fetish': gt 'albina_sex_chat', 'anal'
+end
+
+if $ARGS[0] = 'doggystyle':
+	menu_off = 1
+	gs 'stat'
+	cla & *clr
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+	'"I like doggystyle."'
+	'"That''s my girl!" Albina cheers excitedly. "What''s your favorite thing about it?"'
+	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 until I cum. Best night ever."'
+		gs 'albina_sex_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 cum just thinking about it."'
+		gs 'albina_sex_chat', 'doggystyle2'
+	end
+
+	act 'Easy spankings':
+		cla & *nl
+		'"I love getting spanked," you grin.'
+		'"Fuck yeah!" Albina shouts, high fiving you so hard it hurts. "There''s nothing I love more than a cock balls deep up my ass and being spanked until it''s red and tender. If I can still sit down without wincing after, then you didn''t really fuck me."'
+		gs 'albina_sex_chat', 'doggystyle2'
+	end
+end
+
+if $ARGS[0] = 'doggystyle2':
+	pcs_horny += 15
+	gs'stat'
+	'You giggle at her answer, feeling warmth blossoming between your hips and wetness seeping from your pussy. With the "fuck me eyes" Albina is giving you think she''s probably feeling something similar.'
+	gs'albina_sex_chat', 'sex_talk'
+	act 'Ask her about her anal fetish': gt 'albina_sex_chat', 'anal'
+end
+
+if $ARGS[0] = 'cowgirl':
+	menu_off = 1
+	gs 'stat'
+	cla & *clr
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+	'"I like cowgirl," you admit.'
+	'"Oh?" She raises an eyebrow curiously. "That''s what you''re into?"'
+	act 'It feels better':
+		cla & *nl
+		'"It just feels better," you shrug. "I don''t know how to explain it. The angle? Just the way it fits inside when I''m on top? It feels good. What can I say?"'
+		'"I think it feels best in doggy," Albina says. "It goes way deeper and you can get surprise anal in that position, which is the <i>best</i> kind of anal. Plus spankings. If I can''t sit down after a fuck, it was a good fuck." She then gives you a sly grin. "But riding dick is a close second for me."'
+		gs 'albina_sex_chat', 'cowgirl2'
+	end
+
+	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."'
+		'"That kind of stuff doesn''t matter 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. If I want my face forced into the sheets with a cock balls deep up my ass being spanked until my eyes water, I''m only going to get that in doggy." She grins at you, clearly imagining a cock stuffed up her ass right now, but a few seconds later, it melts into a concessionary smile. "I''ll admit though, a hard ride is pretty good too."'
+		gs 'albina_sex_chat', 'cowgirl2'
+	end
+
+	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 until you''re red and wriggling too. Why choose when you can have both?" She gives you a sly grin. "Though I''ll admit, riding dick is a close second for me."'
+		gs 'albina_sex_chat', 'cowgirl2'
+	end
+end
+
+if $ARGS[0] = 'cowgirl2':
+	pcs_horny += 15
+	gs'stat'
+	'You both agree to disagree, but find yourself a little turned on by her response. Judging by the way she''s rubbing her thighs together, you think she is too.'
+	gs'albina_sex_chat', 'sex_talk'
+	act 'Ask her about her anal fetish': gt 'albina_sex_chat', 'anal'
+end
+
+if $ARGS[0] = 'bj_fav':
+	gs 'stat'
+	cla & *clr
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+	'"I really like giving head," you admit.'
+	'"Ugh, <i>yes!</i>" Albina says, giving you a lustful look. "I love it when guys grab me by the hair and skullfuck me. What do you like about it?"'
+	act'I like being in control':
+		cla & *nl
+		'"It makes me feel like I''m in charge," you grin, though Albina looks back at you confused.'
+		'"In charge?" she asks. "You''re on your knees serving someone else''s needs. What about it makes you feel like you''re in charge?"'
+		'"When a dick is in my mouth, it means I''m in control of all the pleasure," you say. "I can tease him, I can edge him, I can suck him dry, I can make him beg, I choose when to make him come. Plus, I''ve got teeth."'
+		'You flash Albina a wicked grin.'
+		'"When your cock is surrounded by my teeth, <i>I''m</i> the one in charge."'
+		'"Huh. Never thought of it like that..." she smirks back. "Still, can''t do anything about it when they cum in your mouth. I''d rather they just bend me over and blast my ass."'
+		gs 'albina_sex_chat', 'spit_or_swallow'
+	end
+	
+	act'I like being subservient':
+		cla & *nl
+		'"I think I''m just a bit of a sub," you shrug. "I like being on my knees, with his hand on my head, moving me up and down his cock."'
+		'"You''re <i>such</i> a goodie two shoes," Albina teases.'
+		'"... I like it when he calls me a good girl too," you admit and she gives a sharp bark of laughter.'
+		'"I bet. But don''t you ever get tired of swallowing?"'
+		gs 'albina_sex_chat', 'spit_or_swallow'
+		act'Good girls swallow':
+			cla & *nl
+			'"No," you reply without hesitation. "I''m a good girl. And good girls always swallow."'
+			'"Doesn''t mean you always like it," she says, twisting her mouth wistfully.'
+			gs 'albina_sex_chat', 'sex_talk'
+		end
+	end
+	
+	act'I like pleasing people':
+		cla & *nl
+		'"I like pleasing people," you shrug. "I love hearing a guy moan while I''m blowing him. It makes me feel so hot and sexy. And when he throbs in my mouth-" You stop, shivering at the thought and grin at Albina. "I could just come thinking about it."'
+		'She smirks back at you.'
+		'"I bet. But don''t you ever get tired of swallowing?"'
+		gs 'albina_sex_chat', 'spit_or_swallow'
+	end
+	
+	act'Oral fixation':
+		cla & *nl
+		'"I think I have some kind of oral fixation," you say. "The feeling of a cock in my mouth just turns me on. I can''t explain it. I like feeling it on my tongue, the taste, I think I even kind of like the way it makes my jaw ache after I''ve been blowing a guy for a long time."'
+		'"I like the ache too," Albina says. "Especially if it''s right after a rough fucking. I like feeling like a used dish rag at the end of a good fuck. But I''d still rather they just blow their load in my ass instead of in my mouth. It gets boring swallowing."'
+		gs 'albina_sex_chat', 'spit_or_swallow'
+		act'Me too':
+			cla & *nl
+			'"Me too," you nod. "There''s something about hot cum shooting up your ass that just..."'
+			'"Exactly," she grins.'
+			gs 'albina_sex_chat', 'sex_talk'
+		end
+		
+		act'I prefer creampies':
+			cla & *nl
+			'"I prefer creampies myself," you smirk. You''re about to continue when you notice the color drain from Albina''s face. "What?"'
+			'"Nothing," she says, shrugging like she didn''t just give you a look like she''d seen a ghost. "I was just surprised was all."'
+			act'Let it go':
+				cla & *clr
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+				'She seems spooked for some reason, but you don''t want to make her uncomfortable so you decide to let it go.'
+				gs 'albina_sex_chat', 'sex_talk'
+			end
+			
+			act'Pursue it':
+				cla & *clr
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+				'Something is off. Albina is so open about her sex life, it feels strange that she''d be surprised about anything sex related.'
+				'"No really," you insist, pressing on. "What''s so weird about liking creampies?"'
+				'"Nothing!" she snaps. "I said I was just surprised! Why can''t you accept what I tell you you dumb bitch? Fuck off!"'
+				*nl
+				'Your eyes go wide in shock at her sudden flash of anger. Worried she might slap you if you say anything else, you stay silent until she begins talking to you again like nothing happened.'
+				gs 'albina_sex_chat', 'sex_talk'
+			end
+		end
+	end
+	
+	act'Everything!':
+		cla & *nl
+		if pcs_traits['cumeater'] = 1:
+			'"Everything!" you grin. "I love pleasing a man. I love hearing him moan. I love being in control of his pleasure. I love the taste of cock. I love insisting that he relax and let me take care of it. I love feeling him get harder in my mouth. I love the intimate connection that we form. And..."'
+			'You trail off, meeting Albina''s eyes.'
+			'"I <i>love</i> the taste of cum."'
+			'"Slut," she smirks.'
+			'"Cumslut," you correct and Albina gives a sharp bark of laughter.'
+			gs 'albina_sex_chat', 'sex_talk'
+		else
+			'"Everything!" you grin. "I love pleasing a man. I love hearing him moan. I love being in control of his pleasure. I love the taste of cock. I love insisting that he relax and let me take care of it. I love feeling him get harder in my mouth. I love the intimate connection that we form. What''s <i>not</i> to love about sucking cock?"'
+			'"Slut," Albina snickers back. "But don''t you ever get tired of swallowing?"'
+			gs 'albina_sex_chat', 'spit_or_swallow'
+		end
+		
+	end
+	
+	if arrsize('$lover') > 0:
+		act'I do it for my boyfriend':
+			cla & *nl
+			'"I like making my boyfriend feel good," you smile. "He likes it, so I like it."'
+			'"Oh puh-leez," Albina rolls her eyes. "If I knew you were going to talk about romantic bullshit like that, I wouldn''t have asked. Romance is for decrepit old fucks."'
+			'Her words come across sharp, but you can see the twinkle in her eye that lets you know she''s just kidding.'
+			'"But seriously. Don''t you ever get tired of swallowing?"'
+			gs 'albina_sex_chat', 'spit_or_swallow'
+		end
+		
+		act'I love my boyfriend':
+			cla & *nl
+			'"Because of my boyfriend," you say, involuntarily smiling as your thoughts drift towards him. "I love him so much and I love seeing the pleasure on his face when his cock is in my mouth. I want to spoil him, so I love giving him head."'
+			'"Oh puh-leez," Albina rolls her eyes. "If I knew you were going to talk about romantic bullshit like that, I woudln''t have asked. Romance is for old decrepit fucks."'
+			'Her words come across sharp, but you can see the twinkle in her eye that lets you know she''s just kidding.'
+			'"But seriously. Don''t you ever get tired of swallowing?"'
+			gs 'albina_sex_chat', 'spit_or_swallow'
+		end
+	end
+end
+
+if $ARGS[0] = 'spit_or_swallow':
+	act'I spit':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"What do you mean?" you say with a puzzled look. "I don''t swallow. I just spit?"'
+		'"What do <i>you</i> mean?" Albina asks, giving you a bemused look right back.'
+		act'It tastes funny':
+			cla & *nl
+			'"It tastes funny," you say matter of factly. "So I just spit it out."'
+			gs 'albina_sex_chat', 'swallow_why'
+		end
+		
+		act'It tastes gross':
+			cla & *nl
+			'"Ugh! No," you grimace in disgust. "It tastes so gross. I could never swallow that swill. I just spit."'
+			gs 'albina_sex_chat', 'swallow_why'
+		end
+		
+		act'It feels weird':
+			cla & *nl
+			'"It feels weird," you shrug. "The flavor is whatever but I can''t get over the texture. It''s like swallowing a load of snot. So I just spit."'
+			gs 'albina_sex_chat', 'swallow_why'
+		end
+		
+		act'Swallowing isn''t my thing':
+			cla & *nl
+			'"Eh, swallowing just isn''t really my thing," you shrug. "Never been into it. Avoid it when I can."'
+			gs 'albina_sex_chat', 'swallow_why'
+		end
+	end
+	
+	act'Not really':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"Not really," you shrug. "It''s just part of sex. I don''t really care one way or the other. As long as it makes him happy."'
+		'"I guess," Albina sighs. "Well <i>I</i> get tired of it."'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	act'I got used to the taste':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"I got used to the taste after a while," you shrug. "It''s not my favorite thing in the world, but I''m  used to it."'
+		'"I guess I''m like that too," Albina sighs. "Still gets tiring if it''s all a guy wants to do though."'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	act'Spitters are quitters':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"Spitters are quitters," you smirk.'
+		'"Well you''ve got that much right," Albina laughs back.'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	act'I like the taste':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"I like the taste," you smile. "There''s something satisfying about the thick salty flavor of it."'
+		'"Ew!" She wrinkles her nose in disgust. "You <i>like</i> it?"'
+		'"Yeah. You don''t?"'
+		'"No! It tastes like shit!" Albina fake gags.'
+		'"Then why swallow?"'
+		'"Cause you''re <i>supposed</i> to. Duh."'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	act'Makes me feel sexy':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"I love swallowing," you grin. "It makes me feel sexy. Just the look on a guy''s face when you gulp down his load, nngh~! That alone is worth it."'
+		'"Different strokes I guess," Albina says wryly. "Well <i>I</i> get tired of it."'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+end
+
+if $ARGS[0] = 'swallow_why':
+	'"What the fuck?" Albina stares at you like you just said you have a meter long cock. "You <i>never</i> spit. You always swallow."'
+	act'Why would I do that?':
+		cla & *nl
+		'"Why would I do that?" you ask. "Why would I swallow if I don''t want to?"'
+		'"Because you''re <i>supposed</i> to," she insists. "You know what? Let''s just drop it. You''re weird."'
+		*nl
+		'<i>I''m the weird one here?</i> you think to yourself.'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	act'Do you like the taste?':
+		cla & *nl
+		'"Why?" you ask. "Do <i>you</i> like the taste?"'
+		'"No, of course I don''t like the taste!" she says wrinkling her nose. "It''s awful!"'
+		'"Then why swallow?"'
+		'"Cause you''re supposed to. <i>Duh.</i>" Albina gives you another odd look. "You know what? Let''s just drop it. You''re weird. '
+		*nl
+		'<i>I''m the weird one here?</i> you think to yourself.'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+end
+
+if $ARGS[0] = 'birth_control_talk':
+	'"Do you use birth control?" Albina asks you.'
+	if birth_control['think_safe'] = 0:
+		if pillcon2 > 0 and pillcon2 < 36000:
+			'"I just started the pill," you tell her. "But it''s too soon for it to start being effective yet."'
+			'"I''m on the pill too," she nods. "I hate condoms but I''m terrified of getting knocked up so I take them <i>religiously</i>."'
+			act'I want to be extra safe':
+				cla & *nl
+				'"Me too," you say. "Not the condom part but the pregnant part. I insist every guy uses a condom I''m so scared it''s going to break I''m taking the pill just to be extra safe."'
+				'"I get that," Albina replies, staring off into the corner for a few seconds before glancing back at you again.'
+				gs 'albina_sex_chat', 'sex_talk'
+			end
+			
+			act'I hate condoms too':
+				cla & *nl
+				'"Me too," you say. "I can''t <i>feel</i> anything when the guy''s wearing a rubber. I want skin on skin contact. I can''t wait till I can start going bareback."'
+				'"It''s way better," Albina grins. "You''re gonna love it."'
+				gs 'albina_sex_chat', 'sex_talk'
+			end
+			
+			act'I don''t want to worry':
+				cla & *nl
+				'"I just don''t want to worry about it," you sigh. "What if the guy doesn''t have one? What if I don''t have one? What if the condom breaks? He said he''s going to pull out, but what if he doesn''t? It''s too much stress. Easier to just take a pill every day."'
+				'"I would <i>never</i> let a guy to go bareback on me if I wasn''t on the pill," Albina says, looking horrified at you. "You can''t trust them with that shit. For fuck''s sake, I take it up the ass most of the time and I <i>still</i> don''t trust them not to cum in my pussy. You know what I mean?"'
+				gs 'albina_sex_chat', 'sex_talk'
+			end
+			
+			act'I love creampies':
+				cla & *nl
+				'"I <i>love</i> creampies," you gush. "Once the pill starts kicking in, I''ll be able to get all the creampies I want."'
+				'"Oh." Albina gulps, looking away.'
+				'"What''s with that reaction? Feeling turned on? You don''t have a creampie fetish, do you?" you snicker teasingly.'
+				*nl
+				'<b>"Fuck off!"</b> Albina shouts, whirling on you with fury in her eyes. "I don''t have a fetish for that shit so <b>shut the fuck</b> up and keep it that way."'
+				*nl
+				'You back off, stunned by her sudden explosion. What the hell was that about?'
+				gs 'albina_sex_chat', 'sex_talk'
+			end
+		else
+			act'None':
+				cla & *nl
+				'"No, I don''t use any kind of birth control," you shake your head and Albina goes visibly pale.'
+				'"What the fuck! Why not? Aren''t you afraid of getting pregnant?"'
+				act'Don''t see the point':
+					cla & *nl
+					'"Just don''t see the point," you shrug, revealing how irresponsible your behavior is. "Taking pills is such a chore and condoms suck. Unprotected sex is more fun."'
+					'"Don''t see the point?!" Albina sputters. She sighs, shaking her head. "I don''t understand you at all."'
+					gs 'albina_sex_chat', 'sex_talk'
+				end
+				
+				act'I want to have a baby':
+					cla & *nl
+					if npc_pregtalk['A23'] = 0:
+						'"What if that''s why I don''t use any?" you smile and Albina''s jaw drops. "I kind of <i>want</i> to have a baby."'
+						if age < 18:
+							'"At our age? Seriously? You''re not even 18! You want to be a teen mom and fuck up your life?"'
+						else
+							'"At our age? Seriously? You want to be a teen mom and fuck up your life?"'
+						end
+						
+						act'I''ll be a great mom':
+							cla & *clr
+							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+							'"You think I wouldn''t be a great mom?" you ask. "I do."'
+							'"That''s not the point," Albina says, shaking her head. "A kid is a lot of responsibility. They become the priority in your life. They can get in the way of dreams and other things you want to do..."'
+							*nl
+							'She trails off, looking away.'
+							*nl
+							'"Mama had to put a lot of dreams on hold because she got pregnant with me. Because of my shitbag dad, but because of me too. I love Mama, but it wasn''t until she didn''t have to take care of me anymore that she got to actually live her life. Try to remember that before you get pregnant."'
+							gs 'albina_sex_chat', 'sex_talk'
+						end
+						
+						if pcs_lover - pcs_girlfriends > 0:
+							act'I love my boyfriend':
+								cla & *clr
+								'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+								'"But I love my boyfriend so much!" you say. "He''ll be a great dad, I know it."'
+								'"That''s what Mama thought," Albina says with a disapproving look. "Just because a guy seems nice now doesn''t mean he won''t turn into a total fuckbag the moment you''re knocked up. Try to remember that before you get pregnant."'								
+								gs 'albina_sex_chat', 'sex_talk'
+							end
+						end
+					else
+						'"What if that''s why I don''t use any?" Albina''s jaw drops and with a bashful smile you say, "I want another baby."'
+						'"You''re crazy," she says, shaking her head. "I can''t believe you want to push another one of those things out of your pussy. Didn''t it hurt enough the first time?"'
+						'"You''ll understand when you''re a mother," you reply haughtily. Albina gulps and looks away.'
+						'"I haven''t decided if I want kids..." she says, a slight shake in her voice.'
+						gs 'albina_sex_chat', 'sex_talk'
+					end
+				end
+			end
+			
+			act'Condoms':
+				cla & *nl
+				'"Just condoms," you shrug. "No medication though."'
+				'"Ugh, I <i>hate</i> condoms," Albina moans. "That''s why I''m on the pill. Why don''t you switch?"'
+				act'More reliable':
+					cla & *nl
+					'"Condoms are more reliable," you say. "I can''t forget to use a condom like I can forget to take a pill."'
+					'"But condoms can still break," she argues.'
+					'"And I can get too tired and fall asleep before remembering to take my pill," you point out. "In the grand scheme of things, condoms are just safer."'
+					'"I prefer bareback," Albina says, before taking a deep breath and sighing. "But I also take my pill religiously. I set alarms and everything. I guess better to use condoms if you don''t trust yourself to take the pill... Wait, but why not get the shot instead?"'
+					gs 'albina_sex_chat', 'sex_talk'
+				end
+				
+				gs 'albina_sex_chat', 'birth_control_pill_hassle_condom_ver'
+				
+				gs 'albina_sex_chat', 'birth_control_hormones'
+			end
+			
+			act'The pullout method':
+				cla & *nl
+				'"Does the pullout method count?" you grin. Albina looks at you like you just said you want to fuck a fire truck.'
+				'"Seriously?! You would trust a guy with that shit? I take it mostly up the ass and I <i>still</i> take the pill because I don''t trust a guy not to blow his load in my pussy."'
+				act'Condoms suck':
+					cla & *nl
+					'"But condoms are the <i>worst!</i>" you moan. "I can''t <i>feel</i> anything when the guy''s wearing a rubber. I want skin on skin contact. It''s bareback or nothing."'
+					'"I hate condoms too, but that doesn''t explain why you won''t just get on the pill?"'
+					
+					gs 'albina_sex_chat', 'birth_control_pill_hassle_no_condoms'
+					
+					gs 'albina_sex_chat', 'birth_control_hormones'
+				end
+				
+				gs 'albina_sex_chat', 'birth_control_pill_hassle_no_condoms'
+					
+				gs 'albina_sex_chat', 'birth_control_hormones'
+			end
+			
+			act'The calendar method and condoms':
+				cla & *clr
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+				'"I use the calendar method," you tell her.'
+				'"The <i>what?</i>" Albina stares at you with a confused expression.'
+				'"The calendar method." You begin explaining. "You start by tracking your period and use that to figure out when your cycles are. From then, you can figure out when you''re ovulating and when you''re likely to get pregnant from sex and when it''s safe. I go bareback on safe days and use condoms on danger days."'
+				*nl
+				'"Oh <i>god</i>, it''s the worst of both," she says, grimacing at you. "Condoms <i>and</i> still in danger of being knocked up!"'
+				'"It''s not dangerous," you protest. "Once you have your cycle down, it''s just a matter of keeping track."'
+				'"And if you''re too horny to remember what day it is?" Albina gives you a dead stare.'
+				act'Uhh...':
+					cla & *clr
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+					'"Uhh..."  you say dumbly as Albina continues to stare at you.'
+					'"Yeah, that''s what I thought. Why not just start the pill?"'
+					gs 'albina_sex_chat', 'birth_control_pill_hassle_condom_ver'
+					gs 'albina_sex_chat', 'birth_control_hormones'
+					gs 'albina_sex_chat', 'birth_control_pill_problem'
+				end
+				
+				gs 'albina_sex_chat', 'birth_control_pill_problem'
+			end
+			
+			act'The calendar method (no condoms)':
+				cla & *clr
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+				'"I use the calendar method," you tell her.'
+				'"The <i>what?</i>" Albina stares at you with a confused expression.'
+				'"The calendar method." You begin explaining. "You start by tracking your period and use that to figure out when your cycles are. From then, you can figure out when you''re ovulating and when you''re likely to get pregnant from sex and when it''s safe. Guys can come inside me on safe days and I make sure to warn them if it''s a danger day so they can pull out."'
+				*nl
+				'"Seriously?! You would trust a guy with that shit?" She looks at you in bewilderment. "I take it mostly up the ass and I <i>still</i> take the pill because I don''t trust a guy not to blow his load in my pussy."'
+				act'Condoms suck':
+					cla & *nl
+					'"But condoms are the <i>worst!</i>" you moan. "I can''t <i>feel</i> anything when the guy''s wearing a rubber. I want skin on skin contact. It''s bareback or nothing."'
+					'"I hate condoms too, but that doesn''t explain why you won''t just get on the pill?"'
+					
+					gs 'albina_sex_chat', 'birth_control_pill_hassle_no_condoms'
+					gs 'albina_sex_chat', 'birth_control_hormones'
+				end
+				
+				gs 'albina_sex_chat', 'birth_control_pill_hassle_no_condoms'
+			end
+		end
+	else
+		'"I''m on the pill," you tell her.'
+		'"I''m on the pill too," she nods. "I hate condoms but I''m terrified of getting knocked up so I take them <i>religiously</i>."'
+		act'I want to be extra safe':
+			cla & *nl
+			'"Me too," you say. "Not the condom part but the pregnant part. I insist every guy uses a condom I''m so scared it''s going to break I take the pill just to be extra safe."'
+			'"I get that," Albina replies, staring off into the corner for a few seconds before glancing back at you again.'
+			gs 'albina_sex_chat', 'sex_talk'
+		end
+		
+		act'I hate condoms too':
+			cla & *nl
+			'"Me too," you say. "I can''t <i>feel</i> anything when the guy''s wearing a rubber. I want skin on skin contact. It''s so much better bareback."'
+			'"Damn straight," Albina grins, high-fiving you. "Condoms are fucking dumb."'
+			gs 'albina_sex_chat', 'sex_talk'
+		end
+		
+		act'I don''t want to worry':
+			cla & *nl
+			'"I just don''t want to worry about it," you sigh. "What if the guy doesn''t have one? What if I don''t have one? What if the condom breaks? He said he''s going to pull out, but what if he doesn''t? It''s too much stress. Easier to just take a pill every day."'
+			'"I would <i>never</i> let a guy to go bareback on me if I wasn''t on the pill," Albina says, looking horrified at you. "You can''t trust them with that shit. For fuck''s sake, I take it up the ass most of the time and I still don''t trust them not to cum in my pussy. You know what I mean?"'
+			gs 'albina_sex_chat', 'sex_talk'
+		end
+		
+		act'I love creampies':
+			cla & *nl
+			'"I <i>love</i> creampies," you gush. "When a guy comes inside me, it''s the best feeling in the world. I can feel his cum fill me up inside. Can''t get that with a condom."'
+			'"Oh." Albina gulps, looking away.'
+			'"What''s with that reaction? Feeling turned on? You don''t have a creampie fetish, do you?" you snicker teasingly.'
+			*nl
+			'<b>"Fuck off!"</b> Albina shouts, whirling on you with fury in her eyes. "I don''t have a fetish for that shit so <b>shut the fuck</b> up and keep it that way."'
+			gs 'albina_sex_chat', 'sex_talk'
+		end
+	end
+end
+
+if $ARGS[0] = 'birth_control_pill_hassle_condom_ver':
+	act'Too much hassle':
+		cla & *nl
+		'"Too much hassle," you sigh. "I don''t want to remember to take a pill every day. It''s just easier to put a rubber on the guy''s cock before he fucks me. If the condom breaks, I can just get a morning after pill."'
+		'"I guess that''s fair," Albina concedes. "Just takes one missed day to get knocked up. That''s why I take mine religiously. I set alarms and everything to remind me. But you don''t know what you''re missing out on. Bareback is the best."'
+		*nl
+		'She grins a slutty grin at you.'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+end
+
+if $ARGS[0] = 'birth_control_pill_hassle_no_condoms':
+	act'Too much hassle':
+		cla & *nl
+		'"Too much hassle," you sigh. "I don''t want to remember to take a pill every day. It''s just one more annoying thing to do. I just want to have sex and enjoy it. Besides, I can always get a morning after pill."'
+		'"You''re crazy," Albina says shaking her head. "Condom or bareback, I wouldn''t fuck guys <i>at all</i> if I wasn''t on birth control... but that''s why I need to be on birth control."'
+		*nl
+		'You both erupt into laughter.'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+end
+
+if $ARGS[0] = 'birth_control_hormones':
+	act'No hormones':
+		cla & *nl
+		'"I don''t want to mess with my body like that," you say, shaking your head. "Birth control hormones stop you from getting pregnant, but they do all other kinds of other stuff to you. I hear horror stories from changing your tastes to sudden weight gain to killing your sex drive. Which sort of defeats the point of getting on the pill in the first place."'
+		'"No periods though," Albina smirks. "But I guess you have a point. Since I started the pill, I get a lot wetter than I used to. But that just made surprise buttsex better. All natural lube.'
+		*nl
+		'She grins a slutty grin at you and you both erupt into laughter.'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+end
+
+if $ARGS[0] = 'birth_control_pill_problem':
+	act'Pill has the same problem':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'"The pill has the same problem with memory," you point out. "If I''m too horny to forget a condom, what if I''m too horny to remember my pill? Or too tired?"'
+		'"I guess you have a point there," Albina sighs. "My fear of getting pregnant outweighs my horniness, but I guess not every girl is like that. Some of them are just dumb like you."'
+		'"If your fear is greater than your horniness, then you must be constantly wetting yourself!"'
+		*nl
+		'She whips around, smacking you hard with a pillow. You cackle with glee, laughing harder as her blows pick up speed and force, but she never stops grinning so you know she can''t be that mad.'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+end
+
+if $ARGS[0] = 'sex_toys':
+	gs 'stat'
+	cla & *clr
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/talk/anal_dildo.jpg"></center>'
+	'"My mom is always leaving condoms in my room trying to get me to be safe but I hate fucking with a rubber," Albina rolls her eyes. "If I''m gonna take a cock, I want to feel the cock, you know what I mean? But lately I''ve started using the condoms on my dildos instead. Saves me a lot of clean up, especially when I do anal with them."'
+	gs 'albina_sex_chat', 'sex_talk'
+end
+
+if $ARGS[0] = 'lesbian_talk1':
+	if npc_sex['A23'] = 1:
+		'"Have you ever done it with another girl before?" Albina ask you. You raise an eyebrow and she rolls her eyes. "<i>Besides</i> me, obviously."'
+	else
+		'"Have you ever done it with another girl before?" Albina ask you.'
+	end
+	
+!!	if lesbian = 0:
+!!	hornguy6 - not using the variable because I don''t trust it to be seeded correctly
+!!	leaving it up to the player to be honest
+	if npc_sex['A23'] = 1:
+		act'Just you':
+			cla & *nl
+			'"Just you," you say.'
+			'"Me too," she replies, a faint blush coloring her cheeks. "What''s your favorite part about fucking me?"'
+			gs 'albina_sex_chat', 'lesbian_talk2'
+		end
+	else
+		act'No':
+			cla & *nl
+			'"Can''t say I have," you shake your head.'
+			'"Oh. Never mind then," she says turning away from you, a faint blush coloring her cheeks.'
+			act'Keep talking': cla & gs 'albina_sex_chat', 'sex_talk'
+!!			act'Did you want to try?':
+				
+!!			end
+		end
+	end
+end
+
+if $ARGS[0] = 'lesbian_talk2':
+	act'I like your taste':
+		cla & *nl
+		'"I like the way your pussy tastes," you say, licking your lips. Albina shamelessly grins back at you.'
+		'"I like the way I taste too. But you''re pretty tasty yourself."'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	act'You''re good at eating pussy':
+		cla & *nl
+		'"When you eat me out," you grin. "How''d you get so good at eating pussy?"'
+		'"I don''t really think about it," she shrugs, but you can tell she''s feeling smug about the compliment. "I''m having too much fun. Maybe I''m good because I like it so much."'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+end
+
+if $ARGS[0] = 'lesbian_talk3':
+
+end
+
+if $ARGS[0] = 'anal':
+	menu_off = 1
+	gs 'stat'
+	cla & *clr
+	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+	'"So..." you ask sheepishly. "... What is it you like about anal?"'
+	'She gives you a dry look. "And why do you want to know?"'
+	act 'I was just curious':
+		cla & *clr
+		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+		'Oh, it''s just..." You stutter, flustered by her response. "You know there''s... stuff going around school about you?"'
+		'"Oh I know all about that," she says, rolling her eyes.'
+		*nl
+		'"''Albina is just a cheap buttslut whore.'' '
+		'''I bet Albina''s asshole is looser than Lizeveta''s lips!'' '
+		'''I would fuck Albina''s asshole while slapping her juicy cheeks like I''m playing some bongos!'' '
+		'''I bet her pussy is tighter than a nun''s but her asshole could fit an onion!'' '
+		*nl
+		'"I''ve heard it all, but none of the perverted fucking cowards dare mention them in front of me. I just like anal, okay?! I don''t even know why I''m justifying my sex life to you!"'
+		*nl
+		'You''ve clearly hit a nerve and quickly back off, not wanting to get hit yourself.'
+		gs 'albina_sex_chat', 'sex_talk'
+	end
+	
+	if stat['anal'] = 0:
+		act 'I want to try it (shy)':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+			'"Well..." you stammer. "I... I want to try it and..."'
+			'Albina gives you a hard stare. "And you thought to ask the school buttslut how to do it?"'
+			'You stutter trying to form an answer, and she breaks into laughter.'
+			'"Relax <<$pcs_nickname>>, I''m just fucking with you. What do you want to know?"'
+			*nl
+			gs 'albina_sex_chat', 'anal_questions_shy'
+		end
+		
+		act 'I want to try it (open)':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+			'"Cause I want to try it," you say and Albina gives you a hard stare.'
+			'"So you thought you should ask the class buttslut about it?"'
+			'"Yeah," you grin without flinching and Albina laughs heartily.'
+			'"Damn <<$pcs_nickname>>! I can''t even scare you for a second, can I? Well, you''re asking the right girl. What do you want to know?"'
+			gs 'albina_sex_chat', 'anal_questions_open'
+		end
+	else
+		act 'I was looking for some advice (shy)':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+			'"Well... I- I''ve tried it a few times..." you stammer. "But it''s always been... painful... So I thought could ask-"'
+			'"The class buttslut about it?" she asks, giving you a hard stare. You sputter, trying to come up with an answer that will get you out of this before she breaks into laughter.'
+			'"Relax <<$pcs_nickname>>, I''m just fucking with you. What do you want to know?"'
+			gs 'albina_sex_chat', 'anal_questions_shy'
+		end
+
+		act 'I was looking for some advice (open)':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/albina/albinatalk.jpg"></center>'
+			'"I''ve tried anal a few times, but it''s always painful and not very enjoyable," you explain. "So I thought-"'
+			'"You could ask the class buttslut about it and she''d tell you all about how to get your asshole ravaged by cock?" she asks, glaring at you.'
+			'"Well... Yeah," you grin. "Is there a better person to ask than you?"'
+			'Albina laughs heartily and grins back at you.'
+			'"No, you''re probably right about that. I''m the queen of buttfucking. So what is it you want to know?"'
+			gs 'albina_sex_chat', 'anal_questions_open'
+		end
+	end
+end
+
+if $ARGS[0] = 'anal_questions_shy':
+	if stat['anal'] = 0:
+		act 'Where do I start?':
+			cla & *nl
+			'"Well..." you mumble. "Where do I even start?"'
+			'She nods. "Humble question. Good. Too many girls try to get ahead of themselves with this kind of thing. My advice? Start small."'
+			gs 'albina_sex_chat', 'anal_end1'
+		end
+		
+		act 'What position?':
+			cla & *nl
+			'"What... position should I have my first time in?" you ask shyly.'
+			'"You''re getting way too far ahead of yourself, <<$pcs_nickname>>. Here''s my advice: Start small," she replies.'
+			gs 'albina_sex_chat', 'anal_end1'
+		end
+		
+		act 'Does it hurt?':
+			cla & *nl
+			'"Does it hurt?" you ask shyly.'
+			'She smiles in reponse. "Oh man, if you''re asking that then you''re <i>definitely</i> not ready. Here''s my advice: Start small."'
+			gs 'albina_sex_chat', 'anal_end1'
+		end
+	else
+		act 'How do you enjoy it?':
+			cla & *nl
+			'"How do you... enjoy it?" you ask, cringing at how badly you phrased it.'
+			'"You mean how do I manage to orgasm while my asshole is getting plowed like a field?" she asks in return.'
+			gs 'albina_sex_chat', 'anal_end2'
+		end
+	end
+end
+
+if $ARGS[0] = 'anal_questions_open':
+	if stat['anal'] = 0:
+		act 'Where do I start?':
+			cla & *nl
+			'"Where do I even start?" you ask.'
+			'She nods. "Humble question. Too many girls try to get ahead of themselves with this kind of thing. My advice? Start small."'
+			gs 'albina_sex_chat', 'anal_end1'
+		end
+		
+		act 'What''s the best position?':
+			cla & *nl
+			'"What''s the best position to try it in?" you ask excitedly. "Cowgirl seems hard, but doggy seems like it could be rough. I was won-"'
+			'She holds her hand up and interrupts you. "You''re getting way too far ahead of yourself, <<$pcs_nickname>>. Here''s my advice: Start small."'
+			gs 'albina_sex_chat', 'anal_end1'
+		end
+	else
+		act 'How do you enjoy it?':
+			cla & *nl
+			'"How do you enjoy it?" you ask, cringing at the memories of your past experiences.'
+			'"You mean how do I manage to orgasm while my asshole is getting plowed like a field?" she asks in return.'
+			'"Yeah. It''s always too painful for me. I can''t even get wet."'
+			gs 'albina_sex_chat', 'anal_end2'
+		end
+	end
+end
+
+if $ARGS[0] = 'anal2':
+	'"Try playing with your asshole while masturbating, just get used to something touching you down there. If you''re feeling brave, try a finger up to your knuckle right when you''re about to cum. Then next time try one from the start. Or a small dildo with lots of lube. Or better yet, a butt plug. Then you can practice all day," she smirks. "Find out what works for you and <i>then</i> try it with real dick, otherwise it''ll be <i>very</i> painful and could put you off trying it again."'
+	gs 'albina_sex_chat', 'anal_end1'
+end
+
+if $ARGS[0] = 'anal_end1':
+	*nl
+	'You thank her for her helpful advice and she continues answering your questions and giving you all the advice she feels you need to know.'
+	'"And, if you need some <i>hands on</i> teaching... you know you can always come here," she says, shamelessly eye fucking you.'
+	gs 'albina_sex_chat', 'sex_talk'
+end
+
+if $ARGS[0] = 'anal_end2':
+	'"One word," she says, holding up her finger. "Practice. Your mistake was going straight for a real dick. That''s a big no no. Practice with your fingers or a small dildo first to see what works for you. Some girls like it slow and gentle, others like it fast and rough. Just keep practicing and getting used to it. And relax. It will always be a little painful, but it will become more pleasurable the more you do it, especially when you get better at controlling the instinctive reflex to clench around what''s inside you, whether that be a dildo or a fat cock."'
+	'She grins at you. "If you ever want a <i>hands on</i> lesson, then I''m willing to ''teach'' you some things..."'
+	gs 'albina_sex_chat', 'sex_talk'
+end
+
+
+--- albina_sex_chat ---------------------------------

+ 3 - 3
locations/anushka_konstantinov_schedule.qsrc

@@ -144,9 +144,9 @@ if $ARGS[0] = 'journal':
 	end
 	!anushka_konstantinov_schedule_journal & *nl
 	if anushkaQW['kiss'] <= 5:
-		$anushka_konstantinov_schedule_journal & 'I think Anushka is really pretty and I would like to be more than just friends with her. Maybe I should try kissing her in bed, until she is ready to do more than just kiss.'
-	elseif anushkaQW['kiss'] <= 5:
-		$anushka_konstantinov_schedule_journal & 'Anushka is really pretty, I think I definitely want to go further than kissing with her.'
+		$anushka_konstantinov_schedule_journal & 'I think Anushka is really pretty and I would like to be more than just friends with her. Hopefully she will do more if we have done enough kissing.'
+	elseif anushkaQW['kiss'] > 5:
+		$anushka_konstantinov_schedule_journal & 'Anushka is really pretty, I think I definitely want to go further than just kissing.'
 	end
 
 end

+ 9 - 0
locations/arousal_oneline.qsrc

@@ -0,0 +1,9 @@
+# arousal_oneline
+
+!! For use only for one of arousal calls and not to be used in larger scenes, includes the 'end' call
+
+gs 'arousal', $ARGS[0], $ARGS[1], $ARGS[2], $ARGS[3], $ARGS[4], $ARGS[5], $ARGS[6], $ARGS[7], $ARGS[8], $ARGS[9]
+gs 'arousal', 'end'
+
+--- arousal_oneline ---------------------------------
+

+ 53 - 7
locations/budgetclothes.qsrc

@@ -452,6 +452,11 @@ if $ARGS[0] = 'shoes':
 	menu_off = 0
 	*clr & cla
 	gs'stat'
+	'<center><b><font color="maroon">Viewing G&M shoes</font></b></center>'
+	*nl
+
+	gs 'shoes', 'shop_filter_header'
+
 
 	act 'Return':
 		cla
@@ -459,11 +464,28 @@ if $ARGS[0] = 'shoes':
 		gt 'budgetclothes', 'start'
 	end
 
-	i = 1
-	:loopgm_shoes
-		if gm_shoe[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''budget_shoes''"><img src="images/pc/items/gm/shoes/<<i>>.jpg" height="250" /></a>'
-		i += 1
-	if i <= 30:jump 'loopgm_shoes'
+	!!To filter just this set
+	clo_i = 0
+	:loopshoequality_filter
+
+		i = 1
+		:loopgm_shoes
+			if gm_shoe[i] = 0:
+				gs 'shoe_attributes', 'gm', i
+				gs 'shoes', 'shoe_filter'
+				if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+					if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+						*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''budget_shoes''"><img src="images/pc/items/gm/shoes/<<i>>.jpg" height="250" /></a>'
+					end
+				end
+			end
+			i += 1
+		if i <= 30:jump 'loopgm_shoes'
+
+	clo_i += 1
+	if Shofilter['quality'] = 0 and clo_i <= 7:
+		jump 'loopshoequality_filter'
+	end
 end
 
 if $ARGS[0] = 'budget_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'gm',i, 700
@@ -524,6 +546,10 @@ if $ARGS[0] = 'panties':
 	menu_off = 0
 	*clr & cla
 	gs'stat'
+	'<center><b><font color="maroon">Viewing G&M panties</font></b></center>'
+	*nl
+
+	gs 'panties', 'shop_filter_header'
 
 	act 'Return':
 		cla
@@ -533,7 +559,15 @@ if $ARGS[0] = 'panties':
 
 	i = 1
 	:looppanties
-		if gm_panties[i] = 0:*p '<a href="exec: gt ''panties'', ''view_panty_item'', ''shop'', ''gm'', <<i>>, 300"><img src="images/pc/items/gm/panties/<<i>>.jpg" 	height="150" /></a>'
+		if gm_panties[i] = 0:
+			gs 'underwear_attributes', 'gm', i
+			gs 'panties', 'panty_filter'
+			if (clothingfilter['quality'] = 0 and PanQuality = clo_i) or clothingfilter['number'] = 0:
+				if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1:
+					*p '<a href="exec: gt ''panties'', ''view_panty_item'', ''shop'', ''gm'', <<i>>, 300"><img src="images/pc/items/gm/panties/<<i>>.jpg" 	height="150" /></a>'
+				end
+			end
+		end
 		i += 1
 		if i = 7: i = 8
 		if i = 9: i = 10
@@ -550,6 +584,10 @@ if $ARGS[0] = 'bras':
 	$loc = 'budgetclothes'
 	*clr & cla
 	gs'stat'
+	'<center><b><font color="maroon">Viewing G&M bras</font></b></center>'
+	*nl
+
+	gs 'bras', 'shop_filter_header'
 
 	act 'Return':
 		cla
@@ -559,7 +597,15 @@ if $ARGS[0] = 'bras':
 
 	i = 1
 	:loopbras
-		if gm_bras[i] = 0:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''shop'', ''gm'', <<i>>, 300"><img src="images/pc/items/gm/bras/<<i>>.jpg" 	height="150" /></a>'
+		if gm_bras[i] = 0:
+			gs 'underwear_attributes', 'gm', i
+			gs 'bras', 'bra_filter'
+			if (clothingfilter['quality'] = 0 and BraQuality = clo_i) or clothingfilter['number'] = 0:
+				if clothingfilter['inc'] = 1 and clothingfilter['only'] = 1:
+					*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''shop'', ''gm'', <<i>>, 300"><img src="images/pc/items/gm/bras/<<i>>.jpg" 	height="150" /></a>'
+				end
+			end
+		end
 		i += 1
 		if i = 11: i = 13
 		if i = 16: i = 17

+ 1 - 4
locations/city_industrial.qsrc

@@ -3,12 +3,9 @@
 ! 14-09-22 Added Metro link to navigation line 49
 
 if $ARGS[0] = '':
-	$loc_arg = ''
-	$loc = 'city_industrial'
+	gs 'shortgs', 'setloc', 'city_industrial', $ARGS[0]
 	$region = 'city'
 	$location_type = 'public_outdoors'
-	$menu_loc = 'city_industrial'
-	$menu_arg = ''
 	menu_off = 0
 	CLOSE ALL
 	if sound = 0:

+ 2 - 5
locations/city_residential.qsrc

@@ -4,12 +4,9 @@
 
 music_loop = 0
 CLOSE ALL
-$loc_arg = ''
-$loc = 'city_residential'
-$region = 'city'
+gs 'shortgs', 'setloc', 'city_residential', $ARGS[0]
 $location_type = 'public_outdoors'
-$menu_loc = 'city_residential'
-$menu_arg = ''
+$region = 'city'
 menu_off = 0
 killvar '$locclass'
 

+ 48 - 31
locations/emp_functions.qsrc

@@ -191,11 +191,11 @@ if $ARGS[0] = 'disp_evt':
 		'I have this job for you do you want to acccept it?'
 		*nl
 		'Event Scheduled for: ' + transient_evt_day + $evt_suffix + ', '+ $monthName[transient_evt_month] +' '+ '20' + transient_evt_year
-		'Job: ' + $evt_job[transient_evt_type]  			
+		'Job: ' + $evt_job[transient_evt_type] 			
 		'Pay: ' + func('agentned', 'format_price_string', transient_evt_wages)
 		'Time: ' + transient_evt_hour + ':' +  iif(transient_evt_minutes  >= 0 and transient_evt_minutes <= 4, '00',  '30')
 		'Duration: ' + transient_evt_duration  + iif(transient_evt_duration  = 1, ' hour',  ' hours')
-		'Location reminder: ' + $transient_mc_locat
+		'Location: ' + $transient_journal
 		'Job Details: ' + $transient_desc
 		
 		act 'Accept the job' : gs 'emp_functions', 'cat_evt'
@@ -207,29 +207,30 @@ if $ARGS[0] = 'disp_evt':
 
 	!! create table for all jobs:
 	if ARGS[1] = 2:	
-		if evt_event[0] ! '':			
+		if arrsize('evt_event') > 0:			
 			killvar '$evtbody'
-			job_idx = 0		
+			job_idx = 0				
 			*nl
 			:jmp_list_create
-				!!if evt_silent[job_idx] = 1:
+				if evt_silent[job_idx] = 1:
+					gs 'emp_functions','evt_day_suffix',evt_day[job_idx]
 					$evtbody += '<tr><td>' +$week[evt_dow[job_idx]]+' '+ evt_day[job_idx] + $evt_suffix + ', '+ $monthName[evt_month[job_idx]] +' 20'+ evt_year[job_idx] + '</td><td>' + $evt_job[evt_event[job_idx]] + '</td>' 
 					$evtbody += '<td>' + func('agentned', 'format_price_string', evt_wages[job_idx]) + '₽</td><td>' + evt_hour[job_idx] + ':' +  iif(evt_minutes[job_idx] >= 0 and evt_minutes[job_idx] <= 4, '00', '30') + '</td>'
-					$evtbody += '<td>' + evt_duration[job_idx] + iif(evt_duration[job_idx]  = 1, ' hour',  ' hours') + '</td><td>' + $evt_mc_locat[job_idx] + '</td>'
+					$evtbody += '<td>' + evt_duration[job_idx] + iif(evt_duration[job_idx]  = 1, ' hour',  ' hours') + '</td><td>' + $evt_journal[job_idx] + '</td>'
 					$evtbody += '<td><a  href="exec: gs ''emp_functions'',''del_evt'', 2, <<job_idx>>"><img src="images\system\icons\evt_del.png"></a></a></td></tr>'
-				!!end
+				end
 				job_idx += 1
-				if job_idx < arrsize('evt_event') : jump 'jmp_list_create'
-				!!if evt_silent[job_idx] = 1: 
-					'<center><h2>Current Task List</h2></center>'		
-					$evtheader = '<tr><th>Date</th><th>Task</th><th>Pay</th><th>Time</th><th>Duration</th><th>Location</th><th>Cancel Job</th></tr>'
-					'<center><table width="90%" align="center" width="90%" cellspacing="5" cellpadding="5" valign="top"><tr><<$evtheader>><<$evtbody>></tr></table></center>'
-				!!end
+				if job_idx < arrsize('evt_event') : jump 'jmp_list_create' 
+			if $evtbody ! '': 
+				'<center><h2>Current Task List</h2></center>'		
+				$evtheader = '<tr><th>Date</th><th>Task</th><th>Pay</th><th>Time</th><th>Duration</th><th>Location</th><th>Cancel Job</th></tr>'
+				'<center><table width="90%" align="center" width="90%" cellspacing="5" cellpadding="5" valign="top"><tr><<$evtheader>><<$evtbody>></tr></table></center>'
 				killvar '$evtbody'
 				killvar '$evtheader'
 			else
 				'You haven''t taken on any jobs yet.'
 			end
+		end
 	end
 	
 	!! Display the location acts
@@ -249,7 +250,9 @@ if $ARGS[0] = 'disp_evt':
 		if ((evt_hour[act_idx] = hour and evt_minutes[act_idx] <= minut) or evt_hour[act_idx] = (hour - 1)) and $loc = $evt_loc[act_idx]:
 			act 'Attend your ' + $evt_job[evt_event[act_idx]] + ' event':
 				gs 'emp_functions', 'array_init'
-				if $evt_trigger_exec ! '':
+				if evt_event = 1:
+					gt 'photography_work', 'evt_stage'
+				elseif $evt_trigger_exec ! '':
 					gt $evt_trigger_exec[act_idx], $evt_trigger[act_idx]
 				else
 					gt $evt_loc[act_idx], $evt_loc_arg[act_idx]
@@ -294,8 +297,9 @@ if $ARGS[0] = 'gen_evt':
 	transient_evt_minutes = rand(0, 9)
 	
 	!! Set as multiples of 60 	
-	transient_evt_duration = rand(1,8)
-	
+	if transient_evt_duration = '':
+		transient_evt_duration = rand(1,8)
+	end
 	!! logic check for when randomising event duration
 	
 	if transient_evt_duration + transient_evt_hour >= 22:
@@ -362,10 +366,10 @@ if $ARGS[0] = 'cat_evt':
 	!! Create global variables for the current live event.
 	!! Use 0 to create hidden events, 1 to show in journal
 	evt_silent[] = transient_evt_silent
-	!! Event type used in Journal
-	evt_event[] = transient_evt_type
-	!! Additional ID if required 
-	evt_event_sub[] = transient_evt_sub_type 
+	!! Event job descriptor used in Journal
+	evt_event[] = transient_evt
+	!! Additional job ID if required 
+	evt_event_sub[] = transient_evt_sub
 	!! Day of Week used in Journal and content areas
 	evt_dow[] = transient_evt_dow
 	!! Event Date to check against current date & used in Journal and content areas
@@ -383,7 +387,7 @@ if $ARGS[0] = 'cat_evt':
 	!! How much wages, generated or manual using function
 	evt_wages[] = transient_evt_wages
 	!! Journal location as reminder
-	$evt_mc_locat[] = $transient_mc_locat
+	$evt_journal[] = $transient_journal
 	!! The following are event location triggers to allow the content to appear in areas such as community centre but host their content elsewhere such as Photography shop
 	!! 	Event area triggers such as city_residential
 	$evt_loc[] = $transient_loc
@@ -473,24 +477,37 @@ if $ARGS[0] = 'evt_day_suffix':
 	else
 		query_day = transient_evt_day
 	end
-	if query_day => 20 and query_day <= 29:
+	if query_day => 20 and query_day < 30:
 		test_day = query_day - 20
 	else
 		test_day = query_day
 	end
-
-	if (test_day => 4 and test_day <= 10) or (day => 4 and day <=10):
-		$evt_suffix = 'th'
-	elseif (test_day = 1 or test_day = 31) or (day = 1 or day = 21 or day = 31):
-		$evt_suffix = 'st'
-	elseif (test_day = 2) or (day = 2 or day = 22):
-		$evt_suffix = 'nd'    
+	if transient_evt_day ! '':
+		if test_day => 4 and test_day <= 10:
+			$evt_suffix = 'th'
+		elseif test_day = 1 or test_day = 31:
+			$evt_suffix = 'st'
+		elseif test_day = 2:
+			$evt_suffix = 'nd'    
+		elseif test_day= 3: 
+			$evt_suffix = 'rd'
+		else
+			$evt_suffix = 'th'
+		end
+	end
+	if day => 4 and day <=10:
+		$date_suffix = 'th'
+	elseif day = 1 or day = 21 or day = 31:
+		$date_suffix = 'st'
+	elseif day = 2 or day = 22:
+		$date_suffix = 'nd'    
 	elseif test_day= 3: 
-		$evt_suffix = 'rd'
+		$date_suffix = 'rd'
 	else
-		$evt_suffix = 'th'
+		$date_suffix = 'th'
 	end
 
+
 	killvar 'test_day'
 	killvar 'query_day'
 end

+ 152 - 47
locations/gschool_chats.qsrc

@@ -41,25 +41,68 @@ if $ARGS[0] = 'nerds':
 				*nl
 				gs 'gschool_groups', 'nerds'
 			elseif PCloSkirt < 5 and PCloThinness < 5 and PCloBra = 0:
-				gs 'npc_relationship', 'modify', 'A12', 'like'
-				gs 'npc_relationship', 'modify', 'A16', 'like'
-				if grupTipe = 3:
-					'You go to the classroom that you and your fellow nerds like to gather in and find them all clustered around a table talking and engaged in a variety of pet projects. Natasha notices your uniform. "Oh I like your uniform, it''s very pretty. Don''t you think?" She nudges Julia, who looks at you and blushes. "Yes, very pretty..." she says in agreement.'
+				if PCloInhibit >= 30 or PCloTopCut = 4:
+				grupvalue[3] -= 1
+					gs 'gschool_socialchg', 'group_rel_change', 'nerds', -1
+					if soniaPS > 0: gs 'npc_relationship', 'modify', 'A25', 'like'
+					gs 'npc_relationship', 'modify', 'A159', 'like'
+					if grupTipe = 3:
+					if grupTipe = 3:
+						'You enter the classroom that you and your fellow nerds like to hang out in and find them, as usual, all gathered around a table talking and engaging in various hobby projects. A few of them look up as you walk closer. Feofan and Artem are struggling to conceal their disapproving stares about your chosen uniform while Julia''s eyes seem to linger on your attire for just a bit longer; you don''t feel her gaze is all that welcoming either.'
+					else
+						'You go to the classrooms that the nerdy students like to hang out in and find them, as always, all nerding around a table talking and engaging in various personal projects. Several of them look up as you walk closer. Artem and Petka both seem to be struggling to hide their judgmental stares about your choice of uniform and you don''t find the look Julia has in her eyes all that comforting either.'
+					end
+				elseif CloStyle = 2:
+					grupvalue[3] -= 1
+					gs 'gschool_socialchg', 'group_rel_change', 'nerds', -1
+					gs 'gschool_socialchg', 'group_rel_change', 'nerds', -1
+					if grupTipe = 3:
+						'You enter the classroom that you and your fellow nerds like to hang out in and find them, as usual, all gathered around a table talking and engaging in various hobby projects. A few of them look up as you walk closer. Feofan and Artem are struggling to conceal their disapproving stares about your chosen uniform while Julia''s eyes seem to linger on you a fraction longer but you can see that she''s wary of you and doesn''t approve of your attire and her gaze is all that welcoming either.'
+					else
+						'You go to the classrooms that the nerdy students like to hang out in and find them, as usual, all gathered around a table talking and engaging in various hobby projects. A few of them look up as you walk closer. Feofan and Artem are struggling to conceal their disapproving stares about your chosen uniform while Julia''s eyes seem to linger on you a fraction longer but you can see that she''s wary of you and doesn''t approve of your attire and her gaze is all that welcoming either.'
+					end
 				else
-					'You go to one of the classrooms that the nerds like to gather in and find them all clustered around a table talking and engaged in a variety of pet projects. Natasha notices your uniform. "Oh I like your uniform, it''s very pretty. Don''t you think?" She nudges Julia, who looks at you and blushes. "Yes, very pretty..." she says in agreement.'
+					gs 'npc_relationship', 'modify', 'A12', 'like'
+					gs 'npc_relationship', 'modify', 'A16', 'like'
+					if grupTipe = 3:
+						'You go to the classroom that you and your fellow nerds like to gather in and find them all clustered around a table talking and engaged in a variety of pet projects. Natasha notices your uniform. "Oh I like your uniform, it''s very pretty. Don''t you think?" She nudges Julia, who looks at you and blushes. "Yes, very pretty..." she says in agreement. You notice that she seems to struggle to look away.'
+					else
+						'You go to one of the classrooms that the nerds like to gather in and find them all clustered around a table talking and engaged in a variety of pet projects. Natasha notices your uniform. "Oh I like your uniform, it''s very pretty. Don''t you think?" She nudges Julia, who looks at you and blushes. "Yes, very pretty..." she says in agreement. You notice that her eyes remain on you for a few extra moments.'
+					end
+					'Artem, Petka, Julia, Natasha, Zinaida, Evgeny, Feofan and Gerasim are sitting around some tables they''ve moved together.'
 				end
-				'Artem, Petka, Julia, Natasha, Zinaida, Evgeny, Feofan and Gerasim are sitting around some tables they''ve moved together.'
 				*nl
 				gs 'gschool_groups', 'nerds'
 			elseif PCloSkirt = 5 and PCloThinness < 5 and PCloBra = 0:
-				grupvalue[3] -= 1
-				gs 'gschool_socialchg', 'group_rel_change', 'nerds', -1
-				if soniaPS > 0: gs 'npc_relationship', 'modify', 'A25', 'like'
-				gs 'npc_relationship', 'modify', 'A159', 'like'
-				if grupTipe = 3:
-					'You enter the classroom that you and your fellow nerds like to hang out in and find them, as usual, all gathered around a table talking and engaging in various hobby projects. A few of them look up as you walk closer. Feofan and Artem are struggling to conceal their disapproving stares about your choosen uniform while Julia''s eyes seem to linger on your attire for just a bit longer; you don''t feel her gaze is all that welcoming either.'
+				if PCloInhibit >= 35:
+					grupvalue[3] -= 1
+					gs 'gschool_socialchg', 'group_rel_change', 'nerds', -1
+					if soniaPS > 0: gs 'npc_relationship', 'modify', 'A25', 'like'
+					gs 'npc_relationship', 'modify', 'A159', 'like'
+					if grupTipe = 3:
+						'You enter the classroom that you and your fellow nerds like to hang out in and find them, as usual, all gathered around a table talking and engaging in various hobby projects. A few of them look up as you walk closer. Feofan and Artem are struggling to conceal their disapproving stares about your chosen uniform while Julia''s eyes seem to linger on your attire for just a bit longer; you don''t feel her gaze is all that welcoming either.'
+					else
+						'You go to the classrooms that the nerdy students like to hang out in and find them, as always, all nerding around a table talking and engaging in various personal projects. Several of them look up as you walk closer. Artem and Petka both seem to be struggling to hide their judgmental stares about your choice of uniform and you don''t find the look Julia has in her eyes all that comforting either.'
+					end
+				elseif CloStyle = 2:
+					grupvalue[3] -= 1
+					gs 'gschool_socialchg', 'group_rel_change', 'nerds', -1
+					gs 'gschool_socialchg', 'group_rel_change', 'nerds', -1
+					if grupTipe = 3:
+						'You enter the classroom that you and your fellow nerds like to hang out in and find them, as usual, all gathered around a table talking and engaging in various hobby projects. A few of them look up as you walk closer. Feofan and Artem are struggling to conceal their disapproving stares about your chosen uniform while Julia''s eyes seem to linger on you a fraction longer but you can see that she''s wary of you and doesn''t approve of your attire and her gaze is all that welcoming either.'
+					else
+						'You go to the classrooms that the nerdy students like to hang out in and find them, as usual, all gathered around a table talking and engaging in various hobby projects. A few of them look up as you walk closer. Feofan and Artem are struggling to conceal their disapproving stares about your chosen uniform while Julia''s eyes seem to linger on you a fraction longer but you can see that she''s wary of you and doesn''t approve of your attire and her gaze is all that welcoming either.'
+					end
 				else
-					'You go to the classrooms that the nerdy students like to hang out in and find them, as always, all nerding around a table talking and engaging in various personal projects. Several of them look up as you walk closer. Artem and Petka both seem to be struggling to hide their judgmental stares about your choice of uniform and you don''t find the look Julia has in her eyes all that comforting either.'
+					grupvalue[3] -= 1
+					gs 'gschool_socialchg', 'group_rel_change', 'nerds', -1
+					if soniaPS > 0: gs 'npc_relationship', 'modify', 'A25', 'like'
+					gs 'npc_relationship', 'modify', 'A159', 'like'
+					if grupTipe = 3:
+						'You enter the classroom that you and your fellow nerds like to hang out in and find them, as usual, all gathered around a table talking and engaging in various hobby projects. A few of them look up as you walk closer. Feofan and Artem are struggling to conceal their disapproving stares about your chosen uniform while Julia''s eyes seem to linger on your attire for just a bit longer; you don''t feel her gaze is all that welcoming either.'
+					else
+						'You go to the classrooms that the nerdy students like to hang out in and find them, as always, all nerding around a table talking and engaging in various personal projects. Several of them look up as you walk closer. Artem and Petka both seem to be struggling to hide their judgmental stares about your choice of uniform and you don''t find the look Julia has in her eyes all that comforting either.'
+					end
 				end
 				*nl
 				gs 'gschool_groups', 'nerds'
@@ -138,14 +181,19 @@ if $ARGS[0] = 'gopniks':
 				gs 'gschool_groups', 'gopniks'
 				act 'Leave': gt 'gschool_lessons', 'short_break'
 			elseif PCloSkirt < 5 and PCloThinness < 5 and PCloBra = 0:
-				if grupTipe = 4:
-					'You head to the stairwell that you and your fellow gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations.'
-				else
-					'You head to the stairwell that the gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations.'
-				end
-				if CloStyle = 2:
+				if PCloInhibit >= 30 or PCloTopCut = 4:
+					grupvalue[4] += 5
+					'You head to the stairwell that the gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations. As you approach, Dan stands up and whistles. "Hey it looks like there''s a wannabe slut approaching. Maybe I''ll ask you to you come over here and suck my dick?" Several of the other gopniks laugh and a few of the guys comment as well. "Hey Dan, it might be your lucky day! I''m just surprised she''s not heading my way," Radomir says. You feel yourself getting a little nervous around them dressed the way you are and think that they might actually try something. After all no one other than a gopnik comes down to this end of the school at this time of the day without a good reason so you''d be on your own if they do.'
+				elseif CloStyle = 2:
 					grupvalue[4] += 5
 					'There are some nods of approval and positive comments made about your rebelious uniform style.'
+				else
+					if grupTipe = 4:
+						'You head to the stairwell that you and your fellow gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations.'
+					else
+						'You head to the stairwell that the gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations.'
+					end
+					'Artem, Petka, Julia, Natasha, Zinaida, Evgeny, Feofan and Gerasim are sitting around some tables they''ve moved together.'
 				end
 				'Vitek, Dan, Vasily, Lena, Lera, Pauline, Alyona, Anushka, Ekaterina, Radomir, Lavrenti, Arkadi, Roman, Valentin and Niko are hanging around.'
 				gs 'gschool_groups', 'gopniks'
@@ -156,11 +204,19 @@ if $ARGS[0] = 'gopniks':
 				gs 'npc_relationship', 'modify', 'A143', 'like'
 				gs 'npc_relationship', 'modify', 'A144', 'love'
 				gs 'npc_relationship', 'modify', 'A189', 'like'
-				if grupTipe = 4:
-					'You head to the stairwell that you and your fellow gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations. A few of them take note of your slightly risky uniform and seem to approve of it.'
+				if PCloInhibit >= 35:
+					'You head to the stairwell that the gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations. As you approach, Dan stands up and whistles. "Hey it looks like there''s a wannabe slut approaching. Maybe I''ll ask you to you come over here and suck my dick?" Several of the other gopniks laugh and a few of the guys comment as well. "Hey Dan, it might be your lucky day! I''m just surprised she''s not heading my way," Radomir says. You feel yourself getting a little nervous around them dressed the way you are and think that they might actually try something. After all no one other than a gopnik comes down to this end of the school at this time of the day without a good reason so you''d be on your own if they do.'
+				elseif CloStyle = 2:
+					grupvalue[4] += 5
+					'There are some nods of approval and positive comments made about your rebelious uniform style.'
 				else
-					'You head to the stairwell that the gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations. A few of them take note of your slightly risky uniform and seem to approve of it.'
+					if grupTipe = 4:
+						'You head to the stairwell that you and your fellow gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations. A few of them take note of your slightly risky uniform and seem to approve of it.'
+					else
+						'You head to the stairwell that the gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations. A few of them take note of your slightly risky uniform and seem to approve of it.'
+					end
 				end
+				*nl
 				'Vitek, Dan, Vasily, Lena, Lera, Pauline, Alyona, Anushka, Ekaterina, Radomir, Lavrenti, Arkadi, Roman, Valentin and Niko are hanging around.'
 				gs 'gschool_groups', 'gopniks'
 				act 'Leave': gt 'gschool_lessons', 'short_break'
@@ -174,7 +230,7 @@ if $ARGS[0] = 'gopniks':
 					pcs_mood -= 10
 					gs 'stat'
 					
-					'You head to the stairwell that '+iif(grupTipe = 4,'you and your fellow','the')+' gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations. As you approach, Dan stands up and whistles. "Hey there, slut. Why don''t you come over here and suck my dick?" Several of the other gopniks laugh and a few of the guys comment about being next in line. You feel yourself getting very nervous around them dressed the way you are and fear they might actually try something. No one comes down to this end of the school at this time of the day after all.'
+					'You head to the stairwell that '+iif(grupTipe = 4,'you and your fellow','the')+' gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations. As you approach, Dan stands up and whistles. "Hey there, slut. Why don''t you come over here and suck my dick?" Several of the other gopniks laugh and a few of the guys comment about being next in line. You feel yourself getting very nervous around them dressed the way you are and fear they might actually try something. No one comes down to this end of the school at this time of the day after all without a good reason.'
 					*nl
 					'Vitek stands up and shoves Dan up against the wall. "What did you say about my girl?"'
 					'Dan just swallows while everyone else shuts up. "Hey, I was just joking! We all know she''s your girl."'
@@ -188,14 +244,14 @@ if $ARGS[0] = 'gopniks':
 					'You head to the stairwell that '+iif(grupTipe = 4,'you and your fellow','the')+' gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations. As you approach, everyone notices you and when Vitek sees you, he tenses up and angrily walks over to you before grabbing you roughly by the arm and dragging you out of the stairwell. "What did I tell you about coming to school dressed like this? No girl of mine is going to walk around dressed like some slut. Now don''t come back to school dressed like this again!" He roughly shoves you into the wall and storms back to the other gopniks.'
 					act 'Leave': gt 'gschool_lessons', 'short_break'
 				elseif grupTipe = 4:
-					'You head to the stairwell that you and your fellow gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations. As you approach, Dan stands up and whistles. "Hey there, slut. Why don''t you come over here and suck my dick?" Several of the other gopniks laugh and a few of the guys comment about being next in line. You feel yourself getting very nervous around them dressed the way you are and fear they might actually try something. No one comes down to this end of the school at this time of the day after all.'
+					'You head to the stairwell that you and your fellow gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations. As you approach, Dan stands up and whistles. "Hey there, slut. Why don''t you come over here and suck my dick?" Several of the other gopniks laugh and a few of the guys comment about being next in line. You feel yourself getting very nervous around them dressed the way you are and fear they might actually try something. No one comes down to this end of the school at this time of the day after all without a good reason.'
 					gs 'gschool_groups', 'gopniks'
 					act 'Leave': gt 'gschool_lessons', 'short_break'
 				else
 					grupvalue[4] -= 5
 					gs 'fame', 'pav', 'sex', 3
 					
-					'You head to the stairwell that the gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations. As you approach, Dan stands up and whistles. "Hey there, slut. Why don''t you come over here and suck my dick?" Several of the other gopniks laugh and a few of the guys comment as well. "Like she came to see you Dan! She obviously came to throw herself at me," Radomir says. You feel yourself getting very nervous around them dressed the way you are and fear they might actually try something. No one comes down to this end of the school at this time of the day after all.'
+					'You head to the stairwell that the gopniks like to gather in and find them leaning against the wall or sitting on the stairs engaged in a variety of conversations. As you approach, Dan stands up and whistles. "Hey there, slut. Why don''t you come over here and suck my dick?" Several of the other gopniks laugh and a few of the guys comment as well. "Like she came to see you Dan! She obviously came to throw herself at me," Radomir says. You feel yourself getting very nervous around them dressed the way you are and fear they might actually try something. No one comes down to this end of the school at this time of the day after all without a good reason.'
 					gs 'gschool_groups', 'gopniks'
 					act 'Leave': gt 'gschool_lessons', 'short_break'
 				end
@@ -259,7 +315,6 @@ if $ARGS[0] = 'cooljocks':
 				gs 'npc_relationship', 'modify', 'A148', -1
 				gs 'npc_relationship', 'modify', 'A149', -1
 				gs 'npc_relationship', 'modify', 'A165', -1
-				
 				if christinaQW['fight'] = 1 or christinaQW['blackmail'] = 2:
 					'As you approach them, you notice some of them giving you a disapproving look as Lizaveta takes your picture and starts texting, obviously sending the picture around. Vicky smirks before whispering something to Vanya and Katja.'
 				else
@@ -272,10 +327,40 @@ if $ARGS[0] = 'cooljocks':
 				gs 'gschool_groups', 'jocks'
 				act 'Leave': gt 'gschool_lessons', 'short_break'
 			elseif PCloSkirt < 5 and PCloThinness < 5 and PCloBra = 0:
+				if PCloInhibit >= 30 or PCloTopCut = 4:
+					gs 'fame', 'pav', 'sex', 2
+					gs 'gschool_socialchg', 'group_rel_change', 'cool kids', -1
+					grupvalue[1] -= 2
+					gs 'gschool_socialchg', 'group_rel_change', 'jocks', -1
+					grupvalue[2] -= 2
+					gs 'npc_relationship', 'modify', 'A1', 'hate'
+					gs 'npc_relationship', 'modify', 'A17', 'dislike'
+					gs 'npc_relationship', 'modify', 'A18', 'hate'
+					gs 'npc_relationship', 'modify', 'A22', 'hate'
+					if soniaPS = 0: gs 'npc_relationship', 'modify', 'A25', 'like'
+					gs 'npc_relationship', 'modify', 'A139', 'dislike'
+					gs 'npc_relationship', 'modify', 'A140', 'dislike'
+					'As you approach, everyone is staring at you. Irina speaks up. "What on earth are you wearing? Forget to change out of your whoring clothes last night?" Several of the others laugh and you can sense the general feeling of agreement from the rest.'
+					'Dimka smirks. "Maybe she messed up the wash and her uniform shrunk, but she was too stupid to notice?"'
+					'Bella steps forward. "Looks like someone is looking for a good time." You hear several murmurs of agreement from the others. It looks like even Igor, Katja, Vicky, '+iif(npc_grupTipe['A25'] ! 5, 'Sonia, ', '')+'Stasya, Albina, Lizaveta, Marcus, Andrey, Mefodiy, Ivan, '+iif(npc_grupTipe['A5'] ! 5, 'Fedor, ', '')+'Svyatoslav, Christina, Lariska, Lina, Veronika, Lazar, Erast and Vanya appear to agree. They either give you the cold shoulder or refuse to meet your eyes. Feeling very unwelcome, you turn around and leave.'
+				elseif CloStyle = 2:
+					gs 'gschool_socialchg', 'group_rel_change', 'cool kids', -1
+					grupvalue[1] -= 5
+					gs 'gschool_socialchg', 'group_rel_change', 'jocks', -1
+					grupvalue[2] -= 5
+					gs 'npc_relationship', 'modify', 'A1', 'hate'
+					gs 'npc_relationship', 'modify', 'A17', 'dislike'
+					gs 'npc_relationship', 'modify', 'A18', 'hate'
+					gs 'npc_relationship', 'modify', 'A22', 'hate'
+					if soniaPS = 0: gs 'npc_relationship', 'modify', 'A25', 'like'
+					gs 'npc_relationship', 'modify', 'A139', 'dislike'
+					gs 'npc_relationship', 'modify', 'A140', 'dislike'
+					'As you approach them, several of them give you once over, obviously noticing your uniform. "Someone''s trying hard to look tough," Stasya says with a smirk.'
+                    'Hearing this, Bella gives you a closer look. "It wouldn''t be so bad if it was a good quality."'
+                    '"Now Bella, you know her family can''t afford the finer things in life," Dimka adds. If not for the tone of his voice and the smirk, it would almost sound like he was defending you, but it comes across as more of an insult. Igor, Katja, Vicky, Irina, Albina, '+iif(npc_grupTipe['A25'] ! 5, 'Sonia, ', '')+' Lizaveta, Marcus, Andrey, Mefodiy, Ivan, '+iif(npc_grupTipe['A5'] ! 5, 'Fedor, ', '')+'Svyatoslav, Christina, Lariska, Lina, Veronika, Lazar, Erast and Vanya just stay out of it.'
 				if PCloQuality >= 4:
 					grupvalue[1] += 1
 					grupvalue[2] += 1
-					gs 'npc_relationship', 'modify', 'A1', 1
 					gs 'npc_relationship', 'modify', 'A4', 1
 					gs 'npc_relationship', 'modify', 'A14', 1
 					gs 'npc_relationship', 'modify', 'A15', 1
@@ -285,21 +370,47 @@ if $ARGS[0] = 'cooljocks':
 					if soniaPS = 0: gs 'npc_relationship', 'modify', 'A25', 1
 					gs 'npc_relationship', 'modify', 'A139', 1
 					gs 'npc_relationship', 'modify', 'A140', 1
-					
 					'As you approach them, several of them give you approving looks. "Looking good <<$pcs_nickname>>! Where did you buy that uniform?" Stasya comments.' 
 					'"Yeah I like it, it looks very nice," Vicky adds. Katja, Irina, Albina, '+iif(npc_grupTipe['A25'] ! 5, 'Sonia, ', '')+' Lizaveta and Bella all comment on how nice your outfit looks while Dimka, Marcus, Andrey, Mefodiy, Ivan, '+iif(npc_grupTipe['A5'] ! 5, 'Fedor, ', '')+' and Svyatoslav talk among themselves. However, you do notice Igor seems to be somewhat paying attention, maybe at you in particular. Christina just pretends you don''t exist while she talks to Lina and Lariska while Veronika is reading something and seems to be entirely unaware of the conversation.'
-
-					gs 'gschool_groups', 'popular'
-					gs 'gschool_groups', 'jocks'
-					act 'Leave': gt 'gschool_lessons', 'short_break'
 				else
 					'Dimka, Igor, Katja, Vicky, Irina, Albina, '+iif(npc_grupTipe['A25'] ! 5, 'Sonia, ', '')+'Stasya, Lizaveta, Marcus, Andrey, Mefodiy, Ivan, '+iif(npc_grupTipe['A5'] ! 5, 'Fedor, ', '')+'Svyatoslav, Lariska, Christina, Lina, Bella, Veronika, Lazar, Erast and Vanya are all gathered around the lockers.'
-					gs 'gschool_groups', 'popular'
-					gs 'gschool_groups', 'jocks'
-					act 'Leave': gt 'gschool_lessons', 'short_break'
 				end
+				gs 'gschool_groups', 'popular'
+				gs 'gschool_groups', 'jocks'
+				act 'Leave': gt 'gschool_lessons', 'short_break'
 			elseif PCloSkirt = 5 and PCloThinness < 5 and PCloBra = 0:
-				if PCloQuality >= 4:
+				if PCloInhibit >= 35:
+					gs 'fame', 'pav', 'sex', 5
+					gs 'gschool_socialchg', 'group_rel_change', 'cool kids', -1
+					grupvalue[1] -= 5
+					gs 'gschool_socialchg', 'group_rel_change', 'jocks', -1
+					grupvalue[2] -= 5
+					gs 'npc_relationship', 'modify', 'A1', 'hate'
+					gs 'npc_relationship', 'modify', 'A17', 'dislike'
+					gs 'npc_relationship', 'modify', 'A18', 'hate'
+					gs 'npc_relationship', 'modify', 'A22', 'hate'
+					if soniaPS = 0: gs 'npc_relationship', 'modify', 'A25', 'like'
+					gs 'npc_relationship', 'modify', 'A139', 'dislike'
+					gs 'npc_relationship', 'modify', 'A140', 'dislike'
+					'As you approach, everyone is staring at you. Irina speaks up. "What on earth are you wearing? Forget to change out of your whoring clothes last night?" Several of the others laugh and you can sense the general feeling of agreement from the rest.'
+					'Dimka smirks. "Maybe she messed up the wash and her uniform shrunk, but she was too stupid to notice?"'
+					'Bella steps forward. "Looks like someone is looking for a good time." You hear several murmurs of agreement from the others. It looks like even Igor, Katja, Vicky, '+iif(npc_grupTipe['A25'] ! 5, 'Sonia, ', '')+'Stasya, Albina, Lizaveta, Marcus, Andrey, Mefodiy, Ivan, '+iif(npc_grupTipe['A5'] ! 5, 'Fedor, ', '')+'Svyatoslav, Christina, Lariska, Lina, Veronika, Lazar, Erast and Vanya appear to agree. They either give you the cold shoulder or refuse to meet your eyes. Feeling very unwelcome, you turn around and leave.'
+				elseif CloStyle = 2:
+					gs 'gschool_socialchg', 'group_rel_change', 'cool kids', -1
+					grupvalue[1] -= 5
+					gs 'gschool_socialchg', 'group_rel_change', 'jocks', -1
+					grupvalue[2] -= 5
+					gs 'npc_relationship', 'modify', 'A1', 'hate'
+					gs 'npc_relationship', 'modify', 'A17', 'dislike'
+					gs 'npc_relationship', 'modify', 'A18', 'hate'
+					gs 'npc_relationship', 'modify', 'A22', 'hate'
+					if soniaPS = 0: gs 'npc_relationship', 'modify', 'A25', 'like'
+					gs 'npc_relationship', 'modify', 'A139', 'dislike'
+					gs 'npc_relationship', 'modify', 'A140', 'dislike'
+					'As you approach them, several of them give you once over, obviously noticing your uniform. "Someone''s trying hard to look tough," Stasya says with a smirk.'
+                    'Hearing this, Bella gives you a closer look. "It wouldn''t be so bad if it was a good quality."'
+                    '"Now Bella, you know her family can''t afford the finer things in life," Dimka adds. If not for the tone of his voice and the smirk, it would almost sound like he was defending you, but it comes across as more of an insult. Igor, Katja, Vicky, Irina, Albina, '+iif(npc_grupTipe['A25'] ! 5, 'Sonia, ', '')+' Lizaveta, Marcus, Andrey, Mefodiy, Ivan, '+iif(npc_grupTipe['A5'] ! 5, 'Fedor, ', '')+'Svyatoslav, Christina, Lariska, Lina, Veronika, Lazar, Erast and Vanya just stay out of it.'
+				elseif PCloQuality >= 4:
 					gs 'gschool_socialchg', 'group_rel_change', 'cool kids', 1
 					grupvalue[1] += 2
 					gs 'gschool_socialchg', 'group_rel_change', 'jocks', 1
@@ -307,11 +418,7 @@ if $ARGS[0] = 'cooljocks':
 					if soniaPS = 0: gs 'npc_relationship', 'modify', 'A25', 'like'
 					
 					'As you approach them, several of them give you approving looks. "Looking good <<$pcs_nickname>>! Where did you buy that uniform?" Stasya comments.' 
-					'"Yeah, looking sexy <<$pcs_nickname>>!" Vicky adds. Katja, Irina, Albina, '+iif(npc_grupTipe['A25'] ! 5, 'Sonia, ', '')+' Lizaveta and Bella all comment on how nice your outfit looks while Dimka, Marcus, Andrey, Mefodiy, Ivan, '+iif(npc_grupTipe['A5'] ! 5, 'Fedor, ', '')+' and Svyatoslav talk among themselves. However, you do notice Igor seems to be somewhat paying attention, maybe to you in partucular. Christina just pretends you don''t exist while she talks to Lina and Lariska while Veronika is reading something and seems to be entirely unaware of the conversation.'
-
-					gs 'gschool_groups', 'popular'
-					gs 'gschool_groups', 'jocks'
-					act 'Leave': gt 'gschool_lessons', 'short_break'
+					'"Yeah, looking sexy <<$pcs_nickname>>!" Vicky adds. Katja, Irina, Albina, '+iif(npc_grupTipe['A25'] ! 5, 'Sonia, ', '')+' Lizaveta and Bella all comment on how nice your outfit looks while Dimka, Marcus, Andrey, Mefodiy, Ivan, '+iif(npc_grupTipe['A5'] ! 5, 'Fedor, ', '')+' and Svyatoslav talk among themselves. However, you do notice Igor seems to be somewhat paying attention, maybe to you in particular. Christina just pretends you don''t exist while she talks to Lina and Lariska while Veronika is reading something and seems to be entirely unaware of the conversation.'
 				else
 					gs 'gschool_socialchg', 'group_rel_change', 'jocks', 1, 'male'
 					grupvalue[2] += 1
@@ -322,14 +429,13 @@ if $ARGS[0] = 'cooljocks':
 					gs 'npc_relationship', 'modify', 'A146', 'like'
 					gs 'npc_relationship', 'modify', 'A147', 'like'
 					gs 'npc_relationship', 'modify', 'A148', 'like'
-					
 					'As you approach them, several of them give you once over, obviously noticing your uniform. "Someone''s trying hard to get the boys to look at her," Stasya says with a smirk.'
 					'Hearing this, Bella gives you a closer look. "It wouldn''t be so bad if it was a good quality."'
 					'"Now Bella, you know her family can''t afford the finer things in life," Dimka adds. If not for the tone of his voice and the smirk, it would almost sound like he was defending you, but it comes across as more of an insult. Igor, Katja, Vicky, Irina, Albina, '+iif(npc_grupTipe['A25'] ! 5, 'Sonia, ', '')+' Lizaveta, Marcus, Andrey, Mefodiy, Ivan, '+iif(npc_grupTipe['A5'] ! 5, 'Fedor, ', '')+'Svyatoslav, Christina, Lariska, Lina, Veronika, Lazar, Erast and Vanya just stay out of it.'
-					gs 'gschool_groups', 'popular'
-					gs 'gschool_groups', 'jocks'
-					act 'Leave': gt 'gschool_lessons', 'short_break'
 				end
+				gs 'gschool_groups', 'popular'
+				gs 'gschool_groups', 'jocks'
+				act 'Leave': gt 'gschool_lessons', 'short_break'
 			else
 				gs 'fame', 'pav', 'sex', 5
 				gs 'gschool_socialchg', 'group_rel_change', 'cool kids', -1
@@ -343,10 +449,9 @@ if $ARGS[0] = 'cooljocks':
 				if soniaPS = 0: gs 'npc_relationship', 'modify', 'A25', 'like'
 				gs 'npc_relationship', 'modify', 'A139', 'dislike'
 				gs 'npc_relationship', 'modify', 'A140', 'dislike'
-				
 				'As you approach, everyone is staring at you. Irina speaks up. "What on earth are you wearing? Forget to change out of your whoring clothes last night?" Several of the others laugh and you can sense the general feeling of agreement from the rest.'
 				'Dimka smirks. "Maybe she messed up the wash and her uniform shrunk, but she was too stupid to notice?"'
-				'Bella steps forward. "Get out of here with your whorish clothes! No one wants you around!" You hear several murmers of agreement from the others. It looks like even Igor, Katja, Vicky, '+iif(npc_grupTipe['A25'] ! 5, 'Sonia, ', '')+'Stasya, Albina, Lizaveta, Marcus, Andrey, Mefodiy, Ivan, '+iif(npc_grupTipe['A5'] ! 5, 'Fedor, ', '')+'Svyatoslav, Christina, Lariska, Lina, Veronika, Lazar, Erast and Vanya appear to agree. They either give you the cold shoulder or refuse to meet your eyes. Feeling very unwelcome, you turn around and leave.'
+				'Bella steps forward. "Get out of here with your whorish clothes! No one wants you around!" You hear several murmurs of agreement from the others. It looks like even Igor, Katja, Vicky, '+iif(npc_grupTipe['A25'] ! 5, 'Sonia, ', '')+'Stasya, Albina, Lizaveta, Marcus, Andrey, Mefodiy, Ivan, '+iif(npc_grupTipe['A5'] ! 5, 'Fedor, ', '')+'Svyatoslav, Christina, Lariska, Lina, Veronika, Lazar, Erast and Vanya appear to agree. They either give you the cold shoulder or refuse to meet your eyes. Feeling very unwelcome, you turn around and leave.'
 				act 'Leave': gt 'gschool_lessons', 'short_break'
 			end
 		else

File diff suppressed because it is too large
+ 157 - 178
locations/gschool_events.qsrc


File diff suppressed because it is too large
+ 187 - 205
locations/gschool_sex.qsrc


+ 1 - 0
locations/katja_chat.qsrc

@@ -1100,6 +1100,7 @@ if $ARGS[0] = 'coffee_hole_have_fun':
 					act 'Say goodbye and get up':  KatjaQW['dom'] += 1 & gt 'city_coffee_hole', 'inner'
 				else
 					KatjaQW['dom'] += 1
+					'"No, I don''t want to," Katja responds in a stern voice. You realize that you won''t convince her otherwise.'
 					act 'Continue talking': gt 'katja_chat', 'coffe_hole_event'
 					act 'Say goodbye and get up': gt 'city_coffee_hole', 'inner'
 				end

+ 27 - 5
locations/moncheri.qsrc

@@ -242,14 +242,36 @@ if $ARGS[0] = 'shoes':
 	menu_off = 0
 	*clr & cla
 	gs'stat'
+	'<center><b><font color="maroon">Viewing G&M shoes</font></b></center>'
+	*nl
+
+	gs 'shoes', 'shop_filter_header'
 
 	act 'Return': minut += 1 & gt 'moncheri', 'start'
-	i = 1
 
-	:loopmoncheri_shoes
-		if moncheri_shoe[i] = 0:*p '<a href="exec: i = <<i>> & gt ''moncheri'', ''moncheri_shoes''"><img src="images/pc/items/moncheri/shoes/<<i>>.jpg" height="250" /></a>'
-		i += 1
-	if i <= 140:jump 'loopmoncheri_shoes'
+	!!To filter just this set
+	clo_i = 0
+	:loopshoequality_filter
+
+		i = 1
+
+		:loopmoncheri_shoes
+			if moncheri_shoe[i] = 0:
+				gs 'shoe_attributes', 'moncheri', i
+				gs 'shoes', 'shoe_filter'
+				if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+					if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+						*p '<a href="exec: i = <<i>> & gt ''moncheri'', ''moncheri_shoes''"><img src="images/pc/items/moncheri/shoes/<<i>>.jpg" height="250" /></a>'
+					end
+				end
+			end
+			i += 1
+		if i <= 140:jump 'loopmoncheri_shoes'
+
+	clo_i += 1
+	if Shofilter['quality'] = 0 and clo_i <= 7:
+		jump 'loopshoequality_filter'
+	end
 end
 
 if $ARGS[0] = 'moncheri_shoes':	gt 'shoes', 'view_shoe_item', 'shop', 'moncheri',i, 5000

+ 1 - 1
locations/npcstatic4.qsrc

@@ -808,7 +808,7 @@ $npc_dna['A<<npctemp>>'] = '7169919752 7587835065 7871488903 1779229534 11591011
 $npc_firstname['A<<npctemp>>'] = 'Simeon'
 $npc_nickname['A<<npctemp>>'] = 'Syoma'
 $npc_lastname['A<<npctemp>>'] = 'Rodionov'
-$npc_usedname['A<<npctemp>>'] = 'Porn actor Simeon Rodionov'
+$npc_usedname['A<<npctemp>>'] = 'Porn actor Syoma Rodionov'
 $npc_notes['A<<npctemp>>'] = 'Simeon is an average man who worked as a clerk at a store in a small town before he quit and traveled to the city looking for something new. By chance, he met and bedded one of the studio''s actresses, who recommended that he try porn since he appeared to be inexhaustible in bed, capable of fucking for hours on end without rest.'
 npc_dob['A<<npctemp>>'] = 19891212
 npc_gender['A<<npctemp>>'] = 0

+ 1 - 1
locations/pav_lake_nude_events.qsrc

@@ -44,7 +44,7 @@ if $args[0] = 'pav_lake_nude_sex':
 						*clr
 						minut += 7
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event_5.jpg"></center>'
-						'After several minutes frolicking in the lake, you see the girl wlking out of the water. As soon as she reaches the comfort of the warm sand she suddenly falls on all fours, her tight holes displayed like a wanton whore as she wiggles her ass. The man smirks and moves towards her, making it abundantly clear that she doesn''t have to say a word.'						
+						'After several minutes frolicking in the lake, you see the girl walking out of the water. As soon as she reaches the comfort of the warm sand she suddenly falls on all fours, her tight holes displayed like a wanton whore as she wiggles her ass. The man smirks and moves towards her, making it abundantly clear that she doesn''t have to say a word.'						
 						gs 'stat'
 						act 'Further':
 							cla

+ 0 - 0
locations/photography_work.qrsc


+ 216 - 0
locations/photography_work.qsrc

@@ -0,0 +1,216 @@
+# photography_work
+
+!! 05-2023 - First Draft
+!! Conversion from dynamic arrays to sub-functions to reduce save footprint
+
+!! job offer init:
+
+if $ARGS[0] = 'photojob_pay':
+	if pcs_photoskl > 125:
+		gs 'emp_functions', 'wage_evt', 4
+	elseif pcs_photoskl > 100:
+		gs 'emp_functions', 'wage_evt', 3
+	elseif pcs_photoskl > 75:
+		gs 'emp_functions', 'wage_evt', 2
+	elseif pcs_photoskl > 50:
+		gs 'emp_functions', 'wage_evt', 1
+	else
+		gs 'emp_functions', 'wage_evt', 5, 100
+	end
+end
+
+!! Photography jobs functions
+
+
+if $ARGS[0] = 'job_init':
+	!! Set up arrays if not initialised
+	if $evt_job[1] = '' :  gs 'emp_functions', 'job_evt'
+    !! ensure it matches total jobs on offer
+	 evt_PhotoID = rand(1, 5)
+	gs 'photography_work', 'job_' + evt_PhotoID
+	!! set Day of Week for job to appear on	
+	transient_evt_dow = 6
+    !! Now set up the event date
+    gs 'photography_work' , 'photojob_pay'
+    !! Set job duration of 2-4 hours
+    transient_evt_duration = rand(2,4)
+    gs 'emp_functions', 'gen_evt'
+end
+
+!! Event player:
+
+if $ARGS[0] = "evt_stage" or $ARGS[0] = '':
+    !! Track how many gigs completed
+    photography['experience'] += 1
+    karta += evt_wages[act_idx]
+	gs 'stat'
+   !! runs all events:
+    gt 'photography_work', 'stage_' + evt_event_sub[act_idx]
+
+end
+
+!! These are the event stages to play the events, should be equal to the amount of jobs
+
+if $ARGS[0] = 'stage_1':
+    *clr & cla
+	minut += 20
+	gs 'stat'
+	'<center><img src="images/characters/shared/headshots_generic/37.jpg"></center>'
+	'You head over to the industrial region where you quickly meet up with your contact at the Experience Center.'
+	'"Hi there; you must be <<$pcs_firstname>>. The group is already on their way to the site, so I''ll take you up there in my car. I''m sure you know everything you need to do, but feel free to ask if you have any questions."'
+	'You get in the car and drive for nearly half an hour until you reach the Experience Center. Once there, the representative parks the car and you get out and head inside.'
+	act 'Go to the Experience Center':
+		*clr & cla
+		minut += rand(120,150)
+		gs 'exp_gain', 'photoskl', rand(6,10)
+		gs 'stat'
+		gs 'shop_photography', 'photojob_pay'
+		'<center><img src="images/pc/activities/photography/job/tank.jpg"></center>'
+		'You arrive at the Experience Center and spend the next two hours taking as many pictures of the experience as you can. The group is clearly enjoying the event; They get to ride in military vehicles across rough terrain and fire weapons at the shooting range.'
+		'Once the day is over, you remove your SD card and hand it to the representative, who shows the photos to the group. Once they''ve sorted out whether any of the customers want additional copies, your contact takes you back to the city''s industrial region. When you check your account, you see that you have been paid <<evt_wages[act_idx]>>.'
+		!! gs 'shop_photography', 'photojob_cleanup'
+		act 'Return': gt $loc, $loc_arg
+	end
+end
+
+if $ARGS[0] = 'stage_2':
+    *clr & cla
+	minut += rand(60,90)
+	gs 'exp_gain', 'photoskl', rand(3,5)
+	gs 'stat'
+	gs 'shop_photography', 'photojob_pay'
+	'<center><img src="images/pc/activities/photography/job/model<<rand(1,3)>>.jpg"></center>'
+	'You go to the Petrovskaya Akvatoria Model Museum to take pictures of the various exhibits on behalf of an international newspaper.'
+	'After a brief introduction to a member of staff to confirm your activities, you walk around the exhibit, taking a large number of photographs so that the article has a wealth to choose from.'
+	'Once you''re finished, you return to the shop and hand the SD card to Branko, who gives you your fee of <<evt_wages[act_idx]>>₽.'
+	!! gs 'shop_photography', 'photojob_cleanup'
+	act 'Return' : gt $loc, $loc_arg
+end
+
+if $ARGS[0] = 'stage_3':
+    *clr & cla
+	minut += rand(10,18)
+	gs 'stat'
+	'<center><img src="images/characters/shared/headshots_generic/18.jpg"></center>'
+	'You head over to the residential district where you meet one of the family members of the betrothed.'
+	'"Hello, you must be the photographer! If you follow me, I''ll take you to the happy couple to take the pictures of them."'
+	act 'Follow':
+		*clr & cla
+		minut += rand(90,120)
+		gs 'exp_gain', 'photoskl', rand(6,10)
+		gs 'stat'
+		gs 'shop_photography', 'photojob_pay'
+		'<center><img src="images/pc/activities/photography/job/wedding.jpg"></center>'
+		'You meet the bride and groom and help direct them into a number of framed situations for you to take some beautiful photos of them together.'
+		'Once you have enough, you spend the rest of the day in the background taking a number of photos of the wedding. Once it''s over, you meet back up with the relative who takes the SD card from you.'
+		'Leaving them to close up the venue, you walk out back into the residential district. When you check your account, you see that you have been paid <<evt_wages[act_idx]>>.'
+		!! gs 'shop_photography', 'photojob_cleanup'
+		act 'Return' : gt $loc, $loc_arg
+	end
+end
+
+if $ARGS[0] = 'stage_4':
+    *clr & cla
+	minut += rand(15,20)
+	gs 'stat'
+	'<center><img src="images/characters/shared/headshots_generic/11.jpg"></center>'
+	'You head over to the industrial region and meet a representative of the Autodrome. You will be expected to take pictures of the event and deliver them to your contact.'
+	'"Why hello there, you must be the person Branko sent. I''m sure you already know everything you have to do at the track, so I''ll give you this press pass and take you to the Autodrome."'
+	'You look at the pass they gave you before getting in their car to be taken to the track.'
+	act 'Go to the Autodrome':
+		*clr & cla
+		minut += rand(180,240)
+		gs 'exp_gain', 'photoskl', rand(9,15)
+		gs 'stat'
+		gs 'shop_photography', 'photojob_pay'
+		'<center><img src="images/pc/activities/photography/job/motorsport.jpg"></center>'
+		'You''re dropped off at the employee entrance and directed to the pit area as the teams get their vehicles prepared.'
+		'You start off by getting shots of the teams in the build-up to the race, showcasing the tension and focus as the countdown approaches zero.'
+		'When the race itself starts you roam the track, taking pictures of any event as it happens, getting high intensity shots of fast paced action, as well as the smooth professionalism of the leading drivers. It is a fantastic experience.'
+		*nl
+		'With your job done, you find your contact again and hand them a full SD card for which they are gratified.'
+		'Your contact then takes you back to the city''s industrial region. When you check your account, you see that you have been paid <<evt_wages[act_idx]>>.'
+		!! gs 'shop_photography', 'photojob_cleanup'
+		act 'Return' : gt $loc, $loc_arg
+	end
+end
+
+if $ARGS[0] = 'stage_5':
+    *clr & cla
+	minut += 60
+	gs 'exp_gain', 'photoskl', rand(3,5)
+	gs 'stat'
+	gs 'shop_photography', 'photojob_pay'
+	'<center><img src="images/pc/activities/photography/job/court.jpg"></center>'
+	'"You need to go to the courthouse to take publicity photographs of the completed court session as they leave the building, then deliver them back to me to give you your commission."'
+	'You head into the City Center and straight to the courthouse, which has already seen a number of people turn up.'
+	'Once you''ve ingratiated yourself into the crowd, you position yourself to take some good shots of the plaintiff accompanied by their lawyers and representatives.'
+	'With the verdict read, you quickly make your way outside to the front of the courthouse to take photos of him leaving.'
+	'Once you''re finished, you return to the shop and hand the SD card to Branko, who gives you your fee of <<evt_wages[act_idx]>>₽.'
+	!! gs 'shop_photography', 'photojob_cleanup'
+	act 'Return' : gt $loc, $loc_arg
+end
+
+! Array of photography jobs - additional events should be easy to wire up
+if $ARGS[0] = 'job_1':
+	!!Ensure the event is visible in journal:
+	transient_evt_silent = 1
+	!! Set the job type as per list
+	transient_evt = 1
+	transient_evt_sub = 1
+	$photojob_shortname = 'Tank'
+	$transient_desc = 'Tank and Bazooka Experience Day in Levingrad Oblast'
+	!! Field for trigger location
+	$transient_loc = 'city_industrial'
+	$transient_arg = ''
+	!! Journal loc description
+	$transient_journal = 'Travel to St Petersburg Industrial Area'
+
+end
+
+if $ARGS[0] = 'job_2':
+	transient_evt_silent = 1
+	transient_evt = 1
+	transient_evt_sub = 2
+	$photojob_shortname = 'Model'
+	$transient_desc = 'Newspaper Commission at Petrovskaya Akvatoria'
+	$transient_loc = 'shop_photography'
+	$transient_arg = 'evt_stage'
+	$transient_journal = 'Meet Branko at the Photography Shop'
+end
+
+if $ARGS[0] = 'job_3':
+	transient_evt_silent = 1
+	transient_evt = 1
+	transient_evt_sub = 3
+	$photojob_shortname = 'Wedding'
+	$transient_desc = 'Wedding at Yelagin Palace'
+	$transient_loc = 'city_residential'
+	$transient_arg = ''
+	$transient_journal = 'Travel to St Petersburg Residential Area'
+end
+
+if $ARGS[0] = 'job_4':
+	transient_evt_silent = 1
+	transient_evt = 1
+	transient_evt_sub = 4
+	$photojob_shortname = 'Motorsport'
+	$transient_desc = 'Russian Touring Car Championship Event at St. Petersburg Autodrome'
+	$transient_loc = 'city_industrial'
+	$transient_arg = ''
+	$transient_journal = 'Travel to St Petersburg Industrial Area'
+
+end
+
+if $ARGS[0] = 'job_5':
+	transient_evt_silent = 1
+	transient_evt_ = 1
+	transient_evt_sub = 5
+	$photojob_shortname = 'Court'
+	$transient_desc = 'Press Event at City Courthouse'
+	$transient_loc = 'shop_photography'
+	$transient_arg = 'start'
+	$transient_journal = 'Meet Branko at the Photography Shop'
+end
+
+--- photography_work ---------------------------------

+ 1 - 1
locations/pornfilm.qsrc

@@ -21,7 +21,7 @@ if $ARGS[0] = 'pornactor':
 				$pactor[num] = 'Ignat Vedenin'
 				$pactorID[num] = 'A196'
 			elseif akrand = 5:
-				$pactor[num] = 'Simon Rodionov'
+				$pactor[num] = 'Syoma Rodionov'
 				$pactorID[num] = 'A197'
 			elseif akrand = 6:
 				$pactor[num] = 'Vasya Harkov'

+ 38 - 36
locations/pornstudio.qsrc

@@ -50,14 +50,13 @@ if $ARGS[0] = 'start':
 				minut += 5
 				workDisk = 2
 				gs 'stat'
-				'You are given a thumb drive, and asked if you remember all the instructions. You quietly nod and leave.'
-				'As you leave the studio, you hear someone exit a nearby building and start following you.'
-				'You reassure yourself and carry on.'
+				'You''re given a thumb drive and asked if you remember all the instructions. You quietly nod and leave.'
+				'As you leave the studio, you hear someone exit a nearby building and start following you, but you reassure yourself and carry on.'
 
 				act 'Leave': gt 'city_redlight', 'start'
 			end
 		elseif workDisk = 3 and week = 5:
-			act 'Give the envelope':
+			act 'Hand over the envelope':
 				cla
 				menu_off = 1
 				minut += 5
@@ -114,7 +113,7 @@ if $ARGS[0] = 'pa':
 				*clr & cla
 				menu_off = 1
 				gs 'stat'
-				'"Is it possible for me to change my stage name?"'
+				'"Is it possible for me to change my stage name?" you ask.'
 				'"Of course! Just give me a minute to register it in the database. So, what would you like to be called?" he replies.'
 				act '"I want to be called..."':
 					$pfname = input("Enter the name you want to be known as.")
@@ -133,17 +132,17 @@ if $ARGS[0] = 'pa':
 				'"You''ve made <<film>> films."'
 
 				if porn_fame < 10:
-					'"Nobody knows your name. You''re one of hundreds of amateur actresses who only play minor roles in big movies. Your own movies sold really cheap."'
+					'"Nobody knows your name. You''re one of hundreds of amateur actresses whose fims are sold really cheap."'
 				elseif porn_fame < 20:
-					'"You''re still unknown, but your name is mentioned in the credits. You''re unlikely to be recognized, and your own movies are still sold cheap."'
+					'"You''re still unknown and are unlikely to be recognized. Your own films are still sold cheap."'
 				elseif porn_fame < 40:
-					'"You''re mentioned here and there, but you still mostly get secondary roles in most of your movies. Your name is slowly emerging and you have your own fanbase."'
+					'"You''re mentioned here and there, but still mostly get minor roles. Your name is slowly emerging and you have your own fanbase."'
 				elseif porn_fame < 60:
-					'"You''re a minor, but known porn actress. You get the occasional primary role and back cover appearance. Your movies are getting more popular, which means more fans and more money."'
+					'"You get the occasional back cover appearance and your films are getting more popular, which means more fans and more money."'
 				elseif porn_fame < 80:
-					'"You''re a known porn actress who mostly plays primary roles, and you appear on the front cover. Your movies are sold at a decent price, and in big numbers. You may also appear in a variety of adult magazines."'
+					'"You''re a known porn actress who appears on the front cover. Your films are sold at a decent price, and in big numbers."'
 				else
-					'"You''re a famous porn starlet and always play the main role. You''re a brand name, with sex toys and T-shirts among the items sold as part of your own line of merchandise."'
+					'"You''re a very well known porn actress and your films are sold at a premium. You''re likely to recieve offers to work with renowned studios and producers."'
 				end
 
 				if porn_fame >= 20:
@@ -199,7 +198,7 @@ if $ARGS[0] = 'pa':
 						films_stop_payment = film * 40000
 						gs 'stat'
 						'"Seeing as you''re not well known, it''s unlikely anyone would notice. However, to remove them you''d have to cover the loss of the studio''s profits- 40,000 <b>₽</b> per film. That''s a total of <<films_stop_payment>> <b>₽</b>."'
-						'"Also, it would piss off your co-stars and director, and likely end your porn career. You should also know that there''s no guarantee that there''s no other copies of your movies out there anyway, so think carefully."'
+						'"Also, it would piss off your co-stars and director, and likely end your porn career. You should also know that there''s no guarantee there''s no other copies out there, so think carefully."'
 
 						if money >= films_stop_payment:
 							act 'Remove them':
@@ -242,7 +241,7 @@ if $ARGS[0] = 'delivery':
 	minut += 15
 	menu_off = 1
 	gs 'stat'
-	'"We made inquiries about you, and everything seems in order. Essentially, we give you a thumb drive, you deliver it to the sauna, they give you an envelope and you bring it to us. Immediately."'
+	'"We made inquiries about you, and everything seems in order. In short, we give you a thumb drive and you deliver it to the sauna. They give you an envelope and you bring it to us. Immediately."'
 	'"Upon delivery of the envolope, you get 5000 <b>₽</b>. Deliveries are available every Friday, after the studio has opened. If you agree, then visit any Friday, and choose a safe mode of transport."'
 
 	act 'Disagree':bomzQW = -1 & gt 'city_redlight', 'start'
@@ -268,7 +267,7 @@ if $ARGS[0] = 'delivery':
 				'This sauna is located near your home. You find it strange that you didn''t notice it before.'
 			end
 
-			'You go to the sauna, and are introduced to the local managers. It''s explained to you who you need to deliver to, and are reminded that it is necessary to return the envelope the same day you receive it.'
+			'You''re introduced to the local managers and it''s explained to you who you need to deliver to. You''re also reminded that it''s necessary to return the envelope the same day you receive it.'
 			'"Don''t forget to use secure transport. We''ll see you on Fridays. <i>Don''t</i> fuck up."'
 
 			act 'Leave':bomzQW = 2 & gt 'city_residential'
@@ -322,7 +321,6 @@ if $ARGS[0] = 'manager':
 	'You walk into the manager''s office and find Dimitri at his desk.'
 
 	if firstkasting = 0: gt 'pornstudio', 'first'
-
 	if pregchem >= 2688 and pregtalkpornstudio = 0: gt 'pornstudio', 'pregreact'
 
 	if pfilmNoVenera = 1:
@@ -399,7 +397,7 @@ if $ARGS[0] = 'manager':
 	 !! Your first movie offer
 		if firstoffer = 0:
 			firstoffer = 1
-			if tits >= 5: 
+			if tits >= 4: 
 				'"So you''re the new girl, huh? As luck would have it, we''re looking for someone fresh for our next shoot. It''s called ''Girls Jerk Guys #36''. For 500 <b>₽</b>, you would jerk a guy off and have him cum on your tits. However, in your case, you''ll be using those puppies instead. Titfucking is a market we want to break into," he says while looking at your well endowed chest.'
 				'"You should also know that this particular shoot is booked with Egor, one of our more... experienced actors. He''s rather... proud of being in this line of work."'
 			else
@@ -407,7 +405,7 @@ if $ARGS[0] = 'manager':
 				'"You should also know that this particular shoot is booked with Egor, one of our more... experienced actors. He''s rather... proud of being in this line of work."'
 			end
 		else
-			if tits >= 5:
+			if tits >= 4:
 				'"Hello. Since you''re new, all I can offer you is an introductory movie called ''Girls Jerk Guys #36''. For 500 <b>₽</b>, you would jerk a guy off and have him cum on your tits. However, in your case, you''ll be using those puppies instead. Titfucking is a market we want to break into," he says while looking at your well endowed chest.'
 				'"You should also know that this particular shoot is booked with Egor, one of our more... experienced actors. He''s rather... proud of being in this line of work."'
 			else
@@ -799,14 +797,18 @@ if $ARGS[0] = 'yes':
 	'You confirm your enthusiasm to be in porn and he nods. "Let''s see your papers. You are 18 or older, yes?"'
 	if age >= 18 and age < 20:
 		'"Yes I am," you answer while handing him your passport.'
-		'He looks it over with a grin. "A teen, huh? Perfect. You need to do a casting first. Take off your clothes."'
-	elseif age >= 18:
+		'He looks it over with a smirk. "A teen, huh? Perfect. You need to do a casting first, so take off your clothes."'
+	elseif age >= 20 and age < 25:
+		'"Yes I am," you answer while handing him your passport.'
+		'He looks it over and nods. "Looks good, but you need to do a casting first. Take off your clothes."'
+	elseif age >= 25:
 		'"Yes I am," you answer while handing him your passport.'
-		'He looks it over and nods. "Looks good. You need to do a casting first. Take off your clothes."'
+		'He looks it over and frowns. "You''re a bit old to start doing porn, no?"'
+		'"What do you mean?" you ask with a frown.'
+		'"Most of our girls started when they were 18. The oldest was 20," he replies. "We can work with you, but you need to do a casting first. Take off your clothes."'
 	elseif fakepassport = 1:
 		'"Yes I am," you answer while handing him your fake passport.'
-		'You see him frown as he checks your passport with suspicion.'
-		'"Well, I guess everything is in order. You need to do a casting first. Take off your clothes."'
+		'You see him frown as he checks your passport with suspicion. "You need to do a casting first. Take off your clothes."'
 	else
 		'"Nearly..." you plead.'
 		'"Right... Come back when you''re old enough, kid."'
@@ -835,10 +837,10 @@ if $ARGS[0] = 'yes':
 				'<center><img <<$set_imgh>> src="images/locations/city/redlight/studio_porn/casting/casting2.jpg"></center>'
 				'You lie down on the sofa and spread your legs as he takes a few pictures, explaining that they''re for your portfolio.'
 				if tits >= 4:
-					'"Are these puppies real?" he asks while fondling one of your large breasts in his hand with an approving grin.'
-					if age < 20: '"A big tit teen is the kind of fresh talent we''re looking for right now."'
-				elseif tits <= 2:
-					'He stares at your clear lack of sizeable breasts while muttering something to himself. "No worries. We can work with these."'
+					'"Are these puppies real?" he asks while fondling one of your large breasts in his hand with an approving grin. "These things bouncing around as you get fucked will certainly draw in the views."'
+					if age < 20: '"A big tit teen like you is who studios dream of signing on. Those puppies are going to make you <i>very</i> popular, and not just with the viewers."'
+				elseif tits < 2:
+					'He notices your clear lack of sizeable breasts. "No worries. Small tits are just as popular in porn as big ones."'
 				else
 					'"Nice tits. Always good to give the viewers something to look at," he smiles while fondling one of your breasts in his hand.'
 				end
@@ -857,7 +859,7 @@ if $ARGS[0] = 'yes':
 					'"Turn around," he orders and you get on all fours and show him your bubble butt. "Nice," he says while squeezing it in his hand and taking some pictures. "I highly recommend doing anal if you have an ass like this."'
 					if tits >= 4 and age < 20: 
 						'"A teen with big tits and a nice bubble butt. You really are the perfect little porn star in the making," he says with a grin.'
-					elseif tits >= 5:
+					elseif tits >= 4:
 						'"Big tits and a bubble butt? You really are the complete package," he says with a grin.'
 					end
 				end
@@ -1063,12 +1065,12 @@ if $ARGS[0] = 'postvideo':
 		end
 	else
 		if $pstory = '' and editpornname = 1:
-			$pornfilmstory[film] = input('You can enter the story of the porn movie. This action can only be done once, but you can choose to do it later! (Just hit Enter/Esc when blank)<br>Tags of the current movie: <font color=#541717 size=2><<$pfilmtags>></font>')
+			$pornfilmstory[film] = input('You can enter the story for the film. This action can only be done once, but you can choose to do it later! (Just hit Enter/Esc when blank)<br>Tags of the current movie: <font color=#541717 size=2><<$pfilmtags>></font>')
 		else
 			$pornfilmstory[film] = $pstory
 		end
 		if editpornname = 1:
-			$porntitle[film] = input("Enter the name of the porn movie. <i>This action can only be done once, but you can choose to do it later! (Just hit Enter/Esc when blank)</i>")
+			$porntitle[film] = input("Enter the name of the film. <i>This action can only be done once, but you can choose to do it later! (Just hit Enter/Esc when blank)</i>")
 		end
 	end
 
@@ -1114,27 +1116,27 @@ if $ARGS[0] = 'postvideo':
 	if pfType ! 0:
 		unprotfilm = -1
 		if succubusflag = 1:
-!!			May add a check to clear unprotfilm based on sucpcinfo (the PC knows Succubae are immune to STDs)
+			!!May add a check to clear unprotfilm based on sucpcinfo (the PC knows Succubae are immune to STDs)
 			if pfcash > 0:
 				$tmp = '"I almost can''t believe they paid me <<pfcash>><b>₽</b> for such a wonderful meal!"'
 			else
 				$tmp = '"And they think I''m doing this for free. If only they knew they were paying me in another way..."'
 			end
-			'You let slip a satisfied smirk and think to yourself, <<$tmp>>'
+			'<<$tmp>> you think to yourself as you smirk in satisfaction.'
 		elseif knowpreg = 0 and thinkpreg = 0 and pillcon2 < 1000:
 			pornDanger[film] = 1
-!!			Left "ppreg" pending its eventual use
+			!!Left "ppreg" pending its eventual use
 			if ppreg = 0:
 				if pfcash > 0:
-					$tmp = ' Was <<pfcash>> <b>₽</b> worth the risk of getting impregnated by a seedy porn actor you''ll probably never see again?'
+					$tmp = 'Was <<pfcash>> <b>₽</b> worth the risk of getting impregnated by a seedy porn actor you''ll probably never see again?'
 				else
 					$tmp = 'You didn''t even get paid to risk pregnancy! You''ll likely never see the guy again.'
 				end
-				'With a growing sense of horror, you realize that you aren''t on the shot and have no idea when you last took a birth control pill.<<$tmp>>'
+				'With a growing sense of horror, you realize that you aren''t on the shot and have no idea when you last took a birth control pill. <<$tmp>>'
 			else
 				!{If she has birth control and deliberately isn''t using it, obviously she wants to get pregnant or just doesn''t care.}
 				if pfcash > 0:
-					$tmp = 'Either way, <<pfcash>> <b>₽</b> will definitely help make a better life for you and your baby if you end up pregnant.'
+					$tmp = 'Either way, <<pfcash>> <b>₽</b> will definitely help make a better life for you and your baby if you do end up pregnant.'
 				else
 					$tmp = 'The fact that you weren''t even paid to take this risk excites you more than you''d like to admit.'
 				end
@@ -1283,7 +1285,7 @@ end
 
 if $ARGS[0] = 'pregreact':
 	'"Wow. I''m surprised you still want to do the shoot considering how far along you are. The good news is, we''ve been looking into appealing to people with different fetishes, so this is the perfect opportunity to start marketing to pregnancy fetishists. However, this is also going to change the shoots you can do."' 
-	'"You see, this is more of a niche thing and not something we can really use for wide appeal. You can still work, but only on specific pregnancy shoots, so you might not get the same amount of work you got before. Don''t worry though, if we can find a way to make money off of you, we definitely will." the manager ends with a smile.'
+	'"You see, this is more of a niche thing and not something we can really use for wide appeal. You can still work, but only on specific pregnancy shoots, so you might not get the same amount of work you got before. Don''t worry; if we can find a way to make money off of you, we definitely will," Dimitri says with a smile.'
 	act 'Continue': pregtalkpornstudio = 1 & gt 'pornstudio', 'manager'
 end
 

+ 0 - 1
locations/pushkin.qsrc

@@ -3,7 +3,6 @@
 *clr & cla
 gs 'shortgs', 'setloc', 'pushkin', $ARGS[0]
 $region = 'puskin'
-$menu_arg = ''
 menu_off = 0
 if sound = 0:PLAY 'sound/street.mp3',30
 gs'stat'

+ 5 - 2
locations/saveupdater.qsrc

@@ -1685,10 +1685,13 @@ if ((100*version_major +version_minor)*100+version_revision)*100+version_patch <
 	end
 end
 
-if ((100*version_major +version_minor)*100+version_revision)*100+version_patch < 00080903:
-
+if ((100*version_major +version_minor)*100+version_revision)*100+version_patch < 00090000:
+	if photography_job >0:
+		photography['experience'] = photography_job & killvar 'photography_job'
+	end
 end
 
+
 gs 'saveg'
 --- saveupdater ---------------------------------
 

+ 1 - 1
locations/sex_ev_cowgirl.qsrc

@@ -20,7 +20,7 @@ if $ARGS[0] = 'cowgirl_start':
 			act'Ride him hard':gt 'sex_ev_cowgirl', 'cowgirl3'
 		end
 		
-	elseif sex_ev['initiative'] ! 1 or sex_ev['force_initiative'] = 2:
+	elseif sex_ev['initiative'] ! 1 and sex_ev['force_initiative'] ! 1:
 		act'Continue':
 			cla & *clr
 			sex_ev['cock_inserted'] = 1

+ 13 - 25
locations/sex_ev_cum.qsrc

@@ -580,7 +580,7 @@ if $ARGS[0] = 'fuck_cum':
 		act'Continue':gt 'sex_ev_cum', 'cum_pullout'
 	elseif sex_ev['his_choice'] = 2:
 		act'Continue':gt 'sex_ev_cum', 'cum_his_choice'
-	else
+	elseif sex_ev['boy_cum'] > 0:
 		*nl
 		'Tell hornguy6 that the fuck_cum failsafe activated.'
 		act'Continue':gt 'sex_ev_cum', 'cum_pullout'
@@ -1450,36 +1450,24 @@ if $ARGS[0] = 'creampie_menu':
 					sex_ev['he_ask_creampie_yes'] = 1 & gs 'sex_ev_cum', 'cum_together'
 				end
 			else
-				act'Let''s come together':
-					cla & *nl
-					if sex_ev['cum_where'] = 1:
-						if $sex_ev['position'] = 'miss':
-							'"Let''s come together," you say, smiling warmly into his eyes.'
-						elseif $sex_ev['position'] = 'doggy':
-							'"Let''s come together," you say, giving him a warm smile over your shoulder.'
-						elseif $sex_ev['position'] = 'cowgirl':
-							'"Let''s come together," you say, leaning down to smile warmly into his eyes.'
-						end
-					else
-						if $sex_ev['position'] = 'miss':
-							'"Let''s come together instead," you say, smiling warmly into his eyes.'
-						elseif $sex_ev['position'] = 'doggy':
-							'"Let''s come together instead," you say, giving him a warm smile over your shoulder.'
-						elseif $sex_ev['position'] = 'cowgirl':
-							'"Let''s come together instead," you say, leaning down to smile warmly into his eyes.'
-						end
-					end
-					sex_ev['creampie_ask'] = 1 & gs 'sex_ev_cum', 'cum_together'
-				end
+				act'Let''s come together': sex_ev['creampie_ask'] = 1 & gs 'sex_ev_cum', 'cum_together'
 			end
 		else
 			act'Fill me up!':
 				cla & *nl
 				sex_ev['creampie_ask'] = 1
-				if sex_ev['speed'] ! 3:
-					'"Come inside me," you smile. "Fill me up."'
+				if sex_ev['he_ask_creampie'] = 1:
+					if sex_ev['speed'] ! 3:
+						'"Do it," you smile. "Fill me up."'
+					else
+						'"Do it!" you cry. "Fill me up!"'
+					end
 				else
-					'"Come inside me!" you cry. "Fill me up!"'
+					if sex_ev['speed'] ! 3:
+						'"Come inside me," you smile. "Fill me up."'
+					else
+						'"Come inside me!" you cry. "Fill me up!"'
+					end
 				end
 				act'Continue':gt 'sex_ev_cum', 'cum_inside'
 			end

+ 1 - 1
locations/sex_ev_doggy.qsrc

@@ -27,7 +27,7 @@ if $ARGS[0] = 'doggy_start':
 			end
 			act'Keep fucking':gs'sex_ev_doggy', 'doggy_goto'
 		end
-	elseif sex_ev['initiative'] ! 1 or sex_ev['force_initiative'] = 2:
+	elseif sex_ev['initiative'] ! 1 and sex_ev['force_initiative'] ! 1:
 		gs 'sex_ev_sex', 'speed_select'
 		act'Continue':
 			sex_ev['cock_inserted'] = 1

+ 132 - 32
locations/sex_ev_leave.qsrc

@@ -107,12 +107,12 @@ if $ARGS[0] = 'leaving_dialogue':
 			gs'sex_ev_leave', 'leaving_action'
 		end
 		
-		if npc_sex_ev_date[$boy] = daystart and sex_ev['sleepover'] = 1:
+		if npc_booty_call_date[$boy] = daystart and sex_ev['sleepover'] = 1:
 			act'"See you soon"':
 				$sex_ev['leave_dialogue'] = 'See you soon'
 				gs'sex_ev_leave', 'leaving_action'
 			end
-		elseif npc_sex_ev_date[$boy] = daystart + 1:
+		elseif npc_booty_call_date[$boy] = daystart + 1:
 			act'"See you tomorrow"':
 				$sex_ev['leave_dialogue'] = 'See you tomorrow'
 				gs'sex_ev_leave', 'leaving_action'
@@ -258,12 +258,12 @@ if $ARGS[0] = 'npc_leaving_dialogue':
 			gs'sex_ev_leave', 'npc_leaving_end'
 		end
 		
-		if npc_sex_ev_date[$boy] = daystart and sex_ev['sleepover'] = 1:
+		if npc_booty_call_date[$boy] = daystart and sex_ev['sleepover'] = 1:
 			act'"See you soon"':
 				$sex_ev['leave_dialogue'] = '"See you soon."'
 				gs'sex_ev_leave', 'npc_leaving_end'
 			end
-		elseif npc_sex_ev_date[$boy] = daystart + 1:
+		elseif npc_booty_call_date[$boy] = daystart + 1:
 			act'"See you tomorrow"':
 				$sex_ev['leave_dialogue'] = '"See you tomorrow."'
 				gs'sex_ev_leave', 'npc_leaving_end'
@@ -299,7 +299,11 @@ if $ARGS[0] = 'npc_leaving_end':
 		*nl
 		'<<$sex_ev[''leave_action2'']>>'
 	elseif sex_ev['invite_tomorrow'] = 1:
-	
+		'<<$sex_ev[''leave_action1'']>>'
+		*nl
+		'"Want to do this again tomorrow?" you ask.'
+		*nl
+		'<<$sex_ev[''leave_action2'']>>'
 	end
 	act'Leave':gt'sex_ev_leave', 'exit'
 end
@@ -344,12 +348,12 @@ if $ARGS[0] = 'hurry_leave':
 		end
 	end
 	
-	if npc_sex_ev_date[$boy] = daystart and sex_ev['sleepover'] = 1 and $npc_rel_type[$boy] ! 'husband':
+	if npc_booty_call_date[$boy] = daystart and sex_ev['sleepover'] = 1 and $npc_rel_type[$boy] ! 'husband':
 		act'"See you soon"':
 			$sex_ev['leave_dialogue'] = ', shouting, "See you soon!" just before it slams behind you.'
 			gs'sex_ev_leave', 'hurry_leave2'
 		end
-	elseif npc_sex_ev_date[$boy] = daystart + 1:
+	elseif npc_booty_call_date[$boy] = daystart + 1:
 		act'"See you tomorrow"':
 			$sex_ev['leave_dialogue'] = ', shouting, "See you tomorrow!" just before it slams behind you.'
 			gs'sex_ev_leave', 'hurry_leave2'
@@ -954,8 +958,8 @@ if $ARGS[0] = 'leaving_soon':
 			gs 'sex_ev_leave', 'panty_gift'
 		else
 			'"Yeah," you say, <<$sex_ev[''dress_describe'']>>.'
-			if rand(1,3) = 3 and (npc_day_off[$boy] = week or (npc_day_off[$boy] = week + 1) or (week = 7 and npc_day_off[$boy] = 1)):
-				gs'sex_ev_morning', 'sex_ev_invite_later'
+			if rand(1,3) = 3 and (npc_day_off[$boy] = week and sex_ev['sleepover'] = 1) or ((npc_day_off[$boy] = week + 1) or (week = 7 and npc_day_off[$boy] = 1)):
+				gs 'sex_ev_leave', 'sex_ev_invite_later'
 			else
 				gs 'sex_ev_leave', 'dressing2'
 				gs 'sex_ev_leave', 'panty_gift'
@@ -1097,7 +1101,7 @@ if $ARGS[0] = 'something_to_do':
 			'"Yeah," you say, <<$sex_ev[''dress_describe'']>>. "Have a few things I need to get done.'  + iif($sex_ev['loc'] = 'pc_home',' Sorry to kick you out so quickly."',' Thanks for letting me spend the night."')
 			
 			if rand(1,3) = 3 and (npc_day_off[$boy] = week or (npc_day_off[$boy] = week + 1) or (week = 7 and npc_day_off[$boy] = 1)):
-				gs'sex_ev_morning', 'sex_ev_invite_later'
+				gs 'sex_ev_leave', 'sex_ev_invite_later'
 			else
 				iif($sex_ev['loc'] = 'pc_home','"It''s fine. I get it."','"No problem. It was fun."')
 				gs'sex_ev_morning', 'end_morning'
@@ -1121,7 +1125,7 @@ if $ARGS[0] = 'see_a_friend':
 			'"Yeah," you say, <<$sex_ev[''dress_describe'']>>. "Need to see a friend later.' + iif($sex_ev['loc'] = 'pc_home','Sorry to kick you out so quickly."','Thanks for letting me spend the night."')
 			
 			if rand(1,3) = 3 and (npc_day_off[$boy] = week or (npc_day_off[$boy] = week + 1) or (week = 7 and npc_day_off[$boy] = 1)):
-				gs'sex_ev_morning', 'sex_ev_invite_later'
+				gs 'sex_ev_leave', 'sex_ev_invite_later'
 			else
 				'"No problem."'
 				gs'sex_ev_morning', 'end_morning'
@@ -1164,7 +1168,7 @@ if $ARGS[0] = 'going_school':
 					'"Gotta get ready for school," you say, <<$sex_ev[''dress_describe'']>>.  "And you gotta get out of here so I can lock up."'
 				end
 				if rand(1,3) = 3 and (npc_day_off[$boy] = week or (npc_day_off[$boy] = week + 1) or (week = 7 and npc_day_off[$boy] = 1)):
-					gs'sex_ev_morning', 'sex_ev_invite_later'
+					gs 'sex_ev_leave', 'sex_ev_invite_later'
 				else
 					'"No problem."'
 					gs'sex_ev_morning', 'end_morning'
@@ -1180,7 +1184,7 @@ if $ARGS[0] = 'going_school':
 					'"Gotta get ready for school," you say, <<$sex_ev[''dress_describe'']>>. "Thanks for letting me spend the night."'
 				end
 				if rand(1,3) = 3 and (npc_day_off[$boy] = week or (npc_day_off[$boy] = week + 1) or (week = 7 and npc_day_off[$boy] = 1)):
-					gs'sex_ev_morning', 'sex_ev_invite_later'
+					gs 'sex_ev_leave', 'sex_ev_invite_later'
 				else
 					'"No problem."'
 					gs'sex_ev_morning', 'end_morning'
@@ -1206,7 +1210,7 @@ if $ARGS[0] = 'school_night':
 				else
 					'"Okay."'
 					if rand(1,3) = 3 and (npc_day_off[$boy] = week or (npc_day_off[$boy] = week + 1) or (week = 7 and npc_day_off[$boy] = 1)):
-						gs'sex_ev_morning', 'sex_ev_invite_later'
+						gs 'sex_ev_leave', 'sex_ev_invite_later'
 					else
 						gs 'sex_ev_leave', 'dressing2'
 					end
@@ -1215,7 +1219,7 @@ if $ARGS[0] = 'school_night':
 			else
 				'"It''s a school night," you say, <<$sex_ev[''dress_describe'']>>. "Gotta get home so I can set my alarm and get up for class tomorrow."'
 				if rand(1,3) = 3 and (npc_day_off[$boy] = week or (npc_day_off[$boy] = week + 1) or (week = 7 and npc_day_off[$boy] = 1)):
-					gs'sex_ev_morning', 'sex_ev_invite_later'
+					gs 'sex_ev_leave', 'sex_ev_invite_later'
 				else
 					gs 'sex_ev_leave', 'dressing2'
 				end
@@ -1468,6 +1472,7 @@ if $ARGS[0] = 'dress_image':
 end
 
 if $ARGS[0] = 'dress_loop':
+	!! always call at the top before the text, not after
 	cla & *clr
 	gs'sex_ev_leave', 'dress_loop_code'
 	gs'sex_ev_leave', 'dressing_image'
@@ -1534,6 +1539,13 @@ if $ARGS[0] = 'dress_loop_code':
 				end
 			end
 		end
+	elseif $shoeworntype ! 'none' and sex_ev['dress_end'] ! 1:
+		if $shoeworntype = 'danilovich':
+			$sex_ev['dress_describe'] = 'tying up your shoe laces'
+		else
+			$sex_ev['dress_describe'] = 'slipping on your shoes'
+		end
+		sex_ev['dress_end'] = 1
 	elseif sex_ev['dress_end'] = 1:
 		if CloDress = 1:
 			$sex_ev['dress_describe'] = 'checking your dress'
@@ -2025,6 +2037,8 @@ if $ARGS[0] = 'pc_sex_ev_invite':
 					gs'sex_ev_leave', 'pc_sex_ev_timeset'
 				else
 					'"Twice in one day might be a little bit too much for me," <<$npc_firstname[$boy]>> smiles back ruefully.'
+					gs'sex_ev_leave', 'dress_loop_code'
+					'"Damn," you sigh disappointedly, continuing <<$sex_ev[''dress_describe'']>>'
 					gs'sex_ev_leave', 'pc_sex_ev_invite_denied'
 				end
 			else
@@ -2033,6 +2047,8 @@ if $ARGS[0] = 'pc_sex_ev_invite':
 					gs'sex_ev_leave', 'pc_sex_ev_timeset'
 				else
 					'"Think I might be a little too tapped out from work," <<$npc_firstname[$boy]>> grunts.'
+					gs'sex_ev_leave', 'dress_loop_code'
+					'"Damn," you sigh disappointedly, continuing <<$sex_ev[''dress_describe'']>>'
 					gs'sex_ev_leave', 'pc_sex_ev_invite_denied'
 				end
 			end
@@ -2049,6 +2065,8 @@ if $ARGS[0] = 'pc_sex_ev_invite':
 					gs'sex_ev_leave', 'pc_sex_ev_timeset'
 				else
 					'"Sorry, I have some things I need to get done tomorrow."'
+					gs'sex_ev_leave', 'dress_loop_code'
+					'"Damn," you sigh disappointedly, continuing <<$sex_ev[''dress_describe'']>>'
 					gs'sex_ev_leave', 'pc_sex_ev_invite_denied'
 				end
 			else
@@ -2057,6 +2075,8 @@ if $ARGS[0] = 'pc_sex_ev_invite':
 					gs'sex_ev_leave', 'pc_sex_ev_timeset'
 				else
 					'"Sorry, I have some things I need to get done tomorrow."'
+					gs'sex_ev_leave', 'dress_loop_code'
+					'"Damn," you sigh disappointedly, continuing <<$sex_ev[''dress_describe'']>>'
 					gs'sex_ev_leave', 'pc_sex_ev_invite_denied'
 				end
 			end
@@ -2067,9 +2087,9 @@ end
 if $ARGS[0] = 'pc_sex_ev_timeset':
 	act'How about...': 
 		:invalid_timeset
-		npc_sex_ev_time[$boy] = input ("When do you want to set your reminder? (Pick an hour 1 - 22. A reminder icon will appear in the stat display during that hour.)")
-		if npc_sex_ev_time[$boy] < npc_start_free_time[$boy] or npc_sex_ev_time[$boy] > 22:
-			msg 'Invalid input. Pick an hour between <<npc_start_free_time[$boy]>> and 22.'
+		npc_booty_call_time[$boy] = input ("When do you want to come over to <<$npc_firstname[$boy]>>''s? (Pick an hour 1 - 22.)")
+		if npc_booty_call_time[$boy] > 22:
+			msg 'Invalid input. Pick an hour between 1 and 22.'
 			jump 'invalid_timeset'
 		else
 			gs'sex_ev_leave', 'pc_sex_ev_invite2'
@@ -2081,45 +2101,53 @@ if $ARGS[0] = 'pc_sex_ev_invite2':
 	cla & *clr
 	gs'sex_ev_leave', 'dress_loop'
 	if sex_ev['invite_today'] = 1:
-		if npc_sex_ev_time[$boy] = npc_start_free_time[$boy]:
-			'"How about <<npc_sex_ev_time[$boy]>>?" you smirk <<$sex_ev[''dress_describe'']>>. "We can get off together."'
+		if npc_booty_call_time[$boy] = npc_start_free_time[$boy]:
+			'"How about <<npc_booty_call_time[$boy]>>?" you smirk <<$sex_ev[''dress_describe'']>>. "We can get off together."'
 			gs 'sex_ev_leave', 'pc_sex_ev_invite_accepted'
 		else
-			'"How about <<npc_sex_ev_time[$boy]>>?" you ask <<$sex_ev[''dress_describe'']>>.'
-			if npc_sex_ev_time[$boy] > npc_end_free_time[$boy]:
+			'"How about <<npc_booty_call_time[$boy]>>?" you ask <<$sex_ev[''dress_describe'']>>.'
+			if npc_booty_call_time[$boy] > npc_end_free_time[$boy] or npc_booty_call_time[$boy] < npc_start_free_time[$boy]:
+				gs'sex_ev_leave', 'dress_loop_code'
 				'"Sorry, that doesn''t work for me," <<$npc_firstname[$boy]>> grunts.'
+				gs'sex_ev_leave', 'dress_loop_code'
+				'"Damn," you sigh disappointedly, continuing <<$sex_ev[''dress_describe'']>>'
 				gs'sex_ev_leave', 'pc_sex_ev_invite_denied'
 			else
+				'"That sounds good," <<$npc_firstname[$boy]>> grins back. "Okay, see you then."'
 				gs 'sex_ev_leave', 'pc_sex_ev_invite_accepted'
 			end
 		end
 	else
-		'"How about <<npc_sex_ev_time[$boy]>>?" you ask <<$sex_ev[''dress_describe'']>>.'
-		if npc_sex_ev_time[$boy] > npc_end_free_time[$boy]:
+		'"How about <<npc_booty_call_time[$boy]>>?" you ask <<$sex_ev[''dress_describe'']>>.'
+		if npc_booty_call_time[$boy] > npc_end_free_time[$boy] or npc_booty_call_time[$boy] < npc_start_free_time[$boy]:
+			gs'sex_ev_leave', 'dress_loop_code'
 			'"Sorry, that doesn''t work for me," <<$npc_firstname[$boy]>> grunts.'
+			gs'sex_ev_leave', 'dress_loop_code'
+			'"Damn," you sigh disappointedly, continuing <<$sex_ev[''dress_describe'']>>'
 			gs'sex_ev_leave', 'pc_sex_ev_invite_denied'
 		else
+			'"That sounds good," <<$npc_firstname[$boy]>> grins back. "Okay, see you then."'
 			gs 'sex_ev_leave', 'pc_sex_ev_invite_accepted'
 		end
 	end
 end
 
 if $ARGS[0] = 'pc_sex_ev_invite_accepted':
-	'"That sounds good," <<$npc_firstname[$boy]>> grins back. "Okay, see you then."'
 	gs 'booty_call', 'set_booty_call_date'
 	gs 'sex_ev_leave', 'dress_talk'
+	if sex_ev['morning_after'] = 1: gs 'sex_ev_morning', 'end_morning'
 end
 
 if $ARGS[0] = 'pc_sex_ev_invite_denied':
-	gs'sex_ev_leave', 'dress_loop_code'
-	'"Damn," you sigh disappointedly, continuing <<$sex_ev[''dress_describe'']>>'
+
 	gs 'booty_call', 'block_booty_calls'
 	gs 'sex_ev_leave', 'dress_talk'
+	if sex_ev['morning_after'] = 1: gs 'sex_ev_morning', 'end_morning'
 end
 
 if $ARGS[0] = 'npc_sex_ev_invite':
-	cla
 	if (rand(1,10) < npc_sexdrive[$boy] or rand(1,200) < npc_rel[$boy]) and sex_ev['plans_later_talk'] = 0:
+		cla
 		act'Continue':
 			gs 'sex_ev_leave', 'dress_loop'
 			sex_ev['plans_later_talk'] = 1
@@ -2149,7 +2177,7 @@ if $ARGS[0] = 'npc_sex_ev_invite':
 				end
 			end
 			
-			gs 'sex_ev_leave', 'busy_tomorrow'
+			gs 'sex_ev_leave', 'busy_later'
 			
 			act'What time?':
 				gs 'sex_ev_leave', 'dress_loop'
@@ -2164,20 +2192,54 @@ if $ARGS[0] = 'npc_sex_ev_invite':
 	end
 end
 
-if $ARGS[0] = 'busy_tomorrow':
+if $ARGS[0] = 'sex_ev_invite_later':
+	if npc_day_off[$boy] = week and sex_ev['sleepover'] = 1:
+		$sex_ev_plan_loc[$boy] = 'lover_home'
+		sex_ev['invite_today'] = 1
+		if npc_girlfriend[$boy] = 1:
+			pc_know_npc_has_girlfriend[$boy] = 1
+			'"You busy later?" <<$npc_firstname[$boy]>> asks as you''re <<$sex_ev[''dress_describe'']>>. "It''s my day off and my girlfriend won''t be around. Want to come over to my place and do this again?"'
+		else
+			'"You busy later?" <<$npc_firstname[$boy]>> asks as you''re <<$sex_ev[''dress_describe'']>>. "It''s my day off. Want to come by and do this again?"'
+		end
+	elseif (npc_day_off[$boy] = week + 1) or (week = 7 and npc_day_off[$boy] = 1):
+		sex_ev['invite_tomorrow'] = 1
+		if npc_girlfriend[$boy] = 1:
+			pc_know_npc_has_girlfriend[$boy] = 1
+			'"You busy tomorrow?" <<$npc_firstname[$boy]>> asks as you''re <<$sex_ev[''dress_describe'']>>. "My girlfriend won''t be around. Want to come over and do this again?"'
+		else
+			'"You busy tomorrow?" <<$npc_firstname[$boy]>> asks as you''re <<$sex_ev[''dress_describe'']>>. "It''ll be my day off. Want to come by and do this again?"'
+		end
+	end
+	
+	gs 'sex_ev_after', 'dress_loop'
+	
+	gs 'sex_ev_leave', 'busy_later'
+	
+	act'What time?':
+		cla & *nl
+		'"That depends," you say, <<$sex_ev[''dress_describe'']>>. "What time were you thinking?"'
+		'"<<npc_start_free_time[$boy]>>?" <<$npc_firstname[$boy]>> asks.'
+		gs 'sex_ev_leave', 'busy_time'
+		gs 'sex_ev_leave', 'sex_ev_plan'
+	end
+end
+
+if $ARGS[0] = 'busy_later':
 	act'I''m busy':
 		gs 'booty_call', 'block_booty_calls'
 		gs 'sex_ev_leave', 'dress_loop'
 		if sex_ev['invite_tomorrow'] = 1:
-			'"I can''t, sorry," you say, <<$sex_ev[''dress_describe'']>>. "I''m busy tomorrow."'
+			'"I can''t, sorry," you say, <<$sex_ev[''dress_describe'']>>. "I''ve got a busy schedule tomorrow."'
 		else
-			'"I can''t, sorry," you say, <<$sex_ev[''dress_describe'']>>. "I''m busy."'
+			'"I can''t, sorry," you say, <<$sex_ev[''dress_describe'']>>. "I''m busy today."'
 		end
 		'"Damn," <<$npc_firstname[$boy]>> says disappointedly.'
 		gs 'sex_ev_leave', 'dress_talk'
 	end
 end
 
+
 if $ARGS[0] = 'busy_time':
 	act'I''m busy':
 		gs 'booty_call', 'block_booty_calls'
@@ -2185,6 +2247,7 @@ if $ARGS[0] = 'busy_time':
 		'"I can''t, sorry," you say, <<$sex_ev[''dress_describe'']>>. "I have something to do then."'
 		'"Damn," <<$npc_firstname[$boy]>> says disappointedly.'
 		gs 'sex_ev_leave', 'dress_talk'
+		if sex_ev['morning_after'] = 1: gs 'sex_ev_morning', 'end_morning'
 	end
 end
 
@@ -2195,6 +2258,7 @@ if $ARGS[0] = 'sex_ev_plan':
 		'"Sounds good," you grin, <<$sex_ev[''dress_describe'']>>. "I''ll see you then."'
 		'"Great," <<$npc_firstname[$boy]>> grins back.'
 		gs 'sex_ev_leave', 'dress_talk'
+		if sex_ev['morning_after'] = 1: gs 'sex_ev_morning', 'end_morning'
 	end
 	
 	act'I''ve got nothing better to do':
@@ -2203,6 +2267,7 @@ if $ARGS[0] = 'sex_ev_plan':
 		'"Sure," you smirk, <<$sex_ev[''dress_describe'']>>. "I got nothing better to do."'
 		'"Great," <<$npc_firstname[$boy]>> grins back.'
 		gs 'sex_ev_leave', 'dress_talk'
+		if sex_ev['morning_after'] = 1: gs 'sex_ev_morning', 'end_morning'
 	end
 	
 	act'I could fit it in':
@@ -2215,6 +2280,41 @@ if $ARGS[0] = 'sex_ev_plan':
 			'"Great," <<$npc_firstname[$boy]>> grins back.'
 		end
 		gs 'sex_ev_leave', 'dress_talk'
+		if sex_ev['morning_after'] = 1: gs 'sex_ev_morning', 'end_morning'
+	end
+	
+	act'Another time?':
+		gs 'sex_ev_leave', 'dress_loop'
+		'"That''s no good for me," you shake your head while <<$sex_ev[''dress_describe'']>>. "I have something to do then. What about..."'
+		act'Pick a time':
+			:invalid_timeset2
+			npc_booty_call_time[$boy] = input ("When do you want to come over to <<$npc_firstname[$boy]>>''s? (Pick an hour 1 - 22.)")
+			if npc_booty_call_time[$boy] > 22:
+				msg 'Invalid input. Pick an hour between 1 and 22.'
+				jump 'invalid_timeset2'
+			else
+				gs'sex_ev_leave', 'sex_ev_plan2'
+			end
+		end
+	end
+end
+
+if $ARGS[0] = 'sex_ev_plan2':
+	cla & *clr
+	gs'sex_ev_leave', 'dressing_image'
+	'"That''s no good for me," you shake your head while <<$sex_ev[''dress_describe'']>>. "I have something to do then. What about <<npc_booty_call_time[$boy]>>? Does that work for you?"'
+	if (sex_ev['invite_tomorrow'] = 1 and (npc_day_off[$boy] = week + 1 or (week = 7 and npc_day_off[$boy] = 1))) or (sex_ev['invite_today'] = 1 and npc_day_off[$boy] = week):
+		'"Sure," he smirks. "It''s my day off. Any time works for me."'
+		'"Great," you say back. "I''ll swing by tomorrow."'
+		gs 'sex_ev_leave', 'pc_sex_ev_invite_accepted'
+	elseif npc_booty_call_time[$boy] > npc_end_free_time[$boy] or npc_booty_call_time[$boy] < npc_start_free_time[$boy]:
+		'"No," <<$npc_firstname[$boy]>> grunts with a shake of his head. "I''ll be busy then too."'
+		'"Damn it all!" you curse. "Why is it so hard just to schedule a time to have sex?!"'
+		gs'sex_ev_leave', 'pc_sex_ev_invite_denied'
+	else
+		'"I think that works for me," <<$npc_firstname[$boy]>> says with a nod of his head.'
+		'"Great," you smile back. "Then I''ll see you at <<npc_booty_call_time[$boy]>>."'
+		gs 'sex_ev_leave', 'pc_sex_ev_invite_accepted'
 	end
 end
 

+ 1 - 1
locations/sex_ev_miss.qsrc

@@ -21,7 +21,7 @@ if $ARGS[0] = 'missionary_start':
 			'"I want you on top," you whisper huskily.'
 			act'Keep fucking':gs'sex_ev_miss', 'miss_goto'
 		end
-	elseif sex_ev['initiative'] ! 1 or sex_ev['force_initiative'] = 2:
+	elseif sex_ev['initiative'] ! 1 and sex_ev['force_initiative'] ! 1:
 		gs 'sex_ev_sex', 'speed_select'
 		act'Continue':
 			sex_ev['cock_inserted'] = 1

+ 2 - 17
locations/sex_ev_morning.qsrc

@@ -898,30 +898,18 @@ if $ARGS[0] = 'sex_ev_invite_later':
 		cla & *nl
 		'"That depends," you say, <<$sex_ev[''dress_describe'']>>. "What time were you thinking?"'
 		'"<<npc_start_free_time[$boy]>>?" <<$npc_firstname[$boy]>> asks.'
-		gs 'sex_ev_after', 'dress_loop'
 		gs 'sex_ev_morning', 'busy_time'
 		gs 'sex_ev_morning', 'sex_ev_plan'
 	end
 end
 
-if $ARGS[0] = 'busy_today':
-	act'I''m busy':
-		gs 'sex_ev', 'block_sex_evs'
-		cla & *nl
-		'"I can''t, sorry," you say, <<$sex_ev[''dress_describe'']>>. "I''m busy."'
-		'"Damn," <<$npc_firstname[$boy]>> says disappointedly.'
-		gs 'sex_ev_after', 'dress_loop'
-		gs 'sex_ev_morning', 'end_morning'
-	end
-end
 
 if $ARGS[0] = 'busy_time':
 	act'I''m busy':
-		gs 'sex_ev', 'block_sex_evs'
+		gs 'sex_ev', 'block_booty_calls'
 		cla & *nl
 		'"I can''t, sorry," you say, <<$sex_ev[''dress_describe'']>>. "I have something to do then."'
 		'"Damn," <<$npc_firstname[$boy]>> says disappointedly.'
-		gs 'sex_ev_after', 'dress_loop'
 		gs 'sex_ev_morning', 'end_morning'
 	end
 end
@@ -932,7 +920,6 @@ if $ARGS[0] = 'sex_ev_plan':
 		cla & *nl
 		'"Sounds good," you grin, <<$sex_ev[''dress_describe'']>>. "I''ll see you then."'
 		'"Great," <<$npc_firstname[$boy]>> grins back.'
-		gs 'sex_ev_after', 'dress_loop'
 		gs 'sex_ev_morning', 'end_morning'
 	end
 	
@@ -941,7 +928,6 @@ if $ARGS[0] = 'sex_ev_plan':
 		cla & *nl
 		'"Sure," you smirk, <<$sex_ev[''dress_describe'']>>. "I got nothing better to do."'
 		'"Great," <<$npc_firstname[$boy]>> grins back.'
-		gs 'sex_ev_after', 'dress_loop'
 		gs 'sex_ev_morning', 'end_morning'
 	end
 	
@@ -954,7 +940,6 @@ if $ARGS[0] = 'sex_ev_plan':
 		else
 			'"Great," <<$npc_firstname[$boy]>> grins back.'
 		end
-		gs 'sex_ev_after', 'dress_loop'
 		gs 'sex_ev_morning', 'end_morning'
 	end
 end
@@ -1624,7 +1609,7 @@ if $ARGS[0] = 'breakfast_in_bed_menu':
 end
 
 if $ARGS[0] = 'want_breakfast':
-	if sex_ev['breakfast_finished'] = 0 and $sex_ev['loc'] ! 'hotel_room':
+	if sex_ev['breakfast_finished'] = 0 and $sex_ev['loc'] ! 'hotel_room' and sex_ev['late_for_school'] = 0:
 		act'Breakfast?':
 			cla
 			act'Offer to cook':

+ 57 - 18
locations/sex_ev_pillow_talk.qsrc

@@ -34,7 +34,7 @@ end
 
 if $ARGS[0] = 'topics':
 	gs'sex_ev_pillow_talk', 'stop_talk'
-!!	if sex_ev['angry_after'] = 0:
+	if sex_ev['angry_after'] = 0:
 		act'Small talk':cla & gs'sex_ev_pillow_talk2', 'small_talk'
 		if sex_ev['sex_over'] = 1:
 			act'Talk about the sex':cla & gs'sex_ev_pillow_talk', 'sex_talk'
@@ -49,7 +49,8 @@ if $ARGS[0] = 'topics':
 			act'Morning sex talk':cla & gs'sex_ev_pillow_talk2', 'morning_sex_talk'
 		end
 		gs'sex_ev_talk', 'ma_pill_money'
-!!	end
+	end
+	gs'sex_ev_pillow_talk', 'boy_talk'
 end
 
 if $ARGS[0] = 'talk_time_add':
@@ -1391,7 +1392,7 @@ if $ARGS[0] = 'free_creampies':
 				'"Y''know," you say, gently looking into <<$npc_firstname[$boy]>>''s eyes. "You don''t need to ask to come inside me. I really like it when you do. It feels good."'
 				gs 'sex_ev_pillow_talk', 'free_creampies2'
 			end
-			if pc_cum_pref_know[$boy] = 'creampie':
+			if $pc_cum_pref_know[$boy] = 'creampie':
 				act'I know how much you like it':
 					cla & *clr
 					'<center><img <<$set_imgh>> src="images/shared/sex/after/pillow_talk2.jpg"></center>'
@@ -1748,22 +1749,19 @@ end
 
 !! ------------------------------ BOY INITIATED CONVERSATIONS -------------------------------------------------
 if $ARGS[0] = 'boy_talk':
-	if sex_ev['boy_topic_check'] = 1: gs 'sex_ev_pillow_talk', 'boy_topic_check'
+	if sex_ev['boy_topic_check'] = 0: gs 'sex_ev_pillow_talk', 'boy_topic_check'
 	
 	if sex_ev['boy_topics'] > 0 and rand(0,1) = 1:
 		:boy_talk_loop
-		if sex_ev['good_for_you'] = 0 and rand(1,3) = 1:
+		if sex_ev['good_for_you'] = 0 and rand(1,2) = 1:
 			gs 'sex_ev_favorite_part', 'boy_good_for_you'
-		elseif sex_ev['boy_pube_talk'] = 0 and rand(1,2) = 1:
-		
-		elseif sex_ev['broken_condom_talk'] = 0 and rand(1,2) = 1:
+		elseif sex_ev['boy_pube_talk'] = 0 and rand(1,1) = 1:
+			gs'sex_ev_pillow_talk', 'boy_pube_talk'
+!!		elseif sex_ev['broken_condom_talk'] = 0 and rand(1,2) = 1:
 		
-		elseif sex_ev['creampie_okay'] = 0:
+!!		elseif sex_ev['creampie_okay'] = 0:
 		
 !!		elseif sex_ev['boy_no_kids'] = 0:
-		
-		else
-			jump 'boy_talk_loop'
 		end
 	end
 end
@@ -1771,8 +1769,8 @@ end
 if $ARGS[0] = 'boy_topic_check':
 	sex_ev['boy_topics'] = 0
 	if sex_ev['cum_count'] >= (npc_sexdrive[$boy] / 4 * 3) and sex_ev['good_for_you'] ! 1: sex_ev['boy_topics'] += 1
-	if sex_ev['broken_condom'] >= 1 and sex_ev['broken_condom_talk'] ! 1 and (npc_selfish ! 1 and (npc_childfree = 1 or npc_caretaker = 1)): sex_ev['boy_topics'] += 1
-	if sex_ev['creampie_surprise'] >= 1 and sex_ev['creampie_okay'] ! 1: sex_ev['boy_topics'] += 1
+!!	if sex_ev['broken_condom'] >= 1 and sex_ev['broken_condom_talk'] ! 1 and (npc_selfish ! 1 and (npc_childfree = 1 or npc_caretaker = 1)): sex_ev['boy_topics'] += 1
+!!	if sex_ev['creampie_surprise'] >= 1 and sex_ev['creampie_okay'] ! 1: sex_ev['boy_topics'] += 1
 	if sex_ev['boy_pube_talk'] ! 1: sex_ev['boy_topics'] += 1
 !!	if sex_ev['broken_condom'] >= 1 and sex_ev['boy_pube_talk'] ! 1: sex_ev['boy_topics'] += 1
 !!	if sex_ev['condom'] ! 1 and sex_ev['boy_condom_rule_talk'] ! 1: sex_ev['boy_topics'] += 1
@@ -1848,6 +1846,7 @@ end
 
 if $ARGS[0] = 'boy_pube_talk':
 	sex_ev['boy_pube_talk'] = 1
+	sex_ev['boy_topics'] -= 1
 	if ($npc_like_pubestyle[$boy] ! '' and $npc_like_pubestyle[$boy] ! $pube_style['word']) or ($npc_like_pubestyle[$boy] = 'none' and $npc_know_pubes[$boy] ! $pube_style['word']):gt'sex_ev_pillow_talk', 'boy_pubes_changed'
 	
 	$npc_know_pubes[$boy] = $pube_style['word']
@@ -2093,8 +2092,8 @@ if $ARGS[0] = 'boy_pubes_response':
 			'"I think it''s hot," <<$npc_firstname[$boy]>> grins. "I love it when a girl knows how to take care of her bush."'
 			gs'sex_ev_pillow_talk', 'boy_likes_trimmed'
 		elseif npc_bush_pref[$boy] = 3:
-			'"Ever considered letting it grow out? Go full bush?"'
-			gs'sex_ev_pillow_talk', 'boy_likes_bush'
+			'"Ever considered letting it grow out more?"'
+			gs'sex_ev_pillow_talk', 'boy_asks_bush'
 		end
 	elseif pcs_pubes < 4:
 		if npc_bush_pref[$boy] = 1:
@@ -2104,8 +2103,8 @@ if $ARGS[0] = 'boy_pubes_response':
 			'"Ever considered letting it grow out a little?"'
 			gs'sex_ev_pillow_talk', 'boy_asks_trim'
 		elseif npc_bush_pref[$boy] = 3:
-			'"Ever considered letting it grow out? Go full bush?"'
-			gs'sex_ev_pillow_talk', 'boy_likes_bush'
+			'"Ever considered letting it grow out?"'
+			gs'sex_ev_pillow_talk', 'boy_asks_bush'
 		end
 	else
 		'Bug report: boy_pubes_response dead-end'
@@ -2194,6 +2193,46 @@ if $ARGS[0] = 'boy_asks_trim':
 	gs'sex_ev_pillow_talk', 'annoyed_shave'
 end
 
+if $ARGS[0] = 'boy_asks_bush':
+	act'No':
+		cla & *nl
+		if sex_ev['like_pubes'] = 1:
+			'"Not really," you shrug. "I already told you, I like it this way. Why would I consider doing anything different?"'
+		else
+			'"Not really," you say, giving him a look. "What makes you think I''d grow a bush just for you?"'
+		end
+		gs'sex_ev_pillow_talk', 'topic_route'
+	end
+	
+	act'You think I should?':
+		cla & *nl
+		if pcs_pubes < 4:
+			'"You think I should?" you ask him, looking down and inspecting your smooth pussy.'
+		elseif $pube_style['word'] = 'stubble':
+			'"You think I should?" you ask him, looking down and inspecting your stubbly pussy.'
+		else
+			'"You think I should?" you ask him, looking down and inspecting your pubic hair.'
+		end
+		'"Yeah," <<$npc_firstname[$boy]>> says. "I think you''d look super sexy with a full bush."'
+		gs'sex_ev_pillow_talk', 'change_pubes_for_boy'
+	end
+	
+	act'You''d like that?':
+		cla & *nl
+		if pcs_pubes < 4:
+			'"You''d like it like that?"" you ask him, looking down and inspecting your smooth pussy.'
+		elseif $pube_style['word'] = 'stubble':
+			'"You''d like it like that?" you ask him, looking down and inspecting your stubbly pussy.'
+		else
+			'"You''d like it like that?" you ask him, looking down and inspecting your pubic hair.'
+		end
+		'"Yeah," <<$npc_firstname[$boy]>> says. "I''d love it if you went full bush."'
+		gs'sex_ev_pillow_talk', 'change_pubes_for_boy'
+	end
+	
+	gs'sex_ev_pillow_talk', 'annoyed_shave'
+end
+
 if $ARGS[0] = 'change_pubes_for_boy':
 	act'I''ll think about it':
 		npc_shave_think[$boy] = daystart

+ 70 - 59
locations/sex_ev_reactions.qsrc

@@ -410,10 +410,10 @@ if $ARGS[0] = 'creampie_ask_next_time':
 						end
 						if sex_ev['cum_wherever'] = 1:
 							'"You told me I could come wherever I wanted," he grins in return.'
-							'"You still need to warn me," you giggle back.'
+							'"You still need to warn me," you chide gently.'
 						elseif npc_know_bc[$boy] = 1:
 							'"You''re on birth control anyways aren''t you?"'
-							'"You still need to ask," you snicker.'
+							'"You still need to ask," you chide gently.'
 						else
 							'"Sorry," <<$npc_firstname[$boy]>> mumbles, apparently exhausted from emptying his balls into you without permission.'
 						end
@@ -444,51 +444,53 @@ if $ARGS[0] = 'creampie_ask_next_time':
 end
 
 if $ARGS[0] = 'creampie_ask_next_time_mad':
-	if npc_ask_creampie[$boy] = 0:
-		act'Ask next time (very mad)':
-			if sex_ev['cock_inserted'] = 0:
-				cla & *nl
-			else
-				cla & *clr
-				if $sex_ev['position'] = 'miss':
-					'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/3.jpg"></center>'
-				elseif $sex_ev['position'] = 'doggy':
-					'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/shock1.jpg"></center>'
-				elseif $sex_ev['position'] = 'cowgirl':
-					'<center><img <<$set_imgh>> src="images/shared/sex/vag/cowgirl/3.jpg"></center>'
+	if sex_ev['creampie_force'] ! 1:
+		if npc_ask_creampie[$boy] = 0:
+			act'Ask next time (very mad)':
+				if sex_ev['cock_inserted'] = 0:
+					cla & *nl
+				else
+					cla & *clr
+					if $sex_ev['position'] = 'miss':
+						'<center><img <<$set_imgh>> src="images/shared/sex/vag/miss/3.jpg"></center>'
+					elseif $sex_ev['position'] = 'doggy':
+						'<center><img <<$set_imgh>> src="images/shared/sex/vag/doggy/shock1.jpg"></center>'
+					elseif $sex_ev['position'] = 'cowgirl':
+						'<center><img <<$set_imgh>> src="images/shared/sex/vag/cowgirl/3.jpg"></center>'
+					end
 				end
+				if sex_ev['came_together'] > 0:
+					'"You need to..." you pant. "... ask... before you do... that..."'
+					'It''s hard to give a glare that has impact when you''re still dick drunk off the back of your last orgasm but you somehow manage anyways, looking at him with daggers in your eyes.'
+				else
+					'"Can''t you fucking ask before you come inside me?" you scowl.'
+				end
+				if npc_free_creampies[$boy] = 2:
+					'"I thought you said I didn''t have to ask," <<$npc_firstname[$boy]>> says confusedly.'
+					'"Changed my mind. You need to start asking again."'
+				elseif sex_ev['cum_wherever'] = 1:
+					'"You told me I could come wherever I wanted," he pants in return, smiling.'
+					'"You still need to fucking tell me what you''re gonna do," you hiss.'
+				elseif npc_know_bc[$boy] = 1:
+					'"You''re on birth control anyways aren''t you?"'
+					'"That''s not a fucking excuse you asshole!" you hiss.'
+				else
+					'"Sorry," <<$npc_firstname[$boy]>> mumbles, apparently exhausted from emptying his balls into you without permission.'
+					'"Don''t be sorry," you grumble. "Be better."'
+				end
+				npc_ask_creampie[$boy] = 1
+				gs'sex_ev_reactions', 'creampie_ask_next_time_mad2'
 			end
-			if sex_ev['came_together'] > 0:
-				'"You need to..." you pant. "... ask... before you do... that..."'
-				'It''s hard to give a glare that has impact when you''re still dick drunk off the back of your last orgasm but you somehow manage anyways, looking at him with daggers in your eyes.'
-			else
-				'"Can''t you fucking ask before you come inside me?" you scowl.'
-			end
-			if npc_free_creampies[$boy] = 2:
-				'"I thought you said I didn''t have to ask," <<$npc_firstname[$boy]>> says confusedly.'
-				'"Changed my mind. You need to start asking again."'
-			elseif sex_ev['cum_wherever'] = 1:
-				'"You told me I could come wherever I wanted," he pants in return, smiling.'
-				'"You still need to fucking tell me what you''re gonna do," you hiss.'
-			elseif npc_know_bc[$boy] = 1:
-				'"You''re on birth control anyways aren''t you?"'
-				'"That''s not a fucking excuse you asshole!" you hiss.'
-			else
-				'"Sorry," <<$npc_firstname[$boy]>> mumbles, apparently exhausted from emptying his balls into you without permission.'
-				'"Don''t be sorry," you grumble. "Be better."'
-			end
-			npc_ask_creampie[$boy] = 1
-			gs'sex_ev_reactions', 'creampie_ask_next_time_mad2'
-		end
-	else
-		act'What happened to asking (very mad)':
-			cla & *nl
-			if sex_ev['came_together'] > 0:
-				'"Didn''t..." you pant, exhaustedly glaring at him. "... I tell you... to ask first...?"'
-			else
-				'"What the fuck!" you scowl. "Didn''t I tell you to ask first?!"'
+		else
+			act'What happened to asking (very mad)':
+				cla & *nl
+				if sex_ev['came_together'] > 0:
+					'"Didn''t..." you pant, exhaustedly glaring at him. "... I tell you... to ask first...?"'
+				else
+					'"What the fuck!" you scowl. "Didn''t I tell you to ask first?!"'
+				end
+				gs'sex_ev_reactions', 'creampie_ask_next_time_mad2'
 			end
-			gs'sex_ev_reactions', 'creampie_ask_next_time_mad2'
 		end
 	end
 end
@@ -682,7 +684,7 @@ if $ARGS[0] = 'creampie_gross2':
 		if npc_free_creampies[$boy] > 0 and $pc_cum_pref_know[$boy] = 'creampie':
 			'"They feel weird," you grimace, before twisting your mouth in a wry smirk and shrug. "But I like you. So you better be happy I let you do this."'
 		else
-			'"They feel weird," you grimace. "I don''t like it."'
+			'"It feels weird when guys come inside," you grimace. "It feels like a bunch of slime filling up my vagina. I don''t like it."'
 		end
 		gs'sex_ev_sex', 'sex_end'
 	end
@@ -777,7 +779,11 @@ if $ARGS[0] = 'thanks_for_asking':
 			elseif $sex_ev['position'] = 'cowgirl':
 				'<center><img <<$set_imgh>> src="images/shared/sex/vag/cowgirl/smile1.jpg"></center>'
 			end
-			if sex_ev['came_together'] > 0 and npc_ask_creampie[$boy] = 1:
+			if sex_ev['creampie_force'] = 1 and sex_ev['came_together'] > 0:
+				'"Thanks for asking," you pant, smiling mischievously at <<$npc_firstname[$boy]>>.'
+			elseif sex_ev['creampie_force'] = 1:
+				'"Thanks for asking," you say mischievously.'
+			elseif sex_ev['came_together'] > 0 and npc_ask_creampie[$boy] = 1:
 				'"Thanks for asking," you murmur, giving <<$npc_firstname[$boy]>> a blissful smile.'
 				gs'sex_ev_sex', 'sex_end'
 			elseif sex_ev['came_together'] > 0:
@@ -788,12 +794,12 @@ if $ARGS[0] = 'thanks_for_asking':
 				'"Well, you wanted me to, didn''t you?" he smiles back.'
 				gs'sex_ev_sex', 'sex_end'
 			else
-				'"Thanks for asking," you say to <<$npc_firstname[$boy]>>. "It means a lot to me when a guy asks permission to come inside."'
+				'"Thanks for asking," you say to <<$npc_firstname[$boy]>>. "It means a lot to me when you permission to come inside."'
 				if npc_dont_like_creampie[$boy] = 1:
 					'"I thought you didn''t like creampies," he asks curiously.'
 					act'Did it for you':
 						cla & *nl
-						'"I don''t," you say, giving him a warm smile. "But I thought I''d give you a treat."'
+						'"I don''t," you say, giving him a warm smile. "But I know you do."'
 						gs'sex_ev_sex', 'sex_end'
 					end
 					
@@ -1511,7 +1517,7 @@ if $ARGS[0] = 'love_creampies':
 					'"I love it when guys come inside me," you sigh contently. "Something about it just turns me on so much."'
 				end
 				if $npc_cum_pref[$boy] = 'creampie':
-					pc_cum_pref_know[$boy] = npc_cum_pref[$boy]
+					 $pc_cum_pref_know[$boy] = npc_cum_pref[$boy]
 					'"Coming inside is always the best," he says, looking at you. "We must be made to match."'
 					'"Must be," you say back, giving him a smile.'		
 				else
@@ -1622,6 +1628,11 @@ if $ARGS[0] = 'why_not_inside':
 		act'Why didn''t you come inside me?':
 			cla & *nl
 			'"Aww," you moan. "What a waste. Why didn''t you come inside me?"'
+			if $npc_cum_pref[$boy] = 'creampie':
+				'"It just sorta slipped out," <<$npc_firstname[$boy]>> says a little embarrassedly.'
+			else
+			
+			end
 			gs 'sex_ev_sex', 'sex_end'
 		end
 	end
@@ -2746,11 +2757,11 @@ end
 
 if $ARGS[0] = 'swallow_react1':
 	if sex_ev['swallow'] = 1 or sex_ev['last_cum'] = 'swallow':
-		if npc_cum_pref[$boy] = 2 and pc_cum_pref_know[$boy] = 0:
+		if npc_cum_pref[$boy] = 2 and $pc_cum_pref_know[$boy] = 0:
 			'"I love watching you swallow," <<$npc_firstname[$boy]>> says, looking at you with blissful satisfaction. '
 			act'You think it''s hot?':
 				cla & *nl
-				pc_cum_pref_know[$boy]= npc_cum_pref[$boy]
+				$pc_cum_pref_know[$boy]= npc_cum_pref[$boy]
 				'"Yeah?" you ask, licking your lips. "You think it''s hot?"'
 				'"The hottest thing a girl can do. Even better than coming inside."'
 				act'Good to know':
@@ -2780,7 +2791,7 @@ if $ARGS[0] = 'swallow_react1':
 			end
 			gs 'sex_ev_reactions', 'spit_quit'
 		else
-			if npc_cum_pref[$boy] = 2 and pc_cum_pref_know[$boy] = npc_cum_pref[$boy]:
+			if npc_cum_pref[$boy] = 2 and $pc_cum_pref_know[$boy] = npc_cum_pref[$boy]:
 				'"You''re so hot when you swallow my load like that," <<$npc_firstname[$boy]>> smiles at you.'
 				gs 'sex_ev_reactions', 'swallow_for_you'
 			else
@@ -3086,25 +3097,25 @@ if $ARGS[0] = 'bj_warning_next_time':
 		cla & *clr
 			$sex_ev['bed_room']
 		if sex_ev['bj_cum'] = 1:
-			if pc_cum_pref_know[$boy]= npc_cum_pref[$boy]:
+			if $pc_cum_pref_know[$boy]= npc_cum_pref[$boy]:
 				'"I don''t mind if you come in my mouth," you say, licking your lips with a smile. "I know how much you love it. But could you at least warn me before you do it?"'
 			else
 				'"A little warning next time?" you smile, wiping a loose drop of cum from your lip. "I barely had time to swallow."'
 			end
 		elseif sex_ev['bj_cum'] = 2:
-			if pc_cum_pref_know[$boy]= npc_cum_pref[$boy]:
+			if $pc_cum_pref_know[$boy]= npc_cum_pref[$boy]:
 				'"I don''t mind if you come in my mouth," you smile, wiping your lips. "I know how much you love it. But could you at least warn me before you do it?"'
 			else
 				'"A little warning next time?" you ask, with a cumglazed smile.'
 			end
 		elseif sex_ev['bj_cum'] = 3:
-			if pc_cum_pref_know[$boy] = npc_cum_pref[$boy]:
+			if $pc_cum_pref_know[$boy] = npc_cum_pref[$boy]:
 				'"I don''t mind if you come in my mouth," you smile, wiping your lips. "I know how much you love it. But could you at least warn me before you do it?"'
 			else
 				'"A little warning next time?" you ask, with a cumglazed smile.'
 			end
 		end
-		if npc_cum_pref[$boy] = 2 and pc_cum_pref_know[$boy] = 0:
+		if npc_cum_pref[$boy] = 2 and $pc_cum_pref_know[$boy] = 0:
 			if npc_generous[$boy] = 1:
 				npc_bj_cum_warn[$boy] = 1
 				'"Sorry," he smiles back apologetically. "I''ll try to remember next time. You''re just so good at this, it''s hard to hold back."'
@@ -3128,7 +3139,7 @@ if $ARGS[0] = 'bj_warning_next_time':
 			end
 
 			act'Really?':
-				pc_cum_pref_know[$boy] = npc_cum_pref[$boy]
+				$pc_cum_pref_know[$boy] = npc_cum_pref[$boy]
 				cla & *clr
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/mouth/smile1.jpg"></center>'
 				'"Really?" you ask. "You like it that much?"'
@@ -3253,7 +3264,7 @@ if $ARGS[0] = 'bj_swallow_gross':
 end
 
 if $ARGS[0] = 'bj_swallow_gross2':
-	if npc_cum_pref[$boy] = 2 and pc_cum_pref_know[$boy]= npc_cum_pref[$boy]:
+	if npc_cum_pref[$boy] = 2 and $pc_cum_pref_know[$boy]= npc_cum_pref[$boy]:
 		act'Because I know you like it':
 			cla & *nl
 			'"Yeah, cause I know you''re a pervert who likes watching me drink your nasty cum," you say with a glare. "I''m generous like that."'
@@ -3310,7 +3321,7 @@ if $ARGS[0] = 'bj_spit_gross':
 end
 
 if $ARGS[0] = 'bj_spit_gross2':
-	if npc_cum_pref[$boy] = 2 and pc_cum_pref_know[$boy]= npc_cum_pref[$boy]:
+	if npc_cum_pref[$boy] = 2 and $pc_cum_pref_know[$boy]= npc_cum_pref[$boy]:
 		act'Compromise':
 			cla & *nl
 			'"Just because I don''t want to swallow doesn''t mean I don''t want you to feel good," you say with a raised eyebrow. "Good sex is all about good compromise, isn''t it?"'

+ 3 - 0
locations/sex_ev_sex.qsrc

@@ -42,6 +42,7 @@ if $ARGS[0] = 'sex_start':
 				
 				act'Change positions':
 					sex_ev['force_initiative'] = 1
+					sex_ev['change_pos'] = 1
 					cla
 					if sex_ev['no_condom'] ! 1:
 						gs 'sex_ev_condoms', 'condoms'
@@ -1278,6 +1279,8 @@ if $ARGS[0] = 'reset':
 	sex_ev['good_for_you'] = 0
 	sex_ev['blowjob_switch'] = 0
 	sex_ev['cock_sex_clean'] = 0
+	if sex_ev['creampie_force'] = 1: sex_ev['creampie_force'] = 2
+	sex_ev['creampie_ask'] = 0
 end
 
 if $ARGS[0] = 'pain':

+ 2 - 2
locations/sex_ev_shower.qsrc

@@ -945,7 +945,7 @@ if $ARGS[0] = 'after_shower_creampie_surprise':
 		*nl
 		'Finally, your orgasms subside and you untangle yourselves. As his cock leaves your pussy, something hot dribbles down your leg.'
 		act'That was nice':
-			cla & *nl
+			cla & *clr
 			'<center><video autoplay loop src="images/shared/sex/shower/after1.mp4"></video></center>'
 			'"That was nice," you pant, unable to say anything else.'
 			'"I guess... you might need another shower," <<$npc_firstname[$boy]>> says, looking a little embarrassed.'
@@ -1631,7 +1631,7 @@ if $ARGS[0] = 'morning_shower_creampie_surprise':
 		*nl
 		'Finally, your orgasms subside and you untangle yourselves. As his cock leaves your pussy, something hot dribbles down your leg.'
 		act'That was nice':
-			cla & *nl
+			cla & *clr
 			'<center><video autoplay loop src="images/shared/sex/shower/after1.mp4"></video></center>'
 			'"That was nice," you pant, unable to say anything else.'
 			'"I guess... you might need another shower," <<$npc_firstname[$boy]>> says, looking a little embarrassed.'

+ 1 - 1
locations/sex_ev_talk.qsrc

@@ -328,7 +328,7 @@ if $ARGS[0] = 'free_creampies':
 				end
 				gs 'sex_ev_talk', 'free_creampies2'
 			end
-			if pc_cum_pref_know[$boy] = 'creampie':
+			if $pc_cum_pref_know[$boy] = 'creampie':
 				act'I know how much you like it':
 					cla & *clr
 					$sex_ev['temp_pic']

+ 26 - 5
locations/sexshop.qsrc

@@ -335,15 +335,36 @@ if $ARGS[0] = 'shoes':
 	menu_off = 0
 	*clr & cla
 	gs'stat'
+	'<center><b><font color="maroon">Viewing G&M shoes</font></b></center>'
+	*nl
+
+	gs 'shoes', 'shop_filter_header'
 
 	act 'Return': minut += 1 & gt 'sexshop', 'start'
 
-	i = 1
+	!!To filter just this set
+	clo_i = 0
+	:loopshoequality_filter
 
-	:looperoto_shoes
-		if eroto_shoe[i] = 0:*p '<a href="exec: i = <<i>> & gt ''sexshop'', ''eroto_shoes''"><img src="images/pc/items/eroto/shoes/<<i>>.jpg" height="250" /></a>'
-		i += 1
-	if i <= 40:jump 'looperoto_shoes'
+		i = 1
+
+		:looperoto_shoes
+			if eroto_shoe[i] = 0:
+				gs 'shoe_attributes', 'eroto', i
+				gs 'shoes', 'shoe_filter'
+				if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+					if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+						*p '<a href="exec: i = <<i>> & gt ''sexshop'', ''eroto_shoes''"><img src="images/pc/items/eroto/shoes/<<i>>.jpg" height="250" /></a>'
+					end
+				end
+			end
+			i += 1
+		if i <= 40:jump 'looperoto_shoes'
+
+	clo_i += 1
+	if Shofilter['quality'] = 0 and clo_i <= 7:
+		jump 'loopshoequality_filter'
+	end
 end
 
 if $ARGS[0] = 'eroto_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'eroto',i, 2500

+ 333 - 18
locations/shoes.qsrc

@@ -17,7 +17,7 @@ $shoe_list_line = {
 	else
 		shoe_temp = 75 & !shoe widdefault to 75
 	end
-	$RESULT +='<TD><a href="exec:gt ''shoes'', ''view_shoe_item'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>"><img src="<<FUNC(''$shoe_image'', $ARGS[1], ARGS[2])>>" width="<<shoe_temp>>"></a></TD>'
+	$RESULT +='<TD><a href="exec:gt ''shoes'', ''view_shoe_item'', ''wardrobe'', ''<<$ARGS[1]>>'', <<ARGS[2]>>"><img src="<<FUNC(''$shoe_image'', $ARGS[1], ARGS[2])>>" width="<<shoe_temp>>"></a></TD>'
 	killvar 'shoe_temp'
 	gs 'shoe_attributes', $ARGS[1], ARGS[2]
 
@@ -36,7 +36,7 @@ $shoe_list_line = {
 		$RESULT += '<TD>No</TD>'
 	end
 	
-	$RESULT += '<TD><a href="exec:gt ''shoes'', ''view_shoe_item'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>">View</a></TD>'
+	$RESULT += '<TD><a href="exec:gt ''shoes'', ''view_shoe_item'', ''wardrobe'', ''<<$ARGS[1]>>'', <<ARGS[2]>>">View</a></TD>'
 
 	$RESULT += '<TD>'
 	if sloc ! 1:$RESULT += ' <a href="exec:gt ''shoes'', ''dest1'', ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>'', <<ARGS[2]>>">Storage</a>'
@@ -95,60 +95,142 @@ if $ARGS[0] = 'view_shoe_list':
 	if $ARGS[1] = 'unwanted':
 		sloc = 2
 	end
+	gs 'shoes', 'filter_header', 'store'
 
 	$bgcolor='#f3f4ee'
 
 	'<center><table border=0 cellspacing=0 cellpadding=5><TH></TH><TH>Shoe</TH><TH>Description</TH><TH>Bimbo</TH><TH>Stripper</TH><TH>Actions</TH>'
 
+	!!To filter just this set
+	clo_i = 0
+	:loopshoequality_filter
+
 	i = 1
 	:loopmoncheri_shoe
-		if moncheri_shoe[i] = 1 and moncheri_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'moncheri', i)
-		i += 1
+		if moncheri_shoe_s[i] = sloc and moncheri_shoe[i] = 1 and Shofilter['sport_only'] = 0:
+			gs 'shoe_attributes', 'moncheri', i
+			gs 'shoes', 'shoe_filter'
+			!!sort by filter
+			if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+				if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+					*P dyneval($shoe_list_line, $ARGS[1], 'moncheri', i)
+				end
+			end
+		end
+	i += 1
 	if i <= ARRSIZE('moncheri_shoe'):jump 'loopmoncheri_shoe'
 
 	i = 1
 	:loopcats_shoe
-		if cats_shoe[i] = 1 and cats_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'cats', i)
-		i += 1
+		if cats_shoe_s[i] = sloc and cats_shoe[i] = 1 and Shofilter['sport_only'] = 0:
+			gs 'shoe_attributes', 'cats', i
+			gs 'shoes', 'shoe_filter'
+			!!sort by filter
+			if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+				if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+					*P dyneval($shoe_list_line, $ARGS[1], 'cats', i)
+				end
+			end
+		end
+	i += 1
 	if i <= ARRSIZE('cats_shoe'):jump 'loopcats_shoe'
 
 	i = 1
 	:loopbomba_shoe
-		if bomba_shoe[i] = 1 and bomba_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'bomba', i)
-		i += 1
+		if bomba_shoe_s[i] = sloc and bomba_shoe[i] = 1 and Shofilter['sport_only'] = 0:
+			gs 'shoe_attributes', 'bomba', i
+			gs 'shoes', 'shoe_filter'
+			!!sort by filter
+			if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+				if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+					*P dyneval($shoe_list_line, $ARGS[1], 'bomba', i)
+				end
+			end
+		end
+	i += 1
 	if i <= ARRSIZE('bomba_shoe'):jump 'loopbomba_shoe'
 
 	i = 1
 	:loopdolls_shoe
-		if dolls_shoe[i] = 1 and dolls_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'dolls', i)
-		i += 1
+		if dolls_shoe_s[i] = sloc and dolls_shoe[i] = 1 and Shofilter['sport_only'] = 0:
+			gs 'shoe_attributes', 'dolls', i
+			gs 'shoes', 'shoe_filter'
+			!!sort by filter
+			if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+				if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+					*P dyneval($shoe_list_line, $ARGS[1], 'dolls', i)
+				end
+			end
+		end
+	i += 1
 	if i <= ARRSIZE('dolls_shoe'):jump 'loopdolls_shoe'
 
 	i = 1
 	:loopgm_shoe
-		if gm_shoe[i] = 1 and gm_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'gm', i)
-		i += 1
+		if gm_shoe_s[i] = sloc and gm_shoe[i] = 1 and Shofilter['sport_only'] = 0:
+			gs 'shoe_attributes', 'gm', i
+			gs 'shoes', 'shoe_filter'
+			!!sort by filter
+			if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+				if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+					*P dyneval($shoe_list_line, $ARGS[1], 'gm', i)
+				end
+			end
+		end
+	i += 1
 	if i <= ARRSIZE('gm_shoe'):jump 'loopgm_shoe'
 
 	i = 1
 	:looperoto_shoe
-		if eroto_shoe[i] = 1 and eroto_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'eroto', i)
-		i += 1
+		if eroto_shoe_s[i] = sloc and eroto_shoe[i] = 1 and Shofilter['sport_only'] = 0:
+			gs 'shoe_attributes', 'eroto', i
+			gs 'shoes', 'shoe_filter'
+			!!sort by filter
+			if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+				if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+					*P dyneval($shoe_list_line, $ARGS[1], 'eroto', i)
+				end
+			end
+		end
+	i += 1
 	if i <= ARRSIZE('eroto_shoe'):jump 'looperoto_shoe'
 
 	i = 1
 	:loopscandalicious_shoe
-		if scandalicious_shoe[i] = 1 and scandalicious_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'scandalicious', i)
-		i += 1
+		if scandalicious_shoe_s[i] = sloc and scandalicious_shoe[i] = 1 and Shofilter['sport_only'] = 0:
+			gs 'shoe_attributes', 'scandalicious', i
+			gs 'shoes', 'shoe_filter'
+			!!sort by filter
+			if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+				if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+					*P dyneval($shoe_list_line, $ARGS[1], 'scandalicious', i)
+				end
+			end
+		end
+	i += 1
 	if i <= ARRSIZE('scandalicious_shoe'):jump 'loopscandalicious_shoe'
 
 	i = 1
 	:loopdanilovich_shoe
-		if danilovich_shoe[i] = 1 and danilovich_shoe_s[i] = sloc:*P dyneval($shoe_list_line, $ARGS[1], 'danilovich', i)
-		i += 1
+		if danilovich_shoe_s[i] = sloc and danilovich_shoe[i] = 1 and Shofilter['sport'] = 0:
+			gs 'shoe_attributes', 'danilovich', i
+			gs 'shoes', 'shoe_filter'
+			!!sort by filter
+			if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+				if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+					*P dyneval($shoe_list_line, $ARGS[1], 'danilovich', i)
+				end
+			end
+		end
+	i += 1
 	if i <= ARRSIZE('danilovich_shoe'):jump 'loopdanilovich_shoe'
 
 	'</table></center>' 
+	
+	clo_i += 1
+	if Shofilter['quality'] = 0 and clo_i <= 7:
+		jump 'loopshoequality_filter'
+	end
 end
 
 if $ARGS[0] = 'moncheri':
@@ -345,4 +427,237 @@ if $ARGS[0] = 'wear':
 	end
 end
 
+if $ARGS[0] = 'filter_header':
+!! exclude filters
+	$Headerstring = '<TD>'
+	if Shofilter['sport'] = 0:
+		$Headerstring += '<a href="exec:Shofilter[''sport''] = 1 & Shofilter[''sport_only''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/sport.png"></a></TD>'
+	else
+		$Headerstring += '<a href="exec:Shofilter[''sport''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/sport_off.png"></a></TD>'
+	end
+
+	$Headerstring += '<TD>'
+	if Shofilter['stripper'] = 0:
+		$Headerstring += '<a href="exec:Shofilter[''stripper''] = 1 & Shofilter[''stripper_only''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/stripper.png"></a></TD>'
+	else
+		$Headerstring += '<a href="exec:Shofilter[''stripper''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/stripper_off.png"></a></TD>'
+	end
+
+	$Headerstring += '<TD>'
+	if Shofilter['bimbo'] = 0:
+		$Headerstring += '<a href="exec:Shofilter[''bimbo''] = 1 & Shofilter[''bimbo_only''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/bimbo.png"></a></TD>'
+	else
+		$Headerstring += '<a href="exec:Shofilter[''bimbo''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/bimbo_off.png"></a></TD>'
+	end
+
+	$Headerstring += '<TD>'
+	if Shofilter['alternative'] = 0:
+		$Headerstring += '<a href="exec:Shofilter[''alternative''] = 1 & Shofilter[''alternative_only''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/alternative.png"></a></TD>'
+	else
+		$Headerstring += '<a href="exec:Shofilter[''alternative''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/alternative_off.png"></a></TD>'
+	end
+
+!! sort by filters
+	$Headerstring += '<TD>'
+	if Shofilter['number'] = 0:
+		Shofilter['quality'] = 1
+		$Headerstring += '<img src="images/system/icons/clothing/number.png"></TD>'
+	else
+		$Headerstring += '<a href="exec:Shofilter[''number''] = 0 & Shofilter[''quality''] = 1 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/number_off.png"></a></TD>'
+	end
+	
+	$Headerstring += '<TD>'
+	if Shofilter['quality'] = 0:
+		$Headerstring += '<img src="images/system/icons/clothing/quality.png"></TD>'
+	else
+		$Headerstring += '<a href="exec:Clo_i = 0 & Shofilter[''quality''] = 0 & Shofilter[''number''] = 1 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/quality_off.png"></a></TD>'
+	end
+
+!! Show only filers
+	$Headerstring[1] = '<TD>'
+	if Shofilter['sport_only'] = 0:
+		$Headerstring[1] += '<a href="exec:Shofilter[''sport_only''] = 1 & Shofilter[''sport''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/sport_off.png"></a></TD>'
+	else
+		$Headerstring[1] += '<a href="exec:Shofilter[''sport_only''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/sport.png"></a></TD>'
+	end
+
+	$Headerstring[1] += '<TD>'
+	if Shofilter['stripper_only'] = 0:
+		$Headerstring[1] += '<a href="exec:Shofilter[''stripper_only''] = 1 & Shofilter[''stripper''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/stripper_off.png"></a></TD>'
+	else
+		$Headerstring[1] += '<a href="exec:Shofilter[''stripper_only''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/stripper.png"></a></TD>'
+	end
+
+	$Headerstring[1] += '<TD>'
+	if Shofilter['bimbo_only'] = 0:
+		$Headerstring[1] += '<a href="exec:Shofilter[''bimbo_only''] = 1 & Shofilter[''bimbo''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/bimbo_off.png"></a></TD>'
+	else
+		$Headerstring[1] += '<a href="exec:Shofilter[''bimbo_only''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/bimbo.png"></a></TD>'
+	end
+
+	$Headerstring[1] += '<TD>'
+	if Shofilter['alternative_only'] = 0:
+		$Headerstring[1] += '<a href="exec:Shofilter[''alternative_only''] = 1 & Shofilter[''alternative''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/alternative_off.png"></a></TD>'
+	else
+		$Headerstring[1] += '<a href="exec:Shofilter[''alternative_only''] = 0 & gt ''shoes'', ''view_shoe_list''"><img src="images/system/icons/clothing/alternative.png"></a></TD>'
+	end
+
+
+	$Headerstring[2] = '<TH>Include</TH><TH></TH><TH></TH><TH></TH><TH>Sort by</TH><TH></TH>'
+
+	$Headerstring[3] = '<TH>Only show</TH>'
+
+	'<center><table><<$Headerstring[2]>>'
+	'<TR><border=1><<$Headerstring>>'
+
+	'<TR><border=0><<$Headerstring[3]>>'
+	'<TR><border=1><<$Headerstring[1]>></table></center>'
+end
+
+if $ARGS[0] = 'shoe_filter':
+!!Exclude filters
+	Shofilter['inc'] = 1
+	!!filters, if inc set to 0 they will not display
+	if Shofilter['stripper'] = 1 and ShoStyle = 1:
+		Shofilter['inc'] = 0
+	end
+	!!filters, if inc set to 0 they will not display
+	if Shofilter['bimbo'] = 1 and ShoStyle = 2:
+		Shofilter['inc'] = 0
+	end
+	!!filters, if inc set to 0 they will not display
+	if Shofilter['alternative'] = 1 and ShoStyle = 3:
+		Shofilter['inc'] = 0
+	end
+
+!!only filters
+	Shofilter['only'] = 0
+	!!filters, if only set to 1 they will only display those set
+	if Shofilter['stripper_only'] = 1 and ShoStyle = 1:
+		Shofilter['only'] += 1
+	end
+	if Shofilter['bimbo_only'] = 1 and ShoStyle = 2:
+		Shofilter['only'] += 1
+	end
+	if Shofilter['alternative_only'] = 1 and ShoStyle = 3:
+		Shofilter['only'] += 1
+	end
+	!!Check total count to make sure it fits all groups selected
+	if Shofilter['only'] = Shofilter['stripper_only'] + Shofilter['bimbo_only'] + Shofilter['alternative_only']:
+		Shofilter['only'] = 1
+	else
+		Shofilter['only'] = 0
+	end
+end
+
+if $ARGS[0] = 'shop_filter_header':
+!! exclude filters
+	$Headerstring = '<TD>'
+	if Shofilter['stripper'] = 0:
+		$Headerstring += '<a href="exec:Shofilter[''stripper''] = 1 & Shofilter[''stripper_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/stripper.png"></a></TD>'
+	else
+		$Headerstring += '<a href="exec:Shofilter[''stripper''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/stripper_off.png"></a></TD>'
+	end
+
+	$Headerstring += '<TD>'
+	if Shofilter['bimbo'] = 0:
+		$Headerstring += '<a href="exec:Shofilter[''bimbo''] = 1 & Shofilter[''bimbo_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/bimbo.png"></a></TD>'
+	else
+		$Headerstring += '<a href="exec:Shofilter[''bimbo''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/bimbo_off.png"></a></TD>'
+	end
+
+	$Headerstring += '<TD>'
+	if Shofilter['alternative'] = 0:
+		$Headerstring += '<a href="exec:Shofilter[''alternative''] = 1 & Shofilter[''alternative_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/alternative.png"></a></TD>'
+	else
+		$Headerstring += '<a href="exec:Shofilter[''alternative''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/alternative_off.png"></a></TD>'
+	end
+
+!! sort by filters
+	$Headerstring += '<TD>'
+	if Shofilter['number'] = 0:
+		Shofilter['quality'] = 1
+		$Headerstring += '<img src="images/system/icons/clothing/number.png"></TD>'
+	else
+		$Headerstring += '<a href="exec:Shofilter[''number''] = 0 & Shofilter[''quality''] = 1 & Shofilter[''inhibition''] = 1 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/number_off.png"></a></TD>'
+	end
+	
+	$Headerstring += '<TD>'
+	if Shofilter['quality'] = 0:
+		$Headerstring += '<img src="images/system/icons/clothing/quality.png"></TD>'
+	else
+		$Headerstring += '<a href="exec:Shofilter[''quality''] = 0 & Shofilter[''number''] = 1 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/quality_off.png"></a></TD>'
+	end
+
+!! Show only filers
+	$Headerstring[1] = '<TD>'
+	if Shofilter['stripper_only'] = 0:
+		$Headerstring[1] += '<a href="exec:Shofilter[''stripper_only''] = 1 & Shofilter[''stripper''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/stripper_off.png"></a></TD>'
+	else
+		$Headerstring[1] += '<a href="exec:Shofilter[''stripper_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/stripper.png"></a></TD>'
+	end
+
+	$Headerstring[1] += '<TD>'
+	if Shofilter['bimbo_only'] = 0:
+		$Headerstring[1] += '<a href="exec:Shofilter[''bimbo_only''] = 1 & Shofilter[''bimbo''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/bimbo_off.png"></a></TD>'
+	else
+		$Headerstring[1] += '<a href="exec:Shofilter[''bimbo_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/bimbo.png"></a></TD>'
+	end
+
+	$Headerstring[1] += '<TD>'
+	if Shofilter['alternative_only'] = 0:
+		$Headerstring[1] += '<a href="exec:Shofilter[''alternative_only''] = 1 & Shofilter[''alternative''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/alternative_off.png"></a></TD>'
+	else
+		$Headerstring[1] += '<a href="exec:Shofilter[''alternative_only''] = 0 & gt $loc, $loc_arg"><img src="images/system/icons/clothing/alternative.png"></a></TD>'
+	end
+
+
+	$Headerstring[2] = '<TH>Include</TH><TH></TH><TH></TH><TH>Sort by</TH><TH></TH>'
+
+	$Headerstring[3] = '<TH>Only show</TH>'
+
+	'<center><table><<$Headerstring[2]>>'
+	'<TR><border=1><<$Headerstring>>'
+
+	'<TR><border=0><<$Headerstring[3]>>'
+	'<TR><border=1><<$Headerstring[1]>></table></center>'
+end
+
+if $ARGS[0] = 'shop_filter':
+!!Exclude filters
+	Shofilter['inc'] = 1
+	!!filters, if inc set to 0 they will not display
+	if Shofilter['stripper'] = 1 and ShoStyle = 1:
+		Shofilter['inc'] = 0
+	end
+	!!filters, if inc set to 0 they will not display
+	if Shofilter['bimbo'] = 1 and ShoStyle = 2:
+		Shofilter['inc'] = 0
+	end
+	!!filters, if inc set to 0 they will not display
+	if Shofilter['alternative'] = 1 and ShoStyle = 3:
+		Shofilter['inc'] = 0
+	end
+
+!!only filters
+	Shofilter['only'] = 0
+	!!filters, if only set to 1 they will only display those set
+	if Shofilter['stripper_only'] = 1 and ShoStyle = 1:
+		Shofilter['only'] += 1
+	end
+	if Shofilter['bimbo_only'] = 1 and ShoStyle = 2:
+		Shofilter['only'] += 1
+	end
+	if Shofilter['alternative_only'] = 1 and ShoStyle = 3:
+		Shofilter['only'] += 1
+	end
+	!!Check total count to make sure it fits all groups selected
+	if Shofilter['only'] = Shofilter['stripper_only'] + Shofilter['bimbo_only'] + Shofilter['alternative_only']:
+		Shofilter['only'] = 1
+	else
+		Shofilter['only'] = 0
+	end
+end
+
+
 --- shoes ---------------------------------

+ 0 - 23
locations/shop_coco_carmen.qsrc

@@ -146,29 +146,6 @@ if $ARGS[0] = 'coco_outfits':
 
 end
 
-if $ARGS[0] = 'shoes':
-	$loc_arg = $ARGS[0]
-	$loc = 'shop_coco_carmen'
-	$menu_loc = 'shop_coco_carmen'
-	$menu_arg = 'shoes'
-	menu_off = 0
-	*clr & cla
-	gs'stat'
-
-	act 'Return': minut += 1 & gt 'shop_coco_carmen', 'start'
-
-	if Clothingstock > 11:
-		i = 1
-	else
-		i = 2
-	end
-
-	:loopcoco_shoes
-		if scoco[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_coco_carmen'', ''coco_shoes''"><img src="images/pc/shoes/coco/<<i>>.jpg" height="250" /></a>'
-		i += 2
-	if i <= 37:jump 'loopcoco_shoes'
-end
-
 if $ARGS[0] = 'purses':
 	$loc_arg = 'purses'
 	$loc = 'shop_coco_carmen'

+ 27 - 5
locations/shop_dolls.qsrc

@@ -205,18 +205,40 @@ if $ARGS[0] = 'shoes':
 	menu_off = 0
 	*clr & cla
 	gs'stat'
+	'<center><b><font color="maroon">Viewing G&M shoes</font></b></center>'
+	*nl
+
+	gs 'shoes', 'shop_filter_header'
 
 	act 'Return':
 		cla
 		minut += 5
 		gt 'shop_dolls', 'browse'
 	end
-	i = 1
 
-	:loopdolls_shoes
-		if dolls_shoe[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_dolls'', ''dolls_shoes''"><img src="images/pc/items/dolls/shoes/<<i>>.jpg" height="250" /></a>'
-		i += 1
-	if i <= 120:jump 'loopdolls_shoes'
+	!!To filter just this set
+	clo_i = 0
+	:loopshoequality_filter
+
+		i = 1
+
+		:loopdolls_shoes
+			if dolls_shoe[i] = 0:
+				gs 'shoe_attributes', 'dolls', i
+				gs 'shoes', 'shoe_filter'
+				if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+					if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+						*p '<a href="exec: i = <<i>> & gt ''shop_dolls'', ''dolls_shoes''"><img src="images/pc/items/dolls/shoes/<<i>>.jpg" height="250" /></a>'
+					end
+				end
+			end
+			i += 1
+		if i <= 120:jump 'loopdolls_shoes'
+
+	clo_i += 1
+	if Shofilter['quality'] = 0 and clo_i <= 7:
+		jump 'loopshoequality_filter'
+	end
 end
 
 if $ARGS[0] = 'dolls_shoes':

+ 6 - 225
locations/shop_photography.qsrc

@@ -29,13 +29,12 @@ if $ARGS[0] = 'start':
 			minut += 10
 			gs 'stat'
 			'<center><img src="images/locations/city/citycenter/mall/photoshop/owner.jpg"></center>'
-			if photography_start = 1:
-				dynamic $photojob[evt_PhotoID]
+			if photography_start = 1:	
 				'You walk up to Branko. "Excuse me Branko, but you said you might have some work for me. Would you happen to have anything?"'
 				'He smiles at you. "Yes yes, I remember. You''re <<$pcs_nickname>>,  Let me check." He opens a laptop sitting on the counter next to him and taps on the keys before he looks up at you.'
 				
 				!! Init Job Array
-				gs 'shop_photography', 'job_init'
+				gs 'photography_work', 'job_init'
 				gs 'emp_functions', 'disp_evt', 1
 				
 			end
@@ -68,6 +67,10 @@ if $ARGS[0] = 'start':
 			act 'Walk away': gt 'shop_photography' , 'start'
 		end
 	end
+	if evt_chk = 1:
+		!! We've got an event today, check it's location:
+		gs 'emp_functions', 'disp_evt', 3
+	end
 	act 'Leave':
 		*clr & cla
 		minut += 3
@@ -172,229 +175,7 @@ if $ARGS[0] = 'showportfolio':
 	act 'Walk away': gt 'shop_photography' , 'start'
 end
 
-if $ARGS[0] = 'work':
-	*clr & cla
-	minut += 10
-	gs 'stat'
-	'<center><img src="images/locations/city/citycenter/mall/photoshop/owner.jpg"></center>'
-	'You can''t help but smile and feel excited. Yet another paying job as a photographer! "Yes I would love to, just tell me what you have."'
-	'He smiles. "Excellent! I need photos of <<$transient_desc>>" He prints out a page and hands it to you. "Okay, here''s where it is and a list of the photos I need. When you finish, come back here to give me the photos and get paid."'
-	'You smile at him. "Thank you, I''ll go there now." With that, you leave the store.'
-	act 'Go to work': gt 'shop_photography' , 'photojob'
-end
-
-if $ARGS[0] = 'photojob':
-	*clr & cla
-	gs 'exp_gain', 'photoskl', rand(1,50)
-	gs 'stat'
-	photography_job += 1
-	photojob_daystart = daystart
-	! Prevent taking a new job on the sunday following today
-	if week = 6: photojob_daystart += 1
-	minut += rand(1,2)
-	gs 'stat'
-	$loc =$transient_mc_locat
-	$loc_arg = $photojob_loc_arg
-	gt 'shop_photography', $transient_trigger
-end
-
-if $ARGS[0] = 'photojob_pay':
-	if pcs_photoskl > 125:
-		gs 'emp_functions', 'wage_evt', 4
-	elseif pcs_photoskl > 100:
-		gs 'emp_functions', 'wage_evt', 3
-	elseif pcs_photoskl > 75:
-		gs 'emp_functions', 'wage_evt', 2
-	elseif pcs_photoskl > 50:
-		gs 'emp_functions', 'wage_evt', 1
-	else
-		gs 'emp_functions', 'wage_evt', 5, 100
-	end
-end
-
-!! Photography jobs functions
-
-if $ARGS[0] = 'job_init':
-	!! Set up arrays if not initialised
-	if $evt_job[1] = '' :  gs 'emp_functions', 'job_evt'
-	array_len = ARRSIZE('$photojob')
-	array_len = array_len -1	
-	evt_PhotoID = rand(1, array_len)
-	dynamic $photojob[evt_PhotoID]
-	!! set Day of Week for job to appear on	
-	transient_evt_dow = 6
-    !! Now set up the event date
-    gs 'shop_photography' , 'photojob_pay'
-    gs 'emp_functions', 'gen_evt'
-end
-
-
-! Array of photography jobs - additional events should be easy to wire up
-$photojob[1] = {
-	!!Ensure the event is visible in journal:
-	transient_evt_silent = 1
-	!! Set the job type as per list
-	transient_evt_type = 1
-	transient_evt_sub_type = 1
-	$photojob_shortname = 'Tank'
-	$transient_desc = 'Tank and Bazooka Experience Day in Levingrad Oblast'
-	!! Field for trigger location
-	$transient_loc = 'city_industrial'
-	$transient_arg = ''
-	!! Journal loc description
-	$transient_mc_locat = 'St Petersburg Industrial Area'
-	!! Event content location
-	$transient_evt_exec=  'shop_photography'
-	$transient_trigger = 'phototank'
-}
-
-$photojob[2] = {
-	transient_evt_silent = 1
-	transient_evt_type = 1
-	transient_evt_sub_type = 2
-	$photojob_shortname = 'Model'
-	$transient_desc = 'Newspaper Commission at Petrovskaya Akvatoria'
-	$transient_loc = 'shop_photography'
-	$transient_arg = 'start'
-	$transient_mc_locat = 'Meet Branko at the Photography Shop'
-	$transient_trigger = 'photomodel'
-}
-
-$photojob[3] = {
-	transient_evt_silent = 1
-	transient_evt_type = 1
-	transient_evt_sub_type = 3
-	$photojob_shortname = 'Wedding'
-	$transient_desc = 'Wedding at Yelagin Palace'
-	$transient_loc = 'city_residential'
-	$transient_arg = ''
-	$transient_mc_locat = 'St Petersburg Residential Area'
-	$transient_trigger = 'photowedding'
-}
-
-$photojob[4] = {
-	transient_evt_silent = 1
-	transient_evt_type = 1
-	transient_evt_sub_type = 4
-	$photojob_shortname = 'Motorsport'
-	$transient_desc = 'Russian Touring Car Championship Event at St. Petersburg Autodrome'
-	$transient_loc = 'city_industrial'
-	$transient_arg = ''
-	$transient_mc_locat = 'St Petersburg Industrial Area'
-	$transient_trigger = 'photomotorsport'
-}
-
-$photojob[5] = {
-	transient_evt_silent = 1
-	transient_evt_type = 1
-	transient_evt_sub_type = 5
-	$photojob_shortname = 'Court'
-	$transient_desc = 'Press Event at City Courthouse'
-	$transient_loc = 'shop_photography'
-	$transient_arg = 'start'
-	$transient_mc_locat = 'Meet Branko at the Photography Shop'
-	$transient_trigger = 'photocourt'
-}
-
-if $ARGS[0] = 'phototank':
-	*clr & cla
-	minut += 20
-	gs 'stat'
-	'<center><img src="images/characters/shared/headshots_generic/37.jpg"></center>'
-	'You head over to the industrial region where you quickly meet up with your contact at the Experience Center.'
-	'"Hi there; you must be <<$pcs_firstname>>. The group is already on their way to the site, so I''ll take you up there in my car. I''m sure you know everything you need to do, but feel free to ask if you have any questions."'
-	'You get in the car and drive for nearly half an hour until you reach the Experience Center. Once there, the representative parks the car and you get out and head inside.'
-	act 'Go to the Experience Center':
-		*clr & cla
-		minut += rand(120,150)
-		gs 'exp_gain', 'photoskl', rand(6,10)
-		gs 'stat'
-		gs 'shop_photography', 'photojob_pay'
-		'<center><img src="images/pc/activities/photography/job/tank.jpg"></center>'
-		'You arrive at the Experience Center and spend the next two hours taking as many pictures of the experience as you can. The group is clearly enjoying the event; They get to ride in military vehicles across rough terrain and fire weapons at the shooting range.'
-		'Once the day is over, you remove your SD card and hand it to the representative, who shows the photos to the group. Once they''ve sorted out whether any of the customers want additional copies, your contact takes you back to the city''s industrial region. When you check your account, you see that you have been paid <<photopay>>.'
-		gs 'shop_photography', 'photojob_cleanup'
-		act 'Return': gt $loc, $loc_arg
-	end
-end
-
-if $ARGS[0] = 'photomodel':
-	*clr & cla
-	minut += rand(60,90)
-	gs 'exp_gain', 'photoskl', rand(3,5)
-	gs 'stat'
-	gs 'shop_photography', 'photojob_pay'
-	'<center><img src="images/pc/activities/photography/job/model<<rand(1,3)>>.jpg"></center>'
-	'You go to the Petrovskaya Akvatoria Model Museum to take pictures of the various exhibits on behalf of an international newspaper.'
-	'After a brief introduction to a member of staff to confirm your activities, you walk around the exhibit, taking a large number of photographs so that the article has a wealth to choose from.'
-	'Once you''re finished, you return to the shop and hand the SD card to Branko, who gives you your fee of <<photopay>>₽.'
-	gs 'shop_photography', 'photojob_cleanup'
-	act 'Return' : gt $loc, $loc_arg
-end
-
-if $ARGS[0] = 'photowedding':
-	*clr & cla
-	minut += rand(10,18)
-	gs 'stat'
-	'<center><img src="images/characters/shared/headshots_generic/18.jpg"></center>'
-	'You head over to the residential district where you meet one of the family members of the betrothed.'
-	'"Hello, you must be the photographer! If you follow me, I''ll take you to the happy couple to take the pictures of them."'
-	act 'Follow':
-		*clr & cla
-		minut += rand(90,120)
-		gs 'exp_gain', 'photoskl', rand(6,10)
-		gs 'stat'
-		gs 'shop_photography', 'photojob_pay'
-		'<center><img src="images/pc/activities/photography/job/wedding.jpg"></center>'
-		'You meet the bride and groom and help direct them into a number of framed situations for you to take some beautiful photos of them together.'
-		'Once you have enough, you spend the rest of the day in the background taking a number of photos of the wedding. Once it''s over, you meet back up with the relative who takes the SD card from you.'
-		'Leaving them to close up the venue, you walk out back into the residential district. When you check your account, you see that you have been paid <<photopay>>.'
-		gs 'shop_photography', 'photojob_cleanup'
-		act 'Return' : gt $loc, $loc_arg
-	end
-end
-
-if $ARGS[0] = 'photomotorsport':
-	*clr & cla
-	minut += rand(15,20)
-	gs 'stat'
-	'<center><img src="images/characters/shared/headshots_generic/11.jpg"></center>'
-	'You head over to the industrial region and meet a representative of the Autodrome. You will be expected to take pictures of the event and deliver them to your contact.'
-	'"Why hello there, you must be the person Branko sent. I''m sure you already know everything you have to do at the track, so I''ll give you this press pass and take you to the Autodrome."'
-	'You look at the pass they gave you before getting in their car to be taken to the track.'
-	act 'Go to the Autodrome':
-		*clr & cla
-		minut += rand(180,240)
-		gs 'exp_gain', 'photoskl', rand(9,15)
-		gs 'stat'
-		gs 'shop_photography', 'photojob_pay'
-		'<center><img src="images/pc/activities/photography/job/motorsport.jpg"></center>'
-		'You''re dropped off at the employee entrance and directed to the pit area as the teams get their vehicles prepared.'
-		'You start off by getting shots of the teams in the build-up to the race, showcasing the tension and focus as the countdown approaches zero.'
-		'When the race itself starts you roam the track, taking pictures of any event as it happens, getting high intensity shots of fast paced action, as well as the smooth professionalism of the leading drivers. It is a fantastic experience.'
-		*nl
-		'With your job done, you find your contact again and hand them a full SD card for which they are gratified.'
-		'Your contact then takes you back to the city''s industrial region. When you check your account, you see that you have been paid <<photopay>>.'
-		gs 'shop_photography', 'photojob_cleanup'
-		act 'Return' : gt $loc, $loc_arg
-	end
-end
 
-if $ARGS[0] = 'photocourt':
-	*clr & cla
-	minut += 60
-	gs 'exp_gain', 'photoskl', rand(3,5)
-	gs 'stat'
-	gs 'shop_photography', 'photojob_pay'
-	'<center><img src="images/pc/activities/photography/job/court.jpg"></center>'
-	'"You need to go to the courthouse to take publicity photographs of the completed court session as they leave the building, then deliver them back to me to give you your commission."'
-	'You head into the City Center and straight to the courthouse, which has already seen a number of people turn up.'
-	'Once you''ve ingratiated yourself into the crowd, you position yourself to take some good shots of the plaintiff accompanied by their lawyers and representatives.'
-	'With the verdict read, you quickly make your way outside to the front of the courthouse to take photos of him leaving.'
-	'Once you''re finished, you return to the shop and hand the SD card to Branko, who gives you your fee of <<photopay>>₽.'
-	gs 'shop_photography', 'photojob_cleanup'
-	act 'Return' : gt $loc, $loc_arg
-end
 
 --- shop_photography ---------------------------------
 

+ 26 - 5
locations/shop_pussycats.qsrc

@@ -1140,6 +1140,10 @@ if $ARGS[0] = 'shoes':
 	menu_off = 0
 	*clr & cla
 	gs'stat'
+	'<center><b><font color="maroon">Viewing G&M shoes</font></b></center>'
+	*nl
+
+	gs 'shoes', 'shop_filter_header'
 
 	act 'Return':
 		cla
@@ -1147,11 +1151,28 @@ if $ARGS[0] = 'shoes':
 		gt 'shop_pussycats', 'start'
 	end
 
-	i = 1
-	:loopcats_shoe
-		if cats_shoe[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_pussycats'', ''cats_shoe''"><img src="images/pc/items/cats/shoes/<<i>>.jpg" height="250" /></a>'
-		i += 1
-	if i <= 40:jump 'loopcats_shoe'
+	!!To filter just this set
+	clo_i = 0
+	:loopshoequality_filter
+
+		i = 1
+		:loopcats_shoe
+			if cats_shoe[i] = 0:
+				gs 'shoe_attributes', 'cats', i
+				gs 'shoes', 'shoe_filter'
+				if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+					if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+						*p '<a href="exec: i = <<i>> & gt ''shop_pussycats'', ''cats_shoe''"><img src="images/pc/items/cats/shoes/<<i>>.jpg" height="250" /></a>'
+					end
+				end
+			end
+			i += 1
+		if i <= 40:jump 'loopcats_shoe'
+
+	clo_i += 1
+	if Shofilter['quality'] = 0 and clo_i <= 7:
+		jump 'loopshoequality_filter'
+	end
 end
 
 if $ARGS[0] = 'cats_shoe': gt 'shoes', 'view_shoe_item', 'shop', 'cats',i, 900

+ 26 - 5
locations/shop_scandalicious.qsrc

@@ -181,6 +181,10 @@ if $ARGS[0] = 'shoes':
 	$loc = 'shop_scandalicious'
 	cls
 	gs'stat'
+	'<center><b><font color="maroon">Viewing G&M shoes</font></b></center>'
+	*nl
+
+	gs 'shoes', 'shop_filter_header'
 
 	act 'Return':
 		cla
@@ -188,11 +192,28 @@ if $ARGS[0] = 'shoes':
 		gt 'shop_scandalicious', 'start'
 	end
 
-	i = 1
-	:loopscandalicious_shoes
-		if scandalicious_shoe[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_scandalicious'', ''shoes2''"><img src="images/pc/items/scandalicious/shoes/<<i>>.jpg" height="250" /></a>'
-		i += 1
-	if i <= 80:jump 'loopscandalicious_shoes'
+	!!To filter just this set
+	clo_i = 0
+	:loopshoequality_filter
+
+		i = 1
+		:loopscandalicious_shoes
+			if scandalicious_shoe[i] = 0:
+				gs 'shoe_attributes', 'scandalicious', i
+				gs 'shoes', 'shoe_filter'
+				if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+					if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+						*p '<a href="exec: i = <<i>> & gt ''shop_scandalicious'', ''shoes2''"><img src="images/pc/items/scandalicious/shoes/<<i>>.jpg" height="250" /></a>'
+					end
+				end
+			end
+			i += 1
+		if i <= 80:jump 'loopscandalicious_shoes'
+
+	clo_i += 1
+	if Shofilter['quality'] = 0 and clo_i <= 7:
+		jump 'loopshoequality_filter'
+	end
 end
 
 if $ARGS[0] = 'shoes2': gt 'shoes', 'view_shoe_item', 'shop', 'scandalicious',i, 1500

+ 27 - 5
locations/shop_tsar_bomba.qsrc

@@ -174,14 +174,36 @@ if $ARGS[0] = 'shoes':
 	menu_off = 0
 	*clr & cla
 	gs'stat'
+	'<center><b><font color="maroon">Viewing G&M shoes</font></b></center>'
+	*nl
+
+	gs 'shoes', 'shop_filter_header'
 
 	act 'Return': minut += 5 & gt 'shop_tsar_bomba', 'start'
-	i = 1
 
-	:loopbomba_shoes
-		if bomba_shoe[i] = 0:*p '<a href="exec: i = <<i>> & gt ''shop_tsar_bomba'', ''bomba_shoes''"><img src="images/pc/items/bomba/shoes/<<i>>.jpg" height="250" /></a>'
-		i += 1
-	if i <= 40:jump 'loopbomba_shoes'
+	!!To filter just this set
+	clo_i = 0
+	:loopshoequality_filter
+
+		i = 1
+
+		:loopbomba_shoes
+			if bomba_shoe[i] = 0:
+				gs 'shoe_attributes', 'bomba', i
+				gs 'shoes', 'shoe_filter'
+				if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+					if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+						*p '<a href="exec: i = <<i>> & gt ''shop_tsar_bomba'', ''bomba_shoes''"><img src="images/pc/items/bomba/shoes/<<i>>.jpg" height="250" /></a>'
+					end
+				end
+			end
+			i += 1
+		if i <= 40:jump 'loopbomba_shoes'
+
+	clo_i += 1
+	if Shofilter['quality'] = 0 and clo_i <= 7:
+		jump 'loopshoequality_filter'
+	end
 end
 
 if $ARGS[0] = 'bomba_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'bomba',i, 2000

+ 26 - 5
locations/sportShop.qsrc

@@ -119,6 +119,10 @@ if $ARGS[0] = 'shoes':
 	$loc = 'sportShop'
 	cls
 	gs'stat'
+	'<center><b><font color="maroon">Viewing G&M shoes</font></b></center>'
+	*nl
+
+	gs 'shoes', 'shop_filter_header'
 
 	act 'Return':
 		cla
@@ -126,11 +130,28 @@ if $ARGS[0] = 'shoes':
 		gt 'sportShop', 'start'
 	end
 
-	i = 1
-	:loopdanilovich_shoes
-		if danilovich_shoe[i] = 0:*p '<a href="exec: i = <<i>> & gt ''sportShop'', ''training_shoes''"><img src="images/pc/items/danilovich/shoes/<<i>>.jpg" height="250" /></a>'
-		i += 1
-	if i <= 40:jump 'loopdanilovich_shoes'
+	!!To filter just this set
+	clo_i = 0
+	:loopshoequality_filter
+
+		i = 1
+		:loopdanilovich_shoes
+			if danilovich_shoe[i] = 0:
+				gs 'shoe_attributes', 'danilovich', i
+				gs 'shoes', 'shoe_filter'
+				if (Shofilter['quality'] = 0 and ShoQuality = clo_i) or Shofilter['number'] = 0:
+					if Shofilter['inc'] = 1 and Shofilter['only'] = 1:
+						*p '<a href="exec: i = <<i>> & gt ''sportShop'', ''training_shoes''"><img src="images/pc/items/danilovich/shoes/<<i>>.jpg" height="250" /></a>'
+					end
+				end
+			end
+			i += 1
+		if i <= 40:jump 'loopdanilovich_shoes'
+
+	clo_i += 1
+	if Shofilter['quality'] = 0 and clo_i <= 7:
+		jump 'loopshoequality_filter'
+	end
 end
 
 if $ARGS[0] = 'training_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'danilovich',i, 1500

+ 1 - 1
locations/stat_display.qsrc

@@ -93,7 +93,7 @@ $stat_disable_msg = 'Menu is disabled for this event.'
 !$stat_msg += '<<$weather>><BR>'
 !pl '<<$weatherImage>>'
 gs 'emp_functions', 'evt_day_suffix'
-if timeHidden = 0: $stat_msg += '<BR><<$stat_android>> <<$week[week]>> <<day>><<$evt_suffix>> <<$month>> <<year>>'
+if timeHidden = 0: $stat_msg += '<BR><<$stat_android>> <<$week[week]>> <<day>><<$date_suffix>> <<$month>> <<year>>'
 $stat_android += '<<$week[week]>> <<day>>/<<month>>, <<money>> ₽, <a href="exec:clr & pl $stat_android">Status</a>'
 ! $stat_android for short desc in android mode, $stat_msg for status bar.
 if mid($start_type,1,2) = 'sg' and SchoolAtestat ! 1 and $holyday ! '': $stat_msg += '<BR><<$holyday>>' & $stat_msg += '<BR>'

+ 14 - 10
locations/therapist.qsrc

@@ -2785,19 +2785,19 @@ end
 
 !!To be used if you went to somewhere after therapist fucking you
 if $ARGS[0] = 'therapistFucked':	
-		therapistFuckedPussyScene = 0
-		*clr
-		cla
+	therapistFuckedPussyScene = 0
+	*clr
+	cla
 
-		'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/toSchool.mp4"></video></center>'
+	'<center><video autoplay loop src="images/locations/pavlovsk/clinic/therapist/toSchool.mp4"></video></center>'
 
-		'You subconsciously notice your therapist''s sperm slowly leaking out of your cum filled pussy.' 
-		'You feel happier because of this.'
-		pcs_mood += 1
+	'You subconsciously notice your therapist''s sperm slowly leaking out of your cum filled pussy.' 
+	'You feel happier because of this.'
+	pcs_mood += 1
 
-		act 'continue': 
-			gt $menu_loc, $menu_arg
-		end
+	act 'continue': 
+		gt $menu_loc, $menu_arg
+	end
 end
 
 $pavlov = {
@@ -2818,9 +2818,13 @@ $RestTherapyVariables ={
     killvar 'hypnoHardToCum'
     killvar 'therapistday'
     killvar 'hypnoPanty'
+    killvar 'hypnoCheckPanties'
+    killvar 'hypnoFlashGreet'
     killvar 'bedPanty'
     killvar 'hypnoBra'
+    killvar 'hypnoClothes'
     killvar 'hypnoStage'
+    killvar 'dreamedOfTherapistFucking'
     killvar 'hypnoAddict'
     killvar 'therapistWantsSlave'
     killvar 'hypnoAddict'

+ 1 - 1
locations/version.qsrc

@@ -271,7 +271,7 @@ act 'Return': gt 'start'
 '- Stuff - Vengeance11 (he really put it as that on the repo)'
 '- Office job reworked by nutluck, but no sex events yet. You''ve been warned'
 '- Sucubus wasn''t getting the exp and absorbtion gains she should have but should be now thanks to NOX'
-'- School kid relationiship changes now all using new system to make things work more smoothly thanks to bgkjdgbizgblzdgbr (it''s pronounced ber-guk-jurg-biz-ger-blis-ger-ber)'
+'- School kid relationship changes now all using new system to make things work more smoothly thanks to bgkjdgbizgblzdgbr (it''s pronounced ber-guk-jurg-biz-ger-blis-ger-ber)'
 '- Sonia will now fall even if you are not watching thanks to bgkjdgbizgblzdgbr'
 '- Stripping in the strip club is now more organic and a bit easier to follow by KS'
 '- First fame event. A boy can randomly ask a famous Sveta for a selfie in city center, pav commercial and Okhlopkov Square. bgkjdgbizgblzdgbr, NOX, Nutluck and hornguy6'

Some files were not shown because too many files changed in this diff