CCCPaste

melonbot3

term.clear()
term.setCursorPos(1,1)
ykok,xkok,total = nil,nil,0
print("*Murinaa* Olen Meloninkeraysbot v1.03!")
print("Sijainti: pellon vasen alanurkka.\n")

--while ykok == nil do
	--write("Syota pellon y-akseli: ")
	--ykok = tonumber(read())
--end
ykok = 18

--while xkok == nil do
--	write("Syota pellon x-akseli: ")
--	xkok = tonumber(read())
--end
xkok = 2

--mene eteenpain
function eteen()
	while turtle.forward() == false do end
end

-- eteenpain yksi column
function mene()
	for i=0, ykok do

		if turtle.detect() then
			turtle.dig()
		end
		eteen()
		turtle.turnLeft()
		if turtle.detect() then
			turtle.dig()
		end
		turtle.turnRight()
	end
end

-- timestamp-funktio
function stamp()
	return "[day "..os.day()..": "..textutils.formatTime(os.time()).."] "
end




-- main init
term.clear()
term.setCursorPos(1,1)

-- main
while true do

	--refuel
	if turtle.getFuelLevel() < 1000 then
		turtle.select(1) 
		turtle.suckUp(1)
		if turtle.refuel() == false then
			print(stamp().."ei fuelia")
			os.sleep(5)
			os.shutdown()
		end
	end
	
	--start
	print(stamp().."Ajellaan... pellon koko: "..ykok.."x"..xkok..".")
	aloitusaika = os.clock()

	--alku
	eteen()
	eteen()
	turtle.turnRight()

	mene()

    --kaanto paadyssa
	turtle.turnRight()
	eteen()
	eteen()
	eteen()
	eteen()
	turtle.turnRight()

	mene()

    --kaanto
	turtle.turnRight()
	eteen()
	eteen()
	
	--dump
	total = 0
	for i=1, 16 do
		turtle.select(i)
		total = total + turtle.getItemCount(i) 
		turtle.dropDown()
	end
	aika = os.clock() - aloitusaika + 120
	print(stamp().."Tuotto: "..tostring(total/aika).." melon slicea sekunnissa.")
	
	--wait
	for i=0, 3 do
		print(stamp().."Sleeppia jaljella "..tostring(120-i*30).." sekuntia..")
		os.sleep(30)
	end

end