You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tdegames/kenolaba/EvalScheme.cpp

232 lines
5.5 KiB

/**
* EvalScheme
*
* Configuration options for a Evaluation Scheme.
* Evaluation Schemes are used for evalution of a Abalone board position
*
* (C) JW, 2000
*/
#include <kapplication.h>
#include <kconfig.h>
#include "EvalScheme.h"
// Default Values
static int defaultRingValue[] = { 45, 35, 25, 10, 0 };
static int defaultRingDiff[] = { 0, 10, 10, 8, 5 };
static int defaultStoneValue[]= { 0,-800,-1800,-3000,-4400,-6000 };
static int defaultMoveValue[Move::typeCount] = { 40,30,30, 15,14,13,
5,5,5, 2,2,2, 1 };
static int defaultInARowValue[InARowCounter::inARowCount]= { 2, 5, 4, 3 };
/**
* Constructor: Set Default values
*/
EvalScheme::EvalScheme(TQString n)
{
_name = n;
setDefaults();
}
/**
* Copy Constructor
*/
EvalScheme::EvalScheme(EvalScheme& s)
{
_name = s._name;
for(int i=0;i<6;i++)
_stoneValue[i] = s._stoneValue[i];
for(int i=0;i<Move::typeCount;i++)
_moveValue[i] = s._moveValue[i];
for(int i=0;i<InARowCounter::inARowCount;i++)
_inARowValue[i] = s._inARowValue[i];
for(int i=0;i<5;i++)
_ringValue[i] = s._ringValue[i];
for(int i=0;i<5;i++)
_ringDiff[i] = s._ringDiff[i];
}
void EvalScheme::setDefaults()
{
for(int i=0;i<6;i++)
_stoneValue[i] = defaultStoneValue[i];
for(int i=0;i<Move::typeCount;i++)
_moveValue[i] = defaultMoveValue[i];
for(int i=0;i<InARowCounter::inARowCount;i++)
_inARowValue[i] = defaultInARowValue[i];
for(int i=0;i<5;i++)
_ringValue[i] = defaultRingValue[i];
for(int i=0;i<5;i++)
_ringDiff[i] = defaultRingDiff[i];
}
void EvalScheme::read(KConfig *config)
{
TQString confSection = TQString("%1 Evaluation Scheme").tqarg(_name);
config->setGroup(confSection);
TQStringList list;
TQString tmp;
list = config->readListEntry("StoneValues");
if (list.count()>0) {
_stoneValue[0] = 0;
for(int i=1;i<6;i++)
_stoneValue[i] = list[i-1].toInt();
}
list = config->readListEntry("MoveValues");
if (list.count()>0) {
for(int i=0;i<Move::typeCount;i++)
_moveValue[i] = list[i].toInt();
}
list = config->readListEntry("InARowValues");
if (list.count()>0) {
for(int i=0;i<InARowCounter::inARowCount;i++)
_inARowValue[i] = list[i].toInt();
}
list = config->readListEntry("RingValues");
if (list.count()>0) {
for(int i=0;i<5;i++)
_ringValue[i] = list[i].toInt();
}
list = config->readListEntry("RingDiffs");
if (list.count()>0) {
for(int i=0;i<5;i++)
_ringDiff[i] = list[i].toInt();
}
}
void EvalScheme::save(KConfig* config)
{
TQString confSection = TQString("%1 Evaluation Scheme").tqarg(_name);
config->setGroup(confSection);
TQString entry;
entry.sprintf("%d,%d,%d,%d,%d", _stoneValue[1], _stoneValue[2],
_stoneValue[3], _stoneValue[4], _stoneValue[5]);
config->writeEntry("StoneValues", entry);
entry.sprintf("%d", _moveValue[0]);
for(int i=1;i<Move::typeCount;i++)
entry += TQString(", %1").tqarg( _moveValue[i] );
config->writeEntry("MoveValues", entry);
entry.sprintf("%d", _inARowValue[0]);
for(int i=1;i<InARowCounter::inARowCount;i++)
entry += TQString(", %1").tqarg( _inARowValue[i] );
config->writeEntry("InARowValues", entry);
entry.sprintf("%d,%d,%d,%d,%d", _ringValue[0], _ringValue[1],
_ringValue[2], _ringValue[3], _ringValue[4]);
config->writeEntry("RingValues", entry);
entry.sprintf("%d,%d,%d,%d,%d", _ringDiff[0], _ringDiff[1],
_ringDiff[2], _ringDiff[3], _ringDiff[4]);
config->writeEntry("RingDiffs", entry);
}
void EvalScheme::setRingValue(int ring, int value)
{
if (ring >=0 && ring <5)
_ringValue[ring] = value;
}
void EvalScheme::setRingDiff(int ring, int value)
{
if (ring >=1 && ring <5)
_ringDiff[ring] = value;
}
void EvalScheme::setStoneValue(int stoneDiff, int value)
{
if (stoneDiff>0 && stoneDiff<6)
_stoneValue[stoneDiff] = value;
}
void EvalScheme::setMoveValue(int type, int value)
{
if (type>=0 && type<Move::typeCount)
_moveValue[type] = value;
}
void EvalScheme::setInARowValue(int stones, int value)
{
if (stones>=0 && stones<InARowCounter::inARowCount)
_inARowValue[stones] = value;
}
/**
* Create a EvalScheme out of a String of format
*
* <SchemeName>=<v1>,<v2>,<v3>,<v4>,... (34 values)
*
*/
EvalScheme* EvalScheme::create(TQString scheme)
{
int pos = scheme.tqfind('=');
if (pos<0) return 0;
EvalScheme* evalScheme = new EvalScheme( scheme.left(pos) );
evalScheme->setDefaults();
TQStringList list = TQStringList::split( TQString(","), scheme.right(pos+1) );
int i=0;
while(i<list.count()) {
if (i<5)
evalScheme->_stoneValue[i+1] = list[i].toInt();
else if (i<10)
evalScheme->_ringValue[i-5] = list[i].toInt();
else if (i<15)
evalScheme->_ringDiff[i-10] = list[i].toInt();
else if (i<15+Move::typeCount)
evalScheme->_moveValue[i-15] = list[i].toInt();
else if (i<15+Move::typeCount+InARowCounter::inARowCount)
evalScheme->_inARowValue[i-15-Move::typeCount] = list[i].toInt();
i++;
}
return evalScheme;
}
TQString EvalScheme::ascii()
{
TQString res;
int i;
res.sprintf("%s=%d", _name.ascii(), _stoneValue[1]);
for(i=1;i<6;i++)
res += TQString(",%1").tqarg( _stoneValue[i] );
for(i=0;i<Move::typeCount;i++)
res += TQString(",%1").tqarg( _moveValue[i] );
for(i=0;i<InARowCounter::inARowCount;i++)
res += TQString(",%1").tqarg( _inARowValue[i] );
for(i=0;i<5;i++)
res += TQString(",%1").tqarg( _ringValue[i] );
for(i=0;i<5;i++)
res += TQString(",%1").tqarg( _ringDiff[i] );
return res;
}