Arousal seeding from Blatte

locations/BDSM_training

@@ -35,8 +35,6 @@ if $ARGS[0] = '1':
 	'She brings the stick to your nose, and cracks it across your cheek.'
 	act 'Further':
 		cls
-		minut += 10
-		pcs_horny += 5
 		gs 'stat'
 		'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_2.jpg"></center>'
 		'"This is for electrical shocks." Explains Mistress. "You will meet him later."'
@@ -46,10 +44,12 @@ if $ARGS[0] = '1':
 		'"Scared? Good!"'
 		'She moves away and looks at you. You realize what to do, and quickly take off all your clothes.'
 		'"Spread your legs! Hand behind your back! And the other!"'
+		
+		gs 'arousal', 'foreplay', 10, 'sub', 'lesbian'
+		gs 'stat'
+			
 		act 'Obey':
 			cls
-			minut += 10
-			pcs_horny += 10
 			gs 'stat'
 			'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_3.jpg"></center>'
 			'The Mistress removes from the wall and you puts on you, a leather collar, then wrist cuffs and ankle bracelets with hooks. The collar presses. You reach up to loosen it, but that earns you a slap. The Mistress walks around, the toe of her boot pushes your feet.'
@@ -63,10 +63,12 @@ if $ARGS[0] = '1':
 			'"Sorry flower, this will burn, but don''t cry. Take this!'
 			'The whip whistles in the air,  your back is burning with fire. You look at your shoulder and see the red marks.'
 			'"Listen carefully!"'
+			
+			gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
+			gs 'stat'
+		
 			act 'Listen':
 				cls
-				minut += 10
-				pcs_horny += 5
 				gs 'stat'
 				'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_4.jpg"></center>'
 				'Mistress hits you a few times on your inner thighs.'
@@ -75,10 +77,12 @@ if $ARGS[0] = '1':
 				'The hostess walks around you, patting the whip on your shoulders, ass and back.'
 				'"Now the main thing, safe word, to stop, this word is "red". As soon as you say "red", the session is ended. If your mouth is busy, three times shake your head and hum "and-and". If you can''t shake your head three times you slam the palm of your hand. Clear?"'
 				'"Yes, Mistress!'
+				
+				gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
+				gs 'stat'
+			
 				act 'Remember':
 					cls
-					minut += 10
-					pcs_horny += 15
 					gs 'stat'
 					'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_5.jpg"></center>'
 					'You feel covered in arousal. The Mistress sees your condition and puts her hand between your legs.'
@@ -98,6 +102,9 @@ if $ARGS[0] = '1':
 					'Pain shoots through your face. You fall to your knees, your vision is a little blurry and you can taste copper. Mistress stands over you.'
 					'"Do not dare!"'
 					'You slowly work it out, earlier you were looking at a cattle prod, and now you have been formally introduced.'
+					$orgasm_or = 'no'
+					gs 'arousal', 'vaginal_finger', 10, 'sub', 'lesbian', 'maso', 'bound'
+					gs 'stat'
 					act 'Breathe':
 						cls
 						minut += 10
@@ -110,14 +117,17 @@ if $ARGS[0] = '1':
 						'"Yes, Mistress! Yes!'
 						act 'Follow':
 							cls
-							minut += 10
-							pcs_horny += 15
 							gs 'stat'
 							'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_7.jpg"></center>'
 							'Mistress leads you to the diagonal cross and latches the bracelets to you. You can not move.'
 							'"Failure to comply will be punished."'
 							'Skillfully, Mistress plays with your clit, first fingers, then various tools. You moan, ready to cum, but she is very much aware. Noticing your condition, she removes her hand from your flower and whips you in the stomach.'
 							'Gradually the excitment calms, but you can feel it there, just below the surface. She again starts to caress you, alternating caresses with spanking.'
+							
+							gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
+							gs 'arousal', 'vaginal_finger', 10, 'sub', 'lesbian', 'bound'
+							minut -= 10
+							gs 'stat'
 							act 'Endure':
 								cls
 								minut += 10
@@ -126,12 +136,13 @@ if $ARGS[0] = '1':
 								'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_8.jpg"></center>'
 								'Eventually, you stop noticing the difference between pain and pleasure. Your face is covered in sweat, you squirm on the cross. You beg mistress to let you cum, but she is adamant.'
 								'"You must earn it!"'
+								$orgasm_or = 'no'
+								gs 'stat'
 								act 'Cheat and cum':
 									cls
 									minut += 10
 									pcs_horny = 10
 									pcs_mood += 25
-									orgasm += 1
 									gs 'stat'
 									'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_9.jpg"></center>'
 									'You decide to cheat and, with an incredible force of will, take control of the body. It goes unnoticed, Mistress continues, and you rapidly cum.'
@@ -139,6 +150,8 @@ if $ARGS[0] = '1':
 									'She unhooks you from the cross, puts you on your knees and slaps you a few times. You are so happy, being able to cum, that you laugh.'
 									'"Laugh? Well, I''ll fix that!"'
 									'Mistress picks up a rope and wraps it around your breasts, tightly binding the left and right. The pain makes you start crying, but Mistress is not through, she hangs on you nipple clamps with weights and forces you to crouch, so, the weights are swinging. You hurt, but at the same time it''s nice, and you stay there as instructed.'
+									$orgasm_or = 'yes'
+									gs 'stat'
 									act 'Further':gt 'BDSM_training', 'BDSMend'
 								end
 								act 'Hold back':
@@ -148,6 +161,8 @@ if $ARGS[0] = '1':
 									gs 'stat'
 									'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_8.jpg"></center>'
 									'Mistress forbids you to cum, and you struggle, hampered.'
+									$orgasm_or = 'no'
+									gs 'stat'
 									act 'Further':gt 'BDSM_training', 'BDSMend'
 								end
 							end
@@ -161,14 +176,17 @@ end
 
 if $ARGS[0] = 'BDSMend':
 	cls
-	minut += 10
-	pcs_horny += 5
 	gs 'stat'
 	'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_10.jpg"></center>'
 	'"Well, enough for today." You do not immediately understand, when Mistress announces the completion of the session. "A good start, but there is still work to do."'
 	'"Is that all?" You ask, having temporarily forgotten about the real world.'
 	'"Almost..."'
 	'Mistress puts you on your knees in front of her and forces you to lick her pussy. The session had excited not only you, but Mistress to, and she cums from a few movements of your tongue. After, having licked up every drop from Mistress, you go.'
+	
+	gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian', 'maso', 'bound'
+	gs 'arousal', 'end'
+	gs 'stat'
+			
 	act 'Leave':gt 'BDSM_Club','start'
 end
 
@@ -196,23 +214,22 @@ if $ARGS[0] = '2':
 		'Mistress ties you onto the platform face down and picks up the whip.'
 		act 'Wait':
 			cls
-			minut += 10
-			pcs_horny += 5
 			gs 'stat'
 			'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_3.jpg"></center>'
 			'You are lying on the platform, Mistress, slowly and methodically, punishes you, using various whips, lashes and paddles.'
+			gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
+			gs 'stat'
 			act 'Endure':
 				cls
-				minut += 10
-				pcs_horny += 10
 				gs 'stat'
 				'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_4.jpg"></center>'
 				'It is becoming unbearable, and Mistress says.'
 				'"Tired, bitch? Take a break!"'
 				'She then sits in front of you, and squatting raises your head to her pussy. You diligently use your tongue to stimulate the labia and clitoris of mistress.'
+				gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian', 'maso', 'bound'
+				gs 'stat'
 				act 'Further':
 					cls
-					minut += 10
 					if pcs_horny < 90: pcs_horny = 90
 					pcs_vag += 1
 					gs 'stat'
@@ -222,40 +239,46 @@ if $ARGS[0] = '2':
 					'"Mistress, cum! Please!'
 					'"No! And don''t look at me with those puppy dog eyes! Not allowed!'
 					'Mistress almost brings you to orgasm, then takes the vibrator.'
+					$orgasm_or = 'no'
+					gs 'arousal', 'vaginal_vibe', 10, 'sub', 'lesbian', 'maso', 'bound'
+					gs 'stat'
 					act 'Further':
 						cls
-						minut += 10
-						pcs_horny += 5
 						gs 'stat'
 						'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_6.jpg"></center>'
 						'Flogging resumes. The whole time you are kept on the brink of pain and pleasure.'
+						gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
+						gs 'stat'
 						act 'Further':
 							cls
-							minut += 10
-							pcs_horny += 5
 							gs 'stat'
 							'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_7.jpg"></center>'
 							'"Let''s get weaving..."'
 							'Mistress unties you, leads to a large box, makes to climb on top with your butt in the air. Squinting your eyes, you see, she is unwinding rope. Immediately it is obvious, she has great experience.'
 							'Ropes cover your ankles, wrists, knees and pulling your neck, forcing your nose to the box. After a few minutes you realise, that can''t move. Your ass points to the ceiling, feet apart, displaying your pussy and ass. From helplessness and complete openness you get excited once more.'
 							'"Welcome to rope club!" Announces Mistress and spanks your butt with her palm.'
+							gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
+							gs 'stat'
 							act 'Further':
 								cls
-								minut += 10
-								pcs_horny += 5
 								pcs_vag += 1
 								gs 'stat'
 								'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_8.jpg"></center>'
 								'Mistress puts on a strap-on, makes you lick and suck it, then walks around behind you. You feel it press against your pussy, slipping inside with no resistance, it begins to thrust back and forth.'
+								gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian', 'maso', 'bound'
+								gs 'stat'
 								act 'Further':
 									cls
-									minut += 10
-									pcs_horny += 5
 									gs 'stat'
 									'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_9.jpg"></center>'
 									'Mistress Fucks you with a strapon and again brings to your peak, but does not give you the finish the desire.'
  									'"Boring..." Disappointedly Mistress pulls out, while you try to catch your breath. "How about hanging you?"'
 									'Mistresses fingers flash so quickly, you can''t keep up. She changes the location of the ropes, turns to you and rattles some chains. You realize with horror, she has tied you hanging from the ceiling chain. The motor sounds, and your body rises.'
+									$orgasm_or = 'no'
+									gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian', 'maso', 'bound'
+									gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
+									minut -= 10
+									gs 'stat'
 									act 'Further':
 										cls
 										minut += 10
@@ -263,30 +286,29 @@ if $ARGS[0] = '2':
 										gs 'stat'
 										'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_10.jpg"></center>'
 										'The ropes cut into your skin, but mistress knows her stuff. For all it hurts, it isn''t so much as to drive away the excitement. You hang upside down and the room slowly rotates around you.'
+										gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
+										gs 'stat'
 										act 'Further':
 											cls
-											minut += 10
-											pcs_horny += 5
 											pcs_vag += 1
 											vgape = 2
 											gs 'stat'
 											'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_11.jpg"></center>'
 											'"Well, let''s see, how ready is your hole!"'
 											'Mistress pulls out a huge Dildo, attached to a stick, and enters it into your pussy. You think you are being torn apart. You scream out and beg for mercy, but it is useless. Mistress energetically moves the stick up and down, like she is unblocking a toilet.'
+											gs 'arousal', 'vaginal_dildo', 10, 'sub', 'lesbian', 'maso', 'bound', 'rough'
+											gs 'stat'
 											act 'Stop it':
 												cls
-												minut += 10
-												pcs_horny += 5
 												gs 'stat'
 												'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_12.jpg"></center>'
 												'Just as you are ready to scream "Red!", mistress takes the dildo out of you. Again the motor buzzes, you kneel on the floor. Madam binds your hands behind your back and puts you on the knees.'
 												'"Rest!"'
 												'Mistresses leg is in your face, and you understand what to do. You kiss and lick the foot, sucking her toes.'
+												gs 'arousal', 'kiss_give', 10, 'sub', 'lesbian', 'maso', 'bound', 'feet'
+												gs 'stat'
 												act 'Adore':
 													cls
-													minut += 10
-													pcs_horny = 0
-													orgasm += 1
 													pcs_mood += 50
 													pcs_ass += 1
 													agape = 2
@@ -297,9 +319,11 @@ if $ARGS[0] = '2':
 													'"Oh fuck, cum! Please!" You can hardly form the words.'
 													'"Fuck you, bitch! Fine, hurry it though!"'
 													'With those words you are rapidly ograsming, which is immediately followed by a second extremely intense one. You squirm so much, that even the ropes are coming free.'
+													$orgasm_or = 'yes'
+													gs 'arousal', 'anal_strap', 10, 'sub', 'lesbian', 'maso', 'bound'
+													gs 'stat'
 													act 'Recover':
 														cls
-														minut += 10
 														gs 'stat'
 														'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_14.jpg"></center>'
 														'"Finished?"  Mistress leans over to you.'
@@ -308,15 +332,18 @@ if $ARGS[0] = '2':
  														'"This will keep your mouth closed! I''m tired of listening to your whining!"'
 														'Madam binds the rope around your wrists to the ceiling, and attaches a chain leash with which she pulls you to the box.'
 														'"Now show me, how you please a man!"'
+														gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
+														gs 'stat'
 														act 'Further':
 															cls
-															minut += 10
-															pcs_horny += 15
 															pcs_vag += 1
 															gs 'stat'
 															'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_15.jpg"></center>'
 															'Mistress lies on her back, and forces you to ride her, and you are grinding on her strap-on. The satisfied moans of Mistress and the clear visual evidence tell you she has already cum several times.'
 															'Satisfied, Mistress unties you, approvingly slaps you on the cheek and lets you go, ordering you to come tomorrow.'
+															gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian', 'maso', 'bound'
+															gs 'arousal', 'end'
+															gs 'stat'
 															act 'Leave':gt 'BDSM_Club','start'
 														end
 													end
@@ -344,44 +371,42 @@ if $ARGS[0] = '3':
 	'"Did you dress up pretty for me?" Says Mistress as she checks you out in a predatory manner, "Well, ready then? Get undressed and get over here!'
 	act 'Obey':
 		cls
-		minut += 10
-		pcs_horny += 10
 		gs 'stat'
 		'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_2.jpg"></center>'
 		'Mistress orders you to get into the cage, you are reminded of a parrot cage. Your body does not fit entirely, and your legs hang out. Your neck is held by a heavy iron collar, attached by chains to the bars of the cage. Mistress pushes a button and the cage rises.'
 		'"Straighten your legs! In front of you, here!" Orders Mistress. Your bare feet are in front of her.'
+		gs 'arousal', 'foreplay', 10, 'sub', 'lesbian','bound', 'feet'
+		gs 'stat'
 		act 'Further':
 			cls
-			minut += 10
-			pcs_horny += 15
 			gs 'stat'
 			'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_3.jpg"></center>'
 			'Mistress tickles your heels and growls at you everytime you try to move your legs.'
 			'"Return to position!"'
 			'You obey. Mistress leans forward and you feel something touching your pussy. Then you hear a buzzing sound, and you feel the vibration.'
+			gs 'arousal', 'vaginal_vibe', 10, 'sub', 'lesbian', 'bound'
+			gs 'stat'
 			act 'Further':
 				cls
-				minut += 10
-				pcs_horny += 15
 				gs 'stat'
 				'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_4.jpg"></center>'
 				'"Leg!"'
 				'You lift up your leg. Mistress is holding a thin cane, with considerable force, see hits the sole of your foot.'
 				'"And again..."'
 				'Mistress walks around you asking questions, at the slightest hitch in your response you get hit by the cane.'
+				gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound', 'feet'
+				gs 'stat'
 				act 'Further':
 					cls
-					minut += 10
-					pcs_horny += 15
 					gs 'stat'
 					'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_5.jpg"></center>'
 					'You are responding, feeling waves of pleasure spread through your body. The vibrator buzzing and twitching, driving you crazy. Unable to restrain himself, you shout.'
 					'"Mistress, please! Come!"'
 					'"No! Restraint! Restraint!"'
+					gs 'arousal', 'vaginal_vibe', 10, 'sub', 'lesbian', 'maso', 'bound'
+					gs 'stat'
 					act 'Restrain':
 						cls
-						minut += 10
-						pcs_horny += 15
 						gs 'stat'
 						'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_6.jpg"></center>'
 						'Mistress monitors your condition, and the moment before you orgasm, she turns off the vibrator.'
@@ -389,46 +414,48 @@ if $ARGS[0] = '3':
 						'Mistress frees you from the cage and puts you on your knees.'
 						'"Come!" She says imperatively, you understand, she''s not talking to you.'
 						'From a dark corner you see someone covered from head to toe in what appears to be tight leather. The man, his cock the only thing not covered, is dangling between his legs, a thick sausage. The mask on the mans head has two holes for his eyes. He bows to Mistress and walks closer.'
+						gs 'arousal', 'foreplay', 10, 'sub', 'lesbian', 'maso', 'bound'
+						gs 'stat'
 						act 'Await orders':
 							cls
-							minut += 10
-							pcs_horny += 5
-							stat['bj'] += 1
 							guy += 1
 							gs 'stat'
 							'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_7.jpg"></center>'
 							'"Show me you know how to suck!"'
 							'You obediently take cock in your mouth and carefully suck. Mistress walks around and says.'
 							'"C grade suck, C grade! Need to practice!"'
+							gs 'arousal', 'bj', 10, 'sub'
+							gs 'stat'
 							act 'Next':
 								cls
-								minut += 10
-								pcs_horny += 5
 								pcs_vag += 1
-								stat['vaginal'] += 1
 								gs 'stat'
 								'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_8.jpg"></center>'
 								'At a sign from Mistress, the man lies on the box. You climb up, lower your pussy onto his dick and start to ride. Mistress walks around and encourages with the cane.'
+								gs 'arousal', 'vaginal', 10, 'sub'
+								gs 'stat'
 								act 'Further':
 									cls
-									minut += 10
-									pcs_horny += 5
 									gs 'stat'
 									'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_9.jpg"></center>'
 									'"Stop!" Orders Mistress.'
 									'You stop, freezing in position. Mistress gets clothespins tied to ropes, and begins to attach them to you. The clothespins hurt, especially on your nipples and tongue, but you endure. At a silent command from Mistress, you resume movement.'
+									gs 'arousal', 'vaginal', 10, 'sub', 'maso'
+									gs 'stat'
 									act 'Grind':
 										cls
-										minut += 10
-										pcs_horny = 0
 										pcs_mood += 25
-										orgasm += 1
 										gs 'stat'
 										'<center><img src="images/locations/city/suburb/bdsm_club/r<<BDSMmeet>>_10.jpg"></center>'
 										'"Now jerk!" Orders Mistress.'
 										'You begin to pull at your clit, while grinding on the dick. Soon you feel, that you are at the brink, and ask permission.'
 										'"Finish!" Allows Mistress.'
 										'You shout "Cumming!". You are having an orgasm of unprecedented power. At the peak point, Mistress abruptly pulls the strings, tearing the clothespins from you. You think that she ripped off the skin, it is very painful and pleasant at the same time.'
+										$orgasm_or = 'yes'
+										gs 'arousal', 'vaginal', 10, 'sub', 'maso'
+										gs 'arousal', 'vaginal_finger', 10, 'sub', 'maso'
+										minut -= 10
+										gs 'stat'
 										act 'Breathe':
 											cls
 											minut += 10
@@ -438,6 +465,8 @@ if $ARGS[0] = '3':
 											'The lady takes you by the hair and turns your face to hers.'
  											'"Welcome to the Club, slave!"'
 											'Hardly able to walk and your legs buckling you get in the shower. As you exit, you are handed a membership card, you can now enter to the Club as a full member.'
+											gs 'arousal', 'end'
+											gs 'stat'
 											act 'Leave':gt 'BDSM_Club','start'
 										end
 									end
@@ -479,13 +508,13 @@ if $ARGS[0] = 'd_start':
 			'"A sub should be obedient and not speak unless spoken to, unless naked or wearing bondage gear, sub women should dress as maids and men as butlers."'
 			act 'Continue':
 				cls
-				pcs_horny += 10
-				minut += 10
 				gs 'stat'
 				'<center><img src="images/locations/city/suburb/bdsm_club/sex/r2_6.jpg"></center>'
 				'Elektra helps the sub into a harness and boots then points to the floor. The submissive women kneels down, being careful to position her legs and arms very precisely.'
 				'"This is the "slave" position, it displays your dominance over the sub. A dominant can do anything to a sub, but must not cause lasting harm."'
 				'"You must also stop immediately if they use their safe-word, this is always "red". As soon as they say "red", the session is ended. If their mouth is busy, they can shake their head 3 times and hum "and-and". If they can''t do either they can slam the palm of their hand. Clear?"'
+				gs 'arousal', 'voyeur', 10
+				gs 'stat'
 				act 'Carry on':
 					cls
 					BDSMClubIn = 1
@@ -498,6 +527,11 @@ if $ARGS[0] = 'd_start':
 					'You do feel quite aroused and are about to thank Elektra, when she hands you a body massager. Normally she would have to ask to cum, but as this is your treat, you can stop when ever you like. For the first time since you met Eletra she cracks a smile.'
 					'Using the body massager you tease the sub for about 10 minutes, but stop short of letting her orgasm. Eletra surprises you by kissing you on the cheek, "I think I''m going to like having you around."'
 					'She walks back to the front gate with you and gives you a shiny new memebership card. Suddenly realising she is still in her leather outfit she blushes lightly and briskly walks back.'
+					gs 'arousal', 'vaginal_vibe_give', 10, 'dom', 'lesbian'
+					gs 'arousal', 'kiss', 10, 'lesbian'
+					minut -= 10
+					gs 'arousal', 'end'
+					gs 'stat'
 					act 'Leave':gt 'BDSM_Club','start'
 				end
 			end

locations/BurgerTip

@@ -87,26 +87,36 @@ if $ARGS[0] = 'work':
 
 				act 'Kiss him':
 					cls
-					pcs_horny += 10
 					gs 'stat'
 					'<center><img src="images/characters/city/anatoly/sex/bossex.jpg"></center>'
 					'While you kiss him, Anatoly leads you to the couch. He soon has his face planted between your breasts, and a hand fondling your ass.'
 
+					gs 'arousal', 'give_kiss', 5, 'sub'
+					gs 'arousal', 'foreplay', 5, 'sub'
+					minut -= 5
+					gs 'stat'
+					
 					act 'Suck his dick': gt 'BurgerTip', 'bj'
 
 					act 'Have sex':
 						cls
-						pcs_horny += 10
 						gs 'stat'
 						'<center><img src="images/characters/city/anatoly/sex/bossex2.jpg"></center>'
 						'Anatoly puts you on your back, and begins to undress you. His kisses and his hands run all over your body, soon his hand finds it''s way between your legs.'
 
 						bosstipsexrand = rand(1, 10)
 
+						gs 'arousal', 'vaginal_finger', 5, 'sub'
+						gs 'stat'
+					
 						if bosstipsexrand >= 3:
 							act 'Moan': gt 'BurgerTip', 'sex2'
 						elseif bosstipsexrand < 3:
 							'His hand goes further finding your sphincter with one of his fingers. The probing of his finger leaves no doubt about what he wants.'
+							
+							gs 'arousal', 'anal_finger', 5, 'sub'
+							gs 'stat'
+						
 							act 'Take it in the ass':gt 'BurgerTip', 'anal2'
 						end
 					end
@@ -124,6 +134,9 @@ if $ARGS[0] = 'work':
 						'<center><img src="images/characters/city/anatoly/sex/bossbj.jpg"></center>'
 						'When his pants are around his ankles, you kiss and rub your hands along the fabric covering his bulge. Eventually you see the tip of his penis poking out his briefs, and can''t take it anymore. Playfully, you remove his underwear with your teeth.'
 
+						gs 'arousal', 'foreplay', 5, 'sub'
+						gs 'stat'
+						
 						act 'Suck his dick': gt 'BurgerTip', 'bj'
 					end
 
@@ -332,12 +345,13 @@ if $ARGS[0] = 'work':
 
 								act 'Drop to you knees':
 									cls
-									minut += 5
-									stat['bj'] += 1
 									gs 'stat'
 									'<center><img src="images/characters/city/anatoly/sex/bossbjs.jpg"></center>'
 									'You kneel before your Anatoly, and shower his groin with gentle kisses and little licks. He is rock hard and ready in no time. You tease him a little by sucking on just the tip of his cock, for awhile. When it looks like he can''t take it anymore, you slide his entire cock into your mouth. You bob your head up and down vigorously, savoring the taste of the boss''s cock. Before you can finish him, he pulls himself from your mouth, and motions for you to follow him to the bench.'
 
+									gs 'arousal', 'bj', 5, 'sub'
+									gs 'stat'
+						
 									act 'Further':
 										cls
 										minut += 5
@@ -355,7 +369,6 @@ if $ARGS[0] = 'work':
 							
 											'Anatoly puts a condom on saying, "You can never be too careful. My wife would kill me if I knocked up some sweet young thing." He then grabs you by the hand pulling you on top of him. You throw a leg over and sit on top of him, ready for action.'
 										end
-										dynamic $sexstart3
 										if sexcontra = 3:
 											'Anatoly groans and twitches a few times, then he pulled out of you You see that his condom is filled with sperm.'
 										elseif sexcontra = 7:
@@ -374,6 +387,10 @@ if $ARGS[0] = 'work':
 										dynamic 'showerdin'
 										'You head to the shower to wash up. When you return, you see that he is already dressed. "<<$pcs_nickname>>, I''ve got to run, but you were great baby," he says, giving you a kiss before he leaves.'
 
+										gs 'arousal', 'vaginal', 15, 'sub'
+										gs 'arousal', 'end'
+										gs 'stat'
+						
 										act 'Leave':gt 'street'
 									end
 								end
@@ -384,8 +401,6 @@ if $ARGS[0] = 'work':
 
 						act 'You''re great at giving favors':
 							cls
-							minut += 5
-							stat['bj'] += 1
 							gs 'boyStat', 74
 							spafinloc = 12
 							gs 'cum_manage'
