Explorar o código

[fixes] willpower updates

julzor %!s(int64=5) %!d(string=hai) anos
pai
achega
a37c008725

+ 24 - 24
locations/anushapt.qsrc

@@ -147,14 +147,14 @@ if $ARGS[0] = 'home':
 				'<center><img src="images/locations/pavlovsk/resident/apartment/anushapt/anushroom/listen.jpg"></center>'
 				'As you get down to Anushka''s bedroom door you can hear voices inside. One of them her and the others obviously a guy. You can''t quite make out what they are saying. You lean against the door to hear better and you hear the guy say. "Turn around and let me see that fine ass of yours."'
 				
-				gs 'willpower', 'exhib'
+				gs 'willpower', 'exhib', 'resist'
 				if will_cost <= pcs_willpwr:
 					act 'Leave them in peace and leave the apartment (<<will_cost>> Willpower)': 
-						gs 'willpower', 'resist'
+						gs 'willpower', 'pay', 'resist'
 						gt 'pavComplex','start'
 					end
 				else
-					'You don''t have enough willpower to resist the temptation.'
+					act 'Leave them in peace and leave the apartment (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
 				act 'Take a peek':
 					*clr & cla
@@ -190,14 +190,14 @@ if $ARGS[0] = 'home':
 				AnushkaLoc = 2
 				'<center><img src="images/locations/pavlovsk/resident/apartment/anushapt/anushroom/listen.jpg"></center>'
 				'As you get down to Anushka''s bedroom door you can hear voices inside. One of them her and the others obviously a guy. You can''t quite make out what they are saying. You lean against the door to hear better and you hear the guy say. "You wanna fuck?"'
-				gs 'willpower', 'exhib'
+				gs 'willpower', 'exhib', 'resist'
 				if will_cost <= pcs_willpwr:
 					act 'Leave them in peace and leave the apartment (<<will_cost>> Willpower)':
-						gs 'willpower', 'resist'
+						gs 'willpower', 'pay', 'resist'
 						gt 'pavComplex','start'
 					end
 				else
-					'You don''t have enough willpower to resist the temptation.'
+					act 'Leave them in peace and leave the apartment (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
 				act 'Take a peek':
 					*clr & cla
@@ -230,14 +230,14 @@ if $ARGS[0] = 'home':
 				AnushkaLoc = 2
 				'<center><img src="images/locations/pavlovsk/resident/apartment/anushapt/anushroom/listen.jpg"></center>'
 				'As you get down to Anushka''s bedroom door you can hear voices inside. One of them her and the others obviously a guy. You can''t quite make out what they are saying. You lean against the door to hear better and you hear the guy say. "God your so beautiful."'
-				gs 'willpower', 'exhib'
+				gs 'willpower', 'exhib', 'resist'
 				if will_cost <= pcs_willpwr:
 					act 'Leave them in peace and leave the apartment (<<will_cost>> Willpower)': 
-						gs 'willpower', 'resist'
+						gs 'willpower', 'pay', 'resist'
 						gt 'pavComplex','start'
 					end
 				else
-					'You don''t have enough willpower to resist the temptation.'
+					act 'Leave them in peace and leave the apartment (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
 				act 'Take a peek':
 					*clr & cla
@@ -484,22 +484,22 @@ if $ARGS[0] = 'computer':
 			npc_rel['A144'] += 1
 			'She hit the nail right on the head, and given how open she is about everything, you don''t feel like it''s necessary to lie to her about it; so you nod. "Yeah, I guess I am."'
 			'Anushka''s smile broadens and lust flares up in her eyes. "We could watch some together, if you want..."'
-			act 'You don''t want to':
-				*clr & cla
-				'As appealing as watching porn sounds right now, you''re not in the mood to watch it with her, at least not right now.'
-				'"Nah, I''d really rather do something else right now," you say.'
-				'Anushka shrugs. "Alright, that''s cool." She seems to be rubbing her legs together, though - maybe even the idea of watching porn with you got her a little worked up.'
-				act 'Find something else to do':gt 'anushapt','anushroom'
-			end
-			gs 'willpower', 'exhib'
+			
+			gs 'willpower', 'misc', 'resist', 'hard'
 			if will_cost <= pcs_willpwr:
