ref: bea7b7bf8ccbc2bc41906517079e76fcfb31cb5a
dir: /code/botlib/be_ai_weight.c/
/*
===========================================================================
Copyright (C) 1999-2005 Id Software, Inc.
This file is part of Quake III Arena source code.
Quake III Arena source code 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.
Quake III Arena source code 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 Foobar; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
===========================================================================
*/
/*****************************************************************************
* name: be_ai_weight.c
*
* desc: fuzzy logic
*
* $Archive: /MissionPack/code/botlib/be_ai_weight.c $
*
*****************************************************************************/
#include "../game/q_shared.h"
#include "l_memory.h"
#include "l_log.h"
#include "l_utils.h"
#include "l_script.h"
#include "l_precomp.h"
#include "l_struct.h"
#include "l_libvar.h"
#include "aasfile.h"
#include "../game/botlib.h"
#include "../game/be_aas.h"
#include "be_aas_funcs.h"
#include "be_interface.h"
#include "be_ai_weight.h"
#define MAX_INVENTORYVALUE 999999
#define EVALUATERECURSIVELY
#define MAX_WEIGHT_FILES 128
weightconfig_t *weightFileList[MAX_WEIGHT_FILES];
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
int ReadValue(source_t *source, float *value)
{
token_t token;
if (!PC_ExpectAnyToken(source, &token)) return qfalse;
if (!strcmp(token.string, "-"))
{
SourceWarning(source, "negative value set to zero\n");
if (!PC_ExpectTokenType(source, TT_NUMBER, 0, &token)) return qfalse;
} //end if
if (token.type != TT_NUMBER)
{
SourceError(source, "invalid return value %s\n", token.string);
return qfalse;
} //end if
*value = token.floatvalue;
return qtrue;
} //end of the function ReadValue
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
int ReadFuzzyWeight(source_t *source, fuzzyseperator_t *fs)
{
if (PC_CheckTokenString(source, "balance"))
{
fs->type = WT_BALANCE;
if (!PC_ExpectTokenString(source, "(")) return qfalse;
if (!ReadValue(source, &fs->weight)) return qfalse;
if (!PC_ExpectTokenString(source, ",")) return qfalse;
if (!ReadValue(source, &fs->minweight)) return qfalse;
if (!PC_ExpectTokenString(source, ",")) return qfalse;
if (!ReadValue(source, &fs->maxweight)) return qfalse;
if (!PC_ExpectTokenString(source, ")")) return qfalse;
} //end if
else
{
fs->type = 0;
if (!ReadValue(source, &fs->weight)) return qfalse;
fs->minweight = fs->weight;
fs->maxweight = fs->weight;
} //end if
if (!PC_ExpectTokenString(source, ";")) return qfalse;
return qtrue;
} //end of the function ReadFuzzyWeight
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
void FreeFuzzySeperators_r(fuzzyseperator_t *fs)
{
if (!fs) return;
if (fs->child) FreeFuzzySeperators_r(fs->child);
if (fs->next) FreeFuzzySeperators_r(fs->next);
FreeMemory(fs);
} //end of the function FreeFuzzySeperators
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
void FreeWeightConfig2(weightconfig_t *config)
{
int i;
for (i = 0; i < config->numweights; i++)
{
FreeFuzzySeperators_r(config->weights[i].firstseperator);
if (config->weights[i].name) FreeMemory(config->weights[i].name);
} //end for
FreeMemory(config);
} //end of the function FreeWeightConfig2
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
void FreeWeightConfig(weightconfig_t *config)
{
if (!LibVarGetValue("bot_reloadcharacters")) return;
FreeWeightConfig2(config);
} //end of the function FreeWeightConfig
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
fuzzyseperator_t *ReadFuzzySeperators_r(source_t *source)
{
int newindent, index, def, founddefault;
token_t token;
fuzzyseperator_t *fs, *lastfs, *firstfs;
founddefault = qfalse;
firstfs = NULL;
lastfs = NULL;
if (!PC_ExpectTokenString(source, "(")) return NULL;
if (!PC_ExpectTokenType(source, TT_NUMBER, TT_INTEGER, &token)) return NULL;
index = token.intvalue;
if (!PC_ExpectTokenString(source, ")")) return NULL;
if (!PC_ExpectTokenString(source, "{")) return NULL;
if (!PC_ExpectAnyToken(source, &token)) return NULL;
do
{
def = !strcmp(token.string, "default");
if (def || !strcmp(token.string, "case"))
{
fs = (fuzzyseperator_t *) GetClearedMemory(sizeof(fuzzyseperator_t));
fs->index = index;
if (lastfs) lastfs->next = fs;
else firstfs = fs;
lastfs = fs;
if (def)
{
if (founddefault)
{
SourceError(source, "switch already has a default\n");
FreeFuzzySeperators_r(firstfs);
return NULL;
} //end if
fs->value = MAX_INVENTORYVALUE;
founddefault = qtrue;
} //end if
else
{
if (!PC_ExpectTokenType(source, TT_NUMBER, TT_INTEGER, &token))
{
FreeFuzzySeperators_r(firstfs);
return NULL;
} //end if
fs->value = token.intvalue;
} //end else
if (!PC_ExpectTokenString(source, ":") || !PC_ExpectAnyToken(source, &token))
{
FreeFuzzySeperators_r(firstfs);
return NULL;
} //end if
newindent = qfalse;
if (!strcmp(token.string, "{"))
{
newindent = qtrue;
if (!PC_ExpectAnyToken(source, &token))
{
FreeFuzzySeperators_r(firstfs);
return NULL;
} //end if
} //end if
if (!strcmp(token.string, "return"))
{
if (!ReadFuzzyWeight(source, fs))
{
FreeFuzzySeperators_r(firstfs);
return NULL;
} //end if
} //end if
else if (!strcmp(token.string, "switch"))
{
fs->child = ReadFuzzySeperators_r(source);
if (!fs->child)
{
FreeFuzzySeperators_r(firstfs);
return NULL;
} //end if
} //end else if
else
{
SourceError(source, "invalid name %s\n", token.string);
return NULL;
} //end else
if (newindent)
{
if (!PC_ExpectTokenString(source, "}"))
{
FreeFuzzySeperators_r(firstfs);
return NULL;
} //end if
} //end if
} //end if
else
{
FreeFuzzySeperators_r(firstfs);
SourceError(source, "invalid name %s\n", token.string);
return NULL;
} //end else
if (!PC_ExpectAnyToken(source, &token))
{
FreeFuzzySeperators_r(firstfs);
return NULL;
} //end if
} while(strcmp(token.string, "}"));
//
if (!founddefault)
{
SourceWarning(source, "switch without default\n");
fs = (fuzzyseperator_t *) GetClearedMemory(sizeof(fuzzyseperator_t));
fs->index = index;
fs->value = MAX_INVENTORYVALUE;
fs->weight = 0;
fs->next = NULL;
fs->child = NULL;
if (lastfs) lastfs->next = fs;
else firstfs = fs;
lastfs = fs;
} //end if
//
return firstfs;
} //end of the function ReadFuzzySeperators_r
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
weightconfig_t *ReadWeightConfig(char *filename)
{
int newindent, avail = 0, n;
token_t token;
source_t *source;
fuzzyseperator_t *fs;
weightconfig_t *config = NULL;
#ifdef DEBUG
int starttime;
starttime = Sys_MilliSeconds();
#endif //DEBUG
if (!LibVarGetValue("bot_reloadcharacters"))
{
avail = -1;
for( n = 0; n < MAX_WEIGHT_FILES; n++ )
{
config = weightFileList[n];
if( !config )
{
if( avail == -1 )
{
avail = n;
} //end if
continue;
} //end if
if( strcmp( filename, config->filename ) == 0 )
{
//botimport.Print( PRT_MESSAGE, "retained %s\n", filename );
return config;
} //end if
} //end for
if( avail == -1 )
{
botimport.Print( PRT_ERROR, "weightFileList was full trying to load %s\n", filename );
return NULL;
} //end if
} //end if
PC_SetBaseFolder(BOTFILESBASEFOLDER);
source = LoadSourceFile(filename);
if (!source)
{
botimport.Print(PRT_ERROR, "counldn't load %s\n", filename);
return NULL;
} //end if
//
config = (weightconfig_t *) GetClearedMemory(sizeof(weightconfig_t));
config->numweights = 0;
Q_strncpyz( config->filename, filename, sizeof(config->filename) );
//parse the item config file
while(PC_ReadToken(source, &token))
{
if (!strcmp(token.string, "weight"))
{
if (config->numweights >= MAX_WEIGHTS)
{
SourceWarning(source, "too many fuzzy weights\n");
break;
} //end if
if (!PC_ExpectTokenType(source, TT_STRING, 0, &token))
{
FreeWeightConfig(config);
FreeSource(source);
return NULL;
} //end if
StripDoubleQuotes(token.string);
config->weights[config->numweights].name = (char *) GetClearedMemory(strlen(token.string) + 1);
strcpy(config->weights[config->numweights].name, token.string);
if (!PC_ExpectAnyToken(source, &token))
{
FreeWeightConfig(config);
FreeSource(source);
return NULL;
} //end if
newindent = qfalse;
if (!strcmp(token.string, "{"))
{
newindent = qtrue;
if (!PC_ExpectAnyToken(source, &token))
{
FreeWeightConfig(config);
FreeSource(source);
return NULL;
} //end if
} //end if
if (!strcmp(token.string, "switch"))
{
fs = ReadFuzzySeperators_r(source);
if (!fs)
{
FreeWeightConfig(config);
FreeSource(source);
return NULL;
} //end if
config->weights[config->numweights].firstseperator = fs;
} //end if
else if (!strcmp(token.string, "return"))
{
fs = (fuzzyseperator_t *) GetClearedMemory(sizeof(fuzzyseperator_t));
fs->index = 0;
fs->value = MAX_INVENTORYVALUE;
fs->next = NULL;
fs->child = NULL;
if (!ReadFuzzyWeight(source, fs))
{
FreeMemory(fs);
FreeWeightConfig(config);
FreeSource(source);
return NULL;
} //end if
config->weights[config->numweights].firstseperator = fs;
} //end else if
else
{
SourceError(source, "invalid name %s\n", token.string);
FreeWeightConfig(config);
FreeSource(source);
return NULL;
} //end else
if (newindent)
{
if (!PC_ExpectTokenString(source, "}"))
{
FreeWeightConfig(config);
FreeSource(source);
return NULL;
} //end if
} //end if
config->numweights++;
} //end if
else
{
SourceError(source, "invalid name %s\n", token.string);
FreeWeightConfig(config);
FreeSource(source);
return NULL;
} //end else
} //end while
//free the source at the end of a pass
FreeSource(source);
//if the file was located in a pak file
botimport.Print(PRT_MESSAGE, "loaded %s\n", filename);
#ifdef DEBUG
if (bot_developer)
{
botimport.Print(PRT_MESSAGE, "weights loaded in %d msec\n", Sys_MilliSeconds() - starttime);
} //end if
#endif //DEBUG
//
if (!LibVarGetValue("bot_reloadcharacters"))
{
weightFileList[avail] = config;
} //end if
//
return config;
} //end of the function ReadWeightConfig
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
int FindFuzzyWeight(weightconfig_t *wc, char *name)
{
int i;
for (i = 0; i < wc->numweights; i++)
{
if (!strcmp(wc->weights[i].name, name))
{
return i;
} //end if
} //end if
return -1;
} //end of the function FindFuzzyWeight
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
float FuzzyWeight_r(int *inventory, fuzzyseperator_t *fs)
{
float scale, w1, w2;
if (inventory[fs->index] < fs->value)
{
if (fs->child) return FuzzyWeight_r(inventory, fs->child);
else return fs->weight;
} //end if
else if (fs->next)
{
if (inventory[fs->index] < fs->next->value)
{
//first weight
if (fs->child) w1 = FuzzyWeight_r(inventory, fs->child);
else w1 = fs->weight;
//second weight
if (fs->next->child) w2 = FuzzyWeight_r(inventory, fs->next->child);
else w2 = fs->next->weight;
//the scale factor
scale = (inventory[fs->index] - fs->value) / (fs->next->value - fs->value);
//scale between the two weights
return scale * w1 + (1 - scale) * w2;
} //end if
return FuzzyWeight_r(inventory, fs->next);
} //end else if
return fs->weight;
} //end of the function FuzzyWeight_r
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
float FuzzyWeightUndecided_r(int *inventory, fuzzyseperator_t *fs)
{
float scale, w1, w2;
if (inventory[fs->index] < fs->value)
{
if (fs->child) return FuzzyWeightUndecided_r(inventory, fs->child);
else return fs->minweight + qrandom() * (fs->maxweight - fs->minweight);
} //end if
else if (fs->next)
{
if (inventory[fs->index] < fs->next->value)
{
//first weight
if (fs->child) w1 = FuzzyWeightUndecided_r(inventory, fs->child);
else w1 = fs->minweight + qrandom() * (fs->maxweight - fs->minweight);
//second weight
if (fs->next->child) w2 = FuzzyWeight_r(inventory, fs->next->child);
else w2 = fs->next->minweight + qrandom() * (fs->next->maxweight - fs->next->minweight);
//the scale factor
scale = (inventory[fs->index] - fs->value) / (fs->next->value - fs->value);
//scale between the two weights
return scale * w1 + (1 - scale) * w2;
} //end if
return FuzzyWeightUndecided_r(inventory, fs->next);
} //end else if
return fs->weight;
} //end of the function FuzzyWeightUndecided_r
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
float FuzzyWeight(int *inventory, weightconfig_t *wc, int weightnum)
{
#ifdef EVALUATERECURSIVELY
return FuzzyWeight_r(inventory, wc->weights[weightnum].firstseperator);
#else
fuzzyseperator_t *s;
s = wc->weights[weightnum].firstseperator;
if (!s) return 0;
while(1)
{
if (inventory[s->index] < s->value)
{
if (s->child) s = s->child;
else return s->weight;
} //end if
else
{
if (s->next) s = s->next;
else return s->weight;
} //end else
} //end if
return 0;
#endif
} //end of the function FuzzyWeight
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
float FuzzyWeightUndecided(int *inventory, weightconfig_t *wc, int weightnum)
{
#ifdef EVALUATERECURSIVELY
return FuzzyWeightUndecided_r(inventory, wc->weights[weightnum].firstseperator);
#else
fuzzyseperator_t *s;
s = wc->weights[weightnum].firstseperator;
if (!s) return 0;
while(1)
{
if (inventory[s->index] < s->value)
{
if (s->child) s = s->child;
else return s->minweight + qrandom() * (s->maxweight - s->minweight);
} //end if
else
{
if (s->next) s = s->next;
else return s->minweight + qrandom() * (s->maxweight - s->minweight);
} //end else
} //end if
return 0;
#endif
} //end of the function FuzzyWeightUndecided
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
void EvolveFuzzySeperator_r(fuzzyseperator_t *fs)
{
if (fs->child)
{
EvolveFuzzySeperator_r(fs->child);
} //end if
else if (fs->type == WT_BALANCE)
{
//every once in a while an evolution leap occurs, mutation
if (qrandom() < 0.01) fs->weight += crandom() * (fs->maxweight - fs->minweight);
else fs->weight += crandom() * (fs->maxweight - fs->minweight) * 0.5;
//modify bounds if necesary because of mutation
if (fs->weight < fs->minweight) fs->minweight = fs->weight;
else if (fs->weight > fs->maxweight) fs->maxweight = fs->weight;
} //end else if
if (fs->next) EvolveFuzzySeperator_r(fs->next);
} //end of the function EvolveFuzzySeperator_r
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
void EvolveWeightConfig(weightconfig_t *config)
{
int i;
for (i = 0; i < config->numweights; i++)
{
EvolveFuzzySeperator_r(config->weights[i].firstseperator);
} //end for
} //end of the function EvolveWeightConfig
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
void ScaleFuzzySeperator_r(fuzzyseperator_t *fs, float scale)
{
if (fs->child)
{
ScaleFuzzySeperator_r(fs->child, scale);
} //end if
else if (fs->type == WT_BALANCE)
{
//
fs->weight = (fs->maxweight + fs->minweight) * scale;
//get the weight between bounds
if (fs->weight < fs->minweight) fs->weight = fs->minweight;
else if (fs->weight > fs->maxweight) fs->weight = fs->maxweight;
} //end else if
if (fs->next) ScaleFuzzySeperator_r(fs->next, scale);
} //end of the function ScaleFuzzySeperator_r
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
void ScaleWeight(weightconfig_t *config, char *name, float scale)
{
int i;
if (scale < 0) scale = 0;
else if (scale > 1) scale = 1;
for (i = 0; i < config->numweights; i++)
{
if (!strcmp(name, config->weights[i].name))
{
ScaleFuzzySeperator_r(config->weights[i].firstseperator, scale);
break;
} //end if
} //end for
} //end of the function ScaleWeight
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
void ScaleFuzzySeperatorBalanceRange_r(fuzzyseperator_t *fs, float scale)
{
if (fs->child)
{
ScaleFuzzySeperatorBalanceRange_r(fs->child, scale);
} //end if
else if (fs->type == WT_BALANCE)
{
float mid = (fs->minweight + fs->maxweight) * 0.5;
//get the weight between bounds
fs->maxweight = mid + (fs->maxweight - mid) * scale;
fs->minweight = mid + (fs->minweight - mid) * scale;
if (fs->maxweight < fs->minweight)
{
fs->maxweight = fs->minweight;
} //end if
} //end else if
if (fs->next) ScaleFuzzySeperatorBalanceRange_r(fs->next, scale);
} //end of the function ScaleFuzzySeperatorBalanceRange_r
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
void ScaleFuzzyBalanceRange(weightconfig_t *config, float scale)
{
int i;
if (scale < 0) scale = 0;
else if (scale > 100) scale = 100;
for (i = 0; i < config->numweights; i++)
{
ScaleFuzzySeperatorBalanceRange_r(config->weights[i].firstseperator, scale);
} //end for
} //end of the function ScaleFuzzyBalanceRange
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
int InterbreedFuzzySeperator_r(fuzzyseperator_t *fs1, fuzzyseperator_t *fs2,
fuzzyseperator_t *fsout)
{
if (fs1->child)
{
if (!fs2->child || !fsout->child)
{
botimport.Print(PRT_ERROR, "cannot interbreed weight configs, unequal child\n");
return qfalse;
} //end if
if (!InterbreedFuzzySeperator_r(fs2->child, fs2->child, fsout->child))
{
return qfalse;
} //end if
} //end if
else if (fs1->type == WT_BALANCE)
{
if (fs2->type != WT_BALANCE || fsout->type != WT_BALANCE)
{
botimport.Print(PRT_ERROR, "cannot interbreed weight configs, unequal balance\n");
return qfalse;
} //end if
fsout->weight = (fs1->weight + fs2->weight) / 2;
if (fsout->weight > fsout->maxweight) fsout->maxweight = fsout->weight;
if (fsout->weight > fsout->minweight) fsout->minweight = fsout->weight;
} //end else if
if (fs1->next)
{
if (!fs2->next || !fsout->next)
{
botimport.Print(PRT_ERROR, "cannot interbreed weight configs, unequal next\n");
return qfalse;
} //end if
if (!InterbreedFuzzySeperator_r(fs1->next, fs2->next, fsout->next))
{
return qfalse;
} //end if
} //end if
return qtrue;
} //end of the function InterbreedFuzzySeperator_r
//===========================================================================
// config1 and config2 are interbreeded and stored in configout
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
void InterbreedWeightConfigs(weightconfig_t *config1, weightconfig_t *config2,
weightconfig_t *configout)
{
int i;
if (config1->numweights != config2->numweights ||
config1->numweights != configout->numweights)
{
botimport.Print(PRT_ERROR, "cannot interbreed weight configs, unequal numweights\n");
return;
} //end if
for (i = 0; i < config1->numweights; i++)
{
InterbreedFuzzySeperator_r(config1->weights[i].firstseperator,
config2->weights[i].firstseperator,
configout->weights[i].firstseperator);
} //end for
} //end of the function InterbreedWeightConfigs
//===========================================================================
//
// Parameter: -
// Returns: -
// Changes Globals: -
//===========================================================================
void BotShutdownWeights(void)
{
int i;
for( i = 0; i < MAX_WEIGHT_FILES; i++ )
{
if (weightFileList[i])
{
FreeWeightConfig2(weightFileList[i]);
weightFileList[i] = NULL;
} //end if
} //end for
} //end of the function BotShutdownWeights