@@ -394,6 +409,10 @@ if $ARGS[0] = 'work':
 							'<center><img src="images/characters/city/anatoly/sex/bossbjcar.jpg"></center>'
 							'Determined to send Anatoly home with a smile, you lean over and unzip his pants. You wrap your <<$lip1>> lips around his flaccid penis, and start working your magic. Soon your mouth is full of hard throbbing cock. You make an effort to get him home quickly, and suck like a woman possessed with the need for seed. He does finish quickly, and you slurp it all down with a smile. Anatoly gets himself back in his pants, and sends you on your way saying, "Thanks babe, you''re the best."'
 							
+							gs 'arousal', 'bj', 5, 'sub'
+							gs 'arousal', 'end'
+							gs 'stat'
+						
 							act 'Leave':gt 'down'
 						end
 					end
@@ -533,11 +552,13 @@ if $ARGS[0] = 'bj':
 	cls
 	numbjrand = rand(0, 14)
 	wantrand = rand(0, 3)
-	stat['bj'] += 1
 	gs 'stat'
 	'<center><img src="images/characters/city/anatoly/sex/bossbj<<numbjrand>>.jpg"></center>'
 	'You greedily wrap your <<$lip1>> lips around the head of his cock. Smiling up at Anatoly, you give you lips a playfully little pop, before you begin to suck in earnest.'
 
+	gs 'arousal', 'bj', 5, 'sub'
+	gs 'stat'
+						
 	if wantrand = 3:
 		'After a short time, Anatoly takes his cock from your mouth and says, "<<$pcs_nickname>>, I want all of you."'
 		act 'Bend over the desk': gt 'BurgerTip', 'bend'
@@ -653,6 +674,9 @@ if $ARGS[0] = 'bj_cum':
 		'<center><img src="images/shared/sex/handjob/bossbjcum.jpg"></center>'
 		'Not wanting a mouth full of cum, you decide to jerk Anatoly to completion. His semen pours out all over your hand. Exhausted, Anatoly lies back breathing heavily.'
 
+		gs 'arousal', 'hj', 5, 'sub'
+		gs 'stat'
+						
 		if PSBBtimes = 1:
 			act 'Have your lunch': gt 'burgerWork', 'work'
 		elseif PSBBtimes = 2:
@@ -663,6 +687,10 @@ if $ARGS[0] = 'bj_cum':
 		gs 'cum_manage'
 		'<center><img src="images/characters/city/anatoly/sex/bossbjcum2.jpg"></center>'
 		'Not wanting a mouth full of cum, you decide to jerk Anatoly to completion. Oh dear, it looks like your clever plan backfired. Anatoly managed to shoot his load all over your pretty outfit. It looks sexy, but you better head to the bathroom before it stains.'
+		
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		act 'Go to the toilet': gt 'BurgerTip', 'toilet'
 	elseif reaktrand >= 9:
 		spafinloc = 11
@@ -671,6 +699,10 @@ if $ARGS[0] = 'bj_cum':
 		gs 'cum_manage'
 		'<center><img src="images/characters/city/anatoly/sex/bossbjcum3.jpg"></center>'
 		'Not wanting a mouth full of cum, you decide to jerk Anatoly to completion. You realize your error when jets of semen splatter against your face and clothes. You manage to get most of it off your face with a tissue, but you better get to the little girls room before it stains your top.'
+		
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		act 'Go to the toilet': gt 'BurgerTip', 'toilet'
 	end
 
@@ -685,6 +717,9 @@ if $ARGS[0] = 'bj2':
 	'<center><img src="images/characters/city/anatoly/sex/bossbjcum4.jpg"></center>'
 	'Wanting to get a taste, you pick up the pace to finish him. Soon, his salty semen pours into your mouth. It tastes delicious.'
 
+	gs 'arousal', 'bj', 5, 'sub'
+	gs 'stat'
+		
 	act 'Show him how full your mouth is':
 		cls
 		gs 'stat'
@@ -703,6 +738,10 @@ if $ARGS[0] = 'bj2':
 			gs 'cum_manage'
 			gs 'stat'
 			'Afterword, you notice you got some of his semen on your blouse.'
+			
+			gs 'arousal', 'end'
+			gs 'stat'
+		
 			act 'Go to the toilet': gt 'BurgerTip', 'toilet'
 		end
 	end
@@ -757,14 +796,20 @@ if $ARGS[0] = 'sex':
 	!!bossfuck
 	'<center><img src="images/characters/city/anatoly/sex/bossfuck.jpg"></center>'
 	'You urge him on with your moans, and a little wiggle of your hips.'
-	dynamic $sexstart2
 	!!dynamic $sexcum
 	bosswantrand = rand(0, 10)
+	
+	gs 'arousal', 'vaginal', 10, 'sub'
+	gs 'stat'
 
 	if bosswantrand >= 3:
 		spafinloc = 4
 		gs 'cum_manage'
 		'<<$boydesc>> withdraws his cock, and shoots hot streams of semen all over your naked ass.'
+		
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		if PSBBtimes = 1:
 			act 'Have your lunch': gt 'burgerWork', 'work'
 		elseif PSBBtimes = 2:
@@ -785,11 +830,14 @@ if $ARGS[0] = 'anal':
 	!!bossfuck
 	'<center><img src="images/characters/city/anatoly/sex/bossanal.jpg"></center>'
 	'You push your hips back presenting your ass for Anatoly.'
-	dynamic $analsex
 	!!dynamic $sexcum
 	spafinloc = 4
 	gs 'cum_manage'
 	'He finishes by giving you a little smack on the ass and a "good girl".'
+	
+	gs 'arousal', 'anal', 10, 'sub'
+	gs 'arousal', 'end'
+	gs 'stat'
 
 	if PSBBtimes = 1:
 		act 'Have your lunch': gt 'burgerWork', 'work'
@@ -807,15 +855,21 @@ if $ARGS[0] = 'sex2':
 	!!bossfuck
 	'<center><img src="images/characters/city/anatoly/sex/bossfuck2.jpg"></center>'
 	'You urge him on with your moans, and a little wiggle of your hips.'
-	dynamic $sexstart2
 	!!dynamic $sexcum
 
 	bosswantrand = rand(0, 10)
 
+	gs 'arousal', 'vaginal', 10, 'sub'
+	gs 'stat'
+	
 	if bosswantrand >= 3:
 		spafinloc = 14
 		gs 'cum_manage'
 		'<<$boydesc>> withdraws his cock, and shoots hot streams of semen all over your naked ass.'
+		
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		if PSBBtimes = 1:
 			act 'Have your lunch': gt 'burgerWork', 'work'
 		elseif PSBBtimes = 2:
@@ -836,12 +890,15 @@ if $ARGS[0] = 'anal2':
 	gs 'stat'
 	'<center><img src="images/characters/city/anatoly/sex/bossanal2.jpg"></center>'
 	'You brace yourself, as he pushes his rock hard cock against your tight little sphincter.'
-	dynamic $analsex
 	!!dynamic $sexcum
 	spafinloc = 3
 	gs 'cum_manage'
 	'He finishes by giving you a little smack on the ass and a "good girl".'
 
+	gs 'arousal', 'anal', 10, 'sub'
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	if PSBBtimes = 1:
 		act 'Have your lunch': gt 'burgerWork', 'work'
 	elseif PSBBtimes = 2:
@@ -905,6 +962,9 @@ if $ARGS[0] = 'Ivan_work2':
 				'<center><img src="images/characters/city/ivan/sex/ivanfacial.jpg"></center>'
 				'You kneel with mouth open waiting for what comes next. Ivan gets his dick out, and starts to masturbate in front of your face, coldly staring down at you. He shouts, "I knew you''d be my whore!" as sperm flies out of his cock and splatters against your face. After he is finished coating your face, he puts his dick back in his pants saying, "OK, get out of my office slut, and don''t forget unless you want the boss finding out about those pictures I own your ass."'
 
+				gs 'arousal', 'bj', 10, 'sub'
+				gs 'arousal', 'end'
+				gs 'stat'
 				if PSBBtimes = 1:
 					act 'Have your lunch': gt 'burgerWork', 'work'
 				elseif PSBBtimes = 2:

locations/Kwlake1

@@ -15,32 +15,41 @@ act 'Fondle her':
 	cla
 	*clr
 	kat += 5
-	lesbian += 1
 	'<center><img src="images/locations/city/residential/lake/sex/kwlake1/kwlake2.jpg"></center>'
 	'Kat still has her lips wrapped around the stone dildo when you approach her and begin to rub her pussy, out of the blue. How could you not?'
 	'She smiles at you but doesn''t stop you, grinding her hips against your hand eagerly. Then you drop to your hands and knees and lick her pussy eagerly, while she keeps pretending to suck the stone cock.'
 
+	gs 'arousal', 'cuni_give', 5, 'lesbian'
+	gs 'arousal', 'vaginal_finger', 5, 'lesbian'
+	minut -= 5
+	gs 'stat'
+		
 	act 'Lie down':
 		cla
 		*clr
-		stat['cuni'] += 1
 		'<center><img src="images/locations/city/residential/lake/sex/kwlake1/kwlake3.jpg"></center>'
 		'You lie down on the sand and Kat gives you the rock, giving you a lewd wink: "Your turn! And my turn... yummy!"'
 		'She then lowers her head to your groin and really digs in, eagerly licking your wet slit. Without even realizing it, you bring the stone cock to your mouth and begin to suck on it like she had before, while Kat licks you enthusiastically.'
 		'You don''t even notice the man approaching you until he''s very close to you, awkwardly rubbing his cock. You''re fairly sure you''ve never seen him before, but he''s obviously very aroused from the show you and Kat put up!'
 
+		gs 'arousal', 'cuni', 5, 'lesbian'
+		gs 'stat'
+		
 		act 'Break it off':gt 'Nudelake'
 
 		act 'Beckon him to join you':
 			cla
 			*clr
 			kat += 5
-			stat['mast'] += 1
-			orgasm += 1
 			'<center><img src="images/locations/city/residential/lake/sex/kwlake1/kwlake4.jpg"></center>'
 			'You give the man a ''come hither'' sign with your hand while Kat keeps licking you, and you can see the indecisiveness in his eyes. Should he approach you, or Kat?'
 			'Kat answers the question for him, eagerly grabbing his cock and taking it into her mouth. Now that she''s ignoring you, you quickly decide to do the next best thing - and thrust the stone cock deep inside your welcoming snatch.'
 
+			gs 'arousal', 'cuni', 5, 'lesbian'
+			gs 'arousal', 'masturbate', 5
+			minut -= 5
+			gs 'stat'
+		
 			act 'Get closer to Kat':
 				cla
 				*clr
@@ -48,10 +57,12 @@ act 'Fondle her':
 				'After you masturbate yourself to an orgasm, you can''t help but get very aroused again by watching Kat get pounded by this total stranger. You pull the stone cock out of your wet cunt and order Kat: "Lick my juices off it!"'
 				'Kat doesn''t need any more encouragement and closes her lips around the rock, moaning: "Mmmm... delicious!"'
 
+				$orgasm_or = 'yes'
+				gs 'stat'
+				
 				act 'Continue':
 					cla
 					*clr
-					stat['anal'] += 1
 					'<center><img src="images/locations/city/residential/lake/sex/kwlake1/kwlake6.jpg"></center>'
 					'Then the guy groans for Kat to get on all fours, which she does without a doubt. Your eyes bulge when you see her take his cock in her ass without a complaint.'
 					'"<<$pcs_nickname>>!" Katja says intently.'
@@ -59,12 +70,18 @@ act 'Fondle her':
 					'"Get your ass over here and give me that piece of rock already!" Kat orders you, between moans. "I want you to feel what I feel..."'
 					'You hand her the rock without a second thought, and wince slightly when she spits onto your anus and begins to rub the stone cock against your anus forcefully.'
 
+					gs 'arousal', 'anal_dildo', 5, 'lesbian'
+					gs 'stat'
+					
 					act 'Continue':
 						cla
 						*clr
 						'<center><img src="images/locations/city/residential/lake/sex/kwlake1/kwlake7.jpg"></center>'
 						'Once Kat is fully satisfied, the guy pulls his cock out of her ass and cums in her mouth. Kat swallows it automatically, and smiles apologetically: "Sorry! Next time I''ll try to leave you some..."'
 
+						gs 'arousal', 'end'
+						gs 'stat'
+						
 						act 'Continue':gt 'Nudelake'
 					end
 				end

locations/Kwlake2

@@ -17,14 +17,17 @@ act '"Alright!"':
 	'The man watches the two of you intently, and you notice a bulge forming in his groin.'
 	'"Look at him!" Kat moans into your mouth between kisses. "Don''t you want him to fuck you, <<$pcs_nickname>>? Because I know I do..."'
 
+	gs 'arousal', 'kiss', 5, 'lesbian'
+	gs 'arousal', 'vaginal_finger', 5, 'lesbian'
+	minut -= 5
+	gs 'stat'
+	
 	act 'That''s enough! Leave before this gets out of hand':gt 'Nudelake'
 
 	act 'Invite the man to join you':
 		cla
 		*clr
 		kat += 5
-		stat['cuni'] += 1
-		stat['bj'] += 1
 		'<center><img src="images/locations/city/residential/lake/sex/kwlake2/kwlake3.jpg"></center>'
 		'When you nod, Kat smiles at you and whispers: "Ask him over, come on!"'
 		'She begins to lick your pussy in plain view of the man, while she keeps encouraging you to invite him.'
@@ -32,6 +35,11 @@ act '"Alright!"':
 		'He eagerly thrusts his hips towards your face as he kneels next to you, and you close your lips around his erect penis without a second thought.'
 		'Kat coos with delight, and rewards you by licking your snatch even more intently.'
 
+		gs 'arousal', 'cuni', 5, 'lesbian'
+		gs 'arousal', 'bj', 5
+		minut -= 5
+		gs 'stat'
+	
 		act 'Continue':
 			cla
 			*clr
@@ -43,18 +51,27 @@ act '"Alright!"':
 			'You lick her obediently, and it doesn''t take long for her to moan loudly and grind her hips against your mouth, barely giving you a chance to breathe. She''s orgasming!'
 			'You keep licking her cunt and lap up her juices, while this stranger pounds your pussy enthusiastically.'
 
+			gs 'arousal', 'cuni_give', 5, 'lesbian'
+			gs 'arousal', 'vaginal', 5, 'sub', 'rough'
+			minut -= 5
+			gs 'stat'
+		
 			act 'Continue':
 				cla
 				*clr
 				spafinloc = 12
 				gs 'cum_manage'
-				orgasm += 1
 				'<center><img src="images/locations/city/residential/lake/sex/kwlake2/kwlake5.jpg"></center>'
 				'When the man is close to his orgasm, he pulls his cock out of you and stands up. As he guides his dick to your mouth, Kat immediately takes his place between your legs and caresses your clit with her tongue.'
 				'You can barely hold yourself from smothering Kat as you ride her face, getting very close to your own orgasm as well. At that moment, the man demands your full attention again shoves his cock back into your mouth. Mere seconds later, he fills your mouth with his sperm while Kat licks you to an amazing orgasm.'
 				'After you recover, you kiss Kat on the mouth, sharing the stranger''s sperm with her.'
 				'She gives you another light kiss on the cheek when you''re finished dressing again, and whispers: "It''s fun, having a friend who enjoys sex as much as I do..."'
 
+				$orgasm_or = 'yes'
+				gs 'arousal', 'cuni', 5, 'lesbian'
+				gs 'arousal', 'end'
+				gs 'stat'
+		
 				act 'Finish your walk':gt 'Nudelake'
 			end
 		end

locations/LakeBoyZ

