generic trap #267

hates

Spec this none thisFlags rxdOwner #361Definer #267

Referenced by

• #267:do_touch line 2: this:hates
• #267:visible_targets line 3: this:hates
• #267:disarm line 7: this:hates

Source

who = args[1];
if (valid(this.system))
return this.system:hates(who);
endif
return is_player(who);

is_active

Spec this none thisFlags rxdOwner #361Definer #267

Referenced by

• #267:do_touch line 2: this:is_active
• #267:disarm line 4: this:is_active

Source

if (this.weight > 0)
return 0;
endif
if (is_a(this.system, #291057) && (!this.system.on))
return 0;
endif
if (is_a(this.system, #291057) && (!this.system.active))
return 0;
endif
if (!this.armed)
if ((time() - this.last_spring_time) > this.rearm_time)
return this.armed = 1;
endif
else
return 1;
endif

do_spring

Spec this none thisFlags rxdOwner #361Definer #267

Referenced by

• #267:do_touch line 7: this:do_spring
• #267:do_notice line 8: this:do_spring
• #267:system_trigger line 8: this:do_spring

Source

who = args[1];
this.location:announce_all($su:ps($su:msg(this.spring_msg), who, this));
check = this.evade_skill:check(who, this.evade_difficulty);
this.armed = 0;
this.last_spring_time = time();
if (check > 0)
who:aat($su:ps($su:msg(this.evade_msg), who, this));
else
this:do_strike(who);
endif
if (valid(this.system))
this.system.biz.channel:announce(area(this), ((this:dname() + "@") + this:room():dname()) + ": **SPRUNG**");
endif
if (this.recycle_on_spring)
this.junk_ok = 1;
$rpg:junk(this);
endif

do_strike

Spec this none thisFlags rxdOwner #361Definer #267

Referenced by

• #267:do_spring line 9: this:do_strike

Source

who = args[1];
this.location:announce_all($su:ps($su:msg(this.strike_msg), who, this));
if (this.strike_all)
for x in (this.location:occupants($living))
this:strike_person(x);
endfor
else
this:strike_person(who);
endif

do_touch

Spec this none thisFlags rxdOwner #361Definer #267

Referenced by

• #267:hear_event_arrive line 2: this:do_touch

Source

who = args[1];
if (this:is_active() && this:hates(who))
check = this.notice_skill:check(who, this.notice_difficulty, 1);
if (check > 0)
this:do_notice(who);
else
this:do_spring(who);
endif
endif

do_notice

Spec this none thisFlags rxdOwner #361Definer #267

Referenced by

• #267:do_touch line 5: this:do_notice

Source

who = args[1];
who:tell($su:ps($su:msg(this.notice_msg), who, this));
check = this.avoid_skill:check(who, this.avoid_difficulty);
if (check > 0)
who:tell($su:ps($su:msg(this.avoid_msg), who, this));
else
who:tell($su:ps($su:msg(this.avoid_fail_msg), who, this));
this:do_spring(who);
endif

strike_person

Spec this none thisFlags rxdOwner #361Definer #267

Referenced by

• #267:do_strike line 5: this:strike_person
• #267:do_strike line 8: this:strike_person

Source

No program (verb defined but unprogrammed).

install

Spec this none noneFlags rxdOwner #361Definer #267

Referenced by

none

Source

if (this.weight < 0)
player:tell("It's already installed.");
return;
endif
for x in (player.location:occupants($trap))
if (x.weight < 0)
player:tell("There's already a trap installed here.");
return;
endif
endfor
if (!player.location:controlled_by(player))
player:tell("You can't install a trap here.");
return;
endif
if (this:auto_connect())
player:aat($su:ps($su:msg(this.install_msg), player, this));
this:moveto(player.location);
this.weight = -1;
this.armed = 1;
else
player:tell("There's no security system here to monitor the trap.");
endif

look_place_msg

Spec this none thisFlags rxdOwner #361Definer #267

Referenced by

none

Source

if (this.weight < 0)
return $su:ps(this.(verb), this, this);
endif
return "";

hear_event_arrive

Spec this none thisFlags rxdOwner #361Definer #267

Referenced by

none

Source

who = args[3];
this:do_touch(who);

auto_connect

Spec this none thisFlags rxdOwner #361Definer #267

Referenced by

• #267:install line 15: this:auto_connect

Source

found = #-1;
for room in (this:area().contents)
if (con = room:occupants(#291057))
found = con[1];
break;
elseif (con = room:occupants(#9348))
if (valid(con[1].system))
found = con[1].system;
break;
endif
endif
endfor
if (valid(found))
if (((!is_a(found, #281081)) || (!valid(biz = found.biz))) || (!(area(this) in biz.controlled_areas)))
this.location:announce_all(this:dnamec(), " INVALID LOCATION. NOT CONNECTING.");
return;
endif
this.location:announce_all(this:dnamec(), " beeps: FOUND SYSTEM ", found.name, ".  CONNECTING.");
this.system = found;
`found:connect(this) ! ANY';
return 1;
else
return 0;
player:tell("No system found!");
endif

system_trigger

Spec this none thisFlags rxdOwner #361Definer #267

Referenced by

none

Source

if (targ = this:visible_targets())
targ = targ[random($)];
elseif (targ = this.location:occupants($living))
targ = targ[random($)];
else
return E_NONE;
endif
this:do_spring(targ);
return 1;

visible_targets

Spec this none thisFlags rxdOwner #361Definer #267

Referenced by

• #267:system_trigger line 1: this:visible_targets

Source

t = {};
for x in (this.location:occupants($living))
if (this:hates(x))
t = {@t, x};
endif
endfor
return t;

uninstall

Spec this none noneFlags rxdOwner #361Definer #267

Referenced by

none

Source

if (this.weight > 0)
player:tell(this:dnamec(), " isn't installed.");
return;
endif
if (!this.location:controlled_by(player))
player:tell("You can't figure out how to uninstall ", this:dname(), " from here.");
return;
endif
player:aat(player:dnamec(), " whips out a screwdriver and uninstalls ", this:dname(), ".");
clear_property(this, "weight");
this:auto_disconnect();
this:moveto(player);

disarm

Spec this none noneFlags rxdOwner #361Definer #267

Referenced by

none

Source

if (this.weight > 0)
player:tell(this:dnamec(), " isn't even installed.");
return;
elseif (!this:is_active())
player:tell(this:dnamec(), " doesn't appear to be armed.");
return;
elseif (!this:hates(player))
player:tell("You can't disarm your own traps!");
return;
else
player:queue_action($actions.disarm, {this}, 1, "disarm " + this.name);
endif

do_disarm

Spec this none thisFlags rxdOwner #361Definer #267

Referenced by

none

Source

who = args ? args[1] | #-1;
this.armed = 0;
this.last_spring_time = time();
if (this.disarm_msg)
this.location:announce_all($su:ps(this.disarm_msg, who, this));
endif

auto_disconnect

Spec this none thisFlags rxdOwner #361Definer #267

Referenced by

• #267:uninstall line 11: this:auto_disconnect

Source

if (valid(this.system))
this.location:announce_all(this:dnamec(), " beeps: DISCONNECTING FROM SYSTEM ", this.system.name, ".");
this.system:disconnect(this);
clear_property(this, "system");
return 1;
else
return 0;
player:tell("No system found!");
endif