26 Commits 6c8bc90809 ... e5a892d237

Author SHA1 Message Date
  KevinSmarts e5a892d237 [changed] Cap for salo was a bit low so raised it up 4 years ago
  KevinSmarts 34ff3df00c [Changed] Raising minimum exposure value for use in new appearance bonus calculation 4 years ago
  KevinSmarts 6f536a7afd [Fixed] Various bug fixes from TESTER127, Sweet Little Sister and ParusMajors on the forum 4 years ago
  KevinSmarts 253822f62c Merge remote-tracking branch 'Violet_Kitten/master' 4 years ago
  KevinSmarts 921d840b9e Merge remote-tracking branch 'hornguy6/master' 4 years ago
  VioletKitten 87c93c79a6 [changed] Clique system rework by nutluck and Violet Kitten. 4 years ago
  hornguy6 0ef0d710ce [changed] code for yoga to a jpg 4 years ago
  hornguy6 2057326ea0 [added] appearance and interaction of a new model, Emily 4 years ago
  KevinSmarts 9ee20dd987 [changed] New starting values from nutluck for body fat and skin quality 4 years ago
  KevinSmarts 7063bd7121 [Chaged] Rebalance to the appearance code increaing impact of weight and reducingthe influence of attributes from nutluck, VK and me 4 years ago
  KevinSmarts 93ef2e4bd3 [Added] New clothing from Gwen 4 years ago
  KevinSmarts c44cf25d67 [fixed] Price listed incorrectly when you didn't have the money 4 years ago
  KevinSmarts 1e0f5fe320 [fixes] Mising clear screens and mistake in Mom scedule so she was never in the salon 4 years ago
  VioletKitten 887cb48581 [text edit] Minor spelling correction. 4 years ago
  KevinSmarts ddbd73f342 Merge remote-tracking branch 'hornguy6/master' 4 years ago
  KevinSmarts b3bf605044 [fixed] timer for Nat debt applied to wrong actions 4 years ago
  KevinSmarts a25f783d7e [Text Edit] from Dameldut split up by nutluck 4 years ago
  hornguy6 d2e50c2c8e [changed] new code for catalog shoots 4 years ago
  hornguy6 0275808d72 [fixed] misc code in photo studio 4 years ago
  hornguy6 1843e576b6 [fixed] no longer blocks shoots you've already done before 4 years ago
  hornguy6 0991b60ae1 [removed] porn studio card from certain jobs 4 years ago
  hornguy6 53f04d168f [changed] forgot to update text to reflect time usage for makeup 4 years ago
  hornguy6 494db54f50 [changed] first fame modelling requires you to have done a topless shoot 4 years ago
  hornguy6 af65bf94ae [fixed] dead ends in persuasion events at the photo studio 4 years ago
  hornguy6 62246943ad [fixed] modelling statistics not properly registering (apparently there are two sets of statistics in obj_din?) 4 years ago
  hornguy6 bceed33f1b [changed] makeup artists at photo studio only takes 30 minutes instead of 60 4 years ago

+ 1 - 1
locations/NikoDates.qsrc

@@ -1483,7 +1483,7 @@ if $ARGS[0] = 'Sonia Block':
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/school/hallway/soniaupset.jpg"></center>'
 	'Niko wraps his arm around your neck then leads you to the locker room. As you are both walking, you suddenly hear, "No walking in the halls until class is back in session!" You turn to see Sonia Ivanko holding a notepad. Niko responds, "What''s it to you?" Sonia replies, "I''m the school hall monitor and it''s my duty to stop students from breaking the rules. so get back to the lunch room before I report you to the principle."'
 	*nl
-	'Niko grunts, "Fine! You really need to lightly up sometime Sonia. Better yet, try getting laid. It will help you not being such an up tight bitch." Sonia scowls then points her pencil at Niko. "Lunch room, NOW!" You can hear Niko utter under his voice, "If only <font color=#FF00FF>Sonia wasn''t such a prude and got laid</font> then we could have had a good time." As you both walk back to the cafeteria.'
+	'Niko grunts, "Fine! You really need to lighten up sometime Sonia. Better yet, try getting laid. It will help you not being such an up tight bitch." Sonia scowls then points her pencil at Niko. "Lunch room, NOW!" You can hear Niko utter under his voice, "If only <font color=#FF00FF>Sonia wasn''t such a prude and got laid</font> then we could have had a good time." As you both walk back to the cafeteria.'
 
 	act 'Walk away':gt 'gschool_lunch', 'break'
 end

+ 45 - 0
locations/_attributes_average.qsrc

@@ -3362,6 +3362,51 @@ elseif ARGS[1] = 529:
 	CloThinness = 5
 	CloTopCut = 2
 	CloPantsShortness = 2
+elseif ARGS[1] = 530:
+	CloQuality = 4
+	CloThinness = 1
+	CloTopCut = 1
+	CloSkirtShortness = 3
+elseif ARGS[1] = 531:
+	CloQuality = 3
+	CloThinness = 4
+	CloTopCut = 2
+	CloSkirtShortness = 3
+elseif ARGS[1] = 532:
+	CloQuality = 3
+	CloThinness = 1
+	CloTopCut = 1
+	CloSkirtShortness = 3
+elseif ARGS[1] = 533:
+	CloQuality = 4
+	CloThinness = 1
+	CloTopCut = 1
+	CloPantsShortness = 1
+elseif ARGS[1] = 534:
+	CloQuality = 3
+	CloThinness = 2
+	CloTopCut = 4
+	CloPantsShortness = 1
+elseif ARGS[1] = 535:
+	CloQuality = 3
+	CloThinness = 2
+	CloTopCut = 2
+	CloSkirtShortness = 4
+elseif ARGS[1] = 536:
+	CloQuality = 4
+	CloThinness = 1
+	CloTopCut = 1
+	CloPantsShortness = 1
+elseif ARGS[1] = 537:
+	CloQuality = 3
+	CloThinness = 4
+	CloTopCut = 1
+	CloSkirtShortness = 3
+elseif ARGS[1] = 538:
+	CloQuality = 3
+	CloThinness = 1
+	CloTopCut = 1
+	CloPantsShortness = 1
 end
 
 --- $attributes_average ---------------------------------

+ 10 - 0
locations/_attributes_cheap.qsrc

@@ -2567,6 +2567,16 @@ elseif ARGS[1] = 415:
 	CloTopCut = 4
 	CloSkirtShortness = 3
 	CloExhibit = 15
+elseif ARGS[1] = 416:
+	CloQuality = 2
+	CloThinness = 4
+	CloTopCut = 2
+	CloPantsShortness = 4
+elseif ARGS[1] = 417:
+	CloQuality = 2
+	CloThinness = 3
+	CloTopCut = 2
+	CloPantsShortness = 1
 end
 
 --- $attributes_cheap ---------------------------------

+ 35 - 0
locations/_attributes_expensive.qsrc

@@ -2448,6 +2448,41 @@ elseif ARGS[1] = 425:
 	CloThinness = 3
 	CloTopCut = 1
 	CloSkirtShortness = 3
+elseif ARGS[1] = 426:
+	CloQuality = 5
+	CloThinness = 4
+	CloTopCut = 2
+	CloSkirtShortness = 3
+elseif ARGS[1] = 427:
+	CloQuality = 5
+	CloThinness = 4
+	CloTopCut = 2
+	CloSkirtShortness = 3
+elseif ARGS[1] = 428:
+	CloQuality = 5
+	CloThinness = 4
+	CloTopCut = 2
+	CloSkirtShortness = 3
+elseif ARGS[1] = 429:
+	CloQuality = 5
+	CloThinness = 2
+	CloTopCut = 1
+	CloPantsShortness = 1
+elseif ARGS[1] = 430:
+	CloQuality = 5
+	CloThinness = 5
+	CloTopCut = 1
+	CloSkirtShortness = 3
+elseif ARGS[1] = 431:
+	CloQuality = 5
+	CloThinness = 4
+	CloTopCut = 2
+	CloSkirtShortness = 4
+elseif ARGS[1] = 432:
+	CloQuality = 5
+	CloThinness = 4
+	CloTopCut = 2
+	CloSkirtShortness = 4
 end
 
 --- $attributes_expensive ---------------------------------

+ 2 - 4
locations/body.qsrc

@@ -1337,15 +1337,13 @@ elseif pcs_lip = 3:
 	$lip1 = 'pouting'
 else
 	pcs_lip = 4
-	rand_lips = rand(0,3)
+	rand_lips = rand(0,2)
 	if rand_lips = 0:
-		$pcdesc_lipsrandom = 'plump'
+		$pcdesc_lipsrandom = 'fat'
 	elseif rand_lips = 1:
 		$pcdesc_lipsrandom = 'pillowy'
 	elseif rand_lips = 2:
 		$pcdesc_lipsrandom = 'plush'
-	elseif rand_lips = 3:
-		$pcdesc_lipsrandom = 'fat'
 	end
 	$pcdesc_lips = 'pillowy'
 	$pcdesc_lipswordy = 'plush, pillowy and inviting'

+ 38 - 3
locations/body_shape.qsrc

@@ -63,7 +63,42 @@ if $ARGS[0] = '':
 
 	killvar 'wrtemp'
 
-!!Setting the pcs_apprnc bonus based on wratio
+!!Setting the pcs_apprnc bonus based on fat and strength
+
+bmi_calc = 10000 * (30 + salo / 2 + (pcs_hgt - 170) * 7 / 10) / (pcs_hgt * pcs_hgt)
+
+	if bmi_calc < 16:
+		bodykoef = 35
+    elseif bmi_calc < 19:
+		bodykoef = 70
+    elseif bmi_calc < 25:
+		bodykoef = 90
+    elseif bmi_calc < 30:
+		bodykoef = 80
+    elseif bmi_calc < 35:
+		bodykoef = 50
+    elseif bmi_calc < 40:
+		bodykoef = 30
+    elseif bmi_calc < 45:
+		bodykoef = 10
+    else
+		bodykoef = 0
+    end
+	
+	if strenbuf >= 80:
+		bodykoef += 8
+	elseif strenbuf >= 60:
+		bodykoef += 10
+	elseif strenbuf >= 40:
+		bodykoef += 8
+	elseif strenbuf >= 20:
+		bodykoef += 5
+	else
+		bodykoef += 2
+	end
+
+!!{
+put this in comment as old calculation so I don''t find out I need it later
 	if wratio >= 85:
 		bodykoef = 0
 	elseif wratio >= 80:
@@ -74,7 +109,7 @@ if $ARGS[0] = '':
 		bodykoef = 8
 	else
 		bodykoef = 4
-	end
+	end}
 
 !!For band to waist ratio
 	brtemp = (2 * strenbuf + vitalbuf + agilbuf) /4
@@ -117,7 +152,7 @@ if $ARGS[0] = '':
 	end
 
 !!This is the salo cap for the weight approximation
-	if salo > 150: salo = 150
+	if salo > 200: salo = 200
 	
 !!This calculates the current salo category; ranges are 20 points, seemed to balance best if the range is x10 the hip devisor
 	:salocatloop

+ 23 - 23
locations/clothing.qsrc

@@ -836,15 +836,15 @@ if $ARGS[0] = 'wear':
 !Calculations for clothing beauty, multiplied by natural beauty
 	if PCloThinness > 0:
 		if PCloThinness = 1:
-			PXCloThinness = 25
+			PXCloThinness = 150
 		elseif PCloThinness = 2:
-			PXCloThinness = 50
+			PXCloThinness = 200
 		elseif PCloThinness = 3:
-			PXCloThinness = 100
+			PXCloThinness = 250
 		elseif PCloThinness = 4:
-			PXCloThinness = 200
-		elseif PCloThinness = 5:
 			PXCloThinness = 300
+		elseif PCloThinness = 5:
+			PXCloThinness = 350
 		elseif PCloThinness = 6:
 			PXCloThinness = 400
 		end
@@ -852,17 +852,17 @@ if $ARGS[0] = 'wear':
 
 	if PCloTopCut > 0:
 		if PCloTopCut = 1:
-			PXCloTopCut = 25
+			PXCloTopCut = 100
 		elseif PCloTopCut = 2:
-			PXCloTopCut = 50
+			PXCloTopCut = 150
 		elseif PCloTopCut = 3:
-			PXCloTopCut = 100
+			PXCloTopCut = 200
 		elseif PCloTopCut = 4:
-			PXCloTopCut = 150
+			PXCloTopCut = 250
 		elseif PCloTopCut = 5:
-			PXCloTopCut = 200
-		elseif PCloTopCut = 6:
 			PXCloTopCut = 300