@@ -49,9 +49,7 @@ $gL_boy_z = {
 							'You passionately kiss <<$boydesc>>, as he continues to caress your body, paying particular interest to your breasts.'
 							'<<$boydesc>> invites you to his house.'
 							gs 'arousal', 'foreplay', 5
-							gs 'arousal', 'kiss', 5
 							gs 'arousal', 'end'
-							minut -= 5
 							gs 'stat'
 							act 'Call it a day and leave':gt'glake'
 							act'Go with the guy':

locations/MWestbed

@@ -11,27 +11,36 @@ if $ARGS[0] = 'master':
 	act 'Go to the west wing landing':gt 'MLanding', 'west'
 	if rand (0,100) < 3:
 		cls
-		pcs_horny += 10
-		minut += 5
 		gs 'stat'
 		'<center><img src="images/locations/city/suburb/bdsm_club/sex/bedrand3.gif"></center>'
 		'You see a submissive woman in lingerie and on a leash, she appears to have earned herself a treat from a dominant man in a suit.'
+		
+		gs 'arousal', 'voyeur', 5
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		act 'Return':gt 'MWestbed', 'master'
 	elseif rand (0,100) < 3:
 		cls
-		pcs_horny += 10
-		minut += 5
 		gs 'stat'
 		'<center><img src="images/locations/city/suburb/bdsm_club/sex/bedrand7.gif"></center>'
 		'A dominant woman is being pleasured by her sub.'
+		
+		gs 'arousal', 'voyeur', 5
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		act 'Return':gt 'MWestbed', 'master'
 	elseif rand (0,100) < 3:
 		cls
-		pcs_horny += 5
-		minut += 5
 		gs 'stat'
 		'<center><img src="images/locations/city/suburb/bdsm_club/sex/maid_pun4.gif"></center>'
 		'Ooo, a spanking, someone''s been a bad girl.'
+		
+		gs 'arousal', 'voyeur', 5
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		act 'Return':gt 'MWestbed', 'master'
 	elseif rand (0,100) < 3 and $BDSMrole = 's':
 		cls
@@ -58,20 +67,26 @@ if $ARGS[0] = 'guest':
 	act 'Go to the west wing landing':gt 'MLanding', 'west'
 	if rand (0,100) < 3:
 		cls
-		pcs_horny += 10
-		minut += 5
 		gs 'stat'
 		'<center><img src="images/locations/city/suburb/bdsm_club/sex/maid_bound_d1.jpg"></center>'
 		'A submissive woman is being tied to a bed by a dominant man.'
+		
+		gs 'arousal', 'voyeur', 5
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		act 'Return':gt 'MWestbed', 'guest'
 	elseif rand (0,100) < 3:
 		cls
-		pcs_horny += 10
-		minut += 5
 		gs 'stat'
 	    '<center><img src="images/locations/city/suburb/bdsm_club/sex/crossdressfuck.gif"></center>'
 	    'You peek in the room when you hear grunts coming from it.'
 		'Inside you a man wearing womens clothes being fucked by his mistress wearing a strap-on.'
+		
+		gs 'arousal', 'voyeur', 5
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		act 'Return':gt 'MWestbed', 'guest'
 	end
 end

locations/Military

@@ -167,10 +167,7 @@ if $ARGS[0] = 'rape':
 	cla
 	*clr
 	rape += 1
-	stat['bj'] += 1
-	stat['vaginal'] += 1
 	guy += 1
-	stat['anal'] += 1
 	'You suddenly feel a blow on the back of your head, and lose conciousness.'
 	'...'
 	'<center><img src="images/locations/city/shared/military/sex/rape1.jpg"></center>'
@@ -185,6 +182,9 @@ if $ARGS[0] = 'rape':
 		'"Here''s something to shut your mouth", came the voice of a rapist.'
 		'You tried to spit it out, but its getting worse as he thrust it down your throat, and began to throatfuck you.'
 
+		gs 'arousal', 'bj', 5, 'sub', 'rough'
+		gs 'stat'
+		
 		act 'Further':
 			cla
 			*clr
@@ -193,12 +193,18 @@ if $ARGS[0] = 'rape':
 			'<center><img src="images/locations/city/shared/military/sex/rape3.jpg"></center>'
 			'When you are starting to lose consciousness choking on his cock, he takes it out of you mouth, pulls the baf from your head and throws you on a crate. He steps to you, forcing his dick into your vagina quite forcefully. Although you can see now, you still tied up to do effectively anything.'
 
+			gs 'arousal', 'vaginal', 10, 'sub', 'rough'
+			gs 'stat'
+		
 			act 'Further':
 				cla
 				*clr
 				'<center><img src="images/locations/city/shared/military/sex/rape4.jpg"></center>'
 				'When your pussy bored him, he turned you around and drove his cock into your ass. You cry out in pain, but he does not care and continues to fuck your ass as hard as he could. You cry and beg him to at least use some lubrication, but he just scowls in response. You pass out from the pain and shock.'
 
+				gs 'arousal', 'anal', 10, 'sub', 'rough'
+				gs 'stat'
+		
 				act 'Further':
 					cla
 					*clr
@@ -211,6 +217,9 @@ if $ARGS[0] = 'rape':
 					'<center><img src="images/locations/city/shared/military/sex/rape5.jpg"></center>'
 					'You do not know how much time passed since you fainted, but when you regain your concoiusness he''s pulling out of you. He pulls you to your knees and stuck his dick in your mouth, saying only a word, "Suck". You dutifully start to suck him off with your ass is brutally raped and in pain, wondering whether to bite it off, but before you could give it a second thought your rapist suddenly comes in your mouth. After this you are immediately knocked out again with a blow to your head.'
 
+					gs 'arousal', 'end'
+					gs 'stat'
+					
 					act 'Further':gt 'military', 'start'
 				end
 			end

locations/NormPR

@@ -9,23 +9,29 @@ if $ARGS[0] = '1':
 	clr
 	*clr
 	prosti = 0
-	arousal_minut = 15
 	protect = 1
 	gs'stat'
 
 	if RAND(0,1) = 0:
 		'<center><img src="images/locations/shared/sex/car/sexcar.jpg"></center>'
 		'You obediently lie down on your back in the back seat, and the man pounces you eagerly. Within seconds, his cock is deep inside you.'
+		gs 'arousal', 'vaginal', 15, 'sub'
+		gs 'stat'
 		gs 'orgazm','start'
 	else
 		'<center><img src="images/locations/shared/sex/car/sexcar2.jpg"></center>'
 		'You immediately feel the man''s hands on your ass cheeks when you get on your hands and knees in the back seat. The man confidently guides his cock to your pussy, and slowly thrusts it inside you.'
+		gs 'arousal', 'vaginal', 15, 'sub'
+		gs 'stat'
 		gs 'orgazm','start'
 	end
 
 	'After a few minutes of fucking you, the man groans and you feel his hips spasming against yours. He pulls out of you and takes the filled condom off his slowly shrinking cock.'
 	'The man ties a knot in the condom and tosses it out of the window carelessly, very satisfied with your performance.'
 	
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Get out of his car':gt $locSex, $metkaSex
 end
 
@@ -37,7 +43,6 @@ if $ARGS[0] = '2':
 	clr
 	*clr
 	prosti = 0
-	arousal_minut = 15
 	gs'stat'
 
 	prostRand = RAND(1,100)
@@ -47,6 +52,10 @@ if $ARGS[0] = '2':
 
 		'You lean against the car and expose your bare ass to the man. He''s not wasting any time and immediately gets behind you, eagerly rubbing his cock against your vagina.'
 
+		gs 'arousal', 'flash_ass', 15, 'sub'
+		gs 'arousal', 'vaginal', 15, 'sub'
+		minut -= 15
+		gs 'stat'
 		gs'orgazm','start'
 	elseif prostRand <= 75:
 		picpRand = RAND(10,12)
@@ -54,6 +63,8 @@ if $ARGS[0] = '2':
 
 		'You get down on your hands and knees like he wants, and brace yourself when you feel him pressing his cock against your pussy in a none too gentle fashion.'
 
+		gs 'arousal', 'vaginal', 15, 'sub'
+		gs 'stat'
 		gs'orgazm','start'
 	else
 		pose = 0
@@ -62,11 +73,16 @@ if $ARGS[0] = '2':
 		'He groans in your ear: "Get on the hood, on your back!"'
 		'You quickly do as he says, and let out a soft moan when he rubs his cock against your pussy lips.'
 
+		gs 'arousal', 'vaginal', 15, 'sub'
+		gs 'stat'
 		gs'orgazm','start'
 	end
 
 	'<center><img src="images/locations/shared/sex/car/sexcar<<picpRand>>.jpg"></center>'
 
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Continue':gt $locSex, $metkaSex
 end
 

locations/RynokHoz

@@ -20,7 +20,6 @@ if $ARGS[0] = 'the_beginning':
 
 			if rinhoz = 0:rinhoz = 1 & guy += 1
 
-			stat['vaginal'] += 1
 			pcs_vag += 1
 			spafinloc = 4
 			gs 'cum_manage'
@@ -28,30 +27,38 @@ if $ARGS[0] = 'the_beginning':
 			horand = rand(1, 100)
 			'<center><img src="images/shared/sex/vag/doggy/rinsex.jpg"></center>'
 			'You are relaxed and start hugging your host in response. Once you return his hug, he starts undresses you'
-			
 			'Once he has taken all your clothes off, he lays you down on your stomach. Then spreads your legs a little and your buttocks, until he has a clear view and easy access to your pussy.'
-			
 			'He moves up close, you can feel the tip of his cock rubbing against the lips of your pussy. Once your pussy starts to get wet and lubricate the tip of his dick, he slides his <<dick>>cm <<$dick_girth>> dick into your pussy.'
-			
 			'He is a little slow and gentle at first but quickly starts to pick up speed, pounding you hard and deep. Periodically slapping your ass, first one cheek then the other.'
 
+			gs 'arousal', 'vaginal', 20, 'sub', 'rough'
+			gs 'stat'
+			
 			if horand > pcs_horny:pcs_horny += 10 & 'You are not satisfied'
+			$orgasm_or = 'no'
+			gs 'stat'
 			if horand <= pcs_horny:pcs_horny = 0 & orgasm += 1 & 'You enjoy a relaxed orgasm'
-
+			$orgasm_or = 'yes'
+			gs 'stat'
 			gbrand = rand(1, 100)
 
 			if gbrand < 95 and palevorin = 0:
 				money += 2000
 				!!sperm on ass call needs to be added.
 				'After some time, he pulls out of you and you feel hot wet spurts of cum landing all over your ass and lower back. Once he is done cumming he wipes his dick off on your ass and gets off you.'
-				
 				'As you get dressed he writes you a premium for the amount of 2,000 <b>₽</b> and leaving it on the table as he leaves.'
 
+				gs 'arousal', 'end'
+				gs 'stat'
+				
 				act 'Go home':gt 'street'
 			elseif palevorin >= 1:
 				money += 2000
 				'After some time, he pulls out of you and you feel hot wet spurts of cum landing all over your ass and lower back. Once he is done cumming he wipes his dick off on your ass and gets off you. As you get dressed he writes you a premium for the amount of 2,000 <b>₽</b> and leaving it on the table as he leaves.'
 
+				gs 'arousal', 'end'
+				gs 'stat'
+				
 				act 'Go home':gt 'street'
 			elseif gbrand >= 95 and palevorin = 0:
 				cla
@@ -59,20 +66,22 @@ if $ARGS[0] = 'the_beginning':
 				if palevorin = 0:palevorin = 1
 
 				'While Artur is fucking you, you hear the creaking of the front door, you look up to see two more men enter the room. You know them it''s Abdul and Hassan, owners of the neighboring stalls.'
-				
 				'You freeze in astonishment and shame, caught moaning as your being fucked, laying naked on your stomach as Artur rides you, he apparently doesn''t mind the audience as he keeps fucking you. The men smile and laugh, saying something to each other and then they say something to Artur who barely grunts a reply to them as he keeps fucking you.'
-				
 				'Hasan then says to you. "Hey girl, why don''t you give us a turn when Artur is done and we won''t tell everyone in the market." You glance back at Artur as he is still riding you and he doesn''t show any indication he cares.'
 
+				gs 'arousal', 'vaginal', 20, 'sub', 'rough'
+				gs 'stat'
+			
 				act 'Tell them no':
 					cla
 					money += 2000
 					if rinslut = 0:rinslut = 1
 					'With your face red with shame, you shake your head and say quietly "No." The other two say something to each other and then sit down to watch as Artur fucks you. Unable to do anything about it, you try to ignore them. Though it is hard as they keep talking to each other.'
 					'After some time, he pulls out of you and you feel hot wet spurts of cum landing all over your ass and lower back. Once he is done cumming he wipes his dick off on your ass and gets off you.'
-					
 				    'Once Artur has finished you get up and start to gather up your things, the other two laugh and talk more, staring at your naked body. You get dressed as quickly as you can. Artur writes you a premium for the amount of 2,000 <b>₽</b>, as you take the money Artur says to you quietly. "It is alright I will deal with them." You look at him a moment, nod and then leave.'
 
+					gs 'arousal', 'end'
+					gs 'stat'
 					act 'Go home':gt 'street'
 				end
 
@@ -82,10 +91,8 @@ if $ARGS[0] = 'the_beginning':
 
 					if abdulasex = 0:abdulasex = 1 & guy += 1
 					if hasansex = 0:hasansex = 1 & guy += 1
-
-					stat['vaginal'] += 1
+					
 					pcs_vag += 1
-					stat['bj'] += 1
 					gang += 1
 					spafinloc = 4
 					gs 'cum_manage'
@@ -95,18 +102,18 @@ if $ARGS[0] = 'the_beginning':
 					money += 5000
 					'<center><img src="images/shared/sex/group/rinkrug.jpg"></center>'
 					'You nod your head yes, the other two laugh and start pulling out their dicks as they head over. The stroke themselves as they wait for Artur to finish. It doesn''t take him long, he pulls out of you and you feel hot wet spurts of cum landing all over your ass and lower back. Once he is done cumming he wipes his dick off on your ass and gets off you.'
-					
 					'As soon as Artur gets off you, Adbul moves behind your and pulls your up by your hips till you are on all fours. He wastes no time and plunges his <<dick>>cm <<$dick_girth>> dick into your pussy. You notice he was not blessed by nature almost at once. But that doesn''t seem to bother him in the slightest as he fucks you hard and fast, constantly slapping your ass cheeks. As he comments to the others and laughs.'
-					
 					gs 'boyStat', 92
-					'Mean while Hasan kneeled down in front of you and slaps his <<dick>>cm <<$dick_girth>> dick against you face and keeps slapping it hard against your cheek until you open up your mouth. As soon as your mouth opens he shoves his cock in your mouth, holding your head he fucks your mouth and into your throat. Not seeming to care if you are gagging or not, though he is careful to make sure to let you breath.'
-					
+					'Meanwhile Hasan kneeled down in front of you and slaps his <<dick>>cm <<$dick_girth>> dick against you face and keeps slapping it hard against your cheek until you open up your mouth. As soon as your mouth opens he shoves his cock in your mouth, holding your head he fucks your mouth and into your throat. Not seeming to care if you are gagging or not, though he is careful to make sure to let you breath.'
 					'As the two guys spit-roast you, Artur gets dressed and then takes a seat. He drinks as he watches you getting fucked by the other two.'
-					
 					'Finally Abdul pulls out and spurts his load all over your ass and lower back. His sperm adding to the mess Artur already spewed on you. A few moments latter Hasan groans and shots his load in your mouth. As soon as they have both shot their load, they get up, say something to Artur as they put their dicks away and then they leave with out a further word.'
-					
 					'Once they are gone, Artur says. "So you like cock do you? Well I can use that, it will be very useful to my business. Here this is a bonus." With that he gets up and walks out, leaving you a bonus of 5,000 <b>₽</b>.'
 
+					gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
+					gs 'arousal', 'vaginal', 20, 'sub', 'rough', 'group'
+					gs 'arousal', 'end'
+					gs 'stat'
+					
 					act 'Go home':gt 'street'
 				end
 			end
@@ -117,7 +124,6 @@ if $ARGS[0] = 'the_beginning':
 
 			if rinhoz = 0:rinhoz = 1 & guy += 1
 
-			stat['bj'] += 1
 			spafinloc = 12
 			gs 'boyStat', 73
 			gs 'cum_manage'
@@ -125,26 +131,34 @@ if $ARGS[0] = 'the_beginning':
 			'You kneel down before Artur. He takes out his <<dick>>cm <<$dick_girth>> cock, you take it in your mouth and start sucking him, he lets you guide the action and do all the work, only occasionally thrust himself down your throat making you gag.'
 			horand = rand(1, 100)
 
+			gs 'arousal', 'bj', 10, 'sub', 'rough', 'deepthroat'
+			gs 'stat'
+					
 			if horand > vaf:pcs_horny += 10 & 'You are not satisfied'
+			$orgasm_or = 'no'
+			gs 'stat'
 			if horand <= vaf:pcs_horny = 0 & orgasm += 1 & 'You enjoy an orgasm'
+			$orgasm_or = 'yes'
+			gs 'stat'
 
 			gbrand = rand(1, 100)
 
 			if gbrand < 95 and palevorin = 0:
 				money += 2000
 				'After some time, he pulls his dick mostly out of your mouth. Only leaving in the head and with in moments you feel and taste his sperm as he shoots his load in your mouth, spurt after spurt, filling your mouth up with his semen. Once he is done cumming he pulls his dick out of your mouth and wipes it off on your lips. As you get dressed he writes you a premium for the amount of 2,000 <b>₽</b> and leaving it on the table as he leaves.'
+				gs 'arousal', 'end'
+				gs 'stat'
 				act 'Go home':gt 'street'
 			elseif palevorin >= 1:
 				money += 2000
 				'After some time, he pulls his dick mostly out of your mouth. Only leaving in the head and with in moments you feel and taste his sperm as he shoots his load in your mouth, spurt after spurt, filling your mouth up with his semen. Once he is done cumming he pulls his dick out of your mouth and wipes it off on your lips. As you get dressed he writes you a premium for the amount of 2,000 <b>₽</b> and leaving it on the table as he leaves.'
-
+				gs 'arousal', 'end'
+				gs 'stat'
 				act 'Go home':gt 'street'
 			elseif gbrand >= 95 and palevorin = 0:
 				if palevorin = 0:palevorin = 1
                 'After some time, he pulls his dick mostly out of your mouth. Only leaving in the head and with in moments you feel and taste his sperm as he shoots his load in your mouth, spurt after spurt, filling your mouth up with his semen. Once he is done cumming he pulls his dick out of your mouth and wipes it off on your lips.'
-				
 				'As he finishes you notice that Abdul and Hasan are there watching, you don''t remember hearing them enter, you freeze in astonishment and shame, you were caught with a mouth full of sperm, the men smile and laugh, saying something to each other and then they say something to Artur who barely grunts a reply to them.'
-				
 				'Hasan then says to you. "Hey girl, why don''t you give us a turn and we won''t tell everyone in the market." You glance back at Artur as he doesn''t show any indication he cares.'
 
 				act 'Wipe your mouth and leave':
@@ -154,6 +168,8 @@ if $ARGS[0] = 'the_beginning':
 					if rinslut = 0:rinslut = 1
                     'You your face red with shame you wipe the remnants of sperm from your lips and correct your clothes, at this time Artur hands you 2,000 <b>₽</b> as a bonus, as you take the money Artur says to you quietly. "It is alright I will deal with them." You look at him a moment, nod and then leave.'
 
+					gs 'arousal', 'end'
+					gs 'stat'
 					act 'Go home':gt 'street'
 				end
 
@@ -164,7 +180,6 @@ if $ARGS[0] = 'the_beginning':
 					if abdulasex = 0:abdulasex = 1 & guy += 1
 					if hasansex = 0:hasansex = 1 & guy += 1
 
-					stat['bj'] += 2
 					gang += 1
 					gs 'boyStat', 91
 					spafinloc = 12
@@ -175,11 +190,12 @@ if $ARGS[0] = 'the_beginning':
 					money += 5000
 					'<center><img src="images/shared/sex/blowjob/rintri.jpg"></center>'
 					'You nod your head in agreement. The two men immediately take out their members and walking over to you hold them by your mouth, you suck the two dicks. Sometimes one of them in your mouth while you jerk the other one off and sometimes they stick both their dicks in your mouth at the same time.'
-					
 					'Finally Abdul and Hassan cum in your mouth, once they pull their dicks out of your mouth. They wipe them off on your lips and cheeks before putting their dicks away, They same something to Artur, laughing as they leave.'
-					
 					'Once they are gone, Artur says. "So you like cock do you? Well I can use that, it will be very useful to my business. Here this is a bonus." With that he gets up and walks out, leaving you a bonus of 5,000 <b>₽</b>.'
 
+					gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
+					gs 'stat'
+					
 					act 'Go home':gt 'street'
 				end
 			end
@@ -190,9 +206,6 @@ end
 !!Artur and friends.
 if $ARGS[0] = 'group':
 	rinslut = 1
-	stat['vaginal'] += 1
-	stat['anal'] += 1
-	stat['bj'] += 1
 	money += 2000
 
 	if repa < 6:repa = 6
@@ -200,6 +213,11 @@ if $ARGS[0] = 'group':
 	'<center><img src="images/shared/sex/group/tri6.jpg"></center>'
 	'Artur leads you into the warehouse where Abdul and Hasan wait. They all talk to each other for a few minutes in their native language. Then Artur turns to you and says. "take off your clothes and get on your knees." Abdul and Hasan are pulling out their dicks and heading over. You do as you are instructed, as soon as your knees touch the floor you have three dicks thrust in your face. You take turns sucking one and jerking the others.'
 	
+	gs 'arousal', 'bj', 10, 'sub', 'group'
+	gs 'arousal', 'hj', 10, 'sub', 'group'
+	minut -= 10
+	gs 'stat'
+					
 	act 'More':
 		'<center><img src="images/shared/sex/group/triplep.jpg"></center>'
 		'For a bit they are satisfied with this, then Abdul stops and lays down on a couch, pulling you over with him. Pulling your on top of him you straddle him and feel his <<dick>>cm <<$dick_girth>> dick slip inside of your pussy at once. Artur stands to the side and pulls your head towards him.'
@@ -217,12 +235,23 @@ if $ARGS[0] = 'group':
 		'You feel his <<dick>>cm <<$dick_girth>> cock stretching your ass. Once all three of them are in you, they start fucking you with earnest. This goes on for some time, occasionally they stop to switch positions. In the end all of them take a turn fucking you in each of your holes before they are done. Once they get close they all stop and get you back on your knees, pushing your head back and telling you to open your mouth. Then they all jerk off on your face and into your mouth.'
 		horand = rand(1, 100)
 
+		gs 'arousal', 'bj', 20, 'sub', 'rough', 'group'
+		gs 'arousal', 'vaginal', 20, 'sub', 'rough', 'group'
+		gs 'arousal', 'anal', 20, 'sub', 'rough', 'group'
+		gs 'stat'
+					
 		if horand > oral:pcs_horny += 10 & 'You are not satisfied'
+		$orgasm_or = 'no'
+		gs 'stat'
 		if horand <= oral:pcs_horny = 0 & 'You moan in orgasm'
+		$orgasm_or = 'yes'
+		gs 'stat'
 		act 'Finish':
 			'<center><img src="images/shared/sex/cum/facial/facial10.jpg"></center>'
 			'Once they are all done, Artur gives you a bonus of 5,000 <b>₽</b>. Then all the men walk out, leaving you to get cleaned up and dressed.'
 
+			gs 'arousal', 'end'
+			gs 'stat'
 			act 'Go home':gt 'street'
 		end
 	end
@@ -233,42 +262,51 @@ if $ARGS[0] = 'sex':
 
 	palevorin = 2
     gs 'boyStat', 73
-	pcs_horny += 10
 	'<center><img src="images/shared/sex/blowjob/bj15.jpg"></center>'
 	'The Artur takes you into the warehouse, and with you on your knees in front of him pulls out his <<dick>>cm <<$dick_girth>> dick. He smacks you in the face with it and then rubs the tip against your lips, when you open your mouth he shoves his dick in your mouth and roughly fucks your mouth.'
+	
+	gs 'arousal', 'bj', 10, 'sub', 'rough'
+	gs 'stat'
+					
 	!!random chance on which of the three trigger.
 	act 'Further':
 		cls
 		rand_act = rand(0,2)
 
 		if rand_act = 0:
-			minut += 10
-			pcs_horny += 20
 			spafinloc = 12
 			gs 'cum_manage'
-			stat['bj'] += 1
 			pcs_throat += 1
 			gs 'stat'
 			'<center><img src="images/shared/sex/cum/rinslutbj.jpg"></center>'
 			'The Armenian grabs you by the hair and fucks your mouth roughly, jamming his dick down your throat often and making you gag. He pulls out and shoots his load on your face and in your mouth, then he shoves his dick back in your mouth and he makes you suck his dick clean.'
-			
 			'After Artur has finished, he tucks his dick in his pants and throws you five hundred-ruble notes.'
+			
+			gs 'arousal', 'bj', 10, 'sub', 'rough'
+			gs 'arousal', 'end'
+			gs 'stat'
+	
 			act 'Go home':gt 'street'
 		elseif rand_act = 1:
-			pcs_horny += 20
 			gs 'stat'
 			'<center><img src="images/shared/sex/vag/miss/vagmis1.jpg"></center>'
 			'He pulls his dick out of your mouth and lays you down on a couch on your back. He spreads your legs, exposing your pussy. He lines up his dick, rubbing the tip a bit against you pussy lips and then shoves his dick in and starts to fuck you hard and fast. He pounds into you hard and fast, purely doing this for his own pleasure.'
+			
+			gs 'arousal', 'vaginal', 10, 'sub', 'rough'
+			gs 'stat'
+			
 			act 'Finish':
 				cls
-				minut += 10
 				gs 'cum_manage'
-				stat['vaginal'] += 1
 				gs 'stat'
 				'<center><img src="images/shared/sex/cum/stomach/bellycum.jpg"></center>'
 				'He roughly fucks you for some time, he begins panting and you can tell he is getting close to finishing. He suddenly pulls his dick out of your pussy and shoots his load all over your stomach.'
-				
 				'After the Artur has finished, he tucks his dick in his pants and throws you five hundred-ruble notes.'
+				
+				gs 'arousal', 'vaginal', 10, 'sub', 'rough'
+				gs 'arousal', 'end'
+				gs 'stat'
+			
 				act 'Go home':gt 'street'
 			end
 		else
@@ -276,19 +314,24 @@ if $ARGS[0] = 'sex':
 			gs 'stat'
 			'<center><img src="images/shared/sex/anal/doggy/anal28.jpg"></center>'
 			'He pulls his dick out of your mouth and bends you over, pulling your hips up, till you are on all fours. He kneels down behind you and rubs the tip of his dick against your pussy lips, getting a bit of your natural lube on the head of his dick. Then he moves the tip of his dick up and rubs it against you asshole. He pushes his dick in, with only your slavia and a bit of your pussy juices on the tip for lucubration, you squeal a bit in pain.'
-			
 			'He works his way slowly deeper into your ass, holding onto your hips tightly so you can''t pull away. He works his way down till he is balls deep and then starts to fuck you hard and fast. He pounds into you hard and fast, purely doing this for his own pleasure.'
+			
+			gs 'arousal', 'anal', 10, 'sub', 'rough'
+			gs 'stat'
+			
 			act 'Finish':
 				cls
-				minut += 10
 				spafinloc = 1
 				gs 'cum_manage'
-				stat['anal'] += 1
 				gs 'stat'
 				'<center><img src="images/shared/sex/cum/analcreampie/analcum.jpg"></center>'
 				'He roughly fucks you for some time, he begins panting and you can tell he is getting close to finishing. He suddenly shoots his load deep in your ass, you can feel the hot spurts of cum filling up your ass.'
-				
 				'After the Artur has finished, he tucks his dick in his pants and throws you five hundred-ruble notes.'
+				
+				gs 'arousal', 'anal', 10, 'sub', 'rough'
+				gs 'arousal', 'end'
+				gs 'stat'
+			
 				act 'Go home':gt 'street'
 			end
 		end

locations/Vnlake1

@@ -7,11 +7,15 @@ act 'Drive her off':gt 'Nudelake'
 act 'Kiss':
 	cla
 	*clr
-	lesbian += 1
 	girl += 1
 	'<center><img src="images/locations/city/residential/lake/sex/vnlake1/vnlake2.jpg"></center>'
 	'You turn to her and kiss her lips, she begins to fondle your breasts with her tongue, and her hand massages your pussy.'
 
+	gs 'arousal', 'give_kiss', 5, 'lesbian'
+	gs 'arousal', 'foreplay', 5, 'lesbian'
+	minut -= 5
+	gs 'stat'
+	
 	act 'Proceed':gt 'Vnlake1', 'variant'
 end
 
@@ -38,6 +42,9 @@ if $ARGS[0] = 'ukuni':
 	'<center><img src="images/locations/city/residential/lake/sex/vnlake1/vnlake4.jpg"></center>'
 	'You kiss her breasts, eventually moving down lower and lower until your mouth reaches her pussy. You begin to caress her with your tongue, opening the route for your tongue to touch her clitoris, she pushes her lips apart with her fingers to give you full access and you lap away at her clitoris.'
 
+	gs 'arousal', 'cuni_give', 10, 'lesbian'
+	gs 'stat'
+	
 	act 'More':gt 'Vnlake1', 'variant'
 	act 'Leave':gt 'Nudelake'
 end
@@ -45,10 +52,12 @@ end
 if $ARGS[0] = 'kuni':
 	cla
 	*clr
-	stat['cuni'] += 1
 	'<center><img src="images/locations/city/residential/lake/sex/vnlake1/vnlake5.jpg"></center>'
 	'The Girl runs her tongue over your thighs, crotch and delicately kisses your vagina, her tongue slides over your slit then caressing your clitoris it penetrates your vagina.'
 
+	gs 'arousal', 'cuni', 10, 'lesbian'
+	gs 'stat'
+	
 	act 'More':gt 'Vnlake1', 'variant'
 	act 'Leave':gt 'Nudelake'
 end
@@ -59,6 +68,9 @@ if $ARGS[0] = 'anuli':
 	'<center><img src="images/locations/city/residential/lake/sex/vnlake1/vnlake6.jpg"></center>'
 	'She kisses your buttocks affectionately, eventually moving to the center. Reaching her goal, she spends your anus with her tongue, then shoves it inside, pulls back to again lick the anus, then repeats several times.'
 
+	gs 'arousal', 'cuni', 10, 'lesbian'
+	gs 'stat'
+	
 	act 'More':gt 'Vnlake1', 'variant'
 	act 'Leave':gt 'Nudelake'
 end
@@ -69,6 +81,9 @@ if $ARGS[0] = 'bvag':
 	'<center><img src="images/locations/city/residential/lake/sex/vnlake1/vnlake7.jpg"></center>'
 	'You take the bottle neck and poke it into her pussy, she kisses you while you are driving with one hand and with the other, fondle her breasts.'
 
+	gs 'arousal', 'vaginal_dildo_give', 10, 'lesbian'
+	gs 'stat'
+	
 	act 'More':gt 'Vnlake1', 'variant'
 	act 'Leave':gt 'Nudelake'
 end
@@ -79,6 +94,9 @@ if $ARGS[0] = 'banal':
 	'<center><img src="images/locations/city/residential/lake/sex/vnlake1/vnlake8.jpg"></center>'
 	'You take a bottle, licking the neck, trying to leave as much saliva on it as you can, gently insert it into the girls anus. You start to fuck her ass with the bottle, slowly at first then faster and faster.'
 
+	gs 'arousal', 'anal_dildo_give', 10, 'lesbian'
+	gs 'stat'
+	
 	act 'More':gt 'Vnlake1', 'variant'
 	act 'Leave':gt 'Nudelake'
 end
@@ -86,11 +104,14 @@ end
 if $ARGS[0] = 'ubvag':
 	cla
 	*clr
-	stat['vaginal'] += 1
 	orgasm += 1
 	'<center><img src="images/locations/city/residential/lake/sex/vnlake1/vnlake9.jpg"></center>'
 	'The girl puts the bottle on your pussy, she moves it back and forth while constantly turning it. It feels really good and just keeps getting better, you start to fantasize having sex with a stranger, when your body shudders in orgasm.'
 
+	$orgasm_or = 'yes'
+	gs 'arousal', 'vaginal_dildo', 10, 'lesbian'
+	gs 'stat'
+	
 	act 'Leave':gt 'Nudelake'
 end
 
@@ -100,6 +121,9 @@ if $ARGS[0] = 'ubanal':
 	'<center><img src="images/locations/city/residential/lake/sex/vnlake1/vnlake10.jpg"></center>'
 	'The girl spits on your ass, collects saliva on the bottle neck and inserts it into your anus, you feel the glass slide into your ass, bringing you pleasure.'
 
+	gs 'arousal', 'anal_dildo', 10, 'lesbian'
+	gs 'stat'
+	
 	act 'More':gt 'Vnlake1', 'variant'
 	act 'Leave':gt 'Nudelake'
 end
@@ -110,6 +134,9 @@ if $ARGS[0] = 'ubsit':
 	'<center><img src="images/locations/city/residential/lake/sex/vnlake1/vnlake11.jpg"></center>'
 	'You put the bottle down and sit on it with your anus, you like the slippery feel of it, she caresses your breasts with her tongue until you get back off the bottle.'
 
+	gs 'arousal', 'anal_dildo', 10, 'lesbian'
+	gs 'stat'
+	
 	act 'More':gt 'Vnlake1', 'variant'
 	act 'Leave':gt 'Nudelake'
 end
@@ -117,10 +144,14 @@ end
 if $ARGS[0] = 'sex':
 	cla
 	*clr
-	orgasm += 1
 	'<center><img src="images/locations/city/residential/lake/sex/vnlake1/vnlake12.jpg"></center>'
 	'You sit across from each other, your legs interwoven so your pussies touch and started to moving your hips caress each other. You carry on doing this while kissing and touching each other until the wave of pleasure covers you both.'
 
+	$orgasm_or = 'yes'
+	gs 'arousal', 'trib', 10, 'lesbian'
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Leave':gt 'Nudelake'
 end
 

locations/billsvid

@@ -53,6 +53,9 @@ if $ARGS[0] = '1':
 	'<center><img src="images/locations/city/citycenter/mall/pool/sex/1.jpg"></center>'
 	'When you once again leaned over the table to play a shot, <<$telsob>> leans over and slips her hands on your hips, then upwards to cup your breasts.'
 
+	gs 'arousal', 'foreplay', 5, 'lesbian'
+	gs 'stat'
+	
 	act 'Not now <<$telsob>>':gt 'billsvid', '3'
 
 	act 'Kiss her':
@@ -62,6 +65,9 @@ if $ARGS[0] = '1':
 		'<center><img src="images/locations/city/citycenter/mall/pool/sex/2.jpg"></center>'
 		'You turn around and kiss her, in response <<$telsob>> quickly takes off her clothes, helps you strip and throws you against the table, you jump on it, and continue to kiss.'
 
+		gs 'arousal', 'kiss_give', 5, 'lesbian'
+		gs 'stat'
+	
 		act 'Lick her':gt 'billsvid', '10'
 		act 'Get licked':gt 'billsvid', '11'
 	end
@@ -74,6 +80,9 @@ if $ARGS[0] = '10':
 	'<center><img src="images/locations/city/citycenter/mall/pool/sex/4.jpg"></center>'
 	'She leans over the table and squatting yourself behind her, you press your lips to her pussy. You kiss her and caress with your tongue until she came.'
 
+	gs 'arousal', 'cuni_give', 5, 'lesbian'
+	gs 'stat'
+		
 	act 'Get licked':gt 'billsvid', '11'
 
 	if bilsvidkiy = 0:act 'Play with a cue':gt 'billsvid', '12'
@@ -87,6 +96,9 @@ if $ARGS[0] = '11':
 	'<center><img src="images/locations/city/citycenter/mall/pool/sex/3.jpg"></center>'
 	'You stand in front of the table, legs spread, and <<$telsob>> dropping to her knees in front of you begins to kiss your pussy, but her tongue does not bring you to the desired state.'
 
+	gs 'arousal', 'cuni', 5, 'lesbian'
+	gs 'stat'
+	
 	act 'Lick her':gt 'billsvid', '10'
 
 	if bilsvidkiy = 0:act 'Play with a cue':gt 'billsvid', '12'
@@ -101,6 +113,9 @@ if $ARGS[0] = '12':
 	'<center><img src="images/locations/city/citycenter/mall/pool/sex/6.jpg"></center>'
 	'<<$telsob>> climbs on the table and spreads her legs wide. Picking up the cue you deside to try and pot the pink in the middle pocket. <<$telsob>> diligently responds your movements and rhythm. A few minutes later collapsing on the table in a shuddering orgasm.'
 
+	gs 'arousal', 'vaginal_dildo_give', 5, 'lesbian'
+	gs 'stat'
+	
 	if bilsvidukiy = 0:act 'Ask her to play with a cue':gt 'billsvid', '13'
 
 	act 'Finish':gt 'billsvid', '3'
@@ -109,13 +124,15 @@ end
 if $ARGS[0] = '13':
 	cla
 	*clr
-	orgasm += 1
 	pcs_vag += 1
 
 	bilsvidukiy = 1
 	'<center><img src="images/locations/city/citycenter/mall/pool/sex/5.jpg"></center>'
 	'You sit on the edge of the table, throwing one leg on the table. "How''s my cueing action?" <<$telsob>> jokes as she dramatically uses her tongue to moisten her cue, before quickly inserting it into you pussy. You squeal in surprise. She diligently fucks you with the cue, turning it in different directions, you''re massaging your clitoris with a finger. After a few minutes pleasant sensations spread through your body and you float into a world of orgasm.'
 
+	$orgasm_or = 'yes'
+	gs 'arousal', 'vaginal_dildo', 5, 'lesbian'
+	gs 'stat'
 	if bilsvidkiy = 0:act 'Play with a cue':gt 'billsvid', '12'
 
 	act 'Finish':gt 'billsvid', '3'
@@ -127,46 +144,66 @@ if $ARGS[0] = '2':
 	'<center><img src="images/locations/city/citycenter/mall/pool/sex/10.jpg"></center>'
 	'During the game <<$telsob>> is constantly trying to put her arms around you, she wraps her hand around your hips, then casually touchs your chest.'
 
+	gs 'arousal', 'foreplay', 5, 'lesbian'
+	gs 'stat'
+	
 	act 'Continue to play':gt 'billsvid', '3'
 
 	act 'Kiss her':
 		cla
 		*clr
-		lesbian += 1
 		'<center><img src="images/locations/city/citycenter/mall/pool/sex/11.jpg"></center>'
 		'When <<$telsob>> once again put her hand on your stomach, you move closer to her and kiss. Her hand immediately slipped under your clothes and massages your breast.'
 
+		gs 'arousal', 'kiss_give', 5, 'lesbian'
+		gs 'stat'
+	
 		act 'Proceed':
 			cla
 			*clr
 			'<center><img src="images/locations/city/citycenter/mall/pool/sex/12.jpg"></center>'
 			'<<$telsob>> knelt down and taking off your clothes starts to kiss you down toward your crotch, until her tongue is under your pussy.'
 
+			gs 'arousal', 'foreplay', 5, 'lesbian'
+			gs 'stat'
+	
 			act 'Lick her':
 				cla
 				*clr
 				'<center><img src="images/locations/city/citycenter/mall/pool/sex/13.jpg"></center>'
 				'Lifting her knee onto the table you kneel below her, pull her panties aside and begin to kiss her pussy, caress it with your tongue and suck it between your lips.'
 
+				gs 'arousal', 'cuni_give', 5, 'lesbian'
+				gs 'stat'
+	
 				act 'Proceed':
 					cla
 					*clr
 					'<center><img src="images/locations/city/citycenter/mall/pool/sex/14.jpg"></center>'
 					'turning to face you, you help her onto the table and spreading her legs continue to caress her pussy with your tongue until she cums.'
 
+					gs 'arousal', 'cuni_give', 5, 'lesbian'
+					gs 'stat'
+	
 					act 'Your turn':
 						cla
 						*clr
 						'<center><img src="images/locations/city/citycenter/mall/pool/sex/15.jpg"></center>'
 						'When <<$telsob>> has finished, you climb on the table and position your pussy right in front of her face, <<$telsob>> immediately begins to caress you with her lips, and parting you with her fingers she tries to thrust her tongue even deeper.'
 
+						gs 'arousal', 'cuni', 5, 'lesbian'
+						gs 'stat'
+	
 						act 'Lick her':
 							cla
 							*clr
-							orgasm += 1
 							'<center><img src="images/locations/city/citycenter/mall/pool/sex/16.jpg"></center>'
 							'You turn around so that your face is above her pussy, and start licking her. In a few minutes you feel as her body shake and <<$telsob>> groans strongly pressing against your pussy, and then you are shrouded in pleasant waves of orgasm.'
 
+							$orgasm_or = 'yes'
+							gs 'arousal', 'cuni', 5, 'lesbian'
+							gs 'stat'
+							
 							act 'Finish':gt 'billsvid', '3'
 						end
 					end
@@ -178,11 +215,12 @@ end
 
 if $ARGS[0] = '3':
 	cla
-	pcs_horny = 0
 	minut += 60
 	gs 'stat'
 	'When you have finished playing, <<$telsob>> says that she needs to run and leaves.'
 
+	gs 'arousal', 'end'
+	gs 'stat'
 	act 'Leave':gt 'torgcentr'
 end
 

locations/burger

@@ -174,9 +174,7 @@ if $ARGS[0] = 'dishes':
 
 					act 'Give him a blowjob':
 						cls
-						minut += 15
 						bistroQW = 50
-						stat['bj'] += 1
 						guy += 1
 						gs 'boystat', 74
 						sexpartkno = 1
@@ -193,6 +191,9 @@ if $ARGS[0] = 'dishes':
 						'You feel a little woozy as you walk out of the dressing room and look for Anatoly.'
 						'He smiles and gestures to the seller who takes the dress.'
 
+						gs 'arousal', 'bj', 15, 'sub'
+						gs 'stat'
+						
 						act 'Exit from the boutique':
 							cls
 							minut += 15
@@ -200,6 +201,9 @@ if $ARGS[0] = 'dishes':
 							'<center><img src="images/locations/city/shared/car.jpg"></center>'
 							'"Whew, <<$pcs_nickname>>. I''m a little tired. Let''s go to a restaurant some other time." Anatoly tells you, taking you by the hand as he leads you to his car. You quickly get to your home and Anatoly says goodbye to you.'
 
+							gs 'arousal', 'end'
+							gs 'stat'
+							
 							act 'Out of the car':gt 'street'
 						end
 					end
@@ -214,7 +218,6 @@ if $ARGS[0] = 'dishes':
 							cls
 							minut += 1
 							bistroQW = 50
-							stat['bj'] += 1
 							guy += 1
 							dress[24] = 1
 							dressH[24] = 160
@@ -232,11 +235,13 @@ if $ARGS[0] = 'dishes':
 
 								act 'Keep licking his dick':
 									cls
-									minut += 2
 									gs 'stat'
 									'<center><img src="images/locations/city/citycenter/diner/sex/pr2.jpg"></center>'
 									'You continue to lick his dick and Anatoly Borisovich puts his hand on the back of your head pushing your head into is groin. You feel his cock fill up your mouth almost completely as your wet lips part to take in the hot and firm flesh of his member. "That''s it baby, suck it now." says Anatoly Borisovich as he starts moving his hips, slowly fucking your mouth. You wrap your lips tightly around his member, trying not to choke as his thrusts become more and more forceful.'
 
+									gs 'arousal', 'bj', 2, 'sub', 'deepthroat'
+									gs 'stat'
+						
 									act 'Suck his dick':
 										cls
 										minut += 2
@@ -255,6 +260,9 @@ if $ARGS[0] = 'dishes':
 										'<center><img src="images/locations/city/citycenter/diner/sex/pr3.jpg"></center>'
 										'You actively suck his dick and feel your jaw getting tired. Suddenly a hot jet shoots into your mouth. Surprised you release his member from your mouth an a jet of sperm hits you on the nose. Semen spills out of your mouth and hangs on your chin. Anatoly Borisovich takes your head and sticks his member back in your mouth to clean of the sperm.'
 
+										gs 'arousal', 'bj', 2, 'sub'
+										gs 'stat'
+						
 										act 'Sit on the floor':
 											cls
 											minut += 2
@@ -278,6 +286,9 @@ if $ARGS[0] = 'dishes':
 													'<center><img src="images/locations/city/shared/car.jpg"></center>'
 													'You walk out of the boutique with Anatoly Borisovich. "Whew, <<$pcs_nickname>>. I''m a little tired. Let''s go to a restaurant some other time." Anatoly tells you, taking you by the hand as he leads you to his car. You quickly get to your home and Anatoly says goodbye to you.'
 
+													gs 'arousal', 'end'
+													gs 'stat'
+													
 													act 'Out of the car':gt 'street'
 												end
 											end
@@ -395,14 +406,15 @@ if $ARGS[0] = 'dishes':
 
 				act 'Use your mouth':
 					cls
-					minut += 3
-					stat['bj'] += 1
 					guy += 1
 					gs 'stat'
 					'<center><img src="images/locations/city/citycenter/diner/sex/bj3.jpg"></center>'
 					'Still standing in front of Ivan you bend over even more gently lick his member with your tongue, again and again. Finally your lips wrap around his cock and begin to suck it. His curly pubes tickle your nose with every movement, as you put his whole member in your mouth.'
 					'Ivan finally lets out a loud moan and without warning begins to cum in your mouth. A Jet of hot liquid hits you in the mouth. Your eyes widen, but you continue to suck his seed-spewing dick until finally you have a mouth full of semen. As your mouth can not contain it anymore it emerges on your lips and runs down Ivan''s member.'
 
+					gs 'arousal', 'bj', 3, 'sub'
+					gs 'stat'
+						
 					act 'Swallow cum and clean his cock':
 						cls
 						minut += 2
@@ -417,6 +429,9 @@ if $ARGS[0] = 'dishes':
 						'You squat in front of the manager and swallow his sperm before licking the remnants of his semen off of the still standing, but quickly lowering penis.'
 						'Finally Ivan sinks back, completely satisfied and gives you half thousand <b>₽</b> for the work you have done.'
 
+						gs 'arousal', 'end'
+						gs 'stat'
+						
 						act 'Leave':gt 'burger', 'start'
 					end
 				end
@@ -435,14 +450,15 @@ if $ARGS[0] = 'dishes':
 					act 'Use your mouth':
 						cls
 						bistroQW = 55
-						minut += 3
-						stat['bj'] += 1
 						guy += 1
 						gs 'stat'
 						'<center><img src="images/locations/city/citycenter/diner/sex/bj3.jpg"></center>'
 						'Still standing in front of Ivan you bend over even more gently lick his member with your tongue, again and again. Finally your lips wrap around his cock and begin to suck it. His curly pubes tickle your nose with every movement, as you put his whole member in your mouth.'
 						'Ivan finally lets out an audible moan and without warning begins to cum in your mouth. A Jet of hot liquid hits you in the mouth. Your eyes widen, but you continue to suck his seed-spewing dick until finally you have a mouth full of semen. You can not contain it anymore and as it emerges on your lips and runs down Ivan''s member.'
 
+						gs 'arousal', 'bj', 3, 'sub', 'deepthroat'
+						gs 'stat'
+						
 						act 'Swallow his cum and clean his cock':
 							cls
 							minut += 2
@@ -457,6 +473,9 @@ if $ARGS[0] = 'dishes':
 							'You squat in front of the manager and swallow his sperm as you began to lick the remnants of his semen off of the still standing, but quickly lowering penis.'
 							'Finally Ivan sinks back, completely satisfied and gives you half thousand <b>₽</b> for the work you have done.'
 
+							gs 'arousal', 'end'
+							gs 'stat'
+							
 							act 'Leave':gt 'burger', 'start'
 						end
 					end
@@ -475,8 +494,6 @@ if $ARGS[0] = 'dishes':
 
 			act 'Crawl under the table':
 				cls
-				minut += 3
-				stat['bj'] += 1
 				swallow += 1
 				gs 'boystat', 76
 				sexpartkno = 1
@@ -488,6 +505,10 @@ if $ARGS[0] = 'dishes':
 				'You crawl under the table and Ivan pulls out his penis in front of your face. You wrap your lips around it and begin to suck trying to get it into your mouth as deeply as possible. It is cramped and uncomfortable under the table, but you cope with it and after a few minutes of skilfully sucking him off you get Ivan to release his semen into your mouth. You quickly start to swallow, trying to avoid getting your clothes dirty.'
 				'Afterwards, Ivan takes out half a thousand rubles and hands them to you.'
 
+				gs 'arousal', 'bj', 3, 'sub'
+				gs 'arousal', 'end'
+				gs 'stat'
+						
 				act 'Leave':gt 'burger', 'start'
 			end
 		end
@@ -502,7 +523,6 @@ if $ARGS[0] = 'dishes':
 
 			act 'Nod obediently':
 				cls
-				stat['bj'] += 1
 				swallow += 1
 				gs 'boystat', 75
 				sexpartkno = 1
@@ -516,6 +536,10 @@ if $ARGS[0] = 'dishes':
 				'<center><img src="images/locations/city/citycenter/diner/sex/bj21.jpg"></center>'
 				'You go into the office and kneel before the deputy manager. He takes out his member and puts it in your face showering you with the smell of his unwashed crotch. You lick the salty cock and, with a sigh of despair, begin to suck him. The pimply jerk lasts just a few of your movements and begins to violently cum in your mouth. You can''t keep all his semen in your mouth and it runs down your lips.'
 
+				gs 'arousal', 'bj', 3, 'sub'
+				gs 'arousal', 'end'
+				gs 'stat'
+				
 				act 'Leave':gt 'burger', 'start'
 			end
 
@@ -529,13 +553,17 @@ if $ARGS[0] = 'dishes':
 				act 'Yes':
 					cls
 					bistroQW = 70
-					stat['bj'] += 1
 					guy += 3
 					gruzsex += 1
 					'<center><img src="images/locations/city/citycenter/diner/sex/tri.jpg"></center>'
 					'You jitter and mumble, "Yes." as you stand in front of the three men. The movers smile and you are quickly grabbed by your hand and taken to the warehouse. They help you undress and put you on your knees. Then they pull out their cocks waiting for you to serve them.'
 					'You begin to diligently suck and stroke the cocks of the three man. Soon they groan and one of them grabs your head with one hand, holding his erect cock with the other.'
 
+					gs 'arousal', 'bj', 3, 'sub', 'group'
+					gs 'arousal', 'hj', 3, 'sub', 'group'
+					minut -= 3
+					gs 'stat'
+				
 					act 'Let them cum on you':
 						cls
 						gs 'boystat', 75
@@ -552,6 +580,9 @@ if $ARGS[0] = 'dishes':
 						'Hot jets of sperm slap you in the face, you close your eyes and just feel the stinky seed on your skin. Soon after the sprays of semen stop and your face is all covered with a thick layer of sticky cum. The guys look satisfied and laugh at you. Afterwards they exit the warehouse leaving you by yourself.'
 						''
 
+						gs 'arousal', 'end'
+						gs 'stat'
+						
 						act 'Leave':gt 'burger', 'start'
 					end
 				end
@@ -565,11 +596,14 @@ if $ARGS[0] = 'dishes':
 
 		act 'Use your mouth':
 			cls
-			stat['bj'] += 1
-			sub += 1
 			'<center><img src="images/locations/city/citycenter/diner/sex/bj31.jpg"></center>'
 			'You kneel in front of the kid sitting in a chair and begin to diligently suck his dick. You caress his cock and testicles with your tongue while simoultaneously stroking his shaft with your hand.'
 
+			gs 'arousal', 'bj', 3, 'sub'
+			gs 'arousal', 'hj', 3, 'sub'
+			minut -= 3
+			gs 'stat'
+					
 			act '...':
 				cls
 				gs 'boystat', 75
@@ -583,6 +617,9 @@ if $ARGS[0] = 'dishes':
 				'A hot jet of sperm slaps you in the mouth, while you continue to stroke his member. You are careful not to spill a drop of the nasty smelling liquid out of your mouth. Finally the stream dries up and you swallow the sperm. He grins and tosses three-hundred rubles on the floor. You pick them up and hide them in your pocket as you rise up from your knees and leave the office.'
 				''
 
+				gs 'arousal', 'end'
+				gs 'stat'
+				
 				act 'Leave':gt 'burger', 'start'
 			end
 		end
@@ -745,9 +782,7 @@ if $ARGS[0] = 'boss':
 
 				act 'Get on your knees':
 					cls
-					minut += 5
 					money += 300
-					stat['bj'] += 1
 					swallow += 1
 					spafinloc = 12
 					gs 'cum_manage'
@@ -757,6 +792,10 @@ if $ARGS[0] = 'boss':
 					'<center><img src="images/characters/city/anatoly/sex/bj2.jpg"></center>'
 					'You kneel down and take the money from the floor. Anatoly Borisovich pulls his already hard member out and holds it in front of your face. You wrap your lips around it and begin to suck as the hard cock fills your mouth. Anatoly Borisovich grits his teeth with pleasure "Suck it slut and don''t forget to swallow every last drop!" You feel his sperm hit the inside of your mouth and begin to quickly swallow his cum to prevent yourself from choking. After you finish, Anatoly Borisovich puts his dick back in his pants. "Now get out."'
 
+					gs 'arousal', 'bj', 5, 'sub'
+					gs 'arousal', 'end'
+					gs 'stat'
+					
 					act 'Leave':gt 'burger', 'start'
 				end
 			end
@@ -775,9 +814,7 @@ if $ARGS[0] = 'boss':
 
 		act 'Get on your knees':
 			cls
-			minut += 5
 			money += 300
-			stat['bj'] += 1
 			swallow += 1
 			spafinloc = 12
 			gs 'cum_manage'
@@ -786,6 +823,10 @@ if $ARGS[0] = 'boss':
 			'<center><img src="images/characters/city/anatoly/sex/bj2.jpg"></center>'
 			'You kneel down and take the money from the floor. Anatoly Borisovich pulls his already hard member out and holds it in front of your face. You wrap your lips around it and begin to suck as the hard cock fills your mouth. Anatoly Borisovich grits his teeth with pleasure "Suck it slut and don''t forget to swallow every last drop!" You feel his sperm hit the inside of your mouth and begin to quickly swallow his cum to prevent yourself from choking. After you finish, Anatoly Borisovich puts his dick back in his pants. "Now get out."'
 
+			gs 'arousal', 'bj', 5, 'sub'
+			gs 'arousal', 'end'
+			gs 'stat'
+					
 			act 'Leave':gt 'burger', 'start'
 		end
 	end

locations/cfnm

@@ -3,13 +3,14 @@ if $ARGS[0] = 'start':
 	cla
 	clr
 	*clr
-	pcs_horny += 5
-	minut += 15
 	money -= 50
 	gs 'stat'
 	'<center><img src="images/locations/city/citycenter/stripclub/cfnm.jpg"></center>'
 	'Stripper bared your breasts and began to lick your nipples.'
 
+	gs 'arousal', 'foreplay', 15
+	gs 'stat'
+	
 	if hour < 23:
 		act 'Enjoy':gt 'cfnm', 'tits'
 		act 'Hand touch his penis':gt 'cfnm', 'hand'
@@ -22,12 +23,13 @@ if $ARGS[0] = 'tits':
 	cla
 	clr
 	*clr
-	pcs_horny += 10
-	minut += 15
 	gs 'stat'
 	'<center><img src="images/locations/city/citycenter/stripclub/cfnm1.jpg"></center>'
 	'Stripper sucking and biting your nipples.'
 
+	gs 'arousal', 'foreplay', 15
+	gs 'stat'
+	
 	if pcs_horny < 90:
 		if hour < 23:
 			act 'Enjoy':gt 'cfnm', 'eat'
@@ -44,13 +46,14 @@ if $ARGS[0] = 'hand':
 	cla
 	clr
 	*clr
-	pcs_horny += 5
-	minut += 15
 	fotoCFNMblowjob += 1
 	gs 'stat'
 	'<center><img src="images/locations/city/citycenter/stripclub/sex/cfnmhand.jpg"></center>'
 	'You took stripper dick hand and began to fondle him in front of other girls.'
 
+	gs 'arousal', 'hj', 15
+	gs 'stat'
+	
 	act 'Take by mouth':gt 'cfnm', 'blow'
 	act 'Stop':gt 'cfnm', 'eat'
 end
@@ -59,12 +62,13 @@ if $ARGS[0] = 'eat':
 	cla
 	clr
 	*clr
-	pcs_horny += 10
-	minut += 15
 	gs 'stat'
 	'<center><img src="images/locations/city/citycenter/stripclub/cfnm2.jpg"></center>'
 	'Stripper you covered with a towel from the surrounding put his penis into your hand.'
 
+	gs 'arousal', 'hj', 15
+	gs 'stat'
+	
 	if pcs_horny < 90:
 		if hour < 23:
 			act 'Take by mouth':gt 'cfnm', 'blow'
@@ -81,9 +85,6 @@ if $ARGS[0] = 'blow':
 	cla
 	clr
 	*clr
-	pcs_horny += 10
-	minut += 15
-	stat['bj'] += 1
 
 	if stripguy = 0: stripguy = 1 & guy += 1
 
@@ -91,6 +92,9 @@ if $ARGS[0] = 'blow':
 	'<center><img src="images/locations/city/citycenter/stripclub/sex/cfnmblow.jpg"></center>'
 	'You took in her mouth dick hidden from prying eyes for a towel stripper. Other girls interested hidden from their eyes and stripper removed the towel.'
 
+	gs 'arousal', 'bj', 15
+	gs 'stat'
+	
 	if pcs_horny < 90:
 		if hour < 23:
 			act 'Suck in front of everyone.':gt 'cfnm', 'blow2'
@@ -107,13 +111,14 @@ if $ARGS[0] = 'blow2':
 	cla
 	clr
 	*clr
-	pcs_horny += 10
-	minut += 15
 	fotoCFNMblowjob += 1
 	gs 'stat'
 	'<center><img src="images/locations/city/citycenter/stripclub/sex/cfnmblow2.jpg"></center>'
 	'Stripper removed the towel, you blushed with shame, but he continued to suck in front of the girls laughing at you.'
 
+	gs 'arousal', 'bj', 15
+	gs 'stat'
+	
 	if pcs_horny < 90:
 		act 'Cum on face.':gt 'cfnm', 'blow4'
 		act 'Cum in mouth.':gt 'cfnm', 'blow3'
@@ -130,20 +135,21 @@ if $ARGS[0] = 'blow3':
 	cla
 	clr
 	*clr
-	pcs_horny += 10
-	minut += 15
 	spafinloc = 12
 gs 'cum_manage'
 	swallow += 1
 	!!spafinloc = 11
 gs 'cum_manage'
 	!!facial += 1
-	SUB += 1
 	fotoCFNMblowjobCum += 1
 	gs 'stat'
 	'<center><img src="images/locations/city/citycenter/stripclub/sex/swallow.jpg"></center>'
 	'Stripper takes dick out of your mouth and fingering it in front of your face, you stand humbly before him on his knees with his mouth open, finally landing viscous jet of sperm in your mouth, you licks and licks tart cum from his lips, you burned with shame when the surrounding spectators whooped you.'
 
+	gs 'arousal', 'bj', 15, 'sub'
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Escape from stripper':gt 'stripclub', 'stolW'
 end
 
@@ -151,20 +157,21 @@ if $ARGS[0] = 'blow4':
 	cla
 	clr
 	*clr
-	pcs_horny += 10
-	minut += 15
 	!!spafinloc = 12
 gs 'cum_manage'
 	!!swallow += 1
 	spafinloc = 11
 gs 'cum_manage'
 	facial += 1
-	SUB += 1
 	fotoCFNMblowjobCum += 1
 	gs 'stat'
 	'<center><img src="images/locations/city/citycenter/stripclub/sex/facial.jpg"></center>'
 	'Stripper takes dick out of your mouth and fingering it in front of your face, you stand humbly kneeling before him, finally viscous jet of sperm land you on the cheek, you blush with shame when the surrounding spectators whooped you.'
 
+	gs 'arousal', 'bj', 15, 'sub'
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Escape from stripper':gt 'stripclub', 'stolW'
 end
 
@@ -181,6 +188,9 @@ gs 'cum_manage'
 	'<center><img src="images/locations/city/citycenter/stripclub/sex/end.jpg"></center>'
 	'You remove a member of the stripper from his face and he ends up on the floor.'
 
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Escape from stripper':gt 'stripclub', 'stolW'
 end
 
@@ -188,26 +198,26 @@ if $ARGS[0] = 'sex':
 	cla
 	clr
 	*clr
-	pcs_horny = 0
-	minut += 15
 	cumprecheck = 1
 	gs 'cum_manage'
-	stat['vaginal'] += 1
 	spafinloc = 4
 	gs 'cum_manage'
-	SUB += 5
 	fotoCFNMsex += 1
 
 	if stripguy = 0:stripguy = 1 & guy + 1
 
 	pcs_mood += 15
 	pcs_willpwr += 15
-	orgasm += 1
 	pcs_vag += 1
 	gs 'stat'
 	'<center><img src="images/locations/city/citycenter/stripclub/sex.jpg"></center>'
 	'Stripper unfolds you and puts cancer, his cock ramming your expiring moisture pussy you instantly falls orgasm. You moan and screaming, the crowd whooped and stripper puts his fingers in your mouth, you chew them in ecstasy and finally stripper takes his dick out of you and you ends up on his ass.'
 
+	$orgasm_or = 'yes'
+	gs 'arousal', 'vaginal', 15, 'sub'
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Escape from stripper':gt 'stripclub', 'stolW'
 end
 

locations/clener

@@ -91,8 +91,6 @@ if $ARGS[0] = 'start':
 
 						act 'Put your hand on his pants':
 							cls
-							minut += 15
-							pcs_horny += 10
 							borodachTimes += 1
 							gs 'stat'
 
@@ -103,6 +101,11 @@ if $ARGS[0] = 'start':
 							if picrand = 2:'<center><img src="images/locations/city/residential/office/sex/guard/hj2.jpg"></center>'
 
 							'You put your hand on his crotch and feel his erection harden. Your thin fingers slide over his hardon and find the zipper. You unzip him and get his cock out of his pants. Sasha relaxes on the couch waiting for you to continue what you started.'
+							
+							gs 'arousal', 'hj', 15
+							gs 'stat'
+							
+							
 							dynamic $ohrhj
 							dynamic $ohrbj
 						end
@@ -110,6 +113,9 @@ if $ARGS[0] = 'start':
 				end
 			end
 
+			gs 'arousal', 'end'
+			gs 'stat'
+							
 			act 'Leave':gt 'clener', 'start'
 		end
 	end

locations/dinnpc

@@ -11,25 +11,22 @@ $din_predlog_dima_bj = {
 
 		act 'Take it into your mouth':
 			cls
-			minut += 5
-			pcs_horny += 10
-			stat['bj'] += 1
 			bja += 1
 			dick = 16
 
 			if npcSex[numnpc] = 0:npcSex[numnpc] = 1 & guy += 1
 
-			sub += 1
 			gs 'stat'
 			'<center><img src="images/shared/sex/blowjob/cocksucker2.jpg"></center>'
 			'You gently kiss the purple head of his member, hoping against hope that maybe you can set the tone and pace for this. But Dimka is already impatient and grabs your hair, ignoring your pained yelp. "Stop wasting time and start sucking." Without a second thought, you take his dick into your mouth. You begin to move your <<$liptalk>> up and down Dimka''s hard cock, taking his rod deep into your mouth. You don''t go slow and move your tongue around his head all the while, trying to please him, but Dimka groans and grabs your head firmly. "Take it deeper!"'
 
+			gs 'arousal', 'bj', 5, 'sub', 'rough'
+			gs 'stat'
+			
 			act 'Deepthroat him':
 				cls
-				minut += 5
 				pcs_throat += 2
 				dick = 16
-				sub += 1
 
 				if pcs_makeup > 1:pcs_makeup = 0
 
@@ -46,6 +43,9 @@ $din_predlog_dima_bj = {
 				'"What do pigs like you like?", Dimka asks, tightening his grip on your hair. "Do you like getting fucked rough like that? You are my pig now - You''ll grunt and scream on my cock and take everything I have for you."' 
 				'Without warning, he pulls his dick out of your mouth and furiously strokes it in front of your face.'
 
+				gs 'arousal', 'bj', 5, 'sub', 'rough', 'deepthroat'
+				gs 'stat'
+			
 				act 'Catch your breath':
 					cls
 					minut += 5
@@ -61,6 +61,9 @@ gs 'cum_manage'
 					'You fall back onto your haunches, panting, your face completely covered in snot, tears and drool, all but oblivious to what Dimka is doing until a jet of sperm erupts from his cock and and hits your face, then another, and another. Your whole face is covered with a layer of mucus, a bizarre mix of four body fluids, and yet all you care about is catching your breath before Dimka has any other ideas. You seem to be in luck, though, because after he wipes his cock on your hair, he tucks it back into his pants.' 
 					'"That wasn''t half bad - with a bit of guidance, you can suck some good dick. We have to do that again sometime." He gives you a strange, cold smile as he turns away. "Well, see you around." You watch as he walks back to the disco, leaving you in your pitiful state.'
 
+					gs 'arousal', 'end'
+					gs 'stat'
+					
 					act 'Leave as well':gt 'gdk'
 				end
 			end
@@ -130,7 +133,6 @@ $din_igor_disco_bj = {
 		if npcSex[numnpc] = 0:npcSex[numnpc] = 1 & guy += 1
 
 		dick = 6
-		stat['bj'] += 1
 		gs 'stat'
 		'<center><img src="images/shared/sex/blowjob/cocksucker5.jpg"></center>'
 		'You sit on your haunches and Igor pulls his dick out of his pants... and it takes all of your resolve to remain straightfaced. His penis is tiny! Igor''s small, thin member sticks out of his pubic hair like a mushroom in a meadow - that image alone is enough to almost make you burst into laughter, especially considering that you''ve seen mushrooms bigger than that. But to your luck, it''s too dark for him to see your face twitch and a few coughs cover your stifled laughter until you are mentally prepared to do what you came here for.' 
@@ -141,6 +143,10 @@ $din_igor_disco_bj = {
 		'You can''t help but feel a little sorry for Igor: Having a tiny dick, no stamina AND only a few droplets of semen? The guy should apply for a certificate of disability. And the poor woman who''s gonna date him someday...'
 		'All in all, this was memorable in all the bad ways.'
 
+		gs 'arousal', 'bj', 5
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		act 'Well, at least it''s over - Leave':gt $loc, $metka
 	end
 }
@@ -152,7 +158,6 @@ $din_igor_dima_disco_bj = {
 		if npcSex[numnpc] = 0:npcSex[numnpc] = 1 & guy += 1
 
 		dick = 6
-		stat['bj'] += 2
 		spafinloc = 12
 gs 'cum_manage'
 		swallow += 1
@@ -162,6 +167,10 @@ gs 'cum_manage'
 		'You take a cock into each hand and move your mouth back and forth between them. Until then, you haven''t been able to tell what a difference it makes to have a large dick to play with but now, being able to compare them side by side, you feel that it''s a lot more satisfying to suck a bigger dick like Dimka''s, and it shows in your enthusiasm.' 
 		'Not that Igor seems to mind, as long as you don''t stop. In fact, even though you''re paying more attention to Dimka, Igor is the first to be ready to come and Dimka roughly uses your mouth to catch up, then both stick the tips of their dicks between your lips and start cuming into your mouth. Igor''s sperm is barely even worth mentioning, little as there was, but of Dimka''s there was so much you almost couldn''t keep it all in your mouth - almost. You swallow the semen down in two gulps, lick your lips and show them your empty mouth. Satisfied, the boys button up their pants and go back inside.'
 
+		gs 'arousal', 'bj', 5
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		act 'Time to leave':gt $loc, $metka
 	end
 }
@@ -196,13 +205,16 @@ $din_igor__disco = {
 					if pcs_dom >= 10:
 						act 'Yes, you do - "You may kiss my feet"':
 							cls
-							pcs_dom += 5
 							IgorLove += 20
 							gs 'stat'
 							'<center><img src="images/characters/pavlovsk/school/boy/igor/leg.jpg"></center>'
 							'You smile at Igor, kneeling at your feet, right here in public, and tell him that he may kiss your foot. Igor scrambles to the task with more enthusiasm than you thought possible: In no time at all, he is kissing your naked foot, caressing it with reverence and licking your toes, his tongue tickling you. He''s hunched over, leaning on one elbow, and at first you don''t understand why but simply enjoy this strange foot massage. It''s not until he groans and you see a tiny jet of sperm hit the pavement that you realize Igor had been masturbating to your feet - literally - right here in front of you while he kissed and caressed your toes.'
 							'As weird of a scene as that was, it feels oddly empowering that he could get off like that within the confines of what you allowed him to do. Even stranger is how he''s thanking you profusely.'
 
+							gs 'arousal', 'kiss', 5, 'dom', 'feet'
+							gs 'arousal', 'end'
+							gs 'stat'
+						
 							act 'That was unexpected - Leave':gt $loc, $metka
 						end
 					end
@@ -214,6 +226,10 @@ $din_igor__disco = {
 						'<center><img src="images/shared/sex/kiss/kiss.jpg"></center>'
 						'You tell Igor to get back on his feet and, meeting his eyes, kiss him. He responds with passion. It seems that your dominance has aroused him a little.'
 
+						gs 'arousal', 'kiss_give', 5, 'dom'
+						gs 'arousal', 'end'
+						gs 'stat'
+		
 						act 'Enough for now - Leave':gt $loc, $metka
 					end
 				end
@@ -226,6 +242,10 @@ $din_igor__disco = {
 				'<center><img src="images/shared/sex/kiss/kiss.jpg"></center>'
 				'You give in and give Igor a gentle kiss. He gives you a smile afterwards but almost seems a little disappointed. By what, you cannot tell.'
 
+				gs 'arousal', 'kiss', 5
+				gs 'arousal', 'end'
+				gs 'stat'
+		
 				act 'Enough of this - Leave':gt $loc, $metka
 			end
 		end

locations/frot

@@ -13,25 +13,27 @@ if $ARGS[0] = 'a':
 	act 'Disregard':
 		cla
 		*clr
-		pcs_horny += 10
-		sub += 1
 		clr
 		gs 'stat'
 		'<center><img src="images/locations/city/shared/metro/sex/grop/frot1.jpg"></center>'
 		'The guy standing behind you, with no regard for other passengers, grabs your butt with his hand and presses his member harder against your ass.'
 
+		gs 'arousal', 'foreplay', 5, 'sub'
+		gs 'stat'
+		
 		act 'Move away':gt 'frot', 'fin'
 
 		act 'Disregard':
 			cla
 			*clr
-			pcs_horny += 10
-			sub += 1
 			clr
 			gs 'stat'
 			'<center><img src="images/locations/city/shared/metro/sex/grop/frot2.jpg"></center>'
 			'You feel like the man behind you has got his penis out and begun to rub it on your ass, clinging on to you and squeezing your buttocks with his hands.'
 
+			gs 'arousal', 'foreplay', 5, 'sub'
+			gs 'stat'
+		
 			act 'Move away':gt 'frot', 'fin'
 
 			act 'Disregard':
@@ -67,25 +69,27 @@ if $ARGS[0] = 'b':
 	act 'Disregard':
 		cla
 		*clr
-		pcs_horny += 10
-		sub += 1
 		clr
 		gs 'stat'
 		'<center><img src="images/locations/city/shared/metro/sex/grop/frot1.jpg"></center>'
 		'The guy standing behind you, with no regard for other passengers, grabs your butt with his hand and presses his member harder against your ass.'
 
+		gs 'arousal', 'foreplay', 5, 'sub'
+		gs 'stat'
+		
 		act 'Move away':gt 'frot', 'fin'
 
 		act 'Disregard':
 			cla
 			*clr
-			pcs_horny += 10
-			sub += 1
 			clr
 			gs 'stat'
 			'<center><img src="images/locations/city/shared/metro/sex/grop/frota1.jpg"></center>'
 			'The man lifts your skirt and starts to caress your bare buttocks with his strong hands.'
 			
+			gs 'arousal', 'foreplay', 5, 'sub'
+			gs 'stat'
+		
 			act 'Move away':gt 'frot', 'fin'
 
 			act 'Disregard':
@@ -98,18 +102,18 @@ if $ARGS[0] = 'b':
 				'<center><img src="images/locations/city/shared/metro/sex/grop/frota2.jpg"></center>'
 				'The man lowers your panties and slides his hand between your naked buttocks to caress your wet pussy.'
 				
+				gs 'arousal', 'vaginal_finger', 5, 'sub'
+				gs 'stat'
+		
 				act 'Move away':gt 'frot', 'fin'
 
 				act 'Disregard':
 					cla
 					*clr
-					pcs_horny += 10
 					clr
 					gs 'stat'
-					pcs_horny += 10
 					frot += 1
 					gs 'cum_call', 'clothesgroin', 'stranger on the metro', 0, 0, spot, svol
-					sub += 3
 					dynamic '<<$clothingworntype>>H[<<clothingwornnumber>>] -= 1'
 					clr
 					gs 'stat'
@@ -117,6 +121,9 @@ if $ARGS[0] = 'b':
 					'The man pull your panties down to your knees, then letting your skirt fall back into place takes your hand in his. He forces his dick into your hand.'
 					'You cup the hot and hard cock and begin stroking it. After a couple of minutes you feel the man cumming on your skirt.'
 
+					gs 'arousal', 'hj', 5, 'sub'
+					gs 'stat' 
+		
 					act 'Get out of the car':gt 'frot', 'fin2'
 				end
 			end
@@ -138,33 +145,33 @@ if $ARGS[0] = 'c':
 	act 'Disregard':
 		cla
 		*clr
-		pcs_horny += 10
-		sub += 1
-		clr
 		gs 'stat'
 		'<center><img src="images/locations/city/shared/metro/sex/grop/frotp1.jpg"></center>'
 		'You enjoy the nice sensation of the stranger caressing your ass under your pants, when suddenly you see he has pulled out a small pair of scissors and is trying to reach your bra strap.'
 
+		gs 'arousal', 'foreplay', 5, 'sub'
+		gs 'stat'
+		
 		act 'Move away':gt 'frot', 'fin'
 
 		act 'Disregard':
 			cla
 			*clr
-			pcs_horny += 10
 			clrbelo -= 1
-			sub += 1
 			clr
 			gs 'stat'
 			'<center><img src="images/locations/city/shared/metro/sex/grop/frotp2.jpg"></center>'
 			'The man cut the straps of your bra and removes it from you. Freed from your bra, he now fondles your breasts.'
 			
+			gs 'arousal', 'foreplay', 5, 'sub'
+			gs 'stat'
+		
 			act 'Move away':gt 'frot', 'fin'
 
 			act 'Enjoy':
 				cla
 				*clr
-				pcs_horny += 10
-				sub += 1
+				gs 'arousal', 'foreplay', 5, 'sub'
 				clr
 				gs 'stat'
 				'<center><img src="images/locations/city/shared/metro/sex/grop/frotp3.jpg"></center>'
@@ -205,28 +212,25 @@ if $ARGS[0] = 'c':
 
 						'<center><img src="images/locations/city/shared/metro/sex/grop/frotp5.jpg"></center>'
 
-						sub += 2
-						pcs_horny += 10
-
 						if stat['vaginal'] = 0:
 							'The idea of letting some stranger take your virginity makes you feel like a dirty slut, but also excites you more than you care to admit.'
 						end
 						'You widen your stance as much as possible in the crowded car and push back against him as he thrusts into your sweaty pussy.'
 						if pcs_horny >= 100:
-							pcs_horny = 0
 							pcs_mood += 15
 							pcs_willpwr += 15
-							orgasm += 1
-							'The wild excitement of sex with a stranger in a public place is too much and you start to cum almost immediately as he enters you.'
+							$orgasm_or = 'custom'
+							$orgasm_txt = 'The wild excitement of sex with a stranger in a public place is too much and you start to cum almost immediately as he enters you.'
 						else
-							'You are overwhelmed by the wild excitement of sex with a stranger in a public place.'
+							$orgasm_or = 'custom'
+							$orgasm_txt = 'You are overwhelmed by the wild excitement of sex with a stranger in a public place.'
 						end
 
 						guy += 1
-						stat['vaginal'] += 1
 						pcs_vag += 1
 						cumprecheck = 1
 						gs 'cum_call', '', 'stranger on the metro', 0, 0, spot, svol
+						gs 'arousal', 'vaginal', 5, 'sub'
 						gs 'stat'
 						
 						if pcs_dom > 0:act 'Move away':gt 'frot', 'fin'
@@ -265,28 +269,29 @@ if $ARGS[0] = 'd':
 	act 'Disregard':
 		cla
 		*clr
-		pcs_horny += 10
-		sub += 1
 		clr
 		gs 'stat'
 		'<center><img src="images/locations/city/shared/metro/sex/grop/frotd.jpg"></center>'
 		'The man pulls your pants off you leaving you with a bare ass in a crowded subway car, he takes your hand and makes you hold his penis in your hand.'
 
+		gs 'arousal', 'foreplay', 5, 'sub'
+		gs 'stat'
+		
 		act 'Move away':gt 'frot', 'fin'
 
 		act 'Stroke his cock':
 			cla
 			*clr
-			pcs_horny += 10
-			stat['hj'] += 1
 			gs 'cum_call', 'butt', 'stranger on the metro', 0, 0, spot, svol
-			sub += 3
 			frot += 1
 			clr
 			gs 'stat'
 			'<center><img src="images/locations/city/shared/metro/sex/grop/frotd1.jpg"></center>'
 			'You caress his dick and rub it on your bare skin, you rub it more vigorously as it stiffens and sperm splashes onto your bare ass. After the man was satisfied, he pulls your pants over your sperm covered ass, pats you on the bum and disappears.'
 
+			gs 'arousal', 'hj', 5, 'sub'
+			gs 'stat'
+		
 			act 'Get out of the car':gt 'frot', 'fin2'
 		end
 	end
@@ -306,19 +311,19 @@ if $ARGS[0] = 'e':
 	act 'Disregard':
 		cla
 		*clr
-		pcs_horny += 60
-		sub += 1
 		clr
 		gs 'stat'
 		'<center><img src="images/locations/city/shared/metro/sex/grop/frote.jpg"></center>'
 		'The man pulls your pants off you leaving you with a bare ass in a crowded subway car, you feel his hand reach between your legs and start to masturbate your pussy from behind.'
 
+		gs 'arousal', 'vaginal_finger', 5, 'sub'
+		gs 'stat'
+		
 		if pcs_horny >= 90:
-			pcs_horny = 0
 			pcs_mood += 15
 			pcs_willpwr += 15
-			orgasm += 1
-			'You can''t take any more and you explode in a powerful orgasm. Your legs give way.'
+			orgasm_or = 'custom'
+			orgasm_txt = 'You can''t take any more and you explode in a powerful orgasm. Your legs give way.'
 
 			act 'Squat':
 				cla
@@ -334,10 +339,7 @@ if $ARGS[0] = 'e':
 				act 'Suck it':
 					cla
 					*clr
-					pcs_horny += 10
-					stat['bj'] += 1
 					guy += 1
-					sub += 2
 					frot += 1
 					clr
 					gs 'stat'
@@ -345,6 +347,9 @@ if $ARGS[0] = 'e':
 					'The man taunts you by bringing his cock to your lips, then moving back. Soon, timing it just right, you catch his purple head between your lips.'
 					'You obediently suck his hard cock. You are sitting on your haunches in the middle of a crowded subway car and sucking a stranger dick.'
 					
+					gs 'arousal', 'bj', 5, 'sub'
+					gs 'stat'
+		
 					if pcs_dom > 0:act 'Move away':gt 'frot', 'fin'
 
 					act 'Continue to suck':
@@ -385,16 +390,16 @@ if $ARGS[0] = 'e':
 			act 'Stroke his cock':
 				cla
 				*clr
-				pcs_horny += 10
-				stat['hj'] += 1
 				gs 'cum_call', 'butt', 'stranger from the metro', 0, 0, spot, svol
-				sub += 3
 				frot += 1
 				clr
 				gs 'stat'
 				'<center><img src="images/locations/city/shared/metro/sex/grop/frotd1.jpg"></center>'
 				'You caress his dick and rub it on your bare skin, you rub it more vigorously as it stiffens and sperm splashes onto your bare ass. After the man was satisfied, he pulls your pants over your sperm covered ass, pats you on the bum and disappears.'
 
+				gs 'arousal', 'hj', 5, 'sub'
+				gs 'stat'
+		
 				act 'Get out of the car':gt 'frot', 'fin2'
 			end
 		end
@@ -415,28 +420,29 @@ if $ARGS[0] = 'd1':
 	act 'Disregard':
 		cla
 		*clr
-		pcs_horny += 10
-		sub += 1
 		clr
 		gs 'stat'
 		'<center><img src="images/locations/city/shared/metro/sex/grop/frotd.jpg"></center>'
 		'The man pulls your pants off you leaving you with a bare ass in a crowded subway car, he takes your hand and makes you take his penis in your hand.'
 
+		gs 'arousal', 'foreplay', 5, 'sub'
+		gs 'stat'
+		
 		act 'Move away':gt 'frot', 'fin'
 
 		act 'Stroke his cock':
 			cla
 			*clr
-			pcs_horny += 10
-			stat['hj'] += 1
 			gs 'cum_call', 'butt', 'stranger on the metro', 0, 0, spot, svol
-			sub += 3
 			frot += 1
 			clr
 			gs 'stat'
 			'<center><img src="images/locations/city/shared/metro/sex/grop/frotd1.jpg"></center>'
 			'You caress his dick and rub it on your bare skin, you rub it more vigorously as it stiffens and sperm splashes onto your bare ass. After the man was satisfied, he pulls your pants over your sperm covered ass, pats you on the bum and disappears.'
 
+			gs 'arousal', 'hj', 5, 'sub'
+			gs 'stat'
+		
 			act 'Get out of the car':gt 'frot', 'fin2'
 		end
 	end
@@ -445,6 +451,10 @@ end
 if $ARGS[0] = 'fin':
 	cla
 	'You barely manage to escape to another place, away from the horny idiot. After a while you get to your station.'
+	
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Get out of the car':gt 'metro', 'start'
 end
 

locations/ivanRoom

@@ -148,17 +148,18 @@ if StoryLine = 0 or altQS = 1:
 
 									act 'Suck a cock together with Tatiana':
 										cls
-										minut += 5
 										guy += 1
 
 										if TatianaSex = 0:TatianaSex = 1 & girl += 1
 
-										stat['bj'] += 1
 										gang += 1
 										gs 'stat'
 										'<center><img src="images/locations/city/industrial/aptmanagers/sex/threesome2.jpg"></center>'
 										'Exhausted from morbid craving you moaning along with Tatiana, suck dick, vylizyvyete balls. You greedily bites his lips into a hard and hot flesh Crimson member, trying to suck in his mouth as much as possible.'
 
+										gs 'arousal', 'bj', 5, 'group'
+										gs 'stat'
+										
 										act '....':
 											cls
 											minut += 5
@@ -169,23 +170,26 @@ if StoryLine = 0 or altQS = 1:
 
 											act 'Sit pussy on Ivan''s face':
 												cls
-												minut += 5
-												stat['cuni'] += 1
 												gs 'stat'
 												'<center><img src="images/locations/city/industrial/aptmanagers/sex/threesome4.jpg"></center>'
 												'While Tatiana skips out on a limb you walked Ivan and transferred through the leg by placing his head in front of her pussy on his face. Ivan began to lick your pussy, incredible bliss enveloped you. Ivan after a while you took off your face and put Tatiana back.'
 
+												gs 'arousal', 'cuni', 5, 'group'
+												gs 'stat'
+										
 												act '69 Tatiana':
 													cls
-													minut += 5
-													lesb += 1
-													stat['vaginal'] += 1
 													pcs_vag += 1
-													orgasm += 1
 													gs 'stat'
 													'<center><img src="images/locations/city/industrial/aptmanagers/sex/threesome5.jpg"></center>'
 													'You started to lick pussy Tatiana and felt as something solid Bound you expiring juices pussy. When a hard cock parted the folds of your pussy, you suffocated from surging feelings for you. Do you dizzy and took possession of the whole body bliss, you suddenly gripped the present orgasm shuddering convulsions, you heard their cry as if the part of the body and felt Tatiana under you also began to shudder from orgasm. Ivan groaned and pulled his penis out of you, he grabbed you with Tatiana and put you in front of him on his knees.'
 
+													$orgasm_or = 'yes'
+													gs 'arousal', 'cuni_give', 5, 'group'
+													gs 'arousal', 'vaginal', 5, 'group'
+													minut -= 5
+													gs 'stat'
+										
 													act 'On your knees':
 														cls
 														minut += 5
@@ -204,6 +208,9 @@ if StoryLine = 0 or altQS = 1:
 															'<center><img src="images/pre/shared/karinpre.jpg"></center>'
 															'You secretly prepared a camera sending it out of her purse at Ivan and included it. Tatiana meanwhile handed him a glass of water, Ivan thirsty drank water and Tatiana asked him. Tell me how you stole from his boss. Ivan grinned "Elementary, I lost in the casino and I urgently need money. I knew this old asshole lie in the safe money on bribes. This slut did not give me a dishwasher. And I was born a brilliant plan. Naboltal that I fool her take the manager. Yeah, how did the manager. And Imagine this fool fell for such nonsense. I gave her the keys that stole. arose where the camera will not see me, and sent it to the cleaning lady pridurochnuyu take money. She brought them to me, "said Tatiana "And where is the money?" Ivan said sadly "long ringing. Know, holy card debt." Tatiana grinned, "it''s done. Ivan And you go to sleep." Ivan immediately snoring on the couch. Tatiana turned to you. "Yes, I almost screwed up because of his cold. Good lesson for you. Everything can not go according to plan. Thought I had to paralyze him, but I have since tried once. Paralyzed object choked when I poila. Hardly its pumping. Okay, let''s go faster. umoemsya''s just. " You just quickly washed up in the bathroom, along with Tatiana, flush sperm. She obviously avoiding your eyes and you will be worth on the street, she immediately began to say goodbye to you.'
 
+															gs 'arousal', 'end'
+															gs 'stat'
+															
 															act 'Leave':gt 'nord'
 														end
 													end
@@ -301,14 +308,14 @@ else
 									'Tanya kissing Ivan began to unbutton his pants. Finally, a solid member Ivan was on the loose. Tanya leaned over to the cock and started sucking him off. Ivan dug his lips in your lips and you began to kiss, under the greedy Cocagne Thani. Ivan took your head in his hands and sent it to his groin.'
 									act 'To suck cock together with Tanya':
 										cls
-										minut += 5
 										guy += 1
 										if TatianaSex = 0:TatianaSex = 1 & girl += 1
-										stat['bj'] += 1
 										gang += 1
 										gs 'stat'
 										'<center><img src="images/locations/city/industrial/aptmanagers/sex/threesome2.jpg"></center>'
 										'Exhausted by a painful desire you groan, together with Tanya, suck cock and lick balls. You greedy bites his lips in a hard and hot flesh crimson member, trying to suck in your mouth as much as possible.'
+										gs 'arousal', 'bj', 5, 'group'
+										gs 'stat'
 										act '...':
 											cls
 											minut += 5
@@ -317,21 +324,22 @@ else
 											'Tanya dropped Ivan on his back and tearing off on the go with their clothes jumped on top of his cock. While she furiously riding a cock Ivana you caress his testicles and stroked her ass.'
 											act 'Take pussy on the face of Ivan':
 												cls
-												minut += 5
-												stat['cuni'] += 1
 												gs 'stat'
 												'<center><img src="images/locations/city/industrial/aptmanagers/sex/threesome4.jpg"></center>'
 												'While Tanya is riding on the dick you surpassed Ivan and threw over his head a foot placing her pussy in front of his face. Ivan began to lick your pussy, incredible bliss swept you. Ivan after a while, you took off your face and put Tanya on her back.'
+												gs 'arousal', 'cuni', 5, 'group'
+												gs 'stat'
 												act '69 Tanya':
 													cls
-													minut += 5
-													lesb += 1
-													stat['vaginal'] += 1
 													pcs_vag += 1
-													orgasm += 1
 													gs 'stat'
 													'<center><img src="images/locations/city/industrial/aptmanagers/sex/threesome5.jpg"></center>'
 													'You started to lick the pussy Tanya and felt like something hard had hit you in the expiring juices pussy. When hard cock parted the folds of your pussy, You suffocated by surging feelings for you. You dizzy and body girth bliss, You suddenly covered under this orgasm, shuddering convulsions, you heard your scream as if from the outside and felt how the body Thani under you too began to shudder with orgasm. Ivan groaned and pulled his dick out of you, he grabbed both of you and set itself on her knees.'
+													$orgasm_or = 'yes'
+													gs 'arousal', 'cuni_give', 5, 'group'
+													gs 'arousal', 'vaginal', 5, 'group'
+													minut -= 5
+													gs 'stat'
 													act 'On knees':
 														cls
 														minut += 5
@@ -348,6 +356,8 @@ else
 															gs 'stat'
 															'<center><img src="images/pre/shared/karinpre.jpg"></center>'
 															'You secretly prepared the camera sending it from her purse at Ivan and including. Tanya meanwhile handed him a glass of water, Ivan thirsty drank water and Tanya asked. Tell us how you stole from his boss. Ivan grinned "Elementary! I lost to the casino and I urgently need money. I knew, that this old asshole lie in the safe money on bribes. This slut has not given me a dishwasher. And I was born a brilliant plan. I naboltal this fool will take it that the manager. Aha, how manager. And imagine this fool bought into this nonsense. I gave her the keys, who stole. I stood there, where I will not see the camera, and sent the cleaning lady take money pridurochnuyu. She brought them to me" Tanya asked  "And where is the money?" Ivan said sadly "Debts distributed. You know, holy card debt." Tanya grinned pretty, "it''s done. And you go to sleep Ivan." Ivan immediately started snoring on the couch. She turned to you. "Yes, I almost blew it because of his rhinitis. Okay, go from here soon. Here are just umoemsya." You quickly washed up in the bathroom together with Tanya, wash sperm. She obviously avoided your sight and you should be on the streets, She immediately began to say goodbye to you.'
+															gs 'arousal', 'end'
+															gs 'stat'
 															act 'Leave':gt'nord'
 														end
 													end

locations/kamera

@@ -22,13 +22,14 @@ act 'Greet her':
 	act 'Open your mouth hesitantly':
 		cla
 		*clr
-		stat['bj'] += 1
-		stat['anal'] += 1
 		'<center><img src="images/locations/city/industrial/police/sex/c3.jpg"></center>'
 		'The woman immediately forces her strap-on down your throat, the moment you part your lips. She keeps it in your throat until you feel you''re about to pass out and struggle violently, but only lets you go long enough to gasp for air.'
 		'She immediately grabs you by the hair and forces the length down your throat again, fucking your throat expertly with her strap-on. Every time you''re allowed to breathe, you only get barely enough time.'
 		'After a while, she gets bored and pulls you up by your hair.'
 
+		gs 'arousal', 'bj', 10, 'sub', 'lesbian', 'rough'
+		gs 'stat'
+		
 		act 'Stand up':
 			cla
 			*clr
@@ -42,6 +43,9 @@ act 'Greet her':
 			'You hear the girl''s voice who interrogated you before say: "Good job, we''ve been watching you through the cameras. Hold onto the strap-on for a while... you might need it again soon."'
 			'After that, the door closes and you''re alone again.'
 
+			gs 'arousal', 'anal_strap', 10, 'sub', 'lesbian', 'rough'
+			gs 'stat'
+			
 			act 'Crawl into bed and sleep':
 				cla
 				*clr
@@ -65,15 +69,15 @@ act 'Greet her':
 					'You answer all of them. How many of them there were, their names, what you did with the stolen goods... you even mention random things you overheard, when you were just chatting with the Gopniks! Anything she might be interested in, anything that might get you out of here!'
 					'You''re released after your confession, but your days may be numbered. Once the Gopniks find out you ratted them out, who knows what they''ll do to you...'
 
+					gs 'arousal', 'end'
+					gs 'stat'
+					
 					act 'Leave the police station':gt 'nord'
 				end
 
 				act 'Refuse to talk':
 					cla
 					*clr
-					minut += 90
-					orgasm += 1
-					pcs_horny = 0
 					'<center><img src="images/locations/city/industrial/police/sex/c7.jpg"></center>'
 					'"I don''t know what you''re talking about, officer..." you repeat the phrase you''ve been saying the whole time to her in a sultry voice, pretending you''re enjoying her treatment. To be honest, it''s actually starting to feel good.'
 					'To taunt her even more, you move one finger to your anus and gently begin to massage it.'
@@ -82,6 +86,10 @@ act 'Greet her':
 					'When you regain your focus, the girl stands a bit awkwardly next to you. This wasn''t supposed to happen! Her orders were to squeeze a confession out of you, not to give you a good fucking with her baton!'
 					'You can tell that she has an obvious damp spot in her panties; bringing you to an unintended orgasm aroused her a great deal! She has a somewhat frustrated look in her eyes when she looks at you, knowing she failed. She has a firm grip on her nightstick.'
 
+					$orgasm_or = 'yes'
+					gs 'arousal', 'vaginal_dildo', 90, 'sub', 'lesbian', 'rough'
+					gs 'stat'
+					
 					act 'Rudely tell her to get lost':
 						over = 7
 						gt 'gameover'
@@ -92,13 +100,15 @@ act 'Greet her':
 						cla
 						*clr
 						mentovka = 1
-						lesbian += 1
 						'<center><img src="images/locations/city/industrial/police/sex/c8.jpg"></center>'
 						'Figuring you''re probably better off keeping her on your side, you wordlessly squirm towards her and move your head between her legs, with her standing over you. You begin to kiss her pussy softly through her panties, coaxing a groan out of her.'
 						'She immediately understands what you want to do, and quickly takes off her clothes. She doesn''t even have to encourage you when she squats above your head again, since you eagerly bury your face between her legs and explore every inch of her pussy. She''s softly stroking your hair while you lick her eager cunt, completely forgetting about her role.'
 						'A few minutes later, she groans loudly and her body begins to shiver. She''s orgasming! You do your best to keep her steady and lick her until it''s over, and then slowly help her down to your bunk where you cuddle for a minute.'
 						'There, she looks at you awkwardly and quickly puts her clothes back on, getting ready to leave your cell. In the doorway she softly mutters: "You really didn''t do it, huh? I... I''ll have the paperwork done. You''ll be released soon."'
-
+						
+						gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian'
+						gs 'stat'
+		
 						act 'Wait to see if she keeps her word':
 							cla
 							*clr
@@ -107,6 +117,9 @@ act 'Greet her':
 							'You get dressed again and wait for her to come back. About half an hour later, the door swings open and sure enough, there she is! She''s holding your belongings, and lets you change into your own clothes before escorting you to the exit. When you''re at the doorstep she whispers: "You were great, I really needed that. Thanks!" and slams the door shut before you can respond.'
 							'You''re free!'
 
+							gs 'arousal', 'end'
+							gs 'stat'
+							
 							act 'Freedom!':gt 'nord'
 						end
 					end
@@ -127,6 +140,9 @@ act 'Greet her':
 			'She quickly and quietly puts it back on and grabs hold of her clothes, clearly scared of what else you might do to her. She quickly knocks the door, and jumps out into the corridor without even bothering to get dressed. Pathetic...'
 			'You''re all alone again.'
 
+			gs 'arousal', 'vaginal_strap_give', 10, 'dom', 'lesbian', 'rough'
+			gs 'stat'
+			
 			act 'Wait':
 				cla
 				*clr
@@ -139,6 +155,9 @@ act 'Greet her':
 				'He leaves you alone for a moment so you can get dressed, and then escorts you to the exit. No one mentions the failed attempt of the other inmate while they walk you out the door, but you can tell people are not happy about it. Who knows what kind of trouble that woman is into now, for failing to break you?'
 				'With a cruel smile on your face, you leave the facility. That''s her problem, not yours.'
 
+				gs 'arousal', 'end'
+				gs 'stat'
+				
 				act 'Leave the police station':gt 'nord'
 			end
 		end

locations/kit_din

@@ -13,8 +13,6 @@ $santehnikgr = {
 $santehnikend3 = {
 	cls
 	ransloman = 0
-	stat['bj'] += 1
-	SUB += 1
 	facial += 1
 	spafinloc = 11
 	gs 'cum_manage'
@@ -27,6 +25,9 @@ $santehnikend3 = {
 	'You have try wiping the sperm from the face, hoping to unstick your eyes, but you only manage to smear it all over your face. Finally you are able to open one eye and see the plumber standing over you, he smirks as he buttons up his pants.'
 	'Thereafter, the plumber turna and leaves your apartment.'
 
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Get up':gt $curloc
 }
 
@@ -62,12 +63,14 @@ $santehnikend1 = {
 
 			act 'Suck':
 				cls
-				minut += 3
 				gs 'stat'
 				'<center><img src="images/locations/city/residential/apartment/sex/plumber/bj1.jpg"></center>'
 				'You cup the warm and hard cock between your lips and start sucking it, uttering slurping sounds. The plumber begins to move his hips trying to drive his cock deeper into your mouth. His solid organ fills almost your entire mouth and sticks in your throat, unwittingly choking you.'
 				'Tears flow from your eyes, but the plumber has already fallen into a rage, and not paying attention to you, fucking your mouth, keeping it in. Finally he quickly pull his cock out of your wet mouth and starts masturbating in front of your face.'
 
+				gs 'arousal', 'bj', 3, 'sub', 'deepthroat', 'rough'
+				gs 'stat'
+				
 				act 'Close your eyes':dynamic $santehnikend3
 			end
 		end
@@ -134,23 +137,28 @@ $santehnikend = {
 			end
 		end
 		if money+stolmoney<1500 and shameless > 14:
-			act 'Offer other options (to make a blow)':
+			act 'Offer a favour instead':
 				cla
 				*clr
-				pcs_horny += 40
 				gs 'stat'
 				'<center><img src="images/locations/city/residential/apartment/sex/s4.jpg"></center>'
 				'I do not have money, but you can take another form of payment? you say, dropping to her knees and starting to unbutton his pants. The guy obviously does not mind and watching your actions. You remove it even flaccid penis and tightly gripping his hand, start to kiss the head, gradually sucking it into his mouth.'
 
+				gs 'arousal', 'bj', 3, 'sub'
+				gs 'stat'
+				
 				act 'Continue':
 					if pcs_apprnc < 60:
 						cla
 						*clr
 						guy += 1
-						stat['bj'] += 1
 						'<center><img src="images/locations/city/residential/apartment/sex/s5.jpg"></center>'
 						'You diligently sucking his dick between his legs itched from all desires, you break off a couple of times to stop and go to the sex, but he took you by the head and continued to fuck your mouth, soon he came into your mouth and swallow once you come and pick it up again member, as he put his pants and silently walked to the door, to sleep with you, he was not even going. From rastrojstva you spat out semen on the floor, looks like you do not attract even plumbing.'
 
+						gs 'arousal', 'bj', 5, 'sub', 'deepthroat', 'rough'
+						gs 'arousal', 'end'
+						gs 'stat'
+				
 						act 'Leave':gt 'korr'
 					elseif pcs_apprnc >= 60:
 						picrand = 90
@@ -197,8 +205,6 @@ $santehnik = {
 		act 'Leave':
 			cla
 			*clr
-			minut += 20
-			pcs_horny += 50
 			gs 'stat'
 			'<center><img src="images/locations/city/residential/apartment/sex/s8.jpg"></center>'
 			'You go into the room and sit on the couch, soon your husband comes in and sits down beside you. With one hand on your breast, he runs his other hand down under your panties and begins to massage your clitoris.'
@@ -206,12 +212,17 @@ $santehnik = {
 			'"He''ll be another hour poking around." he answers, "Come on, quick blow job."'
 			'"OK, lets." you say, now excited, it really looks like his hand has done its job.'
 
+			gs 'arousal', 'foreplay', 10, 'sub'
+			gs 'stat'
 			act 'Start':
 				cla
 				*clr
 				'<center><img src="images/locations/city/residential/apartment/sex/s9.jpg"></center>'
 				'The husband stands up and pulls from his unbuttoned pants his member, you drop to your knees and his cock is in your mouth, right then the plumber enters, "I''m finished." he says and freezes, seeing this picture.'
 
+				gs 'arousal', 'bj', 10, 'sub'
+				gs 'stat'
+			
 				if izvratH = 0:
 					'Your husband tries to remove his member from your mouth'
 
@@ -219,31 +230,36 @@ $santehnik = {
 						act 'Stop':
 							cla
 							'Your husband quickly hides his dick in his pants and with the plumber goes out into the corridor'
+							gs 'arousal', 'end'
+							gs 'stat'
 							act 'Leave':gt 'sitr'
 						end
 					end
 
 					act 'Do not stop':
 						cla
-						orgasm += 1
-						stat['bj'] += 1
 						'You grabbed your husbands hips and continued to work your mouth, he jerks a couple of times trying to free himself, but you can not stop and just swallow his cock even deeper. When he stops twitching you bring one hand to your crotch and with just a couple of motions bring yourself to orgasm.'
 						'But the excitement does not recede, you want even more, and the watching plumber just arouses you. You can not control yourself.'
 
+						$orgasm_or = 'yes'
+						gs 'arousal', 'bj', 10, 'sub'
+						gs 'stat'
 						act 'Ride your husband':
 							cla
 							*clr
-							orgasm += 1
 							gs 'cum_manage'
-							stat['vaginal'] += 1
 							suprdolg += 1
 							husband += 1
 							husbizvradd += 1
-							pcs_horny = 0
 							'<center><img src="images/locations/city/residential/apartment/sex/s12.jpg"></center>'
 							'You release your husband''s member from your mouth and quickly push him to sit on the couch, then jump on top of him, quickly planting his dick in your pussy. You ride it like crazy, ignoring the plumber, still stood in the doorway, watching you. When you are again close to orgasm you feel as sperm gushes into you'
 							'It take a few movements from his twitching cock, but you also reach orgasm, uttering a cry you limp and fall from your husband. He leaves you still quaking, pulls up his pants and walks out with the plumber to the hallway.'
 
+							$orgasm_or = 'yes'
+							gs 'arousal', 'vaginal', 10, 'sub'
+							gs 'arousal', 'end'
+							gs 'stat'
+						
 							act 'Leave':gt 'sitr'
 						end
 					end
@@ -272,13 +288,15 @@ $santehnik = {
 
 					act 'Do not stop':
 						cla
-						stat['bj'] += 1
 						'You continued to suck ignoring the watching plumber.'
 
 						if harakHusb = 0:'Your husband tries not to look at the plumber, obviously embarrassed, but he does not hesitate to follow your every move.'
 						if harakHusb = 1:'Your husband stands savoring the process without paying attention to the plumber.'
 						if harakHusb = 2:'Your husband chats with the plumber does not hesitate to turn slightly so that it is easier for him to see.'
 
+						gs 'arousal', 'bj', 10, 'sub'
+						gs 'stat'
+						
 						act 'Continue':
 							cla
 							swallow += 1
@@ -287,6 +305,9 @@ $santehnik = {
 							pcs_horny += 20
 							'You continue to blow your husband, and soon a stream of hot liquid squirts into your mouth, swallowing the sperm you lick the remnants of semen from his penis. Your husband puts his cleaned dick in his pants and walks out into the hallway with the plumber. And you are left sitting on the floor, exhausted from desire.'
 
+							gs 'arousal', 'end'
+							gs 'stat'
+							
 							act 'Leave':gt 'sitr'
 						end
 
@@ -304,6 +325,11 @@ $santehnik = {
 									'The plumber tenses, waiting for the reaction of your husband, "Well, if only licking you, then let him." Says your husband. The plumber does not need persuading, your husband sits on the sofa, and you get on your knees and stick out your ass as the plumbers tongue penetrates your pussy.'
 									'At first your husband keeps glancing in his direction, but soon relaxes and finally when the guy starts to finger your hole with a vengance, he says nothing, you decide that he is no longer against you sharing with others.'
 
+									gs 'arousal', 'cuni', 10, 'sub', 'group'
+									gs 'arousal', 'vaginal_finger', 10, 'sub', 'group'
+									minut -= 10
+									gs 'stat'
+							
 									act 'Serve both':picrand = 43 & gt 'sexdvoe', 'var'
 								elseif harakHusb = 1:
 									husband -= 5
@@ -318,6 +344,9 @@ $santehnik = {
 									'"It''s not for nothing that they say all women are whores, hey man this whore wants to do both of us, but then the repair is free of charge." Says your husband. The plumber does need a second invite, he quickly approachs and pulls out his dick.'
 									'Bringing it to your face, you cling to him and start to suck both cocks alternately, your husband stands carefully watching your actions "You like sucking fresh meat, but do not forget about me, and this boys and mine you swallow deeper and deeper."'
 
+									gs 'arousal', 'bj', 10, 'sub', 'group'
+									gs 'stat'
+							
 									act 'Serve both':picrand = 43 & gt 'sexdvoe', 'var'
 								end
 							end

locations/korr

@@ -309,13 +309,14 @@ $ninel0 = {
 					act 'Substitute ass':
 						cla
 						*clr
-						minut += 10
-						pcs_horny += 10
 						clr
 						gs 'stat'
 						'<center><img src="images/locations/shared/apartment/event/sick/nadom2.jpg"></center>'
 						'You obediently roll over and substitute ass. Dr. lubricates your anus lubricated and deftly introduces a thermometer. You flinch, but not from pain and pleasure. Doctor leaves just stick a thermometer in your ass and slowly moves it back and forth and it''s very nice. You feel the growing excitement.'
 
+						gs 'arousal', 'anal_dildo', 10
+						gs 'stat'
+						
 						if pcs_horny >= 50:
 							act 'Moan with pleasure':
 								cla
@@ -327,20 +328,19 @@ $ninel0 = {
 								act 'Roll over on his back':
 									cla
 									*clr
-									minut += 15
-									pcs_horny += 10
 									clr
 									gs 'stat'
 									'<center><img src="images/locations/shared/apartment/event/sick/nadom5.jpg"></center>'
 									'The doctor began to stroke and knead your stomach and thighs. You are not sure that this is a medical procedure - too long and tenderly she delalet, but you are very nice and you did not object.'
 									'Excitement, meanwhile, is growing all, you feel like your pussy moistened and begins to whine sweet ...'
 
+									gs 'arousal', 'foreplay', 15
+									gs 'stat'
+									
 									act 'A blush of embarrassment':
 										cla
 										*clr
 										clr
-										pcs_horny += 15
-										!!time += 15
 
 										gs 'stat'
 										'<center><img src="images/locations/shared/apartment/event/sick/nadom6.jpg"></center>'
@@ -357,6 +357,9 @@ $ninel0 = {
 										'(Doctor) - Nothing - I''m doing it solely for my own satisfaction. I see you, have orgasms only if conjure.'
 										'(You) - Then of course - I agree.'
 
+										gs 'arousal', 'foreplay', 15
+										gs 'stat'
+									
 										act 'Surrender to the gentle hands Ninel':gt 'housecall', 'ninel2'
 									end
 								end
@@ -411,8 +414,6 @@ $ninel0 = {
 
 								act 'Lie on your stomach and bare ass':
 									cla
-									minut += 15
-									pcs_horny = 100
 									clr
 									gs 'stat'
 									'<center><img src="images/locations/shared/apartment/event/sick/nadom9.jpg"></center>'
@@ -429,6 +430,9 @@ $ninel0 = {
 									'(Doctor) - Nothing - I''m doing it solely for my own satisfaction. I see you, have orgasms only if conjure.'
 									'(You) - Then of course - I agree.'
 
+									gs 'arousal', 'foreplay', 15
+									gs 'stat'
+									
 									act 'Surrender to the gentle hands Ninel':gt 'housecall', 'ninel2'
 								end
 							end

locations/musorkaexh

@@ -129,6 +129,10 @@ if $ARGS[0] = 'pos8':
 		'Finally with a loud puff, the homeless man collapses on his cardboard box.'
 		'"Money, money gimme!" You cry as you grab all the bums money and run away.'
 
+		gs 'arousal', 'foreplay', 10, 'exhibitionism'
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		act 'Leave':gt'street'
 	end
 
@@ -166,7 +170,6 @@ if $ARGS[0] = 'pos10':
 	act 'Agree':
 		cls
 		money += 100
-		pcs_horny += 10
 		gs'stat'
 
 		'<center><img src="images/locations/city/residential/bumt1.jpg"></center>'
@@ -175,6 +178,10 @@ if $ARGS[0] = 'pos10':
 		'"Argh, wait let me finish!"'
 		'Finally with a loud puff, the homeless man collapses on his cardboard box.'
 		'"Money, money gimme!" You cry as you grab the bums money and prepare to make a quick get away.'
+		
+		gs 'arousal', 'foreplay', 10, 'exhibitionism'
+		gs 'stat'
+		
 		if bomjqw > 0:
 			'The homeless man asks, "Thank you very much once again, but if you agree to one more service...'
 			'"What service?"'
@@ -192,15 +199,17 @@ if $ARGS[0] = 'pos10':
 					cla
 					*clr
 					gs'stat'
-					pcs_horny += 10
 					money += 500
-					minut += 3
 					bomjshet += 1
 					'<center><img src="images/locations/city/residential/street/sex/old0,'+rand(0,3)+'.jpg"></center>'
 					'"It is so disgusting." You think to yourself. You need the money, and what''s wrong with that? Once you can bear.'
 					'You go down on your knees before the old, smelly homeless. Amazed by his luck, he leisurely pulls out his member.'
 					'His member is dirty and stinks so bad, as if it has not been washed in a few centuries.'
 					'You take the vagabonds member in your mouth and begin to suck leisurely.'
+					
+					gs 'arousal', 'bj', 3, 'prostitution'
+					gs 'stat'
+		
 					act'Suck harder':
 						cla
 						'You start sucking enthusiastically, and your efforts are paying off. The old man is ready to cum.'
@@ -208,12 +217,15 @@ if $ARGS[0] = 'pos10':
 							cla
 							*clr
 							gs'stat'
-							minut += 3
 							spafinloc = 12
 							gs 'cum_manage'
-							pcs_horny += 10
 							'<center><img src="images/shared/sex/cum/mouth/cum1,'+rand(0,10)+'.gif"></center>'
 							'A few minutes later he finishes, your mouth fills with nasty stinking sperm.'
+							
+							gs 'arousal', 'bj', 3, 'prostitution'
+							gs 'arousal', 'end'
+							gs 'stat'
+							
 							act'Leave':gt'street'
 						end
 						act'On the face':
@@ -226,6 +238,10 @@ if $ARGS[0] = 'pos10':
 							minut += 1
 							'<center><img src="images/shared/sex/public/cum0,'+rand(0,3)+'.jpg"></center>'
 							'A few minutes later he finishes, your face is coated by nasty stinking sperm.'
+							
+							gs 'arousal', 'end'
+							gs 'stat'
+							
 							act'Leave':gt'street'
 						end
 					end
@@ -236,14 +252,15 @@ if $ARGS[0] = 'pos10':
 						*clr
 						dick = 14
 						money += 700
-						minut += 15
 						bomjshet += 1
 						'<center><img src="images/locations/city/residential/street/sex/old1,'+rand(0,2)+'.jpg"></center>'
 						'It is not your first time dealing with such people. You have already learned to overcome any aversion. So you decide to give the homeless man something a little better to just a blow job.
 						You take off your panties and threw them to the homeless. He is, of course, shocked by this. But the shock does not last long. After throwing off his pants full of holes, The old man moves to you.'
-						dynamic $sexstart
-						dynamic $sexstart2
-						dynamic $sexcum
+						
+						gs 'arousal', 'vaginal', 15, 'prostitution'
+						gs 'arousal', 'end'
+						gs 'stat'
+					
 						act'Leave':gt'street'
 					end
 				end

locations/party

@@ -112,6 +112,9 @@ if $ARGS[0] = 'result2':
 	'<center><img src="images/shared/sex/kiss/kiss2.jpg"></center>'
 	'You dance and fool around with other people when you get the idea to dance with Vika. The two of you end up doing a light lesbian show with some savory lingering kisses.'
 
+	gs 'arousal', 'kiss', 5, 'lesbian'
+	gs 'stat'
+	
 	act 'Leave':gt 'Lok'
 
 	act 'Take Vika to an empty room':
@@ -139,6 +142,9 @@ if $ARGS[0] = 'result4':
 	'<center><img src="images/locations/shared/party/itog4.jpg"></center>'
 	'You get drunk and begin to molest some of the girls. You can''t remember exactly how it happened, but suddenly your breasts are exposed and Vika kisses and licks your nipples in front of everyone.'
 
+	gs 'arousal', 'foreplay', 5, 'lesbian'
+	gs 'stat'
+	
 	act 'Leave':gt 'Loka'
 
 	act 'Take Vika to an empty room':
@@ -168,6 +174,9 @@ if $ARGS[0] = 'result6':
 	'<center><img src="images/locations/shared/party/itog6.jpg"></center>'
 	'You molest a big breasted girl all evening, begging her to let you lick her breasts. Later on, after the two of you got drunk, you bury your head in her chest kissing her breasts.'
 
+	gs 'arousal', 'kiss_give', 5, 'lesbian'
+	gs 'stat'
+	
 	act 'Leave':gt 'Loka'
 end
 
@@ -177,6 +186,10 @@ if $ARGS[0] = 'result7':
 	'<center><img src="images/locations/shared/party/itog7.jpg"></center>'
 	'You drunkenly decide to bare your breasts and start to lick your nipples.'
 
+	gs 'arousal', 'flash_breasts', 5, 'exhibitionism'
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Leave':gt 'Loka'
 end
 
@@ -192,16 +205,19 @@ if $ARGS[0] = 'result8':
 		cla
 		*clr
 		$girl = 'Vika'
-		stat['vaginal'] += 1
 
 		if vikasex = 0:vikasex = 1 & sexf += 1
 
 		'<center><img src="images/locations/shared/party/sex/tri.jpg"></center>'
 		'You kiss and fondle Vika''s breasts. She seems very excited and you decide to have her lick your pussy.'
 
+		gs 'arousal', 'vaginal', 10, 'lesbian'
+		gs 'stat'
+	
 		if pcs_horny < 100:'It feels good, but you soon get tired of her licking you'
 		if pcs_horny >= 100:pcs_horny = 0 & 'You soon feel your pussy convulsing and waves of pleasure wash over your body as you scream from a powerful orgasm.'
-
+		$orgasm_or = 'yes'
+		
 		'The guy pulls his dick out of Vika and shoves it into her mouth.'
 
 		act 'Watch':
@@ -218,6 +234,10 @@ gs 'cum_manage'
 				'<center><img src="images/locations/shared/party/sex/tri3.jpg"></center>'
 				'You kiss each other, sharing the guys cum and spreading it over both of your faces.'
 
+				gs 'arousal', 'kiss', 4, 'lesbian'
+				gs 'arousal', 'end'
+				gs 'stat'
+				
 				act 'Leave':gt 'Loka'
 			end
 		end
@@ -232,6 +252,9 @@ gs 'cum_manage'
 			'<center><img src="images/locations/shared/party/sex/tri2.jpg"></center>'
 			'Vika and you enthusiastically suck his dick and he finally ends up coming on both of your faces.'
 
+			gs 'arousal', 'bj', 7
+			gs 'stat'
+			
 			act 'Kiss Vika':
 				cla
 				*clr
@@ -240,6 +263,10 @@ gs 'cum_manage'
 				'<center><img src="images/locations/shared/party/sex/tri3.jpg"></center>'
 				'The two of you start kissing, sharing the guys cum and licking it off the each others face.'
 
+				gs 'arousal', 'kiss', 4, 'lesbian'
+				gs 'arousal', 'end'
+				gs 'stat'
+				
 				act 'Leave':gt 'Loka'
 			end
 		end
@@ -252,6 +279,10 @@ if $ARGS[0] = 'result9':
 	'<center><img src="images/locations/shared/party/sex/itog9.jpg"></center>'
 	'Two girls seems to have a lot of fun and start a lesbian show during the party, caressing, kissing and squeezing each other in front of everyone.'
 
+	gs 'arousal', 'voyeur', 4, 'lesbian'
+	gs 'arousal', 'end'
+	gs 'stat'
+				
 	act 'Leave':gt 'Lok'
 end
 

locations/poli

@@ -775,19 +775,21 @@ if $ARGS[0] = 'ninel':
 								cla
 								clr
 								*clr
-								pcs_horny += 10
 								gs 'stat'
 								'<center><img src="images/locations/city/residential/clinic/sex/exam15.jpg"></center>'
 								'The doctor arranges your position on the couch, much to your embarrassment. She smears lubricant between your legs and gently sticks a thermometer into your ass. It really does not hurt, in fact it''s even pleasant.'
 								'The doctor begins to slowly move the thermometer back and forth in your ass and with her other hand appears to stroke your pussy. Thanks to her dextrous fingers her touch is so gentle you aren''t sure.'
 								'Either way you are getting more excited. Your nipples harden, your pussy is making the doctors hand wet...'
 
+								gs 'arousal', 'vaginal_finger', 10, 'sub'
+								gs 'arousal', 'anal_dildo', 10, 'sub'
+								minut -= 10
+								gs 'stat'
+								
 								act 'This doesn''t seem normal':
 									cla
 									clr
 									*clr
-									minut += 10
-									pcs_horny += 10
 									gs 'stat'
 									'<center><img src="images/locations/city/residential/clinic/sex/exam16.jpg"></center>'
 									'The doctor takes the thermometer out of your ass and begins to openly caress your pussy.'
@@ -805,6 +807,9 @@ if $ARGS[0] = 'ninel':
 									'"Then of course I agree."'
 									'"Good, kneel on the couch.'
 
+									gs 'arousal', 'vaginal_finger', 10, 'sub', 'lesbian'
+									gs 'stat'
+									
 									act 'Kneel on couch':
 										cla
 										*clr
@@ -825,6 +830,9 @@ if $ARGS[0] = 'ninel':
 											'You gasp in surprise at the rough treatment, how can somone with such soft hands...Suddenly she finds a perfect stroke and the initial pain turns to pleasure.'
 											'Doctor keeps fuck you confidently, moaning with every jolt she seems to be enjoying it as much as you, and you are ecstatic. The unusual situation and Ninels skill quickly led you to your peak.'
 
+											gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
+											gs 'stat'
+											
 											act 'Ride the wave!':
 												cla
 												*clr
@@ -834,18 +842,18 @@ if $ARGS[0] = 'ninel':
 												'A few more movements, you cum, screaming and twitching in an incredibly long orgasm.'
 												'"Now it''s my turn. Come on, girl."'
 
+												$orgasm_or = 'yes'
+												gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
+												gs 'stat'
+											
 												act 'Return the favour':
 													cla
 													clr
 													*clr
-													pcs_horny = 0
-													orgasm += 1
-													lesbian += 1
 													ninelsex += 1
 
 													if ninelsex = 1:girl += 1
 
-													SUB += 1
 													pcs_vag += 1
 													sick = 0
 													pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
@@ -855,6 +863,9 @@ if $ARGS[0] = 'ninel':
 													'<center><img src="images/locations/city/residential/clinic/sex/exam19a.jpg"></center>'
 													'Ninel removes the strapon and you press your face to her soaking wet pussy. It doesn''t take long for you efforts to bring Ninel to orgzazm. She screams and digs her nails into her own knees as your face is covered by her squirting orgasm.'
 
+													gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian'
+													gs 'stat'
+											
 													act 'Dress':
 														cla
 														*clr
@@ -866,6 +877,9 @@ if $ARGS[0] = 'ninel':
 														'"If you like, we could spead sometime together, look for me in the clinic."'
 														'You promise to be sure to find her, clean up and leave.'
 
+														gs 'arousal', 'end'
+														gs 'stat'
+														
 														act 'Leave the clinic':gt 'street'
 													end
 												end
@@ -920,25 +934,27 @@ if $ARGS[0] = 'ninel2':
 					cla
 					clr
 					*clr
-					pcs_horny += 10
-					minut += 10
 					gs 'stat'
 					'<center><img src="images/locations/city/residential/clinic/sex/exam04.jpg"></center>'
 					'You assume the position and Ninel starts fucking your ass with her thermometer. You get excited, your pussy engorges, and begins to get moist. You moan softly'
 					'"Oh, does baby like it? Come on let''s see how much."'
 
+					gs 'arousal', 'foreplay', 10, 'sub', 'lesbian'
+					gs 'stat'
+											
 					act 'Roll over':
 						cla
 						clr
 						*clr
-						pcs_horny += 10
-						minut += 5
 
 						gs 'stat'
 						'<center><img src="images/locations/city/residential/clinic/sex/exam06.jpg"></center>'
 						'You roll over onto your back and hold your the legs. Ninel gets a speculum and gently slides it into your vagina. You quietly groan from the stimulation and Ninel echoes your passionate with a heavy sigh.'
 						'It looks like your wide-open vulva is massively turning her on.'
 
+						gs 'arousal', 'vaginal_dildo', 5, 'sub', 'lesbian'
+						gs 'stat'
+											
 						act 'Oh-h ..!':
 							cla
 							clr
@@ -954,25 +970,27 @@ if $ARGS[0] = 'ninel2':
 							'"Fuck me. I mean, please fuck me.'
 							'"I''m not convinced, now politely, beg for it."'
 
+							gs 'arousal', 'bj', 15, 'sub', 'lesbian'
+							gs 'arousal', 'vaginal_finger', 15, 'sub', 'lesbian'
+							minut -= 15
+							gs 'stat'
+											
 							act 'Beg for it':
 								cla
 								*clr
-								minut += 20
 								'<center><img src="images/locations/city/residential/clinic/sex/exam07.jpg"></center>'
 								'"Please, please! Fuck me! Do with me what you want with me Dr. Ninel, I''m all yours! Just, please do it soon!'
 								'Ninel puts on the strapon and aggressively drives it home, your bosom blazes with lust. You cry out and lift your feet up, trying to take as much of the phalus as possible.'
 								'Ninel fucks you faster, moaning and groaning with every jolt, and you moan and clearly struggle.'
 								'"On your knees! Turn around!" Orders your doctor.'
 
+								gs 'arousal', 'vaginal_strap', 20, 'sub', 'lesbian', 'rough'
+								gs 'stat'
+											
 								act 'Obey':
 									cla
 									clr
 									*clr
-									pcs_horny = 0
-									minut += 10
-									orgasm += 1
-									lesbian += 1
-									SUB += 1
 									pcs_vag += 1
 									sick = 0
 									pcs_health = pcs_vital * 10 + pcs_stren * 5 + 1000
@@ -989,6 +1007,10 @@ if $ARGS[0] = 'ninel2':
 									'Finally you end and immediately Ninel commands,'
 									'"Now you will appease me, my little slut. Come on, you know how!"'
 
+									$orgasm_or = 'yes'
+									gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian', 'rough'
+									gs 'stat'
+											
 									act 'Oblige':
 										cla
 										*clr
@@ -997,16 +1019,21 @@ if $ARGS[0] = 'ninel2':
 										'You diligently use your tongue and lips to serve her wide-open pussy and swollen clit. She is screaming and sobbing, rubbing her crotch all across your face, until she finally cums.'
 										'She cums with a long, yelling, shaking fever and abundantly fills your face with her juices.'
 
+										gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian'
+										gs 'stat'
+											
 										act 'Wow':
 											cla
 											*clr
-											pcs_horny += 20
 											'<center><img src="images/locations/city/residential/clinic/sex/exam09a.jpg"></center>'
 											'When she finishes, Ninel rises and slowly dresses, showing you her perky body. It''s unbelievable, and again excitement rises.'
 											'Ninel sees this and smiles.'
 											'"Oh, no. Enough is enough. But you come in another time for something else and we''ll have some fun..'
 											'You think to yourself that your next illness can''t come soon enough. You are healthy and satisfied, thanks to Ninel.'
 
+											gs 'arousal', 'end'
+											gs 'stat'
+											
 											act 'Thank Ninel and go':gt 'street'
 										end
 									end
@@ -1042,32 +1069,34 @@ if $ARGS[0] = 'ninel3':
 			'"Suck it, baby. Make it hot and wet, just like you."'
 			'You wrap your lips around the dildo and start sucking, squishing and covering it in your saliva. You can see this is exciting Ninel.'
 
+			gs 'arousal', 'foreplay', 10, 'sub', 'lesbian'
+			gs 'stat'
+											
 			act 'Fuck me!':
 				cla
 				*clr
-				minut += 10
 				'<center><img src="images/locations/city/residential/clinic/sex/polsex02.jpg"></center>'
 				'Remembering that Ninel loves you to beg her to fuck you, you do not even need to pretend the desire is literally burnt into you. You beg and plead.'
 				'Ninel finally heeds the request. She rudely puts you on your knees and begins to drive the strapon firmly into your inflamed vagina. You let out screams with each push. Your legs are weakening.'
 
+				gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
+				gs 'stat'
+											
 				act 'Fall on the couch':
 					cla
 					*clr
-					minut += 20
 					'<center><img src="images/locations/city/residential/clinic/sex/polsex03.jpg"></center>'
 					'You fall on the couch. Ninel knocks you on your side and continues. You drawl and loudly moan, from her chest too comes a deep and bestial growl'
 					'"My God, you as well."'
 					'"I can not, it''s too much..!"'
 
+					gs 'arousal', 'vaginal_strap', 20, 'sub', 'lesbian'
+					gs 'stat'
+											
 					act 'Ride her':
 						cla
 						clr
 						*clr
-						pcs_horny = 0
-						minut += 10
-						orgasm += 1
-						lesbian += 1
-						SUB += 1
 						pcs_mood += 15
 						pcs_willpwr += 15
 						pcs_vag += 1
@@ -1081,6 +1110,11 @@ if $ARGS[0] = 'ninel3':
 						'"Thank you, doc. It was great..."'
 						'"Oh yeah, <<$pcs_nickname>>. Come again."'
 
+						$orgasm_or = 'yes'
+						gs 'arousal', 'vaginal_strap', 10, 'sub', 'lesbian'
+						gs 'arousal', 'end'
+						gs 'stat'
+											
 						act 'Freshen up and go':gt 'street'
 					end
 				end
@@ -1154,7 +1188,7 @@ if $ARGS[0] = '0':
 	*clr
 	'<center><img src="images/locations/city/residential/clinic/sex/hospsex1.jpg"></center>'
 	'During the examination, the doctor starts to flirt and touch you, clearly trying to start something intimate.'
-
+							
 	act 'Reject him':gt 'poli', 'start'
 
 	act 'Have some fun':
@@ -1208,16 +1242,21 @@ if $ARGS[0] = '2':
 			gs 'boyStat', $npclastgenerated
 			guy += 1
 			girl += 1
-			lesbian += 1
 			'<center><img src="images/locations/city/residential/clinic/sex/hospsex5.jpg"></center>'
 			'She pulls down your clothes and bends you over the couch. Then she begins to pleasure your pussy with her tongue'
 
+			gs 'arousal', 'cuni', 10, 'lesbian', 'group'
+			gs 'stat'
+	
 			act 'Lick her':
 				cla
 				*clr
 				'<center><img src="images/locations/city/residential/clinic/sex/hospsex6.jpg"></center>'
 				'You lay her on the couch and sink your lips into her pussy, the smell of her sex drives you crazy, you could not put her down and lick her pussy to put your tongue inside her pussy and ass, in this state you are found by the returning doctor.'
 
+				gs 'arousal', 'cuni_give', 10, 'lesbian', 'group'
+				gs 'stat'
+	
 				act 'Threesome':picrand = 11 & gt 'podrsex', 'suck'
 			end
 		end

locations/police

@@ -23,8 +23,7 @@ if $ARGS[0] = '1':
 	act 'Keep your mouth shut':
 		cla
 		*clr
-		minut += 60
-		stat['anal'] += 1
+		girl += 1
 		guy += 1
 		spafinloc = 3
 		gs 'cum_manage'
@@ -40,6 +39,9 @@ if $ARGS[0] = '1':
 		'As you begin to lick, she moans: "Oh yeah! They''re going to love you in there! Enjoy it, it''s the last clean pussy your mouth is going to be on! Unless you confess, you''ll be spending the rest of your life like this! And face it: a bitch like you won''t last a month..."'
 		'She pulls your head back by your hair again and threatens: "Final chance. Confess, or else."'
 
+		gs 'arousal', 'cuni_give', 30, 'lesbian', 'rough', 'bound'
+		gs 'stat'
+		
 		act 'Refuse':
 			cla
 			*clr
@@ -58,6 +60,12 @@ if $ARGS[0] = '1':
 			'"Wait, I''m not done yet", the man says. The two of them force you back down on the desk and he thrusts his cock roughly inside you again, insulted by your comment on his size. He pounds his hips against yours furiously, and finally cums in your ass a few minutes later.'
 			'After he straightens his clothes, he undoes your handcuffs and lets you get dressed again. At that point the girl turns off the camera - it turns out that she let it run the whole time!'
 
+			gs 'arousal', 'cuni_give', 30, 'lesbian', 'rough', 'bound'
+			gs 'arousal', 'anal', 30, 'rough'
+			minut -= 30
+			gs 'arousal', 'end'
+			gs 'stat'
+		
 			act 'Be brought to a prison cell':gt 'kamera'
 		end
 	end
@@ -73,6 +81,9 @@ if $ARGS[0] = '1':
 		'You answer all of them. How many of them there were, their names, what you did with the stolen goods... you even mention random things you overheard, when you were just chatting with the Gopniks! Anything she might be interested in, anything that might get you out of here!'
 		'You''re released after your confession, but your days may be numbered. Once the Gopniks find out you ratted them out, who knows what they''ll do to you...'
 
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		act 'Leave the police station':gt 'nord'
 	end
 end

locations/qjob

@@ -31,6 +31,9 @@ if $ARGS[0] = 'var1':
 			'After a while, the photographer tells you to change into a specific position again, and then walks up to you and kisses your neck while his hand rests on your buttocks.'
 			'The other girl gasps, looking at you with a confused look in her eyes. Her mouth is wide open in surprise, and she''s not really sure what to do.'
 
+			gs 'arousal', 'kiss', 3
+			gs 'stat'
+			
 			act 'Tell him to stop':
 				cla
 				*clr
@@ -43,19 +46,27 @@ if $ARGS[0] = 'var1':
 			act 'Let it happen':
 				cla
 				*clr
-				orgasm += 1
-				stat['cuni'] += 1
+				girl += 1
 				guy += 1
 				'<center><img src="images/locations/city/citycenter/photo/photoshoot/f2.jpg"></center>'
 				'The photographer smiles when he notices you''re not objecting, and slowly kisses his way down your shoulders and down your back, until his nose rests between your buttocks. When he pulls down your stylish panties, he buries his tongue between your ass cheeks and tries to make his way to your pussy.'
 				'The other girl is still a bit baffled by what is happening, and awkwardly holds your boobs in her hands while she looks like she''s trying to figure out what to do. Then she decides to just go along with it, and kisses your lips carefully. Her hands are roving your body more and more enthusiastically after a while, kneading your boobs and rolling your nipples between her fingers while the photographer licks your pussy from behind. Your hands, in turn, are on the girl''s ass, pulling her closer to you.'
 				'Feeling that you''re close to an orgasm, you let go of the girl and lean back towards the photographer, making him lick you to completion. With a satisfied moan you cum on his mouth, while you kiss the girl happily. Then the photographer stands up and suggests: "So, girls... how about we continue this in the locker room?"'
-
+				$orgasm_or = 'yes'
+				gs 'arousal', 'cuni', 15, 'dom', 'group'
+				gs 'arousal', 'kiss', 15, 'lesbian', 'group'
+				gs 'arousal', 'foreplay', 15, 'lesbian', 'group'
+				gs 'arosual', 'cuni_give', 15, 'lesbian', 'group'
+				minut -= 15
+				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'
 				end
 
@@ -87,7 +98,6 @@ if $ARGS[0] = 'var1':
 		act 'Agree to do the shoot':
 			cla
 			*clr
-			minut += 90
 			money += 2500
 			'<center><img src="images/locations/city/citycenter/photo/photoshoot/f4.jpg"></center>'
 			'"It''s only for abroad, right?" you check. When the photographer nods with a hopeful look in her eyes, you shrug. You could use the money!'
@@ -97,6 +107,11 @@ if $ARGS[0] = 'var1':
 			'"Slow down a bit, girls!" the photographer laughs, when you''re really starting to get involved in the shoot. Without even realizing it, you were on your knees, licking the other girl''s pussy eagerly. Following the photographer''s guidance, she takes several amazing pictures while she tells you what to do and how to act.'
 			'When you take a breather, she gives the other girl a dildo saying: "Okay, for the next part, you''re going to need this." Then she looks at you and adds: "You, get on your knees."'
 
+			gs 'arousal', 'cuni_give', 15, 'lesbian'
+			gs 'arousal', 'kiss', 15, 'lesbian'
+			minut -= 15
+			gs 'stat'
+			
 			act 'Get down on your knees':
 				cla
 				*clr
@@ -106,6 +121,9 @@ if $ARGS[0] = 'var1':
 				'The other girl slides the dildo inside you, and you moan and writhe in front of the camera while the other girl fucks your pussy skilfully with the dildo, hitting all the right spots. She''s definitely done this before!'
 				'After a while, the clicks from the camera stop. When you open your eyes and look behind you, you see that the photographer has her hand on the dildo now! She kisses the other girl softly, with a serene smile on her face: "I got all the shots I wanted... now it''s time for me to have some fun! Being a photographer is tough, you know... I need to unwind from time to time!"'
 
+				gs 'arousal', 'vaginal_dildo', 35, 'lesbian', 'group'
+				gs 'stat'
+				
 				act 'Change position':
 					cla
 					*clr
@@ -116,6 +134,13 @@ if $ARGS[0] = 'var1':
 					'The three of you lay exhaustedly on the floor, and only slowly get up. While the three of you put your clothes back on, the other girl tells the photographer: "That was great! I loved how feisty this one was... same time next week?"'
 					'The photographer laughs as she gives you your pay check, and tells her friend: "Absolutely! I love my job..."'
 
+					gs 'arousal', 'vaginal_dildo', 40, 'lesbian', 'group'
+					gs 'arousal', 'cuni', 40, 'lesbian', 'group'
+					gs 'arousal', 'cuni_give', 40, 'lesbian', 'group'
+					minut -= 40
+					gs 'arousal', 'end'
+					gs 'stat'
+				
 					act 'Leave the studio':gt 'down'
 				end
 			end
@@ -155,6 +180,9 @@ if $ARGS[0] = 'var2':
 		'She smiles happily and brings her camera back to her face, shooting several dozen more photos of you. She''s not giving you any more orders, letting you move as you wish and exposing as much of your body as you want.'
 		'At one point she sits down next to you, and carefully puts her hand on your exposed neck. "Fun time now!" she grins, and kisses you hard on your mouth while she puts the camera down.'
 
+		gs 'arousal', 'kiss', 5, 'lesbian'
+		gs 'stat'
+		
 		act 'Continue':
 			picrand = 22
 			xgt 'lezbsex', 'var'
@@ -199,6 +227,9 @@ if $ARGS[0] = 'var3':
 			'Now that he''s secured your services in exchange for money, he becomes a bit more confident: "Okay. Show me your vagina, please... I need to study it for a while, and memorize it for future art projects."'
 			'"You can look all you want!" you laugh, and part your legs for him after you take your clothes off. He lies down beside you, and carefully studies your sweet pussy. He caresses your labia with his fingers, teasing your clit ever so slightly and carefully slipping his finger inside you to see how that feels. You''re quite wet by the time he takes off his pants, exposing his erect cock. Time for you to work for your money!'
 
+			gs 'arousal', 'vaginal_finger', 10, 'prostitution'
+			gs 'stat'
+			
 			act 'Continue':
 				picrand = 81
 				gs 'npcgeneratec', 0, 'Shy Painter', rand(18,45)
@@ -286,11 +317,17 @@ if $ARGS[0] = 'var3':
 		else
 			'The girl becomes flirtier and flirtier while you chat, and she inches ever closer to you. She makes you lean back against the couch and pulls your clothes aside, baring your breasts. She moves her head closer to your chest, but stops a few inches before touching you. You can feel her warm breath tingling on your skin, and she looks as you with a confident smile on her lips. If you want her to stop, you''ll have to do something now.'
 
+			gs 'arousal', 'foreplay', 5, 'lesbian'
+			gs 'stat'
+			
 			act 'Straighten your clothes':
 				cla
 				'When you cough nervously and begin to straighten your clothes, the girl moves away and gets right back to chatting, as if nothing happened at all. She doesn''t appear to be upset with you, or if she is she does a very good job of hiding it.'
 				'Soon, the artist tells you that he is done. While he guides you to the door and gives you your money, the girl smiles: "Bye, <<$pcs_nickname>>! Maybe I''ll see you again some time!"'
 
+				gs 'arousal', 'end'
+				gs 'stat'
+				
 				act 'Leave the apartment':gt 'down'
 			end
 
@@ -302,6 +339,11 @@ if $ARGS[0] = 'var3':
 				'Suddenly you feel something pressing against your lips, and notice a very masculine smell filling your nostrils. When you open your eyes, you find yourself looking straight at the artist''s hard cock! Apparently he''s done with the painting, but is drawing a different kind of inspiration from his two muses right now.'
 				'You obediently part your lips and take the tip of the artist''s penis inside your mouth, caressing it with your tongue.'
 
+				gs 'arousal', 'cuni', 15, 'lesbian'
+				gs 'arousal', 'bj', 15
+				minut -= 15
+				gs 'stat'
+				
 				act 'Continue':
 					picrand = 31
 					gs 'npcgeneratec', 0, 'Painter', rand(18,45)
@@ -327,12 +369,18 @@ if $ARGS[0] = 'var3':
 		else
 			'You stand like that for quite some time, and the squeezing and kneading from the man becomes more and more insistent. By the end he is eagerly pawing your ass, right in front of his wife! When you look at her questioningly, she pretends that nothing is happening and continues to paint without paying any attention to you. Then, the man snakes his hand between your legs and gently caresses your pussy lips...'
 
+			gs 'arousal', 'foreplay', 15
+			gs 'stat'
+			
 			act 'Slap his hand away':
 				cla
 				money += 1200
 				'"Hey, stop that!" you tell the man, and you slap his hand away. The girl lets out a soft chuckle while her husband apologizes and rests his hand on your ass cheek again, behaving like a perfect gentleman now.'
 				'A few hours later, the girl smiles at you and says: "Thank you, you were a pleasure to work with! I''ll be sure to leave you a good review online", as the walks you to the door. She gives you the 1,000 <b>₽</b> she owes you when you''re at the door, and even adds 200 extra. "You''ll have to excuse my husband, he can get a bit frisky at times. I better go take care of him now!" she winks at you, and closes the door.'
 
+				gs 'arousal', 'end'
+				gs 'stat'
+				
 				act 'Leave the apartment':gt 'down'
 			end
 
@@ -345,6 +393,9 @@ if $ARGS[0] = 'var3':
 				'When he thrusts two fingers inside you and begins to fuck your pussy with them, you close your eyes and moan unashamedly, fully giving in to the pleasure he''s giving you. A few seconds later you hear her footsteps coming towards the two of you, and when you open your eyes you see her on her knees in front of her husband, sucking his cock obediently.'
 				'When you get up, the man immediately pulls you back towards him and returns one hand to your pussy, while he begins to kiss your breasts.'
 
+				gs 'arousal', 'vaginal_finger', 10
+				gs 'stat'
+				
 				act 'Continue':
 					picrand = 32
 					gs 'npcgeneratec', 0, 'Painter''s Husband', rand(18,45)

locations/rinok

@@ -49,10 +49,12 @@ if $ARGS[0] = 'start' or $metka = 'start':
 
 		if nurand >= 80:
 			pcs_mood -= 5
-			SUB += 1
-			pcs_horny += SUB
 			nudity += 1
 			'You feel someones hand gently touch <a href="exec:gt ''etoexhib'', ''pos15''">your butt</a>.'
+			
+			gs 'arousal', 'foreplay', 3
+			gs 'stat'
+			
 		end
 	end
 
@@ -60,6 +62,8 @@ if $ARGS[0] = 'start' or $metka = 'start':
 		cla
 		minut += 5
 		$metka = ''
+		gs 'arousal', 'end'
+		gs 'stat'
 		gt 'street'
 	end
 

locations/seeparentsex

@@ -11,13 +11,15 @@ act 'Leave':gt 'korrPar'
 
 $parBedroomCloseDoor = {
 	cla
-	pcs_horny += 20
-	minut += 5
 	npc_rel['A29'] -= 5
 	gs 'stat'
 	*nl
 	'Your mom realizes who''s peeking, and since the two of you are not getting along right now, she surprises your stepfather by saying "Wait, I think the door didn''t get closed all the way, hold that thought. We don''t want us to be seen by unwelcome eyes, now do we?"'
 	'She pulls away from him and you see his hard cock spring up and out, just before she hurries over to the door and closes it.'
+	
+	gs 'arousal', 'voyeur', 5, 'incest'
+	gs 'stat'
+	
 	act 'Leave':gt 'korrPar'
 }
 
@@ -25,7 +27,6 @@ if momslut >= 2 and npc_QW['A29'] >= 2:
 	act 'Mom notices you':
 		if npc_rel['A29'] >= 40:
 			cls
-			pcs_horny += 20
 			gs 'stat'
 			*pl $parBedroomTitle
 			'<center><img src="images/characters/pavlovsk/resident/mom/see.jpg"></center>'
@@ -34,12 +35,13 @@ if momslut >= 2 and npc_QW['A29'] >= 2:
 			'She''s careful not to look too much towards you, first looking at him, then appearing to look down at the floor, sneaking glances at you. "Ohhh, give it to me!  Yesss, pump it harder into me" she moans, as she grabs her breast and tugs on her nipple.'
 			'Her lust seems to also be enflamed by having you as her secret audience, and she pushes back against him, meeting his thrusts forcefully.'
 
+			gs 'arousal', 'voyeur', 5, 'incest'
+			gs 'stat'
+	
 			if pcs_horny >= 80:
 				act 'Show Mom some too':
 					if tanga = 0:
 						cls
-						pcs_horny = 10
-						minut += 15
 						gs 'stat'
 						*pl $parBedroomTitle
 						'<center><img src="images/locations/pavlovsk/resident/apartment/home/event/sisboyqw_26.jpg"></center>'
@@ -47,16 +49,24 @@ if momslut >= 2 and npc_QW['A29'] >= 2:
 						'Too horny to care, you quietly open the door a bit more, and you part your legs, and with both hands you pull your pussy lips apart, letting her see how swollen and wet you are.'
 						'You slide two fingers down the slickened slit, curling them to ease them inside your pussy, and drag them back up again, wetting your lips and clit even more with your warm lube.'
 						'Your Mom moans, and says "Yes, do that again, more!"  You''re not sure whether she meant that for you or him or both, but he pulled back and slammed fully into her even harder, and  you dipped your fingers back inside and spread some more juices all around your pink flower.'
+					
+						gs 'arousal', 'flash_pussy', 15, 'incest'
+						gs 'arousal', 'masturbate', 15
+						minut -= 15
+						gs 'stat'
 					else
 						cls
-						pcs_horny = 10
-						minut += 15
 						gs 'stat'
 						*pl $parBedroomTitle
 						'<center><img src="images/locations/pavlovsk/resident/apartment/home/event/sisboyqw_19.jpg"></center>'
 						*nl
 						'Too horny to care, you quietly open the door a bit more, and you part your legs, and pull the crotch of your panties to the side and start stroking your clit and swollen pussy lips as you look from her eyes, to her ass, back to her eyes again.'
 						'Your Mom moans, and says "Yes, do that again, more!"  You''re not sure whether she meant that for you or him or both, but he pulled back and slammed fully into her even harder, as you strum faster, rubbing back and forth on your clit and swollen hood surrounding it.'
+					
+						gs 'arousal', 'flash_pussy', 15, 'incest'
+						gs 'arousal', 'masturbate', 15
+						minut -= 15
+						gs 'stat'
 					end
 
 					*nl
@@ -67,14 +77,14 @@ if momslut >= 2 and npc_QW['A29'] >= 2:
 					'He swats her ass one more time, plunging into her two more times, then he grunts as his hips buck and he erupts deep into her pussy.'					
 					'She looks back at you one more time, and looks at your hand, then your face.  Your pussy convulses as you strum hard and fast against your clit, feeling your climax take over as you can barely stand.'
 					'Your mom then arches her back, opening her mouth wide in a silent scream, panting as she hits her orgasm with you.'
-					
+					$orgasm_or = 'yes'
+					gs 'arousal', 'end'
+					gs 'stat'
 					act 'Leave':gt 'korrPar'
 				end
 			elseif pcs_horny >= 50:
 				act 'Watch and play':
 					cls
-					pcs_horny = 10
-					minut += 10
 					gs 'stat'
 					*pl $parBedroomTitle
 					'<center><img src="images/characters/pavlovsk/resident/mom/see.jpg"></center>'
@@ -86,13 +96,16 @@ if momslut >= 2 and npc_QW['A29'] >= 2:
 					'The whole scene is making you even more wet and hungry for your climax, and you beat your fingers back and forth, faster and harder, getting ready to come, too.'
 					'He swats her ass one more time, plunging into her two more times, then he grunts as his hips buck and he erupts deep into her pussy.  Your mom arches her back, opening her mouth wide in a silent scream, panting as she hits her orgasm with him.'
 					'Your pussy convulses as you strum hard and fast against your clit, feeling your climax take over as you can barely stand.'
+					$orgasm_or = 'yes'
+					gs 'arousal', 'masturbate', 10
+					gs 'arousal', 'end'
+					gs 'stat'
+					
 					act 'Leave':gt 'korrPar'
 				end
 			else
 				act 'Stay and watch':
 					cls
-					pcs_horny += 10
-					minut += 15
 					gs 'stat'
 					*pl $parBedroomTitle
 					'<center><img src="images/characters/pavlovsk/resident/mom/see.jpg"></center>'
@@ -100,7 +113,9 @@ if momslut >= 2 and npc_QW['A29'] >= 2:
 					'You stay for a while and watch. You can''t help but get a bit more aroused, seeing how much your mother is enjoying the rough pounding she''s receiving from your stepfather.'
 					'But, you''re not feeling horny enough right now to do anything else, and you don''t stay and watch them finish.'
 					'Your mom looks back at the door as you close it and prepare to leave, grinning.'
-					
+					gs 'arousal', 'voyeur', 10, 'incest'
+					gs 'arousal', 'end'
+					gs 'stat'
 					act 'Leave':gt 'korrPar'
 				end
 			end
@@ -114,8 +129,6 @@ elseif momslut < 2 and npc_QW['A29'] >= 2:
 	act 'She knows you''re watching':
 		if npc_rel['A29'] >= 40:
 			cls
-			pcs_horny += 20
-			minut += 15
 			momslut += 1
 			gs 'stat'
 			*pl $parBedroomTitle
@@ -125,6 +138,10 @@ elseif momslut < 2 and npc_QW['A29'] >= 2:
 			'She looks at your stepfather, whose eyes are closed as he enjoys the moment. She looks back at the doorway, biting her lower lip as if trying to decide whether to continue or find a reason to stop.'
 			'Her lust takes over, and she moans "Keep going, keep doing just what you''re doing!" as she looks back towards the wall.'
 			'Not knowing whether she meant that for you, or him, or both, you stay for a while and watch. You can''t help but get more aroused, seeing how much your mother is enjoying the rough pounding she''s receiving from your stepfather while knowing one of her children is seeing her like this.'
+			gs 'arousal', 'voyeur', 15, 'incest'
+			gs 'arousal', 'end'
+			gs 'stat'
+		
 			act 'Leave':gt 'korrPar'
 		else
 			dynamic $parBedroomCloseDoor
@@ -135,11 +152,14 @@ elseif momslut < 2 and npc_QW['A29'] >= 2:
 elseif pcs_horny >= 50:	
 	act 'Stay and watch':
 		cla
-		pcs_horny += 10
-		minut += 15
 		gs 'stat'
 		*nl
 		'Making sure they don''t notice you, you stay for a while and watch. You can''t help but get a bit more aroused, seeing how much your mother is enjoying the rough pounding she''s receiving from your stepfather.'
+		
+		gs 'arousal', 'voyeur', 15, 'incest'
+		gs 'arousal', 'end'
+		gs 'stat'
+					
 		act 'Leave':gt 'korrPar'
 	end	
 end

locations/sexdvanadva

@@ -25,7 +25,6 @@ if $ARGS[0] = 'var':
 		sexvar += 1
 
 		if dvdvsxbj = 0:
-			stat['bj'] += 1
 			dvdvsxbj = 1
 		end
 
@@ -55,7 +54,6 @@ if $ARGS[0] = 'var':
 		sexvar += 1
 
 		if dvdvsxsex = 0:
-			stat['vaginal'] += 1
 			dvdvsxsex = 1
 		end
 
@@ -85,7 +83,6 @@ if $ARGS[0] = 'var':
 		sexvar += 1
 
 		if dvdvsxanal = 0:
-			stat['anal'] += 1
 			dvdvsxanal = 1
 		end
 
@@ -103,12 +100,10 @@ if $ARGS[0] = 'var':
 		sexvar += 1
 
 		if dvdvsxsex = 0:
-			stat['vaginal'] += 1
 			dvdvsxsex = 1
 		end
 
 		if dvdvsxanal = 0:
-			stat['anal'] += 1
 			dvdvsxanal = 1
 		end
 
@@ -151,7 +146,6 @@ if $ARGS[0] = 'end':
 	sexvar = 0
 
 	if pcs_horny >= 80:
-		pcs_horny = 0
 		$orgasm_or = 'yes'
 	end
 

locations/sexdvoe

@@ -76,7 +76,6 @@ if $ARGS[0] = 'sex':
 		dynamic $stamina_npc
 
 		if dvsxbj = 0:
-			stat['bj'] += 1
 			dvsxbj = 1
 		end
 		
@@ -105,12 +104,10 @@ if $ARGS[0] = 'sex':
 		dynamic $stamina_npc
 
 		if dvsxsex = 0:
-			stat['vaginal'] += 1
 			dvsxsex = 1
 		end
 
 		if dvsxanal = 0:
-			stat['anal'] += 1
 			dvsxanal = 1
 		end
 
@@ -156,12 +153,10 @@ if $ARGS[0] = 'sex':
 		dynamic $stamina_npc
 
 		if dvsxbj = 0:
-			stat['bj'] += 1
 			dvsxbj = 1
 		end
 
 		if dvsxsex = 0:
-			stat['vaginal'] += 1
 			dvsxsex = 1
 		end
 
@@ -208,12 +203,10 @@ if $ARGS[0] = 'sex':
 		dynamic $stamina_npc
 
 		if dvsxbj = 0:
-			stat['bj'] += 1
 			dvsxbj = 1
 		end
 
 		if dvsxanal = 0:
-			stat['anal'] += 1
 			dvsxanal = 1
 		end
 

locations/sexorg

@@ -18,7 +18,6 @@ if $ARGS[0] = 'var':
 		sexvar += 1
 
 		if orsxbj = 0:
-			stat['bj'] += 1
 			orsxbj = 1
 		end
 
@@ -52,7 +51,6 @@ if $ARGS[0] = 'var':
 		sexvar += 1
 
 		if orsxsex = 0:
-			stat['vaginal'] += 1
 			orsxsex = 1
 		end
 
@@ -85,7 +83,6 @@ if $ARGS[0] = 'var':
 		*clr
 
 		if orsxanal = 0:
-			stat['anal'] += 1
 			pdsxanal = 1
 		end
 
@@ -105,17 +102,14 @@ if $ARGS[0] = 'var':
 		*clr
 
 		if orsxbj = 0:
-			stat['bj'] += 1
 			orsxbj = 1
 		end
 
 		if orsxsex = 0:
-			stat['vaginal'] += 1
 			orsxsex = 1
 		end
 
 		if orsxanal = 0:
-			stat['anal'] += 1
 			orsxanal = 1
 		end
 
@@ -134,7 +128,6 @@ if $ARGS[0] = 'var':
 	elseif sexorgrand = 6:
 		cla
 		*clr
-		pcs_horny += 10
 		sexvar += 1
 		'<center><img src="images/locations/city/citycenter/mall/bowling/sex/dp<<picrand>>.jpg"></center>'
 		'Her expression of bliss and loud utterances leave no doubt in your mind: Having her ass and pussy filled at the same time has sent this girl straight to heaven and while you watch on in jealousy, you have no other choice than to rub your clit and wait your turn.'

locations/therapist

@@ -219,7 +219,6 @@ end
 
 
 if $ARGS[0] = 'hypnoSuck':
-	minut += 20
 	if sound = 0:PLAY 'sound/Rainstorm.mp3',10 & PLAY 'sound/Clock.mp3',20 & PLAY 'sound/sucking.mp3',200
 	cls
 	'<center><img width=500 src="images/locations/pavlovsk/clinic/therapist/sex/hypnoBlow<<rand(1,3)>>.gif"></center>'
@@ -233,6 +232,10 @@ if $ARGS[0] = 'hypnoSuck':
 	'"Come on, <i>Cunt</i>, cum now!" he groans, still shooting spurt after spurt of warm cum down your throat.'
 	'His order is all you need - it pushes you over the edge and you scream around his cock as it is throbbing in your mouth.'
 	'He waits for you to lick him clean then starts to dress himself.'
+	
+	gs 'arousal', 'bj', 20, 'sub'
+	gs 'stat'
+	
 	if hypnoTime < 10:
 		'"Get dressed, <i>Cunt</i>. Do it erotically, as much as you can."'
 		'He watches you getting dressed with a small smile in his face.</font>'
@@ -247,19 +250,16 @@ if $ARGS[0] = 'hypnoSuck':
 		bedpanty = 1
 	end
 	'<center><img width=300 src="images/locations/pavlovsk/clinic/therapist/dressup.gif"></center>'
-	pcs_horny = 0
-	orgasm += 1
-	stat['hidden_bj'] += 1
+	$orgasm_or = 'yes'
+	gs 'arousal', 'end'
 	gs 'stat'
 	act 'Wake up':gt 'therapist', 'hypnoEnd'
 end
 
 
 if $ARGS[0] = 'hypnoFuck':
-	minut += 20
 	if sound = 0:PLAY 'sound/Rainstorm.mp3',10 & PLAY 'sound/Clock.mp3',20 & PLAY 'sound/sex<<rand(1,3)>>.mp3',100
 	cls
-	sub += 1
 	$cumdesciption3 = 'cum filled pussy'
 	$cumdesciption2 = 'pussy is full with fresh sperm, leaking out of you'
 	gs 'cum_call', 0, 'A186', 2, 0, 15000, 60
@@ -291,6 +291,10 @@ if $ARGS[0] = 'hypnoFuck':
 	if pcs_vag = 0:pain['vaginal'] +=5 & pcs_vag += 1 & 'You feel a sharp pain as your <i>Master</i> pushes through your maidenhead, taking it away. He doesn''t seem to care about it, he just pushes himself deeper in your unexplored depths, enjoying himself immensly.'
 	$hypnofuck2
 	'"Oh yes, my little <i>Cunt</i>, I am so close! I will blow a huge wad of sperm in your beautiful pussy! And you won''t even know about it!"<br>He finally groans, jabbing his hips deep, jetting all of his sperm as deep in your pussy as he possibly can.<br>"Cum, little <i>Cunt</i>, suck all of my seed deep in your body!"'
+	
+	gs 'arousal', 'vaginal', 20, 'sub'
+	gs 'stat'
+		
 	if randpos <= 1:
 		'<center><img width=300 src="images/locations/pavlovsk/clinic/therapist/sex/Creampie1.gif"></center>'
 	elseif randpos = 2:
@@ -314,19 +318,16 @@ if $ARGS[0] = 'hypnoFuck':
 		bedpanty = 1
 	end
 	'<center><img width=300 src="images/locations/pavlovsk/clinic/therapist/dressup.gif"></center>'
-	pcs_horny = 0
-	orgasm += 1
-	stat['hidden_vaginal'] += 1
+	$orgasm_or = 'yes'
+	gs 'arousal', 'end'
 	gs 'stat'
 	act 'Wake up':gt 'therapist', 'hypnoEnd'
 end
 
 
 if $ARGS[0] = 'hypnoAnal':
-	minut += 20
 	if sound = 0:PLAY 'sound/Rainstorm.mp3',10 & PLAY 'sound/Clock.mp3',20 & PLAY 'sound/sex<<rand(1,3)>>.mp3',100
 	cls
-	sub += 1
 	$cumdesciption3 = 'cum filled ass'
 	$cumdesciption2 = 'ass is full of fresh sperm, slowly leaking out of you'
 	gs 'cum_call', 'anus', 'A186', 2, 0, 15000, 60
@@ -354,6 +355,10 @@ if $ARGS[0] = 'hypnoAnal':
 	end
 	$hypnofuck2
 	'"Oh yes, my little <i>Cunt</i>, I am so close! I will blow a huge wad of sperm in your beautiful ass! And you won''t even know about it!"<br>He finally groans, jabbing his hips deep, jetting all of his sperm as deep in your colon as he possibly can.<br>"Cum, little <i>Cunt</i>, suck all of my seed deep in your body!"'
+	
+	gs 'arousal', 'anal', 20, 'sub'
+	gs 'stat'
+		
 	if randpos <= 2:
 		'<center><img width=300 src="images/locations/pavlovsk/clinic/therapist/sex/CreampieA1.gif"></center>'
 	else
@@ -375,9 +380,8 @@ if $ARGS[0] = 'hypnoAnal':
 		bedpanty = 1
 	end
 	'<center><img width=300 src="images/locations/pavlovsk/clinic/therapist/dressup.gif"></center>'
-	pcs_horny = 0
-	orgasm += 1
-	stat['hidden_anal'] += 1
+	$orgasm_or = 'yes'
+	gs 'arousal', 'end'
 	gs 'stat'
 	act 'Wake up':gt 'therapist', 'hypnoEnd'
 end

locations/vanrPar

@@ -93,10 +93,14 @@ if $ARGS[0] = 'stepdad_sex':
 	'Your step-father climbs in the shower with you, as soon as he is undressed. He is roughly groping at your body. Suddenly he spins you around and you find yourself pressed up against the cold tiled wall. You spread your feet a little wider as you feel his fingers grope at the inside of your thighs, searching, teasing your asshole on their way lower. You are already treacherously wet, and bite your lips to stop yourself from moaning when his fingers find your dripping pussy, you expect more teasing but the fingers are immediately replaced by his hard throbbing member.'
 	stepdadqw += 1
 	hadsexwithfather = 1
+	
+	gs 'arousal', 'foreplay', 5
+	gs 'arousal', 'vaginal_finger', 5
+	minut -= 5
+	gs 'stat'
 	act 'Hey, what about a condom?':
 		cla
 		*clr
-		stat['vaginal'] += 1
 		pcs_vag += 1
 		cumprecheck = 1
 		gs 'cum_call', '', 'A28', 1
@@ -109,6 +113,10 @@ if $ARGS[0] = 'stepdad_sex':
 		'You bite your lips to keep quiet and not voice more concerns, like pulling out doesn''t work all the time or at all. Still you really want to have him inside of you despite the risk. So you just moan in agreement as you feel his strong hard member finally make it''s way into your vagina. He enters you slowly at first, with very gentle thrusts, but after a few moments with a sharp powerful move you feel him go in balls deep, causing your eyes to roll back into your head from the pleasure. Looks like your constant teasing is finally paying off, you think giggling hysterically. Soon your giggles turn into more moans as you are being fucked into the cold tiled wall, squashed by your stepfather''s powerful thrusts and heavy body. You feel his hot breath on the back of your neck as his thrusts increase in speed and power, he''s clearly intending to show you who''s the boss. And it turns out you don''t mind at all, soon you turn into a little moaning bitch, groaning under him and moving your hips as much as you can, searching, wanting more. You don''t think you will last much longer. After all, the pounding the stepfather has been giving you is very fast paced. You finally climax, you feel warmth spread all over your body, and your fingers and toes curl in satisfaction. Your sweet moans help your stepfather cum too, he pulls out and spills his seed all over your ass.'
 		'He exhales wearily, wiping sweat from his forehead, "Thanks, <<$pcs_nickname>>." he says.'
 		'And then gives you a good hard slap on the ass before exiting the shower, getting dressed and leaving you alone in the bathroom. Oh well, it looks like you have to shower again.'
+		
+		gs 'arousal', 'vaginal', 15, 'rough'
+		gs 'stat'
+		
 		gs 'vanrPar', 'stepdad_sex_end'
 	end
 	act 'Just don''t come inside me!':
@@ -125,12 +133,15 @@ if $ARGS[0] = 'stepdad_sex':
 		'Removing the member at last, the stepfather scratched his head sheepishly and started making excuses:'
 		'"I''m sorry, dear, the devil made me do it. I completely forgot. Don''t worry, nothing will come of it, everything will be fine!"'
 		'The bastard had the audacity to smirk at you with a cocky cat-who-ate-the-canary grin. Old fart! Frowning and mad, you pushed him with his clothes out of the bathroom. Now you have to wash once more because you have cum dripping down your legs.'
+		
+		gs 'arousal', 'vaginal', 15, 'rough'
+		gs 'stat'
+		
 		gs 'vanrPar', 'stepdad_sex_end'
 	end
 	act 'Fuck me!':
 		cla
 		*clr
-		stat['vaginal'] += 1
 		pcs_vag += 1
 		cumprecheck = 1
 		gs 'cum_call', '', 'A28', 1
@@ -141,19 +152,25 @@ if $ARGS[0] = 'stepdad_sex':
 		'But he is in no hurry. He takes his time, thrusting confidently and slowly, savouring every inch of your narrow little slit, making you moan and beg for more. Gradually the thrust become faster and faster, harder and harder until it starts to feel like he is literally tearing you apart. Looks like your constant teasing is finally paying off, you think giggling hysterically. Soon your giggles turn into more moans as you are being fucked into the cold tiled wall, squashed by your stepfather''s powerful thrusts and heavy body. You feel his hot breath on the back of your neck as his thrusts increase in speed and power, he''s clearly intending to show you who''s the boss. And it turns out you don''t mind at all, soon you turn into a little moaning bitch, groaning under him and moving your hips as much as you can, searching, wanting more. You don''t think you will last much longer. After all, the pounding the stepfather has been giving you is very fast paced. You finally climax, you feel warmth spread all over your body, and your fingers and toes curl in satisfaction. Your sweet moans help your stepfather cum too, he suddenly pulls out and spills his seed in your asshole.'
 		'"Ffuh" he exhales wearily, wiping the sweat from his forehead, "Oh and I''d fuck you any time".'
 		'He says this sweetly, and you can''t help but smile, still basking in the glow of your powerful orgasm and almost sliding down the wall. After a couple of minutes stepdad leaves the shower and begins to get dressed. It looks lie you have to wash yet again.'
+		
+		gs 'arousal', 'vaginal', 15, 'rough'
+		gs 'stat'
+		
 		gs 'vanrPar', 'stepdad_sex_end'
 	end
 end
 
 if $ARGS[0] = 'stepdad_sex_end':
 	guy += 1
-	pcs_horny = 0
 	pcs_mood += 15
 	pcs_willpwr += 15
-	orgasm += 1
 	vaginalOrgasm += 1
 	if pcs_vag < dick: pcs_vag += 1
+	
+	$orgasm_or = 'yes'
+	gs 'arousal', 'end'
 	gs 'stat'
+		
 	act 'Wash again':
 		minut += 15
 		dynamic $showerdin

locations/vokmantoiev

@@ -123,6 +123,10 @@ if $ARGS[0] = 'toilet_event':
 					'You try and sneak a glance at his penis and succeed. It''s flacid, and a stream of urine is steadily flowing from it. When he''s done, he washes his hands before he leaves.'
 					'You wash the floor in the men''s room, and ponder whether you should move out for a minute when you hear a man loudly evacuate his bowels. You decide against it and just focus on finishing your cleaning work as fast as you can, doing your best to ignore the smell.'
 
+					gs 'arousal', 'voyeur', 3
+					gs 'arousal', 'end'
+					gs 'stat'
+					
 					act 'Leave':minut += 1 & gt 'vokzalGin'
 				end
 			end
@@ -143,6 +147,10 @@ if $ARGS[0] = 'toilet_event':
 					'You try and sneak a glance at his penis and succeed. It''s flacid, and a stream of urine is steadily flowing from it. He doesn''t wash his hands when he leaves... gross!'
 					'You wash the floor in the men''s room, and ponder whether you should move out for a minute when you hear a man loudly evacuate his bowels. You decide against it and just focus on finishing your cleaning work as fast as you can, doing your best to ignore the smell.'
 
+					gs 'arousal', 'voyeur', 3
+					gs 'arousal', 'end'
+					gs 'stat'
+					
 					act 'Leave':minut += 1 & gt 'vokzalGin'
 				end
 			end
@@ -163,6 +171,10 @@ if $ARGS[0] = 'toilet_event':
 					'You try and sneak a glance at his penis and succeed. It''s flacid, and a stream of urine is steadily flowing from it. He doesn''t wash his hands when he leaves.'
 					'You wash the floor in the men''s room, and ponder whether you should move out for a minute when you hear a man loudly evacuate his bowels. You decide against it and just focus on finishing your cleaning work as fast as you can, doing your best to ignore the smell.'
 
+					gs 'arousal', 'voyeur', 3
+					gs 'arousal', 'end'
+					gs 'stat'
+					
 					act 'Leave':minut += 1 & gt 'vokzalGin'
 				end
 			end