CC turtle forcefield controler

i=peripheral.wrap("left")
rednet.open("right")
xPos,zPos,yPos=gps.locate()
args={...}

function toArgs(argument)
z1=1
while string.find(argument," ") do
args[z1]=string.sub(argument,1,string.find(argument," ")-1)
argument=string.sub(argument,string.find(argument," ")+1)
z1=z1+1
end
return args
end

function orderInv()
turtle.select(1) while i.suck(3,1) do end
turtle.select(2) while i.suck(3,1) do end
turtle.select(5) while i.suck(5,1) do end while i.suck(13,1) do end
turtle.select(6) while i.suck(9,1) do end while i.suck(8,1) do end
turtle.select(7) while i.suck(4,1) do end while i.suck(7,1) do end

turtle.select(8) while i.suck(6,1) do end
turtle.select(9) while i.suck(11,1) do end
turtle.select(10) while i.suck(14,1) do end
turtle.select(11) while i.suck(12,1) do end
turtle.select(12) while i.suck(10,1) do end
end

function setField(cXPos,cYPos,cZPos,rad,mode)
orderInv()
turtle.select(mode)
i.drop(3,1)
divX=cXPos-xPos
divZ=cZPos-zPos
divY=cYPos-yPos

turtle.select(4+1)
if divX>=1 then i.drop(5,divX) else i.drop(13,math.sqrt(divX*divX)) end
turtle.select(4+2)
if divZ>=1 then i.drop(9,divZ) else i.drop(8,math.sqrt(divZ*divZ)) end
turtle.select(4+3)
if divY>=1 then i.drop(4,divY) else i.drop(7,math.sqrt(divY*divY)) end
turtle.select(8) i.drop(6,rad)
turtle.select(9) i.drop(11,rad)
turtle.select(10) i.drop(14,rad)
turtle.select(11) i.drop(12,rad*2)
turtle.select(12) i.drop(10,rad)

turtle.select(16)
turtle.suck() turtle.drop()
rs.setOutput("front",true)
end


if tonumber(args[1])~=nil and string.find(message,"Tina setBox at ") then
setField(tonumber(args[1])+1,tonumber(args[2]),tonumber(args[3]),tonumber(args[4]),tonumber(args[5]))
end


event, side, frequency, replyFrequency, message, distance = os.pullEvent("modem_message")
if string.find(message,"Tina setBox at ") then
--print("test "..string.sub(message,#"Tina setBox at "))
shell.run("test "..string.sub(message,#"Tina setBox at "))
end
if message=="Tina setBox off" then
rs.setOutput("front",false)
end
shell.run("test "..string.sub(message,#"Tina setBox at "))