+		elseif PCloTopCut = 6:
+			PXCloTopCut = 350
 		elseif PCloTopCut >= 7:
 			PXCloTopCut = 400
 		end
@@ -877,17 +877,17 @@ if $ARGS[0] = 'wear':
 
 	if PCloSkirt > 0:
 		if PCloSkirt = 1:
-			PXCloBottomShortness = 25
+			PXCloBottomShortness = 100
 		elseif PCloSkirt = 2:
-			PXCloBottomShortness = 50
+			PXCloBottomShortness = 150
 		elseif PCloSkirt = 3:
-			PXCloBottomShortness = 100
+			PXCloBottomShortness = 200
 		elseif PCloSkirt = 4:
-			PXCloBottomShortness = 150
+			PXCloBottomShortness = 250
 		elseif PCloSkirt = 5:
-			PXCloBottomShortness = 200
-		elseif PCloSkirt = 6:
 			PXCloBottomShortness = 300
+		elseif PCloSkirt = 6:
+			PXCloBottomShortness = 350
 		elseif PCloSkirt >= 7:
 			PXCloBottomShortness = 400
 		end
@@ -895,17 +895,17 @@ if $ARGS[0] = 'wear':
 
 	if PCloPants > 0:
 		if PCloPants = 1:
-			PXCloBottomShortness = 25
+			PXCloBottomShortness = 100
 		elseif PCloPants = 2:
-			PXCloBottomShortness = 50
+			PXCloBottomShortness = 150
 		elseif PCloPants = 3:
-			PXCloBottomShortness = 100
+			PXCloBottomShortness = 200
 		elseif PCloPants = 4:
-			PXCloBottomShortness = 150
+			PXCloBottomShortness = 250
 		elseif PCloPants = 5:
-			PXCloBottomShortness = 200
-		elseif PCloPants = 6:
 			PXCloBottomShortness = 300
+		elseif PCloPants = 6:
+			PXCloBottomShortness = 350
 		elseif PCloPants >= 7:
 			PXCloBottomShortness = 400
 		end

+ 1 - 1
locations/exercise.qsrc

@@ -385,7 +385,7 @@ if $ARGS[0] = 'yoga':
 	elseif $pantyworntype ! 'none':
 		'<center><video autoplay loop src="images/pc/activities/yoga_underwear.mp4"></video></center>'
 	else
-		'<center><video autoplay loop src="images/pc/activities/yoga_naked.mp4"></video></center>'
+		'<center><img <<$set_imgh>> src="images/pc/activities/yoga_naked.jpg"></center>'
 	end
 
 	'You spend <<$timestring>> minutes stretching and straining your muscles in various poses, improving your will and flexibility.'

+ 1 - 1
locations/family_schedule.qsrc

@@ -215,7 +215,7 @@ if indorf = 0:
 		elseif hour = 11 and minut < 30:
 			!! Takes the car to town
 			momloc = 14
-		elseif hour < 12 and minut < 30:
+		elseif hour < 12 or hour = 12 and minut < 30:
 			!! Gets her nails done/hair cut at the salon or such things - On Sunday goes to the church during these hours
 			if week = 5:
 				momloc = 15

+ 6 - 5
locations/foto.qsrc

@@ -145,7 +145,7 @@ if $ARGS[0] = 'studio':
 	*clr & cla
 	killvar '$modelopt'
 
-	if special_model < min(city_modelling, 700) and modelfoto_nip > 0 and hour < 15 and fame_model_event < daystart:gt 'foto_events','fame'
+	if special_model < min(city_modelling, 700) and modelfoto_topless > 0 and hour < 15 and fame_model_event < daystart:gt 'foto_events','fame'
 	if special_skill_model < pcs_mdlng and modelfoto_nip > 0 and hour < 15 and skill_model_event < daystart:gt 'foto_events','skill'
 
 	minut += 5
@@ -175,9 +175,10 @@ if $ARGS[0] = 'studio':
 	end
 
 	anastasia_in = rand(0,1)
-	mari_in = rand(0,1)
+	emily_in = rand(0,1)
 	krystal_in = rand(0,1)
 	jeff_in = rand(0,1)
+	mari_in = rand(0,1)
 
 	'<center><b><font color="maroon">Photography studio</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/foto.jpg"></center>'
@@ -198,7 +199,7 @@ if $ARGS[0] = 'studio':
 			if anastasia_in = 1:'<a href="exec:gt ''foto_models'',''anastasia1''">unknown model</a>'
 		end
 
-		if emily >= 2:
+		if foto_models['emily'] >= 2:
 			if emily_in = 1:'<a href="exec:gt ''foto_models'',''emily_1''">Emily</a>'
 		else
 			if emily_in = 1:'<a href="exec:gt ''foto_models'',''emily_1''">unknown model</a>'
@@ -1104,10 +1105,10 @@ if $ARGS[0] = 'makeup':
 	if pcs_hairbsh = 0 or pcs_makeup = 1:
 		act'Do your own makeup': menu_off = 1 & gt'mirror','start'
 
-		act'Go to the makeup artists (1:00)':
+		act'Go to the makeup artists (0:30)':
 			cla & *clr
 			menu_off = 1
-			minut += 60
+			minut += 30
 			pcs_hairbsh = 1
 			pcs_makeup = 5
 			pcs_lipbalm += 8

+ 13 - 3
locations/foto_events.qsrc

@@ -500,7 +500,7 @@ if $ARGS[0] = 'glamour_persuasion':
 	elseif foto_persuade = 1:
 		'"We can do a lingerie shoot today if you like, but the studio would still really love to see you do that glamour shoot. What do you say?"'
 	elseif foto_persuade = 2:
-		'"Hey <<$pcs_firstname>>, the staff have been talking again. You want to try upgrading shoots again? We were wondering if you''d consider trying a glamour shoot today?"'
+		'"Hey <<$pcs_firstname>>, the staff have been talking again. We love your lingerie stuff but we were wondering if you''d consider trying a glamour shoot today?"'
 	elseif foto_persuade = 3:
 		'"Hey I''m sorry to bother you like this again, but we would still really love to see you do that glamour shoot. What do you say? Willing to give it a try today?"'
 	end
@@ -584,7 +584,7 @@ if $ARGS[0] = 'glamour_persuasion':
 						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
 						'"That''s not so bad I guess... I''m already doing lingerie so that''s not much of a difference."'
 						'"Yes, exactly! Think of it just like that. Thanks for this <<$pcs_firstname>>. Just go to this set and we''ll set somebody up for you."'
-						act'Do the glamour shoot':gt'foto_shoot','skimpy_clo'
+						act'Do the glamour shoot':gt'foto_shoot','sexy'
 					end
 				end
 			else
@@ -647,7 +647,7 @@ if $ARGS[0] = 'trans_persuasion':
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
 			'"Thanks for the offer, but I think I''ll stick to the basic glamour shoot today."'
 			'"Oh. Okay..."'
-			act'Do the glamour shoot':gt'foto_shoot','skimpy_clo'
+			act'Do the glamour shoot':gt'foto_shoot','sexy'
 		end
 	else
 		act'No thanks (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
@@ -664,6 +664,16 @@ if $ARGS[0] = 'trans_persuasion':
 			act'Do the transparent shoot':gt'foto_shoot','transparent'
 		end
 	elseif foto_persuade = 1 or foto_persuade = 4:
+		act'I guess I could try':
+			cla & *clr
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
+			'"Well... I guess I could give it a try..."'
+			'The manager smiles wide at you.'
+			'"Great! Then go to this set here and the photographer will be ready for you."'
+			foto_persuade = 2
+			act'Do the transparent shoot':gt'foto_shoot','transparent'
+		end
+		
 		act'Yes, I''m ready':
 			cla & *clr
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'

+ 45 - 27
locations/foto_models2.qsrc

@@ -9,9 +9,10 @@ menu_off = 1
 !! ---------------------------------------- Emily Model ---------------------------------------------------------
 
 if $ARGS[0] = 'emily_1':
-	if emily = 2:gt 'foto_models2','emily_2'
-	if emily = 5:gt 'foto_models2','emily_chat'
-	if emily >= 3:gt 'foto_models2','emily_model'
+	if foto_models['emily'] = 2:gt 'foto_models2','emily_2'
+	if foto_models['emily'] = 5:gt 'foto_models2','emily_chat'
+	if foto_models['emily'] >= 3:gt 'foto_models2','emily_model'
+	foto_models['emily'] = 2
 	*clr & cla
 	'<center><img src="images/locations/city/citycenter/photo/foto.jpg"></center>'
 	'You''re walking through the studio when you hear someone shout from behind you.'
@@ -104,6 +105,7 @@ if $ARGS[0] = 'emily_1':
 end
 
 if $ARGS[0] = 'emily_2':
+	foto_models['emily'] = 3
 	*clr & cla
 	'<center><img src="images/locations/city/citycenter/photo/portraits/emily_r/talking/face.jpg"></center>'
 	if emily_hate = 1:
@@ -161,11 +163,10 @@ if $ARGS[0] = 'emily_2':
 					'<center><img src="images/locations/city/citycenter/photo/portraits/emily_r/talking/3.jpg"></center>'
 					'"Why would I? At least I don''t need mine to distract from an ass ugly face!"'
 					'"<i>Excuuuuuuuse me?!</i>"'
-					'Your words seem to catch her off guard and she steps back as though she''s genuinely offended and hurt. Sensing you have the upper hand, you push your advantage. "Oh yeah! I bet when the boys come by your house they all bring blindfolds! They love using your tits to get off, they just don''t want to see your face while they do it!"'
+					'Your words seem to catch her off guard and she steps back as though she''s genuinely offended and hurt. Sensing you have the upper hand, you push your advantage. "Oh yeah, I bet when the boys come by your house they all bring a paper bag to put over that face of yours. They love using your tits to get off, they just don''t want to see your face while they do it!"'
 					'"H-how dare you!" Emily begins to stammer in fury. "I-! You-!"'
 					'"I don''t have time for this," you interrupt her. "Let me know if any of them manage to cum without a blindfold. I''ll take them to the doctor to get them some glasses!" Her jaw drops as you saunter past feeling good about yourself.' 
 					act'Leave':gt'foto','studio'
-					
 				end
 			
 			elseif tits >= 5:
@@ -175,8 +176,8 @@ if $ARGS[0] = 'emily_2':
 				act'"What''s wrong with having big breasts?"':
 					*clr & cla
 					'<center><img src="images/locations/city/citycenter/photo/portraits/emily_r/talking/2.jpg"></center>'
-					'"What''s wrong with having big breasts?!" you exclaim. "Yours are pretty big too!"'
-					'"True," she says while walking up to you so you''re shoulder to shoulder. "But mine are soft and perky and <i>just</i> the right size. Any bigger and they end up like yours where you have to worry about knocking someone out if you turn too fast." And then paying no more attention to you at all, she strides off while your jaw hits the floor. By the time you recover from this offense, she''s already long gone.'
+					'"What''s wrong with having big breasts?!" you exclaim. "Yours are big too!"'
+					'"True," she says while walking up to you so you''re shoulder to shoulder. "But mine are soft and perky and <i>just</i> the right size. Any bigger and they end up fat and saggy like yours where you have to worry about knocking someone out if you turn too fast." And then paying no more attention to you at all, she strides off while your jaw hits the floor. By the time you recover from this offense, she''s already long gone.'
 					'<i><b>This. Fucking. Bitch!</b></i>'
 					act'Leave':gt'foto','studio'
 				end
@@ -207,30 +208,33 @@ if $ARGS[0] = 'emily_2':
 			'You blink, taken aback. "Excuse me?"'
 			'"I''m asking if you''re just trying to waste my time. Because everywhere, I go, that''s all you ever seem to do: get in my way and waste my fucking time."'
 			'She brushes past you rolling her eyes. You hear her muttering under her breath as she walks away. "Fucking amateurs, why do they even waste time with girls like that here..."'
-			act'Continue':gt'foto','studio'
+			act'Leave':gt'foto','studio'
 		end
 		act'"What''s your problem bitch?"':
 !!			emily_hate += 1
 			*clr & cla
 			'<center><img src="images/locations/city/citycenter/photo/portraits/emily_r/talking/face.jpg"></center>'
 			'"Okay, what''s your problem bitch?" you snap back at her. "I''ve only spoken to you two times and both times you''ve been nothing but a vicious cunt. What the fuck did I ever do to you?"'
