Files
GS13NG/code/modules/mining/lavaland/ash_tree.dm
2021-11-09 23:41:57 -05:00

97 lines
4.2 KiB
Plaintext

//Houses the ash tree, a lava land tree that has been burning for quite some time making a maple like sweetener.
/obj/structure/flora/ashtree
name = "ashed tree"
desc = "A once large tree now burnt like the lands around it."
layer = FLY_LAYER
gender = PLURAL //same as other tree
density = TRUE
pixel_x = -16
icon = 'icons/obj/lavaland/ash_tree.dmi'
icon_state = "ashtree"
//Are icon when we are full of honey or other sap
var/sap_icon_state = "ashtree_maple"
//What we look like when tapping
var/tabbed_icon_state = "ashtree_maple"
//amout of coal in are tree, simular to logs
var/coal_amount = 5
//Do we have sap?
var/sap = FALSE
//What reagent we have
var/sap_type = /datum/reagent/consumable/honey
//This is in seconds, and now long we wait till are tree is tapped
var/harvest_sap_time = 60
var/container_used
var/sap_amount
/obj/structure/flora/ashtree/Initialize(mapload)
..()
if(prob(50))
sap = TRUE
icon_state = sap_icon_state
desc = "A once large tree now burnt like the lands around it. This one seems to have a sap still inside."
//If we have sap, we can generate a bit of it
sap_amount = rand(5,15)
//Random coal or wood amount, so its not bog standered.
coal_amount = rand(5,15)
//If you are copy-pasting this, ensure the 2nd parameter is unique to the new proc!
SSblackbox.record_feedback("tally", "Honey Tree", 1, "Trees Spawned")
//So we dont lose are bowls, stolen form closet code
/obj/structure/flora/ashtree/Destroy()
dump_contents(override = FALSE)
return ..()
//Override is for not revealing the locker electronics when you open the locker, for example
/obj/structure/flora/ashtree/proc/dump_contents(override = TRUE)
var/atom/L = drop_location()
for(var/atom/movable/AM in src)
AM.forceMove(L)
/obj/structure/flora/ashtree/proc/harvest_sap()
desc = "A once large tree now burnt like the lands around it."
icon_state = "ashtree"
var/obj/item/reagent_containers/RG = container_used
//Incase someone was a dumb and used a lidded container
if(RG.is_refillable())
//Make sure that its not filling something thats full
if(!RG.reagents.holder_full())
RG.reagents.add_reagent(sap_type, min(RG.volume - RG.reagents.total_volume, sap_amount))
//We drop are used beaker and try to fill it with sap
RG.forceMove(drop_location())
SSblackbox.record_feedback("tally", "Honey Tree", 1, "Harvested Honey") //If you are copy-pasting this, ensure the 2nd parameter is unique to the new proc!
//Proc stolen from Trees
//If you hit it with a sharp force aboe 0 item it chops it down, unlike trees tho it dosnt give wood as its already charcoal
//Also dosnt have a stump
/obj/structure/flora/ashtree/attackby(obj/item/W, mob/user, params)
if(istype(W, /obj/item/reagent_containers))
if(sap)
user.visible_message("<span class='notice'>[user] pokes [src] and places a container under the [W].</span>","<span class='notice'>You set up [src] with [W].</span>")
icon_state = tabbed_icon_state
sap = FALSE
container_used = W
//So we dont lose are bowl when cutting it down + needed for the harvest sap proc
user.transferItemToLoc(W, src)
addtimer(CALLBACK(src, .proc/harvest_sap), harvest_sap_time SECONDS)
else
to_chat(user, "<span class='notice'>There is no sap to collect.</span>")
if(coal_amount && (!(flags_1 & NODECONSTRUCT_1)))
if(!W.sharpness || !W.force)
return
if(W.hitsound)
playsound(get_turf(src), W.hitsound, 100, 0, 0)
user.visible_message("<span class='notice'>[user] begins to cut down [src] with [W].</span>","<span class='notice'>You begin to cut down [src] with [W].</span>", "You hear the sound of brittle sawing.")
//2.5 seconds with 20 force, 4 seconds with a hatchet, 10 seconds with a shard.
if(do_after(user, 500/W.force, target = src))
user.visible_message("<span class='notice'>[user] fells [src] with the [W].</span>","<span class='notice'>You fell [src] with the [W].</span>", "You hear the sound of a crumbling tree.")
playsound(get_turf(src), 'sound/effects/meteorimpact.ogg', 100 , 0, 0)
for(var/i=1 to coal_amount)
new /obj/item/stack/sheet/mineral/coal(get_turf(src))
qdel(src)//If you are copy-pasting this, ensure the 2nd parameter is unique to the new proc!
SSblackbox.record_feedback("tally", "Honey Tree", 1, "Cutted Tree")
return ..()