298 code/modules/hydroponics/seed_datums.dm
View file
@@ -130,7 +130,7 @@ var/global/list/gene_tag_masks = list() // Gene obfuscation for delicious tria
alter_temp = 1

/*if(prob(1))
immutable = -1*/ //shekels
immutable = -1*/ //todo this

var/carnivore_prob = rand(100)
if(carnivore_prob < 5)
@@ -295,38 +295,24 @@ var/global/list/gene_tag_masks = list() // Gene obfuscation for delicious tria
//Random mutations moved to hydroponics_mutations.dm!

//Mutates a specific trait/set of traits. Used by the Bioballistic Delivery System.
/datum/seed/proc/apply_gene(var/datum/plantgene/gene)

/datum/seed/proc/apply_gene(var/datum/plantgene/gene, var/mode)

if(!gene || !gene.values || immutable > 0) return

switch(gene.genetype)
if(GENE_PHYTOCHEMISTRY)
if(!chems || mode == GENEGUN_MODE_PURGE)
chems = list()

//Splicing products has some detrimental effects on yield and lifespan.
if("products")

if(gene.values.len < 6) return

if(yield > 0) yield = max(1,round(yield*0.85))
if(endurance > 0) endurance = max(1,round(endurance*0.85))
if(lifespan > 0) lifespan = max(1,round(lifespan*0.85))

if(!products) products = list()
products |= gene.values[1]

if(!chems) chems = list()

var/list/gene_value = gene.values[2]
var/list/gene_value = gene.values[1]
for(var/rid in gene_value)

var/list/gene_chem = gene_value[rid]

if(!(rid in chems) || !chems[rid])
chems[rid] = gene_chem.Copy()
continue

for(var/i=1;i<=gene_chem.len;i++)

for(var/i=1 to gene_chem.len)
if(isnull(gene_chem[i]))
chems[rid][i] = 0
gene_chem[i] = 0
@@ -337,127 +323,185 @@ var/global/list/gene_tag_masks = list() // Gene obfuscation for delicious tria
else
chems[rid][i] = gene_chem[i]

var/list/new_gasses = gene.values[3]
switch(mode)
if(GENEGUN_MODE_PURGE)
potency = gene.values[2]
teleporting = gene.values[3]
if(GENEGUN_MODE_SPLICE)
potency = Ceiling(mix(gene.values[2], potency, rand(40, 60)/100))
teleporting = max(gene.values[3], teleporting)

if(GENE_MORPHOLOGY)
if(gene.values[1])
if(!products || mode == GENEGUN_MODE_PURGE)
products = list()
products |= gene.values[1]
switch(mode)
if(GENEGUN_MODE_PURGE)
thorny = gene.values[2]
stinging = gene.values[3]
ligneous = gene.values[4]
juicy = gene.values[5]
if(GENEGUN_MODE_SPLICE)
thorny = max(gene.values[2], thorny)
stinging = max(gene.values[3], stinging)
ligneous = max(gene.values[4], ligneous)
juicy = max(gene.values[5], juicy)

if(GENE_CHEMILUMINESCENCE)
switch(mode)
if(GENEGUN_MODE_PURGE)
biolum = gene.values[1]
biolum_colour = gene.values[2]
if(GENEGUN_MODE_SPLICE)
biolum = max(gene.values[1], biolum)
biolum_colour = BlendRGB(gene.values[2], biolum_colour, rand(40, 60)/100)

if(GENE_ECOLOGY)
switch(mode)
if(GENEGUN_MODE_PURGE)
ideal_heat = gene.values[1]
heat_tolerance = gene.values[2]
ideal_light = gene.values[3]
light_tolerance = gene.values[4]
lowkpa_tolerance = gene.values[5]
highkpa_tolerance = gene.values[6]
if(GENEGUN_MODE_SPLICE)
ideal_heat = Ceiling(mix(gene.values[1], ideal_heat, rand(40, 60)/100))
heat_tolerance = Ceiling(mix(gene.values[2], heat_tolerance, rand(40, 60)/100))
ideal_light = Ceiling(mix(gene.values[3], ideal_light, rand(40, 60)/100))
light_tolerance = Ceiling(mix(gene.values[4], light_tolerance, rand(40, 60)/100))
lowkpa_tolerance = Ceiling(mix(gene.values[5], lowkpa_tolerance, rand(40, 60)/100))
highkpa_tolerance = Ceiling(mix(gene.values[6], highkpa_tolerance,rand(40, 60)/100))

