[added] more willpower and arousal seeding

locations/Palatka.qsrc

@@ -36,8 +36,17 @@ if $ARGS[0] = 'pal0':
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/shared/military/sex/pal0.jpg"></center>'
 	'Once you begin to change clothes, you notice that there are two soldiers in the tent. They see you half-naked, walking up to you with their erect cocks. You long for their cocks, wondering if you should get them off or ignore them and relax after a hard day instead.'
-
-	act 'Send':gt 'palatka', 'start'
+	
+	gs 'willpower', 'sex', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Send (<<will_cost>> Willpower)':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'palatka', 'start'
+		end
+	else
+		act 'Send (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
 
 	act 'Post':
 		gs 'npcgeneratec', 0, 'Soldier', rand(18,34)
@@ -59,7 +68,16 @@ if $ARGS[0] = 'pal1':
 	'<center><img <<$set_imgh>> src="images/locations/city/shared/military/pal1.jpg"></center>'
 	'Entering the tent, you stumble, you reflexively close your eyes, as you prepare to hit the floor face first. Much to your surprise you do not land on the floor. Instead you feel powerful, strong hands catching you. Opening your eyes in surprise, you look up and see that a well-built black soldier has caught you in his arms.'
 
-	act 'Say thank you':gt 'palatka', 'start'
+	gs 'willpower', 'sex', 'resist', 'easy'
+	if will_cost <= pcs_willpwr:
+		act 'Say thank you ':
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			gt 'palatka', 'start'
+		end
+	else
+		act 'Say thank you (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+	end	
 
 	act 'Repay in full':
 		sexpartkno = 1

locations/StasQW.qsrc

@@ -40,7 +40,17 @@ elseif StasKafe = 1:
 				'<center><img <<$set_imgh>> src="images/characters/city/stas/go.jpg"></center>'
 				'A bit tipsy you are unsteady on your feet. You stumble and nearly fall, but Stas gallantly caught and helps steady you. Making sure you are alright, he helps support you the rest of the walk home. Once you get to your home, he waits at the door expectantly, he clearly expects you to invite him in.'
 
-				act 'To invite':SStip = 0 & gt 'StasSex'
+				gs 'willpower', 'sex', 'self', 'easy'
+				if will_cost <= pcs_willpwr:
+					act 'Invite him in (<<will_cost>> Willpower)':
+						SStip = 0
+						gs 'willpower', 'pay', 'self'
+						gs 'stat'
+						gt 'StasSex'
+					end
+				else
+					act 'Invite him in (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end	
 
 				act 'Say goodbye':
 					cls

locations/StasSex.qsrc

@@ -22,7 +22,7 @@ if SStip = 0:
 
 			'You feel like you almost can''t take the teasing anymore when he fully pushing himself inside of you, his <<dick>>cm <<$dick_girth>> dick fills your pussy up. He gentle fucks you, slowly working himself deeper into you, while he continues to kiss you and kneed your breasts, you moan in deep pleasure as the two of you make love.'
 			gs 'dinsex','vaginal_sex',15,'sub'
-			$orgasm_or = 'custom'
+			$orgasm_or = 'yes'
 			$orgasm_txt = '<<$boydesc>> groans and you feel a jet of sperm spurt inside of your body, followed by several more.'
 			gs 'cum_call','',$boy,1
 			gs 'cuminsidereact',$boydesc

locations/gopnew.qsrc

@@ -34,33 +34,56 @@ if $ARGS[0] = 'start0':
 	'Once they notice you walking into their alley, one of them steps towards you. He gives you a toothy grin as he says: "Hey babe! Want to come hang out with us? We have beer!"'
 
 	act 'Have a beer with them':gt 'gopnew', 'pivas'
