clean the cikl and a few more cleaning of the cleaning

locations/LCporn.qsrc

@@ -125,19 +125,4 @@ if $ARGS[0] = 'sex':
 	end
 end
 
-if $ARGS[0] = 'toiletsex':
-	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 toothy 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.'
-	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 your ass and without a further word he goes back into the cafe.'
-	gs 'cum_call','butt',$boy,1
-	gs 'npccleanc',$npclastgenerated
-	gs 'arousal', 'end'
-	gs 'stat'
-	act 'Return to the restroom':gt 'laketoilet', 'main'
-end
-
 --- LCporn ---------------------------------

locations/LCwork.qsrc

@@ -319,7 +319,6 @@ if $ARGS[0] = 'toiletsex':
 	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 your ass and without a further word he goes back into the cafe.'
 	gs 'cum_call','butt',$boy,1
-	gs 'npccleanc',$npclastgenerated
 	gs 'arousal', 'end'
 	gs 'stat'
 	act 'Return to the restroom':gt 'laketoilet', 'main'

locations/cikl.qsrc

@@ -1874,29 +1874,8 @@ if blizoruk < 0: blizoruk = 0
 !!------------------------------------------------------------------------------------------------------------------------
 !!C and b array cleaning 
 
-if InSleep = 1:
-	i_gs_cl = 0
-	:CiklNpcCleanLoop
-	if i_gs_cl < arrsize('$npc_index'):
-		if $npc_index[i_gs_cl] = $npclastgenerated : 			i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
-		if arrpos('$cumarrnam', $npc_index[i_gs_cl]) >= 0 : 	i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
-		if arrpos('$sparrnam', $npc_index[i_gs_cl]) >= 0 : 		i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
-		if arrpos('$cumfthname', $npc_index[i_gs_cl]) >= 0 : 	i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
-		if arrpos('$wombpotfath', $npc_index[i_gs_cl]) >= 0 : 	i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
-		if arrpos('$wombName', $npc_index[i_gs_cl]) >= 0 : 		i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
-		if arrpos('$cumfathlotto', $npc_index[i_gs_cl]) >= 0 : 	i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
-		if arrpos('$ChildFath', $npc_index[i_gs_cl]) >= 0 : 	i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
-		if arrpos('$ChildThFath', $npc_index[i_gs_cl]) >= 0 : 	i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
-
-		if mid($npc_index[i_gs_cl],1,1) = 'C' or mid($npc_index[i_gs_cl],1,1) = 'b' :
-			gs 'npccleanc',ucase($npc_index[i_gs_cl])
-			jump 'CiklNpcCleanLoop'
-		end
-		i_gs_cl += 1
-		jump 'CiklNpcCleanLoop'
-	end
-	killvar 'i_gs_cl'
-end
+if InSleep = 1: gs 'npc','cleanarrays'
+
 !!------------------------------------------------------------------------------------------------------------
 
 !!-------------Family schedule variables----------------------------------------------------------------------

locations/npc.qsrc

@@ -1,5 +1,29 @@
 # npc
 
+if $ARGS[0] = 'cleanarrays':
+	i_gs_cl = 0
+	:CiklNpcCleanLoop
+	if i_gs_cl < arrsize('$npc_index'):
+		if $npc_index[i_gs_cl] = $npclastgenerated : 			i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
+		if arrpos('$cumarrnam', $npc_index[i_gs_cl]) >= 0 : 	i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
+		if arrpos('$sparrnam', $npc_index[i_gs_cl]) >= 0 : 		i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
+		if arrpos('$cumfthname', $npc_index[i_gs_cl]) >= 0 : 	i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
+		if arrpos('$wombpotfath', $npc_index[i_gs_cl]) >= 0 : 	i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
+		if arrpos('$wombName', $npc_index[i_gs_cl]) >= 0 : 		i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
+		if arrpos('$cumfathlotto', $npc_index[i_gs_cl]) >= 0 : 	i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
+		if arrpos('$ChildFath', $npc_index[i_gs_cl]) >= 0 : 	i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
+		if arrpos('$ChildThFath', $npc_index[i_gs_cl]) >= 0 : 	i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
+
+		if mid($npc_index[i_gs_cl],1,1) = 'C' or mid($npc_index[i_gs_cl],1,1) = 'b' :
+			gs 'npccleanc',ucase($npc_index[i_gs_cl])
+			jump 'CiklNpcCleanLoop'
+		end
+		i_gs_cl += 1
+		jump 'CiklNpcCleanLoop'
+	end
+	killvar 'i_gs_cl'
+end
+
 if $ARGS[0] = 'age':
 	currnpc_year = mid(npc_dob[$ARGS[1]], 1, 4)
 	currnpc_month = mid(npc_dob[$ARGS[1]], 5, 2)