View difference between Paste ID: LJ3HepVv and K8z7pWrE

 local tArgs = { ... }
 local cldt = {}
 local tfnctns = {}
 local mvfncs = {{turtle.forward,turtle.detect,turtle.dig,turtle.attack},
 		{turtle.up,turtle.detectUp,turtle.digUp,turtle.attackUp},
-local function trply(mssgstr) -- i.e. "unbreakable block in path"
+
 local function trply(mssgstr) -- e.g. "unbreakable block in path"
-	if cldt.rcID then sleep(0.1) rednet.send(cldt.rcID,mssgstr) end
+
 	if cldt.rcID then rednet.send(cldt.rcID,mssgstr) end
-local function trply(mssgstr) -- i.e. "unbreakable block in path"
+
 local function mvdgK(drctn) -- i.e.(1 = forward, 2 = up, 3 = down)
-	if cldt.rcID then sleep(0.1) rednet.send(cldt.rcID,mssgstr) end
+
 	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 turtle.getFuelLevel() == 0 then trply("Out of fuel" ) return false
 		else mvfncs[drctn][4]() end
 		if itr8 > 64 then trply("persistent impediment") return false end
 		itr8 = itr8+1
 	end
 	return true
 end
 local rctfncs = {
 tnl = function() turtle.digUp() turtle.digDown() return mvdgK(1) end,
 dfd = function() return mvdgK(1) end,
-rctfncs = {
+
 ddn = function() return mvdgK(3) end,
 bmb = function()
 	if turtle.placeDown() then redstone.setOutput("bottom",true)
 		sleep(0.5) redstone.setOutput("bottom",false)
 	if not turtle.detectDown() then return true end end
-	turtle.placeDown()
+return false end,
-	redstone.setOutput("bottom",true)
+
-	sleep(0.5)
+	if turtle.suck() then return "front"
-	redstone.setOutput("bottom",false)
+	elseif turtle.suckUp() then return "top"
 	elseif turtle.suckDown() then return "bottom"
 	else return false end
-	if not turtle.suck() then
+
-		turtle.suckUp()
+chst = function()
-	else turtle.suckDown() end
+	turtle.select(16)
 	if turtle.place() then for i = 1,15 do turtle.select(i) turtle.drop() end return true end
 return false end,
 cprl = function()
 	local frt,top,btm = 0,0,0
-	trply("Slot "..cldt.slt.." selected, contains "..turtle.getItemCount(cldt.slt)..", "..turtle.getItemSpace(cldt.slt).." from full")
+	for i = 16,1,-1 do turtle.select(i)
 		if turtle.compare() then frt = i end
-refuel = function()
+		if turtle.compareUp() then top = i end
 		if turtle.compareDown() then btm = i end
-	if not turtle.refuel(turtle.getItemCount(cldt.slt)) then
+
-		trply("Slot "..cldt.slt.." does not contain fuel")
+return frt.."-"..top.."/"..btm end,
-	else trply("New fuel level is "..turtle.getFuelLevel()) end
+
 	cldt.slt = math.fmod(cldt.slt,16)+1
-gox = function()
+
-	trply("send command string")
+	local stcksz = turtle.getItemCount(cldt.slt)
-	repeat cldt[2], cldt[3] = rednet.receive() until cldt[2] == cldt.rcID
+	return "Slot "..cldt.slt..", "..stcksz.."/"..stcksz+turtle.getItemSpace(cldt.slt)
-	tfnctns[6](cldt[3])
+
 rfl = function()
-gpslct = function() local x,y,z = gps.locate(2) trply("Turtle ID "..os.computerID().." GPS = "..x..", "..y..", "..z) end,
+
 	trply("Current fuel level is "..turtle.getFuelLevel())
-	local rqstr,mssgrq = nil
+	if turtle.refuel() then return "New fuel level is "..turtle.getFuelLevel()
-	local x,y,z = gps.locate(2)
+	else return false end
 end,
-		rqstr,mssgrq = rednet.receive()
+gox = function(cmmnds)
-		if mssgrq == "PING" then rednet.send(rqstr, textutils.serialize({x,y,z}))
+	cmmnds = cmmnds:match("%S+")
-		elseif cldt.rcID == rqstr and mssgrq == "gpshst" then x = nil end
+	return tfnctns[6](cmmnds)
-	until not x
+
-	trply("TurtleID "..os.computerID().." GPS hosting terminated")
+gpslct = function() local x,y,z = gps.locate(2) if x then return "GPS = "..x..", "..y..", "..z
 else return false end end,
-rcvfl = function()
+
-	trply("send file name")
+	local tp = {gps.locate(2)}
-	repeat cldt[2], cldt[3] = rednet.receive() until cldt[2] == cldt.rcID
+	if tp[1] then trply("Serving GPS from "..tp[1]..", "..tp[2]..", "..tp[3]) end
-	local flnm = cldt[3]
+	repeat tp[4],tp[5],tp[6] = rednet.receive()
-	trply("send file body")
+		if tp[5] == "PING" then rednet.send(tp[4], textutils.serialize({tp[1],tp[2],tp[3]}))
-	repeat cldt[2], cldt[3] = rednet.receive() until cldt[2] == cldt.rcID
+			trply("PINGed by "..tp[4].." at "..tp[6].." meters")
-	local flbdy = fs.open(flnm,"w") flbdy.write(cldt[3]) flbdy.close()
+		elseif cldt.rcID == tp[4] and tp[5] == "gpshst" then tp[1] = nil end
-	trply(flnm.." Updated")
+	until not tp[1]
 return "GPS hosting terminated"
-srvfl = function()
+
-	trply("send file path/name")
+rcvfl = function(flnm)
-	repeat cldt[2], cldt[3] = rednet.receive() until cldt[2] == cldt.rcID
+	local cntnt
-	local flbdy = fs.open(cldt[3],"r")
+	flnm,cntnt = flnm:match("(%S+)%s*(.*)")
  	local hndl = fs.open(flnm,"w") hndl.writeLine(cntnt) hndl.close()
 return flnm.." updated" end,
-ldstrng = function()
+srvfl = function(flnm)
-	trply("send lua code chunk")
+	flnm = flnm:match("%S+")
-	repeat cldt[2], cldt[3] = rednet.receive() until cldt[2] == cldt.rcID
+	local flbdy = fs.open(flnm,"r")
-	local tmpfnc,rrmssg = loadstring(cldt[3])
+
-	if tmpfnc then tmpfnc() else trply(rrmssg) end
+return flnm.." served" end,
 xqtfl = function(prms)
 	local tprm,ndx = {},1
-cmdlst = {f=rctfncs.dfd,b=turtle.back,u=rctfncs.dup,d=rctfncs.ddn,
+	for v in prms:gmatch("%w+") do tprm[ndx] = v ndx = ndx+1 end
 	shell.run(unpack(tprm))
 	local hndl = fs.open("startup","w")
 	hndl.writeLine("shell.run(\"clfn\",1,"..cldt.rcID..")") hndl.close()
 return tprm[1].." executed" end,
 ldstrng = function(luacd)
-	R=rctfncs.refuel,S=rctfncs.slct,B=rctfncs.bmb,
+	local tmpfnc,rrmssg = loadstring(luacd)
 	if tmpfnc then return tmpfnc()
 	else return rrmssg end
-function(psswrd,rtID)
+
-	cldt.rcID = rtID
+
 local cmdlst = {f=rctfncs.dfd,b=turtle.back,u=rctfncs.dup,d=rctfncs.ddn,
-	if psswrd then cldt[1] = psswrd cldt.slt = 1 turtle.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 not cldt.rcID and cldt[3] == cldt[1] then cldt.rcID = cldt[2] end
+	R=rctfncs.rfl,S=rctfncs.slct,B=rctfncs.bmb,C=rctfncs.chst
-	until cldt[2] == cldt.rcID and cldt[3] == cldt[1] trply("password accepted")
+
 tfnctns = {
-	hndl.writeLine("shell.run(\"clfn\",1,\""..cldt[1].."\")") hndl.close()
+function(rtID)
-	while cldt.rcID do cldt[2],rnmssg = rednet.receive()
+	cldt.rcID = tonumber(rtID)
-		if cldt[2] == cldt.rcID then
+
-			_,_,cldt[3], cldt[4] = rnmssg:find("^(%a+)(.*)")
+	if cldt.rcID then cldt.slt = 1 turtle.select(cldt.slt) else
-			if turtle[cldt[3]] then trply(tostring(turtle[cldt[3]](tonumber(cldt[4]))))
+		write("Enter controller ID> ") cldt.rcID = tonumber(read())
-			elseif rctfncs[cldt[3]] then rctfncs[cldt[3]]()
+
-			elseif rnmssg == "trmn8RC" then cldt.rcID = nil end
+	print("Turtle "..os.computerID().." controlled by console "..cldt.rcID)
 	local hndl = fs.open("startup","w")
 	hndl.writeLine("shell.run(\"clfn\",1,"..cldt.rcID..")") hndl.close()
-	print("Remote Control Terminated") fs.delete("startup")
+	while cldt.rcID do
 		repeat cldt[1],cldt[2] = rednet.receive() until cldt[1] == cldt.rcID
 		cldt[3], cldt[4] = cldt[2]:match("^(%a+)%s*(.*)")
 		if cldt[4] == "" then cldt[4] = "1" end
 		if turtle[cldt[3]] then trply(tostring(turtle[cldt[3]](tonumber(cldt[4]))))
-	print("Place fuel in Slot 16 and enter")
+		elseif rctfncs[cldt[3]] then trply(tostring(rctfncs[cldt[3]](cldt[4])))
-	io.read()
+		elseif cldt[2] == "trmn8RC" then trply("Remote Control Terminated")
-	rctfncs.refuel()
+			cldt.rcID = nil
 		end
 	end
-	print("Place material to be sifted in Slots 1-15\nLeave Slot 16 empty")
+
-	io.read()
+
 	cldt.slt = 16
 	write("Place fuel in Slot 16 and enter") read()
 	print(cmdlst.R())
 end,
 function()
 	write("Place material to be sifted in Slots 1-15\nLeave Slot 16 empty") read()
 	repeat
-	print("Place seeds in Slot 1\nBonemeal in Slots 2-15\nLeave Slot 16 empty")
+
-	io.read()
+
 		if not turtle.dig() then print("Error") break end
 	until cldt.slt > 15
 end,
 function()
 	write("Place seeds in Slot 1\nBonemeal in Slots 2-15\nLeave Slot 16 empty") read()
 	cldt.slt = 2
 	repeat
 		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()
-		turtle.select(2)
+
 end,
-		for i=4,7 do if turtle.getItemCount(i) > 0 then turtle.select(i) break end end
+function(x3Ps,z3Ps,fcng,dmn)
-		turtle.drop()
+	x3Ps,z3Ps,fcng,dmn = tonumber(x3Ps),tonumber(z3Ps),tonumber(fcng),tonumber(dmn)
-		strtfl = fs.open("disk/startup","w")
+
-		strtfl.writeLine("shell.run(\"gps\",\"host\","..xPos..","..yPos..","..zPos..")")
+	local cntntstng = [[fs.copy("disk/rnhst","rnhst") shell.run("rnhst","host",]]
 	if fs.exists("rom/programs/rnhst") then  cntntstng = [[shell.run("rnhst","host",]]
-		turtle.up()
+	elseif not fs.exists("rnhst") then print("Must have available rnhst program to execute")
-		turtle.forward()
+	return false end
-		turtle.turnLeft()
+
-		turtle.back()
+		turtle.select(2) cmdlst.p()
 		turtle.select(4) cmdlst.x()
 		if fs.exists("rnhst") and not fs.exists("disk/rnhst") then fs.copy("rnhst","disk/rnhst") end
-		turtle.back()
+		local strtfl = fs.open("disk/startup","w")
 		strtfl.writeLine(cntntstng..xPos..","..yPos..","..zPos..","..dmn..")")
 		strtfl.close()
-		turtle.turnLeft()
+		local cmdstrng = {"u","f","l","b",}
-		turtle.forward()
+		for i = 1,#cmdstrng do cmdlst[cmdstrng[i]]() end
-		turtle.turnRight()
+		turtle.select(1) cmdlst.p() cmdlst.b()
-		turtle.forward()
+
-		turtle.forward()
+		cmdstrng = {"p","l","f","r","f","f","r",}
-		turtle.turnRight()
+		for i = 1,#cmdstrng do cmdlst[cmdstrng[i]]() end
 		peripheral.call("front","turnOn")
-		turtle.down()
+		cmdlst.d() cmdlst.v() cmdlst.e()
 	end
 	local function plcaxis(xPos,yPos,zPos)
 		x1Ps,y1Ps,z1Ps = gps.locate(2,true)
-		turtle.forward()
+		cmdlst.f()
 		if x1Ps then --there is a GPS system, use it to determine coordinates and facing
 			x2Ps,yPos,z2Ps = gps.locate(2)
 			x2Ps,z2Ps = x2Ps-x1Ps,z2Ps-z1Ps
 		else x1Ps,y1Ps,z1Ps = xPos,yPos,zPos end
-		turtle.down()
+		cmdlst.d()
 		gpsnode(x1Ps+(x2Ps*2),y1Ps,z1Ps+(z2Ps*2))
 	-- Go back 2 and set the second node
-		turtle.turnRight()
+		cmdlst.r() cmdlst.r()
-		turtle.turnRight()
+
 		gpsnode(x1Ps-(x2Ps*2),y1Ps,z1Ps-(z2Ps*2))
 	end
 	while not(x3Ps and z3Ps and fcng and dmn) do
-	print([[Fill inventory as follows
+		write([[Fill inventory as follows
 Slot 1 > 4+ Computers
 Slot 2 > 4+ Disk drives
 Slot 3 > 4+ Wireless Modems (4x)
-Slots 4-7 > Floppy disks
+Slot 4 > Floppy disk
-Enter turtle's current x]])
+Enter turtle's current x> ]]) x3Ps = tonumber(read())
-	local x3Ps = tonumber(io.read())
+		write("Enter turtle's current z> ") z3Ps = tonumber(read())
-	print("Enter turtle's current z")
+		write("Enter turtle's current facing> ") fcng = tonumber(read())
-	local z3Ps = tonumber(io.read())
+		write("Enter initial admin access ID") dmn = tonumber(read())
-	print("Enter turtle's current facing")
+
-	for i=1, tonumber(io.read())+1 do turtle.turnLeft() end
+	for i=1, fcng+1 do turtle.turnLeft() end
 	while turtle.getFuelLevel() < 500 do
-		print("Low Fuel Warning")
+		trply("Low Fuel Warning!")
-		print("Place fuel in Slot 16 and press Enter")
+		write("Place fuel in Slot 16 and press Enter") read()
-		io.read()
+		cldt.slt = 16 print(cmdlst.R())
-		turtle.select(16)
+
-		print("Current fuel level is"..turtle.getFuelLevel())
+
-		if not turtle.refuel(turtle.getItemCount(16)) then
+	while cmdlst.u() do end
-			print("Slot "..cldt.slt.." does not contain fuel")
+
-		else print("New fuel level is"..turtle.getFuelLevel()) end
+
 	x2Ps,z2Ps = 0,1
 	cmdlst.b() cmdlst.r()
-	while turtle.up() do end
+
 	cmdlst.b()
 	while turtle.down() do end
 end,
-	turtle.back()
+
-	turtle.turnRight()
+
 local function lngth(lst)
 	if lst then return #lst else return 0 end
 end
 local function gtNmbr(strg)
 	local nmbr,rmndr = strg:match("^(%d+)(.*)$")
 	return nmbr,lngth(strg)-lngth(rmndr)
 end
 local function gtLoop(strg)
 	local loop,rmndr = strg:match("^(%b[])(.*)$")
-	local _,_,nmbr,rmndr = strg:find("^(%d+)(.*)$")
+
 	else return nil,0 end
 end
 local function gox(cmnds)
-	local _,_,loop,rmndr = strg:find("^(%b[])(.*)$")
+
 	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
 	print([[enter a string of commands/loops
 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
 R to refuel, S to select next slot
 [...] loop while last command succeeds
 number for fixed loop]])
 	cmndstrng = read() end
 	return gox(cmndstrng)
 end,
 }
 shell.run('clear')
 cldt[1] = tonumber(tArgs[1])
-	gox(cmndstrng)
+if cldt[1] and tArgs[2] then tfnctns[cldt[1]](unpack(tArgs,2)) else
 repeat
 	cldt.slt = 1
 	turtle.select(cldt.slt)
 	print("Select function by number")
-if cldt[1] and tArgs[2] then tfnctns[cldt[1]](tArgs[2],tonumber(tArgs[3])) else
+
 2: Refuel
 3: Sift Gravel
 4: Auto Farm
 5: Launch GPS Array
 6: GoX commands
 Or other to exit]])
 	sclfn = tfnctns[tonumber(read())]
 	if sclfn then sclfn() end
 until not sclfn
 end