Paradise/code/game/objects/items/stacks/stack.dm

/* Stack type objects!
 * Contains:
 * 		Stacks
 * 		Recipe datum
 * 		Recipe list datum
 */

/*
 * Stacks
 */
/obj/item/stack
	origin_tech = "materials=1"
	var/list/recipes = list() // /datum/stack_recipe
	var/singular_name
	var/amount = 1
	var/max_amount //also see stack recipes initialisation, param "max_res_amount" must be equal to this max_amount
	var/merge_type = null // This path and its children should merge with this stack, defaults to src.type

/obj/item/stack/New(var/loc, var/amt = null)
	..()
	if(amt != null)	//Allow for stacks with the amount=0
		amount = amt
	if(!merge_type)
		merge_type = type

/obj/item/stack/Destroy()
	if(usr && usr.machine == src)
		usr << browse(null, "window=stack")
	..()
	return QDEL_HINT_HARDDEL_NOW // because qdel'd stacks act strange for cyborgs

/obj/item/stack/examine(mob/user)
	if(..(user, 1))
		to_chat(user, "There are [amount] [singular_name]\s in the stack.")

/obj/item/stack/attack_self(mob/user)
	list_recipes(user)

/obj/item/stack/attack_self_tk(mob/user)
	list_recipes(user)

/obj/item/stack/attack_tk(mob/user)
	if(user.stat || !isturf(loc)) return
	// Allow remote stack splitting, because telekinetic inventory managing
	// is really cool
	if(src in user.tkgrabbed_objects)
		var/obj/item/stack/F = split(user, 1)
		F.attack_tk(user)
		if(src && user.machine == src)
			spawn(0)
				interact(user)
	else
		..()


/obj/item/stack/proc/list_recipes(mob/user, recipes_sublist)
	if(!recipes)
		return

	if(amount <= 0)
		user << browse(null, "window=stack")
		return

	user.set_machine(src) //for correct work of onclose

	var/list/recipe_list = recipes
	if(recipes_sublist && recipe_list[recipes_sublist] && istype(recipe_list[recipes_sublist], /datum/stack_recipe_list))
		var/datum/stack_recipe_list/srl = recipe_list[recipes_sublist]
		recipe_list = srl.recipes

	var/t1 = "Amount Left: [amount]<br>"
	for(var/i in 1 to recipe_list.len)
		var/E = recipe_list[i]
		if(isnull(E))
			t1 += "<hr>"
			continue

		if(i > 1 && !isnull(recipe_list[i - 1]))
			t1 += "<br>"

		if(istype(E, /datum/stack_recipe_list))
			var/datum/stack_recipe_list/srl = E
			t1 += "<a href='?src=[UID()];sublist=[i]'>[srl.title]</a>"

		if(istype(E, /datum/stack_recipe))
			var/datum/stack_recipe/R = E
			var/max_multiplier = round(src.amount / R.req_amount)
			var/title
			var/can_build = 1
			can_build = can_build && (max_multiplier > 0)
			/*
			if(R.one_per_turf)
				can_build = can_build && !(locate(R.result_type) in usr.loc)
			if(R.on_floor)
				can_build = can_build && istype(usr.loc, /turf/simulated/floor)
			*/
			if(R.res_amount > 1)
				title += "[R.res_amount]x [R.title]\s"
			else
				title += "[R.title]"
			title += " ([R.req_amount] [src.singular_name]\s)"
			if(can_build)
				t1 += "<A href='?src=[UID()];sublist=[recipes_sublist];make=[i]'>[title]</A>  "
			else
				t1 += "[title]"
				continue
			if(R.max_res_amount>1 && max_multiplier>1)
				max_multiplier = min(max_multiplier, round(R.max_res_amount / R.res_amount))
				t1 += " |"
				var/list/multipliers = list(5,10,25)
				for(var/n in multipliers)
					if(max_multiplier>=n)
						t1 += " <A href='?src=[UID()];make=[i];multiplier=[n]'>[n * R.res_amount]x</A>"
				if(!(max_multiplier in multipliers))
					t1 += " <A href='?src=[UID()];make=[i];multiplier=[max_multiplier]'>[max_multiplier * R.res_amount]x</A>"

	var/datum/browser/popup = new(user, "stack", name, 400, 400)
	popup.set_content(t1)
	popup.open(0)
	onclose(user, "stack")

