[changed] willpower seeding for abduction locations

locations/abduction.qsrc

@@ -42,7 +42,7 @@ if $ARGS[0] = 'abdRoomFirstChaining':
 	'"Shut up, slut. Usually we torture you for fun as long as we want. When you become broken enough, we sell you to the highest bidder."'
 	'"You cannot do this to me! It''s illegal!'
 	'"Ha, who do you think are our best customers? Politicians, police officers, businessmen... We have our cover. So you should shut up and get used to it!"'
-	'The man leaves without saying another word, even as you are cry and yell at him...'
+	'The man leaves without saying another word, even as you cry and yell at him...'
 	gs 'underwear', 'remove'
 	painkiller_bak = painkiller
 	prezik_bak = prezik
@@ -106,7 +106,7 @@ if $ARGS[0] = 'abdSomeoneComing':
 	minut += 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/shared/abduction/downstairs2.jpg"></center>'
-	'Steps can be heard - someone is coming down the stairs.'
+	'You hear the sound of footsteps getting louder - someone is coming down the stairs.'
 
 	if pcs_leghair > 3 or pcs_pubes > 3:
 		minut += 20
@@ -128,30 +128,31 @@ if $ARGS[0] = 'abdSomeoneComing':
 		if broken = 0:
 			'You start to tremble in fear of what is going to happen to you next.'
 			act 'Cower in panic on your bed':gt 'abduction', 'abdRape'
+			
+			if rapeCount >= 5: act 'Plead that you cannot bear anymore rough treatment':gt 'abduction', 'abdBreak1'
+		else
+		
 		end
 
-		if rapeCount >= 5 and broken = 0:
-			act 'Plead that you cannot bear anymore rough treatment':gt 'abduction', 'abdBreak1'
-		end
-
-		saleChance = (broken + tortureCount + rapeCount + abdCustomerCount) - 20
-		if broken >= 1:
-			saleChanceRand = rand(1, 100)
-			customerChance = rand(1, 100)
-			painkillerChance = rand(1, 100)
-			buyoutChance = rand(1, 100)
+		buyoutChance = (broken + tortureCount + rapeCount + abdCustomerCount) - 20
+		saleChance = (broken + tortureCount + rapeCount + abdCustomerCount) - 10
+		if broken > 0:
+			saleChanceRand = rand(1,100)
+			customerChance = rand(1,100)
+			painkillerChance = rand(1,100)
+			buyoutChanceRand = rand(1,100)
 			if broken < 10:
 				act 'Welcome back, Master.':gt 'abduction', 'abdBrokenAsk'
 			elseif (broken >= 10 and abdTools = 0):
 				act 'Welcome back, Master.':gt 'abduction', 'abdBrokenGiveTools'
 			else
 				if customerChance <= 50:
-					act 'Welcome back, master':gt 'abductionCustomer', 'abdCustomerGate'
+					act 'Welcome back, Master':gt 'abductionCustomer', 'abdCustomerGate'
 					abdCustomerCount += 1
-				elseif abdCustomerCount > 5 and buyoutChance <= (2 * abdCustomerCount):
+				elseif abdCustomerCount > 5 and buyoutChanceRand <= (2 * buyoutChance):
 					act 'Welcome back, Master':gt 'abductionCustomer', 'abdCustomerGateBuyout'
 				else
-					if abdCustomerCount > 5 and saleChanceRand <= (2 * abdCustomerCount):
+					if abdCustomerCount > 5 and saleChanceRand <= (2 * saleChance):
 						'Master: "I have some good news for you slave."'
 						act 'Yes Master?':gt 'abduction', 'abdBeSold'
 					else
@@ -172,10 +173,21 @@ if $ARGS[0] = 'abdExamStart':
 	menu_off = 1
 	minut += 5
 	'<center><img <<$set_imgh>> src="images/locations/shared/abduction/examroom.jpg"></center>'
-	'You are unblinded in a very bright room, at first not able to see anything.'
+	'The blindfold is removed and you find yourself in a small white room. It is very bright and at first you can barely see.'
 	'As your eyes adjust, you can see that it is some kind of examination room, distantly reminding you of a gynecologists office.'
 	'The man orders you to sit in the chair.'
-	act 'Resist':gt 'abduction', 'abdExamResist'
+	
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Resist (<<will_cost>> Willpower)':
+			gs 'willpower', 'misc', 'resist', 'hard'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'abduction', 'abdExamResist'
+		end
+	else
+		act 'Resist (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 	act 'Obey':gt 'abduction', 'abdExamObey'
 end
 
@@ -185,10 +197,10 @@ if $ARGS[0] = 'abdExamResist':
 	'<center><video autoplay loop src="images/locations/shared/abduction/examslap.mp4"></video></center>'
 	'Being scared of what they''ll do to you, you start yelling and shaking to get loose of the leash.'
 	'Your captor is very strong and your leash and cuffs make your attempt futile.'
-	'He catches you, knocks you down to the ground and slaps your face hard.'
+	'He grabs you, knocks you down to the ground and slaps your face hard.'
 	'"You''re only making it harder, bitch."'
-	'With these words he grabs you like you weigh nothing and throws you on the chair and restrains you.'
-	'He then sits down in a chair opposite to you, located in the far corner of the room.'
+	'With these words he picks you up like you weigh nothing, pushes you in the chair and restrains you.'
+	'He then sits down in a chair over in the far corner of the room.'
 	act 'Continue':gt 'abduction', 'abdExam1'
 end
 
@@ -198,7 +210,7 @@ if $ARGS[0] = 'abdExamObey':
 	'<center><img <<$set_imgh>> src="images/locations/shared/abduction/examsit.jpg"></center>'
 	'Willingly, like a slave you obviously just became, you climb up the chair and lie there, wondering what perverse things are going to happen to you.'
 	'The man ties you up anyway, probably to make sure you don''t try to escape after they start. It makes you even more nervous.'
-	'He then sits down in a chair opposite to you, located in the far corner of the room.'
+	'He then sits down in a chair over in the far corner of the room.'
 	act 'Continue':gt 'abduction', 'abdExam1'
 end
 
@@ -217,7 +229,9 @@ if $ARGS[0] = 'abdExam1':
 		'"Heh, I see."'
 		'He continues in the usual report of his findings.'
 	end
-	"Regarding her usage levels, her throat is <<$throattipe>>. <<$pcs_ass>>."
+	'He continues to examine every inch of you. "Regarding her usage levels:"'
+	'He shines a light in your mouth, and says, "Her throat is <<$throattipe>>."'
+	'Next he feels a finger around your ass, "And her ass is <<$anustipe>>."'
 	'He pulls his finger out of your ass and finally reaches for your pussy.'
 	if pcs_vag = 0:
 		'"Oh, and you''ll like this; Her pussy is a virgin one."'
@@ -225,7 +239,7 @@ if $ARGS[0] = 'abdExam1':
 	else
 		'"And her pussy is <<$vaginatipe>>.'
 	end
-	'The doctor leaves your body alone and prepares several needles filled with unknown fluids.'
+	'The doctor finally takes his hands off of you and prepares several needles filled with unknown fluids.'
 
 	act 'Continue':gt 'abduction', 'abdExam2'
 end
@@ -234,10 +248,9 @@ if $ARGS[0] = 'abdExam2':
 	*clr & cla
 	menu_off = 1
 	'<center><img <<$set_imgh>> src="images/locations/shared/abduction/exam2.jpg"></center>'
-	'The doctor leaves your body alone and prepares several needles filled with unknown fluids.'
 	'"Now there, our little slave, we will make sure you are healthy and ready to be trained."'
