ff
@verb #3819:"slide" this none this rxdo #3152
@program #3819:"slide" this none this
caller in {$scheduler, $clock} || raise("no move")
rooms = $room:descendants()
room = rooms[random(length(rooms))]
try
  this:moveto(room)
except (ANY)
endtry
.

0