瀏覽代碼

clean the cikl and a few more cleaning of the cleaning

rachels 2 年之前
父節點
當前提交
22b86946c0
共有 4 個文件被更改,包括 26 次插入39 次删除
  1. 0 15
      locations/LCporn.qsrc
  2. 0 1
      locations/LCwork.qsrc
  3. 2 23
      locations/cikl.qsrc
  4. 24 0
      locations/npc.qsrc

+ 0 - 15
locations/LCporn.qsrc

@@ -125,19 +125,4 @@ if $ARGS[0] = 'sex':
 	end
 	end
 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 ---------------------------------
 --- LCporn ---------------------------------

+ 0 - 1
locations/LCwork.qsrc

@@ -319,7 +319,6 @@ if $ARGS[0] = 'toiletsex':
 	gs 'dinsex', 'vaginal_sex', 6, 'unknown'
 	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.'
 	'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 'cum_call','butt',$boy,1
-	gs 'npccleanc',$npclastgenerated
 	gs 'arousal', 'end'
 	gs 'arousal', 'end'
 	gs 'stat'
 	gs 'stat'
 	act 'Return to the restroom':gt 'laketoilet', 'main'
 	act 'Return to the restroom':gt 'laketoilet', 'main'

+ 2 - 23
locations/cikl.qsrc

@@ -1874,29 +1874,8 @@ if blizoruk < 0: blizoruk = 0
 !!------------------------------------------------------------------------------------------------------------------------
 !!------------------------------------------------------------------------------------------------------------------------
 !!C and b array cleaning 
 !!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----------------------------------------------------------------------
 !!-------------Family schedule variables----------------------------------------------------------------------

+ 24 - 0
locations/npc.qsrc

@@ -1,5 +1,29 @@
 # npc
 # 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':
 if $ARGS[0] = 'age':
 	currnpc_year = mid(npc_dob[$ARGS[1]], 1, 4)
 	currnpc_year = mid(npc_dob[$ARGS[1]], 1, 4)
 	currnpc_month = mid(npc_dob[$ARGS[1]], 5, 2)
 	currnpc_month = mid(npc_dob[$ARGS[1]], 5, 2)