View/Edit #2250:home maison

Switch to edit mode.

1:  "Copied from Generic Player (#12):home by Slacker (#55)Jun 30 21:14:29 1998"
2:  if (valid(caller_perms()) && caller != this && !caller_perms().wizard)
3:    return
4:  elseif (this.location == this.home)
5:    return
6:  elseif (!`this.home:accept_for_abode(this) ! ANY => 0')
7:    player:sub_tell("Your home %1 (#%1~#) doesn't seem to want you.", this.home)
8:    this:set_home($player_start)
9:  endif
10: player:tell("You click your heels three times.")
11: old_loc = this.location
12: dobjstr = tostr(dobj = this)
13: iobjstr = tostr(iobj = this.home)
14: if (old_loc != $player_start && old_loc != iobj)
15:   fork t (3)
16:     if (this.location == old_loc && $object_utils:isa(this.home, $room) && this.home:accept_for_abode(this))
17:       this:tell("Hmm... It seems you can't get home.")
18:       if (this.anchor != this.location)
19:         this:moveto(this.home)
20:         old_loc:sub_announce(this:msg_odepart())
21:         $msg:mtell(this, "arrive_quack", old_loc)
22:       endif
23:     endif
24:   endfork
25: else
26:   t = 0
27: endif
28: "Changed from _move!_obj to avoid VVers fleeing from @summon's"
29: this:moveto(iobjstr)
30: if (t && (this.location == $player_start || this.location == iobj))
31:   `kill_task(t) ! E_INVARG => "Oh.  Oops."'
32: endif
33: "Last modified by Dax (#789) on Thu Nov  8 15:28:57 2001 MST."

[home | help | who | search | setup | code]