sex_ev_foreplay refactoring

sugarcube/src/autogenerated/unsorted/sex_ev_foreplay.tw

@@ -1,8 +1,7 @@
-:: sex_ev_foreplay
-<<set $here = 'sex_ev_foreplay'>>
-<<set $ARGS = $location_var[$here]>>
+:: sex_ev_foreplay[event]
 <!-- !! ------------------------- Generic Sex Event Foreplay ------------------------->
-<<if $location_var[$here][0] == 'undress'>>
+<<switch $location_var[$here][0]>>
+<<case 'undress'>>
 	/*<<if getvar("$CloDress") == 1>>
 		<<setinit $sex_ev['CloDress'] = 1>>
 
@@ -10,15 +9,13 @@
 	<<strip 'clothes'>>
 	<<strip 'bra'>>
 	<<strip 'panties'>>
-	/*<<arouse 'foreplay' 2 >>
+	<<arouse 'foreplay' 2 >>
 	<<arouse 'foreplay_give' -2 >>
 	<<video "shared/sex/misc/undress1.mp4">>
 	<!-- !! initiative call-->
-	You tear each other''s clothes off, leaving a trail of discarded fabrics leading to the bed.
-	<<gs 'sex_ev_foreplay' 'bed_start'>>*/
-<</if>>
-:: asdasdasd
-<<if $location_var[$here][0] == 'bed_start'>>
+	You tear each other's clothes off, leaving a trail of discarded fabrics leading to the bed.
+	<<act 'Continue'>><<gt 'sex_ev_foreplay' 'bed_start'>><</act>>
+<<case 'bed_start'>>
 	<<setinit $sex_ev['start_time'] = $totminut>>
 	<!-- !! $sex_ev['bed_room']-->
 	<<if rand(0,1) == 1>>
@@ -28,20 +25,20 @@
 		<<elseif $npcs.get($boy,'selfish') == 1>>
 			<<gs 'sex_ev_foreplay' 'selfish_initiative'>>
 		<<else>>
-			<<if rand(0,1) == 1>>
+			<<either>>
 				<<gs 'sex_ev_foreplay' 'generous_initiative'>>
-			<<else>>
+			<<or>>
 				<<gs 'sex_ev_foreplay' 'selfish_initiative'>>
-			<</if>>
+			<</either>>
 		<</if>>
 	<<else>>
 		<!-- !! player wins initiative-->
 		<!-- !!		'You both tear your clothes off, getting naked as fast as possible, you finishing just before he does. You take the extra moment to decide what you want to do...'-->
 		<<gs 'sex_ev_foreplay' 'foreplay_choose'>>
 	<</if>>
-<</if>>
+
 <!-- !! --------------------- Boy''s choices ------------------------------------------------------------------------>
-<<if $location_var[$here][0] == 'generous_initiative'>>
+<<case 'generous_initiative'>>
 	<!-- !! cunnilingus or nipple play-->
 	<<if (rand(0,1) == 1 or $npcs.get($boy,'pussyeater') == 1) and getvar("$sex_ev['sensitive_cuni']") != 1>>
 		<!-- !! cunnilingus-->
@@ -62,15 +59,13 @@
 			<<gs 'sex_ev_foreplay' 'nipple_play'>>
 		<</actCLA>>
 	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'selfish_initiative'>>
+<<case 'selfish_initiative'>>
 	<<if rand(1,2) == 1>>
 		<<gs 'sex_ev_foreplay' 'selfish_bj_start'>>
 	<<else>>
 		<<gs 'sex_ev_foreplay' 'selfish_fuck_start'>>
 	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'selfish_bj_start'>>
+<<case 'selfish_bj_start'>>
 	<p><<=$npcs.get($boy,'firstname')>> pulls you towards him and pushes you to your knees in the same motion, dangling his cock in front of your face. It's pretty obvious what he wants right now...</p>
 	<<actCLA 'Don`t wanna suck cock'>>
 		$sex_ev['bed_room']
@@ -139,8 +134,7 @@
 	<<actCLA 'Blow him'>>
 		<<gt 'sex_ev_foreplay' 'bj_sub1'>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'selfish_fuck_start'>>
+<<case 'selfish_fuck_start'>>
 	<<gs 'sex_ev_condoms' 'setup'>>
 	<<setinit $sex_ev['position_rand'] = rand(1,3)>>
 	<<setinit $sex_ev['must_fuck'] = 1>>
@@ -158,8 +152,8 @@
 					<<gs 'sex_ev_virgin' 'start3'>>
 				<</actCLA>>
 			<<else>>
-				<<actCLA 'Let $npcs.get('+$boy,'firstname')+' fuck you'>>
-					<<gt 'sex_ev_$sex_ev['position']' '$sex_ev['position']_goto'>>
+				<<actCLA 'Let him fuck you'>>
+					<<gt `'sex_ev_'+$sex_ev['position']` '$sex_ev['position']_goto'>>
 				<</actCLA>>
 			<</if>>
 			<<gs 'sex_ev_condoms' 'condom_wait'>>
@@ -173,8 +167,8 @@
 				<<image "shared/sex/foreplay/cowgirl1.jpg">>
 				<p><<=$npcs.get($boy,'firstname')>> drags you down on the bed with him, pulling you up so you're straddling him to ride his cock.</p>
 			<</if>>
