Melee turtles and os.pullEvent

inputPos = "bottom" --redstone input

-- event = 1
delayTime = 10 --Delay in seconds

opStatus = {["on"] = false, --turtle should attack when true
			["off"] = false, --turtle should NOT attack when true
			["delayedOff"] = false --turtle should attack when true
		   }
function attack()
if opStatus.on or opStatus.delayedOff then
  turtle.attack()
end
end
--[[
TODO: dropAll is too slow!!!
]]--
function dropAll()
for i=1,16 do
  turtle.select(i)
  turtle.drop()
end
end

--Displays statuses and warning.
function display()
term.clear()
term.setCursorPos(2,2)
print("I'm operating.")
term.setCursorPos(2,4)
for status,state in pairs (opStatus) do
  if state then
   print ("I'm in '".. status .."' state.")
   if not status == "off" then
	term.setCursorPos(2,5)
	print ("Don't go in front of me!")
   end
  end
end
end

--Main starts here

--[[Filling up opStatus table.
If redstone is active (mobspawner is off) upon load the turtle
stays on for delayTime seconds since it cannot be known if there
are any mobs in front of it.
--]]
if rs.getInput(inputPos) then
os.startTimer(delayTime)
opStatus.on = false
opStatus.off = false
opStatus.delayedOff = true
else
opStatus.on = true
opStatus.off = false
opStatus.delayedOff = false
end


while true do
display()

attack()

event = os.pullEvent()
if event == redstone then
  if rs.getInput(inputPos) then
--[[when rs input is active: delayedOff and
	start the delayTimer
]]--
   os.startTimer(delayTime)
   opStatus.on = false
   opStatus.off = false
   opStatus.delayedOff = true
  else
--when rs input is inactive: turn on
   opStatus.on = true
   opStatus.off = false
   opStatus.delayedOff = false
  end
elseif event == timer then
--when delayTimer is up: turn off
   opStatus.on = false
   opStatus.off = true
   opStatus.delayedOff = false
end
dropAll()

end

--[[
local function debug(msg)
term.setCursorPos(1,18)
term.clearLine()
print(msg)
-- sleep(2)
end
]]--

local function redstone()
event = os.pullEvent()
if event == "redstone" then
  term.setCursorPos(1,2)
  term.clearLine()
  print(tostring(rs.getInput("right")))
end
end


local function sleeper()
-- debug ("sleeper started")
for i=1, 5 do
--  debug("in for cycle")
  term.setCursorPos(1,4)
  term.clearLine()
  print(i)
--  debug("before sleep")
  sleep(2)
--  debug("after sleep")
end
end

while true do
parallel.waitForAny(sleeper,redstone)
end

--Turtle v1.2

--for testing
s = 1
--/for testing

inputPos = "bottom" --redstone input
delayTime = 10 --Delay in seconds
opStatus = {
			["on"] = false, --turtle should attack when true
			["off"] = false, --turtle should NOT attack when true
			["delayedOff"] = false --turtle should attack when true
		   }
displayTimerStart = true
displayRefreshRate = 1
delayTimerStart = true



function attack()
while true do
  if opStatus.on or opStatus.delayedOff then turtle.attack() end
  sleep(0) --no idea why it is needed but it do o.O
end
end


function dropAll()
while true do
  if opStatus.on or opStatus.delayedOff then
   for i=1,16 do
	turtle.select(i)
	turtle.drop()
   end
  end
sleep(0) --no idea why it is needed but it do o.O
end
end

--Displays statuses
function display()
term.clear()
term.setCursorPos(2,2)
print("I'm operating.")
term.setCursorPos(2,4)
for status,state in pairs (opStatus) do
  if state then
   print ("I'm in '".. status .."' state.")
   if not (status == "off") then
	term.setCursorPos(2,5)
	print ("Don't go in front of me!")
   end
  end
end
--for testing
term.setCursorPos(2,11)
term.write(tostring(s))
s = s+1
--/for testing
end

--Main starts here

function main()

--[[Filling up opStatus table.
If redstone is active (mobspawner is off) upon load the turtle
stays on for delayTime seconds since it cannot be known if there
are any mobs in front of it.
--]]
if rs.getInput(inputPos) then
   delayTimerID = os.startTimer(delayTime)
   opStatus.on = false
   opStatus.off = false
   opStatus.delayedOff = true
--for testing
   term.setCursorPos(2,10)
   term.clearLine()
   print("delayedOff ol")
--/for testing
else
  opStatus.on = true
  opStatus.off = false
  opStatus.delayedOff = false
--for testing
  term.setCursorPos(2,10)
  term.clearLine()
  print("On ol")
--/for testing
end


while true do
  if displayTimerStart then
   displayTimerStart = false
   displayTimerID = os.startTimer(displayRefreshRate)
  end

  event, p1 = os.pullEvent()
  if event == "redstone" then
   if rs.getInput(inputPos) then
--[[when rs input is active: delayedOff and
	 start the delayTimer
]]--
	delayTimerID = os.startTimer(delayTime)
	opStatus.on = false
	opStatus.off = false
	opStatus.delayedOff = true
--for testing
	term.setCursorPos(2,10)
	term.clearLine()
	print("delayedOff il")
--/for testing
   else
--when rs input is inactive: turn on
	opStatus.on = true
	opStatus.off = false
	opStatus.delayedOff = false
--for testing	
	term.setCursorPos(2,10)
	term.clearLine()
	print("on il")
--/for testing
   end
  elseif event == "timer" and p1 == delayTimerID and opStatus.delayedOff then
--when delayTimer is up and in delayOff state: turn off
   opStatus.on = false
   opStatus.off = true
   opStatus.delayedOff = false
--for testing
   term.setCursorPos(2,10)
   term.clearLine()
   print("Off il")
--/for testing
  elseif event == "timer" and p1 == displayTimerID then
   display()
   displayTimerStart = true
  end
end
end

parallel.waitForAny(main,attack,dropAll)