-	'He injects all the solutions into you.'
-	'The examination is at an end. The doctor leaves, you are untied, blindfolded again and led back down into the basement.'
+	'He quickly injects all the solutions into one of your arms, "The examination is now over."'
+	'The doctor leaves, and the man puts your shackles and blindfold back on and leads you back down into the basement.'
 	gs 'medical_din','healSTDs'
 
 	examed = 1
@@ -277,24 +290,33 @@ if $ARGS[0] = 'abdBreak1':
 	'"You don''t understand bitch. You will leave this place, in the end. As a broken sex slave or as a dead body."'
 	'"But..."'
 	'"You will be sold to someone as a slave. Or if you won''t accept that role, you will be utilized for the more perverted needs of our customers. Those girls usually don''t survive for long.'
-	'(you nervously gulp)'
-	'"Now show me what sex slave you are."'
+	'You feel a slight sense of dread as your mind races to think of what horrors might await you.'
+	'"Now show me what a good sex slave you are."'
 
 	tortureType = rand(1,3)
-	act 'Spit in his face':gt 'abduction', 'abdTorture'
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Spit in his face (<<will_cost>> Willpower</font>)':
+			gs 'willpower', 'misc', 'resist', 'hard'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'abduction', 'abdTorture'
+		end
+	else
+		act 'Spit in his face (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 
 	if rapeCount <= 10:
-		act 'Say nothing and crawl back to your bed':gt 'abduction', 'abdRape'
+		act 'Say nothing and crawl back to your bed': gt 'abduction', 'abdRape'
 	end
 
 	if tortureCount >= 5 or rapeCount >= 10:
-		if broken = 1 and pcs_vag > 0:
-			act 'Please fuck my pussy, Master':gt 'abduction', 'abdBreak2FuckA1'
+		if broken > 0:
 			act 'Please fuck my mouth, Master':gt 'abduction', 'abdBreak2FuckB1'
-		elseif pcs_vag > 0:
-			act 'You... you are my master. Please use me...':gt 'abduction', 'abdBreak2FuckA1'
+			if pcs_vag > 0: act 'Please fuck my pussy, Master':gt 'abduction', 'abdBreak2FuckA1'
 		else
-			act 'You... you are my master. Please use me...':gt 'abduction', 'abdBreak2FuckB1'
+			act 'You... you are my master. Please accept my mouth for your use...':gt 'abduction', 'abdBreak2FuckB1'
+			if pcs_vag > 0: act 'You... you are my master. Please accept my pussy for your use...':gt 'abduction', 'abdBreak2FuckA1'
 		end
 	end
 end
@@ -303,11 +325,21 @@ if $ARGS[0] = 'abdBrokenGivePainkiller':
 	*clr & cla
 	menu_off = 1
 	'<center><img <<$set_imgh>> src="images/locations/shared/abduction/pill1.jpg"></center>'
-	'Master: "You have been a good slave so far. Good slaves are rewarded."'
+	'Your master approaches you, "You have been a good slave so far. Good slaves are rewarded."'
 	'He hands you a single painkiller pill.'
 
 	act 'Take and swallow it':gt 'abduction', 'abdBrokenGivePainkillerYes'
-	act 'Refuse and keep your mouth shut':gt 'abduction', 'abdBrokenGivePainkillerNo'
+	gs 'willpower', 'misc', 'resist', 'easy'
+	if will_cost <= pcs_willpwr:
+		act 'Refuse and keep your mouth shut (<<will_cost>> Willpower)':
+			gs 'willpower', 'misc', 'resist', 'easy'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'abduction', 'abdBrokenGivePainkillerNo'
+		end
+	else
+		act 'Refuse and keep your mouth shut (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end		
 end
 
 if $ARGS[0] = 'abdBrokenGivePainkillerYes':
@@ -315,7 +347,6 @@ if $ARGS[0] = 'abdBrokenGivePainkillerYes':
 	menu_off = 1
 	'<center><img <<$set_imgh>> src="images/locations/shared/abduction/pill2.jpg"></center>'
 	'You happily take the pill and swallow it immediately.'
-	sub += 2
 	gs 'stat'
 	painkillerGive = rand(1,100)
 	if painkillerGive > 20 and broken >= 10:
@@ -329,8 +360,8 @@ if $ARGS[0] = 'abdBrokenGivePainkillerNo':
 	*clr & cla
 	menu_off = 1
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/pill1.mp4"></video></center>'
-	'Master: "Refusing a gift? It seems like this slaveslut needs to be reminded of her place."'
-	'He ties you down ontop of a table, securing your head.'
+	'You see anger flash across your master''s face. "Refusing a gift? It seems like this slave slut needs to be reminded of her place."'
+	'He ties you down on top of a table, securing your head.'
 	'Some devious device is attached to your nose, pulling your head backwards. It forces you to open your mouth slightly.'
 	'Your master takes a clamp and a pulls your tongue out, tightly and painfully sqeezing it.'
 	'He then secures the pill on top of a dildo and pushes the tip down your throat.'
@@ -342,38 +373,30 @@ if $ARGS[0] = 'abdBrokenGivePainkillerNo':
 	pain['tongue'] += 5
 	pain['throat'] += 5
 	pain['nose'] += 5
-	sub -= 2
 	gs 'stat'
 	act 'Continue':gt 'abduction', 'abdTorture'
 end
 
 if $ARGS[0] = 'abdBrokenAsk':
 	menu_off = 1
-	'Master: "Good. What do you want me to do to you, slaveslut?"'
-	sub += 5
 	gs 'stat'
-	if pcs_vag > 0:
-		act 'Please fuck my pussy, Master':gt 'abduction', 'abdBreak2FuckA1'
-	end
+	
+	'Your master responds, "Very good. What do you want me to do to you, slave slut?"'
+	
 	act 'Please fuck my mouth, Master':gt 'abduction', 'abdBreak2FuckB1'
-	if broken >= 3 and sub >= 70:
-		sub += 3
-		gs 'stat'
-		act 'Please rape me, Master':gt 'abduction', 'abdRape'
-	end
-	if broken >= 5 and sub >= 90:
-		sub += 5
-		gs 'stat'
-		act 'Please punish me, Master':gt 'abduction', 'abdTorture'
-	end
+	
+	if pcs_vag > 0: act 'Please fuck my pussy, Master':gt 'abduction', 'abdBreak2FuckA1'
+	
+	if broken >= 5: act 'Please rape me, Master':gt 'abduction', 'abdRape'
+
+	if broken >= 10: act 'Please punish me, Master':gt 'abduction', 'abdTorture'
 end
 
 if $ARGS[0] = 'abdBreak2FuckA1':
 	*clr & cla
 	menu_off = 1
-	sub += 5
 	broken += 1
-	gs 'cum_call', '', 'master', 0,'', spot, svol
+	gs 'cum_call', '', 'Master', 0,'', spot, svol
 	'<center><img <<$set_imgh>> src="images/locations/shared/abduction/sex/brokena1.jpg"></center>'
 	'Your tormentor unchains you and throws you on your dirty bed.'
 	'Spreading your legs wide apart, you spit on your hand and smear it on your pussy, saying: "Come, take me, Master."'
@@ -388,12 +411,12 @@ end
 if $ARGS[0] = 'abdBreak2FuckA2':
 	*clr & cla
 	menu_off = 1
-	gs 'cum_call', 'mouth', 'master', 0,'', spot, svol
+	gs 'cum_call', 'mouth', 'Master', 0,'', spot, svol
 	'<center><img <<$set_imgh>> src="images/locations/shared/abduction/sex/brokena2.jpg"></center>'
 	'Fucking you wildly for some time, your master stops before he orgasms.'
 	'He unties your hands and legs and instead ties your hands behind your back.'
 	'Knowing what he expects you to do, you open your mouth wide and await his cock.'