-			<<actCLA 'Let $npcs.get('+$boy,'firstname')+' fuck you'>>
-				<<gt 'sex_ev_$sex_ev['position']' '$sex_ev['position']_goto'>>
+			<<actCLA 'Let him fuck you'>>
+				<<gt `'sex_ev_'+$sex_ev['position']` '$sex_ev['position']_goto'>>
 			<</actCLA>>
 			<<gs 'sex_ev_condoms' 'condom_wait'>>
 		<<else>>
@@ -195,8 +189,8 @@
 						<<gs 'sex_ev_virgin' 'start3'>>
 					<</actCLA>>
 				<<else>>
-					<<actCLA 'Let $npcs.get('+$boy,'firstname')+' fuck you'>>
-						<<gs 'sex_ev_condoms' 'npc_condom_use_stats'>> <<gt 'sex_ev_$sex_ev['position']' '$sex_ev['position']_goto'>>
+					<<actCLA 'Let him fuck you'>>
+						<<gs 'sex_ev_condoms' 'npc_condom_use_stats'>> <<gt `'sex_ev_'+$sex_ev['position']` '$sex_ev['position']_goto'>>
 					<</actCLA>>
 				<</if>>
 				<<gs 'sex_ev_condoms' 'temp_disable_condoms'>>
@@ -213,8 +207,8 @@
 					<p><<=$npcs.get($boy,'firstname')>> drags you down on the bed with him, pulling you up so you're straddling him to ride his cock.</p>
 				<</if>>
 				"I'm going to fuck you silly," he growls as he tears open a condom and starts rolling it onto his cock.
-				<<actCLA 'Let $npcs.get('+$boy,'firstname')+' fuck you'>>
-					<<gs 'sex_ev_condoms' 'npc_condom_use_stats'>> <<gt 'sex_ev_$sex_ev['position']' '$sex_ev['position']_goto'>>
+				<<actCLA 'Let him fuck you'>>
+					<<gs 'sex_ev_condoms' 'npc_condom_use_stats'>> <<gt `'sex_ev_'+$sex_ev['position']` '$sex_ev['position']_goto'>>
 				<</actCLA>>
 				<<gs 'sex_ev_condoms' 'temp_disable_condoms'>>
 			<<else>>
@@ -226,9 +220,8 @@
 			<<gs 'sex_ev_foreplay' 'selfish_fuck_start'>>
 		<</if>>
 	<</if>>
-<</if>>
 <!-- !! --------------------- generous stuff ----------------------------------------------------->
-<<if $location_var[$here][0] == 'kuni_ask'>>
+<<case 'kuni_ask'>>
 	<<actCLA 'Ask him to eat you out'>>
 		<p>"Do you think you could give me some TLC?" you ask. "A little tongue action?"</p>
 		<<if $npcs.get($boy,'pussyeater') == 1>>
@@ -240,8 +233,7 @@
 			<<gs 'sex_ev_foreplay' 'pussy_lick'>>
 		<</actCLA>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'kuni_start'>>
+<<case 'kuni_start'>>
 	<<actCLA 'Spread them for him'>>
 		<!-- !! IMAGE HERE-->
 		<<setinit $sex_ev['kuni'] = 1>>
@@ -310,8 +302,7 @@
 			<</if>>
 		<</actCLA>>
 	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'cuni_alternatives'>>
+<<case 'cuni_alternatives'>>
 	<<if $npcs.get($boy,'no_kiss') != 1>>
 		<<actCLA 'We could just make out?'>>
 			<p>"Can we just... make out?" you ask.</p>
@@ -352,8 +343,7 @@
 			<<gs 'sex_ev_sex' 'position_change'>>
 		<</actCLA>>
 	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'period_lick'>>
+<<case 'period_lick'>>
 	<<video "shared/sex/kuni/pussylick4.mp4">>
 	<<arouse 'cuni' `rand(5,10)` `['no_orgasm_msg']`>>
 	<<arouse 'cuni' -10 `['no_orgasm_msg']`>>
@@ -401,8 +391,7 @@
 		<</actCLA>>
 		<<gs 'sex_ev_sex' 'sex_start'>>
 	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'pussy_lick'>>
+<<case 'pussy_lick'>>
 	<<video "shared/sex/kuni/pussylick4.mp4">>
 	<<arouse 'cuni' `rand(5,10)` `['no_orgasm_msg']`>>
 	<<setinit $sex_ev['position'] = 'kuni'>>
@@ -458,8 +447,7 @@
 		<</actCLA>>
 		<<gs 'sex_ev_sex' 'sex_start'>>
 	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'pussy_lick_loop'>>
+<<case 'pussy_lick_loop'>>
 	<<setinit $sex_ev['cuni_count'] += 1>>
 	<<if getvar("$sex_ev['consecutive_cuni_orgasm']") == 0>>
 		<p>But <<=$npcs.get($boy,'firstname')>> is relentless. Even as your climax winds down, he doesn't stop, continuing to eat you out.</p>
@@ -500,8 +488,7 @@
 	<</if>>
 	<<gs 'sex_ev_foreplay' 'cuni_too_sensitive'>>
 	<<gs 'sex_ev_sex' 'sex_start'>>
-<</if>>
-<<if $location_var[$here][0] == 'cuni_too_sensitive'>>
+<<case 'cuni_too_sensitive'>>
 	<<actCLA 'Stop him (too sensitive)'>>
 		<!-- !! IMAGE HERE-->
 		$sex_ev['bed_room']
@@ -523,8 +510,7 @@
 			<<gs 'sex_ev_sex' 'sex_start'>>
 		<</actCLA>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'nipple_play'>>
