mirror of
https://github.com/goonstation/goonstation-2020.git
synced 2026-08-22 19:46:15 +01:00
Stephen
036a29b765
includes a lot of small things + fixes. big ones are Simple Lights, New Grab stuff, Disorient Eye/Ear protection armor values, access reprogrammer and deconstruction device also added flabo to the list of contributors, we missed her on the first go! check changelog for full list, i merged that too
803 lines
34 KiB
Plaintext
803 lines
34 KiB
Plaintext
|
|
/proc/build_qm_categories()
|
|
QM_CategoryList.Cut()
|
|
if (!global.qm_supply_cache)
|
|
message_coders("ZeWaka/QMCategories: QM Supply Cache was not found!")
|
|
for(var/datum/supply_packs/S in qm_supply_cache )
|
|
if(S.syndicate || S.hidden) continue //They don't have their own categories anyways.
|
|
if (S.category)
|
|
if (!(global.QM_CategoryList.Find(S.category)))
|
|
global.QM_CategoryList.Insert(1,S.category) //So Misc. is not #1, reverse ordering.
|
|
|
|
/datum/cdc_contact_analysis
|
|
var/uid = 0
|
|
var/time_factor = 0
|
|
var/time_done = 0
|
|
var/begun_at = 0
|
|
var/description_available = 0
|
|
var/cure_available = 0
|
|
var/cure_cost = 0
|
|
var/name = ""
|
|
var/desc = ""
|
|
var/datum/pathogen/assoc_pathogen = null
|
|
|
|
/datum/cdc_contact_controller
|
|
var/list/analysis_by_uid = list()
|
|
var/list/ready_to_analyze = list()
|
|
var/list/completed_analysis = list()
|
|
var/datum/cdc_contact_analysis/current_analysis = null
|
|
var/datum/pathogen/working_on = null
|
|
var/working_on_time_factor = 0
|
|
var/next_cure_batch = 0
|
|
var/batches_left = 0
|
|
var/next_crate = 0
|
|
var/last_switch = 0
|
|
|
|
New()
|
|
..()
|
|
processing_items.Add(src)
|
|
|
|
proc/process()
|
|
if (next_cure_batch < ticker.round_elapsed_ticks && working_on)
|
|
var/obj/storage/crate/biohazard/B = new
|
|
var/count = rand(3,6)
|
|
for (var/i = 0, i < count, i++)
|
|
new/obj/item/serum_injector(B, working_on, 1, 0)
|
|
B.name = "CDC Pathogen cure crate ([working_on.name])"
|
|
buy_thing(B)
|
|
batches_left--
|
|
if (batches_left)
|
|
next_cure_batch = round(rand(175, 233) / 100 * working_on_time_factor) + ticker.round_elapsed_ticks
|
|
else
|
|
working_on = null
|
|
|
|
var/global/datum/cdc_contact_controller/QM_CDC = new()
|
|
|
|
/obj/machinery/computer/supplycomp
|
|
name = "Quartermaster's Console"
|
|
icon = 'icons/obj/computer.dmi'
|
|
icon_state = "QMcom"
|
|
req_access = list(access_cargo)
|
|
object_flags = CAN_REPROGRAM_ACCESS
|
|
deconstruct_flags = DECON_SCREWDRIVER | DECON_WRENCH | DECON_WELDER | DECON_MULTITOOL
|
|
var/temp = null
|
|
var/last_cdc_message = null
|
|
var/hacked = 0
|
|
var/tradeamt = 1
|
|
var/in_dialogue_box = 0
|
|
var/obj/item/card/id/scan = null
|
|
var/list/datum/supply_pack
|
|
|
|
//These will be used to not update the price list needlessly
|
|
var/last_market_update = -INFINITY
|
|
var/price_list = null
|
|
|
|
lr = 1
|
|
lg = 0.7
|
|
lb = 0.03
|
|
|
|
disposing()
|
|
radio_controller.remove_object(src, "1435")
|
|
..()
|
|
|
|
/obj/machinery/computer/supplycomp/attackby(I as obj, user as mob)
|
|
return src.attack_hand(user)
|
|
|
|
/obj/machinery/computer/supplycomp/attack_ai(var/mob/user as mob)
|
|
return src.attack_hand(user)
|
|
|
|
/obj/machinery/computer/supplycomp/emag_act(var/mob/user, var/obj/item/card/emag/E)
|
|
if(!hacked)
|
|
if(user)
|
|
boutput(user, "<span style=\"color:blue\">Special supplies unlocked.</span>")
|
|
src.hacked = 1
|
|
return 1
|
|
return 0
|
|
|
|
/obj/machinery/computer/supplycomp/demag(var/mob/user)
|
|
if(!hacked)
|
|
return 0
|
|
if(user)
|
|
boutput(user, "<span style=\"color:blue\">Treacherous supplies removed.</span>")
|
|
src.hacked = 0
|
|
return 1
|
|
|
|
/obj/machinery/computer/supplycomp/attackby(I as obj, user as mob)
|
|
if(istype(I,/obj/item/card/emag))
|
|
//I guess you'll wanna put the emag away now instead of getting a massive popup
|
|
else
|
|
return src.attack_hand(user)
|
|
|
|
/obj/machinery/computer/supplycomp/attack_hand(var/mob/user as mob)
|
|
if(!src.allowed(user))
|
|
boutput(user, "<span style=\"color:red\">Access Denied.</span>")
|
|
return
|
|
|
|
if(..())
|
|
return
|
|
|
|
var/timer = shippingmarket.get_market_timeleft()
|
|
user.machine = src
|
|
post_signal("supply")
|
|
var/dat
|
|
if (src.temp)
|
|
dat = src.temp
|
|
else
|
|
dat += {"
|
|
<B>Shipping Budget:</B> [wagesystem.shipping_budget] Credits<br>
|
|
<B>Next Market Shift:</B> [timer]<HR>
|
|
<A href='?src=\ref[src];viewrequests=1'>View Requests</A><br>
|
|
<A href='?src=\ref[src];vieworders=1'>View Order History</A><br>
|
|
<A href='?src=\ref[src];viewmarket=1'>View Shipping Market</A><br><br>
|
|
<A href='?src=\ref[src];order=1'>Order Items</A><br>"}
|
|
|
|
if (signal_loss < 75)
|
|
dat += "<A href='?src=\ref[src];contact_cdc=1'>Contact CDC</a><br>"
|
|
else
|
|
dat += "CDC unavailable due to severe signal interference.<br>"
|
|
|
|
if (shippingmarket.active_traders.len && signal_loss < 75)
|
|
dat += "<A href='?src=\ref[src];trader_list=1'><B>Call Trader</B> ([shippingmarket.active_traders.len] available)</A><br>"
|
|
else
|
|
dat += "No Traders in Communications Range<br>"
|
|
dat += "<A href='?action=mach_close&window=computer'>Close</A>"
|
|
|
|
dat += "<br>"
|
|
user.Browse(dat, "window=qmComputer_[src];title=Quartermaster Console;size=575x625;")
|
|
onclose(user, "qmComputer_[src]")
|
|
return
|
|
|
|
/obj/machinery/computer/supplycomp/proc/set_cdc()
|
|
src.temp = "<B>Center for Disease Control communication line</B><HR>"
|
|
src.temp += "<I>Greetings, [station_name]; how can we help you today?</I><br><br>"
|
|
|
|
if (src.last_cdc_message)
|
|
src.temp += "[last_cdc_message]<br><br>"
|
|
|
|
src.temp += "<B>Pathogen analysis services</B><br>"
|
|
src.temp += "To send us pathogen samples, you can <A href='?src=\ref[src];req_biohazard_crate=1'>requisition a biohazardous materials crate</a> from us for 5 credits.<br>"
|
|
if (!QM_CDC.current_analysis)
|
|
src.temp += "Our researchers currently have free capacity to analyze pathogen and blood samples for you.<br>"
|
|
if (length(QM_CDC.ready_to_analyze))
|
|
src.temp += "We received your packages and are ready to <A href='?src=\ref[src];cdc_analyze=1'>analyze some samples</A>. It will cost you, but hey, you would like to survive, right?<br>"
|
|
else
|
|
src.temp += "We have no unanalyzed pathogen samples from your station.<br>"
|
|
else
|
|
src.temp += "We're currently analyzing the pathogen sample [QM_CDC.current_analysis.name]. We can <A href='?src=\ref[src];cdc_analyze=1'>analyze something different</A>, if you want."
|
|
if (QM_CDC.current_analysis.description_available > ticker.round_elapsed_ticks)
|
|
src.temp += "Here's what we have so far: <br>[QM_CDC.current_analysis.desc]<br>"
|
|
if (QM_CDC.current_analysis.cure_available > ticker.round_elapsed_ticks)
|
|
src.temp += "We've also discovered a method to synthesize a cure for this pathogen.<br>"
|
|
QM_CDC.completed_analysis += QM_CDC.current_analysis
|
|
QM_CDC.current_analysis = null
|
|
else
|
|
var/CA = round((QM_CDC.current_analysis.cure_available - ticker.round_elapsed_ticks) / 600)
|
|
src.temp += "We're really close to discovering a cure as well. It should be available a few [CA > 0 ? "minutes" : "seconds"].<br>"
|
|
else
|
|
var/DA = round((QM_CDC.current_analysis.description_available - ticker.round_elapsed_ticks) / 600)
|
|
src.temp += "We cannot tell you anything about this pathogen so far. Check back in [DA > 1 ? "[DA] minutes" : (DA > 0 ? "1 minute" : "a few seconds")].<br>"
|
|
src.temp += "<br>"
|
|
src.temp += "<B>Pathogen cure services</B><br>"
|
|
if (length(QM_CDC.working_on))
|
|
src.temp += "We are currently working on [QM_CDC.batches_left] batch[QM_CDC.batches_left > 1 ? "es" : null] of cures for the [QM_CDC.working_on.name] pathogen. The crate will be delivered soon."
|
|
else if (length(QM_CDC.completed_analysis))
|
|
src.temp += "We have cures ready to be synthesized for [length(QM_CDC.completed_analysis)] pathogen[length(QM_CDC.completed_analysis) > 1 ? "s" : null].<br>"
|
|
src.temp += "You can requisition in batches. The more batches you order, the less time per batch it takes for us to deliver and the less credits per batch it will cost you.<br>"
|
|
src.temp += "<table style='width:100%; border:none; cell-spacing: 0px'>"
|
|
for (var/datum/cdc_contact_analysis/analysis in QM_CDC.completed_analysis)
|
|
var/one_cost = analysis.cure_cost
|
|
var/five_cost = analysis.cure_cost * 4
|
|
var/ten_cost = analysis.cure_cost * 7
|
|
src.temp += "<tr><td><b>[analysis.assoc_pathogen.name]</b><td><a href='?src=\ref[src];batch_cure=\ref[analysis];count=1'>1 batch for [one_cost] credits</a></td>td><a href='?src=\ref[src];batch_cure=\ref[analysis];count=5'>5 batches for [five_cost] credits</a></td>td><a href='?src=\ref[src];batch_cure=\ref[analysis];count=10'>10 batches for [ten_cost] credits</a></td></tr>"
|
|
src.temp += "<tr><td colspan='4' style='font-style:italic'>[analysis.desc]</td></tr>"
|
|
src.temp += "<tr><td colspan='4'> </td></tr>"
|
|
src.temp += "</table><br>"
|
|
else
|
|
src.temp += "We have no pathogen samples from your station that we can cure, yet.<br>"
|
|
src.temp += "<br>"
|
|
src.temp += "<A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"
|
|
|
|
/obj/machinery/computer/supplycomp/Topic(href, href_list)
|
|
if(..())
|
|
return
|
|
|
|
if ((usr.contents.Find(src) || (in_range(src, usr) && istype(src.loc, /turf))) || (issilicon(usr)))
|
|
usr.machine = src
|
|
|
|
if (href_list["order"])
|
|
src.temp = {"<B>Shipping Budget:</B> [wagesystem.shipping_budget] Credits<br><HR>
|
|
<A href='?src=\ref[src];mainmenu=1'>Main Menu</A><br>
|
|
<hr>
|
|
<B>Please select the Supply Package you would like to request:</B><br><br>"}
|
|
|
|
src.temp += {"<style>
|
|
table {border-collapse: collapse;}
|
|
th,td {padding: 5px;}
|
|
.categoryGroup {padding:5px; margin-bottom:8px; border:1px solid black}
|
|
.categoryGroup .title {display:block; color:white; padding: 2px 5px; margin: -5px -5px 2px -5px;
|
|
width: auto;
|
|
height: auto; /* MAXIMUM COMPATIBILITY ACHIEVED */
|
|
filter: glow(color=black,strength=1);
|
|
text-shadow: -1px -1px 0 #000,
|
|
1px -1px 0 #000,
|
|
-1px 1px 0 #000,
|
|
1px 1px 0 #000;}
|
|
</style>"}
|
|
|
|
if (!global.QM_CategoryList)
|
|
message_coders("ZeWaka/QMCategories: QMcategoryList was not found for [src]!")
|
|
for (var/foundCategory in global.QM_CategoryList)
|
|
var/categorycolor = random_color() //I must say, I simply love the colors this generates.
|
|
|
|
src.temp += {"<div class='categoryGroup' id='[foundCategory]' style='border-color:[categorycolor]'>
|
|
<b class='title' style='background:[categorycolor]'>[foundCategory]</b>"}
|
|
|
|
src.temp += "<table border=1>"
|
|
src.temp += "<tr><th>Item</th><th>Cost (Credits)</th><th>Contents</th></tr>"
|
|
|
|
for (var/datum/supply_packs/S in qm_supply_cache) //yes I know what this is doing, feel free to make it more perf-friendly
|
|
if((S.syndicate && !src.hacked) || S.hidden) continue
|
|
if (S.category == foundCategory)
|
|
src.temp += "<tr><td><a href='?src=\ref[src];doorder=\ref[S]'><b><u>[S.name]</u></b></a></td><td>[S.cost]</td><td>[S.desc]</td></tr>"
|
|
LAGCHECK(LAG_LOW)
|
|
|
|
src.temp+="</table></div>"
|
|
|
|
src.temp += "<hr><A href='?src=\ref[src];mainmenu=1'>Main Menu</A><br>"
|
|
|
|
if (href_list["doorder"])
|
|
if(istype(locate(href_list["doorder"]), /datum/supply_order))
|
|
//If this is a supply order we came from the request approval form
|
|
var/datum/supply_order/O = locate(href_list["doorder"])
|
|
var/datum/supply_packs/P = O.object
|
|
supply_requestlist -= O
|
|
if(wagesystem.shipping_budget >= P.cost)
|
|
wagesystem.shipping_budget -= P.cost
|
|
O.object = P
|
|
O.orderedby = usr.name
|
|
O.comment = copytext(html_encode(input(usr,"Comment:","Enter comment","")), 1, MAX_MESSAGE_LEN)
|
|
process_supply_order(O,usr)
|
|
logTheThing("station", usr, null, "ordered a [P.name] at [log_loc(src)].")
|
|
supply_history += "[O.object.name] ordered by [O.orderedby] for [P.cost] credits. Comment: [O.comment]<br>"
|
|
src.temp = {"Thanks for your order.<br>
|
|
<br><A href='?src=\ref[src];mainmenu=1'>Main Menu</A>
|
|
<br><A href='?src=\ref[src];order=1'>Back to Order List</A>"}
|
|
else
|
|
src.temp = {"Insufficient funds in Shipping Budget.<br>
|
|
<br><A href='?src=\ref[src];mainmenu=1'>Main Menu</A>
|
|
<br><A href='?src=\ref[src];order=1'>Back to Order List</A>"}
|
|
else
|
|
//Comes from the orderform
|
|
|
|
var/datum/supply_order/O = new/datum/supply_order ()
|
|
var/datum/supply_packs/P = locate(href_list["doorder"])
|
|
if(P)
|
|
|
|
// The order computer has no emagged / other ability to display hidden or syndicate packs.
|
|
// It follows that someone's being clever if trying to order either of these items
|
|
if((P.syndicate && !src.hacked) || P.hidden)
|
|
// Get that jerk
|
|
if (usr in range(1))
|
|
//Check that whoever's doing this is nearby - otherwise they could gib any old scrub
|
|
trigger_anti_cheat(usr, "tried to href exploit order packs on [src]")
|
|
|
|
return
|
|
|
|
if(wagesystem.shipping_budget >= P.cost)
|
|
wagesystem.shipping_budget -= P.cost
|
|
O.object = P
|
|
O.orderedby = usr.name
|
|
O.comment = copytext(html_encode(input(usr,"Comment:","Enter comment","")), 1, MAX_MESSAGE_LEN)
|
|
|
|
process_supply_order(O,usr)
|
|
logTheThing("station", usr, null, "ordered a [P.name] at [log_loc(src)].")
|
|
supply_history += "[O.object.name] ordered by [O.orderedby] for [P.cost] credits. Comment: [O.comment]<br>"
|
|
src.temp = {"Thanks for your order.<br>
|
|
<br><A href='?src=\ref[src];mainmenu=1'>Main Menu</A>
|
|
<br><A href='?src=\ref[src];order=1'>Back to Order List</A>"}
|
|
else
|
|
src.temp = {"Insufficient funds in Shipping Budget.<br>
|
|
<br><A href='?src=\ref[src];mainmenu=1'>Main Menu</A>
|
|
<br><A href='?src=\ref[src];order=1'>Back to Order List</A>"}
|
|
|
|
else if (href_list["vieworders"])
|
|
src.temp = "<B>Order History: </B><br><br>"
|
|
for(var/S in supply_history)
|
|
src.temp += S
|
|
src.temp += "<br><A href='?src=\ref[src];mainmenu=1'>OK</A>"
|
|
|
|
else if (href_list["viewrequests"])
|
|
src.temp = "<B>Current Requests: </B><br>"
|
|
for(var/datum/supply_order/SO in supply_requestlist)
|
|
src.temp += "<br>[SO.object.name] requested by [SO.orderedby] from [SO.console_location]. <A href='?src=\ref[src];doorder=\ref[SO]'>Approve</A> <A href='?src=\ref[src];rreq=\ref[SO]'>Remove</A>"
|
|
|
|
src.temp += {"<br><A href='?src=\ref[src];clearreq=1'>Clear list</A>
|
|
<br><A href='?src=\ref[src];mainmenu=1'>OK</A>"}
|
|
|
|
else if (href_list["viewmarket"])
|
|
src.temp = "<B>Shipping Market Prices</B><HR>"
|
|
if(shippingmarket.last_market_update != last_market_update) //Okay, the market has updated and we need a new price list
|
|
last_market_update = shippingmarket.last_market_update
|
|
price_list = ""
|
|
for(var/item_type in shippingmarket.commodities)
|
|
var/datum/commodity/C = shippingmarket.commodities[item_type]
|
|
var/viewprice = C.price
|
|
if (C.indemand) viewprice *= shippingmarket.demand_multiplier
|
|
|
|
src.price_list += "<br><B>[C.comname]:</B> [viewprice] credits per unit "
|
|
if (C.indemand) src.price_list += " <b>(High Demand!)</b>"
|
|
|
|
var/timer = shippingmarket.get_market_timeleft()
|
|
src.temp += {"[price_list]<br><HR><b>Next Price Shift:</B> [timer]<br>
|
|
<A href='?src=\ref[src];viewmarket=1'>Refresh</A><br>
|
|
<A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"}
|
|
|
|
else if (href_list["contact_cdc"])
|
|
if (signal_loss >= 75)
|
|
boutput(usr, "<span style=\"color:red\">Severe signal interference is preventing contact with the CDC.</span>")
|
|
return
|
|
set_cdc()
|
|
last_cdc_message = null
|
|
|
|
else if (href_list["req_biohazard_crate"])
|
|
if (signal_loss >= 75)
|
|
boutput(usr, "<span style=\"color:red\">Severe signal interference is preventing contact with the CDC.</span>")
|
|
return
|
|
if (ticker.round_elapsed_ticks < QM_CDC.next_crate)
|
|
last_cdc_message = "<span style=\"color:red; font-style: italic\">We are fresh out of crates right now to send you. Check back in [(QM_CDC.next_crate - ticker.round_elapsed_ticks)] seconds!</span>"
|
|
else
|
|
if (wagesystem.shipping_budget < 5)
|
|
last_cdc_message = "<span style=\"color:red; font-style: italic\">You're completely broke. You cannot even afford a crate.</span>"
|
|
else
|
|
wagesystem.shipping_budget -= 5
|
|
last_cdc_message = "<span style=\"color:blue; font-style: italic\">We're delivering the crate right now. It should arrive on your cargo pad shortly.</span>"
|
|
buy_thing(new /obj/storage/crate/biohazard/cdc())
|
|
QM_CDC.next_crate = ticker.round_elapsed_ticks + 300
|
|
set_cdc()
|
|
|
|
else if (href_list["cdc_analyze"])
|
|
if (signal_loss >= 75)
|
|
boutput(usr, "<span style=\"color:red\">Severe signal interference is preventing contact with the CDC.</span>")
|
|
return
|
|
src.temp = "<B>Center for Disease Control communication line</B><HR>"
|
|
src.temp += "<i>These are the unanalyzed samples we have from you, [station_name].</i><br><br>"
|
|
if (QM_CDC.current_analysis)
|
|
src.temp += "We are currently researching the sample [QM_CDC.current_analysis.assoc_pathogen.name]. We can start on a new one if you like, but the analysis cost will not be refunded.<br><br>"
|
|
src.temp += "Analysis costs 1000 credits to begin. Choose a pathogen sample to analyze:<br>"
|
|
for (var/datum/cdc_contact_analysis/C in QM_CDC.ready_to_analyze)
|
|
src.temp += "<a href='?src=\ref[src];cdc_analyze_me=\ref[C]'>[C.assoc_pathogen.name]</a> ([round(C.time_done / (2 * C.time_factor))]% done)<br>"
|
|
src.temp += "<br><A href='?src=\ref[src];contact_cdc=1'>Back</A><br><A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"
|
|
|
|
else if (href_list["cdc_analyze_me"])
|
|
if (signal_loss >= 75)
|
|
boutput(usr, "<span style=\"color:red\">Severe signal interference is preventing contact with the CDC.</span>")
|
|
return
|
|
if (QM_CDC.last_switch > ticker.round_elapsed_ticks - 300)
|
|
last_cdc_message = "<span style=\"color:red; font-style: italic\">We just switched projects. Hold on for a bit.</span>"
|
|
else if (wagesystem.shipping_budget < 1000)
|
|
last_cdc_message = "<span style=\"color:red; font-style: italic\">You cannot afford to start a new analysis.</span>"
|
|
else
|
|
var/datum/cdc_contact_analysis/C = locate(href_list["cdc_analyze_me"])
|
|
if (!(C in QM_CDC.ready_to_analyze))
|
|
last_cdc_message = "<span style=\"color:red; font-style: italic\">That's not ready to analyze right now.</span>"
|
|
else
|
|
last_cdc_message = "<span style=\"color:blue; font-style: italic\">We'll begin the analysis and keep you updated.</span>"
|
|
wagesystem.shipping_budget -= 1000
|
|
if (QM_CDC.current_analysis)
|
|
var/datum/cdc_contact_analysis/A = QM_CDC.current_analysis
|
|
A.time_done += ticker.round_elapsed_ticks - A.begun_at
|
|
if (A.cure_available >= ticker.round_elapsed_ticks)
|
|
QM_CDC.completed_analysis += A
|
|
else
|
|
QM_CDC.ready_to_analyze += A
|
|
QM_CDC.current_analysis = C
|
|
C.begun_at = ticker.round_elapsed_ticks
|
|
C.description_available = C.begun_at + C.time_factor - C.time_done
|
|
C.cure_available = C.description_available + C.time_factor
|
|
QM_CDC.last_switch = C.begun_at
|
|
|
|
set_cdc()
|
|
|
|
else if (href_list["batch_cure"])
|
|
if (signal_loss >= 75)
|
|
boutput(usr, "<span style=\"color:red\">Severe signal interference is preventing contact with the CDC.</span>")
|
|
return
|
|
var/datum/cdc_contact_analysis/C = locate(href_list["batch_cure"])
|
|
if (!(C in QM_CDC.completed_analysis))
|
|
last_cdc_message = "<span style=\"color:red; font-style: italic\">That's not ready to be cured yet.</span>"
|
|
var/count = text2num(href_list["count"])
|
|
var/cost = 0
|
|
switch (count)
|
|
if (1)
|
|
cost = C.cure_cost
|
|
if (5)
|
|
cost = 4 * C.cure_cost
|
|
if (10)
|
|
cost = 7 * C.cure_cost
|
|
else
|
|
last_cdc_message = "<span style=\"color:red; font-style: italic\">No leet haxing, chump.</span>"
|
|
if (cost > 0)
|
|
if (wagesystem.shipping_budget < cost)
|
|
last_cdc_message = "<span style=\"color:red; font-style: italic\">You cannot afford these cures.</span>"
|
|
else
|
|
wagesystem.shipping_budget -= cost
|
|
QM_CDC.working_on = C.assoc_pathogen
|
|
QM_CDC.working_on_time_factor = C.time_factor
|
|
QM_CDC.next_cure_batch = round(rand(175, 233) / 100 * C.time_factor) + ticker.round_elapsed_ticks
|
|
QM_CDC.batches_left = count
|
|
|
|
set_cdc()
|
|
|
|
else if (href_list["trader_list"])
|
|
if (!shippingmarket.active_traders.len)
|
|
boutput(usr, "<span style=\"color:red\">No traders detected in communications range.</span>")
|
|
return
|
|
if (signal_loss >= 75)
|
|
boutput(usr, "<span style=\"color:red\">Severe signal interference is preventing contact with trader vessels.</span>")
|
|
return
|
|
|
|
src.temp = "<b>Traders Detected in Communications Range:</b><br>"
|
|
for (var/datum/trader/T in shippingmarket.active_traders)
|
|
if (!T.hidden)
|
|
src.temp += "* <A href='?src=\ref[src];trader=\ref[T]'>[T.name]</A><br>"
|
|
var/timer = shippingmarket.get_market_timeleft()
|
|
src.temp += {"<br><HR><b>Next Market Shift:</B> [timer]<br>
|
|
<A href='?src=\ref[src];trader_list=1'>Refresh</A><br>
|
|
<A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"}
|
|
|
|
else if (href_list["trader"])
|
|
var/datum/trader/T = locate(href_list["trader"]) in shippingmarket.active_traders
|
|
if (!src.trader_sanity_check(T))
|
|
return
|
|
var/timer = shippingmarket.get_market_timeleft()
|
|
|
|
src.temp = {"<b><u>[T.name]</u></b><HR>
|
|
<center><img src="[resource("images/traders/[T.picture]")]"></center><br>
|
|
<center>\"[T.current_message]\"</center><br><HR><br>
|
|
<br><HR><b>Next Market Shift:</B> [timer]<br>
|
|
<A href='?src=\ref[src];trader=\ref[T]'>Refresh</A><br>"}
|
|
|
|
if (T.goods_sell.len)
|
|
src.temp += "<A href='?src=\ref[src];trader_selling=\ref[T]'>Browse Goods for Sale</A> ([T.goods_sell.len] Items)<br>"
|
|
if (T.goods_buy.len)
|
|
src.temp += "<A href='?src=\ref[src];trader_buying=\ref[T]'>Browse Wanted Goods</A> ([T.goods_buy.len] Items)<br>"
|
|
if (T.shopping_cart.len)
|
|
src.temp += {"<A href='?src=\ref[src];trader_cart=\ref[T]'>View Shopping Cart</A> ([T.shopping_cart.len] Items)<br>
|
|
<A href='?src=\ref[src];trader_buy_cart=\ref[T]'>Purchase Items in Cart</A><br>"}
|
|
|
|
src.temp += {"<A href='?src=\ref[src];trader_list=1'>Trader List</A><br>
|
|
<A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"}
|
|
|
|
else if (href_list["trader_selling"])
|
|
var/datum/trader/T = locate(href_list["trader_selling"]) in shippingmarket.active_traders
|
|
if (!src.trader_sanity_check(T))
|
|
return
|
|
|
|
src.trader_dialogue_update("selling",T)
|
|
|
|
else if (href_list["trader_buying"])
|
|
var/datum/trader/T = locate(href_list["trader_buying"]) in shippingmarket.active_traders
|
|
if (!src.trader_sanity_check(T))
|
|
return
|
|
|
|
src.trader_dialogue_update("buying",T)
|
|
|
|
else if (href_list["trader_cart"])
|
|
var/datum/trader/T = locate(href_list["trader_cart"]) in shippingmarket.active_traders
|
|
if (!src.trader_sanity_check(T))
|
|
return
|
|
|
|
src.trader_dialogue_update("cart",T)
|
|
|
|
else if (href_list["goods_addtocart"])
|
|
var/datum/trader/T = locate(href_list["the_trader"]) in shippingmarket.active_traders
|
|
if (!src.trader_sanity_check(T))
|
|
return
|
|
var/datum/commodity/C = locate(href_list["goods_addtocart"]) in T.goods_sell
|
|
if (!src.commodity_sanity_check(C))
|
|
return
|
|
if (src.in_dialogue_box)
|
|
return
|
|
|
|
if (C.amount == 0)
|
|
T.current_message = pick(T.dialogue_out_of_stock)
|
|
src.updateUsrDialog()
|
|
return
|
|
|
|
var/buy_cap = 20
|
|
var/total_stuff_in_cart = 0
|
|
|
|
if (shippingmarket && istype(shippingmarket,/datum/shipping_market))
|
|
buy_cap = shippingmarket.max_buy_items_at_once
|
|
else
|
|
logTheThing("debug", null, null, "<b>ISN/Trader:</b> Shippingmarket buy cap improperly configured")
|
|
|
|
for(var/datum/commodity/cartcom in T.shopping_cart)
|
|
total_stuff_in_cart += cartcom.amount
|
|
|
|
if (total_stuff_in_cart >= buy_cap)
|
|
boutput(usr, "<span style=\"color:red\">You may only have a maximum of [buy_cap] items in your shopping cart. You have already reached that limit.</span>")
|
|
return
|
|
|
|
src.in_dialogue_box = 1
|
|
var/howmany = input("How many units do you want to purchase?", "Trader Purchase", null, null) as num
|
|
if (howmany < 1)
|
|
src.in_dialogue_box = 0
|
|
return
|
|
if (C.amount > 0 && howmany > C.amount)
|
|
howmany = C.amount
|
|
|
|
if (howmany + total_stuff_in_cart > buy_cap)
|
|
boutput(usr, "<span style=\"color:red\">You may only have a maximum of [buy_cap] items in your shopping cart. This order would exceed that limit.</span>")
|
|
src.in_dialogue_box = 0
|
|
return
|
|
|
|
var/datum/commodity/trader/incart/newcart = new /datum/commodity/trader/incart(T)
|
|
T.shopping_cart += newcart
|
|
newcart.reference = C
|
|
newcart.comname = C.comname
|
|
newcart.amount = howmany
|
|
newcart.price = C.price
|
|
newcart.comtype = C.comtype
|
|
if (C.amount > 0) C.amount -= howmany
|
|
src.trader_dialogue_update("selling",T)
|
|
src.in_dialogue_box = 0
|
|
|
|
else if (href_list["goods_haggle_sell"])
|
|
var/datum/trader/T = locate(href_list["the_trader"]) in shippingmarket.active_traders
|
|
if (!src.trader_sanity_check(T))
|
|
return
|
|
var/datum/commodity/C = locate(href_list["goods_haggle_sell"]) in T.goods_sell
|
|
if (!src.commodity_sanity_check(C))
|
|
return
|
|
if (src.in_dialogue_box)
|
|
return
|
|
|
|
if (T.patience <= 0)
|
|
// whoops, you've pissed them off and now they're going to fuck off
|
|
src.temp = {"<center><img src="[resource("images/traders/[T.picture]")]"></center><br>
|
|
<center>\"[pick(T.dialogue_leave)]\"</center><br><br>
|
|
[T.name] has left. You pushed their patience too far!<br>
|
|
<br><A href='?src=\ref[src];mainmenu=1'>Ok</A>"}
|
|
src.updateUsrDialog()
|
|
T.hidden = 1
|
|
return
|
|
|
|
src.in_dialogue_box = 1
|
|
var/haggling = input("Suggest a new lower price.", "Haggle", null, null) as null|num
|
|
if (haggling < 1)
|
|
// yeah sure let's reduce the barter into negative numbers, herp derp
|
|
boutput(usr, "<span style=\"color:red\">That doesn't even make any sense!</span>")
|
|
src.in_dialogue_box = 0
|
|
return
|
|
T.haggle(C,haggling,1)
|
|
src.trader_dialogue_update("selling",T)
|
|
src.in_dialogue_box = 0
|
|
|
|
else if (href_list["goods_haggle_buy"])
|
|
var/datum/trader/T = locate(href_list["the_trader"]) in shippingmarket.active_traders
|
|
if (!src.trader_sanity_check(T))
|
|
return
|
|
var/datum/commodity/C = locate(href_list["goods_haggle_buy"]) in T.goods_buy
|
|
if (!src.commodity_sanity_check(C))
|
|
return
|
|
if (src.in_dialogue_box)
|
|
return
|
|
|
|
if (T.patience == 0)
|
|
// whoops, you've pissed them off and now they're going to fuck off
|
|
// unless they've got negative patience in which case haggle all you like
|
|
src.temp = {"<center><img src="[resource("images/traders/[T.picture]")]"></center><br>
|
|
<center>\"[pick(T.dialogue_leave)]\"</center><br><br>
|
|
[T.name] has left. You pushed their patience too far!<br>
|
|
<br><A href='?src=\ref[src];mainmenu=1'>Ok</A>"}
|
|
src.updateUsrDialog()
|
|
T.hidden = 1
|
|
return
|
|
|
|
src.in_dialogue_box = 1
|
|
var/haggling = input("Suggest a new higher price.", "Haggle", null, null) as null|num
|
|
if (haggling < 1)
|
|
// yeah sure let's reduce the barter into negative numbers, herp derp
|
|
boutput(usr, "<span style=\"color:red\">That doesn't even make any sense!</span>")
|
|
src.in_dialogue_box = 0
|
|
return
|
|
T.haggle(C,haggling,0)
|
|
src.trader_dialogue_update("buying",T)
|
|
src.in_dialogue_box = 0
|
|
|
|
else if (href_list["goods_removefromcart"])
|
|
var/datum/trader/T = locate(href_list["the_trader"]) in shippingmarket.active_traders
|
|
if (!src.trader_sanity_check(T))
|
|
return
|
|
var/datum/commodity/trader/incart/C = locate(href_list["goods_removefromcart"]) in T.shopping_cart
|
|
if (!src.commodity_sanity_check(C))
|
|
return
|
|
|
|
var/howmany = input("Remove how many units?", "Remove from Cart", null, null) as num
|
|
if (howmany < 1)
|
|
return
|
|
howmany = max(0,min(howmany,C.amount))
|
|
|
|
C.amount -= howmany
|
|
|
|
if (C.reference && istype(C.reference,/datum/commodity/trader/))
|
|
if (C.reference.amount > -1)
|
|
C.reference.amount += howmany
|
|
|
|
if (C.amount < 1)
|
|
T.shopping_cart -= C
|
|
qdel (C)
|
|
src.trader_dialogue_update("cart",T)
|
|
|
|
else if (href_list["trader_buy_cart"])
|
|
var/datum/trader/T = locate(href_list["trader_buy_cart"]) in shippingmarket.active_traders
|
|
if (!src.trader_sanity_check(T))
|
|
return
|
|
|
|
if (!T.shopping_cart.len)
|
|
boutput(usr, "<span style=\"color:red\">There's nothing in the shopping cart to buy!</span>")
|
|
return
|
|
|
|
var/cart_cost = 0
|
|
var/total_cart_amount = 0
|
|
for (var/datum/commodity/C in T.shopping_cart)
|
|
cart_cost += C.price * C.amount
|
|
total_cart_amount += C.amount
|
|
|
|
var/buy_cap = 20
|
|
|
|
if (shippingmarket && istype(shippingmarket,/datum/shipping_market))
|
|
buy_cap = shippingmarket.max_buy_items_at_once
|
|
else
|
|
logTheThing("debug", null, null, "<b>ISN/Trader:</b> Shippingmarket buy cap improperly configured")
|
|
|
|
if (total_cart_amount > buy_cap)
|
|
boutput(usr, "<span style=\"color:red\">There are too many items in the cart. You may only order [buy_cap] items at a time.</span>")
|
|
else
|
|
if (wagesystem.shipping_budget < cart_cost)
|
|
T.current_message = pick(T.dialogue_cant_afford_that)
|
|
else
|
|
T.current_message = pick(T.dialogue_purchase)
|
|
buy_from_trader(T)
|
|
src.trader_dialogue_update("cart",T)
|
|
|
|
else if (href_list["trader_clr_cart"])
|
|
var/datum/trader/T = locate(href_list["trader_clr_cart"]) in shippingmarket.active_traders
|
|
if (!src.trader_sanity_check(T))
|
|
return
|
|
|
|
T.wipe_cart()
|
|
src.trader_dialogue_update("cart",T)
|
|
|
|
else if (href_list["rreq"])
|
|
supply_requestlist -= locate(href_list["rreq"])
|
|
src.temp = {"Request removed.<br>
|
|
<br><A href='?src=\ref[src];viewrequests=1'>OK</A>"}
|
|
|
|
else if (href_list["clearreq"])
|
|
supply_requestlist = null
|
|
supply_requestlist = new/list()
|
|
src.temp = {"List cleared.<br>
|
|
<br><A href='?src=\ref[src];mainmenu=1'>OK</A>"}
|
|
|
|
else if (href_list["mainmenu"])
|
|
src.temp = null
|
|
|
|
src.add_fingerprint(usr)
|
|
src.updateUsrDialog()
|
|
return
|
|
|
|
/obj/machinery/computer/supplycomp/proc/trader_dialogue_update(var/dialogue,var/datum/trader/T)
|
|
if (!dialogue || !T)
|
|
return
|
|
|
|
src.temp = {"<b><u>[T.name]</u></b><HR>
|
|
<center><img src="[resource("images/traders/[T.picture]")]"></center><br>
|
|
<center>\"[T.current_message]\"</center><br><HR>"}
|
|
|
|
switch(dialogue)
|
|
if("cart")
|
|
if (!T.shopping_cart.len)
|
|
src.temp += "There is nothing in your shopping cart with this trader!"
|
|
else if (T.currently_selling)
|
|
src.temp += "Your order is now being processed!"
|
|
else
|
|
var/cart_price = 0
|
|
src.temp += "<b>You are considering purchase of the following goods:</b><br>"
|
|
for (var/datum/commodity/C in T.shopping_cart)
|
|
src.temp += "[C.amount] units of [C.comname], [C.price * C.amount] credits <A href='?src=\ref[src];goods_removefromcart=\ref[C];the_trader=\ref[T]'>(Remove)</A><br>"
|
|
cart_price += C.price * C.amount
|
|
src.temp += "<br><b>The total price of this purchase is [cart_price] credits.</b>"
|
|
var/timer = shippingmarket.get_market_timeleft()
|
|
src.temp += {"<br><HR>
|
|
<b>Next Market Shift:</B> [timer]<br>
|
|
<B>Shipping Budget:</B> [wagesystem.shipping_budget] Credits<br><br>"}
|
|
|
|
if (T.shopping_cart.len && !T.currently_selling)
|
|
src.temp += {"<A href='?src=\ref[src];trader_buy_cart=\ref[T]'>Purchase</A><br>
|
|
<A href='?src=\ref[src];trader_clr_cart=\ref[T]'>Empty Shopping Cart</A><br>"}
|
|
//src.temp += "<A href='?src=\ref[src];trader_cart=\ref[T]'>Refresh</A><br>"
|
|
src.temp += {"<A href='?src=\ref[src];trader=\ref[T]'>Back</A><br>
|
|
<A href='?src=\ref[src];trader_list=1'>Trader List</A><br>
|
|
<A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"}
|
|
if("buying")
|
|
src.temp += "<b>The trader would like to purchase the following goods:</b><br>"
|
|
for (var/datum/commodity/trader/C in T.goods_buy)
|
|
if (C.hidden)
|
|
continue
|
|
src.temp += "* [C.listed_name]<br>"
|
|
src.temp += " ([C.price] per unit)"
|
|
if (C.amount >= 0)
|
|
src.temp += " ([C.amount] units left)"
|
|
src.temp += " <br><A href='?src=\ref[src];goods_haggle_buy=\ref[C];the_trader=\ref[T]'>(Haggle Price)</A></i><br><br>"
|
|
var/timer = shippingmarket.get_market_timeleft()
|
|
|
|
src.temp += {"To sell goods to this trader, label a crate <b>trader</b> with a barcode label and fire it out of the sale mass driver.<br>
|
|
Load no more than 50 items into a crate at once, or the trader's cargo computer may not be able to keep up!
|
|
<br><HR>"
|
|
<b>Next Market Shift:</B> [timer]<br>
|
|
<B>Shipping Budget:</B> [wagesystem.shipping_budget] Credits<br><br>
|
|
<A href='?src=\ref[src];trader=\ref[T]'>Back</A><br>
|
|
<A href='?src=\ref[src];trader_list=1'>Trader List</A><br>
|
|
<A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"}
|
|
if("selling")
|
|
src.temp += "<b>The trader has the following goods for sale:</b><br>"
|
|
for (var/datum/commodity/trader/C in T.goods_sell)
|
|
if (C.hidden)
|
|
continue
|
|
src.temp += "* [C.listed_name]<br>"
|
|
src.temp += "([C.price] credits per unit)"
|
|
if (C.amount >= 0)
|
|
src.temp += " ([C.amount] units left)"
|
|
src.temp += " <i><A href='?src=\ref[src];goods_addtocart=\ref[C];the_trader=\ref[T]'>(Add to Cart)</A> <A href='?src=\ref[src];goods_haggle_sell=\ref[C];the_trader=\ref[T]'>(Haggle Price)</A></i><br><br>"
|
|
|
|
var/timer = shippingmarket.get_market_timeleft()
|
|
src.temp += {"<HR>
|
|
<b>Next Market Shift:</B> [timer]<br>
|
|
<B>Shipping Budget:</B> [wagesystem.shipping_budget] Credits<br><br>
|
|
<A href='?src=\ref[src];trader=\ref[T]'>Back</A><br>
|
|
<A href='?src=\ref[src];trader_list=1'>Trader List</A><br>
|
|
[T.shopping_cart.len ? "<A href='?src=\ref[src];trader_cart=\ref[T]'>View Shopping Cart</A> ([T.shopping_cart.len] Items)<br>" : null]
|
|
<A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"}
|
|
|
|
/obj/machinery/computer/supplycomp/proc/trader_sanity_check(var/datum/trader/T)
|
|
if (!T)
|
|
src.temp = {"Error contacting trader. They may have departed from communications range.<br>
|
|
<A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"}
|
|
return 0
|
|
if (!istype(T,/datum/trader/))
|
|
src.temp = {"Error contacting trader. They may have departed from communications range.<br>
|
|
<A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"}
|
|
return 0
|
|
if (T.hidden)
|
|
src.temp = {"Error contacting trader. They may have departed from communications range.<br>
|
|
<A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"}
|
|
return 0
|
|
if (signal_loss >= 75)
|
|
src.temp = {"Severe signal interference is preventing contact with [T.name].<br>
|
|
<A href='?src=\ref[src];mainmenu=1'>Main Menu</A>"}
|
|
return 0
|
|
return 1
|
|
|
|
/obj/machinery/computer/supplycomp/proc/commodity_sanity_check(var/datum/commodity/C)
|
|
if (!C)
|
|
boutput(usr, "<span style=\"color:red\">Something has gone wrong trying to access this commodity! Report this please!</span>")
|
|
return 0
|
|
if (!istype(C,/datum/commodity/))
|
|
boutput(usr, "<span style=\"color:red\">Something has gone wrong trying to access this commodity! Report this please!</span>")
|
|
return 0
|
|
return 1
|
|
|
|
/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 = get_free_signal()
|
|
status_signal.source = src
|
|
status_signal.transmission_method = 1
|
|
status_signal.data["command"] = command
|
|
|
|
frequency.post_signal(src, status_signal) |