Merge pull request #1055 from tigercat2000/whiteshipactualship

Movable Telecomms White Ship

code/controllers/shuttle_controller.dm

@@ -247,6 +247,25 @@ var/global/datum/shuttle_controller/shuttle_controller
 	MS.warmup_time = 0
 	shuttles["Syndicate"] = MS
 
+	//Vox Shuttle.
+	var/datum/shuttle/multi_shuttle/WS = new/datum/shuttle/multi_shuttle()
+	WS.origin = locate(/area/shuttle/derelict/ship/start)
+
+	WS.destinations = list(
+		"NCS Cyberiad" = locate(/area/shuttle/derelict/ship/station),
+		"Engineering Outpost" = locate(/area/shuttle/derelict/ship/engipost),
+		)
+
+	WS.announcer = "NSV Icarus"
+	WS.arrival_message = "Attention, [station_name()], we just tracked a large medical vessel approaching the station from the telecommunications satellite. Can't fire on them without hitting the station - prepare for visitors."
+	WS.departure_message = "Your guests are pulling away, [station_name()] - moving too fast for us to draw a bead on them. Looks like they're heading back to the telecommunications satellite."
+	WS.interim = locate(/area/shuttle/derelict/ship/transit)
+
+	WS.cloaked = 0
+	WS.move_time = 180
+	WS.warmup_time = 0
+	shuttles["White Ship"] = WS
+
 
 //This is called by gameticker after all the machines and radio frequencies have been properly initialized
 /datum/shuttle_controller/proc/setup_shuttle_docks()

code/game/area/Space Station 13 areas.dm

@@ -1859,7 +1859,19 @@ area/security/podbay
 	name = "Derelict EVA Storage"
 	icon_state = "eva"
 
-/area/derelict/ship
+/area/shuttle/derelict/ship/start
+	name = "\improper Abandoned Ship"
+	icon_state = "yellow"
+
+/area/shuttle/derelict/ship/transit
+	name = "\improper Abandoned Ship"
+	icon_state = "yellow"
+
+/area/shuttle/derelict/ship/engipost
+	name = "\improper Abandoned Ship"
+	icon_state = "yellow"
+
+/area/shuttle/derelict/ship/station
 	name = "\improper Abandoned Ship"
 	icon_state = "yellow"
 

code/game/machinery/computer/buildandrepair.dm

@@ -198,6 +198,11 @@
 	name = "Circuit board (Mining Shuttle)"
 	build_path = "/obj/machinery/computer/shuttle_control/mining"
 	origin_tech = "programming=2"
+/obj/item/weapon/circuitboard/white_ship
+	name = "circuit Board (White Ship)"
+	desc = {"A dusty circuitboard, marked "property of the NGV Venal"."}
+	build_path = "/obj/machinery/computer/shuttle_control/multi/whiteship"
+	origin_tech = "programming=2"
 /obj/item/weapon/circuitboard/engineering_shuttle
 	name = "Circuit board (Engineering Shuttle)"
 	build_path = "/obj/machinery/computer/shuttle_control/engineering"

code/modules/shuttles/whiteship.dm

@@ -0,0 +1,23 @@
+/obj/machinery/computer/shuttle_control/multi/whiteship
+	name = "medical ship control console"
+	req_access = list()
+	shuttle_tag = "White Ship"
+	circuit = "/obj/item/weapon/circuitboard/white_ship"
+	light_color = "#CC0000"
+
+/obj/machinery/computer/shuttle_control/multi/whiteship/attack_ai(user as mob)
+	user << "\red Access Denied."
+	return 1
+
+/obj/machinery/computer/shuttle_control/multi/whiteship/New()
+	var/area/A = get_area(src)
+	if(!istype(A,/area/shuttle/derelict/ship))
+		visible_message("<span class='warning'>\The [src] displays a message: No connectable systems located. Shutting down.</span>")
+		var/V = text2path(circuit)
+		new V(loc)
+
+		animate(src, alpha = 10, time = 20)
+		spawn(20)
+			visible_message("<span class='danger'>\The [src] fades out of existence!</span>")
+			qdel(src)
+	..()