+<<case 'nipple_play'>>
 	<<video "shared/sex/foreplay/nipple_play1.mp4">>
 	<<arouse 'foreplay' `rand(5,10)` `['no_orgasm_msg']`>>
 	<<setinit $sex_ev['position'] = 'nipple_play'>>
@@ -546,8 +532,8 @@
 					<<gs 'sex_ev_virgin' 'start3'>>
 				<</actCLA>>
 			<<elseif getvar("$sex_ev['condom']") != 0 or getvar("$sex_ev['no_condom']") != 0>>
-				<<actCLA 'Let $npcs.get('+$boy,'firstname')+' fuck you'>>
-					<<gs 'sex_ev_condoms' 'npc_condom_use_stats'>> <<gt 'sex_ev_$sex_ev['position']' '$sex_ev['position']_goto'>>
+				<<actCLA 'Let him fuck you'>>
+					<<gs 'sex_ev_condoms' 'npc_condom_use_stats'>> <<gt `'sex_ev_'+$sex_ev['position']` '$sex_ev['position']_goto'>>
 				<</actCLA>>
 			<<else>>
 				<<gs 'sex_ev_condoms' 'condoms'>>
@@ -556,13 +542,11 @@
 			<!-- !!			if $sex_ev['type'] ! 'hookup': gs 'sex_ev_condoms', 'disable_condoms'-->
 		<</if>>
 	<</actCLA>>
-<</if>>
 <!-- !! --------------------- selfish stuff ----------------------------------------------------->
-<<if $location_var[$here][0] == 'bj_ask'>>
+<<case 'bj_ask'>>
 	<p>"How about a blowjob?" <<=$npcs.get($boy,'firstname')>> asks.</p>
 	<<gs 'sex_ev_foreplay' 'bj_ask2'>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_ask2'>>
+<<case 'bj_ask2'>>
 	<<actCLA 'Reluctant'>>
 		<<setinit $sex_ev['reluctant_bj'] = 1>>
 		"Ugh, fiiine..." you sigh and crawl down between his legs.
@@ -620,8 +604,7 @@
 	end
 	end
 	end} -->
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub1'>>
+<<case 'bj_sub1'>>
 	<<setinit $sex_ev['bj_count'] += 1>>
 	<<setinit $sex_ev['bj_type'] = 'sub'>>
 	<<arouse 'bj' `rand(2,7)` `['no_orgasm_msg']`>>
@@ -633,9 +616,8 @@
 		<p>You lean forward and take him in your mouth, gently sucking his cock and bobbing your head up and down on it. You take pride in your work, doing your best to make <<=$npcs.get($boy,'firstname')>> feel good.</p>
 	<</if>>
 	<<gs 'sex_ev_foreplay' 'bj_sub_cum_sort'>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub1_continue'>>
-	<<actCLA 'Keep blowing $npcs.get('+$boy,'firstname')+''>>
+<<case 'bj_sub1_continue'>>
+	<<actCLA 'Keep blowing'>>
 		<<setinit $sex_ev['cycle_limit'] += 1>>
 		<<video "shared/sex/blowjob/bj#.mp4" 46 50>>
 		<p>You keep blowing <<=$npcs.get($boy,'firstname')>>, working his cock with your lips and his shaft with your hand, making sure to add in lots of tongue and drool even more spit.</p>
@@ -652,15 +634,13 @@
 		<</if>>
 		<<gs 'sex_ev_sex' 'sex_start'>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub2'>>
+<<case 'bj_sub2'>>
 	<<setinit $sex_ev['bj_count'] += 1>>
 	<<arouse 'bj' `rand(2,7)` `['no_orgasm_msg']`>>
 	<<video "shared/sex/blowjob/bj52.mp4">>
 	<p><<=$npcs.get($boy,'firstname')>> slowly pumps his cock in and out of your mouth, plunging it all the way down your throat where you can feel it press against your windpipe. You keep it loose while he does all the work, occasionally letting your tongue snake out for a cheeky lick, but otherwise just let <<=$npcs.get($boy,'firstname')>> keep fucking your face.</p>
 	<<gs 'sex_ev_foreplay' 'bj_sub_cum_sort'>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_surprise'>>
+<<case 'bj_sub_cum_surprise'>>
 	<<actCLA 'Continue'>>
 		<<video "shared/sex/cum/mouth/swallow5.mp4">>
 		<<setinit $sex_ev['last_cum'] = 'mouth'>>
@@ -733,8 +713,7 @@
 			<<gs 'sex_ev_reactions' 'bj_warning_next_time'>>
 		<</actCLA>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_where'>>
+<<case 'bj_sub_cum_where'>>
 	<<actCLA 'Where do you want to cum?'>>
 		<<video "shared/sex/blowjob/play1.mp4">>
 		<p>You pull your lips off <<=$npcs.get($boy,'firstname')>>'s cock with a pop.</p>
@@ -754,8 +733,7 @@
 			<<gs 'sex_ev_foreplay' 'bj_sub_cum_mouth1.2'>>
 		<</if>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_hand'>>
+<<case 'bj_sub_cum_hand'>>
 	<<actCLA 'Finish him with your hand'>>
 		<<setinit $sex_ev['last_cum'] = 'hand'>>
 		<<setinit $sex_ev['cum_hand'] = 1>>
