tFrame = 30
cItems = 40
interval = tFrame / cItems
index = readlastid() or 0
while true do
  sleep(interval)
  dostuffforindex( index + 1 )
  index = ( index + 1 ) % cItems
  savelastid()
end