local m = component.modem -- get primary modem component
local rs = component.redstone

done = false
m.open(321)
m.setStrength(500)


-- Send some message.
repeat
	print(m.isOpen(321)) -- true
	-- Wait for a message from another network card.
	local _, _, from, port, _, message = event.pull("modem_message")
	print("Got a message from: " .. from .. " on port: " .. port .. " message: " .. tostring(message))
	local rep = tostring(message)
	print("Order received: " .. rep )
	local rs = component.redstone
	local cc = component.carriage -- get primary redstone component
	left="north"
	right="south"
	forward="east"
	backward="west"


	if (rep == "move left") then
		rs.setBundledOutput(sides.front, colors.lime, 200)
		rs.setBundledOutput(sides.front, colors.magenta, 0)
		rs.setBundledOutput(sides.front, colors.blue, 0)
		rs.setBundledOutput(sides.front, colors.black, 0)
		rs.setBundledOutput(sides.front, colors.brown, 0)
		rs.setBundledOutput(sides.front, colors.white, 0)
		rs.setBundledOutput(sides.front, colors.red, 0)
		for a = 1, 15, 1 do
			cc.move(left)
			os.sleep(1)
		end
	end

	if (rep == "move right") then
		rs.setBundledOutput(sides.front, colors.lime, 0)
		rs.setBundledOutput(sides.front, colors.magenta, 200)
		rs.setBundledOutput(sides.front, colors.blue, 0)
		rs.setBundledOutput(sides.front, colors.black, 0)
		rs.setBundledOutput(sides.front, colors.brown, 0)
		rs.setBundledOutput(sides.front, colors.white, 0)
		rs.setBundledOutput(sides.front, colors.red, 0)
		for a = 1, 15, 1 do
			cc.move(right)
			os.sleep(1)
		end
	end

	if (rep == "move forward") then
		rs.setBundledOutput(sides.front, colors.lime, 0)
		rs.setBundledOutput(sides.front, colors.magenta, 0)
		rs.setBundledOutput(sides.front, colors.blue, 200)
		rs.setBundledOutput(sides.front, colors.black, 0)
		rs.setBundledOutput(sides.front, colors.brown, 0)
		rs.setBundledOutput(sides.front, colors.white, 0)
		rs.setBundledOutput(sides.front, colors.red, 0)
		for a = 1, 15, 1 do
			cc.move(forward)
			os.sleep(1)
		end
	end

	if (rep == "move back") then
		rs.setBundledOutput(sides.front, colors.lime, 0)
		rs.setBundledOutput(sides.front, colors.magenta, 0)
		rs.setBundledOutput(sides.front, colors.blue, 0)
		rs.setBundledOutput(sides.front, colors.black, 200)
		rs.setBundledOutput(sides.front, colors.brown, 0)
		rs.setBundledOutput(sides.front, colors.white, 0)
		rs.setBundledOutput(sides.front, colors.red, 0)
		for a = 1, 15, 1 do
			cc.move(backward)
			os.sleep(1)
		end
	end

	if (rep == "move up1") then
		cc.move(up)
		rs.setBundledOutput(sides.front, colors.lime, 0)
		rs.setBundledOutput(sides.front, colors.magenta, 0)
		rs.setBundledOutput(sides.front, colors.blue, 0)
		rs.setBundledOutput(sides.front, colors.black, 0)
		rs.setBundledOutput(sides.front, colors.brown, 0)
		rs.setBundledOutput(sides.front, colors.white, 200)
		rs.setBundledOutput(sides.front, colors.red, 0)
	end

	if (rep == "move down1") then
		cc.move(down)
		rs.setBundledOutput(sides.front, colors.lime, 0)
		rs.setBundledOutput(sides.front, colors.magenta, 0)
		rs.setBundledOutput(sides.front, colors.blue, 0)
		rs.setBundledOutput(sides.front, colors.black, 0)
		rs.setBundledOutput(sides.front, colors.brown, 200)
		rs.setBundledOutput(sides.front, colors.white, 0)
		rs.setBundledOutput(sides.front, colors.red, 0)
	end

	if (rep == "stop") then
		done = true
		rs.setBundledOutput(sides.front, colors.lime, 0)
		rs.setBundledOutput(sides.front, colors.magenta, 0)
		rs.setBundledOutput(sides.front, colors.blue, 0)
		rs.setBundledOutput(sides.front, colors.black, 0)
		rs.setBundledOutput(sides.front, colors.brown, 0)
		rs.setBundledOutput(sides.front, colors.white, 0)
		rs.setBundledOutput(sides.front, colors.red, 200)
	end
until done