3de
@verb #5450:"@addcode addcode @code @cd" any any this rd #7407
@program #5450:"@addcode addcode @code @cd" any any this
if (length(dobjstr) > 12)
  return player:tell("Trust me, you don't want a code that long. Think of something short. One or two letters maybe.")
endif
for object in (player.owned_objects)
  if (object:isa(#5450) && dobjstr == object.code && object != this)
    return player:tell(object:title(), " is already using that code!")
  endif
endfor
this.code = dobjstr
this.listening = 1
#5451 in player.features || player:tell("You will have to type \"@addfeature #5451\" before you will be able to control your pet properly.")
player:tell("Type \"tutorial on ", this:title(), "\" if you don't understand how to use the commands.")
player:tell("Code added! Congrats. Now type \"cd", dobjstr, " @join ", this.owner.name, "\". Then if that works, try \"cd", dobjstr, " say hi!\". Cool huh?")
"Last modified by Cecil (#7407) on Sun Feb  1 12:08:14 1998 EST."
.

0