-
-	act 'Decline and walk away':
-		cla
-		'You wordlessly shake your head and keep walking, hoping he''ll get the message and leave you alone. He''s not giving up that easily though, and follows you.'
-		'"Come on, babe! Relax! We''re decent guys, you don''t have to be scared around us! We just want to have a good time!" he reassures you. He seems fairly genuine in his offer.'
-
-		act 'Agree to have a beer with them':gt 'gopnew', 'pivas'
-		act 'Decline again, more clearly this time':
+	
+	gs 'willpower', 'drink', 'resist', 'medium'
+	if will_cost <= pcs_willpwr:
+		act 'Decline and walk away (<<will_cost>> Willpower)':
 			cla
-			*clr
-			'"I have no intentions of drinking beer with you. Leave me alone!" you snap at the guy.'
-			'He squints his eyes angrily and shouts: "What!? Are you one of those snobs who look down on us? What the fuck is your problem?"'
-			'The Gopniks are often looked down upon by others, and this guy is taking it very personally that you keep refusing his offer. He''s starting to get mad at you.'
-
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'You wordlessly shake your head and keep walking, hoping he''ll get the message and leave you alone. He''s not giving up that easily though, and follows you.'
+			'"Come on, babe! Relax! We''re decent guys, you don''t have to be scared around us! We just want to have a good time!" he reassures you. He seems fairly genuine in his offer.'
+		end
+		
+		act 'Agree to have a beer with them':gt 'gopnew', 'pivas'
+		
+		gs 'willpower', 'drink', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Decline again, more clearly this time (<<will_cost>> Willpower)':
+				cla & *clr
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				'"I have no intentions of drinking beer with you. Leave me alone!" you snap at the guy.'
+				'He squints his eyes angrily and shouts: "What!? Are you one of those snobs who look down on us? What the fuck is your problem?"'
+				'The Gopniks are often looked down upon by others, and this guy is taking it very personally that you keep refusing his offer. He''s starting to get mad at you.'
+			end
+			
 			act 'Agree to have a beer after all':gt 'gopnew', 'pivas'
-
-			act 'Push him away and swear at him':
-				cla
-				'"Leave me the fuck alone!" you scream at the hoodlum, and push him away. He won''t let you leave though, and blocks the exit while he grabs you by the arm.'
-				'"All I wanted to do was be nice, and you had to go and be a rude bitch! You''re coming with me, now!" he shouts angrily. All the kindness is gone from his eyes, and he looks like he won''t hesitate to use violence if you don''t do as he says.'
-				'His friends look at the two of you intently now, also upset that you won''t join them. They''ll definitely help their friend, if you try to fight him... there''s no way you can take all three of them on.'
-
-				act 'Try to squirm free and run away':
+			
+			gs 'willpower', 'drink', 'resist', 'medium'
+			if will_cost <= pcs_willpwr:
+				act 'Push him away and swear at him (<<will_cost>> Willpower)':
 					cla
-					'You do your best to wrestle yourself free and run for it, but the guy doesn''t let you escape and gives you a resolving punch in the face. While you try to shake off the dizziness, he and his friends drag you further into the alley. At the back end, they roughly push you against a wall.'
+					gs 'willpower', 'pay', 'resist'
+					gs 'stat'
+					'"Leave me the fuck alone!" you scream at the hoodlum, and push him away. He won''t let you leave though, and blocks the exit while he grabs you by the arm.'
+					'"All I wanted to do was be nice, and you had to go and be a rude bitch! You''re coming with me, now!" he shouts angrily. All the kindness is gone from his eyes, and he looks like he won''t hesitate to use violence if you don''t do as he says.'
+					'His friends look at the two of you intently now, also upset that you won''t join them. They''ll definitely help their friend, if you try to fight him... there''s no way you can take all three of them on.'
+				end
+				
+				gs 'willpower', 'rape', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Try to squirm free and run away (<<will_cost>> Willpower)':
+						cla
+						gs 'pain', 6, 'head', 'hit'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						'You do your best to wrestle yourself free and run for it, but the guy doesn''t let you escape and gives you a resolving punch in the face. While you try to shake off the dizziness, he and his friends drag you further into the alley. At the back end, they roughly push you against a wall.'
 
