Dragonfarm Turtle

modem = peripheral.wrap("left")
modem.open(999)

function Forward(Dist)
  for i = 1, Dist do
    turtle.forward()
  end
end

function Back(Dist)
  for i = 1, Dist do
    turtle.forward()
  end
end

function Turn(Dir, Times)
  if Dir == "left" then
    for i = 1, Times do
      turtle.turnLeft()
    end
  elseif Dir == "right" then
    for i = 1, Times do
      turtle.turnRight()
    end
  end
end

function Up(Dist)
  for i = 1, Dist do
    turtle.up()
  end
end

function Down(Dist)
  for i = 1, Dist do
    turtle.down()
  end
end

function PlaceDown(Slot)
  turtle.select(Slot)
  turtle.placeDown()
end

function Take(Slot, Amount)
  turtle.select(Slot)
  turtle.suck(Amount)
end

function GetStone()
  Turn("left",2)
  Take(1,1)
  Turn("right",2)
end

function PlaceStone()
  Up(1)
  Forward(5)
  Turn("left",1)
  Forward(1)
  PlaceDown(1)
  Turn("left",2)
  Forward(1)
  Turn("right",1)
  Forward(5)
  Down(1)
  Turn("left",2)
end

function Cycle()
  GetStone()
  PlaceStone()
end

while true do
  event, _, _, _, message, _ = os.pullEvent("modem_message")
  if message == "Place" then
	Cycle()
  end
end