Explorar el Código

Arousal seeding by Blatte

KevinSmarts hace 7 años
padre
commit
449e7a8c60
Se han modificado 10 ficheros con 620 adiciones y 315 borrados
  1. 38 29
      locations/AnalPR
  2. 122 57
      locations/BDsex
  3. 66 41
      locations/HotelWork
  4. 80 26
      locations/LCwork
  5. 59 52
      locations/bed1
  6. 66 41
      locations/cafe3
  7. 9 4
      locations/down
  8. 48 48
      locations/kafeend
  9. 41 17
      locations/kino
  10. 91 0
      locations/npcstatic4

+ 38 - 29
locations/AnalPR

@@ -5,12 +5,8 @@ if $ARGS[0] = '1':
 	$loc = $CURLOC
     $location_type = 'event'
 
-	cla
-	clr
-	*clr
-	minut = minut + 1
+	cls
 	prosti = 0
-	stat['anal'] += 1
 	money += ProsMoney*100
 	analprotect = 1
 	gs'stat'
@@ -22,11 +18,15 @@ if $ARGS[0] = '1':
 	if pcs_ass < dick:
 		fun = 0
 		$analsex = 'Your anus stretches painfully while he fills your ass with his shaft, and you wince and beg him to take it easy for a little while. Fortunately, he listens. Once he feels he gave you enough time to adapt, he begins to move his hips. Slowly at first, but his thrusts accelerate more and more as he gets closer to his orgasm.'
+		gs 'arousal', 'anal', 20, 'rough', 'sub'
+		gs 'stat'
 	end
 
 	if pcs_ass >= dick:
 		pcs_horny = pcs_horny + pcs_ass
 		$analsex = 'Your anus has no difficulty adjusting to the size of his member, and it actually feels fairly pleasant when he shoves his length in. Your anus clasps around the base of his cock from time to time, and the man begins to thrust his hips against yours enthusiastically when he notices you can take it.'
+		gs 'arousal', 'anal', 20, 'sub'
+		gs 'stat'
 	end
 
 	'<center><img src="images/shared/sex/anal/doggy/anal30.jpg"></center>'
@@ -35,7 +35,10 @@ if $ARGS[0] = '1':
 	'After a few minutes of fucking your ass, 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.'
 	spafinloc = 3
+	gs 'arousal', 'anal', 20, 'sub'
+	gs 'arousal', 'end'
 	gs 'cum_manage'
+	gs 'stat'
 
 	act 'Continue':gt $locSex, $metkaSex
 end
@@ -45,10 +48,7 @@ if $ARGS[0] = '2':
 	$loc = $CURLOC
     $location_type = 'event'
 
-	cla
-	clr
-	*clr
-	minut = minut + 1
+	cls
 	prosti = 0
 	gs'stat'
 
@@ -59,10 +59,14 @@ if $ARGS[0] = '2':
 	if pcs_ass < dick:
 		fun = 0
 		$analsex = 'You feel a sharp pain and wince when the man pushes the tip of his <<dick>> centimeter member past your sphincter, and continues to work most of his length inside you. Fortunately, he listens when you beg him to go slow.<br>The guy holds still for a moment so your ass can get used to how far it''s being stretched out. After a little while you don''t think it''s going to get any better, and you tell the man he can start to fuck you with a forced, fake smile on your face.<br>He''s still careful at first, but soon forgets about your suffering and accelerates more and more. The man groans loudly while he hammers his cock inside your ass, ignoring your crying and mewling underneath him.'
+		gs 'arousal', 'anal', 20, 'rough', 'sub'
+		gs 'stat'
 	end
 	if pcs_ass >= dick:
 		pcs_horny = pcs_horny + pcs_ass
 		$analsex = 'Your anus has no difficulty adjusting to the size of his member, and it actually feels fairly pleasant when he shoves his length in. Your anus clasps around the base of his cock from time to time, and the man begins to thrust his hips against yours enthusiastically when he notices you can take it.'
+		gs 'arousal', 'anal', 20, 'sub'
+		gs 'stat'
 	end
 
 	picanRand = RAND(1,6)
@@ -74,7 +78,8 @@ if $ARGS[0] = '2':
 	if picanRand = 6:'<center><img src="images/shared/sex/anal/mis/cowl6.jpg"></center>'
 
 	'As soon as you lie down on the hood of the car, the man parts your legs and eagerly presses the tip of his cock against your anus.'
-
+	gs 'arousal', 'anal', 15, 'sub'
+	gs 'stat'
 	if klismaday ! daystart and analprotect = 0:act 'Continue':gt'AnalPR','3'
 
 	if klismaday = daystart:
@@ -82,37 +87,39 @@ if $ARGS[0] = '2':
 
 		cumanalRand = RAND(0,2)
 		if cumanalRand = 0:
-			anal = anal + 1
 			spafinloc = 4
 			gs 'cum_manage'
 
 			'Suddenly the man groans loudly, and abruptly pulls his member out of your stretched anus. The sudden emptiness feels strange, but you smile seductively at the man while he jerks himself off over your ass cheeks. When he''s done covering your buttocks with his seed, he lets out a satisfied sigh and gives you your money.'
-
+			gs 'arousal', 'anal', 15, 'sub'
+			gs 'arousal', 'end'
+			gs 'stat'
 			act 'Continue':gt $locSex, $metkaSex
 		elseif cumanalRand = 1:
-			stat['anal'] += 1
 			spafinloc = 7
 			gs 'cum_manage'
 
 			'Suddenly the man groans loudly, and abruptly pulls his member out of your stretched anus. The sudden emptiness feels strange, but you smile seductively at the man while he jerks himself off over your ass cheeks. Then the bastard suddenly aims his cock at your clothes, and shoots his load all over them!<br>You silently curse him, but force yourself to keep smiling as he lets out a satisfied sigh and gives you your money.'
-
+			gs 'arousal', 'anal', 15, 'sub'
+			gs 'arousal', 'end'
+			gs 'stat'
 			act 'Continue':gt $locSex, $metkaSex
 		elseif cumanalRand = 2:
-			stat['anal'] += 1
 			spafinloc = 3
 			gs 'cum_manage'
 
 			'Suddenly the man groans loudly, and he holds still with his cock deep inside you. Then he very slowly pulls out, and a trickle of his sperm slowly runs out of your slightly gaping ass.'
 			'He admires his work for a moment, before giving the money he owes you with a satisfied smile on his face.'
-
+			gs 'arousal', 'anal', 15, 'sub'
+			gs 'arousal', 'end'
+			gs 'stat'
 			act 'Continue':gt $locSex, $metkaSex
 		end
 	end
 end
 
 if $ARGS[0] = '3':
-	cla
-	*clr
+	cls
 	gs'stat'
 
 	'When the man stops, you think it''s because he came. Instead, you hear swearing.'
@@ -126,13 +133,11 @@ if $ARGS[0] = '3':
 end
 
 if $ARGS[0] = '4':
-	cla
-	*clr
+	cls
 	money += ProsMoney * 100
 	pcs_mood -= 30
 	pcs_health -= 30
 	pcs_willpwr -= 30
-	stat['bj'] += 1
 	pcs_throat += 1
 	gs'stat'
 
@@ -145,40 +150,44 @@ if $ARGS[0] = '4':
 	'He scoffs at you when he pulls away, while you roll to your stomach and dry heave a few times. That was disgusting!'
 	'He carelessly throws the money he owes you onto the ground and drives off, without saying another word.'
 	spafinloc = 12
+	gs 'arousal', 'bj', 10, 'sub', 'humiliation', 'rough', 'deepthroat'
+	gs 'arousal', 'end'
 	gs 'cum_manage'
+	gs 'stat'
 
 	act 'Continue':gt $locSex, $metkaSex
 end
 
 if $ARGS[0] = '5':
-	cla
-	*clr
-	stat['bj'] += 1
+	cls
 	pcs_throat += 1
 	gs'stat'
 
 	'<center><img src="images/shared/sex/blowjob/bjr1.jpg"></center>'
 	'You understand perfectly why he''s upset... that wasn''t very smart of you. You''ll have to think of a solution fast!'
 	'"I''m sorry, sir! Please allow me to make it up to you..." you tell him, while you drop to your knees obediently. This is going to be unpleasant, but you have to do something to keep him happy!'
-	'The man watches in disgust as you close your lips around his dirty cock. The taste and smell are awful! He''s still upset, but you can see his anger slowly fade away when you lick his dirty cock clean. It''s fully erect again by now, and you can tell he''s still very horny despite your mishap.'
+	'The man watches in disgust as you close your lips around his dirty cock. The taste and smell is awful! He''s still upset, but you can see his anger slowly fade away when you lick his dirty cock clean. It''s fully erect again by now, and you can tell he''s still very horny despite your mishap.'
 	'He then says: "Good enough. Lie down in the grass."'
-
+	gs 'arousal', 'bj', 10, 'sub', 'humiliation'
+	gs 'stat'
 	act 'Let him fuck you':gt'AnalPR','6'
 end
 
 if $ARGS[0] = '6':
-	cla
-	*clr
+	cls
 	pcs_vag = pcs_vag + 1
 	money += ProsMoney*110
 	gs'stat'
 
-	'<center><img src="images/locations/shared/sex/car/sexcar20.jpg"></center>'
+	'<center><img src="images/locations/shared/car/sexcar20.jpg"></center>'
 	'You lie down obediently, giving the man a humble look as he takes place between your legs. He quickly put a condom on, not taking any more chances with you. You still have that awful taste in your mouth, but do your best to focus on giving the man pleasure.'
 	'The man drives his cock deep inside you and begins to fuck your pussy using long, firm strokes. He groans every time his hips slap against yours, and the intensity with which he fucks you makes you cry out as well.'
 	'After a few minutes, 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.'
 	'While you lay on the grass, recovering from all the things you just had to do to not lose your customer, he theatrically throws a number of bills onto your body one by one. He''s smiling again, and is clearly in a good mood. He even added a little extra!'
+	gs 'arousal', 'vaginal', 20, 'sub', 'humiliation', 'rough'
+	gs 'arousal', 'end'
 	gs 'cum_manage'
+	gs 'stat'
 
 	act 'Continue':gt $locSex, $metkaSex
 end

+ 122 - 57
locations/BDsex

@@ -1,4 +1,5 @@
 # BDsex
+
 if $ARGS[0] = 'start':
 	!!range of interactions
 	!!gs 'BDsex', 'start'
@@ -21,10 +22,14 @@ if $ARGS[0] = 'start':
 		act 'Do anal':gt 'BDsex', 'anal2'
 	elseif harakBoy = 1:
 		'<<$boydesc>> skillfully caresses your breasts.'
+		gs 'arousal', 'foreplay', 5
+		gs 'stat'
 		brand = rand(0, 100)
 
 		if brand < 70:
 			'<<$boydesc>> strokes and caresses your pussy with his fingers.'
+			gs 'arousal', 'vaginal_finger', 10, 'sub'
+			gs 'stat'
 			trand = rand(0, 2)
 
 			if trand < 2:
@@ -40,6 +45,8 @@ if $ARGS[0] = 'start':
 			act 'Suck him':gt 'BDsex', 'minet'
 		else
 			'<<$boydesc>> asks you to suck his cock.'
+			gs 'arousal', 'bj', 20, 'sub'
+			gs 'stat'
 
 			act 'Stroke his cock':gt 'BDsex', 'hj'
 			act 'Take by mouth':gt 'BDsex', 'minet'
@@ -47,10 +54,14 @@ if $ARGS[0] = 'start':
 		end
 	elseif harakBoy = 2:
 		'<<$boydesc>> hugs you and passionately caress your breasts.'
+		gs 'arousal', 'foreplay', 5
+		gs 'stat'
 		brand = rand(0, 100)
 
 		if brand < 70:
 			'<<$boydesc>> caresses your pussy with his fingers.'
+			gs 'arousal', 'vaginal_finger', 10, 'sub'
+			gs 'stat'
 			trand = rand(0, 2)
 
 			if trand < 2:
@@ -74,7 +85,7 @@ if $ARGS[0] = 'start':
 
 			'<<$boydesc>> tells you that he wants to take you in the ass.'
 
-			act ' Do anal':gt 'BDsex', 'anal2'
+			act 'Do anal':gt 'BDsex', 'anal2'
 
 			if pcs_dom > 0:
 				act 'I do not want to! Lie on your back and spread your legs instead ':gt 'BDsex', 'sex'
@@ -86,21 +97,17 @@ if $ARGS[0] = 'start':
 end
 
 if $ARGS[0] = 'kuni':
-	minut += 15
-	pcs_dom += 1
-	stat['cuni'] += 1
-	pcs_horny += pcs_dom + (silaVag * 2 + 5)
-	gs 'stat'
 	'<center><img src="images/shared/sex/kuni/kuni.jpg"></center>'
 	'You undress and lay on the bed, bringing his face to your pussy.'
 	'<<$boydesc>> lays down between your legs and begins to work his tongue across your pussy.'
-
+	gs 'arousal', 'cuni', 15, 'dom'
+	gs 'stat'
 	if pcs_horny >= 90:
-		pcs_horny = 0
 		pcs_mood += 15
 		pcs_willpwr += 15