-					act 'Ask what they want from you':gt 'gopnew', 'bazar'
+						act 'Ask what they want from you':gt 'gopnew', 'bazar'
+					end
+				else
+					act 'Try to squirm free and run 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 'Submit and let him take you into the alley':
@@ -69,9 +92,15 @@ if $ARGS[0] = 'start0':
 
 					act 'Ask what they want from you':gt 'gopnew', 'bazar'
 				end
-			end
-		end
-	end
+			else
+				act 'Push him away and swear at him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+			end	
+		else
+			act 'Decline again, more clearly this time (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end	
+	else
+		act 'Decline and walk 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
 
 if $ARGS[0] = 'start1':
@@ -84,7 +113,17 @@ if $ARGS[0] = 'start1':
 		'"Come on, babe!" he tries. "Surely you can spare like 30 minutes and have a chat with me?"'
 
 		act 'Go drink beer with him':gt 'gopnew', 'pivas'
-		act 'Decline and leave': minut += 5 & gt 'street'
+			
+		gs 'willpower', 'drink', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Decline and leave (<<will_cost>> Willpower)': 
+				minut += 5 
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'street'
+		else
+			act 'Decline 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	
 	end
 
 	act 'Go drink beer with him':gt 'gopnew', 'pivas'
@@ -100,7 +139,17 @@ if $ARGS[0] = 'start2':
 		'"Come on, babe!" he tries. "Surely you can spare like 30 minutes and have a chat with me?"'
 
 		act 'Go drink beer with him':gt 'gopnew', 'pivas'
-		act 'Decline and leave': minut += 5 & gt 'street'
+		
+		gs 'willpower', 'drink', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Decline and leave (<<will_cost>> Willpower)': 
+				minut += 5 
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'street'
+		else
+			act 'Decline 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	
 	end
 
 	act 'Go drink beer with him':gt 'gopnew', 'pivas'
@@ -159,7 +208,17 @@ if $ARGS[0] = 'start4':
 		'"Come on, babe!" he tries. "Surely you can spare like 30 minutes and have a chat with me?"'
 
 		act 'Go drink beer with him':gt 'gopnew', 'pivas'
-		act 'Decline and leave': minut += 5 & gt 'street'
+		
+		gs 'willpower', 'drink', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Decline and leave (<<will_cost>> Willpower)': 
+				minut += 5 
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'street'
+		else
+			act 'Decline 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	
 	end
 
 	act 'Go drink beer with him':gt 'gopnew', 'pivas'
@@ -286,7 +345,17 @@ if $ARGS[0] = 'start6':
 		'He rubs his groin awkwardly while he tells you: "How long has it been? I want you, now. Follow me."'
 
 		act 'Go with him':gt 'gopnew', 'sexstart'
-		act 'Walk away quickly': minut += 5 & gt 'street'
+		
+		gs 'willpower', 'sex', 'resist', 'medium'
+		if will_cost <= pcs_willpwr:
+			act 'Quickly leave (<<will_cost>> Willpower)': 
+				minut += 5 
+				gs 'willpower', 'pay', 'resist'
+				gs 'stat'
+				gt 'street'
+		else
+			act 'Quickly leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end	
 	else
 		'When you approach them, he gives you a dismissive nod, noticing you didn''t ignore him. "Good, you listened. Now get out of here, before we change our minds."'
 
@@ -517,18 +586,26 @@ if $ARGS[0] = 'bazar':
 
 				act 'Kneel before him':gt 'gopnew', 'rapebj'
 
