70a
@verb #8045:"@summon*!" any none none rdo #7165
@program #8045:"@summon*!" any none none
"Copied from Generic Teacher (#15):@summon by manta (#7165)Dec 26 19:41:29 2001"
if (player != this)
  return $msg:mtell("huh")
endif
evilness = length(verb) - length("@summon")
victim = $string_utils:match_local_player(dobjstr)
if (!valid(victim))
  return player:tell(argstr, " is not a valid victim.")
endif
dobj = victim
if (!player:isa($guardian) && !(victim in player.students))
  "Myra's special."
endif
if (evilness)
  victim.anchor = this.location
endif
this:sub_tell("You shout, \"Get over here, %d!!\"")
this:sub_announce("%t shouts, \"Get over here, %d!!\"")
victim.location:sub_announce("%t shouts, \"Get over here, %d!!\"")
this:sub_announce("%t reaches out, grabs %d.")
this:sub_tell("You reach out and grab %d.")
$roof:hook("You see a giant dematerialized hand carrying %d through the air across the MOO...you hear a faint yell, \"I can see my house from here...!\"")
this:sub_announce("%d appears, dazed from the shock.")
this:sub_tell("You pull %d into the room.  %d~S is still dazed from the shock.")
this:sub_announce("%t pulls %d into the room.  %d~S is still dazed from the shock.")
player = victim
victim.location:sub_announce("%t's giant de-materialized hand appears, closes around %d, and pulls.  After it fades away, %d has been pulled to %t~l.")
victim:sub_tell("You see %t's giant hand appear above you, swoop down, and grab you.  Before you have a chance to scream, you are pulled out of the room.")
move(victim, this.location)
victim:sub_tell("After a terrifying journey, you arrive at %t~l." + (evilness ? "  Even after the hand has released you, you feel powerless to move." | ""))
"Last modified by Dax (#789) on Wed Dec 26 19:42:23 2001 MST."
.

0