-	'After some mouthfucking and gagging, he comes in your mouth.'
+	'After some mouthfucking and gagging, he cums in your mouth.'
 	if broken = 1:
 		*nl
 		'"Very good, slave. You are on a path to redeem yourself." With these words he releases your arms, secures you back in your usual location and then leaves.'
@@ -409,10 +432,9 @@ if $ARGS[0] = 'abdBreak2FuckB1':
 	*clr & cla
 	menu_off = 1
 	broken += 1
-	sub += 5
 	gs 'cum_call', 'mouth', 'Master'
 	'<center><img <<$set_imgh>> src="images/locations/shared/abduction/sex/brokenb1.jpg"></center>'
-	'Your tormentor unchains you and leads you to a device.'
+	'Your master unchains you and leads you to a device.'
 	'You can see that it''s meant to restrain a person in a lying position, with their head at the same height as someone''s crotch.'
 	'You want to please your master, so you lie down on it straight away and dutifully await the attaching of the restraints.'
 	'After your master ties you, he walks up to your head. Your already open mouth is then roughly fucked by his member.'
@@ -427,12 +449,16 @@ if $ARGS[0] = 'abdBreak2FuckB2':
 	*clr & cla
 	menu_off = 1
 	pain['asshole'] += 1
-	broken += 1
-	gs 'cum_call', 'anus', 'Master'
 	'<center><img <<$set_imgh>> src="images/locations/shared/abduction/sex/brokenb2.jpg"></center>'
 	'Surprisingly his dick is not wearing out. He moves behind you and starts to penetrate your ass.'
 	'Trying to relax your anus as much as you can, he enters you quite easily. Just a small reminder of pain goes through your muscles.'
 	'Fucking you furiously for some time, your master cums deep inside you.'
+	if broken = 1:
+		*nl
+		'"Very good, slave. You are on a path to redeem yourself." With these words he releases your arms, secures you back in your usual location and then leaves.'
+	end
+	broken += 1
+	gs 'cum_call', 'anus', 'Master'
 	gs 'arousal', 'anal', 20, 'sub', 'bound'
 	gs 'stat'
 
@@ -459,7 +485,7 @@ if $ARGS[0] = 'abdEscape':
 	minut += 5
 	gs 'stat'
 	act 'Try to break the lock':gt 'abduction', 'abdEscapeWindow1'
-	act 'Go back to your bed and fix your leash back to the wall':gt 'abduction', 'abdRoom'
+	act 'Go back to your bed and reattach your leash to the wall':gt 'abduction', 'abdRoom'
 end
 
 if $ARGS[0] = 'abdEscapeWindow1':
@@ -471,13 +497,13 @@ if $ARGS[0] = 'abdEscapeWindow1':
 	gs 'stat'
 	breakChance = rand(1, 100)
 	if breakChance <= 50:
-		'You hear someone slam a door. Maybe your captors are coming!'
+		'You hear someone slam a door nearby. Maybe your master is returning!'
 		'But you are so close to unscrewing the window! You decide to...'
-		act 'Run back to your bed and leash your chain back':gt 'abduction', 'abdSomeoneComing'
+		act 'Run back to your bed and reattach your leash to the wall':gt 'abduction', 'abdSomeoneComing'
 		act 'Try to unscrew it desperately':gt 'abduction', 'abdEscapeWindow2'
 	else
 		'No luck, the window is screwed in very tight.'
-		act 'Go back':gt 'abduction', 'abdEscape'
+		act 'Go back':gt 'abduction', 'abdFood'
 	end
 end
 
@@ -488,7 +514,7 @@ if $ARGS[0] = 'abdEscapeWindow2':
 	'You continue in your attempts to break the window.'
 	minut += 5
 	gs 'stat'
-	breakChance = rand(1, 100)
+	breakChance = rand(1,100)
 	if breakChance <= 90:
 		'You desperately try to unscrew it, but you run out of time and luck.'
 		'Your master comes into the basement and catches you running around unleashed. This won''t end well for you...'
@@ -555,8 +581,8 @@ if $ARGS[0] = 'abdFood':
 	'There are some water bottles and dried food beneath your bed.'
 	'A half broken, dirty mirror provides some means to inspect your appearance.'
 	'In the corner there is something remotely similar to a shower, with cold water only, though.'
-	'There''s enough space to do some basic <a href="exec:gt ''abduction'', ''abdpushup''">exercise</a>.'
-	chainChance = rand(1, 100)
+	'There''s enough space to do some basic <a href="exec:gt ''abduction'', ''abdexercise''">exercise</a>.'
+	chainChance = rand(1,100)
 	if chainChance <= 20 and (rapeCount > 5 or tortureCount > 5):
 		'Suddenly you spot a loose chainlink on your leash. You try to manipulate it and you manage to free yourself from the wall.'
 		'<a href="exec:gt ''abduction'', ''abdEscape''">Go to the window</a>'
@@ -653,42 +679,54 @@ if $ARGS[0] = 'abdFood':
 	act 'Get back to your bed':gt 'abduction', 'abdRoom'
 end
 
-if $ARGS[0] = 'abdpushup':
-	$loc = 'abduction'
-	$metka = 'abdFood'
+if $ARGS[0] = 'abdexercise':
 	*clr & cla
 	menu_off = 1
-	'<center><video autoplay loop src="images/pc/activities/push_naked.mp4"></video></center>'
 	gs 'exercise', 'tier2', 30, 'stren_exp'
+	
+	'<center><video autoplay loop src="images/pc/activities/push_naked.mp4"></video></center>'
+	*nl
 	'You do push-ups for <<$timestring>> minutes, improving your strength.'
 
 	randpushfact = rand(-5,5)
-	if pcs_energy < 40: randpushfact -= RAND(1,10)
+	if pcs_energy < 40: randpushfact -= rand(1,10)
 
 	pushnum = (pcs_stren * pcs_sleep * pcs_health)  / ( 1 * 67 *  healthmax) + randpushfact
 
 	if pushnum < 1: pushnum = rand(1,5)
-	KILLVAR 'randpushfact'
+	killvar 'randpushfact'
 	'<br>You managed to do <<pushnum>> push-ups. Your previous record is <<pushrecord>>.'
 
 	if pushrecord < pushnum:pushrecord = pushnum & 'This is a new record!'
 	gs 'stat'
-	act 'Finish': gt $loc, $metka
+	
+	act 'Continue':
+		*clr & cla
+		menu_off = 1
+		gs 'exercise', 'tier2', 30, 'vital_exp'
+		
+		'<center><video autoplay loop src="images/pc/activities/abdominal_naked.mp4"></video></center>'
+		*nl
+		'You do a series of abdominal exercises for <<$timestring>> minutes, improving your endurance.'
+		
+		gs 'stat'
+	
+		act 'Finish': gt 'abduction', 'abdFood'
+	end
 end
 
 if $ARGS[0] = 'abdRape':
 	*clr & cla
 	menu_off = 1
 	rapeCount += 1
-	rapeType = rand(1, 5)
-	sub += 3
+	rapeType = rand(1,5)
 	if broken < 10:pcs_mood = 5
 
 	if rapeType = 1:
 		pain['mouth'] += 3
-		gs 'cum_call', 'mouth', 'torturer'
-		i = rand(1, 4)
-		gifornot = rand (1, 100)
+		gs 'cum_call', 'mouth', 'Master'
+		i = rand(1,4)
+		gifornot = rand(1,100)
 		if gifornot > 50:
 			'<center><img <<$set_imgh>> src="images/locations/shared/abduction/sex/mouthgagblow<<i>>.jpg"></center>'
 		else
@@ -702,8 +740,8 @@ if $ARGS[0] = 'abdRape':
 		act 'Continue':gt 'abduction', 'abdRoom'
 	elseif rapeType = 2 and pcs_vag > 0:
 		pain['vaginal'] += 10