-				act 'Refuse to blow him':
-					cla
-					*clr
-					'When you shake your head, you feel an intense pain on the side of your head and fall down to the ground. When you manage to focus your blurry gaze again, you see Vasan standing over you with a raised fist. "I wasn''t fucking asking, whore! Open. Your. Mouth."'
+				gs 'willpower', 'bj', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Refuse to blow him (<<will_cost>> Willpower)':
+						cla & *clr
+						gs 'willpower', 'pay', 'resist'
+						gs 'pain', 8, 'head', 'hit'
+						gs 'stat'
+						'When you shake your head, you feel an intense pain on the side of your head and fall down to the ground. When you manage to focus your blurry gaze again, you see Vasan standing over you with a raised fist. "I wasn''t fucking asking, whore! Open. Your. Mouth."'
 
-					act 'Kneel before him':gt 'gopnew', 'rapebj'
-				end
+						act 'Kneel before him':gt 'gopnew', 'rapebj'
+					end
+				else
+					act 'Refuse to blow him (<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 'Say you don''t':
-				cla
-				*clr
+				cla & *clr
+				gs 'pain', 8, 'stomach', 'hit'
+				gs 'stat'
 				'"More lies!" Vasan spits in your face.'
 				'He punches you in the stomach before you can respond, and you collapse to your knees before him.'
 				'"That''s right bitch, get on your knees where you belong. Open your fucking mouth!" he shouts, and begins to pull down his pants.'
@@ -546,40 +623,54 @@ if $ARGS[0] = 'bazar':
 		end
 	end
 
-	act 'Say you don''t owe them anything':
-		cla
-		*clr
-		'Vasan laughs and gives you an amused look: "Oh really, and why not? Are you saying I''m a liar and that you''re not a whore?"'
-
-		act 'Tell him he''s a liar':
-			cla
-			*clr
-			'Vasan punches you in the stomach before you can even finish your sentence, besides himself with rage. "You fucking... you''re the liar!"'
+	gs 'willpower', 'misc', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:
+		act 'Say you don''t owe them anything (<<will_cost>> Willpower)':
+			cla & *clr
+			gs 'willpower', 'pay', 'resist'
+			gs 'stat'
+			'Vasan laughs and gives you an amused look: "Oh really, and why not? Are you saying I''m a liar and that you''re not a whore?"'
 
-			act 'Drop to your knees before him':gt 'gopnew', 'rapebj'
-		end
+			act 'Tell him he''s a liar':
+				cla & *clr
+				gs 'pain', 8, 'stomach', 'hit'
+				gs 'stat'
+				'Vasan punches you in the stomach before you can even finish your sentence, besides himself with rage. "You fucking... you''re the liar!"'
 
-		act 'Tell him he''s not a liar':
-			cla
-			*clr
-			'Vasan nods affirmatively: "If I''m not a liar, that means you''re a whore! And like Konstantin said: whores pay, or they get fucked up. What''s it gonna be?"'
+				act 'Drop to your knees before him':gt 'gopnew', 'rapebj'
+			end
 
-			act 'Agree to pay':
-				cla
-				'Vasan grins, when he notices you don''t object: "Good whore. Now, let''s talk money."'
+			act 'Tell him he''s not a liar':
+				cla & *clr
+				'Vasan nods affirmatively: "If I''m not a liar, that means you''re a whore! And like Konstantin said: whores pay, or they get fucked up. What''s it gonna be?"'
 
-				act 'Ask him how much he wants':gt 'gopnew', 'dolg'
-			end
+				act 'Agree to pay':
+					cla
+					'Vasan grins, when he notices you don''t object: "Good whore. Now, let''s talk money."'
 
-			act 'Refuse to pay':
-				cla
-				'"You''re stubborn, aren''t you?" Vasan roars, clearly annoyed. Before you know it he punches you in the face, causing you to fall back onto the ground.'
-				'He undoes his pants while he walks over to you and grunts: "Here''s what happens if you don''t pay..."'
+					act 'Ask him how much he wants':gt 'gopnew', 'dolg'
+				end
+				
+				gs 'willpower', 'misc', 'resist', 'hard'
+				if will_cost <= pcs_willpwr:
+					act 'Refuse to pay (<<will_cost>> Willpower)':
+						cla
+						gs 'pain', 8, 'head', 'hit'
+						gs 'willpower', 'pay', 'resist'
+						gs 'stat'
+						'"You''re stubborn, aren''t you?" Vasan roars, clearly annoyed. Before you know it he punches you in the face, causing you to fall back onto the ground.'
+						'He undoes his pants while he walks over to you and grunts: "Here''s what happens if you don''t pay..."'
 
