/**********************Mint**************************/


/obj/machinery/mineral/mint
	name = "Coin press"
	icon = 'icons/obj/stationobjs.dmi'
	icon_state = "coinpress0"
	density = 1
	anchored = 1.0
	var/amt_silver = 0 //amount of silver
	var/amt_gold = 0   //amount of gold
	var/amt_diamond = 0
	var/amt_iron = 0
	var/amt_plasma = 0
	var/amt_uranium = 0
	var/amt_clown = 0
	var/amt_mime = 0
	var/amt_adamantine = 0
	var/amt_mythril = 0
	var/newCoins = 0   //how many coins the machine made in it's last load
	var/processing = 0
	var/chosen = "metal" //which material will be used to make coins
	var/coinsToProduce = 10

/obj/machinery/mineral/mint/process()
	var/turf/T = get_step(src,input_dir)
	if(T)
		for(var/obj/item/stack/sheet/O in T)
			if(istype(O, /obj/item/stack/sheet/mineral/gold))
				amt_gold += 100 * O.amount
				O.loc = null
			if(istype(O, /obj/item/stack/sheet/mineral/silver))
				amt_silver += 100 * O.amount
				O.loc = null
			if(istype(O, /obj/item/stack/sheet/mineral/diamond))
				amt_diamond += 100 * O.amount
				O.loc = null
			if(istype(O, /obj/item/stack/sheet/mineral/plasma))
				amt_plasma += 100 * O.amount
				O.loc = null
			if(istype(O, /obj/item/stack/sheet/mineral/uranium))
				amt_uranium += 100 * O.amount
				O.loc = null
			if(istype(O, /obj/item/stack/sheet/metal))
				amt_iron += 100 * O.amount
				O.loc = null
			if(istype(O, /obj/item/stack/sheet/mineral/bananium))
				amt_clown += 100 * O.amount
				O.loc = null
			if(istype(O, /obj/item/stack/sheet/mineral/tranquillite))
				amt_mime += 100 * O.amount
				O.loc = null
			return


/obj/machinery/mineral/mint/attack_hand(user as mob) //TODO: Adamantine coins! -Durandan

	var/dat = "<b>Coin Press</b><br>"

	dat += text("<br><font color='#ffcc00'><b>Gold inserted: </b>[amt_gold]</font> ")
	if(chosen == "gold")
		dat += text("chosen")
	else
		dat += text("<A href='?src=\ref[src];choose=gold'>Choose</A>")
	dat += text("<br><font color='#888888'><b>Silver inserted: </b>[amt_silver]</font> ")
	if(chosen == "silver")
		dat += text("chosen")
	else
		dat += text("<A href='?src=\ref[src];choose=silver'>Choose</A>")
	dat += text("<br><font color='#555555'><b>Iron inserted: </b>[amt_iron]</font> ")
	if(chosen == "metal")
		dat += text("chosen")
	else
		dat += text("<A href='?src=\ref[src];choose=metal'>Choose</A>")
	dat += text("<br><font color='#8888FF'><b>Diamond inserted: </b>[amt_diamond]</font> ")
	if(chosen == "diamond")
		dat += text("chosen")
	else
		dat += text("<A href='?src=\ref[src];choose=diamond'>Choose</A>")
	dat += text("<br><font color='#FF8800'><b>Plasma inserted: </b>[amt_plasma]</font> ")
	if(chosen == "plasma")
		dat += text("chosen")
	else
		dat += text("<A href='?src=\ref[src];choose=plasma'>Choose</A>")
	dat += text("<br><font color='#008800'><b>Uranium inserted: </b>[amt_uranium]</font> ")
	if(chosen == "uranium")
		dat += text("chosen")
	else
		dat += text("<A href='?src=\ref[src];choose=uranium'>Choose</A>")
	if(amt_clown > 0)
		dat += text("<br><font color='#AAAA00'><b>Bananium inserted: </b>[amt_clown]</font> ")
		if(chosen == "clown")
			dat += text("chosen")
		else
			dat += text("<A href='?src=\ref[src];choose=clown'>Choose</A>")
	if(amt_mime > 0)
		dat += text("<br><font color='#666666'><b>Tranquillite inserted: </b>[amt_mime]</font> ")
		if(chosen == "mime")
			dat += text("chosen")
		else
			dat += text("<A href='?src=\ref[src];choose=mime'>Choose</A>")
	dat += text("<br><font color='#888888'><b>Adamantine inserted: </b>[amt_adamantine]</font> ")//I don't even know these color codes, so fuck it.
	if(chosen == "adamantine")
		dat += text("chosen")
	else
		dat += text("<A href='?src=\ref[src];choose=adamantine'>Choose</A>")

	dat += text("<br><br>Will produce [coinsToProduce] [chosen] coins if enough materials are available.<br>")
	//dat += text("The dial which controls the number of conins to produce seems to be stuck. A technician has already been dispatched to fix this.")
	dat += text("<A href='?src=\ref[src];chooseAmt=-10'>-10</A> ")
	dat += text("<A href='?src=\ref[src];chooseAmt=-5'>-5</A> ")
	dat += text("<A href='?src=\ref[src];chooseAmt=-1'>-1</A> ")
	dat += text("<A href='?src=\ref[src];chooseAmt=1'>+1</A> ")
	dat += text("<A href='?src=\ref[src];chooseAmt=5'>+5</A> ")
	dat += text("<A href='?src=\ref[src];chooseAmt=10'>+10</A> ")

	dat += text("<br><br>In total this machine produced <font color='green'><b>[newCoins]</b></font> coins.")
	dat += text("<br><A href='?src=\ref[src];makeCoins=[1]'>Make coins</A>")
	user << browse("[dat]", "window=mint")

