feat: Gene-seed and mutation related adjustments (#586)

EttyKitty · coderabbitai[bot] · web-flow · commit 44b9001426a2 · 2025-03-22T13:40:41.000Z
Co-authored-by: coderabbitai[bot] &lt;136622811+coderabbitai[bot]@users.noreply.github.com&gt;
diff --git a/datafiles/main/chapters/1.JSON b/datafiles/main/chapters/1.JSON
@@ -11,8 +11,8 @@
         "icon_name": "da", // ? dunno what this is used for yet but the icon breaks if you dont use it 
         "fleet_type": 1, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 10, // 1-10
-        "purity": 8, // 1-10
-        "stability": 10, // 1-10
+        "purity": 10, // 1-10
+        "stability": 96, // 1-99
         "cooperation": 5, // 1-10
         "homeworld_exists": 1, // 1 = true
         "recruiting_exists": 1, // 1 = true
diff --git a/datafiles/main/chapters/10.JSON b/datafiles/main/chapters/10.JSON
@@ -11,8 +11,8 @@
         "icon_name": "bt", // ? dunno what this is used for yet but the icon breaks if you dont use it 
         "fleet_type": 3, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 5, // 1-10
-        "purity": 7, // 1-10
-        "stability": 10, // 1-10
+        "purity": 8, // 1-10
+        "stability": 96, // 1-99
         "cooperation": 5, // 1-10
         "homeworld_exists": 0, // 1 = true
         "recruiting_exists": 1, // 1 = true
diff --git a/datafiles/main/chapters/11.JSON b/datafiles/main/chapters/11.JSON
@@ -12,7 +12,7 @@
         "fleet_type": 2, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 5, // 1-10
         "purity": 10, // 1-10
-        "stability": 10, // 1-10
+        "stability": 99, // 1-99
         "cooperation": 2, // 1-10
         "homeworld_exists": 0, // 1 = true
         "recruiting_exists": 1, // 1 = true
diff --git a/datafiles/main/chapters/12.JSON b/datafiles/main/chapters/12.JSON
@@ -12,7 +12,7 @@
         "fleet_type": 2, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 5, // 1-10
         "purity": 10, // 1-10
-        "stability": 6, // 1-10
+        "stability": 96, // 1-99
         "cooperation": 7, // 1-10
         "homeworld_exists": 0, // 1 = true
         "recruiting_exists": 1, // 1 = true
diff --git a/datafiles/main/chapters/13.JSON b/datafiles/main/chapters/13.JSON
@@ -11,8 +11,8 @@
         "icon_name": "cf", // ? dunno what this is used for yet but the icon breaks if you dont use it 
         "fleet_type": 1, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 2, // 1-10
-        "purity": 7, // 1-10
-        "stability": 10, // 1-10
+        "purity": 8, // 1-10
+        "stability": 96, // 1-99
         "cooperation": 8, // 1-10
         "homeworld_exists": 1, // 1 = true
         "recruiting_exists": 0, // 1 = true
diff --git a/datafiles/main/chapters/14.JSON b/datafiles/main/chapters/14.JSON
@@ -12,7 +12,7 @@
         "fleet_type": 3, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 1, // 1-10
         "purity": 9, // 1-10
-        "stability": 9, // 1-10
+        "stability": 90, // 1-99
         "cooperation": 1, // 1-10
         "homeworld_exists": 0, // 1 = true
         "recruiting_exists": 1, // 1 = true
diff --git a/datafiles/main/chapters/15.JSON b/datafiles/main/chapters/15.JSON
@@ -12,7 +12,7 @@
         "fleet_type": 2, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 5, // 1-10
         "purity": 8, // 1-10
-        "stability": 4, // 1-10
+        "stability": 92, // 1-99
         "cooperation": 5, // 1-10
         "homeworld_exists": 0, // 1 = true
         "recruiting_exists": 0, // 1 = true
@@ -39,7 +39,7 @@
             "", // leave the first entry blank for now
             "Splintered",
             "Suspicious",
-            "",
+            "Black Rage",
             "",
             "",
             "",
diff --git a/datafiles/main/chapters/16.JSON b/datafiles/main/chapters/16.JSON
@@ -11,8 +11,8 @@
         "icon_name": "sd", // ? dunno what this is used for yet but the icon breaks if you dont use it 
         "fleet_type": 2, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 2, // 1-10
-        "purity": 10, // 1-10
-        "stability": 2, // 1-10
+        "purity": 9, // 1-10
+        "stability": 76, // 1-99
         "cooperation": 2, // 1-10
         "homeworld_exists": 0, // 1 = true
         "recruiting_exists": 1, // 1 = true
diff --git a/datafiles/main/chapters/17.JSON b/datafiles/main/chapters/17.JSON
@@ -11,8 +11,8 @@
         "icon_name": "am", // ? dunno what this is used for yet but the icon breaks if you dont use it 
         "fleet_type": 1, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 5, // 1-10
-        "purity": 10, // 1-10
-        "stability": 10, // 1-10
+        "purity": 9, // 1-10
+        "stability": 96, // 1-99
         "cooperation": 2, // 1-10
         "homeworld_exists": 1, // 1 = true
         "recruiting_exists": 1, // 1 = true
diff --git a/datafiles/main/chapters/2.JSON b/datafiles/main/chapters/2.JSON
@@ -12,7 +12,7 @@
         "fleet_type": 1, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 5, // 1-10
         "purity": 10, // 1-10
-        "stability": 8, // 1-10
+        "stability": 96, // 1-99
         "cooperation": 5, // 1-10
         "homeworld_exists": 1, // 1 = true
         "recruiting_exists": 0, // 1 = true
diff --git a/datafiles/main/chapters/3.JSON b/datafiles/main/chapters/3.JSON
@@ -11,8 +11,8 @@
         "icon_name": "sw", // ? dunno what this is used for yet but the icon breaks if you dont use it 
         "fleet_type": 1, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 10, // 1-10
-        "purity": 8, // 1-10
-        "stability": 5, // 1-10
+        "purity": 9, // 1-10
+        "stability": 94, // 1-99
         "cooperation": 4, // 1-10
         "homeworld_exists": 1, // 1 = true
         "recruiting_exists": 0, // 1 = true
diff --git a/datafiles/main/chapters/31.JSON b/datafiles/main/chapters/31.JSON
@@ -12,7 +12,7 @@
         "fleet_type": 1, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 5, // 1-10
         "purity": 10, // 1-10
-        "stability": 10, // 1-10
+        "stability": 99, // 1-99
         "cooperation": 5, // 1-10
         "homeworld_exists": 1, // 1 = true
         "recruiting_exists": 1, // 1 = true
diff --git a/datafiles/main/chapters/32.JSON b/datafiles/main/chapters/32.JSON
@@ -11,8 +11,8 @@
         "icon_name": "rs", // ? dunno what this is used for yet but the icon breaks if you dont use it 
         "fleet_type": 1, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 1, // 1-10
-        "purity": 6, // 1-10
-        "stability": 4, // 1-10
+        "purity": 10, // 1-10
+        "stability": 86, // 1-99
         "cooperation": 1, // 1-10
         "homeworld_exists": 1, // 1 = true
         "recruiting_exists": 0, // 1 = true
diff --git a/datafiles/main/chapters/4.JSON b/datafiles/main/chapters/4.JSON
@@ -11,8 +11,8 @@
         "icon_name": "if", // ? dunno what this is used for yet but the icon breaks if you dont use it 
         "fleet_type": 1, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 6, // 1-10
-        "purity": 7, // 1-10
-        "stability": 10, // 1-10
+        "purity": 8, // 1-10
+        "stability": 96, // 1-99
         "cooperation": 8, // 1-10
         "homeworld_exists": 1, // 1 = true
         "recruiting_exists": 1, // 1 = true
diff --git a/datafiles/main/chapters/5.JSON b/datafiles/main/chapters/5.JSON
@@ -12,7 +12,7 @@
         "fleet_type": 1, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 5, // 1-10
         "purity": 9, // 1-10
-        "stability": 9, // 1-10
+        "stability": 94, // 1-99
         "cooperation": 7, // 1-10
         "homeworld_exists": 1, // 1 = true
         "recruiting_exists": 0, // 1 = true
diff --git a/datafiles/main/chapters/6.JSON b/datafiles/main/chapters/6.JSON
@@ -11,8 +11,8 @@
         "icon_name": "ih", // ? dunno what this is used for yet but the icon breaks if you dont use it 
         "fleet_type": 1, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 5, // 1-10
-        "purity": 8, // 1-10
-        "stability": 8, // 1-10
+        "purity": 10, // 1-10
+        "stability": 96, // 1-99
         "cooperation": 2, // 1-10
         "homeworld_exists": 1, // 1 = true
         "recruiting_exists": 0, // 1 = true
diff --git a/datafiles/main/chapters/7.JSON b/datafiles/main/chapters/7.JSON
@@ -12,7 +12,7 @@
         "fleet_type": 1, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 5, // 1-10
         "purity": 10, // 1-10
-        "stability": 10, // 1-10
+        "stability": 96, // 1-99
         "cooperation": 10, // 1-10
         "homeworld_exists": 1, // 1 = true
         "recruiting_exists": 1, // 1 = true
diff --git a/datafiles/main/chapters/8.JSON b/datafiles/main/chapters/8.JSON
@@ -11,8 +11,8 @@
         "icon_name": "sl", // ? dunno what this is used for yet but the icon breaks if you dont use it 
         "fleet_type": 1, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 2, // 1-10
-        "purity": 8, // 1-10
-        "stability": 8, // 1-10
+        "purity": 9, // 1-10
+        "stability": 95, // 1-99
         "cooperation": 10, // 1-10
         "homeworld_exists": 1, // 1 = true
         "recruiting_exists": 0, // 1 = true
diff --git a/datafiles/main/chapters/9.JSON b/datafiles/main/chapters/9.JSON
@@ -12,7 +12,7 @@
         "fleet_type": 1, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 5, // 1-10
         "purity": 8, // 1-10
-        "stability": 4, // 1-10
+        "stability": 95, // 1-99
         "cooperation": 5, // 1-10
         "homeworld_exists": 1, // 1 = true
         "recruiting_exists": 1, // 1 = true
@@ -37,7 +37,7 @@
         "disadvantages": [
             "",
             "Splintered",
-            "",
+            "Black Rage",
             "",
             "",
             "",
diff --git a/datafiles/main/chapters/template.JSON b/datafiles/main/chapters/template.JSON
@@ -12,7 +12,7 @@
         "fleet_type": 1, // 1= Homeworld, 2 = Fleet based, 3 = Penitent
         "strength": 5, // 1-10
         "purity": 5, // 1-10
-        "stability": 5, // 1-10
+        "stability": 50, // 1-99
         "cooperation": 5, // 1-10
         "homeworld_exists": 1, // 1 = true
         "recruiting_exists": 1, // 1 = true
diff --git a/objects/obj_creation/Create_0.gml b/objects/obj_creation/Create_0.gml
@@ -349,7 +349,7 @@ fleet_type=1;
 strength=5;
 cooperation=5;
 purity=5;
-stability=5;
+stability=90;
 
 
 var i = 9;
diff --git a/objects/obj_creation/Draw_0.gml b/objects/obj_creation/Draw_0.gml
@@ -193,18 +193,113 @@ try {
 
 		draw_rectangle(445, 200, 1125, 202, true);
 
+		draw_set_halign(fa_center);
 		draw_set_font(fnt_40k_30b);
-		draw_text_transformed(503, 210, string_hash_to_newline("Gene-Seed Mutations"), 0.6, 0.6, 0);
-		if (mutations > mutations_selected) {
-			draw_text_transformed(585, 230, $"Select {mutations - mutations_selected} More", 0.5, 0.5, 0);
+		draw_text_transformed(800, 210, string_hash_to_newline("Gene-Seed Mutations"), 0.6, 0.6, 0);
+		if (purity == 10) {
+			draw_text_transformed(800, 230, $"The gene-seed is perfectly pure", 0.5, 0.5, 0);
+		} else {
+			if (mutations > mutations_selected) {
+				draw_text_transformed(800, 230, $"Select {mutations - mutations_selected} more, according to your purity score", 0.5, 0.5, 0);
+			} else {
+				draw_text_transformed(800, 230, $"The gene-seed is mutated enough", 0.5, 0.5, 0);
+				draw_set_alpha(0.5);
+			}
 		}
+		draw_set_halign(fa_left);
 
 		var x1, y1, spac = 34;
 
-		if (custom < 2) {
+		if (custom < 2 || purity == 10) {
 			draw_set_alpha(0.5);
 		}
-		var mutations_defects = [{t_tip: "Anemic Preomnor", t_tip2: "Your Astartes lack the detoxifying gland called the Preomnor- they are more susceptible to poisons and toxins.", data: preomnor, mutation_points: 1}, {t_tip: "Disturbing Voice", t_tip2: "Your Astartes have a voice like a creaking door or a rumble.  Decreases Imperium and Imperial Guard disposition.", data: voice, mutation_points: 1, disposition: [[eFACTION.Imperium, -8]]}, {t_tip: "Doomed", t_tip2: "Your Chapter cannot make more Astartes until enough research is generated.  Counts as four mutations.", data: doomed, mutation_points: 4, disposition: [[eFACTION.Imperium, -8], [6, 8]]}, {t_tip: "Faulty Lyman's Ear", t_tip2: "Lacking a working Lyman's ear, all deep-striked Astartes recieve moderate penalties to both attack and defense.", data: lyman, mutation_points: 1}, {t_tip: "Hyper-Stimulated Omophagea", t_tip2: "After every battle the Astartes have a chance to feast upon their fallen enemies, or seldom, their allies.", data: omophagea, mutation_points: 1}, {t_tip: "Hyperactive Ossmodula", t_tip2: "Instead of wound tissue bone is generated; Apothecaries must spend twice the normal time healing your Astartes.", data: ossmodula, mutation_points: 1}, {t_tip: "Lost Zygote", t_tip2: "One of the Zygotes is faulty or missing.  The Astartes only have one each and generate half the normal Gene-Seed.", data: zygote, mutation_points: 2}, {t_tip: "Inactive Sus-an Membrane", t_tip2: "Your Astartes do not have a Sus-an Membrane; they cannot enter suspended animation and recieve more casualties as a result.", data: membrane, mutation_points: 1}, {t_tip: "Missing Betchers Gland", t_tip2: "Your Astartes cannot spit acid, and as a result, have slightly less attack in melee combat.", data: betchers, mutation_points: 1}, {t_tip: "Mutated Catalepsean Node", t_tip2: "Your Astartes have reduced awareness when tired. Slightly less attack in ranged and melee combat.", data: catalepsean, mutation_points: 1}, {t_tip: "Oolitic Secretions", t_tip2: "Either by secretions or radiation, your Astartes have an unusual or strange skin color.  Decreases disposition.", data: secretions, mutation_points: 1, disposition: [[eFACTION.Imperium, -8]]}, {t_tip: "Oversensitive Occulobe", t_tip2: "Your Astartes are no longer immune to stun grenades, bright lights, and have a massive penalty during morning battles.", data: occulobe, mutation_points: 1, disposition: [[eFACTION.Imperium, -8]]}, {t_tip: "Rampant Mucranoid", t_tip2: "Your Astartes' Mucranoid cannot be turned off; the slime lowers most dispositions and occasionally damages their armour.", data: mucranoid, mutation_points: 1, disposition: [[1, -4], [eFACTION.Imperium, -8], [3, -4], [4, -4], [5, -4], [6, -4]]}];
+		var mutations_defects = [{
+			t_tip: "Anemic Preomnor",
+			t_tip2: "Your Astartes lack the detoxifying gland called the Preomnor- they are more susceptible to poisons and toxins.",
+			data: preomnor,
+			mutation_points: 1
+		}, {
+			t_tip: "Disturbing Voice",
+			t_tip2: "Your Astartes have a voice like a creaking door or a rumble.  Decreases Imperium and Imperial Guard disposition.",
+			data: voice,
+			mutation_points: 1,
+			disposition: [
+				[eFACTION.Imperium, -8]
+			]
+		}, {
+			t_tip: "Doomed",
+			t_tip2: "Your Chapter cannot make more Astartes until enough research is generated.  Counts as four mutations.",
+			data: doomed,
+			mutation_points: 4,
+			disposition: [
+				[eFACTION.Imperium, -8],
+				[6, 8]
+			]
+		}, {
+			t_tip: "Faulty Lyman's Ear",
+			t_tip2: "Lacking a working Lyman's ear, all deep-striked Astartes receive moderate penalties to both attack and defense.",
+			data: lyman,
+			mutation_points: 1
+		}, {
+			t_tip: "Hyper-Stimulated Omophagea",
+			t_tip2: "After every battle the Astartes have a chance to feast upon their fallen enemies, or seldom, their allies.",
+			data: omophagea,
+			mutation_points: 1
+		}, {
+			t_tip: "Hyperactive Ossmodula",
+			t_tip2: "Instead of wound tissue bone is generated; Apothecaries must spend twice the normal time healing your Astartes.",
+			data: ossmodula,
+			mutation_points: 1
+		}, {
+			t_tip: "Lost Zygote",
+			t_tip2: "One of the Zygotes is faulty or missing.  The Astartes only have one each and generate half the normal Gene-Seed.",
+			data: zygote,
+			mutation_points: 2
+		}, {
+			t_tip: "Inactive Sus-an Membrane",
+			t_tip2: "Your Astartes do not have a Sus-an Membrane; they cannot enter suspended animation and receive more casualties as a result.",
+			data: membrane,
+			mutation_points: 1
+		}, {
+			t_tip: "Missing Betchers Gland",
+			t_tip2: "Your Astartes cannot spit acid, and as a result, have slightly less attack in melee combat.",
+			data: betchers,
+			mutation_points: 1
+		}, {
+			t_tip: "Mutated Catalepsean Node",
+			t_tip2: "Your Astartes have reduced awareness when tired. Slightly less attack in ranged and melee combat.",
+			data: catalepsean,
+			mutation_points: 1
+		}, {
+			t_tip: "Oolitic Secretions",
+			t_tip2: "Either by secretions or radiation, your Astartes have an unusual or strange skin color.  Decreases disposition.",
+			data: secretions,
+			mutation_points: 1,
+			disposition: [
+				[eFACTION.Imperium, -8]
+			]
+		}, {
+			t_tip: "Oversensitive Occulobe",
+			t_tip2: "Your Astartes are no longer immune to stun grenades, bright lights, and have a massive penalty during morning battles.",
+			data: occulobe,
+			mutation_points: 1,
+			disposition: [
+				[eFACTION.Imperium, -8]
+			]
+		}, {
+			t_tip: "Rampant Mucranoid",
+			t_tip2: "Your Astartes' Mucranoid cannot be turned off; the slime lowers most dispositions and occasionally damages their armour.",
+			data: mucranoid,
+			mutation_points: 1,
+			disposition: [
+				[1, -4],
+				[eFACTION.Imperium, -8],
+				[3, -4],
+				[4, -4],
+				[5, -4],
+				[6, -4]
+			]
+		}];
 		x1 = 450;
 		y1 = 260;
 		for (var i = 0; i < array_length(mutations_defects); i++) {
@@ -263,7 +358,8 @@ try {
 		draw_line(445, 507, 1125, 507);
 
 		draw_set_font(fnt_40k_30b);
-		draw_text_transformed(444, 515, string_hash_to_newline("Starting Disposition"), 0.6, 0.6, 0);
+		draw_set_halign(fa_center);
+		draw_text_transformed(800, 515, string_hash_to_newline("Starting Disposition"), 0.6, 0.6, 0);
 
 		draw_set_font(fnt_40k_14b);
 		draw_set_halign(fa_right);
diff --git a/objects/obj_creation/Step_0.gml b/objects/obj_creation/Step_0.gml
@@ -101,7 +101,7 @@ if (change_slide==35) or (change_slide==36) or (chapter_name=="Doom Benefactors"
         strength=5;
         cooperation=5;
         purity=5;
-        stability=5;
+        stability=90;
         for(var i=0; i<16; i++){
             adv[i]="";
             adv_num[i]=0;
diff --git a/objects/obj_ncombat/Alarm_5.gml b/objects/obj_ncombat/Alarm_5.gml
@@ -50,7 +50,7 @@ if (ground_mission){
 	}
 };
 
-seed_saved=(min(seed_max,apothecaries_alive*40))-gene_penalty;
+seed_saved = (min(seed_max, apothecaries_alive * 40));
 if (obj_ini.doomed) then seed_saved=0;
 if (seed_saved>0) then obj_controller.gene_seed+=seed_saved;
 
diff --git a/objects/obj_ncombat/Create_0.gml b/objects/obj_ncombat/Create_0.gml
@@ -128,7 +128,6 @@ repeat(70){i+=1;
     post_unit_lost[i]="";
     post_unit_veh[i]=0;
     post_units_lost[i]=0;
-    post_geneseed_recovered[i]=0;
     post_equipment_lost[i]="";
     post_equipments_lost[i]=0;
     
@@ -158,7 +157,6 @@ newline="";
 newline_color="";
 liness=0;
 world_size=0;
-gene_penalty=0;
 
 timer=0;
 timer_stage=0;
diff --git a/objects/obj_pnunit/Alarm_5.gml b/objects/obj_pnunit/Alarm_5.gml
diff --git a/scripts/scr_chapter_random/scr_chapter_random.gml b/scripts/scr_chapter_random/scr_chapter_random.gml
diff --git a/scripts/scr_creation/scr_creation.gml b/scripts/scr_creation/scr_creation.gml
diff --git a/scripts/scr_creation_draw_slides/scr_creation_draw_slides.gml b/scripts/scr_creation_draw_slides/scr_creation_draw_slides.gml
diff --git a/scripts/scr_load_controller/scr_load_controller.gml b/scripts/scr_load_controller/scr_load_controller.gml
diff --git a/scripts/scr_marine_struct/scr_marine_struct.gml b/scripts/scr_marine_struct/scr_marine_struct.gml
diff --git a/scripts/scr_specialist_point_handler/scr_specialist_point_handler.gml b/scripts/scr_specialist_point_handler/scr_specialist_point_handler.gml