-				act 'Crawl up to your knees':gt 'gopnew', 'rapebj'
+						act 'Crawl up to your knees':gt 'gopnew', 'rapebj'
+					end
+				else
+					act 'Refuse to pay (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+				end	
 			end
 		end
-	end
+	else
+		act 'Say you don''t owe them anything (<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] = 'rapebj':
@@ -593,12 +684,13 @@ if $ARGS[0] = 'rapebj':
 		*clr
 
 		if vasansex = 0:vasansex = 1 & guy += 1
-
-		stat['bj'] += 1
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/rapebj1.jpg"></center>'
 		'You stare it down for another while, but realize they''re not going to let you go until they''re satisfied.'
 		'You hesitantly part your lips a little, and take the bulbous purple head of his cock between your lips. You suck on it a little without much enthusiasm, which he notices immediately.'
 		'"What is this garbage? Put some effort into it, slut! Or else..." he grunts.'
+		
+		gs 'arousal', 'bj', 3, 'rape', 'sub', 'humiliation'
+		gs 'stat'
 
 		act 'Put some effort into it':gt 'gopnew', 'tf'
 		act 'Keep doing what you''re doing':gt 'gopnew', 'tf'
@@ -614,40 +706,53 @@ if $ARGS[0] = 'rapebj':
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/rapebj2.jpg"></center>'
 		'You open your mouth but don''t take his cock in your mouth. Instead you run your tongue up and down his shaft repeatedly, without much enthusiasm.'
 		'"What is this garbage? Put some effort into it, slut! Or else..." he grunts.'
+		
+		gs 'arousal', 'foreplay', 3, 'rape', 'sub', 'humiliation'
+		gs 'stat'
 
 		act 'Start sucking':gt 'gopnew', 'tf'
 		act 'Keep licking':gt 'gopnew', 'tf'
 	end
+		
+	gs 'willpower', 'bj', 'resist', 'hard'
+	if will_cost <= pcs_willpwr:	
+		act 'Keep your lips tightly together (<<will_cost>> Willpower)':
+			cla & *clr
+			gs 'willpower', 'pay', 'self'
+			gs 'stat'
+			if vasansex = 0:vasansex = 1 & guy += 1
 
-		act 'Keep your lips tightly together':
-		cla
-		*clr
-
-		if vasansex = 0:vasansex = 1 & guy += 1
-
-		stat['bj'] += 1
-		'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/rapebj3.jpg"></center>'
-		'Vasan puts one hand over your throat, slowly choking you out while he rubs his cock against your lips impatiently. His other hand goes behind your head, and he thrusts his cock into your mouth when you try to gasp for breath.'
-		'"That''s right, whore... all you need is a little encouragement!" he laughs, and begins to fuck your mouth while he keeps choking you."'
+			'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/rapebj3.jpg"></center>'
+			'Vasan puts one hand over your throat, slowly choking you out while he rubs his cock against your lips impatiently. His other hand goes behind your head, and he thrusts his cock into your mouth when you try to gasp for breath.'
+			'"That''s right, whore... all you need is a little encouragement!" he laughs, and begins to fuck your mouth while he keeps choking you."'
+		
+			gs 'arousal', 'bj', 3, 'rape', 'sub', 'humiliation', 'rough'
+			gs 'stat'
 
