View/Edit #4554:leap

Name(s): leap

1:  "Called by $clock every ten minutes or so to make the room randomly leap about the MOO."
2:  try
3:    if (!$perm_utils:can_hack())
4:      raise(E_PERM)
5:    endif
6:    rooms = $room:descendants_suspended()
7:    suspend(0)
8:    "this:announce_all(\"You are suddenly engulfed in distorted sparkles. The room judders and shakes as it leaps an unknown distance.\");"
9:    rooms = setremove(rooms, this)
10:   room = length(args) == 1 ? args[1] | rooms[random($)]
11:   if (room:isa(#755))
12:     return this:(verb)(@args)
13:   endif
14:   oldloc = this.location
15:   val = `this:moveto(room) ! ANY'
16:   if (typeof(val) == $ERR)
17:     return
18:   endif
19:   oldloc:announce_all("The small box is suddenly engulfed in distorted sparkles. It judders and shakes as it leaps an unknown distance.")
20:   this.location:announce_all("A small box suddenly appears in a flash of distorted sparkles.")
21: except (ANY)
22:   return E_NONE
23: endtry
24: `#8877.location != #2444.home ? #8877:moveto(#2444.home) | "" ! ANY'
25: "Last modified by Dax (#789) on Tue May  3 13:46:00 2005 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Michael (#9659)

You are not logged in.