generic recipe #145

tell_components

Spec this none thisFlags rxdOwner #29Definer #145

Referenced by

• #145:look_self line 7: this:tell_components
• #145:look_self line 11: this:tell_components

Source

ing = ((args && (args[1] == "catalysts")) && this.catalysts) ? this.catalysts | this.ingredients;
for ingredient in (ing)
{ingredient, qty} = ingredient;
n = (qty > 1) ? ingredient:plural_name() | ingredient:name();
if (index(n, "generic"))
n = strsub(n, "generic ", "");
n = n + " (any kind)";
endif
if (is_a(ingredient, $liquid))
player:tell($su:right(tostr(qty) + "u ", 5) + "of ", $su:left(ingredient:name(), 40));
elseif (qty > 1)
player:tell($su:right(tostr(qty), 5), " - ", $su:left(n, 40));
else
player:tell($su:right(tostr(qty), 5), " - ", $su:left(n, 40));
endif
endfor

look_self

Spec this none thisFlags rxdOwner #29Definer #145

Referenced by

• #145:read line 1: this:look_self

Source

pass(@args);
if (valid(this.makes))
m = (this.makes_count > 1) ? ($su:english_number(this.makes_count) + " ") + this.makes:plural_name() | this.makes:iname();
player:tell("It tells you how to make ", m, " with the following components:");
endif
if (this.ingredients)
this:tell_components();
endif
if (this.catalysts)
player:tell("You will also need the following catalysts: ");
this:tell_components("catalysts");
endif
ss = {};
for x in (this.skill_required)
skill = (typeof(x[1]) == OBJ) ? x[1].name | x[1];
mod = x[2];
if (mod < -10)
m = "a complete mastery of";
elseif (mod < -8)
m = "massive expertise in";
elseif (mod < -6)
m = "serious expertise in";
elseif (mod < -4)
m = "expertise in";
elseif (mod < -2)
m = "good familiarity with";
elseif (mod < 0)
m = "decent familiarity with";
elseif (mod < 2)
m = "some familiarity with";
else
m = "a little knowledge of";
endif
s = (m + " ") + skill;
ss = {@ss, s};
endfor
player:tell("Making this would take ", $su:english_list(ss), ".");
if (valid(this.needs_bench))
player:tell("You realize you'd have to make this on ", this.needs_bench:iname(), ".");
endif
if (valid(this.discoverer))
player:tell((("In the upper right corner is a note: 'First discovered by " + this.doctor_msg) + this.discoverer.name) + ".'");
endif

discovered_by

Spec this none thisFlags rxdOwner #361Definer #145

Referenced by

none

Source

who = args[1];
if (!is_a(this.discoverer, $creature))
this.discoverer = who;
endif

tree_tag

Spec this none thisFlags rxdOwner #29Definer #145

Referenced by

none

Source

r = pass(@args);
if (this.researchable == 0)
r = r + (((("  " + $ansi.red) + $ansi.bold_on) + "!research") + $ansi.reset);
endif
return r;

ingredient_value

Spec this none thisFlags rxdOwner #361Definer #145

Referenced by

none

Source

v = 0;
for x in (this.ingredients)
if (is_a(x[1], $thing))
v = v + (x[1].value * x[2]);
endif
endfor
return v;

read

Spec this none noneFlags rxdOwner #361Definer #145

Referenced by

none

Source

this:look_self(player);

find_ingredients

Spec this none thisFlags rxdOwner #361Definer #145

Referenced by

none

Source

"Return a list of items in 'where' this recipe will use to assemble.";
"If a parent is not found, that parent is returned.";
where = args[1];
cand = where.contents;
ingredients = {};
for x in ({@this.ingredients, @this.catalysts})
c = (typeof(x) == LIST) ? x[2] | 1;
parent = (typeof(x) == LIST) ? x[1] | x;
if (is_a(parent, $liquid))
found = #-1;
for y in (cand)
yield;
if (liq = y:occupants(parent))
if (liq[1].accumulation >= c)
found = liq[1];
endif
endif
endfor
if (!valid(found))
return parent;
endif
ingredients = setadd(ingredients, found);
else
for y in [1..c]
yield;
found = #-1;
for z in (cand)
if ((!valid(found)) && is_a(z, parent))
found = z;
endif
yield;
endfor
if (!valid(found))
return parent;
endif
cand = setremove(cand, found);
ingredients = setadd(ingredients, found);
endfor
endif
yield;
endfor
return ingredients;

xp_value

Spec this none thisFlags rxdOwner #361Definer #145

Referenced by

none

Source

":xp_value(OBJ who) => value in XP when crafted by 'who'.";
who = args[1];
if (!is_player(who))
return 0;
endif
base = this.xp_award;
curve = $rpg.recipe_xp_curve;
xp_total = who.xp_total - who:quest_xp();
xp_total = max(0, xp_total);
if (xp_total > (xbase = base * curve))
extra = xp_total - xbase;
base = base - (extra / $rpg.recipe_xp_drop);
endif
return max(0, base);

validate

Spec this none thisFlags rxdOwner #361Definer #145

Referenced by

none

Source

ni = {};
for x in (this.ingredients)
i = x[1];
if (!is_a(i, #1))
player:tell("FATAL: recycled ingredient");
return;
elseif (!i.f)
player:tell("FIXING: ", i:dname(), " not fertile -- changing to parent");
ni = {@ni, {parent(i), x[2]}};
else
ni = {@ni, x};
endif
endfor
this.ingredients = ni;
if (!valid(this.makes))
player:tell("You forgot to set .makes to something!");
elseif (!this.makes.f)
player:tell(".makes is set to a non-fertile, you idiot.");
endif
player:tell("DONE");

recycle

Spec this none thisFlags rxdOwner #361Definer #145

Referenced by

none

Source

if (this.f)
for m in ($ou:leaves_suspended(#248098))
m.known_recipes = setremove(m.known_recipes, this);
endfor
for cookbook in ($ou:branches_suspended($cookbook))
if (is_a(this, cookbook.recipe_type))
for x in ($ou:leaves_suspended(cookbook))
x.pages = setremove(x.pages, this);
yield;
endfor
endif
endfor
endif
return pass(@args);

make_duration

Spec this none thisFlags rxdOwner #361Definer #145

Referenced by

none

Source

parts = 0;
for x in (this.ingredients)
parts = parts + (x[2] * 3);
endfor
hard = 0;
for x in (this.skill_required)
hard = hard - (x[2] * 4);
endfor
d = (parts + hard) + 6;
d = toint(tofloat(d) * this.time_mod);

random_ingredient

Spec this none thisFlags rxdOwner #361Definer #145

Referenced by

none

Source

parts = this.ingredients;
if (!parts)
return #-1;
endif
part = parts[random($)][1];
while ((part.f && (index(part.name, "generic ") == 1)) && (c = children(part)))
part = c[random($)];
endwhile
return part;