// The communications computer /obj/machinery/computer/communications name = "Communications Console" desc = "This can be used for various important functions. Still under developement." icon_state = "comm" req_access = list(access_heads) circuit = "/obj/item/weapon/circuitboard/communications" var/prints_intercept = 1 var/authenticated = 0 var/list/messagetitle = list() var/list/messagetext = list() var/currmsg = 0 var/aicurrmsg = 0 var/state = STATE_DEFAULT var/aistate = STATE_DEFAULT var/message_cooldown = 0 var/const STATE_DEFAULT = 1 STATE_CALLSHUTTLE = 2 STATE_CANCELSHUTTLE = 3 STATE_MESSAGELIST = 4 STATE_VIEWMESSAGE = 5 STATE_DELMESSAGE = 6 STATE_STATUSDISPLAY = 7 var/status_display_freq = "1435" var/stat_msg1 var/stat_msg2 /obj/machinery/computer/communications/process() ..() if(state != STATE_STATUSDISPLAY) src.updateDialog() /obj/machinery/computer/communications/Topic(href, href_list) if(..()) return usr.machine = src if(!href_list["operation"]) return switch(href_list["operation"]) // main interface if("main") src.state = STATE_DEFAULT if("login") var/mob/M = usr var/obj/item/weapon/card/id/I = M.equipped() if (istype(I, /obj/item/device/pda)) var/obj/item/device/pda/pda = I I = pda.id if (I && istype(I)) if(src.check_access(I)) authenticated = 1 if(20 in I.access) authenticated = 2 if("logout") authenticated = 0 if("announce") if(src.authenticated==2) if(message_cooldown) return var/input = input(usr, "Please choose a message to announce to the station crew.", "What?", "") if(!input) return captain_announce(input)//This should really tell who is, IE HoP, CE, HoS, RD, Captain log_say("[key_name(usr)] has made a captain announcement: [input]") message_admins("[key_name_admin(usr)] has made a captain announcement.", 1) message_cooldown = 1 spawn(600)//One minute cooldown message_cooldown = 0 if("callshuttle") src.state = STATE_DEFAULT if(src.authenticated) src.state = STATE_CALLSHUTTLE if("callshuttle2") if(src.authenticated) call_shuttle_proc(usr) if(emergency_shuttle.online) post_status("shuttle") src.state = STATE_DEFAULT if("cancelshuttle") src.state = STATE_DEFAULT if(src.authenticated) src.state = STATE_CANCELSHUTTLE if("cancelshuttle2") if(src.authenticated) cancel_call_proc(usr) src.state = STATE_DEFAULT if("messagelist") src.currmsg = 0 src.state = STATE_MESSAGELIST if("viewmessage") src.state = STATE_VIEWMESSAGE if (!src.currmsg) if(href_list["message-num"]) src.currmsg = text2num(href_list["message-num"]) else src.state = STATE_MESSAGELIST if("delmessage") src.state = (src.currmsg) ? STATE_DELMESSAGE : STATE_MESSAGELIST if("delmessage2") if(src.authenticated) if(src.currmsg) var/title = src.messagetitle[src.currmsg] var/text = src.messagetext[src.currmsg] src.messagetitle.Remove(title) src.messagetext.Remove(text) if(src.currmsg == src.aicurrmsg) src.aicurrmsg = 0 src.currmsg = 0 src.state = STATE_MESSAGELIST else src.state = STATE_VIEWMESSAGE if("status") src.state = STATE_STATUSDISPLAY // Status display stuff if("setstat") switch(href_list["statdisp"]) if("message") post_status("message", stat_msg1, stat_msg2) if("alert") post_status("alert", href_list["alert"]) else post_status(href_list["statdisp"]) if("setmsg1") stat_msg1 = input("Line 1", "Enter Message Text", stat_msg1) as text|null src.updateDialog() if("setmsg2") stat_msg2 = input("Line 2", "Enter Message Text", stat_msg2) as text|null src.updateDialog() // AI interface if("ai-main") src.aicurrmsg = 0 src.aistate = STATE_DEFAULT if("ai-callshuttle") src.aistate = STATE_CALLSHUTTLE if("ai-callshuttle2") call_shuttle_proc(usr) src.aistate = STATE_DEFAULT if("ai-messagelist") src.aicurrmsg = 0 src.aistate = STATE_MESSAGELIST if("ai-viewmessage") src.aistate = STATE_VIEWMESSAGE if (!src.aicurrmsg) if(href_list["message-num"]) src.aicurrmsg = text2num(href_list["message-num"]) else src.aistate = STATE_MESSAGELIST if("ai-delmessage") src.aistate = (src.aicurrmsg) ? STATE_DELMESSAGE : STATE_MESSAGELIST if("ai-delmessage2") if(src.aicurrmsg) var/title = src.messagetitle[src.aicurrmsg] var/text = src.messagetext[src.aicurrmsg] src.messagetitle.Remove(title) src.messagetext.Remove(text) if(src.currmsg == src.aicurrmsg) src.currmsg = 0 src.aicurrmsg = 0 src.aistate = STATE_MESSAGELIST if("ai-status") src.aistate = STATE_STATUSDISPLAY src.updateUsrDialog() /obj/machinery/computer/communications/attack_ai(var/mob/user as mob) return src.attack_hand(user) /obj/machinery/computer/communications/attack_paw(var/mob/user as mob) return src.attack_hand(user) /obj/machinery/computer/communications/attack_hand(var/mob/user as mob) if(..()) return user.machine = src var/dat = "Communications Console" if (emergency_shuttle.online && emergency_shuttle.location==0) var/timeleft = emergency_shuttle.timeleft() dat += "Emergency shuttle\n
\nETA: [timeleft / 60 % 60]:[add_zero(num2text(timeleft % 60), 2)]
" if (istype(user, /mob/living/silicon)) var/dat2 = src.interact_ai(user) // give the AI a different interact proc to limit its access if(dat2) dat += dat2 user << browse(dat, "window=communications;size=400x500") onclose(user, "communications") return switch(src.state) if(STATE_DEFAULT) if (src.authenticated) dat += "
\[ Log Out \]" if (src.authenticated==2) dat += "
\[ Make An Announcement \]" if(emergency_shuttle.location==0) if (emergency_shuttle.online) dat += "
\[ Cancel Shuttle Call \]" else dat += "
\[ Call Emergency Shuttle \]" dat += "
\[ Set Status Display \]" else dat += "
\[ Log In \]" dat += "
\[ Message List \]" if(STATE_CALLSHUTTLE) dat += "Are you sure you want to call the shuttle? \[ OK | Cancel \]" if(STATE_CANCELSHUTTLE) dat += "Are you sure you want to cancel the shuttle? \[ OK | Cancel \]" if(STATE_MESSAGELIST) dat += "Messages:" for(var/i = 1; i<=src.messagetitle.len; i++) dat += "
[src.messagetitle[i]]" if(STATE_VIEWMESSAGE) if (src.currmsg) dat += "[src.messagetitle[src.currmsg]]

