2fb
@verb #1492:"busy" this none this rxdo #60
@program #1492:"busy" this none this
"interlock for caching -- mark cache busy or clear; return true of interlock failed"
if (args[1])
  if (args[1] != "reading" && (why = this:is_locked(player)))
    player:tell($string_utils:pronoun_sub("Sorry, %t seems to be "), why, ".")
    return 1
  endif
  "make player running this watch it."
  this.watching = setadd(this.watching, player)
  "set busy"
  if (this.busy && this.busy[1] > time())
    player:tell("***Sorry, ", this.name, " is busy ", this.busy[2], " for ", this.busy[3], " -- wait a bit.")
    return 1
  else
    this.busy = {time() + 60 * 5, args[1], player.name, task_id()}
    return 0
  endif
else
  this.busy = 0
  return 0
endif
.

0