-				act 'Agree to watch porn (<<will_cost>> Willpower)': 
-					gs 'willpower', 'force'
-					gt 'anushapt','agreeporn'
+				act 'You don''t want to (<<will_cost>> Willpower)':
+					*clr & cla
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					'As appealing as watching porn sounds right now, you''re not in the mood to watch it with her, at least not right now.'
+					'"Nah, I''d really rather do something else right now," you say.'
+					'Anushka shrugs. "Alright, that''s cool." She seems to be rubbing her legs together, though - maybe even the idea of watching porn with you got her a little worked up.'
+					act 'Find something else to do':gt 'anushapt','anushroom'
 				end
 			else
-				'You don''t have enough willpower to refuse.'
+				act 'You don''t want to (<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 to watch porn': gt 'anushapt','agreeporn'
 		end
 	elseif AnushkaCompUse > 0 and AnushkaLoc ! 2:
 		*clr & cla
@@ -1895,11 +1895,11 @@ if $ARGS[0] = 'nushshower':
 				'"Yes when I want to, now go on get out of here." She says while making a shooing motion with one of her hands.'
 				'You know deep down she really doesn''t care, she loves showing off her body to much, but maybe you should give her some privacy.'
 				act 'Go wait for her': gt 'anushapt', 'shower_wait'
-				gs 'willpower', 'exhib'
+				gs 'willpower', 'exhib', 'force'
 				if will_cost <= pcs_willpwr:
 					act 'Show me a little skin (<<will_cost>> Willpower)':
 						*clr & cla
-						gs 'willpower', 'force'
+						gs 'willpower', 'pay', 'force'
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/anushapt/bathroom/photo2.jpg"></center>'
 						'You move around to get in a better spot. "Don''t be like that, show me a little skin. Come on you know you want to." You say in a teasing tone.'
 						'She smiles a bit that quickly turns into a smirk as she turns her back to you and drops off the towel some to show off her back.'
@@ -1955,7 +1955,7 @@ if $ARGS[0] = 'nushshower':
 						end
 					end
 				else
-					'You don''t have enough willpower to refuse.'
+					act 'Show me a little skin (<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

+ 4 - 4
locations/glake.qsrc

@@ -154,14 +154,14 @@ if month >= 5 and month <= 9:
 						'He shakes his head and you can see a slight bulge forming in his pants the more he looks at your naked body. "No sorry, but I might be willing to trade the clothes..." He trails off suggestively and with the way he is looking at you, you have no doubt what he has in mind.'
 						'But it never hurts to see. "What did you have in mind?"'
 						'He grins a bit. "Well how about we get in my car and you let me fuck you and then you can have the clothes."'
-						gs 'willpower', 'sex'
+						gs 'willpower', 'sex', 'resist'
 						if will_cost <= pcs_willpwr:
-							act 'Refuse and run home naked: (<<will_cost>> Willpower)':
-								gs 'willpower', 'resist'
+							act 'Refuse and run home naked (<<will_cost>> Willpower)':
+								gs 'willpower', 'pay', 'resist'
 								gt 'glake', 'nude_home'
 							end
 						else
-							'You don''t have enough willpower to refuse.'
+							act 'Refuse and run home naked (<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 to have sex': gt 'glake', 'car_sex'
 					end

+ 2 - 2
locations/gschool_events.qsrc

@@ -909,8 +909,8 @@ if $ARGS[0] = 'break_events':
 				act 'Not today (<<will_cost>> Willpower)':
 					*clr & cla
 					gs 'fame', 'pav', 'sex', 1
-					gs 'willpower', 'pay', 'sex'
-					gs 'willpower', 'resist'
+					gs 'willpower', 'sex', 'resist'
+					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/lunch/hallflirt.jpg"></center>'
 					'You pause for a bit, acting like you are giving his suggestion some serious thought, just to fuck with him, until you realize you''re not pretending: you really are considering it! Damn, maybe you are a bit of a slut. After a few moments you shake your head. "You seem nice but I hardly know you, maybe some other time, but now I need to run. Talk to you later." With that you hurry off leaving him unsure if this was a good or bad thing.'

+ 12 - 12
locations/gschool_office.qsrc

@@ -291,11 +291,11 @@ if $ARGS[0] = 'no_plugin_nude':
 		*nl
 		'You stop when you realize how quickly your headmaster''s face darkens. A blind man could tell she is angry with you, even without the shrill tone of her voice: "I don''t care if you don''t like wearing them, you will not walk around my school like some whore. Do you understand me?"'
 		
-		gs 'willpower', 'misc'
+		gs 'willpower', 'misc', 'resist', 'medium'
 		if will_cost <= pcs_willpwr:
-			act '"No" (<<will_cost>> Willpower)':
+			act 'No (<<will_cost>> Willpower)':
 				*clr & cla