-		act 'Give in and do what he wants':gt 'gopnew', 'tf'
-	end
+			act 'Give in and do what he wants':gt 'gopnew', 'tf'
+		end
+	else
+		act 'Keep your lips tightly together (<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] = 'tf':
-	minut += 3
-	pcs_throat += 1
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/rapebjt2.jpg"></center>'
 	'Vasan grabs a fistful of your hair and begins to fuck your mouth in earnest. His cock causes a gag reflex every time he hits the back of your throat, and your eyes are tearing up quickly.'
 	'He''s not giving you much chance to breathe, and you''re gasping for breath every time he gives you a bit of a break to breathe. They never last long.'
+	
+	gs 'arousal', 'bj', 3, 'rape', 'sub', 'humiliation', 'rough', 'deepthroat'
+	gs 'stat'
 
 	act 'Continue':
 		cla
 		*clr
-		minut += 3
 		'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/rapebjt.jpg"></center>'
 		'Suddenly Vasan thrusts his cock deeper down your throat, and holds your head firmly against his groin once he bottoms out in you.'
 		'You feel like you''re going to throw up!'
+		
+		gs 'arousal', 'bj', 3, 'rape', 'sub', 'humiliation', 'rough', 'deepthroat'
+		gs 'stat'
 
 		act 'Continue':
 			cla
@@ -688,6 +793,9 @@ if $ARGS[0] = 'tf':
 					'Then he grins to his friends: "She''s all yours, guys. Have fun."'
 					'Just when they came closer to you pulling their cocks out of their pants, you hear shouting at the end of the alley. Someone spotted you!'
 					'The Gopniks quickly run away, leaving you alone on the pavement covered in cum, saliva and tears. "Remember, whore... 2,000 <b>₽</b>! Tomorrow!" Vasan shouts, before he disappears around a corner.'
+					
+					gs 'arousal', 'end'
+					gs 'stat'
 
 					act 'Return to the streets': minut += 5 & gt 'street'
 				end
@@ -878,9 +986,7 @@ if $ARGS[0] = 'sexboy1':
 end
 
 if $ARGS[0] = '1':
-	minut += 15
 	pcs_vag += 1
-	stat['vaginal'] += 1
 	gs 'boyStat', $guygop
 	cumprecheck = 1
 	gs 'cum_manage'
@@ -897,24 +1003,28 @@ if $ARGS[0] = '1':
 		pcs_horny += 10
 		'You were not satisfied.'
 	else
-		pcs_horny = 0
-		orgasm += 1
+		$orgasm_or = 'yes'
 		'You orgasm with him, holding your hand over your mouth to stop yourself from crying out.'
 	end
 
 	'<<$boydesc>> wipes his cock on your ass cheeks and tucks it back into his pants. After that, he goes back to drinking beer with his friends, not paying any more attention to you.'
+	
+	gs 'arousal', 'vaginal', 15, 'sub', 'humiliation'
+	gs 'arousal', 'end'
+	gs 'stat'
 
 	act 'Leave': minut += 5 & gt 'street'
 end
 
 if $ARGS[0] = '11':
-	minut += 15
-	stat['bj'] += 1
 	pcs_throat += 1
 	gs 'stat'
 	picrand = rand(13, 22)
 	'<center><img <<$set_imgh>> src="images/shared/sex/blowjob/bj<<picrand>>.jpg"></center>'
 	'<<$boydesc>> guides you to a quiet area, and waits impatiently for you to pull his cock out of his pants. He groans contently when you begin to suck him off diligently. A few minutes later, he groans that he''s about to cum.'
+	
+	gs 'arousal', 'bj', 15, 'sub', 'humiliation'
+	gs 'stat'
 
 	act 'Let him cum in your mouth':
 		cla
@@ -931,7 +1041,10 @@ if $ARGS[0] = '11':
 			gs 'cum_manage'
 			swallow += 1
 			'You swallow <<$boydesc>>''s sperm diligently after which he wipes his dick on your lips, making you lick the last remains off. Once he''s satisfied, he pulls his pants up again and returns to his friends.'