-		orgasm += 1
-		'His skill is enough to spark an orgasm deep within you.'
+		$orgasm_txt = 'His skill is enough to spark an orgasm deep within you.'
+		$orgasm_or = 'custom'
+		gs 'stat'
 	else
 		'His tongue work is exciting, but after awhile, you begin to grow bored.'
 	end
@@ -113,11 +120,11 @@ if $ARGS[0] = 'kuni':
 end
 
 if $ARGS[0] = 'sex':
-	!!missionary position
-	minut += 10
 	pose = 0
 	gs 'stat'
 	'<center><img src="images/shared/sex/vag/miss/vag.jpg"></center>'
+	gs 'arousal', 'vaginal', 10, 'sub'
+	gs 'stat'
 	gs 'BDsex', 'org'
 	givfinrand = rand(0, 10)
 
@@ -151,12 +158,12 @@ end
 
 
 if $ARGS[0] = 'sex2':
-	!cancer
-	minut += 10
 	pose = 1
 	gs 'stat'
 	picrand = rand(1, 5)
-	'<center><img src="images/shared/sex/vag/doggy/vagdog<<picrand>>.jpg"></center>'
+	'<center><img src="images/shared/sex/vag/doggy/vagcow<<picrand>>.jpg"></center>'
+	gs 'arousal', 'vaginal', 10, 'sub'
+	gs 'stat'
 	gs 'BDsex', 'org'
 	givfinrand = rand(0, 10)
 
@@ -190,19 +197,18 @@ end
 
 
 if $ARGS[0] = 'sex3':
-	!!to top
-	minut += 10
 	pose = 0
 	gs 'stat'
 	picrand = rand(1, 5)
 	'<center><img src="images/shared/sex/vag/cowgirl/vagcow<<picrand>>.jpg"></center>'
+	gs 'arousal', 'vaginal', 10, 'sub'
+	gs 'stat'
 	gs 'BDsex', 'org'
 	gs 'BDsex', 'cum'
 end
 
 if $ARGS[0] = 'anal':
-	!!missionary position
-	minut += 10
+	gs 'arousal', 'anal', 10, 'sub'
 	gs 'stat'
 	gs 'bdsex', 'an'
 	gs 'bdsex', 'ancum'
@@ -210,11 +216,10 @@ end
 
 
 if $ARGS[0] = 'anal2':
-	!!cancer
-	minut += 10
-	gs 'stat'
 	picrand = rand(1, 10)
 	'<center><img src="images/shared/sex/anal/doggy/anal2<<picrand>>.jpg"></center>'
+	gs 'arousal', 'anal', 10, 'sub'
+	gs 'stat'
 	gs 'bdsex', 'an'
 	givfinrand = rand(0, 10)
 
@@ -235,18 +240,18 @@ end
 
 
 if $ARGS[0] = 'anal3':
-	!!to top
+	gs 'arousal', 'anal', 10, 'sub'
+	gs 'stat'
 	gs 'bdsex', 'an'
 	gs 'bdsex', 'ancum'
 end
 
 if $ARGS[0] = 'hj':
 	!!handjob
-	stat['hj'] += 1
-	minut += 5
-	gs 'stat'
 	'<center><img src="images/shared/sex/cum/handjob/hand1.jpg"></center>'
 	'You take his <<dick>> centimeter penis and begin to caress the shaft, moving the skin over the crimson head.'
+	gs 'arousal', 'hj', 5
+	gs 'stat'
 	bjrand = rand(0, 100)
 
 	if bjrand >= 75:
@@ -262,16 +267,24 @@ if $ARGS[0] = 'hj':
 					protect = 0
 					if sexcontra = 4:
 						'<<$boydesc>> finishes, filling the condom with his hot and sticky cum, and then a slimy feeling. You realize that the condom burst.'
+						gs 'arousal', 'end'
+						gs 'stat'
 					elseif sexcontra = 5:
 						'<<$boydesc>> finishes, filling the condom with his hot and sticky cum. As he pulls out, you feel a ghostly sensation, as if he didn''t come all the way out. Looking down, you see his bare dick.'
+						gs 'arousal', 'end'
+						gs 'stat'
 					else
 						'<<$boydesc>> finishes, filling the condom with his hot and sticky cum.'
+						gs 'arousal', 'end'
+						gs 'stat'
 					end
 					sexcontra = 0
 				else
 					'<<$boydesc>> finishes, covering your hands in his hot and sticky cum.'
 					spafinloc = 13
 					sexpartkno = 1
+					gs 'arousal', 'end'
+					gs 'stat'
 					gs 'cum_manage'
 				end
 				act 'Leave':gt 'BDsex', 'end'
@@ -289,6 +302,8 @@ if $ARGS[0] = 'hj':
 
 			if brand < 70:
 				'<<$boydesc>> caresses your pussy with his fingers.'
+				gs 'arousal', 'vaginal_finger', 10, 'sub'
+				gs 'stat'
 				trand = rand(0, 2)
 
 				if trand < 2:
@@ -326,30 +341,34 @@ end
 
 if $ARGS[0] = 'minet':
 	!!blowjob
-	minut += 5
-	gs 'stat'
 	picrand = rand(24, 28)
 	'<center><img src="images/shared/sex/blowjob/bj<<picrand>>.jpg"></center>'
+	gs 'arousal', 'bj', 10, 'sub'
+	gs 'stat'
 	gs 'bdsex', 'autobj'
 	bjrand = rand(0, 100)
 
 	if bjrand >= 75:
 		if harakBoy = 0:
-			'<<$boydesc>> moaned, "I''m going to come."'
+			'<<$boydesc>> moans, "I''m going to come."'
 
 			act 'In the palm of your hand':
 				cla
 				*clr
-				'<center><img src="images/shared/sex/cum/handjob/hand2.jpg"></center>'
+				'<center><img src="images/shared/sex/cum/handjob/hand12.jpg"></center>'
 				if protect = 1: 
 					'<<$boydesc>> finishes, filling the condom with his cum.'
 					protect = 0
 					sexcontra = 0
+					gs 'arousal', 'end'
+					gs 'stat'
 				else
 					'<<$boydesc>> finished all over your hands covering them in hot and sticky cum.'
 					spafinloc = 13
 					sexpartkno = 1
-					gs 'cum_manage'
+					gs 'arousal', 'end'
+					gs 'stat'
+					gs 'cum_manage'					
 				end
 				act 'Leave':gt 'BDsex', 'end'
 			end
@@ -364,6 +383,8 @@ if $ARGS[0] = 'minet':
 
 			if brand < 70:
 				'<<$boydesc>> caresses your pussy with his fingers.'
+				gs 'arousal', 'vaginal_finger', 10, 'sub'
+				gs 'stat'
 				trand = rand(0, 2)
 
 				if trand < 2:
@@ -401,10 +422,14 @@ if $ARGS[0] = 'minet':
 					'<<$boydesc>> finishes, filling the condom with his cum.'
 					protect = 0
 					sexcontra = 0
+					gs 'arousal', 'end'
+					gs 'stat'
 				else
 					'<<$boydesc>> finished all over your hands covering them in hot and sticky cum.'
 					spafinloc = 13
 					sexpartkno = 1
+					gs 'arousal', 'end'
+					gs 'stat'
 					gs 'cum_manage'
 				end
 				act 'Leave':gt 'BDsex', 'end'
@@ -473,7 +498,7 @@ if $ARGS[0] = 'end':
 		pcs_makeup = 1
 		dynamic $showerdin
 		'<center><img src="images/shared/home/bathroom/dush.jpg"></center>'
-		'You go into the bathroom and turn on the shower,  lathering body and washing as well as you can.'
+		'You go into the bathroom and turn on the shower, lathering body and washing as well as you can.'
 		act 'Leave':dynamic $brodilr
 	elseif harakBoy = 1:
 		cumspclnt = 4
@@ -524,10 +549,11 @@ if $ARGS[0] = 'org':
 
 	if mesec > 0:
 		!!periods, orgasm is not possible
-		pcs_horny = 0
 		pcs_mood -= 10
 		pcs_willpwr -= 10
 		'It is your time of the month and, as his member rams into you, vaginal blood flows slowly around his girth. Painful sensations and pleasure mix. You moan while his strong <<dick>> centimeter dick fucks your pussy.'
+		$orgasm_or = 'no'
+		gs 'stat'
 	elseif mesec <= 0 and pcs_vag > 0:
 		!!no monthly
 		!!horny - excitement
@@ -603,57 +629,63 @@ if $ARGS[0] = 'org':
 		end
 
 		if orgazm = 0:
-			pcs_horny = 0
 			pcs_mood -= 15
 			pcs_willpwr -= 15
 			'You groan in pain when <<$boydesc>> enters you, tears flowing from your eyes as a you endure the feeling of driving a red-hot rod between your legs. You cry and moan while his strong <<dick>> centimeter dick fucks your pussy.'
+			gs 'arousal', 'vaginal', 15, 'sub'
+			gs 'stat'
 		elseif orgazm = 1:
-			pcs_horny -= 10
 			pcs_mood -= 10
 			pcs_willpwr -= 10
 			'You bite your lip in pain when <<$boydesc>> enters you, a twinge of pain between your legs. Frowning, you moan in in pain while his strong <<dick>> centimeter dick fucks your pussy.'
+			gs 'arousal', 'vaginal', 15, 'sub'
+			gs 'stat'
 		elseif orgazm = 2:
-			pcs_horny -= 5
 			pcs_mood -= 5
 			pcs_willpwr -= 5
 			'You wince at the sudden pain when <<$boydesc>> enters you, the pain between your legs gradually calms and becomes quite tolerable. You try to get aroused while his strong <<dick>> centimeter dick fucks your pussy, but it is not enough.'
+			gs 'arousal', 'vaginal', 15, 'sub'
+			gs 'stat'
 		elseif orgazm = 3:
-			!!pcs_horny += 5
 			pcs_mood += 5
 			pcs_willpwr += 5
 			'You are startled by the feeling as your pussy is stretched when <<$boydesc>> enters you. A shiver of pleasure starts from between your legs and travels up your spine as each stroke of his <<dick>> centimeter fucks into your pussy.'
+			gs 'arousal', 'vaginal', 15, 'sub'
+			gs 'stat'
 		elseif orgazm = 4:
-			!!pcs_horny += 10
 			pcs_mood += 10
 			pcs_willpwr += 10
 			'You are startled by the feeling as your pussy is stretched when <<$boydesc>> enters you. A shiver of pleasure starts from between your legs and travels up your spine as each stroke of his <<dick>> centimeter fucks into your pussy. Gradually a pleasant warmth and ripple grows in the lower abdomen, but the feeling never peaks, instead decreasing in strength even as it remains with you until the end.'
+			gs 'arousal', 'vaginal', 15, 'sub'
+			gs 'stat'
 		elseif orgazm = 5:
-			pcs_horny = 0
 			pcs_mood += 15
 			pcs_willpwr += 15
-			orgasm += 1
 			'You gasp at the feeling as your pussy spreads for his dick. Your groin becomes very warm and pleasant, when his strong <<dick>> centimeter dick hammers your pussy. Gradually the pleasant warmth ripples in your lower abdomen and then the feeling intensifies and your whole body tenses as the hot waves of orgasm rush over you. You can not help screaming in pleasure as you writhe under the sensation.'
+			gs 'arousal', 'vaginal', 15, 'sub'
+			$orgasm_or = 'yes'
+			gs 'stat'
 		elseif orgazm = 6:
-			pcs_horny += 5
 			pcs_mood += 5
 			pcs_willpwr += 5
 			'You feel every inch as his member enters your pussy when <<$boydesc>> slides home. It is a pleasant feeling, but his dick is significantly smaller than you prefer and <<dick>> inches is not enough for you. Gradually, a pleasant ripples grows in your lower abdomen, but the feeling never rises to true orgasm.'
+			gs 'arousal', 'vaginal', 15, 'sub'
+			gs 'stat'
 		end
 
 		if pcs_vag <= dick:pcs_vag += 1
 	elseif pcs_vag = 0 and mesec <= 0:
-		pcs_horny = 0
 		pcs_mood -= 15
 		pcs_willpwr -= 15
-		pcs_vag += 1
 		'You bite your lip in pain and tears gush from your eyes when <<$boydesc>> enters you, breaking your hymen. You moan while weeping as his strong <<dick>> centimeter dick fucks your bloody pussy.'
+		gs 'arousal', 'vaginal', 15, 'sub', 'rough'
+		gs 'stat'
 	end
 
 	if pcs_vag < dick:pcs_vag += 1
 	cumprecheck = 1
 	sexpartkno = 1
 	gs 'cum_manage'
-	stat['vaginal'] += 1
 end
 
 if $ARGS[0] = 'cum':
@@ -665,7 +697,8 @@ if $ARGS[0] = 'cum':
 			sexpartkno = 1
 			gs 'cum_manage'
 			'<<$boydesc>> groans and you feel each jet of sperm paint the walls of your womb with seed.'
-
+			gs 'arousal', 'end'
+			gs 'stat'
 			pcs_mood -= 15
 			pcs_willpwr -= 15
 			gs 'cuminsidereact'
@@ -676,21 +709,31 @@ if $ARGS[0] = 'cum':
 				sexpartkno = 1
 				gs 'cum_manage'
 				'<<$boydesc>> shouts, pulling out to finish on your stomach.'