if(GENE_ECOPHYSIOLOGY)
switch(mode)
if(GENEGUN_MODE_PURGE)
toxins_tolerance = gene.values[1]
pest_tolerance = gene.values[2]
weed_tolerance = gene.values[3]
lifespan = gene.values[4]
endurance = gene.values[5]
if(GENEGUN_MODE_SPLICE)
toxins_tolerance = Ceiling(mix(gene.values[1], toxins_tolerance, rand(40, 60)/100))
pest_tolerance = Ceiling(mix(gene.values[2], pest_tolerance, rand(40, 60)/100))
weed_tolerance = Ceiling(mix(gene.values[3], weed_tolerance, rand(40, 60)/100))
lifespan = Ceiling(mix(gene.values[4], lifespan, rand(40, 60)/100))
endurance = Ceiling(mix(gene.values[5], endurance, rand(40, 60)/100))

if(GENE_METABOLISM)
switch(mode)
if(GENEGUN_MODE_PURGE)
nutrient_consumption = gene.values[1]
water_consumption = gene.values[2]
alter_temp = gene.values[3]
if(GENEGUN_MODE_SPLICE)
nutrient_consumption = Ceiling(mix(gene.values[1], nutrient_consumption, rand(40, 60)/100))
water_consumption = Ceiling(mix(gene.values[2], water_consumption, rand(40, 60)/100))
alter_temp = max(gene.values[3], alter_temp)
var/list/new_gasses = gene.values[4]
if(islist(new_gasses))
if(!exude_gasses) exude_gasses = list()
if(!exude_gasses || mode == GENEGUN_MODE_PURGE)
exude_gasses = list()
exude_gasses |= new_gasses
for(var/gas in exude_gasses)
exude_gasses[gas] = max(1,round(exude_gasses[gas]*0.8))

alter_temp = gene.values[4]
potency = gene.values[5]
harvest_repeat = gene.values[6]

if("consumption")

if(gene.values.len < 5) return

consume_gasses = gene.values[1]
nutrient_consumption = gene.values[2]
water_consumption = gene.values[3]
carnivorous = gene.values[4]
parasite = gene.values[5]

if("environment")

if(gene.values.len < 6) return

ideal_heat = gene.values[1]
heat_tolerance = gene.values[2]
ideal_light = gene.values[3]
light_tolerance = gene.values[4]
lowkpa_tolerance = gene.values[5]
highkpa_tolerance = gene.values[6]

if("resistance")

if(gene.values.len < 3) return

toxins_tolerance = gene.values[1]
pest_tolerance = gene.values[2]
weed_tolerance = gene.values[3]

if("vigour")

if(gene.values.len < 6) return

endurance = gene.values[1]
yield = gene.values[2]
lifespan = gene.values[3]
spread = gene.values[4]
maturation = gene.values[5]
production = gene.values[6]

if("biolum")

if(gene.values.len < 2) return

biolum = gene.values[1]
biolum_colour = gene.values[2]

if(GENE_NUTRITION)
switch(mode)
if(GENEGUN_MODE_PURGE)
carnivorous = gene.values[1]
parasite = gene.values[2]
hematophage = gene.values[3]
if(GENEGUN_MODE_SPLICE)
carnivorous = max(gene.values[1], carnivorous)
parasite = max(gene.values[2], parasite)
hematophage = max(gene.values[3], hematophage)
var/list/new_gasses = gene.values[4]
if(islist(new_gasses))
if(!consume_gasses || mode == GENEGUN_MODE_PURGE)
consume_gasses = list()
consume_gasses |= new_gasses

if(GENE_DEVELOPMENT)
switch(mode)
if(GENEGUN_MODE_PURGE)
production = gene.values[1]
maturation = gene.values[2]
spread = gene.values[3]
harvest_repeat = gene.values[4]
yield = gene.values[5]
if(GENEGUN_MODE_SPLICE)
production = Ceiling(mix(gene.values[1], production, rand(40, 60)/100))
maturation = Ceiling(mix(gene.values[2], maturation, rand(40, 60)/100))
spread = Ceiling(mix(gene.values[3], spread, rand(40, 60)/100))
harvest_repeat = max(gene.values[4], harvest_repeat)
yield = Ceiling(mix(gene.values[5], yield, rand(40, 60)/100))

