View/Edit #59:funky_action

Switch to edit mode.

1:  "We don't need to recycle anything these days. -whiz"
2:  return E_INVARG
3:  if (caller != this && !caller_perms().wizard)
4:    raise(E_PERM)
5:  endif
6:  {o} = args
7:  if (!$recycler:valid(o) || (!o:is_expired() && $recycler:valid(o.owner)) || o.owner == this || o.owner.wizard)
8:    player:tell("Repoman was asked to repo ", o:nn(), ", but he's got second thoughts.")
9:    return E_INVARG
10: endif
11: if (o:isa($room))
12:   this:indirect_move(o)
13:   `this.location:sub_announce_all("%t slaps a reposession notice on this room, and starts wrapping red tape across the walls.") ! ANY => "Too bad."'
14:   this:reposses(o, 0)
15: elseif (o:isa($thing))
16:   locs = {}
17:   l = o
18:   while (valid(l) && !l:isa($room))
19:     locs = {@locs, l}
20:     l = l.location
21:   endwhile
22:   if (valid(l))
23:     this:indirect_move(l)
24:     suspend(2)
25:     if (length(locs) > 1)
26:       for i in [1..length(locs) - 1]
27:         `this.location:sub_announce_all("%t snatches %1 from %2.", locs[$ - i], locs[$ - i + 1]) ! ANY'
28:       endfor
29:       for i in [2..length(locs) - 1]
30:         `this.location:sub_announce_all("%t puts %1 back in %2.", locs[i], locs[i + 1]) ! ANY => "Pbbt."'
31:       endfor
32:     else
33:       this.location:sub_announce_all("%t snatches %1.", o)
34:     endif
35:   endif
36:   this:reposses(o, 1)
37: elseif (o:isa($project))
38:   if (o.leader == this && !o.teachers)
39:     this:reposses(o, 2)
40:   endif
41: elseif (o:isa($player))
42:   this:indirect_move(o.location)
43:   try
44:     this.location:sub_announce_all("%t dons a black cloak and a giant scythe, and slowly and solemnly approaches %1...", o)
45:     this:sub_announce_all("%t stands between you and %1, and motions over %1#-3, %1 is no longer there!", o)
46:   except (ANY)
47:     "Too bad."
48:   endtry
49:   if (is_player(o))
50:     $wiz_utils:forget_player(o)
51:   endif
52:   $repo_man:dispatch(@listappend(setremove(o.owned_objects, o), o))
53:   this:reposses(o, 3)
54: else
55:   this:reposses(o, 0)
56: endif
57: "Last modified by Dax (#789) on Sat Dec 29 19:34:43 2001 MST."
58: "This verb previously owned by Raptor (#6319), and chowned to $slacker upon dewizarding (Sat Aug 17 14:48:42 2002 MDT)."
59: "Last modified by whiz (#3135) on Sun Oct 26 22:58:45 2008 EDT."

[home | help | who | search | setup | code]