View difference between Paste ID: Vd2bPASS and WaGeHjh4

 local component = require("component")
 local computer = require("computer")
-local mvfncs = {{turtle.forward,turtle.detect,turtle.dig,turtle.attack},
+local robot = require("robot")
-		{turtle.up,turtle.detectUp,turtle.digUp,turtle.attackUp},
+local shell = require("shell")
-		{turtle.down,turtle.detectDown,turtle.digDown,turtle.attackDown},}
+local term = require("term")
 local sides = require("sides")
 
 local tArgs = { ... }
 local cldt = {}
 local mvfncs = {{robot.forward,robot.detect,robot.swing,robot.swing},
 		{robot.up,robot.detectUp,robot.swingUp,robot.swingUp},
 		{robot.down,robot.detectDown,robot.swingDown,robot.swingDown},}
 local function trply(mssgstr) -- i.e. "unbreakable block in path"
 	print(mssgstr)
 	if cldt.rcID then sleep(0.1) rednet.send(cldt.rcID,mssgstr) end
 end
 local function trply(mssgstr) -- i.e. "unbreakable block in path"
 	print(mssgstr)
-		elseif turtle.getFuelLevel() == 0 then trply("Out of fuel" ) return false
+
 end
 local function mvdgK(drctn) -- i.e.(1 = forward, 2 = up, 3 = down)
 	local itr8 = 0
 	while not mvfncs[drctn][1]() do
 		if mvfncs[drctn][2]() then
 			if not mvfncs[drctn][3]() then trply("unbreakable block in path") return false end
 		elseif computer.energy() == 0 then trply("Out of fuel" ) return false
-tnl = function() turtle.digUp() turtle.digDown() return mvdgK(1) end,
+
 		if itr8 > 64 then trply("persistent impediment") return false end
 		itr8 = itr8+1
 	end
 	return true