-				gs 'willpower', 'resist'
+				gs 'willpower', 'pay', 'resist'
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/teacher/aleksandrina/angry.jpg"></center>'
 				'"No, I don''t have to wear them if I don''t want to," you say in a haughty voice; it''s not like she can force you, right?'
@@ -305,10 +305,10 @@ if $ARGS[0] = 'no_plugin_nude':
 				act 'See how she treats a whore': gt 'gschool_office', 'whore'
 			end
 		else
-			'<br>You don''t have enough willpower to say ''No''.'
+			act 'No (<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"':
+		act 'Yes':
 			*clr & cla
 			gs 'pain', 7, 'asscheeks', 'spank'
 			gs 'stat'
@@ -370,11 +370,11 @@ if $ARGS[0] = 'plugin_panties':
 		'"I like the way it feels, it especially helps class pass more quickly."'
 		'Her face darkens and you can tell she is angry with you, even without the shrill tone of her voice. "I don''t care if you like wearing them, you will not walk around my school like some whore. Do you understand me?"'
 		
-		gs 'willpower', 'misc'
+		gs 'willpower', 'misc', 'resist', 'medium'
 		if will_cost <= pcs_willpwr:	
 			act 'No (<<will_cost>> Willpower)':
 				*clr & cla
-				gs 'willpower', 'resist'
+				gs 'willpower', 'pay', 'resist'
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/teacher/aleksandrina/angry.jpg"></center>'
 				'"No, I like wearing it and I''m not gonna let you tell me what I can or can''t do," you say in a haughty voice; it''s not like she can force you, right?'
@@ -383,7 +383,7 @@ if $ARGS[0] = 'plugin_panties':
 				act 'See how she treats a whore': gt 'gschool_office', 'whore'
 			end
 		else
-			'<br>You don''t have enough willpower to say ''No''.'
+			act 'No (<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':
@@ -452,11 +452,11 @@ if $ARGS[0] = 'plugin_nude':
 		*nl
 		'You stop when you realize how quickly your headmaster''s face darkens. A blind man could tell she is angry with you, even without the shrill tone of her voice: "I don''t care if you don''t like wearing them, you will not walk around my school like some whore. Do you understand me?"'
 		
-		gs 'willpower', 'misc'
+		gs 'willpower', 'misc', 'resist', 'medium'
 		if will_cost <= pcs_willpwr:
-			act 'No (<<will_cost>>)':
+			act 'No (<<will_cost>> Willpower)':
 				*clr & cla
-				gs 'willpower', 'resist'
+				gs 'willpower', 'pay', 'resist'
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/teacher/aleksandrina/angry.jpg"></center>'
 				'"No, I''m not gonna let you tell me what I can or can''t wear," you say in a haughty voice; it''s not like she can force you, right?'
@@ -466,7 +466,7 @@ if $ARGS[0] = 'plugin_nude':
 				act 'See how she treats a whore': gt 'gschool_office', 'whore'
 			end
 		else
-			'<br>You don''t have enough willpower to say ''No''.'
+			act 'No (<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':

+ 1 - 1
locations/gschool_sex.qsrc

@@ -376,7 +376,7 @@ if $ARGS[0] = 'Anush_private2':
 			if will_cost <= pcs_willpwr:
 				act 'Push her away (<<will_cost>> willpower)':
 					*clr & cla
-					gs 'willpower', 'resist'
+					gs 'willpower', 'pay', 'resist'
 					gs 'arousal', 'end'
 					gs 'stat'
 					npc_rel['A144'] -= 2

+ 16 - 16
locations/natbelapt.qsrc

@@ -473,51 +473,51 @@ if $ARGS[0] = 'natroom':
 			if NatashaQW > 1 and lernHome ! 0: act 'Make her do your homework': gs 'natbelapt', 'make_her_do_homework'
 
 			if NatashaQW >= 5:
-				gs 'willpower', 'exhib'
+				gs 'willpower', 'exhib', 'force'
 				if will_cost <= pcs_willpwr:
 					act 'Make her lick your feet (<<will_cost>> Willpower)':
-						gs 'willpower', 'exhib'
-						gs 'willpower', 'force'
+						gs 'willpower', 'exhib', 'force'
+						gs 'willpower', 'pay', 'force'
 						gt 'natbelapt', 'lick_feet'
 					end
 				else
-					'You don''t have enough willpower to make her lick your feet.'
+					act 'Make her lick your feet (<<will_cost>> Willpower)': 2
 				end
 			end
 			if NatashaQW >= 6:
