@verb #4272:"look_self" this none this rxdo #987
@program #4272:"look_self" this none this
"Generates a shifting pattern for the player, until the player hits enter."
if ($tcm)
  player:tell("Sorry, there are too many players logged on.  The screen saver doesn't want to contribute to the lag.")
  return
endif
start_time = time()
read_task = task_id()
$msg:mtell("start")
fork (0)
  line = $string_utils:space(len = player:linelength())
  delta = random(this.cfg_amp * 2 + 1) - this.cfg_amp - 1
  while ($code_utils:task_valid(read_task) && $object_utils:connected(player))
    line[random(len)] = $string_utils.ascii[random(length($string_utils.ascii))]
    if (random(this.cfg_freq) == 1)
      delta = delta == this.cfg_amp ? delta - 1 | (delta == -this.cfg_amp ? delta + 1 | (random(2) == 1 ? delta + 1 | delta - 1))
    endif
    line = delta > 0 ? line[len - delta + 1..len] + line[1..len - delta] | line[1 - delta..len] + line[1..-delta]
    player:tell(line)
    suspend(max(1, this.cfg_tempo))
  endwhile
  $msg:mtell("end", $time_utils:english_time(delta = time() - start_time), $time_utils:english_time(((#4272.total_time = #4272.total_time + delta) + 30) / 60 * 60))
  return
endfork
$command_utils:read("enter")
"Last modified by Dax (#789) on Thu Jul  9 17:29:48 1998 EDT."
.