-	turtle.placeDown()
+
 rctfncs = {
 tnl = function() robot.swingUp() robot.swingDown() return mvdgK(1) end,
 dfd = function() return mvdgK(1) end,
 dup = function() return mvdgK(2) end,
 ddn = function() return mvdgK(3) end,
-	if not turtle.suck() then
+
-		turtle.suckUp()
+	robot.placeDown()
-	else turtle.suckDown() end
+
 	sleep(0.5)
 	redstone.setOutput("bottom",false)
 end,
-	turtle.select(cldt.slt)
+
-	trply("Slot "..cldt.slt.." selected, contains "..turtle.getItemCount(cldt.slt)..", "..turtle.getItemSpace(cldt.slt).." from full")
+	if not robot.suck() then
 		robot.suckUp()
 	else robot.suckDown() end
-	trply("Current fuel level is "..turtle.getFuelLevel())
+
-	if not turtle.refuel(turtle.getItemCount(cldt.slt)) then
+
 	cldt.slt = math.fmod(cldt.slt,16)+1
-	else trply("New fuel level is "..turtle.getFuelLevel()) end
+	robot.select(cldt.slt)
 	trply("Slot "..cldt.slt.." selected, contains "..robot.count(cldt.slt)..", "..robot.space(cldt.slt).." from full")
 end,
 refuel = function()
 	trply("Current fuel level is "..computer.energy())
 	if not component.generator.insert(robot.count(cldt.slt)) then
 		trply("Slot "..cldt.slt.." does not contain fuel")
-gpslct = function() local x,y,z = gps.locate(2) trply("Turtle ID "..os.computerID().." GPS = "..x..", "..y..", "..z) end,
+	else trply("New fuel level is "..computer.energy()) end
 end,
 gox = function()
 	trply("send command string")
 	repeat cldt[2], cldt[3] = rednet.receive() until cldt[2] == cldt.rcID
 	tfnctns[6](cldt[3])
 end,
 gpslct = function() local x,y,z = gps.locate(2) trply("Robot ID "..os.computerID().." GPS = "..x..", "..y..", "..z) end,
 gpshst = function()
-	trply("TurtleID "..os.computerID().." GPS hosting terminated")
+
 	local x,y,z = gps.locate(2)
 	repeat
 		rqstr,mssgrq = rednet.receive()
 		if mssgrq == "PING" then rednet.send(rqstr, textutils.serialize({x,y,z}))
 		elseif cldt.rcID == rqstr and mssgrq == "gpshst" then x = nil end
 	until not x
 	trply("Robot ID "..os.computerID().." GPS hosting terminated")
 end,
 rcvfl = function()
 	trply("send file name")
 	repeat cldt[2], cldt[3] = rednet.receive() until cldt[2] == cldt.rcID
 	local flnm = cldt[3]
 	trply("send file body")
 	repeat cldt[2], cldt[3] = rednet.receive() until cldt[2] == cldt.rcID
 	local flbdy = fs.open(flnm,"w") flbdy.write(cldt[3]) flbdy.close()
 	trply(flnm.." Updated")
 end,
 srvfl = function()
 	trply("send file path/name")
 	repeat cldt[2], cldt[3] = rednet.receive() until cldt[2] == cldt.rcID
 	local flbdy = fs.open(cldt[3],"r")
 	trply(flbdy.readAll()) flbdy.close()
 end,
-cmdlst = {f=rctfncs.dfd,b=turtle.back,u=rctfncs.dup,d=rctfncs.ddn,
+
-	l=turtle.turnLeft,r=turtle.turnRight,t= rctfncs.tnl,
+
-	p=turtle.place,P=turtle.placeUp,o=turtle.placeDown,
+
-	x=turtle.drop,X=turtle.dropUp,z=turtle.dropDown,
+
-	e=turtle.dig,E=turtle.digUp,w=turtle.digDown,
+
-	v=rctfncs.pckup,V=turtle.suckUp,c=turtle.suckDown,
+
 }
 cmdlst = {f=rctfncs.dfd,b=robot.back,u=rctfncs.dup,d=rctfncs.ddn,
 	l=robot.turnLeft,r=robot.turnRight,t= rctfncs.tnl,
 	p=robot.place,P=robot.placeUp,o=robot.placeDown,
 	x=robot.drop,X=robot.dropUp,z=robot.dropDown,
 	e=robot.swing,E=robot.swingUp,w=robot.swingDown,
-	if psswrd then cldt[1] = psswrd cldt.slt = 1 turtle.select(cldt.slt) else
+	v=rctfncs.pckup,V=robot.suckUp,c=robot.suckDown,
 	R=rctfncs.refuel,S=rctfncs.slct,B=rctfncs.bmb,
 }
 tfnctns = {
 function(psswrd,rtID)
 	cldt.rcID = rtID
 	rednet.open("right")
 	if psswrd then cldt[1] = psswrd cldt.slt = 1 robot.select(cldt.slt) else
 	print("Enter confirmation password")
 	cldt[1] = io.read() end
 	print("Send password from control terminal")
 	repeat cldt[2], cldt[3] = rednet.receive()
-			if turtle[cldt[3]] then trply(tostring(turtle[cldt[3]](tonumber(cldt[4]))))
+
 	until cldt[2] == cldt.rcID and cldt[3] == cldt[1] trply("password accepted")
 	local hndl = fs.open("startup","w")
 	hndl.writeLine("shell.run(\"clfn\",1,\""..cldt[1].."\")") hndl.close()
 	while cldt.rcID do cldt[2],rnmssg = rednet.receive()
 		if cldt[2] == cldt.rcID then
 			_,_,cldt[3], cldt[4] = rnmssg:find("^(%a+)(.*)")
 			if robot[cldt[3]] then trply(tostring(robot[cldt[3]](tonumber(cldt[4]))))
 			elseif rctfncs[cldt[3]] then rctfncs[cldt[3]]()
-	turtle.select(cldt.slt)
+
 		end
 	end
 	print("Remote Control Terminated") fs.delete("startup")
 end,
 function()
 	cldt.slt = 16
 	robot.select(cldt.slt)
 	print("Place fuel in Slot 16 and enter")
-		turtle.place()
+
-		if turtle.getItemCount(cldt.slt) < 1 then rctfncs.slct() end
+
-		if not turtle.dig() then print("Error") break end
+
 function()
 	print("Place material to be sifted in Slots 1-15\nLeave Slot 16 empty")
 	io.read()
 	repeat
 		robot.place()
 		if robot.count(cldt.slt) < 1 then rctfncs.slct() end
 		if not robot.swing() then print("Error") break end
-		turtle.select(1)
+
-		if not turtle.place() then print("There must be tilled dirt to plant") break end
+
-		turtle.select(cldt.slt)
+
-		if not turtle.place() then print("Process requires Bonemeal to continue") break end
+
-		if turtle.getItemCount(cldt.slt) < 1 then rctfncs.slct() end
+
-		turtle.dig()
+
 	repeat
 		robot.select(1)
 		if not robot.place() then print("There must be tilled dirt to plant") break end
 		robot.select(cldt.slt)
 		if not robot.place() then print("Process requires Bonemeal to continue") break end
-		turtle.select(2)
+		if robot.count(cldt.slt) < 1 then rctfncs.slct() end
-		turtle.place()
+		robot.swing()
-		for i=4,7 do if turtle.getItemCount(i) > 0 then turtle.select(i) break end end
+
-		turtle.drop()
+
 function()
 	local x1Ps,y1Ps,z1Ps,x2Ps,z2Ps = 0,255,0,1,0
 	local function gpsnode(xPos,yPos,zPos)
-		turtle.up()
+		robot.select(2)
-		turtle.forward()
+		robot.place()
-		turtle.turnLeft()
+		for i=4,7 do if robot.count(i) > 0 then robot.select(i) break end end
-		turtle.back()
+		robot.drop()
-		turtle.select(1)
+
-		turtle.place()
+
-		turtle.back()
+
-		turtle.select(3)
+		robot.up()
-		turtle.place()
+		robot.forward()
-		turtle.turnLeft()
+		robot.turnLeft()
-		turtle.forward()
+		robot.back()
-		turtle.turnRight()
+		robot.select(1)
-		turtle.forward()
+		robot.place()
-		turtle.forward()
+		robot.back()
-		turtle.turnRight()
+		robot.select(3)
 		robot.place()
-		turtle.down()
+		robot.turnLeft()
 		robot.forward()
 		robot.turnRight()
 		robot.forward()
-		turtle.forward()
+		robot.forward()
 		robot.turnRight()
 		peripheral.call("front","turnOn")
 		robot.down()
 	end
-		turtle.down()
+
 		x1Ps,y1Ps,z1Ps = gps.locate(2,true)
 		robot.forward()
-		turtle.turnRight()
+
-		turtle.turnRight()
+
-		for c=1,2 do turtle.forward() end
+
 		else x1Ps,y1Ps,z1Ps = xPos,yPos,zPos end
 		robot.down()
 		gpsnode(x1Ps+(x2Ps*2),y1Ps,z1Ps+(z2Ps*2))
 	-- Go back 2 and set the second node
 		robot.turnRight()
 		robot.turnRight()
 		for c=1,2 do robot.forward() end
-Enter turtle's current x]])
+
 	end
-	print("Enter turtle's current z")
+
 Slot 1 > 4+ Computers
-	print("Enter turtle's current facing")
+
-	for i=1, tonumber(io.read())+1 do turtle.turnLeft() end
+
-	while turtle.getFuelLevel() < 500 do
+
 Enter robot's current x]])
 	local x3Ps = tonumber(io.read())
 	print("Enter robot's current z")
-		turtle.select(16)
+
-		print("Current fuel level is"..turtle.getFuelLevel())
+	print("Enter robot's current facing")
-		if not turtle.refuel(turtle.getItemCount(16)) then
+	for i=1, tonumber(io.read())+1 do robot.turnLeft() end
 	while computer.energy() < 500 do
-		else print("New fuel level is"..turtle.getFuelLevel()) end
+
 		print("Place fuel in Slot 16 and press Enter")
--- launch turtle
+
-	while turtle.up() do end
+		robot.select(16)
 		print("Current fuel level is"..computer.energy())
 		if not component.generator.insert(robot.count(16)) then
 			print("Slot "..cldt.slt.." does not contain fuel")
-	turtle.back()
+		else print("New fuel level is"..computer.energy()) end
-	turtle.turnRight()
+
 -- launch robot
-	while turtle.down() do end
+	while robot.up() do end
 	plcaxis(x3Ps,255,z3Ps)
 -- Go back to the middle and turn
 	x2Ps,z2Ps = 0,1
 	robot.back()
 	robot.turnRight()
 	plcaxis(x3Ps,254,z3Ps)
 	while robot.down() do end
 end,
 function(cmndstrng) -- Go commands
 -- non-nil array length
 local function lngth(lst)
 	if lst then return #lst else return 0 end
 end
 local function gtNmbr(strg)
 	local _,_,nmbr,rmndr = strg:find("^(%d+)(.*)$")
 	return nmbr,lngth(strg)-lngth(rmndr)
 end
 local function gtLoop(strg)
 	local _,_,loop,rmndr = strg:find("^(%b[])(.*)$")
 	if loop then return loop:sub(2,-2),lngth(strg)-lngth(rmndr)
 	else return nil,0 end
 end
 local function gox(cmnds)
 	if not #cmnds then return false end
 	local ndx,prvCmnd,result = 1,""
 	while ndx <= #cmnds do
 		local char = cmnds:sub(ndx,ndx)
 		local nxtCh = cmnds:sub(ndx+1, ndx+1)
 		if cmdlst[char] then
 			ndx,result = ndx+1,cmdlst[char]()
 		else
 			local nmbr, nLen = gtNmbr(cmnds:sub(ndx))
 			local loop, lpLen = gtLoop(cmnds:sub(ndx))
 			if nmbr then
 				for i = 2,tonumber(nmbr) do gox(prvCmnd) end
 				ndx = ndx+nLen
 			elseif loop then
 				local nmbr, nLen = gtNmbr(cmnds:sub(ndx+lpLen))
 				if nmbr then
 					for i = 1,tonumber(nmbr) do gox(loop) end
 					ndx = ndx+nLen
 				else while gox(loop) do end end
 				ndx = ndx+lpLen
 		end	end
 		prvCmnd = char
 	end
 	return result
 end
 if not cmndstrng then
-	cmndstrng = read() end
+
 f b u d l r to move, t to tunnel
 p P o to place[U/Dn], x X z to drop
 e E w to dig [U/Dn], v V c to suck
-shell.run('clear')
+
 [...] loop while last command succeeds
 number for fixed loop]])
-turtle.select(cldt.slt)
+	cmndstrng = io.read() end
 	gox(cmndstrng)
 end,
 }
-	turtle.select(cldt.slt)
+term.clear()
 cldt[1] = tonumber(tArgs[1])
 cldt.slt = 1
 robot.select(cldt.slt)
 if cldt[1] and tArgs[2] then tfnctns[cldt[1]](tArgs[2],tonumber(tArgs[3])) else
 repeat
 	cldt.slt = 1
 	robot.select(cldt.slt)
 	print("Select function by number")
 	print([[1: Remote Control
 2: Refuel
 3: Sift Gravel
 4: Auto Farm
 5: Launch GPS Array
 6: GoX commands
 Or other to exit]])
 	sclfn = tfnctns[tonumber(io.read())]
 	if sclfn then sclfn() end
 until not sclfn
 end