View difference between Paste ID: Uy1umavZ and qLthLak5

---
+--[[
---GPS Deploy by neonerZ v1.1
+GPS Deploy by neonerZ v1.0 (modified for labeled computers by KaosKlaus)
---http://youtube.com/neonerz
+http://youtube.com/neonerz
---
+
---This script is originally from BigSHinyToys from ComputerCraft.info
+This script is originally from BigSHinyToys from ComputerCraft.info
---Original link can be found here:
+Original link can be found here:
---http://www.computercraft.info/forums2/index.php?/topic/3088-how-to-guide-gps-global-position-system/page__p__28333#entry28333
+http://www.computercraft.info/forums2/index.php?/topic/3088-how-to-guide-gps-global-position-system/page__p__28333#entry28333
---Edited by neonerZ
+Edited by neonerZ
---
+
--- Modifications included:
+In order to use this script you need to setup
---
+either a mining turtle, or a standard turtle
--- happydude11209: Line 209 - added logic to check if the server is set to no fuel mode
+
--- http://www.computercraft.info/forums2/index.php?/topic/9528-gps-deploy-10/page__view__findpost__p__123411
+Mining Turtle:
---
+Slot 1 - Fuel
--- kittykiller: Line 110 - Bug in the locate code if you were using an existing GPS system to deploy a new one
+Slot 2 - 1 Disk
--- http://www.computercraft.info/forums2/index.php?/topic/9528-gps-deploy-10/page__view__findpost__p__80323
+Slot 3 - At least 4 modems
---
+Slot 4 - At lease 1 disk drive
--- Mad_Professor: Line 296 - Bug calling computers, monitors. Making people think they needed to load 4 monitors
+Slot 5-8 - At least 4 computers  (makes use of labeled computers possible)
--- http://www.computercraft.info/forums2/index.php?/topic/9528-gps-deploy-10/page__view__findpost__p__150291
+
---
+Standard Turtle:
---
+Slot 1 - Fuel
---
+Slot 2 - 1 Disk
--- In order to use this script you need to setup
+Slot 3 - At least 4 modems
--- either a mining turtle, or a standard turtle
+Slot 4 - At lease 4 disk drives
--- Mining Turtle: Slot 1 - Fuel
+Slot 5-8 - At least 4 computers  (makes use of labeled computers possible)
---				  Slot 2 - At least 4 computers
+
---				  Slot 3 - At least 4 modems
+(mining turtles will be able to reuse the same
---				  Slot 4 - At lease 1 disk drive
+disk drive, where-as a standard turtle will leave
---				  Slot 5 - 1 Disk
+them and deploy a separate disk drive for each
--- Standard Turtle: Slot 1 - Fuel
+GPS host)
---				  	Slot 2 - At least 4 computers
+
---				  	Slot 3 - At least 4 modems
+Default Usage: Place the turtle where you want it
---				  	Slot 4 - At lease 4 disk drives
+deployed facing the SOUTH or 0 direction.
---				 	Slot 5 - 1 Disk
+Fill the turtle with the required materials
---
+above. Then use the command
--- (mining turtles will be able to reuse the same
+
---	disk drive, where-as a standard turtle will leave
+gps-deploy x y z
---  them and deploy a separate disk drive for each
+
---	GPS host)
+Where x, y, z is the *absolute* positions of the deploment
---
+turtle. By default the turtle will deploy the
--- Default Usage: Place the turtle where you want it
+the GPS array at around y = 254. Add a fourth
---		deployed facing the SOUTH or 0 direction.
+value to specify the height offset.
---		Fill the turtle with the required materials
+IMPORTANT: It's crucial you use your absolute coordinates,
---		above. Then use the command
+(the ones inside the parentheses next to your realitive coordinates)
---
+For Example: If F3 shows X = -6.43534 (-7) or Z = -15.542 (-16)
---		gps-deploy x y z
+you'd use -7 and -16 respectively. If you use -6 and -15 all coordinates
---
+that go past 0 in the opposite direction will be off by 1.)
---		Where x, y, z is the *absolute* positions of the deploment
+
---		turtle. By default the turtle will deploy the
+Example: gps-deploy 1 1 1 20
---		the GPS array at around y = 254. Add a fourth
+
---		value to specify the height offset.
+Would assume the turtle's start position is
---		IMPORTANT: It's crucial you use your absolute coordinates,
+x=1, y=1, z=1 and will deploy the satelite
---		 (the ones inside the parentheses next to your realitive coordinates)
+array at y= 21
---		 For Example: If F3 shows X = -6.43534 (-7) or Z = -15.542 (-16)
+
---		 you'd use -7 and -16 respectively. If you use -6 and -15 all coordinates
+neonerZ added features:
---		 that go past 0 in the opposite direction will be off by 1.)
+Smart Refilling: Fuel should go in slot 1.
---
+If not enough fuel is available script
---		Example: gps-deploy 1 1 1 20
+will prompt user for more fuel and wait 30.
---
+Script will estimate how much fuel is needed
---		Would assume the turtle's start position is
+and try to take only that much (in coal)
---		x=1, y=1, z=1 and will deploy the satelite
+Item Detection: Script will check slots 2-5  //modified: 2-8
---		array at y= 21
+for the correct quantity of items. It does
---
+*not* check if items are valid
---neonerZ added features
+GPS Host Coordinates: The script now requires
---	Smart Refilling: Fuel should go in slot 1.
+you to enter in the coordinates of the
---		If not enough fuel is available script
+turtle before launching. This will set
---		will prompt user for more fuel and wait 30.
+the GPS host computers to the correct
---		Script will estimate how much fuel is needed
+coordinates.
---		and try to take only that much (in coal)
+Satelite Array Location: The script allows
---	Item Detection: Script will check slots 2-5
+the user to set an offset for the placement
---		for the correct quantity of items. It does
+of the four satelites
---		*not* check if items are valid
+
---	GPS Host Coordinates: The script now requires
+KaosKlaus added:
---		you to enter in the coordinates of the
+support for labeled (non-stackable) computers
---		turtle before launching. This will set
+set label for computers after placing them
---		the GPS host computers to the correct
+reworked fuel check
---		coordinates.
+minor fixes
---	Satelite Array Location: The script allows
+--]]
---		the user to set an offset for the placement
+
---		of the four satelites
+-- ******** FUNCTIONS ********
 
