1
0
Pārlūkot izejas kodu

[changed] willpower additions by nutluck/julzor and a new event in sexshop

julzor 5 gadi atpakaļ
vecāks
revīzija
c948b76f9c

+ 21 - 57
locations/Snpc.qsrc

@@ -63,7 +63,7 @@ if numnpc = 9:gs 'kotovtalker'
 !!!!!!!!!!!!!
 if npc_grupTipe['A<<numnpc>>'] = 4:
 	if $loc = 'gdkin':
-		if pav_slut < 125:
+		if pav_slut < 150:
 			if numnpc ! 9:
 				if npc_gender['A<<numnpc>>'] = 0:
 					'<<$npc_firstname[''A<<numnpc>>'']>> offers you a beer and says: "Hey <<$pcs_nickname>>! Let''s drink some beer and have some fun!"'
@@ -84,7 +84,7 @@ if npc_grupTipe['A<<numnpc>>'] = 4:
 					act 'Move away':gt $loc, $metka
 				end
 			end
-		elseif pav_slut >= 125:
+		elseif pav_slut >= 150:
 			if npc_gender['A<<numnpc>>'] = 0:
 				'<<$npc_firstname[''A<<numnpc>>'']>> looks at you wearily: "What do you want? Looking for a dick to suck on or something?"'
 			else
@@ -99,7 +99,6 @@ if npc_grupTipe['A<<numnpc>>'] = 4:
 end
 
 if numnpc = 144:
-!!I would like to change this so even if all the requirements are meet it only fires one in 5 times. 
 	if $loc ! 'gdkin' and npc_rel['A<<numnpc>>'] > 50 and (Anush_sex > 0 or hotcat >= 7) and rand(0,4) = 0:
 		act 'You''re looking flushed':
 			*clr & cla
@@ -203,9 +202,7 @@ if numnpc = 23:
 	end
 end
 
-!!!!!!!!!!!!!
-!!!Chat!!!
-!!!!!!!!!!!!!
+!!Chat
 if narkoman = 1 and npcnum = 1 and npc_rel['A1'] > 100:
 	'You don''t want to but the you feel miserable and everything hurts, you crave the rush that you''ve come to enjoy so much'
 	'"Please Dimka, can I have some pale lady?"'
@@ -221,9 +218,7 @@ else
 	act 'Move away': gt $loc, $metka
 end
 
-!!!!!!!!!!!!!
-!!!Chat!!!
-!!!!!!!!!!!!!
+!!Chat
 act 'Chat':
 	*clr & cla
 
@@ -259,9 +254,7 @@ act 'Chat':
 	end
 end
 
-!!!!!!!!!!!
-!!Lariska!!
-!!!!!!!!!!!
+!!Lariska
 if numnpc = 13 and lariskaHelp = -1:
 	'She looks at you rejectedly, and softly says: "Leave me alone, <<$pcs_nickname>>. I want nothing to do with you any more."'
 
@@ -272,18 +265,15 @@ if numnpc = 13 and lariskaHelp = -1:
 	end
 end
 
-!!!!!!!!!!!!!!!!!!!!!!
-!!!Artem CHEBOTAREV!!!
-!!!!!!!!!!!!!!!!!!!!!!
+!!Artem CHEBOTAREV
 if numnpc = 2:
-	if (pcs_dom > 0 or grupTipe = 3) and artemLernQW = 0:
+	if (npc_rel['A2'] >= 50 or grupTipe = 3) and artemLernQW = 0:
 		act '"Could you help me out a bit in school?"':
 			*clr & cla
 
 			if $loc = 'gdkin':minut += 5
 
 			npc_rel['A<<numnpc>>'] += 5
-			sub += 1
 
 			if pav_slut < 125: artemLernQW = 1
 
@@ -303,40 +293,28 @@ if numnpc = 2:
 	end
 end
 
-!!!!!!!!!!!!!!!!!!
-!!Ivan Prokhorov!!
-!!!!!!!!!!!!!!!!!!
-
+!!Ivan Prokhorov
 if numnpc = 3:gt 'IvanEv', 'School Chat'
 
-!!!!!!!!!!!!!!!
-!!Vitek Kotov!!
-!!!!!!!!!!!!!!!
-
+!!Vitek Kotov
 if numnpc = 9 and kotovloveqw > 0 and $loc ! 'gdkin' and NikoPayback = 2:act 'Tell him about Niko':gt 'NikoPayback', 'Vitek Help'
 
-!!!!!!!!!!!!!!!!!!
-!!!Fedor Kozlov!!!
-!!!!!!!!!!!!!!!!!!
-
+!!Fedor Kozlov
 if numnpc = 5 and $loc ! 'gdkin' and FedorLove < 0:
 	gt 'FedorMisc', 'Fedor Hate'
 elseif numnpc = 5 and $loc ! 'gdkin':
 	gt 'FedorMisc', 'Fedor Chat'
 end
 
-!!!!!!!!!!!!!!!!!!
-!!!JULIA milova!!!
-!!!!!!!!!!!!!!!!!!
+!!JULIA milova
 if numnpc = 12:
-	if (pcs_dom > 0 or grupTipe = 3) and JuliaMilLernQW = 0 and npc_rel['A<<numnpc>>'] >= 80:
+	if (npc_rel['A12'] >= 50 or grupTipe = 3) and JuliaMilLernQW = 0 and npc_rel['A<<numnpc>>'] >= 80:
 		act '"Could you help me out a bit in school?"':
 			*clr & cla
 
 			if $loc = 'gdkin':minut += 5
 
 			npc_rel['A<<numnpc>>'] += 5
-			sub += 1
 			JuliaMilLernQW = 1
 			gs 'stat'
 			'<center><b><font color="maroon"><<$npc_firstname[''A<<numnpc>>'']>> <<$npc_lastname[''A<<numnpc>>'']>></font></b></center>'
@@ -354,10 +332,7 @@ if numnpc = 12:
 	end
 end
 
-!!!!!!!!!!!!!!!!!!!
-!!!Katja MEYNOLD!!!
-!!!!!!!!!!!!!!!!!!!
-
+!!Katja MEYNOLD
 if numnpc = 14:
 	if meynoldQW = 1:
 		act 'Thank Katja for taking you home from the disco':
@@ -479,7 +454,7 @@ if numnpc = 14:
 	end
 
 	if apmeet = 3 and artemIzdev = 0:
-		act 'Ask how to stop Artem and Peter''s blackmail':
+		act 'Ask how to stop Artem and Petka''s blackmail':
 			*clr & cla
 			if $loc = 'gdkin':minut += 5
 			artemIzdev = 1
@@ -487,7 +462,7 @@ if numnpc = 14:
 
 			'<center><b><font color = maroon><<$npc_firstname[''A<<numnpc>>'']>> <<$npc_lastname[''A<<numnpc>>'']>></font></b></center>'
 			'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big<<numnpc>>.jpg"></center>'
-			'You make sure no one else is paying attention, and tell Katja about what Artem and Peter are doing to you on Mondays. At first she doesn''t believe you. After a while, all of the nasty details you''re sharing convince her that there is no way you''re making this up. Katja is shocked!'
+			'You make sure no one else is paying attention, and tell Katja about what Artem and Petka are doing to you on Mondays. At first she doesn''t believe you. After a while, all of the nasty details you''re sharing convince her that there is no way you''re making this up. Katja is shocked!'
 			'You tell her that the only way you have thought of to get rid of their blackmailing, is to get blackmailing material of your own. Katja nods and says: "That makes sense, actually... if you could somehow make it look violent, I bet it would work even better! I don''t know where you would be able to find a tiny camera though... maybe Albina can help you?"'
 
 			if $loc ! 'gdkin':
@@ -513,19 +488,15 @@ if numnpc = 14:
 	end
 end
 
-!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!Natasha Belova Botha!!
-!!!!!!!!!!!!!!!!!!!!!!!!!
-
+!!Natasha Belova Botha
 if numnpc = 16:
-	if pcs_dom > 0 and NatashaQW = 0 and npc_rel['A<<numnpc>>'] >= 80:
+	if npc_rel['A16'] >= 50 and NatashaQW = 0 and npc_rel['A<<numnpc>>'] >= 80:
 		act '"Could you help me out a bit in school?"':
 			*clr & cla
 
 			if $loc = 'gdkin':minut += 5
 
 			npc_rel['A<<numnpc>>'] += 5
-			sub += 1
 			NatashaQW = 1
 			gs 'stat'
 			'<center><b><font color="maroon"><<$npc_firstname[''A<<numnpc>>'']>> <<$npc_lastname[''A<<numnpc>>'']>></font></b></center>'
@@ -546,7 +517,6 @@ if numnpc = 16:
 			minut += 5
 			natotrab += 1
 			natsub += 1
-			pcs_dom += 1
 			gs 'stat'
 			'<center><b><font color="maroon">Girls Bathroom</font></b></center>'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/bathroom/girlsbathroom.jpg"></center>'
@@ -577,10 +547,7 @@ if numnpc = 16:
 	end
 end
 
-!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!Lizaveta Petrov!!!!!
-!!!!!!!!!!!!!!!!!!!!!!!!!
-
+!!Lizaveta Petrov
 if numnpc = 31:
 	act 'Latest gossip':
 		*clr & cla
@@ -598,10 +565,7 @@ if numnpc = 31:
 	end
 end
 
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-!!!!!Aleksandra Kirilenko!!!!!
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
+!!Aleksandra Kirilenko
 if numnpc = 231:
 	if npc_rel['A<<numnpc>>'] >= 100 and grupTipe = 3 and npc_QW['A<<numnpc>>'] = 0 and temper >= 15:
 		act 'Ask to join at library after school':
@@ -639,7 +603,7 @@ if numnpc = 231:
 				act 'Move away': gt $loc, $metka
 			end
 		end
-	elseif npc_rel['A<<numnpc>>'] >= 100 and npc_QW['A<<numnpc>>'] = 4 and pcs_dom >= 20:
+	elseif npc_rel['A<<numnpc>>'] >= 100 and npc_QW['A<<numnpc>>'] = 4:
 		act 'Serious talk':
 			*clr & cla
 			minut += 5
@@ -661,7 +625,7 @@ if numnpc = 231:
 				act 'Move away': gt $loc, $metka
 			end
 		end	
-	elseif npc_rel['A<<numnpc>>'] >= 100 and npc_QW['A<<numnpc>>'] = 4 and pcs_dom < 20:
+	elseif npc_rel['A<<numnpc>>'] >= 100 and npc_QW['A<<numnpc>>'] = 4:
 		act 'Chicken Out':
 			*clr & cla
 			minut += 5

+ 79 - 51
locations/qjob.qsrc

@@ -33,15 +33,19 @@ if $ARGS[0] = 'var1':
 
 			gs 'arousal', 'kiss', 3
 			gs 'stat'
-			
-			act 'Tell him to stop':
-				cla
-				*clr
-				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/photoshoot/f0.jpg"></center>'
-				'"Hey, stop that!" you cry out, and pull away from the photographer. He apologizes profusely and after a moment of silence, asks you put the bra back on so you can finish the shoot. The tension in the studio is palpable during the remainder of the shoot, and you''re glad when it''s over. You quickly get dressed again and leave as soon as you can, after you receive your payment.'
-
-				act 'Leave the studio':gt 'down'
-			end
+			gs 'willpower', 'kiss', 'resist', 'medium'
+			if will_cost <= pcs_willpwr:
+				act 'Tell him to stop (<<will_cost>> Willpower)':
+					*clr & cla
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/photo/photoshoot/f0.jpg"></center>'
+					'"Hey, stop that!" you cry out, and pull away from the photographer. He apologizes profusely and after a moment of silence, asks you put the bra back on so you can finish the shoot. The tension in the studio is palpable during the remainder of the shoot, and you''re glad when it''s over. You quickly get dressed again and leave as soon as you can, after you receive your payment.'
+					act 'Leave the studio':gt 'down'
+				end
+			else
+				act 'Tell him to stop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end	
 
 			act 'Let it happen':
 				cls
@@ -56,17 +60,22 @@ if $ARGS[0] = 'var1':
 				gs 'arousal', 'kiss', 15, 'lesbian', 'group'
 				gs 'arousal', 'foreplay', 15, 'lesbian', 'group'
 				gs 'arousal', 'cuni_give', 15, 'lesbian', 'group'
-				minut -= 15
+				minut -= 45
 				gs 'stat'
-				
-				act 'Refuse and leave':
-					cla
-					'You smile at the photographer confidently and say: "Thanks, but no thanks. That was nice, but I have other places to go now. Ciao!"'
-					'The photographer looks at you a bit surprised, and opens his mouth to object. Then he shrugs and looks at the other girl, who is more willing to go with him. His assistant gives you the money from the shoot, while you hear the photographer and the other model having loud sex in the locker room next to you. The assistant doesn''t seem phased at all; apparently this happens all the time, and you would''ve been just one of the many notches on his belt. You quickly slip back into your normal clothes and leave.'
-
-					gs 'arousal', 'end'
-					gs 'stat'
-					act 'Leave the studio':gt 'down'
+				gs 'willpower', 'sex', 'resist', 'medium'
+				if will_cost <= pcs_willpwr:
+					act 'Refuse and leave (<<will_cost>> Willpower)':
+						*clr & cla
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						'You smile at the photographer confidently and say: "Thanks, but no thanks. That was nice, but I have other places to go now. Ciao!"'
+						'The photographer looks at you a bit surprised, and opens his mouth to object. Then he shrugs and looks at the other girl, who is more willing to go with him. His assistant gives you the money from the shoot, while you hear the photographer and the other model having loud sex in the locker room next to you. The assistant doesn''t seem phased at all; apparently this happens all the time, and you would''ve been just one of the many notches on his belt. You quickly slip back into your normal clothes and leave.'
+						gs 'arousal', 'end'
+						gs 'stat'
+						act 'Leave the studio':gt 'down'
+					end
+				else
+					act 'Refuse 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 'Go with them for some more fun':
@@ -86,12 +95,17 @@ if $ARGS[0] = 'var1':
 		'When you''re nearly done, she says: "Listen... I''ve already discussed this with the other girl, but you should know: we''re not doing this shoot for advertising purposes. It''s a shoot for a company that produces erotic content."'
 		'Noticing your questioning look, she quickly adds: "It''s only for abroad, so no one you know will see this footage, I promise! What do you say?"'
 		'Slowly it dawns upon you: without ever actually saying it out loud, the photographer is asking you to do a porn shoot with this other girl...'
