generic food #138

eat

Spec this none noneFlags rxdOwner #361Definer #138

Referenced by

none

Source

if (!this.edible)
player:tell($su:ps(this.not_edible_msg, player, this));
elseif (this:drug(player):doses_for(player) > this:drug(player).overdosage)
player:tell("Ugh, no.  You couldn't eat another bite without throwing up.");
elseif (this.location != player)
player:tell("You're not holding it.");
else
player:queue_action($actions.eat, {this}, 1, "eat " + this:dname());
endif

transfer_disease

Spec this none thisFlags rxdOwner #361Definer #138

Referenced by

• #138:_eat line 15: this:transfer_disease

Source

victim = args[1];
if (this.blood != {})
for a in (this.blood)
if (typeof(a) != LIST)
$nets.bugnet:announce(#-1, "bad .blood of a food: " + $su:nn(this), 1);
return;
elseif (length(a) > 2)
victim:ingest(a[1], a[3], 0);
endif
endfor
endif

_eat

Spec this none thisFlags rxdOwner #361Definer #138

Referenced by

none

Source

who = args[1];
who:_wield(this, 0, 1);
bites = (length(args) > 1) ? args[2] | 1;
if ($ou:has_property(who, "feed_msg"))
m = who.feed_msg;
elseif (this.bites > bites)
m = this.eat_msg;
else
m = this.eat_finish_msg;
endif
who:aat($su:ps(m, who, this));
if ((this:drug(who) != #895) || (!#69007:doses_for(who)))
who:ingest(this:drug(who), this.nutrition, 0);
endif
this:transfer_disease(who);
this:eat_stress(who);
if (!this.f)
this.bites = this.bites - bites;
if (this.bites < 1)
$recycler:_recycle(this);
endif
endif

_rot

Spec this none thisFlags rxdOwner #361Definer #138

Referenced by

• #138:rot_check line 40: this:_rot

Source

if ((((!this.f) && (!children(this))) && (!verbs(this))) && gamevalid(this.location))
msg = $su:ps(this.rot_msg, this, this);
if (is_a(this.location, $room))
this.location:announce_all(msg);
else
this.location.listening && this.location:tell(msg);
endif
if (typeof(this.remains) == LIST)
remains = this.remains;
elseif ((typeof(this.remains) == OBJ) && valid(this.remains))
remains = {this.remains};
else
remains = {};
endif
for x in (remains)
remnant = $rpg:spawn(x);
remnant:moveto(this.location);
endfor
move(this, $tomb);
endif

look_self

Spec this none thisFlags rxdOwner #361Definer #138

Referenced by

none

Source

pass(@args);
msg = "";
if (this.rot >= toint(tofloat(this.rot_max) / 1.3))
msg = this.rot_msgs[2];
elseif (this.rot >= (this.rot_max / 2))
msg = this.rot_msgs[1];
endif
if (msg)
player:tell($su:ps(msg, this));
msg = "";
endif
gone = toint((tofloat(this.bites) / tofloat(parent(this).bites)) * 100.0);
if (gone < 30)
msg = this.mostly_gone_msg;
elseif (gone < 65)
msg = this.half_gone_msg;
elseif (gone < 95)
msg = this.some_gone_msg;
endif
if (msg)
player:tell($su:ps(msg, this));
endif

set_bites

Spec this none thisFlags rxdOwner #361Definer #138

Referenced by

none

Source

value = args[1];
if (typeof(value) == NUM)
this.bites = value;
else
return E_INVARG;
endif

set_blood

Spec this none thisFlags rxdOwner #361Definer #138

Referenced by

none

Source

this.blood = args[1];

tree_tag

Spec this none thisFlags rxdOwner #361Definer #138

Referenced by

none

Source

x = pass(@args);
if ((this.bites * this.nutrition) >= 300)
x = tostr(x, " ", $ansi.red, $ansi.bold_on, this.bites, " x ", this.nutrition, $ansi.reset);
else
x = tostr(x, " ", $ansi.cyan, this.bites, " x ", this.nutrition, $ansi.reset);
endif
if (!this.rot_chance)
x = tostr(x, $ansi.red, $ansi.bold_on, " (rot ", this.rot_chance, "% x ", this.rot_max, ")", $ansi.reset);
else
x = tostr(x, " (rot ", this.rot_chance, "% x ", this.rot_max, ")");
endif
return x;

burn_up

Spec this none thisFlags rxdOwner #361Definer #138

Referenced by

none

Source

this:room():announce_all($su:ps(this.cook_msg, this, this));
if (valid(this.cook_to))
newfood = $rpg:spawn(this.cook_to);
newfood:moveto(this.location);
endif
$rpg:junk(this);

can_glob

Spec this none thisFlags rxdOwner #361Definer #138

Referenced by

none

Source

return 0;
if (this.bites != parent(this).bites)
return 0;
elseif (this.rot != parent(this).rot)
return 0;
elseif (this.drug != parent(this).drug)
return 0;
elseif (this.blood != parent(this).blood)
return 0;
else
return pass(@args);
endif

smell sniff

Spec this none noneFlags rxdOwner #361Definer #138

Referenced by

none

Source

pct = toint((tofloat(this.rot) / tofloat(this.rot_max)) * 100.0);
if (pct < 10)
m = "very fresh";
elseif (pct < 25)
m = "fresh";
elseif (pct < 50)
m = "a little off";
elseif (pct < 70)
m = "somewhat rank";
elseif (pct < 90)
m = "rotten";
else
m = "nauseatingly rotten";
endif
player:aat(player:dnamec(), " smells ", this:dname(), ".");
if (this.smell_msg)
player:tell("It smells ", this.smell_msg, ".  It smells ", m, ".");
else
player:tell("It smells ", m, ".");
endif
if (this.blood)
a = {};
for x in (this.blood)
if (m = `x[1].smell_msg ! ANY')
a = {@a, m};
endif
endfor
if (a)
player:tell("You catch a whiff of ", $su:english_list($lu:remove_duplicates(a)), ".");
endif
endif

rot_check

Spec this none thisFlags rxdOwner #361Definer #138

Referenced by

none

Source

rotchance = this.rot_chance;
if ((typeof(rotchance) != INT) || (rotchance < 1))
return;
endif
loc = this.location;
g_area = $area;
g_room = $room;
while (valid(loc) && (!is_a(loc, g_area)))
if (is_a(loc, #2801))
return;
elseif (is_a(loc, g_room))
temp = tofloat(loc:temperature());
if (temp > 80.0)
mult = 1.0 + ((temp - 80.0) / 80.0);
elseif (temp >= 52.0)
mult = 1.0;
elseif (temp < 32.0)
mult = 0.0;
else
mult = (temp - 32.0) / 20.0;
endif
rotchance = toint(ceil(tofloat(rotchance) * mult));
elseif (fridge = $code_utils:verb_or_property(loc, "fridge"))
rotchance = rotchance - fridge;
endif
if (has_property(loc, "open") && loc.open)
rotchance = toint(ceil(tofloat(rotchance) * 1.5));
endif
loc = loc.location;
endwhile
if ($lu:is_one_of(this.location, {$creature, $container}) && (af = occupants(this.location, $decals.antifreeze_vomit)))
rotchance = rotchance - (af[1].accumulation * af[1].fridge);
endif
if (rotchance < 1)
return;
endif
if (random(100) <= rotchance)
newrot = this.rot + 1;
if (newrot > this.rot_max)
this:_rot();
else
this.rot = newrot;
endif
endif

cooked_blood

Spec this none thisFlags rxdOwner #361Definer #138

Referenced by

none

Source

return this.blood;

drug

Spec this none thisFlags rxdOwner #361Definer #138

Referenced by

• #138:eat line 3: this:drug
• #138:eat line 3: this:drug
• #138:_eat line 12: this:drug
• #138:_eat line 13: this:drug

Source

return this.drug;

tell_appraise

Spec this none thisFlags rxdOwner #361Definer #138

Referenced by

none

Source

roll = args[1];
r = pass(@args);
ds = {};
diff = 0;
for b in (this.blood)
if (min(roll, $skills.chemistry:check(player, -2, 1)) > diff)
if (d = b[1]:effect_description(b[3]))
ds = listappend(ds, d);
endif
endif
diff = diff + 2;
endfor
if (ds)
player:tell("Eating this would cause you to ", $su:english_list(ds), ".");
endif
return r;

eat_stress

Spec this none thisFlags rxdOwner #361Definer #138

Referenced by

• #138:_eat line 16: this:eat_stress

Source

who = args[1];
if ((stress = this.eat_stress) && is_player(who))
if (stress > 0)
who:gain_stress(stress);
else
who:lose_stress(stress);
endif
endif