//This file was auto-corrected by findeclaration.exe on 25.5.2012 20:42:33

/obj/machinery/shipcore
	icon = 'craft.dmi'
	icon_state = "core"
	density = 1

	var/width = 6
	var/height = 8
	var/list/turfs = list()
	var/list/builders
	var/list/components = list()
	var/build_status = "unbuilt"


	proc/group_self()
		builders = list()
		turfs = list()
		components = list()

		src.anchored = 1

		var/obj/ship_builder/L = new(locate(src.x, src.y, src.z))
		L.dir = WEST
		L.distance = width/2
		L.core = src

		var/obj/ship_builder/R = new(locate(src.x+1, src.y, src.z))
		R.dir = EAST
		R.distance = (width/2)-1
		R.core = src

		builders.Add(L, R)

		spawn() L.scan()
		spawn() R.scan()

		var/h
		for(h=1, h<height/2, h++)
			var/obj/ship_builder/A = new(locate(src.x+1, src.y+h, src.z))
			A.dir = EAST
			A.distance = (width/2)-1
			A.core = src

			var/obj/ship_builder/B = new(locate(src.x, src.y+h, src.z))
			B.dir = WEST
			B.distance = width/2
			B.core = src

			var/obj/ship_builder/C = new(locate(src.x+1, src.y-h, src.z))
			C.dir = EAST
			C.distance = (width/2)-1
			C.core = src

			var/obj/ship_builder/D = new(locate(src.x, src.y-h, src.z))
			D.dir = WEST
			D.distance = width/2
			D.core = src

			builders.Add(A, B, C, D)

			spawn() A.scan()
			spawn() B.scan()
			spawn() C.scan()
			spawn() D.scan()

		while(src.builders.len)
			sleep(50)
		del(src.builders)
		for(var/turf/T in turfs)
			for(var/obj/O in T.contents)
				if(istype(O, /obj/machinery/ship_component))
					O:core = src
					src.components.Add(O)
		src.build_status = "built"
		//world << "Ship initialization complete. [src.turfs.len] tiles added."

	proc/receive_turf(var/turf/T)
		turfs.Add(T)


	proc/MoveShip(var/turf/Center) // Center - The new position of the ship's core
		src.anchored = 0
		var/turf/lowerleft = locate(Center.x - (src.width/2), Center.y - (src.height/2), Center.z)
		var/turf/upperright = locate(Center.x + (src.width/2), Center.y + (src.height/2), Center.z)

		var/xsav = src.loc.x
		var/ysav = src.loc.y
		var/zsav = src.loc.z

		for(var/turf/T in block(lowerleft, upperright))
			if(!istype(T, /turf/space))
				return 0 // One of the tiles in the range we're moving to isn't a space tile - something's in the way!

		// Alright, the way is clear, we can actually begin transferring everything over now.
		for(var/turf/T in src.turfs)

			for(var/obj/O in T)
				if(istype(O, /obj/effect/ship_landing_beacon)) // Leave beacons where they are, we don't want to take them with us.
					continue
				var/
					_x = Center.x + O.x - xsav
					_y = Center.y + O.y - ysav
					_z = Center.z + O.z - zsav
				O.loc = locate(_x, _y, _z)

			for(var/mob/M in T)
				var/
					_x = Center.x + M.x - xsav
					_y = Center.y + M.y - ysav
					_z = Center.z + M.z - zsav
				M.loc = locate(_x, _y, _z)

			var/
				_x = Center.x + T.x - xsav
				_y = Center.y + T.y - ysav
				_z = Center.z + T.z - zsav
			var/turf/Newloc = locate(_x, _y, _z)
			//new T(Newloc)
			new T.type(Newloc)
			T.ChangeTurf(/turf/space)

			if(Newloc)
				Newloc.assume_air(T.return_air())
				T.remove_air(T.return_air())
		src.build_status = "rebuilding"
		src.group_self()

	proc/draw_power(var/n as num)
		for(var/obj/machinery/ship_component/engine/E in components)
			if(E.draw_power(n))
				return 1
		return 0



obj/machinery/shipcore/attack_hand(user as mob)
	var/dat
	if(..())
		return
	if (1 == 1)	// Haha why did I even do this what the fuck. Whatever. It's too entertaining to remove now. -- TLE
/*
		dat += "Autolathe Wires:<BR>"
		var/wire
		for(wire in src.wires)
			dat += text("[wire] Wire: <A href='?src=\ref[src];wire=[wire];act=wire'>[src.wires[wire] ? "Mend" : "Cut"]</A> <A href='?src=\ref[src];wire=[wire];act=pulse'>Pulse</A><BR>")

		dat += text("The red light is [src.disabled ? "off" : "on"].<BR>")
		dat += text("The green light is [src.shocked ? "off" : "on"].<BR>")
		dat += text("The blue light is [src.hacked ? "off" : "on"].<BR>")
*/
		switch(src.build_status)
			if("unbuilt")
				dat += "<h3>Core Status: <font color =#FF3300>Undeployed</font></h3><BR>"
				dat += "<A href='?src=\ref[src];groupself=1'>Build Ship</A><BR>"
			if("built")
				dat += "<h3>Core Status: <font color =#00CC00>Deployed</font></h3><BR>"
				dat += "<A href='?src=\ref[src];move=1'>Move</A><BR>"
			if("rebuilding")
				dat += "<h3>Core Status: <font color =#FFCC00>Recalibrating</font></h3><BR>"
		user << browse("<HEAD><TITLE>Ship Core</TITLE></HEAD>[dat]","window=shipcore")
		onclose(user, "shipcore")
		return
	user << browse("<HEAD><TITLE>Ship Core Control Panel</TITLE></HEAD><TT>[dat]</TT>", "window=shipcore")
	onclose(user, "shipcore")
	return