-
+			
+			gs 'arousal', 'end'
+			gs 'stat'
+	
 			act 'Leave': minut += 5 & gt 'street'
 		end
 
@@ -941,7 +1054,10 @@ if $ARGS[0] = '11':
 			sexvolume = 7
 			gs 'cum_manage'
 			'You wait for <<$boydesc>> to turn his back on you, and discreetly spit the semen onto the ground. He doesn''t seem to care what you do with it, he''s already walking away from you.'
-
+			
+			gs 'arousal', 'end'
+			gs 'stat'
+			
 			act 'Leave': minut += 5 & gt 'street'
 		end
 	end
@@ -966,8 +1082,6 @@ if $ARGS[0] = '11':
 end
 
 if $ARGS[0] = '12':
-	minut += 15
-	stat['anal'] += 1
 	pcs_ass += 1
 	gs 'boyStat', $guygop
 	spafinloc = 4
@@ -984,13 +1098,16 @@ if $ARGS[0] = '12':
 		pcs_horny += 10
 		'He doesn''t care about your pleasure, and you''re nowhere near satisfied by the time he finishes.'
 	else
-		pcs_horny = 0
-		orgasm += 1
+		$orgasm_or = 'yes'
 		'You orgasm with him, holding your hand over your mouth to stop yourself from crying out.'
 	end
 
 	'<<$boydesc>> pulls out right before he orgasms, and ends up spraying his sperm all over your ass cheeks. He wipes his cock clean on an unsoiled spot on your ass and tucks it back into his pants, returning to his friends for another beer. He no longer cares what you do or where you go next.'
-
+	
+	gs 'arousal', 'anal', 15, 'sub', 'humiliation'
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Leave': minut += 5 & gt 'street'
 end
 
@@ -1001,8 +1118,6 @@ if $ARGS[0] = '2':
 	if GLust ! 2:tiprand = rand(0, 1)
 
 	if tiprand = 0 and GLust ! 2:
-		stat['bj'] += 3
-		gang += 1
 		pcs_throat += 3
 		namgopctnc = 6
 		:goptipr0loop
@@ -1027,15 +1142,18 @@ if $ARGS[0] = '2':
 		'<<$namgop[0]>>. The guys make you kneel before them, and begin to slap their cocks against your face impatiently. You do your best to pay attention to all of them, sucking them off one by one and jerking off those you can''t put in your mouth.'
 
 		'They cum all over your face and in your mouth, and your face looks like a mess by the time they finally let you go.'
+		
+		gs 'arousal', 'bj', 15, 'sub', 'humiliation', 'gangbang'
+		gs 'arousal', 'hj', 15, 'sub', 'humiliation', 'gangbang'
+		minut -= 15
+		gs 'arousal', 'end'
+		gs 'stat'
 
 		act 'Leave': minut += 5 & gt 'street'
+		
 	elseif tiprand = 1 or GLust = 2:
-		stat['bj'] += 1
 		pcs_vag += 1
-		stat['vaginal'] += 1
-		stat['anal'] += 1
 		pcs_ass += 5
-		gang += 1
 		pcs_throat += 3
 		namgopctnc = 6
 		:goptipr1loop
@@ -1075,27 +1193,27 @@ if $ARGS[0] = '2':
 			pcs_horny += 10
 			'The guys don''t care about your pleasure, and you''re nowhere near satisfied by the time they all finish.'
 		else
-			pcs_horny = 0
-			orgasm += 1
+			$orgasm_or = 'yes'
 			'You orgasm during their relentless pounding, holding your hand over your mouth to stop yourself from crying out loud.'
 		end
 
 		'The guys just cum wherever they feel like while they''re fucking you, giving you no warning. By the time they all finish, you''re a mess. You should probably go take a shower...'