--- How heigh up should the satellite be deployed?
+
--- This is the default value if you don't pass a
+
--- value to the script. There is a check down below
+
--- to make sure the user entered values isn't > 254
+
-height = 255
+
 	print( "would deploy the satelite to y=21")
--- need to enable rednet first incase using locate
+
-rednet.open( "right" )
+
 	print( "to find out the coords over GPS")
 end
 
 -- move functions - (original code)
 
 local mov = {}
 
 mov.forward = function ()
 	while not turtle.forward() do
 		sleep(1)
 	end
 	return true
--- confirm default height isn't set above 254
+
--- Check to see if a minimum of 3 values were
+
--- passed to the script
+
 		sleep(1)
 	end
 	return true
-	print ("")
+
 mov.up = function ()
 	while not turtle.up() do
 		sleep(1)
 	end
 	return true
 end
 mov.down = function ()
 	while not turtle.down() do
-		height = tonumber(height)
+
 	end
-		height = tonumber(tArgs[2])
+
 end
-	print ("gps-deploy ",xcord," ",ycord," ",zcord," height: ",height)
+
-	xcord = tonumber(xcord)
+
-	ycord = tonumber(ycord)
+
-	zcord = tonumber(zcord)
+
 end
-	if #tArgs <= 2 then
+
 local function selectComp()
 	for i = 5,8 do
 		if turtle.getItemCount(i) > 0 then
 			turtle.select(i)
 			return
-		zcord = tonumber(tArgs[3])
+
 	end
-			height = tonumber(height)
+
 
-			if tonumber(tArgs[4]) > 254 then
+local function clearTerm()
-				height = tonumber(height)
+
-			else
+
-				height = tonumber(tArgs[4])
+
 
 local function p(text)
 	term.clearLine()
 	print(text)
 end
 
-if height > ycord and height < 256 then
+local function clearLastLines(num)
-	height = height-ycord
+	local x,y = term.getCursorPos()
 	for i = 1,num do
 		term.setCursorPos(1,y-i)
-if height > 255 then
+		term.clearLine()
-	height = 255
+
 end
 
