@verb #16:"@summon*!" any none none rdo #55
@program #16:"@summon*!" any none none
"Copied from Generic Teacher (#15):@summon by manta (#7165)Jul 26 15:25:07 2002"
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))
  return this:sub_tell("You don't have the power to reel in %d.")
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 from %d~l.")
$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 manta (#7165) on Wed Aug  7 06:43:21 2002 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.