[fixed] willpower seeding qwBarEncounters.qsrc

locations/qwBarEncounters.qsrc

@@ -221,16 +221,22 @@ if $ARGS[0] = '':
 						'You look at him suspiciously. "Like what?"'
 						'His smile may be friendly, but his casual tone doesn''t match his suggestion: "If you win, you get the money. And if I win, you give me a blowjob. Sound fair?"'
 
-						if city_slut < 75 and (pcs_dom >= 20 or (pcs_inhib < 40 and alko < 5) or pcs_horny < 30):
-							act 'Not that kind of girl':
-								cla
-								*nl
-								pcs_dom += 1
-								'You shake your head and glare at him.'
-								'"Do I look like some sort of cheap whore to you?!"'
-								'You don''t even give him time to respond - you simply turn on your heel and walk back to the main room.'
 
-								act 'Return to the bar': gt 'qwBarPolet', 'bar'
+						if city_slut < 75:
+							gs 'willpower', 'bj', 'resist'
+							if will_cost <= pcs_willpwr:
+								act 'Not that kind of girl (<<will_cost>> Willpower)':
+									cla
+									*nl
+									gs 'willpower', 'pay', 'resist'
+									'You shake your head and glare at him.'
+									'"Do I look like some sort of cheap whore to you?!"'
+									'You don''t even give him time to respond - you simply turn on your heel and walk back to the main room.'
+
+									act 'Return to the bar': gt 'qwBarPolet', 'bar'
+								end
+							else
+								act 'Not that kind of girl (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 							end
 						end
 
@@ -299,13 +305,19 @@ if $ARGS[0] = '':
 			act 'He might have a point - Finish your drink': gt 'qwBarPolet', 'bar'
 		end
 
-		if pcs_horny >= 70 or sub >= 20 or alko >= 5 or exhibitionist_lvl > 1:
+		!! Note this action was influenced by exhibition level too.
+		!! May be some way to add that in later using willpower?
+		gs 'willpower', 'sex', 'resist'
+		if will_cost <= pcs_willpwr:
 			act 'Grind back against him':
 				cla
 				*clr
+				gs 'willpower', 'pay', 'resist'
 				'<center><video autoplay loop src="images/locations/city/industrial/bar/sex/bar/bargrind2.mp4"></video></center>'
 				gs 'boyStat', $npclastgenerated
-				'Maybe it''s the alcohol, ' + iif(sub>=20,'maybe you are','or maybe you are just') + ' really horny ' + iif(sub>=20,'or maybe you are just too submissive to refuse him ','') + '- whatever the case may be, you don''t really want the stranger to stop. Quite the opposite, in fact.'
+				!!sub/dom dialog needs fixing
+				!!'Maybe it''s the alcohol, ' + iif(sub>=20,'maybe you are','or maybe you are just') + ' really horny ' + iif(sub>=20,'or maybe you are just too submissive to refuse him ','') + '- whatever the case may be, you don''t really want the stranger to stop. Quite the opposite, in fact.'
+				'Maybe it''s the alcohol, or maybe you are just really horny - whatever the case may be, you don''t really want the stranger to stop. Quite the opposite, in fact.'
 				*nl
 				'You grind your butt back against him and that is all the incentive he needs: After a little more grinding, he reaches around and worms his fingers into your bottoms. You are shocked and want to say something but just when you open your mouth, he finds your clit and your protest turns into a soft moan. You can feel his erection growing against your butt and the whole situation is getting you really excited.'
 				gs 'arousal', 'vaginal_finger', 5, 'sub', 'exhibitionism'
@@ -321,7 +333,6 @@ if $ARGS[0] = '':
 					gs 'arousal', 'bj', 5, 'sub', 'exhibitionism', 'deepthroat', 'rough'
 					gs 'arousal', 'masturbate', 5, 'sub', 'exhibitionism'
 					minut -= 5
-					pcs_dom -= 2
 					gs 'stat'
 					$orgasm_txt = 'Your fingers on your needy cunt and the sensation of blowing a stranger in the middle of a bar prove too much to you, and you cum, shaking all over, your moans muffled by his <<$dick_girth>> cock.'
 
@@ -344,10 +355,12 @@ if $ARGS[0] = '':
 					end
 				end
 
-				if pcs_dom > 20:
+				gs 'willpower', 'cuni', 'force'
+				if will_cost <= pcs_willpwr:
 					act 'Take charge':
 						cla
 						*clr
+						gs 'willpower', 'pay', 'force'
 						'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/bar/bargrindd1.jpg"></center>'
 						gs 'boyStat', $npclastgenerated
 						'Once you are good and wet, you pull his hands away, sit down on a bar stool, move your clothes out of the way enough to reveal your pussy and spread your legs as you pull him close. You gently push down on his shoulders and he gets the idea, smiles and goes down to his knees to lick your pussy.'
@@ -355,13 +368,11 @@ if $ARGS[0] = '':
 						'He keep going, working your sex tirelessly until an orgasm rocks your body and you have to bite down on your lip to keep yourself from moaning out loud. As the shuddering subsides, he stands up with a shit-eating grin and his hands move to unbutton his pants.'
 						gs 'arousal', 'cuni', 5, 'dom', 'exhibitionism'
 						$orgasm_or = 'yes'
-						pcs_dom += 1
 						gs 'stat'
 
 						act 'Got to leave':
 							cla
 							*nl
-							pcs_dom += 2
 							'You put your hands on his and stop him from undoing his pants further. You lean in to kiss his cheek, then whisper. "Thank you for this... but I gotta go. Have a nice evening."'
 							'Then, before he has even had time to process what you just said, you pull away and walk off. You can hear him calling you a "bitch" among other things, but you don''t care - you got yours, and that puts a spring in your step as you leave the bar.'
 							gs 'arousal', 'end'
@@ -378,7 +389,6 @@ if $ARGS[0] = '':
 							gs 'arousal', 'bj', 5, 'sub', 'exhibitionism', 'deepthroat', 'rough'
 							gs 'arousal', 'masturbate', 5, 'sub', 'exhibitionism'
 							minut -= 5
-							pcs_dom -= 1
 							gs 'stat'
 							$orgasm_txt = 'Your fingers on your needy cunt and the sensation of blowing a stranger in the middle of a bar prove too much to you, and you cum, shaking all over, your moans muffled by his <<$dick_girth>> cock.'
 
@@ -402,6 +412,8 @@ if $ARGS[0] = '':
 							end
 						end
 					end
+				else
+					act 'Take charge (<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