PostModern Player Class (#856)

this.location:announce_all("(", argstr, ")");
.

if ((player != this.owner) && (this.movable_msg == "NO"))
    this:tell(player.name, " tried to move you.");
    player:tell(E_PERM);
else
    pass(@args);
endif
.

"Copied from generic player (#6):home by The_Mayor (#2) Sun Feb  6 17:47:03 1994 
EST";
"modifed to use the usual player teleport messages like @go or @join";
start = this.location;
if (start == this.home)
    player:tell("You're already home!");
    return;
elseif (typeof(this.home) != OBJ)
    player:tell("You've got a weird home, pal.  I've reset it to the default one.");
    this.home = $player_start;
elseif (!valid(this.home))
    player:tell("Oh no!  Your home's been recycled.  Time to look around for a new 
one.");
    this.home = $player_start;
endif
this:moveto(this.home);
if (!valid(start))
elseif (start == this.location)
    start:announce(player.name, " learns that you can never go home...");
else
    start:announce(player:oself_port_msg(this.home));
endif
if (this.location == this.home)
    if (msg = this:self_port_msg(this.home))
        player:tell(msg);
    endif
    this.location:announce(player:oself_arrive_msg(this.home));
elseif (this.location == start)
    player:tell("Either home doesn't want you, or you don't really want to go.");
else
    player:tell("Wait a minute!  This isn't your home...");
    if (valid(this.location))
        this.location:announce(player.name, " arrives, looking quite bewildered.");
    endif
endif
.