mirror of
https://github.com/CHOMPstation/CHOMPstation.git
synced 2026-08-26 13:36:48 +01:00
Abbie Fland
882489911b
Added a new option to the cargo console to view supply points gained from the most recent shuttle trip. It breaks down the value per crate, but to preserve the fun of trial and error for folks that enjoy that doesn't itemize exactly what inside the crate provided that value. Part of the supply shuttle changes could probably be instead done as a sell_crate hook, but because of where that's called it would have to duplicate all the manifest-detection code.
423 lines
17 KiB
Plaintext
423 lines
17 KiB
Plaintext
/obj/machinery/computer/supplycomp
|
|
name = "supply control console"
|
|
icon_keyboard = "tech_key"
|
|
icon_screen = "supply"
|
|
light_color = "#b88b2e"
|
|
req_access = list(access_cargo)
|
|
circuit = /obj/item/weapon/circuitboard/supplycomp
|
|
var/temp = null
|
|
var/reqtime = 0 //Cooldown for requisitions - Quarxink
|
|
var/can_order_contraband = 0
|
|
var/last_viewed_group = "categories"
|
|
|
|
/obj/machinery/computer/ordercomp
|
|
name = "supply ordering console"
|
|
icon_screen = "request"
|
|
circuit = /obj/item/weapon/circuitboard/ordercomp
|
|
var/temp = null
|
|
var/reqtime = 0 //Cooldown for requisitions - Quarxink
|
|
var/last_viewed_group = "categories"
|
|
|
|
/obj/machinery/computer/ordercomp/attack_ai(var/mob/user as mob)
|
|
return attack_hand(user)
|
|
|
|
/obj/machinery/computer/supplycomp/attack_ai(var/mob/user as mob)
|
|
return attack_hand(user)
|
|
|
|
/obj/machinery/computer/ordercomp/attack_hand(var/mob/user as mob)
|
|
if(..())
|
|
return
|
|
user.set_machine(src)
|
|
var/dat
|
|
if(temp)
|
|
dat = temp
|
|
else
|
|
var/datum/shuttle/ferry/supply/shuttle = supply_controller.shuttle
|
|
if (shuttle)
|
|
dat += {"<BR><B>Supply shuttle</B><HR>
|
|
Location: [shuttle.has_arrive_time() ? "Moving to station ([shuttle.eta_minutes()] Mins.)":shuttle.at_station() ? "Docked":"Away"]<BR>
|
|
<HR>Supply points: [supply_controller.points]<BR>
|
|
<BR>\n<A href='?src=\ref[src];order=categories'>Request items</A><BR><BR>
|
|
<A href='?src=\ref[src];vieworders=1'>View approved orders</A><BR><BR>
|
|
<A href='?src=\ref[src];viewrequests=1'>View requests</A><BR><BR>
|
|
"} // VOREStation Edit - Export reports
|
|
dat += {"\n<A href='?src=\ref[src];viewexport=1'>View export report</A><BR><BR>
|
|
<A href='?src=\ref[user];mach_close=computer'>Close</A>"}
|
|
|
|
user << browse(dat, "window=computer;size=575x450")
|
|
onclose(user, "computer")
|
|
return
|
|
|
|
/obj/machinery/computer/ordercomp/Topic(href, href_list)
|
|
if(..())
|
|
return 1
|
|
|
|
if( isturf(loc) && (in_range(src, usr) || istype(usr, /mob/living/silicon)) )
|
|
usr.set_machine(src)
|
|
|
|
if(href_list["order"])
|
|
if(href_list["order"] == "categories")
|
|
//all_supply_groups
|
|
//Request what?
|
|
last_viewed_group = "categories"
|
|
temp = "<b>Supply points: [supply_controller.points]</b><BR>"
|
|
temp += "<A href='?src=\ref[src];mainmenu=1'>Main Menu</A><HR><BR><BR>"
|
|
temp += "<b>Select a category</b><BR><BR>"
|
|
for(var/supply_group_name in all_supply_groups )
|
|
temp += "<A href='?src=\ref[src];order=[supply_group_name]'>[supply_group_name]</A><BR>"
|
|
else
|
|
last_viewed_group = href_list["order"]
|
|
temp = "<b>Supply points: [supply_controller.points]</b><BR>"
|
|
temp += "<A href='?src=\ref[src];order=categories'>Back to all categories</A><HR><BR><BR>"
|
|
temp += "<b>Request from: [last_viewed_group]</b><BR><BR>"
|
|
for(var/supply_name in supply_controller.supply_packs )
|
|
var/datum/supply_packs/N = supply_controller.supply_packs[supply_name]
|
|
if(N.hidden || N.contraband || N.group != last_viewed_group) continue //Have to send the type instead of a reference to
|
|
temp += "<A href='?src=\ref[src];doorder=[supply_name]'>[supply_name]</A> Cost: [N.cost]<BR>" //the obj because it would get caught by the garbage
|
|
|
|
else if (href_list["doorder"])
|
|
if(world.time < reqtime)
|
|
for(var/mob/V in hearers(src))
|
|
V.show_message("<b>[src]</b>'s monitor flashes, \"[world.time - reqtime] seconds remaining until another requisition form may be printed.\"")
|
|
return
|
|
|
|
//Find the correct supply_pack datum
|
|
var/datum/supply_packs/P = supply_controller.supply_packs[href_list["doorder"]]
|
|
if(!istype(P)) return
|
|
|
|
var/timeout = world.time + 600
|
|
var/reason = sanitize(input(usr,"Reason:","Why do you require this item?","") as null|text)
|
|
if(world.time > timeout) return
|
|
if(!reason) return
|
|
|
|
var/idname = "*None Provided*"
|
|
var/idrank = "*None Provided*"
|
|
if(ishuman(usr))
|
|
var/mob/living/carbon/human/H = usr
|
|
idname = H.get_authentification_name()
|
|
idrank = H.get_assignment()
|
|
else if(issilicon(usr))
|
|
idname = usr.real_name
|
|
|
|
supply_controller.ordernum++
|
|
var/obj/item/weapon/paper/reqform = new /obj/item/weapon/paper(loc)
|
|
reqform.name = "Requisition Form - [P.name]"
|
|
reqform.info += "<h3>[station_name()] Supply Requisition Form</h3><hr>"
|
|
reqform.info += "INDEX: #[supply_controller.ordernum]<br>"
|
|
reqform.info += "REQUESTED BY: [idname]<br>"
|
|
reqform.info += "RANK: [idrank]<br>"
|
|
reqform.info += "REASON: [reason]<br>"
|
|
reqform.info += "SUPPLY CRATE TYPE: [P.name]<br>"
|
|
reqform.info += "ACCESS RESTRICTION: [get_access_desc(P.access)]<br>"
|
|
reqform.info += "CONTENTS:<br>"
|
|
reqform.info += P.manifest
|
|
reqform.info += "<hr>"
|
|
reqform.info += "STAMP BELOW TO APPROVE THIS REQUISITION:<br>"
|
|
|
|
reqform.update_icon() //Fix for appearing blank when printed.
|
|
reqtime = (world.time + 5) % 1e5
|
|
|
|
//make our supply_order datum
|
|
var/datum/supply_order/O = new /datum/supply_order()
|
|
O.ordernum = supply_controller.ordernum
|
|
O.object = P
|
|
O.orderedby = idname
|
|
supply_controller.requestlist += O
|
|
|
|
temp = "Thanks for your request. The cargo team will process it as soon as possible.<BR>"
|
|
temp += "<BR><A href='?src=\ref[src];order=[last_viewed_group]'>Back</A> <A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"
|
|
|
|
else if (href_list["vieworders"])
|
|
temp = "Current approved orders: <BR><BR>"
|
|
for(var/S in supply_controller.shoppinglist)
|
|
var/datum/supply_order/SO = S
|
|
temp += "[SO.object.name] approved by [SO.orderedby] [SO.comment ? "([SO.comment])":""]<BR>"
|
|
temp += "<BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
|
|
|
else if (href_list["viewrequests"])
|
|
temp = "Current requests: <BR><BR>"
|
|
for(var/S in supply_controller.requestlist)
|
|
var/datum/supply_order/SO = S
|
|
temp += "#[SO.ordernum] - [SO.object.name] requested by [SO.orderedby]<BR>"
|
|
temp += "<BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
|
|
|
else if (href_list["mainmenu"])
|
|
temp = null
|
|
|
|
add_fingerprint(usr)
|
|
updateUsrDialog()
|
|
return
|
|
|
|
/obj/machinery/computer/supplycomp/attack_hand(var/mob/user as mob)
|
|
if(!allowed(user))
|
|
user << "<span class='warning'>Access Denied.</span>"
|
|
return
|
|
|
|
if(..())
|
|
return
|
|
user.set_machine(src)
|
|
post_signal("supply")
|
|
var/dat
|
|
if (temp)
|
|
dat = temp
|
|
else
|
|
var/datum/shuttle/ferry/supply/shuttle = supply_controller.shuttle
|
|
if (shuttle)
|
|
dat += "<BR><B>Supply shuttle</B><HR>"
|
|
dat += "\nLocation: "
|
|
if (shuttle.has_arrive_time())
|
|
dat += "In transit ([shuttle.eta_minutes()] Mins.)<BR>"
|
|
else
|
|
if (shuttle.at_station())
|
|
if (shuttle.docking_controller)
|
|
switch(shuttle.docking_controller.get_docking_status())
|
|
if ("docked") dat += "Docked at station<BR>"
|
|
if ("undocked") dat += "Undocked from station<BR>"
|
|
if ("docking") dat += "Docking with station [shuttle.can_force()? "<span class='warning'><A href='?src=\ref[src];force_send=1'>Force Launch</A></span>" : ""]<BR>"
|
|
if ("undocking") dat += "Undocking from station [shuttle.can_force()? "<span class='warning'><A href='?src=\ref[src];force_send=1'>Force Launch</A></span>" : ""]<BR>"
|
|
else
|
|
dat += "Station<BR>"
|
|
|
|
if (shuttle.can_launch())
|
|
dat += "<A href='?src=\ref[src];send=1'>Send away</A>"
|
|
else if (shuttle.can_cancel())
|
|
dat += "<A href='?src=\ref[src];cancel_send=1'>Cancel launch</A>"
|
|
else
|
|
dat += "*Shuttle is busy*"
|
|
dat += "<BR>\n<BR>"
|
|
else
|
|
dat += "Away<BR>"
|
|
if (shuttle.can_launch())
|
|
dat += "<A href='?src=\ref[src];send=1'>Request supply shuttle</A>"
|
|
else if (shuttle.can_cancel())
|
|
dat += "<A href='?src=\ref[src];cancel_send=1'>Cancel request</A>"
|
|
else
|
|
dat += "*Shuttle is busy*"
|
|
dat += "<BR>\n<BR>"
|
|
|
|
|
|
dat += {"<HR>\nSupply points: [supply_controller.points]<BR>\n<BR>
|
|
\n<A href='?src=\ref[src];order=categories'>Order items</A><BR>\n<BR>
|
|
\n<A href='?src=\ref[src];viewrequests=1'>View requests</A><BR>\n<BR>
|
|
\n<A href='?src=\ref[src];vieworders=1'>View orders</A><BR>\n<BR>
|
|
"} // VOREStation Edit - Export reports
|
|
dat += {"\n<A href='?src=\ref[src];viewexport=1'>View export report</A><BR>\n<BR>
|
|
\n<A href='?src=\ref[user];mach_close=computer'>Close</A>"}
|
|
|
|
|
|
user << browse(dat, "window=computer;size=575x450")
|
|
onclose(user, "computer")
|
|
return
|
|
|
|
/obj/machinery/computer/supplycomp/emag_act(var/remaining_charges, var/mob/user)
|
|
if(!can_order_contraband)
|
|
user << "<span class='notice'>Special supplies unlocked.</span>"
|
|
can_order_contraband = 1
|
|
req_access = list()
|
|
return 1
|
|
|
|
/obj/machinery/computer/supplycomp/Topic(href, href_list)
|
|
if(!supply_controller)
|
|
world.log << "## ERROR: Eek. The supply_controller controller datum is missing somehow."
|
|
return
|
|
var/datum/shuttle/ferry/supply/shuttle = supply_controller.shuttle
|
|
if (!shuttle)
|
|
world.log << "## ERROR: Eek. The supply/shuttle datum is missing somehow."
|
|
return
|
|
if(..())
|
|
return 1
|
|
|
|
if(isturf(loc) && ( in_range(src, usr) || istype(usr, /mob/living/silicon) ) )
|
|
usr.set_machine(src)
|
|
|
|
//Calling the shuttle
|
|
if(href_list["send"])
|
|
if(shuttle.at_station())
|
|
if (shuttle.forbidden_atoms_check())
|
|
temp = "For safety reasons the automated supply shuttle cannot transport live organisms, classified nuclear weaponry or homing beacons.<BR><BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
|
else
|
|
shuttle.launch(src)
|
|
temp = "Initiating launch sequence. \[<span class='warning'><A href='?src=\ref[src];force_send=1'>Force Launch</A></span>\]<BR><BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
|
else
|
|
shuttle.launch(src)
|
|
temp = "The supply shuttle has been called and will arrive in approximately [round(supply_controller.movetime/600,1)] minutes.<BR><BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
|
post_signal("supply")
|
|
|
|
if (href_list["force_send"])
|
|
shuttle.force_launch(src)
|
|
|
|
if (href_list["cancel_send"])
|
|
shuttle.cancel_launch(src)
|
|
|
|
else if (href_list["order"])
|
|
//if(!shuttle.idle()) return //this shouldn't be necessary it seems
|
|
if(href_list["order"] == "categories")
|
|
//all_supply_groups
|
|
//Request what?
|
|
last_viewed_group = "categories"
|
|
temp = "<b>Supply points: [supply_controller.points]</b><BR>"
|
|
temp += "<A href='?src=\ref[src];mainmenu=1'>Main Menu</A><HR><BR><BR>"
|
|
temp += "<b>Select a category</b><BR><BR>"
|
|
for(var/supply_group_name in all_supply_groups )
|
|
temp += "<A href='?src=\ref[src];order=[supply_group_name]'>[supply_group_name]</A><BR>"
|
|
else
|
|
last_viewed_group = href_list["order"]
|
|
temp = "<b>Supply points: [supply_controller.points]</b><BR>"
|
|
temp += "<A href='?src=\ref[src];order=categories'>Back to all categories</A><HR><BR><BR>"
|
|
temp += "<b>Request from: [last_viewed_group]</b><BR><BR>"
|
|
for(var/supply_name in supply_controller.supply_packs )
|
|
var/datum/supply_packs/N = supply_controller.supply_packs[supply_name]
|
|
if((N.contraband && !can_order_contraband) || N.group != last_viewed_group) continue //Have to send the type instead of a reference to
|
|
temp += "<A href='?src=\ref[src];doorder=[supply_name]'>[supply_name]</A> Cost: [N.cost]<BR>" //the obj because it would get caught by the garbage
|
|
|
|
else if (href_list["doorder"])
|
|
if(world.time < reqtime)
|
|
for(var/mob/V in hearers(src))
|
|
V.show_message("<b>[src]</b>'s monitor flashes, \"[world.time - reqtime] seconds remaining until another requisition form may be printed.\"")
|
|
return
|
|
|
|
//Find the correct supply_pack datum
|
|
var/datum/supply_packs/P = supply_controller.supply_packs[href_list["doorder"]]
|
|
if(!istype(P)) return
|
|
|
|
var/timeout = world.time + 600
|
|
var/reason = sanitize(input(usr,"Reason:","Why do you require this item?","") as null|text)
|
|
if(world.time > timeout) return
|
|
if(!reason) return
|
|
|
|
var/idname = "*None Provided*"
|
|
var/idrank = "*None Provided*"
|
|
if(ishuman(usr))
|
|
var/mob/living/carbon/human/H = usr
|
|
idname = H.get_authentification_name()
|
|
idrank = H.get_assignment()
|
|
else if(issilicon(usr))
|
|
idname = usr.real_name
|
|
|
|
supply_controller.ordernum++
|
|
var/obj/item/weapon/paper/reqform = new /obj/item/weapon/paper(loc)
|
|
reqform.name = "Requisition Form - [P.name]"
|
|
reqform.info += "<h3>[station_name()] Supply Requisition Form</h3><hr>"
|
|
reqform.info += "INDEX: #[supply_controller.ordernum]<br>"
|
|
reqform.info += "REQUESTED BY: [idname]<br>"
|
|
reqform.info += "RANK: [idrank]<br>"
|
|
reqform.info += "REASON: [reason]<br>"
|
|
reqform.info += "SUPPLY CRATE TYPE: [P.name]<br>"
|
|
reqform.info += "ACCESS RESTRICTION: [get_access_desc(P.access)]<br>"
|
|
reqform.info += "CONTENTS:<br>"
|
|
reqform.info += P.manifest
|
|
reqform.info += "<hr>"
|
|
reqform.info += "STAMP BELOW TO APPROVE THIS REQUISITION:<br>"
|
|
|
|
reqform.update_icon() //Fix for appearing blank when printed.
|
|
reqtime = (world.time + 5) % 1e5
|
|
|
|
//make our supply_order datum
|
|
var/datum/supply_order/O = new /datum/supply_order()
|
|
O.ordernum = supply_controller.ordernum
|
|
O.object = P
|
|
O.orderedby = idname
|
|
supply_controller.requestlist += O
|
|
|
|
temp = "Order request placed.<BR>"
|
|
temp += "<BR><A href='?src=\ref[src];order=[last_viewed_group]'>Back</A> | <A href='?src=\ref[src];mainmenu=1'>Main Menu</A> | <A href='?src=\ref[src];confirmorder=[O.ordernum]'>Authorize Order</A>"
|
|
|
|
else if(href_list["confirmorder"])
|
|
//Find the correct supply_order datum
|
|
var/ordernum = text2num(href_list["confirmorder"])
|
|
var/datum/supply_order/O
|
|
var/datum/supply_packs/P
|
|
temp = "Invalid Request"
|
|
for(var/i=1, i<=supply_controller.requestlist.len, i++)
|
|
var/datum/supply_order/SO = supply_controller.requestlist[i]
|
|
if(SO.ordernum == ordernum)
|
|
O = SO
|
|
P = O.object
|
|
if(supply_controller.points >= P.cost)
|
|
supply_controller.requestlist.Cut(i,i+1)
|
|
supply_controller.points -= P.cost
|
|
supply_controller.shoppinglist += O
|
|
temp = "Thanks for your order.<BR>"
|
|
temp += "<BR><A href='?src=\ref[src];viewrequests=1'>Back</A> <A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"
|
|
else
|
|
temp = "Not enough supply points.<BR>"
|
|
temp += "<BR><A href='?src=\ref[src];viewrequests=1'>Back</A> <A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"
|
|
break
|
|
|
|
else if (href_list["vieworders"])
|
|
temp = "Current approved orders: <BR><BR>"
|
|
for(var/S in supply_controller.shoppinglist)
|
|
var/datum/supply_order/SO = S
|
|
temp += "#[SO.ordernum] - [SO.object.name] approved by [SO.orderedby][SO.comment ? " ([SO.comment])":""]<BR>"// <A href='?src=\ref[src];cancelorder=[S]'>(Cancel)</A><BR>"
|
|
temp += "<BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
|
/*
|
|
else if (href_list["cancelorder"])
|
|
var/datum/supply_order/remove_supply = href_list["cancelorder"]
|
|
supply_shuttle_shoppinglist -= remove_supply
|
|
supply_shuttle_points += remove_supply.object.cost
|
|
temp += "Canceled: [remove_supply.object.name]<BR><BR><BR>"
|
|
|
|
for(var/S in supply_shuttle_shoppinglist)
|
|
var/datum/supply_order/SO = S
|
|
temp += "[SO.object.name] approved by [SO.orderedby][SO.comment ? " ([SO.comment])":""] <A href='?src=\ref[src];cancelorder=[S]'>(Cancel)</A><BR>"
|
|
temp += "<BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
|
*/
|
|
else if (href_list["viewrequests"])
|
|
temp = "Current requests: <BR><BR>"
|
|
for(var/S in supply_controller.requestlist)
|
|
var/datum/supply_order/SO = S
|
|
temp += "#[SO.ordernum] - [SO.object.name] requested by [SO.orderedby] <A href='?src=\ref[src];confirmorder=[SO.ordernum]'>Approve</A> <A href='?src=\ref[src];rreq=[SO.ordernum]'>Remove</A><BR>"
|
|
|
|
temp += "<BR><A href='?src=\ref[src];clearreq=1'>Clear list</A>"
|
|
temp += "<BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
|
|
|
//VOREStation Edit - Export reports
|
|
else if (href_list["viewexport"])
|
|
temp = "Previous shuttle export report: <BR><BR>"
|
|
var/cratecount = 0
|
|
var/totalvalue = 0
|
|
for(var/S in supply_controller.exported_crates)
|
|
var/datum/exported_crate/EC = S
|
|
cratecount += 1
|
|
totalvalue += EC.value
|
|
temp += "[EC.name] exported for [EC.value] supply points<BR>"
|
|
temp += "<BR>Shipment of [cratecount] crates exported for [totalvalue] supply points.<BR>"
|
|
temp += "<BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
|
//VOREStation Edit End
|
|
|
|
else if (href_list["rreq"])
|
|
var/ordernum = text2num(href_list["rreq"])
|
|
temp = "Invalid Request.<BR>"
|
|
for(var/i=1, i<=supply_controller.requestlist.len, i++)
|
|
var/datum/supply_order/SO = supply_controller.requestlist[i]
|
|
if(SO.ordernum == ordernum)
|
|
supply_controller.requestlist.Cut(i,i+1)
|
|
temp = "Request removed.<BR>"
|
|
break
|
|
temp += "<BR><A href='?src=\ref[src];viewrequests=1'>Back</A> <A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"
|
|
|
|
else if (href_list["clearreq"])
|
|
supply_controller.requestlist.Cut()
|
|
temp = "List cleared.<BR>"
|
|
temp += "<BR><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
|
|
|
else if (href_list["mainmenu"])
|
|
temp = null
|
|
|
|
add_fingerprint(usr)
|
|
updateUsrDialog()
|
|
return
|
|
|
|
/obj/machinery/computer/supplycomp/proc/post_signal(var/command)
|
|
|
|
var/datum/radio_frequency/frequency = radio_controller.return_frequency(1435)
|
|
|
|
if(!frequency) return
|
|
|
|
var/datum/signal/status_signal = new
|
|
status_signal.source = src
|
|
status_signal.transmission_method = 1
|
|
status_signal.data["command"] = command
|
|
|
|
frequency.post_signal(src, status_signal)
|