@@ -770,15 +748,13 @@
 		<<gs 'sex_ev_sex' 'sex_end'>>
 		<<gs 'sex_ev_after' 'wipe_hands'>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_mouth1'>>
+<<case 'bj_sub_cum_mouth1'>>
 	<<setinit $sex_ev['he_ask_mouth'] = 1>>
 	<<setinit $sex_ev['cum_choice'] = 'mouth'>>
 	<p>After a few minutes, <<=$npcs.get($boy,'firstname')>> taps you on the head."</p>
 	<p>"I'm gonna- <i>nngh-!</i> Can I cum in your mouth?"</p>
 	<<gs 'sex_ev_foreplay' 'bj_sub_cum_mouth1.2'>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_mouth1.2'>>
+<<case 'bj_sub_cum_mouth1.2'>>
 	<<actCLA 'Why?'>>
 		<<video "shared/sex/blowjob/play1.mp4">>
 		You let his cock pop out of your mouth for a moment, giving him a quizzical look.
@@ -849,8 +825,7 @@
 		"That sounds like it it would be pretty hot," he says and you scooch forward, presenting your chest for him.
 		<<gs 'sex_ev_foreplay' 'bj_sub_cum_tits2'>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_mouth2'>>
+<<case 'bj_sub_cum_mouth2'>>
 	<!-- !! player choosing/forcing it-->
 	<<actCLA 'Make him come in your mouth'>>
 		<<setinit $sex_ev['cum_mouth'] = 1>>
@@ -868,8 +843,7 @@
 		<!-- !!		gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_swallow'-->
 		<!-- !!		gs 'sex_ev_foreplay', 'bj_sub_cum_mouth_yuck1'-->
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_mouth_spit'>>
+<<case 'bj_sub_cum_mouth_spit'>>
 	<<actCLA 'Spit'>>
 		<<setinit $sex_ev['cum_mouth'] = 1>>
 		<<setinit $sex_ev['spit'] = 1>>
@@ -890,8 +864,7 @@
 		<</if>>
 		<<gs 'sex_ev_reactions' 'bj_spit_gross'>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_mouth_gag'>>
+<<case 'bj_sub_cum_mouth_gag'>>
 	<<actCLA 'Let him (and gag)'>>
 		<<setinit $sex_ev['cum_mouth'] = 1>>
 		<<setinit $sex_ev['gag'] = 1>>
@@ -904,8 +877,7 @@
 		<p>"Oh <i>fuck!</i>" you grimace, tears in your eyes, hand to your mouth, desperately trying to avoid throwing up. "That was... Ugh! Don't ever ask me to do that again!"</p>
 		<<gs 'sex_ev_sex' 'sex_end'>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_mouth_swallow'>>
+<<case 'bj_sub_cum_mouth_swallow'>>
 	<<actCLA 'Swallow'>>
 		<<setinit $sex_ev['cum_swallow'] += 1>>
 		<<setinit $sex_ev['last_cum'] = 'mouth'>>
@@ -946,8 +918,7 @@
 			<</if>>
 		<</if>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_face1'>>
+<<case 'bj_sub_cum_face1'>>
 	<!-- !! asks to come on face-->
 	<<setinit $sex_ev['he_ask_facial'] = 1>>
 	<<setinit $sex_ev['cum_choice'] = 'face'>>
@@ -964,8 +935,7 @@
 		<</actCLA>>
 	<</actCLA>>
 	<<gs 'sex_ev_foreplay' 'bj_sub_cum_face1.2'>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_face1.2'>>
+<<case 'bj_sub_cum_face1.2'>>
 	<<actCLA 'Let him (gross)'>>
 		<<setinit $sex_ev['cum_face'] = 1>>
 		<<setinit $sex_ev['last_cum'] = 'facial'>>
@@ -1033,11 +1003,9 @@
 		<<gs 'sex_ev_sex' 'sex_end'>>
 		<<gs 'sex_ev_after' 'wipe_face'>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_face2'>>
+<<case 'bj_sub_cum_face2'>>
 	<!-- !! comes on face without warning-->
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_face3'>>
+<<case 'bj_sub_cum_face3'>>
 	<!-- !! player choosing to do it-->
 	<<if getvar("$sex_ev['he_ask_mouth']") == 1>>
 		<<setinit $sex_ev['act_desc'] = 'How about my face instead?'>>
@@ -1046,7 +1014,7 @@
 		<<setinit $sex_ev['act_desc'] = 'Wanna come on my face?'>>
 		<<setinit $sex_ev['cum_desc'] = 'Wanna come on my face?'>>
 	<</if>>
-	<<actCLA ''+$sex_ev['act_desc']+''>>
+	<<actCLA $sex_ev['act_desc']>>
 		$sex_ev['bed_room']
 		You pull your lips back from his cock with a pop.
 		<p>"$sex_ev['cum_desc']" you ask.</p>
@@ -1059,8 +1027,7 @@
 			<<gt 'sex_ev_cum' 'facial_jerk_him'>>
 		<</actCLA>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_tits1'>>
+<<case 'bj_sub_cum_tits1'>>
 	<<setinit $sex_ev['he_ask_tits'] = 1>>
 	<<setinit $sex_ev['cum_choice'] = 'tits'>>
 	<p>Within a few minutes, <<=$npcs.get($boy,'firstname')>> taps you on the head."</p>
@@ -1072,8 +1039,7 @@
 		<<gs 'sex_ev_foreplay' 'bj_sub_cum_mouth2'>>
 	<</actCLA>>
 	<<gs 'sex_ev_foreplay' 'bj_sub_cum_tits1.2'>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_tits1.2'>>