-			'Emily gets in your face, spitting back at you, "My problem with you is that you''re always in my fucking way! You come here, standing around like you''re going to get famous, and wasting everyone else''s time that they should be spending on me!"'
+			'Emily gets in your face and snaps back at you. "My problem with you is that you''re always in my fucking way! You come here, standing around like you''re going to get famous, and wasting everyone else''s time that they should be spending on me!"'
 			'"Oh, and you are going to get famous?" you retort.'
 			'"Yes. Because unlike you, I''ve been getting ready for this my whole life. I spent all of high school eating right and working out, getting a thin body and the most volouptuous ass. I started working here the moment I turned 18 and have spent every day since working with the photographers to become the perfect model. I''ve done hundreds of shoots, I''m sponsored by lingerie and clothing companies, and currently I''m working on breaking into the actress business. And then here <i>you</i> are, coming in probably just here for easy money like some kind of cheap whore and you expect me to treat you as some kind of special snowflake?"'
-			act'"I didn''t realize how serious you are"':
+			act'"I didn''t realize how serious you were"':
 				*clr & cla
+				emily_hate -= 1
 				'<center><img src="images/locations/city/citycenter/photo/portraits/emily_r/talking/face.jpg"></center>'
 				'You find yourself taken aback by her tirade and step away from her.'
 				'"I-, I''m sorry Emily. I didn''t realize you were so serious about your work here. I never meant to bother you, I just... we just bumped into each other by accident, I swear."'
 				'She sighs a bit in exhasperation but otherwise recomposes herself. "Okay, whatever. It''s not a big deal I guess, just don''t make a habit of it," she says and brushes past you. You hear her muttering under her breath as she walks away. "Fucking amateurs, why do they even waste time with girls like that here..."'
-				act'Continue':gt'foto','studio'
+				act'Leave':gt'foto','studio'
 			end
 			act'"Who gave you the right?"':
 				*clr & cla
 				emily_hate += 1
 				'<center><img src="images/locations/city/citycenter/photo/portraits/emily_r/talking/face.jpg"></center>'
-				'"And you think that gives you the right to act the way you do?"'
-				act'Continue':gt'foto','studio'
+				'"And you think that gives you the right to act the way you do?" you shout back. "Plenty of other people are working hard here, why does your own work make you deserve it more than the rest? What, just because you were born with big tits and a pretty face makes you ''destined'' to make it big? You''re such a self-entitled brat!"'
+				'"A filthy amateur like you wouldn''t understand," she huffs. "And that''s always what you''re going to be. Just another picture of tits on the internet with a forgotten name to go along with them."'
+				'Without another word, she walks away, leaving you in fumes.'
+				act'Leave':gt'foto','studio'
 			end
 		end
 	end	
@@ -252,6 +256,7 @@ end
 
 if $ARGS[0] = 'emily_model':
 	*clr & cla
+	foto_models['emily'] = rand(3,5)
 	emily_model = rand(1,4)
 	if emily_model = 1:
 		'<center><video autoplay loop src="images/locations/city/citycenter/photo/portraits/emily_r/modelling/nude1.mp4"></video></center>'
@@ -273,7 +278,7 @@ if $ARGS[0] = 'emily_model':
 		if anastasia > 0:
 			'Looking around for Emily, you find her on set in the middle of a lingerie shoot with Anastasia. The two of them sit on the ground together taking cues from each other and the photographers as they go through poses. Anastasia doesn''t seem to notice but something about Emily''s face makes her seem bitter, like she''s annoyed to be working with her. Maybe it has something to do with her rankings in the studio. You watch for a few more moments before walking away.'
 		else
-			'Looking around for Emily, you find her on set in the middle of a lingerie shoot with another model you feel like you''ve seen around. The two of them sit on the ground together taking cues from each other and the photographers as they go through poses. The other woman doesn''t seem to notice but something about Emily''s face makes her seem bitter, like she''s annoyed to be working with her. You wonder what that''s about as you watch for a few more moments before walking away.'
+			'Looking around for Emily, you find her on set in the middle of a lingerie shoot with another model you feel like you''ve seen around. The two of them sit on the ground together taking cues from each other and the photographers as they go through poses. The other woman doesn''t seem to notice but Emily seems really bitter, like she''s annoyed to be working with her. You wonder what that''s about as you watch for a few more moments before walking away.'
 		end
 	end
 		
@@ -281,13 +286,27 @@ if $ARGS[0] = 'emily_model':
 end
 
 if $ARGS[0] = 'emily_chat':
+	foto_models['emily'] = rand(3,5)
 	*clr & cla
 	'<center><img src="images/locations/city/citycenter/photo/portraits/emily_r/talking/5.jpg"></center>'
 	'Looking around for Emily, you find her standing around on an empty set, seemingly waiting between shoots for something.'
 	'"Oh. It''s you. What do you want?"'
+	
+	act'Leave':
+		*clr & cla
+		'<center><img src="images/locations/city/citycenter/photo/portraits/emily_r/talking/turnback.jpg"></center>'
+		'"I''m gonna go now," you say.'
+		if emily_hate > 0:
+			'"Good. Stop bothering me."'
+		else
+			'"Whatever."'
+		end
+		'With that lovely parting, you walk back towards the main floor of the studio.'
+		act'Keep chatting':gt'foto_models2','emily_chat'
+	end
 
 	if emily_model_exp ! daystart:
-		act 'Ask for modelling advice':
+		act'Ask for modelling advice':
 			*clr & cla
 			emily_model_exp = daystart
 			'<center><img src="images/locations/city/citycenter/photo/portraits/emily_r/talking/face.jpg"></center>'
@@ -299,14 +318,13 @@ if $ARGS[0] = 'emily_chat':
 				act'Keep chatting':gt'foto_models2','emily_chat'
 			end
 			
-			act'Try go get on her good side':
+			act'Suck up to her':
 				cla & *clr
 				'<center><img src="images/locations/city/citycenter/photo/portraits/emily_r/talking/2.jpg"></center>'
 				mdlng_exp += 2
 				'"Oh. I mean, I just thought I''d ask you because you''re the best model here. I thought you would have the best advice to give."'
-				'"Well, it''s not like you''re wrong." She shrugs and acts like what you said was just stating facts but you can tell she''s secretly pleased by what you said. "I suppose I could give some advice to a poor unfortunate soul like you. At the very least maybe you''d stop embarrassing yourself on set and making the studio look bad."'
-				'You stomach the verbal abuse and keep yourself in check, recognizing that with Emily you''re going to have to take her attitude if you want to get anywhere with her.'
-				'"The most important things about modelling is how to hold yourself. If you can''t pull off the pose to make yourself or the clothes you''re wearing look sexy then you''ve failed. Practice the poses, spend time in front of the mirror testing looks. And when you''re on set, keep changing it up. Taking direction from the photographers is important but if you want to act like a professional then you need to take initiative. Every time the camera flashes, alter your position, even if just a little bit. They''re only looking for one perfect shot, either they have it or they don''t. But help them search."'
+				'"Well, it''s not like you''re wrong." She shrugs and acts like what you said was just stating facts but you can tell she''s secretly pleased by what you said. "I suppose I could give some advice to a poor unfortunate soul like you. At the very least maybe you''d stop embarrassing yourself on set and making the studio look bad." You stomach the verbal abuse and keep yourself in check, recognizing that with Emily you''re going to have to take her attitude if you want to get anywhere with her.'
+				'"The most important things about modelling is how to hold yourself. If you can''t pull off the pose to make yourself or the clothes you''re wearing look sexy then you''ve failed. Practice the poses, spend time in front of the mirror testing looks. And when you''re on set, keep changing it up. Taking direction from the photographers is important but if you want to act like a professional then you need to take initiative. Every time the camera flashes, alter your position, even if just a little bit. They''re only looking for one perfect shot, either they have it or they don''t. But help them search. And don''t waste their time."'
 				act'Keep chatting':gt'foto_models2','emily_chat'
 			end
 			act'Taunt her into helping you':
@@ -322,25 +340,25 @@ if $ARGS[0] = 'emily_chat':
 		end
 	end
 	
-	act 'Ask why she wanted to become a model':
+	act'Ask why she wanted to become a model':
 		*clr & cla
 		'<center><img src="images/locations/city/citycenter/photo/portraits/emily_r/talking/1.jpg"></center>'
 		'"I was just curious. Why is it you wanted to become a model? I mean, you seem really serious about it and it sounds like you''ve been working at it for all your life but... I guess I was just wondering why?"'
-		'"Are you fucking blind?"'
+		'"Are you blind?"'
 		'You blink. "What?"'
-		'"I asked if you''re fucking blind. Come on, be serious. Okay, fine. Let''s spell this out for retards. Look at my face. Now look at my tits. Now look at my stomach, my legs, my ass, my pussy. Do you notice something? It''s that every single part of me is fucking beautiful. My body is sexy and perfect. Men want me, women want to be me, and boys dream about me while jerking themselves off in their bedrooms. Now with all of that, why would I want to be anything other than a model? Huh? So, are you blind or are you just fucking stupid?"'
+		'"I asked if you''re fucking blind. Come on, be serious. Okay, fine. Let''s spell this out for retards. Look at my face. Now look at my tits. Now look at my stomach, my legs, my ass, my pussy. Do you notice something? It''s that I''m fucking gorgeous. Everything about my body is sexy and perfect. Men want me, women want to be me, and boys dream about me while jerking themselves off in their bedrooms. Now with all of that, why would I want to be anything other than a model? Huh? So, are you blind or are you just fucking stupid?"'
 		act'Keep chatting':gt'foto_models2','emily_chat'
 	end
 
-	act 'Ask how she stays in shape':
+	act'Ask how she stays in shape':
 		*clr & cla
 		'<center><img src="images/locations/city/citycenter/photo/portraits/emily_r/talking/1.jpg"></center>'
-		'"I was wondering if you could give some advice about keeping a model''s body. Do you have any?"'
-		'"Yeah, don''t live like a filthy pig. What do you want? Me to write you out a diet plan so you can ingore it to eat ice cream and chocolate instead?"'
+		'"I was wondering if you could give some advice about keeping a model''s figure. Do you have any?"'
+		'"Yeah, don''t live like a filthy pig. What, do you want me to write out a diet plan for you that lets you keep stuffing your face ice cream and chocolate? Cause that doesn''t exist, stupid."'
 		act'Keep chatting':gt'foto_models2','emily_chat'
 	end
 
-	act 'Talk about movies':
+	act'Talk about movies':
 		*clr & cla
 		'<center><img src="images/locations/city/citycenter/photo/portraits/emily_r/talking/face.jpg"></center>'
 		'"See any good movies lately?"'
@@ -350,7 +368,7 @@ if $ARGS[0] = 'emily_chat':
 		act'Keep chatting':gt'foto_models2','emily_chat'
 	end
 	
-!!	act 'Talk about sex':gt'foto_models2',''
+!!	act'Talk about sex':gt'foto_models2',''
 end
 
 !! ---------------------------------------- Jeff Model ---------------------------------------------------------

+ 20 - 11
locations/foto_shoot.qsrc

@@ -21,7 +21,9 @@ if $ARGS[0] = 'model':
 	'<b>Erotic</b> - An erotic shoot makes no excuses about its purpose. The intent is to capture sexual images of female bodies to sell to pornography sites and erotic magazines. This type of modelling will have the highest bonuses based on your appearance but will also increase your fame in the porn industry as well.'
 	*p '</table></center>'
 	act'Never mind':
-		cla
+		cla & *clr
+		'<center><b><font color="maroon">Manager</font></b></center>'
+		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/fotograph.jpg"></center>'
 		'"Sorry, I just realized that I have something to do right now. Can I come back later?"'
 		'"Sure, no problem <<$pcs_lastname>>, just let us know when you''re ready to work.'
 		act'Leave':gt 'foto','studio'
@@ -37,30 +39,39 @@ if $ARGS[0] = 'model':
 		
 		act'Clothing':
 			shoot_type = catalog
+			modelfoto += 1
 			modelfoto_catalog += 1
 			cla & *clr
 			mdlng_exp += rand(2,5)
 			minut += 120
 			money += 450
-			'<center><video autoplay loop src="images/locations/city/citycenter/photo/fashion3.mp4"></video></center>'
-			'You spend two hours modelling for the online catalogs of retail clothing stores, wearing various different dresses but the same expression. It''s boring but it still gets you paid.'
+			modelfotomoney += 450
+			if rand(1,2) = 1:
+				'<center><video autoplay loop src="images/locations/city/citycenter/photo/catalog/1.mp4"></video></center>'
+				'You spend two hours modelling various tights with tops for the online catalogs of retail clothing stores. You change clothes probably 30 times over the shoot, but always wear the same expression. It''s boring but it still gets you paid.'
+			else
+				'<center><video autoplay loop src="images/locations/city/citycenter/photo/catalog/2.mp4"></video></center>'
+				'You spend two hours modelling various dresses for the online catalogs of retail clothing stores. You change clothes probably 30 times over the shoot, but always wear the same expression. It''s boring but it still gets you paid.'
+			end
 			*nl
 			'You recieve 450 <b>₽</b> for the job.'
