goonstation-2016/code/WorkInProgress/tug.dm

//WIP tugs

/obj/tug_cart/
	name = "cargo cart"
	icon = 'icons/obj/vehicles.dmi'
	icon_state = "flatbed"
	var/atom/movable/load = null
	var/obj/tug_cart/next_cart = null
	layer = MOB_LAYER + 1

	MouseDrop_T(var/atom/movable/C, mob/user)
		if (!in_range(user, src) || !in_range(user, C) || user.restrained() || user.paralysis || user.sleeping || user.stat || user.lying)
			return

		if (!istype(C)|| C.anchored || get_dist(user, src) > 1 || get_dist(src,C) > 1 )
			return

		if (istype(C, /obj/tug_cart) && in_range(C, src))
			var/obj/tug_cart/connecting = C
			if (src == connecting) //Wire: Fix for mass recursion runtime (carts connected to themselves)
				return
			else if (!src.next_cart && !connecting.next_cart)
				src.next_cart = connecting
				user.visible_message("[user] connects [connecting] to [src].", "You connect [connecting] to [src].")
				return
			else if (src.next_cart == connecting)
				src.next_cart = null
				user.visible_message("[user] disconnects [connecting] from [src].", "You disconnect [connecting] from [src].")
				return
			else
				user.show_text("\The [src] already has a cart connected to it!", "red")
				return

		if (load)
			return

		load(C)
		src.visible_message("<b>[user]</b> loads [C] onto [src].")

	MouseDrop(obj/over_object as obj, src_location, over_location)
		..()
		var/mob/user = usr
		if (!user || !(in_range(user, src) || user.loc == src) || !in_range(src, over_object) || user.restrained() || user.paralysis || user.sleeping || user.stat || user.lying)
			return
		if (!load)
			return
		src.visible_message("<b>[user]</b> unloads [load] from [src].")
		unload(over_object)

	proc/load(var/atom/movable/C)
		/*if ((wires & wire_loadcheck) && !istype(C,/obj/storage/crate))
			src.visible_message("[src] makes a sighing buzz.", "You hear an electronic buzzing sound.")
			playsound(src.loc, "sound/machines/buzz-sigh.ogg", 50, 0)
			return		// if not emagged, only allow crates to be loaded // cogwerks - turning this off for now to make the mule more versatile + funny
			*/

		if (istype(C, /obj/screen) || C.anchored)
			return

		if (get_dist(C, src) > 1 || load)
			return

		// if a create, close before loading
		var/obj/storage/crate/crate = C
		if (istype(crate))
			crate.close()
		C.set_loc(src.loc)
		spawn(2)
			if (C && C.loc == src.loc)
				C.set_loc(src)
				load = C
				C.pixel_y += 6
				if (C.layer < layer)
					C.layer = layer + 0.1
				src.UpdateOverlays(C, "load")

	proc/unload(var/turf/T)//var/dirn = 0)
		if (!load)
			return
		if (!isturf(T))
			T = get_turf(T)

		load.pixel_y -= 6
		load.layer = initial(load.layer)
		load.set_loc(src.loc)
		if (T)
			spawn(2)
				if (load)
					load.set_loc(T)
					load = null
		src.UpdateOverlays(null, "load")

		// in case non-load items end up in contents, dump every else too
		// this seems to happen sometimes due to race conditions
		// with items dropping as mobs are loaded

		for (var/atom/movable/AM in src)
			AM.set_loc(src.loc)
			AM.layer = initial(AM.layer)
			AM.pixel_y = initial(AM.pixel_y)

	Move()
		var/oldloc = src.loc
		..()
		if (src.loc == oldloc)
			return
		if (next_cart)
			next_cart.Move(oldloc)

/obj/vehicle/tug
	name = "cargo tug"
	icon = 'icons/obj/vehicles.dmi'
	icon_state = "tractor"
//	rider_visible = 1
	layer = MOB_LAYER + 1