+<<case 'bj_sub_cum_tits1.2'>>
 	<<actCLA 'Jerk him over your tits'>>
 		<<setinit $sex_ev['cum_tits'] = 1>>
 		<<setinit $sex_ev['cum_count'] += 1>>
@@ -1086,8 +1052,7 @@
 		<<gs 'sex_ev_after' 'wipe_tits'>>
 	<</actCLA>>
 	<<gs 'sex_ev_cum' 'cum_tits4'>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_tits2'>>
+<<case 'bj_sub_cum_tits2'>>
 	<!-- !! player choosing to do it-->
 	<<actCLA 'Jerk him over your tits'>>
 		<<setinit $sex_ev['cum_tits'] = 1>>
@@ -1123,8 +1088,7 @@
 		<</actCLA>>
 	<</if>>
 	<<gs 'sex_ev_cum' 'cum_tits4'>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_force_cum_mouth'>>
+<<case 'bj_force_cum_mouth'>>
 	<<setinit $sex_ev['cum_mouth'] = 1>>
 	<<setinit $sex_ev['cum_mouth_force'] = 1>>
 	<<setinit $sex_ev['last_cum'] = 'mouth'>>
@@ -1181,8 +1145,7 @@
 		<<gs 'sex_ev_foreplay' 'lucky_like'>>
 		<!-- !!		gs 'sex_ev_foreplay', 'sub_option'-->
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_force_cum_wtf'>>
+<<case 'bj_force_cum_wtf'>>
 	<<actCLA 'What the fuck'>>
 		$sex_ev['bed_room']
 		<<setinit $sex_ev['mad'] = 1>>
@@ -1192,22 +1155,19 @@
 		<<gs 'sex_ev_foreplay' 'bj_force_cum_grumble'>>
 		<<gs 'sex_ev_foreplay' 'bj_force_cum_submit'>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'be_nice'>>
+<<case 'be_nice'>>
 	<<actCLA 'Be nicer next time?'>>
 		<p>"If you really want it that badly, maybe be a little nicer about it next time?" You give him a gentle smile, eyes still glistening. "I don't mind <i>that</i> much, but if you ask nicely..."</p>
 		"We'll see," he says.
 		<<gs 'sex_ev_sex' 'sex_end'>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'lucky_like'>>
+<<case 'lucky_like'>>
 	<<actCLA 'You`re lucky I like you'>>
 		<p>Pulling back, you wipe your lips and give <<=$npcs.get($boy,'firstname')>> a dry stare.</p>
 		"You're lucky I like you," you say. "Otherwise I might get really mad about that."
 		<p>"Oh yeah?" he says. "What does that look like? Maybe I want to see that."</p>
 		<<gs 'sex_ev_sex' 'sex_end'>>
 	<</actCLA>>
-<</if>>
 <!-- !!if $ARGS[0] = 'sub_option':-->
 <!-- !!	act'sub_option':-->
 <!-- !!		cla & *nl-->
@@ -1215,7 +1175,7 @@
 <!-- !!		gs 'sex_ev_sex', 'sex_end'-->
 <!-- !!	end-->
 <!-- !!end-->
-<<if $location_var[$here][0] == 'bj_force_cum_submit'>>
+<<case 'bj_force_cum_submit'>>
 	<<actCLA 'Submit'>>
 		<<set $pc.horny += 50>>
 		<<setinit $sex_ev['last_cum'] = 'swallow'>>
@@ -1225,8 +1185,7 @@
 		Heat spreads through your hips and you can feel your pussy begin to practically <i>drool</i> with moisture.
 		<<gs 'sex_ev_sex' 'sex_end'>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_force_cum_grumble'>>
+<<case 'bj_force_cum_grumble'>>
 	<<actCLA 'Grumble'>>
 		$sex_ev['bed_room']
 		<p>"Hmph!" you tug your chin out of his grasp, internally grumbling to yourself, but you don't press the issue any further.</p>
@@ -1304,8 +1263,7 @@
 			<</actCLA>>
 		<</if>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_warn'>>
+<<case 'bj_sub_cum_warn'>>
 	<<setinit $sex_ev['bj_cum'] = 3>>
 	<<setinit $sex_ev['cum_warn'] = 1>>
 	After a couple more minutes, he taps you on the head.
@@ -1327,8 +1285,7 @@
 			<<gs 'sex_ev_sex' 'sex_start'>>
 		<</actCLA>>
 	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_lets_fuck'>>
+<<case 'bj_sub_lets_fuck'>>
 	<p>After a couple more minutes <<=$npcs.get($boy,'firstname')>> pushes your head away, your saliva trailing from his cock.</p>
 	<<if $pc.thinksIsVirgin and getvar("$sex_ev['fuck_count']") == 0>>
 		<<if getvar("$know_virgin["+$boy+"]") == 1>>
@@ -1427,14 +1384,12 @@
 			<</if>>
 		<</actCLA>>
 	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_resume'>>
+<<case 'bj_resume'>>
 	<<arouse 'bj' `rand(5,10)` `['no_orgasm_msg']`>>
 	<<video "shared/sex/blowjob/bj47.mp4">>
 	<p>You go back to blowing <<=$npcs.get($boy,'firstname')>>, humming to yourself as you relax while bobbing your head up and down the length of his cock.</p>
 	<<gs 'sex_ev_foreplay' 'bj_sub_cum_sort'>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_sort'>>
