generic lockable container #146

uninstall

Spec any out of/from inside/from thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

"Uninstall a lock from this container.";
if (player.location != this.location)
player:tell("Uninstall from what?");
return;
endif
if (this:controlled_by(player) == 0)
player:tell("You can't see how to remove a lock from that.");
return;
endif
if (!valid(this.lock))
player:tell(this:dnamec(), " has no locks to uninstall.");
return;
endif
thelock = this.lock;
delay = 2.0;
if (player.location != this.location)
player:tell("You have to be in the same room as ", this:dname(), " if you want to ", verb, " a lock in it.");
return;
endif
if (this.open == 0)
player:tell(this:dname(), " must be open for you to be able to ", verb, " a lock from it.");
return;
endif
thelock:("_" + verb)(player, iobj);

_announce

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

• #146:_open line 32: this:_announce
• #146:_close line 12: this:_announce

Source

who = args[1];
if (!valid(who))
who = this;
endif
locmsg = args[2];
who.location:announce_all($su:ps(locmsg, who, this, this, this));

open close

Spec this none noneFlags rxdOwner #29Definer #146

Referenced by

• #146:lock line 15: this:close

Source

if (!this.closable)
player:tell("You can't ", verb, " ", this:dname(), ".");
return;
endif
if ((this:locked() && is_a(this.lock, $lock)) && (verb == "open"))
player:queue_action(this.lock, {"unlock"});
endif
player:queue_action(this.(verb + "_action"), {this, "_" + verb, player.fighting ? 1.0 | 0.0, 0}, 1, (verb + " ") + dobj.name);
if (is_a(this.lock, $lock) && (verb == "close"))
player:queue_action(this.lock, {"lock"});
endif

_open

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

who = args ? args[1] | #-1;
ignore_lock = (length(args) > 2) ? args[3] | 0;
all_locks = {this.lock};
if (this.open == 1)
who:tell($su:ps("%DT is already open."));
return this.open;
endif
if (this.operational == 0)
locmsg = this.open_fail_msg;
elseif (ignore_lock)
locmsg = this.open_success_msg;
this:_do_open();
elseif (all_locks != {})
openindex = 0;
for a in (all_locks)
if ($ou:isa(a, $lock))
if (a.locked == 1)
openindex = openindex + 1;
endif
endif
endfor
if (openindex != 0)
locmsg = this.open_fail_lock_msg;
else
locmsg = this.open_success_msg;
this:_do_open();
endif
else
locmsg = this.open_success_msg;
this:_do_open();
endif
this:_announce(who, locmsg);
return this.open;

_close

Spec any none noneFlags rxdOwner #29Definer #146

Referenced by

none

Source

who = args ? args[1] | #-1;
if (this.open == 0)
who:tell($su:ps("%DT is already closed."));
return this.open;
endif
if (this.operational == 0)
locmsg = this.close_fail_msg;
else
locmsg = this.close_success_msg;
this:_do_close();
endif
this:_announce(who, locmsg);
return !this.open;

_do_open

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

• #146:_open line 12: this:_do_open
• #146:_open line 26: this:_do_open
• #146:_open line 30: this:_do_open
• #146:die line 7: this:_do_open

Source

this.open = 1;

_do_close

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

• #146:_close line 10: this:_do_close
• #146:_repair line 3: this:_do_close

Source

this.open = 0;

lock unlock

Spec this none noneFlags rxdOwner #29Definer #146

Referenced by

none

Source

if (player.location != this.location)
player:tell($su:capitalize(verb), " what?");
return;
endif
locked = 0;
if (!valid(this.lock))
player:tell(this:dnamec(), " does not have a lock.");
return;
endif
if (((verb == "lock") && (this.lock.locked == 1)) || ((verb == "unlock") && (this.lock.locked == 0)))
player:tell(this:dnamec(), " is already ", verb, "ed.");
return;
endif
if ((verb == "lock") && this.open)
this:close();
endif
player:queue_action(this.lock, {verb});

_lock _unlock

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

who = args[1];
actionname = verb[2..$];
locked = 0;
this:clean_locks();
if (!valid(this.lock))
who:tell(this:dnamec(), " doesn't have any locks.");
return;
else
lock = this.lock;
who:queue_action(this.lock, {"lock"});
endif

contents

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

contents = pass(@args);
if (valid(this.lock))
return setremove(contents, this.lock);
else
return contents;
endif

autoclose_on_lock

Spec this is anyFlags rxdOwner #29Definer #146

Referenced by

none

Source

"Usage: autoclose_on_lock <door> is <0|1>";
if (!this:controlled_by(player))
player:tell("You cannot change the behavior of a door that isn't yours.");
return E_PERM;
endif
if ((args[3] != "1") && (args[3] != "0"))
player:tell("Usage:  ", verb, " ", this.name, " is <1|0>.");
return;
endif
arg = tonum(args[3]);
this.autoclose_on_lock = arg;
if (arg == 1)
player:tell(this:dname(), " will now automatically close before it is locked.");
else
player:tell(this:dname(), " will no longer automatically close before it is locked.");
endif

