View/Edit #59:_irradiate

Switch to edit mode.

1:  !caller_perms():controls(this) && raise(E_PERM)
2:  this.graveyard:sub_announce_all("An altar mysteriously rises up from the ground in the centre of the graveyard...")
3:  suspend(2)
4:  this:moveto(this.graveyard)
5:  this.location:sub_announce_all("%t dons the ceremonial black robes.  A giant scythe materializes into %t~p hands.")
6:  for x in ($set_utils:diff(this.owned_objects, {this, @this.safe}))
7:    dobj = x
8:    this:wakey()
9:    if (!x.wizard && `x:is_expired() ! ANY => 1')
10:     this:tell("Toasting ", x.name, " (", x, ")...")
11:     if (x:isa($player))
12:       `this.location:sub_announce_all("A mysterious gong is heard in the distance...") ! ANY => "Too bad :("'
13:       suspend(random(5))
14:       if (x:isa($project))
15:         try
16:           this.location:sub_announce_all("%t picks up %d, folds %d~o neatly, and packs %d~o into %t~p briefcase labelled \"Projects\".")
17:         except (ANY)
18:           "Boo hoo"
19:         endtry
20:       else
21:         try
22:           this.location:sub_announce_all("%t picks up %d and places %d~o onto the altar.  Another gong is heard...")
23:           suspend(2)
24:           this.location:sub_announce_all("%t bangs the butt-end of %t~p scythe onto the ground.  An errie glow surrounds %d...")
25:           suspend(1)
26:           this.location:sub_announce_all("The errie light eneloppes %d completely, penetrating %d~p body...")
27:           suspend(1)
28:           this.location:sub_announce_all("The light subsides...and %d has disappeared completely!")
29:         except (ANY)
30:           "Boo hoo some more"
31:         endtry
32:       endif
33:     endif
34:     $recycler:recycle(x)
35:   elseif (!x:is_expired() && !x:isa($project))
36:     "Why DO we have this?"
37:     if (x:isa($toad) && `!listassoc($toad_jar.toads, x)[$] ! E_RANGE => 0')
38:       "Nuke!  Nuke!"
39:       this.location:sub_announce_all("%t picks up %d, looks at %d~o, and squeezes.  A pile of ash drops to the ground.")
40:       $recycler:recycle(x)
41:     else
42:       "I don't know.. so, let's do something about it."
43:       dobjstr = tostr(dobj = x)
44:       if (dobj:has_property("__owned_by") && property_info(dobj, "__owned_by")[1]:isa($guardian) && dobj.__owned_by != this)
45:         suspend(0)
46:         $wiz_utils:set_owner(dobj, dobj.__owned_by)
47:         `delete_property(dobj, "__owned_by") ! ANY'
48:         $msg:mtell("chowned", dobjstr, "Repo_man", dobj.owner)
49:         continue
50:       endif
51:     endif
52:   endif
53:   $cmd_utils:suspend_if_needed()
54: endfor
55: this.log = {}
56: "Last modified by whiz (#3135) on Wed Jan 24 09:41:35 2007 EST."

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