+<<case 'bj_sub_cum_sort'>>
 	<<setinit $sex_ev['bj_cum_choice'] = rand(1,20)>>
 	<<if getvar("$sex_ev['bj_cum_choice']") > 12 and getvar("$sex_ev['not_today']") == 0>>
 		<<gs 'sex_ev_foreplay' 'bj_sub_lets_fuck'>>
@@ -1457,8 +1412,7 @@
 	<<else>>
 		<<gs 'sex_ev_foreplay' 'bj_sub1_continue'>>
 	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_sub_cum_wait'>>
+<<case 'bj_sub_cum_wait'>>
 	After a couple more minutes, he taps you on the head.
 	<<if getvar("$sex_ev['fuck_count']") == 0>>
 		<p>"Wait-! I'm gonna come if you keep that up!" he groans loudly. "I wanna fuck you first."</p>
@@ -1476,13 +1430,11 @@
 	<<gs 'sex_ev_foreplay' 'bj_sub_cum_mouth2'>>
 	<<gs 'sex_ev_foreplay' 'bj_sub_cum_face3'>>
 	<<gs 'sex_ev_foreplay' 'bj_sub_cum_tits2'>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_end'>>
+<<case 'bj_end'>>
 	<<gs 'sex_ev_sex' 'harden_hand'>>
 	<<gs 'sex_ev_sex' 'harden_mouth'>>
-<</if>>
 <!-- !! --------------------- player''s choices ------------------------------------------------------------------------>
-<<if $location_var[$here][0] == 'foreplay_choose'>>
+<<case 'foreplay_choose'>>
 	<<setinit $sex_ev['fuck'] = 0>>
 	<<if $sex_ev['position'] != 'makeout'>>
 		<<gs 'sex_ev_foreplay' 'makeout_dom1'>>
@@ -1521,10 +1473,8 @@
 			<<gt 'sex_ev_sex' 'sex_pre'>>
 		<</actCLA>>
 	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'foreplay_rand'>>
-<</if>>
-<<if $location_var[$here][0] == 'makeout_dom1'>>
+<<case 'foreplay_rand'>>
+<<case 'makeout_dom1'>>
 	<<if $npcs.get($boy,'no_kiss') != 1>>
 		<<actCLA 'Make out with him'>>
 			<<run $npcs.set($boy,'no_kiss',2)>>
@@ -1545,7 +1495,7 @@
 			<</if>>
 			<<actCLA 'Move your hand to his cock'>>
 				<<arouse 'kiss' `rand(2,4)` `['no_orgasm_msg']`>>
-				<<arouse 'hj' -rand(2,4) `['no_orgasm_msg']`>>
+				<<arouse 'hj' `-rand(2,4)` `['no_orgasm_msg']`>>
 				<<video "shared/sex/foreplay/makeout2.mp4">>
 				You snake your hand down to his cock and jerk it gently while continuing to make out with him.
 				<<actCLA 'Keep making out'>>
@@ -1560,8 +1510,7 @@
 			<<gs 'sex_ev_foreplay' 'foreplay_choose'>>
 		<</actCLA>>
 	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'makeout_dom2'>>
+<<case 'makeout_dom2'>>
 	<<arouse 'kiss' `rand(2,4)` `['no_orgasm_msg']`>>
 	<<if rand(0,1) == 1>>
 		<<video "shared/sex/foreplay/makeout1.mp4">>
@@ -1579,10 +1528,9 @@
 	<</actCLA>>
 	<<gs 'sex_ev_foreplay' 'foreplay_choose'>>
 	<<gs 'sex_ev_sex' 'sex_start'>>
-<</if>>
-<<if $location_var[$here][0] == 'makeout_dom3'>>
+<<case 'makeout_dom3'>>
 	<<arouse 'kiss' `rand(2,7)` `['no_orgasm_msg']`>>
-	<<arouse 'hj' -rand(2,4) `['no_orgasm_msg']`>>
+	<<arouse 'hj' `-rand(2,4)` `['no_orgasm_msg']`>>
 	<<if rand(0,1) == 1>>
 		<<video "shared/sex/foreplay/makeout2.mp4">>
 		<p>You continue making out with <<=$npcs.get($boy,'firstname')>> while jerking him off, loving the taste of his lips and the feel of his tongue against yours and the hard swell of his cock in your hand.</p>
@@ -1599,8 +1547,7 @@
 	<</actCLA>>
 	<<gs 'sex_ev_foreplay' 'foreplay_choose'>>
 	<<gs 'sex_ev_sex' 'sex_start'>>
-<</if>>
-<<if $location_var[$here][0] == 'handjob_dom1'>>
+<<case 'handjob_dom1'>>
 	<<actCLA 'Play with his cock (hand)'>>
 		<<arouse 'hj' `rand(1,4)` `['no_orgasm_msg']`>>
 		<<setinit $sex_ev['position'] = 'handjob'>>
@@ -1618,8 +1565,7 @@
 		<<gs 'sex_ev_foreplay' 'foreplay_choose'>>
 		<<gs 'sex_ev_sex' 'sex_start'>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'hj_cum1'>>
+<<case 'hj_cum1'>>
 	<<setinit $sex_ev['cum_count'] += 1>>
 	<<setinit $sex_ev['cum_hand'] = 1>>
 	<<gs 'cum_call' 'hands' $boy 1>>