-
-		act 'Refuse and leave':
-			cla
-			'"What!? I''m not here to do porn! What kind of girl you think I am!?" you ask indignantly, and quickly walk back to the dressing room. The photographer tries to convince you through the door while you put your own clothes back on, but you leave the building without saying another word. The nerve of some people!'
-
-			act 'Leave the studio':gt 'down'
+		gs 'willpower', 'sex', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Refuse and leave (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				'"What!? I''m not here to do porn! What kind of girl you think I am!?" you ask indignantly, and quickly walk back to the dressing room. The photographer tries to convince you through the door while you put your own clothes back on, but you leave the building without saying another word. The nerve of some people!'
+				act 'Leave the studio':gt 'down'
+			end
+		else
+			act 'Refuse 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 'Agree to do the shoot':
@@ -156,17 +170,21 @@ if $ARGS[0] = 'var2':
 	'When you look at her with confusion in your eyes, she nods at your chest and adds: "How about you show those puppies off a little? I think you''re a gorgeous girl, and no one will see these photos but me, I promise!"'
 	'"Erm... I still get paid, right?" you ask. The lady nods and says hopefully: "Of course! You get paid either way, I think you did great! The official part of the shoot is over... it''d just be us having some fun, from now on. What do you think?"'
 	'You''re fairly sure she''s not talking about just photos, with that horny look in her eyes. She wants you, badly.'
-
-	act 'Respectfully decline':
-		cla
-		money += 2500
-		'"I''m sorry, but... no. If the shoot is done, I''m done", you tell the lady resolutely. She seems disappointed, but doesn''t stop you when you go to the dressing room to change into your regular clothes.'
-		'When you''re ready to leave, she stands ready by the door with an envelope in your hand. She offers it to you and asks seductively: "Are you sure? I bet we could have some fun, you and I! Completely off-camera..."'
-		'You smile apologetically, but decline and leave the studio. When you open the envelope you find 2,500 <b>₽</b> in it, 500 more than you were promised! It seems she really did enjoy your presence.'
-
-		act 'Leave the studio':gt 'down'
+	gs 'willpower', 'sex', 'resist', 'medium'
+	if will_cost <= pcs_willpwr:
+		act 'Respectfully decline (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			money += 2500
+			'"I''m sorry, but... no. If the shoot is done, I''m done", you tell the lady resolutely. She seems disappointed, but doesn''t stop you when you go to the dressing room to change into your regular clothes.'
+			'When you''re ready to leave, she stands ready by the door with an envelope in your hand. She offers it to you and asks seductively: "Are you sure? I bet we could have some fun, you and I! Completely off-camera..."'
+			'You smile apologetically, but decline and leave the studio. When you open the envelope you find 2,500 <b>₽</b> in it, 500 more than you were promised! It seems she really did enjoy your presence.'
+			act 'Leave the studio':gt 'down'
+		end
+	else
+		act 'Respectfully decline (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end
-
 	act 'Have some fun with her':
 		cls
 		money += 2000
@@ -201,14 +219,19 @@ if $ARGS[0] = 'var3':
 		'Artists and their cryptic descriptions! You carefully ask: "So uhh, what would my role in this be?"'
 		'He gives you an embarrassed look and mutters: "I''ve always had trouble talking to women. If you would help me... relax a little, that would help out a great deal. I can pay you!"'
 		'"So you just want to fuck me?" you ask him sharply, getting to the point. He shrugs and pulls out the money he promised. Yes, that is why you''re really here.'
-
-		act 'Refuse angrily':
-			cla
-			'"What, you made me come all the way down here just because you need a whore? Why not just get a whore!?" you ask him, barely stopping yourself from spitting in his face in anger.'
-			'"I''m sorry! I''m so sorry!" he stutters. The guy is terribly embarrassed, and doesn''t know what to say. You actually feel a bit sorry for him when he offers you some money just for showing up, trying to apologize with a desperate look in his eyes.'
-			'Seeing it''s not much, you shout: "Keep it, I don''t want your money!" and quickly leave, slamming the door shut behind you.'
-
-			act 'Leave his apartment':gt 'down'
+		gs 'willpower', 'sex', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Refuse angrily (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				'"What, you made me come all the way down here just because you need a whore? Why not just get a whore!?" you ask him, barely stopping yourself from spitting in his face in anger.'
+				'"I''m sorry! I''m so sorry!" he stutters. The guy is terribly embarrassed, and doesn''t know what to say. You actually feel a bit sorry for him when he offers you some money just for showing up, trying to apologize with a desperate look in his eyes.'
+				'Seeing it''s not much, you shout: "Keep it, I don''t want your money!" and quickly leave, slamming the door shut behind you.'
+				act 'Leave the studio':gt 'down'
+			end
+		else
+			act 'Refuse angrily (<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 reluctantly':
@@ -277,14 +300,19 @@ if $ARGS[0] = 'var3':
 		else
 			'While you stand there posing, the artist occasionally walks up to you and adjusts the sheet. His hands always linger on your body a bit longer than they need to be, and he becomes more and more bold.'
 			'Eventually, he walks up to you once more and just begins to paw at your body greedily, squeezing your exposed boob and gliding his hand further and further down your chest.'
-
-			act 'Stop him':
-				cla
-				'"Erm... what are you doing? Could you please stop that?" you ask him intently.'
-				'The man wordlessly pulls his hands away from your body and plucks the sheet a few times, pretending he was just adjusting it. He ignores your questioning smirk as he sits down and continues working on his piece of art, as if nothing happened.'
-				'Finally, the man is finished with his painting. He doesn''t even allow you to look at it but quickly ushers you to the hallway where he pays you the 1,000 <b>₽</b> he promised.'
-
-				act 'Leave the estate':gt 'down'
+			gs 'willpower', 'sex', 'resist', 'medium'
+			if will_cost <= pcs_willpwr:
+				act 'Stop him (<<will_cost>> Willpower)':
+					*clr & cla
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					'"Erm... what are you doing? Could you please stop that?" you ask him intently.'
+					'The man wordlessly pulls his hands away from your body and plucks the sheet a few times, pretending he was just adjusting it. He ignores your questioning smirk as he sits down and continues working on his piece of art, as if nothing happened.'
+					'Finally, the man is finished with his painting. He doesn''t even allow you to look at it but quickly ushers you to the hallway where he pays you the 1,000 <b>₽</b> he promised.'
+					act 'Leave the studio':gt 'down'
+				end
+			else
+				act 'Stop him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
 
 			act 'Let it happen':

+ 1 - 1
locations/qwBarBilliard2.qsrc

@@ -1,5 +1,5 @@
 # qwBarBilliard2
-
+!!this file is unfinished and will need willpower when it is finished
 $location_type = 'event'
 gs 'themes', 'indoors'
 menu_off = 1

+ 33 - 13
locations/reks.qsrc

@@ -321,9 +321,11 @@ if $ARGS[0] = 'avto':
 	'You stepped into the new foreign car and went for a ride. Rex was swerving on the road. You noticed, he was already a little drunk. Rex stopped at a little place overlooking the lake.'
 	'He pulled from the back seat 2 cans of beer and offered you one.'
 
-	if pcs_dom > 5:
-		act 'No':
+	gs 'willpower', 'drink', 'resist', 'medium'
+	if will_cost <= pcs_willpwr:
+		act 'No (<<will_cost>> Willpower)':
 			*clr & cla
+			gs 'willpower', 'pay', 'resist'
 			minut += 20
 			rex -= 2
 			gs 'stat'
@@ -331,6 +333,8 @@ if $ARGS[0] = 'avto':
 			'You pretty much sit around waiting for an already tipsy Rex to finish the beer.'
 			gs 'reks', 'rex_story'
 		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
 	act 'Agree':
 		*clr & cla
@@ -436,9 +440,11 @@ if $ARGS[0] = 'avto2':
 			'Rex holds you by the hand. He is surprised that you don''t mind. You notice he is a little nervous.'
 			gs 'reks', 'rex_car_end'
 		end
-		if pcs_dom >= 5:
-			act 'Remove the arm':
+		gs 'willpower', 'misc', 'resist', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Pull your hand away (<<will_cost>> Willpower)':
 				*clr & cla
+				gs 'willpower', 'pay', 'resist'
 				minut += 30
 				rexCarCount -= 1
 				gs 'stat'
@@ -446,12 +452,16 @@ if $ARGS[0] = 'avto2':
 				'You gently remove his arm. Rex lets out a little sigh and continued the conversation.'
 				gs 'reks', 'rex_car_end'
 			end
+		else
+			act 'Pull your hand away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 	elseif rexCarCount >= 7:
 		'You ride with Rex, during the ride, he puts his hand on your knee.'
-		if pcs_dom >= 5:
-			act 'Remove the arm':
+		gs 'willpower', 'foreplay', 'resist', 'easy'
+		if will_cost <= pcs_willpwr:
+			act 'Pull your hand away (<<will_cost>> Willpower)':
 				*clr & cla
+				gs 'willpower', 'pay', 'resist'
 				minut += 30
 				rexCarCount -= 1
 				gs 'stat'
@@ -459,6 +469,8 @@ if $ARGS[0] = 'avto2':
 				'You gently remove his arm. Rex lets out a little sigh and continued the conversation.'
 				gs 'reks', 'rex_car_end'
 			end
+		else
+			act 'Pull your hand away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 		end
 		act 'Let him':
 			*clr & cla
@@ -468,16 +480,20 @@ if $ARGS[0] = 'avto2':
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/car/carrex3.jpg"></center>'
 			'Rex keeps his hand on your leg just above the knee, you continued to talk.'
-			if pcs_dom >= 5:
-				act 'Remove the arm':
+			gs 'willpower', 'foreplay', 'resist', 'medium'
+			if will_cost <= pcs_willpwr:
+				act 'Pull your hand away (<<will_cost>> Willpower)':
 					*clr & cla
-					minut += 20
+					gs 'willpower', 'pay', 'resist'
+					minut += 30
 					rexCarCount -= 1
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/car/carrex4.jpg"></center>'
 					'You gently remove his arm. Rex lets out a little sigh and continued the conversation.'
 					gs 'reks', 'rex_car_end'
 				end
+			else
+				act 'Pull your hand away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
 			act 'Further':
 				*clr & cla
@@ -487,16 +503,20 @@ if $ARGS[0] = 'avto2':
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/car/carrex5.jpg"></center>'
 				'During the conversation, Rex ''accidentally'' raises his hand a little higher up your leg.'
-				if pcs_dom >= 5:
-					act 'Remove the arm':
+				gs 'willpower', 'foreplay', 'resist', 'medium'
+				if will_cost <= pcs_willpwr:
+					act 'Pull your hand away (<<will_cost>> Willpower)':
 						*clr & cla
-						minut += 10
+						gs 'willpower', 'pay', 'resist'
+						minut += 30
 						rexCarCount -= 1
 						gs 'stat'
-						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/car/carrex6.jpg"></center>'
+						'<center><img <<$set_imgh>> src="images/characters/pavlovsk/resident/reks/event/car/carrex4.jpg"></center>'
 						'You gently remove his arm. Rex lets out a little sigh and continued the conversation.'
 						gs 'reks', 'rex_car_end'
 					end
+				else
+					act 'Pull your hand away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 				end
 				act 'Further':
 					*clr & cla

+ 80 - 75
locations/salon.qsrc

@@ -44,6 +44,7 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'solyariy':
+	cla & *clr
 	minut += 60
 	pcs_tan += 10
 	inhib_exp += rand(1,5)
@@ -117,6 +118,7 @@ if $ARGS[0] = 'resnici':
 end
 
 if $ARGS[0] = 'lashTreatment':
+	cla & *clr
 	minut += 30
 	if pcs_lashes < 2:pcs_lashes += 1
 	if pcs_naturallashes < 2:pcs_naturallashes += 1
@@ -132,6 +134,7 @@ if $ARGS[0] = 'lashTreatment':
 end
 
 if $ARGS[0] = 'lashFalsies':
+	cla & *clr
 	minut += 20
 	'The specialist collects your payment and moves you over to a chair with a headrest, which she has you tilt your head back up against.'
 	if lashfalsiesstyle = 1:
@@ -190,7 +193,7 @@ if $ARGS[0] = 'lashExtension':
 			false_lashes = 0
 			pcs_lashes = pcs_naturallashes
 		end
-			if lashextensionstyle = 2:
+		if lashextensionstyle = 2:
 			if pcs_lashes < 3:pcs_lashes = 3
 			money -= 1000
 			'Over the next hour or so, you lay there to have your lashes tidied up; the technician re-glues any loose ones and applies new ones to the new growth you''ve had over the past few weeks.'
@@ -232,6 +235,7 @@ if $ARGS[0] = 'lashExtension':
 end
 
 if $ARGS[0] = 'epilyaciya':
+	cla & *clr
 	minut += 60
 	pcs_leghair = -10
 	pcs_pubes = -10
@@ -245,6 +249,7 @@ if $ARGS[0] = 'epilyaciya':
 end
 
 if $ARGS[0] = 'ozdormas':
+	cla & *clr
 	minut += 60
 	vidageday += 3
 	money -= 2500
@@ -264,6 +269,7 @@ if $ARGS[0] = 'ozdormas':
 end
 
 if $ARGS[0] = 'uhodkosha':
+	cla & *clr
 	minut += 60
 	inhib_exp += rand(1,5)
 	pcs_skin += 20
@@ -277,6 +283,7 @@ if $ARGS[0] = 'uhodkosha':
 end
 
 if $ARGS[0] = 'omoloshenie':
+	cla & *clr
 	minut += 60
 	inhib_exp += rand(1,5)
 	vidageday += 50
@@ -290,8 +297,7 @@ if $ARGS[0] = 'omoloshenie':
 end
 
 if $ARGS[0] = '0':
-	cla
-	*clr
+	cla & *clr
 	i = arrsize('$sparrnam')
 	stat['cum_count'] += 1
 	sparrloc[i] = 7
@@ -308,92 +314,92 @@ if $ARGS[0] = '0':
 	'You show him the stain on your clothes. "You girl her spilled that stuff on my clothes look at it, it''s ruined."'
 	'He gives the girl a glare for a moment before he gives you a reassuring smile. "Oh no that will come right out with a cleaning, we will do all we can to make this right, we will even pay for the cleaning and I will assure you she will be punished."'
 	act 'Agree':money += 5000 & gt 'salon', 'start'
-	act 'Require punish now':
-		cla
-		orgasm += 1
-		pcs_dom += 1
-		girl += 1
-		gs 'npcgeneratec', 0, 'salon worker', rand(35,55)
-		gs 'boyStat', $npclastgenerated
-		'You nod at his offer. "Fine but I want this bitch punished now!'
-		'He seems a bit taken back by your attitude. "Very well, how would you like her punished? Perhaps we can take it out of her pay, or she can do this procedure at no wages." He seems to think these are fitting punishments.'
-		'You shake your head no, no the bitch made your clothes look like they have cum on them. It''s only fitting you return the favor. "No I want you to fuck her right here as I tell you to."'
-		'"I''m sorry, but I can not do that." stammered the guy.'
-		act 'Punish the bitch':
-			cla
-			*clr
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/sex/pri2.jpg"></center>'
-			'"You asked me how I''d like her to be punished, now fuck her right here as I tell you to." you say, <<$boydesc>> looks from you to her and back to you.'
-			'Clearly he likes your idea of punishment, the bulge now straining against his pants is clear evidence of that. He seems unsure what to say, so you decided to take matters into your own hands.'
-			'You reach over and unzip his pants, reaching inside you grab his now hard <<dick>>cm <<$dick_girth>> dick in your hand and pull it out. As you do you start stroking it, any further protest he might have had vanishes.'
-			gs 'arousal', 'hj', 5, 'dom'
+	gs 'willpower', 'sex', 'force', 'medium'
+	if will_cost <= pcs_willpwr:
+		act 'Require punishment (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'force'
+			orgasm += 1
+			girl += 1
+			gs 'npcgeneratec', 0, 'salon worker', rand(35,55)
+			gs 'boyStat', $npclastgenerated
 			gs 'stat'
-			act 'Make the bitch suck it':
-				cla
-				*clr
-				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/sex/pri3.jpg"></center>'
-				'When he no longer protest any further, you reach over with your other hand and grab the bitch by her hair. You pull her face over to his cock and you say. "Open your mouth bitch and suck his cock."'
-				'With these words, you push her mouth at his cock, she obediently opens her mouth letting his <<dick>>cm <<$dick_girth>> cock in her mouth, she wraps her lips tightly around it.'
-				'You pull the girls head by her hair back and forth, occasionally forcing her lips against his balls, gagging her as you make her deep throat him.'
-				gs 'arousal', 'voyeur_sex', 5, 'dom'
+			'You nod at his offer. "Fine but I want this bitch punished now!'
+			'He seems a bit taken back by your attitude. "Very well, how would you like her punished? Perhaps we can take it out of her pay, or she can do this procedure at no wages." He seems to think these are fitting punishments.'
+			'You shake your head no, no the bitch made your clothes look like they have cum on them. It''s only fitting you return the favor. "No I want you to fuck her right here as I tell you to."'
+			'"I''m sorry, but I can not do that." stammered the guy.'
+			act 'Punish the bitch':
+				cla & *clr
+				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/sex/pri2.jpg"></center>'
+				'"You asked me how I''d like her to be punished, now fuck her right here as I tell you to." you say, <<$boydesc>> looks from you to her and back to you.'
+				'Clearly he likes your idea of punishment, the bulge now straining against his pants is clear evidence of that. He seems unsure what to say, so you decided to take matters into your own hands.'
+				'You reach over and unzip his pants, reaching inside you grab his now hard <<dick>>cm <<$dick_girth>> dick in your hand and pull it out. As you do you start stroking it, any further protest he might have had vanishes.'
+				gs 'arousal', 'hj', 5, 'dom'
 				gs 'stat'
-				act 'Doggystyle':
-					cla
-					*clr
-					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/sex/pri4.jpg"></center>'
-					'After several minutes of making her gag on his <<dick>>cm <<$dick_girth>> cock, you want a change in the action. You pull her head away and command her. "Take your clothes off bitch."'
-					'She obediently strips naked with out a word, once she is naked you force her to bend over as you look to the man and command him. "Fuck her pussy." He obediently slips his dick in her pussy, both of them let out moans of pleasure.'
-					'He beings to get into it and starts pounding her balls deep. You pull down your panties and spread you legs. Taking one of her hands in yours you put it on your pussy, she diligently begins to massage your clitoris.'
+				act 'Make the bitch suck it':
+					cla & *clr
+					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/sex/pri3.jpg"></center>'
+					'When he no longer protest any further, you reach over with your other hand and grab the bitch by her hair. You pull her face over to his cock and you say. "Open your mouth bitch and suck his cock."'
+					'With these words, you push her mouth at his cock, she obediently opens her mouth letting his <<dick>>cm <<$dick_girth>> cock in her mouth, she wraps her lips tightly around it.'
+					'You pull the girls head by her hair back and forth, occasionally forcing her lips against his balls, gagging her as you make her deep throat him.'
 					gs 'arousal', 'voyeur_sex', 5, 'dom'
-					gs 'arousal', 'vaginal_finger', 5, 'dom'
 					gs 'stat'
-					act 'Put her on top':
-						cla
-						*clr
-						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/sex/pri5.jpg"></center>'
-						'A few minutes later you get off the chair and look at him. "Sit in the chair." Which he does at once, then you pull the girl over and point at him.'
-						'"Crawl on top of him and straddle him, ride him." She wastes no time doing as you command, once straddling him she beings to rhythmically ride his cock. As she moans in pleasure you grab her hips and force her all the way down, so he is once again balls deep in her twat.'
+					act 'Doggystyle':
+						cla & *clr
+						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/sex/pri4.jpg"></center>'
+						'After several minutes of making her gag on his <<dick>>cm <<$dick_girth>> cock, you want a change in the action. You pull her head away and command her. "Take your clothes off bitch."'
+						'She obediently strips naked with out a word, once she is naked you force her to bend over as you look to the man and command him. "Fuck her pussy." He obediently slips his dick in her pussy, both of them let out moans of pleasure.'
+						'He beings to get into it and starts pounding her balls deep. You pull down your panties and spread you legs. Taking one of her hands in yours you put it on your pussy, she diligently begins to massage your clitoris.'
 						gs 'arousal', 'voyeur_sex', 5, 'dom'
+						gs 'arousal', 'vaginal_finger', 5, 'dom'
 						gs 'stat'
-						act 'Lay them on the floor':
-							cla
-							*clr
-							'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/sex/pri6.jpg"></center>'
-							'Watching this you begin to masturbate, you feel yourself getting turned on as you pussy gets wetter. Unable to be left out anymore, you grab the girl and pull her off, shoving her down on the floor. "Lay on your back."'
-							'She does as you tell her and then you look at the man. "Lay on your side next to her and start fucking her again." His grin tells you he is not only enjoying fucking her but loves that you are telling him how to fuck her.'
-							'He lays down next to her and immediately slips his <<dick>>cm <<$dick_girth>> dick back in her and starts fucking her again. You pull the rest of your clothes off and kneel down over her face. "Lick my pussy, bitch." Which she eagerly does, her tongue laps and teases your clit.'
-							'You can tell she has some experience at eating pussy as it feels great.'
-							gs 'arousal', 'masturbate', 5, 'dom'
-							gs 'arousal', 'cuni', 5, 'dom'
+						act 'Put her on top':
+							cla & *clr
+							'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/sex/pri5.jpg"></center>'
+							'A few minutes later you get off the chair and look at him. "Sit in the chair." Which he does at once, then you pull the girl over and point at him.'
+							'"Crawl on top of him and straddle him, ride him." She wastes no time doing as you command, once straddling him she beings to rhythmically ride his cock. As she moans in pleasure you grab her hips and force her all the way down, so he is once again balls deep in her twat.'
+							gs 'arousal', 'voyeur_sex', 5, 'dom'
 							gs 'stat'
-							act 'Finish':
-								cla
-								*clr
-								telmasha = 1
-								!gs 'telefon', 'AddContact', 'Axxx', 'icon_masha', "$telsob = 'Masha' & gt 'telefon', 'mobilaraz'","hour >= 8 and hour <= 20","",""
-								masha += 1
-								'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/sex/pri7.jpg"></center>'
-								$orgasm_txt = 'You begin to pant and moan and finally you have an intense orgasm, coating the girls face in your pussy juices. Seeing this the guy grunts and starts pounding harder, obviously getting near to blowing his load as well.'
-								$orgasm_or = 'custom'
+							act 'Lay them on the floor':
+								cla & *clr
+								'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/sex/pri6.jpg"></center>'
+								'Watching this you begin to masturbate, you feel yourself getting turned on as you pussy gets wetter. Unable to be left out anymore, you grab the girl and pull her off, shoving her down on the floor. "Lay on your back."'
+								'She does as you tell her and then you look at the man. "Lay on your side next to her and start fucking her again." His grin tells you he is not only enjoying fucking her but loves that you are telling him how to fuck her.'
+								'He lays down next to her and immediately slips his <<dick>>cm <<$dick_girth>> dick back in her and starts fucking her again. You pull the rest of your clothes off and kneel down over her face. "Lick my pussy, bitch." Which she eagerly does, her tongue laps and teases your clit.'
+								'You can tell she has some experience at eating pussy as it feels great.'
+								gs 'arousal', 'masturbate', 5, 'dom'
 								gs 'arousal', 'cuni', 5, 'dom'
-								gs 'arousal', 'end'
 								gs 'stat'
-								'Standing up you look at him. "Don''t cum in her, stand up." With a slight frown from being so close he does as you tell him. You grab the girl by the hair and pull her up till she is kneeling in front of the guy.'
-								'"Stroke his cock till he cums all over your face." The guy is grinning again as she grabs his cock and begins jerking him off for all she''s worth, while you get dressed. It doesn''t take long before he is shooting his cum all over her pretty face.'
-								'You look at the man. "That''s how you punish bitches." Glancing at her you add. "Isn''t that right bitch?" She nods in agreement, though you are not sure if it is because she really does agree or she is just doing what you say.'
-								'Either way you find it a turn on, with that you take the offered money and grab one of her cards off the counter reading it. "Masha huh? You really know how to use your tongue, I might just call you, so you can use it again." You say to her and then without another glance at the two of them or waiting for a reply you walk out, leaving Masha kneeling on the floor covered in sperm.'
-								act 'Leave':money += 5000 & gt 'salon', 'start'
+								act 'Finish':
+									cla & *clr
+									telmasha = 1
+									!gs 'telefon', 'AddContact', 'Axxx', 'icon_masha', "$telsob = 'Masha' & gt 'telefon', 'mobilaraz'","hour >= 8 and hour <= 20","",""
+									masha += 1
+									'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/sex/pri7.jpg"></center>'
+									$orgasm_txt = 'You begin to pant and moan and finally you have an intense orgasm, coating the girls face in your pussy juices. Seeing this the guy grunts and starts pounding harder, obviously getting near to blowing his load as well.'
+									$orgasm_or = 'custom'
+									gs 'arousal', 'cuni', 5, 'dom'
+									gs 'arousal', 'end'
+									gs 'stat'
+									'Standing up you look at him. "Don''t cum in her, stand up." With a slight frown from being so close he does as you tell him. You grab the girl by the hair and pull her up till she is kneeling in front of the guy.'
+									'"Stroke his cock till he cums all over your face." The guy is grinning again as she grabs his cock and begins jerking him off for all she''s worth, while you get dressed. It doesn''t take long before he is shooting his cum all over her pretty face.'
+									'You look at the man. "That''s how you punish bitches." Glancing at her you add. "Isn''t that right bitch?" She nods in agreement, though you are not sure if it is because she really does agree or she is just doing what you say.'
+									'Either way you find it a turn on, with that you take the offered money and grab one of her cards off the counter reading it. "Masha huh? You really know how to use your tongue, I might just call you, so you can use it again." You say to her and then without another glance at the two of them or waiting for a reply you walk out, leaving Masha kneeling on the floor covered in sperm.'
+									act 'Leave':money += 5000 & gt 'salon', 'start'
+								end
 							end
 						end
 					end
 				end
 			end
 		end
-	end
+	else
+		act 'Require punishment (<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] = '1':
-	cla
+	cla & *clr
 	minut += 5
 	if worksalon = 0:
 		'You ask the manager if he has a job opening.'
@@ -405,7 +411,7 @@ if $ARGS[0] = '1':
             '"You''ll need to file your paperwork with the personnel department."'
 			if (work = 0 and worksalon = 0) or (cheatWork = 1 and worksalon = 0):
 				act 'Take the job':
-					cla
+					cla & *clr
 					worksalon = 1
 					work = 1
 					'You file your paperwork with the personnel department'
@@ -421,8 +427,7 @@ if $ARGS[0] = '1':
 end
 
 if $ARGS[0] = 'beginwork':
-	cla
-	*clr
+	cla & *clr
 	'<center><b><font color="maroon">Beauty</font></b></center>'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/salon/salon.jpg"></center>'
 	'You go to your workstation and prepare it as you wait for your first customer.'
@@ -434,7 +439,7 @@ if $ARGS[0] = 'beginwork':
 end
 
 if $ARGS[0] = 'discharge':
-	cla
+	cla & *clr
 	minut += 10
 	worksalon = 0
 	work = 0

+ 85 - 84
locations/seeporn.qsrc

@@ -1,6 +1,5 @@
 # seeporn
 
-!! this is triggered by going to see porn with the brother in the altstart
 *clr & cla
 '<center><video autoplay loop src="images/shared/home/tv/seeporn.mp4"></video></center>'
 'You and the boys sit down around the TV, Kolka puts on a DVD and immediately the screen is filled with porn.'
@@ -32,7 +31,6 @@ act 'Watch it':
 			act 'Keep quiet':
 				*clr & cla
 				stat['bj'] += 3
-				sub += 5
 				gang += 1
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/grounds/seeporn/sex/seepornblowbang.jpg"></center>'
@@ -103,19 +101,19 @@ act 'Watch it':
 				end
 			end
 
-			if pcs_dom > boyseeporn * 2:
-				act 'They can get lost':
+			gs 'willpower', 'bj', 'resist', 'medium'
+			if will_cost <= pcs_willpwr:
+				act 'Tell them to fuck off (<<will_cost>> Willpower)':
 					*clr & cla
-					pcs_dom += 1
+					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
-					$ImageNeededPlacholder
 					'<center><img <<$set_imgh>> src="images/pc/fuckoff2.jpg"></center>'
 					'You tell them to fuck off.'
-
 					act 'Leave':gt 'gschool_grounds', 'sports'
 				end
+			else
+				act 'Tell them to fuck off (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
-
 			exit
 		elseif evgenQW = 3:
 			*clr & cla
@@ -130,7 +128,6 @@ act 'Watch it':
 
 				stat['hj'] += 2
 				boyseeporn += 1
-				sub += 1
 				gs 'stat'
 
 				if boyseeporn < 2:
@@ -191,17 +188,19 @@ act 'Watch it':
 				end
 			end
 
-			if pcs_dom > boyseeporn * 2:
-				act 'Remove hands':
+			gs 'willpower', 'hj', 'resist', 'medium'
+			if will_cost <= pcs_willpwr:
+				act 'Pull your hands away (<<will_cost>> Willpower)':
 					*clr & cla
-					pcs_dom += 1
+					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/pc/fuckoff2.jpg"></center>'
 					'You angrily remove your hands and yell at the boys.'
-
 					act 'Leave':gt 'gschool_grounds', 'sports'
 				end
-			end
+			else
+				act 'Pull your hands away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end	
 		elseif evgenQW = 2 and rand(0,1) = 0:
 			*clr & cla
 			gs 'stat'
@@ -213,48 +212,47 @@ act 'Watch it':
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/grounds/seeporn/seeporn.jpg"></center>'
 				'You shake your head. Mishan says "Come on, you''re a girl, it''s something good friends do for each other."'
+				act 'Jerk them':
+					*clr & cla
+					stat['hj'] += 2
 
-				if pcs_horny >= 70:
-					act 'Jerk them':
-						*clr & cla
-						stat['hj'] += 2
+					if MihJenSex = 0:MihJenSex = 1 & guy += 2
 
-						if MihJenSex = 0:MihJenSex = 1 & guy += 2
+					evgenQW = 3
+					gs 'stat'
+					'<center><video autoplay loop src="images/locations/pavlovsk/school/grounds/seeporn/sex/doublehj.mp4"></video></center>'
+					'They get there cocks out and you gently rub both members with your hands, Zhendos quickly groaned and his cock flew jet of sperm on your foot, immediately joined by Mishan and also finished on your foot.'
 
-						evgenQW = 3
+					act 'Resent':
+						*clr & cla
+						gs 'boyStat', 'A59'
+						spafinloc = 7
+						sexpartkno = 1
+						gs 'cum_manage'
+						gs 'boyStat', 'A58'
+						spafinloc = 7
+						sexpartkno = 1
+						gs 'cum_manage'
 						gs 'stat'
-						'<center><video autoplay loop src="images/locations/pavlovsk/school/grounds/seeporn/sex/doublehj.mp4"></video></center>'
-						'They get there cocks out and you gently rub both members with your hands, Zhendos quickly groaned and his cock flew jet of sperm on your foot, immediately joined by Mishan and also finished on your foot.'
-
-						act 'Resent':
-							*clr & cla
-							gs 'boyStat', 'A59'
-							spafinloc = 7
-							sexpartkno = 1
-							gs 'cum_manage'
-							gs 'boyStat', 'A58'
-							spafinloc = 7
-							sexpartkno = 1
-							gs 'cum_manage'
-							gs 'stat'
-							'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/grounds/seeporn/sex/seeporncumhj.jpg"></center>'
-							'You shout "You assholes, all over my feet!" But the boys are blissfully sprawled on the couch "Great handjob <<$pcs_nickname>>, such small, soft hands."'
-
-							act 'Leave':gt 'gschool_grounds', 'sports'
-						end
+						'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/grounds/seeporn/sex/seeporncumhj.jpg"></center>'
+						'You shout "You assholes, all over my feet!" But the boys are blissfully sprawled on the couch "Great handjob <<$pcs_nickname>>, such small, soft hands."'
+
+						act 'Leave':gt 'gschool_grounds', 'sports'
 					end
-				elseif pcs_horny < 70:
-					act 'Remove hands':
+				end
+				gs 'willpower', 'hj', 'resist', 'medium'
+				if will_cost <= pcs_willpwr:
+					act 'Pull your hands away (<<will_cost>> Willpower)':
 						*clr & cla
-						pcs_dom += 1
+						gs 'willpower', 'pay', 'resist'
 						gs 'stat'
-						$ImageNeededPlacholder
 						'<center><img <<$set_imgh>> src="images/pc/fuckoff2.jpg"></center>'
 						'You angrily remove your hands and yell at the boys.'
-
 						act 'Leave':gt 'gschool_grounds', 'sports'
 					end
-				end
+				else
+					act 'Pull your hands away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end	
 			end
 			exit
 		elseif evgenQW = 1 and rand(0,1) = 0:
@@ -265,28 +263,27 @@ act 'Watch it':
 			'The boys intensely watch porn, you notice, their boners straining to get out of their pants.'
 			'You feel Zhendos hand gently stroking your ass.'
 
-			if pcs_horny < 70:
-				act 'Remove his hand':
+			gs 'willpower', 'foreplay', 'resist', 'medium'
+			if will_cost <= pcs_willpwr:
+				act 'Pull his hands away (<<will_cost>> Willpower)':
 					*clr & cla
-					pcs_dom += 1
+					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
-					$ImageNeededPlacholder
 					'<center><img <<$set_imgh>> src="images/pc/fuckoff2.jpg"></center>'
 					'You angrily remove Zhendos hand from your ass.'
-
 					act 'Leave':gt 'gschool_grounds', 'sports'
 				end
-			elseif pcs_horny >= 70:
-				act 'Pretend that nothing is happening':
-					*clr & cla
-					sub += 1
-					evgenqw = 2
-					gs 'stat'
-					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/grounds/seeporn/assgrab.jpg"></center>'
-					'You sit on the couch turning red as a lobster enjoying having your butt rubbed.'
+			else
+				act 'Pull his hands away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end	
+			act 'Pretend that nothing is happening':
+				*clr & cla
+				evgenqw = 2
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/grounds/seeporn/assgrab.jpg"></center>'
+				'You sit on the couch turning red as a lobster enjoying having your butt rubbed.'
 
-					act 'Leave':gt 'gschool_grounds', 'sports'
-				end
+				act 'Leave':gt 'gschool_grounds', 'sports'
 			end
 
 			exit
@@ -297,27 +294,27 @@ act 'Watch it':
 			'The boys intensely watch porn, you notice, their boners straining to get out of their pants.'
 			'Zhendos looking at the porn asks you "Have you ever done that, <<$pcs_nickname>>?"'
 
-			if pcs_horny < 70:
-				act 'Go to hell, jerk':
+			gs 'willpower', 'misc', 'resist', 'medium'
+			if will_cost <= pcs_willpwr:
+				act 'Tell him off (<<will_cost>> Willpower)':
 					*clr & cla
-					pcs_dom += 1
+					gs 'willpower', 'pay', 'resist'
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/pc/fuckoff2.jpg"></center>'
 					'You put Zhendos in his place.'
-
 					act 'Leave':gt 'gschool_grounds', 'sports'
 				end
-			elseif pcs_horny >= 70:
-				act 'Keep quiet':
-					*clr & cla
-					sub += 1
-					evgenQW = 1
-					gs 'stat'
-					'<center><video autoplay loop src="images/locations/pavlovsk/school/grounds/seeporn/seeporn_umm.mp4"></video></center>'
-					'You swallow and remain silent watching the porn. Mishan chuckles "And now she''s all flushed. It turns out the girls like porn as well."'
+			else
+				act 'Tell him 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 'Keep quiet':
+				*clr & cla
+				evgenQW = 1
+				gs 'stat'
+				'<center><video autoplay loop src="images/locations/pavlovsk/school/grounds/seeporn/seeporn_umm.mp4"></video></center>'
+				'You swallow and remain silent watching the porn. Mishan chuckles "And now she''s all flushed. It turns out the girls like porn as well."'
 
-					act 'Leave':gt 'gschool_grounds', 'sports'
-				end
+				act 'Leave':gt 'gschool_grounds', 'sports'
 			end
 
 			exit
@@ -346,7 +343,6 @@ if $ARGS[0] = 'SeePornPalevo':
 		act 'Say nothing':
 			*clr & cla
 			stat['bj'] += 3
-			sub += 3
 			gang += 1
 			gs 'stat'
 
@@ -411,7 +407,6 @@ if $ARGS[0] = 'SeePornPalevo':
 		act 'You can manage two little ones':
 			*clr & cla
 			stat['bj'] += 3
-			sub += 3
 			gang += 1
 			gs 'stat'
 
@@ -461,15 +456,21 @@ if $ARGS[0] = 'SeePornPalevo':
 				end
 			end
 		end
+		gs 'willpower', 'bj', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'I don''t think so! (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'pay', 'resist'
+				BrotherNo = 1
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/pc/disgust.jpg"></center>'
+				'You indignantly reject the kids. Your brother looks at you and announces "Probably for the best, your tiny peckers would only count as one cock."'
 
-		act 'I don''t think so!':
-			*clr & cla
-			BrotherNo = 1
-			'<center><img <<$set_imgh>> src="images/pc/disgust.jpg"></center>'
-			'You indignantly reject the kids. Your brother looks at you and announces "Probably for the best, your tiny peckers would only count as one cock."'
-
-			act 'Leave':gt 'gschool_grounds', 'sports'
-		end
+				act 'Leave':gt 'gschool_grounds', 'sports'
+			end
+		else
+			act 'I don''t think so! (<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
 

+ 110 - 83
locations/sexm.qsrc

@@ -336,9 +336,16 @@ if $ARGS[0] = 'variant':
 	if kunday ! daystart:
 		act 'Have him lick you out':gt 'sexm', 'kuni'
 	end
-
-	if pcs_dom > 0 and boyonce[lover_number] = 1 and haraklover[lover_number] = 0 and loverizvrat[lover_number] = 1 and strapon > 0:
-		act 'Fuck him with your strapon':gt 'sexm', 'strapon'
+	gs 'willpower', 'action', 'resist', 'medium'
+	if will_cost <= pcs_willpwr and boyonce[lover_number] = 1 and haraklover[lover_number] = 0 and loverizvrat[lover_number] = 1 and strapon > 0:
+		act 'Fuck him with your strapon (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'force'
+			gs 'stat'
+			gt 'sexm', 'strapon'
+		end
+	elseif will_cost <= pcs_willpwr and boyonce[lover_number] = 1 and haraklover[lover_number] = 0 and loverizvrat[lover_number] = 1 and strapon > 0:
+		act 'Fuck him with your strapon (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 	end
 end
 
@@ -371,47 +378,52 @@ if $ARGS[0] = 'minet':
 
 		act 'Leave':gt 'sexm', 'endsex'
 	end
-
-	act 'Remove his cock before he cums':
-		*clr & cla
-		if haraklover[lover_number] = 0:
-			spafinloc = 13
-			gs 'cum_manage'
-			'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
-			'You remove his dick from your mouth and finish off <<$loverdesc[lover_number]>> with your hand.'
-		elseif haraklover[lover_number] = 1:
-			tiprand = rand(0, 3)
-			if tiprand < 3:
+	gs 'willpower', 'swallow', 'resist', 'medium'
+	if will_cost <= pcs_willpwr:
+		act 'Remove his cock before he cums(<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			if haraklover[lover_number] = 0:
 				spafinloc = 13
 				gs 'cum_manage'
 				'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
 				'You remove his dick from your mouth and finish off <<$loverdesc[lover_number]>> with your hand.'
-			elseif tiprand = 3:
+			elseif haraklover[lover_number] = 1:
+				tiprand = rand(0, 3)
+				if tiprand < 3:
+					spafinloc = 13
+					gs 'cum_manage'
+					'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
+					'You remove his dick from your mouth and finish off <<$loverdesc[lover_number]>> with your hand.'
+				elseif tiprand = 3:
+					facial += 1
+					spafinloc = 11
+					gs 'cum_manage'
+					loverrelation[lover_number] += 1
+					'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
+					'You took his dick out of your mouth and pointed it right at your face. You are now covered with <<$loverdesc[lover_number]>>s warm and sticky cum.'
+				end
+			elseif haraklover[lover_number] = 2:
 				facial += 1
 				spafinloc = 11
 				gs 'cum_manage'
 				loverrelation[lover_number] += 1
 				'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-				'You took his dick out of your mouth and pointed it right at your face. You are now covered with <<$loverdesc[lover_number]>>s warm and sticky cum.'
+				'<<$loverdesc[lover_number]>> holds you by your hair. He takes his dick out of your mouth and cums on your face, covering it with warm and sticky cum.'
 			end
-		elseif haraklover[lover_number] = 2:
-			facial += 1
-			spafinloc = 11
-			gs 'cum_manage'
-			loverrelation[lover_number] += 1
-			'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-			'<<$loverdesc[lover_number]>> holds you by your hair. He takes his dick out of your mouth and cums on your face, covering it with warm and sticky cum.'
-		end
 
-		act 'Leave':gt 'sexm', 'endsex'
-	end
+			act 'Leave':gt 'sexm', 'endsex'
+		end
+	else
+		act 'Remove his cock before he cums (<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] = 'hand':
 	*clr
 	popolaini = 1
 	hja += 1
-	pcs_horny += pcs_dom
 	gs 'brosok'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/shared/sex/cum/handjob/hand1.jpg"></center>'
@@ -431,7 +443,6 @@ end
 if $ARGS[0] = 'kuni':
 	*clr
 	kunday = daystart
-	pcs_horny += pcs_dom + (silaVag * 2 + 5)
 	gs 'brosok'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/shared/sex/kuni/kuni.jpg"></center>'
@@ -636,36 +647,47 @@ if $ARGS[0] = 'startPod':
 
 	if podrand = 0:
 		'<<$loverdesc[lover_number]>> whispered to you, take it in your mouth.'
-
-		act 'Fuck off!':
-			cla
-			pcs_dom += 1
-			gs 'lover', 'remove', lover_number
-			if curr_home = 1:
-				gt 'korrPar'
-			elseif curr_home = 2:
-				gt 'gadukino'
-			elseif curr_home = 3:
-				gt 'korr'
+		gs 'willpower', 'bj', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Fuck off! (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gs 'lover', 'remove', lover_number
+				if curr_home = 1:
+					gt 'korrPar'
+				elseif curr_home = 2:
+					gt 'gadukino'
+				elseif curr_home = 3:
+					gt 'korr'
+				end
 			end
-		end
+		else
+			act 'Fuck 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 'use your mouth':gt 'sexm', 'blow'
 	elseif podrand = 1:
 		'<<$loverdesc[lover_number]>> began to strip off your clothes.'
 
-		act 'Fuck off!':
-			cla
-			pcs_dom += 1
-			gs 'lover', 'remove', lover_number
-			if curr_home = 1:
-				gt 'korrPar'
-			elseif curr_home = 2:
-				gt 'gadukino'
-			elseif curr_home = 3:
-				gt 'korr'
+		gs 'willpower', 'sex', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Fuck off! (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gs 'lover', 'remove', lover_number
+				if curr_home = 1:
+					gt 'korrPar'
+				elseif curr_home = 2:
+					gt 'gadukino'
+				elseif curr_home = 3:
+					gt 'korr'
+				end
 			end
-		end
+		else
+			act 'Fuck 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 'Doggy-Style':gt 'sexm', 'doggy'
 	end
@@ -741,49 +763,55 @@ if $ARGS[0] = 'blow':
 				end
 			end
 		end
-
-		act 'Remove from mouth':
-			*clr & cla
-			if haraklover[lover_number] = 0:
-				spafinloc = 13
-				gs 'cum_manage'
-				'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
-				'You remove his dick from your mouth and finish off <<$loverdesc[lover_number]>> with your hand.'
-			elseif haraklover[lover_number] = 1:
-				tiprand = rand(0, 3)
-
-				if tiprand < 3:
+		gs 'willpower', 'swallow', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Remove from mouth (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				if haraklover[lover_number] = 0:
 					spafinloc = 13
 					gs 'cum_manage'
 					'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
 					'You remove his dick from your mouth and finish off <<$loverdesc[lover_number]>> with your hand.'
-				elseif tiprand = 3:
+				elseif haraklover[lover_number] = 1:
+					tiprand = rand(0, 3)
+
+					if tiprand < 3:
+						spafinloc = 13
+						gs 'cum_manage'
+						'<center><img <<$set_imgh>> src="images/shared/sex/handjob/hand.jpg"></center>'
+						'You remove his dick from your mouth and finish off <<$loverdesc[lover_number]>> with your hand.'
+					elseif tiprand = 3:
+						facial += 1
+						spafinloc = 11
+						gs 'cum_manage'
+						'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
+						'You took his dick out of your mouth and pointed it right at your face. You are now covered with <<$loverdesc[lover_number]>>''s warm and sticky cum.'
+					end
+				elseif haraklover[lover_number] = 2:
 					facial += 1
 					spafinloc = 11
 					gs 'cum_manage'
 					'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-					'You took his dick out of your mouth and pointed it right at your face. You are now covered with <<$loverdesc[lover_number]>>''s warm and sticky cum.'
+					'<<$loverdesc[lover_number]>> holds you by your hair. He takes his dick out of your mouth and cums on your face, covering it with warm and sticky cum.'
 				end
-			elseif haraklover[lover_number] = 2:
-				facial += 1
-				spafinloc = 11
-				gs 'cum_manage'
-				'<center><img <<$set_imgh>> src="images/shared/sex/cum/facial/facial16.jpg"></center>'
-				'<<$loverdesc[lover_number]>> holds you by your hair. He takes his dick out of your mouth and cums on your face, covering it with warm and sticky cum.'
-			end
 
-			act 'Leave':
-				cla
-				gs 'arousal', 'end'
-				if curr_home = 1:
-					gt 'korrPar'
-				elseif curr_home = 2:
-					gt 'gadukino'
-				elseif curr_home = 3:
-					gt 'korr'
+				act 'Leave':
+					cla
+					gs 'arousal', 'end'
+					if curr_home = 1:
+						gt 'korrPar'
+					elseif curr_home = 2:
+						gt 'gadukino'
+					elseif curr_home = 3:
+						gt 'korr'
+					end
 				end
 			end
-		end
+		else
+			act 'Remove from 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
 
 	act 'Masturbate him':
@@ -936,7 +964,6 @@ if $ARGS[0] = 'gangbang':
 		gs 'stat'
 	
 		if pcs_ass >= 10:
-			pcs_horny += pcs_ass + SUB
 			'Two cocks are hammering you from behind, you can feel like them rubbing through the thin barriers between the anus and the vaginal wall. you are starting to get wet while the two cocks enthusiastically continue to pound.'
 		elseif pcs_ass < 10:
 			pcs_horny += (10 - pcs_ass)

+ 288 - 141
locations/sexshop.qsrc

@@ -11,8 +11,7 @@ if $ARGS[0] = 'start':
 	menu_off = 0
 	$location_type = 'public_indoors'
 	cla & *clr
-
-	if kendra > 0 and rand(1, 10) = 10:gt 'sexshop', 'kendra'
+	if rand(1, 10) = 10 and hotcat >= 5 and kendrano ! 1:gt 'sexshop', 'kendra'
 	if $pantyworntype = 'none' and rand(1, 10) = 10:gt 'sexshop', 'shprod'
 
 	clr
@@ -31,7 +30,7 @@ if $ARGS[0] = 'start':
 
 	act 'Leave': minut += 5 & gt 'Nord', 'redlight'
 
-	if sub >= 100 and analplug = 1 and dildo = 1 and pcs_apprnc > 104 and Peter = 0:
+	if analplug = 1 and dildo = 1 and hotcat >= 5 and Peter = 0:
 		if rand(0,1) = 1:
 			'You see an interesting looking middle-aged man, apparently he is the owner of this store.'
 
@@ -120,8 +119,18 @@ if $ARGS[0] = 'start':
 					end
 				end
 			end
-
-			act 'Refuse': pornstudio = 1 & 	gt 'sexshop', 'start'
+			gs 'willpower', 'prostitution', 'resist', 'medium'
+			if will_cost <= pcs_willpwr:
+				act 'Refuse (<<will_cost>> Willpower)':
+					*clr & cla
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					pornstudio = 1	
+					gt 'sexshop', 'start'
+				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	
 		end
 	end
 
@@ -471,11 +480,11 @@ if $ARGS[0] = 'start':
 		end
 	end
 
-	if strapon = 0:
+	if strap-on = 0:
 		if (money < 1200 and karta + bankDebtLimit < 1200) and (dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo = 0):
-			'You cannot afford the strapon.'
+			'You cannot afford the strap-on.'
 			if money >= 1200:
-				act 'Buy a strapon with a 15cm dildo 1,200 <b>₽</b> (cash)':
+				act 'Buy a strap-on with a 15cm dildo 1,200 <b>₽</b> (cash)':
 					*clr & cla
 					menu_off = 1
 					minut += 5
@@ -484,13 +493,13 @@ if $ARGS[0] = 'start':
 					money -= 1200
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
-					'You bought a strapon and paid the cashier.'
+					'You bought a strap-on and paid the cashier.'
 
 					act 'Move away from the counter':gt 'sexshop', 'start'
 				end
 			end
 			if karta + bankDebtLimit >= 1200:
-				act 'Buy a strapon with a 15cm dildo 1,200 <b>₽</b> (card)':
+				act 'Buy a strap-on with a 15cm dildo 1,200 <b>₽</b> (card)':
 					*clr & cla
 					menu_off = 1
 					minut += 5
@@ -499,14 +508,14 @@ if $ARGS[0] = 'start':
 					karta -= 1200
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
-					'You bought a strapon and paid the cashier.'
+					'You bought a strap-on and paid the cashier.'
 
 					act 'Move away from the counter':gt 'sexshop', 'start'
 				end
 			end
 		elseif (money < 500 and karta + bankDebtLimit < 500) and (dildo + middildo + largedildo + bigdildo + extradildo + superdildo + maddildo ! 0):
 			if money >= 1200:
-				act 'Buy a strapon harness 500 <b>₽</b> (cash)':
+				act 'Buy a strap-on harness 500 <b>₽</b> (cash)':
 					*clr & cla
 					menu_off = 1
 					minut += 5
@@ -514,13 +523,13 @@ if $ARGS[0] = 'start':
 					money -= 500
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
-					'You bought a strapon and paid the cashier.'
+					'You bought a strap-on and paid the cashier.'
 
 					act 'Move away from the counter':gt 'sexshop', 'start'
 				end
 			end
 			if karta + bankDebtLimit >= 1200:
-				act 'Buy a strapon harness 500 <b>₽</b> (card)':
+				act 'Buy a strap-on harness 500 <b>₽</b> (card)':
 					*clr & cla
 					menu_off = 1
 					minut += 5
@@ -528,7 +537,7 @@ if $ARGS[0] = 'start':
 					karta -= 500
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sexshop.jpg"></center>'
-					'You bought a strapon and paid the cashier.'
+					'You bought a strap-on and paid the cashier.'
 
 					act 'Move away from the counter':gt 'sexshop', 'start'
 				end
@@ -883,7 +892,6 @@ if $ARGS[0] = 'pip':
 						orgasm += 1
 						pcs_horny = 0
 						pcs_mood += 15
-						pcs_willpwr += 15
 						stat['mast'] += 1
 						if pcs_inhib < 30:inhib_exp += rand(1,3)
 						'Gradually the pleasurable sensations spread throughout the body and you orgasm.'
@@ -931,7 +939,6 @@ if $ARGS[0] = 'pip':
 							orgasm += 1
 							pcs_horny = 0
 							pcs_mood += 15
-							pcs_willpwr += 15
 							'<b>Suddenly as you are sucking dick you orgasm yourself. Between your legs blazing fire and waves of pleasure fill your body, you moan but continue to suck.</b>'
 						end
 
@@ -956,24 +963,80 @@ if $ARGS[0] = 'kendra':
 	menu_off = 1
 	minut += 10
 	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend.jpg"></center>'
-	'In the store you can see Kendra, trying on latex clothes.'
-	'"Who do we have here, my favorite bitch, come to me and I am already very excited to choose a toy, now we can test something on the spot" Kendra laughs, sitting down on the table and opening your legs.'
-
-	act 'Away from her':gt 'sexshop', 'start'
-
-	if pcs_dom > 10:act 'First serve':gt 'sexshop', 'kendra4'
+	if kendra > 0:
+		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend.jpg"></center>'
+		'As you browse the store, you see Kendra, trying on latex clothes, then she notices you at about the same time.'
+		'"Who do we have here, my favorite bitch, come to me and service me. I just bought a new toy and I am very excited to try it out." Kendra laughs, as she motions for you to follow her into the basement.'
+		gs 'willpower', 'sex', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Leave the shop (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				minut += 5
+				gt 'Nord', 'redlight'
+			end
+		else
+			act 'Leave the shop (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
 
-	act 'Serve Kendra':
-		*clr & cla
-		sub += 1
-		lesbian += 1
-		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend1.jpg"></center>'
-		'You quickly throw off clothes and knelt before her pussy and lick her eagerly. As long as you carefully suck Kendra as squeals and praises your tongue, saying that no tongue has pleased her much as yours.'
-		'"Now pick anything from the toys" says Kendra'
-
-		act 'Give her a dildo':gt 'sexshop', 'kendra1'
-		act 'Give her a strapon':gt 'sexshop', 'kendra2'
+		act 'Serve Kendra':
+			*clr & cla
+			lesbian += 1
+			kendratoy = rand(1,2)
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend1.jpg"></center>'
+			'You follow her down into the basement. She sits down the edge of a table and pulls her fetish clothing aside, exposing her pussy. "Now strip for me bitch." You do as you are told and begin to slowly strip out of your clothes, until you are fully naked. "Good little slave, now get over her and worship my pussy." You kneel before her pussy and lick her eagerly. As long as you carefully suck Kendra as squeals and moans in pleasure.'
+			'"Look at me." commands Kendra, when you look up at her while still eating her out. She pulls her new toy out of her bag. "we''re going to use this, for my pleasure." She informs you.'
+			gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
+			gs 'stat'
+			if kendratoy = 1:
+				act 'She pulls out a dildo':gt 'sexshop', 'kendra1'
+			else
+				act 'She pulls out a strap-on':gt 'sexshop', 'kendra2'
+			end
+		end
+	else
+		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend0.jpg"></center>'
+		'As you browse the store, you see young black woman about your age, trying on latex clothes, then she notices you at about the same time.'
+		'After a couple of minutes she walks over and boldly caresses your hair. "You''re a pretty little thing, whats your name?" She asks.'
+		'You decide to tell her. "My name is <<$pcs_firstname>>, but most people call me <<$pcs_nickname>>. What''s your name?"'
+		'She smiles. "<<$pcs_nickname>>, what a pretty name. My name is Kendra but you can call me Mistress Kendra." She says in confidence.'
+		'"Oh" You reply, so she is one of those.'
+		act 'Leave': minut += 5 & gt 'Nord', 'redlight'
+		act 'Talk to her':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend01.jpg"></center>'
+			'You ask her about her clothes and soon the two of you are talking. You tell her that you leave in Pavlovsk and are your final year of your school. She tells you she is attending the University to get a degree, you find out she is from the Republic of the Congo on a student visa. You talk about a wide range of things for awhile. "You are very pretty, I love making pretty little Russian bitches into my slave. Call me Mistress Kendra, <<$pcs_nickname>> and become mine." Should you call her mistress? You have no doubt where that will lead.'
+			act 'Call her Kendra':
+				*clr & cla
+				kendrano = 1
+				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend.jpg"></center>'
+				'You smile to her. "Sorry but I don''t belong to anyone."'
+				'She sighs slightly. "Such a waste, oh well there are plenty of pretty little white Russian bitches that love being owned. Perhaps we will meet again and you will change your mind." With that you both bid your goodbyes and she returns to shopping as do you.'
+				act 'Go back to shopping':gt 'sexshop', 'start'
+			end
+			act 'Call her Mistress Kendra':
+				*clr & cla
+				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend.jpg"></center>'
+				'You look down a little to show your submission to her. "Yes Mistress Kendra."'
+				'She smiles at that. "I think you are going to make a great little slave, we are going to have a lot of fun together. Now follow me to the basement slave so you can service me."'
+				act 'Serve Kendra':
+					*clr & cla
+					lesbian += 1
+					kendratoy = rand(1,2)
+					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend1.jpg"></center>'
+					'You follow her down into the basement. She sits down the edge of a table and pulls her fetish clothing aside, exposing her pussy. "Now strip for me bitch." You do as you are told and begin to slowly strip out of your clothes, until you are fully naked. "Good little slave, now get over her and worship my pussy." You kneel before her pussy and lick her eagerly. As long as you carefully suck Kendra as squeals and moans in pleasure.'
+					'"Look at me." commands Kendra, when you look up at her while still eating her out. She pulls her new toy out of her bag. "we''re going to use this, for my pleasure." She informs you.'
+					gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
+					gs 'stat'
+					if kendratoy = 1:
+						act 'She pulls out a dildo':gt 'sexshop', 'kendra1'
+					else
+						act 'She pulls out a strap-on':gt 'sexshop', 'kendra2'
+					end
+				end
+			end
+		end
 	end
 end
 
@@ -984,52 +1047,30 @@ if $ARGS[0] = 'kendra1':
 	minut += 10
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend2.jpg"></center>'
-	'You take a dildo, and licking her pussy insert into Kendra. While you with one hand fucks the dildo in her pussy, the second caress her clit trying to bring her to orgasm. Kendra writhes sitting on the table carefully adjusting your movements to the beat.'
-
-	pipirand = rand(0,3)
-
-	if pipirand > 0:
-		orgasm += 1
-		'Then Kendra starts spasming as her whole body orgasms, you also feel yourself crest the wave of orgasm. Slightly recovering yourself, Kendra looks at you: "You are a beautiful bitch, totaly committed to serving me."'
-
-		act 'Finish':gt 'sexshop', 'start'
-	else
-		act 'Oops ...':
+	'You take the dildo from her and insert the dildo into Kendra''s pussy. While you use one hand to fuck her with the dildo, your other hand caress her clit trying to bring her to orgasm. Kendra moans and writhes sitting on the table under your efforts.'
+	gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian', 'sub'
+	gs 'stat'
+	act 'Continue':
+		*clr & cla
+		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend3.jpg"></center>'
+		'You dutifully continue to thrust the dildo, still stroking her clit, but the excitement is already gone. Her wetness dripping from the dildo onto your hand. "That''s right slave, that''s it, just keep doing that." She commands you.'
+		gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian', 'sub'
+		gs 'stat'
+		act 'Continue':
 			*clr & cla
-			gs 'sweat', 'add', 10
-			gs 'arousal', 'pee', -5, 'sub', 'humilation', 'lesbian'
 			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend4.jpg"></center>'
-			'Suddenly, when she is ready to cum, Kendra begin pissin, her urine flowing allong the dildo and your coating your hand.'
-			'"Damn!" you cried out and were about to drop the dildo.'
-			'"Let''s finish up, slut!" cried Kendra'
-
-			act 'Leave her':gt 'sexshop', 'kendra3'
-
-			act 'Continue':
+			'Then Kendra starts spasming as her whole body orgasms. Her pussy begins to squirt as she orgasms, covering your hand, her thighs and even some of it ends up on your breasts and stomach before her orgasm subsides. Kendra looks at you: "You are my beautiful little white slave bitch, tottaly committed to serving me. Now lick me clean." She commands.'
+			gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian', 'sub'
+			gs 'stat'
+			act 'Lick':
 				*clr & cla
-				gs 'sweat', 'add', 30
-				gs 'arousal', 'pee', -5, 'sub', 'humilation', 'lesbian'
-				sub += 2
-				pcs_horny = 0
+				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend5.jpg"></center>'
+				'You pull the dildo out of her soaking wet pussy and dutifully move closer to her pussy and began to slowly lick the juices from her thighs and pussy.'
+				'"Keep going you slut," Kendra orders you. You began to lick faster, licking her thighs and pussy completely clean of her juices.'
+				'"Now it''s time for your reward." She says as she pulls a strap-on out of her bag next.'
+				gs 'arousal', 'cuni', 5, 'lesbian', 'sub'
 				gs 'stat'
-				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend3.jpg"></center>'
-				'You dutifully continue to thrust the dildo, still stroking her clit, but the excitement is already gone. Her urine dripping from the dildo on your hand and now your stomach and thighs, your are totally covered in her urine.'
-				'Finally she finished, "And now Carney me, and then I become dirty." commanded Kendra'
-
-				act 'Leave her':gt 'sexshop', 'kendra3'
-
-				act 'Lick':
-					*clr & cla
-					sub += 2
-					gs 'arousal', 'pee', -5, 'sub', 'humilation', 'lesbian'
-					gs 'arousal', 'end'
-					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend5.jpg"></center>'
-					'You dutifully move closer to her pussy and began to slowly lick the urine from her thighs and pussy.'
-					'"Keep going you slut," Kendra orders you. You began to lick faster, eeping from retching from urine taste in the mouth with difficulty.'
-					'"That''s clever, come see me often. Have fun." With these words Kendra dresses and leaves, leaving you sitting on the floor in a puddle of her urine.'
-
-					act 'Leave':gt 'sexshop', 'start'
-				end
+				act 'Yes mistress':gt 'sexshop', 'kendra2'
 			end
 		end
 	end
@@ -1039,90 +1080,187 @@ if $ARGS[0] = 'kendra2':
 	$location_type = 'event'
 	*clr & cla
 	menu_off = 1
-	minut += 10
+	minut += 3
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend8.jpg"></center>'
-	'Kendra slides on the strapon and looking at you asks, "Well, beauty in which hole do you want it?"'
-
-	act 'In the vagina':
+	if pcs_vag = 0:
+		'Kendra steps into the harness and slides it up over her hips, as she does she starts pulling the straps tight to hold the strap-on firmly in place. With the strap-on harness now securely in place she pulls you close and kissed you. One of her hands wanders down to your pussy and rubs it a moment and then she slides one finger inside of you. She breaks the kiss before saying. "I see you are still a virgin, well I won''t pop your cherry, luckily you still have other holes I can fuck. Now on your knees and suck my cock."'
+	else
+		'Kendra steps into the harness and slides it up over her hips, as she does she starts pulling the straps tight to hold the strap-on firmly in place. With the strap-on harness now securely in place she pulls you close and kissed you. One of her hands wanders down to your pussy and rubs it a moment and then she slides one finger inside of you. She breaks the kiss before saying. "I see you are already nice and wet slave, eager for my cock are you? Don''t worry you will feel it soon enough. Now on your knees and suck my cock." She commands.'
+	end
+	act 'Suck her strap-on':
 		*clr & cla
-		stat['vaginal'] += 1
-		pcs_vag += 1
-		orgasm += 1
-		pcs_horny = 0
+		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend7.jpg"></center>'
+		'You kneel down and take ahold of the dildo with one hand while wrapping your lips around it. You stroke the dildo while you suck on it at the same time. For several minutes you suck the dildo getting it nice and wet with your saliva.'
+		gs 'arousal', 'bj', 5, 'lesbian', 'sub'
 		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend10.jpg"></center>'
-		'Kendra sits in a chair and you jump on top of her strap-on, slding it into your pussy. You ride the strapon, and Kendra drives up from he bottom you trying to shove it as far into your pussy as possible. Several minutes pass and such thrust force you to orgasm, and you slide off the chair with Kendra.'
-		'"That''s clever, come see me often. Have fun." With these words Kendra dresses and leaves.'
-
-		act 'Leave':gt 'sexshop', 'start'
+		act 'Deep throat':
+			*clr & cla
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend7.jpg"></center>'
+			'As you suck on the dildo, you feel her grab you by the hair. Next thing you know she forces your head forward, forcing the dildo down your throat, as you lips comes to rest against the fake balls. After a few moments of gagging she lets you pull back to get a breath through your nose, only for her to force it down your throat again, over and over, as she fucks your throat.'
+			gs 'arousal', 'bj', 5, 'lesbian', 'sub', 'deepthroat'
+			gs 'stat'
+			if pcs_vag = 0:
+				act 'Vaginal':gt 'sexshop', 'kendravag'
+			else
+				act 'Anal':gt 'sexshop', 'kendraanal'
+			end
+		end
 	end
+end
 
-	act 'In the ass':
+if $ARGS[0] = 'kendravag':
+	$location_type = 'event'
+	*clr & cla
+	menu_off = 1
+	stat['vaginal'] += 1
+	pcs_vag += 1
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend10.jpg"></center>'
+	'Kendra takes a seat and commands you. "Impale your pussy on my cock and fucks yourself until I tell you to stop." Once Kendra sits in a chair you straddle her strap-on, lowering yourself and sliding it into your pussy. You ride the strap-on, and Kendra drives up from the bottom you trying to shove it as far into your pussy as possible. Several minutes pass and each thrust increases your arousal, you decided to rub your clit and increase the pleasure.'
+	gs 'arousal', 'vaginal_strap', 5, 'lesbian', 'sub'
+	gs 'stat'
+	act 'Rub clit':
 		*clr & cla
-		stat['anal'] += 1
-		orgasm += 1
-		pcs_ass += 1
-		pcs_horny = 0
 		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend9.jpg"></center>'
-		'You jump up on the table and spreads your legs, Kendra gently slides in the strapon into your aas and gives your ass time to adjust to it. Then she begins to thrust, the strapon slides inside your ass and you soon start to moan. Seeing that you enjoy the process, Kendra begins to slowly accelerate, and you slide yoru hand to your pussy and finger your clit. After a few minutes you orgasm, as your hole body convulsies and shuders you sldie down cuddle and cuddle Kendra so that the strapon is buired all the way in your ass, you close your eyes and drift off.'
-		'When you come to, Kendra is already dressed, "Well, you orgasmed slut, I will have to find a double dildoed strapon. I want to see what you will do with two shafts buried in you" with that Kendra leaves.'
-
-		act 'Leave':gt 'sexshop', 'start'
+		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend12.jpg"></center>'
+		'You start rubbing your clit as you ride her strap-on, making it feel even better. Just as you feel like you are getting close to a orgasm, Kendra pushes you off her, you feel the dildo slide out of your pussy. "Now I am going to wreck your little ass!" She tells you.'
+		gs 'arousal', 'vaginal_strap', 5, 'lesbian', 'sub'
+		gs 'arousal', 'mast', 5, 'lesbian', 'sub'
+		minut -5
+		gs 'stat'
+		act 'Anal':gt 'sexshop', 'kendraanal'
 	end
 end
 
-if $ARGS[0] = 'kendra3':
+if $ARGS[0] = 'kendraanal':
 	$location_type = 'event'
 	*clr & cla
 	menu_off = 1
-	minut += 10
 	stat['anal'] += 1
 	pcs_ass += 1
-	rape += 1
+	gs 'boyStat', 'D4'
 	gs 'stat'
-	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend6.jpg"></center>'
-	'"Oh damn, now I''m going to teach obedience," with these words Kendra jumps up and throws you on to the table that she sat on a moment ago. Falling on the table you swipe back, and while you''re writhing in pain on the table, Kendra slides on a strapon. Pressing your hands to the table your hips are forced back and she pushes it into your ass, with out any lubricant on it. Added pain to the pain of your burning ass your asshole is torn open. Kendra fucks with you with force into your ass calling you a worthless bitch fit only to be used.'
-	'When she finally tires, you just slump to the floor from the table and land with a thud.'
-	'"On your knees slut, " she hissed.'
-
-	act 'To kneel':
-		cla
-		*clr
-		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend7.jpg"></center>'
-		'You scrambled to your knees, your backside aching terribly, and it seems dripping blood.'
-		'"Suck" commands Kendra pushing the strapon to your face. You look at the strapon, coated in traces of your blood.'
-		'"Yes suck already." Kendra cried and grabs your hair, you reflexively opened your mouth to scream, but Kendra pushes in the strapon before you can get a word out. She fucks you in the mouth with the same strapon she used a few minutes ago on your ass.'
-		'When she finally calms down and let go of your hair, you can''t do nothing but to fall to the floor. Kendra leanes over you and says, "Remember bitch, you do what I say or I will let you sit naked on all fours on the street, I will stay nearby and let whoever wants to fuck you until you have learned your lesson. I have to go now," she gets dressed and leaves.'
-
-		act 'Leave':gt 'sexshop', 'start'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend9.jpg"></center>'
+	'You stand up, as does she. "Lay on the table." She commands you. You jump up on the table and spreads your legs, Kendra steps up between your legs and gently slides the <<dick>>cm <<$dick_girth>> strap-on, slick with your pussy juices into your asshole, stopping a moment to give your ass time to adjust to the size. Then she begins to thrust the strap-on up butt, causing you to moan. Seeing that you are enjoying the process, Kendra begins to slowly accelerate. "Tell me your ass belongs to me slave!" She commands you. You know it likely means she will just fuck you harder if you refuse to submit, but maybe deep down that''s what you really want'
+	gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
+	gs 'stat'
+	act 'Submit':
+		*clr & cla
+		gs 'stat'
+		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend13.jpg"></center>'
+		'You submit to her command, as you tell her. "It''s your ass Mistress Kendra."'
+		'She smiles to you as she keeps fucking your ass. "That''s right slave and what can I do with it?" She asks.'
+		'You reply to her. "Anything you want Mistress Kendra."'
+		'She smiles even bigger. "That''s right bitch, your ass belongs to me and I can fuck it anytime I want. Tell me!" She commands'
+		'You moan in pleasure as she continues fucking your ass. "It''s your ass and you can fuck it anytime you want Mistress Kendra." She fucks your ass with the strap-on for a couple of more minutes as if to make her point before she finally pulls it out of you, as she does she pulls you off the table onto your feet.'
+		gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
+		gs 'stat'
+		act 'Finish': gt 'sexshop', 'kendrafinish'
 	end
+	gs 'willpower', 'action', 'resist', 'medium'
+	if will_cost <= pcs_willpwr:
+		act 'Resist (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend13.jpg"></center>'
+			'You decided not to tell her what she wants to hear. "It''s my butt Mistress Kendra, I just let you fuck it sometimes." You tell her.'
+			'Just as you expected she starts fucking you a bit harder and faster. "You will learn your place slave. You will submit to me or I will fuck your ass raw." She explains and for several minutes she just fucks your butt before asking again. "Tell me your ass belongs to me slave!" She commands you. You know she will just fuck you harder until you submit, but maybe deep down that''s what you really want'
+			gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
+			gs 'stat'
+			act 'Submit':
+				*clr & cla
+				gs 'stat'
+				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend6.jpg"></center>'
+				'You submit to her command, telling her what she wants to hear, before she fucks your asshole raw. "It''s your ass Mistress Kendra."'
+				'She smiles as she pushes your legs closed and fucking your ass. "That''s right slave and what can I do with it?" She asks.'
+				'You reply to her. "Anything you want Mistress Kendra."'
+				'She smiles even bigger. "That''s right bitch, your ass belongs to me and I can fuck it anytime I want. Tell me!" She commands'
+				'You moan in pleasure as she continues fucking your ass. "It''s your ass and you can fuck it anytime you want Mistress Kendra." She fucks your ass with the strap-on for a couple of more minutes as if to make her point before she finally pulls it out of you, as she does she pulls you off the table onto your feet.'
+				gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
+				gs 'stat'
+				act 'Finish': gt 'sexshop', 'kendrafinish'
+			end
+			gs 'willpower', 'action', 'resist', 'hard'
+			if will_cost <= pcs_willpwr:
+				act 'Resist (<<will_cost>> Willpower)':
+					*clr & cla
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend6.jpg"></center>'
+					'You decided to still not do as she asks. "No! Mistress Kendra, this is my ass and I decided who fucks it." You tell her.'
+					'She starts fucking you harder and faster then before, she pushes your legs close so she can get a better grip on your hip. "You will learn your place slave. You will submit to me or I will fuck your ass raw." She explains and for several minutes she just fucks your butt before asking again. "Tell me your ass belongs to me slave!" She commands you. You know she will just fuck you harder until you submit, you doubt you can last until she gets tired. Eventually your asshole will start to get sore and it will start really hurting and not in the good way it is now.'
+					gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
+					gs 'stat'
+					act 'Submit':
+						*clr & cla
+						gs 'stat'
+						'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend14.jpg"></center>'
+						'You finally submit to her command, telling her what she wants to hear. "It''s your ass Mistress Kendra."'
+						'She smiles as she keeps fucking your ass. "That''s right slave and what can I do with it?" She asks.'
+						'You reply to her. "Anything you want Mistress Kendra."'
+						'She smiles even bigger. "That''s right bitch, your ass belongs to me and I can fuck it anytime I want. Tell me!" She commands'
+						'You moan in pleasure as she continues fucking your ass. "It''s your ass and you can fuck it anytime you want Mistress Kendra." She fucks your ass with the strap-on for a couple of more minutes as if to make her point before she finally pulls it out of you, as she does she pulls you off the table onto your feet.'
+						gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
+						gs 'stat'
+						act 'Finish': gt 'sexshop', 'kendrafinish'
+					end
+					gs 'willpower', 'action', 'resist', 'hard'
+					if will_cost <= pcs_willpwr:
+						act 'Resist (<<will_cost>> Willpower)':
+							*clr & cla
+							gs 'willpower', 'pay', 'resist'
+							gs 'stat'
+							'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend14.jpg"></center>'
+							'Still you refuse and resist her. "No!" Not able to tell her more as it is starting to hurt now.'
+							'She slams it balls deep into your butt and starts hammering your ass as hard and fast as she can. "You will learn your place slave. You will submit to me or I can stay her all day and fuck your ass until you weep and beg me to stop." She explains and for several minutes she just fucks your butt before asking again. "Tell me your ass belongs to me slave!" She commands you. Your ass is starting to hurt, feeling like it is starting to burn, you just can''t take it anymore and you have to give in.'
+							gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
+							gs 'pain', 1, 'asshole', 'tear'
+							gs 'stat'
+							act 'Submit':
+								*clr & cla
+								gs 'stat'
+								'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend15.jpg"></center>'
+								'You finally submit to her command as your ass starts to have a burning sensation, telling her what she wants to hear. "It''s your ass Mistress Kendra."'
+								'She smiles as she keeps fucking your butt. "That''s right slave and what can I do with it?" She asks.'
+								'You grimace as you reply to her. "Anything you want Mistress Kendra."'
+								'She smiles even bigger. "That''s right bitch, your ass belongs to me and I can fuck it anytime I want. Tell me!" She commands'
+								'You grunt and squeeze your eyes shut as she continues fucking your ass. "It''s your ass and you can fuck it anytime you want Mistress Kendra." She fucks your ass with the strap-on for a couple of more minutes as if to make her point before she finally pulls it out of you, as she does she pulls you off the table onto your feet.'
+								gs 'arousal', 'anal_strap', 5, 'lesbian', 'sub'
+								gs 'pain', 1, 'asshole', 'tear'
+								gs 'stat'
+								act 'Finish': gt 'sexshop', 'kendrafinish'
+							end
+						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	
+				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	
+		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	
 end
 
-if $ARGS[0] = 'kendra4':
+if $ARGS[0] = 'kendrafinish':
 	$location_type = 'event'
 	*clr & cla
-	menu_off = 1
-	minut += 10
-	orgasm += 1
-	pcs_horny = 0
-	picrand = rand(11, 12)
-	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend<<picrand>>.jpg"></center>'
-	'Kendra looks surprised at you until you tear off your clothes.'
-	'Naked you turned to her and stick out your ass "Well look, you bring me to orgasm and we can try strapon"'
-
-	if picrand = 11:
-		'Kendra kneels down and begins to lick your pussy, her tongue slides all over your sex, your sensitive clit and dipping into the vagina a few minutes of her effort, you left off.'
-	elseif picrand = 12:
-		'Kendra kneels down and her tongue sticks out tryign to slide into your ass, you writhe as she her tongue saneks and twists inside your ass. Her fingers penetrating your pussy for a few minutes, and the feeling of her tounge in your ass and her fingers in your pussy brings you to a shuddering orgasm.'
-	end
-	
-	'"Well, I will try to fulfill your desires?" Kendra says, catching her breath. "Now my turn."'
-
-	act 'Give her strapon':gt 'sexshop', 'kendra2'
-
-	if pcs_dom > 25:act '"Perebesh"':gt 'sexshop', 'start'
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/sex/shkend16.jpg"></center>'
+	'As you stand up, she grabs you by the throat and pulls you close. "Stick out your tongue."'
+	'You do as she says and stick out your tongue. She licks your tongue with hers and the two of you lick each others tongue for a few moments. Finally she stops and grabs your butt cheek roughly and digs her nails into your backside. Hard enough it hurts a little, then she lets go and steps away and the pain quickly fades. She starts taking off her harness, she cleans the dildo and then puts it away, before getting dressed. Once she is fully dressed she finally turns to you again. "You may not get dressed slave."'
+	*nl
+	'"Thank you Mistress." You tell her as you get dressed.'
+	'Once you are both fully dressed she says. "Give me your number, so I can summon you, when I feel the need to use my little white slave." You do as you are told and give her your number. With that done, she gives you a little shooing motion. "You may go now."'
+	'"Yes Mistress Kendra." You reply, with that you leave the basement and go back up to the shop above.'
+	gs 'arousal', 'foreplay', 5, 'lesbian', 'sub'
+	gs 'arousal', 'end'
+	gs 'stat'
+	act 'Return to the store':gt 'sexshop', 'start'
 end
 
 if $ARGS[0] = 'shprod':
@@ -1135,14 +1273,23 @@ if $ARGS[0] = 'shprod':
 
 	act 'Refuse':gt 'sexshop', 'start'
 
-	act 'Try':
+	act 'Try it on':
 		*clr & cla
 		picrand = 47
 		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/sexshop/shprod1.jpg"></center>'
 		'You wear the skirt out of the booth and pose in the mirror, you do not have panties on and the skirt is so short that looks more like a belt and does not cover anything.	All your charms are visible from all directions.'
 		'Approaching the mirror you are considering this so-called skirt, and the cashier kneels behind you and starts praising your ass in that skirt, his hands already wander around your hips and he get his lips as close to your butt as he can, he says that he wants to kiss on your skin.	Words soon cease and just the touch of his lips to your skin remains, closer and closer to your pussy.'
-
-		act 'Push him away':gt 'sexshop', 'start'
+		gs 'willpower', 'cuni', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Push him away(<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'sexshop', 'start'
+			end
+		else
+			act 'Push him away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end	
 		act 'Let him':gs 'boyStat', 'A181' & gt 'sex', 'kuni'
 	end
 end

+ 11 - 5
locations/skverdin.qsrc

@@ -30,13 +30,19 @@ $d_pp_hand = {
 				dynamic $d_pp_squat
 			end
 		else
-			if pcs_dom > 0:
-				dynamic $d_pp_hjcum
+			'<<$boydesc>> stands still and looks into your eyes expectantly.'
+			gs 'willpower', 'hj', 'resist', 'medium'
+			if will_cost <= pcs_willpwr:
+				act 'Give him a handjob (<<will_cost>> Willpower)':
+					*clr & cla
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					dynamic $d_pp_hjcum
+				end
 			else
-				'<<$boydesc>> stands still and looks into your eyes expectantly.'
-				dynamic $d_pp_hjcum
-				dynamic $d_pp_squat
+				act 'Give him a handjob (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
 			end
+			dynamic $d_pp_squat
 		end
 	end
 }

+ 14 - 11
locations/sny.qsrc

@@ -192,7 +192,7 @@ if $ARGS[0] = '7':
 		act 'Hey! Where are you dragging me?': minut += 5 & gt 'sny', '10'
 	elseif alko > 3:
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/dimkahome/newyear/alb.jpg"></center>'
-		'You are a little drunk, but having fun. When you notice, Albina sitting on the couch and kissing Vanka, while Fedka paws at her breasts. Looking around you some more you notice that Katja nowhere to be seen.'
+		'You are a little drunk, but having fun. When you notice, Albina sitting on the couch and kissing Ivan, while Fedor paws at her breasts. Looking around you some more you notice that Katja nowhere to be seen.'
 
 		act 'Search for Katja':
 			*clr & cla
@@ -243,14 +243,14 @@ if $ARGS[0] = '8':
 	*clr & cla
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/dimkahome/newyear/tusa8.jpg"></center>'
-	'Back in the main room, you saw, that most continue to drink and dance. Albina, Vanka and Fedka are no where to be seen anymore. Some of the girls are getting wild in the middle of the room Kristinka even pulls down her pants showing off her bare ass.'
+	'Back in the main room, you saw, that most continue to drink and dance. Albina, Ivan and Fedor are no where to be seen anymore. Some of the girls are getting wild in the middle of the room Kristinka even pulls down her pants showing off her bare ass.'
 
 	act 'Search Albina':
 		*clr & cla
 		seeAlbinaFuck = 1
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/dimkahome/newyear/alb.jpg"></center>'
-		'You began to walk around the apartment in search of Albina, behind one of the doors you hear woman moaning and a creaking bed. Peeking in the door you see Fedka and Vanka fucking Albina hard. Albina is covered in sweat, with smeared makeup on her face, muffled moans or groans it is hard to tell come from Albina. Fedka has his cock stuffed in her mouth, while Vanka is taking her from behind. Judging by the height and angle it looks like he is fucking her in the ass and just tearing it up.'
+		'You began to walk around the apartment in search of Albina, behind one of the doors you hear woman moaning and a creaking bed. Peeking in the door you see Fedor and Ivan fucking Albina hard. Albina is covered in sweat, with smeared makeup on her face, muffled moans or groans it is hard to tell come from Albina. Fedor has his cock stuffed in her mouth, while Ivan is taking her from behind. Judging by the height and angle it looks like he is fucking her in the ass and just tearing it up.'
 		gs 'arousal', 'voyeur_sex', 5
 		gs 'arousal', 'end'
 		gs 'stat'
@@ -309,7 +309,6 @@ end
 
 if $ARGS[0] = 'kiss':
 	*clr & cla
-	!!1 and 4
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/dimkahome/newyear/sex/pett.jpg"></center>'
 	'You kiss Dimka and he slowly undresses you down to your underwear. He gently wraps his hands around you, he sits down on the arm of the couch and pulls you down till your are leaning back against him. His hand reaches around and starts rubbing your clit with his fingers.'
@@ -405,17 +404,21 @@ if $ARGS[0] = 'no':
 	gs 'stat'
 
 	if alko < 6:
-		if pcs_dom >= 10:
-			if pcs_horny < 90:
+		gs 'willpower', 'kiss', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Push him away (<<will_cost>> Willpower)':
+				*clr & cla
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
 				'You pushed yourself from Dimka "hey! Beat it! Are you, crazy or something?"'
-
 				act 'Leave':gt 'pavResidential'
-			elseif pcs_horny >= 90:
-				'You want to push Dimka away, but soaking wet pussy, burning desire to get fucked, makes you give in. Despite your better judgment.'
-				act 'Kiss him':gt 'sny', 'kiss'
 			end
 		else
-			'You tried to push away from Dimka, but he would not let you.'
+			act 'Push him away (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end	
+		act 'Give in':
+			*clr & cla
+			'You want to push Dimka away, but soaking wet pussy, burning desire to get fucked, makes you give in. Despite your better judgment.'
 			act 'Kiss him':gt 'sny', 'kiss'
 		end
 	else

+ 26 - 6
locations/street_event.qsrc

@@ -174,8 +174,18 @@ if $ARGS[1] = 'extras':
 			'Understandably you hesitate but she picks up on that and shakes her head wildly, "Don''t worry, I''m not gonna, like, shnatch you up or a-anything, I just gotta queshtion!" If it wasn''t obvious before, it''s clear now that the woman is drunk. But that doesn''t mean she''s a bad person, and judging from the limo chauffeuring her and her friends around, you could think of worse people to kidnap you. You walk over to her and she welcomes you with an excited giggle. "I''m Marta," she introduces herself. "And you see my friend here?" She moves to give you a peek into the limo filled with two other women and points out the one in red before continuing. "That''s Eva and her lying, whore of a husband had been cheating on her with some...some cheap, loose pussy, dog faced CUNT!" she shouts angrily before taking a deep breath. "So she divorced his sorry ass and now she''s a free who deserves ONLY the best things in life! And you know what one of those things is?" she asks and you awkwardly shake your head.'
 			*nl
 			'"It''s to make out with a pretty little thing like you," Marta grins and gives you (a very poor attempt at) a wink. "So? What do you say? Wanna give her a little kiss?"'
-
-			act 'Keep walking': divorce_party += 1 & gt $loc, $metka
+			gs 'willpower', 'kiss', 'resist', 'easy'
+			if will_cost <= pcs_willpwr:
+				act 'Keep Walking (<<will_cost>> Willpower)':
+					*clr & cla
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					divorce_party += 1
+					gt $loc, $metka
+				end
+			else
+				act 'Keep walking (<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':
 				*clr & cla
@@ -189,8 +199,18 @@ if $ARGS[1] = 'extras':
 				'In an instant, the other women are cheering and giggling as they lead Eva to the window. She tries to reluctantly argue against this, but she makes no real effort to stop them. "Uhm...hi?" she says sheepishly, her eyes avoiding yours as she bites her lip nervously. "My name is Eva..."'
 				'"Oh, I know..." Your hand cups her cheek gently and you guide her head back, her gaze now meeting yours. "I''m <<$pcs_nickname>>," you say before leaning in to kiss her. As soon as your lips meet, any resistance she had before melts away. Her lips part and your tongues intertwine. You can taste the sweet alcohol she had been drinking as she eagerly presses against you with a soft moan. When you finally pull away, Eva is breathless with a dazed yet satisfied look.'
 				'"Holy shit that was <i>amazing</i>!" Marta laughs as Eva collapses back into the car seat. Marta is back at the window with a wide grin, "Look, I even caught it on camera!" She holds up her phone and you see a shaky but still rather clear video of the two of you making out. "Hey, you know what, why don''t you come out with us? I know Eva would love to have you come!" Marta winks again, obviously hinting at the double meaning there.'
-
-				act 'Refuse and leave': gs 'arousal', 'end' & gt $loc, $metka
+				gs 'willpower', 'drink', 'resist', 'medium'
+				if will_cost <= pcs_willpwr:
+					act 'Refuse and leave (<<will_cost>> Willpower)':
+						*clr & cla
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						gs 'arousal', 'end'
+						gt $loc, $metka
+					end
+				else
+					act 'Refuse 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 'Join them':
 					*clr & cla
@@ -292,7 +312,7 @@ if $ARGS[1] = 'extras':
 end
 
 if $ARGS[1] = 'main':
-	if lesbiday + 21 <= daystart and RAND(0,100) < streetev_mistmeet and lesbiQW >= 11 and hour >= 8 and hour < 21 and $pantyworntype ! 'none' and month > 2 and month ! 12 and sub > 0:gt 'lesbimistress', 'mistmeet'
+	if lesbiday + 21 <= daystart and RAND(0,100) < streetev_mistmeet and lesbiQW >= 11 and hour >= 8 and hour < 21 and $pantyworntype ! 'none' and month > 2 and month ! 12:gt 'lesbimistress', 'mistmeet'
 
 	!! Getting abducted by Taras
 	!! Locked until expanded
@@ -839,7 +859,7 @@ if $ARGS[1] = 'main':
 	!!end home-related events
 
 	!!street incidental events
-
+!!Can this be changed. How it is coded now it is really hard to add new random street events with how the code is done. How it was meant to be is the first group can happen anywhere, second group in the city only and thirds group in Pav. Perhaps doing it like you did the school breaks would be a better way than it currently is so we can add new events easily in the future. 
 	if streetrand > 90:
 		streetrand = rand(0,100)
 		if streetrand > 98:

+ 15 - 37
locations/street_walker.qsrc

@@ -150,7 +150,6 @@ if $ARGS[0] = 'event2':
 	act 'Stop working for the night': gt 'street_walker', 'end'
 	act 'Keep working the street': gt 'street_walker', 'event1'
 	act 'Walk over and talk to them':
-		!!ruslan_pimp sets to 1 if you trigger the second part and are not working for him. It will then always skip to that
 		if RAND(0,1) = 0 and ruslan_pimp = 0:
 			*clr & cla
 			minut += 15
@@ -202,7 +201,6 @@ end
 
 if $ARGS[0] = 'event3':
 	ruslan_day = daystart
-!!can only run into the pimp once a night, after that have it just go down to the else.
 	*clr & cla
 	minut += 15
 	city_prostitute += 1
@@ -224,14 +222,21 @@ if $ARGS[0] = 'event3':
 		act 'Stop working for the night': gt 'street_walker', 'end'
 		act 'Keep working the street': gt 'street_walker', 'event1'
 	end
-	act 'Refuse his deal':
-		*clr & cla
-		minut += 5
-		'You shake your head no. "Thank you but I am doing ok."'
-		'He frowns and his eyes take on a hard glint, for a moment you think he might do something, but finally he just nods. "Very well have it your way, but don''t say I didn''t warn you. I will check back on you some other time and see if you came to your senses yet."'
-		act 'Stop working for the night': gt 'street_walker', 'end'
-		act 'Keep working the street': gt 'street_walker', 'event1'
-	end
+	gs 'willpower', 'action', 'resist', 'medium'
+	if will_cost <= pcs_willpwr:
+		act 'Refuse his deal (<<will_cost>> Willpower)':
+			*clr & cla
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			minut += 5
+			'You shake your head no. "Thank you but I am doing ok."'
+			'He frowns and his eyes take on a hard glint, for a moment you think he might do something, but finally he just nods. "Very well have it your way, but don''t say I didn''t warn you. I will check back on you some other time and see if you came to your senses yet."'
+			act 'Stop working for the night': gt 'street_walker', 'end'
+			act 'Keep working the street': gt 'street_walker', 'event1'
+		end
+	else
+		act 'Refuse his deal (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
 	!!act 'Be a smart ass':
 	!!for now commenting this out until I can finish it.
 	!!	*clr & cla
@@ -244,7 +249,6 @@ if $ARGS[0] = 'event3':
 end
 
 if $ARGS[0] = 'event4':
-!!Prostitute event
 	*clr & cla
 	minut += 15
 	if prst_loc = 0:
@@ -295,7 +299,6 @@ if $ARGS[0] = 'event5':
 	'A car slows down and pulls up the curb where you are walking, he is obviously look at you. So you walk over to him, as you do he rolls down his window. You bend over and practically lean into his window. "You looking to party handsome?"'
 	'He looks you over as best he can and licks his lips. "How much?"'
 	'You smile to him. "That depends on what you want to do." You take a little time listening to his wants and telling him the price before he decides.'
-	!!it should be 50/50 is the first one, than 50/50 the second or last
 	if RAND(0,1) = 0:
 		'He decides he wants a blowjob.'
 		act 'Accept':
@@ -361,7 +364,6 @@ if $ARGS[0] = 'blowjob':
 					gs 'arousal', 'cummoisseur', 5, 'prostitution'
 					gs 'arousal', 'end'
 					gs 'stat'
-					!!here need code to add the money for the act. We talked about it some in the dev forums how to do the price, no clue how you guys want to code that.
 					act 'Get dropped off': gt 'street_walker', 'work'
 				end
 			end
@@ -402,7 +404,6 @@ if $ARGS[0] = 'vaginal':
 					gs 'arousal', 'cummoisseur', 5, 'prostitution'
 					gs 'arousal', 'end'
 					gs 'stat'
-					!!here need code to add the money for the act. We talked about it some in the dev forums how to do the price, no clue how you guys want to code that.
 					act 'Get dropped off': gt 'street_walker', 'work'
 				end
 			end
@@ -459,7 +460,6 @@ if $ARGS[0] = 'anal':
 								gs 'arousal', 'cummoisseur', 5, 'prostitution'
 								gs 'arousal', 'end'
 								gs 'stat'
-								!!here need code to add the money for the act. We talked about it some in the dev forums how to do the price, no clue how you guys want to code that.
 								act 'Get dropped off': gt 'street_walker', 'work'
 							end
 						end
@@ -515,7 +515,6 @@ if $ARGS[0] = 'anal':
 								gs 'arousal', 'cummoisseur', 5, 'prostitution'
 								gs 'arousal', 'end'
 								gs 'stat'
-								!!here need code to add the money for the act. We talked about it some in the dev forums how to do the price, no clue how you guys want to code that.
 								act 'Get dropped off': gt 'street_walker', 'work'
 							end
 						end
@@ -536,7 +535,6 @@ if $ARGS[0] = 'policeblowjob':
 	'You clear your throat, "Yes, sir you''ve caught me, I''ve been prostituting. But how about I show you a good time and you let me go?" you divert your eyes towards his genitalia while licking your lips.'
 
 	if rand(0,5) = 0:
-	!if the police officer accepts the offer
 		'The police officer grunts and points towards his car, you walk around and open the passenger door and slide into the car. You are barely have time to close the door, when he pulls away. He drives for a little bit till he finds a pretty deserted area and stops the car. Once he does he looks over at you and says. "This looks good." His eyes wander over you body and he leans back in his seat.'
 		act 'Unbutton his pants':
 			*clr & cla
@@ -556,9 +554,6 @@ if $ARGS[0] = 'policeblowjob':
 					'Keeping your lips locked around his shaft, you bob your head up and down sucking his dick. Slowly you work him deeper into your mouth, eventually removing your hand so you can take him as deeply as you can down your throat.'
 					gs 'arousal', 'bj', 5, 'prostitution'
 					gs 'stat'
-
-					!!need to add a random trigger here from 1 to 10. <= 2 means Sveta will be going to jail any other number than that she gets driven back to the place where she was picked up.
-					!!Not going to jail event
 					if rand(1,10) > 2:
 						act 'Finish him':
 							*clr & cla
@@ -568,7 +563,6 @@ if $ARGS[0] = 'policeblowjob':
 							'You spend a few moments straighten up your clothes and checking your makeup as he drives you back to the street corner he picked you up on, he pulled up to the curb and stops. Now he seems impatient for you to get out, as he looks around to see if anyone is watching. You sigh and get out of the car, closing the door. With that he quickly pulls away.'
 							gs 'arousal', 'end'
 							gs 'stat'
-							!!this act should go to which ever event location Sveta left. If she was in event1 when picked up then returned to event1, if event2 then returned to event2. No clue how to code that
 							act 'Get dropped off':gt 'street_walker', 'work'
 						end
 					else
@@ -614,11 +608,8 @@ if $ARGS[0] = 'policelie':
 	'He scoffs. "What, suddenly you''re shy about it? Let me hear you <i>say</i> it," he orders coldly, and all you can do is nod again.'
 	'"I was...I''m a prostitute, sir..." You say quietly.'
 
-	!!need to add a random trigger here from 1 to 10. <= 4 means Sveta will be going to jail any other number than that she gets driven back to the place where she was picked up.
-
 	act 'Beg him to let you go':
 		*clr & cla
-		!!if he lets you go
 		if rand(1,10) > 4:
 			'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/police.jpg"></center>'
 			*nl
@@ -648,10 +639,8 @@ if $ARGS[0] = 'policeexp':
 	'"You really wanna keep lying to me?! You''re just making this a lot worse for yourself..." He tightens his grip even more and you wince softly. It''s not enough to really hurt you but it gets his point across.'
 	'"Alright, alright, I was! I was whoring!" You admit with a huff. "Please...please just give me a break! I don''t want to go to jail...I can''t!" Before the last words are out your mouth, you start to sniffle and soon tears are rolling down your cheeks.'
 
-	!!need to add a random trigger here from 1 to 10. <= 4 means Sveta will be going to jail any other number than that she gets driven back to the place where she was picked up.
 	act 'Beg him to let you go':
 		*clr & cla
-		!!if he lets you go
 		if rand(1,10) > 4:
 			'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/police.jpg"></center>'
 			*nl
@@ -688,15 +677,9 @@ if $ARGS[0] = 'briberyreaction':
 	*clr & cla
 	minut += 10
 	gs 'stat'
-	!! random chance code here somewhere i''m too tired to figure it out lol
 	temp_rand = rand (0,12)
-	! reaction 1, accept bribe: 0 - 4
-	! reaction 2, refuse bribe: 5 - 7
-	! reaction 3, take bribe and still arrest: 8 - 9
-	! reaction 4, demand sex: 10 - 12
 
 	if temp_rand <= 4:
-	!!if he takes the bribe and lets you go, lose all money you've earned if it's possible to track that
 		'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/bribeaccepted.jpg"></center>'
 		*nl
 		'The cop sighs heavily before taking the money. He takes a moment to count it, occasionally glancing your way as he does. "Don''t think this will work every time," he warns as he pockets the money. "Don''t get any ideas about telling someone about this, I know some of you girls have tried it and believe me, it never ends well for them. No one will believe a loose-lipped whore over a cop..."'
@@ -705,7 +688,6 @@ if $ARGS[0] = 'briberyreaction':
 
 		act 'Walk away':gt 'street_walker', 'work'
 	elseif temp_rand <= 7:
-		!!elseif he refuses the bribe and arrests you, lose all the money the player earned
 		prst_bribe = 1
 		gs 'pain', 6, 'armL', 'break'
 		gs 'stat'
@@ -719,7 +701,6 @@ if $ARGS[0] = 'briberyreaction':
 
 		act 'Drive to the police station': gt 'police_station', 'entrance', 'prst'
 	elseif temp_rand <= 9:
-	!!elseif he takes the bribe but still arrests you
 		prst_bribe = 1
 		'<center><img <<$set_imgh>> src="images/locations/shared/police/arrested.jpg"></center>'
 		*nl
@@ -734,7 +715,6 @@ if $ARGS[0] = 'briberyreaction':
 
 		act 'Drive to the police station': gt 'police_station', 'entrance', 'prst'
 	else
-	!!if he refuses the bribe and demands sex instead
 		'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/police.jpg"></center>'
 		*nl
 		'He chuckles and shakes his head. "C''mon, you have something better to offer me, don''t you?" His eyes roam over your body slowly, taking in every curve and exposed bit of skin with a hungry look.'
@@ -764,7 +744,6 @@ if $ARGS[0] = 'policesub1':
 	*clr & cla
 	gs 'pain', 2, 'twist', 'pinch'
 	gs 'pain', 4, 'nipples', 'pinch'
-	!! adds some sub stat gain + add pain to breasts/nipples and condom usage
 	'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/policesub.jpg"></center>'
 	*nl
 	'"Alright...if that''s what it takes," You say reluctantly. You''re barely given a chance to put away the money before he''s pulling you to a dark, secluded area between two buildings. In the darkness, you can''t make out anything he''s doing. "Um, lets make this qui--" Your words are cut off as you''re shoved against the cold, hard brick wall of one of the buildings. You can only whimper as the officer presses his body against you.'
@@ -797,7 +776,6 @@ if $ARGS[0] = 'policesub2':
 	*clr & cla
 	gs 'pain', 5, 'vaginal', 'tear'
 	gs 'pain', 2, 'twist', 'pinch'
-	!! adds small sub stat gain + pain to boobs and pussy? add condom usage, please and thank you
 	'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/policesub2.jpg"></center>'
 	*nl
 	'"Right...I understand..." You answer weakly as his grin widens. Leading him to quiet and secluded area, he wastes no time hiking your dress up and shoving his knee between your legs to spread them. Careless and rough, his fingers dig into the soft flesh of your breasts as he gropes them. You don''t do much except stand there, absently looking upward to the sky as you try your best to focus your attention on anything but this.'

+ 76 - 68
locations/strela.qsrc

@@ -2,23 +2,23 @@
 
 gs 'stat'
 '<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/strela1.jpg"></center>'
-'When you approach Fedor, he guides you to the group that just arrived at the school. You look around the group and recognize Vitek, Dan and Vasily. Most of the others have criminal tattoos, and look quite intimidating; you recognize the fat older man to be Vadim Bely, a local crime lord. He motions for Fedor to come closer to him, "So... you''re Fyodor Kozlov? My dear friend Viktor here tells me you were very disrespectful to him."'
-'He nods over at Vitek. "You can''t just go stealing other people''s girls, Fyodor. That''s not how the world works." The guys are circle in around the two of you, and even though no one pays you any heed you feel very uncomfortable being here.'
+'When you approach Fedor, he guides you to the group that just arrived at the school. You look around the group and recognize Vitek, Dan and Vasily. Most of the others have criminal tattoos, and look quite intimidating; you recognize the fat older man to be Vadim Bely, a local crime lord. He motions for Fedor to come closer to him, "So... you''re Fedor Kozlov? My dear friend Viktor here tells me you were very disrespectful to him."'
+'He nods over at Vitek. "You can''t just go stealing other people''s girls, Fedor. That''s not how the world works." The guys are circle in around the two of you, and even though no one pays you any heed you feel very uncomfortable being here.'
 *nl	
-'Vadim continues, "Nevertheless, that''s not why I''m here. I know how girls can be, they change their mind all the time... you can sort that out amongst yourselves. It gets personal when you are rude to Vitek. No one treats a friend of mine like that. Why didn''t you show him some respect, Fyodor?" Fedor is thoroughly intimidated by the guys, and mutters, "But... they started it..."'
+'Vadim continues, "Nevertheless, that''s not why I''m here. I know how girls can be, they change their mind all the time... you can sort that out amongst yourselves. It gets personal when you are rude to Vitek. No one treats a friend of mine like that. Why didn''t you show him some respect, Fedor?" Fedor is thoroughly intimidated by the guys, and mutters, "But... they started it..."'
 
-act 'Continue':
-	cls
+act 'Listen':
+	*clr & cla
 	kotovVSkozlov = 2
 	gs 'stat'
 	'<center><b><h4><font color="red"><<"Vadim Bely">></font></h4></b></center>'
 	'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
 	'Vadim nods, "So, you don''t dispute it. Well kid, you''ll learn that if you are rude to the wrong people, you get trouble. I''ll give you one chance to pay for your mistakes. 30,000 <b>₽</b>, tomorrow. If you don''t pay up you lose fingers, one for every day you''re late. Understood?"'
 	'Fedor''s face pales, and tears form in his eyes. Vadim Bely is quite notorious in your region, and this wouldn''t be the first time he''s actually taken fingers from someone for missing payments. He exclaims, "Please sir, I don''t have that kind of money! I''m just a kid going to school!"'
-	'Vadim shrugs, "You should''ve thought of that before you were disrespectful, ''kid going to school''. That''s really not my problem. 30,000, tomorrow."'
+	'Vadim shrugs, "You should''ve thought of that before you were disrespectful, ''kid going to school''. That''s really not my problem. 30,000, tomorrow." At this point a number of other students have noticed and wandering a little closer to get a better look at what is going on.'
 
-	act 'Continue':
-		cls
+	act 'Watch':
+		*clr & cla
 		'<center><b><font color="maroon"><<"Vasily [Shulga] Shulgin">></font></b></center>'
 		'<center><img <<$set_imgh>> src="images/pc/npc_headshots/big11.jpg"></center>'
 		'Fedor is panicking now, and begins to beg, "Sir, please! I can''t get that amount of money!"'
@@ -26,70 +26,78 @@ act 'Continue':
 		'Vadim smirks and shakes his head as he looks at Dan and Vitek, "This guy... unbelievable. Still, it''s up to you. If you''re okay with it, I am too."'
 		'Vitek shrugs, "I don''t care."'
 		'Dan adds, "Fine by me too. So... your call, Fedor. 30,000 <b>₽</b> tomorrow, or you suck Shulga''s dick right now."'
-		*nl	
-		'Fedor face pales again, and he stutters, "But... I''m not a faggot..."'
-		'Vasily, in a fake voice as if he were trying to cheer Fedor up, says, "No one says you''re a faggot. You''re being offered a way out. Either you suck my dick, or you go home and tell your parents to sell their house before tomorrow. That''s the only way you''d get the money together. Do you even realize how much trouble you''re in?"'
-		'As Fedor breaks down and cries, he drops to his knees and continues to beg, "Please guys, I don''t have that kind of money... Vitek, I''m sorry... please..."'
-		'Vadim looks at him indifferently and says, "This is taking way too long, I have other places to be today.'
-		*nl			
-		'Wipe the snot from your face and make a decision, you have one minute." Vasily, still using his mocking supportive voice, encourages him as he unbuttons his pants, "Don''t be foolish. You can erase your debt within a few minutes."'
-		'<center><b><h4><font color="blue"><<"Fyodor [Fedor] Kozlov">></font></h4></b></center>'
-		'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/fedorsad.jpg"></center>'
+		act 'Say nothing':
+			*clr & cla
+			'<center><b><font color="maroon"><<"Vasily [Shulga] Shulgin">></font></b></center>'
+			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/resident/apartment/events/dandick.jpg"></center>'
+			'Vasily unbuttons his pants and pulls his dick out. A number of the students that stayed to watch keep doing so, a few leave, either in fear or disgust.'
+			'Fedor face pales again, and he stutters, "But... I''m not a faggot..."'
+			'Vasily, in a fake voice as if he were trying to cheer Fedor up, says, "No one says you''re a faggot. You''re being offered a way out. Either you suck my dick, go home and tell your parents to sell their house before tomorrow, or start losing fingers. That''s the only way you''d get the money together. Do you even realize how much trouble you''re in?"'
+			*nl
+			'As Fedor breaks down and cries, he drops to his knees and continues to beg, "Please guys, I don''t have that kind of money... Vitek, I''m sorry... please..."'
+			'Vadim looks at him indifferently and says, "This is taking way too long, I have other places to be today.'		
+			'Wipe the snot from your face and make a decision, you have one minute." Vasily, still using his mocking supportive voice, encourages him as he unbuttons his pants, "Don''t be foolish. You can erase your debt within a few minutes."'
+			
+			if money >= 30000:
+				act 'Pay the money for Fedor (30,000 <b>₽</b>)':
+					*clr & cla
+					money -= 30000
+					strelaQW = -1
+					npc_rel['A9'] -= 20
+					FedorLuv = 100
+					minut += 5
+					gs 'stat'
+					'<center><b><font color="red"><<"Vadim Bely">></font></b></center>'
+					'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
+					'You can''t watch this any more, and quickly blurt out, "I''ll give you the money." You hadn''t said a word yet in this entire exchange, and most of the guys forgot you were even there.'
+					'Vadim looks at you confused and asks, "What... why?"'
+					'"This is just wrong. I can''t let him give out blowjobs to clear his debt" you say, disgusted by the proposition.'
+					'Vadim sighs in exasperation, "Women... they just don''t understand how the world works. Nevertheless... fine. Give me the money and we''re even."'
+					*nl
+					'He counts the money when you hand it over, and gives you a pleased nod. He then turns to his henchmen, "It''s all there. Alright guys, we''re done here. Let''s go."'
+					'You watch the cars drive off, and you can see that Vitek is clearly angry that his plan to get back at Fedor failed. Nevertheless... you paid Vadim Bely to get Fedor off the hook. There''s not a lot he can do about it now, without getting on Vadim''s bad side himself. He angrily turns to Dan and Vasily and says: Come on guys, let''s get out of here. I need a beer."'
+					'As they leave, Fedor comes to you and mumbles, "<<$pcs_firstname>>, thank you! Thank you so much... you saved me. I''ll pay you back, I promise! I can''t pay it all at once, but I will try to save up." You assure him that''s not neccessary, and get ready to leave the school grounds.'
+
+					act 'Leave the school courtyard':gt 'pavResidential'
+				end	
+			end		
 		
-		if money >= 30000:
-			act 'Pay the money for Fedor (30,000 <b>₽</b>)':
-				cls
-				money -= 30000
-				pcs_dom += 10
-				strelaQW = -1
-				npc_rel['A9'] -= 20
-				FedorLuv = 100
+			act 'Don''t interfere':
+				*clr & cla
+				$npc_notes[5] = 'Ever since Fedor gave Vasily a blowjob in the school courtyard, everyone calls him Masha.'
+				npc_rel['A5'] = 50
+				grupTipe[5] = 5
+				fedorKozlovQW = -10
+				FedorKozHome = 0
+				fedormasha = 1
+				strelaQW = -2
 				minut += 5
 				gs 'stat'
-				'<center><b><font color="red"><<"Vadim Bely">></font></b></center>'
-				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/vadimbely.jpg"></center>'
-				'You can''t watch this any more, and quickly blurt out, "I''ll give you the money." You hadn''t said a word yet in this entire exchange, and most of the guys forgot you were even there.'
-				'Vadim looks at you confused and asks, "What... why?"'
-				'"This is just wrong. I can''t let him give out blowjobs to clear his debt" you say, disgusted by the proposition.'
-				'Vadim sighs in exasperation, "Women... they just don''t understand how the world works. Nevertheless... fine. Give me the money and we''re even."'
-				'He counts the money when you hand it over, and gives you a pleased nod. He then turns to his henchmen, "It''s all there. Alright guys, we''re done here. Let''s go."'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/grounds/sex/vasfed1.jpg"></center>'
+				'Even if you wanted to help, you know there''s nothing you can do for him. Fedor starts to cry even harder, but slowly crawls over to Vasily on his knees. Vasily''s cock is already rock hard and Fedor reluctantly starts to suck on it, knowing this is his only way out. Vasily laughs and warns him, "Careful. If I feel any teeth, I''ll knock em out."'
+				'One of the criminals who hadn''t said anything so far shakes his head and says to his friends, "Fuckin'' Vasily... what a nutbag. Never a dull moment with that guy."'
 				*nl
-				'You watch the cars drive off, and you can see that Vitek is clearly angry that his plan to get back at Fedor failed. Nevertheless... you paid Vadim Bely to get Fedor off the hook. There''s not a lot he can do about it now, without getting on Vadim''s bad side himself. He angrily turns to Dan and Vasily and says: Come on guys, let''s get out of here. I need a beer."'
-				'As they leave, Fedor comes to you and mumbles, "<<$pcs_firstname>>, thank you! Thank you so much... you saved me. I''ll pay you back, I promise! I can''t pay it all at once, but I will try to save up." You assure him that''s not neccessary, and get ready to leave the school grounds.'
-				*nl	
-				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/strela3.jpg"></center>'
-
-				act 'Leave the school courtyard':gt 'pavResidential'
-			end	
-		end		
-	
-		act 'Don''t interfere':
-			cls
-			$npc_notes[5] = 'Ever since Fedor gave Vasily a blowjob in the school courtyard, everyone calls him Masha.'
-			npc_rel['A5'] = 50
-			grupTipe[5] = 5
-			fedorKozlovQW = -10
-			FedorKozHome = 0
-			fedormasha = 1
-			strelaQW = -2
-			minut += 5
-			gs 'stat'
-			'<center><b><h4><font color=#FF00FF><<"Fyodor [Masha] Kozlov">></font></h4></b></center>'
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/fedorsad.jpg"></center>'
-			'Even if you wanted to help, you know there''s nothing you can do for him. Fedor starts to cry even harder, but slowly crawls over to Vasily on his knees. Vasily''s cock is already rock hard and Fedor reluctantly starts to suck on it, knowing this is his only way out. Vasily laughs and warns him, "Careful. If I feel any teeth, I''ll knock em out."'
-			'One of the criminals who hadn''t said anything so far shakes his head and says to his friends, "Fuckin'' Vasily... what a nutbag. Never a dull moment with that guy."'
-			'Vitek turned his head away in disgust, while Dan pulls out his phone and begins to shoot a video of the scene. A few minutes later, Vasily groans and begins to cum in Fedor''s mouth. "Swallow it all, faggot. Don''t miss a drop", he instructs Fedor, who does as he''s told and licks Vasily''s cock clean.'
-			*nl
-			'Fedor then moves to get up, wiping his mouth with the back of his hand. Vasily lets him get up and says with a smirk on his face, "So, cocksucker... what should we call you now? Fedor is a man''s name, and you''re no longer a man... you''re a bitch. Your new name will be Masha, that suits a bitch like you much better. Ain''t that right, cocksucker?"'
-			'Fedor, too tired to fight it, just nods. Vasily continues, "We''ll come get you when we want more. That''s your place now, Masha. Understood? And knock it off with the deep voice, bitches don''t have deep voices."'
-			'Fedor nods again, his resolve broken. Vasily spits in Fedor''s face and asks, "What''s your name, bitch?" Fedor mutters, "Masha... my name is Masha."'  
-			*nl	
-			'Vadim, who observed it all with an amused face, grins and turns to his guys, "Alright lads, let''s go. The boys can play with their toy in peace."'
-			'Seconds later, the cars drive off while Vitek, Vasily and Dan go to their usual spot in the park to have some beers. Fedor is sitting on the ground by himself, trying to take it all in. He knows his life won''t be the same after what happened today.'
-			*nl	
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/school/boy/fedor/fedorev/strela/strela2.jpg"></center>'
-
-			act 'Leave the school courtyard':gt 'pavResidential'
+				'Vitek turned his head away in disgust, most of the students other than some of the gopniks have left by now. Dan pulls out his phone and begins to shoot a video of the scene, as does a few others, a few of the girls shout tips for Fedor on how to suck better.'
+				'Vadim, who observed it all with an amused face, grins and turns to his guys, "Alright lads, let''s go. The boys can play with their toy in peace." Seconds later, the cars drive off while, Fedor is still sucking Vasily''s dick. Once the Vadim has left the students left approach closer, some laugh, others jeer or call Fedor a fag.'
+				gs 'arousal', 'voyeur_sex', 5
+				gs 'stat'
+				act 'Watch':
+					*clr & cla
+					minut += 5
+					gs 'stat'
+					'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/grounds/sex/vasfed2.jpg"></center>'
+					'Apparently not satisfied with how good a job Fedor is doing, Vasily grabs him by the back of the head and starts fucking his mouth, shoving his dick down Fedor''s throat as he does. Several minutes go by before Vasily groans and begins to cum in Fedor''s mouth. "Swallow it all, faggot. Don''t miss a drop", he instructs Fedor, who does as he''s told and keeps sucking Vasily''s cock, swallowing his cum until Vasilly finishes and pulls his dick out of Fedor''s mouth. "You suck cock better than most bitches Fedor, you been sucking Ivan off all this time?" He says with a laugh.'
+					'Fedor then moves to get up, wiping his mouth with the back of his hand. Vasily lets him get up and says with a smirk on his face, "So, cocksucker... what should we call you now? Fedor is a man''s name, and you''re no longer a man... you''re a bitch. Your new name will be Masha, that suits a bitch like you much better. Ain''t that right, cocksucker?"'
+					*nl
+					'Fedor, too tired to fight it, just nods. Vasily continues, "We''ll come get you when we want more. That''s your place now, Masha. Understood? And knock it off with the deep voice, bitches don''t have deep voices."'
+					'Fedor nods again, his resolve broken. Vasily spits in Fedor''s face and asks, "What''s your name, bitch?" Fedor mutters, "Masha... my name is Masha."'
+					'With that everyone starts wondering off, Vitek, Vasily and Dan go to their usual spot in the park to have some beers. Fedor is sitting on the ground by himself, trying to take it all in. He knows his life won''t be the same after what happened today.'
+					gs 'arousal', 'voyeur_sex', 5
+					gs 'arousal', 'end'
+					gs 'stat'
+					act 'Leave the school courtyard':gt 'pavResidential'
+				end
+			end
 		end
 	end
 end

+ 22 - 19
locations/stripclub.qsrc

@@ -177,7 +177,6 @@ if $ARGS[0] = 'privat':
 	money -= 1000
 	minut += 60
 	pcs_horny += 25
-	pcs_dom += 1
 
 	gs 'stat'
 	privrand = rand(0, 4)
@@ -426,28 +425,32 @@ if $ARGS[0] = 'stpr2':
 	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex6.jpg"></center>'
 	'You wait for a moment before the security guard walks up to you and tells you to follow him.'
 	'He leads you to a room and as you enter you notice two girls each holding a strap-on in their hands. Without any hesitation they walk over to you and strip you down and await further instructions.'
-
-	act 'Have them suck you off':
-		*clr & cla
-		gs 'arousal', 'foreplay', 10, 'lesbian', 'dom', 'group'
-		gs 'stat'
-		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex7.jpg"></center>'
-		'You tell one of the girls to hand over her strap-on which you put on. You command the girls to kneel and stick the cock in front of their faces. Not needed a cue they start sucking on it lubing the best they can.'
-
-		act 'Fuck them':
+	gs 'willpower', 'sex', 'force', 'medium'
+	if will_cost <= pcs_willpwr:
+		act 'Have them suck you off (<<will_cost>> Willpower)':
 			*clr & cla
-			gs 'arousal', 'vaginal_strap_give', 30, 'lesbian', 'dom', 'group'
-			$orgasm_or = 'yes'
-			gs 'arousal', 'end'
+			gs 'willpower', 'pay', 'force'
+			gs 'arousal', 'foreplay', 10, 'lesbian', 'dom', 'group'
 			gs 'stat'
-			prsexrand = rand(9, 13)
-			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex<<prsexrand>>.jpg"></center>'
-			'After a while you get a bit bored by as you smirk and tell them that you want to fuck them. They eagerly position themselves, ready for you fake cock. You fuck them as your heart desires, eventually stopping after you have your first orgasm, as for them, hmm... you''ve lost count and all you hear is panting.'
+			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex7.jpg"></center>'
+			'You tell one of the girls to hand over her strap-on which you put on. You command the girls to kneel and stick the cock in front of their faces. Not needed a cue they start sucking on it lubing the best they can.'
 
-			act 'Finish':gt 'stripclub', 'forman'
-		end
-	end
+			act 'Fuck them':
+				*clr & cla
+				gs 'arousal', 'vaginal_strap_give', 30, 'lesbian', 'dom', 'group'
+				$orgasm_or = 'yes'
+				gs 'arousal', 'end'
+				gs 'stat'
+				prsexrand = rand(9, 13)
+				'<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/sex/prsex<<prsexrand>>.jpg"></center>'
+				'After a while you get a bit bored by as you smirk and tell them that you want to fuck them. They eagerly position themselves, ready for you fake cock. You fuck them as your heart desires, eventually stopping after you have your first orgasm, as for them, hmm... you''ve lost count and all you hear is panting.'
 
+				act 'Finish':gt 'stripclub', 'forman'
+			end
+		end
+	else
+		act 'Have them suck you 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 'Suck them off':
 		*clr & cla
 		gs 'arousal', 'bj', 10, 'lesbian', 'sub', 'group'