6d5
@verb #6319:"@summon" any none none rxdo #55
@program #6319:"@summon" any none none
"Given to Rappie by Hatter on Oct 01, 2002.  Discuss any problems with him/her."
if (caller != this && caller_perms() != 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 (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 Lao-Tzu (#8084) on Mon Sep  8 22:21:51 2003 MDT."
.

0