/datum/admins/proc/create_admin_fax()
set name = "Send Admin Fax"
set desc = "Send a fax from Central Command."
set category = "Special Verbs.Narration/Messaging"
if (check_rights(R_ADMIN|R_CCIAA|R_FUN) || isstoryteller(usr))
var/list/faxes = list()
for(var/obj/structure/machinery/photocopier/faxmachine/F in GLOB.allfaxes)
faxes[F.department] = F
if(!length(faxes))
to_chat(usr, SPAN_WARNING("No valid fax machines located!"))
return
if (isstoryteller(usr))
to_chat(usr, SPAN_DANGER("CCIA NOTE: Remember that you should only interact via CentComm faxes as they relate to your current odyssey. For any questions, please consult CCIA via Discord."))
var/department = tgui_input_list(usr, "Pick a fax machine.", "Send Admin Fax", faxes)
var/obj/structure/machinery/photocopier/faxmachine/fax = faxes[department]
if (!istype(fax))
to_chat(usr, SPAN_WARNING("Couldn't find a fax machine to send this to!"))
return
//todo: sanitize
var/input = tgui_input_text(usr, "Please enter a message to reply to via secure connection. BBCode and HTML allowed.", \
"Outgoing message from Centcomm", "", MAX_BOOK_MESSAGE_LEN, TRUE)
if (!input)
to_chat(usr, SPAN_WARNING("Cancelled."))
return
var/customname = tgui_input_text(usr, "Pick a title for the report.", "Title")
if (!customname)
to_chat(usr, SPAN_WARNING("Cancelled."))
return
var/announce = alert(usr, "Do you wish to announce the fax being sent?", "Announce Fax", "Yes", "No")
if(announce == "Yes")
announce = TRUE
// Create the reply message
var/obj/item/paper/P = new /obj/item/paper(null) //hopefully the null loc won't cause trouble for us
P.set_content("[SSatlas.current_map.boss_name] - [customname]", input)
// Stamps
var/image/stampoverlay = image('icons/obj/bureaucracy.dmi')
stampoverlay.icon_state = "paper_stamp-cent"
if(!P.stamped)
P.stamped = new
P.stamped += /obj/item/stamp
P.AddOverlays(stampoverlay)
P.stamps += "
This paper has been stamped by the Central Command Quantum Relay."
if(fax.receivefax(P))
if(announce == 1)
command_announcement.Announce("A fax has been sent to the [department] fax machine.", "Fax Sent")
to_chat(usr, SPAN_NOTICE("Message transmitted successfully."))
log_and_message_admins("sent a fax message to the [department] fax machine. (JMP)")
GLOB.sent_faxes += P
else
to_chat(usr, SPAN_WARNING("Message reply failed."))
qdel(P)
return
else
to_chat(usr, SPAN_WARNING("You do not have enough powers to do this."))
return
/client/proc/check_fax_history()
set name = "Check fax history"
set desc = "Look up the faxes sent this round."
set category = "Special Verbs.Narration/Messaging"
if (check_rights(R_ADMIN|R_CCIAA|R_FUN) || isstoryteller(usr))
var/data = "Send New Fax"
data += "
"
data += "Received Faxes:
"
if (GLOB.arrived_faxes && GLOB.arrived_faxes.len)
for (var/obj/item/item in GLOB.arrived_faxes)
data += "[item.name] - view message
"
else
data += "No faxes have been received."
data += "
Sent Faxes:
"
if (GLOB.sent_faxes && GLOB.sent_faxes.len)
for (var/obj/item/item in GLOB.sent_faxes)
data += "[item.name] - view message
"
else
data += "No faxes have been sent out."
usr << browse("Centcomm Fax History[data]", "window=Centcomm Fax History")
return
else
to_chat(usr, SPAN_WARNING("You do not have enough powers to do this."))
return
/client/proc/launch_ccia_shuttle()
set name = "Launch CCIA Shuttle"
set desc = "Launches the CCIA Shuttle."
set category = "Special Verbs"
var/datum/shuttle/autodock/ferry/S = SSshuttle.shuttles["SCC Shuttle"]
S.launch(usr)