+				gs 'arousal', 'end'
+				gs 'stat'
 			elseif pose = 1:
 				spafinloc = 4
 				sexpartkno = 1
 				gs 'cum_manage'
 				'<<$boydesc>> shudders, pulling out just in time to paint your ass white with semen.'
+				gs 'arousal', 'end'
+				gs 'stat'
 			end
 		end
 	elseif protect = 1:
 		protect = 0
 		if sexcontra = 4:
 			'<<$boydesc>> groans and you feel heat building deep inside, and then a slimy feeling. You realize that the condom burst.'
+			gs 'arousal', 'end'
+			gs 'stat'
 		elseif sexcontra = 5:
 			'<<$boydesc>> groans and you feel heat building deep inside. As he pulls out, you feel a ghostly sensation, as if he didn''t come all the way out. Looking down, you see his bare dick.'
+			gs 'arousal', 'end'
+			gs 'stat'
 		else
 			'<<$boydesc>> groans and you feel heat building deep inside. You realize that he has filled the condom.'
+			gs 'arousal', 'end'
+			gs 'stat'
 		end
 		sexcontra = 0
 	end
@@ -699,18 +742,23 @@ if $ARGS[0] = 'cum':
 end
 
 if $ARGS[0] = 'autobj':
-	stat['bj'] += 1
 	'You little fingers caress his <<dick>> centimeter shaft before you take the head into your mouth and began to suck.'
-
+	gs 'arousal', 'hj', 5, 'sub'
+	gs 'stat'
 	if harakBoy = 0:
 		'<<$boydesc>> closes his eyes in pleasure, enjoying the caress of your lips.'
+		gs 'arousal', 'bj', 5, 'sub'
+		gs 'stat'
 	elseif harakBoy = 1:
 		'<<$boydesc>> stares expectingly at you until your lips glide over his hard dick.'
+		gs 'arousal', 'bj', 5, 'sub'
+		gs 'stat'
 	elseif harakBoy = 2:
 		if pcs_makeup > 1:pcs_makeup = 0
 		pcs_hairbsh = 0
-		pcs_throat += 1
 		'<<$boydesc>> grabs your hair and begins to fuck your mouth roughly, each thrust is strikes against your throat as tears flow from your eyes.'
+		gs 'arousal', 'bj', 5, 'sub', 'rough'
+		gs 'stat'
 	end
 
 	pcs_horny += pcs_throat + SUB + VAF - pcs_dom
@@ -718,12 +766,13 @@ if $ARGS[0] = 'autobj':
 
 	if pcs_horny >= 100:
 		VAF += 1
-		orgasm += 1
-		pcs_horny = 20
 		pcs_mood += 15
 		pcs_willpwr += 15
 
 		'As you suck the dick before you, a fire smoulders between your legs, building into a conflagration of orgasm. you moan around the cock in your mouth, never once slowing your pace.'
+		gs 'arousal', 'bj', 5, 'sub'
+		$orgasm_or = 'yes'
+		gs 'stat'
 	end
 
 	!!'Finally <<$boydesc>> groans and you realize that he is at his limit.'
@@ -746,6 +795,8 @@ if $ARGS[0] = 'an':
 		lubonus = 15
 		analplugin = 0
 		'<<$boydesc>> pulls the plug out of your narrow and tight ass.'
+		gs 'arousal', 'anal_dildo', 15, 'sub'
+		gs 'stat'
 	end
 
 	if dick < pcs_ass:pcs_ass += 1
@@ -753,10 +804,14 @@ if $ARGS[0] = 'an':
 	if lubri = 0:
 		lubonus = 2
 		'You have no lube, forcing <<$boydesc>>  to spit on on his fingers, using saliva to lubricate your ass.'
+		gs 'arousal', 'anal_finger', 5, 'sub'
+		gs 'stat'
 	elseif lubri > 0:
 		lubri -= 1
 		lubonus = 10
 		'You take a tube of lubricant and hand it to the guy, watching as he he squeezes a little on his palm and rubs your anus.'
+		gs 'arousal', 'anal_finger', 5, 'sub'
+		gs 'stat'
 	end
 
 	if lubonus = 0:
@@ -764,14 +819,19 @@ if $ARGS[0] = 'an':
 			lubri -= 1
 			lubonus = 10
 			'You take a tube of lubricant and hand it to the guy, watching as he he squeezes a little on his palm and rubs your anus.'
+			gs 'arousal', 'anal_finger', 5, 'sub'
+			gs 'stat'
 		else
 			lubonus = 2
 			'You do not have any lubricant so <<$boydesc>> spits on his fingers and uses saliva to lubricate your ass.'
+			gs 'arousal', 'anal_finger', 5, 'sub'
+			gs 'stat'
 		end
 	end
 
 	'<<$boydesc>> lays you on your stomach on the bed, spreading your ass apart as he begins to massage and open your anus with his fingers, first one, then two.'
-
+	gs 'arousal', 'anal_finger', 5, 'sub'
+	gs 'stat'
 	if pcs_ass < 10:'You groan in pain as his third finger invades your ass.'
 	if pcs_ass >= 10:'You feel your asshole stretch to accommodate his third finger.'
 
@@ -781,15 +841,18 @@ if $ARGS[0] = 'an':
 	if pcs_ass + lubonus >= dick:'You groan and a satisfying fullness spreads through you as the <<dick>> member centimeter dick forces its way into your ass.'
 
 	'<<$boydesc>> stops his assault for a moment, giving your ass time to adapt to the cock invading it before he starts you again, this time even more insistent.'
-
+	gs 'arousal', 'anal', 20, 'sub'
+	gs 'stat'
 	if pcs_ass + lubonus + 2 < dick:
 		if pcs_makeup > 1:pcs_makeup = 0
 		'You utter a muffled cry and bite down a pillow when his <<dick>> centimeter cock begins to fuck your ass full force.'
+		gs 'arousal', 'anal', 20, 'sub'
+		gs 'stat'
 	elseif pcs_ass + lubonus + 2 >= dick:
 		'You start to moan rhythmically in time with thrusts of the dick buried in your ass.'
+		gs 'arousal', 'anal', 20, 'sub'
+		gs 'stat'
 	end
-
-	stat['anal'] += 1
 end
 
 if $ARGS[0] = 'ancum':
@@ -802,6 +865,8 @@ if $ARGS[0] = 'ancum':
 	spafinloc = 4
 	sexvolume = 20
 	sexpartkno = 1
+	gs 'arousal', 'end'
+	gs 'stat'
 	gs 'cum_manage'
 
 	if pcs_ass < dick:pcs_ass += 1
@@ -811,10 +876,10 @@ if $ARGS[0] = 'ancum':
 	if pcs_horny < 1:
 		pcs_horny = 1
 	elseif pcs_horny >= 100:
-		pcs_horny = 1
-		orgasm += 1
-		analorgasm += 1
 		'A blazing fire of pleasure explodes from your ass and spreads in waves of ecstasy up your body. Moaning, you instinctively drive yourself to impale your ass on his dick.'
+		$orgasm_or = 'yes'
+		gs 'arousal', 'anal', 20, 'sub'
+		gs 'stat'
 	end
 end
 

+ 66 - 41
locations/HotelWork

@@ -110,17 +110,20 @@ if $ARGS[0] = 'maid':
 			end
 
 			if maidrand>75 and maidrand<=85:
-				minut+=10
-				gs'stat'
 				'<center><img src="images/locations/pavlovsk/hotel/event/1,'+rand(0,7)+'.gif"></center>'
 				'You open the door to the next room, and immediately freeze in place when you hear a loud moaning coming from inside. Curious as you are, you decide to sneak a peek and see what''s happening in the room. You see a couple fucking enthusiastically on the bed, completely oblivious to your presence.'
 		
+				gs 'arousal', 'voyeur', 10
+				gs 'stat'
+				
 				act'Watch them for a while':
 					cla
-					pcs_horny += 10
-					gs'stat'
 					'Making sure you don''t make a sound, you put your things away and watch them for a while, softly fondling yourself through your clothes. It feels great, and the couple on the bed look like they''re having a great time as well. Even though you want to keep watching them, you realize you have to get back to work before you''re missed.'
 
+					gs 'arousal', 'voyeur', 10
+					gs 'arousal', 'end'
+					gs 'stat'
+				
 					act'Get back to work':gt'hotelwork','maid'
 				end
 
@@ -128,18 +131,21 @@ if $ARGS[0] = 'maid':
 			end
 
 			if maidrand>85 and maidrand<=95:
-				minut+=10
-				gs'stat'
 				'<center><img src="images/locations/pavlovsk/hotel/event/maid.event3,'+rand(0,7)+'.jpg"></center>'
 				'You open the door to the next room, and immediately freeze in place when you hear a loud moaning coming from inside. Curious as you are, you decide to sneak a peek and see what''s happening in the room. You carefully put your things away and look around the corner, and you see a girl... but she''s not with one man, but two! They''re fucking her quite roughly.'
 		
+				gs 'arousal', 'voyeur', 10
+				gs 'stat'
+				
 				act'Watch them for a while':
 					cla
-					pcs_horny += 15
-					gs'stat'
 					'You decide to watch them for a while longer, and idly begin to fondle yourself through your clothes. The men are quite demanding, commanding the girl around like she''s their plaything. They continuously talk her down, using degrading language. She obediently does everything they order her to do, but gets spanked once when she''s not quick enough. In the corner of the room, you see some coils of rope and several cuffs sticking out of an opened bag. It looks like she''s in for a long night...'
 					'You''d love to keep watching and see what else they have in store for her, but you realize you really have to get back to work before you''re missed.'
-
+					
+					gs 'arousal', 'voyeur', 10
+					gs 'arousal', 'end'
+					gs 'stat'
+					
 					act'Get back to work':gt'hotelwork','maid'
 				end
 
@@ -147,16 +153,20 @@ if $ARGS[0] = 'maid':
 			end
 
 			if maidrand>95 and maidrand<=100:
-				minut+=10
-				gs'stat'
 				'<center><img src="images/locations/pavlovsk/hotel/event/maid.event4,'+rand(0,6)+'.jpg"></center>'
 				'You open the door to the next room, and immediately freeze in place when you hear a somewhat desperate moaning coming from inside. Curious as you are, you decide to sneak a peek and see what''s happening in the room. You carefully put your things away and look around the corner, and you see a girl... but she''s not with one man, but with a whole group of men! From what you can see, there are at least five of them, taking turns fucking her however they like.'
 
+				gs 'arousal', 'voyeur', 10
+				gs 'stat'
+				
 				act'Watch them for a while':
 					cla
-					pcs_horny += 10
 					'You decide to watch them for a while longer, and idly begin to fondle yourself through your clothes. You notice they''re quite rough with the girl, and sometimes she''s struggling a bit. Should you say something to the manager? Then again... how would you explain watching them? You decide against it, figuring the girl will probably be okay.'
 
+					gs 'arousal', 'voyeur', 10
+					gs 'arousal', 'end'
+					gs 'stat'
+					
 					act'Get back to work':gt'hotelwork','maid'
 				end
 
@@ -164,21 +174,23 @@ if $ARGS[0] = 'maid':
 			end
 
 			if maidrand >100 and maidrand<=110:
-				minut+=10
-				pcs_horny += 5
-				gs'stat'
 				'<center><img src="images/characters/pavlovsk/school/girl/sonia/sex/hotel/sonia.hotel.boy0,'+rand(0,4)+'.jpg"></center>'
 				'You open the door to the next room, and immediately freeze in place when you hear gagging sounds coming from inside. Curious as you are, you decide to sneak a peek and see what''s happening in the room. When you look around the corner, you see a girl giving a guy an enthusiastic blowjob, happily gagging on his cock while she tries to take it down her throat over and over. Wait a minute... that''s Sonia, from your class!'
-
+				
+				gs 'arousal', 'voyeur', 5
+				gs 'stat'
+				
 				if rand1<=60:
 					act'Keep watching':
 						cla
 						*clr
-						minut+=3
-						pcs_horny += 5
 						'<center><img src="images/characters/pavlovsk/school/girl/sonia/sex/hotel/sonia.hotel.boy.cum0,'+rand(0,4)+'.jpg"></center>'
 						'The man doesn''t last very long, and within minutes shoots his hot ropes of jizz all over Sonia''s face. She lets it sit for a minute so he can admire his handiwork, before greedily wiping it towards her mouth and lapping it up. When you get up to leave, you see the man give Sonia some money.'
 
+						gs 'arousal', 'voyeur', 3
+						gs 'arousal', 'end'
+						gs 'stat'
+						
 						act'Get back to work':gt'hotelwork','maid'
 					end
 				end
@@ -188,19 +200,22 @@ if $ARGS[0] = 'maid':
 					act'Keep watching':
 						cla
 						*clr
-						minut+=3
-						pcs_horny += 5
 						'<center><img src="images/characters/pavlovsk/school/girl/sonia/sex/hotel/sonia.hotel.boy1,'+rand(0,3)+'.jpg"></center>'
 						'After a few minutes of Sonia enthusiastically sucking his dick and licking his balls, the guy decides he wants to fuck her now. He spreads Sonia''s legs and slides his cock into her in one fluent motion. Sonia moans eagerly, and begins to buck her hips against him.'