--- check if the script is running on a turtle
+local function checkFuel()
--- (original code)
+	--[[
 	Check if we have enough fuel
 	we estimate the fuel usage ((height*2)+70) needed to
 	complete the deoployment and then see if we have enough
 	fuel loaded. If we don't, it checks the first slot for
 	available fuel and tries to fill up on it. If it doesn't
 	have enough fuel in there, it prompts the user for more
--- move functions
+	fuel. It allows 30 seconds for the user to add  fuel
--- (original code)
+	(trying to refuel and verify fuel level every second)
 	and if it doesn't get it's fill within 30 seconds
 	it exits with a message to the user
 	neonerZ
 	--]]
 	if fuelLevel == "unlimited" then
 		return true
 	end
 	fuelNeed = height*2+120
 	if turtle.getFuelLevel() < fuelNeed then
 		turtle.select(1)
 		realcoal=math.ceil((fuelNeed-turtle.getFuelLevel())/80)
 		while turtle.getFuelLevel() < fuelNeed do
 			if turtle.getItemCount(1) <= 0 then
 				for i=30,1,-1 do
 					term.setCursorPos(1,4)
 					p("You ran out of fuel in slot 1")
 					p("Please insert "..fuelNeed-turtle.getFuelLevel().." fuel or "..realcoal.." coal to continue")
 					p("Waiting "..i.." seconds for fuel or exiting")
 					sleep(1)
 					if turtle.refuel(1) then
 						clearLastLines(4)
 						print("continuing...")
 						break
 					end
 					if i==1 then
 						term.setCursorPos(1,4)
 						p("Not enough fuel provided")
 						p("Please provide "..fuelNeed-turtle.getFuelLevel().." fuel or "..realcoal.." coal and try again")
 						p("")
 						return false
 					end
 				end
-local base = nil
+
 			end
--- Check if we have enough fuel
+			turtle.refuel(1)
--- we estimate the fuel usage ((height*2)+70) needed to
+
--- complete the deoployment and then see if we have enough
+
--- fuel loaded. If we don't, it checks the first slot for
+
--- available fuel and tries to fill up on it. If it doesn't
+
--- have enough fuel in there, it prompts the user for more
+
--- fuel. It allows 30 seconds for the user to add  fuel
+
--- (trying to refuel and verify fuel level every second)
+-- ******** MAIN PROGRAM ********
--- and if it doesn't get it's fill within 30 seconds
+
--- it exits with a message to the user
+clearTerm()
--- neonerZ
+
-if type(turtle.getFuelLevel()) == "string" then
+-- check if the script is running on a turtle - (original code)
-        print("No-fuel mode")
+
 	print("")
-	if turtle.getFuelLevel() < (tonumber(height)*2)+70 then
+
-		while turtle.getFuelLevel() < (tonumber(height)*2)+70 do
+
-			turtle.select(1)
+
-			realcoal=(((tonumber(height)*2)+70)-turtle.getFuelLevel())/80
+
-			if realcoal>=64 then
+--[[
-				coal=64
+How high up should the satellite be deployed?
-			else
+This is the default value if you don't pass a
-				coal=math.ceil(realcoal)
+value to the script. There is a check down below
 to make sure the user entered values isn't > 254
-			if turtle.refuel(tonumber(coal)) == false then
+--]]
-				fuel=((tonumber(height)*2)+70)-turtle.getFuelLevel()
+
-				print("")
+HEIGHT_DEFAULT = 254
-				print("You ran out of fuel in slot 1")
+height = 0
-				print("Please insert "..fuel.." fuel or "..realcoal.." coal to continue")
+
-				print("Waiting 30 seconds for fuel or exiting")
+--[[
-				i=0
+confirm default height isn't set above 254
-				while i<=30 do
+Check to see if a minimum of 3 values were
 passed to the script
-					realcoal=(((tonumber(height)*2)+70)-turtle.getFuelLevel())/80
+--]]
-					if realcoal>=64 then
+
-						coal=64
+
-					else
+
-						coal=math.ceil(realcoal)
+
 	-- check for modem turtle and activate rednet
