/*
* $Locker: $
* $Id: stat_adjustment.c,v 1.8 2003/03/25 19:46:47 presto Exp $
* $Log: stat_adjustment.c,v $
* Revision 1.8 2003/03/25 19:46:47 presto
* Forcibly released due to inactivity
*
* Revision 1.7 2002/02/10 18:46:14 pinkfish
* changes that turvity and tannah suggested.
* ./
*
* Revision 1.6 2000/05/09 07:51:51 pinkfish
* Make some minior changes to how the stat adjustments work.
*
* Revision 1.5 2000/05/08 07:47:56 pinkfish
* Fix up some stuff to do with a mess..
*
* Revision 1.4 2000/05/08 03:51:07 pinkfish
* Fix up a bunch of problems with starting/resrtarting of effects.
*
* Revision 1.3 2000/05/08 01:41:05 pinkfish
* Fix up some problems with yhow it does things.
*
* Revision 1.2 2000/05/07 23:32:17 pinkfish
* Fix up a few bits of the stat adjustment code.
*
* Revision 1.1 2000/02/17 01:29:15 pinkfish
* Initial revision
*
*
*/
/**
* This is the effect skelton docs. This effect
* has a classification of "mudlib.clothing.stat".
* <p>
* The argument to this effect should be a mapping with the set of
* stat adjustments for the item and the item doing the adjusting.
* ie: ({ ob, ([ "str" : 1, "dex" : -1 ]) })
* <p>
* If you add the effect with the same object twice, the new set of
* stat adjustments overrides the old ones.
* @classification mudlib.clothing.stat
* @see help::effects
* @author Pinkfish
*/
#include "path.h"
#include <effect.h>
class stat_class {
mapping current_adjustments;
object* obs;
mapping* adjs;
object me;
}
private string* _stats;
void create() {
_stats = ({ "str", "dex", "wis", "int", "con" });
} /* create() */
/** @ignore yes */
string query_classification() { return "mudlib.clothing.stat"; }
/**
* This method adjusts bonuses on the player based on the current
* set of stats and things.
* @param player the player to update the stats on
* @param arg
*/
void update_adjustments(object player, class stat_class arg) {
mapping stats;
mapping bing;
string stat;
int i;
int num;
if (sizeof(arg) == 4 && arg->me != player) {
arg->me = player;
arg->current_adjustments = ([ ]);
}
if (player == find_player("presto")) printf("UPDATE: %O\n", arg);
if (player == find_player("presto")) printf("UPDATE: %O\n", arg->obs);
for (i = 0; i < sizeof(arg->obs); i++) {
if (player == find_player("presto")) {
printf("%O, %d\n", arg->obs, i);
printf( "UPDATE: checkpoint 2: %O\n", arg->obs[i]);
}
if (!arg->obs[i]) {
arg->obs = arg->obs[0.. i -1] + arg->obs[i+1..];
arg->adjs = arg->adjs[0.. i -1] + arg->adjs[i+1..];
}
}
if (player == find_player("presto"))
tell_creator("presto", "checkpoint 3\n");
stats = ([ ]);
foreach (stat in _stats) {
num = 0;
for (i = 0; i < sizeof(arg->adjs); i++) {
bing = arg->adjs[i];
if (bing[stat] > 0) {
if (i > 0) {
num += bing[stat] / (i + 1);
} else {
num += bing[stat];
}
} else if (bing[stat] < 0) {
if (i > 1) {
num += bing[stat] * i;
} else {
num += bing[stat];
}
} else if (i > 0) {
num -= i;
}
}
/*
if (num > 0) {
num = num / sizeof(arg->adjs);
}
*/
stats[stat] = num;
}
if (player == find_player("presto"))
tell_creator("presto", "UPDATE: checkpoint 1\n");
foreach (stat in _stats) {
if (stats[stat] != arg->current_adjustments[stat]) {
call_other(player,
"adjust_bonus_" + stat,
stats[stat] - arg->current_adjustments[stat]);
arg->current_adjustments[stat] = stats[stat];
}
}
} /* update_adjustments() */
/** @ignore yes */
class stat_class beginning(object player, mixed arg, int id) {
class stat_class bing;
//log_file("STAT_EFFECT", "Added from %O\n", previous_object(-1));
bing = new(class stat_class);
bing->current_adjustments = ([ ]);
bing->obs = ({ arg[0] });
bing->adjs = ({ arg[1] });
bing->me = player;
if (player == find_player("presto")) printf("BEFORE: %O\n", bing);
update_adjustments(player, bing);
if (player == find_player("presto"))
tell_creator("presto", "BEGINNING: bing == %O, player == %s\n", bing, player->short());
return bing;
} /* begining() */
/** @ignore yes */
int query_indefinite() { return 1; }
/** @ignore yes */
class stat_class merge_effect( object player, class stat_class old_arg, mixed new_arg ) {
int i;
//log_file("STAT_EFFECT", "Merged from %O\n", previous_object(-1));
if (pointerp(old_arg)) {
player->submit_ee(0, 0, EE_REMOVE);
/*
call_out((: $1->delete_effect($2) :), player,
player->query_current_effect_enum());
*/
return old_arg;
}
i = member_array(new_arg[0], old_arg->obs);
if (i != -1) {
old_arg->adjs[i] = new_arg[1];
} else {
old_arg->obs += ({ new_arg[0] });
old_arg->adjs += ({ new_arg[1] });
}
update_adjustments(player, old_arg);
return old_arg;
} /* merge_effect() */
/** @ignore yes */
void restart( object player, class stat_class edible ) {
update_adjustments(player, edible);
} /* restart() */
/** @ignore yes */
void quiting( object player, class stat_class womble ) {
//womble->current_adjustments = ([ ]);
womble->obs = ({ });
womble->adjs = ({ });
update_adjustments(player, womble);
} /* restart() */
/** @ignore yes */
void end( object player, class stat_class bing ) {
bing->obs = ({ });
bing->adjs = ({ });
update_adjustments(player, bing);
} /* end() */
/**
* This method is called to remove the stat adjusts for the specified
* id.
* @param player the player to remove the adjustments
* @param ob the object to remove the stats
*/
void remove_stat_adjustment_ob(object player, object ob) {
class stat_class fluff;
int *ids;
int i;
ids = player->effects_matching(query_classification());
if (sizeof(ids)) {
fluff = player->arg_of(ids[0]);
for (i = 0; i < sizeof(fluff->obs); i++) {
if (fluff->obs[i] == ob) {
fluff->adjs = fluff->adjs[0..i-1] + fluff->adjs[i+1..];
fluff->obs = fluff->obs[0..i-1] + fluff->obs[i+1..];
}
}
if (!sizeof(fluff->obs)) {
player->delete_effect(ids[0]);
} else {
update_adjustments(player, fluff);
player->set_arg_of(ids[0], fluff);
}
}
} /* remove_stat_adjustment_ob() */
