move succubus stuff from cikl to succubus

locations/cikl.qsrc

@@ -305,108 +305,9 @@ end
 exhibition_outdoors = 0
 
 !!------------------------------------------------------------------------------------------------------------
-!!	Succubus
+!!	Succubus Level & hunger calcs
 !!------------------------------------------------------------------------------------------------------------
-
-!!Succubus Level & hunger calcs
-if succubusflag = 1:
-
-	cheatHealth = 1
-	dynamic $cheatmenu['std_cure']
-
-!!	Hunger handling
-	if sucxpsnapshot >= succubxp: succhungry += 1
-	sucxpsnapshot = succubxp
-	if succubxp < 0: succubxp = 0
-
-!!	Level handling
-	if succubxp < 60:
-		succublvl = 1
-		$sucself1 = 'that feeling'
-		sucstorecap = 0
-		if bimbolevel <= 0: supnatvnesh = 1
-	elseif succubxp < 150:
-		succublvl = 2
-		$sucself1 = 'the power'
-		sucstorecap = 0
-		if bimbolevel <= 0: supnatvnesh = 3
-	elseif succubxp < 270:
-		succublvl = 3
-		$sucself1 = 'your other self'
-		sucstorecap = 100
-		if bimbolevel <= 0: supnatvnesh = 6
-	else
-		succublvl = 4
-		$sucself1 = 'your true self'
-		sucstorecap = 200
-		if bimbolevel <= 0: supnatvnesh = 10
-	end
-
-	if sucskill >= 2 and succublvl >= 2: sucstorecap += 100
-	if sucskill >= 3 and succublvl >= 2: sucstorecap += (sucstorecap * 2) / 10
-
-	if stren_muta < (succublvl - 1): stren_muta = (succublvl - 1)
-	if agil_muta < (succublvl - 1): agil_muta = (succublvl - 1)
-	if vital_muta < (succublvl - 1): vital_muta = (succublvl - 1)
-	if intel_muta < (succublvl - 1): intel_muta = (succublvl - 1)
-	if react_muta < (succublvl - 1): react_muta = (succublvl - 1)
-	if sprt_muta < (succublvl - 1): sprt_muta = (succublvl - 1)
-	if chrsm_muta < (succublvl - 1): chrsm_muta = (succublvl - 1)
-	if prcptn_muta < (succublvl - 1): prcptn_muta = (succublvl - 1)
-
-	if (sucexcess >= 100 and (sucskill < 2 or succhungry > -2)) or (sucexcess >= 100 + sucstorecap and sucskill >= 2):
-		if pcs_stren < 250: stren_exp += 20 & sucexcess -= 10
-		if pcs_agil < 250: agil_exp += 20 & sucexcess -= 10
-		if pcs_vital < 250: vital_exp += 20 & sucexcess -= 10
-		if pcs_intel < 250: intel_exp += 20 & sucexcess -= 10
-		if pcs_react < 250: react_exp += 20 & sucexcess -= 10
-		if pcs_sprt < 250: sprt_exp += 20 & sucexcess -= 10
-		if pcs_chrsm < 250: chrsm_exp += 20 & sucexcess -= 10
-		if pcs_prcptn < 250: prcptn_exp += 20 & sucexcess -= 10
-		if succhungry > (0 - 2 - succublvl): succhungry -= 1 & sucexcess -= 10
-		if pcs_skin < 100: pcs_skin += 1 & sucexcess -= 2
-!!		This is to drive the Succubus vidage into the max appearance range
-		if vidageday < 720 and vidage >= 28: vidageday += 4 & sucexcess -= 4
-		if vidageday > 0 and vidage <= 20: vidageday -= 4 & sucexcess -= 4
-		if vidageday >= 720 and vidage > 28:
-			vidageday -= 360
-			vidage -= 1
-		end
-		if salo < 60: 
-			salo += 2
-			sucexcess -= 10
-		elseif salo > 60:
-			salo -= 2
-			sucexcess -= 10
-		end
-
-		if sucexcess > sucstorecap: sucexcess = sucstorecap
-	elseif sucexcess < 0 and succhungry < 0:
-		succhungry += 1
-		if (0 - sucexcess) < (10 * succublvl):
-			sucexcess = 0
-		else
-			sucexcess += (10 * succublvl)
-		end
-	end
-	if sucexcess < 0: sucpowzeroed += 1
-	if sucexcess >= 0 and sucpowzeroed > 0: sucpowzeroed -= 1
-
-!!	This is so a Succubus always moves toward a default vaginal and anal size when she has the accomadation ability
-	if sucskill >= 4:
-		if pcs_vag - 2 >= 13:
-			pcs_vag -= 2
-		elseif pcs_vag + 2 <= 13:
-			pcs_vag += 2
-		end
-		if pcs_ass - 2 >= 8:
-			pcs_ass -= 2
-		elseif pcs_ass + 2 <= 8:
-			pcs_ass += 2
-		end
-	end
-end
-
+if succubusflag = 1: gs 'succubus','cikl'
 !!------------------------------------------------------------------------------------------------------------
 
 if defcurly = 0 and curly > 0:curly -= 1

