Generic Temple #133

worship pray

Spec any any anyFlags rdOwner #36Definer #133

Referenced by

none

Source

if (!this.is_temple)
return $you:say_action(tostr("%N %<says> a quick prayer."));
elseif (dobjstr || iobjstr)
if ((g = iobjstr in this.gods) || (g = dobjstr in this.gods))
god = this.gods[g];
elseif ((g = iobjstr in this.antigods) || (g = dobjstr in this.antigods))
player:tell("Your blasphemous desecration brings a curse upon you!");
player:tell("You feel your ", player.stats[1][this.stat_to_heal], " drain away!");
player.stats_current[2][this.stat_to_heal] = player.stats_current[2][this.stat_to_heal] * 0.75;
else
god = `this.gods[random($)] ! ANY => "the powers that be"';
endif
else
god = `this.gods[random($)] ! ANY => "the powers that be"';
endif
$you:say_action(tostr("%N %<says> a prayer to ", god, "."));
if (((heal = player.stats[2][this.stat_to_heal] - player.stats_current[2][this.stat_to_heal]) > 0.0) && (0.0 < (val = this:donor_tally(player))))
heal = ((x = val * 0.05) < heal) ? x | heal;
player.stats_current[2][this.stat_to_heal] = player.stats_current[2][this.stat_to_heal] + heal;
player:tell("You feel the grace of ", god, " restore your ", player.stats[1][this.stat_to_heal], ".");
this:add_donor(player, heal / -0.1);
endif

join

Spec any none noneFlags rdOwner #36Definer #133

Referenced by

none

Source

if (!(org = dobjstr in $list_utils:slice(this.orgs)))
player:tell("You may only join ", $string_utils:english_list(this.orgs), ".");
else
okay = 1;
for s in [1..4]
if (player.stats_current[2][s] < this.min_stats[s])
okay = 0;
break;
endif
endfor
"gender from .orgs[org][3] => 0=ANY, 1=Male, 2=Female 3=Male/Female";
if ((this.orgs[org][3] == 1) && (!(player.gender == "male")))
player:tell("A member of ", this.orgs[org][1], "must be male.");
okay = 0;
elseif ((this.orgs[org][3] == 2) && (!(player.gender == "female")))
player:tell("A member of ", this.orgs[org][1], "must be female.");
okay = 0;
elseif ((this.orgs[org][3] == 3) && (!(player.gender in {"male", "female"})))
player:tell("A member of ", this.orgs[org][1], "must be either female or male.");
okay = 0;
endif
if (okay)
player:tell("You join ", this.orgs[org][1], ".");
else
player:tell("You don't meet the minimum requirements for ", this.orgs[org][1], ".");
endif
endif

donate tithe offer

Spec any any anyFlags rdOwner #36Definer #133

Referenced by

none

Source

args = setremove(args, "to");
if (toint(args[1]) < 0)
return player:tell("You can't give a negative amount.");
elseif (toint(args[1]) && $money_utils:_has_currency(args[2]))
left = player:_rem_money(args[2], tofloat(args[1]));
if (left != 0)
return player:tell("You don't have that many ", args[2], ".");
endif
value = $money_utils:_from_to(args[2], "Gold", tofloat(args[1]));
this.gold = this.gold + value;
this:announce(player:title(), " donates some money to ", this:title(), ".");
player:tell("You offer ", args[1], " ", args[2], " to ", this:title(), ".");
this:add_donor(player, value);
elseif (valid(o = player:my_match_object(dobjstr)) && (o.value_base > 0.0))
value = o.value_base;
this:add_donor(player, value);
o:moveto(`$local.dead_object_container ! ANY => $nothing');
this.gold = this.gold + value;
$you:say_action(tostr("%N %<donates> ", o:title(), " to ", this:title(), "."));
else
player:tell("The temple can't use that.");
endif

add_donor

Spec this none thisFlags rxdOwner #36Definer #133

Referenced by

• #133:worship line 21: this:add_donor
• #133:donate line 13: this:add_donor
• #133:donate line 16: this:add_donor

Source

"USAGE: add_donor(donor, gold value)";
if (d = args[1] in $list_utils:slice(this.donors))
this.donors[d][2] = this.donors[d][2] + tofloat(args[2]);
this.donors[d][2] = (this.donors[d][2] > 0.0001) ? this.donors[d][2] | 0.0;
else
this.donors = {@this.donors, {args[1], tofloat(args[2])}};
endif

rem_donor

Spec this none thisFlags rxdOwner #36Definer #133

Referenced by

none

Source

"USAGE: rem_donor(donor)";
if (d = args[1] in $list_utils:slice(this.donors))
this.donors = setremove(this.donors, this.donors[d]);
endif

donor_tally

Spec this none thisFlags rxdOwner #36Definer #133

Referenced by

• #133:worship line 17: this:donor_tally

Source

"USAGE: donor_tally(donor) => amount donor has given recently";
if (d = args[1] in $list_utils:slice(this.donors))
return this.donors[d][2];
endif
return 0.0;

init_for_core

Spec this none thisFlags rxdOwner #2Definer #133

Referenced by

none

Source

if (caller_perms().wizard)
if (this == $temple)
this.gods = {};
this.antigods = {};
this.orgs = {};
this.min_stats = {2.0, 2.0, 8.5, 1.5};
this.stat_to_heal = 4;
this.donors = {};
this.gold = 0.0;
this.sanctuary = 1;
else
for p in (properties($temple))
if ((!p) in {"build_help", "help_msg"})
clear_property(this, p);
endif
endfor
endif
return pass(@args);
endif

help_msg

Spec this none thisFlags rxdOwner #2Definer #133

Referenced by

none

Source

msg = (this.is_temple && this.gods) ? {"Deities worshipped here:", "  " + $string_utils:english_list(this.gods), "", "Organizations to join:"} | {"Organizations to join:"};
for o in (this.orgs)
if (o[3] == 1)
blurb = "(male only)";
elseif (o[3] == 2)
blurb = "(female only)";
elseif (o[3] == 3)
blurb = "(male or female only)";
else
blurb = "";
endif
msg = {@msg, (((("  " + o[1]) + " -- ") + o[2]) + " ") + blurb};
endfor
return {@msg, "", @pass(@args)};