-		gs 'cum_call', '', 'torturer', 0
-		i = rand(1, 5)
+		gs 'cum_call', '', 'Master', 0
+		i = rand(1,5)
 		'<center><img <<$set_imgh>> src="images/locations/shared/abduction/sex/fucktiedpussy<<i>>.jpg"></center>'
 		'Your hands are tied and you''re bent over the bed.'
 		'The guy starts to penetrate your pussy without warning. Sharp pain goes through your belly as your pussy is not wet enough to receive a dick.'
@@ -713,8 +751,8 @@ if $ARGS[0] = 'abdRape':
 		act 'Continue':gt 'abduction', 'abdRoom'
 	elseif rapeType = 3:
 		pain['asshole'] += 10
-		gs 'cum_call', 'anus', 'torturer'
-		gifornot = rand (1, 100)
+		gs 'cum_call', 'anus', 'Master'
+		gifornot = rand (1,100)
 		if gifornot > 50:
 			'<center><img <<$set_imgh>> src="images/locations/shared/abduction/sex/fucktiedanal'+rand(1,4)+'.jpg"></center>'
 		else
@@ -758,7 +796,7 @@ if $ARGS[0] = 'abdRape':
 	else
 		pcs_throat += 1
 		pain['mouth'] += 5
-		gs 'cum_call', 'mouth', 'Torturer'
+		gs 'cum_call', 'mouth', 'Master'
 
 		i = rand(1, 4)
 		gifornot = rand (1, 100)
@@ -777,7 +815,6 @@ if $ARGS[0] = 'abdRape':
 end
 
 if $ARGS[0] = 'abdTorture':
-	sub += 5
 	tortureType = rand(1,4)
 	tortureCount += 1
 	gs 'stat'
@@ -1005,7 +1042,7 @@ if $ARGS[0] = 'abdTortureD5':
 	pain['vaginal'] += 5
 	pcs_vag += 1
 	pcs_ass += 1
-	gs 'cum_call', 'mouth', 'Torturer'
+	gs 'cum_call', 'mouth', 'Master'
 	gs 'stat'
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/tortured5.mp4"></video></center>'
 	'Even though your head is spinning and everything is aching inside you, you are able to make him cum in few minutes.'

locations/abductionCustomer.qsrc

@@ -2,7 +2,7 @@
 
 if $ARGS[0] = 'abdCustomerGate':
 	menu_off = 1
-	'Master: "Hello, slave slut."'
+	'Your master approaches you, "Hello, slave slut."'
 	'"I have a customer here, who came to rent you for a while. Do whatever he asks of you."'
 	buyout = 0
 	act 'Yes, Master.':gt 'abductionCustomer', 'abdCustomerGo'
@@ -10,7 +10,7 @@ end
 
 if $ARGS[0] = 'abdCustomerGateBuyout':
 	menu_off = 1
-	'Master: "Hello, slave slut."'
+	'Your master approaches you, "Hello, slave slut."'
 	'"I have a customer here, who came to rent you for a while. Do whatever he asks of you."'
 	buyout = 1
 	act 'Yes, Master.':gt 'abductionCustomer', 'abdCustomerGo'
@@ -20,7 +20,7 @@ if $ARGS[0] = 'abdCustomerGo':
 	menu_off = 1
 	minut += 5
 	gs 'stat'
-	i = rand(1, 3)
+	i = rand(1,3)
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/ledonfour<<i>>.mp4"></video></center>'
 	'Your master removes your regular chains and puts you on a leash.'
 	'You are being led up the stairs into the house above your cellar.'
@@ -57,21 +57,21 @@ if $ARGS[0] = 'abdCustomer':
 	if RaceRand = 0:
 		$raceType = 'white'
 		dickChance = 30
-		charTypeRand += rand(-3, 2)
-		bodyTypeRand += rand(-2, 8)
-		heightTypeRand += rand(-1, 6)
+		charTypeRand += rand(-3,2)
+		bodyTypeRand += rand(-2,8)
+		heightTypeRand += rand(-1,6)
 	elseif RaceRand = 1:
 		$raceType = 'black'
 		dickChance = 40
-		charTypeRand += rand(0, 2)
-		bodyTypeRand += rand(0, 6)
-		heightTypeRand += rand(0, 6)
+		charTypeRand += rand(0,2)
+		bodyTypeRand += rand(0,6)
+		heightTypeRand += rand(0,6)
 	elseif RaceRand = 2:
 		$raceType = 'asian'
 		dickChance = 20
-		charTypeRand += rand(-2, 2)
-		bodyTypeRand += rand(-6, 2)
-		heightTypeRand += rand(-4, 1)
+		charTypeRand += rand(-2,2)
+		bodyTypeRand += rand(-6,2)
+		heightTypeRand += rand(-4,1)
 	end
 
 	if pcs_vag = 0:
@@ -79,7 +79,7 @@ if $ARGS[0] = 'abdCustomer':
 	elseif buyout = 1:
 		dick = 24
 	else
-		dickRand = rand(1, 100)
+		dickRand = rand(1,100)
 		if dickRand <= dickChance:
 			dick = rand(15, 40)
 		elseif dickRand <= (dickChance * 2):
@@ -96,25 +96,25 @@ if $ARGS[0] = 'abdCustomer':
 	! customer dick size
 	if dick >= 30:
 		$dick_girth = 'monstrous'
-		cumVol = rand(4, 5)
+		cumVol = rand(4,5)
 	elseif dick >= 25:
 		$dick_girth = 'huge'
 		cumVol += 1
-		cumVol = rand(3, 5)
+		cumVol = rand(3,5)
 	elseif dick >= 20:
 		$dick_girth = 'very big'
-		cumVol = rand(2, 5)
+		cumVol = rand(2,5)
 	elseif dick >= 15:
 		$dick_girth = 'big'
-		cumVol = rand(2, 4)
+		cumVol = rand(2,4)
 	elseif dick >= 10:
 		$dick_girth = 'regular'
 		cumVol -= 1
-		cumVol = rand(1, 4)
+		cumVol = rand(1,4)
 	else
 		$dick_girth = 'tiny'
 		cumVol -= 2
-		cumVol = rand(1, 3)
+		cumVol = rand(1,3)
 	end
 
 	! customer cum volume
@@ -180,7 +180,7 @@ if $ARGS[0] = 'abdCustomer':
 		'Right away you can see that he is just another bastard coming here to use your <<age>> years young body.'
 		'Your master leaves you in the center of the room, still kneeling with the leash attached to your collar.'
 		'As the door closes behind him, the customer slowly turns and you can finally see his face.'
-		act 'Look to his face':gt 'abductionCustomer', 'abdCustomer-buyout1'
+		act 'Look at his face':gt 'abductionCustomer', 'abdCustomer-buyout1'
 	else
 		'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorekneelmaster.mp4"></video></center>'
 		'The customer is a <<$heightType>> <<$bodyType>> <<$raceType>>.'
@@ -223,8 +223,18 @@ if $ARGS[0] = 'abdCustomer-buyout1':
 	'Then suddenly the look on <<$bName>>''s face changes from surprised to something else.'
 	'He comes up to you and gently caresses your face: "Plaything, you say? And do you like it?"'
 	'Surprised by such a question you wait with your answer:'
-	if sub > 95:
-		act 'Admit you like to be dominated, but this is too much':gt 'abductionCustomer', 'abdCustomer-buyout2'
+	
+	gs 'willpower', 'misc', 'self', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Admit you like to be dominated, but this is too much (<<will_cost>> Willpower)':
+			gs 'willpower', 'misc', 'self', 'hard'
+			gs 'willpower', 'pay', 'self'
+			gs 'stat'
+
+			gt 'abductionCustomer', 'abdCustomer-buyout2'
+		end
+	else
+		act 'Admit you like to be dominated, but this is too much (<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 you hate it':gt 'abductionCustomer', 'abdCustomer-buyout3'
 end
