339
@verb #3463:"summon call" any any any rdo #3463
@program #3463:"summon call" any any any
"Copied from Drizzt (#4017):summon Mar 11 15:46:09 2001"
if (!this.summon)
  player:tell("You summon " + argstr + " to lend you a hand.")
  z = $recycler:create($animal)
  z:_set_name(argstr)
  player.location:announce(player:title() + " summons the esper " + argstr + " to aid him.")
  z:moveto(player.location)
  z:_set_aliases({argstr})
  z.code = "s"
  z.description = "The esper " + argstr + " summoned by " + player:title() + "."
  this.summon = 1
  suspend(this.summon_time)
  z.location:announce_all_but({z, player}, z:title() + " disapears in a puff of smoke.")
  player:tell(z:title() + " was unsummoned.")
  this.summon = 0
  $recycler:recycle(z)
else
  player:tell("Only one esper at a time.")
endif
.

0