-				gs 'willpower', 'exhib'
+				gs 'willpower', 'exhib', 'force'
 				if will_cost <= pcs_willpwr:
 					act 'Spit in face (<<will_cost>> Willpower)':
-						gs 'willpower', 'exhib'
-						gs 'willpower', 'force'
+						gs 'willpower', 'exhib', 'force'
+						gs 'willpower', 'pay', 'force'
 						gt 'natbelapt', 'spit_face'
 					end
 				else
-					'You don''t have enough willpower to spit in her face.'
+					act 'Spit in face (<<will_cost>> Willpower)': 2
 				end
 			end
 			if NatashaQW >= 7:
-				gs 'willpower', 'sex'
+				gs 'willpower', 'sex', 'force'
 				if will_cost <= pcs_willpwr:
 					act 'Make her lick your pussy (<<will_cost>> Willpower)':
-						gs 'willpower', 'sex'
-						gs 'willpower', 'force'
+						gs 'willpower', 'sex', 'force'
+						gs 'willpower', 'pay', 'force'
 						gt 'natbelapt', 'lick_pussy'
 					end
 				else
-					'You don''t have enough willpower to make her lick your pussy.'
+					act 'Make her lick your pussy (<<will_cost>> Willpower)': 2
 				end
 			end
 			if NatashaQW >= 8 and hour >= 18 and hour < 21 and natsub >= 6 and natfuckday < daystart and kolkawantsnat = 1:
-				gs 'willpower', 'sex'
+				gs 'willpower', 'sex', 'force'
 				if will_cost <= pcs_willpwr:
 					act 'Make her fuck Kolka (<<will_cost>> Willpower)':
-						gs 'willpower', 'sex'
-						gs 'willpower', 'force'
+						gs 'willpower', 'sex', 'force'
+						gs 'willpower', 'pay', 'force'
 						gt 'natkolev', 'kolkabj'
 					end
 				else
-					'You don''t have enough willpower to make her fuck Kolka.'
+					act 'Make her fuck Kolka (<<will_cost>> Willpower)': 2
 				end
 			end
 !! nutluck pulled this for now

+ 51 - 51
locations/pod_ezd.qsrc

@@ -377,11 +377,11 @@ if $ARGS[0] = 'floor2_events':
 			if rand(0,1) = 1:
 				'You have a chat with uncle Misha, as he smokes his cigarette. You can tell he''s undressing you in his mind, but in a way you find it kind of flattering. As he stubs out his cigarette and puffs away the last bits of smoke, he asks:'
 				'"Say, <<$pcs_nickname>>, would you like to make an old man feel good? I could use a quick blowjob... there''ll be 50 <b>₽</b> in it for you, for your troubles."'
-				gs 'willpower', 'bj'
+				gs 'willpower', 'bj', 'resist'
 				if will_cost <= pcs_willpwr:
 					act 'Refuse (<<will_cost>> Willpower)':
 						*clr & cla
-						gs 'willpower', 'resist'
+						gs 'willpower', 'pay', 'resist'
 						minut +=2
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/mishasmoke.jpg"></center>'
@@ -390,7 +390,7 @@ if $ARGS[0] = 'floor2_events':
 						act 'Say goodbye': gt 'pod_ezd', 'etaj_2'
 					end
 				else
-					'You don''t have enough willpower to refuse.'
+					act 'Refuse (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
 				act 'Suck him off': gt 'pod_ezd', 'misha_bj'
 			else
@@ -747,14 +747,14 @@ if $ARGS[0] = 'boys_smoke':
 			'As you smoke the cigarette, you hear the boys whisper among themselves. "That''s <<$pcs_nickname>>! I heard she''s a '+func('gopsex','hide','gg_whore_text')+'. From what I''ve been told she''ll do just about anything if the price is right, let''s see if she''ll make us a deal."'
 			'One of the guys walks close to you, and gestures for you to lean your head closer to his. When you do, he pulls all of his money out of his pocket. He counts the crumpled bills and offers them to you, whispering, "Is <<rnd_money_sex>> <b>₽</b> enough for two?"'
 			'He never mentions what exactly he wants you to do with him and his friend.'
-			gs 'willpower', 'prostitution'
+			gs 'willpower', 'prostitution', 'resist'
 			if will_cost <= pcs_willpwr:
 				act 'Refuse and get away from them (<<will_cost>> Willpower)':
-					gs 'willpower', 'resist'
+					gs 'willpower', 'pay', 'resist'
 					gt 'pod_ezd', $smoke_loc
 				end
 			else
