Browse Source

[added] more willpower seeding
[fixes] arousal fixes

Blatte 5 years ago
parent
commit
77aaa915e0

+ 33 - 36
locations/Peterroom.qsrc

@@ -78,14 +78,14 @@ if $ARGS[0] = 'start':
 				'"And what have we here?" Peter grips the tip of the butt plug sticking out of your ass, and eases it out.'
 			end
 
-			act 'smile':
+			act 'Smile':
 				cla
 				*clr
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/city/peter/3.jpg"></center>'
 				'Peter pulled you by the collar, pushed you on your knees in front of him and ordered: "Come on bitch, open your mouth."'
 
-				act 'submit':
+				act 'Submit':
 					cla
 					*clr
 					'<center><img <<$set_imgh>> src="images/characters/city/peter/sex/4.jpg"></center>'
@@ -94,7 +94,7 @@ if $ARGS[0] = 'start':
 					gs 'arousal', 'bj', 5, 'sub'
 					gs 'stat'
 					
-					act 'continue Composition' :
+					act 'Continue Composition' :
 						cla
 						*clr
 						'<center><img <<$set_imgh>> src="images/characters/city/peter/sex/5.jpg"></center>'
@@ -107,16 +107,23 @@ if $ARGS[0] = 'start':
 						act 'crawl' :gt 'peterroom', 'klap'
 					end
 				end
+				
+				gs 'willpower', 'sex', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Does not comply (<<will_cost>> Willpower)':
+						cla & *clr
+						gs 'pain', 8, 'asscheeks', 'spank'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/characters/city/peter/4_1.jpg"></center>'
+						'"Have to punish you" with these words Peter crossed over the table and shoved a plug in your ass. - Pop up earlier than end flogging, will receive the same amount:- Peter became the side of you, spread the whip and started whipping. counting aloud strikes interspersed with your shouts and sobs ...'
+						'"Ask me to fuck you, nine docile litter?"'
 
-				act 'does not comply' :
-					cla
-					*clr
-					'<center><img <<$set_imgh>> src="images/characters/city/peter/4_1.jpg"></center>'
-					'"Have to punish you" with these words Peter crossed over the table and shoved a plug in your ass. - Pop up earlier than end flogging, will receive the same amount:- Peter became the side of you, spread the whip and started whipping. counting aloud strikes interspersed with your shouts and sobs ...'
-					'"Ask me to fuck you, nine docile litter?"'
-
-					act 'Yes! I''ll be your whore!' :gt 'peterroom', 'klap'
-				end
+						act 'Yes! I''ll be your whore!' :gt 'peterroom', 'klap'
+					end
+				else
+					act 'Does not comply (<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
 
@@ -136,7 +143,7 @@ if $ARGS[0] = 'klap':
 	gs 'arousal', 'foreplay', 5, 'sub', 'bound'
 	gs 'stat'
 					
-	act 'moo':
+	act 'Moo':
 		cla
 		*clr
 		'<center><img <<$set_imgh>> src="images/characters/city/peter/sex/7.jpg"></center>'
@@ -152,10 +159,8 @@ if $ARGS[0] = 'klap':
 		gs 'arousal', 'anal', 10, 'sub'
 		gs 'stat'
 					
-		act 'moo' :
-			cla
-			*clr
-			pcs_horny += SUB - pcs_dom + (pcs_ass - 25) * 3
+		act 'Moo':
+			cla & *clr
 			'<center><img <<$set_imgh>> src="images/characters/city/peter/sex/8.jpg"></center>'
 			'He continues to penetrate you faster, then slows the rhythm, makes several deep movements and finishes by filling your insides with hot stream of sperm ....'
 
@@ -166,13 +171,13 @@ if $ARGS[0] = 'klap':
 
 			if pcs_horny >= 100:
 				analorgasm += 1
-				$orgasm_or = 'custom'
+				$orgasm_or = 'yes'
 				$orgasm_txt = 'heat surges in your ass and orgasm washes over you.'
 			end
 
 			'Your ass makes squelching noise when freed from his penis. Peter sat on the bed, breathing heavily, and you remained lying bound, feeling sperm slowly leaking from your fucked ass.'
 			
-			act 'relax' :gt 'peterroom', 'end'
+			act 'Relax' :gt 'peterroom', 'end'
 		end
 	end
 end
@@ -180,7 +185,6 @@ end
 if $ARGS[0] = 'end':
 	cla
 	*clr
-	SUB += 1
 	minut += 30
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/peter/vanroom.jpg"></center>'
@@ -209,14 +213,11 @@ end
 if $ARGS[0] = 'd1':
 	cla
 	*clr
-	pcs_horny += SUB - pcs_dom + (pcs_ass - 25) * 3
-	stat['anal'] += 1
-
 	if pcs_ass < 25:pcs_ass += 1
 	'<center><img <<$set_imgh>> src="images/characters/city/peter/d1-1.jpg"></center>'
 	'Peter connects your hands behind your back. His hands take you by the hips and lifted your ass, placing you cancer. You dutifully lean and Peter catches the rope to the hook.'
 
-	act 'sucking her fingers':
+	act 'Sucking her fingers':
 		cla
 		*clr
 		'<center><img <<$set_imgh>> src="images/characters/city/peter/sex/d1-2.jpg"></center>'
@@ -225,7 +226,7 @@ if $ARGS[0] = 'd1':
 		gs 'arousal', 'anal', 10, 'sub'
 		gs 'stat'
 		
-		act 'moan':
+		act 'Moan':
 			cla
 			*clr
 			'<center><img <<$set_imgh>> src="images/characters/city/peter/sex/d1-3.jpg"></center>'
@@ -234,7 +235,7 @@ if $ARGS[0] = 'd1':
 			gs 'arousal', 'anal', 10, 'sub'
 			gs 'stat'
 		
-			act 'moan':
+			act 'Moan':
 				cla
 				*clr
 				'<center><img <<$set_imgh>> src="images/characters/city/peter/sex/d1-4.jpg"></center>'
@@ -242,13 +243,12 @@ if $ARGS[0] = 'd1':
 
 				if pcs_horny >= 100:
 					analorgasm += 1
-
-					'You are very excited that grew in the ass sweet languor, and then suddenly become a hot orgasm washing over you. Simultaneously with you ends Peter pounding dick deeper and filling your insides hot stream of sperm ....'
 					$orgasm_or = 'yes'
+					'You are very excited that grew in the ass sweet languor, and then suddenly become a hot orgasm washing over you. Simultaneously with you ends Peter pounding dick deeper and filling your insides hot stream of sperm ....'
 					
 				elseif pcs_horny < 100:
-					' and then slows the rhythm, makes several deep movements and finishes filling your insides hot stream of sperm ....'
 					$orgasm_or = 'no'
+					' and then slows the rhythm, makes several deep movements and finishes filling your insides hot stream of sperm ....'
 					
 				end
 
@@ -263,14 +263,13 @@ end
 if $ARGS[0] = 'd2':
 	cla
 	*clr
-	pcs_horny += SUB - pcs_dom + (pcs_throat - 25) * 3
 	'<center><img <<$set_imgh>> src="images/characters/city/peter/sex/d2-1.jpg"></center>'
 	'Peter put you on your knees, then lifted your head and holding her hands to force your mouth planted its piston. His head slipped down his throat, but he did not rest on this, continuing to press. And its 25 centimeter count began to enter into you further.'
 
 	gs 'arousal', 'bj', 5, 'sub'
 	gs 'stat'
 		
-	act 'suck':
+	act 'Suck':
 		cla
 		*clr
 		'<center><img <<$set_imgh>> src="images/characters/city/peter/sex/d2-2.jpg"></center>'
@@ -279,7 +278,7 @@ if $ARGS[0] = 'd2':
 		gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
 		gs 'stat'
 	
-		act 'moan':
+		act 'Moan':
 			cla
 			*clr
 			'<center><img <<$set_imgh>> src="images/characters/city/peter/sex/d2-3.jpg"></center>'
@@ -288,7 +287,7 @@ if $ARGS[0] = 'd2':
 			gs 'arousal', 'bj', 5, 'sub', 'deepthroat'
 			gs 'stat'
 		
-			act 'moo':
+			act 'Moo':
 				cla
 				*clr
 				'<center><img <<$set_imgh>> src="images/characters/city/peter/sex/d2-4.jpg"></center>'
@@ -298,10 +297,8 @@ if $ARGS[0] = 'd2':
 				gs 'stat'
 		
 				if pcs_horny >= 100:
