LCporn - replace dynamic calls

locations/LCporn

@@ -1,8 +1,6 @@
 # LCporn
 
 if $ARGS[0] = 'firsttime':
-	cla
-	*clr
 	LCEugenefirst = 1
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/sex/lakefirsttime.jpg"></center>'
@@ -12,30 +10,26 @@ if $ARGS[0] = 'firsttime':
 	'She drops her skirt and you see... a dick!? It''s semi-hard, and is gently bobbing up and down when she walks towards you. Eugene puts her hands on your chest and looks at you questioningly.'
 
 	act 'Go with it':
-		cla
-		*clr
+		*clr & cla
 		randlcpic = rand(1, 7)
 		npc_rel['A89'] += 5
 		gs 'boyStat', 'A89'
-		sexpartkno = 1
+		npc_sex[$boy] += 1
 		pose = 1
-		gs 'stat'
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/sex/<<randlcpic>>.jpg"></center>'
 		'You smile reassuringly at Eugene, and she immediately grows more bold and begins to paw at your clothes. She impatiently helps you undress and lies down on the mattress with you.'
-		
-		dynamic $sexudo
-		gs 'arousal', 'vaginal', 40, 'futa'
+		gs 'dinsex', 'boy_puts_his_condom'
+		gs 'dinsex','vaginal_sex',40,'futa'
 		'Finally, a good half hour after she started fucking your twat, Eugene finally lets out a loud girly groan.'
-		dynamic $sexcum
+		gs 'dinsex','sexcum'
 		'She smiles apologetically at you and begins to get dressed again while she says: "Thanks, <<$pcs_nickname>>! You were great... but I really have to get back to work before someone misses me! We''ve been in here way too long already!"'
 		gs 'stat'
-		
+
 		act 'Get dressed again':gt 'Lakecafe', 'main'
 	end
 
 	act 'Get out of here':
-		cla
-		*clr
+		*clr & cla
 		npc_rel['A89'] -= 10
 		minut += 7
 		gs 'stat'
@@ -47,30 +41,24 @@ if $ARGS[0] = 'firsttime':
 end
 
 if $ARGS[0] = 'sex':
-	cla
-	*clr
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/sex/lakefirsttime.jpg"></center>'
 	'Eugene guides you to the pantry again, and looks at you expectantly while she begins to undress.'
 	'"So! How may I fill you today, <<$pcs_nickname>>?" she laughs, exposing her semi-hard cock to you.'
 
 	act 'Ask her to fuck you':
-		cla
-		*clr
+		*clr & cla
 		npc_rel['A89'] += 5
 		gs 'boyStat', 'A89'
-		sexpartkno = 1
+		npc_sex[$boy] += 1
 		pose = 1
 		randlcpic = rand(1, 7)
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/sex/<<randlcpic>>.jpg"></center>'
 		'Eugene grins at you and says: "I was hoping you''d say that. Come on, let me help you."'
 		'She helps you take your clothes off, and lies down on the mattress with you. She slips her <<dick>>cm <<$dick_girth>> dick into your pussy and starts to fuck you. She spends time rubbing your clit while she fucks you, to keep you nice and wet.'
-
-		dynamic $sexudo
-		gs 'arousal', 'vaginal', 40, 'futa'
-		
+		gs 'dinsex', 'boy_puts_his_condom'
+		gs 'dinsex','vaginal_sex',40,'futa'
 		'Finally, a good half hour after she started fucking your twat, Eugene finally lets out a loud girly groan.'
-		dynamic $sexcum
-		
+		gs 'dinsex','sexcum'
 		gs 'stat'
 		'She smiles apologetically at you and begins to get dressed again while she says: "Thanks, <<$pcs_nickname>>! You were great... but I really have to get back to work before someone misses me! We''ve been in here way too long already!"'
 
@@ -78,21 +66,18 @@ if $ARGS[0] = 'sex':
 	end
 
 	act 'Give her a blowjob':
-		cla
-		*clr
+		*clr & cla
 		npc_rel['A89'] += 5
 		gs 'boyStat', 'A89'
+		npc_sex[$boy] += 1
 		randlcpic = rand(10, 16)
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/sex/<<randlcpic>>.jpg"></center>'
 		'You silently take your clothes off, and drop to your knees in front of her. "Excellent choice!" she laughs.'
 		'Eugene is fairly dominant, and impatiently shoves her <<dick>>cm <<$dick_girth>> cock deep into your mouth as soon as you close your lips around the tip. She grabs you firmly by the hair and begins to thrust her hips back and forth, making you take her whole length repeatedly. After a while, with her cock deep down your throat, you begin to wonder how it''s possible that she still hasn''t reached orgasm yet... guys never last this long!'