-				'You don''t have enough willpower to refuse.'
+				act 'Refuse and get away from 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 'Accept and fuck them':
 				money += '<<rnd_money_sex>>'
@@ -768,12 +768,12 @@ if $ARGS[0] = 'boys_smoke':
 				gs 'fame', 'pav', 'sex', 2
 				gt 'pod_ezd','sex_ev<<rand(1,3)>>'
 			end
-			gs 'willpower', 'gangbang'
+			gs 'willpower', 'gangbang', 'resist'
 			if will_cost <= pcs_willpwr:
 				act 'Get angry and tell them off (<<will_cost>> Willpower)':
 					*clr & cla
 					minut +=2
-					gs 'willpower', 'resist'
+					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/megera.jpg"></center>'
 					'Tired of always having to defend yourself, you take all your anger out on the guys. "Are you kidding me!? Did all the blood drain from your brains and into your groins or something?"'
@@ -782,7 +782,7 @@ if $ARGS[0] = 'boys_smoke':
 					act 'Leave': gt 'pod_ezd', $smoke_loc
 				end
 			else
-				'You don''t have enough willpower to refuse.'
+				act 'Get angry and tell 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
 		else
 			'You gladly accept and spend the next 5 minutes smoking a cigarette with them, talking about trivial things.'
@@ -799,14 +799,14 @@ if $ARGS[0] = 'boys_smoke':
 			'You hear the boys whisper among themselves. "That''s <<$pcs_nickname>>! I heard she''s a '+func('gopsex','hide','gg_whore_text')+'. From what I''ve been told she''ll do just about anything if the price is right, let''s see if she''ll make us a deal."'
 			'One of the guys walks close to you, and gestures for you to lean your head closer to his. When you do, he pulls all of his money out of his pocket. He counts the crumpled bills and offers them to you, whispering: "Is <<rnd_money_sex>> <b>₽</b> enough for two?"'
 			'He never mentions what exactly he wants you to do with him and his friend.'
-			gs 'willpower', 'prostitution'
+			gs 'willpower', 'prostitution', 'resist'
 			if will_cost <= pcs_willpwr:
 				act 'Refuse and get away from them (<<will_cost>> Willpower)':
-					gs 'willpower', 'resist'
+					gs 'willpower', 'pay', 'resist'
 					gt 'pod_ezd', $smoke_loc
 				end
 			else
-				'You don''t have enough willpower to refuse.'
+				act 'Refuse and get away from 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 'Accept and fuck them':
 				money += '<<rnd_money_sex>>'
@@ -816,12 +816,12 @@ if $ARGS[0] = 'boys_smoke':
 			end
 		elseif pav_slut >= 125 and pav_sex >= pav_prostitute:
 			'You hear the boys whisper among themselves. "That''s <<$pcs_nickname>>. I heard she''s a total slut. I bet if someone would walk up to her and drop their pants, she would start sucking them off without a second thought."'
-			gs 'willpower', 'gangbang'
+			gs 'willpower', 'gangbang', 'resist'
 			if will_cost <= pcs_willpwr:
 				act 'Get angry and tell them off (<<will_cost>> Willpower)':
 					*clr & cla
 					minut +=2
-					gs 'willpower', 'resist'
+					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/megera.jpg"></center>'
 					'Tired of always having to defend yourself, you take all your anger out on the guys: "Are you kidding me!? Did all the blood drain away from your brains and into your groins or something?"'
@@ -830,7 +830,7 @@ if $ARGS[0] = 'boys_smoke':
 					act 'Leave': gt 'pod_ezd', $smoke_loc
 				end
 			else
-				'You don''t have enough willpower to refuse.'
+				act 'Get angry and tell 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 as they say': gs 'fame', 'pav', 'sex', rand(3,9) & gt 'pod_ezd','sex_ev<<rand(1,3)>>'
 		else
@@ -922,11 +922,11 @@ if $ARGS[0] = 'juliamil':
 							end
 						end
 					end
-					gs 'willpower', 'sex'
+					gs 'willpower', 'cuni', 'force'
 					if will_cost <= pcs_willpwr:
 						act 'Make her lick you instead (<<will_cost>> Willpower)':
 							*clr & cla
-							gs 'willpower', 'force'
+							gs 'willpower', 'pay', 'force'
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/girl/julia/sex/stairs/julia5.jpg"></center>'
 							'You expose your pussy and gently rub a finger over your clit, telling her. "No, you''re going to lick me first."'
@@ -958,7 +958,7 @@ if $ARGS[0] = 'juliamil':
 							end
 						end
 					else