-
+						
+						gs 'arousal', 'voyeur', 5
+						gs 'stat'
+						
 						act'Further':
 							cla
 							*clr
-							minut+=3
-							pcs_horny += 5
 							'<center><img src="images/characters/pavlovsk/school/girl/sonia/sex/hotel/sonia.hotel.boy.cum0,'+rand(0,4)+'.jpg"></center>'
 							'The man doesn''t last very long, and within minutes he tells Sonia to get on her knees before him. Seconds later, he shoots his hot ropes of jizz all over her face. She lets it sit for a minute so he can admire his handiwork, before greedily wiping it towards her mouth and lapping it up. When you get up to leave, you see the man give Sonia some money.'
 
+							gs 'arousal', 'voyeur', 3
+							gs 'arousal', 'end'
+							gs 'stat'
+							
 							act'Get back to work':gt'hotelwork','maid'
 						end
 					end
@@ -210,23 +225,25 @@ if $ARGS[0] = 'maid':
 			end
 
 			if maidrand >110 and maidrand<=120:
-				minut+=10
-				pcs_horny += 5
-				gs'stat'
 				'<center><img src="images/characters/pavlovsk/school/girl/sonia/sex/hotel/sonia.hotel.boy.nigga0,'+rand(0,2)+'.jpg"></center>'
 				'You open the door to the next room, and immediately freeze in place when you hear gagging sounds coming from inside. Curious as you are, you decide to sneak a peek and see what''s happening in the room. When you look around the corner, you see Sonia giving a black guy an enthusiastic blowjob, happily gagging on his cock while she tries to take it down her throat over and over. Obviously it''s not working; his cock is way too big for her.'
 				'She adjusts her strategy, diligently sucking the head of his cock and licking his balls instead.'
+				
+				gs 'arousal', 'voyeur', 10
+				gs 'stat'
 
 				if rand1<=60:
 
 					act'Keep watching':
 						cla
 						*clr
-						minut+=3
-						pcs_horny += 5
 						'<center><img src="images/characters/pavlovsk/school/girl/sonia/sex/hotel/sonia.hotel.boy.nigga.cum0,0.jpg"></center>'
 						'The black man doesn''t last very long, and within minutes shoots his hot ropes of jizz all over Sonia''s face. She lets it sit for a minute so he can admire his handiwork, before greedily wiping it towards her mouth and lapping it up. When you get up to leave, you see the man give Sonia some money.'
 
+						gs 'arousal', 'voyeur', 3
+						gs 'arousal', 'end'
+						gs 'stat'
+						
 						act'Get back to work':gt'hotelwork','maid'
 					end
 				end
@@ -236,19 +253,22 @@ if $ARGS[0] = 'maid':
 					act'Keep watching':
 						cla
 						*clr
-						minut+=3
-						pcs_horny += 5
 						'<center><img src="images/characters/pavlovsk/school/girl/sonia/sex/hotel/sonia.hotel.boy.nigga1,'+rand(0,5)+'.jpg"></center>'
 						'After a few minutes of Sonia enthusiastically sucking his dick and licking his balls, the black guy decides he wants to fuck her now. He spreads Sonia''s legs and slides his cock into her in one fluent motion. You can see her pussy lips stretch around his huge cock as Sonia moans loudly, trying to hold him back for a second so she can get used to the size.'
 
+						gs 'arousal', 'voyeur', 5
+						gs 'stat'
+						
 						act'Keep watching':
 							cla
 							*clr
-							minut+=3
-							pcs_horny += 5
 							'<center><img src="images/characters/pavlovsk/school/girl/sonia/sex/hotel/sonia.hotel.boy.nigga.cum0,0.jpg"></center>'
 							'The black man fucks her for a good while, and just when you thought you should probably get back to work he tells Sonia to get on her knees before him. Seconds later, he shoots his hot ropes of jizz all over her face. She lets it sit for a minute so he can admire his handiwork, before greedily wiping it towards her mouth and lapping it up. When you get up to leave, you see the man give Sonia some money.'
 
+							gs 'arousal', 'voyeur', 3
+							gs 'arousal', 'end'
+							gs 'stat'
+							
 							act'Get back to work':gt'hotelwork','maid'
 						end
 					end
@@ -258,22 +278,24 @@ if $ARGS[0] = 'maid':
 			end
 
 			if maidrand >120 and maidrand<=130:
-				minut+=10
-				pcs_horny += 5
-				gs'stat'
 				'<center><img src="images/characters/pavlovsk/school/girl/sonia/sex/hotel/sonia.hotel.two.nigga0,'+rand(0,1)+'.jpg"></center>'
 				'You open the door to the next room, and immediately freeze in place when you hear gagging sounds coming from inside. Curious as you are, you decide to sneak a peek and see what''s happening in the room. When you look around the corner, you see Sonia with not one, but two huge black guys. She''s happily sucking their enormous dicks in turn, massaging the one she doesn''t currently have in her mouth with her delicate fingers.'
 
+				gs 'arousal', 'voyeur', 10
+				gs 'stat'
+				
 				if rand1<=60:
 
 					act'Keep watching':
 						cla
 						*clr
-						minut+=3
-						pcs_horny += 5
 						'<center><img src="images/characters/pavlovsk/school/girl/sonia/sex/sonia.cum0,'+rand(0,1)+'.gif"></center>'
 						'Sonia must''ve been doing a really good job. Within minutes, both of them moan and quickly begin to jerk themselves off, shooting thick ropes of jizz all over her face. She lets it sit for a minute so they can admire their handiwork, before greedily wiping it towards her mouth and lapping it up. When you get up to leave, you see one of the men give Sonia some money.'
 
+						gs 'arousal', 'voyeur', 3
+						gs 'arousal', 'end'
+						gs 'stat'
+						
 						act'Get back to work':gt'hotelwork','maid'
 					end
 				end
@@ -283,19 +305,22 @@ if $ARGS[0] = 'maid':
 					act'Keep watching':
 						cla
 						*clr
-						minut+=3
-						pcs_horny += 5
 						'<center><img src="images/characters/pavlovsk/school/girl/sonia/sex/hotel/sonia.hotel.two.nigga1,'+rand(0,3)+'.jpg"></center>'
 						'After a few minutes, the black guys pull Sonia''s mouth away from their dicks for a second, ignoring her pleas to have them back. One of the men starts to fuck her pussy, while the other stuffs her mouth again with his dick. You''re somewhat amazed at how easily Sonia takes their huge dicks in her pussy... she must''ve had a lot of practise with them already. After a few minutes of giving Sonia a thorough fucking, the black guys tell her to get on her knees.'
 
+						gs 'arousal', 'voyeur', 3
+						gs 'stat'
+						
 						act'Keep watching':
 							cla
 							*clr
-							minut+=3
-							pcs_horny += 5
 							'<center><img src="images/characters/pavlovsk/school/girl/sonia/sex/sonia.cum0,'+rand(0,1)+'.gif"></center>'
 							'Sonia does as they says, and seconds later the first jet of sperm already hits her face. She licks some of it up, but waits patiently for the other guy to also add his cum to her face. You quickly pull away from the door when you see her looking in your general direction... that was close! You quickly gather your things and leave, before she gets the idea to look if anyone was watching her.'
 
+							gs 'arousal', 'voyeur', 3
+							gs 'arousal', 'end'
+							gs 'stat'
+							
 							act'Get back to work':gt'hotelwork','maid'
 						end
 					end

+ 80 - 26
locations/LCwork

@@ -4,13 +4,9 @@ if $ARGS[0] = 'start1':
 	*clr
 	horand = rand(1, 100)+ 40
 	facial += 1
-	gang += 1
 	slutty += 1
-	stat['anal'] += 1
-	bj += 1
 	dynamic $venerasiak
 	randLCpay = rand(500, 2000)
-	minut += 140
 	guy += randguycafe
 
 	if pcs_vag < 20:pcs_vag += randguycafe
@@ -19,14 +15,27 @@ if $ARGS[0] = 'start1':
 	'You walk up to the group of men and give them a friendly smile as you say: "Good evening, sirs. I will be your waitress tonight."'
 	'The guys understand what you mean immediately, and all get up and guide you to their car. They make you sit in the back seat between two of them, and drive off. During the trip you constantly have hands on your body. The men fondle your boobs and legs eagerly, shove their hands underneath your clothes and fondle your pussy.'
 	'Before long one of them pulls down his pants and drags your head over to his dick. You suck his dick for the rest of the ride, while the other guys grab at your breasts, ass, or even fingers you pussy.'
+	gs 'arousal', 'bj', 10, 'sub', 'gangbang', 'prostitution'
+	gs 'arousal', 'anal_finger', 10, 'sub', 'gangbang', 'prostitution'
+	gs 'arousal', 'vaginal_finger', 10, 'sub', 'gangbang', 'prostitution'
+	gs 'arousal', 'foreplay', 10, 'sub', 'gangbang', 'prostitution'
+	minut -= 10
+	gs 'stat'
+	
 	act 'Continue':
 		*clr
 		cla
 	    '<center><img src="images/locations/city/industrial/bbq/sex/1b.jpg"></center>'
 	    'When you arrive at a house, the guys begin to strip you almost as soon as you walk through the door. You also noticed there was several of them waiting at the house for their friends to return with you. All six of them proceed to fuck all of your holes, two or three at a time. They take turns and swap holes fairly randomly, for a good two hours.'
 	    'At least they was nice enough to all wear condoms and use lubricant, still six guys all taking turns, fucking each of your three holes leaves them aching and gapping.'
-
+		gs 'arousal', 'bj', 120, 'sub', 'gangbang', 'prostitution'
+		gs 'arousal', 'anal', 120, 'sub', 'gangbang', 'prostitution'
+		gs 'arousal', 'vaginal', 120, 'sub', 'gangbang', 'prostitution'
+		minut -= 120
+		gs 'stat'
+		
 	    if horand <= pcs_horny:pcs_horny = 0 & orgasm += 1 & 'You reach an orgasm throughout their rough treatment of you, and lay quivering while they continue to pound you mercilessly.'
+		$orgasm_or = 'yes'
 	    if horand > pcs_horny:pcs_horny += 10 & 'The guys are too focused on their own pleasure to give you any, and you leave unsatisfied.'
 
 	    act 'Continue':
@@ -35,7 +44,11 @@ if $ARGS[0] = 'start1':
 		    '<center><img src="images/locations/city/industrial/bbq/sex/1b.jpg"></center>'
 		    'By the end, the guys tell you to kneel down in the center of the room and to bring them all to orgasm. You kneel down in the middle of them, sucking one off while your jerk off two more, it takes you a bit to work your way around and get them all off, by the time the last one cums on you, your entire body is covered in cum.'
 		    'Fortunately, they allow you to take a shower and one of them even drives you home. He pays you <<randLCpay>> <b>₽</b>, and says he hopes you''ll be their waitress again some day.'
-
+			gs 'arousal', 'bj', 10, 'sub', 'gangbang', 'prostitution'
+			gs 'arousal', 'hj', 10, 'sub', 'gangbang', 'prostitution'
+			minut -= 10
+			gs 'arousal', 'end'
+			gs 'stat'
 
 		    act 'Get out of his car':money += randLCpay & gt 'street'
 		end
@@ -46,13 +59,11 @@ if $ARGS[0] = 'start2':
 	cla
 	*clr
 	horand = rand(1, 100)
-	stat['vaginal'] += 1
 	slutty += 1
 	facial += 1
 	spafinloc = 11
 	gs 'cum_manage'
 	randLCpay = rand(500, 2000)
-	minut += 140
 
 	if pcs_vag < 18:pcs_vag += 1
 
@@ -63,8 +74,11 @@ if $ARGS[0] = 'start2':
 	'The older man gives you a dirty grin, and ogles your body for a few seconds before he says: "Very good, you will do. Follow me."'
 	'You get into a van with the older man, and are a bit surprised when he enters a narrow side road that leads into the woods. You''re in the middle of nowhere here!'
 	'He stops the van, and tells you to get out of the van and undress. He lays you on your back in the open side door of his van. As soon as your legs are apart he shoves his old dick in your cunt and starts fucking it. He never says a word, or touches you in any other way, he just fucks your pussy.'
-
+	
+	gs 'arousal', 'vaginal', 120, 'sub', 'prostitution'
+	
 	if horand <= pcs_horny:pcs_horny = 0 & orgasm += 1 & 'The old man is a skilful lover, and he brings you to a spectacular orgasm. Since you''re in the middle of the woods and no one can hear you anyway, you fully surrender yourself to him and moan loudly when he keeps fucking you throughout your orgasm, making it all the more intense.'
+	$orgasm_or = 'yes'
 	if horand > pcs_horny:pcs_horny += 10 & 'The old man focuses solely on his own pleasure, and doesn''t do much to try and get you off too. You''re not satisfied.'
 
 	act 'Continue':
@@ -76,6 +90,9 @@ if $ARGS[0] = 'start2':
 		'With a wink he adds: "As long as you don''t get any cum on the seats, my wife would kill me!"'
 		'You have the man pull over when you''re in the residential district, and he happily pays you <<randLCpay>> <b>₽</b> for your time.'
 
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		act 'Get out of his van':money += randLCpay & gt 'street'
 	end
 end
@@ -84,9 +101,6 @@ if $ARGS[0] = 'start3':
 	cla
 	*clr
 	horand = rand(1, 100) + 20