-			act 'Leave':gt 'foto', 'end'
+			act 'Leave':gt 'foto', 'studio'
 		end
 		act'Swimsuits':
 			shoot_type = swim_catalog
+			modelfoto += 1
 			modelfoto_catalog += 1
 			cla & *clr
 			mdlng_exp += rand(2,5)
 			minut += 120
 			money += 450
+			modelfotomoney += 450
 			'<center><video autoplay loop src="images/locations/city/citycenter/photo/bikini/<<rand(1,3)>>.mp4"></video></center>'
 			bikinicatalog += 1
 			'You change in and out of various different bikinis, modelling them with the same pose and expression for use in online and department store catalogs.'
 			*nl
 			'You recieve 450 <b>₽</b> for the job.'
-			act 'Leave':gt 'foto', 'end'
+			act 'Leave':gt 'foto', 'studio'
 		end
 	end
 	
@@ -139,7 +150,7 @@ if $ARGS[0] = 'model':
 	end
 
 	act'"I''d like to do a glamour shoot"':
-		if pcs_inhib < 30:
+		if pcs_inhib < 30 and modelfoto_glamour < 1:
 			msg'You toy with the idea of exposing yourself on camera but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'
 		else
 			gt'foto_shoot', 'glamour_shoot'
@@ -147,7 +158,7 @@ if $ARGS[0] = 'model':
 	end
 	
 	act'"I''d like to do a nude shoot"':
-		if pcs_inhib < 30:
+		if pcs_inhib < 30 and modelfoto_nude < 1:
 			msg'You toy with the idea of exposing yourself on camera but then blush and realize you aren''t confident enough to have pictures of yourself like this circling around the internet. Maybe you could practice it later, but you''re not ready to do it for real.'
 		else
 			gt'foto_shoot', 'nude_shoot'
@@ -607,7 +618,6 @@ if $ARGS[0] = 'trans_ling':
 	*nl
 	'After having taken all his pictures, the photographer thanks you for your time and concludes the shoot, counting out your <<modelpayfin>> <b>₽</b> to hand to you.'
 	*nl
-	if pornstudio = 0:pornstudio = 2 & 'At the end of the shoot a staff member comes up to you. "By the way, you should take this," he says, handing you a business card. You''re shocked to see that it''s for a porn production company in St. Petersburg. "Since you''ve shown that you''re willing to go full nude, we figure we might as well let you know this opportunity exists. We share a couple of models with them and from what we can tell, it increases sales for both of us. If you feel like you''re up to it, use this card and tell them we sent you. That will get you a special audition. But we understand if you don''t go. We know it''s not for everyone and that some of you want more legitimate fame."'
 	if pcs_mdlng >= 40 and commercial = 0:
 		act 'Leave':gt'foto_events','commercial'
 	else
@@ -646,6 +656,7 @@ if $ARGS[0] = 'tasteful':
 	modelpay = (pcs_mdlng/2 * 10) + min(city_modelling, 700) + pcs_apprnc
 	modelpayfin = 600 + (modelpay * 2) + (15*rand(0,5))
 	modelfoto_tastenude += 1
+	modelfoto_nude += 1
 	mdlng_exp += rand(9,10)
 	if pcs_inhib < 40: gs 'willpower','pay','self'
 	gs 'fame', 'city', 'modelling', rand(10,20)
@@ -679,9 +690,7 @@ if $ARGS[0] = 'topless_nude':
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/topnude/<<rand(1,40)>>.jpg"></center>'
 	'Already naked, you step onto the set and begin the shoot immediately.'
 	*nl
-	'You spend two hours posing confidently for a photographer taking pictures of you, often using props, hands, legs, or shadow to shield your pussy while simultaneously teasing the would-be readers of what they cannot see. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'
-	if pornstudio = 0:pornstudio = 2 & 'At the end of the shoot a staff member comes up to you. "By the way, you should take this," he says, handing you a business card. You''re shocked to see that it''s for a porn production company in St. Petersburg. "Since you''ve shown that you''re willing to go full nude, we figure we might as well let you know this opportunity exists. We share a couple of models with them and from what we can tell, it increases sales for both of us. If you feel like you''re up to it, use this card and tell them we sent you. That will get you a special audition. But we understand if you don''t go. We know it''s not for everyone and that some of you want more legitimate fame."'
-			
+	'You spend two hours posing confidently for a photographer taking pictures of you, often using props, hands, legs, or shadow to shield your pussy while simultaneously teasing the would-be readers of what they cannot see. When the shoot ends, both you and the photographers are very proud of the results and you are paid <<modelpayfin>> <b>₽</b> for your work.'			
 	if pcs_mdlng >= 40 and commercial = 0:
 		act 'Leave':gt'foto_events','commercial'
 	else

+ 1 - 1
locations/gschool_grounds.qsrc

@@ -34,7 +34,7 @@ if $ARGS[0] = 'main':
 	if InvitationToDimkaNYparty = 1 and day = 31 and day = nyp_day: act 'Follow Dimka to the New Year''s party at his home': killvar 'InvitationToDimkaNYparty' & minut += 30 & gt 'sny', '3'
 
 	if hour = 14 and week < 6 and kanikuli = 0:
-
+		gs 'gschool_socialchg', 'group_student_rel_change'
 		if NikoDate_Day ! daystart:
 			if week = 1 and NikoIntro = 0:
 				gt 'NikoEv', 'Intro'			

+ 3 - 2
locations/gschool_lessonsev1.qsrc

@@ -47,13 +47,14 @@ if $ARGS[0] = 'fiz_rand':
 		*nl
 		'Unfortunately for Igor, his underwear went with the shorts and now he''s standing half naked in front of a bunch of girls. What''s worse is that now everyone can see how very small his penis is, making you and the others gasp and giggle, several girls even pointing and laughing loudly. Soon the whole class is in stitches, Igor desperately trying to pull up his shorts and failing, while cursing at Vitek and calling him all kinds of names. You almost feel sorry for him; not only is he a terrible flirt, but the whole class has seen his very tiny penis.'
 	elseif fizperand = 8 and $pantyworntype ! 'none':
-		cla
+		*clr & cla
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/gym/wedgie.jpg"></center>'
 		'During a break in gym class, you are chatting with several other girls when you feel someone''s hands reach down the back of your shorts, grabbing hold of your panties and sharply yanking them up. Dan yanks your panties up so hard that your feet actually lift off the ground for a moment. You cry out in pain, quickly turn around and see Dan laughing while several others are watching and laughing as well.'
 		act 'Don''t retaliate': grupvalue[4] -= 2 & gt 'gschool_lessons4', 'postphys'
 		gs 'willpower', 'misc', 'self', 'medium'
 		if will_cost <= pcs_willpwr:
 			act 'Kick him (<<will_cost>> Willpower)':
+				!!Screen not cleared as no event image, change that if you find an image for it
 				cla & *nl
 				gs 'willpower', 'misc', 'self', 'medium'
 				gs 'willpower', 'pay', 'self'
@@ -68,7 +69,7 @@ if $ARGS[0] = 'fiz_rand':
 		gs 'willpower', 'misc', 'self', 'hard'
 		if will_cost <= pcs_willpwr:
 			act 'Beat his ass (<<will_cost>> Willpower)':
-				cla & *nl
+				*clr & cla
 				gs 'willpower', 'misc', 'self', 'hard'
 				gs 'willpower', 'pay', 'self'
 				gs 'stat'

+ 178 - 47
locations/gschool_socialchg.qsrc

@@ -2,30 +2,46 @@
 
  !!Changing social groups
 if $ARGS[0] = 'test':
-	if pav_slut >= 125 and grupTipe < 4: 
+	if pav_slut >= 125 and grupTipe < 4:
 		gt 'gschool_socialchg', 'Pavlovsk slut'
-	elseif pav_slut >= 150 and grupTipe = 4: 
+	elseif pav_slut >= 150 and grupTipe = 4:
 		gt 'gschool_socialchg', 'Pavlovsk slut'
-	elseif grupvalue[1] < 20 and grupTipe = 1: 
+	elseif grupvalue[1] < 200 and grupTipe = 1:
 		gt 'gschool_socialchg', 'coolkid outcast'
-	elseif grupvalue[2] < 20 and grupTipe = 2: 
+	elseif grupvalue[1] < 300 and grupTipe = 1 and NuttyLock = 100:
+		gt 'gschool_socialchg', 'coolkid warn 1'
+	elseif grupvalue[1] < 400 and grupTipe = 1 and NuttyLock = 100:
+		gt 'gschool_socialchg', 'coolkid warn 2'
+	elseif grupvalue[2] < 200 and grupTipe = 2:
 		gt 'gschool_socialchg', 'jock outcast'
-	elseif grupvalue[3] < 20 and grupTipe = 3: 
+	elseif grupvalue[2] < 300 and grupTipe = 2 and NuttyLock = 100:
+		gt 'gschool_socialchg', 'jock warn 1'
+	elseif grupvalue[2] < 400 and grupTipe = 2 and NuttyLock = 100:
+		gt 'gschool_socialchg', 'jock warn 2'
+	elseif grupvalue[3] < 200 and grupTipe = 3:
 		gt 'gschool_socialchg', 'nerd outcast'
-	elseif grupvalue[4] < 20 and grupTipe = 4: 
-		gt 'gschool_socialchg', 'gopnik outcast'		
+	elseif grupvalue[3] < 300 and grupTipe = 3 and NuttyLock = 100:
+		gt 'gschool_socialchg', 'nerd warn 1'
+	elseif grupvalue[3] < 400 and grupTipe = 3 and NuttyLock = 100:
+		gt 'gschool_socialchg', 'nerd warn 2'
+	elseif grupvalue[4] < 200 and grupTipe = 4:
+		gt 'gschool_socialchg', 'gopnik outcast'
+	elseif grupvalue[4] < 300 and grupTipe = 4 and NuttyLock = 100:
+		gt 'gschool_socialchg', 'gopnik warn 1'
+	elseif grupvalue[4] < 400 and grupTipe = 4 and NuttyLock = 100: 
+		gt 'gschool_socialchg', 'gopnik warn 2'
 	elseif pav_slut < 100:
-		if grupvalue[1] > 80 and grupTipe ! 1: 
+		if grupvalue[1] > 800 and grupTipe ! 1:
 			gt 'gschool_socialchg', 'coolkid'
-		elseif grupvalue[2] > 80 and grupTipe ! 2: 
+		elseif grupvalue[2] > 800 and grupTipe ! 2:
 			gt 'gschool_socialchg', 'jock'
-		elseif grupvalue[3] > 80 and grupTipe ! 3: 
+		elseif grupvalue[3] > 800 and grupTipe ! 3:
 			gt 'gschool_socialchg', 'nerd'
-		elseif grupvalue[4] > 80 and grupTipe ! 4: 
+		elseif grupvalue[4] > 800 and grupTipe ! 4:
 			gt 'gschool_socialchg', 'gopnik'
 		end
-	elseif pav_slut < 125 and grupvalue[4] > 50 and grupTipe ! 4:
-		gt 'gschool_socialchg', 'gopnik'	
+	elseif pav_slut < 125 and grupvalue[4] > 500 and grupTipe ! 4:
+		gt 'gschool_socialchg', 'gopnik'
 	end
 	if gopnik_initiation = 1 and gopnik_initiation_day ! daystart:
 		killvar 'gopnik_initiation'
@@ -100,9 +116,9 @@ if $ARGS[0] = 'coolkid':
 		'You nod your head, "Yes I would love it, I love hanging out with you guys."'
 		'Albina gives you a hug, once she lets go Andrey wraps an arm around your shoulder and starts leading you to your next class. "From now on you are one of us." Stasya gives you a friendly smile, as the four of you walk to your next class.'
 		
-		grupvalue[2] -= 20
-		grupvalue[3] -= 40
-		grupvalue[4] -= 50
+		grupvalue[2] -= 200
+		grupvalue[3] -= 400
+		grupvalue[4] -= 500
 		
 		if grupTipe = 2 or grupvalue[2] < 0: grupvalue[2] = 0
 		if grupTipe = 3 or grupvalue[3] < 0: grupvalue[3] = 0
@@ -142,9 +158,9 @@ if $ARGS[0] = 'jock':
 		'You nod your head, "Yes I would love to, I love hanging out with you guys."'
 		'Lariska gives you a hug. "From now on you are one of us." Lina gives you a friendly smile, with that they walk you to your next class.'
 		
