[modified] by nutluck

locations/gopskver.qsrc

@@ -82,12 +82,12 @@ if $ARGS[0] = '':
 
 					act 'Continue':gt 'kotovSex'
 				end
-				
+
 				act 'Say no':
 					*clr & cla
 					'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big9.jpg"></center>'
 					'Sorry, babe. I didn''t mean to tease, but have to get going.'
-					
+
 					act 'Continue':
 						if $prevloc = 'gkafe':
 							gt 'gkafe'
@@ -132,7 +132,7 @@ if $ARGS[0] = '':
 					end
 				else
 					act '"No need, I can find my own way home" (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-				end	
+				end
 				act 'Go with Dan':
 					*clr & cla
 					pcs_horny += 10
@@ -153,7 +153,7 @@ if $ARGS[0] = '':
 						end
 					else
 						act 'Push him away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-					end	
+					end
 				end
 			elseif alko >= 6 and alko < 9 and DansOralSlut = 0:
 				'You''re quite drunk, and before heading out Dan offers to walk you home.'
@@ -185,7 +185,7 @@ if $ARGS[0] = '':
 						end
 					else
 						act 'Push him away and go home (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-					end	
+					end
 
 					act 'Kiss him back':
 						*clr & cla
@@ -221,7 +221,7 @@ if $ARGS[0] = '':
 					end
 				else
 					act 'Say you have to go and leave them (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-				end	
+				end
 
 				act 'Go with the guys':
 					*clr & cla
@@ -248,7 +248,7 @@ if $ARGS[0] = '':
 					gs 'boyStat', 'A11'
 					gs 'cum_call', 'stomach', 'A9', 1
 					gs 'stat'
-					
+
 					act 'Leave':gt 'pav_residential'
 				end
 			end
@@ -312,7 +312,7 @@ if $ARGS[0] = '':
 								end
 							end
 						end
-					elseif fame['pav_slut'] < 150:
+					elseif fame['pav_slut'] < 200:
 						if $prevloc = 'gkafe':
 							'Vasily suggests to the guys to leave the cafe and continue drinking in the park. You are too drunk to resist so you just follow them to the park'
 						elseif $prevloc = 'pav_train_hall':
@@ -488,7 +488,7 @@ if $ARGS[0] = 'BjBeerStart':
 			end
 		else
 			act 'Leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end	
+		end
 	end
 end
 
@@ -504,6 +504,7 @@ if $ARGS[0] = 'BjBeerBeaten':
 	set pcs_mood= pcs_mood-10
 	set pcs_willpwr = pcs_willpwr - 10
 	if pcs_makeup > 1: pcs_makeup = 0
+	gs 'fame', 'pav', 'sex', 4
 	gs 'stat'
 
 	'You refuse to have sex with them in any shape or form, just for a can of beer! The guys are furious now, especially Dan: "What!? We''ll teach you, whore!"'
@@ -530,7 +531,7 @@ if $ARGS[0] = 'BjBeerBeaten':
 		else
 			act 'Offer your ass instead (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
-		
+
 		act 'Let them fuck you': gt 'gopskver','BjBeerVag'
 	elseif BjBeerQW = 4:
 		'You routinely drop to your knees, and suck the guys off one by one. Suddenly Vitek reaches down, and rubs his rough fingers over your holes. He grunts: "Listen, <<$pcs_nickname>>... ever got fucked in the ass before?"'
@@ -552,6 +553,8 @@ end
 if $ARGS[0] = 'BjBeerYes':
 	*clr & cla
 	minut += 10
+	gs 'fame', 'pav', 'sex', 4
+	gs 'stat'
 	Bjrand=rand(1,2)
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeer<<Bjrand>>.jpg" ></center>'
 	'You take a deep sigh... guess that''s the way it''s going to be, now. At least these guys will take care of you if you get in trouble, and they''ll give you beer... that''s not so bad, right?'
@@ -672,7 +675,7 @@ if $ARGS[0] = 'BjBeerDouble':
 	pcs_throat = pcs_throat + 1
 	spafinloc = 11
 	gs 'cum_manage'
-	
+
 	minut += 10
 	if pcs_makeup > 1: pcs_makeup = 0
 	gs 'stat'
@@ -745,7 +748,7 @@ if $ARGS[0] = 'BjBeerPhone':
 	pcs_throat += 1
 	spafinloc = 11
 	gs 'cum_manage'
-	
+
 	minut += 10
 	if pcs_makeup > 1: pcs_makeup = 0
 	gs 'stat'
@@ -786,7 +789,7 @@ if $ARGS[0] = 'BjBeerPalevo':
 	pcs_throat = pcs_throat + 1
 	spafinloc = 11
 	gs 'cum_manage'
-	
+
 	minut += 10
 	if pcs_makeup > 1: pcs_makeup = 0
 	gs 'stat'
@@ -814,6 +817,7 @@ if $ARGS[0] = 'BjBeerVag':
 	gang = gang + 1
 	BjBeerQW += 1
 	BjBeerDay = daystart
+	gs 'fame', 'pav', 'sex', 4
 	gs 'stat'
 
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeervag.jpg" ></center>'
@@ -936,6 +940,7 @@ if $ARGS[0] = 'BjBeerAnal':
 	gang = gang + 1
 	BjBeerQW += 1
 	BjBeerDay = daystart
+	gs 'fame', 'pav', 'sex', 4
 	gs 'stat'
 
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeeranal.jpg" ></center>'

locations/kotovEv.qsrc

@@ -12,6 +12,7 @@ if kotovLoveQW > 0 and fame['pav_slut'] > 200 and kotovsluttalk ! daystart:
 		cls
 		npc_rel['A9'] = 0
 		kotovLoveQW = -1
+		gs 'pain', 5, 'cheeks', 'slap'
 		gs 'stat'
 		'Wait, what? Does Vitek really think he can judge you, when he in fact is even worse? You know his history, and how he usually treats girls...'
 		'You yell at him: "You''re no better, Vitek! How many girls have you fucked already, huh?"'
@@ -42,7 +43,7 @@ if kotovLoveQW > 0 and fame['pav_slut'] > 200 and kotovsluttalk ! daystart:
 		end
 	else
 		act 'It''s all lies, babe! (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end	
+	end
 
 	exit
 end
@@ -89,7 +90,7 @@ elseif $loc = 'pav_park':
 		end
 	else
 		act 'No time right now, sorry! (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-	end	
+	end
 
 	act 'Walk over to him':
 		cls
@@ -121,7 +122,7 @@ elseif $loc = 'pav_park':
 					end
 				else
 					act 'No time right now, sorry! (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-				end	
+				end
 
 				act 'Go to Vitek''s house with him':
 					cls
@@ -145,7 +146,7 @@ elseif $loc = 'pav_park':
 			end
 		else
 			act 'No time right now, sorry! (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end	
+		end
 	end
 end