generic gatekeeper #143

_check_door

Spec this none thisFlags rxdOwner #29Definer #143

Referenced by

• #143:_check_for_guarded_doors line 4: this:_check_door

Source

{door} = args;
here = this.location;
for doorspec in (this.guarded_doors)
if (doorspec[1] == door)
{door, aperturestate, lockstate} = doorspec;
if ((time() - this.last_answer_time) > this.wait_threshhold)
if (((aperturestate != door.open) && (!door:_is_locked())) && door.operational)
verb = aperturestate ? "open" | "close";
actionspec = {door, {verb}};
return actionspec;
endif
if (((lockstate != door:_is_locked()) && (!door.open)) && door.operational)
verb = lockstate ? "lock" | "unlock";
for lock in (door:occupants($lock))
if ((lock:_can_be_unlocked_by(this) && lock.operational) && (lock:locked() != lockstate))
actionspec = {door, {verb}};
return actionspec;
endif
endfor
endif
if (!door.operational)
actionspec = {$actions.repair, {door}, 1, "repair " + door.name};
return actionspec;
endif
for lock in (door:occupants($lock))
if (!lock.operational)
actionspec = {$actions.repair, {door}, 1, "repair " + door.name};
return actionspec;
endif
endfor
endif
endif
endfor

_check_for_guarded_doors

Spec this none thisFlags rxdOwner #29Definer #143

Referenced by

• #143:suggest_next_action line 8: this:_check_for_guarded_doors

Source

for each in (this.guarded_doors)
door = each[1];
if (door.location == this.location)
return this:_check_door(door);
endif
endfor

suggest_next_action

Spec this none thisFlags rxdOwner #29Definer #143

Referenced by

none

Source

if (r = this:_fight())
return {r, 0};
elseif (r = this:_aggression())
return {r, 0};
elseif (r = this:_scavenge())
this.lastaction = "s";
return {r, 2};
elseif (r = this:_check_for_guarded_doors())
this.lastaction = "g";
return {r, 3};
elseif (r = this:_comment())
this.lastaction = "c";
return {r, 10};
elseif (r = this:_wander())
this.lastaction = "w";
return {r, this.wander_speed};
endif

give_keys_to

Spec this none thisFlags rxdOwner #29Definer #143

Referenced by

none

Source

actor = args[1];
for each in (this.contents)
if ($ou:isa(each, $key))
this:give_to(each, actor);
return each;
endif
endfor

hear_event_pick

Spec this none thisFlags rxdOwner #29Definer #143

Referenced by

none

Source

{start_finish, object, actor, cl} = args;
if ((random() % 100) >= this.attack_lockpickers_chance)
if (start_finish == 1)
actor:tell($su:ps(this.lockpick_msg, actor, this, this.location));
this.location:announce_all_but({actor}, $su:ps(this.olockpick_msg, actor, this, this.location));
this:start_fighting(actor);
endif
endif

hear_event_knock

Spec this none thisFlags rxdOwner #361Definer #143

Referenced by

none

Source

who = args[3];
door = args[4][1];
if (this.answer_doors)
answer = 0;
for x in (this.guarded_doors)
if (x[1] == door)
answer = 1;
endif
endfor
if (answer)
if (this:answer_door_for(who))
this:queue_action(door, {"open"});
this.last_answer_time = time();
endif
endif
endif

answer_door_for

Spec this none thisFlags rxdOwner #361Definer #143

Referenced by

• #143:hear_event_knock line 11: this:answer_door_for

Source

who = args[1];
return 1;

_wander

Spec this none thisFlags rxdOwner #361Definer #143

Referenced by

• #143:suggest_next_action line 14: this:_wander

Source

door = this.guarded_doors[1][1];
if (this.location != door.location)
return {this.move_action, {this.location:next_hop_to(door.location)}, 1, ""};
this:jumpstart();
else
return pass(args);
endif

_brainscan

Spec this none thisFlags rxdOwner #361Definer #143

Referenced by

none

Source

pass(who = args[1]);
if (d = this.guarded_doors)
nd = {};
for x in (d)
if (x[1].location == this.location)
nd = {@nd, x[1]};
endif
endfor
if (nd)
this:_whisper(who, "I can't let anyone get through ", $su:english_list($lu:map_verb(nd, "dname")), ".");
endif
endif