//Returns a list of the desired trait values.
/datum/seed/proc/get_gene(var/genetype)


if(!genetype) return 0

var/datum/plantgene/P = new()
P.genetype = genetype

switch(genetype)
if("products")
if(GENE_PHYTOCHEMISTRY)
P.values = list(
(products ? products : 0),
(chems ? chems : 0),
(exude_gasses ? exude_gasses : 0),
(alter_temp ? alter_temp : 0),
(potency ? potency : 0),
(harvest_repeat ? harvest_repeat : 0)
)

if("consumption")
(chems ? chems : 0),
(potency ? potency : 0),
(teleporting ? teleporting : 0) // Yes, bluespace anomalies are caused by a mystery chemical, I don't have to explain shit
)
if(GENE_MORPHOLOGY)
P.values = list(
(consume_gasses ? consume_gasses : 0),
(nutrient_consumption ? nutrient_consumption : 0),
(water_consumption ? water_consumption : 0),
(carnivorous ? carnivorous : 0),
(parasite ? parasite : 0)
)

if("environment")
(products ? products : 0),
(thorny ? thorny : 0),
(stinging ? stinging : 0),
(ligneous ? ligneous : 0),
(juicy ? juicy : 0)
)
if(GENE_CHEMILUMINESCENCE) // Realistically, plant luminescence would be chemical, not biological.
P.values = list(
(ideal_heat ? ideal_heat : 0),
(heat_tolerance ? heat_tolerance : 0),
(ideal_light ? ideal_light : 0),
(light_tolerance ? light_tolerance : 0),
(lowkpa_tolerance ? lowkpa_tolerance : 0),
(highkpa_tolerance ? highkpa_tolerance : 0)
)

if("resistance")
(biolum ? biolum : 0),
(biolum_colour ? biolum_colour : 0)
)
if(GENE_ECOLOGY)
P.values = list(
(toxins_tolerance ? toxins_tolerance : 0),
(pest_tolerance ? pest_tolerance : 0),
(weed_tolerance ? weed_tolerance : 0)
)

if("vigour")
(ideal_heat ? ideal_heat : 0),
(heat_tolerance ? heat_tolerance : 0),
(ideal_light ? ideal_light : 0),
(light_tolerance ? light_tolerance : 0),
(lowkpa_tolerance ? lowkpa_tolerance : 0),
(highkpa_tolerance ? highkpa_tolerance : 0)
)
if(GENE_ECOPHYSIOLOGY)
P.values = list(
(endurance ? endurance : 0),
(yield ? yield : 0),
(lifespan ? lifespan : 0),
(spread ? spread : 0),
(maturation ? maturation : 0),
(production ? production : 0)
)

if("biolum")
(toxins_tolerance ? toxins_tolerance : 0),
(pest_tolerance ? pest_tolerance : 0),
(weed_tolerance ? weed_tolerance : 0),
(lifespan ? lifespan : 0),
(endurance ? endurance : 0)
)
if(GENE_METABOLISM)
P.values = list(
(biolum ? biolum : 0),
(biolum_colour ? biolum_colour : 0)
)

(nutrient_consumption ? nutrient_consumption : 0),
(water_consumption ? water_consumption : 0),
(alter_temp ? alter_temp : 0),
(exude_gasses ? exude_gasses : 0)
)
if(GENE_NUTRITION)
P.values = list(
(carnivorous ? carnivorous : 0),
(parasite ? parasite : 0),
(hematophage ? hematophage : 0),
(consume_gasses ? consume_gasses : 0)
)
if(GENE_DEVELOPMENT)
P.values = list(
(production ? production : 0),
(maturation ? maturation : 0),
(spread ? spread : 0),
(harvest_repeat ? harvest_repeat : 0),
(yield ? yield : 0)
)
return (P ? P : 0)

//This may be a new line. Update the global if it is.
@@ -469,8 +513,6 @@ var/global/list/gene_tag_masks = list() // Gene obfuscation for delicious tria