/obj/item/stack/Topic(href, href_list)
	..()
	if(usr.incapacitated() || !usr.is_in_active_hand(src))
		return 0

	if(href_list["sublist"] && !href_list["make"])
		list_recipes(usr, text2num(href_list["sublist"]))

	if(href_list["make"])
		if(amount < 1)
			qdel(src) //Never should happen

		var/list/recipes_list = recipes
		if(href_list["sublist"])
			var/datum/stack_recipe_list/srl = recipes_list[text2num(href_list["sublist"])]
			recipes_list = srl.recipes

		var/datum/stack_recipe/R = recipes_list[text2num(href_list["make"])]
		var/multiplier = text2num(href_list["multiplier"])
		var/atom/creation_loc = (loc == usr) ? usr.loc : loc
		if(!multiplier)
			multiplier = 1

		if(amount < R.req_amount * multiplier)
			if(R.req_amount * multiplier>1)
				to_chat(usr, "<span class='warning'>You haven't got enough [src] to build \the [R.req_amount * multiplier] [R.title]\s!</span>")
			else
				to_chat(usr, "<span class='warning'>You haven't got enough [src] to build \the [R.title]!</span>")
			return 0

		if(R.one_per_turf && (locate(R.result_type) in creation_loc))
			to_chat(usr, "<span class='warning'>There is another [R.title] here!</span>")
			return 0

		if(R.on_floor && !istype(creation_loc, /turf/simulated))
			to_chat(usr, "<span class='warning'>\The [R.title] must be constructed on the floor!</span>")
			return 0

		if(R.time)
			to_chat(usr, "<span class='notice'>Building [R.title] ...</span>")
			if(!do_after(usr, R.time, target = usr))
				return 0

		if(amount < R.req_amount * multiplier)
			return

		var/atom/O = new R.result_type(creation_loc)
		O.dir = usr.dir
		if(R.max_res_amount > 1)
			var/obj/item/stack/new_item = O
			new_item.amount = R.res_amount * multiplier
			//new_item.add_to_stacks(usr)

		R.post_build(src, O)

		amount -= R.req_amount * multiplier
		if(amount < 1) // Just in case a stack's amount ends up fractional somehow
			var/oldsrc = src
			src = null //dont kill proc after del()
			usr.unEquip(oldsrc, 1)
			qdel(oldsrc)
			if(istype(O, /obj/item))
				usr.put_in_hands(O)

		O.add_fingerprint(usr)
		//BubbleWrap - so newly formed boxes are empty
		if(istype(O, /obj/item/weapon/storage))
			for(var/obj/item/I in O)
				qdel(I)
		//BubbleWrap END

	if(src && usr.machine == src) //do not reopen closed window
		spawn(0)
			interact(usr)
			return

/obj/item/stack/proc/use(var/used)
	if(amount < used)
		return 0
	amount -= used
	if(amount < 1) // Just in case a stack's amount ends up fractional somehow
		if(usr)
			usr.unEquip(src, 1)
		spawn()
			qdel(src)
	update_icon()
	return 1

/obj/item/stack/proc/add_to_stacks(mob/usr)
	var/obj/item/stack/oldsrc = src
	src = null
	for(var/obj/item/stack/item in usr.loc)
		if(item == oldsrc)
			continue
		if(!istype(item, oldsrc.type))
			continue
		if(item.amount >= item.max_amount)
			continue
		oldsrc.attackby(item, usr)
		to_chat(usr, "You add new [item.singular_name] to the stack. It now contains [item.amount] [item.singular_name]\s.")
		if(oldsrc.amount <= 0)
			break
	oldsrc.update_icon()

/obj/item/stack/proc/get_amount()
	return amount

/obj/item/stack/proc/get_max_amount()
	return max_amount

/obj/item/stack/proc/split(mob/user, amt)
	var/obj/item/stack/F = new type(loc, amt)
	F.copy_evidences(src)
	if(isliving(user))
		add_fingerprint(user)
		F.add_fingerprint(user)
	use(amt)
	return F

/obj/item/stack/attack_hand(mob/user)
	if(user.is_in_inactive_hand(src))
		var/obj/item/stack/F = split(user, 1)
		user.put_in_hands(F)
		if(src && usr.machine == src)
			spawn(0)
				interact(usr)
	else
		..()

/obj/item/stack/attackby(obj/item/W, mob/user, params)
	..()
	if(istype(W, merge_type))
		var/obj/item/stack/S = W
		if(S.amount >= max_amount)
			return 1

		var/to_transfer
		if(user.is_in_inactive_hand(src))
			var/desired = input("How much would you like to transfer from this stack?", "How much?", 1) as null|num
			if(!desired)
				return
			desired = round(desired)
			to_transfer = max(1,min(desired,S.max_amount-S.amount,src.amount))
		else
			to_transfer = min(src.amount, S.max_amount-S.amount)

		S.amount += to_transfer
		if(S && usr.machine == S)
			spawn(0)
				S.interact(usr)
		use(to_transfer)
		if(src && usr.machine == src)
			spawn(0)
				interact(usr)
		S.update_icon()
	else
		return ..()

/obj/item/stack/proc/copy_evidences(obj/item/stack/from)
	blood_DNA			= from.blood_DNA
	fingerprints		= from.fingerprints
	fingerprintshidden	= from.fingerprintshidden
	fingerprintslast	= from.fingerprintslast
	//TODO bloody overlay