locations/succubus.qsrc

@@ -90,6 +90,109 @@ end
 
 !!*********
 
+!!Succubus Level & hunger calcs
+if $ARGS[0] = 'cikl':
+	cheatHealth = 1
+	dynamic $cheatmenu['std_cure']
+
+!!	Hunger handling
+	if sucxpsnapshot >= succubxp: succhungry += 1
+	sucxpsnapshot = succubxp
+	if succubxp < 0: succubxp = 0
+
+!!	Level handling
+	if succubxp < 60:
+		succublvl = 1
+		$sucself1 = 'that feeling'
+		sucstorecap = 0
+		if bimbolevel <= 0: supnatvnesh = 1
+	elseif succubxp < 150:
+		succublvl = 2
+		$sucself1 = 'the power'
+		sucstorecap = 0
+		if bimbolevel <= 0: supnatvnesh = 3
+	elseif succubxp < 270:
+		succublvl = 3
+		$sucself1 = 'your other self'
+		sucstorecap = 100
+		if bimbolevel <= 0: supnatvnesh = 6
+	else
+		succublvl = 4
+		$sucself1 = 'your true self'
+		sucstorecap = 200
+		if bimbolevel <= 0: supnatvnesh = 10
+	end
+
+	if sucskill >= 2 and succublvl >= 2: sucstorecap += 100
+	if sucskill >= 3 and succublvl >= 2: sucstorecap += (sucstorecap * 2) / 10
+
+	if stren_muta < (succublvl - 1): stren_muta = (succublvl - 1)
+	if agil_muta < (succublvl - 1): agil_muta = (succublvl - 1)
+	if vital_muta < (succublvl - 1): vital_muta = (succublvl - 1)
+	if intel_muta < (succublvl - 1): intel_muta = (succublvl - 1)
+	if react_muta < (succublvl - 1): react_muta = (succublvl - 1)
+	if sprt_muta < (succublvl - 1): sprt_muta = (succublvl - 1)
+	if chrsm_muta < (succublvl - 1): chrsm_muta = (succublvl - 1)
+	if prcptn_muta < (succublvl - 1): prcptn_muta = (succublvl - 1)
+
+	if (sucexcess >= 100 and (sucskill < 2 or succhungry > -2)) or (sucexcess >= 100 + sucstorecap and sucskill >= 2):
+		if pcs_stren < 250: stren_exp += 20 & sucexcess -= 10
+		if pcs_agil < 250: agil_exp += 20 & sucexcess -= 10
+		if pcs_vital < 250: vital_exp += 20 & sucexcess -= 10
+		if pcs_intel < 250: intel_exp += 20 & sucexcess -= 10
+		if pcs_react < 250: react_exp += 20 & sucexcess -= 10
+		if pcs_sprt < 250: sprt_exp += 20 & sucexcess -= 10
+		if pcs_chrsm < 250: chrsm_exp += 20 & sucexcess -= 10
+		if pcs_prcptn < 250: prcptn_exp += 20 & sucexcess -= 10
+		if succhungry > (0 - 2 - succublvl): succhungry -= 1 & sucexcess -= 10
+		if pcs_skin < 100: pcs_skin += 1 & sucexcess -= 2
+!!		This is to drive the Succubus vidage into the max appearance range
+		if vidageday < 720 and vidage >= 28: vidageday += 4 & sucexcess -= 4
+		if vidageday > 0 and vidage <= 20: vidageday -= 4 & sucexcess -= 4
+		if vidageday >= 720 and vidage > 28:
+			vidageday -= 360
+			vidage -= 1
+		end
+		if salo < 60:
+			salo += 2
+			sucexcess -= 10
+		elseif salo > 60:
+			salo -= 2
+			sucexcess -= 10
+		end
+
+		if sucexcess > sucstorecap: sucexcess = sucstorecap
+	elseif sucexcess < 0 and succhungry < 0:
+		succhungry += 1
+		if (0 - sucexcess) < (10 * succublvl):
+			sucexcess = 0
+		else
+			sucexcess += (10 * succublvl)
+		end
+	end
+	if sucexcess < 0: sucpowzeroed += 1
+	if sucexcess >= 0 and sucpowzeroed > 0: sucpowzeroed -= 1
+
+!!	This is so a Succubus always moves toward a default vaginal and anal size when she has the accomadation ability
+	if sucskill >= 4:
+		if pcs_vag - 2 >= 13:
+			pcs_vag -= 2
+		elseif pcs_vag + 2 <= 13:
+			pcs_vag += 2
+		end
+		if pcs_ass - 2 >= 8:
+			pcs_ass -= 2
+		elseif pcs_ass + 2 <= 8:
+			pcs_ass += 2
+		end
+	end
+end
+
+
+
+
+
+
 !!This is the 'city_park' and 'city_residential' call
 
 if $ARGS[0] = 'RapistFight':