autoopen_on_unlock

Spec this is anyFlags rxdOwner #29Definer #146

Referenced by

none

Source

"Usage: autoopen_on_unlock <door> is <0|1>";
if (!this:controlled_by(player))
player:tell("You cannot change the behavior of a door that isn't yours.");
return E_PERM;
endif
if ((args[3] != "1") && (args[3] != "0"))
player:tell("Usage:  ", verb, " ", this.name, " is <1|0>.");
return;
endif
arg = tonum(args[3]);
this.autoopen_on_unlock = arg;
if (arg == 1)
player:tell(this:dname(), " will now automatically open when it is unlocked.");
else
player:tell(this:dname(), " will no longer automatically open when it is unlocked.");
endif

_is_locked

Spec any none noneFlags rxdOwner #29Definer #146

Referenced by

none

Source

all_locks = this:occupants($alock);
if (all_locks != {})
for a in (all_locks)
if ($ou:isa(a, $lock))
if (a.locked == 1)
return 1;
endif
endif
endfor
endif
return 0;

_can_be_unlocked_by

Spec any none noneFlags rxdOwner #29Definer #146

Referenced by

none

Source

who = args[1];
all_locks = this:occupants($alock);
lockdata = {};
if (all_locks != {})
for a in (all_locks)
if ($ou:isa(a, $lock))
can = a:_can_be_unlocked_by(who);
if (can == 0)
return 0;
endif
endif
endfor
endif
return 1;

location_specifier

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

return this:dname();

die

Spec this none thisFlags rxdOwner #361Definer #146

Referenced by

• #146:_break line 3: this:die

Source

for a in (this.contents)
if ($ou:isa(a, $lock))
a:_do_unlock();
a.operational = 0;
endif
endfor
this:_do_open();
if (this.operational)
this.location:announce_all($su:ps(this.die_msg));
endif
this.operational = 0;

_repair

Spec this none thisFlags rxdOwner #361Definer #146

Referenced by

none

Source

pass(@args);
if (this.health)
this:_do_close();
this.operational = 1;
if (is_a(this.lock, $lock))
this.lock.operational = 1;
endif
endif

_repair_check

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

":_repair_check(OBJ who) => Return a skillcheck of 'who' trying to fix me.";
check = $skills.repair:check(args[1], 0);
return check;

is_broken

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

if (!this.operational)
return 1;
endif
if (is_a(this.lock, $lock) && (!this.lock.operational))
return 1;
endif
return this.health != this.health_max;

pick

Spec this none noneFlags rxdOwner #29Definer #146

Referenced by

none

Source

if (!valid(this.lock))
player:tell("You can't see any way to pick a lock in ", this:dname(), ".");
return;
elseif (!this.lock:is_locked())
player:tell("It doesn't appear to be locked.");
return;
endif
player:queue_action($actions.apick, {this.lock});

occupants

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

• #146:_is_locked line 1: this:occupants
• #146:_can_be_unlocked_by line 2: this:occupants

Source

return valid(this.lock) ? setremove(pass(@args), this.lock) | pass(@args);

get_from

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

who = args[1];
targets = (typeof(args[2]) == LIST) ? $lu:randomly_permute(args[2]) | {args[2]};
if (this.open)
for item in (targets)
if (item == this.lock)
targets = setremove(targets, item);
endif
endfor
who:queue_action($actions.get, {targets, this, {}}, 1, "get from " + this.name);
else
return E_INVARG;
endif

bolt_old

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

"Bolt this sucker down to the floor! (Makes it impossible to lift, regardless of weight.";
if (player != this.owner)
player:tell("Only ", this:dname(), "'s owner can bolt it down.");
return;
endif
if (player != this.location.owner)
player:tell("You can't find a place to bolt this down.");
return;
endif
if (this.weight == -1)
player:tell("Looking at ", this:dname(), ", you can tell that it's already bolted down.");
return;
endif
if (is_a(this.location, $creature))
this.location:_drop(this);
endif
player:queue_action($actions.verb, {this, "_bolt", {player}, 0.0, 1}, 1, "bolt down " + this.name);

unbolt_old

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

"Unbolt this from the floor.  Perfect for when you move, and don't want to leave your lockable containers behind.";
if (player != this.owner)
player:tell("Only ", this:dname(), "'s owner can bolt it down.");
return;
endif
if (this.weight != -1)
player:tell(this:dnamec(), " isn't bolted to the floor.");
return;
endif
player:queue_action($actions.verb, {this, "_unbolt", {player}, 0.0, 1}, 1, "bolt down " + this.name);

locks

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

return {this.lock};

clean_locks

Spec this none thisFlags rxdOwner #361Definer #146

Referenced by

• #146:_lock line 4: this:clean_locks

Source

return 0;

exitfunc

Spec this none thisFlags rxdOwner #361Definer #146

Referenced by

none

Source