-					pcs_willpwr += 15
-					orgasm += 1
-					'Suddenly you start you finish yourself. Between the legs blazing fire and waves of pleasure covered body, you moaned and shuddered with orgasm, but Peter gripped you do not allow members to slip out of his mouth ...'
 					$orgasm_or = 'yes'
+					'Suddenly you start you finish yourself. Between the legs blazing fire and waves of pleasure covered body, you moaned and shuddered with orgasm, but Peter gripped you do not allow members to slip out of his mouth ...'
 				end
 
 				act 'Swallow' :gt 'peterroom', 'end'

+ 12 - 13
locations/husbSex.qsrc

@@ -100,12 +100,11 @@ end
 if $ARGS[0] = 'dolg':
 	cla
 	*clr
-	guy += 2
 
 	'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/d1.jpg"></center>'
 	'The bandits take out their cocks and attempt to put them both in your mouth. You try to open your mouth as wide as possible, but you fail and eventually begin to suck them one by one. Soon they get tired and hurl you on the bed, arguing who will be the first to fuck you.'
 
-	gs 'arousal', 'bj', 10, 'sub', 'group'
+	gs 'arousal', 'bj', 10, 'group', 'humiliation', 'rape'
 	gs 'stat'
 
 	act 'Further':
@@ -114,9 +113,10 @@ if $ARGS[0] = 'dolg':
 		'<center><img <<$set_imgh>> src="images/characters/city/husband/sex/d2.jpg"></center>'
 		'They fuck you as they please, using each of your holes several times. Periodically, you glance at your husband.'
 
-		gs 'arousal', 'vaginal', 20, 'group'
-		gs 'arousal', 'anal', 20, 'group'
+		gs 'arousal', 'vaginal', 20, 'group', 'humiliation', 'rape'
+		gs 'arousal', 'anal', 20, 'group', 'humiliation', 'rape'
 		minut -= 20
+		gs 'arousal', 'end'
 		gs 'stat'
 
 		act 'Finish':gt'husbSex','dolgend'
@@ -201,7 +201,7 @@ if $ARGS[0] = 'variant':
 		act 'Ask him to lick you':gt'husbsex','kuni'
 	end
 
-	if pcs_dom > 0 and harakHusb = 0 and izvratH = 1 and strapon > 0:
+	if harakHusb = 0 and izvratH = 1 and strapon > 0:
 		act 'Use a strapon':gt'husbsex','strapon'
 	end
 end
@@ -213,7 +213,7 @@ if $ARGS[0] = 'minet':
 	'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj24.jpg"></center>'
 	'Your husband''s <<husDick>> centimeter member enters you mouth.'
 
-	gs 'arousal', 'bj', 10, 'sub'
+	gs 'arousal', 'bj', 10
 	gs 'stat'
 
 	if stat['bj'] = 1:'You think "This is exciting. I am sitting in front of a man, with his dick in my mouth."'
@@ -279,7 +279,7 @@ if $ARGS[0] = 'hand':
 	'You take the <<husDick>> inch cock and begin to caress it with your hands, moving the skin of the purple head.'
 	'Soon your skillful movements bring your husband to orgasm and he finishes onto the palms of you hands, covering them with warm and sticky sperm.'
 
-	gs 'arousal', 'hj', 20, 'dom'
+	gs 'arousal', 'hj', 20
 	gs 'arousal', 'end'
 	gs 'stat'
 
@@ -305,7 +305,7 @@ if $ARGS[0] = 'kuni':
 		pcs_mood += 15
 		pcs_willpwr = pcs_willpwr + 15
 
-		$orgasm_or = 'custom'
+		$orgasm_or = 'yes'
 		$orgasm_txt = 'He is very skilled and soon your whole body spasms from a powerful orgasm.'
 	else
 		'Although your husband is very skilled, you soon feel bored.'
@@ -378,7 +378,7 @@ if $ARGS[0] = 'anal':
 		elseif pcs_horny >= 100:
 			analorgasm = analorgasm+1
 
-			$orgasm_or = 'custom'
+			$orgasm_or = 'yes'
 			$orgasm_txt = 'As you press your ass against his dick, your anus feels like it is blazing with fire and waves of pleasure sweep your body. '
 		end
 
@@ -476,8 +476,9 @@ if $ARGS[0] = 'miss':
 	'<<$husName>> spreads your legs and uses his fingers to caress your pussy.'
 	'After a few minutes you are practically begging him to take you and he is more than willing, it is slow and gentle making you feel full and satisfied.'
 
-	gs 'arousal', 'vaginal_finger', 5
+	gs 'arousal', 'vaginal_finger', 15
 	gs 'arousal', 'vaginal', 15
+	minut -= 15
 	gs 'stat'
 
 	gs'orgazm','start'
@@ -539,9 +540,7 @@ if $ARGS[0] = 'husb_mastr_vtor':
 
 			if izvratH = 0:
 				husband -= 1
-				pcs_horny = 0
-				orgasm += 1
-
+				$orgasm_or = 'yes'
 				'"I''ll wait outside the door until you''re done" he says, as he goes away. You continue to satisfy yourself rapidly, and soon finish.'
 
 				gs 'arousal', 'end'

+ 39 - 5
locations/masharoom.qsrc

@@ -61,7 +61,6 @@ if $ARGS[0] = 'masha':
 			cla
 			*clr
 			menu_off = 1
-			pcs_dom += 1
 			minut += 60
 			'<center><img <<$set_imgh>> src="images/characters/city/masha/sex/r30.jpg"></center>'
 			'You put a collar and leash on Masha and go out the back door onto the street. Masha doesn''t seem to even be ashamed that someone could you leading her around by a leash, while she follows behind you on all fours. She plays the part of a dog being taken for a walk, she rubs her head against you and even licks your shoes.'
@@ -69,7 +68,6 @@ if $ARGS[0] = 'masha':
 			act 'Make her sweep the street':
 				cla
 				*clr
-				pcs_dom += 1
 				'<center><img <<$set_imgh>> src="images/characters/city/masha/sex/r31.jpg"></center>'
 				'You give her a broom and tell her to sweep the street. Masha quickly jumps and starts diligently sweeping the street.'
 
@@ -80,6 +78,7 @@ if $ARGS[0] = 'masha':
 					'"Well done, good girl, here is your reward." With these words, you strapped on a thigh dildo. Masha quickly came to you and turned around, then carefully impaled her pussy on the dildo. You stood there with your leg cocked out slightly, while Masha humped the dildo strapped to your thigh. A few minutes later Masha started squirming and moaning as she cums, she quickly jumped off the dildo and knelt down, catching her breath she carefully licked all her juices off the dildo cleaning it, then she started to lick your shoes. "Lets go home" you said gently pulling on the leash.'
 
 					gs 'arousal', 'vaginal_strap_give', 10, 'lesbian', 'dom'
+					gs 'arousal', 'end'
 					gs 'stat'
 
 					act 'Finish':gt 'masharoom', 'start'
@@ -123,6 +122,9 @@ if $ARGS[0] = 'masha':
 				*clr
 				'<center><img <<$set_imgh>> src="images/characters/city/masha/sex/r36.jpg"></center>'
 				'"And now I''m going to cum in your mouth." With these words, you lite the wick of the candle. Masha without waiting for your orders kneeled down in front of you, her mouth directly under the end of the candle, she opened her mouth wide and stuck out her tongue. Th wax began to melt and drip it into her mouth. Masha catches every drop, while her whole body shook with pain, but she continued. Soon you noticed that her hands were clenched against her thighs, she was shaking with pain and as another drop fell into her mouth she started to cry, tears streaming down her face. You move the candle away from her mouth and put the candle out. "Ok that''s enough, good girl."'
+				
+				gs 'arousal', 'end'
+				gs 'stat'
 
 				act 'Finish':gt 'masharoom', 'start'
 			end
@@ -143,6 +145,7 @@ if $ARGS[0] = 'masha':
 					gs 'arousal', 'cuni', 10, 'lesbian', 'dom'
 					gs 'arousal', 'cuni_give', 10, 'lesbian', 'dom'
 					minut -= 10
+					gs 'arousal', 'end'
 					gs 'stat'
 
 					act 'Finish':gt 'masharoom', 'start'
@@ -158,6 +161,7 @@ if $ARGS[0] = 'masha':
 					gs 'arousal', 'cuni', 10, 'lesbian', 'dom'
 					gs 'arousal', 'cuni_give', 10, 'lesbian', 'dom'
 					minut -= 10
+					gs 'arousal', 'end'
 					gs 'stat'
 
 					act 'Finish':gt 'masharoom', 'start'