-
+		
+		gs 'arousal', 'bj', 15, 'sub', 'humiliation', 'gangbang'
+		gs 'arousal', 'vaginal', 15, 'sub', 'humiliation', 'gangbang'
+		gs 'arousal', 'anal', 15, 'sub', 'humiliation', 'gangbang'
+		minut -= 15
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		act 'Leave': minut += 5 & gt 'street'
 	end
 end
 
 if $ARGS[0] = '3':
-	minut += 30
 	gs 'stat'
-
-	stat['bj'] += 1
 	pcs_vag += 1
-	stat['vaginal'] += 1
-	stat['anal'] += 1
 	pcs_ass += 5
-	gang += 1
 	pcs_throat += 3
 
 	namgopctnc = 6
@@ -1131,22 +1249,28 @@ if $ARGS[0] = '3':
 		pcs_horny += 10
 		'The guys don''t care about your pleasure, and you''re nowhere near satisfied by the time they all finish.'
 	else
-		pcs_horny = 0
-		orgasm += 1
+		$orgasm_or = 'yes'
 		'You orgasm during their relentless pounding, holding your hand over your mouth to stop yourself from crying out loud.'
 	end
+	
+	gs 'arousal', 'bj', 15, 'sub', 'humiliation', 'gangbang'
+	gs 'arousal', 'vaginal', 15, 'sub', 'humiliation', 'gangbang'
+	gs 'arousal', 'anal', 15, 'sub', 'humiliation', 'gangbang'
+	minut -= 15
+	gs 'arousal', 'end'
+	gs 'stat'
 
 	act 'Leave': minut += 5 & gt 'street'
 end
 
 if $ARGS[0] = 'degrading':
-	minut += 120
 	pcs_vag += 10
 	pcs_ass += 10
-	stat['anal'] += 1
-	stat['vaginal'] += 1
-	rape += 1
 	gopopusday = daystart
+	gs 'pain', 6, 'cheeks', 'slap'
+	gs 'pain', 6, 'breasts', 'slap'
+	gs 'pain', 6, 'vaginal', 'stretch'
+	gs 'pain', 6, 'anal', 'stretch'
 	gs 'stat'
 
 	if VasanTut = 2 and vasansex = 0:vasansex = 1 & guy += 1
@@ -1158,6 +1282,12 @@ if $ARGS[0] = 'degrading':
 
 	'<center><img <<$set_imgh>> src="images/locations/city/residential/street/sex/deg'+rand(1, 9)+'.jpg"></center>'
 	'The guys drive you to a nearby building and drag you inside, forcing you to undress. They spend the next two hours degrading you in every way imaginable: they slap your face and tits, they spit in your face, but most of the time they try to force large objects into your vagina and ass. By the time you''re exhausted, they pick you up and dump you in the back yard with your clothes. When you catch your breath again, you slowly put your clothes on and try to find your way back to the main streets.'
+	
+	gs 'arousal', 'vaginal', 120, 'sub', 'humiliation', 'gangbang', 'rape'
+	gs 'arousal', 'anal', 120, 'sub', 'humiliation', 'gangbang', 'rape'
+	minut -= 15
+	gs 'arousal', 'end'
+	gs 'stat'
 
 	act 'Leave': minut += 5 & gt 'street'
 end

locations/gskino.qsrc

@@ -39,11 +39,15 @@ if money >= 100:
 			'You quietly watch the movie, but suddenly behind you there is a strange sound.'
 			act 'Turn around and look':
 				*clr & cla
-				pcs_horny += 3
 				gs'stat'
 				'<center><video autoplay loop src="images/locations/pavlovsk/park/theater/sex/kino.mp4"></video></center>'
 				'You see on the back row a girl sucking a guy, nobody reacts to the loud smacking sound that can be heard by the whole cinema.'
 				'You turn back and watch the rest of the film.'
+				
+				gs 'arousal', 'voyeur_sex', 2
+				gs 'arousal', 'end'
+				gs 'stat'
+				
 				act 'Leave the cinema':gt 'gskver', 'start'		
 			end
 		end