AQ-133 MK1 'Reaper' Strategic Acquisition System

code/modules/vehicles/blackfoot/blackfoot.dm

@@ -43,7 +43,6 @@
 	hardpoints_allowed = list(
 		/obj/item/hardpoint/locomotion/blackfoot_thrusters,
 		/obj/item/hardpoint/primary/blackfoot_launchers,
-		/obj/item/hardpoint/support/sensor_array,
 		/obj/item/hardpoint/secondary/doorgun,
 	)
 

code/modules/vehicles/hardpoints/support/sensor_array.dm

@@ -1,8 +1,18 @@
 #define SENSOR_MODE "sensor"
 #define NIGHTVISION_MODE "nightvision"
 
+#define RADAR_MODE_OFF -1
+#define RADAR_MODE_PASSIVE 0
+#define RADAR_MODE_ACTIVE 1
+
+#define RADAR_CONTACT_BLANK "contact"
+#define RADAR_CONTACT_NEUTRAL "neutral"
+#define RADAR_CONTACT_UNKNOWN "unknown"
+#define RADAR_CONTACT_FRIENDLY "friendly"
+#define RADAR_CONTACT_HOSTILE "hostile"
+
 /obj/item/hardpoint/support/sensor_array
-	name = "\improper AQ-133 Acquisition System"
+	name = "\improper AQ-133 Acquisition System (WIP)"
 	desc = "A short-range Air-to-Ground LIDAR target acquisition system designed to actively track and profile non-IFF signatures in a localized range of detection."
 	icon = 'icons/obj/vehicles/hardpoints/blackfoot.dmi'
 	icon_state = "radar"
@@ -12,13 +22,34 @@
 	health = 250
 
 	var/active = FALSE
-
+	var/interface_active = FALSE
+	var/volume = 25
+	var/map_zoom = 200
+	var/minimap_shown = TRUE
+	var/locking_mode
+	var/radar_mode = RADAR_MODE_OFF
 	/// Range of the wallhacks
 	var/sensor_radius = 45
 	/// weakrefs of xenos temporarily added to the marine minimap
 	var/list/minimap_added = list()
 	/// current mode, can be either nvg (gives nightvision to the pilot) or sensor (shows xenos on tacmap)
 	var/mode = SENSOR_MODE
+	var/datum/flattened_tacmap/map
+	/// List of actively tracked radar contacts. Used to check if a contact blip is being seen for the first time
+	var/list/stored_contacts = list()
+
+	var/static/list/radar_modes = list(
+		RADAR_MODE_OFF,
+		RADAR_MODE_PASSIVE,
+		RADAR_MODE_ACTIVE)
+
+	var/contact_alert = TRUE
+	var/proximity_alert = TRUE
+
+//	to do list
+//
+// d
+
 
 /obj/item/hardpoint/support/sensor_array/get_icon_image(x_offset, y_offset, new_dir)
 	var/obj/vehicle/multitile/blackfoot/blackfoot_owner = owner
@@ -62,6 +93,110 @@
 		if(NIGHTVISION_MODE)
 			deactivate_nightvision(user)
 
