cyberpresidentvanellope/CHOMPstation
1
0
Fork 0
mirror of https://github.com/CHOMPstation/CHOMPstation.git synced 2026-08-21 11:06:25 +01:00
Code Issues Packages Projects Releases Wiki Activity
Files
9c62bb5f55c0f2fefaf4e5ea2a8dfce8fa32d3a3
CHOMPstation/code/modules/mining/orm_vr/equipment_vendor.dm
T
SharkmareandGitHub 47526a33a8 Fixing the pure dread i felt when looking at this 
Just because this is for mining equipment doesnt mean the indenting should look like a resonator blew up on the file
2019-03-20 14:52:00 +01:00

206 lines
9.7 KiB
Plaintext
Raw Blame History

/**********************Mining Equipment Locker**************************/
/obj/machinery/mineral/equipment_vendor
name = "mining equipment vendor"
desc = "An equipment vendor for miners, points collected at an ore redemption machine can be spent here."
icon = 'icons/obj/machines/mining_machines_vr.dmi'
icon_state = "mining"
density = TRUE
anchored = TRUE
circuit = /obj/item/weapon/circuitboard/mining_equipment_vendor
var/icon_deny = "mining-deny"
var/obj/item/weapon/card/id/inserted_id
var/list/prize_list = list(
new /datum/data/mining_equipment("1 Marker Beacon",/obj/item/stack/marker_beacon,10),
new /datum/data/mining_equipment("10 Marker Beacons",/obj/item/stack/marker_beacon/ten, 100),
new /datum/data/mining_equipment("30 Marker Beacons",/obj/item/stack/marker_beacon/thirty,300),
new /datum/data/mining_equipment("Whiskey",/obj/item/weapon/reagent_containers/food/drinks/bottle/whiskey,125),
new /datum/data/mining_equipment("Absinthe",/obj/item/weapon/reagent_containers/food/drinks/bottle/absinthe,125),
new /datum/data/mining_equipment("Cigar",/obj/item/clothing/mask/smokable/cigarette/cigar/havana,150),
new /datum/data/mining_equipment("Soap",/obj/item/weapon/soap/nanotrasen,200),
new /datum/data/mining_equipment("Laser Pointer",/obj/item/device/laser_pointer,900),
new /datum/data/mining_equipment("Plush Toy",/obj/random/plushie,300),
// TODO new /datum/data/mining_equipment("Advanced Scanner",/obj/item/device/t_scanner/adv_mining_scanner,800),
new /datum/data/mining_equipment("Fulton Beacon",/obj/item/fulton_core,500),
new /datum/data/mining_equipment("Shelter Capsule",/obj/item/device/survivalcapsule,500),
// TODO new /datum/data/mining_equipment("Explorer's Webbing",/obj/item/storage/belt/mining,500),
new /datum/data/mining_equipment("Point Transfer Card",/obj/item/weapon/card/mining_point_card,500),
new /datum/data/mining_equipment("Survival Medipen",/obj/item/weapon/reagent_containers/hypospray/autoinjector/miner,500),
new /datum/data/mining_equipment("Mini-Translocator",/obj/item/device/perfect_tele/one_beacon,1200),
// new /datum/data/mining_equipment("Kinetic Crusher",/obj/item/twohanded/required/kinetic_crusher,750),
new /datum/data/mining_equipment("Kinetic Accelerator",/obj/item/weapon/gun/energy/kinetic_accelerator,900),
new /datum/data/mining_equipment("Resonator",/obj/item/resonator,900),
new /datum/data/mining_equipment("Fulton Pack",/obj/item/extraction_pack,1200),
new /datum/data/mining_equipment("Silver Pickaxe",/obj/item/weapon/pickaxe/silver,1200),
//new /datum/data/mining_equipment("Mining Conscription Kit",/obj/item/storage/backpack/duffelbag/mining_conscript,1000),
new /datum/data/mining_equipment("Space Cash",/obj/item/weapon/spacecash/c1000,2000),
new /datum/data/mining_equipment("Industrial Hardsuit - Control Module",/obj/item/weapon/rig/industrial,2000),
new /datum/data/mining_equipment("Industrial Hardsuit - Plasma Cutter",/obj/item/rig_module/device/plasmacutter,800),
new /datum/data/mining_equipment("Industrial Hardsuit - Drill",/obj/item/rig_module/device/drill,2000),
new /datum/data/mining_equipment("Industrial Hardsuit - Ore Scanner",/obj/item/rig_module/device/orescanner,1000),
new /datum/data/mining_equipment("Industrial Hardsuit - Material Scanner",/obj/item/rig_module/vision/material,500),
new /datum/data/mining_equipment("Industrial Hardsuit - Maneuvering Jets",/obj/item/rig_module/maneuvering_jets,1250),
new /datum/data/mining_equipment("Diamond Pickaxe",/obj/item/weapon/pickaxe/diamond,2000),
new /datum/data/mining_equipment("Super Resonator",/obj/item/resonator/upgraded,2500),
new /datum/data/mining_equipment("Jump Boots",/obj/item/clothing/shoes/bhop,2500),
new /datum/data/mining_equipment("Luxury Shelter Capsule",/obj/item/device/survivalcapsule/luxury,3100),
new /datum/data/mining_equipment("KA White Tracer Rounds",/obj/item/borg/upgrade/modkit/tracer,125),
new /datum/data/mining_equipment("KA Adjustable Tracer Rounds",/obj/item/borg/upgrade/modkit/tracer/adjustable,175),
new /datum/data/mining_equipment("KA Super Chassis",/obj/item/borg/upgrade/modkit/chassis_mod,250),
new /datum/data/mining_equipment("KA Hyper Chassis",/obj/item/borg/upgrade/modkit/chassis_mod/orange,300),
new /datum/data/mining_equipment("KA Range Increase",/obj/item/borg/upgrade/modkit/range,1000),
new /datum/data/mining_equipment("KA Damage Increase",/obj/item/borg/upgrade/modkit/damage,1000),
new /datum/data/mining_equipment("KA Efficiency Increase",/obj/item/borg/upgrade/modkit/efficiency,1200),
new /datum/data/mining_equipment("KA AoE Damage",/obj/item/borg/upgrade/modkit/aoe/mobs,2000),
)
/datum/data/mining_equipment
var/equipment_name = "generic"
var/equipment_path = null
var/cost = 0
/datum/data/mining_equipment/New(name, path, cost)
src.equipment_name = name
src.equipment_path = path
src.cost = cost
/obj/machinery/power/quantumpad/initialize()
. = ..()
default_apply_parts()
/obj/machinery/mineral/equipment_vendor/power_change()
var/old_stat = stat
..()
if(old_stat != stat)
update_icon()
if(inserted_id && !powered())
visible_message("<span class='notice'>The ID slot indicator light flickers on \the [src] as it spits out a card before powering down.</span>")
inserted_id.forceMove(get_turf(src))
/obj/machinery/mineral/equipment_vendor/update_icon()
if(panel_open)
icon_state = "[initial(icon_state)]-open"
else if(powered())
icon_state = initial(icon_state)
else
icon_state = "[initial(icon_state)]-off"
/obj/machinery/mineral/equipment_vendor/attack_hand(mob/user)
if(..())
return
interact(user)
/obj/machinery/mineral/equipment_vendor/attack_ghost(mob/user)
interact(user)
/obj/machinery/mineral/equipment_vendor/interact(mob/user)
user.set_machine(src)
var/dat
dat +="<div class='statusDisplay'>"
if(istype(inserted_id))
dat += "You have [inserted_id.mining_points] mining points collected. <A href='?src=\ref[src];choice=eject'>Eject ID.</A><br>"
else
dat += "No ID inserted. <A href='?src=\ref[src];choice=insert'>Insert ID.</A><br>"
dat += "</div>"
dat += "<br><b>Equipment point cost list:</b><BR><table border='0' width='100%'>"
for(var/datum/data/mining_equipment/prize in prize_list)
dat += "<tr><td>[prize.equipment_name]</td><td>[prize.cost]</td><td><A href='?src=\ref[src];purchase=\ref[prize]'>Purchase</A></td></tr>"
dat += "</table>"
var/datum/browser/popup = new(user, "miningvendor", "Mining Equipment Vendor", 400, 600)
popup.set_content(dat)
popup.open()
/obj/machinery/mineral/equipment_vendor/Topic(href, href_list)
if(..())
return 1
if(href_list["choice"])
if(istype(inserted_id))
if(href_list["choice"] == "eject")
to_chat(usr, "<span class='notice'>You eject the ID from [src]'s card slot.</span>")
usr.put_in_hands(inserted_id)
inserted_id = null
else if(href_list["choice"] == "insert")
var/obj/item/weapon/card/id/I = usr.get_active_hand()
if(istype(I) && !inserted_id && usr.unEquip(I))
I.forceMove(src)
inserted_id = I
interact(usr)
to_chat(usr, "<span class='notice'>You insert the ID into [src]'s card slot.</span>")
else
to_chat(usr, "<span class='warning'>No valid ID.</span>")
flick(icon_deny, src)
if(href_list["purchase"])
if(istype(inserted_id))
var/datum/data/mining_equipment/prize = locate(href_list["purchase"])
if (!prize || !(prize in prize_list))
to_chat(usr, "<span class='warning'>Error: Invalid choice!</span>")
flick(icon_deny, src)
return
if(prize.cost > inserted_id.mining_points)
to_chat(usr, "<span class='warning'>Error: Insufficent points for [prize.equipment_name]!</span>")
flick(icon_deny, src)
else
inserted_id.mining_points -= prize.cost
to_chat(usr, "<span class='notice'>[src] clanks to life briefly before vending [prize.equipment_name]!</span>")
new prize.equipment_path(drop_location())
else
to_chat(usr, "<span class='warning'>Error: Please insert a valid ID!</span>")
flick(icon_deny, src)
updateUsrDialog()
/obj/machinery/mineral/equipment_vendor/attackby(obj/item/I, mob/user, params)
if(default_deconstruction_screwdriver(user, I))
updateUsrDialog()
return
if(default_part_replacement(user, I))
return
if(default_deconstruction_crowbar(user, I))
return
if(istype(I, /obj/item/mining_voucher))
if(!powered())
return
RedeemVoucher(I, user)
return
if(istype(I,/obj/item/weapon/card/id))
if(!powered())
return
else if(!inserted_id && user.unEquip(I))
I.forceMove(src)
inserted_id = I
interact(user)
return
..()
/obj/machinery/mineral/equipment_vendor/dismantle()
if(inserted_id)
inserted_id.forceMove(loc) //Prevents deconstructing the ORM from deleting whatever ID was inside it.
. = ..()
/obj/machinery/mineral/equipment_vendor/proc/RedeemVoucher(obj/item/mining_voucher/voucher, mob/redeemer)
var/selection = input(redeemer, "Pick your equipment", "Mining Voucher Redemption") as null|anything in list("Kinetic Accelerator", "Resonator", "Mining Drone", "Advanced Scanner", "Crusher")
if(!selection || !Adjacent(redeemer) || voucher.loc != redeemer)
return
var/drop_location = drop_location()
switch(selection)
if("Kinetic Accelerator")
new /obj/item/weapon/gun/energy/kinetic_accelerator(drop_location)
if("Resonator")
new /obj/item/resonator(drop_location)
// if("Mining Drone")
// new /obj/item/storage/box/drone_kit(drop_location)
// if("Advanced Scanner")
// new /obj/item/device/t_scanner/adv_mining_scanner(drop_location)
// if("Crusher")
// new /obj/item/twohanded/required/mining_hammer(drop_location)
qdel(voucher)
/obj/machinery/mineral/equipment_vendor/ex_act(severity, target)
var/datum/effect/effect/system/spark_spread/s = new /datum/effect/effect/system/spark_spread
s.set_up(5, 1, src)
s.start()
if(prob(50 / severity) && severity < 3)
qdel(src)
Reference in New Issue View Git Blame Copy Permalink