skills.cpp

// START A3HEADER
//
// This source file is part of the Atlantis PBM game program.
// Copyright (C) 1995-1999 Geoff Dunbar
//
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program, in the file license.txt. If not, write
// to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
// Boston, MA 02111-1307, USA.
//
// See the Atlantis Project web page for details:
// http://www.prankster.com/project
//
// END A3HEADER

#include <stdlib.h>

#include "game.h"
#include "skills.h"
#include "items.h"
#include "gamedata.h"

RangeType *FindRange(char const *range)
{
	if (range == NULL) return NULL;
	for (int i = 0; i < NUMRANGES; i++) {
		if (RangeDefs[i].key == NULL) continue;
		if (AString(range) == RangeDefs[i].key)
			return &RangeDefs[i];
	}
	return NULL;
}

SpecialType *FindSpecial(char const *key)
{
	if (key == NULL) return NULL;
	for (int i = 0; i < NUMSPECIALS; i++) {
		if (SpecialDefs[i].key == NULL) continue;
		if (AString(key) == SpecialDefs[i].key)
			return &SpecialDefs[i];
	}
	return NULL;
}

EffectType *FindEffect(char const *effect)
{
	if (effect == NULL) return NULL;
	for (int i = 0; i < NUMEFFECTS; i++) {
		if (EffectDefs[i].name == NULL) continue;
		if (AString(effect) == EffectDefs[i].name)
			return &EffectDefs[i];
	}
	return NULL;
}

AttribModType *FindAttrib(char const *attrib)
{
	if (attrib == NULL) return NULL;
	for (int i = 0; i < NUMATTRIBMODS; i++) {
		if (AttribDefs[i].key == NULL) continue;
		if (AString(attrib) == AttribDefs[i].key)
			return &AttribDefs[i];
	}
	return NULL;
}

SkillType *FindSkill(char const *skname)
{
	if (skname == NULL) return NULL;
	for (int i = 0; i < NSKILLS; i++) {
		if (SkillDefs[i].abbr == NULL) continue;
		if (AString(skname) == SkillDefs[i].abbr)
			return &SkillDefs[i];
	}
	return NULL;
}

int LookupSkill(AString *token)
{
	for (int i=0; i<NSKILLS; i++) {
		if (*token == SkillDefs[i].abbr) return i;
	}
	return -1;
}

int ParseSkill(AString *token)
{
	int r = -1;
	for (int i=0; i<NSKILLS; i++) {
		if ((*token == SkillDefs[i].name) || (*token == SkillDefs[i].abbr)) {
			r = i;
			break;
		}
	}
	if (r != -1) {
		if (SkillDefs[r].flags & SkillType::DISABLED) r = -1;
	}
	return r;
}

AString SkillStrs(SkillType *pS)
{
	AString temp = AString(pS->name) + " [" + pS->abbr + "]";
	return temp;
}

AString SkillStrs(int i)
{
	AString temp = AString(SkillDefs[i].name) + " [" +
		SkillDefs[i].abbr + "]";
	return temp;
}

int SkillCost(int skill)
{
	return SkillDefs[skill].cost;
}

int SkillMax(char const *skill, int race)
{
	ManType *mt = FindRace(ItemDefs[race].abr);

	if (mt == NULL) return 0;

	SkillType *pS = FindSkill(skill);
	if (!Globals->MAGE_NONLEADERS) {
		if (pS && (pS->flags & SkillType::MAGIC)) {
			if (!(ItemDefs[race].type & IT_LEADER)) return(0);
		}
	}

	AString skname = pS->abbr;
	AString mani = "MANI";
	for (unsigned int c=0; c < sizeof(mt->skills)/sizeof(mt->skills[0]); c++) {
		if (skname == mt->skills[c])
			return mt->speciallevel;
		// Allow MANI to act as a placeholder for all magical skills
		if ((pS->flags & SkillType::MAGIC) && mani == mt->skills[c])
			return mt->speciallevel;
	}
	return mt->defaultlevel;
}

int GetLevelByDays(int dayspermen)
{
	int z = 30;
	int i = 0;
	while (dayspermen >= z) {
		i++;
		dayspermen -= z;
		z += 30;
	}
	return i;
}

int GetDaysByLevel(int level)
{
	int days = 0;

	for (;level>0; level--) {
		days += level * 30;
	}

	return days;
}

/* Returns the adjusted study rate,
 */
int StudyRateAdjustment(int days, int exp)
{
	int rate = 30;
	if (!Globals->REQUIRED_EXPERIENCE) return rate;
	int slope = 62;
	int inc = Globals->REQUIRED_EXPERIENCE * 10;
	long int cdays = inc;
	int prevd = 0;
	int diff = days - exp;
	if (diff <= 0) {
		rate += abs(diff) / 3;
	} else 	{
		int level = 0;
		long int ctr = 0;
		while((((cdays + ctr) / slope + prevd) <= diff)
			&& (rate > 0)) {
			rate -= 1;
			if (rate <= 5) {
				prevd += cdays / slope;
				ctr += cdays;
				cdays = 0;
				slope = (slope * 2)/3;
			}
			cdays += inc;
			int clevel = GetLevelByDays(cdays/slope);
			if ((clevel > level)	&& (rate > 5)) {
				level = clevel;
				switch(level) {
					case 1: slope = 80;	
						prevd += cdays /slope;
						ctr += cdays;
						cdays = 0;
						break;
					case 2: slope = 125;
						prevd += cdays / slope;
						ctr += cdays;
						cdays = 0;
						break;
				}	
			}
		}
	}
	return rate;
}

