mirror of
https://github.com/Bubberstation/Bubberstation.git
synced 2026-08-21 12:08:55 +01:00
ArcaneMusicandGitHub
70306cc3ad
This PR updates and refreshes the whole of black market code for improved usability as well as to better sell the backbone of the content behind the blackmarket in-game. For starters, the datums for the black market were designed around not being specific to the black market. Reading the code, it was intended to allow for multiple blackmarket_markets to be added after it's original inclusion, which was passed up as a result of what I'd guess is a branding issue, as every datum associated with the blackmarket was labeled... as for the black market, nothing else. So to begin I've renamed most of the backend of the blackmarket code to just market instead, datum/market, datum/market_order, datum/market_item, datum/market_uplink(/blackmarket). The works. Next, QOL change to how blackmarket uplinks were implemented: Now, instead of having to manually load credits into a black market uplink by hand, then choose to buy things using the uplink, they instead just draw from the user's ID card, checks for a bank account, and purchases through that, with quick inputs added when purchases are successful and warnings when a purchase cannot be made. Lastly, code change. In an old economy PR of mine I standardized purchased cargo items to use the CARGO_CRATE_VALUE define, and for vendible items to use paycheck defines instead. In that PR I rebalanced quite a bit of prices as a result, but this got passed up when that happened. I'll leave the balancing for another time then, but this updates the code of market_item datums to use CARGO_CRATE_VALUE for their upper and lower cost ranges to maintain that standard.
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(timeofday)
|
|
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)
|
|
. = ..()
|
|
|
|
/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, /datum/controller/subsystem/blackmarket/proc/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
|