فهرست منبع

[fixed] willpower seeding qwBarBilliard.qsrc

oldentree 5 سال پیش
والد
کامیت
ca566987f4
1فایلهای تغییر یافته به همراه32 افزوده شده و 18 حذف شده
  1. 32 18
      locations/qwBarBilliard.qsrc

+ 32 - 18
locations/qwBarBilliard.qsrc

@@ -90,16 +90,22 @@ if $ARGS[0] = 'billiard_ev1':
 					'You look at him suspiciously. "Like what?"'
 					'He gives you a relaxed, friendly smile. "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.'
+					!!if city_slut < 75 and (pcs_dom >= 20 or (pcs_inhib < 40 and alko < 5) or pcs_horny < 30):
+					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'
+								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
 
@@ -238,7 +244,9 @@ if $ARGS[0] = 'billiard_ev1':
 
 						else
 							npc_rel['A216'] -= 1
-							'"You don''t have to offer me money for that," you say ' + iif(pcs_dom<20,'shyly','confidently') + ' and put your hand on his crotch.'
+							!!'"You don''t have to offer me money for that," you say ' + iif(pcs_dom<20,'shyly','confidently') + ' and put your hand on his crotch.'
+							!!sub/dom dialog needs fixing
+							'"You don''t have to offer me money for that," you say and put your hand on his crotch.'
 							'"I know that. But," he seems to be having trouble focusing on what he wants to say, "<<$pcs_firstname>>, not here, not now."'
 							'For a moment, you wonder how far he would go. Reluctant as he is, you doubt that he''d go as far as screwing you over the billiard table while there are people in the bar. He seems to be on the verge of agreeing to a blowjob, though, if you are bold or horny enough to push him...'
 
@@ -254,13 +262,17 @@ if $ARGS[0] = 'billiard_ev1':
 								act 'Return to the bar': gt 'qwBarPolet', 'bar'
 							end
 
-							if pcs_dom >= 30 and exhibitionist_lvl > 1:
-								$martinpos = 'But I want to'
-							elseif pcs_horny >= 80 and pcs_inhib >= 30:
-								$martinpos = 'I''ll do it if you want me to'
-							end
-
-							if (pcs_horny >= 80 and exhibitionist_lvl > 0) or (pcs_dom >= 30 and exhibitionist_lvl > 1):
+							!!sub/dom dialog needs fixing: action name depends on pcs_dom
+							!!if pcs_dom >= 30 and exhibitionist_lvl > 1:
+								!!$martinpos = 'But I want to'
+							!!elseif pcs_horny >= 80 and pcs_inhib >= 30:
+								!!$martinpos = 'I''ll do it if you want me to'
+							!!end
+							$martinpos = 'I''ll do it if you want me to'
+
+							gs 'willpower', 'bj', 'force'
+							!!if (pcs_horny >= 80 and exhibitionist_lvl > 0) or (pcs_dom >= 30 and exhibitionist_lvl > 1):
+							if will_cost <= pcs_willpwr:
 								act '<<$martinpos>>':
 									*clr & cla
 									'<center><img <<$set_imgh>> src="images/locations/city/industrial/bar/sex/pool/poolm1.jpg"></center>'
@@ -275,7 +287,9 @@ if $ARGS[0] = 'billiard_ev1':
 									end
 									'"Then do it. Suck my dick."'
 									*nl
-									'Smiling ' + iif(pcs_dom>=30,'seductively','shyly') + ', you get down on your knees, pulling his pants down as you go. You know full well that there''s a room''s worth of potential audience waiting on the other side of the curtain, so you don''t waste any time: After a single teasing lick around the tip of his cock, you ' + iif(pcs_hairlng>81,'brush a particularly annoying strand of your <<$pcdesc_hairobjectwordy>> out of your face','fish a rogue hair out of your mouth') + ' and take his <<dick>>cm <<$dick_girth>> dick into your mouth.'
+									!!sub/dom dialog needs fixing
+									!!'Smiling ' + iif(pcs_dom>=30,'seductively','shyly') + ', you get down on your knees, pulling his pants down as you go. You know full well that there''s a room''s worth of potential audience waiting on the other side of the curtain, so you don''t waste any time: After a single teasing lick around the tip of his cock, you ' + iif(pcs_hairlng>81,'brush a particularly annoying strand of your <<$pcdesc_hairobjectwordy>> out of your face','fish a rogue hair out of your mouth') + ' and take his <<dick>>cm <<$dick_girth>> dick into your mouth.'
+									'Smiling, you get down on your knees, pulling his pants down as you go. You know full well that there''s a room''s worth of potential audience waiting on the other side of the curtain, so you don''t waste any time: After a single teasing lick around the tip of his cock, you ' + iif(pcs_hairlng>81,'brush a particularly annoying strand of your <<$pcdesc_hairobjectwordy>> out of your face','fish a rogue hair out of your mouth') + ' and take his <<dick>>cm <<$dick_girth>> dick into your mouth.'
 									'You bob your head '+ iif(stat['bj']>20,'confidently','reluctantly, still trying to figure blowjobs out') + iif(stat['bj']>40,' and with wild abandon','') + ' and run your <<$pcdesc_tongue>> around it to stimulate him as much as you can.'
 									*nl
 									'You''re not sure if the prospect of getting caught here with a cock in your mouth terrifies or excites you more, but you don''t really feel the need to find out which it is.'