Paradise/code/game/machinery/podmen.dm

/* Moved all the plant people code here for ease of reference and coherency.
Injecting a pod person with a blood sample will grow a pod person with the memories and persona of that mob.
Growing it to term with nothing injected will grab a ghost from the observers. */

/obj/item/seeds/replicapod
	name = "pack of dionaea-replicant seeds"
	desc = "These seeds grow into 'replica pods' or 'dionaea', a form of strange sapient plantlife."
	icon_state = "seed-replicapod"
	mypath = "/obj/item/seeds/replicapod"
	species = "replicapod"
	plantname = "Dionaea"
	productname = "/mob/living/carbon/human" //verrry special -- Urist
	lifespan = 50 //no idea what those do
	endurance = 8
	maturation = 5
	production = 10
	yield = 1 //seeds if there isn't a dna inside
	oneharvest = 1
	potency = 30
	plant_type = 0
	growthstages = 6
	var/ckey = null
	var/realName = null
	var/mob/living/carbon/human/source //Donor of blood, if any.
	gender = MALE
	var/obj/machinery/hydroponics/parent = null
	var/found_player = 0
	var/beingharvested = 0

/obj/item/seeds/replicapod/attackby(obj/item/weapon/W as obj, mob/user as mob, params)

	if(istype(W,/obj/item/weapon/reagent_containers))

		user << "You inject the contents of the syringe into the seeds."

		var/datum/reagent/blood/B

		//Find a blood sample to inject.
		for(var/datum/reagent/R in W:reagents.reagent_list)
			if(istype(R,/datum/reagent/blood))
				B = R
				break
		if(B)
			source = B.data["donor"]
			user << "The strange, sluglike seeds quiver gently and swell with blood."
			if(!source.client && source.mind)
				for(var/mob/O in respawnable_list)
					if(O.mind == source.mind && config.revival_pod_plants)
						message_admins("Found mind, asking for respawn")
						switch(alert(O,"Your corpse has been placed into a pod plant. Do you want to be resurrected/cloned? Please note if you select 'No', you will still be able to be cloned or borged again this round.","Pod Alert","Yes","No"))
							if("Yes")
								source.key = O.key
								return
							if("No")
								user << "The seeds seem to reject the blood, returning to their original size as they stop quivering."
								return
		else
			user << "Nothing happens."
			return

		if (!istype(source))
			return

		if(source.ckey)
			realName = source.real_name
			ckey = source.ckey

		W:reagents.clear_reagents()
		return

	return ..()

/obj/item/seeds/replicapod/harvest(mob/user = usr)

	parent = loc
//	var/found_player = 0


	if(beingharvested)
		user << ("\red You can only harvest the pod once!")
	else
		user.visible_message("\blue [user] carefully begins to open the pod...","\blue You carefully begin to open the pod...")
		beingharvested = 1

	//If a sample is injected (and revival is allowed) the plant will be controlled by the original donor.
	if(source && source.stat == 2 && source.client && source.ckey && config.revival_pod_plants)
		transfer_personality(source.client)
	else // If no sample was injected or revival is not allowed, we grab an interested observer.
		transfer_personality()

/obj/item/seeds/replicapod/proc/transfer_personality(var/client/player)

	if(player)
		found_player = 1
		var/mob/living/carbon/monkey/diona/podman = new(parent.loc)
		podman.ckey = player.ckey
		respawnable_list -= player
		if(player.mob && player.mob.mind)
			player.mob.mind.transfer_to(podman)

		if(realName)
			podman.real_name = realName
		else
			podman.real_name = "diona nymph ([rand(100,999)])"

		podman.dna.real_name = podman.real_name

		// Update mode specific HUD icons.
		callHook("harvest_podman", list(podman))

		switch(ticker.mode.name)
			if ("revolution")
				if (podman.mind in ticker.mode:revolutionaries)
					ticker.mode:add_revolutionary(podman.mind)
					ticker.mode:update_all_rev_icons() //So the icon actually appears
				if (podman.mind in ticker.mode:head_revolutionaries)
					ticker.mode:update_all_rev_icons()
			if ("nuclear emergency")
				if (podman.mind in ticker.mode:syndicates)
					ticker.mode:update_all_synd_icons()
			if ("cult")
				if (podman.mind in ticker.mode:cult)
					ticker.mode:add_cultist(podman.mind)
					ticker.mode:update_all_cult_icons() //So the icon actually appears
			// -- End mode specific stuff

		podman << "\green <B>You awaken slowly, feeling your sap stir into sluggish motion as the warm air caresses your bark.</B>"
		if(source && ckey && podman.ckey == ckey)
			podman << "<B>Memories of a life as [source] drift oddly through a mind unsuited for them, like a skin of oil over a fathomless lake.</B>"
		podman << "<B>You are now one of the Dionaea, a race of drifting interstellar plantlike creatures that sometimes share their seeds with human traders.</B>"
		podman << "<B>Too much darkness will send you into shock and starve you, but light will help you heal.</B>"

	else
		new /mob/living/carbon/monkey/diona(parent.loc)

	parent.visible_message("\blue The pod disgorges a fully-formed plant creature!")
	parent.update_tray()