[src.messagetext[src.currmsg]]" if (src.authenticated) dat += "

\[ Delete \]" else src.state = STATE_MESSAGELIST src.attack_hand(user) return if(STATE_DELMESSAGE) if (src.currmsg) dat += "Are you sure you want to delete this message? \[ OK | Cancel \]" else src.state = STATE_MESSAGELIST src.attack_hand(user) return if(STATE_STATUSDISPLAY) dat += "Set Status Displays
" dat += "\[ Clear \]
" dat += "\[ Shuttle ETA \]
" dat += "\[ Message \]" dat += "
" dat += "\[ Alert: None |" dat += " Red Alert |" dat += " Lockdown |" dat += " Biohazard \]
" dat += "
\[ [(src.state != STATE_DEFAULT) ? "Main Menu | " : ""]Close \]" user << browse(dat, "window=communications;size=400x500") onclose(user, "communications") /obj/machinery/computer/communications/proc/interact_ai(var/mob/living/silicon/ai/user as mob) var/dat = "" switch(src.aistate) if(STATE_DEFAULT) if(emergency_shuttle.location==0 && !emergency_shuttle.online) dat += "
\[ Call Emergency Shuttle \]" dat += "
\[ Message List \]" dat += "
\[ Set Status Display \]" if(STATE_CALLSHUTTLE) dat += "Are you sure you want to call the shuttle? \[ OK | Cancel \]" if(STATE_MESSAGELIST) dat += "Messages:" for(var/i = 1; i<=src.messagetitle.len; i++) dat += "
[src.messagetitle[i]]" if(STATE_VIEWMESSAGE) if (src.aicurrmsg) dat += "[src.messagetitle[src.aicurrmsg]]

[src.messagetext[src.aicurrmsg]]" dat += "

