/datum/admins/proc/emergency_shuttle_panel()
if(!emergency_shuttle)
alert("The emergency shuttle subsystem isn't ready yet!")
return
var/dat = "Emergency Shuttle Fuckery PanelEmergency Shuttle Control
"
dat += "Current Status:"
var/area/shuttle_loc = locate(/area/shuttle/escape/centcom)
var/turf/shuttle_turf = pick(shuttle_loc.area_turfs)
dat += ""
switch (emergency_shuttle.location)
if(0)
switch (emergency_shuttle.direction)
if (-1)
dat += "In transit (Recalled)"
if(0)
dat += "At Central Command (on standby)"
if(1)
dat += "In transit (To Station)"
if(2)
dat += "In transit (To Centcom - Round End)"
if(1)
dat += "At the Station"
if(2)
dat += "At Central Command (Round Ended)"
dat += "
"
if (!emergency_shuttle.online)
dat += "Call Shuttle
"
else
var/timeleft = emergency_shuttle.timeleft()
switch(emergency_shuttle.location)
if(0)
dat += {"ETA: [(timeleft / 60) % 60]:[add_zero(num2text(timeleft % 60), 2)]
Send Back
"}
if(1)
dat += "ETA: [(timeleft / 60) % 60]:[add_zero(num2text(timeleft % 60), 2)]
"
dat += "
"
if (emergency_shuttle.online)
dat += "Any of the three following actions will cancel the shuttle timer.
"
dat += "move shuttle to station
"
dat += "move shuttle to transit
"
dat += "move shuttle to centcom
"
dat += "
"
dat += "move station dock here - reset
"
dat += "move transit dock here - reset
"
dat += "move centcom dock here - reset
"
dat += "Escape Pods Control
"
for (var/pod in emergency_shuttle.escape_pods)
var/datum/shuttle/escape/S = pod
var/turf/T = pick(S.linked_area.area_turfs)
dat += "[S.linked_area.name] : [(emergency_shuttle.escape_pods[pod] == "station") ? "station" : "station"] - [(emergency_shuttle.escape_pods[pod] == "transit") ? "transit" : "transit"] - [(emergency_shuttle.escape_pods[pod] == "centcom") ? "centcom" : "centcom"]
"
if (emergency_shuttle.escape_pods.len > 1)
dat += "Move All Pods : station - transit - centcom
"
dat += ""
usr << browse(dat, "window=emergencyshuttle;size=440x500")