obj/machinery/shipcore/Topic(href, href_list)
	if(..())
		return
	usr.machine = src
	src.add_fingerprint(usr)
	if(href_list["groupself"])
		src.group_self()
	if (href_list["move"])
		var/list/beacons = list()
		for(var/obj/effect/ship_landing_beacon/b in world)
			if(istype(b, /obj/effect/ship_landing_beacon))
				if(b.active)
					beacons.Add(b)
		if(!beacons.len)
			return
		var/obj/choice = input("Choose a beacon to land at.", "Beacon Selection") in beacons
		if(choice)
			src.MoveShip(choice.loc)

	for(var/mob/M in viewers(1, src))
		if ((M.client && M.machine == src))
			src.attack_hand(M)
	src.updateUsrDialog()
	return



obj/machinery/ship_component
	name = "ship component"
	icon = 'craft.dmi'
	var/obj/machinery/shipcore/core
	var/required_draw = 0
	var/active = 1

	proc
		draw_power(var/n as num)
			if(!n)
				n = required_draw
			if(core.draw_power(n))
				return 1
			else
				return 0

obj/machinery/ship_component/thruster
	name = "thruster"
	icon_state = "thruster"
	density = 1
	opacity = 1

	var/cooldown = 600 // In 1/10th seconds
	var/lastused
	var/ready = 0
	required_draw = 100

	proc
		check_ready()
			if(ready)
				return 1
			if(lastused + cooldown <= world.time)
				for(var/turf/T in range(1,src))
					if(istype(T, /turf/space))
						src.ready = 1
						break
			else
				src.ready = 0
			return src.ready

		fire()
			src.check_ready()
			if(!ready)
				return 0
			if(src.draw_power())
				src.ready = 0
				src.lastused = world.time
				return 1
			else
				return 0

obj/machinery/ship_component/engine
	name = "engine"
	icon_state = "engine"
	density = 1
	opacity = 1

	var/charge = 1000
	var/capacity = 1000

	draw_power(var/n as num)
		if(charge >= n)
			charge -= n
			return 1
		else
			return 0

obj/machinery/ship_component/control_panel
	name = "control panel"
	icon_state = "controlpanel"
	density = 1
	opacity = 0

	attack_hand(user as mob)
		var/dat
		if(..())
			return
		if(!src.core)
			dat += "<b>No linked core found. Deploy ship core first.</b>"
		else
			dat += "Ship Status: [src.core.build_status]<br><br>"
			dat += "<h3>Installed Components:</h3><br><br>"
			dat += "<table>"
			for(var/obj/machinery/ship_component/C in core.components)
				dat += "<tr><td><b>[C.name]</b></td><td>[C.active ? "<font color=green>Active</font>" : "<font color=red>Inactive</font>"]</td></tr>"
				if(istype(C, /obj/machinery/ship_component/engine))
					dat += "<tr><td></td><td><i>Fuel: [C:charge]/[C:capacity]</i></td></tr>"
				if(istype(C, /obj/machinery/ship_component/thruster))
					dat += "<tr><td></td><td><i>Status: [C:check_ready() ? "Ready" : "On Cooldown"]</i></td></tr>"
			dat += "</table>"
		user << browse("<HEAD><TITLE>Ship Controls</TITLE></HEAD>[dat]","window=shipcontrols")
		onclose(user, "shipcontrols")

	Topic(href, href_list)
		if(..())
			return
		usr.machine = src
		src.add_fingerprint(usr)








/obj/ship_builder
	icon = 'craft.dmi'
	icon_state = "builder"
	density = 0
	opacity = 0

	var/obj/machinery/shipcore/core
	var/distance = 0

	proc/scan()
		if(distance < 0)
			cleanup_self()
		var/i
		for(i=0, i<distance, i++)
			if(istype(src.loc, /turf/space))
				break
			else
				core.receive_turf(src.loc)
				src.loc = get_step(src, src.dir)
			sleep(0)
		cleanup_self()
	proc/cleanup_self()
		core.builders.Remove(src)
		del(src)



/obj/ship_overlay
	icon = 'craft.dmi'
	icon_state = "ship_overlay"

/obj/effect/ship_landing_beacon
	icon = 'craft.dmi'
	icon_state = "beacon"
	name = "Beacon"
	var/active = 0

	proc
		deploy()
			if(active)
				return
			src.active = 1
			src.anchored = 1
		deactivate()
			if(!active)
				return
			src.active = 0
			src.anchored = 0