@verb #2348:"tell_happenings" this none this rxdo #9452
@program #2348:"tell_happenings" this none this
operation = 1
while (1)
  player:tell("  Daily Happenings...")
  this:tell_separator()
  for happening in (operation == 1 ? this.daily_happenings | this.yesterday_daily_happenings)
    player:tell(happening)
    player:tell($string_utils:center("-=-=-=-", this.screen_width))
  endfor
  player:tell()
  player:tell("  (C)ontinue  (T)odays happenings again  (Y)esterday  [C] :")
  answer = $command_utils:read()
  if (answer == "t")
    operation = 1
  elseif (answer == "y")
    operation = 2
  else
    break
  endif
endwhile
"Last modified by Crono (#9452) on Sun Apr 21 02:21:03 2002 MDT."
.