Caesar (#2509)

(an instance of Generic Lycanthropic Thespian PC made by Caesar)

     TEETH. CLAWS. MASS. An orange-maned lion stalks the area.
     Caesar is wearing a loose collar of bright pink leather. He loves the girl that gave it to him very much, so he wears it with pride. It looks a bit silly, but no one would say that to such a big lion.

Caesar is carrying cc.

Go to location of this object, cardboard box.


Caesar owns Caesar


VERB SOURCE CODE:

@move: 
"Copied from generic player (#6):@move by The_Mayor (#2) Thu Jun  1 01:16:59 1995 
PDT";
"'@move  to ' - Teleport an object. Example: '@move trash to #11' 
to move trash to the closet.";
set_task_perms((caller == this) ? this | $no_one);
dobj = this:my_match_object(dobjstr);
iobj = this:my_match_object(iobjstr);
if ($command_utils:object_match_failed(dobj, dobjstr) || ((iobj != $nothing) && $command_utils:object_match_failed(iobj, 
iobjstr)))
    return;
endif
old_loc = dobj.location;
if (old_loc == iobj)
    player:tell(dobj.name, " is already ", valid(iobj) ? "in " + iobj.name | "nowhere", 
".");
    return;
endif
dobj:moveto(iobj);
if (dobj.location == iobj)
    player:tell("Moved.");
    if (is_player(dobj))
        if (valid(old_loc))
            old_loc:announce_all(dobj.name, " disappears suddenly for parts unknown.");
            if (dobj != player)
                dobj:tell("You have been moved by ", player.name, ".");
            endif
        endif
        if (valid(dobj.location))
            dobj.location:announce(dobj.name, " materializes out of thin air.");
        endif
    endif
elseif (dobj.location == old_loc)
    if ($object_utils:contains(dobj, iobj))
        player:tell(iobj.name, " is inside of ", dobj.name, "!");
    else
        player:tell($string_utils:pronoun_sub("Either %d doesn't want to go, or %i 
doesn't want to accept %[dpo]."));
    endif
elseif (dobj == player)
    player:tell("You have been deflected from your original destination.");
else
    player:tell($string_utils:pronoun_sub("%D has been deflected from %[dpp] original 
destination."));
endif
.






PROPERTY DATA: