[added] some more willpower from nutluck and myself

locations/gopskver.qsrc

@@ -28,21 +28,13 @@ if kotovLoveQW > 0:
 		else
 			'Vitek Kotov sees you walking in the park, and tells you to come over. When you approach him, he explains he''s drinking some beer with his friends in the park, and offers you to join them.'
 		end
-		
-		gs 'willpower', 'drink', 'resist'
-		if will_cost <= pcs_willpwr:
-			act 'Decline and leave (<<will_cost>> Willpower)':
-				gs 'willpower', 'drink', 'resist'
-				gs 'willpower', 'pay', 'resist'
-				gs 'stat'
-				if $prevloc = 'gkafe':
-					gt 'gkafe'
-				else
-					gt 'gskver', 'start'
-				end
+
+		act 'Decline and leave':
+			if $prevloc = 'gkafe':
+				gt 'gkafe'
+			else
+				gt 'gskver', 'start'
 			end
-		else
-			act 'Decline and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 
 		act 'Drink beer with Vitek and the guys':
@@ -52,8 +44,8 @@ if kotovLoveQW > 0:
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/beer3.jpg"></center>'
 			'The guys pour out a beer for you, and you enjoy a nice cold beer in their company.'
-			
-			act 'Leave':
+
+			act 'Continue':
 				if $prevloc = 'gkafe':
 					gt 'gkafe'
 				else
@@ -64,10 +56,10 @@ if kotovLoveQW > 0:
 			if hour = 20:
 				*nl
 				if week = 5 or week = 6:
-					'It''s evening, and the boys are getting ready to go to the disco like they do every Friday and Saturday. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
+					'It''s evening, and the boys are getting ready to go to the disco like they do every friday and saturday. You could call it a night and leave them alone, or tag along.'
 					act 'Go to the disco with the boys':minut += 15 & gt 'gdkin'
 				else
-					'It''s evening, and the boys are getting ready to go to Vasily'' Home. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
+					'It''s evening, and the boys are getting ready to go to Vasily'' Home. You could call it a night and leave them alone, or tag along.'
 					act 'Go with the boys':minut += 15 & gt 'shulgahall'
 				end
 			end
@@ -91,10 +83,10 @@ if kotovLoveQW > 0:
 		*nl
 		act 'Leave':gt 'gskver', 'start'
 		if week = 5 or week = 6:
-			'It''s evening, and the boys are getting ready to go to the disco like they do every Friday and Saturday. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
+			'It''s evening, and the boys are getting ready to go to the disco like they do every friday and saturday. You could call it a night and leave them alone, or tag along.'
 			act 'Go to the disco with the boys': minut += 15 & gt 'gdkin'
 		else
-			'It''s evening, and the boys are getting ready to go to Vasily''s home. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
+			'It''s evening, and the boys are getting ready to go to Vasily''s home. You could call it a night and leave them alone, or tag along.'
 			act 'Go to with the boys': minut += 15 & gt 'shulgahall'
 		end
 	end
@@ -104,59 +96,53 @@ else
 			*nl
 			act 'Leave':gt 'gskver', 'start'
 			if week = 5 or week = 6:
-				'It''s evening, and the boys are getting ready to go to the disco like they do every Friday and Saturday. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
+				'It''s evening, and the boys are getting ready to go to the disco like they do every friday and saturday. You could call it a night and leave them alone, or tag along.'
 				act 'Go to the disco with the boys': minut += 15 & gt 'gdkin'
 			else
-				'It''s evening, and the boys are getting ready to go to Vasily''s home. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
+				'It''s evening, and the boys are getting ready to go to Vasily''s home. You could call it a night and leave them alone, or tag along.'
 				act 'Go to with the boys': minut += 15 & gt 'shulgahall'
 			end
-		elseif alko >= 6 and alko < 9 and DansOralSlut = 1:
-			'You''re quite drunk, and before going to the disco Dan offers to walk you home.'
-			
-			gs 'willpower', 'misc', 'resist'
+		elseif alko >= 9 and alko < 9 and DansOralSlut = 1:
+			'You''re quite drunk, and before heading out Dan offers to walk you home.'
+			gs 'willpower', 'misc', 'resist', 'medium'
 			if will_cost <= pcs_willpwr:
-				act '"No need, I can find my own way home" (<<will_cost>> Willpower)':
-					gs 'willpower', 'misc', 'resist'
+				act '"No need, I can find my own way home"(<<will_cost>> Willpower)':
+					*clr & cla
 					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
 					gt 'pavComplex', 'start'
 				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
 				minut += 15
 				gs 'stat'
 				'You''re walking down the street, feeling a bit wobbly from the alcohol while Dan supports your weight. He tells you funny stories and anecdotes along the way, and before you know it you''re at your apartment building. When you open the door and enter the building, Dan suddenly pulls you to the side. He''s quite rough about it, and shoves you into a dark corner of the stairwell. He takes your hand by the chin and whispers in your ear: "Your turn to make me feel good, slut. Otherwise I''m telling everyone."'
-				gs 'gopskver', 'dan_blowjob'
-				
-				gs 'willpower', 'bj', 'resist', 'hard'
+				act 'Do as he says':gt 'gopskver', 'dan_blowjob'
+				gs 'willpower', 'bj', 'resist', 'medium'
 				if will_cost <= pcs_willpwr:
-					act 'Push him away and go home (<<will_cost>> Willpower)':
+					act 'Push him away(<<will_cost>> Willpower)':
 						*clr & cla
-						gs 'fame', 'pav', 'sex', 60
-						gs 'willpower', 'bj', 'resist', 'hard'
 						gs 'willpower', 'pay', 'resist'
+						gs 'fame', 'pav', 'sex', 5
 						gs 'stat'
 						'You push him away from you and say indignantly: "No way, Dan! Leave me alone!"'
 						'Dan''s eyes look murderous, but he doesn''t touch you. After a few seconds he bounces back, and he grins as he says: "Suit yourself, whore... your reputation in town will be ruined", and then walks away before you can get another word in.'
-
 						act 'Go home': gt 'pavComplex', 'start'
 					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
+					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
 		elseif alko >= 6 and alko < 9 and DansOralSlut = 0:
-			'You''re quite drunk, and before going to the disco Dan offers to walk you home.'
-
-			gs 'willpower', 'misc', 'resist'
+			'You''re quite drunk, and before heading out Dan offers to walk you home.'
+			gs 'willpower', 'misc', 'resist', 'medium'
 			if will_cost <= pcs_willpwr:
-				act '"No need, I can find my own way home" (<<will_cost>> Willpower)':
-					gs 'willpower', 'misc', 'resist'
+				act '"No need, I can find my own way home"(<<will_cost>> Willpower)':
+					*clr & cla
 					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
 					gt 'pavComplex', 'start'
@@ -171,54 +157,53 @@ else
 				minut += 15
 				gs 'stat'
 				'You''re walking down the street, feeling a bit wobbly from the alcohol while Dan supports your weight. He tells you funny stories and anecdotes along the way, and before you know it you''re at your apartment building. When you open the door and enter the building, Dan suddenly pulls you to the side. He''s quite rough about it, and shoves you into a dark corner of the stairwell. He takes your hand by the chin and kisses your lips hard.'
-				
-				gs 'willpower', 'kiss', 'resist'
+				gs 'willpower', 'kiss', 'resist', 'medium'
 				if will_cost <= pcs_willpwr:
-					act 'Push him away and go home (<<will_cost>> Willpower)':
-						gs 'willpower', 'kiss', 'resist'
+					act 'Push him away and go home(<<will_cost>> Willpower)':
+						*clr & cla
 						gs 'willpower', 'pay', 'resist'
 						gs 'stat'
 						gt 'pavComplex', 'start'
 					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
 					pcs_horny += 10
 					gs 'stat'
-					'You return his kiss, unsure why he''s kissing you... he never seemed to be that interested in you. Then you feel his hands on your shoulders, and Dan firmly presses down on them trying to get you to drop to your knees. He whispers reassuringly: "Don''t worry, <<$pcs_nickname>>... I won''t tell anyone about this. Do a good job, and this secret will stay between us."'
-
-					gs 'willpower', 'bj', 'resist'
+					'You return his kiss, unsure why he''s kissing you... he never seemed to be that interested in you. Then you feel his hands on your shoulders, and Dan firmly presses down on them trying to get you to drop to your knees. He whispers reassuringly: "Don''t worry, <<$pcs_nickname>>... I didn''t tell anyone about all the things you did. Do a good job, and your secret will stay safe."'
+					act 'Do as he says':gt 'gopskver', 'dan_blowjob'
+					gs 'willpower', 'bj', 'resist', 'medium'
 					if will_cost <= pcs_willpwr:
-						act 'Push him away and go home (<<will_cost>> Willpower)':
-							gs 'willpower', 'bj', 'resist'
+						act 'Push him away(<<will_cost>> Willpower)':
+							*clr & cla
 							gs 'willpower', 'pay', 'resist'
+							gs 'fame', 'pav', 'sex', 5
 							gs 'stat'
-							gt 'pavComplex', 'start'
+							'You push him away from you and say indignantly: "No way, Dan! Leave me alone!"'
+							'Dan''s eyes look murderous, but he doesn''t touch you. After a few seconds he bounces back, and he grins as he says: "Suit yourself, whore... your reputation in town will be ruined", and then walks away before you can get another word in.'
+							act 'Go home': gt 'pavComplex', 'start'
 						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>'
+						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
-
-					gs 'gopskver', 'dan_blowjob'
 				end
 			end
 		elseif alko >= 9:
 			'You got absolutely hammered in the park, and are swaying from side to side when you walk down the pathway. Suddenly Vasily hugs your waist tightly and begins to lead you somewhere, with his friends following him.'
-
-			gs 'willpower', 'gangbang', 'resist', 'hard'
+			gs 'willpower', 'gangbang', 'resist', 'medium'
 			if will_cost <= pcs_willpwr:
-				act 'Push them away and go home (<<will_cost>> Willpower)':
-					gs 'willpower', 'gangbang', 'resist', 'hard'
+				act 'Say you have to go and leave them(<<will_cost>> Willpower)':
+					*clr & cla
 					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
 					gt 'pavComplex', 'start'
 				end
 			else
-				act 'Push them 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
+				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	
 
 			act 'Go with the guys':
 				*clr & cla
@@ -262,20 +247,12 @@ else
 			if alko < 6:
 				iif($prevloc = 'gkafe','The boys ordered some extra beers ','The boys have some extra beers with them,') + 'and invite you to have a seat and join them.'
 
-				gs 'willpower', 'drink', 'resist'
-				if will_cost <= pcs_willpwr:
-					act 'Decline and leave (<<will_cost>> Willpower)':
-						gs 'willpower', 'drink', 'resist'
-						gs 'willpower', 'pay', 'resist'
-						gs 'stat'
-						if $prevloc = 'gkafe' or $prevloc = 'pavtrainhall':
-							gt $prevloc
-						else
-							gt 'gskver', 'start'
-						end
+				act 'Decline the beer and leave':
+					if $prevloc = 'gkafe' or $prevloc = 'pavtrainhall':
+						gt $prevloc
+					else
+						gt 'gskver', 'start'
 					end
-				else
-					act 'Decline and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
 
 				act 'Drink beer with the guys':
@@ -286,7 +263,7 @@ else
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/shulginhome/bigroom/drunk_ev/beer3.jpg"></center>'
 					'The guys cheer and pour out a beer for you. Vasily gives you ' + iif($prevloc = 'gkafe','a glass','the cup') +' while the others propose a toast, already having beers in their hands. You happily join them in their toast, and spend the next 15 minutes chatting with them and having sips of your cold beer.'
 
-					act 'Leave':
+					act 'Continue':
 						if $prevloc = 'gkafe' or $prevloc = 'pavtrainhall':
 							gt $prevloc
 						else
@@ -296,10 +273,10 @@ else
 					if hour = 20:
 						*nl
 						if week = 5 or week = 6:
-							'It''s evening, and the boys are getting ready to go to the disco like they do every Friday and Saturday. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
+							'It''s evening, and the boys are getting ready to go to the disco like they do every friday and saturday. You could call it a night and leave them alone, or tag along.'
 							act 'Go to the disco with the boys': minut += 15 & gt 'gdkin'
 						else
-							'It''s evening, and the boys are getting ready to go to Vasily''s home. They invite you to come along with them. You could call it a night and leave them alone, or tag along.'
+							'It''s evening, and the boys are getting ready to go to Vasily''s home. You could call it a night and leave them alone, or tag along.'
 							act 'Go with the boys': minut += 15 & gt 'shulgahall'
 						end
 					end
@@ -315,7 +292,7 @@ else
 						'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big11.jpg"></center>'
 						'Vasily puts his hand on your shoulder and tells you that his friends aren''t the kind of guys a nice girl should be getting drunk with and sends you on your way.'
 
-						act 'Leave':
+						act 'Continue':
 							if $prevloc = 'gkafe' or $prevloc = 'pavtrainhall':
 								gt $prevloc
 							else
@@ -339,21 +316,14 @@ else
 
 						act 'Thank them for the beer and leave':gt 'gskver', 'start'
 					end
-					
-					gs 'willpower', 'exhib', 'resist'
-					if will_cost <= pcs_willpwr:
-						act '"What? No!" (<<will_cost>> Willpower)':
-							*clr & cla
-							gs 'willpower', 'exhib', 'resist'
-							gs 'willpower', 'pay', 'resist'
-							gs 'stat'
-							'You raise your voice a little and act surprised: "What? No way! Whoever told you that was lying!"'
-							'However, Dan doesn''t fall for your act, and matter-of-factly says: "<<$pcs_nickname>>, you''re a slut. We''ve all seen you, the whole town knows it. Why are you even trying to deny it? You''re such a terrible liar..."'
 
-							act 'Leave':gt 'gskver', 'start'
-						end
-					else
-						act '"What? No!" (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					act '"What? No!"':
+						*clr & cla
+						gs 'stat'
+						'You raise your voice a little and act surprised: "What? No way! Whoever told you that was lying!"'
+						'However, Dan doesn''t fall for your act, and matter-of-factly says: "<<$pcs_nickname>>, you''re a slut. We''ve all seen you, the whole town knows it. Why are you even trying to deny it? You''re such a terrible liar..."'
+
+						act 'Leave':gt 'gskver', 'start'
 					end
 				elseif pav_slut < 125:
 					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'
@@ -369,53 +339,46 @@ else
 							gs 'stat'
 							'You blush again but confirm: "Yes, I let them cum inside my mouth."'
 							'Vasily is excited now, squirming in his seat: "So... how about you put that pretty mouth of yours to work on us?"'
-							
-							gs 'willpower', 'gangbang', 'resist'
-							if will_cost <= pcs_willpwr:
-								act '"No way!" (<<will_cost>> Willpower)':
+
+							act '"No way!"':
+								*clr & cla
+								gs 'stat'
+								'You indignantly reject Vasily''s proposal: "No way, Shulga! I can''t just do that for everyone who asks!"'
+								'Dan suddenly growls at you: "Shut up, whore. I''ve seen you suck cocks of just about anyone you meet, and swallow their loads to the last drop! They make videos when you''re not paying attention... and now suddenly we''re not good enough for you?"'
+								'You''re a bit afraid of his sudden outburst and try to explain yourself: "Dan please, you have to understand! I don''t just su-"'
+								'He interrupts you: "Shut up! We won''t ask again... are you going to be a nice little slut and do as we ask, or are you going to keep pretending to be some stuck up bitch?"'
+
+								act 'Be a nice little slut':
 									*clr & cla
-									gs 'willpower', 'gangbang', 'resist'
-									gs 'willpower', 'pay', 'resist'
 									gs 'stat'
-									'You indignantly reject Vasily''s proposal: "No way, Shulga! I can''t just do that for everyone who asks!"'
-									'Dan suddenly growls at you: "Shut up, whore. I''ve seen you suck cocks of just about anyone you meet, and swallow their loads to the last drop! They make videos when you''re not paying attention... and now suddenly we''re not good enough for you?"'
-									'You''re a bit afraid of his sudden outburst and try to explain yourself: "Dan please, you have to understand! I don''t just su-"'
-									'He interrupts you: "Shut up! We won''t ask again... are you going to be a nice little slut and do as we ask, or are you going to keep pretending to be some stuck up bitch?"'
+									'You don''t want to anger Dan any further, and decide to back down. You softly say: "Relax, Dan... I''m sorry, I didn''t mean to insult you or your friends. I''ll do it."'
+									'Dan smirks at you: "I forgive you, slut... I guess you just didn''t know what to do yet, when someone asks you for your whore mouth. We''ll teach you what you need to know about your place in the world. Get down before me and start sucking!"'
+									gs 'gopskver', 'triple_blow'
+								end
 
-									act 'Be a nice little slut':
+								gs 'willpower', 'bj', 'resist'
+								if will_cost <= pcs_willpwr:
+									act 'Keep refusing(<<will_cost>> Willpower)':
+										gs 'willpower', 'pay', 'resist'
+										minut += 5
+										fingal += 1
+										body_write = 1
+										pcs_mood -= 5
 										*clr & cla
 										gs 'stat'
-										'You don''t want to anger Dan any further, and decide to back down. You softly say: "Relax, Dan... I''m sorry, I didn''t mean to insult you or your friends. I''ll do it."'
-										'Dan smirks at you: "I forgive you, slut... I guess you just didn''t know what to do yet, when someone asks you for your whore mouth. We''ll teach you what you need to know about your place in the world. Get down before me and start sucking!"'
-										gs 'gopskver', 'triple_blow'
-									end
-									
-									gs 'willpower', 'gangbang', 'resist', 'hard'
-									if will_cost <= pcs_willpwr:
-										act 'Keep refusing (<<will_cost>> Willpower)':
-											*clr & cla
-											minut += 5
-											fingal += 1
-											body_write = 1
-											pcs_mood -= 5
-											gs 'willpower', 'gangbang', 'resist', 'hard'
-											gs 'willpower', 'pay', 'resist'
-											gs 'stat'
-
-											'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/sex/gop/body_cocksucker.jpg"></center>'
-											'You keep refusing, and try to get up and leave. Dan slaps your face hard, however, and you fall to the ground. He immediately pins you down, and begins to rip your clothes off. "Too proud, huh? We''ll have to take you down a peg!"'
-											'The boys take out some markers and write several obscene words onto your skin. Soon, the whole town can read what a huge slut you are!'
-											'You don''t want to anger them any further, knowing the boys are much stronger than you, and don''t dare to protest while they keep writing more things on you. Eventually they''re satisfied, and let you get up. They even let you put your clothes back on, so you can cover up at least the majority of the writings. Dan smirks: "Maybe that''ll help you remember what you are, slut. When you''re ready to apologize, you know where to find us."'
-
-											act 'Leave':gt 'gskver', 'start'
-										end
-									else
-										act 'Keep refusing (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+
+										'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/sex/gop/body_cocksucker.jpg"></center>'
+										'You keep refusing, and try to get up and leave. Dan slaps your face hard, however, and you fall to the ground. He immediately pins you down, and begins to rip your clothes off. "Too proud, huh? We''ll have to take you down a peg!"'
+										'The boys take out some markers and write several obscene words onto your skin. Soon, the whole town can read what a huge slut you are!'
+										'You don''t want to anger them any further, knowing the boys are much stronger than you, and don''t dare to protest while they keep writing more things on you. Eventually they''re satisfied, and let you get up. They even let you put your clothes back on, so you can cover up at least the majority of the writings. Dan smirks: "Maybe that''ll help you remember what you are, slut. When you''re ready to apologize, you know where to find us."'
+
+										act 'Leave':gt 'gskver', 'start'
 									end
+								else
+									act 'Keep refusing (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 								end
-							else
-								act '"No way!" (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 							end
+
 							act '"Well, maybe... just don''t tell anyone!"':
 								*clr & cla
 								gs 'stat'
@@ -423,43 +386,30 @@ else
 								gs 'gopskver', 'triple_blow'
 							end
 						end
-						
-						gs 'willpower', 'swallow', 'resist'
-						if will_cost <= pcs_willpwr:
-							act '"No, that''s a lie!" (<<will_cost>> Willpower)':
-								*clr & cla
-								gs 'willpower', 'swallow', 'resist'
-								gs 'willpower', 'pay', 'resist'
-								gs 'stat'
-								'You spit on the ground, and pretend to be insulted: "No way, Vasily! That''s disgusting!"'
-
-								if swallow > 0:
-									'Dan suddenly snaps, and shouts at you: "<<$pcs_nickname>>, don''t bullshit us! The whole town knows you''re a huge cum guzzler, who loves little more than to take a big load into her mouth and swallow it all down! Stop lying!"'
-								elseif swallow = 0 and facial > 0:
-									'Dan suddenly chuckles: "But you love taking loads all over your face, right? I''ve seen several pictures of you, with your face and mouth all covered in cum."'
-								else
-									'Dan chuckles: "Maybe you can''t get a guy off with your mouth yet? Don''t worry <<$pcs_nickname>>, we will help you with your technique..."'
-								end
 
-								'Dan sharply says as he reaches for his pants and exposes his hard cock: "Enough talk! I think it''s time <<$pcs_nickname>> shows us what a good little slut she is. Take it in your mouth!"'
-								gs 'gopskver', 'triple_blow'
-							end
-						else
-							act '"No, that''s a lie!" (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-						end
-					end
-					gs 'willpower', 'bj', 'resist'
-					if will_cost <= pcs_willpwr:
-						act '"No, that''s a lie!" (<<will_cost>> Willpower)':
+						act '"No, that''s a lie!"':
 							*clr & cla
-							gs 'willpower', 'bj', 'resist'
-							gs 'willpower', 'pay', 'resist'
 							gs 'stat'
-							'You pretend to be insulted at the mere notion, but Dan gets angry: "<<$pcs_nickname>>, you''re a slut! I know it, you know it, the whole fucking town knows it! Don''t be a stuck up bitch and start sucking!"'
+							'You spit on the ground, and pretend to be insulted: "No way, Vasily! That''s disgusting!"'
+
+							if swallow > 0:
+								'Dan suddenly snaps, and shouts at you: "<<$pcs_nickname>>, don''t bullshit us! The whole town knows you''re a huge cum guzzler, who loves little more than to take a big load into her mouth and swallow it all down! Stop lying!"'
+							elseif swallow = 0 and facial > 0:
+								'Dan suddenly chuckles: "But you love taking loads all over your face, right? I''ve seen several pictures of you, with your face and mouth all covered in cum."'
+							else
+								'Dan chuckles: "Maybe you can''t get a guy off with your mouth yet? Don''t worry <<$pcs_nickname>>, we will help you with your technique..."'
+							end
+
+							'Dan sharply says as he reaches for his pants and exposes his hard cock: "Enough talk! I think it''s time <<$pcs_nickname>> shows us what a good little slut she is. Take it in your mouth!"'
 							gs 'gopskver', 'triple_blow'
 						end
-					else
-						act '"No, that''s a lie!" (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					end
+
+					act '"No, that''s a lie!"':
+						*clr & cla
+						gs 'stat'
+						'You pretend to be insulted at the mere notion, but Dan gets angry: "<<$pcs_nickname>>, you''re a slut! I know it, you know it, the whole fucking town knows it! Don''t be a stuck up bitch and start sucking!"'
+						gs 'gopskver', 'triple_blow'
 					end
 				end
 			end
@@ -515,24 +465,23 @@ if $ARGS[0] = 'BjBeerStart':
 			act 'Open your legs for a beer': gt 'gopskver','BjBeerVag'
 			act 'Take it in the ass for beer': gt 'gopskver','BjBeerAnal'
 		end
-		
-		gs 'willpower', 'sex', 'resist'
+
+		gs 'willpower', 'bj', 'resist', 'medium'
 		if will_cost <= pcs_willpwr:
-			act 'Refuse and run away (<<will_cost>> Willpower)':
+			act 'Leave(<<will_cost>> Willpower)':
 				*clr & cla
-				gs 'willpower', 'sex', 'resist'
 				gs 'willpower', 'pay', 'resist'
 				gs 'stat'
-				if pcs_stren + pcs_agil + pcs_run < 180:
-					gt 'gopskver', 'BjBeerBeaten'
-				elseif razradKik >= 3 or pcs_stren + pcs_agil + pcs_run >= 180
-					'The Gopniks don''t take your refusal very well, and try to force you anyway when they realize you''re not going to do what they want. However, your fitness and training pays off and you manage to outrun them. Once you''re certain they''re no longer following you, you stop for a moment to catch your breath.'
+				if pcs_stren + pcs_agil + pcs_run >= 180
+					'The Gopniks don''t take your refusal very well, and try to force you anyway when they realize you''re not going to do what they want. However, your athletic training pays off and you manage to outrun them. Once you''re certain they''re no longer following you, you stop for a moment to catch your breath.'
 					act 'Return to the park': gt 'gskver', 'start'
+				else
+					gt 'gopskver', 'BjBeerBeaten'
 				end
 			end
 		else
-			act 'Refuse and run away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
+			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
 
@@ -545,7 +494,8 @@ if $ARGS[0] = 'BjBeerBeaten':
 	spanked = 1
 	spankedtime = totminut
 	gs 'underwear', 'remove'
-	pcs_mood -= 10
+	set pcs_mood= pcs_mood-10
+	set pcs_willpwr = pcs_willpwr - 10
 	if pcs_makeup > 1: pcs_makeup = 0
 	gs 'stat'
 
@@ -562,21 +512,12 @@ if $ARGS[0] = 'BjBeerBeaten':
 		*pl
 		'Dan is not unhappy with your efforts, but feels bored after you move away from his cock again. He offers: "She''s got more than one hole, guys... why are we all sharing just the one?"'
 		'The thought barely registers in your mind at first, but finally it does: they''re going to fuck you too!?'
-		if pcs_vag = 0:
-			gs 'willpower', 'sex', 'resist', 'hard'
-			if will_cost <= pcs_willpwr:
-				act 'Offer your ass instead (<<will_cost>> Willpower)':
-					gs 'willpower', 'sex', 'resist', 'hard'
-					gs 'willpower', 'pay', 'resist'
-					gs 'stat'
-					'You plead to the guys: "Please guys, I''m still a virgin! My <<$npc_nickname[''A29'']>> would kill me if I lost my virginity, she has me checked every month! Maybe... maybe there''s something else I could do to please you, if you leave my pussy alone?"'
-					act 'Take it in the ass':gt 'gopskver','BjBeerAnal'
-				end
-			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 'Offer your ass instead':
+			'You plead to the guys: "Please guys, I''m still a virgin! My Mum would kill me if I lost my virginity, she has me checked every month! Maybe... maybe there''s something else I could do to please you, if you leave my pussy alone?"'
+			act 'Take it in the ass':gt 'gopskver','BjBeerAnal'
 		end
 		act 'Let them fuck you': gt 'gopskver','BjBeerVag'
+		end
 	elseif BjBeerQW = 4:
 		*pl
 		'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?"'
@@ -590,17 +531,7 @@ if $ARGS[0] = 'BjBeerBeaten':
 		end
 		act 'Submit and let them fuck your ass': gt 'gopskver','BjBeerAnal'
 	else
-		gs 'willpower', 'bj', 'self', 'hard'
-		if will_cost <= pcs_willpwr:
-			act 'Do your best when you suck them off (<<will_cost>> Willpower)':
-				gs 'willpower', 'bj', 'self', 'hard'
-				gs 'willpower', 'pay', 'self'
-				gs 'stat'
-				gt 'gopskver', 'BjBeerAct'
-			end
-		else
-			act 'Do your best when you suck them off (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
+		act 'Put some effort into sucking them off': gt 'gopskver', 'BjBeerAct'
 		act 'Passively suck them off': gt 'gopskver', 'BjBeerPas'
 	end
 end
@@ -619,21 +550,12 @@ if $ARGS[0] = 'BjBeerYes':
 		'You obediently drop to your knees and lick your lips, looking up at the guys with your <<$glaza3>>.'
 		'Pleased with your eagerness, Vasily says: "I bet we could get more out of her than just a blowjob. Let''s go find a quiet place and put her other holes to work too!"'
 		'You meekly object, but it gets drowned out by the enthusiastic shouts of the others. They pull you up and guide you to a place where no one ever comes.'
-		if pcs_vag = 0:
-			gs 'willpower', 'sex', 'resist', 'hard'
-			if will_cost <= pcs_willpwr:
-				act 'Offer your ass instead (<<will_cost>> Willpower)':
-					gs 'willpower', 'sex', 'resist', 'hard'
-					gs 'willpower', 'pay', 'resist'
-					gs 'stat'
-					'You plead to the guys: "Please guys, I''m still a virgin! My <<$npc_nickname[''A29'']>> would kill me if I lost my virginity, she has me checked every month! Maybe... maybe there''s something else I could do to please you, if you leave my pussy alone?"'
-					act 'Take it in the ass':gt 'gopskver','BjBeerAnal'
-				end
-			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 'Offer your ass instead':
+			'You plead to the guys: "Please guys, I''m still a virgin! My <<$npc_nickname[''A29'']>> would kill me if I lost my virginity, she has me checked every month! Maybe... maybe there''s something else I could do to please you, if you leave my pussy alone?"'
+			act 'Take it in the ass':gt 'gopskver','BjBeerAnal'
 		end
 		act 'Let them fuck you': gt 'gopskver','BjBeerVag'
+		end
 	elseif BjBeerQW = 4:
 		*pl
 		'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?"'
@@ -647,17 +569,7 @@ if $ARGS[0] = 'BjBeerYes':
 		end
 		act 'Submit and let them fuck your ass': gt 'gopskver','BjBeerAnal'
 	else
-		gs 'willpower', 'bj', 'self', 'hard'
-		if will_cost <= pcs_willpwr:
-			act 'Do your best when you suck them off (<<will_cost>> Willpower)':
-				gs 'willpower', 'bj', 'self', 'hard'
-				gs 'willpower', 'pay', 'self'
-				gs 'stat'
-				gt 'gopskver', 'BjBeerAct'
-			end
-		else
-			act 'Do your best when you suck them off (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
-		end
+		act 'Do your best when you suck them off': gt 'gopskver', 'BjBeerAct'
 		act 'Just put in a token effort': gt 'gopskver', 'BjBeerPas'
 	end
 end
@@ -669,12 +581,11 @@ if $ARGS[0] = 'BjBeerAct':
 	pcs_throat += 1
 	swallow += 1
 	stat['bj'] += 1
-	eggs += 1
+	eggs +=1
 	spafinloc = 12
 	gs 'cum_manage'
 	BjBeerActiv = 1
 	gs 'stat'
-
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeer3.jpg" ></center>'
 	if pcs_throat < 16:
 		'You actively try to please the boys, and one cock inside your throat as deep as it will go while you massage the others with your hands. You''re not very well practised with your throat though, and soon you find yourself choking, drooping, and struggling to suppress your gag reflex.'
@@ -694,7 +605,7 @@ if $ARGS[0] = 'BjBeerAct':
 		elseif BjBeerQW = 2:
 			act 'Serve the others': gt 'gopskver','BjBeerPalevo'
 		!elseif BjBeerQW = 3:
-			!act 'Serve the others': gt 'gopskver','BjBeerStraight'
+		!act 'Serve the others': gt 'gopskver','BjBeerStraight'
 		else
 			act 'Serve the others': gt 'gopskver','BjBeerDouble'
 		end
@@ -729,7 +640,7 @@ if $ARGS[0] = 'BjBeerPas':
 		elseif BjBeerQW = 2:
 			act 'Serve the others': gt 'gopskver','BjBeerPalevo'
 		!elseif BjBeerQW = 3:
-			!act 'Serve the others': gt 'gopskver','BjBeerStraight'
+		!act 'Serve the others': gt 'gopskver','BjBeerStraight'
 		else
 			act 'Serve the others': gt 'gopskver', 'BjBeerDouble'
 		end
@@ -748,10 +659,8 @@ if $ARGS[0] = 'BjBeerDouble':
 	minut = minut + 10
 	if pcs_makeup > 1: pcs_makeup = 0
 	gs 'stat'
-
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeer<<Doublerand>>.jpg" ></center>'
 	'You spread your <<$liptalk>> and wrap them around Vitek''s cock. At that moment, Dan grunts: "Open wider, slut" and begins to unceremoniously cram his dick into your mouth as well, stretching it to the limit. You try to protest, but the guys just laugh at the comical sounds you make with two cocks in your mouth. Once Dan gets settled in, the guys slowly begin to move, fucking your mouth at the same time.'
-
 	if pcs_throat > 15:
 		'Even though it''s difficult, you manage to take both of their erections deep inside your mouth. You sometimes tease them with your tongue.'
 	else
@@ -797,8 +706,9 @@ if $ARGS[0] = 'BjBeerFace':
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeer<<Beerrand>>.jpg"></center>'
 			'Dan grins at you and offers you his unfinished bottle, and smiles when you drink it eagerly. Your mood improves slightly.'
 			act 'Return to the park': BjBeerActiv = 0 & gt 'gskver', 'start'
+
 		elseif BjBeerActiv = 0:
-			pcs_mood = 0
+			pcs_mood = -10
 			BjBeerQW += 1
 			gs 'stat'
 
@@ -815,7 +725,7 @@ if $ARGS[0] = 'BjBeerPhone':
 	*clr & cla
 	pcs_hairbsh = 0
 	stat['bj'] += 2
-	pcs_throat = pcs_throat + 1
+	pcs_throat += 1
 	spafinloc = 11
 	gs 'cum_manage'
 	facial += 1
@@ -884,9 +794,8 @@ end
 if $ARGS[0] = 'BjBeerVag':
 	*clr & cla
 	minut += 10
-	rape += 1
-	gang += 1
-	pcs_horny += 10
+	rape = rape + 1
+	gang = gang + 1
 	BjBeerQW += 1
 	BjBeerDay = daystart
 	gs 'stat'
@@ -894,7 +803,6 @@ if $ARGS[0] = 'BjBeerVag':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeervag.jpg" ></center>'
 	'The guys prop you down onto the bench with your legs wide, and unceremoniously begin to touch you everywhere. They pull your legs to the side, pinch your nipples, pull your clothes to the sides and put several fingers in your pussy.'
 	'You are trying to hide your feelings, but wail when they pinch your nipples or slap your bottom too roughly. Tears slowly form in your eyes when you realize you''re really nothing more but a set of holes to fuck for them.'
-	'However, at the same time, the humiliation and helplessness from your current position make you feel a tinge excited.'
 	if analplugin = 1: 'Vasily suddenly exclaims: "A butt plug!? Were you preparing your tight little ass for us the whole time, <<$pcs_nickname>>? How sweet!" He roughly pulls the plug out of your ass, and just as abruptly shoves it back in. The other boys laugh, as they notice the grimace on your face.'
 	if pcs_pubes > 10:
 		'One of the boys fondles your nether region, but mumbles unhappily: "Man, it''s like the freaking rainforest down there. You should really shave next time, this is disgusting."'
@@ -1008,9 +916,8 @@ end
 
 if $ARGS[0] = 'BjBeerAnal':
 	*clr & cla
-	rape += 1
-	gang += 1
-	pcs_horny += 10
+	rape = rape + 1
+	gang = gang + 1
 	BjBeerQW += 1
 	BjBeerDay = daystart
 	gs 'stat'
@@ -1018,7 +925,6 @@ if $ARGS[0] = 'BjBeerAnal':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeeranal.jpg" ></center>'
 	'The guys guide you to the by now familiar bench at the back of the park again. The boys unceremoniously push you over towards the bench, and make you kneel on top of it.'
 	'You dutifully await on the bench with your head down, slowly pulling your clothes to the side to expose your ass for the boys. You feel a shiver roll down your spine, while you feel them silently judging you.'
-	'However, at the same time, the humiliation and helplessness from your current position make you feel a tinge excited.'
 	if pcs_ass <= 5: 'You hear a frantic discussion behind you, the guys are trying to figure out who gets to fuck your tight unexperienced ass first. Vasily ends up being the lucky one.'
 	if pcs_ass > 5: 'You hear a frantic discussion behind you, the guys are trying to figure out who gets to fuck your ass first. Vasily ends up being the lucky one.'
 	if tatupb > 0: 'When he sees the tattoo on your lower back, Vasily pats your ass approvingly: "Nice tramp stamp, whore."'
@@ -1041,30 +947,8 @@ if $ARGS[0] = 'BjBeerAnal':
 		gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
 
 		'You groan loudly and try to slow him down with your hands while you try to relax and get used to the size. He misunderstands, though. Your moaning and struggling only turn Vasily on even more, and he redoubles his efforts and fucks your ass even harder. His balls are slapping against you with every thrust, and within minutes you feel Vasily''s thrusts get more and more erratic. Then, he finishes deep inside you... you can actually feel his dick twitch inside your asshole, as the cum spurts out. The warm liquid slowly spreads inside you.'
-		'He catches his breath for a second, and then slowly pulls out.'
-
-		if klismaday ! daystart:
-			'For some reason he''s upset, and when you look around you see why. You didn''t give yourself an enema, and his dick is all dirty! He thrusts his groin towards your face expectantly: "Clean that up, whore! That''s disgusting!"'
-			'You wrinkle your nose at his dirty and smelly erection... ugh!'
-
-			act 'Clean him up':
-				Suckrand=rand(1,2)
-				*clr & cla
-				minut +=5
-				pcs_mood -= 3
-				gs 'stat'
-
-				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/gop/bjbeerdirtyanal<<Suckrand>>.jpg" ></center>'
-				'You hesitate for a second, but you realize that he''s not giving you a choice. You obediently fall to your knees before him and take his cock in your mouth, looking to correct your mistake.'
-				'The taste is horrible, and you have great difficulty suppressing your gag reflex as you carefully lick and suck his dick, humbly looking into his eyes in the hope of avoiding punishment.'
-				'You have an awful taste in your mouth, and you quietly berate yourself for not giving yourself an enema today. You don''t have much time to mull it over though, as Dan says: "That''s good enough. Now get back into position and spread your ass, slut."'
-				act 'Spread your ass cheeks': gt 'gopskver','BjBeerAnal2'
-			end
-
-		elseif klismaday = daystart:
-			'Fortunately, you gave yourself an enema earlier today and Vasily''s cock comes out clean. You don''t have much time to think about the assfucking he gave you though, as Dan says: "Not bad. Now get back into position and spread your ass, slut. You still have two more to go."'
-			act 'Spread your ass cheeks': gt 'gopskver','BjBeerAnal2'
-		end
+		'He catches his breath for a second, and then slowly pulls out. You don''t have much time to think about the assfucking he gave you though, as Dan says: "Not bad. Now get back into position and spread your ass, slut. You still have two more to go."'
+		act 'Spread your ass cheeks': gt 'gopskver','BjBeerAnal2'
 	end
 end
 
@@ -1092,10 +976,9 @@ if $ARGS[0] = 'BjBeerAnal2':
 	'You don''t want him to pull your hair again, and quickly blurt out: "I love the way you fuck my ass! All of you! You take such good care of me... I''m an anal slut... please keep fucking me!"'
 	'The boys laugh: "Look at her... she seems like such a sweet and innocent girl, but she''s nothing more than an ordinary butt slut!"'
 	'Your ''confession'' seems to have done it for Dan, and his movements are almost immediately speeding up. A few seconds later, he drives his cock deep inside your ass one final time and pumps his seed into you.'
-	if klismaday ! daystart: 'Luckily, his cock is not quite as dirty as Vasily''s. You obediently guide his cock to your mouth and quickly lick it clean, without him even having to ask. Dan compliments your diligence: "Very good, slut. I''m impressed."'
 	'You''re still on your hands and knees on the bench, sperm slowly dribbling from your now well-used asshole. You still have the biggest cock of the lot to please though, and Vitek walks around you in a circle. His impressive cock is gently bobbing with every step, and he grins as he notices your look is fixated on it.'
 
-	act 'Substitute the ass':
+	act 'Offer your ass':
 		*clr & cla
 		gs 'boyStat', 'A9'
 		dick = 18
@@ -1132,8 +1015,7 @@ if $ARGS[0] = 'BjBeerAnal2':
 				'You obediently turn around and spread your ass cheeks, showing them your sore and wrecked hole.'
 			end
 			'Your poor butthole is finally beginning to close again, after getting several servings of seed poured into it.'
-			if agape = 3: 'Your anus tore a little from the treatment today, and there is some blood mixed with the sperm leaking from it.'
-			if agape < 3: 'After the cocks you took today, your ass feels a bit sore. It won''t fully close yet, and sperm leaks slowly from it.'
+			'After the cocks you took today, your ass feels a bit sore. It won''t fully close yet, and sperm leaks slowly from it.'
 			'The Gopniks slap each other on the back while they admire their handiwork: "We have a real buttslut on our hands here, boys!"'
 
 			act '"How about that beer?"':
@@ -1254,25 +1136,19 @@ if $ARGS[0] = 'triple_blow':
 
 						act 'Leave':gt 'gskver', 'start'
 					end
-					gs 'willpower', 'pee', 'resist'
-					if will_cost <= pcs_willpwr:
-						act 'Object (<<will_cost>> Willpower)':
-							*clr & cla
-							gs 'willpower', 'pee', 'resist'
-							gs 'willpower', 'pay', 'resist'
-							gs 'arousal', 'pee', -5, 'sub', 'humilation', 'group'
-							gs 'arousal', 'end'
-							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/sex/gop/goppee.jpg"></center>'
-							'Still rubbing your eyes, you shake your head and say: "No way, Dan! I''m no slut!"'
-							'Dan angrily replies: "Tough words, coming from some promiscuous whore still trying to rub the sperm out of her eyes. Looks like she needs another reminder, boys."'
-							'You don''t like the sound of that. When you carefully try to open your eyes again you notice the guys have surrounded you, and they all have their cocks out. Your vision is still blurry though, and you shriek in disgust when you feel a stream of urine hit your face. Then another, and a third. You realize you can''t fight off the three of them, and just let it happen.'
-							'Noticing your change in demeanour, Dan smirks at you when the streams have dried up: "That''s right, whore, just let it happen. Let that be a reminder for you.. now get the fuck out of here and clean yourself up, you look disgusting."'
 
-							act 'Leave':gt 'gskver', 'start'
-						end
-					else
-						act 'Object (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+					act 'Object':
+						*clr & cla
+						gs 'arousal', 'pee', -5, 'sub', 'humilation', 'group'
+						gs 'arousal', 'end'
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/sex/gop/goppee.jpg"></center>'
+						'Still rubbing your eyes, you shake your head and say: "No way, Dan! I''m no slut!"'
+						'Dan angrily replies: "Tough words, coming from some promiscuous whore still trying to rub the sperm out of her eyes. Looks like she needs another reminder, boys."'
+						'You don''t like the sound of that. When you carefully try to open your eyes again you notice the guys have surrounded you, and they all have their cocks out. Your vision is still blurry though, and you shriek in disgust when you feel a stream of urine hit your face. Then another, and a third. You realize you can''t fight off the three of them, and just let it happen.'
+						'Noticing your change in demeanour, Dan smirks at you when the streams have dried up: "That''s right, whore, just let it happen. Let that be a reminder for you.. now get the fuck out of here and clean yourself up, you look disgusting."'
+
+						act 'Leave':gt 'gskver', 'start'
 					end
 				end
 			end