-		grupvalue[1] -= 20
-		grupvalue[3] -= 50
-		grupvalue[4] -= 30
+		grupvalue[1] -= 200
+		grupvalue[3] -= 500
+		grupvalue[4] -= 300
 		
 		if grupTipe = 1 or grupvalue[1] < 0: grupvalue[1] = 0
 		if grupTipe = 3 or grupvalue[3] < 0: grupvalue[3] = 0
@@ -183,9 +199,9 @@ if $ARGS[0] = 'nerd':
 		'You nod your head, "Yes I would love it, I love hanging out with you guys. A game night sounds like a lot of fun."'
 		'Most of them start talking at once, they seem as excited as you are about you joining them. You understand this means you are part of their group now. Finally Feofan talks loud enough the rest let him talk. "That''s great <<$pcs_nickname>> meet us at the community center library tonight at 20:00. See you then." With that they all start leaving and going to class, most saying they look forward to seeing you tonight.'
 		
-		grupvalue[1] -= 50
-		grupvalue[2] -= 40
-		grupvalue[4] -= 50
+		grupvalue[1] -= 500
+		grupvalue[2] -= 400
+		grupvalue[4] -= 500
 		
 		if grupTipe = 1 or grupvalue[1] < 0: grupvalue[1] = 0
 		if grupTipe = 2 or grupvalue[2] < 0: grupvalue[2] = 0
@@ -244,9 +260,9 @@ if $ARGS[0] = 'coolkid outcast':
 	'<font color = red>*You have lost your social group and become an outcast.*</font>'
 
 	grupvalue[1] = 0
-	grupvalue[2] -= 50
-	grupvalue[3] -= 30
-	grupvalue[4] -= 10
+	grupvalue[2] -= 500
+	grupvalue[3] -= 300
+	grupvalue[4] -= 100
 	
 	if grupvalue[2] < 0: grupvalue[2] = 0
 	if grupvalue[3] < 0: grupvalue[3] = 0
@@ -268,10 +284,10 @@ if $ARGS[0] = 'jock outcast':
 	'Christina, Lariska, and Lina walk up to you, Lariska and Lina are looking at you like you did something wrong, while Christina is smirking. She shoves you hard up against your locker. "What are you doing here bitch? You use to know whats what and be focused on what''s important. Now you just fuck off doing what ever. So you know what, we say fuck off to you." She says, mockingly laughing, Lariska, Lina and several other students nearby join in, openly mocking you. "Stay away from us and go hang out with the other losers." Then she leans in close "Or I will show you what happens to bitches that don''t know their place." With that they turn and walk away. Not being part of the jock clique anymore the other students are ready to prey on your weakness as they either start mocking you or actively look away. You grab your stuff and hurry to your next class.'
 	'<font color = red>*You have lost your social group and become an outcast.*</font>'
 	
-	grupvalue[1] -= 50
+	grupvalue[1] -= 500
 	grupvalue[2] = 0
-	grupvalue[3] -= 30
-	grupvalue[4] -= 20
+	grupvalue[3] -= 300
+	grupvalue[4] -= 200
 	
 	if grupvalue[1] < 0: grupvalue[1] = 0
 	if grupvalue[3] < 0: grupvalue[3] = 0
@@ -293,10 +309,10 @@ if $ARGS[0] = 'nerd outcast':
 	'A couple of students stand in front of you, wanting to get a better look at the slut based on what''s written on your locker, when you look at them they start laughing and then quickly hurry away from you as if you''ve been struck with the plague. You turn and try to find some of your friends, most seem to be hiding or when they see you coming hurry off. You finally manage to catch up to Gerasim. As you''re about to say something he turns to you. "Please go away, I don''t know what got into you." He shakes his head. "I''m sorry but I can''t be seen hanging out with you, I''ve got enough problems without you making it worse, no one in school wants to be around you anymore." When he notices the dejected look on your face as he''s told you off, ending with that you are an outcast he sighs a little. "I''m sorry I really am, but this is your own fault, but please leave me alone." The last part he says loudly enough for others to hear, which causes some of the other students to laugh at you, as he wheels himself away from you decidedly. As you look around, most of the other students either start mocking you or actively look away. You grab your stuff and hurry to your next class.'
 	'<font color = red>*You have lost your social group and become an outcast.*</font>'
 	
-	grupvalue[1] -= 50
-	grupvalue[2] -= 30
+	grupvalue[1] -= 500
+	grupvalue[2] -= 300
 	grupvalue[3] = 0
-	grupvalue[4] -= 40
+	grupvalue[4] -= 400
 	
 	if grupvalue[1] < 0: grupvalue[1] = 0
 	if grupvalue[2] < 0: grupvalue[2] = 0
@@ -318,9 +334,9 @@ if $ARGS[0] = 'gopnik outcast':
 	'Paulina, Lera, and Lena are standing next to you. Paulina looks annoyed, just like she''s preparing to beat you up while Lera looks at you with disgust. Paulina shakes her head at you and finally speaks up. "I don''t know what your problem is, but apparently hanging out, partying and having a good time wasn''t enough for you. No you had to become a spinless cunt afraid of her own shadow, so stay the fuck away from us or I will beat the shit out of you." With that Paulina shoves you against you locker and walks away. Lena gives you a final look of disgust and shoves you once again while Lera gives you a few parting words before walking away. "Your so pathetic even the nerds will kick your ass now." Not being part of the gopnik clique anymore the other students are ready to prey on your weakness as they either start mocking you or actively look away. You grab your stuff and hurry to your next class.'
 	'<font color = red>*You have lost your social group and become an outcast.*</font>'
 	
-	grupvalue[1] -= 40
-	grupvalue[2] -= 30
-	grupvalue[3] -= 50
+	grupvalue[1] -= 400
+	grupvalue[2] -= 300
+	grupvalue[3] -= 500
 	grupvalue[4] = 0
 	
 	if grupvalue[1] < 0: grupvalue[1] = 0
@@ -532,9 +548,9 @@ end
 if $ARGS[0] = 'gopnik party':
 	*clr & cla
 	menu_off = 1
-	grupvalue[1] -= 50
-	grupvalue[2] -= 30
-	grupvalue[3] -= 50
+	grupvalue[1] -= 500
+	grupvalue[2] -= 300
+	grupvalue[3] -= 500
 		
 	if grupTipe = 1 or grupvalue[1] < 0: grupvalue[1] = 0
 	if grupTipe = 2 or grupvalue[2] < 0: grupvalue[2] = 0
@@ -624,7 +640,7 @@ if $ARGS[0] = 'explore':
 	menu_off = 0
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/oldschool/gophangout/party/party.jpg"></center>'
 	'Once your story has been told and everyone took a drink or more of the vodka, the large crowd scatters around and smaller cliques have formed instead. Those left in the main office are <a href="exec:gt ''gschool_socialchg'', ''tVitek''">Vitek</a> and <a href="exec:gt ''gschool_socialchg'', ''tLavrenti''">Lavrenti</a> who are discussing something, while <a href="exec:gt ''gschool_socialchg'', ''tDan''">Dan</a> is sitting on the sofa with a drink in his hand carefully listening to the discussion.'
-	'<a href="exec:gt ''gschool_socialchg'', ''tVasily''">Vasily</a> is standing nearby pouring himself a drink. <a href="exec:gt ''gschool_socialchg'', ''tLena''">Lena</a> and <a href="exec:gt ''gschool_socialchg'', ''tLera''">Lera</a> are standing a bit farther away talking to each other while, <a href="exec:gt ''gschool_socialchg'', ''tPauline''">Pauline</a> is standing by the window smoking a cigarette.'
+	'You can see <a href="exec:gt ''gschool_socialchg'', ''Niko''">Niko</a> leaning against a wall, chatting with Roman. <a href="exec:gt ''gschool_socialchg'', ''tVasily''">Vasily</a> is standing nearby pouring himself a drink. <a href="exec:gt ''gschool_socialchg'', ''tLena''">Lena</a> and <a href="exec:gt ''gschool_socialchg'', ''tLera''">Lera</a> are standing a bit farther away talking to each other while, <a href="exec:gt ''gschool_socialchg'', ''tPauline''">Pauline</a> is standing by the window smoking a cigarette.'
 	gs 'stat'
 
 	act 'Leave': gt 'gschool_grounds', 'main'
@@ -1015,10 +1031,8 @@ end
 if $ARGS[0] = 'Niko':
 	'<center><b><h4><font color=#E400FF><<"Nikolai [Niko] Volkov">></font></h4></b></center>'
 	gs 'stat'
-
 	if NikoGOPParty = 0:
 		NikoGOPParty = 1
-
 		if NikoFightDay = daystart and NikoPayback > 0:
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev2/bruised2.jpg"></center>'
 			'As you approach Niko, he slowly turns to you and says, "What? Did you come here to gloat? Why don''t you just celebrate somewhere else?" And before you can say anything, Niko grabs two vodka bottles then walks to the other side of the room.'
@@ -1032,7 +1046,7 @@ if $ARGS[0] = 'Niko':
 			act 'Have a drink':
 				cla & *clr
 				'<center><video autoplay loop src="images/characters/pavlovsk/school/boy/fedor/fedorev/caress.mp4"></center>'
-				'You begin drinking as a few drops fall down your chin onto your shirt. Niko leans forward then begins licking the vodka off of your neck while caressing your breasts while you continue drinking. After you finish the vodka, you place the bottle down just as Niko gives you a passionate kiss before saying, "How about we slip away for some private time..." Just as he says that dan Accidentally knocks over an open bottle, causing some vodka to spill on Niko''s leg. Niko shouts, "Watch what your fucking doing you shithead!" dan flips off Niko before they both begin shoving each other, as you slip away, not wanting to get involved.'
+				'As you begin drinking, a few drops fall down your chin and onto your shirt. Niko leans forward then begins licking the vodka off of your neck while caressing your breasts while you continue drinking. After you finish the vodka, you place the bottle down just as Niko gives you a passionate kiss before saying, "How about we slip away for some private time..." Just as he says that dan Accidentally knocks over an open bottle, causing some vodka to spill on Niko''s leg. Niko shouts, "Watch what your fucking doing you shithead!" dan flips off Niko before they both begin shoving each other, as you slip away, not wanting to get involved.'
 				gs 'stat'
 
 				act 'Head back': gt 'gschool_socialchg', 'explore'
@@ -1045,27 +1059,26 @@ if $ARGS[0] = 'Niko':
 				cla & *clr
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/smile2.jpg"></center>'
-				'You begin drinking as a few drops fall down your chin onto your shirt. Niko quickly grabs a napkin then begin slowly whipping the drops off of your shirt as he says, "Careful there, we wouldn''t want to that lovely shirt you''re wearing." You pause drinking to give him a light smile before saying, "Charmer are we?" Niko replies, "Only for one as beautiful as you." You shake your head before getting up and saying, "Well maybe we can do this again sometime." Niko gives you a wink before replying, "I''m looking forward to it."'
+				'As you begin drinking, a few drops fall down your chin and onto your shirt. Niko quickly grabs a napkin then begins slowly whipping the drops off of your shirt as he says, "Careful there, we wouldn''t want to ruin that lovely shirt you''re wearing." You pause drinking to give him a light smile before saying, "Charmer are we?" Niko replies, "Only for one as beautiful as you." You shake your head before getting up and saying, "Well maybe we can do this again sometime." Niko gives you a wink before replying, "I''m looking forward to it."'
 				act 'Head back': gt 'gschool_socialchg', 'explore'
 			end
 		else
 			gs 'drugs', 'alcohol', 'vodka', 1
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/avatars/<<week>>.jpg"></center>'
 			'As you approach Niko, he slowly turns to you and says, "Hello there, <<$pcs_firstname>> is your name right? Welcome to the party. Here, have a drink." Niko then presses a bottle of vodka against the table then slams his hand down on it, popping the top off the bottle before handing it to you.'
-		end
-		if NikoVolkovQW = 0 and NikoEv = 0 and NikoPayback = 0:
+			
 			act 'Have a drink':
 				cla & *clr
-				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/smile2.jpg"></center>'
-				'You begin drinking as a few drops fall down your chin onto your shirt. Niko quickly grabs a napkin then begin slowly whipping the drops off of your shirt as he says, "Careful there, we wouldn''t want to ruin that lovely shirt you''re wearing." You pause drinking to give him a light smile before saying, "Charmer are we?" Niko replies, "Only for one as beautiful as you." You shake your head before getting up and saying, "Well maybe we can do this again sometime." Niko gives you a wink before replying, "I''m looking forward to it."'
 				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikoev/smile2.jpg"></center>'
