cyberpresidentvanellope/Bubberstation
1
0
Fork 0
mirror of https://github.com/Bubberstation/Bubberstation.git synced 2025-12-10 09:42:29 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
fec7ccc6fd900d799e08f1993514434f0ca83001
Bubberstation/code/modules/cargo/packs/general.dm
Ghom fec7ccc6fd The Coupon Master PDA app (#80240) 
## About The Pull Request
This PR adds a new PDA program to the supply category, which allows
users to redeems coupons for various cargo packs (mostly goodies), like
the ones also found at the bottom of cig packs.

How it works is fairly simple: 

- Once installed, the modular computer subsystem will periodically, at a
3-5 minutes interval, generate a coupon code datum associated to a plain
text code, which is sent out to everyone with the program installed.
- The user can then open the program and insert the text into an input
box to redeem the coupon code, which is then associated with their bank
account.
- He will then have to find a photocopier, and tap it with the PDA to
print the coupon. Only one coupon can be printed. Photocopier fees
apply, so it'd cost 5 creds to the average assistant to print the
coupon.
- He can then insert the coupon in a cargo console and order/reuest the
associated pack (same deal as cig coupons).
- Some coupon codes however, especially those with juicer discounts,
will expire after a while if not printed.

Albeit mostly innocuous, the program provides negative Detomatix
resistance, slowly fills the computer file storage with trash files with
each redeemed coupon, and halves the download speed of new apps. Not
really the cleanest ware out there.

This PR also extends coupons to several non-goody packs, since they have
been privately buyable for over the last couple years now. Some packs
get discounts less frequently however, with those in the uncommon
category being roughly 1 in a 12 chance and the rare being 1 in 50.

Here's a screenshot of the UI (outdated, I've reduced the height from
500 to 400 and the notice box tip to specify the right click):
![Coupon
Master](https://github.com/tgstation/tgstation/assets/42542238/1d242d09-0f62-4e2e-8a6e-014daa3f6a55)

Fun fact: Right now, the odds of a 75% discount coming from the Coupon
Master for the 1.000.000 credits bycycle pack are roughly 0.0012%, while
that of a 50% for the same pack, from a cig pack coupon are 0.0042%.

## Why It's Good For The Game
These last couple days I've been wanting to test myself at making simple
UIs, as well as contributing to the modular computers feature, which has
started to become pretty neat ever since PDAs were reworked into a
subtype of it.

Beside, coupons are a very small feature limited to the bottom of
cigarette packs (also possibly cursed) in the current state of affairs.
Cargo is filled with packs that are niche or fluff. Modular computers
also has those little things that, while interesting, do not contribute
a whole lot. Maybe this is one of them, but I guess free* coupons are
always a big W.

## Changelog

🆑
add: Added the 'Coupon Master' program for the PDA. Install it to
receive periodical, redeemable coupons for several cargo packs. Requires
NTnet connection and the messenger enabled to work.
add: Coupons are no longer only limited to goodies, but may also apply
discount to some other packs as well.
/🆑

<sup>*minus the photocopier fee</sup>

---------

Co-authored-by: Watermelon914 <37270891+Watermelon914@users.noreply.github.com>
2023-12-25 11:19:56 -08:00

258 lines
9.9 KiB
Plaintext
Raw Blame History

/datum/supply_pack/misc
group = "Miscellaneous Supplies"
/datum/supply_pack/misc/artsupply
name = "Art Supplies"
desc = "Make some happy little accidents with a rapid pipe cleaner layer, \
three spraycans, and lots of crayons!"
cost = CARGO_CRATE_VALUE * 1.8
contains = list(/obj/item/rcl,
/obj/item/storage/toolbox/artistic,
/obj/item/toy/crayon/spraycan = 3,
/obj/item/storage/crayons,
/obj/item/toy/crayon/white,
/obj/item/toy/crayon/rainbow,
)
crate_name = "art supply crate"
crate_type = /obj/structure/closet/crate/wooden
/datum/supply_pack/misc/tattoo_kit
name = "Tattoo Kit"
desc = "A tattoo kit with some extra starting ink."
cost = CARGO_CRATE_VALUE * 1.8
contains = list(
/obj/item/tattoo_kit,
/obj/item/toner = 2)
crate_name = "tattoo crate"
crate_type = /obj/structure/closet/crate/wooden
discountable = SUPPLY_PACK_STD_DISCOUNTABLE
/datum/supply_pack/misc/bicycle
name = "Bicycle"
desc = "Nanotrasen reminds all employees to never toy with powers outside their control."
cost = 1000000 //Special case, we don't want to make this in terms of crates because having bikes be a million credits is the whole meme.
contains = list(/obj/vehicle/ridden/bicycle)
crate_name = "bicycle crate"
crate_type = /obj/structure/closet/crate/large
discountable = SUPPLY_PACK_RARE_DISCOUNTABLE
/datum/supply_pack/misc/bigband
name = "Big Band Instrument Collection"
desc = "Get your sad station movin' and groovin' with this fine collection! \
Contains nine different instruments!"
cost = CARGO_CRATE_VALUE * 10
crate_name = "Big band musical instruments collection"
contains = list(/obj/item/instrument/violin,
/obj/item/instrument/guitar,
/obj/item/instrument/glockenspiel,
/obj/item/instrument/accordion,
/obj/item/instrument/saxophone,
/obj/item/instrument/trombone,
/obj/item/instrument/recorder,
/obj/item/instrument/harmonica,
/obj/structure/musician/piano/unanchored,
)
crate_type = /obj/structure/closet/crate/wooden
/datum/supply_pack/misc/book_crate
name = "Book Crate"
desc = "Surplus from the Nanotrasen Archives, these seven books are sure to be good reads."
cost = CARGO_CRATE_VALUE * 3
access_view = ACCESS_LIBRARY
contains = list(/obj/item/book/codex_gigas,
/obj/item/book/manual/random = 3,
/obj/item/book/random = 3,
)
crate_type = /obj/structure/closet/crate/wooden
/datum/supply_pack/misc/commandkeys
name = "Command Encryption Key Crate"
desc = "A pack of encryption keys that give access to the command radio network. \
Nanotrasen reminds unauthorized employees not to eavesdrop in on secure communications channels, \
or at least to keep heckling of the command staff to a minimum."
access_view = ACCESS_COMMAND
access = ACCESS_COMMAND
cost = CARGO_CRATE_VALUE * 4
contains = list(/obj/item/encryptionkey/headset_com = 3)
crate_type = /obj/structure/closet/crate/secure/centcom
crate_name = "command encryption key crate"
/datum/supply_pack/misc/exploration_drone
name = "Exploration Drone"
desc = "A replacement long-range exploration drone."
cost = CARGO_CRATE_VALUE * 5
contains = list(/obj/item/exodrone)
crate_name = "exodrone crate"
/datum/supply_pack/misc/exploration_fuel
name = "Drone Fuel Pellet"
desc = "A fresh tank of exploration drone fuel."
cost = CARGO_CRATE_VALUE * 3
contains = list(/obj/item/fuel_pellet)
crate_name = "exodrone fuel crate"
/datum/supply_pack/misc/paper
name = "Bureaucracy Crate"
desc = "High stacks of papers on your desk are a big problem - make it pea-sized with \
these bureaucratic supplies! Contains six pens, some camera film, hand labeler supplies, \
a paper bin, a carbon paper bin, three folders, a laser pointer, two clipboards and two stamps."
cost = CARGO_CRATE_VALUE * 3.2
contains = list(/obj/structure/filingcabinet/chestdrawer/wheeled,
/obj/item/camera_film,
/obj/item/hand_labeler,
/obj/item/hand_labeler_refill = 2,
/obj/item/paper_bin,
/obj/item/paper_bin/carbon,
/obj/item/pen/fourcolor = 2,
/obj/item/pen,
/obj/item/pen/fountain,
/obj/item/pen/blue,
/obj/item/pen/red,
/obj/item/folder/blue,
/obj/item/folder/red,
/obj/item/folder/yellow,
/obj/item/clipboard = 2,
/obj/item/stamp,
/obj/item/stamp/denied,
/obj/item/laser_pointer/purple,
)
crate_name = "bureaucracy crate"
/datum/supply_pack/misc/fountainpens
name = "Calligraphy Crate"
desc = "Sign death warrants in style with these seven executive fountain pens."
cost = CARGO_CRATE_VALUE * 1.45
contains = list(/obj/item/storage/box/fountainpens)
crate_type = /obj/structure/closet/crate/wooden
crate_name = "calligraphy crate"
/datum/supply_pack/misc/wrapping_paper
name = "Festive Wrapping Paper Crate"
desc = "Want to mail your loved ones gift-wrapped chocolates, stuffed animals, the Clown's severed head? \
You can do all that, with this crate full of wrapping paper."
cost = CARGO_CRATE_VALUE * 1.8
contains = list(/obj/item/stack/wrapping_paper)
crate_type = /obj/structure/closet/crate/wooden
crate_name = "festive wrapping paper crate"
/datum/supply_pack/misc/funeral
name = "Funeral Supply crate"
desc = "At the end of the day, someone's gonna want someone dead. Give them a proper send-off with these \
funeral supplies! Contains a coffin with burial garmets and flowers."
cost = CARGO_CRATE_VALUE * 1.6
access_view = ACCESS_CHAPEL_OFFICE
contains = list(/obj/item/clothing/under/misc/burial,
/obj/item/food/grown/harebell,
/obj/item/food/grown/poppy/geranium,
)
crate_name = "coffin"
crate_type = /obj/structure/closet/crate/coffin
/datum/supply_pack/misc/empty
name = "Empty Supplypod"
desc = "Presenting the New Nanotrasen-Brand Bluespace Supplypod! Transport cargo with grace and ease! \
Call today and we'll shoot over a demo unit for just 300 credits!"
cost = CARGO_CRATE_VALUE * 0.6 //Empty pod, so no crate refund
contains = list()
drop_pod_only = TRUE
crate_type = null
special_pod = /obj/structure/closet/supplypod/bluespacepod
/datum/supply_pack/misc/empty/generate(atom/A, datum/bank_account/paying_account)
return
/datum/supply_pack/misc/religious_supplies
name = "Religious Supplies Crate"
desc = "Keep your local chaplain happy and well-supplied, lest they call down judgement upon your \
cargo bay. Contains two bottles of holywater, bibles, chaplain robes, and burial garmets."
cost = CARGO_CRATE_VALUE * 6 // it costs so much because the Space Church needs funding to build a cathedral
access_view = ACCESS_CHAPEL_OFFICE
contains = list(/obj/item/reagent_containers/cup/glass/bottle/holywater = 2,
/obj/item/book/bible/booze = 2,
/obj/item/clothing/suit/hooded/chaplain_hoodie = 2,
/obj/item/clothing/under/misc/burial = 2,
)
crate_name = "religious supplies crate"
/datum/supply_pack/misc/candles_bulk
name = "Candle Box Crate"
desc = "Keep your local chapel lit with three candle boxes!"
cost = CARGO_CRATE_VALUE * 1.5
contains = list(/obj/item/storage/fancy/candle_box = 3)
crate_name = "candle box crate"
/datum/supply_pack/misc/toner
name = "Toner Crate"
desc = "Spent too much ink printing butt pictures? Fret not, with these six toner refills, \
you'll be printing butts 'till the cows come home!'"
cost = CARGO_CRATE_VALUE * 2
contains = list(/obj/item/toner = 6)
crate_name = "toner crate"
/datum/supply_pack/misc/toner_large
name = "Toner Crate (Large)"
desc = "Tired of changing toner cartridges? These six extra heavy duty refills contain \
roughly five times as much toner as the base model!"
cost = CARGO_CRATE_VALUE * 6
contains = list(/obj/item/toner/large = 6)
crate_name = "large toner crate"
/datum/supply_pack/misc/training_toolbox
name = "Training Toolbox Crate"
desc = "Hone your combat abiltities with two AURUMILL-Brand Training Toolboxes! \
Guarenteed to count hits made against living beings!"
cost = CARGO_CRATE_VALUE * 2
contains = list(/obj/item/training_toolbox = 2)
crate_name = "training toolbox crate"
///Special supply crate that generates random syndicate gear up to a determined TC value
/datum/supply_pack/misc/syndicate
name = "Assorted Syndicate Gear"
desc = "Contains a random assortment of syndicate gear."
special = TRUE //Cannot be ordered via cargo
contains = list()
crate_name = "syndicate gear crate"
crate_type = /obj/structure/closet/crate
///Total TC worth of contained uplink items
var/crate_value = 30
///What uplink the contents are pulled from
var/contents_uplink_type = UPLINK_TRAITORS
///Generate assorted uplink items, taking into account the same surplus modifiers used for surplus crates
/datum/supply_pack/misc/syndicate/fill(obj/structure/closet/crate/C)
var/list/uplink_items = list()
for(var/datum/uplink_item/item_path as anything in SStraitor.uplink_items_by_type)
var/datum/uplink_item/item = SStraitor.uplink_items_by_type[item_path]
if(item.purchasable_from & contents_uplink_type && item.item)
uplink_items += item
while(crate_value)
var/datum/uplink_item/uplink_item = pick(uplink_items)
if(!uplink_item.surplus || prob(100 - uplink_item.surplus))
continue
if(length(uplink_item.restricted_roles) || length(uplink_item.restricted_species))
continue
if(crate_value < uplink_item.cost)
continue
crate_value -= uplink_item.cost
new uplink_item.item(C)
///Syndicate supply crate that can have its contents value changed by admins, uses a seperate datum to avoid having admins touch the original one.
/datum/supply_pack/misc/syndicate/custom_value
/datum/supply_pack/misc/syndicate/custom_value/proc/setup_contents(value, uplink)
crate_value = value
contents_uplink_type = uplink
/datum/supply_pack/misc/papercutter
name = "Paper Cutters Crate"
desc = "Contains 3 office-grade paper cutters, equipped with sharp blades that can cut any paper into two thin slips.\
Comes with one replacement blade."
cost = CARGO_CRATE_VALUE * 3.5
contains = list(
/obj/item/papercutter = 3,
/obj/item/hatchet/cutterblade = 1,
)
crate_name = "paper cutters crate"
Reference in New Issue View Git Blame Copy Permalink