-	stat['vaginal'] += 1
-	stat['anal'] += 1
-	bj += 1
 	slutty += 1
 	facial += 1
 	spafinloc = 11
@@ -94,7 +108,6 @@ if $ARGS[0] = 'start3':
 	spafinloc = 12
 	gs 'cum_manage'
 	randLCpay = rand(500, 2000)
-	minut += 140
 	guy += 2
 
 	if pcs_vag < 18:pcs_vag += 2
@@ -107,7 +120,13 @@ if $ARGS[0] = 'start3':
 	'Both the men are upon you the second you walk through the door, pulling your clothes off you roughly enough to leave bruises. They push you down on the couch and one of them quickly shoves his dick in your pussy, not bothering to get your warmed up first. The other waits just long enough for his friend to get his dick in your pussy, when he roughly shoves his cock in your ass, the only lube he bothered to use was a bit of spit on the tip of his dick.'
 	'They trade fucking your twat and ass back and forth, not seeming to care one bit, if dry fucking you hurts you in the slightest, in fact you think they are getting off on it.'
 
+	gs 'arousal', 'anal', 120, 'sub', 'group', 'prostitution', 'rough'
+	gs 'arousal', 'vaginal', 120, 'sub', 'group', 'prostitution', 'rough'
+	minut -= 120
+	gs 'stat'
+	
 	if horand <= pcs_horny:pcs_horny = 0 & orgasm += 1 & 'The intensity at which they were fucking your pussy and ass at the same time makes your own orgasm all the more intense. Your loud groans cause some disturbed knocking on the walls, from neighbours complaining about the noise. Oops...'
+	$orgasm_or = 'yes'
 	if horand > pcs_horny:pcs_horny += 10 & 'The guys are mostly focused on their own pleasure, using your body as if you were a sex doll of some kind. It doesn''t feel unpleasant, but they don''t stimulate you enough to reach orgasm.'
 
 	act 'Continue':
@@ -117,6 +136,10 @@ if $ARGS[0] = 'start3':
 		'Finally in a small mercy they both pull out of you and put you on your knees where they jerk off, covering your face and tits with their sperm. As soon as they finish, before you even have a chance to do anything, one of them grabs you roughly by the hair and drags you out of the apartment naked, while the other throws your clothes out into the hallway. With that done, they toss <<randLCpay>> <b>₽</b> out and slam the door. Leaving you standing naked, with your clothes and money scattered around the hall floor and your ass and pussy aching from the rough fucking.'
 		'Wincing you gather up the money and put on your clothes, then you head down the stairs out of the apartment.'
 
+		gs 'arousal', 'bj', 20, 'sub', 'group', 'prostitution', 'rough'
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		act 'Leave the apartment building':money += randLCpay & gt 'Nord'
 	end
 end
@@ -125,16 +148,10 @@ if $ARGS[0] = 'start4':
 	cla
 	*clr
 	horand = rand(1, 100) + 20
-	kuni += 1
-	gang += 1
-	lesbian += 1
-	stat['anal'] += 1
-	bj += 1
 	slutty += 1
 	spafinloc = 14
 	gs 'cum_manage'
 	randLCpay = rand(500, 2000)
-	minut += 140
 	girl += 1
 	guy += 1
 
@@ -151,7 +168,15 @@ if $ARGS[0] = 'start4':
 		'He''s particularly interested in your ass. "I hope you like anal, sweetie..." he whispers in your ear after a while. "Because my girlfriend won''t take anything up there, you''ll have to take it for the both of you!"'
 		'Fortunately he takes it slow, and it doesn''t feel all that unpleasant. The girl is very fascinated by it all, and asks you a few questions while she absent-mindedly rubs your clit and kisses your boobs as if you''re doing her a huge favour. After all: as long as her boyfriend enjoys your ass, her''s can remain unfucked.'
 
+		gs 'arousal', 'cuni', 120, 'sub', 'prostitution', 'lesbian'
+		gs 'arousal', 'vaginal_finger', 120, 'sub', 'prostitution', 'lesbian'
+		gs 'arousal', 'anal', 120, 'sub', 'prostitution'
+		minut -= 120
+		gs 'stat'
+		
+		
 		if horand <= pcs_horny:pcs_horny = 0 & orgasm += 1 & 'You were already fairly turned on before going with them, and the girl turns out to be an expert at pleasing other women! She has you begging and moaning in no time, and licks you to an intense orgasm within moments.'
+		$orgasm_or = 'yes'
 		if horand > pcs_horny:pcs_horny += 10 & 'The guy is so demanding, you and the other girl don''t get to focus much on your own pleasure but only cater to his desires. You were not satisfied.'
 
 		act 'Continue':
@@ -163,7 +188,11 @@ if $ARGS[0] = 'start4':
 			'After some time the guy pulls out of your ass and shoots his hot load all over your stomach. The girl laps some of it up, but leaves most of it on you and politely thanks you for a lovely evening. She''s adorable!'
 			'As you get up, the guy is very happy. He grins and says: "Thanks, you were great! She''s still a bit shy, but at this rate it won''t be long before I can properly introduce her to my buddies, if you know what I mean."'
 			'He walks you out of the bedroom, after you get dressed, leaving her behind. "Maybe we can do it again next week and you can help me talk her into trying anal." He gives you a dirty wink and gives you <<randLCpay>> <b>₽</b> as he walks you out.'
-
+			
+			gs 'arousal', 'anal', 20, 'sub', 'prostitution'
+			gs 'arousal', 'end'
+			gs 'stat'
+			
 			act 'Leave their apartment building':money += randLCpay & gt 'street'
 		end
 	else
@@ -172,8 +201,12 @@ if $ARGS[0] = 'start4':
 		'As you walk up to the couple, you remember them from before. The guy grins at you and the girl smiles. "Told you we would be back, are you ready to go?"'
 		'They live in the residential area of the city, and it''s a short drive there. You remember it form last time, they inform you, she is ready to try anal, but wants you to coach her through it and get her ready.'
 		'Once inside he watches the two of you have fun. He waits until you bring his girlfriend to a orgasm.'
-
+	
+		gs 'arousal', 'give_cuni', 60, 'sub', 'prostitution', 'lesbian'
+		gs 'stat'
+		
 		if horand <= pcs_horny:pcs_horny = 0 & orgasm += 1 & 'You were already fairly turned on before going with them, and the girl turns out to be an expert at pleasing other women! She has you begging and moaning in no time, and licks you to an intense orgasm within moments.'
+		$orgasm_or = 'yes'
 		if horand > pcs_horny:pcs_horny += 10 & 'The guy is so demanding, you and the other girl don''t get to focus much on your own pleasure but only cater to his desires. You were not satisfied.'
 		act 'Continue':
 			cla
@@ -181,6 +214,12 @@ if $ARGS[0] = 'start4':
 			'<center><img src="images/locations/city/industrial/bbq/sex/couple1.jpg"></center>'
 			'At that point he comes over and sits on the couch with the two of you. He lubes up his dick, while you lube up her asshole. You help her ease down on his dick, he is very gentle with her and lets her lead the action. You help by licking her clit while she rides his dick with her ass.'
 			'By the sounds of it, you can tell she kinda likes it but also finds it a bit painful. Before long she gets off him and says she can''t take anymore and applogises to him. He tells her it''s ok they can try again some other time. With that he bends you over the couch and starts to fuck you in the ass. He is fairly gentle with you, but not nearly as much as he was with his girlfriend, which is kinda sweet.'
+			
+			gs 'arousal', 'give_cuni', 60, 'sub', 'prostitution', 'lesbian'
+			gs 'arousal', 'anal', 60, 'sub', 'prostitution'
+		    minut -= 20 
+			gs 'stat'
+			
 			act 'Continue':
 				cla
 				*clr
@@ -189,6 +228,11 @@ if $ARGS[0] = 'start4':
 				'Some time later the guy shoots his load deep in your ass, pulling his dick out, she catches a few drops of sperm from his dick with her tongue.'
 				'After you get dressed and he walks you to the door, he grins and says: "Thanks, you were great! She''s still a bit shy, but at this rate it won''t be long before I can properly introduce her to my buddies, if you know what I mean. Maybe we can do it again next week and you can help her get use to anal." He gives you a dirty wink and gives you <<randLCpay>> <b>₽</b> as he walks you out.'
 
+				gs 'arousal', 'anal', 20, 'sub', 'prostitution'
+				gs 'arousal', 'end'
+				gs 'cum_call', 'anal', $boy
+				gs 'stat'
+				
 				act 'Leave their apartment building':money += randLCpay & gt 'street'
 !!end of expanded scene
 			end
@@ -200,8 +244,6 @@ if $ARGS[0] = 'start5':
 	cla
 	*clr
 	horand = rand(1, 100)
-	lesbian += 1
-	kuni += 1
 	slutty += 1
 	randLCpay = rand(500, 2000)
 	girl += 1
@@ -213,11 +255,17 @@ if $ARGS[0] = 'start5':
 	'You reassure her that you can go as fast or slow as she likes, and spend the next hour and a half fondling one another.'
 	'She becomes more and more enthusiastic as time passes, and grows bolder by the minute. At one point, she says she wants to finger your ass and immediately crams in four fingers, ouch! Subtlety is definitely not her strong suit.'
 
+	gs 'arousal', 'foreplay', 90, 'sub', 'prostitution', 'lesbian'
+	gs 'arousal', 'anal_finger', 90, 'sub', 'prostitution', 'lesbian'
+	minut -= 90 
+	
 	if horand <= pcs_horny:Set pcs_horny = 0 & orgasm += 2 & 'Even though the girl had no prior experience with women, she touches you in all the right places and you reach a orgasm more than once during your session.'
+	$orgasm_or = 'yes'
 	if horand > pcs_horny:Set pcs_horny += 10 & 'You mostly focus on making this a pleasurable experience for her, and don''t orgasm yourself. That''s fine, though... the ecstatic look in her eyes when you gave her the third orgasm of the evening more than makes up for it!'
 
 	'When you''re finished and get dressed again, the girl reverts to being her old, shy self. Nevertheless, she gives you a peck on the cheek and thanks you for the lovely lesson. She does seem a bit more confident now.'
 	'She walks you out, giving you <<randLCpay>> <b>₽</b>.'
+	gs 'arousal', 'end'
 	gs 'stat'
 
 	act 'Leave her apartment':money += randLCpay & gt 'street'
@@ -227,8 +275,6 @@ if $ARGS[0] = 'start6':
 	cla
 	*clr
 	horand = rand(1, 100)
-	stat['vaginal'] += 1
-	stat['hj'] += 1
 	facial += 1
 	slutty += 1
 	randLCpay = rand(500, 2000)
@@ -240,9 +286,14 @@ if $ARGS[0] = 'start6':
 	'<center><img src="images/locations/city/industrial/bbq/sex/6a.jpg"></center>'
 	'You walk up to the older man and give him a friendly smile as you say: "Good evening, sir. I will be your waitress tonight."'
 	'"My waitress, huh?" he laughs. "That''s adorable!"'
-	'He leads you to his car and drives to his house in the residential district. For the next hour and a half, he alternates between fucking your wet slit, and making you lick your own juices off his hard cock repeatedly. He doesn''t go soft once during all this! Such stamina.'
+	'He leads you to his car and drives to his house in the residential district. For the next hour and a half, he alternates between fucking your wet clit, and making you lick your own juices off his hard cock repeatedly. He doesn''t go soft once during all this! Such stamina.'
 
+	gs 'arousal', 'bj', 90, 'sub', 'prostitution'
+	gs 'arousal', 'vaginal', 90, 'sub', 'prostitution'
+	minut -= 90 
+	
 	if horand <= pcs_horny:Set pcs_horny = 0 & orgasm += 1 & 'The guy brings you to a mind-blowing orgasm! You wouldn''t think it at first given his posture but he''s a great and experienced lover, knowing exactly what he has to do to make a woman feel good.'
+	$orgasm_or = 'yes'
 	if horand > pcs_horny:Set pcs_horny += 10 & 'The man is making you very aware of the fact that he hired you, and that his needs always come before yours. As a result you don''t get to even think about getting off yourself, and are left unsatisfied.'
 
 	act 'Continue':
@@ -252,6 +303,9 @@ if $ARGS[0] = 'start6':
 		'Finally, the man''s cock erupts in your mouth, and he doesn''t explain when you take his cock out of your mouth after a few spurts and release the rest onto your boobies.'
 		'He gives you a satisfied grin and lets you use his shower to clean yourself up before you go. He peeks into the shower once or twice while you''re washing yourself, but you don''t care, it''s not like he hasn''t seen you naked before!'
 		'He gives you <<randLCpay>> <b>₽</b>, and walks you to the door when you''re all freshened up.'
+		
+		gs 'arousal', 'end'
+		gs 'stat'
 
 		act 'Leave his apartment':money += randLCpay & gt 'street'
 	end

+ 59 - 52
locations/bed1

@@ -3,12 +3,11 @@
 if $ARGS[0] = 'sogn':
 	cla
 	*clr
-	pcs_horny += 10
-	minut += 10
 	dogday = daystart
 	'<center><img src="images/beast/zoo/2.jpg"></center>'
 	'You undress and lie down on the bed <<$namesob>> brazenly jump onto the bed and starts licking your pussy'
