mirror of
https://github.com/CHOMPstation/CHOMPstation.git
synced 2026-07-11 23:22:57 +01:00
Add mining redemption machine (#104)
* Add mining redemption machine * Fix underlying map tile
This commit is contained in:
ReddeyfishVor
@@ -0,0 +1,272 @@
|
||||
/**
|
||||
* A vending machine
|
||||
*/
|
||||
/obj/machinery/vending_mining
|
||||
name = "Mining Redemption Machine"
|
||||
desc = "A place for you to spend your hard earned lucre"
|
||||
icon = 'icons/obj/vending_vr.dmi' //VOREStation Edit - Eris vending machine sprites
|
||||
icon_state = "engivend"
|
||||
layer = 2.9
|
||||
anchored = 1
|
||||
density = 1
|
||||
|
||||
var/icon_vend //Icon_state when vending
|
||||
var/icon_deny = "engivend-deny" //Icon_state when denying access
|
||||
|
||||
// Power
|
||||
use_power = 1
|
||||
idle_power_usage = 10
|
||||
var/vend_power_usage = 150 //actuators and stuff
|
||||
|
||||
// Vending-related
|
||||
var/points = 0 //number of supply points
|
||||
var/active = 1 //No sales pitches if off!
|
||||
var/vend_ready = 1 //Are we ready to vend?? Is it time??
|
||||
var/vend_delay = 10 //How long does it take to vend?
|
||||
var/status_message = "" // Status screen messages like "insufficient funds", displayed in NanoUI
|
||||
|
||||
/*
|
||||
Variables used to initialize the product list
|
||||
These are used for initialization only, and so are optional if
|
||||
product_records is specified
|
||||
*/
|
||||
var/list/products = list(
|
||||
/obj/item/stack/marker_beacon/thirty = 10,
|
||||
/obj/item/weapon/storage/fancy/cigar = 5,
|
||||
/obj/item/weapon/rig/industrial = 5,
|
||||
/obj/item/toy/plushie/face_hugger = 3,
|
||||
/obj/item/weapon/storage/firstaid/regular = 5,
|
||||
/obj/item/weapon/reagent_containers/hypospray/autoinjector/beltminer = 5,
|
||||
/obj/machinery/mining/drill = 5,
|
||||
/obj/machinery/mining/brace = 16,
|
||||
/obj/mecha/working/ripley/mining = 3,
|
||||
/obj/mecha/working/ripley/deathripley = 1,
|
||||
/obj/item/weapon/pickaxe/drill = 5,
|
||||
/obj/item/weapon/pickaxe/jackhammer = 5,
|
||||
/obj/item/weapon/pickaxe/plasmacutter = 5,
|
||||
/obj/item/weapon/pickaxe/borgdrill = 5,
|
||||
/obj/item/weapon/pickaxe/diamonddrill = 3,
|
||||
/obj/item/device/gps/mining = 5,
|
||||
/obj/item/rig_module/device/drill = 3,
|
||||
)
|
||||
|
||||
// For each, use the following pattern:
|
||||
// list(/type/path = amount,/type/path2 = amount2)
|
||||
// Prices for each item, list(/type/path = price), items not in the list don't have a price.
|
||||
var/list/prices = list(
|
||||
/obj/item/weapon/storage/fancy/cigar = 1,
|
||||
/obj/item/weapon/rig/industrial = 10,
|
||||
/obj/item/toy/plushie/face_hugger = 1,
|
||||
/obj/item/weapon/storage/firstaid/regular = 2,
|
||||
/obj/item/weapon/reagent_containers/hypospray/autoinjector/beltminer = 3,
|
||||
/obj/machinery/mining/drill = 1,
|
||||
/obj/machinery/mining/brace = 1,
|
||||
/obj/mecha/working/ripley/mining = 10,
|
||||
/obj/mecha/working/ripley/deathripley = 40,
|
||||
/obj/item/weapon/pickaxe/drill = 3,
|
||||
/obj/item/weapon/pickaxe/jackhammer = 5,
|
||||
/obj/item/weapon/pickaxe/plasmacutter = 7,
|
||||
/obj/item/weapon/pickaxe/borgdrill = 10,
|
||||
/obj/item/weapon/pickaxe/diamonddrill = 15,
|
||||
/obj/item/device/gps/mining = 2,
|
||||
/obj/item/rig_module/device/drill = 3,
|
||||
)
|
||||
|
||||
// List of vending_product items available.
|
||||
var/list/product_records = list()
|
||||
|
||||
/obj/machinery/vending_mining/New()
|
||||
..()
|
||||
spawn(4)
|
||||
|
||||
build_inventory()
|
||||
power_change()
|
||||
|
||||
return
|
||||
return
|
||||
|
||||
/**
|
||||
* Build produdct_records from the products lists
|
||||
*
|
||||
* products, contraband, and prices allow specifying
|
||||
* products that the vending machine is to carry without manually populating
|
||||
* product_records.
|
||||
*/
|
||||
/obj/machinery/vending_mining/proc/build_inventory()
|
||||
var/list/all_products = list(
|
||||
list(products, CAT_NORMAL))
|
||||
|
||||
for(var/current_list in all_products)
|
||||
var/category = current_list[2]
|
||||
|
||||
for(var/entry in current_list[1])
|
||||
var/datum/stored_item/vending_product/product = new/datum/stored_item/vending_product(src, entry)
|
||||
|
||||
product.price = (entry in prices) ? prices[entry] : 0
|
||||
product.amount = (current_list[1][entry]) ? current_list[1][entry] : 1
|
||||
product.category = category
|
||||
|
||||
product_records.Add(product)
|
||||
|
||||
/obj/machinery/vending_mining/Destroy()
|
||||
for(var/datum/stored_item/vending_product/R in product_records)
|
||||
qdel(R)
|
||||
product_records = null
|
||||
return ..()
|
||||
|
||||
/obj/machinery/vending_mining/ex_act(severity)
|
||||
switch(severity)
|
||||
if(1.0)
|
||||
qdel(src)
|
||||
return
|
||||
if(2.0)
|
||||
if(prob(50))
|
||||
qdel(src)
|
||||
return
|
||||
if(3.0)
|
||||
if(prob(25))
|
||||
spawn(0)
|
||||
malfunction()
|
||||
return
|
||||
return
|
||||
else
|
||||
return
|
||||
|
||||
/obj/machinery/vending_mining/attackby(obj/item/weapon/W as obj, mob/user as mob)
|
||||
|
||||
if(istype(W, /obj/item/weapon/coin))
|
||||
var/obj/item/weapon/coin/C = W
|
||||
insert_coin(C, user)
|
||||
|
||||
else if(istype(W, /obj/item/weapon/wrench))
|
||||
playsound(src, W.usesound, 100, 1)
|
||||
if(anchored)
|
||||
user.visible_message("[user] begins unsecuring \the [src] from the floor.", "You start unsecuring \the [src] from the floor.")
|
||||
else
|
||||
user.visible_message("[user] begins securing \the [src] to the floor.", "You start securing \the [src] to the floor.")
|
||||
|
||||
if(do_after(user, 20 * W.toolspeed))
|
||||
if(!src) return
|
||||
to_chat(user, "<span class='notice'>You [anchored? "un" : ""]secured \the [src]!</span>")
|
||||
anchored = !anchored
|
||||
return
|
||||
else
|
||||
..()
|
||||
|
||||
/**
|
||||
* Receive payment with coin
|
||||
*/
|
||||
/obj/machinery/vending_mining/proc/insert_coin(var/obj/item/weapon/coin/C, mob/user)
|
||||
|
||||
//TODO: different point values based on material
|
||||
|
||||
visible_message("<span class='info'>\The [usr] inserts a coin into \the [src].</span>")
|
||||
points++
|
||||
usr.drop_from_inventory(C)
|
||||
qdel(C)
|
||||
return 1
|
||||
|
||||
/obj/machinery/vending_mining/attack_ai(mob/user as mob)
|
||||
return attack_hand(user)
|
||||
|
||||
/obj/machinery/vending_mining/attack_hand(mob/user as mob)
|
||||
if(stat & (BROKEN|NOPOWER))
|
||||
return
|
||||
|
||||
ui_interact(user)
|
||||
|
||||
/**
|
||||
* Display the NanoUI window for the vending machine.
|
||||
*
|
||||
* See NanoUI documentation for details.
|
||||
*/
|
||||
/obj/machinery/vending_mining/ui_interact(mob/user, ui_key = "main", var/datum/nanoui/ui = null, var/force_open = 1)
|
||||
user.set_machine(src)
|
||||
|
||||
var/list/data = list()
|
||||
data["points"] = points
|
||||
var/list/listed_products = list()
|
||||
|
||||
for(var/key = 1 to product_records.len)
|
||||
var/datum/stored_item/vending_product/I = product_records[key]
|
||||
|
||||
listed_products.Add(list(list(
|
||||
"key" = key,
|
||||
"name" = I.item_name,
|
||||
"price" = I.price,
|
||||
"color" = I.display_color,
|
||||
"amount" = I.get_amount())))
|
||||
|
||||
data["products"] = listed_products
|
||||
|
||||
ui = nanomanager.try_update_ui(user, src, ui_key, ui, data, force_open)
|
||||
if(!ui)
|
||||
ui = new(user, src, ui_key, "vending_machine_mining.tmpl", name, 440, 600)
|
||||
ui.set_initial_data(data)
|
||||
ui.open()
|
||||
|
||||
/obj/machinery/vending_mining/Topic(href, href_list)
|
||||
if(stat & (BROKEN|NOPOWER))
|
||||
return
|
||||
if(usr.stat || usr.restrained())
|
||||
return
|
||||
|
||||
if((usr.contents.Find(src) || (in_range(src, usr) && istype(src.loc, /turf))))
|
||||
if((href_list["vend"]) && (vend_ready))
|
||||
|
||||
var/key = text2num(href_list["vend"])
|
||||
var/datum/stored_item/vending_product/R = product_records[key]
|
||||
|
||||
if(R.price <= points)
|
||||
points -= R.price
|
||||
vend(R, usr)
|
||||
else
|
||||
to_chat(usr, "<span class='danger'>Not enough points. Requisition Denied.</span>")
|
||||
|
||||
add_fingerprint(usr)
|
||||
nanomanager.update_uis(src)
|
||||
|
||||
/obj/machinery/vending_mining/proc/vend(datum/stored_item/vending_product/R, mob/user)
|
||||
|
||||
vend_ready = 0 //One thing at a time!!
|
||||
status_message = "Vending..."
|
||||
nanomanager.update_uis(src)
|
||||
|
||||
use_power(vend_power_usage) //actuators and stuff
|
||||
if(icon_vend) //Show the vending animation if needed
|
||||
flick(icon_vend,src)
|
||||
|
||||
visible_message("<span class='notice'>\The [src]'s motors wirr, retreiving an item.</span>")
|
||||
spawn(vend_delay)
|
||||
R.get_product(get_turf(src))
|
||||
if(prob(1))
|
||||
sleep(3)
|
||||
if(R.get_product(get_turf(src)))
|
||||
visible_message("<span class='notice'>\The [src] clunks as it vends an additional item.</span>")
|
||||
|
||||
status_message = ""
|
||||
vend_ready = 1
|
||||
nanomanager.update_uis(src)
|
||||
return 1
|
||||
|
||||
/obj/machinery/vending_mining/power_change()
|
||||
..()
|
||||
if(stat & BROKEN)
|
||||
icon_state = "[initial(icon_state)]-broken"
|
||||
else
|
||||
if(!(stat & NOPOWER))
|
||||
icon_state = initial(icon_state)
|
||||
else
|
||||
spawn(rand(0, 15))
|
||||
icon_state = "[initial(icon_state)]-off"
|
||||
|
||||
//Oh no we're malfunctioning! Dump out some product and break.
|
||||
/obj/machinery/vending_mining/proc/malfunction()
|
||||
for(var/datum/stored_item/vending_product/R in product_records)
|
||||
while(R.get_amount()>0)
|
||||
R.get_product(loc)
|
||||
break
|
||||
|
||||
stat |= BROKEN
|
||||
icon_state = "[initial(icon_state)]-broken"
|
||||
return
|
||||
Reference in New Issue
Block a user