faction #216

Parent #1Owner #29Flags read, fertileSource hellcore/hellcore.db

Aliases: faction

11 verbs · 27 properties · 0 children

Verbs

Properties

Ancestry

• #1 root

  • #216 faction

Ancestors (nearest first): #1 root

Children: none

Call graph

Source

which = args[1];
if (which == this)
return 10;
else
for x in (this.alignment)
if (x[1] == which)
return x[2];
endif
endfor
return 0;
endif

who = args[1];
if (!(who in this.members))
this.members = setadd(this.members, who);
endif
if (!(this in who.factions))
who.factions = setadd(who.factions, this);
endif

who = args[1];
if (who in this.members)
this.members = setremove(this.members, who);
endif
if (this in who.factions)
who.factions = setremove(who.factions, this);
endif

who = toobj(args[1]);
if (length(args) > 1)
amount = tofloat(args[2]);
endif
if (!is_a(who, $creature))
return E_INVARG;
endif
idx = who in $lu:slice(this.standings, 1);
if (idx == 0)
if (verb == "change_reputation")
this.standings = setadd(this.standings, {who, amount});
return amount;
endif
return 0.0;
else
if (verb == "change_reputation")
if ((amount > 0.0) && (this.standings[idx][2] >= tofloat(this.max_standing)))
who:tell($ansi.bold_on, "You already have the maximum reputation with ", this:dnamec(), ".", $ansi.bold_off);
return;
endif
this.standings[idx][2] = this.standings[idx][2] + amount;
color = $ansi.green + $ansi.bold_on;
if (amount < 0.0)
color = $ansi.red + $ansi.bold_on;
endif
who:tell((((((color + this:dnamec()) + " reputation: ") + tostr(amount)) + "/") + tostr(this.standings[idx][2])) + $ansi.reset);
endif
return this.standings[idx][2];
endif

if (length(args) > 0)
who = args[1];
idx = who in $lu:slice(this.standings, 1);
if (idx == 0)
return tofloat(idx);
endif
return this.standings[idx][2];
endif
data = this.standings;
order = $Lu:slice(data, 2);
data = $lu:sort(data, order);
order = {};
for a in (data)
order = {@order, parent(a[1])};
endfor
data = $lu:sort(data, order);
prev_parent = parent(data[1][1]);
player:tell((($ansi.bold_on + $ansi.yellow) + "--------------------------") + $ansi.reset);
for a in (data)
if (parent(a[1]) != prev_parent)
player:tell((($ansi.bold_on + $ansi.yellow) + "--------------------------") + $ansi.reset);
endif
player:tell($su:left($su:nn(a[1]), 30), " ", $su:right(tostr(tofloat(a[2])), 7));
prev_parent = parent(a[1]);
yield;
endfor

if ((time() - this.last_decay_time) > this.decay_interval)
this.last_decay_time = time();
count = 1;
for a in (this.standings)
yield;
if (tofloat(a[2]) < 0.0)
if (abs(tofloat(a[2])) < this.negative_rep_decay)
this.standings[count][2] = 0.0;
else
this.standings[count][2] = tofloat(this.standings[count][2]) + this.negative_rep_decay;
endif
endif
if (tofloat(a[2]) > 0.0)
if (random(100) > this.positive_rep_decay_chance)
if (abs(tofloat(a[2])) < this.positive_rep_decay)
this.standings[count][2] = 0.0;
else
this.standings[count][2] = tofloat(this.standings[count][2]) + this.positive_rep_decay;
endif
endif
endif
count = count + 1;
yield;
endfor
endif

tag = $su:right(tostr(this.positive_rep_decay), -5);
tag = ((tag + ", ") + $su:right(tostr(this.positive_rep_decay_chance), -5)) + "%";
tag = (tag + ", ") + $su:right(tostr(this.negative_rep_decay), -5);
tag = ((tag + ", ") + $su:right(tostr(this.decay_interval / 3600), -3)) + "h";
tag = (tag + ", ") + $su:right(tostr(this.max_standing), -8);
return $su:right(tag, 30);

"Copied from Cybus Technology (#547474):add_rep_item by Hawgpadre (#538008) Fri Feb 11 15:47:45 2011 CST";
what = args[1];
if (valid(what))
this.reputation_items = setadd(this.reputation_items, what);
endif

"Copied from Cybus Technology (#547474):add_rep_reward by Hawgpadre (#538008) Fri Feb 11 15:47:45 2011 CST";
what = args[1];
this.reputation_rewards = setadd(this.reputation_rewards, what);

"Copied from Cybus Technology (#547474):set_max_standing by Hawgpadre (#538008) Fri Feb 11 15:47:45 2011 CST";
max_standing = toint(args[1]);
this.max_standing = max_standing;

"Copied from Cybus Technology (#547474):set_rep_decay by Hawgpadre (#538008) Fri Feb 11 15:47:45 2011 CST";
this.negative_rep_decay = tofloat(args[1]);
this.positive_rep_decay = tofloat(args[2]);
this.decay_interval = toint(args[3]);
this.positive_rep_decay_chance = toint(args[4]);