Create floorlayer.dm

code/game/machinery/floorlayer.dm

@@ -0,0 +1,114 @@
+/obj/machinery/floorlayer
+
+	name = "automatic floor layer"
+	icon = 'icons/obj/stationobjs.dmi'
+	icon_state = "pipe_d"
+	density = 1
+	var/turf/old_turf
+	var/on = 0
+	var/obj/item/stack/tile/T
+	var/list/mode = list("dismantle"=0,"laying"=0,"collect"=0)
+
+/obj/machinery/floorlayer/New()
+	T = new/obj/item/stack/tile/plasteel(src)
+	..()
+
+/obj/machinery/floorlayer/Move(new_turf,M_Dir)
+	..()
+
+	if(on)
+		if(mode["dismantle"])
+			dismantleFloor(old_turf)
+
+		if(mode["laying"])
+			layFloor(old_turf)
+
+		if(mode["collect"])
+			CollectTiles(old_turf)
+
+
+	old_turf = new_turf
+
+/obj/machinery/floorlayer/attack_hand(mob/user as mob)
+	on=!on
+	user.visible_message("\The [src] [!on?"dea":"a"]ctivated.", "[user] [!on?"dea":"a"]ctivated \the [src].")
+	return
+
+/obj/machinery/floorlayer/attackby(var/obj/item/W as obj, var/mob/user as mob)
+
+	if (istype(W, /obj/item/weapon/wrench))
+		var/m = input("Choose work mode", "Mode") as null|anything in mode
+		mode[m] = !mode[m]
+		var/O = mode[m]
+		user.visible_message("[usr] has set \the [src] [m] mode [!O?"off":"on"].", "You set \the [src] [m] mode [!O?"off":"on"].")
+		return
+
+	if(istype(W, /obj/item/stack/tile))
+		user << "\The [W] successfully loaded."
+		user.drop_item(T)
+		TakeTile(T)
+		return
+
+	if(istype(W, /obj/item/weapon/crowbar))
+		if(!length(contents))
+			user << "\The [src] is empty."
+		else
+			var/obj/item/stack/tile/E = input("Choose remove tile type.", "Tiles") as null|anything in contents
+			if(E)
+				user <<  "You remove the [E] from /the [src]."
+				E.loc = src.loc
+				T = null
+		return
+
+	if(istype(W, /obj/item/weapon/screwdriver))
+		T = input("Choose tile type.", "Tiles") as null|anything in contents
+		return
+	..()
+
+/obj/machinery/floorlayer/examine(mob/user)
+	..()
+	var/dismantle = mode["dismantle"]
+	var/laying = mode["laying"]
+	var/collect = mode["collect"]
+	user << "\The [src] [!T?"don't ":""]has [!T?"":"[T.get_amount()] [T] "]tile\s, dismantle is [dismantle?"on":"off"], laying is [laying?"on":"off"], collect is [collect?"on":"off"]."
+
+/obj/machinery/floorlayer/proc/reset()
+	on=0
+	return
+
+/obj/machinery/floorlayer/proc/dismantleFloor(var/turf/new_turf)
+	if(istype(new_turf, /turf/simulated/floor))
+		var/turf/simulated/floor/T = new_turf
+		if(!T.is_plating())
+			if(!T.broken && !T.burnt)
+				new T.floor_type(T)
+			T.make_plating()
+	return !new_turf.intact
+
+/obj/machinery/floorlayer/proc/TakeNewStack()
+	for(var/obj/item/stack/tile/tile in contents)
+		T = tile
+		return 1
+	return 0
+
+/obj/machinery/floorlayer/proc/SortStacks()
+	for(var/obj/item/stack/tile/tile1 in contents)
+		for(var/obj/item/stack/tile/tile2 in contents)
+			tile2.transfer_to(tile1)
+
+/obj/machinery/floorlayer/proc/layFloor(var/turf/w_turf)
+	if(!T)
+		if(!TakeNewStack())
+			return 0
+	w_turf.attackby(T , src)
+	return 1
+
+/obj/machinery/floorlayer/proc/TakeTile(var/obj/item/stack/tile/tile)
+	if(!T)	T = tile
+	tile.loc = src
+
+	SortStacks()
+
+/obj/machinery/floorlayer/proc/CollectTiles(var/turf/w_turf)
+	for(var/obj/item/stack/tile/tile in w_turf.contents)
+		TakeTile(tile)