mirror of
https://github.com/ParadiseSS13/Paradise.git
synced 2026-01-25 08:51:41 +00:00
cf31a774a5
Rechargers now use capacitors as their stock parts and recharge faster depending on the quality of the recharger(may need balancing) Can now also place smaller machinery on tables by clicking on the table while pulling them(microwaves and soda dispensers are some examples)
488 lines
17 KiB
Plaintext
488 lines
17 KiB
Plaintext
/obj/machinery/plantgenes
|
|
name = "plant DNA manipulator"
|
|
desc = "An advanced device designed to manipulate plant genetic makeup."
|
|
icon = 'icons/obj/hydroponics/equipment.dmi'
|
|
pass_flags = PASSTABLE
|
|
icon_state = "dnamod"
|
|
density = 1
|
|
anchored = 1
|
|
|
|
var/obj/item/seeds/seed
|
|
var/obj/item/disk/plantgene/disk
|
|
|
|
var/list/core_genes = list()
|
|
var/list/reagent_genes = list()
|
|
var/list/trait_genes = list()
|
|
|
|
var/datum/plant_gene/target
|
|
var/operation = ""
|
|
var/max_potency = 50 // See RefreshParts() for how these work
|
|
var/max_yield = 2
|
|
var/min_production = 12
|
|
var/max_endurance = 10 // IMPT: ALSO AFFECTS LIFESPAN
|
|
var/min_wchance = 67
|
|
var/min_wrate = 10
|
|
|
|
/obj/machinery/plantgenes/New()
|
|
..()
|
|
component_parts = list()
|
|
component_parts += new /obj/item/circuitboard/plantgenes(null)
|
|
component_parts += new /obj/item/stock_parts/console_screen(null)
|
|
component_parts += new /obj/item/stock_parts/scanning_module(null)
|
|
component_parts += new /obj/item/stock_parts/micro_laser(null)
|
|
component_parts += new /obj/item/stock_parts/manipulator(null)
|
|
RefreshParts()
|
|
|
|
/obj/machinery/plantgenes/upgraded/New()
|
|
..()
|
|
component_parts = list()
|
|
component_parts += new /obj/item/circuitboard/plantgenes(null)
|
|
component_parts += new /obj/item/stock_parts/console_screen(null)
|
|
component_parts += new /obj/item/stock_parts/scanning_module/phasic(null)
|
|
component_parts += new /obj/item/stock_parts/micro_laser/ultra(null)
|
|
component_parts += new /obj/item/stock_parts/manipulator/pico(null)
|
|
RefreshParts()
|
|
|
|
/obj/machinery/plantgenes/Destroy()
|
|
core_genes.Cut()
|
|
reagent_genes.Cut()
|
|
trait_genes.Cut()
|
|
target = null
|
|
QDEL_NULL(seed)
|
|
QDEL_NULL(disk)
|
|
return ..()
|
|
|
|
/obj/machinery/plantgenes/RefreshParts() // Comments represent the max you can set per tier, respectively. seeds.dm [219] clamps these for us but we don't want to mislead the viewer.
|
|
for(var/obj/item/stock_parts/manipulator/M in component_parts)
|
|
if(M.rating > 3)
|
|
max_potency = 95
|
|
else
|
|
max_potency = initial(max_potency) + (M.rating**3) // 51,58,77,95 Clamps at 100
|
|
|
|
max_yield = initial(max_yield) + (M.rating*2) // 4,6,8,10 Clamps at 10
|
|
|
|
for(var/obj/item/stock_parts/scanning_module/SM in component_parts)
|
|
if(SM.rating > 3) //If you create t5 parts I'm a step ahead mwahahaha!
|
|
min_production = 1
|
|
else
|
|
min_production = 12 - (SM.rating * 3) //9,6,3,1. Requires if to avoid going below clamp [1]
|
|
|
|
max_endurance = initial(max_endurance) + (SM.rating * 25) // 35,60,85,100 Clamps at 10min 100max
|
|
|
|
for(var/obj/item/stock_parts/micro_laser/ML in component_parts)
|
|
var/wratemod = ML.rating * 2.5
|
|
min_wrate = Floor(10-wratemod) // 7,5,2,0 Clamps at 0 and 10 You want this low
|
|
min_wchance = 67-(ML.rating*16) // 48,35,19,3 Clamps at 0 and 67 You want this low
|
|
|
|
/obj/machinery/plantgenes/update_icon()
|
|
..()
|
|
overlays.Cut()
|
|
if((stat & (BROKEN|NOPOWER)))
|
|
icon_state = "dnamod-off"
|
|
else
|
|
icon_state = "dnamod"
|
|
if(seed)
|
|
overlays += "dnamod-dna"
|
|
if(panel_open)
|
|
overlays += "dnamod-open"
|
|
|
|
/obj/machinery/plantgenes/attackby(obj/item/I, mob/user, params)
|
|
if(default_deconstruction_screwdriver(user, "dnamod", "dnamod", I))
|
|
update_icon()
|
|
return
|
|
if(exchange_parts(user, I))
|
|
return
|
|
if(default_deconstruction_crowbar(I))
|
|
return
|
|
if(isrobot(user))
|
|
return
|
|
|
|
if(istype(I, /obj/item/seeds))
|
|
if(seed)
|
|
to_chat(user, "<span class='warning'>A sample is already loaded into the machine!</span>")
|
|
else
|
|
if(!user.drop_item())
|
|
return
|
|
insert_seed(I)
|
|
to_chat(user, "<span class='notice'>You add [I] to the machine.</span>")
|
|
interact(user)
|
|
return
|
|
else if(istype(I, /obj/item/disk/plantgene))
|
|
if(disk)
|
|
to_chat(user, "<span class='warning'>A data disk is already loaded into the machine!</span>")
|
|
else
|
|
if(!user.drop_item())
|
|
return
|
|
disk = I
|
|
disk.forceMove(src)
|
|
to_chat(user, "<span class='notice'>You add [I] to the machine.</span>")
|
|
interact(user)
|
|
else
|
|
..()
|
|
|
|
|
|
/obj/machinery/plantgenes/attack_hand(mob/user)
|
|
if(..())
|
|
return
|
|
interact(user)
|
|
|
|
/obj/machinery/plantgenes/attack_ghost(mob/user)
|
|
interact(user)
|
|
|
|
/obj/machinery/plantgenes/interact(mob/user)
|
|
add_fingerprint(user)
|
|
user.set_machine(src)
|
|
if(!user)
|
|
return
|
|
|
|
var/datum/browser/popup = new(user, "plantdna", "Plant DNA Manipulator", 450, 600)
|
|
|
|
var/dat = ""
|
|
|
|
if(operation)
|
|
if(!seed || (!target && operation != "insert"))
|
|
operation = ""
|
|
target = null
|
|
interact(user)
|
|
return
|
|
if((operation == "replace" || operation == "insert") && (!disk || !disk.gene))
|
|
operation = ""
|
|
target = null
|
|
interact(user)
|
|
return
|
|
|
|
dat += "<div class='line'><h3>Confirm Operation</h3></div>"
|
|
dat += "<div class='statusDisplay'>Are you sure you want to [operation] "
|
|
switch(operation)
|
|
if("remove")
|
|
dat += "<span class='highlight'>[target.get_name()]</span> gene from \the <span class='highlight'>[seed]</span>?<br>"
|
|
if("extract")
|
|
dat += "<span class='highlight'>[target.get_name()]</span> gene from \the <span class='highlight'>[seed]</span>?<br>"
|
|
dat += "<span class='bad'>The sample will be destroyed in process!</span>"
|
|
if(istype(target, /datum/plant_gene/core))
|
|
var/datum/plant_gene/core/gene = target
|
|
if(istype(target, /datum/plant_gene/core/potency))
|
|
if(gene.value > max_potency)
|
|
dat += "<br><br>This device's extraction capabilities are currently limited to <span class='highlight'>[max_potency]</span> potency. "
|
|
dat += "Target gene will be degraded to <span class='highlight'>[max_potency]</span> potency on extraction."
|
|
else if(istype(target, /datum/plant_gene/core/lifespan))
|
|
if(gene.value > max_endurance)
|
|
dat += "<br><br>This device's extraction capabilities are currently limited to <span class='highlight'>[max_endurance]</span> lifespan. "
|
|
dat += "Target gene will be degraded to <span class='highlight'>[max_endurance]</span> Lifespan on extraction."
|
|
else if(istype(target, /datum/plant_gene/core/endurance))
|
|
if(gene.value > max_endurance)
|
|
dat += "<br><br>This device's extraction capabilities are currently limited to <span class='highlight'>[max_endurance]</span> endurance. "
|
|
dat += "Target gene will be degraded to <span class='highlight'>[max_endurance]</span> endurance on extraction."
|
|
else if(istype(target, /datum/plant_gene/core/yield))
|
|
if(gene.value > max_yield)
|
|
dat += "<br><br>This device's extraction capabilities are currently limited to <span class='highlight'>[max_yield]</span> yield. "
|
|
dat += "Target gene will be degraded to <span class='highlight'>[max_yield]</span> yield on extraction."
|
|
else if(istype(target, /datum/plant_gene/core/production))
|
|
if(gene.value < min_production)
|
|
dat += "<br><br>This device's extraction capabilities are currently limited to <span class='highlight'>[min_production]</span> production. "
|
|
dat += "Target gene will be degraded to <span class='highlight'>[min_production]</span> production on extraction."
|
|
else if(istype(target, /datum/plant_gene/core/weed_rate))
|
|
if(gene.value < min_wrate)
|
|
dat += "<br><br>This device's extraction capabilities are currently limited to <span class='highlight'>[min_wrate]</span> weed rate. "
|
|
dat += "Target gene will be degraded to <span class='highlight'>[min_wrate]</span> weed rate on extraction."
|
|
else if(istype(target, /datum/plant_gene/core/weed_chance))
|
|
if(gene.value < min_wchance)
|
|
dat += "<br><br>This device's extraction capabilities are currently limited to <span class='highlight'>[min_wchance]</span> weed chance. "
|
|
dat += "Target gene will be degraded to <span class='highlight'>[min_wchance]</span> weed chance on extraction."
|
|
if("replace")
|
|
dat += "<span class='highlight'>[target.get_name()]</span> gene with <span class='highlight'>[disk.gene.get_name()]</span>?<br>"
|
|
if("insert")
|
|
dat += "<span class='highlight'>[disk.gene.get_name()]</span> gene into \the <span class='highlight'>[seed]</span>?<br>"
|
|
dat += "</div><div class='line'><a href='?src=[UID()];gene=[target && target.UID()];op=[operation]'>Confirm</a> "
|
|
dat += "<a href='?src=[UID()];abort=1'>Abort</a></div>"
|
|
popup.set_content(dat)
|
|
popup.open()
|
|
return
|
|
|
|
dat+= "<div class='statusDisplay'>"
|
|
|
|
dat += "<div class='line'><div class='statusLabel'>Plant Sample:</div><div class='statusValue'><a href='?src=[UID()];eject_seed=1'>"
|
|
dat += seed ? seed.name : "None"
|
|
dat += "</a></div></div>"
|
|
|
|
dat += "<div class='line'><div class='statusLabel'>Data Disk:</div><div class='statusValue'><a href='?src=[UID()];eject_disk=1'>"
|
|
if(!disk)
|
|
dat += "None"
|
|
else if(!disk.gene)
|
|
dat += "Empty Disk"
|
|
else
|
|
dat += disk.gene.get_name()
|
|
if(disk && disk.read_only)
|
|
dat += " (RO)"
|
|
dat += "</a></div></div>"
|
|
|
|
dat += "<br></div>"
|
|
|
|
if(seed)
|
|
var/can_insert = disk && disk.gene && disk.gene.can_add(seed)
|
|
var/can_extract = disk && !disk.read_only
|
|
|
|
dat += "<div class='line'><h3>Core Genes</h3></div><div class='statusDisplay'><table>"
|
|
for(var/a in core_genes)
|
|
var/datum/plant_gene/G = a
|
|
if(!G)
|
|
continue
|
|
dat += "<tr><td width='260px'>[G.get_name()]</td><td>"
|
|
if(can_extract)
|
|
dat += "<a href='?src=[UID()];gene=[G.UID()];op=extract'>Extract</a>"
|
|
if(can_insert && istype(disk.gene, G.type))
|
|
dat += "<a href='?src=[UID()];gene=[G.UID()];op=replace'>Replace</a>"
|
|
dat += "</td></tr>"
|
|
dat += "</table></div>"
|
|
|
|
if(seed.yield != -1)
|
|
dat += "<div class='line'><h3>Content Genes</h3></div><div class='statusDisplay'>"
|
|
if(reagent_genes.len)
|
|
dat += "<table>"
|
|
for(var/a in reagent_genes)
|
|
var/datum/plant_gene/G = a
|
|
dat += "<tr><td width='260px'>[G.get_name()]</td><td>"
|
|
if(can_extract)
|
|
dat += "<a href='?src=[UID()];gene=[G.UID()];op=extract'>Extract</a>"
|
|
dat += "<a href='?src=[UID()];gene=[G.UID()];op=remove'>Remove</a>"
|
|
dat += "</td></tr>"
|
|
dat += "</table>"
|
|
else
|
|
dat += "No content-related genes detected in sample.<br>"
|
|
dat += "</div>"
|
|
if(can_insert && istype(disk.gene, /datum/plant_gene/reagent))
|
|
dat += "<a href='?src=[UID()];op=insert'>Insert: [disk.gene.get_name()]</a>"
|
|
|
|
dat += "<div class='line'><h3>Trait Genes</h3></div><div class='statusDisplay'>"
|
|
if(trait_genes.len)
|
|
dat += "<table>"
|
|
for(var/a in trait_genes)
|
|
var/datum/plant_gene/G = a
|
|
dat += "<tr><td width='260px'>[G.get_name()]</td><td>"
|
|
if(can_extract)
|
|
dat += "<a href='?src=[UID()];gene=[G.UID()];op=extract'>Extract</a>"
|
|
dat += "<a href='?src=[UID()];gene=[G.UID()];op=remove'>Remove</a>"
|
|
dat += "</td></tr>"
|
|
dat += "</table>"
|
|
else
|
|
dat += "No trait-related genes detected in sample.<br>"
|
|
if(can_insert && istype(disk.gene, /datum/plant_gene/trait))
|
|
dat += "<a href='?src=[UID()];op=insert'>Insert: [disk.gene.get_name()]</a>"
|
|
dat += "</div>"
|
|
else
|
|
dat += "<br>No sample found.<br><span class='highlight'>Please, insert a plant sample to use this device.</span>"
|
|
popup.set_content(dat)
|
|
popup.open()
|
|
|
|
|
|
/obj/machinery/plantgenes/Topic(var/href, var/list/href_list)
|
|
if(..())
|
|
return 1
|
|
usr.set_machine(src)
|
|
|
|
if(href_list["eject_seed"] && !operation)
|
|
if(seed)
|
|
seed.forceMove(loc)
|
|
seed.verb_pickup()
|
|
seed = null
|
|
update_genes()
|
|
update_icon()
|
|
else
|
|
var/obj/item/I = usr.get_active_hand()
|
|
if(istype(I, /obj/item/seeds))
|
|
if(!usr.drop_item())
|
|
return
|
|
insert_seed(I)
|
|
to_chat(usr, "<span class='notice'>You add [I] to the machine.</span>")
|
|
update_icon()
|
|
else if(href_list["eject_disk"] && !operation)
|
|
if(disk)
|
|
disk.forceMove(loc)
|
|
disk.verb_pickup()
|
|
disk = null
|
|
update_genes()
|
|
else
|
|
var/obj/item/I = usr.get_active_hand()
|
|
if(istype(I, /obj/item/disk/plantgene))
|
|
if(!usr.drop_item())
|
|
return
|
|
disk = I
|
|
disk.forceMove(src)
|
|
to_chat(usr, "<span class='notice'>You add [I] to the machine.</span>")
|
|
else if(href_list["op"] == "insert" && disk && disk.gene && seed)
|
|
if(!operation) // Wait for confirmation
|
|
operation = "insert"
|
|
else
|
|
if(!istype(disk.gene, /datum/plant_gene/core) && disk.gene.can_add(seed))
|
|
seed.genes += disk.gene.Copy()
|
|
if(istype(disk.gene, /datum/plant_gene/reagent))
|
|
seed.reagents_from_genes()
|
|
update_genes()
|
|
repaint_seed()
|
|
operation = ""
|
|
target = null
|
|
|
|
else if(href_list["gene"] && seed)
|
|
var/datum/plant_gene/G = seed.get_gene(href_list["gene"])
|
|
if(!G || !href_list["op"] || !(href_list["op"] in list("remove", "extract", "replace")))
|
|
interact(usr)
|
|
return
|
|
|
|
if(!operation || target != G) // Wait for confirmation
|
|
target = G
|
|
operation = href_list["op"]
|
|
|
|
else if(operation == href_list["op"] && target == G)
|
|
switch(href_list["op"])
|
|
if("remove")
|
|
if(!istype(G, /datum/plant_gene/core))
|
|
seed.genes -= G
|
|
if(istype(G, /datum/plant_gene/reagent))
|
|
seed.reagents_from_genes()
|
|
repaint_seed()
|
|
if("extract")
|
|
if(disk && !disk.read_only)
|
|
disk.gene = G.Copy()
|
|
if(istype(disk.gene, /datum/plant_gene/core))
|
|
var/datum/plant_gene/core/gene = disk.gene
|
|
if(istype(disk.gene, /datum/plant_gene/core/potency))
|
|
gene.value = min(gene.value, max_potency)
|
|
else if(istype(disk.gene, /datum/plant_gene/core/lifespan))
|
|
gene.value = min(gene.value, max_endurance) //INTENDED
|
|
else if(istype(disk.gene, /datum/plant_gene/core/endurance))
|
|
gene.value = min(gene.value, max_endurance)
|
|
else if(istype(disk.gene, /datum/plant_gene/core/production))
|
|
gene.value = max(gene.value, min_production)
|
|
else if(istype(disk.gene, /datum/plant_gene/core/yield))
|
|
gene.value = min(gene.value, max_yield)
|
|
else if(istype(disk.gene, /datum/plant_gene/core/weed_rate))
|
|
gene.value = max(gene.value, min_wrate)
|
|
else if(istype(disk.gene, /datum/plant_gene/core/weed_chance))
|
|
gene.value = max(gene.value, min_wchance)
|
|
disk.update_name()
|
|
QDEL_NULL(seed)
|
|
update_icon()
|
|
if("replace")
|
|
if(disk && disk.gene && istype(disk.gene, G.type) && istype(G, /datum/plant_gene/core))
|
|
seed.genes -= G
|
|
var/datum/plant_gene/core/C = disk.gene.Copy()
|
|
seed.genes += C
|
|
C.apply_stat(seed)
|
|
repaint_seed()
|
|
if("insert")
|
|
if(disk && disk.gene && !istype(disk.gene, /datum/plant_gene/core) && disk.gene.can_add(seed))
|
|
seed.genes += disk.gene.Copy()
|
|
if(istype(disk.gene, /datum/plant_gene/reagent))
|
|
seed.reagents_from_genes()
|
|
repaint_seed()
|
|
|
|
update_genes()
|
|
operation = ""
|
|
target = null
|
|
else if(href_list["abort"])
|
|
operation = ""
|
|
target = null
|
|
|
|
interact(usr)
|
|
|
|
/obj/machinery/plantgenes/proc/insert_seed(obj/item/seeds/S)
|
|
if(!istype(S) || seed)
|
|
return
|
|
S.forceMove(src)
|
|
seed = S
|
|
update_genes()
|
|
update_icon()
|
|
|
|
/obj/machinery/plantgenes/proc/update_genes()
|
|
core_genes = list()
|
|
reagent_genes = list()
|
|
trait_genes = list()
|
|
|
|
if(seed)
|
|
var/gene_paths = list(
|
|
/datum/plant_gene/core/potency,
|
|
/datum/plant_gene/core/yield,
|
|
/datum/plant_gene/core/production,
|
|
/datum/plant_gene/core/endurance,
|
|
/datum/plant_gene/core/lifespan,
|
|
/datum/plant_gene/core/weed_rate,
|
|
/datum/plant_gene/core/weed_chance
|
|
)
|
|
for(var/a in gene_paths)
|
|
core_genes += seed.get_gene(a)
|
|
|
|
for(var/datum/plant_gene/reagent/G in seed.genes)
|
|
reagent_genes += G
|
|
for(var/datum/plant_gene/trait/G in seed.genes)
|
|
trait_genes += G
|
|
|
|
/obj/machinery/plantgenes/proc/repaint_seed()
|
|
if(!seed)
|
|
return
|
|
if(copytext(seed.name, 1, 13) == "experimental")
|
|
return // Already modded name and icon
|
|
seed.name = "experimental " + seed.name
|
|
seed.icon_state = "seed-x"
|
|
|
|
/*
|
|
* Plant DNA disk
|
|
*/
|
|
|
|
/obj/item/disk/plantgene
|
|
name = "plant data disk"
|
|
desc = "A disk for storing plant genetic data."
|
|
icon_state = "datadisk_hydro"
|
|
materials = list(MAT_METAL=30, MAT_GLASS=10)
|
|
var/datum/plant_gene/gene
|
|
var/read_only = 0 //Well, it's still a floppy disk
|
|
|
|
/obj/item/disk/plantgene/New()
|
|
..()
|
|
overlays += "datadisk_gene"
|
|
pixel_x = rand(-5, 5)
|
|
pixel_y = rand(-5, 5)
|
|
|
|
/obj/item/disk/plantgene/Destroy()
|
|
QDEL_NULL(gene)
|
|
return ..()
|
|
|
|
/obj/item/disk/plantgene/attackby(obj/item/W, mob/user, params)
|
|
..()
|
|
if(istype(W, /obj/item/pen))
|
|
var/t = stripped_input(user, "What would you like the label to be?", name, null)
|
|
if(user.get_active_hand() != W)
|
|
return
|
|
if(!in_range(src, user) && loc != user)
|
|
return
|
|
if(t)
|
|
name = "plant data disk - '[t]'"
|
|
else
|
|
name = "plant data disk"
|
|
|
|
/obj/item/disk/plantgene/proc/update_name()
|
|
if(gene)
|
|
name = "[gene.get_name()] (Plant Data Disk)"
|
|
else
|
|
name = "plant data disk"
|
|
|
|
/obj/item/disk/plantgene/attack_self(mob/user)
|
|
read_only = !read_only
|
|
to_chat(user, "<span class='notice'>You flip the write-protect tab to [read_only ? "protected" : "unprotected"].</span>")
|
|
|
|
/obj/item/disk/plantgene/examine(mob/user)
|
|
..()
|
|
to_chat(user, "The write-protect tab is set to [read_only ? "protected" : "unprotected"].")
|
|
|
|
|
|
/*
|
|
* Plant DNA Disks Box
|
|
*/
|
|
/obj/item/storage/box/disks_plantgene
|
|
name = "plant data disks box"
|
|
icon_state = "disk_kit"
|
|
|
|
/obj/item/storage/box/disks_plantgene/New()
|
|
..()
|
|
for(var/i in 1 to 7)
|
|
new /obj/item/disk/plantgene(src)
|