From 4288325a9e4f2ee5a01804698c95fb453a4355a2 Mon Sep 17 00:00:00 2001
From: SkyratBot <59378654+SkyratBot@users.noreply.github.com>
Date: Thu, 3 Feb 2022 00:04:29 +0100
Subject: [PATCH] [MIRROR] Fixes BEPIS giving tech for free anymore and fixes
 unreachable message [MDB IGNORE] (#11237)

* Makes BEPIS not give tech for free anymore (#64605)

* Fixes BEPIS giving tech for free anymore and fixes unreachable message

Co-authored-by: RandomGamer123 <31096837+RandomGamer123@users.noreply.github.com>
---
 code/modules/research/bepis.dm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/code/modules/research/bepis.dm b/code/modules/research/bepis.dm
index 192cc563eba..eb245e32c6e 100644
--- a/code/modules/research/bepis.dm
+++ b/code/modules/research/bepis.dm
@@ -7,6 +7,7 @@
 #define MAJOR_THRESHOLD 6*CARGO_CRATE_VALUE
 #define MINOR_THRESHOLD 4*CARGO_CRATE_VALUE
 #define STANDARD_DEVIATION 2*CARGO_CRATE_VALUE
+#define PART_CASH_OFFSET_AMOUNT 0.5*CARGO_CRATE_VALUE
 
 /obj/machinery/rnd/bepis
 	name = "\improper B.E.P.I.S. Chamber"
@@ -92,10 +93,10 @@
 		C += ((Cap.rating - 1) * 0.1)
 	power_saver = 1 - C
 	for(var/obj/item/stock_parts/manipulator/Manip in component_parts)
-		M += ((Manip.rating - 1) * 250)
+		M += ((Manip.rating - 1) * PART_CASH_OFFSET_AMOUNT)
 	positive_cash_offset = M
 	for(var/obj/item/stock_parts/micro_laser/Laser in component_parts)
-		L += ((Laser.rating - 1) * 250)
+		L += ((Laser.rating - 1) * PART_CASH_OFFSET_AMOUNT)
 	negative_cash_offset = L
 	for(var/obj/item/stock_parts/scanning_module/Scan in component_parts)
 		S += ((Scan.rating - 1) * 0.25)
@@ -259,12 +260,12 @@
 	flick("chamber_flash",src)
 	update_appearance()
 	banked_cash = 0
-	if((gauss_real >= gauss_major) && (SSresearch.techweb_nodes_experimental.len > 0)) //Major Success.
-		say("Experiment concluded with major success. New technology node discovered on technology disc.")
-		new /obj/item/disk/tech_disk/major(dropturf,1)
-		if(SSresearch.techweb_nodes_experimental.len == 0)
-			say("Expended all available experimental technology nodes. Resorting to minor rewards.")
-		return
+	if((gauss_real >= gauss_major)) //Major Success.
+		if(SSresearch.techweb_nodes_experimental.len > 0)
+			say("Experiment concluded with major success. New technology node discovered on technology disc.")
+			new /obj/item/disk/tech_disk/major(dropturf,1)
+			return
+		say("Expended all available experimental technology nodes. Resorting to minor rewards.")
 	if(gauss_real >= gauss_minor) //Minor Success.
 		var/reward = pick(minor_rewards)
 		new reward(dropturf)