"Copied from generic door (#246837):exitfunc by Gilmore (#98) Tue Oct 16 16:46:29 2007 CDT";
if (args[1] == this.lock)
this.lock = #-1;
endif

_start

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

"Copied from generic door (#246837):_start by Gilmore (#98) Tue Oct 16 17:18:01 2007 CDT";
who = args[1];
action = args[2][1];
aargs = {who};
if (length(args[2]) > 1)
aargs = {@aargs, @args[2][2..$]};
endif
if (this:("_" + action)(@aargs))
if (action == "bash")
return {4.0, 0};
endif
return {2.0, 0};
else
return E_NONE;
endif

may_pick

Spec this none thisFlags rxdOwner #361Definer #146

Referenced by

none

Source

"Copied from generic door (#246837):may_pick by Gilmore (#98) Tue Oct 16 18:52:01 2007 CDT";
who = args[1];
np = {};
for x in (this.pickers)
if ((time() - x[2]) <= this.pick_timeout)
np = {@np, x};
endif
endfor
this.pickers = np;
if (who in $lu:slice(this.pickers, 1))
return 0;
endif
return 1;

look_self

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

ret = pass(@args);
if (valid(this.lock))
player:tell($su:ps(this.lock.installed_msg, this.lock, this.lock, this));
endif
if (!this.operational)
player:tell("The door hinges are smashed and broken.");
endif
return ret;

hear_event_say

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

if (args[4][2] == this)
for a in (this.contents)
if ($ou:has_verb(a, verb))
a:(verb)(@args);
if (`a.listens == 1 ! ANY => 0')
return;
endif
endif
endfor
endif

tell_contents

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

gn = {"Weapons", "Ammo", "Clothing", "Medical", "Consumables", "Artifacts", "Misc"};
g = {{}, {}, {}, {}, {}, {}, {}};
for what in (this.contents)
if (what == this.lock)
continue;
endif
if (!valid(x = `what:list_as() ! ANY => #-1'))
x = what;
endif
if (is_a(x, $weapon))
g[1] = setadd(g[1], what);
elseif (is_a(x, $ammo))
g[2] = setadd(g[2], what);
elseif (is_a(x, $clothing))
g[3] = setadd(g[3], what);
elseif (is_a(x, #804))
g[4] = setadd(g[4], what);
elseif (is_a(x, #723))
g[4] = setadd(g[4], what);
elseif (is_a(x, #835))
g[4] = setadd(g[4], what);
elseif (is_a(x, $food))
g[5] = setadd(g[5], what);
elseif (is_a(x, #868))
g[5] = setadd(g[5], what);
elseif (is_a(x, #890))
g[5] = setadd(g[5], what);
elseif (is_a(x, #877))
g[5] = setadd(g[5], what);
elseif (is_a(x, $treasure))
g[6] = setadd(g[6], what);
elseif (!is_a(what, $decal))
g[7] = setadd(g[7], what);
endif
endfor
for x in [1..length(g)]
$cu:sin();
if (g[x])
player:tell($ansi.bold_on, gn[x], ":", $ansi.reset);
this:tell_contents_sub(g[x]);
endif
endfor

add_picker

Spec this none thisFlags rxdOwner #361Definer #146

Referenced by

none

Source

"Copied from generic door (#246837):add_picker by Gilmore (#98) Sun Nov  4 20:59:47 2007 CST";
who = args[1];
this.pickers = {@this.pickers, {who, time()}};
if (length(this.pickers) > 20)
this.pickers = this.pickers[$ - 19..$];
endif

fire_pcm

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

none

Source

No program (verb defined but unprogrammed).

ok_to_pick

Spec this none thisFlags rxdOwner #361Definer #146

Referenced by

none

Source

return 1;

controlled_by

Spec this none thisFlags rxdOwner #29Definer #146

Referenced by

• #146:uninstall line 6: this:controlled_by
• #146:autoclose_on_lock line 2: this:controlled_by
• #146:autoopen_on_unlock line 2: this:controlled_by

Source

who = args[1];
if (who == this.location.owner)
return 1;
elseif (who in this.location.residents)
return 1;
elseif (is_a(biz = this.location:area().owner.employer, $biz) && biz:permit_control(who, this.location))
return 1;
elseif (`who.wizard ! ANY => 0')
return 1;
endif
return 0;
return (((who == this.location.owner) || (who in this.location.residents)) || this.location:area().owner.employer:permit_control(who, this.location)) || `who.wizard ! ANY => 0';

_break

Spec this none thisFlags rxdOwner #361Definer #146

Referenced by

none

Source

pass(@args);
this.operational = 0;
this:die();

locked

Spec this none thisFlags rxdOwner #361Definer #146

Referenced by

• #146:open line 5: this:locked

Source

if (valid(this.lock))
return this.lock.locked;
endif

_bolt _unbolt

Spec this none thisFlags rxdOwner #361Definer #146

Referenced by

none

Source

"Automatically generated for the boltable API.";
return $api.boltable.implementation:(verb)(this, @args);