how to make that sleep() stop only a part of the program?

repeat
time=time-1
sleep(1)
until
time==0

os.startTimer(5)  --Starts a 5 second timer
event = os.pullEvent()
if event == "timer" then
  print("Timer")
end

local tRunning = {
  [1] = true,
  [2] = true
}
tTimer = {
  [1] = ""
  [2] = ""
}
local func1()
  while true do -- if the routine does not loop, it will be considered "dead" when it's done executing.
	print"derp1"
   tRunning[1] = false --coroutine complete, set the running variable to false to keep it yielding
	tTimer[1] = os.startTimer(20) --start rerun timer
	while not tRunning[1] do --check run variable
	  coroutine.yield()
	end
  end
end

local func2()
  while true do
	print"derp2"
   tRunning[2] = false
	tTimer[2] = os.startTimer(13)
	while not tRunning[2] do
	  coroutine.yield()
	end
  end
end

tCoroutine = { --create table containg coroutine variables
  [1] = coroutine.create(func1),
  [2] = coroutine.create(func2),
}

for i=1,#tCoroutine do
  coroutine.resume(tCoroutine[i]) -- start all coroutines in order at the start of the program
end

while true do
  local _e,tID = os.pullEvent"timer"
  for i=1,#tTimer do
	if tID == tTimer[i] then
	  coroutine.resume(tCoroutine[i])
	  break
	end
  end
end

OReezy, on 23 January 2014 - 04:35 PM said:

You can create a timer and receive its end as an event. Here's a very basic code.

os.startTimer(5)  --Starts a 5 second timer
event = os.pullEvent()
if event == "timer" then
  print("Timer")
end

Here's an events tutorial as well.

CometWolf, on 23 January 2014 - 04:41 PM said:

You'll either have to split your program into looping functions and use the parallel api.
http://computercraft...allel_%28API%29
To simplify it's usage for you, when you call sleep in a function running in parallel, the funciton in question will sleep for the amount of time, while the other function executes, until it sleeps. This goes on and on, passing the control between the functions.

Or you can do it the way i prefer to do it, using coroutines. The parallel API is made from coroutines.
http://computercraft...utine_%28API%29
When using coroutines, you make a function and put coroutine.yield in the body of the function wherever you want it to stop. Then pass it to coroutine.create and it gives you a coroutine variable. Pass this variable to coroutine.resume and it will run the coroutine. When the running coroutine gets to coroutine.yield it will stop executing and pass control to the code block that called it.

local tRunning = {
  [1] = true,
  [2] = true
}
tTimer = {
  [1] = ""
  [2] = ""
}
local func1()
  while true do -- if the routine does not loop, it will be considered "dead" when it's done executing.
	print"derp1"
   tRunning[1] = false --coroutine complete, set the running variable to false to keep it yielding
	tTimer[1] = os.startTimer(20) --start rerun timer
	while not tRunning[1] do --check run variable
	  coroutine.yield()
	end
  end
end

local func2()
  while true do
	print"derp2"
   tRunning[2] = false
	tTimer[2] = os.startTimer(13)
	while not tRunning[2] do
	  coroutine.yield()
	end
  end
end

tCoroutine = { --create table containg coroutine variables
  [1] = coroutine.create(func1),
  [2] = coroutine.create(func2),
}

for i=1,#tCoroutine do
  coroutine.resume(tCoroutine[i]) -- start all coroutines in order at the start of the program
end

while true do
  local _e,tID = os.pullEvent"timer"
  for i=1,#tTimer do
	if tID == tTimer[i] then
	  coroutine.resume(tCoroutine[i])
	  break
	end
  end
end

Note that this is a pretty advanced way of doing things, you're probably better off finding a simpler way, cause i doubt this is required for your program to be honest.

time=10
repeat
time=time-1
os.startTimer(1)
event = os.pullEvent()
if event == "timer" then
  shell.run("clear")
  print(time)
end
until
time==0

CometWolf, on 23 January 2014 - 05:12 PM said:

Haha, what i posted above is an easily expandable multi tasker pretty much, based on timers instead of events. OReezy's suggestion is probably a lot more suited to your program.

local function timer()
  os.startTimer(5)
  os.pullEvent("timer")
  print("Times Up!")
end

local function question()
  print("Whats the answer?")
  local ans = read()
  if ans == "answer" then
	print("Correct")
  else
	print("Incorrect")
  end
end

paralell.waitForAny(timer, question)

