#include <lib.h>

int collect_moduli(int mod, int *range){
    int ret, neg, big, little, i;
    ret = 0;
    if(range[0] > range[1]){
	neg = 1;
	big = range[0];
	little = range[1];
    }
    else {
	big = range[1];
	little = range[0];
    }

    for(i = big; i > little; i--){
	if(!(i  % mod)) ret++;
    }

    if(neg){
	ret = ret - (ret*2);
    }
    return ret;
}


varargs int ChangeLevel(int i){
    mapping skills, stats, moduli = ([]);
    int current_level, desired_level;
    object subject = this_object();

    current_level = subject->GetLevel();

    if(!i || i < 1) 
	desired_level = current_level + 1;
    else desired_level = i;

    for(i = 1; i < 5; i++){
	moduli[i] = collect_moduli(i, ({ current_level, desired_level }) );
    }

    //tc("moduli: "+identify(moduli));
    skills = subject->GetSkillsMap();
    stats = subject->GetStatsMap();

    foreach(mixed key, mixed val in skills){
	//tc(key+": "+identify(skills[key]));
	if(skills[key]["class"] > 3) skills[key]["class"] = 4;
	subject->SetSkill(key, 
	  skills[key]["level"] + moduli[skills[key]["class"]],
	  skills[key]["class"]);
	//tc("current: "+identify(subject->GetSkill(key)),"blue");
    }

    foreach(mixed key, mixed val in stats){
	//tc(key+": "+identify(stats[key]));
	if(stats[key]["class"] > 3) stats[key]["class"] = 4;
	subject->SetStat(key,
	  stats[key]["level"] + moduli[stats[key]["class"]],
	  stats[key]["class"]);
	//tc("current: "+identify(subject->GetStat(key)),"green");
    }

    subject->SetLevel(desired_level);

    return 1;
}