@@ -1635,8 +1581,7 @@
 		<p><<=$npcs.get($boy,'firstname')>> groans loudly and cum erupts from the tip of his cock. The thick liquid dribbles down your fingers, making his shaft incredibly slippery in your hand. A dirty grin is plastered across your face the whole time as you work his cock, determined to milk him for every drop.</p>
 	<</if>>
 	<<gs 'sex_ev_sex' 'sex_end'>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_dom1'>>
+<<case 'bj_dom1'>>
 	<<actCLA 'Play with his cock (mouth)'>>
 		<<setinit $sex_ev['position'] = 'blowjob_tease'>>
 		<<setinit $sex_ev['bj_tease'] += 1>>
@@ -1654,8 +1599,7 @@
 		<</actCLA>>
 		<<gs 'sex_ev_foreplay' 'foreplay_choose'>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_dom1_tease'>>
+<<case 'bj_dom1_tease'>>
 	<<actCLA 'Keep teasing'>>
 		<<arouse 'bj' `rand(1,3)` `['no_orgasm_msg']`>>
 		<<video "shared/sex/blowjob/play1.mp4">>
@@ -1673,8 +1617,7 @@
 		<</actCLA>>
 		<<gs 'sex_ev_sex' 'sex_start'>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_dom1_cum'>>
+<<case 'bj_dom1_cum'>>
 	<<actCLA 'Make him come'>>
 		<<video "shared/sex/handjob/hj3.mp4">>
 		<p><<=$npcs.get($boy,'firstname')>>'s warning only makes you want to force him to come even more and you begin rapidly jerking him off and he writhes under your touch. You feel a pulse run through his dick and you know he's going to come right now.</p>
@@ -1697,8 +1640,7 @@
 		gs 'sex_ev_sex', 'sex_end'
 		end} -->
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_dom2'>>
+<<case 'bj_dom2'>>
 	<<setinit $sex_ev['bj_count'] += 1>>
 	<<setinit $sex_ev['cycle_limit'] += 1>>
 	<<setinit $sex_ev['cock_inserted'] = 0>>
@@ -1710,8 +1652,7 @@
 	<<setinit $sex_ev['position'] = 'blowjob'>>
 	<p>You give him your best head, taking pride in your work, bobbing up and down his shaft and putting in the effort to make <<=$npcs.get($boy,'firstname')>> feel good.</p>
 	<<gs 'sex_ev_foreplay' 'bj_dom_cum_sort'>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_dom_cum_sort'>>
+<<case 'bj_dom_cum_sort'>>
 	<<if rand(1,10) == $npcs.get($boy,'sex_stamina') - 1 or (rand(1,10) > $npcs.get($boy,'sex_stamina') - 2 and $npcs.get($boy,'fav_pos') == 'blowjob')>>
 		<<gs 'sex_ev_foreplay' 'bj_sub_cum_surprise'>>
 	<<elseif $sex_ev['cycle_limit'] >= $npcs.get($boy,'sex_stamina')>>
@@ -1727,9 +1668,8 @@
 	<<else>>
 		<<gs 'sex_ev_foreplay' 'bj_dom2_continue'>>
 	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_dom2_continue'>>
-	<<actCLA 'Keep blowing $npcs.get('+$boy,'firstname')+''>>
+<<case 'bj_dom2_continue'>>
+	<<actCLA 'Keep blowing'>>
 		<<setinit $sex_ev['cycle_limit'] += 1>>
 		<<video "shared/sex/blowjob/bj#.mp4" 46 50>>
 		<p>You keep blowing <<=$npcs.get($boy,'firstname')>>, working his cock with your lips and his shaft with your hand, making sure to add in lots of tongue and drool even more spit.</p>
@@ -1746,8 +1686,7 @@
 		<</if>>
 		<<gs 'sex_ev_sex' 'sex_start'>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_dom2_cum_act'>>
+<<case 'bj_dom2_cum_act'>>
 	<<actCLA 'Pull back (sex)'>>
 		<<video "shared/sex/handjob/hj3.mp4">>
 		<<setinit $sex_ev['must_fuck'] = 1>>
@@ -1794,16 +1733,14 @@
 	gs 'sex_ev_foreplay', 'foreplay_choose'
 	gs 'sex_ev_sex', 'sex_start'
 	end} -->
-<</if>>
-<<if $location_var[$here][0] == 'bj_dom_tease_cum'>>
+<<case 'bj_dom_tease_cum'>>
 	<<gs 'cum_call' 'hands' $boy 1>>
 	<<setinit $sex_ev['cum_choice'] = 'hand'>>
 	<<setinit $sex_ev['cum_count'] += 1>>
 	<<video "shared/sex/cum/tease_cum1.mp4">>
 	Angling the tip of his cock away from your face and lick the shaft of his cock, moving your tongue in small teasing circles. Seconds later, cum erupts from the tip and he buckles beneath you. You can't help but smirk at his expression as you feel the warm liquid dribble down his shaft and across your fingers.
 	<<gs 'sex_ev_sex' 'sex_end'>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_dom_spit1'>>
+<<case 'bj_dom_spit1'>>
 	<!-- !!	sex_ev['cum_mouth_ask'] += 1-->
 	<<gs 'cum_call' 'mouth' $boy 1>>
 	<<setinit $sex_ev['swallow'] = 1>>
