@verb #146:"roam" this none this rxdo #55
@program #146:"roam" this none this
player = this
!caller_perms():controls(this) && raise(E_PERM)
if (random(100) < 30)
  fork (random(80) + 20)
    $msg:mtell("ribbit")
  endfork
endif
if (this.location:isa($room))
  try
    this.location:exits()[random($)]:move(this)
  except (ANY)
    this:moveto(#11)
  endtry
endif
"Last modified by Raptor (#6319) on Wed Apr 28 00:23:43 1999 MDT."
"This verb previously owned by Raptor (#6319), and chowned to $slacker upon dewizarding (Sat Aug 17 14:48:43 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:48:43 2002 MDT."
.