@@ -250,7 +260,18 @@ if $ARGS[0] = 'abdCustomer-buyout3':
 	'Stepping above you as you helplessly lay on the floor, he opens his zipper and pulls his dick out of his pants.'
 	'You can clearly see his <<dick>> cm long <<$dick_girth>> dick swing above you in the air.'
 	act 'Suck on it':gt 'abductionCustomer', 'abdCustomer-suckTip'
-	act 'Do nothing':gt 'abductionCustomer', 'abdCustomer-fuckAnalRough'
+	gs 'willpower', 'bj', 'resist'
+	if will_cost <= pcs_willpwr:
+		act 'Do Nothing (<<will_cost>> Willpower)':
+			gs 'willpower', 'bj', 'resist'
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			
+			gt 'abductionCustomer', 'abdCustomer-fuckAnalRough'
+		end
+	else
+		act 'Do Nothing (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end
 end
 if $ARGS[0] = 'abdCustomer-buyout4':
 	'<center><img <<$set_imgh>> src="images/locations/shared/abduction/sex/slavewhorefuckanalroughleonid2.jpg"></center>'
@@ -291,7 +312,7 @@ if $ARGS[0] = 'abdCustomer-virgin2':
 	pcs_mood = 5
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorevirgin2.mp4"></video></center>'
 	'He starts to undress, finishing off with his pants. As he pulls them down, you can finally can see his naked member fall out.'
-	'"With renewed terror you start to cry, because the sight of his <<dick>> cm thick <<$dick_girth>> fallus is just terrifying."'
+	'"With renewed terror you start to cry, because the sight of his <<dick>> cm thick <<$dick_girth>> phallus is just terrifying."'
 	gs 'stat'
 	act 'Continue':gt 'abductionCustomer', 'abdCustomer-virgin3'
 end
@@ -379,7 +400,7 @@ if $ARGS[0] = 'abdCustomer-virgin10':
 	minut += 15
 	pcs_mood = 5
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorevirgin10.mp4"></video></center>'
-	'A sound of the master coming from upstairs wakes you up.'
+	'The sound of your master coming downstairs wakes you up.'
 	'You must have fallen asleep from the exhaustion.'
 	*nl
 	'Kneel and stick your ass high in the air, slut.'
@@ -416,17 +437,39 @@ if $ARGS[0] = 'abdCustomer-unzip':
 	if pcs_throat < dick:
 		'It''s obvious that his <<$dick_girth>> dick is above your skill and you know you wouldn''t be able to swallow it whole.'	
 		act 'Suck the tip':gt 'abductionCustomer', 'abdCustomer-suckTip'
-		act 'Force yourself on his cock':gt 'abductionCustomer', 'abdCustomer-suckForceself'
+		gs 'willpower', 'bj', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Force yourself on his cock (<<will_cost>> Willpower)':
+				gs 'willpower', 'bj', 'self'
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				
+				gt 'abductionCustomer', 'abdCustomer-suckForceself'
+			end
+		else
+			act 'Force yourself on his cock (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
 	else
 		'Even though his dick is <<$dick_girth>>, you know you''d be able to take it all the way to the balls.'
 		act 'Suck the tip':gt 'abductionCustomer', 'abdCustomer-suckTip'
-		act 'Deepthroat':gt 'abductionCustomer', 'abdCustomer-suckDeep'
+		gs 'willpower', 'bj', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Deepthroat his cock (<<will_cost>> Willpower)':
+				gs 'willpower', 'bj', 'self'
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				
+				gt 'abductionCustomer', 'abdCustomer-suckDeep'
+			end
+		else
+			act 'Deepthroat his cock (<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
 
 if $ARGS[0] = 'abdCustomer-show':
 	minut += 10
-	i = rand(1, 5)
+	i = rand(1,5)
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhoretease<<i>>.mp4"></video></center>'
 	'You decide to tease the customer by showing him your sexy assets by jiggling your girly parts.'
 	'After some time behaving like a slut, it is obvious that he wants something more.'
@@ -434,8 +477,9 @@ if $ARGS[0] = 'abdCustomer-show':
 end
 
 if $ARGS[0] = 'abdCustomer-suckTip':
+	gs 'arousal', 'bj', 15, 'sub'
 	gs 'stat'
-	i = rand(1, 5)	
+	i = rand(1,5)	
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhoreblowjobtip<<i>>.mp4"></video></center>'
 	'You try as best as you can to suck the head of his <<dick>> cm sized <<$dick_girth>> dick.'
 	if pcs_throat < dick:
@@ -465,22 +509,43 @@ if $ARGS[0] = 'abdCustomer-suckTip':
 			act 'Continue sucking the tip':gt 'abductionCustomer', 'abdCustomer-fuck'
 		end
 		if pcs_throat < dick:
-			act 'Force yourself on his cock':gt 'abductionCustomer', 'abdCustomer-suckForceself'
+			gs 'willpower', 'bj', 'self'
+			if will_cost <= pcs_willpwr:
+				act 'Force yourself on his cock (<<will_cost>> Willpower)':
+					gs 'willpower', 'bj', 'self'
+					gs 'willpower', 'pay', 'self'
+					gs 'stat'
+					
+					gt 'abductionCustomer', 'abdCustomer-suckForceself'
+				end
+			else
+				act 'Force yourself on his cock (<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 'Deepthroat':gt 'abductionCustomer', 'abdCustomer-suckDeep'
+			gs 'willpower', 'bj', 'self'
+			if will_cost <= pcs_willpwr:
+				act 'Deepthroat his cock (<<will_cost>> Willpower)':
+					gs 'willpower', 'bj', 'self'
+					gs 'willpower', 'pay', 'self'
+					gs 'stat'
+					
+					gt 'abductionCustomer', 'abdCustomer-suckDeep'
+				end
+			else
+				act 'Deepthroat his cock (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end
 		end
 	elseif $charType = 'kind':
 		'The customer seems pleased by your sucking skills, so you continue to tease the tip of his <<$dick_girth>> cock, looking at him with as much sensual abandon that you can muster under the present conditions.'
 		act 'Continue sucking the tip':gt 'abductionCustomer', 'abdCustomer-fuck'
 	end
-	gs 'arousal', 'bj', 15, 'sub'
 end
 
 if $ARGS[0] = 'abdCustomer-suckForceself':
 	pcs_throat += 1
 	pain['throat'] += throatDMG
 	gs 'stat'
-	i = rand(1, 3)
+	i = rand(1,3)
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhoreblowjobselfforced<<i>>.mp4"></video></center>'
 	'Knowing you will probably hurt yourself, you force yourself on his <<dick>> cm long cock all the way down to the balls anyway.'
 	'You start gagging and saliva is everywhere, but the customer seems more content now.'
@@ -491,9 +556,10 @@ end
 if $ARGS[0] = 'abdCustomer-suckForced':
 	pain['throat'] += throatDMG * 2
 	pcs_throat += 2
+	gs 'arousal', 'bj', 15, 'sub', 'rough', 'deepthroat', 'humiliation'
 	gs 'stat'
 	endPunishment = 1
-	i = rand(1, 6)
+	i = rand(1,6)
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhoreblowjobforced<<i>>.mp4"></video></center>'
 	if buyout = 1:
 		'<<$bName>> starts growling and suddenly pulls his cock out of your mouth.'
@@ -503,7 +569,7 @@ if $ARGS[0] = 'abdCustomer-suckForced':
 	'"What kind of slave are you when you can''t swallow my <<$dick_girth>> dick?"'
 	'He ties you up and forces his cock down your throat, showing you little to no concern.'
 	'You start to gag as he keeps pushing his member deep inside you, sometimes leaving you on the brink of passing out.'