//Place the plant products at the feet of the user.
/datum/seed/proc/harvest(var/mob/user,var/yield_mod = 1)


if(!user)
return

@@ -571,8 +613,6 @@ var/global/list/gene_tag_masks = list() // Gene obfuscation for delicious tria
// is set to a new datum copied from the original. This datum won't actually
// be put into the global datum list until the product is harvested, though.
/datum/seed/proc/diverge(var/modified)


if(immutable > 0) return

//Set up some basic information.
@@ -640,4 +680,4 @@ var/global/list/gene_tag_masks = list() // Gene obfuscation for delicious tria
for (var/rid in chems)
R = chemical_reagents_list[rid]
reagent_names += R.name
return reagent_names
return reagent_names
116 code/modules/hydroponics/seed_machines.dm
View file
@@ -16,7 +16,7 @@
/obj/item/weapon/disk/botany/attack_self(var/mob/user as mob)
if(genes.len)
var/choice = alert(user, "Are you sure you want to wipe the disk?", "Xenobotany Data", "No", "Yes")
if(src && user && genes && choice == "Yes")
if(src && user && genes && choice && choice == "Yes" && user.Adjacent(get_turf(src)))
to_chat(user, "You wipe the disk data.")
name = initial(name)
desc = initial(name)
@@ -25,11 +25,11 @@

/obj/item/weapon/storage/box/botanydisk
name = "flora disk box"
desc = "A box of flora data disks, apparently."
desc = "A box of flora data disks."

/obj/item/weapon/storage/box/botanydisk/New()
..()
for(var/i = 0;i<7;i++)
for(var/i = 1 to 7)
new /obj/item/weapon/disk/botany(src)

/obj/machinery/botany
@@ -39,7 +39,9 @@
anchored = 1
use_power = 1

var/obj/item/seeds/seed // Currently loaded seed packet.
machine_flags = SCREWTOGGLE | CROWDESTROY | WRENCHMOVE | FIXED2WORK

var/obj/item/seeds/loaded_seed // Currently loaded seed packet.
var/obj/item/weapon/disk/botany/loaded_disk //Currently loaded data disk.

var/open = 0
@@ -49,7 +51,6 @@
var/eject_disk = 0
var/failed_task = 0
var/disk_needs_genes = 0
machine_flags = SCREWTOGGLE | CROWDESTROY | WRENCHMOVE | FIXED2WORK

/obj/machinery/botany/process()

@@ -79,22 +80,25 @@
if(eject_disk)
eject_disk = 0
if(loaded_disk)
loaded_disk.loc = get_turf(src)
loaded_disk.forceMove(get_turf(src))
visible_message("\icon[src] [src] beeps and spits out [loaded_disk].")
loaded_disk = null

nanomanager.update_uis(src)

/obj/machinery/botany/attackby(obj/item/weapon/W as obj, mob/user as mob)
if(istype(W,/obj/item/seeds))
if(seed)
to_chat(user, "There is already a seed loaded.")
if(loaded_seed)
user << "There is already a seed loaded."
return
var/obj/item/seeds/S =W
var/obj/item/seeds/S = W
if(S.seed && S.seed.immutable > 0)
to_chat(user, "That seed is not compatible with our genetics technology.")
else
user.drop_item(S, src)
seed = W
to_chat(user, "You load [W] into [src].")
loaded_seed = W
user << "You load [W] into [src]."
nanomanager.update_uis(src)
return

if(istype(W,/obj/item/weapon/disk/botany))
@@ -115,7 +119,8 @@

user.drop_item(W, src)
loaded_disk = W
to_chat(user, "You load [W] into [src].")
user << "You load [W] into [src]."
nanomanager.update_uis(src)

return
return ..()
@@ -151,8 +156,8 @@
var/list/data = list()

var/list/geneMasks[0]
for(var/gene_tag in gene_tag_masks)
geneMasks.Add(list(list("tag" = gene_tag, "mask" = gene_tag_masks[gene_tag])))
for(var/gene_tag in plant_controller.gene_tag_masks)
geneMasks.Add(list(list("tag" = gene_tag, "mask" = plant_controller.gene_tag_masks[gene_tag])))
data["geneMasks"] = geneMasks

data["activity"] = active
@@ -163,8 +168,8 @@
else
data["disk"] = 0