\[ Delete \]" else src.aistate = STATE_MESSAGELIST src.attack_hand(user) return null if(STATE_DELMESSAGE) if(src.aicurrmsg) dat += "Are you sure you want to delete this message? \[ OK | Cancel \]" else src.aistate = STATE_MESSAGELIST src.attack_hand(user) return if(STATE_STATUSDISPLAY) dat += "Set Status Displays
" dat += "\[ Clear \]
" dat += "\[ Shuttle ETA \]
" dat += "\[ Message \]" dat += "
" dat += "\[ Alert: None |" dat += " Red Alert |" dat += " Lockdown |" dat += " Biohazard \]
" dat += "
\[ [(src.aistate != STATE_DEFAULT) ? "Main Menu | " : ""]Close \]" return dat /mob/living/silicon/ai/proc/ai_call_shuttle() set category = "AI Commands" set name = "Call Emergency Shuttle" if(usr.stat == 2) usr << "You can't call the shuttle because you are dead!" return call_shuttle_proc(src) // hack to display shuttle timer if(emergency_shuttle.online) var/obj/machinery/computer/communications/C = locate() in world if(C) C.post_status("shuttle") return /proc/enable_prison_shuttle(var/mob/user) for(var/obj/machinery/computer/prison_shuttle/PS in world) PS.allowedtocall = !(PS.allowedtocall) /proc/call_shuttle_proc(var/mob/user) if ((!( ticker ) || emergency_shuttle.location)) return if(sent_strike_team == 1) user << "Centcom will not allow the shuttle to be called. Consider all contracts terminated." return if(world.time < 6000) // Ten minute grace period to let the game get going without lolmetagaming. -- TLE user << "The emergency shuttle is refueling. Please wait another [(6000-world.time)/10] seconds before trying again." return if(emergency_shuttle.direction == -1) user << "Shuttle may not be called while returning to CentCom." return if(ticker.mode.name == "revolution" || ticker.mode.name == "AI malfunction" || ticker.mode.name == "sandbox") //New version pretends to call the shuttle but cause the shuttle to return after a random duration. emergency_shuttle.fake_recall = rand(300,500) if(ticker.mode.name == "blob") if(ticker.mode:declared) user << "Under directive 7-10, [station_name()] is quarantined until further notice." return emergency_shuttle.incall() log_game("[key_name(user)] has called the shuttle.") message_admins("[key_name_admin(user)] has called the shuttle.", 1) world << "\blue Alert: The emergency shuttle has been called. It will arrive in [round(emergency_shuttle.timeleft()/60)] minutes." world << sound('shuttlecalled.ogg') return /proc/cancel_call_proc(var/mob/user) if ((!( ticker ) || emergency_shuttle.location || emergency_shuttle.direction == 0 || emergency_shuttle.timeleft() < 300)) return if((ticker.mode.name == "blob")||(ticker.mode.name == "meteor")) return emergency_shuttle.recall() log_game("[key_name(user)] has uncalled the shuttle.") message_admins("[key_name_admin(user)] has uncalled the shuttle.", 1) return /obj/machinery/computer/communications/proc/post_status(var/command, var/data1, var/data2) var/datum/radio_frequency/frequency = radio_controller.return_frequency(status_display_freq) if(!frequency) return var/datum/signal/status_signal = new status_signal.source = src status_signal.transmission_method = 1 status_signal.data["command"] = command switch(command) if("message") status_signal.data["msg1"] = data1 status_signal.data["msg2"] = data2 if("alert") status_signal.data["picture_state"] = data1 frequency.post_signal(src, status_signal) /obj/machinery/computer/communications/Del() for(var/obj/machinery/computer/communications/commconsole in world) if(istype(commconsole.loc,/turf) && commconsole != src) return ..() for(var/obj/item/weapon/circuitboard/communications/commboard in world) if(istype(commboard.loc,/turf) || istype(commboard.loc,/obj/item/weapon/storage)) return ..() for(var/mob/living/silicon/ai/shuttlecaller in world) if(!shuttlecaller.stat && shuttlecaller.client && istype(shuttlecaller.loc,/turf)) return ..() if(ticker.mode.name == "revolution" || ticker.mode.name == "AI malfunction" || sent_strike_team) return ..() emergency_shuttle.incall(2) log_game("All the AIs, comm consoles and boards are destroyed. Shuttle called.") message_admins("All the AIs, comm consoles and boards are destroyed. Shuttle called.", 1) world << "\blue Alert: The emergency shuttle has been called. It will arrive in [round(emergency_shuttle.timeleft()/60)] minutes." world << sound('shuttlecalled.ogg') ..() /obj/item/weapon/circuitboard/communications/Del() for(var/obj/machinery/computer/communications/commconsole in world) if(istype(commconsole.loc,/turf)) return ..() for(var/obj/item/weapon/circuitboard/communications/commboard in world) if((istype(commboard.loc,/turf) || istype(commboard.loc,/obj/item/weapon/storage)) && commboard != src) return ..() for(var/mob/living/silicon/ai/shuttlecaller in world) if(!shuttlecaller.stat && shuttlecaller.client && istype(shuttlecaller.loc,/turf)) return ..() if(ticker.mode.name == "revolution" || ticker.mode.name == "AI malfunction" || sent_strike_team) return ..() emergency_shuttle.incall(2) log_game("All the AIs, comm consoles and boards are destroyed. Shuttle called.") message_admins("All the AIs, comm consoles and boards are destroyed. Shuttle called.", 1) world << "\blue Alert: The emergency shuttle has been called. It will arrive in [round(emergency_shuttle.timeleft()/60)] minutes." world << sound('shuttlecalled.ogg') ..()