-						'You don''t have enough willpower to force her to lick you instead.'
+						act 'Make her lick you instead (<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
@@ -978,11 +978,11 @@ if $ARGS[0] = 'vasily_smoke':
 		'He idly runs his hand over his groin, and you can see the outline of his hard cock through the fabric of his pants quite clearly.'
 		'You look at him with some doubt. "I don''t know Shulga, people might see."'
 		'He reassures you, "Don''t worry <<$pcs_nickname>>, you''ll be fine. I''ll keep an eye out, and there''s no one here now right? Just take it in your mouth. I know you''re good at it, you can finish me off quickly."'
-		gs 'willpower', 'bj'
+		gs 'willpower', 'bj', 'resist'
 		if will_cost <= pcs_willpwr:
 			act 'Refuse giving him a blowjob (<<will_cost>> Willpower)':
 				*clr & cla
-				gs 'willpower', 'resist'
+				gs 'willpower', 'pay', 'resist'
 				minut +=1
 				gs 'stat'
 				if pav_slut >= 125:
@@ -1006,7 +1006,7 @@ if $ARGS[0] = 'vasily_smoke':
 				end
 			end
 		else
-			'You don''t have enough willpower to refuse.'
+			act 'Refuse giving him a blowjob (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 		act 'Suck him off quickly': gt 'pod_ezd', 'vasily_smoke_bj'
 	else
@@ -1060,11 +1060,11 @@ if $ARGS[0] = 'smoke_danvas':
 		'He idly runs his hand over his groin, and you can see the outline of his hard cock through the fabric of his pants quite clearly.'
 		'You look at him with some doubt: "I don''t know Shulga, people might see."'
 		'He reassures you: "Don''t worry <<$pcs_nickname>>, you''ll be fine. we''ll keep an eye out, and there''s no one here now right? Just take it in your mouth. I know you''re good at it, you can finish me off quickly."'
-		gs 'willpower', 'bj'
+		gs 'willpower', 'bj', 'resist'
 		if will_cost <= pcs_willpwr:
 			act 'Refuse giving him a blowjob (<<will_cost>> Willpower)':
 				*clr & cla
-				gs 'willpower', 'resist'
+				gs 'willpower', 'pay', 'resist'
 				minut +=1
 				gs 'stat'
 				if pav_slut >= 125:
@@ -1097,7 +1097,7 @@ if $ARGS[0] = 'smoke_danvas':
 				end
 			end
 		else
-			'You don''t have enough willpower to refuse.'
+			act 'Refuse giving him a blowjob (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 		act 'Suck him off quickly': gt 'pod_ezd', 'danvas_smoke_bj'
 	else
@@ -1182,18 +1182,18 @@ if $ARGS[0] = 'danvas_smoke_bj':
 					'You leave their cum on your face, which they seem to really enjoy. They put their dicks away and button up their pants. You chat with them for a bit more, with their cum dripping down your face, before they tell you they need to get going and go into Vasily''s apartment.'
 					act 'Leave': gt 'pod_ezd', 'etaj_3'
 				end
-				gs 'willpower', 'humiliation'
+				gs 'willpower', 'humiliation', 'resist'
 				if will_cost <= pcs_willpwr:
 					act 'Clean your face (<<will_cost>> Willpower)':
 						*clr & cla
-						gs 'willpower', 'resist'
+						gs 'willpower', 'pay', 'resist'
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/vassmoke.jpg"></center>'
 						'You clean their cum off your face, while they put their dicks away and button up their pants. You chat with them for a bit more, before they tell you they need to get going and go into Vasily''s apartment.'
 						act 'Leave': gt 'pod_ezd', 'etaj_3'
 					end
 				else
-					'You don''t have enough willpower to refuse.'
+					act 'Clean your face (<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
@@ -1292,13 +1292,13 @@ if $ARGS[0] = 'gopnik_group_chat':
 		'You take a seat next to Lena and Lera. "Hey guys whats up?" You ask them.'
 		'Lera leans over and kisses you on the lips. "Just hanging out and having fun." She slurs obviously she is pretty drunk already, her breath smells like a distillery.'
 		'Vasily offers you one of the beers. "Here <<$pcs_nickname>>."'
-		gs 'willpower', 'drink'
+		gs 'willpower', 'drink', 'resist'
 		if will_cost <= pcs_willpwr:
 			act 'Decline the beer (<<will_cost>> Willpower)':
 				*clr & cla
 				minut += 15
 				grupvalue[4] -= 2