-					turtle.refuel(tonumber(coal))
+	if peripheral.getType("right") == "modem" then
-					if turtle.getFuelLevel() >= (tonumber(height)*2)+70 then
+		rednet.open( "right" )
-						print("")
+
-						print("Turtle Fueled")
+		print ("No Modem on Turtle detected, please rerun manually")
-						i=31
+
 		return
-					if i==30 then
+
-						fuel=((tonumber(height)*2)+70)-turtle.getFuelLevel()
+
-						print("")
+
-						print("Not enough fuel provided")
+
-						print("Please provide "..fuel.." fuel or "..realcoal.." coal and try again")
+
-						return
+
 		return
-					i=i+1
+
 	if tArgs[2] == nil then
 		height = HEIGHT_DEFAULT-ycord
 	else
 		height = math.min(tonumber(tArgs[2]),254-tonumber(ycord))
 	end
---	if fs.exists("custom") then
+	print ("Position: ",xcord,"/",ycord,"/",zcord," Build height: ",height+ycord)
---		print("custom program detected")
+
---		print("please Enter base Station number")
+	if #tArgs < 3 or #tArgs > 4 then
---		local failFlag = false
+
---		repeat
+
---			if failFlag then
+
---				print("Error Not number")
+
---				print("try again")
+
---			end
+		zcord = tonumber(tArgs[3])
---			write(" > ")
+
---			base = tonumber(read())
+			height = HEIGHT_DEFAULT-ycord
---			failFlag = true
+
---		until type(base) == "number"
+			height = math.min(tonumber(tArgs[4]),254-ycord)
---	end
+
---	print("Please Place 4 computers in slot two")
+
---	print("4 modems in slot three")
+	print ("Parameters set to:")
---	print("if mineing turtle then")
+	print ("Position: ",xcord,"/",ycord,"/",zcord," Build height: ",height+ycord)
---	print("1 disk drive in slot four")
+
---	print("if not mineing then")
+
---	print("4 disk drive in slot four")
+if not checkFuel() then
---	print("blank floopy disk in slot five")
+
---	print("press Enter key to continue")
+
---	while true do
+
---		local event , key = os.pullEvent("key")
+--[[
---		if key == 28 then break end
+Ressource Check:
---	end
+check if the required quantity of items
---	print("Launching")
+are in the appropriate spots. I'm sure
---end
+there's a more elegant way of doing this.
 I don't believe there's a way to check if
--- check if the required quantity of items
+the items are correct without using compare
--- are in the appropriate spots. I'm sure
+--]]
--- there's a more elegant way of doing this.
+
--- I don't believe there's a way to check if
+
--- the items are correct without using compare
+
 disk=0
 print("")
 if turtle.getItemCount(2) < 1 then
 	print("Please place 1 disk into slot two")
 	disk=1
-turtle.select(2)
+
-if turtle.getItemCount(2) < 4 then
+if turtle.getItemCount(3) < 4 then
-	print("Please place at least 4 computers into slot two")
+
 	modem=1
 end
-turtle.select(3)
+if turtle.getItemCount(4) < 1 then
-if turtle.getItemCount(2) < 4 then
+
 	print("Please place 4 disk drives into slot four if a -standard turtle-")
 	diskdrive=1
 end
-turtle.select(4)
+if turtle.getItemCount(5)+turtle.getItemCount(6)+turtle.getItemCount(7)+turtle.getItemCount(8) < 4 then
 	print("Please place at least 4 computers distributed over slots five, six, seven or eight")
 	monitor=1
 end
 
 if monitor == 1 or modem == 1 or diskdrive == 1 or disk == 1 then
-turtle.select(5)
+
 	return
-	print("Please place 1 disk into slot five")
+
 
 -- calculate the coordinates of the 4 satelite arrays
 
 newycord=tonumber(ycord)+tonumber(height)
 
 if newycord > 254 then newycord = 254 end
 
 toycordns=newycord
 toycordwe=newycord-3
 
 if toycordns >= 255 or toycordwe >= 255 then
 	toycordns=254
-if newycord > 255 then newycord = 255 end
+	toycordwe=251
 end
 
 local set = {}
 set[1] = {x = tonumber(xcord),z = tonumber(zcord)+9,y = tonumber(toycordns)}
 set[2] = {x = tonumber(xcord)-9,z = tonumber(zcord),y = tonumber(toycordwe)}
