278
@verb #2384:"chirp" this none this rxdo #60
@program #2384:"chirp" this none this
while (this.chirp_task == task_id() || !$code_utils:task_valid(this.chirp_task))
  if (time() - this.last_speech_time < this.chirp_period)
    suspend(this.chirp_period - (time() - this.last_speech_time))
  else
    suspend(this.chirp_period)
  endif
  if (this:maybe_stop_chirping())
    break
  endif
  if (this.last_speech_time + this.chirp_period > time())
    continue
  endif
  this.location:announce_all_but({this}, "You here a cricket chirping.")
endwhile
"Last modified by manta (#7165) on Fri Jun  7 10:53:02 2002 MDT."
.

0