+				'As you begin drinking, a few drops fall down your chin and onto your shirt. Niko quickly grabs a napkin then begins slowly whipping the drops off of your shirt as he says, "Careful there, we wouldn''t want to ruin that lovely shirt you''re wearing." You pause drinking to give him a light smile before saying, "Charmer are we?" Niko replies, "Only for one as beautiful as you." You shake your head before getting up and saying, "Well maybe we can do this again sometime." Niko gives you a wink before replying, "I''m looking forward to it."'
 
 				act 'Head back': gt 'gschool_socialchg', 'explore'
 			end
 		end
 	else
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/niko/nikomisc/brother/upset.jpg"></center>'
-		'Niko seems to be resting while having a smoke, You take a look at him then think to yourself, <font color=#FF00CC>It''s probably best not to disturb him</font>.'
+		'Niko seems to be resting while having a smoke, You take a look at him then think to yourself, <font color=#FF00FF>It''s probably best not to disturb him</font>.'
 	end
 	if NikoGOPParty = 0:
 		act 'Wave and walk away':gt 'gschool_socialchg', 'explore'
@@ -1669,4 +1682,122 @@ if $ARGS[0] = 'group_rel_change':
 	killvar 'gtemp' & killvar 'ntemp'
 end
 
+if $ARGS[0] = 'group_student_rel_change':
+	if grupvalue_student_day ! daystart:
+		dailycheck_grupvalue[1] = <<grupvalue[1]>>
+		dailycheck_grupvalue[2] = <<grupvalue[2]>>
+		dailycheck_grupvalue[3] = <<grupvalue[3]>>
+		dailycheck_grupvalue[4] = <<grupvalue[4]>>
+		if npc_rel['A1'] >= 80: grupvalue[1] += 1
+		if npc_rel['A1'] <= 20: grupvalue[1] -= 1 
+		if npc_rel['A2'] >= 80: grupvalue[3] += 1
+		if npc_rel['A2'] <= 20: grupvalue[3] -= 1
+		if npc_rel['A3'] >= 80: grupvalue[2] += 1     
+		if npc_rel['A3'] <= 20: grupvalue[2] -= 1   
+		if npc_rel['A4'] >= 80: grupvalue[1] += 1     
+		if npc_rel['A4'] <= 20: grupvalue[1] -= 1   
+		if fedormasha = 0 and npc_rel['A5'] >= 80: grupvalue[3] += 1     
+		if fedormasha = 0 and npc_rel['A5'] <= 20: grupvalue[3] -= 1   
+		if npc_rel['A6'] >= 80: grupvalue[3] += 1     
+		if npc_rel['A6'] <= 20: grupvalue[3] -= 1   
+		if npc_rel['A7'] >= 80: grupvalue[5] += 1     
+		if npc_rel['A7'] <= 20: grupvalue[5] -= 1   
+		if npc_rel['A8'] >= 80: grupvalue[2] += 1     
+		if npc_rel['A8'] <= 20: grupvalue[2] -= 1   
+		if npc_rel['A9'] >= 80: grupvalue[4] += 1     
+		if npc_rel['A9'] <= 20: grupvalue[4] -= 1   
+		if npc_rel['A10'] >= 80: grupvalue[4] += 1     
+		if npc_rel['A10'] <= 20: grupvalue[4] -= 1   
+		if npc_rel['A11'] >= 80: grupvalue[4] += 1     
+		if npc_rel['A11'] <= 20: grupvalue[4] -= 1   
+		if npc_rel['A12'] >= 80: grupvalue[3] += 1     
+		if npc_rel['A12'] <= 20: grupvalue[3] -= 1   
+		if npc_rel['A13'] >= 80: grupvalue[2] += 1     
+		if npc_rel['A13'] <= 20: grupvalue[2] -= 1   
+		if npc_rel['A14'] <= 20: grupvalue[1] -= 1   
+		if npc_rel['A14'] >= 80: grupvalue[1] += 1     
+		if npc_rel['A15'] >= 80: grupvalue[1] += 1     
+		if npc_rel['A15'] <= 20: grupvalue[1] -= 1   
+		if npc_rel['A16'] >= 80: grupvalue[3] += 1     
+		if npc_rel['A16'] <= 20: grupvalue[3] -= 1   
+		if npc_rel['A17'] >= 80: grupvalue[1] += 1     
+		if npc_rel['A17'] <= 20: grupvalue[1] -= 1   
+		if zverSlutQW < 2 and npc_rel['A18'] >= 80: grupvalue[3] += 1     
+		if zverSlutQW < 2 and npc_rel['A18'] <= 20: grupvalue[3] -= 1   
+		if npc_rel['A19'] >= 80: grupvalue[2] += 1     
+		if npc_rel['A19'] <= 20: grupvalue[2] -= 1   
+		if npc_rel['A200'] >= 80: grupvalue[4] += 1     
+		if npc_rel['A200'] <= 20: grupvalue[4] -= 1   
+		if npc_rel['A21'] >= 80: grupvalue[4] += 1     
+		if npc_rel['A21'] <= 20: grupvalue[4] -= 1   
+		if npc_rel['A22'] >= 80: grupvalue[2] += 1     
+		if npc_rel['A22'] <= 20: grupvalue[2] -= 1   
+		if npc_rel['A23'] >= 80: grupvalue[1] += 1     
+		if npc_rel['A23'] <= 20: grupvalue[1] -= 1   
+		if npc_rel['A24'] <= 20: grupvalue[4] -= 1   
+		if npc_rel['A24'] >= 80: grupvalue[4] += 1     
+		if soniaPS = 0 and npc_rel['A25'] >= 80: grupvalue[1] += 1     
+		if soniaPS = 0 and npc_rel['A25'] <= 20: grupvalue[1] -= 1   
+		if npc_rel['A139'] >= 80: grupvalue[1] += 1  
+		if npc_rel['A139'] <= 20: grupvalue[1] -= 1   
+		if npc_rel['A140'] >= 80: grupvalue[1] += 1     
+		if npc_rel['A140'] <= 20: grupvalue[1] -= 1   
+		if npc_rel['A141'] <= 20: grupvalue[2] -= 1   
+		if npc_rel['A141'] >= 80: grupvalue[2] += 1     
+		if npc_rel['A142'] >= 80: grupvalue[3] += 1     
+		if npc_rel['A142'] <= 20: grupvalue[3] -= 1   
+		if npc_rel['A143'] >= 80: grupvalue[4] += 1     
+		if npc_rel['A143'] <= 20: grupvalue[4] -= 1   
+		if npc_rel['A144'] >= 80: grupvalue[4] += 1     
+		if npc_rel['A144'] <= 20: grupvalue[4] -= 1   
+		if npc_rel['A145'] >= 80: grupvalue[4] += 1     
+		if npc_rel['A145'] <= 20: grupvalue[4] -= 1   
+		if npc_rel['A146'] >= 80: grupvalue[1] += 1     
+		if npc_rel['A146'] <= 20: grupvalue[1] -= 1   
+		if npc_rel['A147'] >= 80: grupvalue[1] += 1     
+		if npc_rel['A147'] <= 20: grupvalue[1] -= 1   
+		if npc_rel['A148'] >= 80: grupvalue[1] += 1     
+		if npc_rel['A148'] <= 20: grupvalue[1] -= 1   
+		if npc_rel['A149'] >= 80: grupvalue[2] += 1     
+		if npc_rel['A149'] <= 20: grupvalue[2] -= 1   
+		if npc_rel['A150'] >= 80: grupvalue[2] += 1     
+		if npc_rel['A150'] <= 20: grupvalue[2] -= 1   
+		if npc_rel['A151'] >= 80: grupvalue[3] += 1     
+		if npc_rel['A151'] <= 20: grupvalue[3] -= 1   
+		if npc_rel['A152'] >= 80: grupvalue[3] += 1     
+		if npc_rel['A152'] <= 20: grupvalue[3] -= 1   
+		if npc_rel['A153'] >= 80: grupvalue[3] += 1     
+		if npc_rel['A153'] <= 20: grupvalue[3] -= 1   
+		if npc_rel['A154'] >= 80: grupvalue[4] += 1     
+		if npc_rel['A154'] <= 20: grupvalue[4] -= 1   
+		if npc_rel['A155'] >= 80: grupvalue[4] += 1     
+		if npc_rel['A155'] <= 20: grupvalue[4] -= 1   
+		if npc_rel['A156'] >= 80: grupvalue[4] += 1     
+		if npc_rel['A156'] <= 20: grupvalue[4] -= 1   
+		if npc_rel['A157'] >= 80: grupvalue[4] += 1
+		if npc_rel['A157'] <= 20: grupvalue[4] -= 1
+		if npc_rel['A158'] >= 80: grupvalue[4] += 1
+		if npc_rel['A158'] <= 20: grupvalue[4] -= 1
+		if npc_rel['A159'] >= 80: grupvalue[5] += 1
+		if npc_rel['A159'] <= 20: grupvalue[5] -= 1
+		if npc_rel['A165'] >= 80: grupvalue[2] += 1
+		if npc_rel['A165'] <= 20: grupvalue[2] -= 1
+		if grupTipe[61] = 4 and npc_rel['A189'] >= 80: grupvalue[4] += 1
+		if grupTipe[61] = 4 and npc_rel['A189'] <= 20: grupvalue[4] -= 1
+		grupvalue_student_day = daystart
+	end
+	if grupvalue[1] > (dailycheck_grupvalue[1] + 30): grupvalue[1] = (dailycheck_grupvalue[1] + 30)
+	if grupvalue[2] > (dailycheck_grupvalue[2] + 30): grupvalue[2] = (dailycheck_grupvalue[2] + 30)
+	if grupvalue[3] > (dailycheck_grupvalue[3] + 30): grupvalue[3] = (dailycheck_grupvalue[3] + 30)
+	if grupvalue[4] > (dailycheck_grupvalue[4] + 30): grupvalue[4] = (dailycheck_grupvalue[4] + 30)
+	if grupvalue[1] > (dailycheck_grupvalue[1] - 30): grupvalue[1] = (dailycheck_grupvalue[1] - 30)
+	if grupvalue[2] > (dailycheck_grupvalue[2] - 30): grupvalue[2] = (dailycheck_grupvalue[2] - 30)
+	if grupvalue[3] > (dailycheck_grupvalue[3] - 30): grupvalue[3] = (dailycheck_grupvalue[3] - 30)
+	if grupvalue[4] > (dailycheck_grupvalue[4] - 30): grupvalue[4] = (dailycheck_grupvalue[4] - 30)	
+	if grupvalue[1] < 0: grupvalue[1] = 0
+	if grupvalue[2] < 0: grupvalue[2] = 0
+	if grupvalue[3] < 0: grupvalue[3] = 0
+	if grupvalue[4] < 0: grupvalue[4] = 0
+end	
+
 --- gschool_socialchg ---------------------------------

+ 1 - 1
locations/medical_din.qsrc

@@ -55,7 +55,7 @@ if $ARGS[0] = 'birth_control':
 			act 'Leave': gt $loc, $metka
 		end
 	elseif birth_control['implant_status'] = 0 and money < 19650 and knowpreg = 0:
-		act 'Get a birth control implant for <font color="red">19,000 <b>₽</b></font> (0:35)': '<br><font color="red">You don''t have enough money to get a birth control implant.</font>'
+		act 'Get a birth control implant for <font color="red">19,650 <b>₽</b></font> (0:35)': '<br><font color="red">You don''t have enough money to get a birth control implant.</font>'
 	elseif birth_control['implant_status'] > 0:
 		if money >= 1000:
 			act 'Remove your birth control implant for 1,000 <b>₽</b> (0:20)':

+ 2 - 2
locations/natbelapt.qsrc

@@ -1265,6 +1265,8 @@ if $ARGS[0] = 'chat':
 					NatbelQW['Debt'] = 2000
 					money -= 2000
 					NatbelQW['MoneyGivenTimes'] += 1
+					!!set timer for repayment
+					NatbelQW['DebtDay'] = daystart + 30
 					gs 'stat'
 					'You get your purse and give Natasha the money.'
 					'"Thank you <<$pcs_nickname>>, you''re the best. I promise you''ll have it back within a month."'
@@ -1273,7 +1275,6 @@ if $ARGS[0] = 'chat':
 				elseif NatbelQW['MoneyGivenTimes'] < 20:
 					NatbelQW['Debt'] = 2000
 					money -= 2000