-				gs 'willpower', 'resist'
+				gs 'willpower', 'pay', 'resist'
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/gopniks.jpg"></center>'
 				'You shake your head no. "No thanks, I just wanted to chat."'
@@ -1306,7 +1306,7 @@ if $ARGS[0] = 'gopnik_group_chat':
 				act 'Leave': gt 'pod_ezd', 'etaj_5'
 			end
 		else
-			'You don''t have enough willpower to refuse.'
+			act 'Decline the beer (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 		act 'Take the beer':
 			*clr & cla
@@ -1599,14 +1599,14 @@ if $ARGS[0] = 'sex_ev1':
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/sex_ev1_1.jpg"></center>'
 	'One of the boys is content to just keep smoking, but the other one grows more bold and approaches you. He starts pulling at your clothes with one hand while his other hand starts massaging your ass.'
 	'The other boy who is still smoking grins as he watches his friend pull at your clothes. He says nothing, deciding to see how far they can push you, and simply commands you: "Show us your tits, slut."'
-	gs 'willpower', 'exhib'
+	gs 'willpower', 'exhib', 'resist'
 	if will_cost <= pcs_willpwr:
 		act 'Pull away and leave (<<will_cost>> Willpower)':
-			gs 'willpower', 'resist'
+			gs 'willpower', 'pay', 'resist'
 			gt 'pod_ezd', 'etaj_2'
 		end
 	else
-		'You don''t have enough willpower to refuse.'
+		act 'Pull away 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 'Show them your boobs':
 		*clr & cla
@@ -1615,14 +1615,14 @@ if $ARGS[0] = 'sex_ev1':
 		'This brings an evil grin to his face: "Well well, look at that. You really are a obedient little slut, aren''t you <<$pcs_nickname>>? Now turn your back to my friend and bend over, he''s going to fuck you now."'
 		gs 'arousal', 'flash', 3, 'sub', 'exhibitionism'
 		gs 'stat'
-		gs 'willpower', 'anal'
+		gs 'willpower', 'anal', 'resist'
 		if will_cost <= pcs_willpwr:
 			act 'Pull away and leave (<<will_cost>> Willpower)':
-				gs 'willpower', 'resist'
+				gs 'willpower', 'pay', 'resist'
 				gt 'pod_ezd', 'etaj_2'
 			end
 		else
-			'You don''t have enough willpower to refuse.'
+			act 'Pull away 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 'Continue to obey':
 			*clr & cla
@@ -1681,14 +1681,14 @@ if $ARGS[0] = 'sex_ev1_anal':
 	'He accelerates his thrusting, his balls are slapping against your bare pussy as he brutally fucks your asshole. The sounds must be clearly audible throughout the stairwell, you just hope no one comes to investigate and find you getting violently sodomized. You do your best to stifle your groans and moans of pain and pleasure by biting your lips.'
 	gs 'gopsex', 'gg_sex_orgasm'
 	act 'Say nothing and let keep ripping up your ass': gt 'pod_ezd', 'sex_ev1_anal1'
-	gs 'willpower', 'anal'
+	gs 'willpower', 'anal', 'resist'
 	if will_cost <= pcs_willpwr:
 		act 'Suggest you''ll give them a blowjob instead (<<will_cost>> Willpower)':
 			*clr & cla
 			gs 'arousal', 'bj', 3,'dick[2]','sub'
 			gs 'arousal', 'bj', 3,'dick[1]','sub'
 			minut -= 3
-			gs 'willpower', 'resist'
+			gs 'willpower', 'pay', 'resist'
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/sex_ev1_4.jpg"></center>'
 			'Several thoughts race through your mind as your being brutally assfucked. You quickly dismiss the thoughts of getting away; there''s no way the guys will just let you go now. Your tactic switches to the next-most desirable option: making them cum as quick as possible before anyone comes along and finds you getting assfucked in the stairwell.'
@@ -1703,7 +1703,7 @@ if $ARGS[0] = 'sex_ev1_anal':
 			end
 		end
 	else
-		'You don''t have enough willpower to refuse.'
+		act 'Suggest you''ll give them a blowjob instead (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end
 end
 
@@ -1755,14 +1755,14 @@ if $ARGS[0] = 'sex_ev2':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/sex_ev2_1.jpg"></center>'
 	'One of the boys is content to just keep smoking, but the other one grows more bold and approaches you. He stops in front of you with his arms crossed. He doesn''t look like he''ll take no for an answer when he orders you: "Take off your clothes, slut."'
-	gs 'willpower', 'exhib'
+	gs 'willpower', 'exhib', 'resist'
 	if will_cost <= pcs_willpwr:
 		act 'Pull away and leave (<<will_cost>> Willpower)':
