mirror of
https://github.com/Bubberstation/Bubberstation.git
synced 2026-06-04 21:56:01 +01:00
AnturK
84f69359a0
So i left over some basic `/whatever/proc/format` uses in the original PR this fixes it. Notable exceptions to the rule: - Paths in add_verb/remove_verb, we need full path instead of a name there to access verb metadata so we can't use proc ref macros there. - regex.Replace, found out that it does not accept call by name. Instead i added new REGEX_REPLACE_HANDLER so we can at least try to mark these. There's still leftover global procs that do not use GLOBAL_PROC_REF but they functionally equivalent so that's for later. I don't see any reasonable way to grep for this. But if you got any ideas please share.
116 lines
4.3 KiB
Plaintext
116 lines
4.3 KiB
Plaintext
SUBSYSTEM_DEF(blackmarket)
|
|
name = "Blackmarket"
|
|
flags = SS_BACKGROUND
|
|
init_order = INIT_ORDER_DEFAULT
|
|
|
|
/// Descriptions for each shipping methods.
|
|
var/shipping_method_descriptions = list(
|
|
SHIPPING_METHOD_LAUNCH="Launches the item at the station from space, cheap but you might not receive your item at all.",
|
|
SHIPPING_METHOD_LTSRBT="Long-To-Short-Range-Bluespace-Transceiver, a machine that receives items outside the station and then teleports them to the location of the uplink.",
|
|
SHIPPING_METHOD_TELEPORT="Teleports the item in a random area in the station, you get 60 seconds to get there first though."
|
|
)
|
|
|
|
/// List of all existing markets.
|
|
var/list/datum/market/markets = list()
|
|
/// List of existing ltsrbts.
|
|
var/list/obj/machinery/ltsrbt/telepads = list()
|
|
/// Currently queued purchases.
|
|
var/list/queued_purchases = list()
|
|
|
|
/datum/controller/subsystem/blackmarket/Initialize()
|
|
for(var/market in subtypesof(/datum/market))
|
|
markets[market] += new market
|
|
|
|
for(var/item in subtypesof(/datum/market_item))
|
|
var/datum/market_item/I = new item()
|
|
if(!I.item)
|
|
continue
|
|
|
|
for(var/M in I.markets)
|
|
if(!markets[M])
|
|
stack_trace("SSblackmarket: Item [I] available in market that does not exist.")
|
|
continue
|
|
markets[M].add_item(item)
|
|
qdel(I)
|
|
return SS_INIT_SUCCESS
|
|
|
|
/datum/controller/subsystem/blackmarket/fire(resumed)
|
|
while(length(queued_purchases))
|
|
var/datum/market_purchase/purchase = queued_purchases[1]
|
|
queued_purchases.Cut(1,2)
|
|
|
|
// Uh oh, uplink is gone. We will just keep the money and you will not get your order.
|
|
if(!purchase.uplink || QDELETED(purchase.uplink))
|
|
queued_purchases -= purchase
|
|
qdel(purchase)
|
|
continue
|
|
|
|
switch(purchase.method)
|
|
// Find a ltsrbt pad and make it handle the shipping.
|
|
if(SHIPPING_METHOD_LTSRBT)
|
|
if(!telepads.len)
|
|
continue
|
|
// Prioritize pads that don't have a cooldown active.
|
|
var/free_pad_found = FALSE
|
|
for(var/obj/machinery/ltsrbt/pad in telepads)
|
|
if(pad.recharge_cooldown)
|
|
continue
|
|
pad.add_to_queue(purchase)
|
|
queued_purchases -= purchase
|
|
free_pad_found = TRUE
|
|
break
|
|
|
|
if(free_pad_found)
|
|
continue
|
|
|
|
var/obj/machinery/ltsrbt/pad = pick(telepads)
|
|
|
|
to_chat(recursive_loc_check(purchase.uplink.loc, /mob), span_notice("[purchase.uplink] flashes a message noting that the order is being processed by [pad]."))
|
|
|
|
queued_purchases -= purchase
|
|
pad.add_to_queue(purchase)
|
|
// Get random area, throw it somewhere there.
|
|
if(SHIPPING_METHOD_TELEPORT)
|
|
var/turf/targetturf = get_safe_random_station_turf()
|
|
// This shouldn't happen.
|
|
if (!targetturf)
|
|
continue
|
|
|
|
to_chat(recursive_loc_check(purchase.uplink.loc, /mob), span_notice("[purchase.uplink] flashes a message noting that the order is being teleported to [get_area(targetturf)] in 60 seconds."))
|
|
|
|
// do_teleport does not want to teleport items from nullspace, so it just forceMoves and does sparks.
|
|
addtimer(CALLBACK(src, TYPE_PROC_REF(/datum/controller/subsystem/blackmarket,fake_teleport), purchase.entry.spawn_item(), targetturf), 60 SECONDS)
|
|
queued_purchases -= purchase
|
|
qdel(purchase)
|
|
// Get the current location of the uplink if it exists, then throws the item from space at the station from a random direction.
|
|
if(SHIPPING_METHOD_LAUNCH)
|
|
var/startSide = pick(GLOB.cardinals)
|
|
var/turf/T = get_turf(purchase.uplink)
|
|
var/pickedloc = spaceDebrisStartLoc(startSide, T.z)
|
|
|
|
var/atom/movable/item = purchase.entry.spawn_item(pickedloc)
|
|
item.throw_at(purchase.uplink, 3, 3, spin = FALSE)
|
|
|
|
to_chat(recursive_loc_check(purchase.uplink.loc, /mob), span_notice("[purchase.uplink] flashes a message noting the order is being launched at the station from [dir2text(startSide)]."))
|
|
|
|
queued_purchases -= purchase
|
|
qdel(purchase)
|
|
|
|
if(MC_TICK_CHECK)
|
|
break
|
|
|
|
/// Used to make a teleportation effect as do_teleport does not like moving items from nullspace.
|
|
/datum/controller/subsystem/blackmarket/proc/fake_teleport(atom/movable/item, turf/target)
|
|
item.forceMove(target)
|
|
var/datum/effect_system/spark_spread/sparks = new
|
|
sparks.set_up(5, 1, target)
|
|
sparks.attach(item)
|
|
sparks.start()
|
|
|
|
/// Used to add /datum/market_purchase to queued_purchases var. Returns TRUE when queued.
|
|
/datum/controller/subsystem/blackmarket/proc/queue_item(datum/market_purchase/P)
|
|
if(P.method == SHIPPING_METHOD_LTSRBT && !telepads.len)
|
|
return FALSE
|
|
queued_purchases += P
|
|
return TRUE
|