/obj/machinery/mineral/mint/Topic(href, href_list)
	if(..())
		return
	usr.set_machine(src)
	src.add_fingerprint(usr)
	if(processing==1)
		to_chat(usr, "<span class='notice'>The machine is processing.</span>")
		return
	if(href_list["choose"])
		chosen = href_list["choose"]
	if(href_list["chooseAmt"])
		coinsToProduce = Clamp(coinsToProduce + text2num(href_list["chooseAmt"]), 0, 1000)
	if(href_list["makeCoins"])
		var/temp_coins = coinsToProduce
		processing = 1;
		icon_state = "coinpress1"
		switch(chosen)
			if("metal")
				while(amt_iron > 0 && coinsToProduce > 0)
					create_coins(/obj/item/weapon/coin/iron)
					amt_iron -= 20
					coinsToProduce--
					newCoins++
					src.updateUsrDialog()
					sleep(5)
			if("gold")
				while(amt_gold > 0 && coinsToProduce > 0)
					create_coins(/obj/item/weapon/coin/gold)
					amt_gold -= 20
					coinsToProduce--
					newCoins++
					src.updateUsrDialog()
					sleep(5)
			if("silver")
				while(amt_silver > 0 && coinsToProduce > 0)
					create_coins(/obj/item/weapon/coin/silver)
					amt_silver -= 20
					coinsToProduce--
					newCoins++
					src.updateUsrDialog()
					sleep(5)
			if("diamond")
				while(amt_diamond > 0 && coinsToProduce > 0)
					create_coins(/obj/item/weapon/coin/diamond)
					amt_diamond -= 20
					coinsToProduce--
					newCoins++
					src.updateUsrDialog()
					sleep(5)
			if("plasma")
				while(amt_plasma > 0 && coinsToProduce > 0)
					create_coins(/obj/item/weapon/coin/plasma)
					amt_plasma -= 20
					coinsToProduce--
					newCoins++
					src.updateUsrDialog()
					sleep(5)
			if("uranium")
				while(amt_uranium > 0 && coinsToProduce > 0)
					create_coins(/obj/item/weapon/coin/uranium)
					amt_uranium -= 20
					coinsToProduce--
					newCoins++
					src.updateUsrDialog()
					sleep(5)
			if("clown")
				while(amt_clown > 0 && coinsToProduce > 0)
					create_coins(/obj/item/weapon/coin/clown)
					amt_clown -= 20
					coinsToProduce--
					newCoins++
					src.updateUsrDialog()
					sleep(5)
			if("mime")
				while(amt_mime > 0 && coinsToProduce > 0)
					create_coins(/obj/item/weapon/coin/mime)
					amt_mime -= 20
					coinsToProduce--
					newCoins++
					src.updateUsrDialog()
					sleep(5)
			if("adamantine")
				while(amt_adamantine > 0 && coinsToProduce > 0)
					create_coins(/obj/item/weapon/coin/adamantine)
					amt_adamantine -= 20
					coinsToProduce--
					newCoins++
					src.updateUsrDialog()
					sleep(5)
			if("mythril")
				while(amt_adamantine > 0 && coinsToProduce > 0)
					create_coins(/obj/item/weapon/coin/mythril)
					amt_mythril -= 20
					coinsToProduce--
					newCoins++
					src.updateUsrDialog()
					sleep(5)
		icon_state = "coinpress0"
		processing = 0
		coinsToProduce = temp_coins
	src.updateUsrDialog()
	return

/obj/machinery/mineral/mint/proc/create_coins(var/P)
	var/turf/T = get_step(src,output_dir)
	if(T)
		var/obj/item/O = new P(src)
		var/obj/item/weapon/moneybag/M = locate(/obj/item/weapon/moneybag/, T)
		if(!M)
			M = new /obj/item/weapon/moneybag(src)
			unload_mineral(M)
		O.loc = M