ShowSkill::ShowSkill(int s, int l)
{
	skill = s;
	level = l;
}

void Skill::Readin(Ainfile *f)
{
	AString *temp, *token;

	temp = f->GetStr();
	token = temp->gettoken();
	type = LookupSkill(token);
	delete token;

	token = temp->gettoken();
	days = token->value();
	delete token;
	
	exp = 0;
	if (Globals->REQUIRED_EXPERIENCE) {
		token = temp->gettoken();
		exp = token->value();
		delete token;
	}
	
	delete temp;
}

void Skill::Writeout(Aoutfile *f)
{
	AString temp;

	if (type != -1) {
		if (Globals->REQUIRED_EXPERIENCE) {
			temp = AString(SkillDefs[type].abbr) + " " + days + " " + exp;
		} else {
			temp = AString(SkillDefs[type].abbr) + " " + days;
		}
	} else {
		if (Globals->REQUIRED_EXPERIENCE) {
			temp = AString("NO_SKILL 0 0");
		} else {
			temp = AString("NO_SKILL 0");
		}
	}
	f->PutStr(temp);
}

Skill *Skill::Split(int total, int leave)
{
	Skill *temp = new Skill;
	temp->type = type;
	temp->days = (days * leave) / total;
	days = days - temp->days;
	temp->exp = (exp * leave) / total;
	exp = exp - temp->exp;
	return temp;
}

int SkillList::GetDays(int skill)
{
	forlist(this) {
		Skill *s = (Skill *) elem;
		if (s->type == skill) {
			return s->days;
		}
	}
	return 0;
}

void SkillList::SetDays(int skill, int days)
{
	forlist(this) {
		Skill *s = (Skill *) elem;
		if (s->type == skill) {
			if ((days == 0) && (s->exp <= 0)) {
				Remove(s);
				delete s;
				return;
			} else {
				s->days = days;
				return;
			}
		}
	}
	if (days == 0) return;
	Skill *s = new Skill;
	s->type = skill;
	s->days = days;
	s->exp = 0;
	Add(s);
}

int SkillList::GetExp(int skill)
{
	forlist(this) {
		Skill *s = (Skill *) elem;
		if (s->type == skill) {
			return s->exp;
		}
	}
	return 0;
}

void SkillList::SetExp(int skill, int exp)
{
	forlist(this) {
		Skill *s = (Skill *) elem;
		if (s->type == skill) {
			s->exp = exp;
			return;
		}
	}
	if (exp == 0) return;
	Skill *s = new Skill;
	s->type = skill;
	s->days = 0;
	s->exp = exp;
	Add(s);
}

SkillList *SkillList::Split(int total, int leave)
{
	SkillList *ret = new SkillList;
	forlist (this) {
		Skill *s = (Skill *) elem;
		Skill *n = s->Split(total, leave);
		if ((s->days == 0) && (s->exp == 0)) {
			Remove(s);
			delete s;
		}
		ret->Add(n);
	}
	return ret;
}

void SkillList::Combine(SkillList *b)
{
	forlist(b) {
		Skill *s = (Skill *) elem;
		SetDays(s->type, GetDays(s->type) + s->days);
		SetExp(s->type, GetExp(s->type) + s->exp);
	}
}

/* Returns the rate of study (days/month and man)
 * for studying a skill
 */
int SkillList::GetStudyRate(int skill, int nummen)
{
	int days = 0;
	int exp = 0;
	if (nummen < 1) return 0;
	forlist(this) {
		Skill *s = (Skill *) elem;
		if (s->type == skill) {
			days = s->days / nummen;
			if (Globals->REQUIRED_EXPERIENCE)
				exp = s->exp / nummen;
		}
	}
	
	int rate = StudyRateAdjustment(days, exp);
	
	/*
	 * if (nummen == 10) {
		AString temp = "Studying ";
		temp += SkillDefs[skill].abbr;
		temp += " with ";
		temp += exp + "XP at a rate of ";
		temp += rate + ".";
		Awrite(temp);
	}
	*/
	return rate;
}

AString SkillList::Report(int nummen)
{
	AString temp;
	if (!Num()) {
		temp += "none";
		return temp;
	}
	int i = 0;
	int displayed = 0;
	forlist (this) {
		Skill *s = (Skill *) elem;
		if (s->days == 0) continue;
		displayed++;
		if (i) {
			temp += ", ";
		} else {
			i=1;
		}
		temp += SkillStrs(s->type);
		temp += AString(" ") + GetLevelByDays(s->days/nummen) +
			AString(" (") + AString(s->days/nummen);
		if (Globals->REQUIRED_EXPERIENCE) {
			temp += AString("+") + AString(GetStudyRate(s->type, nummen));
		}
		temp += AString(")");
	}
	if (!displayed) temp += "none";
	return temp;
}

void SkillList::Readin(Ainfile *f)
{
	int n = f->GetInt();
	for (int i=0; i<n; i++) {
		Skill *s = new Skill;
		s->Readin(f);
		if ((s->days == 0) && (s->exp==0)) delete s;
		else Add(s);
	}
}

void SkillList::Writeout(Aoutfile *f)
{
	f->PutInt(Num());
	forlist(this) ((Skill *) elem)->Writeout(f);
}