@@ -1812,15 +1749,13 @@
 	<<video "shared/sex/cum/mouth/swallow5.mp4">>
 	<p>You quickly wrap your lips around his cock and plunge down as far as you can go. Not even a second later, he explodes in your mouth, shaft pulsing between your lips, warm liquid splashing against your tonsils. You hold yourself there, humming as <<=$npcs.get($boy,'firstname')>> buckles beneath you, waiting until he's ridden his orgasm to completion.</p>
 	<<gs 'sex_ev_foreplay' 'bj_dom_spit2'>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_dom_spit2'>>
+<<case 'bj_dom_spit2'>>
 	<<actCLA 'Spit'>>
 		<<video "shared/sex/cum/mouth/spit6.mp4">>
 		<p>Once you're pretty sure he's done, you draw your head back up <<=$npcs.get($boy,'firstname')>>'s cock, letting his cum spill from your lips along the way. You watch it run back down his shaft and look up at <<=$npcs.get($boy,'firstname')>>, giving him a cum drip smile.</p>
 		<<gs 'sex_ev_sex' 'sex_end'>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_dom_swallow1'>>
+<<case 'bj_dom_swallow1'>>
 	<!-- !!	sex_ev['cum_mouth_ask'] += 1-->
 	<<setinit $sex_ev['swallow'] = 1>>
 	<<setinit $sex_ev['cum_choice'] = 'mouth'>>
@@ -1836,8 +1771,7 @@
 			<<gt 'sex_ev_foreplay' 'bj_dom_swallow_react'>>
 		<</actCLA>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'bj_dom_swallow_react'>>
+<<case 'bj_dom_swallow_react'>>
 	<<video "shared/sex/blowjob/play1.mp4">>
 	<<if $npcs.get($boy,'cum_pref') == 2 and $npcs.get($boy,'cum_pref_know') == 0>>
 		<p>"Holy..." <<=$npcs.get($boy,'firstname')>> lets his head fall back onto his pillow, his mind seemingly blown by your blowjob skills. Taking satisfaction in a job well done, you continue teasing his cock, running your lips up and down its shaft, peppering it with kisses. "That was incredible..."</p>
@@ -1943,13 +1877,12 @@
 			<</if>>
 		<</actCLA>>
 	<</if>>
-<</if>>
 <!-- !!if $ARGS[0] = 'bj_dom_facial1':-->
 <!-- !!	sex_ev['cum_face_force'] += 1-->
 <!-- !!	cla & *clr-->
 <!-- !!-->
 <!-- !!end-->
-<<if $location_var[$here][0] == '69_dom1'>>
+<<case '69_dom1'>>
 	<!-- !!{	act'69 him':
 	cla & *clr
 	'<<image `'shared/sex/69/pre1.jpg'`>>'
@@ -1962,8 +1895,7 @@
 	'You push <<<<=$npcs.get($boy,'firstname')>>>> back onto the bed and throw your legs over him, reversing yourself in the process, and scooch your ass back towards him. Grinning, you lower your hips down to his face while simultaneously grabbing his cock and preparing it for your mouth.'
 	end
 	end} -->
-<</if>>
-<<if $location_var[$here][0] == 'facesit_1'>>
+<<case 'facesit_1'>>
 	<<actCLA 'Sit on his face'>>
 		$sex_ev['bed_room']
 		<<setinit $sex_ev['position'] = 'facesit'>>
@@ -1981,8 +1913,7 @@
 			<<gt 'sex_ev_foreplay' 'facesit_2'>>
 		<</actCLA>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'facesit_2'>>
+<<case 'facesit_2'>>
 	<<arouse 'cuni' `rand(4,8)` `['no_orgasm_msg']`>>
 	<<video "shared/sex/facesit/1.mp4">>
 	<p>You press your pussy right onto <<=$npcs.get($boy,'firstname')>>'s face, forcing it between his lips. He immediately complies, sucking gently on your sex while running his tongue through the folds of your pussy to caress your clit.</p>
@@ -2034,8 +1965,7 @@
 		<<gs 'sex_ev_foreplay' 'foreplay_choose'>>
 		<<gs 'sex_ev_sex' 'sex_start'>>
 	<</if>>
-<</if>>
-<<if $location_var[$here][0] == 'facesit_3'>>
+<<case 'facesit_3'>>
 	<<video "shared/sex/facesit/1.mp4">>
 	<<if $orgasm > $sex_ev['orgasm_limit']>>
 		$sex_ev['bed_room']
@@ -2074,9 +2004,8 @@
 		<<gs 'sex_ev_foreplay' 'foreplay_choose'>>
 		<<gs 'sex_ev_sex' 'sex_start'>>
 	<</if>>
-<</if>>
 <!-- !! --------------------- transition stuff ----------------------------------------------------->
-<<if $location_var[$here][0] == 'transition1'>>
+<<case 'transition1'>>
 	<<actCLA 'Continue'>>
 		$sex_ev['bed_room']
 		<<gs 'sex_ev_foreplay_desc' 'transition1_desc'>>
@@ -2101,8 +2030,7 @@
 			<</actCLA>>
 		<</if>>
 	<</actCLA>>
-<</if>>
-<<if $location_var[$here][0] == 'transition2'>>
+<<case 'transition2'>>
 	<<actCLA 'End it there'>>
 		$sex_ev['bed_room']
 		"I think I'm done there," you pant.
@@ -2127,4 +2055,5 @@
 		<</actCLA>>
 		<<gs 'sex_ev_sex' 'sex_start'>>
 	<</actCLA>>
-<</if>>
+<</switch>>
+:: asdasdas