@@ -180,6 +184,7 @@ if $ARGS[0] = 'masha':
 				'You extinguish the candle and stood rubbing the end of the candle till it smoothed out and rounded the tip of it. Masha was still on her hands and knees waiting for your instructions. Once the candle had finished cooling you, knelt down behind her and rubbed it against her pussy. You notice at once she is soaking wet, with her wetness running down her inner thighs, nothing excites her more than pain. You grin and rub the tip of the candle all against her pussy lips and the side of the candle against her thighs, coating it with her pussy juices as much as you can. Then you line the candle up against her asshole and push it into her ass, she starts moaning and squirming at once. You start fucking her as hard as you can, while slapping her ass with your hand. This causes her to howl in pain and she quickly goes limp as she orgasms hard. You pull the make shift candle dildo out of her ass and she looks up at you with a beatific smile on her face.'
 
 				gs 'arousal', 'anal_strap_give', 10, 'lesbian', 'dom'
+				gs 'arousal', 'end'
 				gs 'stat'
 
 				act 'Finish':gt 'masharoom', 'start'
@@ -205,6 +210,7 @@ if $ARGS[0] = 'masha':
 
 			$orgasm_or = 'yes'
 			gs 'arousal', 'cuni', 10, 'lesbian', 'dom'
+			gs 'arousal', 'end'
 			gs 'stat'
 
 			act 'Finish':gt 'masharoom', 'start'
@@ -218,6 +224,7 @@ if $ARGS[0] = 'masha':
 
 			$orgasm_or = 'yes'
 			gs 'arousal', 'cuni', 10, 'lesbian', 'dom'
+			gs 'arousal', 'end'
 			gs 'stat'
 
 			act 'Finish':gt 'masharoom', 'start'
@@ -261,6 +268,7 @@ if $ARGS[0] = 'masha':
 
 					$orgasm_or = 'yes'
 					gs 'arousal', 'cuni', 10, 'lesbian', 'dom'
+					gs 'arousal', 'end'
 					gs 'stat'
 
 					act 'Finish':gt 'masharoom', 'start'
@@ -294,6 +302,7 @@ if $ARGS[0] = 'masha':
 
 					$orgasm_or = 'yes'
 					gs 'arousal', 'cuni', 10, 'lesbian', 'dom'
+					gs 'arousal', 'end'
 					gs 'stat'
 
 					act 'Finish':gt 'masharoom', 'start'
@@ -317,6 +326,7 @@ if $ARGS[0] = 'masha':
 						'You get bored fucking her mouth and pull it out, you move her to a better position and plunge the full shaft of the dildo into her pussy and you start hammering her. Masha moans and actively humps against you as you fuck her, soon her body starts to spasm and she has a screaming orgasm.'
 
 						gs 'arousal', 'vaginal_strap_give', 10, 'lesbian', 'dom'
+						gs 'arousal', 'end'
 						gs 'stat'
 
 						act 'Finish':gt 'masharoom', 'start'
@@ -330,6 +340,7 @@ if $ARGS[0] = 'masha':
 						'You get bored fucking her mouth and pull it out, you move her to a better position and plunge the full shaft of the dildo into her anus. You have a bit of trouble forcing it into her ass, as the only lubricant is her saliva, but you not only manage to get it fully in, but you shove the full length of the shaft deep into her ass. You begin to jack hammer her ass, she humps back against you fucking her, with cries of both pain and pleasure. It doesn''t take long until she starts having a screaming orgasm.'
 
 						gs 'arousal', 'anal_strap_give', 10, 'lesbian', 'dom'
+						gs 'arousal', 'end'
 						gs 'stat'
 
 						act 'Finish':gt 'masharoom', 'start'
@@ -353,6 +364,7 @@ if $ARGS[0] = 'masha':
 
 				$orgasm_or = 'yes'
 				gs 'arousal', 'vaginal_finger', 10, 'lesbian', 'dom'
+				gs 'arousal', 'end'
 				gs 'stat'
 
 				act 'Finish':gt 'masharoom', 'start'
@@ -366,6 +378,7 @@ if $ARGS[0] = 'masha':
 
 				$orgasm_or = 'yes'
 				gs 'arousal', 'vaginal_dildo', 10, 'lesbian', 'dom'
+				gs 'arousal', 'end'
 				gs 'stat'
 
 				act 'Finish':gt 'masharoom', 'start'
@@ -389,7 +402,16 @@ if $ARGS[0] = '1':
 	'<center><img <<$set_imgh>> src="images/characters/city/masha/sex/r3.jpg"></center>'
 	'Wearing some latex lingerie, you feel someone watching you. Carefully turning your head, you see that the door is not completely closed, and through the crack a man is watching you.'
 