-			gs 'willpower', 'resist'
+			gs 'willpower', 'pay', 'resist'
 			gt 'pod_ezd', 'etaj_2'
 		end
 	else
-		'You don''t have enough willpower to refuse.'
+		act 'Pull away 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 'Do as he says':
 		*clr & cla
@@ -1780,14 +1780,14 @@ if $ARGS[0] = 'sex_ev2':
 			'He grins at your involuntary moans: "I know, slut, I know... you love it when guys play with your tits. Don''t worry, we''ll take good care of you."'
 			'The older guy of the two looks at his younger friend and tells him: "<<$boydesc[2]>>, tell her to suck us both. Don''t worry, she''ll do it."'
 			'The younger guy hesitates for a moment, but then decides to listen to his friend. He walks over to you and pulls his <<dick[2]>>cm <<$dick_girth[2]>> dick out of his pants as he tells you: "Slut, get on your knees and start sucking my dick!"'
-			gs 'willpower', 'bj'
+			gs 'willpower', 'bj', 'resist'
 			if will_cost <= pcs_willpwr:
 				act 'Pull away and leave (<<will_cost>> Willpower)':
-					gs 'willpower', 'resist'
+					gs 'willpower', 'pay', 'resist'
 					gt 'pod_ezd', 'etaj_2'
 				end
 			else
-				'You don''t have enough willpower to refuse.'
+				act 'Pull away 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 'Suck their dick':
 				*clr & cla
@@ -1861,14 +1861,14 @@ if $ARGS[0] = 'sex_ev3':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/sex_ev3_1.jpg"></center>'
 	'One of the boys smirks at you, with an impatient look on his face: "What are you waiting for, whore? Show us your tits!"'
-	gs 'willpower', 'exhib'
+	gs 'willpower', 'exhib', 'resist'
 	if will_cost <= pcs_willpwr:
 		act 'Pull away and leave (<<will_cost>> Willpower)':
-			gs 'willpower', 'resist'
+			gs 'willpower', 'pay', 'resist'
 			gt 'pod_ezd', 'etaj_2'
 		end
 	else
-		'You don''t have enough willpower to refuse.'
+		act 'Pull away 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 'Show them your tits':
 		*clr & cla
@@ -1877,14 +1877,14 @@ if $ARGS[0] = 'sex_ev3':
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/stairs/event/sex/sex_ev3_2.jpg"></center>'
 		'You quickly pull up your shirt and take your bra off, not wanting to make him any angrier. He reaches and roughly grabs one of your bare breasts, playing with your nipple.'
 		'He continues to roughly squeezes your boobs with both his hands: "That''s more like it, slut. Now strip and show us your ass!"'
-		gs 'willpower', 'exhib'
+		gs 'willpower', 'exhib', 'resist'
 		if will_cost <= pcs_willpwr:
 			act 'Pull away and leave (<<will_cost>> Willpower)':
-				gs 'willpower', 'resist'
+				gs 'willpower', 'pay', 'resist'
 				gt 'pod_ezd', 'etaj_2'
 			end
 		else
-			'You don''t have enough willpower to refuse.'
+			act 'Pull away 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 'Strip naked for them':
 			*clr & cla

+ 8 - 4
locations/succubus.qsrc

@@ -19,10 +19,11 @@ if $ARGS[0] = 'init':
 		act 'Try to control your urges':
 			cla
 			'You try to contain <<$sucself1>>...'
-			gs 'willpower', 'misc'
+			gs 'willpower', 'misc', 'resist', 'easy'
 			will_cost = will_cost * succublvl
 			if will_cost <= pcs_willpwr:
-				gs 'willpower', 'resist'
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
 				'And you''re successful, <<$sucself1>> returns to your core.'
 				act 'Continue': scpopt = 2 & gt $sclocrt, $scargrt
 			else
@@ -66,8 +67,11 @@ if $ARGS[0] = 'firsttime':
 		act 'Push it back down':
 			cla
 			'You try to contain <<$sucself1>>...'
-			if pcs_willpwr >= rand(20,40) + (40 * succublvl):
-				!!the willpower check values are based on a willpowermax of 200
+			gs 'willpower', 'misc', 'resist', 'easy'
+			will_cost = will_cost * succublvl
+			if will_cost <= pcs_willpwr:
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
 				'And you''re successful, <<$sucself1>> returns to your core.'
 				act 'Continue': scpopt = 2 & gt $sclocrt, $scargrt
 			else