-					NatbelQW['DebtDay'] = daystart + 30
 					NatbelQW['MoneyGivenTimes'] += 1
 					gs 'stat'
 					'"Or I could uhm... I could do those things again for you to... To repay you."'
@@ -1284,7 +1285,6 @@ if $ARGS[0] = 'chat':
 				else
 					NatbelQW['Debt'] = 2000
 					money -= 2000
-					NatbelQW['DebtDay'] = daystart + 30
 					NatbelQW['MoneyGivenTimes'] += 1
 					gs 'stat'
 					'You get your purse and give Natasha the money.'

+ 19 - 14
locations/obj_din.qsrc

@@ -582,20 +582,22 @@ if $ARGS[0] = 'stats':
 		*nl
 		'<<modelfoto>> - Number of times you have worked as a model'
 		'<<modelfotomoney>> - The amount of money you''ve made modelling'
-		if modelfoto_fashion > 0: '<<modelfoto_fashion>> - Number of fashion shoots you have participated in'
-		if modelfoto_ero_clo > 0: '<<modelfoto_ero_clo>> - Number of erotic clothing shoots you have participated in'
-		if modelfoto_bikini > 0: '<<modelfoto_bikini>> - Number of swimsuit shoots you have modelled in'
-		if modelfoto_lingerie > 0: '<<modelfoto_lingerie>> - Number of lingerie shoots you have participated in'
-		if modelfoto_glamour > 0: '<<modelfoto_glamour>> - Number of glamour shoots you have participated in'
-		if modelfoto_tastenude > 0: '<<modelfoto_tastenude>> - Number of tasteful nude  shoots you have participated in'
-		if modelfoto_toplessnude > 0: '<<modelfoto_toplessnude>> - Number of topless nude shoots you have participated in'
-		if modelfoto_nude > 0: '<<modelfoto_nude>> - Number of full frontal nude shoots you have participated in'
-		if modelfoto_erotic > 0: '<<modelfoto_erotic>> - Number of softcore porn shoots you have participated in'
-		if modelfoto_nip > 0: '<<modelfoto_nip>> - Number of times your nipples have been visible as a model'
-		if modelfoto_topless > 0: '<<modelfoto_topless>> - Number of shoots where you have been topless'
-		if modelfoto_pussy > 0: '<<modelfoto_pussy>> - Number of shoots you have shown your pussy'
-		if modelfoto_asshole > 0: '<<modelfoto_asshole>> - Number of shoots you have shown your asshole'
 		*nl
+		if modelfoto_catalog > 0: '<<modelfoto_catalog>> - Number of catalog shoots you''ve done'
+		if modelfoto_fashion > 0: '<<modelfoto_fashion>> - Number of fashion shoots you''ve done'
+		if modelfoto_ero_clo > 0: '<<modelfoto_ero_clo>> - Number of sexy clothing shoots you''ve done'
+		if modelfoto_bikini > 0: '<<modelfoto_bikini>> - Number of swimsuit shoots you''ve done'
+		if modelfoto_lingerie > 0: '<<modelfoto_lingerie>> - Number of lingerie shoots you''ve done'
+		if modelfoto_glamour > 0: '<<modelfoto_glamour>> - Number of glamour shoots you''ve done'
+		if modelfoto_topless > 0: '<<modelfoto_topless>> - Number of topless shoots you''ve done'
+		if modelfoto_nude > 0: '<<modelfoto_nude>> - Number of shoots in which you have been nude'
+		if modelfoto_tastenude > 0: '<<modelfoto_tastenude>> - Number of shoots in which you have been nude but not shown breasts or pussy'
+		if modelfoto_toplessnude > 0: '<<modelfoto_toplessnude>> - Number of nude shoots you have shown your breasts but not your pussy'
+		if modelfoto_fullnude > 0: '<<modelfoto_fullnude>> - Number of full frontal nude shoots you''ve done'
+		if modelfoto_erotic > 0: '<<modelfoto_fullnude>> - Number of softcore erotic shoots you''ve done'
+		if modelfoto_nip > 0: '<<modelfoto_nip>> - Number of shoots your nipples have been visible'
+		if modelfoto_pussy > 0: '<<modelfoto_pussy>> - Number of shoots your pussy has been visible'
+		if modelfoto_asshole > 0: '<<modelfoto_asshole>> - Number of shoots your asshole has been visible'
 	end
 
 	if slavafuck > 0:'You have let Borislav fuck you <<slavafuck>> times'
@@ -983,13 +985,16 @@ if $ARGS[0] = 'stats_gen':
 		'<b>Modelling Stats</b>'
 		'<<modelfoto>> - Number of times you have worked as a model'
 		'<<modelfotomoney>> - The amount of money you''ve made modelling'
+		
+		if modelfoto_catalog > 0: '<<modelfoto_catalog>> - Number of catalog shoots you''ve done'
 		if modelfoto_fashion > 0: '<<modelfoto_fashion>> - Number of fashion shoots you''ve done'
 		if modelfoto_ero_clo > 0: '<<modelfoto_ero_clo>> - Number of sexy clothing shoots you''ve done'
 		if modelfoto_bikini > 0: '<<modelfoto_bikini>> - Number of swimsuit shoots you''ve done'
 		if modelfoto_lingerie > 0: '<<modelfoto_lingerie>> - Number of lingerie shoots you''ve done'
+		if modelfoto_glamour > 0: '<<modelfoto_glamour>> - Number of glamour shoots you''ve done'
 		if modelfoto_topless > 0: '<<modelfoto_topless>> - Number of topless shoots you''ve done'
 		if modelfoto_nude > 0: '<<modelfoto_nude>> - Number of shoots in which you have been nude'
-		if modelfoto_tastenude > 0: '<<modelfoto_nude>> - Number of shoots in which you have been nude but not shown breasts or pussy'
+		if modelfoto_tastenude > 0: '<<modelfoto_tastenude>> - Number of shoots in which you have been nude but not shown breasts or pussy'
 		if modelfoto_toplessnude > 0: '<<modelfoto_toplessnude>> - Number of nude shoots you have shown your breasts but not your pussy'
 		if modelfoto_fullnude > 0: '<<modelfoto_fullnude>> - Number of full frontal nude shoots you''ve done'
 		if modelfoto_erotic > 0: '<<modelfoto_fullnude>> - Number of softcore erotic shoots you''ve done'

+ 0 - 6
locations/pavSharedApt.qsrc

@@ -699,12 +699,6 @@ if $ARGS[0] = 'pcsRoom':
 	'Beside the sofa bed, is an old cabinet, with your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> on top.'
 	*nl
 	'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set to <b>'+iif(timer < 10,'0<<timer>>','<<timer>>')+':'+iif(timerM < 10,'0<<timerM>>','<<timerM>>')+'</b> during the week and <b>'+iif(timerEnd < 10,'0<<timerEnd>>','<<timerEnd>>')+':'+iif(timerEndM < 10,'0<<timerEndM>>','<<timerEndM>>')+'</b> during the weekend. It is currently turned '+iif(budilnikOn = 0, '<a href="exec: budilnikOn = 1 & gt $loc, $metka">OFF</a>.', '<a href="exec: budilnikOn = 0 & gt $loc, $metka">ON</a>.')
-	
-	if budilnikOn = 0:
-		'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set for <<timer>> hours <<timerM>> minutes and currently turned <a href="exec: budilnikOn = 1 & gt ''pavSharedApt'',''pcsRoom''">off</a>.'
-	else
-		'Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set for <<timer>> hours <<timerM>> minutes and currently turned <a href="exec: budilnikOn = 0 & gt ''pavSharedApt'',''pcsRoom''">on</a>.'
-	end
 	*nl
 	if TV = 0:$TV = 'a great place for a TV, if you had one.'
 	if TV = 1:$TV = 'an old CRT <a href="exec:gt ''TV'', ''start''">TV</a> sits on the shelf'

+ 28 - 25
locations/preSYS.qsrc

@@ -589,8 +589,8 @@ if $ARGS[0] = 'nerd':
 	npc_rel['A129'] += 10
 	npc_rel['A28'] += 10
 	npc_rel['A29'] += 10
-	grupvalue[3] = 50
-	grupvalue[6] = 10
+	grupvalue[3] = 600
+	grupvalue[6] = 100
 	genbsize = 22
 	salo = 100
 	traits['nerd_points'] = 60
@@ -624,8 +624,8 @@ if $ARGS[0] = 'nerdqueen':
 		fashionista_purses[13] = 1
 		bag = 1
 		gs 'npc_relationship', 'socialgroup_setting', 10, 5, 10, 5, 5, 0
-		grupvalue[3] = 65
-		grupvalue[1] = 20
+		grupvalue[3] = 750
+		grupvalue[1] = 200
 		kosmetica = 10
 		stanok = 10
 		if player_avatar = 0:
@@ -659,7 +659,7 @@ if $ARGS[0] = 'goodstudent':
 		pcs_artskls = 10
 		pcs_makupskl = 20
 		money += 2000
-		grupvalue[6] = 30
+		grupvalue[6] = 300
 		npc_rel['A29'] += 20
 		if player_avatar ! 1: pcs_hairlng = 200
 		willpowermax = 80
@@ -709,7 +709,7 @@ if $ARGS[0] = 'chessplayer':
 		pcs_grades = 80
 		pcs_chess = 40
 		pcs_makupskl = 10
-		grupvalue[3] = 55
+		grupvalue[3] = 650
 		chessyear = year
 		chessmonth = month
 		npc_rel['A151'] += 20
@@ -749,7 +749,9 @@ if $ARGS[0] = 'jock':
 	bag = 1
 	gs 'npc_relationship', 'socialgroup_setting', 10, 25, 0, 0, -5, 0
 	npc_rel['A129'] -= 10
-	grupvalue[2] = 50
+	grupvalue[1] = 300
+	grupvalue[2] = 600
+	grupvalue[1] = 200
 	hscrunch = 10
 	hscrunchw = 0
 	pcs_tan = 20
@@ -783,7 +785,7 @@ if $ARGS[0] = 'volleyball':
 		gsAboVolley += 30
 		npc_rel['A13'] += 10
 		npc_rel['A69'] += 10
-		grupvalue[2] = 60
+		grupvalue[2] = 700
 		willpowermax = 140
 		gt 'preCUST', 'SGStart'
 	end
@@ -821,7 +823,7 @@ if $ARGS[0] = 'dancer':
 		pcs_makupskl = 35
 		gsAboDance += 30
 		npc_rel['A23'] += 20
-		grupvalue[1] = 20
+		grupvalue[1] = 300
 		willpowermax = 140
 		gt 'preCUST', 'SGStart'
 	end
@@ -869,7 +871,7 @@ if $ARGS[0] = 'football':
 		npc_rel['A131'] += 10
 		npc_rel['A149'] += 10
 		npc_rel['A34'] += 10
-		grupvalue[2] = 65
+		grupvalue[2] = 650
 		willpowermax = 140
 		$currentpursetype = 'fashionista'
 		currentpursenumber = 11
@@ -896,7 +898,7 @@ if $ARGS[0] = 'cool':
 	money += 1000
 	gs 'npc_relationship', 'socialgroup_setting', 25, 15, 0, -10, -20, 0
 	npc_rel['A129'] -= 20
-	grupvalue[1] = 60
+	grupvalue[1] = 600
 	if player_avatar ! 1: pcs_haircol = 2
 	if player_avatar ! 1: pcs_eyecol = 2
 	pcs_tan = 30
@@ -935,8 +937,8 @@ if $ARGS[0] = 'socialite':
 		if player_avatar ! 1: pcs_hairlng = 200
 		gs 'npc_relationship', 'socialgroup_setting', 10, 5, 0, 0, 0, 0
 		npc_rel['A140'] += 10
-		grupvalue[2] = 10
-		grupvalue[3] = 10
+		grupvalue[2] = 100
+		grupvalue[3] = 100
 		salo = 80
 		willpowermax = 110
 		gt 'preCUST', 'SGStart'
@@ -980,9 +982,10 @@ if $ARGS[0] = 'beautiful':
 		PirsC2_owned = 1
 		gs 'npc_relationship', 'socialgroup_setting_boys', 20, 20, 20, 20, 20, 0
 		salo = 60
-		grupvalue[1] = 65
-		grupvalue[2] = 20
-		grupvalue[4] = 10
+		grupvalue[1] = 700
+		grupvalue[2] = 200
+		grupvalue[3] = 200
+		grupvalue[4] = 100
 		pav_sex = 20
 		willpowermax = 110
 		gt 'preCUST', 'SGStart'
@@ -1008,7 +1011,8 @@ if $ARGS[0] = 'gopnik':
 	gs 'npc_relationship', 'socialgroup_setting', 0, 0, -10, 25, 0, 0
 	npc_rel['A129'] -= 30
 	npc_rel['A11'] += 10
