mirror of
https://github.com/CHOMPStation2/CHOMPStation2.git
synced 2025-12-13 03:33:21 +00:00
Initial commit of Computer 3 from Paradise, along with a bunch of fixes.
This commit is contained in:
DJSnapshot
404
code/WorkInProgress/computer3/program.dm
Normal file
404
code/WorkInProgress/computer3/program.dm
Normal file
@@ -0,0 +1,404 @@
|
||||
|
||||
/*
|
||||
Programs are a file that can be executed
|
||||
*/
|
||||
|
||||
/datum/file/program
|
||||
name = "Untitled"
|
||||
extension = "prog"
|
||||
image = 'icons/NTOS/program.png'
|
||||
var/desc = "An unidentifiable program."
|
||||
|
||||
var/image/overlay = null // Icon to be put on top of the computer frame.
|
||||
|
||||
var/active_state = "generic" // the icon_state that the computer goes to when the program is active
|
||||
|
||||
drm = 0 // prevents a program from being copied
|
||||
var/refresh = 0 // if true, computer does screen updates during process().
|
||||
var/error = 0 // set by background programs so an error pops up when used
|
||||
|
||||
var/human_controls = 0 // if true, non-human animals cannot interact with this program (monkeys, xenos, etc)
|
||||
var/ai_allowed = 1 // if true, silicon mobs (AI/cyborg) are allowed to use this program.
|
||||
|
||||
var/datum/browser/popup = null
|
||||
|
||||
// ID access: Note that computer3 does not normally check your ID.
|
||||
// By default this is only really used for inserted cards.
|
||||
var/list/req_access = list() // requires all of these UNLESS below succeeds
|
||||
var/list/req_one_access = list() // requires one of these
|
||||
|
||||
|
||||
/datum/file/program/New()
|
||||
..()
|
||||
if(!active_state)
|
||||
active_state = "generic"
|
||||
overlay = image('icons/obj/computer3.dmi',icon_state = active_state)
|
||||
|
||||
|
||||
/datum/file/program/proc/decode(text)
|
||||
//adds line breaks
|
||||
text = replacetext(text, "\n","<BR>")
|
||||
return text
|
||||
|
||||
|
||||
|
||||
/datum/file/program/execute(var/datum/file/source)
|
||||
if(computer && !computer.stat)
|
||||
computer.program = src
|
||||
computer.req_access = req_access
|
||||
computer.req_one_access = req_one_access
|
||||
update_icon()
|
||||
computer.update_icon()
|
||||
if(usr)
|
||||
usr << browse(null, "window=\ref[computer]")
|
||||
computer.attack_hand(usr)
|
||||
|
||||
..()
|
||||
|
||||
/*
|
||||
Standard Topic() for links
|
||||
*/
|
||||
|
||||
/datum/file/program/Topic(href, href_list)
|
||||
return
|
||||
|
||||
/*
|
||||
The computer object will transfer all empty-hand calls to the program (this includes AIs, Cyborgs, and Monkies)
|
||||
*/
|
||||
/datum/file/program/proc/interact()
|
||||
return
|
||||
|
||||
/*
|
||||
Standard receive_signal()
|
||||
*/
|
||||
|
||||
/datum/file/program/proc/receive_signal(var/datum/signal/signal)
|
||||
return
|
||||
/*
|
||||
The computer object will transfer all attackby() calls to the program
|
||||
If the item is a valid interactable object, return 1. Else, return 0.
|
||||
This helps identify what to use to actually hit the computer with, and
|
||||
what can be used to interact with it.
|
||||
|
||||
Screwdrivers will, by default, never call program/attackby(). That's used
|
||||
for deconstruction instead.
|
||||
*/
|
||||
|
||||
|
||||
/datum/file/program/proc/attackby(O as obj, user as mob)
|
||||
return
|
||||
|
||||
/*
|
||||
Try not to overwrite this proc, I'd prefer we stayed
|
||||
with interact() as the main proc
|
||||
*/
|
||||
/datum/file/program/proc/attack_hand(mob/user as mob)
|
||||
usr = user
|
||||
interact()
|
||||
|
||||
/*
|
||||
Called when the computer is rebooted or the program exits/restarts.
|
||||
Be sure not to save any work. Do NOT start the program again.
|
||||
If it is the os, the computer will run it again automatically.
|
||||
|
||||
Also, we are deleting the browser window on the chance that this is happening
|
||||
when the computer is damaged or disassembled, causing us to lose our computer.
|
||||
The popup window's title is a reference to the computer, making it unique, so
|
||||
it could introduce bugs in that case.
|
||||
*/
|
||||
/datum/file/program/proc/Reset()
|
||||
error = 0
|
||||
update_icon()
|
||||
if(popup)
|
||||
popup.close()
|
||||
del popup
|
||||
return
|
||||
|
||||
/*
|
||||
The computer object will transfer process() calls to the program.
|
||||
*/
|
||||
/datum/file/program/proc/process()
|
||||
if(refresh && computer && !computer.stat)
|
||||
computer.updateDialog()
|
||||
update_icon()
|
||||
|
||||
/datum/file/program/proc/update_icon()
|
||||
return
|
||||
|
||||
/datum/file/program/proc/check_access(obj/item/I)
|
||||
if( (!istype(req_access) || !req_access.len) && (!istype(req_one_access) || !req_one_access.len) ) //no requirements
|
||||
return 1
|
||||
|
||||
if(!I)
|
||||
return 0
|
||||
|
||||
var/list/iAccess = I.GetAccess()
|
||||
if(!iAccess || !iAccess.len)
|
||||
return 0
|
||||
|
||||
var/list/temp = req_one_access & iAccess
|
||||
if(temp.len) // a required access in item access list
|
||||
return 1
|
||||
temp = req_access - iAccess
|
||||
if(temp.len) // a required access not in item access list
|
||||
return 0
|
||||
return 1
|
||||
|
||||
|
||||
/*
|
||||
Because this does sanity checks I have added the code to make a popup here.
|
||||
It also does sanity checks there that should prevent some edge case madness.
|
||||
*/
|
||||
/datum/file/program/proc/interactable(var/mob/user = usr)
|
||||
if(computer && computer.interactable(user))
|
||||
if(!popup)
|
||||
popup = new(user, "\ref[computer]", name, nref=src)
|
||||
popup.set_title_image(usr.browse_rsc_icon(overlay.icon, overlay.icon_state))
|
||||
popup.set_title_buttons(topic_link(src,"quit","<img src=\ref['icons/NTOS/tb_close.png']>"))
|
||||
if(popup.user != user)
|
||||
popup.user = user
|
||||
popup.set_title_image(usr.browse_rsc_icon(overlay.icon, overlay.icon_state))
|
||||
popup.set_title(name)
|
||||
return 1
|
||||
return 0
|
||||
|
||||
|
||||
/datum/file/program/proc/fake_link(var/text)
|
||||
return "<span class='linkOff'>[text]</span>"
|
||||
|
||||
/*
|
||||
Meant for text (not icons) -
|
||||
lists all installed drives and their files
|
||||
|
||||
I am NOT adding a computer sanity check here,
|
||||
because why the flying fuck would you get to this
|
||||
proc before having run it at least once?
|
||||
If you cause runtimes with this function
|
||||
may the shame of all ages come upon you.
|
||||
*/
|
||||
/datum/file/program/proc/list_all_files_by_drive(var/typekey,var/linkop = "runfile")
|
||||
var/dat = ""
|
||||
if(!typekey) typekey = /datum/file
|
||||
if(computer.hdd)
|
||||
dat += "<h3>[computer.hdd]</h3>"
|
||||
for(var/datum/file/F in computer.hdd.files)
|
||||
if(istype(F,typekey))
|
||||
dat += topic_link(src,"[linkop]=\ref[F]",F.name) + "<br>"
|
||||
if(computer.hdd.files.len == 0)
|
||||
dat += "<i>No files</i><br>"
|
||||
dat += "<br>"
|
||||
|
||||
if(computer.floppy)
|
||||
if(!computer.floppy.inserted)
|
||||
dat += "<h3>[computer.floppy] - <span class='linkOff'>Eject</span></h3><br><br>"
|
||||
else
|
||||
dat += "<h3>[computer.floppy] - [topic_link(src,"eject_disk","Eject")]</h3>"
|
||||
for(var/datum/file/F in computer.floppy.inserted.files)
|
||||
dat += topic_link(src,"[linkop]=\ref[F]",F.name) + "<br>"
|
||||
if(computer.floppy.inserted.files.len == 0)
|
||||
dat += "<i>No files</i><br>"
|
||||
dat += "<br>"
|
||||
|
||||
if(computer.cardslot && istype(computer.cardslot.reader,/obj/item/weapon/card/data))
|
||||
dat += "<h3>[computer.cardslot.reader] - [topic_link(src,"eject_card=reader","Eject")]</h3>"
|
||||
var/obj/item/weapon/card/data/D = computer.cardslot.reader
|
||||
for(var/datum/file/F in D.files)
|
||||
dat += topic_link(src,"[linkop]=\ref[F]",F.name) + "<br>"
|
||||
if(D.files.len == 0)
|
||||
dat += "<i>No files</i><br>"
|
||||
return dat
|
||||
|
||||
// You don't NEED to use this version of topic() for this, you can do it yourself if you prefer
|
||||
// If you do, do the interactable() check first, please, I don't want to repeat it here. It's not hard.
|
||||
/datum/file/program/Topic(var/href,var/list/href_list)
|
||||
if(!computer)
|
||||
return 0
|
||||
|
||||
//
|
||||
// usage: eject_disk
|
||||
// only functions if there is a removable drive
|
||||
//
|
||||
if("eject_disk" in href_list)
|
||||
if(computer.floppy)
|
||||
computer.floppy.eject_disk()
|
||||
return 1
|
||||
//
|
||||
// usage: eject_card | eject_card=reader | eject_card=writer
|
||||
// only functions if there is a cardslot
|
||||
//
|
||||
if("eject_card" in href_list)
|
||||
if(computer.cardslot)
|
||||
if(computer.cardslot.dualslot && href_list["eject_card"] == "writer")
|
||||
computer.cardslot.remove(computer.cardslot.writer)
|
||||
else
|
||||
computer.cardslot.remove(computer.cardslot.reader)
|
||||
return 1
|
||||
//
|
||||
// usage: runfile=\ref[file]
|
||||
// executes the file
|
||||
//
|
||||
if("runfile" in href_list)
|
||||
var/datum/file/F = locate(href_list["runfile"])
|
||||
if(F && F.computer == computer)
|
||||
F.execute(src)
|
||||
return 1
|
||||
|
||||
if("close" in href_list)
|
||||
usr.unset_machine()
|
||||
popup.close()
|
||||
return 1
|
||||
//
|
||||
// usage: quit
|
||||
// unloads the program, returning control to the OS
|
||||
//
|
||||
if("quit" in href_list)
|
||||
computer.program = null
|
||||
usr << browse(null,"window=\ref[computer]") // NTOS will need to resize the window
|
||||
computer.update_icon()
|
||||
computer.updateDialog()
|
||||
return 1
|
||||
return 0
|
||||
|
||||
|
||||
/datum/file/program/RD
|
||||
name = "R&D Manager"
|
||||
image = 'icons/NTOS/research.png'
|
||||
desc = "A software suit for generic research and development machinery interaction. Comes pre-packaged with extensive cryptographic databanks for secure connections with external devices."
|
||||
active_state = "rdcomp"
|
||||
volume = 11000
|
||||
|
||||
/datum/file/program/RDserv
|
||||
name = "R&D Server"
|
||||
image = 'icons/NTOS/server.png'
|
||||
active_state = "rdcomp"
|
||||
volume = 9000
|
||||
|
||||
/datum/file/program/SuitSensors
|
||||
name = "Crew Monitoring"
|
||||
image = 'icons/NTOS/monitoring.png'
|
||||
active_state = "crew"
|
||||
volume = 3400
|
||||
|
||||
/datum/file/program/Genetics
|
||||
name = "Genetics Suite"
|
||||
image = 'icons/NTOS/genetics.png'
|
||||
desc = "A sophisticated software suite containing read-only genetics hardware specifications and a highly compressed genome databank."
|
||||
active_state = "dna"
|
||||
volume = 8000
|
||||
|
||||
/datum/file/program/Cloning
|
||||
name = "Cloning Platform"
|
||||
image = 'icons/NTOS/cloning.png'
|
||||
desc = "A software platform for accessing external cloning apparatus."
|
||||
active_state = "dna"
|
||||
volume = 7000
|
||||
|
||||
/datum/file/program/TCOMmonitor
|
||||
name = "TComm Monitor"
|
||||
image = 'icons/NTOS/tcomms.png'
|
||||
active_state = "comm_monitor"
|
||||
volume = 5500
|
||||
|
||||
/datum/file/program/TCOMlogs
|
||||
name = "TComm Log View"
|
||||
image = 'icons/NTOS/tcomms.png'
|
||||
active_state = "comm_logs"
|
||||
volume = 5230
|
||||
|
||||
/datum/file/program/TCOMtraffic
|
||||
name = "TComm Traffic"
|
||||
image = 'icons/NTOS/tcomms.png'
|
||||
active_state = "generic"
|
||||
volume = 8080
|
||||
|
||||
/datum/file/program/securitycam
|
||||
name = "Sec-Cam Viewport"
|
||||
image = 'icons/NTOS/camera.png'
|
||||
drm = 1
|
||||
active_state = "cameras"
|
||||
volume = 2190
|
||||
|
||||
/datum/file/program/securityrecords
|
||||
name = "Security Records"
|
||||
image = 'icons/NTOS/records.png'
|
||||
drm = 1
|
||||
active_state = "security"
|
||||
volume = 2520
|
||||
|
||||
/datum/file/program/medicalrecords
|
||||
name = "Medical Records"
|
||||
image = 'icons/NTOS/medical.png'
|
||||
drm = 1
|
||||
active_state = "medcomp"
|
||||
volume = 5000
|
||||
|
||||
/datum/file/program/SMSmonitor
|
||||
name = "Messaging Monitor"
|
||||
image = 'icons/NTOS/pda.png'
|
||||
active_state = "comm_monitor"
|
||||
volume = 3070
|
||||
|
||||
/datum/file/program/OperationMonitor
|
||||
name = "OR Monitor"
|
||||
image = 'icons/NTOS/operating.png'
|
||||
active_state = "operating"
|
||||
volume = 4750
|
||||
|
||||
/datum/file/program/PodLaunch
|
||||
name = "Pod Launch"
|
||||
active_state = "computer_generic"
|
||||
volume = 520
|
||||
|
||||
/datum/file/program/PowerMonitor
|
||||
name = "Power Grid"
|
||||
image = 'icons/NTOS/power.png'
|
||||
active_state = "power"
|
||||
volume = 7200
|
||||
|
||||
/datum/file/program/PrisonerManagement
|
||||
name = "Prisoner Control"
|
||||
image = 'icons/NTOS/prison.png'
|
||||
drm = 1
|
||||
active_state = "power"
|
||||
volume = 5000
|
||||
|
||||
/datum/file/program/Roboticscontrol
|
||||
name = "Cyborg Maint"
|
||||
image = 'icons/NTOS/borgcontrol.png'
|
||||
active_state = "robot"
|
||||
volume = 9050
|
||||
|
||||
/datum/file/program/AIupload
|
||||
name = "AI Upload"
|
||||
image = 'icons/NTOS/aiupload.png'
|
||||
active_state = "command"
|
||||
volume = 5000
|
||||
|
||||
/datum/file/program/Cyborgupload
|
||||
name = "Cyborg Upload"
|
||||
image = 'icons/NTOS/borgupload.png'
|
||||
active_state = "command"
|
||||
volume = 5000
|
||||
|
||||
/datum/file/program/Exosuit
|
||||
name = "Exosuit Monitor"
|
||||
image = 'icons/NTOS/exocontrol.png'
|
||||
active_state = "mecha"
|
||||
volume = 7000
|
||||
|
||||
/datum/file/program/EmergencyShuttle
|
||||
name = "Shuttle Console"
|
||||
active_state = "shuttle"
|
||||
volume = 10000
|
||||
|
||||
/datum/file/program/Stationalert
|
||||
name = "Alert Monitor"
|
||||
image = 'icons/NTOS/alerts.png'
|
||||
active_state = "computer_generic"
|
||||
volume = 10150
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user