55e
@verb #2526:"@summon" any none none rdo #6319
@program #2526:"@summon" any none none
"Just lets Mud summon certain people. :) - Raptor"
if (player != this)
  return $msg:mtell("huh")
endif
victim = $string_utils:match_local_player(dobjstr)
if (!valid(victim))
  return player:tell(argstr, " is not a valid victim.")
endif
dobj = victim
if (!(victim in #7921.group))
  return this:sub_tell("you don't have the power to reel in %d.")
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.")
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.")
.

0