-	vagOrAss = rand (0, 1)
+	vagOrAss = rand (0,1)
 	if buyout = 1:
 		act 'Continue':gt 'abductionCustomer', 'abdCustomer-fuckAnalRough'
 	else
@@ -513,16 +579,15 @@ if $ARGS[0] = 'abdCustomer-suckForced':
 			act 'Continue':gt 'abductionCustomer', 'abdCustomer-fuckAnalRough'
 		end
 	end
-	gs 'arousal', 'bj', 15, 'sub', 'rough', 'deepthroat', 'humiliation'
 end
 
 if $ARGS[0] = 'abdCustomer-suckDeep':
 	pcs_throat += 1
+	gs 'arousal', 'bj', 15, 'sub', 'deepthroat'
 	gs 'stat'
-	i = rand(1, 6)
+	i = rand(1,6)
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhoreblowjob<<i>>.mp4"></video></center>'
 	'You swallow his <<$dick_girth>> cock all the way down to the balls.'
-	gs 'arousal', 'bj', 15, 'sub', 'deepthroat'
 	act 'Continue':gt 'abductionCustomer', 'abdCustomer-fuck'
 end
 
@@ -536,7 +601,7 @@ if $ARGS[0] = 'abdCustomer-fuck':
 	if charType = 'sadistic':
 		'"What should I do to you next, bitch?"'
 	else
-		'So how do you want it next, luv?'
+		'So how do you want it next, love?'
 	end
 	'You are not entirely sure if he means that as a question or if he''s just saying that to himself.'
 
@@ -546,7 +611,7 @@ if $ARGS[0] = 'abdCustomer-fuck':
 		'"You thought I''m really interested in your slutty opinion?" He says laughing.'
 		'"A whore, and on top of that a slave whore, has no right to have an opinion."'
 		'You are unable to do anything except whimper like a small child. He ties you up and you know that it''s going to get even worse now.'
-		vagOrAss = rand (0, 1)
+		vagOrAss = rand (0,1)
 		if vagOrAss = 0:
 			act 'Continue':gt 'abductionCustomer', 'abdCustomer-fuckRough'
 		else
@@ -555,7 +620,18 @@ if $ARGS[0] = 'abdCustomer-fuck':
 	else
 		'You decide to:'
 		act 'Be quiet':gt 'abductionCustomer', 'abdCustomer-decide'
-		act 'Beg him to be kind':gt 'abductionCustomer', 'abdCustomer-beg'
+		gs 'willpower', 'sex', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Beg him to be kind (<<will_cost>> Willpower)':
+				gs 'willpower', 'sex', 'self'
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				
+				gt 'abductionCustomer', 'abdCustomer-beg'
+			end
+		else
+			act 'Beg him to be kind (<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
 
@@ -588,10 +664,8 @@ if $ARGS[0] = 'abdCustomer-beg':
 	minut += 2
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/shared/abduction/sex/slavewhorebeg1.jpg"></center>'
-	'Please be kind to me Sir, I''m so afraid and sore... please!'
-	if dick >= 15:
-		'"I''m very afraid of your <<$dick_girth>> penis Sir!"'
-	end
+	'Please be kind to me sir, I''m so afraid and sore... please!'
+	if dick >= 15:'"I''m very afraid of your <<$dick_girth>> penis sir!"'
 	*nl
 	bekindChance = rand(1, 100)
 	endPunishment = 0
@@ -627,7 +701,7 @@ end
 if $ARGS[0] = 'abdCustomer-fuckAnal':
 	pcs_ass += 1
 	gs 'stat'
-	i = rand(1, 5)
+	i = rand(1,5)
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorefuckanal<<i>>.mp4"></video></center>'
 	'The customer puts some lubricant on his <<$dick_girth>> cock and penetrates your ass.'
 	'He doesn''t care much about your feelings but he''s also not exactly hurting you on purpose.'
@@ -636,10 +710,12 @@ if $ARGS[0] = 'abdCustomer-fuckAnal':
 		pain['asshole'] += assDMG
 		pain['tummy'] += assDMG
 		gs 'arousal', 'anal', 30, 'sub', 'rough'
+		gs 'stat'
 		act 'Continue':gt 'abductionCustomer', 'abdCustomer-fuckAnalDeep'
 	else
 		'You have no problems accommodating his <<$dick_girth>> member.'
 		gs 'arousal', 'anal', 30, 'sub'
+		gs 'stat'
 		act 'Continue':gt 'abductionCustomer', 'abdCustomer-cumGate'
 	end
 
@@ -647,8 +723,9 @@ end
 
 if $ARGS[0] = 'abdCustomer-fuckAnalRough':
 	pcs_ass += 2
+	gs 'arousal', 'anal', 30, 'sub', 'rough', 'bound'
 	gs 'stat'
-	i = rand(1, 5)
+	i = rand(1,5)
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorefuckanalrough<<i>>.mp4"></video></center>'
 	if buyout = 1:
 		'<center><img <<$set_imgh>> src="images/locations/shared/abduction/sex/slavewhorefuckanalroughleonid1.jpg"></center>'
@@ -682,8 +759,7 @@ if $ARGS[0] = 'abdCustomer-fuckAnalRough':
 		pain['tummy'] += assDMG
 		gs 'stat'
 		act 'Continue':gt 'abductionCustomer', 'abdCustomer-fuckAnalDeep'
-	end
-	gs 'arousal', 'anal', 30, 'sub', 'rough', 'bound'
+	end	
 end
 
 if $ARGS[0] = 'abdCustomer-fuckAnalDeep':
@@ -723,7 +799,7 @@ end
 if $ARGS[0] = 'abdCustomer-fuckNormal':
 	pcs_vag += 1
 	gs 'stat'
-	i = rand(1, 5)
+	i = rand(1,5)
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorefucknormal<<i>>.mp4"></video></center>'
 	'The customer penetrates your pussy and fucks you.'
 	if vagDMG <= 0:
@@ -752,7 +828,7 @@ end
 if $ARGS[0] = 'abdCustomer-fuckRough':
 	pcs_vag += 2
 	gs 'stat'
-	i = rand(1, 5)
+	i = rand(1,5)
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorefuckrough<<i>>.mp4"></video></center>'
 	'The man takes you by your leash and positions your body as if it''s just meat to be used.'
 	'What comes next is an excruciatingly rough fuck that clearly shows he has no regard for all the pain you have to endure, whatsoever.'	
@@ -820,17 +896,55 @@ if $ARGS[0] = 'abdCustomer-cumGate':
 		'"Now <<$pcs_firstname>> you will be filled with my seed for the first time, so be sure to cherish the memory of this moment!"'
 		act 'Be silent':gt 'abductionCustomer', 'abdCustomer-cumAss'		
 	else
-		'"So where do you want me to put the deposit, luv?"'
+		'"So where do you want me to put the deposit, love?"'
+		
 		act 'Be silent':gt 'abductionCustomer', 'abdCustomer-cum'
-		act 'Ask him to cum inside your pussy':gt 'abductionCustomer', 'abdCustomer-cumPussy'
-		act 'Ask him to cum inside your ass':gt 'abductionCustomer', 'abdCustomer-cumAss'
-		act 'Ask him to cum into your mouth':gt 'abductionCustomer', 'abdCustomer-cumMouth'
+		
 		act 'Ask him to cum on your face':gt 'abductionCustomer', 'abdCustomer-cumFace'