+/obj/item/hardpoint/support/sensor_array/tgui_interact(mob/user, datum/tgui/ui)
+	. = ..()
+
+	ui = SStgui.try_update_ui(user, src, ui)
+	if(!ui)
+		ui = new(user, src, "VehicleRadar", "AQ-133 'Reaper' Targeting System", 900, 600)
+		ui.open()
+
+/obj/item/hardpoint/support/sensor_array/ui_status(mob/user)
+	if(!(isatom(src)))
+		return UI_INTERACTIVE
+
+	if(user in owner.interior.get_passengers())
+		return UI_INTERACTIVE
+	else
+		return UI_CLOSE
+
+/obj/item/hardpoint/support/sensor_array/ui_act(action, list/params, datum/tgui/ui, datum/ui_state/state)
+	. = ..()
+
+	switch (action)
+		if("power")
+			interface_active = !interface_active
+			if(interface_active)
+				playsound(src, 'sound/machines/tcomms_on.ogg', 10, FALSE)
+		if("mode")
+			minimap_shown = !minimap_shown
+		if("zoom_in")
+			return
+		if("zoom_out")
+			return
+		if("zone_lock")
+			return
+		if("target_lock")
+			return
+		if("volume")
+			var/volume_change = params["volume"]
+			switch(volume_change)
+				if("up")
+					volume = volume + 5
+				if("down")
+					volume = volume - 5
+				if("mute")
+					volume = 0
+			volume = clamp(volume, 0, 25)
+		if("switch_radar_mode")
+			radar_mode = next_in_list(radar_mode, radar_modes)
+		if("proximity_alert")
+			proximity_alert = !proximity_alert
+		if("contact_alert")
+			contact_alert = !contact_alert
+		if("manual_pulse")
+			tgui_interact(ui.user)
+		if("automatic_pulse")
+			return
+		if("pulse_control")
+			var/pulse_speed = params["pulse_change"]
+			switch(pulse_speed)
+				if("up")
+					pulse_speed = pulse_speed + 5
+				if("down")
+					pulse_speed = pulse_speed - 5
+				if("mute")
+					pulse_speed = 0
+			pulse_speed = clamp(pulse_speed, 0, 25)
+
+
+	var/click_sound = pick(
+		'sound/machines/terminal_button01.ogg',
+		'sound/machines/terminal_button04.ogg',
+		'sound/machines/terminal_button05.ogg')
+
+	playsound(src, click_sound, volume, FALSE)
+
+/obj/item/hardpoint/support/sensor_array/ui_static_data(mob/user)
+	var/list/data = list()
+
+	data["blackfoot_icon"] = 'icons/ui_icons/map_blips_extra_large.dmi'
+	data["radar_blip_icons"] = 'icons/ui_icons/map_blips_vehicle_radar.dmi'
+	for(var/datum/space_level/map as anything in SSmapping.z_list)
+		if(map.z_value == 2)
+			data["map_size_x"] = map.bounds[MAP_MAXX]
+			data["map_size_y"] = map.bounds[MAP_MAXY]
+
+	return data
+
+/obj/item/hardpoint/support/sensor_array/ui_data(mob/user)
+	var/list/data = list()
+
+	map = get_unannounced_tacmap_data_png(FACTION_MARINE)
+	if(map)
+		data["radar_map"] = map.flat_tacmap
+	data["interface_active"] = interface_active
+	data["minimap_shown"] = minimap_shown
+	data["blackfoot_dir"] = owner.dir
+	data["blackfoot_x"] = owner.x
+	data["blackfoot_y"] = owner.y
+	data["radar_mode"] = radar_mode
+
+	if(radar_mode != RADAR_MODE_OFF)
+		data = gather_radar_contact_data(data)
+
+	return data
+
 /obj/item/hardpoint/support/sensor_array/proc/on_update_sight(mob/user)
 	SIGNAL_HANDLER
 
@@ -82,6 +217,49 @@
 	STOP_PROCESSING(SSobj, src)
 	active = FALSE
 
+/obj/item/hardpoint/support/sensor_array/proc/gather_radar_contact_data(list/data)
+
+	for(var/mob/living/carbon/xenomorph/current_xeno as anything in GLOB.living_xeno_list)
+		var/turf/xeno_turf = get_turf(current_xeno)
+		var/area/xeno_area = get_area(current_xeno)
+
+		if(!is_ground_level(xeno_turf.z))
+			continue
+
+		//var/datum/weakref/xeno_weakref = WEAKREF(current_xeno)
+
+		if(get_dist(src, current_xeno) >= sensor_radius)
+			if(current_xeno in stored_contacts)
+				stored_contacts -= current_xeno
+			continue
+
+		if(xeno_area.ceiling > CEILING_GLASS)
+			continue
+
+		data["contact_data"] += list(list(
+			"name" = current_xeno.name,
+			"icon" = RADAR_CONTACT_HOSTILE,
+			"position_x" = current_xeno.x,
+			"position_y" = current_xeno.y,
+			"contact_ref" = REF(current_xeno)
+		))
+
+		if(!(current_xeno in stored_contacts) && contact_alert)
+			stored_contacts += current_xeno
+			notify_radar_contact(current_xeno)
+
+	return data
+
+/obj/item/hardpoint/support/sensor_array/proc/notify_radar_contact(mob/contact)
+	var/obj/vehicle/multitile/blackfoot/blackfoot_owner = owner
+
+	if(!blackfoot_owner)
+		return
+
+	var/mob/user = blackfoot_owner.seats[VEHICLE_DRIVER]
+
+	playsound_client(user.client, 'sound/vehicles/vtol/radar_new_contact.ogg', src, volume, FALSE)
+
 /obj/item/hardpoint/support/sensor_array/proc/activate_mode(mode)
 	var/obj/vehicle/multitile/blackfoot/blackfoot_owner = owner
 
@@ -95,6 +273,7 @@
 
 	switch(mode)
 		if(SENSOR_MODE)
+			tgui_interact(user)
 			START_PROCESSING(SSslowobj, src)
 		if(NIGHTVISION_MODE)
 			var/matrix_color = NV_COLOR_GREEN
@@ -151,5 +330,9 @@
 			current_xeno.add_minimap_marker()
 			minimap_added -= xeno_weakref
 
+#undef RADAR_MODE_OFF
+#undef RADAR_MODE_PASSIVE
+#undef RADAR_MODE_ACTIVE
+
 #undef SENSOR_MODE
 #undef NIGHTVISION_MODE

maps/map_files/USS_Almayer/USS_Almayer.dmm

@@ -7318,10 +7318,6 @@
 	pixel_x = -6;
 	pixel_y = -3
 	},
-/obj/item/hardpoint/support/sensor_array{
-	pixel_x = 6;
-	pixel_y = -6
-	},
 /turf/open/floor/almayer/plating/northeast,
 /area/almayer/shipboard/operations)
 "arZ" = (