Browse Source

[added] more willpower seeded

Blatte 5 years ago
parent
commit
a9068d7e3a
4 changed files with 158 additions and 118 deletions
  1. 0 9
      locations/RimmaSexQW.qsrc
  2. 81 71
      locations/RynokHoz.qsrc
  3. 12 2
      locations/restoran.qsrc
  4. 65 36
      locations/rinwork.qsrc

+ 0 - 9
locations/RimmaSexQW.qsrc

@@ -40,7 +40,6 @@ $rimmasexdi = {
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
 		act 'Further':
-			cls
 			cls
 			gs 'stat'
 			$ImageNeededPlacholder
@@ -63,7 +62,6 @@ $rimmasexdi = {
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
 		act 'Further':
-			cls
 			cls
 			gs 'stat'
 			$ImageNeededPlacholder
@@ -114,7 +112,6 @@ $rimmasexdi = {
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
 		act 'Further':
-			cls
 			cls
 			pcs_ass += 1
 			pcs_vag += 1
@@ -139,10 +136,7 @@ $rimmasexdi = {
 		gs 'stat'
 		act 'Further':
 			cls
-			cls
-			minut += 30
 			pcs_ass += 1
-			SUB += 2
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/beast/zoo/rimma18.jpg"></center>'
 			'Rima bends you over doggystyle and you feel the tip of her strap-on resting against your anus as she pulls the bottle of lube out of her purse. You groan and try to relax, preparing yourself mentally as she spreads the cool liquid around and inside your puckered hole, but even after all the things you''ve done with Rima, taking this gigantic strap-on up your ass is not an easy feat.' 
@@ -163,7 +157,6 @@ $rimmasexdi = {
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
 		act 'Further':
-			cls
 			cls
 			pcs_vag += 1
 			gs 'stat'
@@ -186,7 +179,6 @@ $rimmasexdi = {
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
 		act 'Further':
-			cls
 			cls
 			pcs_vag += 1
 			gs 'stat'
@@ -209,7 +201,6 @@ $rimmasexdi = {
 		gs 'arousal', 'bj', 10, 'sub', 'lesbian'
 		gs 'stat'
 		act 'Further':
-			cls
 			cls
 			pcs_vag += 1
 			gs 'stat'

+ 81 - 71
locations/RynokHoz.qsrc

@@ -82,53 +82,57 @@ if $ARGS[0] = 'the_beginning':
 				act 'Tell them no':
 					cla
 					money += 2000
-					
 					palevorin = 2
-					
 					'With your face red with shame, you shake your head and say quietly "No." The other two say something to each other and then sit down to watch as Artur fucks you. Unable to do anything about it, you try to ignore them. Though it is hard as they keep talking to each other.'
 					'After some time, he pulls out of you and you feel hot wet spurts of cum landing all over your ass and lower back. Once he is done cumming he wipes his dick off on your ass and gets off you.'
-				    'Once Artur has finished you get up and start to gather up your things, the other two laugh and talk more, staring at your naked body. You get dressed as quickly as you can. Artur writes you a premium for the amount of 2,000 <b>₽</b>, as you take the money Artur says to you quietly. "It is alright I will deal with them." You look at him a moment, nod and then leave.'
-
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Go home':gt 'street'
-				end
+					'Once Artur has finished you get up and start to gather up your things, the other two laugh and talk more, staring at your naked body. You get dressed as quickly as you can. Artur writes you a premium for the amount of 2,000 <b>₽</b>, as you take the money Artur says to you quietly. "It is alright I will deal with them." You look at him a moment, nod and then leave.'
 
-				act 'Agree to gangbang':
-					cla
-					palevorin = 4
-
-					if abdulasex = 0:abdulasex = 1 & guy += 1
-					if hasansex = 0:hasansex = 1 & guy += 1
-					
-					pcs_vag += 1
-					swallow +=1
-					gang += 1
-					gs 'boyStat', 'A91'
-					spafinloc = 4
-					gs 'cum_manage'
-					gs 'boyStat', 'A92'
-					spafinloc = 12
-					gs 'cum_manage'
-					
-					money += 5000
-					'<center><img <<$set_imgh>> src="images/shared/sex/group/rinkrug.jpg"></center>'
-					'You nod your head yes, the other two laugh and start pulling out their dicks as they head over. The stroke themselves as they wait for Artur to finish. It doesn''t take him long, he pulls out of you and you feel hot wet spurts of cum landing all over your ass and lower back. Once he is done cumming he wipes his dick off on your ass and gets off you.'
-					'As soon as Artur gets off you, Adbul moves behind your and pulls your up by your hips till you are on all fours. He wastes no time and plunges his <<dick>>cm <<$dick_girth>> dick into your pussy. You notice he was not blessed by nature almost at once. But that doesn''t seem to bother him in the slightest as he fucks you hard and fast, constantly slapping your ass cheeks. As he comments to the others and laughs.'
-					
-					'Meanwhile Hasan kneeled down in front of you and slaps his <<dick>>cm <<$dick_girth>> dick against you face and keeps slapping it hard against your cheek until you open up your mouth. As soon as your mouth opens he shoves his cock in your mouth, holding your head he fucks your mouth and into your throat. Not seeming to care if you are gagging or not, though he is careful to make sure to let you breath.'
-					'As the two guys spit-roast you, Artur gets dressed and then takes a seat. He drinks as he watches you getting fucked by the other two.'
-					'Finally Abdul pulls out and spurts his load all over your ass and lower back. His sperm adding to the mess Artur already spewed on you. A few moments latter Hasan groans and shots his load in your mouth. As soon as they have both shot their load, they get up, say something to Artur as they put their dicks away and then they leave with out a further word.'
-					'Once they are gone, Artur says. "So you like cock do you? Well I can use that, it will be very useful to my business. Here this is a bonus." With that he gets up and walks out, leaving you a bonus of 5,000 <b>₽</b>.'
-
-					gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
-					gs 'arousal', 'vaginal', 20, 'sub', 'rough', 'group'
 					gs 'arousal', 'end'
 					gs 'stat'
-					
 					act 'Go home':gt 'street'
 				end
-			end
+								
+				gs 'willpower', 'gangbang', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Agree to gangbang (<<will_cost>> Willpower)':
+						cla
+						palevorin = 4
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						if abdulasex = 0:abdulasex = 1 & guy += 1
+						if hasansex = 0:hasansex = 1 & guy += 1
+						
+						pcs_vag += 1
+						swallow +=1
+						gang += 1
+						gs 'boyStat', 'A91'
+						spafinloc = 4
+						gs 'cum_manage'
+						gs 'boyStat', 'A92'
+						spafinloc = 12
+						gs 'cum_manage'
+						
+						money += 5000
+						'<center><img <<$set_imgh>> src="images/shared/sex/group/rinkrug.jpg"></center>'
+						'You nod your head yes, the other two laugh and start pulling out their dicks as they head over. The stroke themselves as they wait for Artur to finish. It doesn''t take him long, he pulls out of you and you feel hot wet spurts of cum landing all over your ass and lower back. Once he is done cumming he wipes his dick off on your ass and gets off you.'
+						'As soon as Artur gets off you, Adbul moves behind your and pulls your up by your hips till you are on all fours. He wastes no time and plunges his <<dick>>cm <<$dick_girth>> dick into your pussy. You notice he was not blessed by nature almost at once. But that doesn''t seem to bother him in the slightest as he fucks you hard and fast, constantly slapping your ass cheeks. As he comments to the others and laughs.'
+						
+						'Meanwhile Hasan kneeled down in front of you and slaps his <<dick>>cm <<$dick_girth>> dick against you face and keeps slapping it hard against your cheek until you open up your mouth. As soon as your mouth opens he shoves his cock in your mouth, holding your head he fucks your mouth and into your throat. Not seeming to care if you are gagging or not, though he is careful to make sure to let you breath.'
+						'As the two guys spit-roast you, Artur gets dressed and then takes a seat. He drinks as he watches you getting fucked by the other two.'
+						'Finally Abdul pulls out and spurts his load all over your ass and lower back. His sperm adding to the mess Artur already spewed on you. A few moments latter Hasan groans and shots his load in your mouth. As soon as they have both shot their load, they get up, say something to Artur as they put their dicks away and then they leave with out a further word.'
+						'Once they are gone, Artur says. "So you like cock do you? Well I can use that, it will be very useful to my business. Here this is a bonus." With that he gets up and walks out, leaving you a bonus of 5,000 <b>₽</b>.'
+
+						gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
+						gs 'arousal', 'vaginal', 20, 'sub', 'rough', 'group'
+						minut -= 20
+						gs 'arousal', 'end'
+						gs 'stat'
+						
+						act 'Go home':gt 'street'
+					end
+				else
+					act 'Agree to gangbang (<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 'Suck':
@@ -160,51 +164,56 @@ if $ARGS[0] = 'the_beginning':
 				gs 'arousal', 'end'
 				gs 'stat'
 				act 'Go home':gt 'street'
+			
 			elseif gbrand >= 95 and palevorin = 1:
 			
                 'After some time, he pulls his dick mostly out of your mouth. Only leaving in the head and with in moments you feel and taste his sperm as he shoots his load in your mouth, spurt after spurt, filling your mouth up with his semen. Once he is done cumming he pulls his dick out of your mouth and wipes it off on your lips.'
 				'As he finishes you notice that Abdul and Hasan are there watching, you don''t remember hearing them enter, you freeze in astonishment and shame, you were caught with a mouth full of sperm, the men smile and laugh, saying something to each other and then they say something to Artur who barely grunts a reply to them.'
 				'Hasan then says to you. "Hey girl, why don''t you give us a turn and we won''t tell everyone in the market." You glance back at Artur as he doesn''t show any indication he cares.'
-
+				
 				act 'Wipe your mouth and leave':
 					cla
 					money += 2000
-
 					palevorin = 2
-
-                    'You your face red with shame you wipe the remnants of sperm from your lips and correct your clothes, at this time Artur hands you 2,000 <b>₽</b> as a bonus, as you take the money Artur says to you quietly. "It is alright I will deal with them." You look at him a moment, nod and then leave.'
+					'You your face red with shame you wipe the remnants of sperm from your lips and correct your clothes, at this time Artur hands you 2,000 <b>₽</b> as a bonus, as you take the money Artur says to you quietly. "It is alright I will deal with them." You look at him a moment, nod and then leave.'
 
 					gs 'arousal', 'end'
 					gs 'stat'
 					act 'Go home':gt 'street'
 				end
-
-				act 'Agree to suck them as well':
-					cla
-					palevorin = 4
-					
-					if abdulasex = 0:abdulasex = 1 & guy += 1
-					if hasansex = 0:hasansex = 1 & guy += 1
-
-					gang += 1
-					swallow +=1
-					gs 'boyStat', 'A91'
-					spafinloc = 12
-					gs 'cum_manage'
-					gs 'boyStat', 'A92'
-					spafinloc = 12
-					gs 'cum_manage'
-					money += 5000
-					'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/rintri.jpg"></center>'
-					'You nod your head in agreement. The two men immediately take out their members and walking over to you hold them by your mouth, you suck the two dicks. Sometimes one of them in your mouth while you jerk the other one off and sometimes they stick both their dicks in your mouth at the same time.'
-					'Finally Abdul and Hassan cum in your mouth, once they pull their dicks out of your mouth. They wipe them off on your lips and cheeks before putting their dicks away, They same something to Artur, laughing as they leave.'
-					'Once they are gone, Artur says. "So you like cock do you? Well I can use that, it will be very useful to my business. Here this is a bonus." With that he gets up and walks out, leaving you a bonus of 5,000 <b>₽</b>.'
-
-					gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
-					gs 'stat'
-					
-					act 'Go home':gt 'street'
-				end
+				
+				gs 'willpower', 'bj', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Agree to suck them as well (<<will_cost>> Willpower)':
+						cla
+						palevorin = 4
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						if abdulasex = 0:abdulasex = 1 & guy += 1
+						if hasansex = 0:hasansex = 1 & guy += 1
+
+						gang += 1
+						swallow +=1
+						gs 'boyStat', 'A91'
+						spafinloc = 12
+						gs 'cum_manage'
+						gs 'boyStat', 'A92'
+						spafinloc = 12
+						gs 'cum_manage'
+						money += 5000
+						'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/rintri.jpg"></center>'
+						'You nod your head in agreement. The two men immediately take out their members and walking over to you hold them by your mouth, you suck the two dicks. Sometimes one of them in your mouth while you jerk the other one off and sometimes they stick both their dicks in your mouth at the same time.'
+						'Finally Abdul and Hassan cum in your mouth, once they pull their dicks out of your mouth. They wipe them off on your lips and cheeks before putting their dicks away, They same something to Artur, laughing as they leave.'
+						'Once they are gone, Artur says. "So you like cock do you? Well I can use that, it will be very useful to my business. Here this is a bonus." With that he gets up and walks out, leaving you a bonus of 5,000 <b>₽</b>.'
+
+						gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
+						gs 'stat'
+						
+						act 'Go home':gt 'street'
+					end
+				else
+					act 'Agree to suck them as well (<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
 	end
@@ -253,6 +262,7 @@ if $ARGS[0] = 'group':
 			gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
 			gs 'arousal', 'vaginal', 20, 'sub', 'rough', 'group'
 			gs 'arousal', 'anal', 20, 'sub', 'rough', 'group'
+			minut -= 20
 			gs 'stat'
 		end
 		if horand <= pcs_horny:
@@ -260,6 +270,7 @@ if $ARGS[0] = 'group':
 			gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
 			gs 'arousal', 'vaginal', 20, 'sub', 'rough', 'group'
 			gs 'arousal', 'anal', 20, 'sub', 'rough', 'group'
+			minut -= 20
 			gs 'stat'
 		end
 
@@ -327,7 +338,6 @@ if $ARGS[0] = 'sex':
 				act 'Go home':gt 'street'
 			end
 		else
-			pcs_horny += 20
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/shared/sex/anal/doggy/anal28.jpg"></center>'
 			'He pulls his dick out of your mouth and bends you over, pulling your hips up, till you are on all fours. He kneels down behind you and rubs the tip of his dick against your pussy lips, getting a bit of your natural lube on the head of his dick. Then he moves the tip of his dick up and rubs it against you asshole. He pushes his dick in, with only your slavia and a bit of your pussy juices on the tip for lucubration, you squeal a bit in pain.'

+ 12 - 2
locations/restoran.qsrc

@@ -75,9 +75,19 @@ if $ARGS[0] = 'zal':
 
 			act 'Leave': gt 'restoran', 'zal'
 		end
-
-		act 'Smile at her': gt 'nastja', 'pos1'
+		
+		gs 'willpower', 'misc', 'self', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Smile at her (<<will_cost>> Willpower)': 
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				gt 'nastja', 'pos1'
+			end
+		else
+			act 'Smile at her (<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 'Be seated at a table': gt 'restoran', 'comtable'
 
 	act 'Leave the Common Room':gt 'restoran', 'start'

+ 65 - 36
locations/rinwork.qsrc

@@ -120,25 +120,40 @@ if $ARGS[0] = 'start':
 				elseif palevorin = 4:
 					'Artur goes behind you into the stall carrying some stuff. He comes up behind you are working and gives your ass a slap and squeeze, with one hand while the other one snakes around and roughly grabs your tit, as he whispers in your ear. "So you like cock, I didn''t think you was a little slut but that is ok, I like dirty sluts."'
 					'He cuts you off before you can make any protest about being slut. "No it is good, I can use this. Now come let us go to the warehouse so I can fuck you."'
-					act 'Go with him':palevorin = 5 & gt 'RynokHoz', 'sex'
-
-					act 'Refuse':
-						cla
-						'You shake your head and pull out of his grasp. "I am not a slut Artur and I am not going with you."'
-						'You see the anger flare up in his eyes. "So you think you are to good for me whore? I gave you a job, I treated you nice and then you fuck those two and now I am not good enough?" He shakes his head. "No get your ass in the warehouse now or you are fired and I will tell Abdul and Hasan they are free to tell everyone about how you greedily took their cocks like the little slut you are."'
-						'You are a bit shocked at this level of anger and the ultimatum. You are unsure what to do, go with him, keep your job, and your rep. Or refuse and find a new job and hope no one believes them.'
-
-						act 'Go to warehouse':palevorin = 5 & gt 'RynokHoz', 'sex'
-
-						act 'Get fired':
+					
+					act 'Go with him ':palevorin = 5 & gt 'RynokHoz', 'sex'
+					
+					gs 'willpower', 'sex', 'resist', 'hard'
+					if will_cost <= pcs_willpwr:
+						act 'Refuse (<<will_cost>> Willpower)':
 							cla
-							
-							'You shake your head no. "No I won''t go with you."'
-							'Before you notice him raising his hand, you feel the burning on your cheek as he slaps you. "Then get out of her whore, your fired and I don''t want to see you back here!" He says very loudly as he pushes you out from behind his stall, loud enough that many people are looking your direction now at what is going on.'
-							'With shame and a burning cheek you walk away.'
-							if rinslut = 0:rinslut = 1
-							act 'Leave':gt 'street'
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							'You shake your head and pull out of his grasp. "I am not a slut Artur and I am not going with you."'
+							'You see the anger flare up in his eyes. "So you think you are to good for me whore? I gave you a job, I treated you nice and then you fuck those two and now I am not good enough?" He shakes his head. "No get your ass in the warehouse now or you are fired and I will tell Abdul and Hasan they are free to tell everyone about how you greedily took their cocks like the little slut you are."'
+							'You are a bit shocked at this level of anger and the ultimatum. You are unsure what to do, go with him, keep your job, and your rep. Or refuse and find a new job and hope no one believes them.'
+
+							act 'Go to warehouse':palevorin = 5 & gt 'RynokHoz', 'sex'
+
+							gs 'willpower', 'sex', 'resist', 'hard'
+							if will_cost <= pcs_willpwr:
+								act 'Get fired (<<will_cost>> Willpower)':
+									cla
+									gs 'pain', 5, 'cheeks', 'slap'
+									gs 'willpower', 'pay', 'resist'
+									gs 'stat'
+									'You shake your head no. "No I won''t go with you."'
+									'Before you notice him raising his hand, you feel the burning on your cheek as he slaps you. "Then get out of her whore, your fired and I don''t want to see you back here!" He says very loudly as he pushes you out from behind his stall, loud enough that many people are looking your direction now at what is going on.'
+									'With shame and a burning cheek you walk away.'
+									if rinslut = 0:rinslut = 1
+									act 'Leave':gt 'street'
+								end
+							else
+								act 'Get fired (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+							end	
 						end
+					else
+						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	
 					
 				elseif palevorin = 5:
@@ -154,27 +169,41 @@ if $ARGS[0] = 'start':
 						act 'Go with him':gt 'RynokHoz', 'sex'
 					end
 					
-					act 'Refuse':
-						cla
-						'You start making excuses. Arthur says to you, "Hey, don''t insult me you fucking slut, I was there. I know what a whore you are. Now get your fucking ass in the warehouse or the whole town will know what a whore you are."'
-						if sexgrouprand = 1:
-							act 'Go to warehouse':gt 'RynokHoz', 'group'
-						else
-							act 'Go to warehouse':gt 'RynokHoz', 'sex'
-						end
-						
-						act 'No':
+					gs 'willpower', 'sex', 'resist', 'hard'
+					if will_cost <= pcs_willpwr:
+						act 'Refuse (<<will_cost>> Willpower)':
 							cla
-							arturnoo = 0
-							work = 0
-							workrin = 0
-							if rinslut = 0:rinslut = 1
-							if repa < 6:repa = 6
-							'Then fuck you, you little fucking whore, your fired and by tomorrow the whole town will know what a whore you are."'
-
-							act 'Leave':gt 'street'
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							'You start making excuses. Arthur says to you, "Hey, don''t insult me you fucking slut, I was there. I know what a whore you are. Now get your fucking ass in the warehouse or the whole town will know what a whore you are."'
+							if sexgrouprand = 1:
+								act 'Go to warehouse':gt 'RynokHoz', 'group'
+							else
+								act 'Go to warehouse':gt 'RynokHoz', 'sex'
+							end
+							
+							gs 'willpower', 'sex', 'resist', 'hard'
+							if will_cost <= pcs_willpwr:
+								act 'No (<<will_cost>> Willpower)':
+									cla
+									arturnoo = 0
+									work = 0
+									workrin = 0
+									gs 'willpower', 'pay', 'resist'
+									gs 'stat'
+									if rinslut = 0:rinslut = 1
+									if repa < 6:repa = 6
+									'Then fuck you, you little fucking whore, your fired and by tomorrow the whole town will know what a whore you are."'
+
+									act 'Leave':gt 'street'
+								end
+							else
+								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	
 						end
-					end
+					else
+						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	
 				else
 					act 'Leave work':gt 'street'
 				end