Generic Classroom #129

init_for_core

Spec this none thisFlags rxdOwner #2Definer #129

Referenced by

none

Source

if (caller_perms().wizard)
if (this == $school)
this.fakes == {"instructor", "teacher"};
else
for p in (properties($school))
if ((!p) in {"build_help", "help_msg"})
clear_property(this, p);
endif
endfor
endif
return pass(@args);
endif

learn

Spec this none thisFlags rxdOwner #2Definer #129

Referenced by

• #129:enterfunc line 67: this:learn

Source

cost = tofloat(random(2) + 1);
if (!this.skill)
stat = 3;
else
stat = this.skill in player.stats[1];
endif
boost = stat ? cost | (cost * 0.5);
this.alumni = setadd(this.alumni, player);
$scheduler:schedule(9000, this, "clear", player);
if (!stat)
if (this.skill[$] != "~")
prop = this.skill;
sktso = $edu_stds.(prop)[6];
skts = {prop, prop, @sktso};
adjlist = $edu_stds.(tostr(prop, "_adjust"));
else
skts = {@$edu_stds.language[6], "language"};
adjlist = $edu_stds.language_adjust;
lang = this:match_lang(this.skill);
if (valid(lang))
iter = player:roll_against("language") ? 20 | 10;
if (la = player.race in $list_utils:slice(adjlist))
iter = $math_utils:round(adjlist[la][2] * tofloat(iter));
endif
if (!(lang in player.languages[1]))
player.languages[1] = {@player.languages[1], lang};
player.languages[2] = {@player.languages[2], 0.0};
endif
for z in [1..iter]
$lang_utils:advance_level(player, lang);
endfor
endif
endif
dilute = tofloat(length(skts));
player.stats[2][4] = player.stats[2][4] - (sqrt(cost) * 0.0125);
player.stats_current[2][4] = player.stats_current[2][4] - (sqrt(cost) * 0.1);
for skt in (skts)
adjlist = $edu_stds.(tostr(skt, "_adjust"));
tweak = (la = player.race in $list_utils:slice(adjlist)) ? adjlist[la][2] | 1.0;
if (s = skt in player.skills[1])
denom = ((player.skills[2][s] + 0.9) * dilute) * 5.0;
player.skills[2][s] = player.skills[2][s] + ((boost * tweak) / denom);
elseif (s = skt in player.stats[1])
denom = (player.stats_current[2][s] + 0.1) * dilute;
player.stats[2][s] = player.stats[2][s] + ((boost * tweak) / denom);
player.stats_current[2][s] = player.stats_current[2][s] + ((boost * tweak) / denom);
endif
endfor
else
player.stats[2][4] = player.stats[2][4] - (sqrt(cost) * 0.025);
player.stats_current[2][4] = player.stats_current[2][4] - (sqrt(cost) * 0.1);
adjlist = $edu_stds.(tostr(player.stats[1][stat], "_adjust"));
if (la = player.race in $list_utils:slice(adjlist))
cost = adjlist[la][2] * cost;
endif
player.stats[2][stat] = player.stats[2][stat] + (cost * 0.1);
player.stats_current[2][stat] = player.stats_current[2][stat] + (cost * 0.1);
endif

enterfunc

Spec this none thisFlags rxdOwner #2Definer #129

Referenced by

none

Source

"WIZ PERMS...need to be able alter props on this room and player.";
pass(@args);
object = args[1];
suspend(2);
"Test for qualifications and collect money.";
if (player != object)
return;
endif
if (this.student)
return object:tell("The class is already in progress. Come back later.");
endif
if (this.level > 8)
this.level = 8;
endif
if (!this.skill)
"general intelligence";
under = (($edu_stds.intelligence[1] + tofloat(this.level)) > object.stats_current[2][3]) ? 1 | 0;
over = (($edu_stds.intelligence[2] + tofloat(this.level)) < object.stats_current[2][3]) ? 1 | 0;
elseif (si = this.skill in player.stats[1])
"a stat";
under = (($edu_stds.(this.skill)[1] + tofloat(this.level)) > object.stats_current[2][si]) ? 1 | 0;
over = (($edu_stds.(this.skill)[2] + tofloat(this.level)) < object.stats_current[2][si]) ? 1 | 0;
elseif ((this.skill[$] == "~") && valid(lang = this:match_lang(this.skill)))
"a language";
if (!(lin = lang in object.languages[1]))
under = ((this.level > 1) || ($math_utils:round(object.skills[2]["language" in object.skills[1]]) < (length(object.languages[1]) - 2))) ? 1 | 0;
under && object:tell("(((Language skill too low to learn additional languages)))");
else
under = (object.languages[2][lin] < ((tofloat(this.level) - 0.01) / 4.0)) ? 1 | 0;
under && object:tell("(((", lang.lang_name, " ability too low for this class)))");
endif
if (!under)
over = (object.languages[2][lin] > ((tofloat(this.level) / 4.0) + 0.24)) ? 1 | 0;
endif
else
"a skill";
level = (this.level + 1) / 2;
over = (object.skills[2][this.skill in object.skills[1]] >= (tofloat(this.level) / 2.0)) ? 1 | 0;
under = (object.skills[2][this.skill in object.skills[1]] < ((tofloat(this.level) / 2.0) - 0.5)) ? 1 | 0;
if (!under)
for n in [1..4]
under = ($edu_stds.(this.skill)[level][n] > object.stats_current[2][n]) ? 1 | 0;
if (under)
object:tell("(((", $rpgamer.stats[1][n], " too low)))");
break;
endif
endfor
else
object:tell("(((", this.skill, " too low)))");
endif
endif
if (under)
object:tell("This class seems to be too advanced for you.");
elseif ((((this.skill && (this.skill[$] == "~")) && valid(lang = this:match_lang(this.skill))) && (s = lang in object.languages[1])) && (object.languages[2][s] >= (tofloat(this.level) * this.skill_cutoff_mod)))
object:tell("Your ", lang.lang_name, " language skill exceeds the level of this class.");
elseif ((s = this.skill in object.skills[1]) && (object.skills[2][s] >= (tofloat(this.level) * this.skill_cutoff_mod)))
object:tell("Your ", object.skills[1][s], " skill exceeds the level of this class.");
elseif (over && (!s))
object:tell("Unfortunately, this class can teach you nothing new.");
elseif (object in this.alumni)
object:tell("There's much for you to learn here, but studying has taken its toll on your health. You need to rest a couple of hours before returning.");
else
this:payme();
endif
if (this.student)
this.trapped = {@this.trapped, object};
this:learn();
"Do the roleplay sequence.";
if (this.steps != $school.steps)
steps = this.steps;
else
skeel = (this.skill && (this.skill[$] == "~")) ? "language" | this.skill;
steps = (!skeel) ? this.steps | $edu_stds.(tostr(skeel, "_steps"));
steps = ((length(steps) == 1) && (steps[1][1] == "*")) ? $edu_stds.(steps[1][2..$]) | steps;
endif
skeel = (this.skill && (this.skill[$] == "~")) ? tostr(this.skill[1..$ - 1], " language") | this.skill;
skeel = skeel ? skeel | "subject";
for line in (steps)
suspend(10);
object:tell($string_utils:substitute(line, {{"%<skill>", skeel}}));
endfor
"unlock the door.";
this.trapped = setremove(this.trapped, object);
this.student = 0;
endif

payme

Spec this none thisFlags rxdOwner #2Definer #129

Referenced by

• #129:enterfunc line 63: this:payme

Source

"This rate formula assumes a gold piece is worth about a dollar. Increase the last number of the next line if inflation gets out of hand.";
skmod = (this.skill in player.stats[1]) ? $edu_stds.(this.skill)[3] | `$edu_stds.(this.skill)[5] ! ANY => $edu_stds.intelligence[3]';
rate = $money_utils:_from_to("gold", this.currency, $edu_stds.gold_price_basis) * skmod;
stat = (si = this.skill in player.stats[1]) ? si | 3;
price = (tofloat(this.level + 1) * rate) * (player.stats_current[2][stat] / 10.0);
player:tell("It will cost ", floatstr(price, 2), " ", this.currency, " to train here.");
if (!$command_utils:yes_or_no("Do you wish to proceed?"))
return player:tell("You are free to leave.");
endif
if (!$money_utils:_has_currency(this.currency))
return player:tell("You don't have any ", this.currency, ".");
endif
left = player:_rem_money(this.currency, tofloat(price));
if (left != 0)
return player:tell("You don't have enough ", this.currency, ".");
endif
$you:say_action("%N %<pays> %p fee and %<waits> for instruction.");
this.student = 1;
this.cash = this.cash + tofloat(price);

o*ut exit leave

Spec none none noneFlags rdOwner #2Definer #129

Referenced by

none

Source

if (player in this.trapped)
player:tell("\"Relax...there's more to learn.\"");
else
this:here_huh(verb, args);
endif

withdraw collect

Spec any none noneFlags rdOwner #2Definer #129

Referenced by

none

Source

if ((player in this.trustees) && (dobjstr in {"cash", "money"}))
player:_add_money(this.currency, tofloat(this.cash));
player:tell("You receive ", tofloat(this.cash), " ", this.currency, " from the classroom depository.");
this.cash = 0.0;
else
player:tell("I don't understand that.");
endif

clear

Spec this none thisFlags rxdOwner #2Definer #129

Referenced by

none

Source

p = args[1];
this.alumni = setremove(this.alumni, p);

match_lang

Spec this none thisFlags rxdOwner #2Definer #129

Referenced by

• #129:learn line 19: this:match_lang
• #129:enterfunc line 23: this:match_lang
• #129:enterfunc line 54: this:match_lang
• #165:dr*op line 14: $school:match_lang
• #165:dr*op line 29: $school:match_lang

Source

langname = args[1][1..$ - 1];
targets = {};
for l in (children($lang))
targets = {@targets, {l, l.lang_name}};
endfor
if (x = langname in $list_utils:slice(targets, 2))
return targets[x][1];
else
return $failed_match;
endif