-	toycordns=255
+set[3] = {x = tonumber(xcord),z = tonumber(zcord)-9,y = tonumber(toycordns)}
-	toycordwe=252
+set[4] = {x = tonumber(xcord)+9,z = tonumber(zcord),y = tonumber(toycordwe)}
 
 -- start the climb up
 for i = 1,height do
-set[1] = {x = tonumber(xcord),z = tonumber(zcord)+3,y = tonumber(toycordns)}
+
-set[2] = {x = tonumber(xcord)-3,z = tonumber(zcord),y = tonumber(toycordwe)}
+
-set[3] = {x = tonumber(xcord),z = tonumber(zcord)-3,y = tonumber(toycordns)}
+
-set[4] = {x = tonumber(xcord)+3,z = tonumber(zcord),y = tonumber(toycordwe)}
+--[[
 once at the correct height, deploy GPS array
--- start the climb up to the correct ycord
+this is a mixture of my own code and the
-while not turtle.up() do
+original code
 --]]
 
-	term.write("Please get off me")
+
 	--forward two
-if ycord+tonumber(height) >= 255 then
+	for i = 1,8 do
-	while turtle.up() do -- sends it up till it hits max hight
+
 	end
 	selectComp()
-	for i = 3,tonumber(height) do
+
-	turtle.up()
+
 	turtle.select(3)
 	mov.place()
 	mov.down()
--- once at the correct height, deploy GPS array
+
--- this is a mixture of my own code and the
+
--- original code
+
 	turtle.select(2)
 	turtle.drop()
-	for i = 1,2 do
+	--[[
 	make a custom disk that starts up the gps host application
 	with the correct coordinates and copy it over. also makes
 	makes it a startup script so the computers will
 	start back up properly after chunk unloading
 	--]]
 
 	fs.delete("disk/startup")
 	file = fs.open("disk/startup","w")
 	-- KaosK: added shell.run command for labeling Computers
 	file.write([[
 shell.run("label", "set", "GPS_Host_]]..a..[[")
-	turtle.select(5)
+
 fs.delete("disk/startup")
-	-- make a custom disk that starts up the gps host application
+
-	-- with the correct coordinates and copy it over. also makes
+    fs.copy("disk/custom","custom")
-	-- makes it a startup script so the computers will
+    fs.delete("disk/custom")
-	-- start back up properly after chunk unloading
+
 print("sleep in 10")
 sleep(10)
 os.reboot()
 ]])
 	file.close()
 	if fs.exists("custom") then
-	fs.copy("disk/custom","custom")
+
-	fs.delete("disk/custom")
+
 	file = fs.open("disk/install","w")
 	file.write([[
 if fs.exists("custom") then
     shell.run("custom","host",]]..set[a]["x"]..","..set[a]["y"]..","..set[a]["z"]..","..(base or "nil")..[[)
 else
     shell.run("id")
     print("")
     shell.run("gps","host",]]..set[a]["x"]..","..set[a]["y"]..","..set[a]["z"]..[[)
 end
-		file = fs.open("disk/install","w")
+
-		file.write([[
+
 	turtle.turnLeft()
-	shell.run("custom","host",]]..set[a]["x"]..","..set[a]["y"]..","..set[a]["z"]..","..(base or "nil")..[[)
+
 	mov.up()
-	shell.run("gps","host",]]..set[a]["x"]..","..set[a]["y"]..","..set[a]["z"]..[[)
+
 	mov.forward()
 	turtle.turnRight()
-		file.close()
+
 	mov.down()
 	turtle.suck()
 	turtle.select(3)
 	turtle.dig()
 	mov.up()
 	-- reboot would be here
 	turtle.turnRight()
 	--back 3
 	for i = 1,9 do
 		mov.forward()
 	end
 	turtle.turnLeft()
 	mov.forward()
 	if a == 1 or a == 3 then
 		for i = 1,3 do
-	for i = 1,3 do
+			mov.down()
 		end
 	elseif a == 2 or a == 4 then
 		for i = 1,3 do
 			mov.up()
 		end
 	end
-		mov.down()
+
 
 
 -- goes back down
-		mov.up()
+
 for i = 1,height do
 	mov.down()
 end
 print("")
--- goes back down. this is the original code
+