-
+	gs 'arousal', 'cuni', 10, 'beast'
+	gs 'stat'
 	act 'Succumb to the desire':gt 'bed1', 'sog2'
 	act 'Kick the dog out':gt 'bed', 'start'
 end
@@ -19,14 +18,13 @@ if $ARGS[0] = 'sog1':
 			if hour > 22 or hour < 7:
 				cla
 				*clr
-				minut += 30
+				gs 'boyStat', 191
 				'<center><img src="images/beast/zoo/z1.jpg"></center>'
 				'You undress and lie down on the bed <<$namesob>> brazenly jumps onto your bed and starts licking your pussy.'
-
+				gs 'arousal', 'cuni', 30, 'sub', 'beast'
+				gs 'stat'
+					
 				if harakHusb = 0:
-					zoo += 1
-					pcs_horny = 0
-					orgasm += 1
 					'"What''s he doing dear, stop him." cries your husband'
 					'"I can''t, I''m trying." you reply.'
 					husband -= 1
@@ -49,6 +47,10 @@ if $ARGS[0] = 'sog1':
 							dynamic $dogpot
 							spafinloc = 0
 							sexpartkno = 1
+							$orgasm = 'yes'
+							gs 'arousal', 'vaginal', 10, 'beast'
+							gs 'arousal', 'end'
+							gs 'stat'
 							gs 'Cum_Manage'
 							'Your husband comes back, you are still on all fours with dog sperm flowing from your pussy.'
 							'"I''ll take him and have him put down," says <<$husName>>'
@@ -59,6 +61,10 @@ if $ARGS[0] = 'sog1':
 							dynamic $dogpot
 							spafinloc = 0
 							sexpartkno = 1
+							$orgasm = 'yes'
+							gs 'arousal', 'vaginal', 10, 'beast'
+							gs 'arousal', 'end'
+							gs 'stat'
 							gs 'Cum_Manage'
 							'Your husband looks at you on all fours, ass in the air, canine semen flowing out of your pussy.'
 							'"I''ll take him and have him put down," says <<$husName>>'
@@ -99,11 +105,11 @@ if $ARGS[0] = 'sog1':
 							act 'Finish':gt 'bedr'
 						end
 					elseif izvratH = 1:
-						zoo += 1
 						'"Can not or don''t want to." says <<$husName>> smiling and continues to sit and watch as the dog licks you.'
 						'"Does not want to, I guess" you reply and deliberately push your legs apart. <<$husName>> looks as you moan while the dog licks you.'
 						'Suddenly he gets up pulls out his dick brings to your mouth.'
-
+						gs 'arousal', 'cuni', 10, 'beast'
+						gs 'stat'
 						act 'Suck husband':
 							cla
 							*clr
@@ -114,8 +120,11 @@ if $ARGS[0] = 'sog1':
 							spafinloc = 12
 							sexpartkno = 1
 							gs 'Cum_Manage'
-							stat['bj'] += 1
 							swallow += 1
+							$orgasm = 'yes'
+							gs 'arousal', 'bj', 10
+							gs 'arousal', 'end'
+							gs 'stat'
 							'"This is too much" says <<$husName>> and tried to shoo your dog out, but he growls and bares his teeth.'
 							'<<$husName>> goes to the bathroom and comes back with some old sheets.'
 							'Throwing them over the dog and picking up the corners is able to pick up <<$namesob>> in his improvised bag.'
@@ -138,6 +147,9 @@ if $ARGS[0] = 'sog1':
 									husband -= 1
 									'<center><img src="images/beast/zoo/z6.jpg"></center>'
 									'You take the dogs dick in your hand and begin to masturbate, after a few minutes you dog cums in your hand.'
+									gs 'arousal', 'hj', 10, 'beast'
+									gs 'arousal', 'end'
+									gs 'stat'
 									dynamic $dogpot
 									spafinloc = 13
 									sexpartkno = 1
@@ -154,6 +166,9 @@ if $ARGS[0] = 'sog1':
 									'You lay the dog on the floor and take his cock in my mouth, your husband looks at you with disgust as you suck the dogs cock.'
 									'In a couple of minutes the dog cums in your mouth and you swallow his sperm.'
 									'"Well, you''re a pervert, " your husband says with obvious distaste.'
+									gs 'arousal', 'bj', 10, 'beast'
+									gs 'arousal', 'end'
+									gs 'stat'
 									dynamic $dogpot
 									spafinloc = 12
 									sexpartkno = 1
@@ -186,14 +201,10 @@ if $ARGS[0] = 'sog1':
 							gt 'bedr'
 						end
 					elseif izvratH = 1:
-						zoo += 1
-						stat['bj'] += 1
-						swallow += 1
-						SUB += 1
 						'"What do you mean I can not? Do you like the way he licks you?!" shouts <<$husName>>.'
 						'"No, of course not," you begin to make excuses.'
 						'"I can see you dirty whore, your pussy all wet, you think I don''t see? It would be polite to thank him, " he says.'
-						'Seeing your Lack of comprehension continues, "Well, go on suck his dick."'
+						'Seeing your lack of comprehension continues, "Well, go on suck his dick."'
 
 						act 'Suck dogs dick':
 							cla
@@ -202,37 +213,41 @@ if $ARGS[0] = 'sog1':
 							'<<$husName>> grabs the dog by the collar, pushes you to the floor and guides the dog on top of you.'
 							'With the dogs ersct penis right in front of your mouth, you realise you have no choice and start sucking.'
 							'Your husband, watching you and cheers saying that the dog loves your mouth. Soon he is bored just watching, he dropped his pants says "Spread your legs."'
+							gs 'arousal', 'bj', 10, 'beast', 'sub'
+							gs 'stat'
 
 							act 'Spread your legs':
-								cla
-								*clr
-								gs 'boyStat', $HusID
-								end
+								cls
 								suprdolg += 1
-								stat['vaginal'] += 1
-								stat['anal'] += 1
-								'<center><img src="images/beast/zoo/z5.jpg"></center>'
-								'You obediently spread your legs and your husband enters your pussy, he makes you keep sucking the dog.'
-								'You are not gaining any pleasure from this. Soon your husband cums and says "<<$namesob>> hasn''t finished yet, are you not trying? Fine, Present your ass!."'
 								spafinloc = 0
 								sexpartkno = 1
 								gs 'Cum_Manage'
+								'<center><img src="images/beast/zoo/z5.jpg"></center>'
+								'You obediently spread your legs and your husband enters your pussy, he makes you keep sucking the dog.'
+								'You are not gaining any pleasure from this. Soon your husband cums and says "<<$namesob>> hasn''t finished yet, are you not trying? Fine, Present your ass!."'
+								gs 'arousal', 'bj', 10, 'beast'
+								gs 'boyStat', $HusID
+								gs 'arousal', 'vaginal', 10, 'sub'
+								gs 'stat'
 
 								act 'Offer your ass':
-									cla
-									*clr
+									cls
 									analorgasm += 1
-									orgasm += 1
+									gs 'boyStat', 191
 									pcs_horny = 0
+									dynamic $dogpot
+									spafinloc = 3
+									sexpartkno = 1
+									gs 'Cum_Manage'
 									'<center><img src="images/beast/zoo/z8.jpg"></center>'
 									'You get on your knees and the dog immediately jumps on you. With one hand you spread your buttocks, and the other guides the dogs cock into your ass.'
 									'Finding your hole the dog quickly enters and fucks your ass. Your husband watches, "Go on you whore."'
 									'The sensation from the dog fucking your ass is driving you to orgasm, as it hits, your legs give out and you''re no longer able to stand.'
 									'The dog twitces and spews his seed in your ass. Spent, <<$namesob>> leaves satisfied.'
-									dynamic $dogpot
-									spafinloc = 3
-									sexpartkno = 1
-									gs 'Cum_Manage'
+									gs 'arousal', 'anal', 10, 'beast'
+									gs 'arousal', 'end'
+									gs 'stat'
+
 									act 'Finish':gt 'bedr'
 								end
 							end
@@ -249,46 +264,38 @@ if $ARGS[0] = 'sog1':
 end
 
 if $ARGS[0] = 'sog2':
-	cla
-	*clr
-	pcs_horny += 10
-	minut += 10
+	cls
+	gs 'boyStat', 191
 	'<center><img src="images/beast/zoo/sog.jpg"></center>'
 	'You take <<$namesob>>s penis in your hand and start masturbating him.'
-
+	gs 'arousal', 'hj', 10, 'beast'
+	gs 'stat'
 	act 'Take in your mouth':gt 'bed1', 'sog3'
 	act 'Spread your legs':gt 'bed1', 'sog4'
 end
 
 if $ARGS[0] = 'sog3':
-	cla
-	*clr
-	pcs_horny += 10
-	minut += 10
+	cls
 	'<center><img src="images/beast/zoo/sog1.jpg"></center>'
 	'You greedily swallow <<$namesob>>s dick.'
+	gs 'arousal', 'bj', 10, 'beast'
+	gs 'stat'
 
 	act 'Spread your legs':gt 'bed1', 'sog4'
 end
 
 if $ARGS[0] = 'sog4':
-	cla
-	*clr
-	minut += 10
-	orgasm += 1
-	pcs_horny = 0
-	minut += 5
-	zoo += 1
-	swallow += 1
-	pcs_vag += 1
-	pcs_throat += 1
+	cls
 	dynamic $dogpot
 	sexpartkno = 1
 	gs 'Cum_Manage'
 	'<center><img src="images/beast/zoo/sog2.jpg"></center>'
 	'You open your legs and <<$namesob>> fucks your pussy'
 	'Finally the dog ends inside you'
-
+	gs 'arousal', 'hj', 10, 'beast'
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Hug the dog and sleep':gt 'bed2'
 end
 

+ 66 - 41
locations/cafe3

@@ -3,35 +3,33 @@ if $ARGS[0] = 'house':
 	cla
 	*clr
 	money += 100
-	minut += 15
 	gs 'stat'
 	'<<$boydesc>> pays your bill and hails a taxi.'
 	'You sit down with him in the backseat of the cab <<$boydesc>> puts his hand on your knee and begins stroking it slowly getting closer towards your pussy.'
-
+	gs 'arousal', 'foreplay', 15
+	gs 'stat'
+	
 	act 'Enjoy caresses':
 		cla
-		minut += 15
-		pcs_horny += 15
-		gs 'stat'
 		dynamic $venerasiak
 		'<<$boydesc>> made it to your pussy and starts to caress it with his fingers.'
+		gs 'arousal', 'vaginal_finger', 15
+		gs 'stat'
 
 		act 'Try to remove his hands':
 			cla
-			minut += 15
-			pcs_horny += 10
-			gs 'stat'
 			'You try to remove his hands from your crotch, but <<$boydesc>> turns to you begins to fondle your breasts through your clothes with his hands.'
-
+			gs 'arousal', 'foreplay', 15
+			gs 'stat'
+			
 			act 'Come':BDcafe = 1 & gt 'BDsex', 'start'
 		end
 
 		act 'Caress his cock':
 			cla
-			minut += 15
-			pcs_horny += 10
-			gs 'stat'
 			'You get into the guys pants and get hold of his <<dick>> centimeter dick and begin to caress it.'
+			gs 'arousal', 'hj', 15, 'sub'
+			gs 'stat'
 			derand = rand(0, 100)
 
 			if derand >= 95:
@@ -40,18 +38,18 @@ if $ARGS[0] = 'house':
 				act 'Suck it':
 					cla
 					*clr
-					minut += 15
-					pcs_horny += 10
 					guy += 1
-					stat['bj'] += 1
 					gs 'stat'
 					'<center><img src="images/studia/car.gif"></center>'
 					'You bend, bringing your face to his groin and your lips wrap around his cock and you start sucking him.'
-					gs 'oral', '0'
+					gs 'arousal', 'bj', 15, 'sub'
+					gs 'stat'
 					'Finally, the guy fills your mouth with his hot sperm you have nowhere to go so you swallow it. The taxi stopped and <<$boydesc>> you puts you out on the street.'
 					swallow += 1
 					sexpartkno = 1
 					spafinloc = 12
+					gs 'arousal', 'end'
+					gs 'stat'
 					gs 'cum_manage'
 
 					act 'Leave':gt 'street'
@@ -59,11 +57,10 @@ if $ARGS[0] = 'house':
 
 				act 'Try to remove his hands':
 					cla
-					minut += 15
-					pcs_horny += 10
-					gs 'stat'
 					'You tried to remove the guys hands from your head, but <<$boydesc>> turns to you and begins to fondle your breasts through your clothes with his hands.'
-
+					gs 'arousal', 'foreplay', 15, 'sub'
+					gs 'stat'
+					
 					act 'Come':BDcafe = 1 & gt 'BDsex', 'start'
 				end
 			else
@@ -74,11 +71,10 @@ if $ARGS[0] = 'house':
 
 	act 'Try to remove his hands':
 		cla
-		minut += 15
-		pcs_horny += 10
-		gs 'stat'
 		'You tried to remove his hands from your crotch, but <<$boydesc>> turns to you and begins to fondle your breasts through your clothes with his hands.'
-
+		gs 'arousal', 'foreplay', 15, 'sub'
+		gs 'stat'
+		
 		act 'Come':BDcafe = 1 & gt 'BDsex', 'start'
 	end
 end
