/obj/submachine/seed_manipulator/ name = "PlantMaster Mk3" desc = "An advanced machine used for manipulating the genes of plant seeds. It also features an inbuilt seed extractor." density = 1 anchored = 1 mats = 10 deconstruct_flags = DECON_SCREWDRIVER | DECON_WRENCH | DECON_CROWBAR | DECON_WELDER | DECON_WIRECUTTERS | DECON_MULTITOOL icon = 'icons/obj/objects.dmi' icon_state = "geneman-on" flags = NOSPLASH var/mode = "overview" var/list/seeds = list() var/seedfilter = null var/seedoutput = 1 var/dialogue_open = 0 var/obj/item/seed/splicing1 = null var/obj/item/seed/splicing2 = null var/list/extractables = list() var/obj/item/reagent_containers/glass/inserted = null var/const/genes_header = {" Type Gen MR? PR? LS? Y? P? E? "} attack_ai(var/mob/user as mob) return attack_hand(user) attack_hand(var/mob/user as mob) user.machine = src var/header_thing_chui_toggle = (user.client && !user.client.use_chui) ? "" : "" var/dat = {"[header_thing_chui_toggle]

[src.name]

[src.inserted ? "⏏ [src.inserted] ([src.inserted.reagents.total_volume]/[src.inserted.reagents.maximum_volume]) • " : "" ] [src.extractables.len > 0 ? "⏏ " : "" ][src.extractables.len] extractable\s • [src.seeds.len > 0 ? "⏏ " : "" ][src.seeds.len] seed\s
Overview • Seed Extraction • Seed List
"} if (src.mode == "overview") dat += "Overview

" if (src.inserted) dat += "Receptacle: [src.inserted] ([src.inserted.reagents.total_volume]/[src.inserted.reagents.maximum_volume]) (Eject)
" dat += "Contents: " if(src.inserted.reagents.reagent_list.len) for(var/current_id in inserted.reagents.reagent_list) var/datum/reagent/current_reagent = inserted.reagents.reagent_list[current_id] dat += "
[current_reagent.volume] units of [current_reagent.name]" else dat += "Empty" else dat += "No receptacle inserted!" dat += "
" if(src.seeds.len) dat += "
[src.seeds.len] Seeds Ready for Experimentation" else dat += "
No Seeds inserted!" dat += "
" if(src.extractables.len) dat += "
[src.extractables.len] Items Ready for Extraction" else dat += "
No Extractable Produce inserted!" else if (src.mode == "extraction") dat += "Seed Extraction
" if (src.seedoutput) dat += "Extracted seeds will be ejected from the machine." else dat += "Extracted seeds will be retained within the machine." dat += {"

[genes_header] "} if(src.extractables.len) for (var/obj/item/I in src.extractables) var/geneout = "" if (istype(I, /obj/item/seed)) var/obj/item/seed/S = I geneout = QuickAnalysisRow(S, S.planttype, S.plantgenes) else if (istype(I, /obj/item/reagent_containers/food/snacks/plant)) var/obj/item/reagent_containers/food/snacks/plant/S = I geneout = QuickAnalysisRow(S, S.planttype, S.plantgenes) dat += {" [geneout] "} else dat += "" dat += "
Name Controls
✎ 🔍 ⏏ [I.name] Extract
No Extractable Produce inserted!
" else if (src.mode == "seedlist") dat += "Seed List
" if (src.seedfilter) dat += "Filter: \"[src.seedfilter]\"
" else dat += "Filter: None
" dat += "
" var/allow_infusion = 0 if (src.inserted) if (src.inserted.reagents.total_volume) allow_infusion = 1 if(src.seeds.len) dat += {" [genes_header] "} for (var/obj/item/seed/S in src.seeds) if (!src.seedfilter || findtext(src.seedfilter, S.name, 1, null)) dat += {" [QuickAnalysisRow(S, S.planttype, S.plantgenes)] "} else continue dat += "
Name Damage Controls
✎ 🔍 ⏏ [S.name] [S.seeddamage]% [S == src.splicing1 ? "Cancel" : "Splice"] [allow_infusion ? "Infuse" : "Infuse"]
" else dat += "No Seeds inserted!" else if (src.mode == "splicing") if (src.splicing1 && src.splicing2) dat += {"Seed Splicing
[genes_header] [QuickAnalysisRow(src.splicing1, src.splicing1.planttype, src.splicing1.plantgenes)] [QuickAnalysisRow(src.splicing2, src.splicing2.planttype, src.splicing2.plantgenes)]
Seed
[src.splicing1]
[src.splicing2]
"} var/splice_chance = 100 var/datum/plant/P1 = src.splicing1.planttype var/datum/plant/P2 = src.splicing2.planttype var/genome_difference = 0 if (P1.genome > P2.genome) genome_difference = P1.genome - P2.genome else genome_difference = P2.genome - P1.genome splice_chance -= genome_difference * 10 splice_chance -= src.splicing1.seeddamage splice_chance -= src.splicing2.seeddamage if (src.splicing1.plantgenes.commuts) for (var/datum/plant_gene_strain/splicing/S in src.splicing1.plantgenes.commuts) if (S.negative) splice_chance -= S.splice_mod else splice_chance += S.splice_mod if (src.splicing2.plantgenes.commuts) for (var/datum/plant_gene_strain/splicing/S in src.splicing2.plantgenes.commuts) if (S.negative) splice_chance -= S.splice_mod else splice_chance += S.splice_mod splice_chance = max(0,min(splice_chance,100)) dat += "Chance of Successful Splice: [splice_chance]%
" dat += "(Proceed) (Cancel)
" if (src.seedoutput) dat += "New seeds will be ejected from the machine." else dat += "New seeds will be retained within the machine." else dat += {"Splice Error.
Please click here to return to the Seed List."} else dat += {"Software Error.
Please click here to return to the Overview."} dat += {"
Genetic display key: Dominant / Recessive "} user.Browse(dat, "window=plantmaster;size=800x400") onclose(user, "rextractor") Topic(href, href_list) if((get_dist(usr,src) > 1) && !issilicon(usr) && !isAI(usr)) boutput(usr, "You need to be closer to the machine to do that!") return if(href_list["page"]) var/ops = text2num(href_list["page"]) switch(ops) if(2) src.mode = "extraction" if(3) src.mode = "seedlist" else src.mode = "overview" src.updateUsrDialog() else if(href_list["ejectbeaker"]) if (!src.inserted) boutput(usr, "No receptacle found to eject.") else src.inserted.set_loc(src.loc) usr.put_in_hand_or_eject(src.inserted) // try to eject it into the users hand, if we can src.inserted = null src.updateUsrDialog() else if(href_list["ejectseeds"]) for (var/obj/item/seed/S in src.seeds) src.seeds.Remove(S) S.set_loc(src.loc) usr.put_in_hand_or_eject(S) // try to eject it into the users hand, if we can src.updateUsrDialog() else if(href_list["ejectextractables"]) for (var/obj/item/I in src.extractables) src.extractables.Remove(I) I.set_loc(src.loc) usr.put_in_hand_or_eject(I) // try to eject it into the users hand, if we can src.updateUsrDialog() else if(href_list["eject"]) var/obj/item/I = locate(href_list["eject"]) in src if (!istype(I)) return if (istype(I,/obj/item/seed)) src.seeds.Remove(I) else src.extractables.Remove(I) I.set_loc(src.loc) usr.put_in_hand_or_eject(I) // try to eject it into the users hand, if we can src.updateUsrDialog() else if(href_list["label"]) var/obj/item/I = locate(href_list["label"]) in src if (istype(I)) var/newName = copytext(strip_html(input(usr,"What do you want to label [I.name]?","[src.name]",I.name) ),1, 129) if (newName && I && get_dist(src, usr) < 2) I.name = newName src.updateUsrDialog() else if(href_list["filter"]) src.seedfilter = copytext(strip_html(input(usr,"Search for seeds by name? (Enter nothing to clear filter)","[src.name]",null)), 1, 257) src.updateUsrDialog() else if(href_list["analyze"]) var/obj/item/I = locate(href_list["analyze"]) in src if (istype(I,/obj/item/seed/)) var/obj/item/seed/S = I if (!istype(S.planttype,/datum/plant/) || !istype(S.plantgenes,/datum/plantgenes/)) boutput(usr, "Genetic structure of seed corrupted. Cannot scan.") else HYPgeneticanalysis(usr,S,S.planttype,S.plantgenes) else if (istype(I,/obj/item/reagent_containers/food/snacks/plant/)) var/obj/item/reagent_containers/food/snacks/plant/P = I if (!istype(P.planttype,/datum/plant/) || !istype(P.plantgenes,/datum/plantgenes/)) boutput(usr, "Genetic structure of item corrupted. Cannot scan.") else HYPgeneticanalysis(usr,P,P.planttype,P.plantgenes) else boutput(usr, "Item cannot be scanned.") src.updateUsrDialog() else if(href_list["outputmode"]) src.seedoutput = !src.seedoutput src.updateUsrDialog() else if(href_list["extract"]) var/obj/item/I = locate(href_list["extract"]) in src if (istype(I,/obj/item/reagent_containers/food/snacks/plant/)) var/obj/item/reagent_containers/food/snacks/plant/P = I var/datum/plant/stored = P.planttype var/datum/plantgenes/DNA = P.plantgenes var/give = rand(2,5) if (!stored || !DNA) give = 0 if (HYPCheckCommut(DNA,/datum/plant_gene_strain/seedless)) give = 0 if (!give) boutput(usr, "No viable seeds found in [I].") else boutput(usr, "Extracted [give] seeds from [I].") while (give > 0) var/obj/item/seed/S if (stored.unique_seed) S = new stored.unique_seed(src) else S = new /obj/item/seed(src,0) var/datum/plantgenes/SDNA = S.plantgenes if (!stored.unique_seed && !stored.hybrid) S.generic_seed_setup(stored) HYPpassplantgenes(DNA,SDNA) S.name = stored.name if (stored.hybrid) var/datum/plant/hybrid = new /datum/plant(S) for(var/V in stored.vars) if (issaved(stored.vars[V]) && V != "holder") hybrid.vars[V] = stored.vars[V] S.planttype = hybrid S.name = hybrid.name var/seedname = S.name if (DNA.mutation && istype(DNA.mutation,/datum/plantmutation/)) var/datum/plantmutation/MUT = DNA.mutation if (!MUT.name_prefix && !MUT.name_prefix && MUT.name) seedname = "[MUT.name]" else if (MUT.name_prefix || MUT.name_suffix) seedname = "[MUT.name_prefix][seedname][MUT.name_suffix]" S.name = "[seedname] seed" S.generation = P.generation if (!src.seedoutput) src.seeds.Add(S) else S.set_loc(src.loc) give -= 1 src.extractables.Remove(I) qdel(I) else boutput(usr, "This item is not viable extraction produce.") src.updateUsrDialog() else if(href_list["splice_select"]) var/obj/item/I = locate(href_list["splice_select"]) in src if (!istype(I)) return if (src.splicing1) if (I == src.splicing1) src.splicing1 = null else src.splicing2 = I src.mode = "splicing" else src.splicing1 = I src.updateUsrDialog() else if(href_list["splice_cancel"]) src.splicing1 = null src.splicing2 = null src.mode = "seedlist" src.updateUsrDialog() else if(href_list["infuse"]) if (dialogue_open) return var/obj/item/seed/S = locate(href_list["infuse"]) in src if (!istype(S)) return if (!src.inserted) boutput(usr, "No reagent container available for infusions.") else if (src.inserted.reagents.total_volume < 10) boutput(usr, "You require at least ten units of a reagent to infuse a seed.") else var/list/usable_reagents = list() var/datum/reagent/R = null for(var/current_id in src.inserted.reagents.reagent_list) var/datum/reagent/current_reagent = src.inserted.reagents.reagent_list[current_id] if (current_reagent.volume >= 10) usable_reagents += current_reagent if (!usable_reagents.len) boutput(usr, "You require at least ten units of a reagent to infuse a seed.") else dialogue_open = 1 R = input(usr, "Use which reagent to infuse the seed?", "[src.name]", 0) in usable_reagents if (!R || !S) return switch(S.HYPinfusionS(R.id,src)) if (1) boutput(usr, "ERROR: Seed has been destroyed.") if (2) boutput(usr, "ERROR: Reagent lost.") if (3) boutput(usr, "ERROR: Unknown error. Please try again.") else boutput(usr, "Infusion of [R.name] successful.") src.inserted.reagents.remove_reagent(R.id,10) dialogue_open = 0 src.updateUsrDialog() else if(href_list["splice"]) // Get the seeds being spliced first var/obj/item/seed/seed1 = src.splicing1 var/obj/item/seed/seed2 = src.splicing2 // Now work out whether we fail to splice or not based on species compatability // And the health of the two seeds you're using var/splice_chance = 100 var/datum/plant/P1 = seed1.planttype var/datum/plant/P2 = seed2.planttype // Sanity check - if something's wrong, just fail the splice and be done with it if (!P1 || !P2) splice_chance = 0 else // Seeds from different families aren't easy to splice var/genome_difference = 0 if (P1.genome > P2.genome) genome_difference = P1.genome - P2.genome else genome_difference = P2.genome - P1.genome splice_chance -= genome_difference * 10 // Deduct chances if the seeds are damaged from infusing or w/e else splice_chance -= seed1.seeddamage splice_chance -= seed2.seeddamage if (seed1.plantgenes.commuts) for (var/datum/plant_gene_strain/splicing/S in seed1.plantgenes.commuts) if (S.negative) splice_chance -= S.splice_mod else splice_chance += S.splice_mod if (seed2.plantgenes.commuts) for (var/datum/plant_gene_strain/splicing/S in seed2.plantgenes.commuts) if (S.negative) splice_chance -= S.splice_mod else splice_chance += S.splice_mod // Cap probability between 0 and 100 splice_chance = max(0,min(splice_chance,100)) if (prob(splice_chance)) // We're good, so start splicing! // Create the new seed var/obj/item/seed/S = unpool(/obj/item/seed) S.set_loc(src) var/datum/plant/P = new /datum/plant(S) var/datum/plantgenes/DNA = new /datum/plantgenes(S) S.planttype = P S.plantgenes = DNA P.hybrid = 1 S.generation = max(seed1.generation, seed2.generation) + 1 var/datum/plantgenes/P1DNA = seed1.plantgenes var/datum/plantgenes/P2DNA = seed2.plantgenes var/dominance = P1DNA.alleles[1] - P2DNA.alleles[1] var/datum/plant/dominantspecies = null var/datum/plant/submissivespecies = null var/datum/plantgenes/dominantDNA = null var/datum/plantgenes/submissiveDNA = null // Establish which species allele is dominant if (dominance > 0) dominantspecies = P1 submissivespecies = P2 dominantDNA = P1DNA submissiveDNA = P2DNA else if (dominance < 0) dominantspecies = P2 submissivespecies = P1 dominantDNA = P2DNA submissiveDNA = P1DNA else // If neither, we pick randomly unlike the rest of the allele resolutions if (prob(50)) dominantspecies = P1 submissivespecies = P2 dominantDNA = P1DNA submissiveDNA = P2DNA else dominantspecies = P2 submissivespecies = P1 dominantDNA = P2DNA submissiveDNA = P1DNA // Set up the base variables first /* if (!dominantspecies.hybrid) P.name = "Hybrid [dominantspecies.name]" else // Just making sure we dont get hybrid hybrid hybrid tomato seed or w/e P.name = "[dominantspecies.name]" */ if (dominantspecies.name != submissivespecies.name) var/part1 = copytext(dominantspecies.name, 1, round(length(dominantspecies.name) * 0.65 + 1.5)) var/part2 = copytext(submissivespecies.name, round(length(submissivespecies.name) * 0.45 + 1), 0) P.name = "[part1][part2]" else P.name = dominantspecies.name if (dominantspecies.sprite) P.sprite = dominantspecies.sprite else P.sprite = dominantspecies.name P.special_icon = dominantspecies.special_icon P.special_dmi = dominantspecies.special_dmi P.crop = dominantspecies.crop P.force_seed_on_harvest = dominantspecies.force_seed_on_harvest P.harvestable = dominantspecies.harvestable P.harvests = dominantspecies.harvests P.isgrass = dominantspecies.isgrass P.cantscan = dominantspecies.cantscan P.nectarlevel = dominantspecies.nectarlevel S.name = "[P.name] seed" var/newgenome = P1.genome + P2.genome if (newgenome) newgenome = round(newgenome / 2) P.genome = newgenome for (var/datum/plantmutation/MUT in dominantspecies.mutations) // Only share the dominant species mutations or else shit might get goofy P.mutations += new MUT.type(P) if (dominantDNA.mutation) DNA.mutation = new dominantDNA.mutation.type(DNA) P.commuts = P1.commuts | P2.commuts // We merge these and share them DNA.commuts = P1DNA.commuts | P2DNA.commuts if(submissiveDNA.mutation) P.assoc_reagents = P1.assoc_reagents | P2.assoc_reagents | submissiveDNA.mutation.assoc_reagents // URS EDIT -- BOTANY UNLEASHED? else P.assoc_reagents = P1.assoc_reagents | P2.assoc_reagents // Now we start combining genetic traits based on allele dominance // If one is dominant and the other recessive, use the dominant value // If both are dominant or recessive, average the values out P.growtime = SpliceMK2(P1DNA.alleles[2],P2DNA.alleles[2],P1.vars["growtime"],P2.vars["growtime"]) DNA.growtime = SpliceMK2(P1DNA.alleles[2],P2DNA.alleles[2],P1DNA.vars["growtime"],P2DNA.vars["growtime"]) P.harvtime = SpliceMK2(P1DNA.alleles[3],P2DNA.alleles[3],P1.vars["harvtime"],P2.vars["harvtime"]) DNA.harvtime = SpliceMK2(P1DNA.alleles[3],P2DNA.alleles[3],P1DNA.vars["harvtime"],P2DNA.vars["harvtime"]) P.cropsize = SpliceMK2(P1DNA.alleles[4],P2DNA.alleles[4],P1.vars["cropsize"],P2.vars["cropsize"]) DNA.cropsize = SpliceMK2(P1DNA.alleles[4],P2DNA.alleles[4],P1DNA.vars["cropsize"],P2DNA.vars["cropsize"]) P.harvests = SpliceMK2(P1DNA.alleles[5],P2DNA.alleles[5],P1.vars["harvests"],P2.vars["harvests"]) DNA.harvests = SpliceMK2(P1DNA.alleles[5],P2DNA.alleles[5],P1DNA.vars["harvests"],P2DNA.vars["harvests"]) DNA.potency = SpliceMK2(P1DNA.alleles[6],P2DNA.alleles[6],P1DNA.vars["potency"],P2DNA.vars["potency"]) P.endurance = SpliceMK2(P1DNA.alleles[7],P2DNA.alleles[7],P1.vars["endurance"],P2.vars["endurance"]) DNA.endurance = SpliceMK2(P1DNA.alleles[7],P2DNA.alleles[7],P1DNA.vars["endurance"],P2DNA.vars["endurance"]) boutput(usr, "Splice successful.") if (!src.seedoutput) src.seeds.Add(S) else S.set_loc(src.loc) else // It fucked up - we don't need to do anything else other than tell the user boutput(usr, "Splice failed.") // Now get rid of the old seeds and go back to square one src.seeds.Remove(seed1) src.seeds.Remove(seed2) src.splicing1 = null src.splicing2 = null qdel(seed1) qdel(seed2) src.mode = "seedlist" src.updateUsrDialog() else src.updateUsrDialog() attackby(var/obj/item/W as obj, var/mob/user as mob) if(istype(W, /obj/item/reagent_containers/glass/) || istype(W, /obj/item/reagent_containers/food/drinks/)) if(src.inserted) boutput(user, "A container is already loaded into the machine.") return src.inserted = W user.drop_item() W.set_loc(src) boutput(user, "You add [W] to the machine!") src.updateUsrDialog() else if(istype(W, /obj/item/reagent_containers/food/snacks/plant/) || istype(W, /obj/item/seed/)) boutput(user, "You add [W] to the machine!") user.u_equip(W) W.set_loc(src) if (istype(W, /obj/item/seed/)) src.seeds += W else src.extractables += W W.dropped() src.updateUsrDialog() return else if(istype(W,/obj/item/satchel/hydro)) var/obj/item/satchel/S = W var/select = input(user, "Load what from the satchel?", "[src.name]", 0) in list("Everything","Fruit Only","Seeds Only","Never Mind") if (select != "Never Mind") var/loadcount = 0 for (var/obj/item/I in S.contents) if (istype(I,/obj/item/seed/) && (select == "Everything" || select == "Seeds Only")) I.set_loc(src) src.seeds += I loadcount++ continue if (istype(I,/obj/item/reagent_containers/food/snacks/plant/) && (select == "Everything" || select == "Fruit Only")) I.set_loc(src) src.extractables += I loadcount++ continue if (loadcount) boutput(user, "[loadcount] items were loaded from the satchel!") else boutput(user, "No items were loaded from the satchel!") S.satchel_updateicon() else ..() MouseDrop_T(atom/movable/O as mob|obj, mob/user as mob) if (!O || !user) return if (!isitem(O)) return if (istype(O, /obj/item/reagent_containers/glass/) || istype(O, /obj/item/reagent_containers/food/drinks/) || istype(O,/obj/item/satchel/hydro)) return src.attackby(O, user) if (istype(O, /obj/item/reagent_containers/food/snacks/plant/) || istype(O, /obj/item/seed/)) user.visible_message("[user] begins quickly stuffing [O.name] into [src]!") var/staystill = user.loc for(var/obj/item/P in view(1,user)) sleep(2) if (user.loc != staystill) break if (P.type == O.type) if (istype(O, /obj/item/seed/)) src.seeds.Add(P) else src.extractables.Add(P) P.set_loc(src) else continue boutput(user, "You finish stuffing items into [src]!") else ..() proc/SpliceMK2(var/allele1,var/allele2,var/value1,var/value2) var/dominance = allele1 - allele2 if (dominance > 0) return value1 else if (dominance < 0) return value2 else var/average = (value1 + value2) if (average != 0) average /= 2 return round(average) proc/QuickAnalysisRow(var/obj/scanned, var/datum/plant/P, var/datum/plantgenes/DNA) // Largely copied from plantpot.dm if (!DNA) return var/generation = 0 if (P.cantscan) return "Can't scan!" if (istype(scanned, /obj/item/seed/)) var/obj/item/seed/S = scanned generation = S.generation if (istype(scanned, /obj/item/reagent_containers/food/snacks/plant/)) var/obj/item/reagent_containers/food/snacks/plant/F = scanned generation = F.generation return {" [P.name] [generation] [DNA.growtime] [DNA.harvtime] [DNA.harvests] [DNA.cropsize] [DNA.potency] [DNA.endurance] "} ////// Reagent Extractor /obj/submachine/chem_extractor/ name = "Reagent Extractor" desc = "A machine which can extract reagents from organic matter." density = 1 anchored = 1 mats = 6 deconstruct_flags = DECON_SCREWDRIVER | DECON_CROWBAR | DECON_WELDER | DECON_WIRECUTTERS | DECON_MULTITOOL icon = 'icons/obj/objects.dmi' icon_state = "reex-off" flags = NOSPLASH var/mode = "overview" var/autoextract = 0 var/obj/item/reagent_containers/glass/extract_to = null var/obj/item/reagent_containers/glass/inserted = null var/obj/item/reagent_containers/glass/storage_tank_1 = null var/obj/item/reagent_containers/glass/storage_tank_2 = null var/list/ingredients = list() var/list/allowed = list(/obj/item/reagent_containers/food/snacks/,/obj/item/plant/,/obj/item/seashell) var/output_target = null New() ..() src.storage_tank_1 = new /obj/item/reagent_containers/glass/beaker/extractor_tank(src) src.storage_tank_2 = new /obj/item/reagent_containers/glass/beaker/extractor_tank(src) var/count = 1 for (var/obj/item/reagent_containers/glass/beaker/extractor_tank/ST in src.contents) ST.name = "Storage Tank [count]" count++ output_target = src.loc attack_ai(var/mob/user as mob) return attack_hand(user) attack_hand(var/mob/user as mob) user.machine = src var/dat = "Reagent Extractor
" if (src.mode == "overview") dat += "Extractor Overview

" // Overview mode is just a general outline of what's in the machine at the time // Internal Storage Tanks if (src.storage_tank_1) dat += "Storage Tank 1: ([src.storage_tank_1.reagents.total_volume]/[src.storage_tank_1.reagents.maximum_volume])
" if(src.storage_tank_1.reagents.reagent_list.len) for(var/current_id in storage_tank_1.reagents.reagent_list) var/datum/reagent/current_reagent = storage_tank_1.reagents.reagent_list[current_id] dat += "* [current_reagent.volume] units of [current_reagent.name]
" else dat += "Empty
" dat += "
" else dat += "Storage Tank 1 Missing!
" if (src.storage_tank_2) dat += "Storage Tank 2: ([src.storage_tank_2.reagents.total_volume]/[src.storage_tank_2.reagents.maximum_volume])
" if(src.storage_tank_2.reagents.reagent_list.len) for(var/current_id in storage_tank_2.reagents.reagent_list) var/datum/reagent/current_reagent = storage_tank_2.reagents.reagent_list[current_id] dat += "* [current_reagent.volume] units of [current_reagent.name]
" else dat += "Empty
" dat += "
" else dat += "Storage Tank 2 Missing!
" // Inserted Beaker or whatever if (src.inserted) dat += "Receptacle: [src.inserted] ([src.inserted.reagents.total_volume]/[src.inserted.reagents.maximum_volume]) (Eject)
" dat += "Contents: " if(src.inserted.reagents.reagent_list.len) for(var/current_id in inserted.reagents.reagent_list) var/datum/reagent/current_reagent = inserted.reagents.reagent_list[current_id] dat += "
[current_reagent.volume] units of [current_reagent.name]" else dat += "Empty
" else dat += "No receptacle inserted!
" if(src.ingredients.len) dat += "
[src.ingredients.len] Items Ready for Extraction" else dat += "
No Items inserted!" else if (src.mode == "extraction") dat += "Extraction Management

" if (src.autoextract) dat += "Auto-Extraction: Enabled" else dat += "Auto-Extraction: Disabled" dat += "
" if (src.extract_to) dat += "Extraction Target: [src.extract_to] ([src.extract_to.reagents.total_volume]/[src.extract_to.reagents.maximum_volume])" if (src.extract_to == src.inserted) dat += "(Eject)" else dat += "No current extraction target set." if(src.ingredients.len) dat += "

Extractable Items:

" for (var/obj/item/I in src.ingredients) dat += "* [I]
" dat += "(Extract) (Eject)
" else dat += "

No Items inserted!" else if (src.mode == "transference") dat += "Transfer Management

" if (src.inserted) dat += "[src.inserted]: ([src.inserted.reagents.total_volume]/[src.inserted.reagents.maximum_volume]) (Flush All) (Eject)
" if(src.inserted.reagents.reagent_list.len) for(var/current_id in inserted.reagents.reagent_list) var/datum/reagent/current_reagent = inserted.reagents.reagent_list[current_id] dat += "* [current_reagent.volume] units of [current_reagent.name] (X)
" else dat += "Empty
" else dat += "No receptacle inserted!
" dat += "
" dat += "Storage Tank 1: ([src.storage_tank_1.reagents.total_volume]/[src.storage_tank_1.reagents.maximum_volume]) (Flush All)
" if(src.storage_tank_1.reagents.reagent_list.len) for(var/current_id in storage_tank_1.reagents.reagent_list) var/datum/reagent/current_reagent = storage_tank_1.reagents.reagent_list[current_id] dat += "* [current_reagent.volume] units of [current_reagent.name] (X)
" else dat += "Empty
" dat += "
" dat += "Storage Tank 2: ([src.storage_tank_2.reagents.total_volume]/[src.storage_tank_2.reagents.maximum_volume]) (Flush All)
" if(src.storage_tank_2.reagents.reagent_list.len) for(var/current_id in storage_tank_2.reagents.reagent_list) var/datum/reagent/current_reagent = storage_tank_2.reagents.reagent_list[current_id] dat += "* [current_reagent.volume] units of [current_reagent.name] (X)
" else dat += "Empty
" else dat += {"Software Error.
Please click here to return to the Overview."} dat += "
" dat += "Mode: (Overview) (Extraction) (Transference)" user.Browse(dat, "window=rextractor;size=370x500") onclose(user, "rextractor") handle_event(var/event, var/sender) if (event == "reagent_holder_update") src.updateUsrDialog() Topic(href, href_list) if(get_dist(usr,src) > 1 && !issilicon(usr) && !isAI(usr) ) boutput(usr, "You need to be closer to the extractor to do that!") return if(href_list["page"]) var/ops = text2num(href_list["page"]) switch(ops) if(2) src.mode = "extraction" if(3) src.mode = "transference" else src.mode = "overview" src.update_icon() src.updateUsrDialog() else if(href_list["ejectbeaker"]) if (!src.inserted) boutput(usr, "No receptacle found to eject.") else if (src.inserted == src.extract_to) src.extract_to = null src.inserted.set_loc(src.output_target) src.inserted = null src.updateUsrDialog() else if(href_list["ejectingred"]) var/obj/item/I = locate(href_list["ejectingred"]) in src if (istype(I)) src.ingredients.Remove(I) I.set_loc(src.output_target) boutput(usr, "You eject [I] from the machine!") src.update_icon() src.updateUsrDialog() else if (href_list["autoextract"]) src.autoextract = !src.autoextract src.update_icon() src.updateUsrDialog() else if (href_list["flush_reagent"]) var/id = href_list["flush_reagent"] var/obj/item/reagent_containers/glass/T = locate(href_list["flush"]) in src if (istype(T) && T.reagents) T.reagents.remove_reagent(id, 500) src.updateUsrDialog() else if (href_list["flush"]) var/obj/item/reagent_containers/glass/T = locate(href_list["flush"]) in src if (istype(T) && T.reagents) T.reagents.clear_reagents() src.updateUsrDialog() else if(href_list["extracttarget"]) var/list/ext_targets = list(src.storage_tank_1,src.storage_tank_2) if (src.inserted) ext_targets.Add(src.inserted) var/target = input(usr, "Extract to which target?", "Reagent Extractor", 0) in ext_targets if(get_dist(usr, src) > 1) return src.extract_to = target src.update_icon() src.updateUsrDialog() else if(href_list["extractingred"]) if (!src.extract_to) boutput(usr, "You must first select an extraction target.") else if (src.extract_to.reagents.total_volume == src.extract_to.reagents.maximum_volume) boutput(usr, "The extraction target is already full.") else var/obj/item/I = locate(href_list["extractingred"]) in src if (!istype(I) || !I.reagents) return src.doExtract(I) src.ingredients -= I qdel(I) src.update_icon() src.updateUsrDialog() else if(href_list["chemtransfer"]) var/obj/item/reagent_containers/glass/G = locate(href_list["chemtransfer"]) in src if (!G) boutput(usr, "Transfer target not found.") src.updateUsrDialog() return else if (!G.reagents.total_volume) boutput(usr, "Nothing in container to transfer.") src.updateUsrDialog() return var/list/ext_targets = list(src.storage_tank_1,src.storage_tank_2) if (src.inserted) ext_targets.Add(src.inserted) ext_targets.Remove(G) var/target = input(usr, "Transfer to which target?", "Reagent Extractor", 0) in ext_targets if(get_dist(usr, src) > 1) return var/obj/item/reagent_containers/glass/T = target if (!T) boutput(usr, "Transfer target not found.") else if (G == T) boutput(usr, "Cannot transfer a container's contents to itself.") else var/amt = input(usr, "Transfer how many units?", "Chemical Transfer", 0) as null|num if(get_dist(usr, src) > 1) return if (amt < 1) boutput(usr, "Invalid transfer quantity.") else G.reagents.trans_to(T,amt) src.updateUsrDialog() attackby(var/obj/item/W as obj, var/mob/user as mob) if(istype(W, /obj/item/reagent_containers/glass/) || istype(W, /obj/item/reagent_containers/food/drinks/)) if(src.inserted) boutput(user, "A container is already loaded into the machine.") return src.inserted = W user.drop_item() W.set_loc(src) boutput(user, "You add [W] to the machine!") src.updateUsrDialog() else if (istype(W,/obj/item/satchel/hydro)) var/obj/item/satchel/S = W var/loadcount = 0 for (var/obj/item/I in S.contents) for(var/check_path in src.allowed) if(istype(I, check_path)) I.set_loc(src) src.ingredients += I loadcount++ break if (loadcount) boutput(user, "[loadcount] items were loaded from the satchel!") else boutput(user, "No items were loaded from the satchel!") S.satchel_updateicon() src.update_icon() src.updateUsrDialog() else var/proceed = 0 for(var/check_path in src.allowed) if(istype(W, check_path)) proceed = 1 break if (!proceed) boutput(user, "The extractor cannot accept that!") return if (src.autoextract) if (!src.extract_to) boutput(usr, "You must first select an extraction target if you want items to be automatically extracted.") return if (src.extract_to.reagents.total_volume == src.extract_to.reagents.maximum_volume) boutput(usr, "The extraction target is full.") return boutput(user, "You add [W] to the machine!") user.u_equip(W) W.dropped() if (src.autoextract) src.doExtract(W) qdel(W) else W.set_loc(src) src.ingredients += W src.update_icon() src.updateUsrDialog() return MouseDrop_T(atom/movable/O as mob|obj, mob/user as mob) if (istype(O, /obj/item/reagent_containers/glass/) || istype(O, /obj/item/reagent_containers/food/drinks/) || istype(O, /obj/item/satchel/hydro)) return src.attackby(O, user) var/proceed = 0 for (var/check_path in src.allowed) if (istype(O, check_path)) proceed = 1 break if (!proceed) ..() else user.visible_message("[user] begins quickly stuffing [O.name] into [src]!") var/staystill = user.loc for (var/obj/item/P in view(1,user)) sleep(2) if (user.loc != staystill) break if (P.type == O.type) src.ingredients.Add(P) P.set_loc(src) else continue boutput(user, "You finish stuffing items into [src]!") src.update_icon() MouseDrop(over_object, src_location, over_location) if(!isliving(usr)) boutput(usr, "Only living mobs are able to set the extractor's output target.") return if(get_dist(over_object,src) > 1) boutput(usr, "The extractor is too far away from the target!") return if(get_dist(over_object,usr) > 1) boutput(usr, "You are too far away from the target!") return else if (istype(over_object,/turf/simulated/floor/)) src.output_target = over_object boutput(usr, "You set the extractor to output to [over_object]!") else boutput(usr, "You can't use that as an output target.") return /obj/submachine/chem_extractor/proc/update_icon() if (src.ingredients.len) src.icon_state = "reex-on" else src.icon_state = "reex-off" /obj/submachine/chem_extractor/proc/doExtract(var/obj/item/I) // Welp -- we don't want anyone extracting these. They'll probably // feed them to monkeys and then exsanguinate them trying to get at the chemicals. if (istype(I, /obj/item/reagent_containers/food/snacks/candy/everyflavor)) src.extract_to.reagents.add_reagent("sugar", 50) return I.reagents.trans_to(src.extract_to, I.reagents.total_volume) src.update_icon() /obj/submachine/seed_vendor name = "Seed Fabricator" desc = "Fabricates basic plant seeds." icon = 'icons/obj/vending.dmi' icon_state = "seeds" density = 1 anchored = 1 mats = 6 deconstruct_flags = DECON_SCREWDRIVER | DECON_WIRECUTTERS | DECON_MULTITOOL var/vendamt = 1 var/hacked = 0 var/panelopen = 0 var/malfunction = 0 var/working = 1 var/wires = 15 var/can_vend = 1 var/seedcount = 0 var/maxseed = 25 var/category = null var/list/available = list() var/const WIRE_EXTEND = 1 WIRE_MALF = 2 WIRE_POWER = 3 WIRE_INERT = 4 New() ..() for (var/A in typesof(/datum/plant)) src.available += new A(src) /*for (var/datum/plant/P in src.available) if (!P.vending || P.type == /datum/plant) del(P) continue*/ attack_ai(mob/user as mob) return src.attack_hand(user) attack_hand(var/mob/user as mob) user.machine = src var/dat = "[src.name]
" dat += "Amount to Vend: [src.vendamt]
" if (src.category) dat += "Filter: [src.category] (Clear)
" else dat += "Filter: (Set)
" if (!src.can_vend) dat+= "Unit currently out of charge. Please wait.
" dat += "
" for(var/datum/plant/A in hydro_controls.plant_species) if (!A.vending) continue if (A.vending > 1) if (src.hacked) if (!src.category || (src.category == A.category)) dat += "[A.name]: (VEND)
" else continue else if (!src.category || (src.category == A.category)) dat += "[A.name]: (VEND)
" user.Browse(dat, "window=seedfab;size=400x500") onclose(user, "seedfab") if (src.panelopen || isAI(user)) var/list/fabwires = list( "Puce" = 1, "Mauve" = 2, "Ochre" = 3, "Slate" = 4, ) var/pdat = "[src.name] Maintenance Panel
" for(var/wiredesc in fabwires) var/is_uncut = src.wires & APCWireColorToFlag[fabwires[wiredesc]] pdat += "[wiredesc] wire: " if(!is_uncut) pdat += "Mend" else pdat += "Cut " pdat += "Pulse " pdat += "
" pdat += "
" pdat += "The yellow light is [(src.working == 0) ? "off" : "on"].
" pdat += "The blue light is [src.malfunction ? "flashing" : "on"].
" pdat += "The white light is [src.hacked ? "on" : "off"].
" user.Browse(pdat, "window=fabpanel") onclose(user, "fabpanel") Topic(href, href_list) if(get_dist(usr,src) > 1 && !issilicon(usr) && !isAI(usr)) boutput(usr, "You need to be closer to the vendor to do that!") return if(href_list["amount"]) var/amount = input(usr, "How many seeds do you want?", "[src.name]", 0) as null|num if(!amount) return if(amount < 0) return if(amount > 10) amount = 10 src.vendamt = amount src.updateUsrDialog() if(href_list["category"]) if (src.category) src.category = null else var/filter = input(usr, "Filter by which category?", "[src.name]", 0) in list("Fruit","Vegetable","Herb","Flower","Miscellaneous") if(!filter) return src.category = filter src.updateUsrDialog() if(href_list["disp"]) if (src.can_vend == 0) boutput(usr, "It's charging.") return //var/getseed = null var/datum/plant/I = locate(href_list["disp"]) if (!src.working || !istype(I)) boutput(usr, "[src.name] fails to dispense anything.") return if(!I.vending) trigger_anti_cheat(usr, "tried to href exploit vend forbidden seed [I] on [src]") return var/vend = src.vendamt while(vend > 0) //new getseed(src.loc) var/obj/item/seed/S if (I.unique_seed) S = unpool(I.unique_seed) S.set_loc(src.loc) else S = unpool(/obj/item/seed) S.set_loc(src.loc) S.removecolor() S.generic_seed_setup(I) vend-- src.seedcount++ SPAWN_DBG(0) for(var/obj/item/seed/S in src.contents) S.set_loc(src.loc) if(src.seedcount >= src.maxseed) src.can_vend = 0 SPAWN_DBG(10 SECONDS) src.can_vend = 1 src.seedcount = 0 src.updateUsrDialog() if ((href_list["cutwire"]) && (src.panelopen || isAI(usr))) var/twire = text2num(href_list["cutwire"]) if (!usr.find_tool_in_hand(TOOL_SNIPPING)) boutput(usr, "You need a snipping tool!") return else if (src.isWireColorCut(twire)) src.mend(twire) else src.cut(twire) src.updateUsrDialog() if ((href_list["pulsewire"]) && (src.panelopen || isAI(usr))) var/twire = text2num(href_list["pulsewire"]) if (!usr.find_tool_in_hand(TOOL_PULSING) && !isAI(usr)) boutput(usr, "You need a multitool or similar!") return else if (src.isWireColorCut(twire)) boutput(usr, "You can't pulse a cut wire.") return else src.pulse(twire) src.updateUsrDialog() emag_act(var/mob/user, var/obj/item/card/emag/E) if (!src.hacked) if(user) boutput(user, "You disable the [src]'s product locks!") src.hacked = 1 src.name = "Feed Sabricator" src.updateUsrDialog() return 1 else if(user) boutput(user, "The [src] is already unlocked!") return 0 attackby(obj/item/W as obj, mob/user as mob) if (isscrewingtool(W)) if (!src.panelopen) src.overlays += image('icons/obj/vending.dmi', "grife-panel") src.panelopen = 1 else src.overlays = null src.panelopen = 0 boutput(user, "You [src.panelopen ? "open" : "close"] the maintenance panel.") src.updateUsrDialog() else ..() proc/isWireColorCut(var/wireColor) var/wireFlag = APCWireColorToFlag[wireColor] return ((src.wires & wireFlag) == 0) proc/isWireCut(var/wireIndex) var/wireFlag = APCIndexToFlag[wireIndex] return ((src.wires & wireFlag) == 0) proc/cut(var/wireColor) var/wireFlag = APCWireColorToFlag[wireColor] var/wireIndex = APCWireColorToIndex[wireColor] src.wires &= ~wireFlag switch(wireIndex) if(WIRE_EXTEND) src.hacked = 0 src.name = "Seed Fabricator" if(WIRE_MALF) src.malfunction = 1 if(WIRE_POWER) src.working = 0 proc/mend(var/wireColor) var/wireFlag = APCWireColorToFlag[wireColor] var/wireIndex = APCWireColorToIndex[wireColor] src.wires |= wireFlag switch(wireIndex) if(WIRE_MALF) src.malfunction = 0 proc/pulse(var/wireColor) var/wireIndex = APCWireColorToIndex[wireColor] switch(wireIndex) if(WIRE_EXTEND) if (src.hacked) src.hacked = 0 src.name = "Seed Fabricator" else src.hacked = 1 src.name = "Feed Sabricator" if (WIRE_MALF) if (src.malfunction) src.malfunction = 0 else src.malfunction = 1 if (WIRE_POWER) if (src.working) src.working = 0 else src.working = 1