-	grupvalue[4] = 50
+	grupvalue[2] = 200
+	grupvalue[4] = 600
 	tampon = 20
 	pcs_run = 20
 	pcs_humint = 10
@@ -1060,8 +1064,7 @@ if $ARGS[0] = 'gopnikstart':
 		npc_rel['A29'] -= 20
 		npc_rel['A33'] -= 10
 		npc_rel['A34'] -= 10
-		grupvalue[4] = 65
-		grupvalue[2] = 10
+		grupvalue[4] = 700
 		willpowermax = 130
 		gt 'preCUST', 'SGStart'
 	end
@@ -1105,7 +1108,7 @@ if $ARGS[0] = 'troublemaker':
 		npc_rel['A29'] -= 20
 		npc_rel['A33'] -= 10
 		npc_rel['A34'] -= 10
-		grupvalue[4] = 60
+		grupvalue[4] = 650
 		willpowermax = 120
 		gt 'preCUST', 'SGStart'
 	end
@@ -1238,9 +1241,8 @@ if $ARGS[0] = 'alternative':
 		npc_rel['A28'] -= 10
 		npc_rel['A29'] -= 10
 		npc_rel['A33'] += 10
-		grupvalue[4] = 55
-		grupvalue[1] = 10
-		grupvalue[2] = 10
+		grupvalue[1] = 200
+		grupvalue[2] = 100
 		willpowermax = 120
 		gt 'preCUST', 'SGStart'
 	end
@@ -1353,7 +1355,7 @@ if $ARGS[0] = 'goodgirl':
 		npc_rel['A28'] += 10
 		npc_rel['A29'] += 10
 		npc_rel['A11'] -= 20
-		grupvalue[3] = 20
+		grupvalue[3] = 200
 		willpowermax = 150
 		gt 'preCUST', 'SGStart'
 	end
@@ -1398,7 +1400,7 @@ if $ARGS[0] = 'slut':
 		npc_rel['A34'] -= 10
 		motherKnowSpravka = 1
 		gs 'npc_relationship', 'socialgroup_setting', 0, 0, 0, 10, 0, 0
-		grupvalue[4] = 10
+		grupvalue[4] = 100
 		if player_avatar = 0:
 			pcs_hairlng = 120
 			pcs_eyesize = 2
@@ -1485,6 +1487,7 @@ if $ARGS[0] = 'goth':
         kosmetica = 25
 		stanok = 20
 		tampon = 10
+		grupvalue[4] = 300
         $currentpursetype = 'dolls'
 		currentpursenumber = 18
 		dolls_purses[18] = 1

+ 2 - 3
locations/pussykats.qsrc

@@ -310,10 +310,9 @@ if $ARGS[0] = '4':
 			KILLVAR '$boy'
 			'You take the guys to the back room where you let them have their way with you.'
 			gs 'npcgeneratec', 0, 'a cute guy', rand(17,25)
-			gs 'boyStat', $npclastgenerated
-			$boy[0] = $boy
+			gs 'boyStat', $npclastgenerated, '0'
 			gs 'npcgeneratec', 0, 'a flirty guy', rand(17,25)
-			$boy[1] = $npclastgenerated
+			gs 'boyStat', $npclastgenerated, '1'
 			guy += 2
 			picrand = 16
 			gs 'willpower', 'pay', 'resist'

+ 51 - 27
locations/vann.qsrc

@@ -57,35 +57,59 @@ if $ARGS[0] = 'brit1':
 	
 	act 'Let him stay':
 		*clr & cla
-		pcs_horny += 40
+		pcs_horny += 10
 		'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/brit2.jpg"></center>'
-		'"Shave all you want, " you replied and went back to his task. A few minutes later the guy graduated and started watching you, he came closer, eventually sat down with you and help you began shortly razor was already in the hands of unego. Since you became delot nothing, you started to talk to him, "Do you often helped shave sister?"'
-		'"Yes, when both first time in two weeks, and then once every two days, she then became very fractious, and only a little stubble appeared so I ran with a razor, although I bristle even this language is not felt." Then he paused, realizing that blurted out too much.'
-		'"Well, you''re done, not everyone will be helping her sister in such a delicate matter." you continue pretending that nothing zatetili.'
-		'"Well, how else, I have the same except it''s nobody there. So I helped her in everything, and helped clean up, and even gave birth, I shave and wash it helped. Though she herself could have, but I always requested. " until he raskazyval you noticed that in his pants narostalo excitement.'
-		'"So while you lick her or just touch?" suddenly asked you.'
-		'"Snatch touched well then, and began to lick." he blurted out and immediately stopped and blushed, you smiled pleased that dragged him from the truth.'
-		'"And she gratified as you, or you''re not the language of work and did not deserve?" asked you, the guy looked at the floor, all red as a lobster, but then decided to be seen, that still was asleep and began to speak.'
-		'"Well, why did not deserve deserved. First time by chance happened, then I do not know how to shave, well naelozil hands on her so that she had finished first I was scared and ran out of the bathroom, and sleduyuzhy day, she had me again in the bath called and told to shave, shave it well, so there was nothing. I say it so that there is shaved, and she said the language test that''s how I first lick, and when she finished when she came to me in the pants and pulls climbed began to suck . When I finished, she said that every time I do it nicely, it will be my pleasure to do so. " he finished.'
-		'"Well, you do not even fuck never?" asked you already forgotten about the razor and carefully listening to the story.'
-		'"Well, actually it was. When I got used to the daily blowjob, we do this for three or four times a day doing, and so she had for twenty or thirty minutes to suck in the end when I was once again granted it, and already got a member of that -would stick in her mouth, she told me to bring the cream. When I brought it she lay on her side and said we were brother and sister and therefore can not be in the pussy and ass in here can. then I rubbed her anus cream and gently began to come. And she smiled-that I did not hesitate because it is no longer a girl and my pod her pain does not deliver. Then I drove straight off to her and started to move convulsively. I loved it podmahivala my ass, and when I finished, then just milked him his anus. So then I had already stopped giving her mouth and ass just had, and when she gave birth it was then already expanse in all positions tested her ass. " raskazyval he so vividly that you have drawn the images in my head all this and soon your pussy flowed that did not escape his gaze.'
-		'"Well, here I finished, something else may pobreem?" he asked, already took the shaving foam.'
-
-		gs 'willpower', 'cuni', 'resist', 'easy'
-		if will_cost <= pcs_willpwr:
-			act 'No thanks (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'vann', 'start'
-		else
-			act 'No thanks (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
-		
-		act 'Come on':
+		'"Go ahead," you reply and you go back to the task of trying to shave your pussy. A few minutes later, you hear the hum of his electric razor die. You look up to see him watching you.'
+		'"No no no," he shrieks, "You''re doing it wrong." He says in frustration and grabs the disposable razor from you. You stare at him in stunned silence as he sits down in front of you. He is staring right at your cream covered vagina.'
+		'"Hair is meant to be shaved in a specific direction." He points it out by saying, "You do it the other way and you''re liable to get ingrown hairs. Those are painful."'
+		'You keep quiet while looking at the concentration on his face. You occasionally see his tongue stick out his mouth when he gets to a particularly tough section.'
+		'"Did you help shave your sister often," you ask.'
+		act 'You ask him':
 			*clr & cla
-			picrand = 74
-			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/brit3.jpg"></center>'
-			'"Come on, and that will shave, my chest hair does not grow." you said'
-			'"Well, I''m now your whole body check" With these words, he began to put foam on you, smearing it all over your body. His hands slid over you, you melted at his touch and when he slid to your current pussy already being almost finished.'
-
-			act 'Continue':gt 'sex', 'kuni'
+			pcs_horny += 10
+			'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/brit2.jpg"></center>'
+			'He looks back up at you with a start. He''d been concentrating so hard on your pussy that he completely forgot that you existed.'
+			'"Uh…," he shakes his head, "Yes, I did. At first she was very nervous and only used to call me in once every two weeks, but her confidence grew. Eventually I shaved her every two days or so. She only had stubble at that point so I basically just had to run it through with a razor. Although I could still feel her tiny bristles on my finger." He pauses when he realizes he blurted out too much.'
+			'"That was kind of you. Not everyone would be helping their sister with such a delicate matter." You continue pretending that nothing is wrong with either you getting shaved by a stranger or with what he said.'
+			*nl
+			'"It wasn''t as easy as you make it out to be. I practically had to beg her to be able to do it. She is a strong woman." You can hear the admiration in his voice when he talks about her. "I couldn''t just leave her. She didn''t have anyone else, so I felt it was my duty, as her brother, to look after her. I bathed her, clothed her, shaved, and showered her. I even helped her give birth to a beautiful baby girl." You keep looking down at him throughout his rambling and notice that as he fawns over his sister a bulge grows in his shorts.'
+			'You get a naughty idea. "Did you just touch her or did you get a taste?" you ask suddenly.'
+			act 'Naughty question':
+				*clr & cla
+				pcs_horny += 10
+				'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/brit2.jpg"></center>'
+				'"Both." He says nonchalantly until he realizes what he just admitted to. You see his face turn red. You smile because you are pleased that you managed to get him to reveal something embarrassing about himself.'
+				'"Oh?" You cock your head to the side, your mischievous smile persisting, "Did she return the favour or did she let poor little you do all that work with no pay," you ask while being playfully sympathetic.'
+				*nl
+				'His face gets even redder, looking like a lobster, but then he looks up. "Motivation." He says quickly, "I didn''t really know how to shave her well back then. One day my hands were shaking so much that they slipped. I saw the blood and just ran. I was actually surprised the next day when she called me inside the bathroom. I thought she was going to hit me, but she let me shave her again. She showed me how to do it right. Afterwards, she pulled down my shorts and took me into her mouth. When the shower was over she told me that every time did it right she''d repay me in kind."'
+				'"Did you fuck," you ask by outright voicing your perverted thoughts. You''re so engrossed in his story that you forget about the razor that he''s shaving your foamy slit with.'
+				act 'Did you have sex':
+					*clr & cla
+					pcs_horny += 10
+					'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/brit2.jpg"></center>'
+					'This time, he looked like a tomato, but you saw him shake his head vigorously to get rid of it. After all, he''d already told you as much as he had why not the whole story? "We did," he continued, "She became…," he clears his throat, "quite active… when she was in her third trimester and blew me at least three times a day. I noticed one day that she was touching herself while she took my cock in her mouth. One day I asked about it. She told me that even pregnant women have needs. I asked if I could help. She told me to get the bottle of lube from her room." His eyes were far away as he recalled his first time. "When I returned, I found her massaging her asshole. I wondered out loud why we weren''t having... you know," he shrugs, "normal sex. She said that we were brother and sister, so we shouldn''t do it that way."' 
+					'He paused.'
+					*nl
+					'"So then…,” you ask impatiently while being curious as to what he did to his sister. You get a little wet yourself which is something which doesn''t escape his notice.'
+					'He rubs your clit a little before continuing, "I rubbed a lot of lube onto her sphincter before gently easing my dick into her ass. She yelled out, but I could see that she wasn''t in pain and I continued. She started shaking her ass at me while moaning out loud as she rode my cock. I didn''t last long with her moaning like that. I came deep inside her, but she kept riding me until I was spent. I was exhausted and I loved it. Eventually, we stopped doing the blowjobs altogether and I kept fucking her ass every day. By the time she gave birth we''d already done the Karma Sutra on her ass and she had this beautiful gape." He had drawn such vivid picture for you that you were leaking pussy juice all over his hand while he shaved you.'
+					'He raises his hand to his lips and licks it off before getting up, "Well, I''m finished," he says that leaves you with an ache in your loins.'
+					'"Any other problems you''d like me to look at," he asks and you can see the same mischievous smirk on his face that you''d had earlier.'
+					gs 'willpower', 'cuni', 'resist', 'easy'
+					if will_cost <= pcs_willpwr:
+						act 'No thanks (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'vann', 'start'
+					else
+						act 'No thanks (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
+					act 'Come on':
+						*clr & cla
+						picrand = 74
+						'<center><img <<$set_imgh>> src="images/locations/city/island/university/dorm/sex/bathroom/brit3.jpg"></center>'
+						'"Come on, and that will shave, my chest hair does not grow." you said'
+						'"Well, I''m now your whole body check" With these words, he began to put foam on you, smearing it all over your body. His hands slid over you, you melted at his touch and when he slid to your current pussy already being almost finished.'
+						act 'Continue':gt 'sex', 'kuni'
+					end
+				end
+			end
 		end
 	end
 end