@@ -106,6 +102,8 @@ if $ARGS[0] = '0':
 			pose = 0
 			'<<$boydesc>> pushes your legs apart and enters you.'
 			dynamic $vagend
+			gs 'arousal', 'vaginal', 15, 'sub'
+			gs 'stat'
 
 			act 'Leave':gt 'street'
 		elseif deysts = 2:
@@ -113,12 +111,14 @@ if $ARGS[0] = '0':
 			dynamic $vagstart
 			!!'<<$boydesc>> pushes your legs and enters you.'
 			picrand = rand(1, 5)
-			'<center><img src="images/shared/sex/vag/doggy/vagdog<<picrand>>.jpg"></center>'
+			'<center><img src="images/shared/sex/vag/doggy/vagcow<<picrand>>.jpg"></center>'
 			'<<$boydesc>> helps you onto all fours and enters you.'
 
 			pose = 1
 			dynamic $vagend
-
+			gs 'arousal', 'vaginal', 15, 'sub'
+			gs 'stat'
+			
 			act 'Leave':gt 'street'
 		elseif deysts = 3:
 			guy += 1
@@ -129,7 +129,9 @@ if $ARGS[0] = '0':
 			'His cock goes into you and you start to pump up and down on it.'
 			pose = 0
 			dynamic $vagend
-
+			gs 'arousal', 'vaginal', 15, 'sub'
+			gs 'stat'
+			
 			act 'Leave':gt 'street'
 		end
 	elseif deyst < 85:
@@ -139,14 +141,14 @@ if $ARGS[0] = '0':
 
 		act 'Suck it':
 			guy += 1
-			stat['bj'] += 1
-			pcs_throat += 1
 			vaf += 1
 			picrand = rand(13, 22)
 			'<center><img src="images/shared/sex/blowjob/bj<<picrand>>.jpg"></center>'
 			'<<$boydesc>> pulls out his dick'
 			'You take his penis into your mouth and suck it.'
 			'<<$boydesc>> moans that he''s about to finish.'
+			gs 'arousal', 'bj', 15, 'sub'
+			gs 'stat'
 
 			act 'Remove from mouth':
 				*clr
@@ -159,6 +161,9 @@ if $ARGS[0] = '0':
 					spafinloc = 11
 					gs 'cum_manage'
 					'<<$boydesc>> ends on your face.'
+					gs 'arousal', 'end'
+					gs 'stat'
+				
 				end
 				picrand = rand(11, 15)
 
@@ -183,6 +188,8 @@ if $ARGS[0] = '0':
 					sexpartkno = 1
 					spafinloc = 12
 					gs 'cum_manage'
+					gs 'arousal', 'end'
+					gs 'stat'
 					'<<$boydesc>> looks at you as you swallow his sperm.'
 
 					act 'Leave':gt 'street'
@@ -195,6 +202,8 @@ if $ARGS[0] = '0':
 					spafinloc = 12
 					sexvolume = 2
 					gs 'cum_manage'
+					gs 'arousal', 'end'
+					gs 'stat'
 
 					act 'Leave':gt 'street'
 				end
@@ -209,8 +218,6 @@ if $ARGS[0] = '0':
 		act 'Agree':
 			cla
 			guy += 1
-			anal += 1
-			pcs_ass += 1
 
 			if lubri > 0:lubri = lubri - 1
 
@@ -221,6 +228,9 @@ if $ARGS[0] = '0':
 			'You feel like your anus is filled with a warm liquid. You get yourself up and into the bathroom then you get dressed.'
 			sexpartkno = 1
 			spafinloc = 3
+			gs 'arousal', 'anal', 15, 'sub'
+			gs 'arousal', 'end'
+			gs 'stat'
 			gs 'cum_manage'
 
 			act 'Leave':gt 'street'
@@ -244,6 +254,9 @@ if $ARGS[0] = 'toilet':
 		'You feel <<$boydesc>> bare your ass and something solid against your vagina.'
 		'You''re fucked doggy style in the outhouse.'
 		dynamic $vagend
+		gs 'arousal', 'vaginal', 15, 'sub', 'rough'
+		gs 'arousal', 'end'
+		gs 'stat'
 
 		act 'Leave':gt 'street'
 	end
@@ -252,14 +265,14 @@ if $ARGS[0] = 'toilet':
 		cla
 		vaf += 1
 		guy += 1
-		stat['bj']+= 1
-		pcs_throat += 1
 		dynamic $venerasiak
 		picrand = rand(13, 22)
 		'<center><img src="images/shared/sex/blowjob/bj<<picrand>>.jpg"></center>'
 		'<<$boydesc>> pulls out his dick'
 			'You take his penis in your mouth and suck it.'
 			'<<$boydesc>> moans that he''s about to finish.'
+			gs 'arousal', 'bj', 15, 'sub'
+			gs 'stat'
 
 			act 'Remove from mouth':
 			cla
@@ -272,6 +285,8 @@ if $ARGS[0] = 'toilet':
 				spafinloc = 11
 				gs 'cum_manage'
 				'<<$boydesc>> ends on your face.'
+				gs 'arousal', 'end'
+				gs 'stat'
 			end
 
 			picrand = rand(11, 15)
@@ -296,6 +311,8 @@ if $ARGS[0] = 'toilet':
 				spafinloc = 12
 				gs 'cum_manage'
 				'<<$boydesc>> looks at you as you swallow his sperm.'
+				gs 'arousal', 'end'
+				gs 'stat'
 
 				act 'Leave':gt 'street'
 			end
@@ -307,6 +324,9 @@ if $ARGS[0] = 'toilet':
 				spafinloc = 12
 				sexvolume = 2
 				gs 'cum_manage'
+				gs 'arousal', 'end'
+				gs 'stat'
+				
 				act 'Leave':gt 'street'
 			end
 		end
@@ -317,7 +337,6 @@ if $ARGS[0] = 'kompashka':
 	cla
 	dynamic $venerasiak
 	picrand = rand(1, 15)
-	minut += 240
 	'<center><img src="images/shared/sex/group/gang<<picrand>>.jpg"></center>'
 	'You are driving somewhere with the guys in a car. You''re drunk and you sit on the back seat with two guys finally, the machine stops and you get out of the car.'
 	'They undress you, and you feel like you have been mislead. You try to say something but at this point a cock is inserted into your mouth.'
@@ -326,10 +345,6 @@ if $ARGS[0] = 'kompashka':
 	temp[1] = npc_dob[$boy]
 	temp[1] = year - (temp[1] - (temp[1] mod 10000)) / 10000
 	guy += 3
-	stat['vaginal'] += 1
-	stat['bj']+= 1
-	stat['anal'] += 1
-	pcs_throat += 1
 	temp = 4
 	sexpartkno = 1
 	:cafe3rapeloop
@@ -354,8 +369,14 @@ if $ARGS[0] = 'kompashka':
 	end
 	rape += 1
 	gang += 1
-	pcs_vag += 1
-	pcs_ass += 1
+
+	gs 'arousal', 'bj', 240, 'sub', 'gangbang', 'humiliation'
+	gs 'arousal', 'hj', 240, 'sub', 'gangbang', 'humiliation'
+	gs 'arousal', 'vaginal', 240, 'sub', 'gangbang', 'humiliation'
+	gs 'arousal', 'anal', 240, 'sub', 'gangbang', 'humiliation' 
+	minut -= 720
+	gs 'arousal', 'end'
+	gs 'stat'
 
 	act 'Leave':gt 'street'
 end
@@ -363,7 +384,6 @@ end
 if $ARGS[0] = 'coffee':
 	cla
 	dynamic $venerasiak
-	minut += 20
 	guy += 1
 	gs 'stat'
 	gs 'dinsexFX'
@@ -376,6 +396,11 @@ if $ARGS[0] = 'coffee':
 	'You gaze into <<$boydesc>>s eyes and he enters with all his manly force.'
 	pose = 0
 	dynamic $vagend
+	gs 'arousal', 'foreplay', 20
+	gs 'arousal', 'vaginal', 20
+	minut -= 20
+	gs 'arousal', 'end'
+	gs 'stat'
 
 	act 'Show him out':gt 'Korr'
 end

+ 9 - 4
locations/down

@@ -1,4 +1,5 @@
 # down
+
 $metka = $ARGS[0]
 $loc = $CURLOC
 $metkaM = $ARGS[0]
@@ -54,9 +55,6 @@ if shantpopala > 0:
 	fingal += 1
 	guy += 2
 	rape += 1
-	stat['vaginal'] += 1
-	stat['bj'] += 1
-	stat['anal'] += 1
 	shantpopala -= 1
 	'<center><img src="images/locations/city/shared/sex/rape.jpg"></center>'
 	'On the street close to you, a black jeep suddenly hit the brakes. You turn your head to see what''s happening and see two large men jump of it and start to run towards you in. Before you can react and run away, they grap you and drag you into the car.'
@@ -68,7 +66,14 @@ if shantpopala > 0:
 	'"Oh, she is finally awake, then the next fuck-cycle will be far more fun.", one of the men said, as he noticed you moving. Some of them are starting to get a evil grin on their face.'
 	'They got up and came back at you, barely a minute later you wished your were still knocked out, as these jackasses had their ways with. You tried to resist, but the tape hindered you from moving. Not long after, everything faded to black and you lost you consciousness again.'
 	'You feel groggy as you wake up, but it feels like someone is grapping you by the hair and shouts at you. "Let this be a lesson for you, bitch.", he shouts, then kicks you into the stomach and leaves. As you collapse on the ground holding your stomach in pain, you take a glimpse at the street and see the assholes driving away in their black jeep. The mainroad is about 200m away, you crawl most of the way there, but soon you can walk again and eventually you find your way back to one of the mainstreets.'
-
+	
+	gs 'arousal', 'bj', 60, 'sub', 'gangbang' 'humiliation', 'rough'
+	gs 'arousal', 'vaginal', 60, 'sub', 'gangbang' 'humiliation', 'rough'
+	gs 'arousal', 'anal', 60, 'sub', 'gangbang' 'humiliation', 'rough'
+	gs 'arousal', 'end'
+	minut -= 60
+	gs 'stat'
+	
 	act 'Leave':gt $curloc
 
 	exit

+ 48 - 48
locations/kafeend

@@ -4,116 +4,116 @@ endrand = rand(0, 100)
 if endrand > 15:
 	gt 'street'
 elseif endrand = 0:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand.jpg"></center>'
 	'On leaving the cafe you see a large crowd of young people deciding where to go next. You also notice that one of the girls wasted no time and has started blowing her boyfriend completely undeterred by the crowd.'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 elseif endrand = 1:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand1.jpg"></center>'
 	'Coming out of the cafe you notice a car parked in the dark, passing it you see a light in the open trunk and see a guy there hammering his chick, so much so that the shocks are creaking as the car bounces. The girl just moans and whispers, "More, more!"'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 elseif endrand = 2:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand2.jpg"></center>'
 	'On leaving the cafe you saw a large crowd of young people deciding where to go next. In the crowd you are surprised to see one of the girls licking the pussy of another oblivious to the other people there.'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 elseif endrand = 3:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand3.jpg"></center>'
 	'Coming out of the cafe and on your way home, you walk past a car. You suddenly see a woman sitting on her heels give a contented guy a blowjob.'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 elseif endrand = 4:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand4.jpg"></center>'
 	'Coming out of the cafe and on your way home, you notice at the side of the cafe a couple, she is squatting down and sucking his cock.'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 elseif endrand = 5:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand5.jpg"></center>'
 	'Coming out of the cafe and on your way home, you walk past a car. You suddenly see a woman sitting in the front seat of the car blowing a guy as he stands by the door.'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 elseif endrand = 6:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand6.jpg"></center>'
 	'Coming out of the cafe you notice between parked cars a girl sitting with her pants down and pissing, while smiling blissfully.'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 elseif endrand = 7:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand7.jpg"></center>'
 	'Coming out of the cafe you see a laughing woman, dancing badly, showing off her panties, but still managing to drink from a cup.'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 elseif endrand = 8:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand8.jpg"></center>'
 	'Coming out of the cafe you noticed a girl lying on the pavement, she is wearing just a sweater and her pussy is completely exposed. The girl obviously passed out, drunk as a skunk.'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 elseif endrand = 9:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand9.jpg"></center>'
 	'Coming out of the cafe you noticed on the bench asleep a drunk guy with a girl, apparently sleep caught up with them during petting, you deduce from the scene.'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 elseif endrand = 10:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand10.jpg"></center>'
 	'Coming out of the cafe you notice a man and a drunk girl in the carpark, trying to drag another girl off the path.'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 elseif endrand = 11:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand11.jpg"></center>'
 	'Coming out of the cafe, you have to step over drunk girl passed out that right in front of the entrance lying on the pavement.'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 elseif endrand = 12:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand12.jpg"></center>'
 	'Coming out of the cafe, you see that the girl fell asleep drunk, sitting on a bin and collapsed there.'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 elseif endrand = 13:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand13.jpg"></center>'
 	'Coming out of the cafe you notice one girl trying to get her friend off the road, her drunken girlfriend mumbles something drunkenly giggling.'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 elseif endrand = 14:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand14.jpg"></center>'
 	'Coming out of the cafe you notice a drunk girl lying on the ground without any panties.'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 elseif endrand = 15:
-	pcs_horny += 5
-	gs 'stat'
 	'<center><img src="images/locations/city/residential/cafe/sex/arand15.jpg"></center>'
 	'Coming out of the cafe, you see a man leading his wife somewhere, clearly very drunk see has started to strip here on the street and is nearly naked.'
-
+	gs 'arousal', 'voyeur', 5
+	gs 'stat'
+	
 	act 'Leave':gt 'street'
 end
 

+ 41 - 17
locations/kino

@@ -50,13 +50,14 @@ if $ARGS[0] = '':
 								cla
 								*clr
 								guy += 1
-								stat['cuni'] += 1
-								pcs_horny += 10
 								'<center><img src="images/locations/city/citycenter/mall/cinema/sex/kino2.jpg"></center>'
 								'You lean back in you seat with legs spread, and motion form him to kneel between them'
 								'He eagerly drops to his knees, and gets to work pleasing you.'
 								'You moan in pleasure, as his tongue gently licks you clitoris, but after a few minutes you realize this guy just isn''t good enough to make you cum with his tongue.'
-
+								
+								gs 'arousal', 'cuni', 10, 'dom'								
+								gs 'stat'
+								
 								act 'Leave him hanging':pcs_dom += 1 & gt 'kino'
 								act 'Go for his crotch':gt 'kino', 'sex'
 							end
@@ -84,17 +85,22 @@ end
 
 if $ARGS[0] = 'sex':
 	cls
-	stat['bj'] += 1
-	gs 'stat'
 	'<center><img src="images/locations/city/citycenter/mall/cinema/sex/kino3.jpg"></center>'
 	'You take his cock into your mouth, and begin to suck it'
 	'After a few minutes, his groans of pleasure tell you that he is ready to pop.'
+	
+	gs 'arousal', 'cuni', 10, 'sub'								
+	gs 'stat'
 
 	act 'Keep sucking':
 		cla
 		spafinloc = 12
 		gs 'cum_manage'
 		'You continue suck until, your mouth is filled with his liquid warmth'
+		
+		gs 'arousal', 'cuni', 10, 'sub'
+		gs 'arousal', 'end'		
+	    gs 'stat'
 
 		act 'Leave':gt 'kino'
 	end
@@ -102,14 +108,16 @@ if $ARGS[0] = 'sex':
 	act 'Tell him to fuck you':
 		cla
 		*clr
-		stat['vaginal'] += 1
 		gs 'cum_manage'
-		pcs_horny += 50
 		'<center><img src="images/locations/city/citycenter/mall/cinema/sex/kino4.jpg"></center>'
-		'Stopping before he pops, you get up on the chair and wiggle your ass invitingly'
+		'Stopping before he pops, you get up on the chair and wiggle your ass invitingly.'
 		'"Oh, you''re going to get now", he boasts.'
 		'He hurriedly slides into you from behind, and after just a few pumps finishes inside you.'
 		
+		gs 'arousal', 'vaginal', 10, 'sub', 'exhibitionism'
+		gs 'arousal', 'end'
+		gs 'stat'
+		
 		act 'Leave unsatisfied':gt 'kino'
 	end
 end
@@ -135,12 +143,18 @@ if $ARGS[0] = 'sex2':
 			'<center><img src="images/locations/city/citycenter/mall/cinema/sex/kinosex3.jpg"></center>'
 			'You work your hand deeper down into the bag to get a firm grip on his buttery cock.'
 			'The stranger leans back with a smile. "That''s a good girl," he says, as you stroke your hand along his shaft.'
+			gs 'arousal', 'hj', 3								
+			gs 'stat'
+			
 			act 'Further':
 				cla
 				*clr		
 				'<center><img src="images/locations/city/citycenter/mall/cinema/sex/kinosex4.jpg"></center>'
 				'Feeling bold, you get him out of the bag. He groans loudly, when you begin to jerk him out in the open.'
 				'Realizing you may be drawing some unwanted attention he says: "Let''s move to the back, before I make a big mess."'
+				gs 'arousal', 'hj', 3								
+				gs 'stat'
+				
 				act 'Chicken out': gt 'kino'
 				act 'Move to the back':
 					cla
@@ -153,8 +167,11 @@ if $ARGS[0] = 'sex2':
 						cla
 						*clr
 						'<center><img src="images/locations/city/citycenter/mall/cinema/sex/kinosex6.jpg"></center>'
-						'Too late to turn back now you think, as you wrap you lips around his cock'
+						'Too late to turn back now you think, as you wrap you lips around his cock.'
 						'Soon all thoughts of the audience are gone, as you give yourself over to pleasing him.'
+						gs 'arousal', 'bj', 5, 'exhibitionism'							
+						gs 'stat'
+						
 						act 'Finish him quick': gt 'kino', 'kinoswallow'
 						act 'Fuck him':
 							cla
@@ -162,24 +179,29 @@ if $ARGS[0] = 'sex2':
 							'<center><img src="images/locations/city/citycenter/mall/cinema/sex/kinosex7.jpg"></center>'
 							'Throwing caution to the wind, you raise yourself up to sit on his lap.'
 							'You moan softly, as you slowly bounce up and down on his cock.'
-							'After a few minutes of this, he says, "Lie down on the seat, someone is going to spot you"'
+							'After a few minutes of this, he says, "Lie down on the seat, someone is going to spot you."'
+							gs 'arousal', 'vaginal', 5, 'exhibitionism'							
+							gs 'stat'
+							
 							act 'Lie down':
 								cls
-								orgasm += 1
-								pcs_horny = 0
-								stat['vaginal'] += 1
-								gs'stat'
 								'<center><img src="images/locations/city/citycenter/mall/cinema/sex/kinosex8.jpg"></center>'
 								'You lie back on the seats, and open your legs to the stranger. Now in charge, his thrusts come hard and fast. When he reaches a fever pitch, you cry out in pleasure, as he finishes inside you.'
+								gs 'arousal', 'vaginal', 10, 'exhibitionism'
+								$orgasm_or = 'yes'								
+								gs 'stat'
+								
 								act 'Oh, Shit':
 									cls
-									pcs_horny += 20
 									spafinloc = 0
 									gs 'cum_manage'
 									gs'stat'
 									'<center><img src="images/locations/city/citycenter/mall/cinema/sex/kinosex9.jpg"></center>'
 									'Somebody must''ve told an usher what was going on. "What the hell do you think you''re doing? I''m going to call the police," he says.'
 									'You hurriedly start gathering up your clothes, before he can act. Feeling a little thrill from being discovered like this, you make your escape.'
+									gs 'arousal', 'end'
+									gs 'stat'
+									
 									act 'Flee' :gt 'kino'
 								end
 							end
@@ -193,8 +215,6 @@ end
 
 if $ARGS[0] = 'kinoswallow':
 	cls
-	pcs_horny += 20
-	stat['bj'] += 1
 	spafinloc = 12
 	swallow += 1
 	gs 'cum_manage'
@@ -202,6 +222,10 @@ if $ARGS[0] = 'kinoswallow':
 	'<center><img src="images/locations/city/citycenter/mall/cinema/sex/kinosex10.jpg"></center>'
 	'Still a little worried about being discovered, you make an effort to finish him off.'
 	'A short time later, your efforts are rewarded, when a warm bust of semen fills your mouth.'
+	gs 'arousal', 'bj', 5, 'sub'
+	gs 'arousal', 'end'
+	gs 'stat'
+	
 	act 'Leave':gt 'kino'
 end
 

+ 91 - 0
locations/npcstatic4

@@ -3838,6 +3838,97 @@ npc_chem['A<<npctemp>>'] = 0
 npc_clothpref['A<<npctemp>>'] = 0
 $npc_PersType['A<<npctemp>>'] = 'XXXX'
 
+npctemp = 191
+$npc_firstname['A<<npctemp>>'] = '<<$namesob>>'
+$npc_nickname['A<<npctemp>>'] = '<<$namesob>>'
+$npc_lastname['A<<npctemp>>'] = 'your dog'
+$npc_usedname['A<<npctemp>>'] = ''<<$namesob>>', your dog'
+$npc_notes['A<<npctemp>>'] = 'Dog you purchase from the pet shop.'
+npc_dob['A<<npctemp>>'] = 0
+npc_vital['A<<npctemp>>'] = rand(10,50)
+npc_stren['A<<npctemp>>'] = rand(10,50)
+npc_intel['A<<npctemp>>'] = rand(10,50)
+npc_agil['A<<npctemp>>'] = rand(10,50)
+npc_sprt['A<<npctemp>>'] = rand(10,50)
+npc_magik['A<<npctemp>>'] = 0
+npc_drunk['A<<npctemp>>'] = 0
+npc_pantys['A<<npctemp>>'] = 0
+npc_cyc['A<<npctemp>>'] = -1
+npc_fert['A<<npctemp>>'] = -1
+$npc_firstpart['A<<npctemp>>'] = 'U'
+$npc_lastpart['A<<npctemp>>'] = 'U'
+$npc_kidpater['A<<npctemp>>'] = 'N'
+npc_gender['A<<npctemp>>'] = 0
+$npc_thdick['A<<npctemp>>'] = 'knotted'
+npc_dick['A<<npctemp>>'] = 7
+npc_sexskill['A<<npctemp>>'] = 0
+npc_spermpot['A<<npctemp>>'] = -1
+npc_vag['A<<npctemp>>'] = -1
+npc_ass['A<<npctemp>>'] = 0
+npc_hymen['A<<npctemp>>'] = -1
+npc_horny['A<<npctemp>>'] = 0
+npc_Pavrep['A<<npctemp>>'] = 0
+npc_Godrep['A<<npctemp>>'] = 0
+npc_apprnc['A<<npctemp>>'] = 0
+npc_lipbalm['A<<npctemp>>'] = 0
+npc_makeup['A<<npctemp>>'] = 0
+npc_sweat['A<<npctemp>>'] = 0
+npc_dye['A<<npctemp>>'] = 0
+npc_hairbsh['A<<npctemp>>'] = 0
+npc_skin['A<<npctemp>>'] = 0
+npc_bodyhair['A<<npctemp>>'] = 0
+npc_breath['A<<npctemp>>'] = 0
+npc_hipcurv['A<<npctemp>>'] = 0
+npc_hgt['A<<npctemp>>'] = 0
+npc_bust['A<<npctemp>>'] = 0
+npc_nips['A<<npctemp>>'] = 1
+npc_fat['A<<npctemp>>'] = 0
+npc_pubes['A<<npctemp>>'] = 0
+npc_hairlng['A<<npctemp>>'] = 0
+npc_haircol['A<<npctemp>>'] = 0
+npc_haircurl['A<<npctemp>>'] = 0
+npc_tan['A<<npctemp>>'] = 0
+npc_lip['A<<npctemp>>'] = 0
+npc_lashes['A<<npctemp>>'] = 0
+npc_eyesize['A<<npctemp>>'] = 0
+npc_eyecol['A<<npctemp>>'] = 0
+npc_dom['A<<npctemp>>'] = 0
+npc_sub['A<<npctemp>>'] = 0
+npc_glasses['A<<npctemp>>'] = 0
+npc_grades['A<<npctemp>>'] = 0
+npc_run['A<<npctemp>>'] = rand(1,10)
+npc_vball['A<<npctemp>>'] = rand(1,10)
+npc_shoot['A<<npctemp>>'] = rand(1,10)
+npc_sewing['A<<npctemp>>'] = rand(1,10)
+npc_serving['A<<npctemp>>'] = rand(1,10)
+npc_chess['A<<npctemp>>'] = rand(1,10)
+npc_dance['A<<npctemp>>'] = rand(1,10)
+npc_danceero['A<<npctemp>>'] = rand(1,10)
+npc_jab['A<<npctemp>>'] = rand(1,10)
+npc_punch['A<<npctemp>>'] = rand(1,10)
+npc_kick['A<<npctemp>>'] = rand(1,10)
+npc_def['A<<npctemp>>'] = rand(1,10)
+npc_vokal['A<<npctemp>>'] = rand(1,10)
+npc_teach['A<<npctemp>>'] = rand(1,10)
+npc_QW['A<<npctemp>>'] = 0
+npc_rel['A<<npctemp>>'] = 0
+npc_love['A<<npctemp>>'] = 0
+npc_job['A<<npctemp>>'] = 0
+npc_cloc['A<<npctemp>>'] = 0
+$npc_dad['A<<npctemp>>'] = 'U'
+$npc_mom['A<<npctemp>>'] = 'U'
+$npc_pic['A<<npctemp>>'] = 'xPICx'
+npc_herpes['A<<npctemp>>'] = 0
+npc_syth['A<<npctemp>>'] = 0
+npc_gon['A<<npctemp>>'] = 0
+npc_chlam['A<<npctemp>>'] = 0
+npc_genwart['A<<npctemp>>'] = 0
+npc_thrush['A<<npctemp>>'] = 0
+npc_malen['A<<npctemp>>'] = 0
+npc_chem['A<<npctemp>>'] = 0
+npc_clothpref['A<<npctemp>>'] = 0
+$npc_PersType['A<<npctemp>>'] = 'XXXX'
+
 
 !! {Keep this at the end of file of the npcstatics.}
 aarraynumber = npctemp