generic device #115

fix repair

Spec this any anyFlags rxdOwner #361Definer #115

Referenced by

none

Source

if (this.health >= this.health_max)
player:tell("It doesn't seem to be broken.");
else
player:announce_action_text($su:ps(this.fix_start_msg, player, this));
suspend(3);
check = this.repair_skill:check(player, -(this.health_max - this.health));
if (check > 0)
this.health = this.health + random(this.health_max);
player:tell("After a few minutes' work, you're fairly sure you have it functioning again.");
else
player:tell("You curse to yourself, realizing that fixing ", this:dname(), " might be beyond your ability.");
endif
endif

turn switch turn1

Spec this any noneFlags rxdOwner #361Definer #115

Referenced by

• #115:turn line 1: this:turn1

Source

if (prepstr == "on")
if (this.on)
player:tell("It's already on.");
elseif (!this.health)
player:tell("It seems broken.  Turning it on isn't going to help.");
else
player:announce_action_text($su:ps(this.on_msg, player, this));
this.on = 1;
this:turn_on();
endif
elseif (prepstr == "off")
if (!this.on)
player:tell("It's already off.");
else
player:announce_action_text($su:ps(this.off_msg, player, this));
this.on = 0;
this:turn_off();
endif
else
player:tell("You can turn ", this:dname(), " on or off.");
endif

take_damage

Spec this none thisFlags rxdOwner #361Definer #115

Referenced by

none

Source

type = args[1];
amount = args[2];
absorbed = 0;
for x in (this.armor)
if (x[1] == type)
abx = x[2] + random(x[3] - x[2]);
if (abx > 0)
absorbed = absorbed + abx;
endif
endif
endfor
absorbed = min(absorbed, amount);
amount = amount - absorbed;
this.health = this.health - amount;
if (this.health < 0)
this:_break();
endif
return amount;

_break

Spec this none thisFlags rxdOwner #361Definer #115

Referenced by

• #115:take_damage line 16: this:_break

Source

this.health = 0;
this.on = 0;
this:turn_off();
this.location:announce_all($su:ps(this.break_msg, player, this));

turn_on

Spec this none thisFlags rxdOwner #361Definer #115

Referenced by

• #115:turn line 9: this:turn_on

Source

"Do whatever is necessary when we turn on.";

turn_off

Spec this none thisFlags rxdOwner #361Definer #115

Referenced by

• #115:turn line 17: this:turn_off
• #115:_break line 3: this:turn_off
• #115:recycle line 1: this:turn_off
• #115:entomb line 2: this:turn_off

Source

"Do whatever is necessary when we turn off.";

description

Spec this none thisFlags rxdOwner #361Definer #115

Referenced by

none

Source

d = pass(@args);
if (typeof(d) == STR)
d = {d};
endif
pf = this:percent_functional();
if (pf < 75)
a = this.damaged1_msg;
elseif (pf < 40)
a = this.damaged2_msg;
elseif (!this.health)
a = this.damaged3_msg;
else
a = "";
endif
if (this.on)
a = (this.is_on_msg + "  ") + a;
else
a = (this.is_off_msg + "  ") + a;
endif
d = {@d, $su:ps(a, this, this)};
return d;

percent_functional

Spec this none thisFlags rxdOwner #361Definer #115

Referenced by

• #115:description line 5: this:percent_functional

Source

fraction = tofloat(this.health) / tofloat(this.health_max);
return toint(100.0 * fraction);

recycle

Spec this none thisFlags rxdOwner #361Definer #115

Referenced by

none

Source

this:turn_off();
return pass(@args);

turn turn2

Spec none any thisFlags rdOwner #361Definer #115

Referenced by

none

Source

this:turn1();

entomb

Spec this none thisFlags rxdOwner #361Definer #115

Referenced by

none

Source

"Copied from generic device (#331):recycle by Gilmore (#98) Wed Jun  2 21:43:18 2010 CDT";
this:turn_off();
return pass(@args);