//	sealed_cabin = 0
	mats = 0//10
	var/obj/tug_cart/cart = null
	throw_dropped_items_overboard = 1
	var/start_with_cart = 1

	New()
		..()
		if (start_with_cart)
			cart = new/obj/tug_cart/(get_turf(src))

	eject_rider(var/crashed, var/selfdismount)
		rider.set_loc(src.loc)
		rider.pixel_y = 0
		walk(src, 0)
		if (crashed)
			if (crashed == 2)
				playsound(src.loc, "sound/misc/meteorimpact.ogg", 40, 1)
			boutput(rider, "<span style=\"color:red\"><B>You are flung off of [src]!</B></span>")
			rider.stunned = 8
			rider.weakened = 5
			for (var/mob/C in AIviewers(src))
				if (C == rider)
					continue
				C.show_message("<span style=\"color:red\"><B>[rider] is flung off of [src]!</B></span>", 1)
			var/turf/target = get_edge_target_turf(src, src.dir)
			rider.throw_at(target, 5, 1)
			rider.buckled = null
			rider = null
			overlays = null
			return
		if (selfdismount)
			boutput(rider, "<span style=\"color:blue\">You dismount from [src].</span>")
			for (var/mob/C in AIviewers(src))
				if (C == rider)
					continue
				C.show_message("<B>[rider]</B> dismounts from [src].", 1)
		rider.buckled = null
		rider = null
		overlays = null
		return

	relaymove(mob/user as mob, dir)
		if (rider)
			if (istype(src.loc, /turf/space))
				return
			walk(src, dir, 4)
		else
			for (var/mob/M in src.contents)
				M.set_loc(src.loc)

	MouseDrop_T(var/atom/movable/C, mob/user)
		if (!in_range(user, src) || !in_range(user, C) || user.restrained() || user.paralysis || user.sleeping || user.stat || user.lying)
			return

		if (istype(C, /obj/tug_cart) && in_range(C, src))
			if (src == C) //Wire: Fix for mass recursion runtime (carts connected to themselves)
				return
			else if (!src.cart)
				src.cart = C
				user.visible_message("[user] connects [C] to [src].", "You connect [C] to [src].")
				return
			else if (src.cart == C)
				src.cart = null
				user.visible_message("[user] disconnects [C] from [src].", "You disconnect [C] from [src].")
				return
			else
				user.show_text("\The [src] already has a cart connected to it!", "red")
				return

		if (!ishuman(C))
			return

		var/mob/living/carbon/human/target = C

		if (rider || target.buckled || LinkBlocked(target.loc,src.loc) || isAI(user))
			return

		var/msg

		if (target == user && !user.stat)	// if drop self, then climbed in
			msg = "[user.name] climbs onto [src]."
			boutput(user, "<span style=\"color:blue\">You climb onto [src].</span>")
		else if (target != user && !user.restrained())
			msg = "[user.name] helps [target.name] onto [src]!"
			boutput(user, "<span style=\"color:blue\">You help [target.name] onto [src]!</span>")
		else
			return

		target.set_loc(src)
		rider = target
		rider.pixel_y = 6
		overlays += rider
		if (rider.restrained() || rider.stat)
			rider.buckled = src

		for (var/mob/H in AIviewers(src))
			if (H == user)
				continue
			H.show_message(msg, 3)

		return

	Click()
		if (usr != rider)
			..()
			return
		if (!(usr.paralysis || usr.stunned || usr.weakened || usr.stat))
			eject_rider(0, 1)
		return

	attack_hand(mob/living/carbon/human/M as mob)
		if (!M || !rider)
			..()
			return
		switch (M.a_intent)
			if ("harm", "disarm")
				if (prob(60))
					playsound(src.loc, "sound/weapons/thudswoosh.ogg", 50, 1, -1)
					src.visible_message("<span style=\"color:red\"><B>[M] has shoved [rider] off of [src]!</B></span>")
					rider.weakened = 2
					eject_rider()
				else
					playsound(src.loc, "sound/weapons/punchmiss.ogg", 25, 1, -1)
					src.visible_message("<span style=\"color:red\"><B>[M] has attempted to shove [rider] off of [src]!</B></span>")
		return

	bullet_act(flag, A as obj)
		if (rider)
			eject_rider()
			rider.bullet_act(flag, A)
		return

	meteorhit()
		if (rider)
			eject_rider()
			rider.meteorhit()
		return

	disposing()
		if (rider)
			boutput(rider, "<span style=\"color:red\"><B>[src] is destroyed!</B></span>")
			eject_rider()
		..()
		return

	Move()
		var/oldloc = src.loc
		..()
		if (src.loc == oldloc)
			return
		if (cart)
			cart.Move(oldloc)