+		
+		gs 'willpower', 'cum_inside', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Ask him to cum inside your pussy (<<will_cost>> Willpower)':
+				gs 'willpower', 'cum_inside', 'self'
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				
+				gt 'abductionCustomer', 'abdCustomer-cumPussy'
+			end
+		else
+			act 'Ask him to cum inside your pussy (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+		
+		gs 'willpower', 'cum_inside_anal', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Ask him to cum inside your ass (<<will_cost>> Willpower)':
+				gs 'willpower', 'cum_inside_anal', 'self'
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				
+				gt 'abductionCustomer', 'abdCustomer-cumAss'
+			end
+		else
+			act 'Ask him to cum inside your ass (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+		
+		gs 'willpower', 'swallow', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Ask him to cum into your mouth (<<will_cost>> Willpower)':
+				gs 'willpower', 'swallow', 'self'
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				
+				gt 'abductionCustomer', 'abdCustomer-cumMouth'
+			end
+		else
+			act 'Ask him to cum into your mouth (<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
 
 if $ARGS[0] = 'abdCustomer-cum':
-	cumRand = rand(1, 100)
+	cumRand = rand(1,100)
 	if cumRand > 75 and cumRand <= 100:
 		'He decides to cum inside your vagina.'
 		act 'Endure it':gt 'abductionCustomer', 'abdCustomer-cumPussy'
@@ -847,7 +961,7 @@ if $ARGS[0] = 'abdCustomer-cum':
 end
 
 if $ARGS[0] = 'abdCustomer-cumPussy':
-	i = rand(1, 5)
+	i = rand(1,5)
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorecumpussy<<i>>.mp4"></video></center>'
 	if vagDMG > 0:
 		'As he delivers his <<$cumType>> amount of cum inside your vagina, you can feel the tip of his <<$dick_girth>> cock at your cervix and even a bit inside it.'
@@ -887,7 +1001,7 @@ if $ARGS[0] = 'abdCustomer-cumPussy':
 end
 
 if $ARGS[0] = 'abdCustomer-cumAss':
-	i = rand(1, 5)
+	i = rand(1,5)
 	'<center><video autoplay loop src="images/locations/shared/abduction/sex/slavewhorecumass<<i>>.mp4"></video></center>'
 	if assDMG > 0:
 		'As he cums inside your anus, you can feel the banging of his <<$dick_girth>> cock against your intestinal wall.'

locations/gadukino_event.qsrc

@@ -685,6 +685,8 @@ if $ARGS[0] = 'gadukino_mitka':
 		act 'Refuse (<<will_cost>> Willpower)':
 			cla
 			npc_rel['A63'] -= 3
+			gs 'willpower', 'sex', 'resist', 'hard'
+			gs 'willpower', 'pay', 'resist'
 			gs 'stat'
 			
 			*nl
@@ -713,6 +715,8 @@ if $ARGS[0] = 'gadukino_kolyamba':
 		act 'Refuse (<<will_cost>> Willpower)':
 			cla
 			npc_rel['A61'] -= 3
+			gs 'willpower', 'sex', 'resist', 'hard'
+			gs 'willpower', 'pay', 'resist'
 			gs 'stat'
 			
 			*nl
@@ -741,6 +745,8 @@ if $ARGS[0] = 'gadukino_vasyan':
 		act 'Refuse (<<will_cost>> Willpower)':
 			cla
 			npc_rel['A62'] -= 3
+			gs 'willpower', 'sex', 'resist', 'hard'
+			gs 'willpower', 'pay', 'resist'
 			gs 'stat'
 			
 			*nl
@@ -791,6 +797,8 @@ if $ARGS[0] = 'gadukino_2boys':
 				npc_rel['A61'] -= 3
 				npc_rel['A62'] -= 3
 			end
+			gs 'willpower', 'sex', 'resist', 'hard'
+			gs 'willpower', 'pay', 'resist'
 			gs 'stat'
 			
 			*nl
@@ -820,6 +828,8 @@ if $ARGS[0] = 'mira_mitka':
 		act 'Refuse (<<will_cost>> Willpower)':
 			cla
 			npc_rel['A63'] -= 3
+			gs 'willpower', 'sex', 'resist', 'hard'
+			gs 'willpower', 'pay', 'resist'
 			gs 'stat'
 			
 			*nl
@@ -848,6 +858,8 @@ if $ARGS[0] = 'mira_kolyamba':
 		act 'Refuse (<<will_cost>> Willpower)':
 			cla
 			npc_rel['A61'] -= 3
+			gs 'willpower', 'sex', 'resist', 'hard'
+			gs 'willpower', 'pay', 'resist'
 			gs 'stat'
 			
 			*nl
@@ -875,6 +887,8 @@ if $ARGS[0] = 'mira_vasyan':
 		act 'Refuse (<<will_cost>> Willpower)':
 			cla
 			npc_rel['A62'] -= 3
+			gs 'willpower', 'sex', 'resist', 'hard'
+			gs 'willpower', 'pay', 'resist'
 			gs 'stat'
 			
 			*nl
@@ -925,6 +939,8 @@ if $ARGS[0] = 'mira_2boys':
 				npc_rel['A61'] -= 3
 				npc_rel['A62'] -= 3
 			end
+			gs 'willpower', 'sex', 'resist', 'hard'
+			gs 'willpower', 'pay', 'resist'
 			gs 'stat'
 			
 			*nl
@@ -961,6 +977,8 @@ if $ARGS[0] = 'mira_3boys':
 			npc_rel['A63'] -= 3
 			npc_rel['A62'] -= 3
 			npc_rel['A61'] -= 3
+			gs 'willpower', 'sex', 'resist', 'hard'
+			gs 'willpower', 'pay', 'resist'
 			gs 'stat'
 			
 			*nl

locations/leonid.qsrc

@@ -34,7 +34,7 @@ if $ARGS[0] = 'firstTime':
 	'You are in the office with label <<$bName>> <<$bSurname>>, lawyer.'
 	'<<$bName>> orders you to kneel in front of his desk.'
 	'"So <<$pcs_firstname>>, I have taken out of that hole. Do you already see why?"'
-	'"I''m not sure mister <<$bSurname>>"'
+	'"I''m not sure Mister <<$bSurname>>"'
 	'"Then let me explain. I love my wife, but I have certain needs. Long time I have neglected myself, but things got even worse. When I got the opportunity, I got in touch with the ''Haulers''. You know them, those are the people that abducted you and made you a what you are now."'
 	'"What? What do you mean by ''what am I now?''"'
 	'"A slave. My slave."'
@@ -48,12 +48,12 @@ if $ARGS[0] = 'firstTime':
 	''
 	'"Do you think I am stupid? The authorities are under my grasp. I own them. Do it and nobody will see you ever again."'
 	'You get up back to your knees.'
-	'"All right mister <<$bSurname>>, I''ve got the idea. I promise to keep quiet and be your...slave."'
+	'"All right Mister <<$bSurname>>, I''ve got the idea. I promise to keep quiet and be your...slave."'
 	'"Very well. I will call you if I require your presence. Until then you are free to go."'
 	if SchoolAtestat = 0:
-		'"But mister <<$bSurname>>, what do I tell to my <<$npc_nickname[''A29'']>>? How do I explain my absence from the school and everything?"'
+		'"But Mister <<$bSurname>>, what do I tell to my <<$npc_nickname[''A29'']>>? How do I explain my absence from the school and everything?"'
 		'"Do not care about the school. I will take care of it. As for your <<$npc_nickname[''A29'']>>, if she asks, tell her you ran from home to a friend but reconsidered and went back."'
-		'"Yes mister <<$bSurname>>."'
+		'"Yes Mister <<$bSurname>>."'
 		schoolprogul = 0
 	end
 	*nl