if(seed)
data["loaded"] = "[seed.name]"
if(loaded_seed)
data["loaded"] = "[loaded_seed.name]"
else
data["loaded"] = 0

@@ -192,24 +197,27 @@
if(usr.machine == src) usr.unset_machine()

if(href_list["eject_packet"])
if(!seed) return
seed.loc = get_turf(src)
if(!loaded_seed) return
loaded_seed.forceMove(get_turf(src))

if(seed.seed.name == "new line" || isnull(plant_controller.seeds[seed.seed.name]))
seed.seed.uid = plant_controller.seeds.len + 1
seed.seed.name = "[seed.seed.uid]"
plant_controller.seeds[seed.seed.name] = seed.seed
if(loaded_seed.seed.name == "new line" || isnull(plant_controller.seeds[loaded_seed.seed.name]))
loaded_seed.seed.uid = plant_controller.seeds.len + 1
loaded_seed.seed.name = "[loaded_seed.seed.uid]"
plant_controller.seeds[loaded_seed.seed.name] = loaded_seed.seed

seed.update_seed()
visible_message("\icon[src] [src] beeps and spits out [seed].")
loaded_seed.update_seed()
visible_message("\icon[src] [src] beeps and spits out [loaded_seed].")

seed = null
loaded_seed = null
nanomanager.update_uis(src)

if(href_list["eject_disk"])
if(!loaded_disk) return
loaded_disk.loc = get_turf(src)
loaded_disk.forceMove(get_turf(src))
visible_message("\icon[src] [src] beeps and spits out [loaded_disk].")

loaded_disk = null
nanomanager.update_uis(src)

usr.set_machine(src)
src.add_fingerprint(usr)
@@ -224,24 +232,26 @@

if(href_list["scan_genome"])

if(!seed) return
if(!loaded_seed) return

last_action = world.time
active = 1
nanomanager.update_uis(src)

if(seed && seed.seed)
genetics = seed.seed
if(loaded_seed && loaded_seed.seed)
genetics = loaded_seed.seed
degradation = 0

qdel(seed)
seed = null
qdel(loaded_seed)
loaded_seed = null

if(href_list["get_gene"])

if(!genetics || !loaded_disk) return

last_action = world.time
active = 1
nanomanager.update_uis(src)

var/datum/plantgene/P = genetics.get_gene(href_list["get_gene"])
if(!P) return
@@ -251,8 +261,8 @@
if(!genetics.roundstart)
loaded_disk.genesource += " (variety #[genetics.uid])"

loaded_disk.name += " ([gene_tag_masks[href_list["get_gene"]]], #[genetics.uid])"
loaded_disk.desc += " The label reads \'gene [gene_tag_masks[href_list["get_gene"]]], sampled from [genetics.display_name]\'."
loaded_disk.name += " ([plant_controller.gene_tag_masks[href_list["get_gene"]]], #[genetics.uid])"
loaded_disk.desc += " The label reads \'gene [plant_controller.gene_tag_masks[href_list["get_gene"]]], sampled from [genetics.display_name]\'."
eject_disk = 1

degradation += rand(20,60)
@@ -265,6 +275,7 @@
if(!genetics) return
genetics = null
degradation = 0
nanomanager.update_uis(src)
return

// Fires an extracted trait into another packet of seeds with a chance
@@ -273,6 +284,7 @@
name = "bioballistic delivery system"
icon_state = "traitgun"
disk_needs_genes = 1
var/mode = GENEGUN_MODE_SPLICE

/obj/machinery/botany/editor/New()
..()
@@ -295,9 +307,10 @@
var/list/data = list()

data["activity"] = active
data["mode"] = mode

if(seed)
data["degradation"] = seed.modified
if(loaded_seed)
data["degradation"] = loaded_seed.modified
else
data["degradation"] = 0

@@ -308,15 +321,15 @@

for(var/datum/plantgene/P in loaded_disk.genes)
if(data["locus"] != "") data["locus"] += ", "
data["locus"] += "[gene_tag_masks[P.genetype]]"
data["locus"] += "[plant_controller.gene_tag_masks[P.genetype]]"

else
data["disk"] = 0
data["sourceName"] = 0
data["locus"] = 0

