@verb #2203:"prod" any none none rxdo #2203
@program #2203:"prod" any none none
"Copied from Onyx (#9106):prod Sep 22 14:27:50 1998"
"Copied from Chaotic FO (#3232):prod by Chaos (asleep) (#6656) Nov  4 22:15:11 1997"
"Copied from Lao-Tzu (#8084):prod Mar 19 00:24:39 1997"
dobj = player:my_match_object(dobjstr)
dobj:sub_tell("%N pulls out a 100,000,000 megawatt electrical wizard prod and pokes you with it several times.")
player:sub_tell("You pull out a 100,000,000 megawatt electrical wizard prod and poke %d with it several times.")
player.location:sub_announce_all_but({player, dobj}, "%N pulls out a 100,000,000 megawatt electrical wizard prod and pokes %d with it several times.")
if (dobj:isa($guardian))
  suspend(1)
  dobj:sub_tell("Your body gets a large jolt the first time you're poked, but there is too little electricity in the prod to hurt you the other times.")
  player:sub_tell("%D gets jolted the first time you poke him, but is unaffected the other times because the power ran out on your prod!")
  this.location:sub_announce_all_but({player, dobj}, "%D gets a big jolt the first time %n pokes %1, but the prod has no more electrical charge afterwards.", #43:pronoun(dobj, "po"))
else
  this.location:announce_all("The prod has no effect, other than the actual poking.")
endif
.