@@ -76,11 +76,11 @@ if $ARGS[0] = 'hall':
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/officehall.jpg"></center>'
 	'You are in the hallway leading to several offices. One of the doors has a doorsign <a href="exec:gt ''leonid'', ''office''"><<$bName>> <<$bSurname>>, lawyer.</a>'
 	gs 'stat'
-	leoHorny = rand (0, 20)
-	leoStress = rand (0, 30)
-	leoCoffee = rand (80, 100)
-	leoComfort = rand (0, 30)
-	paperwork = rand (40, 60)
+	leoHorny = rand(0,20)
+	leoStress = rand(0,30)
+	leoCoffee = rand(80,100)
+	leoComfort = rand(0,30)
+	paperwork = rand(40,60)
 	act 'Get back':gt 'pavCommercialOffices'
 end
 
@@ -104,14 +104,14 @@ if $ARGS[0] = 'office':
 		'You are in the office of <<$bName>> <<$bSurname>>. There are three other doors inside the office, one leading to a small <a href="exec:gt ''leonid'', ''officeKitchen''">kitchen</a>, second leading to a conference room and third leading to a <a href="exec:gt ''leonid'', ''toilet''">toilet</a>.'
 		'<a href="exec:gt ''leonid'', ''officeLeonidGate''"><<$bName>> <<$bSurname>></a> is sitting behind his desk, working.'
 		if slaveEventCount > 0:
-			'In the middle of the bookcase, there are hidden doors to a <a href="exec:gt ''leonid'', ''secretRoom''">bondage rooms</a>.'
+			'In the middle of the bookcase, there are hidden doors to a <a href="exec:gt ''leonid'', ''secretRoom''">bondage rooms/a>.'
 		end
 	elseif (hour >= 19 and hour =< 21) and leonidVisit = 1:
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/office.jpg"></center>'
 		'You are in the office of <<$bName>> <<$bSurname>>. There are three other doors inside the office, one leading to a small <a href="exec:gt ''leonid'', ''officeKitchen''">kitchen</a>, second leading to a conference room and third leading to a <a href="exec:gt ''leonid'', ''toilet''">toilet</a>.'
 		'<a href="exec:gt ''leonid'', ''officeLeonidGate''"><<$bName>> <<$bSurname>></a> is sitting behind his desk, waiting for you to come.'
 		if slaveEventCount > 0:
-			'In the middle of the bookcase, there are hidden doors to a <a href="exec:gt ''leonid'', ''secretRoom''">bondage rooms</a>.'
+			'In the middle of the bookcase, there are hidden doors to a <a href="exec:gt ''leonid'', ''secretRoom''">bondage room</a>.'
 		end
 	else
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/officehall.jpg"></center>'
@@ -125,7 +125,7 @@ if $ARGS[0] = 'office':
 	gs 'stat'
 
 	if $clothingworntype = 'nude':
-		'<b>You need to dress up in order to leave.</b>'
+		'<b>You need to get dressed in order to leave.</b>'
 	else
 		act 'Get back':gt 'leonid', 'hall'
 	end
@@ -139,7 +139,6 @@ if $ARGS[0] = 'secretaryGate':
 	if hour	>= 19:
 		gt 'leonid', 'secretaryEndWorkday'
 	end
-	'<table><tr><td valign="top">'
 	if $clothingworntype = 'nude':
 		'<b>You are naked.</b>'
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/secretarynaked.jpg"></center>'
@@ -155,9 +154,12 @@ if $ARGS[0] = 'secretaryGate':
 		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/secretarysexy.jpg"></center>'
 		mult = 2
 	end
-	'</td><td valign="top">'
-
-
+	
+	'You are in the office of <<$bName>> <<$bSurname>>. There are three other doors inside the office, one leading to a small <a href="exec:gt ''leonid'', ''officeKitchen''">kitchen</a>, second leading to a conference room and third leading to a <a href="exec:gt ''leonid'', ''toilet''">toilet</a>.'
+	*nl
+	'<a href="exec:gt ''leonid'', ''officeLeonidGate''"><<$bName>> <<$bSurname>></a> is sitting behind his desk, working.'
+	*nl
+	
 	if leoHorny < 0:leoHorny = 0
 		if leoHorny > 100: leoHorny = 100
 	if leoStress < 0:leoStress = 0
@@ -170,22 +172,20 @@ if $ARGS[0] = 'secretaryGate':
 		if paperwork > 100:paperwork = 100
 
 	punishBuildup = (40 * leoHorny + 40 * leoStress + 30 * leoCoffee + 30 * leoComfort) / 100
-
-
-	'You are in the office of <<$bName>> <<$bSurname>>. There are three other doors inside the office, one leading to a small <a href="exec:gt ''leonid'', ''officeKitchen''">kitchen</a>, second leading to a conference room and third leading to a <a href="exec:gt ''leonid'', ''toilet''">toilet</a>.'
-	''
-	'<a href="exec:gt ''leonid'', ''officeLeonidGate''"><<$bName>> <<$bSurname>></a> is sitting behind his desk, working.'
-	''
-	'<<$bName>> - status and needs:'
-	'<b>Overall mood:'+punishBuildup+'</b>'
-	'Horniness: '+leoHorny
-	'Stress: '+leoStress
-	'Coffee: '+leoCoffee
-	'Comfort: '+leoComfort
-	''
-	'Your paperwork: '+paperwork
-	''
-	'</td></tr></table>'
+	
+	!'<table><tr><td valign="top">'
+	!'</td><td valign="top">'
+	!'<<$bName>> - status and needs:'
+	!'<b>Overall mood:'+punishBuildup+'</b>'
+	!'Horniness: '+leoHorny
+	!'Stress: '+leoStress
+	!'Coffee: '+leoCoffee
+	!'Comfort: '+leoComfort
+	!''
+	!'Your paperwork: '+paperwork
+	!''
+	!'</td></tr></table>'
+	
 	if punishBuildup >= 100:
 		act 'Be approched':gt 'leonid', 'doPunish'
 	else
@@ -252,7 +252,6 @@ if $ARGS[0] = 'doLazy':
 	leoComfort += rand (5, 15)
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/leonid/lazy'+rand(1, 5)+'.jpg"></center>'
 	'You spend your working time polishing your nails and all the stuff everyone actually thinks secretaries do.'
-	''
 	gs 'stat'
 	act 'Continue':gt 'leonid', 'secretaryGate'
 end
@@ -326,7 +325,7 @@ if $ARGS[0] = 'officeKitchenBringCoffeeNormal':
 end
 
 if $ARGS[0] = 'officeFuck':
-	sexType = rand(1, 2)
+	sexType = rand(1,2)
 	if sexType = 1:
 		'<center><video autoplay loop src="images/characters/pavlovsk/resident/leonid/sex/pussy'+rand(1, 5)+'.mp4"></video></center>'
 		'<<$bName>> bends you over his desk, pushing the paperwork away.'
@@ -375,7 +374,7 @@ end
 
 if $ARGS[0] = 'askForJob':
 	minut += 2
-	'Sir you know.. I.. I need money. So i thought, maybe, maybe I could work for you..'
+	'Sir you know.. I.. I need money. So I thought, maybe, maybe I could work for you..'
 	'You don''t want me whoring to random men, do you?'
 	''
 	'Hmm, <<$pcs_firstname>>, I was actually already thinking about hiring a secretary.'
@@ -389,7 +388,8 @@ if $ARGS[0] = 'askForJobYes':
 	''
 	'Good.'
 	'Come next working day between 9 and 10.'
-	'Be sure to dress as befits to your role - here, buy some office clothes (he hands you 5000 RUB).'
+	'Be sure to dress as befits to your new role.'
+	'He takes 5000 rubles and hands them to you. Here, buy some office clothes, I need you to at least look the part.'
 	money += 5000
 	leonidSecretary = 1
 	act 'Leave':gt 'leonid', 'office'