if(seed)
data["loaded"] = "[seed.name]"
if(loaded_seed)
data["loaded"] = "[loaded_seed.name]"
else
data["loaded"] = 0

@@ -333,23 +346,32 @@
return 1

if(href_list["apply_gene"])
if(!loaded_disk || !seed) return
if(!loaded_disk || !loaded_seed) return

last_action = world.time
active = 1
nanomanager.update_uis(src)

if(!isnull(plant_controller.seeds[seed.seed.name]))
seed.seed = seed.seed.diverge(1)
seed.seed_type = seed.seed.name
seed.update_seed()
if(!isnull(plant_controller.seeds[loaded_seed.seed.name]))
loaded_seed.seed = loaded_seed.seed.diverge(1)
loaded_seed.seed_type = loaded_seed.seed.name
loaded_seed.update_seed()

if(prob(seed.modified))
if(prob(loaded_seed.modified))
failed_task = 1
seed.modified = 101
loaded_seed.modified = 101

for(var/datum/plantgene/gene in loaded_disk.genes)
seed.seed.apply_gene(gene)
seed.modified += rand(5,10)
loaded_seed.seed.apply_gene(gene, mode)
loaded_seed.modified += rand(5,10)

else if(href_list["toggle_mode"])
switch(mode)
if(GENEGUN_MODE_SPLICE)
mode = GENEGUN_MODE_PURGE
if(GENEGUN_MODE_PURGE)
mode = GENEGUN_MODE_SPLICE
nanomanager.update_uis(src)

usr.set_machine(src)
src.add_fingerprint(usr)
3 code/modules/hydroponics/soil.dm
View file
@@ -31,4 +31,5 @@
..()
verbs -= /obj/machinery/portable_atmospherics/hydroponics/verb/close_lid
verbs -= /obj/machinery/portable_atmospherics/hydroponics/verb/set_label
component_parts = list()
verbs -= /obj/machinery/portable_atmospherics/hydroponics/verb/light_toggle
component_parts = list()
2 code/modules/scripting/Implementations/Telecomms.dm
View file
@@ -222,7 +222,7 @@
interpreter.SetProc("sec", /proc/Sec)
interpreter.SetProc("todegrees", /proc/ToDegrees)
interpreter.SetProc("toradians", /proc/ToRadians)
interpreter.SetProc("lerp", /proc/Lerp)
interpreter.SetProc("lerp", /proc/mix)
interpreter.SetProc("max", /proc/n_max)
interpreter.SetProc("min", /proc/n_min)

25 nano/templates/botany_editor.tmpl
View file
@@ -1,8 +1,14 @@
<!--
<!--
Title: Bioballistic Delivery System UI
Used In File(s): \code\modules\hydroponics\seed_machines.dm
-->


<!--
#define GENEGUN_MODE_SPLICE 1
#define GENEGUN_MODE_PURGE 2
//Thanks, nanoUI!
-->

{{if data.activity}}
Scanning...
{{else}}
@@ -50,7 +56,20 @@ Used In File(s): \code\modules\hydroponics\seed_machines.dm
{{/if}}
{{:helper.link('Eject Target', 'circle-arrow-e', {'eject_packet' : 1}, null)}}
</div>
<br>
<div class = "item">
<div class = "itemLabel" style = "width:36%">
Payload Delivery Method:
</div>
<div class = "itemContentSmall">
{{if data.mode == 1}}
{{:helper.link('SPLICE', 'shuffle', {'toggle_mode' : 1}, null)}}
{{else}}
{{:helper.link('PURGE', 'arrowstop-1-s', {'toggle_mode' : 1}, null)}}
{{/if}}
</div>
</div>
{{else}}
<div class="notice">No target seed packet loaded</div>
{{/if}}
{{/if}}
{{/if}}
1 vgstation13.dme
View file
@@ -1086,6 +1086,7 @@
#include "code\modules\html_interface\nanotrasen\nanotrasen.dm"
#include "code\modules\html_interface\RCD\RCD.dm"
#include "code\modules\html_interface\voting\voting.dm"
#include "code\modules\hydroponics\_hydro_setup.dm"
#include "code\modules\hydroponics\eggincubator.dm"
#include "code\modules\hydroponics\grown_inedible.dm"
#include "code\modules\hydroponics\hydro_tools.dm"