-	act 'Close the door':gt 'masharoom', 'start'
+	gs 'willpower', 'exhib', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Close the door (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'masharoom', 'start'
+		end
+	else
+		act 'Close the door (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
 
 	act 'Tease':
 		cla
@@ -407,6 +429,7 @@ if $ARGS[0] = '1':
 
 			$orgasm_or = 'yes'
 			gs 'arousal', 'masturbate', 10, 'exhibitionism'
+			gs 'arousal', 'end'
 			gs 'stat'
 
 			act 'Finish':gt 'masharoom', 'start'
@@ -440,6 +463,7 @@ if $ARGS[0] = '1':
 					'Feeling a bit frustrated you tell him. "Just fuck me already." At those words he hastily takes off his pants and wastes no time at all. His cock went straight to and into your pussy. At least he seems to know the correct hole to fuck you in. You are just starting to enjoy it, when he grunts and starts cumming inside of you. Two pump chump indeed. "For fucks sake, are you really are worthless at pleasing a girl, get the fuck out." He grabs his pants and runs out with out even putting them back on.'
 
 					gs 'arousal', 'vaginal', 10, 'dom'
+					gs 'arousal', 'end'
 					gs 'stat'
 
 					act 'Finish':gt 'masharoom', 'start'
@@ -448,7 +472,6 @@ if $ARGS[0] = '1':
 				act 'Punish':
 					cla
 					*clr
-					pcs_dom += 1
 					'<center><img <<$set_imgh>> src="images/characters/city/masha/sex/r9.jpg"></center>'
 					'"Stop." He stops licking you and you turn around and open your mouth, he gets all excited and before you can do much more he jams his cock in your mouth and starts trying to fuck your mouth. You suck on him for a moment, letting him enjoy it but then you grab him by the balls and squeeze them hard until he cries out in pain. "Ah! that hurts please stop doing that." He begs you.'
 					'You pull your head away from his dick and keep squeezing his balls."I decided how I will suck you, you don''t get to decided. Just be grateful a girl is willing to suck you off at all. Now get out of my sight." You jerk his balls down and he drops to the floor in pain, after you let go he grabs his pants and starts to get up, but before he can you kick him from behind in the balls. He groans in pain and rolls on the floor, slowly getting up and scurrying to the door, in fear, tryig to get out of the room before you hurt him more.'
@@ -476,6 +499,7 @@ if $ARGS[0] = '1':
 					'You turn around, still straddling his face and bend over till you can take his cock in your mouth. You barely even have time to stroke his cock with your lips a couple of times when you feel his hot cum spurting into your mouth. You pull your head away and spit the cum out on his stomach and get off. "Get out!" He quickly grabs his pants and rushes out.'
 
 					gs 'arousal', 'bj', 10, 'dom'
+					gs 'arousal', 'end'
 					gs 'stat'
 
 					act 'Finish':gt 'masharoom', 'start'
@@ -489,6 +513,7 @@ if $ARGS[0] = '1':
 					'You move down to straddle his cock, you barely even get his dick into you when you feel him already cumming. You jump off but all you manage to do is end up with his cum in your pussy and all over the outside of it and your inner thighs. You get off him in disgust and point at the door. "Get the fuck out." He quickly grabs his pants and runs out of the room.'
 
 					gs 'arousal', 'vaginal', 10, 'dom'
+					gs 'arousal', 'end'
 					gs 'stat'
 
 					act 'Finish':gt 'masharoom', 'start'
@@ -504,6 +529,7 @@ if $ARGS[0] = '1':
 					'You get off him and take his cock in your hand and start to jerk him off, it only takes a couple of jerks and he is cumming all over your hand and himself. Wiping your hand off on him, you point at the door. "Get the fuck out." He quickly grabs his pants and runs out of the room.'
 
 					gs 'arousal', 'hj', 10, 'dom'
+					gs 'arousal', 'end'
 					gs 'stat'
 
 					act 'Finish':gt 'masharoom', 'start'
@@ -527,7 +553,10 @@ if $ARGS[0] = '1':
                         gs 'cum_manage'
 						'<center><img <<$set_imgh>> src="images/characters/city/masha/sex/r14.jpg"></center>'
 						'You tried to pull away from him, but it was too late his cock spurted semen jet quite powerful and sperm manages to hit you in the face around your mouth and he keeps cumming, it gets all over your breasts, face, hands and even on his own stomach. Once he stops cumming you point at the door. "Get the fuck out." He quickly grabs his pants and runs out of the room.'
-
+						
+						gs 'arousal', 'end'
+						gs 'stat'
+			
 						act 'Finish':gt 'masharoom', 'start'
 					end
 				end
@@ -569,6 +598,7 @@ if $ARGS[0] = '2':
 			'Not knowing what else to do, you do your best to tolerate his rough dry fucking of your ass. Since true to his word every time you said anything or resisted he just made it worse. So you silently cry as he dry fucks your ass, what little lubricant there was from his spit is long gone. He fucks you for a long time, so long that your sobs no longer have tears, you have long since used up all your tears, yet a small part of if you is loving it, despite all the pain. What felt like hours later he finally shots his load deep in your ass. You feel the hot spurts of his cum filling you up. "Next time do as you''re told you submissive bitch or it will be a lot worse, either I or someone else will teach you a lesson that will make you remember this fondly. I''ll make sure to tell the others your down here." He said with a laugh and then left, he didn''t even undo the cuffs. You limp over to the door and close it in case he was serious about sending down more men. It takes you a bit to finally get yourself lose.'
 
 			gs 'arousal', 'anal', 10, 'sub', 'bound', 'rough'
+			gs 'arousal', 'end'
 			gs 'stat'
 
 			act 'Finish':gt 'masharoom', 'start'
@@ -587,6 +617,7 @@ if $ARGS[0] = '2':
 			'"Please enough, let me go" you cried. "There''s no way you''ll understand your place, if you keep using that mouth to talk." With that he pulled out of your ass and relief flood you, hoping he is planning on releasing you, you hear him walking around. Then you feel a sharp pain on your ass, as he smacks you with the paddle hard again. You open your mouth to cry out, only to have his cock shoved in your mouth. You can taste your own ass still on his cock, he pulls the leash tight so you have no choice but to suck his dick. He fucks your mouth and throat, jamming his cock balls deep into your mouth and down your throat, making you gag. The whole while he keeps spanking your with the paddle, leaving your ass cherry red as tears stream down your face. Some time later he stops with his cock jammed down your throat and he cums directly into your throat, leaving you no choice but to swallow his load. "Next time do as you''re told you submissive bitch or it will be a lot worse, either I or someone else will teach you a lesson that will make you remember this fondly. I''ll make sure to tell the others your down here." He said with a laugh and then left, he didn''t even undo the cuffs. You limp over to the door and close it in case he was serious about sending down more men. It takes you a bit to finally get yourself lose.'
 
 			gs 'arousal', 'bj', 5, 'sub', 'rough', 'deepthroat'
+			gs 'arousal', 'end'
 			gs 'stat'
 
 			act 'Finish':gt 'masharoom', 'start'
@@ -638,6 +669,9 @@ if $ARGS[0] = '2':
 					'<center><img <<$set_imgh>> src="images/characters/city/masha/sex/r26.jpg"></center>'
 					'You opened your mouth and the remnants of sperm poured into it. Not waiting for you to swallow he sticks his dick in your mouth and makes you suck him clean, his dick tastes like your ass, but you suck him clean. Once you are finished he undoes the cuffs, puts his pants on and walks out, closing the door behind him with out another word.'
 
+					gs 'arousal', 'end'
+					gs 'stat'
+			
 					act 'Finish':gt 'masharoom', 'start'
 				end
 			end

+ 90 - 28
locations/parkivent.qsrc

@@ -20,11 +20,10 @@ if $ARGS[0] = '1':
 		*clr & cla
 		'Hidden by a tree''s shadow, you notice a man standing there, he watches you and when you look back at him he shouts "Whore!" at you.'
 
-		act 'Silently leave':sub += 1 & gt 'park', 'start'
+		act 'Silently leave':gt 'park', 'start'
 
 		act 'Tell him to shut up':
 			cla
-			pcs_dom += 1
 			'"Shut your trap, jackass." You''re surprised when you see him quickly running away.'
 
 			act 'Leave':gt 'park', 'start'
@@ -178,7 +177,16 @@ if $ARGS[0] = '2':
 			cla
 			'The guy laughs "Unfortunately, I doubt it''ll be as much fun as the first time, but why don''t you bend over this bench right here?"'
 
-			act '"Not this time, I''m afraid"':gt 'park', 'start'
+			gs 'willpower', 'sex', 'resist', 'hard'
+			if will_cost <= pcs_willpwr:
+				act '"Not this time, I''m afraid" (<<will_cost>> Willpower)':
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					gt 'park', 'start'
+				end
+			else
+				act 'Not this time, I''m afraid (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end	
 
 			act 'Bend over the bench':
 				cla & *clr
@@ -191,8 +199,9 @@ if $ARGS[0] = '2':
 				'The man pushes you over the backrest of the bench and pushes his cock into your pussy. He slowly begins to thrust in and out of you.'
 
 				gs 'cum_call', '', 'Guy from the park'
-				gs 'arousal', 20, 'vaginal', 'prostitution'
+				gs 'arousal', 'vaginal', 20, 'prostitution'
 				gs 'arousal', 'end'
+				gs 'stat'
 
 				act 'Leave':gt 'park', 'start'
 			end
@@ -207,7 +216,16 @@ if $ARGS[0] = '2':
 			cla
 			'"What do I have to do?", you ask. He smiles, "Let us go over there." and points over to the bench in a somewhat secluded part of the park.'
 
-			act 'Fuck off, asshole':gt 'park', 'start'
+			gs 'willpower', 'sex', 'resist', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Fuck off, asshole (<<will_cost>> Willpower)':
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					gt 'park', 'start'
+				end
+			else
+				act 'Fuck off, asshole (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
 
 			act 'Follow him':
 				cla
@@ -223,7 +241,7 @@ if $ARGS[0] = '2':
 				'The man pushes you over the backrest of the bench and pushes his cock into your pussy. He slowly begins to thrust in and out of you.'
 
 				gs 'cum_call', '', 'Guy from the park'
-				gs 'arousal', 20, 'vaginal', 'prostitution'
+				gs 'arousal', 'vaginal', 20, 'prostitution'
 				gs 'arousal', 'end'
 
 				act 'Leave':gt 'park', 'start'
@@ -248,19 +266,25 @@ if $ARGS[0] = '3':
 
 	act 'Peek':
 		*clr & cla
-		pcs_horny += 10
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/shfoto.jpg"></center>'
 		'You take a peek through the bushes and see three guys fucking one woman. It seems like she''s really enjoying it.'
+		
+		gs 'arousal', 'voyeur_sex', 10
+		gs 'arousal', 'end'
+		gs 'stat'
 
 		act 'Leave':gt 'park', 'start'
 
 		if pcs_horny >= 50:
 			act 'Pry':
 				cla
-				pcs_horny += 10
 				gs 'stat'
 				'You hide behind a tree to get a better look at the group action.'
+				
+				gs 'arosual', 'voyeur_sex', 10
+				gs 'arousal', 'end'
+				gs 'stat'
 
 				if pcs_horny >= 75:
 					'This sight really excites you and you can feel your pussy moisten.'
@@ -301,8 +325,6 @@ if $ARGS[0] = '3':
 
 					act 'Try to talk your way out':
 						cla
-						rape += 1
-						guy += 3
 						'You try to talk your way out, but they just laugh at you, pitying you for even trying. Then one of the guys force you onto your knees and they prepare you to fuck your doggy-style.'
 
 						if minifoto = 1:
@@ -403,12 +425,20 @@ if $ARGS[0] = '4':
 					*clr
 					'You turn to leave, but the guy quickly catches up to you. He grabs your ass, spins you around to face him, and orders "On your knees, quickly, bitch!"'
 
-					act 'Kick him in the his nuts and walk away':gt 'park', 'start'
+					gs 'willpower', 'rape', 'resist', 'hard'
+					if will_cost <= pcs_willpwr:
+						act 'Kick him in the his nuts and walk away (<<will_cost>> Willpower)':
+							*clr & cla
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							gt 'park', 'start'
+						end
+					else
+						act 'Kick him in the his nuts and walk 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 'Do as he tells you':
 						cla
-						rape += 1
-						gang += 1
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/parkbj.jpg"></center>'
 						'Too drunk to resist further, you quickly do as he says. He drops his pants to his knees and abruptly thrusts his big dick into your mouth. You quickly forget about everything else and start hungrily sucking him off. His big, juicy, fragrant cock is driving you mad. He gathers your hair behind your head to make sure it doesn''t get in the way. After a little while he pulls his delicious cock out of your mouth, but it''s immediately replaced by a guy you didn''t even notice approach.'
@@ -416,9 +446,9 @@ if $ARGS[0] = '4':
 						'His cock even bigger than the last guy''s, and the excitement it gives you is almost overpowering. The other guys gather around and hurl insults at you, mocking you for sucking strangers. You suck each of them off too, one by one, while stroking others, a cock in each hand. Every guy you blow cums in your mouth, and you swallow every time. Someone pulls down your top, letting your boobs spill out. You feel a cock slap against your chest as someone takes the opportunity to give himself a titfuck.'
 						'"Fuck, slut, suck faster!" orders one of the guys.'
 						
-						gs 'arousal', 'bj', 60, 'gangbang', 'sub', 'humiliation', 'deepthroat'
-						gs 'arousal', 'hj', 60, 'gangbang', 'sub', 'humiliation'
-						gs 'arousal', 'titjob', 60, 'gangbang', 'sub', 'humiliation'
+						gs 'arousal', 'bj', 60, 'gangbang', 'sub', 'humiliation', 'deepthroat', 'rape'
+						gs 'arousal', 'hj', 60, 'gangbang', 'sub', 'humiliation', 'rape'
+						gs 'arousal', 'titjob', 60, 'gangbang', 'sub', 'humiliation', 'rape'
 						minut -= 60
 						gs 'stat'
 
@@ -437,9 +467,7 @@ if $ARGS[0] = '4':
 
 								if parkblackmail = 0:guy += 2 & parkblackmail = 1 & parkday = daystart
 								
-								stat['bj'] += 6
 								swallow += 6
-								pcs_horny = 0
 								gs 'cum_call', 'mouth'
 								gs 'cum_call', 'face'
 								spafinloc = 11
@@ -490,7 +518,17 @@ if $ARGS[0] = '5':
 			cla
 			'"My house is a bit dirty and I''m looking for someone who would like to keep it clean for me," he says. "All you have to do is to dust and clean everything. My house isn''t too big so it should be quite manageable."'
 
-			act 'Turn him down':gt 'park', 'start'
+			gs 'willpower', 'misc', 'self', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Turn him down (<<will_cost>> Willpower)':
+					*clr & cla
+					gs 'willpower', 'pay', 'self'
+					gs 'stat'
+					gt 'park', 'start'
+				end			
+			else
+				act 'Turn him down (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end	
 
 			act 'Agree':
 				cla
@@ -588,7 +626,6 @@ if $ARGS[0] = '6a':
 			act 'Go on...':
 				cla & *clr
 				minut += 5
-				stat['bj'] += 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/event/rape/5.jpg"></center>'
 				'Even though you hate to admit it, you feel quite turned on and are moan more loudly by now.'
@@ -596,6 +633,9 @@ if $ARGS[0] = '6a':
 				'As you''re laying on the ground he yells out, "Open your mouth slut!"'
 				'As soon as you open the mouth, he grabs your head and began furiously thrusting his fat cock into your throat.'
 
+				gs 'arousal', 'bj', 5, 'sub', 'humiliation', 'rough', 'rape'
+				gs 'stat'
+		
 				act 'Suck him off':gt 'parkivent', '6b'
 			end
 		end
@@ -605,27 +645,33 @@ end
 if $ARGS[0] = '6b':
 	menu_off = 1
 	*clr & cla
-	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/event/rape/6.jpg"></center>'
 	'His odor is quiet strong and his cock smells quite foul and tastes slightly salty. You try your best to disconnect yourself from the foul taste but with every thrust you''re reminded of it, making you feel nauseous, barely able to hold it in.'
+	
+	gs 'arousal', 'bj', 5, 'sub', 'humiliation', 'rough', 'rape'
+	gs 'stat'
 
 	act 'Stay focused':
 		cla & *clr
-		minut += 5
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/event/rape/7.jpg"></center>'
 		'It doesn''t take long before he presses himself down your throat, having you deepthroat his cock all the way down to his balls.'
 		'You gag as he''s all the way down. But he doesn''t seem to care and only let''s out a chuckle as he hears you struggle.'
+		
+		gs 'arousal', 'bj', 5, 'sub', 'humiliation', 'rough', 'rape', 'deepthroat'
+		gs 'stat'
 
 		act 'Keep going':
 			cla & *clr
-			minut += 5
 			gs 'pain', 7, 'vaginal', 'stretch'
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/city/centralpark/sex/event/rape/8.jpg"></center>'
 			'All of a sudden he pulls out and your mouth makes a pop sound as his cock leaves your mouth.'
 			'"You''re quite the cocksucker, but I''d rather use your hole instead," as he takes three of his fingers and shoves them deep inside you. It''s very painful, as your pussy stretches and you scream from the pain.'
+			
+			gs 'arousal', 'vaginal_finger', 5, 'sub', 'humiliation', 'rough', 'rape'
+			gs 'stat'
 
 			act 'Masturbate':
 				cla & *clr
@@ -646,6 +692,8 @@ if $ARGS[0] = '6b':
 					'He smiles as he grabs his fat cock and leads it into you. You try to twitch and kick, but as you''re tied up you get nowhere. Without any hesitation he thrusts himself into you as you continue trying to squirm.'
 
 					gs 'arousal', 'masturbate', 5, 'sub', 'humiliation'
+					gs 'arousal', 'vaginal', 5, 'sub', 'humiliation', 'rough', 'rape'
+					minut -= 5
 					gs 'stat'
 				
 					act 'Stop resisting':
@@ -658,7 +706,7 @@ if $ARGS[0] = '6b':
 						'You keep on screaming but to no avail, he''s pulled you deep into the woods and no one can hear your screams. Realizing this, you give up and let him have his way with you.'
 						'He picks up his pace and after a while you can feel his cock swell. He abruptly shoves his cock deep into you and you feel a hot jet of sperm fill your vagina with a warm, slippery fluid.'
 						
-						gs 'arousal', 'vaginal', 10, 'sub', 'rough', 'humiliation'
+						gs 'arousal', 'vaginal', 10, 'sub', 'rough', 'humiliation', 'rape'
 						gs 'stat'
 
 						act 'Did he just cum in me?':
@@ -680,6 +728,7 @@ if $ARGS[0] = '6b':
 								'He pulls out his fingers and you can feel the remainder of his sperm flow down your thighs. He stands up and brings his cum covered fingers towards you, "Be a good slut and taste this." as he shoves his fingers into your mouth.'
 								'Even his cum tastes quite foul and you try your best to cleaning his dirty fingers with your tongue as quickly as possible. You''re forced to swallow the cum and you almost puke as you''re doing it.'
 								'After a while he removes his fingers and starts cutting the ropes. You''ve finally been released and before he gets any other idea you quickly get dressed and run away from him.'
+								
 								gs 'arousal', 'end'
 								gs'stat'
 		
@@ -700,7 +749,17 @@ if $ARGS[0] = '7':
 	if pusher = 0:
 		'A young boy wearing a hooded jacket walks up to you and tells you in a conspiratorial voice, "Hey girl, I''ve got some cocaine, want to try it? Completely free, I promise. Lovely thing, instantly clears the brain, the mood goes bananas and your body feels as it''s never been healthier. "'
 
-		act 'Leave':gt 'park', 'start'
+		gs 'willpower', 'drugs', 'resist', 'hard'
+		if will_cost <= pcs_willpwr:
+			act 'Leave (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'park', 'start'
+			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	
 
 		act 'Yes':
 			cla
@@ -850,14 +909,16 @@ if $ARGS[0] = 'run_reactions':
 	if hour >= 20:
 		gs 'exhibitionism', 1
 		'With it being so late, there isn''t anyone in the park to see you, but it doesn''t matter, the thrill and pleasure is still there. When you''re finished, you make sure to pull your top back down.'
-		gs 'arousal', 10, 'flashlite'
+		gs 'arousal', 'flashlite', 10 
 		gs 'arousal', 'end'
+		gs 'stat'
 	else
 		if rand(0,1) = 0:
 			gs 'exhibitionism', 1
 			'Despite it being daytime, you manage to go unnoticed during your run, but you still find yourself aroused and excited from the thought of being seen by a stranger or someone you know. When you''re finished, you make sure to pull your top back down.'
-			gs 'arousal', 10, 'flashlite'
+			gs 'arousal', 'flashlite', 10
 			gs 'arousal', 'end'
+			gs 'stat'
 		else
 !!I plan to add a chance for one of the guys to follow sveta and corner her, which can end in a consensual blowjob or rape.
 			gs 'exhibitionism', 2
@@ -875,8 +936,9 @@ if $ARGS[0] = 'run_reactions':
 			wait 1000
 			*nl
 			'You continue your run until their catcalling can''t be heard anymore.'
-			gs 'arousal', 10, 'flashlite'
+			gs 'arousal', 'flashlite', 10
 			gs 'arousal', 'end'
+			gs 'stat'
 		end
 	end
 	*nl

+ 158 - 47
locations/placer_act.qsrc

@@ -63,9 +63,20 @@ if plact = 0:
 			if p_slut >= 80:
 				'<<$ev_name>> whispers to you: "Don''t be such a bore, <<$pcs_nickname>>! I want to stay, he''s cute! Come on, stay with me and live a little!"'
 
-				act 'Leave your friend behind and go':gt 'gskver', 'start'
+				gs 'willpower', 'drink', 'resist', 'medium'
+				if will_cost <= pcs_willpwr:
+					act 'Leave your friend behind and go (<<will_cost>> Willpower)':
+						gs 'willpower', 'pay', 'self'
+						gs 'stat'
+						gt 'gskver', 'start'
+					end
+				else
+					act 'Leave your friend behind and go (<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 some beer with them':plact = 1 & gt $curloc
-				if pcs_dom > p_dom / 2: act 'Drag your friend away':gt 'placer_end'
+				
+				act 'Drag your friend away':gt 'placer_end'
 			end
 		end
 	end
@@ -93,20 +104,30 @@ if plact = 1:
 		!!gopniks in the park, 3-6
 		if Frend_num = 0:
 			if know_gor_slut = 0:
-				pcs_horny += 5
 				'<<$boydesc>> excuses himself for a moment, and then surprises you when he comes up to you from behind. He puts his arms around your waist while kissing your neck. The other guys are mostly ignoring you and are talking among one another, though you do see one or two jealous glances from them.'
+				
+				gs 'arousal', 'kiss', 5
+				gs 'stat'
 
 				act 'Kiss the guy':
 					*clr & cla
-					pcs_horny += 5
-					minut += 5
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/shared/sex/kiss/kiss.jpg"></center>'
 					'You kiss <<$boydesc>> on his lips and embrace him, and soon his hands are exploring your body. He whispers to you: "Come on, you cute little thing... let''s go somewhere a bit more private" while he roughly kneads your ass through your clothes. His friends are watching you intently.'
+					
+					gs 'arousal', 'kiss', 5
+					gs 'stat'
 
-					if pcs_dom > 0:
-						act 'Refuse and leave':gt 'gskver', 'start'
-					end
+					gs 'willpower', 'sex', 'resist', 'hard'
+					if will_cost <= pcs_willpwr:
+						act 'Refuse and leave (<<will_cost>> Willpower)':
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							gt 'gskver', 'start'
+						end
+					else
+						act 'Refuse 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 'Go with the guys':
 						*clr & cla
@@ -142,9 +163,17 @@ if plact = 1:
 							'They happily toast with you. You eat some anchovies from a jar that someone brought, while you take sips of your vodka. It''s the cheap kind, and it doesn''t taste very good.'
 							'When your cup is nearly empty, <<$boydesc>> generously pours more in your glass with a confident smile. The guys persuade you to keep drinking, saying how much they are enjoying you spending time with them.'
 
-							if pcs_dom > 0:
-								act 'Refuse to drink more and leave':gt 'gskver', 'start'
-							end
+							gs 'willpower', 'drink', 'resist', 'hard'
+							if will_cost <= pcs_willpwr:
+								act 'Refuse to drink more and leave (<<will_cost>> Willpower)':
+									gs 'willpower', 'pay', 'resist'
+									gs 'stat'
+									gt 'gskver', 'start'
+								end
+							else
+								act 'Refuse to drink more 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 'Keep drinking':
 								*clr & cla
 								minut += 5
@@ -181,8 +210,18 @@ if plact = 1:
 
 							act 'Continue':gt 'gopnik_house'
 						end
-
-						act 'Mumble an excuse and leave':gt 'gskver', 'start'
+						
+						gs 'willpower', 'sex', 'resist', 'hard'
+						if will_cost <= pcs_willpwr:
+							act 'Mumble an excuse and leave (<<will_cost>> Willpower)':
+								gs 'willpower', 'pay', 'resist'
+								gs 'stat'
+								gt 'gskver', 'start'
+							end
+						else
+							act 'Mumble an excuse 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	
+							
 					else
 						'One of the guys suggests: "Hey guys, there''s no need for us to hang around in the park all day. I know a place where we can hang out and enjoy a drink in private!"'
 						'After some debate, the guys agree to go there. From some of the stares your group has been getting while you enjoyed your drinks, you can''t blame them. They all look at you expectantly, hoping you will come with them.'
@@ -209,18 +248,24 @@ if plact = 1:
 
 									act 'Continue':gt 'podval_rape'
 								end
-
-								act 'Refuse to drink':
-									*clr & cla
-									minut += 5
-									pcs_mood = 5
-									gs 'stat'
-									'You refuse to accept the drink, hoping they will let you go. Of course, they have no intentions of doing so.'
-									'The guy shrugs: "Suit yourself, slut. You''re getting fucked either way."'
-									'He takes the glass out of your hand, and two guys grab you by your shoulders and roughly push you down onto the mattress.'
-
-									act 'Continue':gt 'podval_rape'
-								end
+								
+								gs 'willpower', 'drink', 'resist', 'hard'
+								if will_cost <= pcs_willpwr:
+									act 'Refuse to drink (<<will_cost>> Willpower)':
+										*clr & cla
+										minut += 5
+										pcs_mood = 5
+										gs 'willpower', 'pay', 'resist'
+										gs 'stat'
+										'You refuse to accept the drink, hoping they will let you go. Of course, they have no intentions of doing so.'
+										'The guy shrugs: "Suit yourself, slut. You''re getting fucked either way."'
+										'He takes the glass out of your hand, and two guys grab you by your shoulders and roughly push you down onto the mattress.'
+
+										act 'Continue':gt 'podval_rape'
+									end
+								else
+									act 'Refuse to drink (<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 'Leave':
@@ -256,7 +301,6 @@ if plact = 1:
 
 					act 'Kneel down and open your mouth':
 						*clr & cla
-						stat['bj'] += kol_man
 						guy += kol_man
 						i = 0
 						:parkbj
@@ -278,6 +322,11 @@ if plact = 1:
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/sex/gop/blowbang2.jpg"></center>'
 						'You realize the only way you''re getting out of this basement is by doing as they say, and you slowly get down to your knees. The guys see your resignation, and enthusiastically begin to rub their cocks against your cheeks, spreading their precum all over you. You close your lips around the closest one and diligently suck him off. After a while you really start to get into it, and reach out for two additional cocks to masturbate with your hands while your mouth is busy.'
 						'You even exceed their expectations by taking two cocks in your mouth at the same time, doing your best to make them all cum as quick as possible. They tell you to look them in the eye as they shoot their warm loads all over your face one by one. One of them is particularly mean, aiming directly at your eye. His friends cheer when a spurt of cum lands directly in it.'
+						
+						gs 'arosual', 'hj', 30, 'sub', 'group', 'humiliation'
+						gs 'arousal', 'bj', 30, 'sub', 'group', 'humiliation'
+						minut -= 30
+						gs 'stat'
 
 						act 'Wipe the cum from your eye':
 							cla
@@ -287,6 +336,9 @@ if plact = 1:
 							'The Gopniks don''t care, and write some humiliating text on your forehead with a marker they found somewhere.'
 							'One of them says: "We''re doing you a favor, slut. This way, everyone will recognize you for what you are, and it will help you remember your place."'
 							'You feel deeply humiliated, but are too embarrassed to contradict them. After a few more minutes of degrading talk, they finally let you leave the basement."'
+							
+							gs 'arousal', 'end'
+							gs 'stat'
 
 							act 'Find your way back to the main streets':gt 'gskver', 'start'
 						end
@@ -304,8 +356,6 @@ if plact = 1:
 
 					act 'Squat before them':
 						*clr & cla
-						stat['bj'] += kol_man
-						guy += kol_man
 						i = 0
 						:parkbj2
 						spafinloc = 12
@@ -317,38 +367,51 @@ if plact = 1:
 							i += 1
 							if i <= kol_man: jump 'parkbj2'
 						end
-						gang += 1
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/gop/sex/gop/blowbang.jpg"></center>'
 						'You obediently squat before them, and take two cocks into your hands. You masturbate them slowly, spreading their precum over them as you close your lips around the first.'
 						'You do your best to please them all as good as you can, and suck them off one by one like your life depended on it. For all you know, maybe it does.'
 						'The guys don''t last long at all, and cum all over your face one by one. Once the last guy is spent, they wave you off. One of them snorts: "Not bad, slut. I see your reputation is well deserved."'
-
+						
+						gs 'arosual', 'hj', 30, 'sub', 'group', 'humiliation'
+						gs 'arousal', 'bj', 30, 'sub', 'group', 'humiliation'
+						minut -= 30
+						gs 'arousal', 'end'
+						gs 'stat'
+						
 						act 'Leave the basement and return to the park':gt 'gskver', 'start'
 					end
 				end
 			end
 		elseif Frend_num > 0:
 			if know_gor_slut = 0:
-				pcs_horny += 5
 				'You see one of the guys come behind to your friend, closing his arms around her in a bear grip as he kisses her neck. Another guy does the same to you, and kisses your neck quite aggressively while he has a tight grip on your waist.'
 
 				act 'Kiss him':
 					*clr & cla
 					gs 'stat'
 					'You kiss the guy passionately, and just try to enjoy him groping your body. In the corner of your eye you see <<$ev_name>> receiving a similar treatment, several more guys gathering around the two of you. They''re all pawing at your ass and boobs greedily, and suggest you go with them to their home for some more fun.'
-
-					act 'Go with the guys':gt 'placer_gop_orgy'
-				end
-
-				act 'Grab your friend and leave':
-					*clr & cla
+					
+					gs 'arosual', 'kiss', 5, 'group'
 					gs 'stat'
-					'You can''t do this! You break free from the Gopniks and quickly take <<$ev_name>>''s hand. You drag her along as you walk away from the Gopniks. She''s a bit reluctant to leave them at first, but trusts your judgement enough to follow you without objections.'
 
-					act 'Leave the park':gt 'placer_end'
+					act 'Go with the guys':gt 'placer_gop_orgy'
 				end
+				
+				gs 'willpower', 'sex', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Grab your friend and leave (<<will_cost>> Willpower)':
+						*clr & cla
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						'You can''t do this! You break free from the Gopniks and quickly take <<$ev_name>>''s hand. You drag her along as you walk away from the Gopniks. She''s a bit reluctant to leave them at first, but trusts your judgment enough to follow you without objections.'
 
+						act 'Leave the park':gt 'placer_end'
+					end
+				else
+					act 'Grab your friend 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	
+				
 				exit
 			end
 
@@ -367,9 +430,16 @@ if plact = 1:
 
 					act 'Go with the guys':gt 'placer_gop_orgy'
 
-					if pcs_dom > 20:
-						act 'Talk them down and leave with your friend':gt 'placer_end'
-					end
+					gs 'willpower', 'sex', 'resist', 'hard'
+					if will_cost <= pcs_willpwr:
+						act 'Talk them down and leave with your friend (<<will_cost>> Willpower)':
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							gt 'placer_end'
+						end
+					else
+						act 'Talk them down and leave with your friend (<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
@@ -393,15 +463,28 @@ if plact = 1:
 						gs 'stat'
 						'That came a bit out of the blue... but wow, he''s a good kisser! You kiss the guy back enthusiastically.'
 						'After a while he takes you by the hand, and leads you to some bushes. Before you know what''s going on, he pulls down his pants. His erect cock comes jumping out, bouncing lightly. He looks at you with a meaningful look on his face, expecting you to service it.'
+						
+						gs 'arousal', 'kiss', 5
+						gs 'stat'
 
 						act '"Hey, what are you doing!?"':
 							*clr & cla
 							gs 'stat'
 							'You angrily exclaim: "Hey, are you crazy!? What''s the meaning of this?"'
 							'The guy just grins at you: "Everyone knows you''re a whore, <<$pcs_nickname>>. We''ve all seen the video... it''s way too late for you to start being a prude now. Come on, it''d only take a minute. What do you say?"'
+							
 							dynamic $d_park_placer_bj
-
-							act 'Refuse and leave':gt 'gskver', 'start'
+							
+							gs 'willpower', 'bj', 'resist', 'hard'
+							if will_cost <= pcs_willpwr:
+								act 'Refuse and leave (<<will_cost>> Willpower)':
+									gs 'willpower', 'pay', 'resist'
+									gs 'stat'
+									gt 'gskver', 'start'
+								end
+							else
+								act 'Refuse 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	
 						end
 
 						act '"Are you crazy? What if someone sees?"':
@@ -426,7 +509,16 @@ if plact = 1:
 									if tiperand = 2:gt 'fbGar'
 								end
 
-								act 'Refuse and leave':gt 'gskver', 'start'
+								gs 'willpower', 'bj', 'resist', 'hard'
+								if will_cost <= pcs_willpwr:
+									act 'Refuse and leave (<<will_cost>> Willpower)':
+										gs 'willpower', 'pay', 'resist'
+										gs 'stat'
+										gt 'gskver', 'start'
+									end
+								else
+									act 'Refuse 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	
 							end
 
 							dynamic $d_park_placer_bj
@@ -459,7 +551,16 @@ if plact = 1:
 						if p_slut < 50:
 							'<<$ev_name>> seems to understand where this is going, and nods at you: "Okay, <<$pcs_nickname>>... I guess I should leave the two of you alone. I''ll see you later?"'
 
-							act 'Leave with your friend':gt 'placer_end'
+							gs 'willpower', 'sex', 'resist', 'hard'
+							if will_cost <= pcs_willpwr:
+								act 'Leave with your friend (<<will_cost>> Willpower)':
+									gs 'willpower', 'pay', 'resist'
+									gs 'stat'
+									gt 'gskver', 'start'
+								end
+							else
+								act 'Leave with your friend (<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 goodbye and go with the guy':
 								*clr & cla
@@ -505,7 +606,17 @@ if plact = 1:
 						elseif p_slut >= 60:
 							'<<$ev_name>> kisses the guy, and he begins to grope her body. She quickly whispers something in his ear, and you see him nod. Then <<$ev_name>> turns to you and asks innocently: "Hey <<$pcs_nickname>>... <<$boydesc>> asks if you want to come with us for some fun. What do you say?"'
 
-							act 'Refuse and tell her to have fun':gt 'gskver', 'start'
+							gs 'willpower', 'sex', 'resist', 'hard'
+							if will_cost <= pcs_willpwr:
+								act 'Refuse and tell her to have fun (<<will_cost>> Willpower)':
+									gs 'willpower', 'pay', 'resist'
+									gs 'stat'
+									gt 'gskver', 'start'
+								end
+							else
+								act 'Refuse and tell her to have fun (<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 to his apartment together':minut += 5 & gt 'placer_house'
 						end
 					end

+ 3 - 4
locations/placer_gop_orgy.qsrc

@@ -7,7 +7,6 @@ gs 'drugs', 'alcohol', 'vodka', 2
 gs 'stat'
 'You, <<$ev_name>> and the guys enter what seems to be an otherwise abandoned apartment. The place barely has any furniture, and there is rubbish and dirt everywhere. Are you even allowed to be in here?'
 'The boys don''t pay any attention to their surroundings, and pour out some vodka from a bottle into several cups they brought while they actively flirt with you and your friend. You soon forget about your surroundings as you''re having fun with the guys, and undress alongside <<$ev_name>>. The boys quickly clear an area of bottles and other debris, so you can lie down.'
-gang += 1
 ciklkm = (kol_man / 2) + 1
 guy += ciklkm
 
@@ -37,7 +36,7 @@ act 'Continue':
 		gs 'dinsex','vaginal_sex',10
 		gs 'dinsex','sexcum'
 		
-	gs 'arousal', 'vaginal', 15, 'group'
+	gs 'arousal', 'vaginal', 15, 'group', 'sub'
 	gs 'stat'
 	
 	else
@@ -51,8 +50,8 @@ act 'Continue':
 	if ciklkm > 0:'All of the guys want to fuck you or <<$ev_name>> at least once. You see one of them impatiently stroking his cock, keeping it erect while he is waiting for the Gopnik that is currently fucking you to finish. There might be more beyond your vision range though, you''re not quite sure.'
 	'Once the Gopnik finishes, his friend quickly takes his place and offers you his dick. You quietly close your fingers around it, and glance to your right to see how <<$ev_name>> is holding up. She seems to be having a blast! One of the Gopniks is fucking her roughly from behind, while she''s enthusiastically sucking another guy''s cock.'
 
-	gs 'arousal', 'hj', 15, 'group'
-	gs 'arousal', 'vaginal', 15, 'group'
+	gs 'arousal', 'hj', 15, 'group', 'sub'
+	gs 'arousal', 'vaginal', 15, 'group', 'sub'
 	minut -= 15
 	gs 'stat'
 

+ 16 - 2
locations/placer_gskver.qsrc

@@ -172,12 +172,16 @@ if soniaPS=5 and rand(1,10)=>9 and hour>14 and hour<20:
 		act'Keep looking':
 			cla
 			*clr
-			pcs_horny += 20
 			gs'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/sonia/sex/sonia.skver.boy1,'+rand(0,2)+'.jpg"></center>'
 			'After a while, the guy tells Sonia that he wants more. Sonia obediently gets up and asks him: "Would you like to fuck me from behind, sir?"'
 			'The stranger happily accepts the invitation, and watches in amazement when he notices Sonia eagerly grinding her hips back against him once he''s inside her. He had no idea she would be such a lusty slut for him, willing to do all the work!'
 			'You watch Sonia give herself to the man for just a moment longer, before you decide you really have to get going. You''re quite turned on from her little show. Sonia looks like she''s having a lot of fun, and for just a second you think about what it would feel like to be in her place.'
+			
+			gs 'arousal', 'voyeur_sex', 15
+			gs 'arousal', 'end'
+			gs 'stat'
+			
 			act'Leave them be':gt 'gskver', 'start'
 		end
 	end
@@ -207,7 +211,17 @@ if Frend_num > 0:
 				gs 'stat'
 				'<<$ev_name>> hisses in your ear: "I don''t want to hang out with strangers, <<$pcs_nickname>>! They could be dangerous! If you want to stay here, I''m leaving."'
 
-				act 'Leave with your friend':gt 'placer_end'
+				gs 'willpower', 'misc', 'self', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Leave with your friend (<<will_cost>> Willpower)':
+						gs 'willpower', 'pay', 'self'
+						gs 'stat'
+						gt 'placer_end'
+					end
+				else
+					act 'Leave with your friend (<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 goodbye to your friend and stay':
 					Frend_num = 0
 					gt 'placer_act'

+ 2 - 9
locations/placer_house.qsrc

@@ -12,8 +12,6 @@ if kol_man = 1:
 	gs 'stat'
 	act 'Suck him off':
 		cls
-		guy += 1
-		gang += 1
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/event/katja/threesomebj.jpg"></center>'
 		'You and <<$ev_name>> both get down on your knees in front of <<$boydesc>> and share his cock, giving him a blowjob in turns. When you don''t have his cock in your mouth, you spend the idle time by playing with his balls, licking and sucking on them while softly whispering words of encouragement to <<$ev_name>>, challenging her to take the cock deeper down her throat.'
@@ -50,7 +48,6 @@ elseif kol_man = 2:
 
 	act 'Suck off your guy':
 		cls
-		guy += 1
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/event/katja/foursomebj.mp4"></center>'
 		'You''re not about to let her show you up! You quickly scoot down on the bed until your mouth is near his erection. The musky and manly smell of it is impossible to ignore, and actually arouses you a quite a bit. You eagerly take his cock in your mouth and suck on the head, trying to compete with <<$ev_name>>. However, she is one step ahead of you and already has her guy''s cock all the way down her throat. The guy has his hand behind her head but realizes he doesn''t need to do anything, <<$ev_name>> is giving him the blowjob of a lifetime! You try to smile with <<$boydesc>>''s cock still in your mouth... guess she wins this one. Then you decide to focus solely on making <<$boydesc>> feel good instead, and forget about <<$ev_name>> and the other guy.'
@@ -186,7 +183,6 @@ elseif kol_man = 3:
 			cls
 			gs 'npcgeneratec', 0, 'Guy', rand(18,35)
 			gs 'boyStat', $npclastgenerated
-			guy += 1
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/bj.jpg"></center>'
 			'You quietly slide down to your haunches, while you rub your hand over the quite noticeable bulge in his pants. Unable to withstand your teasings any longer, he unbuttons his pants and his erect penis jumps out.'
@@ -303,7 +299,6 @@ elseif kol_man = 3:
 
 					act 'Continue':
 						cls
-						pcs_horny += 10
 						spafinloc = 12
 						gs 'cum_manage'
 						spafinloc = 11
@@ -324,7 +319,6 @@ elseif kol_man = 3:
 
 			act 'Get on your hands and knees':
 				cls
-				pcs_horny += 10
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/event/katja/rakom.jpg"></center>'
 				'You quickly take off your clothes, and get down on the bed on your hands and knees.'
@@ -364,6 +358,7 @@ elseif kol_man = 3:
 							gs 'cum_manage'
 							gs 'arousal', 'bj', 5, 'sub', 'group', 'deepthroat'
 							gs 'arousal', 'anal', 5, 'sub', 'group'
+							minut -= 5
 							gs 'arousal', 'end'
 							gs 'stat'
 							dynamic $d_girlfrend_end
@@ -374,7 +369,6 @@ elseif kol_man = 3:
 				act 'In your pussy':
 					cls
 					pose = 1
-					pcs_horny += 10
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/event/katja/doubledog.jpg"></center>'
 					'One of the guys moves back to your face, and offers you his cock to suck on while you get fucked. You open your mouth without hesitation and obediently suck him off, while his friend fucks your pussy from behind.'
@@ -391,6 +385,7 @@ elseif kol_man = 3:
 					
 					gs 'arousal', 'bj', 5, 'sub', 'group', 'deepthroat'
 					gs 'arousal', 'vaginal', 5, 'sub', 'group'
+					minut -= 5
 					gs 'arousal', 'end'
 					gs 'stat'
 					dynamic $d_girlfrend_end
@@ -403,8 +398,6 @@ elseif kol_man >= 4:
 
 	act 'Have sex with two of them':
 		cls
-		gang += 1
-		dp += 1
 		gs 'npcgeneratec', 0, 'Guy', rand(18,35)
 		gs 'boyStat', $npclastgenerated, 'b'
 		gs 'boyStat', $boy, 'a'

+ 1 - 3
locations/placer_house_one.qsrc

@@ -41,14 +41,13 @@ act 'Kiss him back':
 			act 'Swallow it':
 				cls
 				swallow += 1
-				sub += 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/event/katja/swallow.jpg"></center>'
 				'You swallow your casual acquaintance''s cum, and smile up at him with the nasty after-taste of his spunk still left in your mouth. You obediently open your mouth and move around your tongue, to show him that you swallowed his load.'
 				'He grins down at you and softly strokes your hair as he says: "You''re so fucking hot... I wish I could keep you forever."'
+				
 				act 'Clean him up':
 					cls
-					sub += 1
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/event/katja/clean.jpg"></center>'
 					'You smile at him, before taking hold of his penis and using your tongue to lick it clean of any remaining sperm. Then you quietly tuck it back into his pants, and give it an endearing pat before you get back up.'
@@ -63,7 +62,6 @@ act 'Kiss him back':
 			act 'Spit it out':
 				cls
 				swallow += 1
-				pcs_dom += 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bjdan.jpg"></center>'
 				'Your face contorts a bit, despite your best efforts to hide your disgust. His load tastes awful! After a few seconds you decide to give up the charade, and just spit it out on the floor right in front of him.'

+ 11 - 13
locations/volAndGev.qsrc

@@ -20,24 +20,22 @@ if $ARGS[0] = 'start':
 			'The guy smiled, looking at you.'
 		end
 
-		if pcs_dom > 0:
-			act 'Swear at him':
-				cls
-				gs 'stat'
-				'You cursed at the guy for roughly pushing you.'
+		act 'Swear at him':
+			cls
+			gs 'stat'
+			'You cursed at the guy for roughly pushing you.'
 
-				if pcs_apprnc < 60:	
-					'The guy flipped you the bird and smiled.'
-				else
-					'The guy just looked at you and shrugged.'
-				end
-
-				act 'Leave':gt 'gdksport', 'start'
+			if pcs_apprnc < 60:	
+				'The guy flipped you the bird and smiled.'
+			else
+				'The guy just looked at you and shrugged.'
 			end
+
+			act 'Leave':gt 'gdksport', 'start'
 		end
 	end
 	
-	if bumpK >= 7 and pcs_dom >=10:
+	if bumpK >= 7:
 		andGevknow = 1
 		gs 'stat'