-
 		gs 'arousal', 'bj', 20, 'futa', 'sub', 'deepthroat'
-
 		'Finally, a good half hour after you started sucking her cock, Eugene finally lets out a loud girly groan and shoots her load all over your face. Thick strands of saliva are running down your chin by now.'
 		gs 'cum_call', 'face', $boy, 1
 		facial += 1
-
 		gs 'stat'
 		'She smiles apologetically at you and begins to get dressed again while she says: "Thanks, <<$pcs_nickname>>! You were great... but I really have to get back to work before someone misses me! We''ve been in here way too long already!"'
 
@@ -100,39 +85,41 @@ if $ARGS[0] = 'sex':
 	end
 	
 	act 'Take it in the ass':
-	    cla
-		*clr
+		*clr & cla
 		npc_rel['A89'] += 5
+		npc_sex[$boy] += 1
 		randlcpic = rand(1, 4)
 		'<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/sex/anal<<randlcpic>>.jpg"></center>'
-	    'Once you are undressed she grabs some cooking oil and lubes up her dick and then your ass really well. With that done she bends you over and lifts one of your legs off the ground. You put your hands against the wall to help keep your balance. Then she slides her <<dick>>cm <<$dick_girth>> dick into your ass and start pounding it balls deep almost at once.'				
+		if analplugin = 1:
+			'<<$boy>> pulls the plug out of your narrow and tight ass.'
+			analplugin = 0
+			analplugout = 1
+		end
+		'Once you are undressed she grabs some cooking oil and lubes up her dick and then your ass really well. With that done she bends you over and lifts one of your legs off the ground. You put your hands against the wall to help keep your balance. Then she slides her <<dick>>cm <<$dick_girth>> dick into your ass and start pounding it balls deep almost at once.'
+		lubri +=1
+		gs 'arousal', 'anal_finger', 1,'lube' 
 		gs 'arousal', 'anal', 40, 'futa'
-
 		'She pounds your little ass for a surprising amount of time, considering how hard and fast she is hammering it. She makes sure to reapply some of the cooking oil as needed, while greatly helps you enjoy the experience as well. Finally, a good half hour after she started fucking your ass, Eugene finally lets out a loud girly groan and shoots her load deep in your ass.'
 		gs 'cum_call', 'anus', $boy, 1
-
 		gs 'stat'
 		'She smiles apologetically at you and begins to get dressed again while she says: "Thanks, <<$pcs_nickname>>! You were great... but I really have to get back to work before someone misses me! We''ve been in here way too long already!"'
+		gs 'dinsex', 'after_anal','no_plug'
 		
 		act 'Get dressed again':gt 'Lakecafe', 'main'
 	end
 end
 
 if $ARGS[0] = 'toiletsex':
-	cla
-	*clr
 	gs 'npcgeneratec', 0, 'Stranger from the diner restroom', rand(18,32)
 	gs 'boyStat', $npclastgenerated
 	'<center><img <<$set_imgh>> src="images/locations/city/industrial/bbq/sex/toiletsexend.jpg"></center>'
 	'You come up from behind the man, and suddenly wrap your arms around him. He''s startled for a moment, but relaxes when you whisper: "That''s a nice cock you have there! I bet we could have some fun together, you and I..."'
 	'The man gives you a dirty grin when he feels you wrap your fingers around his cock, but he wants more. He takes you by the hand and guides you to the rear entrance of the diner, into the back alley. He positions you against the dumpsters and eagerly shoves his cock inside you.'
-	'Not a surprise, he barely lasts any time at all, with in a few minutes he grunts and pulls out of your pussy and shoots his load all over you ass. With out a further word he goes back into the cafe.'
-	dynamic $sexudo
-	gs 'arousal', 'vaginal', 6, 'unknown'
-	dynamic $sexcum
-
+	gs 'dinsex','vaginal_sex',6,'unknown'
+	'Not a surprise, he barely lasts any time at all, with in a few minutes he grunts and pulls out of your pussy and shoots his load all over you ass and without a further word he goes back into the cafe.'
+	gs 'cum_call','butt',$boy,1
+	gs 'npccleanc',$npclastgenerated
 	act 'Return to the restroom':gt 'laketoilet', 'main'
 end
 
 --- LCporn ---------------------------------
-