[fixed] A couple of manual uses of orgasm and lesbian that should be done via 'arousal'. There's a lot more to fix

locations/alexandriaSex.qsrc

@@ -6,6 +6,7 @@ $location_type = 'indoors'
 
 if $ARGS[0] = 'nice1':
 	*clr & cla
+	$orgasm_or = 'no'
 	gs 'arousal', 'foreplay', 5, 'lesbian'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/alexandria/sex/N1.jpg"></center>'
@@ -18,7 +19,7 @@ if $ARGS[0] = 'nice1':
 
 	act '"Your turn Aleksei"':
 		*clr & cla
-		gs 'arousal', 'clit_finger', 5
+		gs 'arousal', 'clit_finger', 5, 'lesbian'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/city/alexandria/sex/N2.jpg"></center>'
 		'He only answers with a raised eyebrow and an amused half-smile before taking your dominant hand towards his lips, lightly kissing your fingers.'
@@ -29,8 +30,9 @@ if $ARGS[0] = 'nice1':
 
 		act '"Stop teasing me!"':
 			*clr & cla
-			gs 'arousal', 'foreplay', 5
-			gs 'arousal', 'cuni', 5
+			gs 'arousal', 'foreplay', 5, 'lesbian'
+			$orgasm_or = 'yes'
+			gs 'arousal', 'cuni', 5, 'lesbian', 'no_orgasm_msg'
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/characters/city/alexandria/sex/N3.jpg"></center>'
 			'When you try to play with your trapped cunt, he slaps your hand and forcefully takes it away.'
@@ -53,7 +55,7 @@ if $ARGS[0] = 'nice1':
 
                 act 'It''s his turn':
 					*clr & cla
-					gs 'arousal', 'cuni_give', 10
+					gs 'arousal', 'cuni_give', 10, 'lesbian'
 					gs 'arousal', 'end'
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/city/alexandria/sex/N5.jpg"></center>'
@@ -74,8 +76,6 @@ if $ARGS[0] = 'nice1':
 						pcs_sweat = 0
 						pcs_breath = 1
 						girl += 1
-						lesbian += 1
-						orgasm += 1
 						if succubusflag = 1:
 							scfeed = succublvl + rand(1,4)
 							sexnutrition += 100 * scfeed
@@ -103,8 +103,9 @@ end
 
 if $ARGS[0] = 'grumpy1':
 	*clr & cla
-	gs 'arousal', 'massage', 5, 'sub'
-	gs 'arousal', 'BDSM', 5, 'sub'
+	$orgasm_or 'no'
+	gs 'arousal', 'massage', 5, 'sub', 'lesbian'
+	gs 'arousal', 'BDSM', 5, 'sub', 'lesbian'
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/characters/city/alexandria/sex/G1.jpg"></center>'
 	'You find yourself tied in bondage gear with a ball gag in your mouth kneeling in the center of a bare-bones room, looking directly at assorted tools that you can barely recognize. Some are piercing equipment that are used for body modification, others seem surgical and the rest look like they were taken from a toolbox.'
@@ -116,8 +117,8 @@ if $ARGS[0] = 'grumpy1':
 
 	act 'He slaps you':
 		*clr & cla
-		gs 'arousal', 'massage', 5, 'sub'
-		gs 'arousal', 'BDSM', 5, 'sub'
+		gs 'arousal', 'massage', 5, 'sub', 'lesbian'
+		gs 'arousal', 'BDSM', 5, 'sub', 'lesbian'
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/characters/city/alexandria/sex/G2.jpg"></center>'
 		'You are quivering under Aleksei ministrations when the strike comes. He smacks your exposed breasts several times, turning your gagged moans into silent screams. When you instinctively try to get away from him, one of his hands darts towards your hair, locking you painfully in position.'
@@ -128,8 +129,9 @@ if $ARGS[0] = 'grumpy1':
 
 		act 'The torture continues':
 			*clr & cla
-			gs 'arousal', 'vaginal_finger', 5, 'sub'
-			gs 'arousal', 'BDSM', 5, 'sub'
+			gs 'arousal', 'BDSM', 5, 'sub', 'lesbian'
+			$orgasm_or 'yes'
+			gs 'arousal', 'vaginal_finger', 5, 'sub', 'lesbian', 'no_orgasm_msg'
 			'<center><img <<$set_imgh>> src="images/characters/city/alexandria/sex/G3.jpg"></center>'
 			'Finally, after who knows how long, Aleksei breaks away from you and stands up, looking down at you with a critical eye as he drags slowly on a cigarette, the silence eternalizing as you kneel before him.'
 			'"You have done well, my new pet."'
@@ -153,8 +155,8 @@ if $ARGS[0] = 'grumpy1':
 
                 act 'It''s his turn':
 					*clr & cla
-					gs 'arousal', 'cuni_give', 10, 'sub'
-					gs 'arousal', 'BDSM', 5, 'sub'
+					gs 'arousal', 'BDSM', 5, 'sub', 'lesbian'
+					gs 'arousal', 'cuni_give', 10, 'sub', 'lesbian'
 					gs 'arousal', 'end'
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="images/characters/city/alexandria/sex/G5.jpg"></center>'
@@ -180,8 +182,6 @@ if $ARGS[0] = 'grumpy1':
 						pain['wrists'] +=5
 						pain['ankles'] +=5
 						girl += 1
-						lesbian += 1
-						orgasm += 1
 						if succubusflag = 1:
 							scfeed = succublvl + rand(1,4)
 							sexnutrition += 50 * scfeed