@verb #5451:"cd*" any any any rxdo #7407
@program #5451:"cd*" any any any
caller_perms() == player || raise(E_PERM)
code = verb[3..length(verb)]
dupe = #-1
for x in (player.owned_objects)
  if (x:isa($puppet) || x:isa(#5544) && x.code == code)
    dupe = x
    break
  endif
endfor
if (!valid(dupe))
  player:tell("You have no puppets with the code \"", code, "\"")
elseif (dupe.name in this.banned_names)
  player:tell("You have selected an invalid name for your pet. Please choose something more reasonable.")
else
  $wiz_utils:autoextend(dupe)
  the_args = length(args) > 1 ? argstr[length(args[1]) + 2..length(argstr)] | ""
  if (length(args) < 1)
    player:tell("Usage: cd&lt;code&gt; &lt;command&gt; [arguments]")
  else
    "...Nooo, it's not me doing this, it's the object itself..."
    "    player = dupe;"
    "    if (`verb_info(dupe, \"cmd_\" + args[1]) ! E_VERBNF => 0')"
    "      return `dupe:(\"cmd_\" + args[1])(the_args) ! ANY => \"Tough cookies. It's YOUR verb after all.\"';"
    "    endif"
    "    if (dupe:do_default_command(args[1], the_args))"
    "      return;"
    "    endif"
    "    ((dupe.listening == 0) && (dupe.listening = 1)) && player:tell(\"Forcing your pet to listen to what it hears.\");"
    "    ((dupe.following != 0) && (dupe.following = 0)) && player:tell(\"Disabling your pet from following you.\");"
    force_input(dupe, argstr)
  endif
endif
"Last modified by Cecil (#7407) on Tue Aug 27 13:14:57 2002 MDT."
.