local function timer()
time=10
repeat
time=time-1
os.startTimer(1)
event = os.pullEvent()
if event == "timer" then
  term.clearLine()
  term.setCursorPos(39,2)
  write("temps : 00:0"..time)
end
until
time==0
end

local function question()
if calc==calcmax then
shell.run("clear")
print("")
print("")
print("")
print("")
print("")
print("")
print("")
centerText(result.."/"..calcmax)
if result<calcmax/2 then
print("")
centerText("PERDU")
elseif result>=calcmax/2 then
print("")
centerText("GAGNE")
end
sleep(5)
shell.run("quiz")
end
if answer==quit then
shell.run("quiz")
end
if answer==z then
result=result+1
print("")
print("")
centerText("BRAVO!")
print("")
print("")
centerText("Appuyez sur une touche pour continuer")
os.pullEvent("key")
else
print("")
print("")
centerText("faux")
sleep(0.5)
print("")
print("")
print("la bonne réponse était "..z)
print("")
print("")
centerText("Appuyez sur une touche pour continuer")
os.pullEvent("key")
end
end
end

paralell.waitForAny(timer, question)

local function centerText(text)
local x,y = term.getSize()
local x2,y2 = term.getCursorPos()
term.setCursorPos(math.ceil((x / 2) - (text:len() / 2)), y2)
write(text)
end

calcmax=20
calc=0
result=0
while true do
shell.run("clear")

x=math.random(1,9)
y=math.random(1,9)

write("Il reste "..calcmax-calc.." calculs				   score : "..result.."/"..calcmax)
print("")

local function timer()
time=10
repeat
time=time-1
os.startTimer(1)
event = os.pullEvent()
if event == "timer" then
  term.clearLine()
  term.setCursorPos(39,2)
  write("temps : 00:0"..time)
end
until
time==0
end

print("")

calc=calc+1
write(x.."-"..y.."=")
answer=tonumber(read())

z=x-y

local function question()
if calc==calcmax then
shell.run("clear")
print("")
print("")
print("")
print("")
print("")
print("")
print("")
centerText(result.."/"..calcmax)
if result<calcmax/2 then
print("")
centerText("PERDU")
elseif result>=calcmax/2 then
print("")
centerText("GAGNE")
end
sleep(5)
shell.run("quiz")
end
if answer==quit then
shell.run("quiz")
end
if answer==z then
result=result+1
print("")
print("")
centerText("BRAVO!")
print("")
print("")
centerText("Appuyez sur une touche pour continuer")
os.pullEvent("key")
else
print("")
print("")
centerText("faux")
sleep(0.5)
print("")
print("")
print("la bonne réponse était "..z)
print("")
print("")
centerText("Appuyez sur une touche pour continuer")
os.pullEvent("key")
end
end
end

paralell.waitForAny(timer, question)

local function timerNew()
  for i = 9,0,-1 do
	term.setCursorPos(1,1)
	print(i)
	term.setCursorPos(1,3)
	sleep(1)
  end
  print("Times up!")
end

OReezy, on 24 January 2014 - 03:25 PM said:

To add a function to print the time, change timer() to have a for loop that counts in reverse instead of os.pullEvent(). You would likely need to modify the question function to print in a specific place as well. It still functions the same as before though, which ever finishes first will execute the final bit of code.

local function timerNew()
  for i = 9,0,-1 do
	term.setCursorPos(1,1)
	print(i)
	term.setCursorPos(1,3)
	sleep(1)
  end
  print("Times up!")
end

PS: To make the timer start at 10, you would need to erase that line after the first count or print over it, otherwise it will look like this: 10, 90, 80, 70, 60.

local function timerNew()
  for i = 9,0,-1 do
		term.setCursorPos(39,2)
		write("temps : 00:0"..i)
		term.setCursorPos(1,3)
		sleep(1)
  end

  centerText("TEMPS ECOULE!")
  print("")
  print("")
  print("la bonne réponse était "..z)
  print("")
  print("")
  centerText("Appuyez sur une touche pour continuer")
  os.pullEvent("key")
end

local function reponse()
calc=calc+1
write(x.."-"..y.."=")
answer=tonumber(read())
z=x-y
end

calcmax=20
calc=0
result=0
while true do
shell.run("clear")

x=math.random(1,9)
y=math.random(1,9)

write("Il reste "..calcmax-calc.." calculs				   score : "..result.."/"..calcmax)

parallel.waitForAny(reponse,timerNew)

parallel:22:quiz_-:19:attempt to concatenate string and nil

print("la bonne réponse était "..z)