View/Edit #3152:demote

Switch to edit mode.

1:  "Demote all the wizzen except $slacker"
2:  caller == this || raise(E_PERM)
3:  demote = setremove($wiz:leaves(), $slacker)
4:  demote = setremove(demote, this)
5:  for x in (demote)
6:    chparent(x, $prog)
7:    for y in [#0..#1000]
8:      if (!$recycler:valid(y))
9:        continue
10:     endif
11:     if (y.owner == x)
12:       y.owner = $slacker
13:     endif
14:     for z in [1..length(verbs(y))]
15:       vi = verb_info(y, z)
16:       if (vi[1] == x)
17:         vi[1] = $slacker
18:         `set_verb_info(y, z, vi) ! ANY => player:tell(y, ":", z)'
19:         vc = {@verb_code(y, z), tostr("\"This verb previously owned by ", $su:nn(x), ", and chowned to $slacker upon dewizarding (", ctime(), ").\";")}
20:         set_verb_code(y, z, vc)
21:       endif
22:       $cmd_utils:suspend_if_needed(0)
23:     endfor
24:     for z in (properties(y))
25:       pi = property_info(y, z)
26:       if (pi[1] == z)
27:         pi[1] = $slacker
28:         set_property_info(y, z, pi)
29:       endif
30:       $cmd_utils:suspend_if_needed(0)
31:     endfor
32:     $cmd_utils:suspend_if_needed(0)
33:   endfor
34:   for y in (x.owned_objects)
35:     if (y:isa($guardian_phaser))
36:       player:tell("Located guardian phaser ", $su:nn(y), ". Chparenting...")
37:       chparent(y, $phaser)
38:     endif
39:     $cmd_utils:suspend_if_needed(0)
40:   endfor
41:   x.wizard = 0
42:   $cmd_utils:suspend_if_needed(0)
43: endfor

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