eukara
/
fallout2-ce
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
fallout2-ce/src/combat_ai.c

3350 lines
92 KiB
C
Raw Normal View History

Initial commit
2022-05-19 01:51:26 -07:00
#include "combat_ai.h"
#include "actions.h"
#include "animation.h"
#include "combat.h"
#include "config.h"
#include "core.h"
#include "critter.h"
#include "debug.h"
#include "display_monitor.h"
#include "game.h"
#include "game_config.h"
#include "game_sound.h"
#include "interface.h"
#include "item.h"
#include "light.h"
#include "map.h"
#include "memory.h"
#include "object.h"
#include "proto.h"
#include "proto_instance.h"
#include "random.h"
#include "scripts.h"
#include "skill.h"
#include "stat.h"
#include "text_object.h"
#include "tile.h"
#include <stdio.h>
#include <string.h>
// 0x51805C
Object* _combat_obj = NULL;
// 0x518060
int gAiPacketsLength = 0;
// 0x518064
AiPacket* gAiPackets = NULL;
// 0x518068
bool gAiInitialized = false;
// 0x51806C
const char* gAreaAttackModeKeys[AREA_ATTACK_MODE_COUNT] = {
"always",
"sometimes",
"be_sure",
"be_careful",
"be_absolutely_sure",
};
// 0x5180D0
const char* gAttackWhoKeys[ATTACK_WHO_COUNT] = {
"whomever_attacking_me",
"strongest",
"weakest",
"whomever",
"closest",
};
// 0x51809C
const char* gBestWeaponKeys[BEST_WEAPON_COUNT] = {
"no_pref",
"melee",
"melee_over_ranged",
"ranged_over_melee",
"ranged",
"unarmed",
"unarmed_over_thrown",
"random",
};
// 0x5180E4
const char* gChemUseKeys[CHEM_USE_COUNT] = {
"clean",
"stims_when_hurt_little",
"stims_when_hurt_lots",
"sometimes",
"anytime",
"always",
};
// 0x5180BC
const char* gDistanceModeKeys[DISTANCE_COUNT] = {
"stay_close",
"charge",
"snipe",
"on_your_own",
"stay",
};
// 0x518080
const char* gRunAwayModeKeys[RUN_AWAY_MODE_COUNT] = {
"none",
"coward",
"finger_hurts",
"bleeding",
"not_feeling_good",
"tourniquet",
"never",
};
// 0x5180FC
const char* gDispositionKeys[DISPOSITION_COUNT] = {
"none",
"custom",
"coward",
"defensive",
"aggressive",
"berserk",
};
// 0x518114
const char* gHurtTooMuchKeys[HURT_COUNT] = {
"blind",
"crippled",
"crippled_legs",
"crippled_arms",
};
// hurt_too_much
//
// 0x518124
const int _rmatchHurtVals[5] = {
DAM_BLIND,
DAM_CRIP_LEG_LEFT | DAM_CRIP_LEG_RIGHT | DAM_CRIP_ARM_LEFT | DAM_CRIP_ARM_RIGHT,
DAM_CRIP_LEG_LEFT | DAM_CRIP_LEG_RIGHT,
DAM_CRIP_ARM_LEFT | DAM_CRIP_ARM_RIGHT,
0,
};
// Hit points in percent to choose run away mode.
//
// 0x518138
const int _hp_run_away_value[6] = {
0,
25,
40,
60,
75,
100,
};
// 0x518150
Object* _attackerTeamObj = NULL;
// 0x518154
Object* _targetTeamObj = NULL;
// 0x518158
const int _weapPrefOrderings[BEST_WEAPON_COUNT + 1][5] = {
{ ATTACK_TYPE_RANGED, ATTACK_TYPE_THROW, ATTACK_TYPE_MELEE, ATTACK_TYPE_UNARMED, 0 },
{ ATTACK_TYPE_RANGED, ATTACK_TYPE_THROW, ATTACK_TYPE_MELEE, ATTACK_TYPE_UNARMED, 0 }, // BEST_WEAPON_NO_PREF
{ ATTACK_TYPE_MELEE, 0, 0, 0, 0 }, // BEST_WEAPON_MELEE
{ ATTACK_TYPE_MELEE, ATTACK_TYPE_RANGED, 0, 0, 0 }, // BEST_WEAPON_MELEE_OVER_RANGED
{ ATTACK_TYPE_RANGED, ATTACK_TYPE_MELEE, 0, 0, 0 }, // BEST_WEAPON_RANGED_OVER_MELEE
{ ATTACK_TYPE_RANGED, 0, 0, 0, 0 }, // BEST_WEAPON_RANGED
{ ATTACK_TYPE_UNARMED, 0, 0, 0, 0 }, // BEST_WEAPON_UNARMED
{ ATTACK_TYPE_UNARMED, ATTACK_TYPE_THROW, 0, 0, 0 }, // BEST_WEAPON_UNARMED_OVER_THROW
{ 0, 0, 0, 0, 0 }, // BEST_WEAPON_RANDOM
};
// 0x51820C
const int _aiPartyMemberDistances[DISTANCE_COUNT] = {
5,
7,
7,
7,
50000,
};
// 0x518220
int gLanguageFilter = -1;
// ai.msg
//
// 0x56D510
MessageList gCombatAiMessageList;
// 0x56D518
char _target_str[260];
// 0x56D61C
int _curr_crit_num;
// 0x56D620
Object** _curr_crit_list;
// 0x56D624
char _attack_str[268];
// parse hurt_too_much
void _parse_hurt_str(char* str, int* valuePtr)
{
int v5, v10;
char tmp;
int i;
*valuePtr = 0;
str = strlwr(str);
while (*str) {
v5 = strspn(str, " ");
str += v5;
v10 = strcspn(str, ",");
tmp = str[v10];
str[v10] = '\0';
for (i = 0; i < 4; i++) {
if (strcmp(str, gHurtTooMuchKeys[i]) == 0) {
*valuePtr |= _rmatchHurtVals[i];
break;
}
}
if (i == 4) {
debugPrint("Unrecognized flag: %s\n", str);
}
str[v10] = tmp;
if (tmp == '\0') {
break;
}
str += v10 + 1;
}
}
// parse behaviour entry
int _cai_match_str_to_list(const char* str, const char** list, int count, int* valuePtr)
{
*valuePtr = -1;
for (int index = 0; index < count; index++) {
if (stricmp(str, list[index]) == 0) {
*valuePtr = index;
}
}
return 0;
}
// 0x426FE0
void aiPacketInit(AiPacket* ai)
{
ai->name = NULL;
ai->area_attack_mode = -1;
ai->run_away_mode = -1;
ai->best_weapon = -1;
ai->distance = -1;
ai->attack_who = -1;
ai->chem_use = -1;
for (int index = 0; index < AI_PACKET_CHEM_PRIMARY_DESIRE_COUNT; index++) {
ai->chem_primary_desire[index] = -1;
}
ai->disposition = -1;
}
// ai_init
// 0x42703C
int aiInit()
{
int index;
if (aiMessageListInit() == -1) {
return -1;
}
gAiPacketsLength = 0;
Config config;
if (!configInit(&config)) {
return -1;
}
if (!configRead(&config, "data\\ai.txt", true)) {
return -1;
}
gAiPackets = internal_malloc(sizeof(*gAiPackets) * config.entriesLength);
if (gAiPackets == NULL) {
goto err;
}
for (index = 0; index < config.entriesLength; index++) {
aiPacketInit(&(gAiPackets[index]));
}
for (index = 0; index < config.entriesLength; index++) {
DictionaryEntry* sectionEntry = &(config.entries[index]);
AiPacket* ai = &(gAiPackets[index]);
char* stringValue;
ai->name = internal_strdup(sectionEntry->key);
if (!configGetInt(&config, sectionEntry->key, "packet_num", &(ai->packet_num))) goto err;
if (!configGetInt(&config, sectionEntry->key, "max_dist", &(ai->max_dist))) goto err;
if (!configGetInt(&config, sectionEntry->key, "min_to_hit", &(ai->min_to_hit))) goto err;
if (!configGetInt(&config, sectionEntry->key, "min_hp", &(ai->min_hp))) goto err;
if (!configGetInt(&config, sectionEntry->key, "aggression", &(ai->aggression))) goto err;
if (configGetString(&config, sectionEntry->key, "hurt_too_much", &stringValue)) {
_parse_hurt_str(stringValue, &(ai->hurt_too_much));
}
if (!configGetInt(&config, sectionEntry->key, "secondary_freq", &(ai->secondary_freq))) goto err;
if (!configGetInt(&config, sectionEntry->key, "called_freq", &(ai->called_freq))) goto err;
if (!configGetInt(&config, sectionEntry->key, "font", &(ai->font))) goto err;
if (!configGetInt(&config, sectionEntry->key, "color", &(ai->color))) goto err;
if (!configGetInt(&config, sectionEntry->key, "outline_color", &(ai->outline_color))) goto err;
if (!configGetInt(&config, sectionEntry->key, "chance", &(ai->chance))) goto err;
if (!configGetInt(&config, sectionEntry->key, "run_start", &(ai->run.start))) goto err;
if (!configGetInt(&config, sectionEntry->key, "run_end", &(ai->run.end))) goto err;
if (!configGetInt(&config, sectionEntry->key, "move_start", &(ai->move.start))) goto err;
if (!configGetInt(&config, sectionEntry->key, "move_end", &(ai->move.end))) goto err;
if (!configGetInt(&config, sectionEntry->key, "attack_start", &(ai->attack.start))) goto err;
if (!configGetInt(&config, sectionEntry->key, "attack_end", &(ai->attack.end))) goto err;
if (!configGetInt(&config, sectionEntry->key, "miss_start", &(ai->miss.start))) goto err;
if (!configGetInt(&config, sectionEntry->key, "miss_end", &(ai->miss.end))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_head_start", &(ai->hit[HIT_LOCATION_HEAD].start))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_head_end", &(ai->hit[HIT_LOCATION_HEAD].end))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_left_arm_start", &(ai->hit[HIT_LOCATION_LEFT_ARM].start))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_left_arm_end", &(ai->hit[HIT_LOCATION_LEFT_ARM].end))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_right_arm_start", &(ai->hit[HIT_LOCATION_RIGHT_ARM].start))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_right_arm_end", &(ai->hit[HIT_LOCATION_RIGHT_ARM].end))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_torso_start", &(ai->hit[HIT_LOCATION_TORSO].start))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_torso_end", &(ai->hit[HIT_LOCATION_TORSO].end))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_right_leg_start", &(ai->hit[HIT_LOCATION_RIGHT_LEG].start))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_right_leg_end", &(ai->hit[HIT_LOCATION_RIGHT_LEG].end))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_left_leg_start", &(ai->hit[HIT_LOCATION_LEFT_LEG].start))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_left_leg_end", &(ai->hit[HIT_LOCATION_LEFT_LEG].end))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_eyes_start", &(ai->hit[HIT_LOCATION_EYES].start))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_eyes_end", &(ai->hit[HIT_LOCATION_EYES].end))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_groin_start", &(ai->hit[HIT_LOCATION_GROIN].start))) goto err;
if (!configGetInt(&config, sectionEntry->key, "hit_groin_end", &(ai->hit[HIT_LOCATION_GROIN].end))) goto err;
ai->hit[HIT_LOCATION_GROIN].end++;
if (configGetString(&config, sectionEntry->key, "area_attack_mode", &stringValue)) {
_cai_match_str_to_list(stringValue, gAreaAttackModeKeys, AREA_ATTACK_MODE_COUNT, &(ai->area_attack_mode));
} else {
ai->run_away_mode = -1;
}
if (configGetString(&config, sectionEntry->key, "run_away_mode", &stringValue)) {
_cai_match_str_to_list(stringValue, gRunAwayModeKeys, RUN_AWAY_MODE_COUNT, &(ai->run_away_mode));
if (ai->run_away_mode >= 0) {
ai->run_away_mode--;
}
}
if (configGetString(&config, sectionEntry->key, "best_weapon", &stringValue)) {
_cai_match_str_to_list(stringValue, gBestWeaponKeys, BEST_WEAPON_COUNT, &(ai->best_weapon));
}
if (configGetString(&config, sectionEntry->key, "distance", &stringValue)) {
_cai_match_str_to_list(stringValue, gDistanceModeKeys, DISTANCE_COUNT, &(ai->distance));
}
if (configGetString(&config, sectionEntry->key, "attack_who", &stringValue)) {
_cai_match_str_to_list(stringValue, gAttackWhoKeys, ATTACK_WHO_COUNT, &(ai->attack_who));
}
if (configGetString(&config, sectionEntry->key, "chem_use", &stringValue)) {
_cai_match_str_to_list(stringValue, gChemUseKeys, CHEM_USE_COUNT, &(ai->chem_use));
}
configGetIntList(&config, sectionEntry->key, "chem_primary_desire", ai->chem_primary_desire, AI_PACKET_CHEM_PRIMARY_DESIRE_COUNT);
if (configGetString(&config, sectionEntry->key, "disposition", &stringValue)) {
_cai_match_str_to_list(stringValue, gDispositionKeys, DISPOSITION_COUNT, &(ai->disposition));
ai->disposition--;
}
if (configGetString(&config, sectionEntry->key, "body_type", &stringValue)) {
ai->body_type = internal_strdup(stringValue);
} else {
ai->body_type = NULL;
}
if (configGetString(&config, sectionEntry->key, "general_type", &stringValue)) {
ai->general_type = internal_strdup(stringValue);
} else {
ai->general_type = NULL;
}
}
if (index < config.entriesLength) {
goto err;
}
gAiPacketsLength = config.entriesLength;
configFree(&config);
gAiInitialized = true;
return 0;
err:
if (gAiPackets != NULL) {
for (index = 0; index < config.entriesLength; index++) {
AiPacket* ai = &(gAiPackets[index]);
if (ai->name != NULL) {
internal_free(ai->name);
}
// FIXME: leaking ai->body_type and ai->general_type, does not matter
// because it halts further processing
}
internal_free(gAiPackets);
}
debugPrint("Error processing ai.txt");
configFree(&config);
return -1;
}
// 0x4279F8
void aiReset()
{
}
// 0x4279FC
int aiExit()
{
for (int index = 0; index < gAiPacketsLength; index++) {
AiPacket* ai = &(gAiPackets[index]);
if (ai->name != NULL) {
internal_free(ai->name);
ai->name = NULL;
}
if (ai->general_type != NULL) {
internal_free(ai->general_type);
ai->general_type = NULL;
}
if (ai->body_type != NULL) {
internal_free(ai->body_type);
ai->body_type = NULL;
}
}
internal_free(gAiPackets);
gAiPacketsLength = 0;
gAiInitialized = false;
// NOTE: Uninline.
if (aiMessageListFree() != 0) {
return -1;
}
return 0;
}
// 0x427AD8
int aiLoad(File* stream)
{
for (int index = 0; index < gPartyMemberDescriptionsLength; index++) {
int pid = gPartyMemberPids[index];
if (pid != -1 && (pid >> 24) == OBJ_TYPE_CRITTER) {
Proto* proto;
if (protoGetProto(pid, &proto) == -1) {
return -1;
}
AiPacket* ai = aiGetPacketByNum(proto->critter.aiPacket);
if (ai->disposition == 0) {
aiPacketRead(stream, ai);
}
}
}
return 0;
}
// 0x427B50
int aiSave(File* stream)
{
for (int index = 0; index < gPartyMemberDescriptionsLength; index++) {
int pid = gPartyMemberPids[index];
if (pid != -1 && (pid >> 24) == OBJ_TYPE_CRITTER) {
Proto* proto;
if (protoGetProto(pid, &proto) == -1) {
return -1;
}
AiPacket* ai = aiGetPacketByNum(proto->critter.aiPacket);
if (ai->disposition == 0) {
aiPacketWrite(stream, ai);
}
}
}
return 0;
}
// 0x427BC8
int aiPacketRead(File* stream, AiPacket* ai)
{
if (fileReadInt32(stream, &(ai->packet_num)) == -1) return -1;
if (fileReadInt32(stream, &(ai->max_dist)) == -1) return -1;
if (fileReadInt32(stream, &(ai->min_to_hit)) == -1) return -1;
if (fileReadInt32(stream, &(ai->min_hp)) == -1) return -1;
if (fileReadInt32(stream, &(ai->aggression)) == -1) return -1;
if (fileReadInt32(stream, &(ai->hurt_too_much)) == -1) return -1;
if (fileReadInt32(stream, &(ai->secondary_freq)) == -1) return -1;
if (fileReadInt32(stream, &(ai->called_freq)) == -1) return -1;
if (fileReadInt32(stream, &(ai->font)) == -1) return -1;
if (fileReadInt32(stream, &(ai->color)) == -1) return -1;
if (fileReadInt32(stream, &(ai->outline_color)) == -1) return -1;
if (fileReadInt32(stream, &(ai->chance)) == -1) return -1;
if (fileReadInt32(stream, &(ai->run.start)) == -1) return -1;
if (fileReadInt32(stream, &(ai->run.end)) == -1) return -1;
if (fileReadInt32(stream, &(ai->move.start)) == -1) return -1;
if (fileReadInt32(stream, &(ai->move.end)) == -1) return -1;
if (fileReadInt32(stream, &(ai->attack.start)) == -1) return -1;
if (fileReadInt32(stream, &(ai->attack.end)) == -1) return -1;
if (fileReadInt32(stream, &(ai->miss.start)) == -1) return -1;
if (fileReadInt32(stream, &(ai->miss.end)) == -1) return -1;
for (int index = 0; index < HIT_LOCATION_SPECIFIC_COUNT; index++) {
AiMessageRange* range = &(ai->hit[index]);
if (fileReadInt32(stream, &(range->start)) == -1) return -1;
if (fileReadInt32(stream, &(range->end)) == -1) return -1;
}
if (fileReadInt32(stream, &(ai->area_attack_mode)) == -1) return -1;
if (fileReadInt32(stream, &(ai->best_weapon)) == -1) return -1;
if (fileReadInt32(stream, &(ai->distance)) == -1) return -1;
if (fileReadInt32(stream, &(ai->attack_who)) == -1) return -1;
if (fileReadInt32(stream, &(ai->chem_use)) == -1) return -1;
if (fileReadInt32(stream, &(ai->run_away_mode)) == -1) return -1;
for (int index = 0; index < AI_PACKET_CHEM_PRIMARY_DESIRE_COUNT; index++) {
if (fileReadInt32(stream, &(ai->chem_primary_desire[index])) == -1) return -1;
}
return 0;
}
// 0x427E1C
int aiPacketWrite(File* stream, AiPacket* ai)
{
if (fileWriteInt32(stream, ai->packet_num) == -1) return -1;
if (fileWriteInt32(stream, ai->max_dist) == -1) return -1;
if (fileWriteInt32(stream, ai->min_to_hit) == -1) return -1;
if (fileWriteInt32(stream, ai->min_hp) == -1) return -1;
if (fileWriteInt32(stream, ai->aggression) == -1) return -1;
if (fileWriteInt32(stream, ai->hurt_too_much) == -1) return -1;
if (fileWriteInt32(stream, ai->secondary_freq) == -1) return -1;
if (fileWriteInt32(stream, ai->called_freq) == -1) return -1;
if (fileWriteInt32(stream, ai->font) == -1) return -1;
if (fileWriteInt32(stream, ai->color) == -1) return -1;
if (fileWriteInt32(stream, ai->outline_color) == -1) return -1;
if (fileWriteInt32(stream, ai->chance) == -1) return -1;
if (fileWriteInt32(stream, ai->run.start) == -1) return -1;
if (fileWriteInt32(stream, ai->run.end) == -1) return -1;
if (fileWriteInt32(stream, ai->move.start) == -1) return -1;
if (fileWriteInt32(stream, ai->move.end) == -1) return -1;
if (fileWriteInt32(stream, ai->attack.start) == -1) return -1;
if (fileWriteInt32(stream, ai->attack.end) == -1) return -1;
if (fileWriteInt32(stream, ai->miss.start) == -1) return -1;
if (fileWriteInt32(stream, ai->miss.end) == -1) return -1;
for (int index = 0; index < HIT_LOCATION_SPECIFIC_COUNT; index++) {
AiMessageRange* range = &(ai->hit[index]);
if (fileWriteInt32(stream, range->start) == -1) return -1;
if (fileWriteInt32(stream, range->end) == -1) return -1;
}
if (fileWriteInt32(stream, ai->area_attack_mode) == -1) return -1;
if (fileWriteInt32(stream, ai->best_weapon) == -1) return -1;
if (fileWriteInt32(stream, ai->distance) == -1) return -1;
if (fileWriteInt32(stream, ai->attack_who) == -1) return -1;
if (fileWriteInt32(stream, ai->chem_use) == -1) return -1;
if (fileWriteInt32(stream, ai->run_away_mode) == -1) return -1;
for (int index = 0; index < AI_PACKET_CHEM_PRIMARY_DESIRE_COUNT; index++) {
// TODO: Check, probably writes chem_primary_desire[0] three times,
// might be a bug in original source code.
if (fileWriteInt32(stream, ai->chem_primary_desire[index]) == -1) return -1;
}
return 0;
}
// Get ai from object
//
// 0x4280B4
AiPacket* aiGetPacket(Object* obj)
{
// NOTE: Uninline.
AiPacket* ai = aiGetPacketByNum(obj->data.critter.combat.aiPacket);
return ai;
}
// get ai packet by num
//
// 0x42811C
AiPacket* aiGetPacketByNum(int aiPacketId)
{
for (int index = 0; index < gAiPacketsLength; index++) {
AiPacket* ai = &(gAiPackets[index]);
if (aiPacketId == ai->packet_num) {
return ai;
}
}
debugPrint("Missing AI Packet\n");
return gAiPackets;
}
// 0x428184
int aiGetAreaAttackMode(Object* obj)
{
AiPacket* ai = aiGetPacket(obj);
return ai->area_attack_mode;
}
// 0x428190
int aiGetRunAwayMode(Object* obj)
{
AiPacket* ai;
int v3;
int v5;
int v6;
int i;
ai = aiGetPacket(obj);
v3 = -1;
if (ai->run_away_mode != -1) {
return ai->run_away_mode;
}
v5 = 100 * ai->min_hp;
v6 = v5 / critterGetStat(obj, STAT_MAXIMUM_HIT_POINTS);
for (i = 0; i < 6; i++) {
if (v6 >= _hp_run_away_value[i]) {
v3 = i;
}
}
return v3;
}
// 0x4281FC
int aiGetBestWeapon(Object* obj)
{
AiPacket* ai = aiGetPacket(obj);
return ai->best_weapon;
}
// 0x428208
int aiGetDistance(Object* obj)
{
AiPacket* ai = aiGetPacket(obj);
return ai->distance;
}
// 0x428214
int aiGetAttackWho(Object* obj)
{
AiPacket* ai = aiGetPacket(obj);
return ai->attack_who;
}
// 0x428220
int aiGetChemUse(Object* obj)
{
AiPacket* ai = aiGetPacket(obj);
return ai->chem_use;
}
// 0x42822C
int aiSetAreaAttackMode(Object* critter, int areaAttackMode)
{
if (areaAttackMode >= AREA_ATTACK_MODE_COUNT) {
return -1;
}
AiPacket* ai = aiGetPacket(critter);
ai->area_attack_mode = areaAttackMode;
return 0;
}
// 0x428248
int aiSetRunAwayMode(Object* obj, int runAwayMode)
{
if (runAwayMode >= 6) {
return -1;
}
AiPacket* ai = aiGetPacket(obj);
ai->run_away_mode = runAwayMode;
int maximumHp = critterGetStat(obj, STAT_MAXIMUM_HIT_POINTS);
ai->min_hp = maximumHp - maximumHp * _hp_run_away_value[runAwayMode] / 100;
int currentHp = critterGetStat(obj, STAT_CURRENT_HIT_POINTS);
const char* name = critterGetName(obj);
debugPrint("\n%s minHp = %d; curHp = %d", name, ai->min_hp, currentHp);
return 0;
}
// 0x4282D0
int aiSetBestWeapon(Object* critter, int bestWeapon)
{
if (bestWeapon >= BEST_WEAPON_COUNT) {
return -1;
}
AiPacket* ai = aiGetPacket(critter);
ai->best_weapon = bestWeapon;
return 0;
}
// 0x4282EC
int aiSetDistance(Object* critter, int distance)
{
if (distance >= DISTANCE_COUNT) {
return -1;
}
AiPacket* ai = aiGetPacket(critter);
ai->distance = distance;
return 0;
}
// 0x428308
int aiSetAttackWho(Object* critter, int attackWho)
{
if (attackWho >= ATTACK_WHO_COUNT) {
return -1;
}
AiPacket* ai = aiGetPacket(critter);
ai->attack_who = attackWho;
return 0;
}
// 0x428324
int aiSetChemUse(Object* critter, int chemUse)
{
if (chemUse >= CHEM_USE_COUNT) {
return -1;
}
AiPacket* ai = aiGetPacket(critter);
ai->chem_use = chemUse;
return 0;
}
// 0x428340
int aiGetDisposition(Object* obj)
{
if (obj == NULL) {
return 0;
}
AiPacket* ai = aiGetPacket(obj);
return ai->disposition;
}
// 0x428354
int aiSetDisposition(Object* obj, int disposition)
{
if (obj == NULL) {
return -1;
}
if (disposition == -1 || disposition >= 5) {
return -1;
}
AiPacket* ai = aiGetPacket(obj);
obj->data.critter.combat.aiPacket = ai->packet_num - (disposition - ai->disposition);
return 0;
}
// 0x428398
int _ai_magic_hands(Object* critter, Object* item, int num)
{
reg_anim_begin(2);
reg_anim_animate(critter, ANIM_MAGIC_HANDS_MIDDLE, 0);
if (reg_anim_end() == 0) {
if (isInCombat()) {
_combat_turn_run();
}
}
if (num != -1) {
MessageListItem messageListItem;
messageListItem.num = num;
if (messageListGetItem(&gMiscMessageList, &messageListItem)) {
const char* critterName = objectGetName(critter);
char text[200];
if (item != NULL) {
const char* itemName = objectGetName(item);
sprintf(text, "%s %s %s.", critterName, messageListItem.text, itemName);
} else {
sprintf(text, "%s %s.", critterName, messageListItem.text);
}
displayMonitorAddMessage(text);
}
}
return 0;
}
// ai using drugs
// 0x428480
int _ai_check_drugs(Object* critter)
{
if (critterGetBodyType(critter) != BODY_TYPE_BIPED) {
return 0;
}
int v25 = 0;
int v28 = 0;
int v29 = 0;
Object* v3 = _combatAIInfoGetLastItem(critter);
if (v3 == NULL) {
AiPacket* ai = aiGetPacket(critter);
if (ai == NULL) {
return 0;
}
int v2 = 50;
int v26 = 0;
switch (ai->chem_use + 1) {
case 1:
return 0;
case 2:
v2 = 60;
break;
case 3:
v2 = 30;
break;
case 4:
if ((_combatNumTurns % 3) == 0) {
v26 = 25;
}
v2 = 50;
break;
case 5:
if ((_combatNumTurns % 3) == 0) {
v26 = 75;
}
v2 = 50;
break;
case 6:
v26 = 100;
break;
}
int v27 = critterGetStat(critter, STAT_MAXIMUM_HIT_POINTS) * v2 / 100;
int token = -1;
while (true) {
if (critterGetStat(critter, STAT_CURRENT_HIT_POINTS) >= v27 || critter->data.critter.combat.ap < 2) {
break;
}
Object* drug = _inven_find_type(critter, ITEM_TYPE_DRUG, &token);
if (drug == NULL) {
v25 = true;
break;
}
int drugPid = drug->pid;
if ((drugPid == PROTO_ID_STIMPACK || drugPid == PROTO_ID_SUPER_STIMPACK || drugPid == PROTO_ID_HEALING_POWDER)
&& itemRemove(critter, drug, 1) == 0) {
if (_item_d_take_drug(critter, drug) == -1) {
itemAdd(critter, drug, 1);
} else {
_ai_magic_hands(critter, drug, 5000);
_obj_connect(drug, critter->tile, critter->elevation, NULL);
_obj_destroy(drug);
v28 = 1;
}
if (critter->data.critter.combat.ap < 2) {
critter->data.critter.combat.ap = 0;
} else {
critter->data.critter.combat.ap -= 2;
}
token = -1;
}
}
if (!v28 && v26 > 0 && randomBetween(0, 100) < v26) {
while (critter->data.critter.combat.ap >= 2) {
Object* drug = _inven_find_type(critter, ITEM_TYPE_DRUG, &token);
if (drug == NULL) {
v25 = 1;
break;
}
int drugPid = drug->pid;
int index;
for (index = 0; index < AI_PACKET_CHEM_PRIMARY_DESIRE_COUNT; index++) {
// TODO: Find out why it checks for inequality at 0x4286B1.
if (ai->chem_primary_desire[index] != drugPid) {
break;
}
}
if (index < AI_PACKET_CHEM_PRIMARY_DESIRE_COUNT) {
if (drugPid != PROTO_ID_STIMPACK && drugPid != PROTO_ID_SUPER_STIMPACK && drugPid != 273
&& itemRemove(critter, drug, 1) == 0) {
if (_item_d_take_drug(critter, drug) == -1) {
itemAdd(critter, drug, 1);
} else {
_ai_magic_hands(critter, drug, 5000);
_obj_connect(drug, critter->tile, critter->elevation, NULL);
_obj_destroy(drug);
v28 = 1;
v29 += 1;
}
if (critter->data.critter.combat.ap < 2) {
critter->data.critter.combat.ap = 0;
} else {
critter->data.critter.combat.ap -= 2;
}
if (ai->chem_use == CHEM_USE_SOMETIMES || ai->chem_use == CHEM_USE_ANYTIME && v29 >= 2) {
break;
}
}
}
}
}
}
if (v3 != NULL || !v28 && v25 == 1) {
do {
if (v3 == NULL) {
v3 = _ai_search_environ(critter, ITEM_TYPE_DRUG);
}
if (v3 != NULL) {
v3 = _ai_retrieve_object(critter, v3);
} else {
Object* v22 = _ai_search_environ(critter, ITEM_TYPE_MISC);
if (v22 != NULL) {
v3 = _ai_retrieve_object(critter, v22);
}
}
if (v3 != NULL && itemRemove(critter, v3, 1) == 0) {
if (_item_d_take_drug(critter, v3) == -1) {
itemAdd(critter, v3, 1);
} else {
_ai_magic_hands(critter, v3, 5000);
_obj_connect(v3, critter->tile, critter->elevation, NULL);
_obj_destroy(v3);
v3 = NULL;
}
if (critter->data.critter.combat.ap < 2) {
critter->data.critter.combat.ap = 0;
} else {
critter->data.critter.combat.ap -= 2;
}
}
} while (v3 != NULL && critter->data.critter.combat.ap >= 2);
}
return 0;
}
// 0x428868
void _ai_run_away(Object* a1, Object* a2)
{
if (a2 == NULL) {
a2 = gDude;
}
CritterCombatData* combatData = &(a1->data.critter.combat);
AiPacket* ai = aiGetPacket(a1);
int distance = objectGetDistanceBetween(a1, a2);
if (distance < ai->max_dist) {
combatData->maneuver |= CRITTER_MANUEVER_FLEEING;
int rotation = tileGetRotationTo(a2->tile, a1->tile);
int destination;
int actionPoints = combatData->ap;
for (; actionPoints > 0; actionPoints -= 1) {
destination = tileGetTileInDirection(a1->tile, rotation, actionPoints);
if (_make_path(a1, a1->tile, destination, NULL, 1) > 0) {
break;
}
destination = tileGetTileInDirection(a1->tile, (rotation + 1) % ROTATION_COUNT, actionPoints);
if (_make_path(a1, a1->tile, destination, NULL, 1) > 0) {
break;
}
destination = tileGetTileInDirection(a1->tile, (rotation + 5) % ROTATION_COUNT, actionPoints);
if (_make_path(a1, a1->tile, destination, NULL, 1) > 0) {
break;
}
}
if (actionPoints > 0) {
reg_anim_begin(2);
_combatai_msg(a1, NULL, AI_MESSAGE_TYPE_RUN, 0);
reg_anim_obj_run_to_tile(a1, destination, a1->elevation, combatData->ap, 0);
if (reg_anim_end() == 0) {
_combat_turn_run();
}
}
} else {
combatData->maneuver |= CRITTER_MANEUVER_STOP_ATTACKING;
}
}
// 0x42899C
int _ai_move_away(Object* a1, Object* a2, int a3)
{
if (aiGetPacket(a1)->distance == DISTANCE_STAY) {
return -1;
}
if (objectGetDistanceBetween(a1, a2) <= a3) {
int actionPoints = a1->data.critter.combat.ap;
if (a3 < actionPoints) {
actionPoints = a3;
}
int rotation = tileGetRotationTo(a2->tile, a1->tile);
int destination;
int actionPointsLeft = actionPoints;
for (; actionPointsLeft > 0; actionPointsLeft -= 1) {
destination = tileGetTileInDirection(a1->tile, rotation, actionPointsLeft);
if (_make_path(a1, a1->tile, destination, NULL, 1) > 0) {
break;
}
destination = tileGetTileInDirection(a1->tile, (rotation + 1) % ROTATION_COUNT, actionPointsLeft);
if (_make_path(a1, a1->tile, destination, NULL, 1) > 0) {
break;
}
destination = tileGetTileInDirection(a1->tile, (rotation + 5) % ROTATION_COUNT, actionPointsLeft);
if (_make_path(a1, a1->tile, destination, NULL, 1) > 0) {
break;
}
}
if (actionPoints > 0) {
reg_anim_begin(2);
reg_anim_obj_move_to_tile(a1, destination, a1->elevation, actionPoints, 0);
if (reg_anim_end() == 0) {
_combat_turn_run();
}
}
}
return 0;
}
// 0x428AC4
bool _ai_find_friend(Object* a1, int a2, int a3)
{
Object* v1 = _ai_find_nearest_team(a1, a1, 1);
if (v1 == NULL) {
return false;
}
int distance = objectGetDistanceBetween(a1, v1);
if (distance > a2) {
return false;
}
if (a3 > distance) {
int v2 = objectGetDistanceBetween(a1, v1) - a3;
_ai_move_steps_closer(a1, v1, v2, 0);
}
return true;
}
// Compare objects by distance to origin.
//
// 0x428B1C
int _compare_nearer(const void* a1, const void* a2)
{
Object* v1 = *(Object**)a1;
Object* v2 = *(Object**)a2;
if (v1 == NULL) {
if (v2 == NULL) {
return 0;
}
return 1;
} else {
if (v2 == NULL) {
return -1;
}
}
int distance1 = objectGetDistanceBetween(v1, _combat_obj);
int distance2 = objectGetDistanceBetween(v2, _combat_obj);
if (distance1 < distance2) {
return -1;
} else if (distance1 > distance2) {
return 1;
} else {
return 0;
}
}
// qsort compare function - melee then ranged.
//
// 0x428B8C
int _compare_strength(const void* p1, const void* p2)
{
Object* a1 = *(Object**)p1;
Object* a2 = *(Object**)p2;
if (a1 == NULL) {
if (a2 == NULL) {
return 0;
}
return 1;
}
if (a2 == NULL) {
return -1;
}
int v3 = _combatai_rating(a1);
int v5 = _combatai_rating(a2);
if (v3 < v5) {
return -1;
}
if (v3 > v5) {
return 1;
}
return 0;
}
// qsort compare unction - ranged then melee
//
// 0x428BE4
int _compare_weakness(const void* p1, const void* p2)
{
Object* a1 = *(Object**)p1;
Object* a2 = *(Object**)p2;
if (a1 == NULL) {
if (a2 == NULL) {
return 0;
}
return 1;
}
if (a2 == NULL) {
return -1;
}
int v3 = _combatai_rating(a1);
int v5 = _combatai_rating(a2);
if (v3 < v5) {
return 1;
}
if (v3 > v5) {
return -1;
}
return 0;
}
// 0x428C3C
Object* _ai_find_nearest_team(Object* a1, Object* a2, int a3)
{
int i;
Object* obj;
if (a2 == NULL) {
return NULL;
}
if (_curr_crit_num == 0) {
return NULL;
}
_combat_obj = a1;
qsort(_curr_crit_list, _curr_crit_num, sizeof(*_curr_crit_list), _compare_nearer);
for (i = 0; i < _curr_crit_num; i++) {
obj = _curr_crit_list[i];
if (a1 != obj && !(obj->data.critter.combat.results & 0x80) && ((a3 & 0x02) && a2->data.critter.combat.team != obj->data.critter.combat.team || (a3 & 0x01) && a2->data.critter.combat.team == obj->data.critter.combat.team)) {
return obj;
}
}
return NULL;
}
// 0x428CF4
Object* _ai_find_nearest_team_in_combat(Object* a1, Object* a2, int a3)
{
if (a2 == NULL) {
return NULL;
}
if (_curr_crit_num == 0) {
return NULL;
}
int team = a2->data.critter.combat.team;
_combat_obj = a1;
qsort(_curr_crit_list, _curr_crit_num, sizeof(*_curr_crit_list), _compare_nearer);
for (int index = 0; index < _curr_crit_num; index++) {
Object* obj = _curr_crit_list[index];
if (obj != a1
&& (obj->data.critter.combat.results & DAM_DEAD) == 0
&& ((a3 & 0x02) != 0 && team != obj->data.critter.combat.team
|| (a3 & 0x01) != 0 && team == obj->data.critter.combat.team)) {
if (obj->data.critter.combat.whoHitMe != NULL) {
return obj;
}
}
}
return NULL;
}
// 0x428DB0
int _ai_find_attackers(Object* a1, Object** a2, Object** a3, Object** a4)
{
if (a2 != NULL) {
*a2 = NULL;
}
if (a3 != NULL) {
*a3 = NULL;
}
if (*a4 != NULL) {
*a4 = NULL;
}
if (_curr_crit_num == 0) {
return 0;
}
_combat_obj = a1;
qsort(_curr_crit_list, _curr_crit_num, sizeof(*_curr_crit_list), _compare_nearer);
int foundTargetCount = 0;
int team = a1->data.critter.combat.team;
for (int index = 0; foundTargetCount < 3 && index < _curr_crit_num; index++) {
Object* candidate = _curr_crit_list[index];
if (candidate != a1) {
if (a2 != NULL && *a2 == NULL) {
if ((candidate->data.critter.combat.results & DAM_DEAD) == 0
&& candidate->data.critter.combat.whoHitMe == a1) {
foundTargetCount++;
*a2 = candidate;
}
}
if (a3 != NULL && *a3 == NULL) {
if (team == candidate->data.critter.combat.team) {
Object* whoHitCandidate = candidate->data.critter.combat.whoHitMe;
if (whoHitCandidate != NULL
&& whoHitCandidate != a1
&& team != whoHitCandidate->data.critter.combat.team
&& (whoHitCandidate->data.critter.combat.results & DAM_DEAD) == 0) {
foundTargetCount++;
*a3 = whoHitCandidate;
}
}
}
if (a4 != NULL && *a4 == NULL) {
if (candidate->data.critter.combat.team != team
&& (candidate->data.critter.combat.results & DAM_DEAD) == 0) {
Object* whoHitCandidate = candidate->data.critter.combat.whoHitMe;
if (whoHitCandidate != NULL
&& whoHitCandidate->data.critter.combat.team == team) {
foundTargetCount++;
*a4 = candidate;
}
}
}
}
}
return 0;
}
// ai_danger_source
// 0x428F4C
Object* _ai_danger_source(Object* a1)
{
if (a1 == NULL) {
return NULL;
}
bool v2 = false;
int attackWho;
Object* targets[4];
targets[0] = NULL;
if (objectIsPartyMember(a1)) {
int disposition = a1 != NULL ? aiGetPacket(a1)->disposition : 0;
switch (disposition + 1) {
case 1:
case 2:
case 3:
case 4:
v2 = true;
break;
case 0:
case 5:
v2 = false;
break;
}
if (v2 && aiGetPacket(a1)->distance == 1) {
v2 = false;
}
attackWho = aiGetPacket(a1)->attack_who;
switch (attackWho) {
case ATTACK_WHO_WHOMEVER_ATTACKING_ME: {
Object* candidate = _combatAIInfoGetLastTarget(gDude);
if (candidate == NULL || a1->data.critter.combat.team == candidate->data.critter.combat.team) {
break;
}
if (pathfinderFindPath(a1, a1->tile, gDude->data.critter.combat.whoHitMe->tile, NULL, 0, _obj_blocking_at) == 0
&& _combat_check_bad_shot(a1, candidate, HIT_MODE_RIGHT_WEAPON_PRIMARY, false) != 0) {
debugPrint("\nai_danger_source: %s couldn't attack at target! Picking alternate!", critterGetName(a1));
break;
}
if (v2 && critterIsFleeing(a1)) {
break;
}
return candidate;
}
case ATTACK_WHO_STRONGEST:
case ATTACK_WHO_WEAKEST:
case ATTACK_WHO_CLOSEST:
a1->data.critter.combat.whoHitMe = NULL;
break;
default:
break;
}
} else {
attackWho = -1;
}
Object* whoHitMe = a1->data.critter.combat.whoHitMe;
if (whoHitMe == NULL || a1 == whoHitMe) {
targets[0] = NULL;
} else {
if ((whoHitMe->data.critter.combat.results & DAM_DEAD) == 0) {
if (attackWho == ATTACK_WHO_WHOMEVER || attackWho == -1) {
return whoHitMe;
}
} else {
if (whoHitMe->data.critter.combat.team != a1->data.critter.combat.team) {
targets[0] = _ai_find_nearest_team(a1, whoHitMe, 1);
} else {
targets[0] = NULL;
}
}
}
_ai_find_attackers(a1, &(targets[1]), &(targets[2]), &(targets[3]));
if (v2) {
for (int index = 0; index < 4; index++) {
if (targets[index] != NULL && critterIsFleeing(targets[index])) {
targets[index] = NULL;
}
}
}
int (*compareProc)(const void*, const void*);
switch (attackWho) {
case ATTACK_WHO_STRONGEST:
compareProc = _compare_strength;
break;
case ATTACK_WHO_WEAKEST:
compareProc = _compare_weakness;
break;
default:
compareProc = _compare_nearer;
_combat_obj = a1;
break;
}
qsort(targets, 4, sizeof(*targets), compareProc);
for (int index = 0; index < 4; index++) {
Object* candidate = targets[index];
if (candidate != NULL && objectCanHearObject(a1, candidate)) {
if (pathfinderFindPath(a1, a1->tile, candidate->tile, NULL, 0, _obj_blocking_at) != 0
|| _combat_check_bad_shot(a1, candidate, HIT_MODE_RIGHT_WEAPON_PRIMARY, false) == 0) {
return candidate;
}
debugPrint("\nai_danger_source: I couldn't get at my target! Picking alternate!");
}
}
return NULL;
}
// 0x4291C4
int _caiSetupTeamCombat(Object* a1, Object* a2)
{
Object* obj;
obj = objectFindFirstAtElevation(a1->elevation);
while (obj != NULL) {
if ((obj->pid >> 24) == OBJ_TYPE_CRITTER && obj != gDude) {
obj->data.critter.combat.maneuver |= 0x01;
}
obj = objectFindNextAtElevation();
}
_attackerTeamObj = a1;
_targetTeamObj = a2;
return 0;
}
// 0x_429210
int _caiTeamCombatInit(Object** a1, int a2)
{
int v9;
int v10;
int i;
Object* v8;
if (a1 == NULL) {
return -1;
}
if (a2 == 0) {
return 0;
}
if (_attackerTeamObj == NULL) {
return 0;
}
v9 = _attackerTeamObj->data.critter.combat.team;
v10 = _targetTeamObj->data.critter.combat.team;
for (i = 0; i < a2; i++) {
if (a1[i]->data.critter.combat.team == v9) {
v8 = _targetTeamObj;
} else if (a1[i]->data.critter.combat.team == v10) {
v8 = _attackerTeamObj;
} else {
continue;
}
a1[i]->data.critter.combat.whoHitMe = _ai_find_nearest_team(a1[i], v8, 1);
}
_attackerTeamObj = NULL;
_targetTeamObj = NULL;
return 0;
}
// 0x4292C0
void _caiTeamCombatExit()
{
_targetTeamObj = 0;
_attackerTeamObj = 0;
}
// 0x4292D4
int _ai_have_ammo(Object* critter_obj, Object* weapon_obj, Object** out_ammo_obj)
{
int v9;
Object* ammo_obj;
if (out_ammo_obj) {
*out_ammo_obj = NULL;
}
if (weapon_obj->pid == PROTO_ID_SOLAR_SCORCHER) {
return lightGetLightLevel() > 62259;
}
v9 = -1;
while (1) {
ammo_obj = _inven_find_type(critter_obj, 4, &v9);
if (ammo_obj == NULL) {
break;
}
if (weaponCanBeReloadedWith(weapon_obj, ammo_obj)) {
if (out_ammo_obj) {
*out_ammo_obj = ammo_obj;
}
return 1;
}
if (weaponGetAnimationCode(weapon_obj)) {
if (_item_w_range(critter_obj, 2) < 3) {
_inven_unwield(critter_obj, 1);
}
} else {
_inven_unwield(critter_obj, 1);
}
}
return 0;
}
// 0x42938C
bool _caiHasWeapPrefType(AiPacket* ai, int attackType)
{
int bestWeapon = ai->best_weapon + 1;
for (int index = 0; index < 5; index++) {
if (attackType == _weapPrefOrderings[bestWeapon][index]) {
return true;
}
}
return false;
}
// 0x4293BC
Object* _ai_best_weapon(Object* attacker, Object* weapon1, Object* weapon2, Object* defender)
{
if (attacker == NULL) {
return NULL;
}
AiPacket* ai = aiGetPacket(attacker);
if (ai->best_weapon == BEST_WEAPON_RANDOM) {
return randomBetween(1, 100) <= 50 ? weapon1 : weapon2;
}
int minDamage;
int maxDamage;
int v24 = 0;
int v25 = 999;
int v26 = 999;
int avgDamage1 = 0;
Attack attack;
attackInit(&attack, attacker, defender, HIT_MODE_RIGHT_WEAPON_PRIMARY, HIT_LOCATION_TORSO);
int attackType1;
int distance;
int attackType2;
int avgDamage2 = 0;
int v23 = 0;
// NOTE: weaponClass1 and weaponClass2 both use ESI but they are not
// initialized. I'm not sure if this is right, but at least it doesn't
// crash.
attackType1 = -1;
attackType2 = -1;
if (weapon1 != NULL) {
attackType1 = weaponGetAttackTypeForHitMode(weapon1, HIT_MODE_RIGHT_WEAPON_PRIMARY);
if (weaponGetDamageMinMax(weapon1, &minDamage, &maxDamage) == -1) {
return NULL;
}
avgDamage1 = (maxDamage - minDamage) / 2;
if (_item_w_area_damage_radius(weapon1, HIT_MODE_RIGHT_WEAPON_PRIMARY) > 0 && defender != NULL) {
attack.weapon = weapon1;
_compute_explosion_on_extras(&attack, 0, _item_w_is_grenade(weapon1), 1);
avgDamage1 *= attack.extrasLength + 1;
}
// TODO: Probably an error, why it takes [weapon2], should likely use
// [weapon1].
if (weaponGetPerk(weapon2) != -1) {
avgDamage1 *= 5;
}
if (defender != NULL) {
if (_combat_safety_invalidate_weapon(attacker, weapon1, HIT_MODE_RIGHT_WEAPON_PRIMARY, defender, NULL)) {
v24 = 1;
}
}
if (weaponIsNatural(weapon1)) {
return weapon1;
}
} else {
distance = objectGetDistanceBetween(attacker, defender);
if (_item_w_range(attacker, HIT_MODE_PUNCH) >= distance) {
attackType1 = ATTACK_TYPE_UNARMED;
}
}
if (!v24) {
for (int index = 0; index < ATTACK_TYPE_COUNT; index++) {
if (_weapPrefOrderings[ai->best_weapon + 1][index] == attackType1) {
v26 = index;
break;
}
}
}
if (weapon2 != NULL) {
attackType2 = weaponGetAttackTypeForHitMode(weapon2, HIT_MODE_RIGHT_WEAPON_PRIMARY);
if (weaponGetDamageMinMax(weapon2, &minDamage, &maxDamage) == -1) {
return NULL;
}
avgDamage2 = (maxDamage - minDamage) / 2;
if (_item_w_area_damage_radius(weapon2, HIT_MODE_RIGHT_WEAPON_PRIMARY) > 0 && defender != NULL) {
attack.weapon = weapon2;
_compute_explosion_on_extras(&attack, 0, _item_w_is_grenade(weapon2), 1);
avgDamage2 *= attack.extrasLength + 1;
}
if (weaponGetPerk(weapon2) != -1) {
avgDamage2 *= 5;
}
if (defender != NULL) {
if (_combat_safety_invalidate_weapon(attacker, weapon2, HIT_MODE_RIGHT_WEAPON_PRIMARY, defender, NULL)) {
v23 = 1;
}
}
if (weaponIsNatural(weapon2)) {
return weapon2;
}
} else {
if (distance == 0) {
distance = objectGetDistanceBetween(attacker, weapon1);
}
if (_item_w_range(attacker, HIT_MODE_PUNCH) >= distance) {
attackType2 = ATTACK_TYPE_UNARMED;
}
}
if (!v23) {
for (int index = 0; index < ATTACK_TYPE_COUNT; index++) {
if (_weapPrefOrderings[ai->best_weapon + 1][index] == attackType2) {
v25 = index;
break;
}
}
}
if (v26 == v25) {
if (v26 == 999) {
return NULL;
}
if (abs(avgDamage2 - avgDamage1) <= 5) {
return itemGetCost(weapon2) > itemGetCost(weapon1) ? weapon2 : weapon1;
}
return avgDamage2 > avgDamage1 ? weapon2 : weapon1;
}
if (weapon1 != NULL && weapon1->pid == PROTO_ID_FLARE && weapon2 != NULL) {
return weapon2;
}
if (weapon2 != NULL && weapon2->pid == PROTO_ID_FLARE && weapon1 != NULL) {
return weapon1;
}
if ((ai->best_weapon == -1 || ai->best_weapon >= BEST_WEAPON_UNARMED_OVER_THROW)
&& abs(avgDamage2 - avgDamage1) > 5) {
return avgDamage2 > avgDamage1 ? weapon2 : weapon1;
}
return v26 > v25 ? weapon2 : weapon1;
}
// 0x4298EC
bool _ai_can_use_weapon(Object* critter, Object* weapon, int hitMode)
{
int damageFlags = critter->data.critter.combat.results;
if ((damageFlags & DAM_CRIP_ARM_LEFT) != 0 && (damageFlags & DAM_CRIP_ARM_RIGHT) != 0) {
return false;
}
if ((damageFlags & (DAM_CRIP_ARM_LEFT | DAM_CRIP_ARM_RIGHT)) != 0 && weaponIsTwoHanded(weapon)) {
return false;
}
int rotation = critter->rotation + 1;
int animationCode = weaponGetAnimationCode(weapon);
int v9 = weaponGetAnimationForHitMode(weapon, hitMode);
int fid = buildFid(1, critter->fid & 0xFFF, v9, animationCode, rotation);
if (!artExists(fid)) {
return false;
}
int skill = weaponGetSkillForHitMode(weapon, hitMode);
AiPacket* ai = aiGetPacket(critter);
if (skillGetValue(critter, skill) < ai->min_to_hit) {
return false;
}
int attackType = weaponGetAttackTypeForHitMode(weapon, HIT_MODE_RIGHT_WEAPON_PRIMARY);
return _caiHasWeapPrefType(ai, attackType) != 0;
}
// 0x4299A0
Object* _ai_search_inven_weap(Object* critter, int a2, Object* a3)
{
int bodyType = critterGetBodyType(critter);
if (bodyType != BODY_TYPE_BIPED
&& bodyType != BODY_TYPE_ROBOTIC
&& critter->pid != PROTO_ID_0x1000098) {
return NULL;
}
int token = -1;
Object* bestWeapon = NULL;
Object* rightHandWeapon = critterGetItem2(critter);
while (true) {
Object* weapon = _inven_find_type(critter, ITEM_TYPE_WEAPON, &token);
if (weapon == NULL) {
break;
}
if (weapon == rightHandWeapon) {
continue;
}
if (a2) {
if (weaponGetActionPointCost1(weapon) > critter->data.critter.combat.ap) {
continue;
}
}
if (!_ai_can_use_weapon(critter, weapon, HIT_MODE_RIGHT_WEAPON_PRIMARY)) {
continue;
}
if (weaponGetAttackTypeForHitMode(weapon, HIT_MODE_RIGHT_WEAPON_PRIMARY) == ATTACK_TYPE_RANGED) {
if (ammoGetQuantity(weapon) == 0) {
if (!_ai_have_ammo(critter, weapon, NULL)) {
continue;
}
}
}
bestWeapon = _ai_best_weapon(critter, bestWeapon, weapon, a3);
}
return bestWeapon;
}
// Finds new best armor (other than what's already equipped) based on the armor score.
//
// 0x429A6C
Object* _ai_search_inven_armor(Object* critter)
{
if (!objectIsPartyMember(critter)) {
return NULL;
}
// Calculate armor score - it's a unitless combination of armor class and bonuses across
// all damage types.
int armorScore = 0;
Object* armor = critterGetArmor(critter);
if (armor != NULL) {
armorScore = armorGetArmorClass(armor);
for (int damageType = 0; damageType < DAMAGE_TYPE_COUNT; damageType++) {
armorScore += armorGetDamageResistance(armor, damageType);
armorScore += armorGetDamageThreshold(armor, damageType);
}
} else {
armorScore = 0;
}
Object* bestArmor = NULL;
int v15 = -1;
while (true) {
Object* candidate = _inven_find_type(critter, ITEM_TYPE_ARMOR, &v15);
if (candidate == NULL) {
break;
}
if (armor != candidate) {
int candidateScore = armorGetArmorClass(candidate);
for (int damageType = 0; damageType < DAMAGE_TYPE_COUNT; damageType++) {
candidateScore += armorGetDamageResistance(candidate, damageType);
candidateScore += armorGetDamageThreshold(candidate, damageType);
}
if (candidateScore > armorScore) {
armorScore = candidateScore;
bestArmor = candidate;
}
}
}
return bestArmor;
}
// Returns true if critter can use given item.
//
// That means the item is one of it's primary desires,
// or it's a humanoid being with intelligence at least 3,
// and the iteam is a something healing.
//
// 0x429B44
bool aiCanUseItem(Object* critter, Object* item)
{
if (critter == NULL) {
return false;
}
if (item == NULL) {
return false;
}
AiPacket* ai = aiGetPacketByNum(critter->data.critter.combat.aiPacket);
if (ai == NULL) {
return false;
}
for (int index = 0; index < AI_PACKET_CHEM_PRIMARY_DESIRE_COUNT; index++) {
if (item->pid == ai->chem_primary_desire[index]) {
return true;
}
}
if (critterGetBodyType(critter) != BODY_TYPE_BIPED) {
return false;
}
int killType = critterGetKillType(critter);
if (killType != KILL_TYPE_MAN
&& killType != KILL_TYPE_WOMAN
&& killType != KILL_TYPE_SUPER_MUTANT
&& killType != KILL_TYPE_GHOUL
&& killType != KILL_TYPE_CHILD) {
return false;
}
if (critterGetStat(critter, STAT_INTELLIGENCE) < 3) {
return false;
}
int itemPid = item->pid;
if (itemPid != PROTO_ID_STIMPACK
&& itemPid != PROTO_ID_SUPER_STIMPACK
&& itemPid != PROTO_ID_HEALING_POWDER) {
return false;
}
return true;
}
// Find best item type to use?
//
// 0x429C18
Object* _ai_search_environ(Object* critter, int itemType)
{
if (critterGetBodyType(critter) != BODY_TYPE_BIPED) {
return NULL;
}
Object** objects;
int count = objectListCreate(-1, gElevation, OBJ_TYPE_ITEM, &objects);
if (count == 0) {
return NULL;
}
_combat_obj = critter;
qsort(objects, count, sizeof(*objects), _compare_nearer);
int perception = critterGetStat(critter, STAT_PERCEPTION) + 5;
Object* item2 = critterGetItem2(critter);
Object* foundItem = NULL;
for (int index = 0; index < count; index++) {
Object* item = objects[index];
int distance = objectGetDistanceBetween(critter, item);
if (distance > perception) {
break;
}
if (itemGetType(item) == itemType) {
switch (itemType) {
case ITEM_TYPE_WEAPON:
if (_ai_can_use_weapon(critter, item, HIT_MODE_RIGHT_WEAPON_PRIMARY)) {
foundItem = item;
}
break;
case ITEM_TYPE_AMMO:
if (weaponCanBeReloadedWith(item2, item)) {
foundItem = item;
}
break;
case ITEM_TYPE_DRUG:
case ITEM_TYPE_MISC:
if (aiCanUseItem(critter, item)) {
foundItem = item;
}
break;
}
if (foundItem != NULL) {
break;
}
}
}
objectListFree(objects);
return foundItem;
}
// 0x429D60
Object* _ai_retrieve_object(Object* a1, Object* a2)
{
if (actionPickUp(a1, a2) != 0) {
return NULL;
}
_combat_turn_run();
Object* v3 = _inven_find_id(a1, a2->id);
// TODO: Not sure about this one.
if (v3 != NULL || a2->owner != NULL) {
a2 = NULL;
}
_combatAIInfoSetLastItem(v3, a2);
return v3;
}
// 0x429DB4
int _ai_pick_hit_mode(Object* a1, Object* a2, Object* a3)
{
if (a2 == NULL) {
return HIT_MODE_PUNCH;
}
if (itemGetType(a2) != ITEM_TYPE_WEAPON) {
return HIT_MODE_PUNCH;
}
int attackType = weaponGetAttackTypeForHitMode(a2, HIT_MODE_RIGHT_WEAPON_SECONDARY);
int intelligence = critterGetStat(a1, STAT_INTELLIGENCE);
if (attackType == ATTACK_TYPE_NONE || !_ai_can_use_weapon(a1, a2, HIT_MODE_RIGHT_WEAPON_SECONDARY)) {
return HIT_MODE_RIGHT_WEAPON_PRIMARY;
}
bool useSecondaryMode = false;
AiPacket* ai = aiGetPacket(a1);
if (ai == NULL) {
return HIT_MODE_PUNCH;
}
if (ai->area_attack_mode != -1) {
switch (ai->area_attack_mode) {
case AREA_ATTACK_MODE_ALWAYS:
useSecondaryMode = true;
break;
case AREA_ATTACK_MODE_SOMETIMES:
if (randomBetween(1, ai->secondary_freq) == 1) {
useSecondaryMode = true;
}
break;
case AREA_ATTACK_MODE_BE_SURE:
if (_determine_to_hit(a1, a3, HIT_LOCATION_TORSO, HIT_MODE_RIGHT_WEAPON_SECONDARY) >= 85
&& !_combat_safety_invalidate_weapon(a1, a2, 3, a3, 0)) {
useSecondaryMode = true;
}
break;
case AREA_ATTACK_MODE_BE_CAREFUL:
if (_determine_to_hit(a1, a3, HIT_LOCATION_TORSO, HIT_MODE_RIGHT_WEAPON_SECONDARY) >= 50
&& !_combat_safety_invalidate_weapon(a1, a2, 3, a3, 0)) {
useSecondaryMode = true;
}
break;
case AREA_ATTACK_MODE_BE_ABSOLUTELY_SURE:
if (_determine_to_hit(a1, a3, HIT_LOCATION_TORSO, HIT_MODE_RIGHT_WEAPON_SECONDARY) >= 95
&& !_combat_safety_invalidate_weapon(a1, a2, 3, a3, 0)) {
useSecondaryMode = true;
}
break;
}
} else {
if (intelligence < 6 || objectGetDistanceBetween(a1, a3) < 10) {
if (randomBetween(1, ai->secondary_freq) == 1) {
useSecondaryMode = true;
}
}
}
if (useSecondaryMode) {
if (!_caiHasWeapPrefType(ai, attackType)) {
useSecondaryMode = false;
}
}
if (useSecondaryMode) {
if (attackType != ATTACK_TYPE_THROW
|| _ai_search_inven_weap(a1, 0, a3) != NULL
|| statRoll(a1, STAT_INTELLIGENCE, 0, NULL) <= 1) {
return HIT_MODE_RIGHT_WEAPON_SECONDARY;
}
}
return HIT_MODE_RIGHT_WEAPON_PRIMARY;
}
// 0x429FC8
int _ai_move_steps_closer(Object* a1, Object* a2, int actionPoints, int a4)
{
if (actionPoints <= 0) {
return -1;
}
int distance = aiGetPacket(a1)->distance;
if (distance == DISTANCE_STAY) {
return -1;
}
if (distance == DISTANCE_STAY_CLOSE) {
if (a2 != gDude) {
int v10 = objectGetDistanceBetween(a1, gDude);
if (v10 > 5 && objectGetDistanceBetween(a2, gDude) > 5 && v10 + actionPoints > 5) {
return -1;
}
}
}
if (objectGetDistanceBetween(a1, a2) <= 1) {
return -1;
}
reg_anim_begin(2);
if (a4) {
_combatai_msg(a1, NULL, AI_MESSAGE_TYPE_MOVE, 0);
}
Object* v18 = a2;
bool shouldUnhide;
if ((a2->flags & 0x800) != 0) {
shouldUnhide = true;
a2->flags |= OBJECT_HIDDEN;
} else {
shouldUnhide = false;
}
if (pathfinderFindPath(a1, a1->tile, a2->tile, NULL, 0, _obj_blocking_at) == 0) {
_moveBlockObj = NULL;
if (pathfinderFindPath(a1, a1->tile, a2->tile, NULL, 0, _obj_ai_blocking_at) == 0
&& _moveBlockObj != NULL
&& (_moveBlockObj->pid >> 24) == OBJ_TYPE_CRITTER) {
if (shouldUnhide) {
a2->flags &= ~OBJECT_HIDDEN;
}
a2 = _moveBlockObj;
if ((a2->flags & 0x800) != 0) {
shouldUnhide = true;
a2->flags |= OBJECT_HIDDEN;
} else {
shouldUnhide = false;
}
}
}
if (shouldUnhide) {
a2->flags &= ~OBJECT_HIDDEN;
}
int tile = a2->tile;
if (a2 == v18) {
_cai_retargetTileFromFriendlyFire(a1, a2, &tile);
}
if (actionPoints >= critterGetStat(a1, STAT_MAXIMUM_ACTION_POINTS) / 2 && artCritterFidShouldRun(a1->fid)) {
if ((a2->flags & OBJECT_FLAG_0x800) != 0) {
reg_anim_obj_run_to_obj(a1, a2, actionPoints, 0);
} else {
reg_anim_obj_run_to_tile(a1, tile, a1->elevation, actionPoints, 0);
}
} else {
if ((a2->flags & OBJECT_FLAG_0x800) != 0) {
reg_anim_obj_move_to_obj(a1, a2, actionPoints, 0);
} else {
reg_anim_obj_move_to_tile(a1, tile, a1->elevation, actionPoints, 0);
}
}
if (reg_anim_end() != 0) {
return -1;
}
_combat_turn_run();
return 0;
}
// 0x42A1D4
int _cai_retargetTileFromFriendlyFire(Object* a1, Object* a2, int* a3)
{
if (a1 == NULL) {
return -1;
}
if (a2 == NULL) {
return -1;
}
if (a3 == NULL) {
return -1;
}
if (*a3 == -1) {
return -1;
}
if (_curr_crit_num == 0) {
return -1;
}
int tiles[32];
STRUCT_832 v1;
v1.field_0 = a1;
v1.field_4 = a2;
v1.field_32C = a1->data.critter.combat.team;
v1.field_330 = _combatai_rating(a1);
v1.field_328 = 0;
v1.field_338 = tiles;
v1.field_334 = *a3 != a1->tile;
v1.field_33C = 0;
v1.field_340 = critterGetStat(a1, STAT_INTELLIGENCE);
for (int index = 0; index < 32; index++) {
tiles[index] = -1;
}
for (int index = 0; index < _curr_crit_num; index++) {
Object* obj = _curr_crit_list[index];
if ((obj->data.critter.combat.results & DAM_DEAD) == 0
&& obj->data.critter.combat.team == v1.field_32C
&& _combatAIInfoGetLastTarget(obj) == v1.field_4
&& obj != v1.field_0) {
int v10 = _combatai_rating(obj);
if (v10 >= v1.field_330) {
v1.field_8[v1.field_328] = obj;
v1.field_198[v1.field_328] = v10;
v1.field_328 += 1;
}
}
}
_combat_obj = a1;
qsort(v1.field_8, v1.field_328, sizeof(*v1.field_8), _compare_nearer);
if (_cai_retargetTileFromFriendlyFireSubFunc(&v1, *a3) == 0) {
int minDistance = 99999;
int minDistanceIndex = -1;
for (int index = 0; index < 32; index++) {
int tile = tiles[index];
if (tile == -1) {
break;
}
if (_obj_blocking_at(NULL, tile, a1->elevation) == 0) {
int distance = tileDistanceBetween(*a3, tile);
if (distance < minDistance) {
minDistance = distance;
minDistanceIndex = index;
}
}
}
if (minDistanceIndex != -1) {
*a3 = tiles[minDistanceIndex];
}
}
return 0;
}
// 0x42A410
int _cai_retargetTileFromFriendlyFireSubFunc(STRUCT_832* a1, int tile)
{
if (a1->field_340 <= 0) {
return 0;
}
int distance = 1;
for (int index = 0; index < a1->field_328; index++) {
Object* obj = a1->field_8[index];
if (_cai_attackWouldIntersect(obj, a1->field_4, a1->field_0, tile, &distance)) {
debugPrint("In the way!");
a1->field_338[a1->field_33C] = tileGetTileInDirection(tile, (obj->rotation + 1) % ROTATION_COUNT, distance);
a1->field_338[a1->field_33C + 1] = tileGetTileInDirection(tile, (obj->rotation + 5) % ROTATION_COUNT, distance);
a1->field_340 -= 2;
a1->field_33C += 2;
break;
}
}
return 0;
}
// 0x42A518
bool _cai_attackWouldIntersect(Object* a1, Object* a2, Object* a3, int tile, int* distance)
{
int hitMode = HIT_MODE_RIGHT_WEAPON_PRIMARY;
bool aiming = false;
if (a1 == gDude) {
interfaceGetCurrentHitMode(&hitMode, &aiming);
}
Object* v8 = critterGetWeaponForHitMode(a1, hitMode);
if (v8 == NULL) {
return false;
}
if (_item_w_range(a1, hitMode) < 1) {
return false;
}
Object* object = NULL;
_make_straight_path_func(a1, a1->tile, a2->tile, NULL, &object, 32, _obj_shoot_blocking_at);
if (object != a3) {
if (!_combatTestIncidentalHit(a1, a2, a3, v8)) {
return false;
}
}
return true;
}
// 0x42A5B8
int _ai_switch_weapons(Object* a1, int* hitMode, Object** weapon, Object* a4)
{
*weapon = NULL;
*hitMode = HIT_MODE_PUNCH;
Object* bestWeapon = _ai_search_inven_weap(a1, 1, a4);
if (bestWeapon != NULL) {
*weapon = bestWeapon;
*hitMode = _ai_pick_hit_mode(a1, bestWeapon, a4);
} else {
Object* v8 = _ai_search_environ(a1, ITEM_TYPE_WEAPON);
if (v8 == NULL) {
if (_item_w_mp_cost(a1, *hitMode, 0) <= a1->data.critter.combat.ap) {
return 0;
}
return -1;
}
Object* v9 = _ai_retrieve_object(a1, v8);
if (v9 != NULL) {
*weapon = v9;
*hitMode = _ai_pick_hit_mode(a1, v9, a4);
}
}
if (*weapon != NULL) {
_inven_wield(a1, *weapon, 1);
_combat_turn_run();
if (_item_w_mp_cost(a1, *hitMode, 0) <= a1->data.critter.combat.ap) {
return 0;
}
}
return -1;
}
// 0x42A670
int _ai_called_shot(Object* a1, Object* a2, int a3)
{
AiPacket* ai;
int v5;
int v6;
int v7;
int combat_difficulty;
v5 = 3;
if (_item_w_mp_cost(a1, a3, 1) <= a1->data.critter.combat.ap) {
if (_item_w_called_shot(a1, a3)) {
ai = aiGetPacket(a1);
if (randomBetween(1, ai->called_freq) == 1) {
combat_difficulty = 1;
configGetInt(&gGameConfig, GAME_CONFIG_PREFERENCES_KEY, GAME_CONFIG_COMBAT_DIFFICULTY_KEY, &combat_difficulty);
if (combat_difficulty) {
if (combat_difficulty == 2) {
v6 = 3;
} else {
v6 = 5;
}
} else {
v6 = 7;
}
if (critterGetStat(a1, STAT_INTELLIGENCE) >= v6) {
v5 = randomBetween(0, 8);
v7 = _determine_to_hit(a1, a2, a3, v5);
if (v7 < ai->min_to_hit) {
v5 = 3;
}
}
}
}
}
return v5;
}
// 0x42A748
int _ai_attack(Object* a1, Object* a2, int a3)
{
int v6;
if (a1->data.critter.combat.maneuver & CRITTER_MANUEVER_FLEEING) {
return -1;
}
reg_anim_begin(2);
reg_anim_set_rotation_to_tile(a1, a2->tile);
reg_anim_end();
_combat_turn_run();
v6 = _ai_called_shot(a1, a2, a3);
if (_combat_attack(a1, a2, a3, v6)) {
return -1;
}
_combat_turn_run();
return 0;
}
// 0x42A7D8
int _ai_try_attack(Object* a1, Object* a2)
{
_critter_set_who_hit_me(a1, a2);
CritterCombatData* combatData = &(a1->data.critter.combat);
int v38 = 1;
Object* weapon = critterGetItem2(a1);
if (weapon != NULL && itemGetType(weapon) != ITEM_TYPE_WEAPON) {
weapon = NULL;
}
int hitMode = _ai_pick_hit_mode(a1, weapon, a2);
int minToHit = aiGetPacket(a1)->min_to_hit;
int actionPoints = a1->data.critter.combat.ap;
int v31 = 0;
int v42 = 0;
if (weapon == NULL) {
if (critterGetBodyType(a2) != BODY_TYPE_BIPED
|| ((a2->fid & 0xF000) >> 12 != 0)
|| !artExists(buildFid(1, a1->fid & 0xFFF, ANIM_THROW_PUNCH, 0, a1->rotation + 1))
|| _combat_safety_invalidate_weapon(a1, weapon, HIT_MODE_RIGHT_WEAPON_PRIMARY, a2, &v31)) {
_ai_switch_weapons(a1, &hitMode, &weapon, a2);
}
}
unsigned char v30[800];
Object* ammo = NULL;
for (int attempt = 0; attempt < 10; attempt++) {
if ((combatData->results & (DAM_KNOCKED_OUT | DAM_DEAD | DAM_LOSE_TURN)) != 0) {
break;
}
int reason = _combat_check_bad_shot(a1, a2, hitMode, false);
if (reason == 1) {
// out of ammo
if (_ai_have_ammo(a1, weapon, &ammo)) {
int v9 = _item_w_reload(weapon, ammo);
if (v9 == 0 && ammo != NULL) {
_obj_destroy(ammo);
}
if (v9 != -1) {
int volume = _gsound_compute_relative_volume(a1);
const char* sfx = sfxBuildWeaponName(WEAPON_SOUND_EFFECT_READY, weapon, hitMode, NULL);
_gsound_play_sfx_file_volume(sfx, volume);
_ai_magic_hands(a1, weapon, 5002);
int actionPoints = a1->data.critter.combat.ap;
if (actionPoints >= 2) {
a1->data.critter.combat.ap = actionPoints - 2;
} else {
a1->data.critter.combat.ap = 0;
}
}
} else {
ammo = _ai_search_environ(a1, ITEM_TYPE_AMMO);
if (ammo != NULL) {
ammo = _ai_retrieve_object(a1, ammo);
if (ammo != NULL) {
int v15 = _item_w_reload(weapon, ammo);
if (v15 == 0) {
_obj_destroy(ammo);
}
if (v15 != -1) {
int volume = _gsound_compute_relative_volume(a1);
const char* sfx = sfxBuildWeaponName(WEAPON_SOUND_EFFECT_READY, weapon, hitMode, NULL);
_gsound_play_sfx_file_volume(sfx, volume);
_ai_magic_hands(a1, weapon, 5002);
int actionPoints = a1->data.critter.combat.ap;
if (actionPoints >= 2) {
a1->data.critter.combat.ap = actionPoints - 2;
} else {
a1->data.critter.combat.ap = 0;
}
}
}
} else {
int volume = _gsound_compute_relative_volume(a1);
const char* sfx = sfxBuildWeaponName(WEAPON_SOUND_EFFECT_OUT_OF_AMMO, weapon, hitMode, NULL);
_gsound_play_sfx_file_volume(sfx, volume);
_ai_magic_hands(a1, weapon, 5001);
if (_inven_unwield(a1, 1) == 0) {
_combat_turn_run();
}
_ai_switch_weapons(a1, &hitMode, &weapon, a2);
}
}
} else if (reason == 3 || reason == 6 || reason == 7) {
// 3 - not enough action points
// 6 - crippled one arm for two-handed weapon
// 7 - both hands crippled
if (_ai_switch_weapons(a1, &hitMode, &weapon, a2) == -1) {
return -1;
}
} else if (reason == 2) {
// target out of range
int accuracy = _determine_to_hit_no_range(a1, a2, HIT_LOCATION_UNCALLED, hitMode, v30);
if (accuracy < minToHit) {
const char* name = critterGetName(a1);
debugPrint("%s: FLEEING: Can't possibly Hit Target!", name);
_ai_run_away(a1, a2);
return 0;
}
if (weapon != NULL) {
if (_ai_move_steps_closer(a1, a2, actionPoints, v38) == -1) {
return -1;
}
v38 = 0;
} else {
if (_ai_switch_weapons(a1, &hitMode, &weapon, a2) == -1 || weapon == NULL) {
if (_ai_move_steps_closer(a1, a2, a1->data.critter.combat.ap, v38) == -1) {
return -1;
}
}
v38 = 0;
}
} else if (reason == 5) {
// aim is blocked
if (_ai_move_steps_closer(a1, a2, a1->data.critter.combat.ap, v38) == -1) {
return -1;
}
v38 = 0;
} else if (reason == 0) {
int accuracy = _determine_to_hit(a1, a2, HIT_LOCATION_UNCALLED, hitMode);
if (v31) {
if (_ai_move_away(a1, a2, v31) == -1) {
return -1;
}
}
if (accuracy < minToHit) {
int v22 = _determine_to_hit_no_range(a1, a2, HIT_LOCATION_UNCALLED, hitMode, v30);
if (v22 < minToHit) {
const char* name = critterGetName(a1);
debugPrint("%s: FLEEING: Can't possibly Hit Target!", name);
_ai_run_away(a1, a2);
return 0;
}
if (actionPoints > 0) {
int v24 = pathfinderFindPath(a1, a1->tile, a2->tile, v30, 0, _obj_blocking_at);
if (v24 == 0) {
v42 = actionPoints;
} else {
if (v24 < actionPoints) {
actionPoints = v24;
}
int tile = a1->tile;
int index;
for (index = 0; index < actionPoints; index++) {
tile = tileGetTileInDirection(tile, v30[index], 1);
v42++;
int v27 = _determine_to_hit_from_tile(a1, tile, a2, HIT_LOCATION_UNCALLED, hitMode);
if (v27 >= minToHit) {
break;
}
}
if (index == actionPoints) {
v42 = actionPoints;
}
}
}
if (_ai_move_steps_closer(a1, a2, v42, v38) == -1) {
const char* name = critterGetName(a1);
debugPrint("%s: FLEEING: Can't possibly get closer to Target!", name);
_ai_run_away(a1, a2);
return 0;
}
v38 = 0;
if (_ai_attack(a1, a2, hitMode) == -1 || _item_w_mp_cost(a1, hitMode, 0) > a1->data.critter.combat.ap) {
return -1;
}
} else {
if (_ai_attack(a1, a2, hitMode) == -1 || _item_w_mp_cost(a1, hitMode, 0) > a1->data.critter.combat.ap) {
return -1;
}
}
}
}
return -1;
}
// Something with using flare
//
// 0x42AE90
int _cAIPrepWeaponItem(Object* critter, Object* item)
{
if (item != NULL && critterGetStat(critter, STAT_INTELLIGENCE) >= 3 && item->pid == PROTO_ID_FLARE && lightGetLightLevel() < 55705) {
_protinst_use_item(critter, item);
}
return 0;
}
// 0x42AECC
void _cai_attempt_w_reload(Object* critter_obj, int a2)
{
Object* weapon_obj;
Object* ammo_obj;
int v5;
int v9;
const char* sfx;
int v10;
weapon_obj = critterGetItem2(critter_obj);
if (weapon_obj == NULL) {
return;
}
v5 = ammoGetQuantity(weapon_obj);
if (v5 < ammoGetCapacity(weapon_obj) && _ai_have_ammo(critter_obj, weapon_obj, &ammo_obj)) {
v9 = _item_w_reload(weapon_obj, ammo_obj);
if (v9 == 0) {
_obj_destroy(ammo_obj);
}
if (v9 != -1 && objectIsPartyMember(critter_obj)) {
v10 = _gsound_compute_relative_volume(critter_obj);
sfx = sfxBuildWeaponName(WEAPON_SOUND_EFFECT_READY, weapon_obj, HIT_MODE_RIGHT_WEAPON_PRIMARY, NULL);
_gsound_play_sfx_file_volume(sfx, v10);
if (a2) {
_ai_magic_hands(critter_obj, weapon_obj, 5002);
}
}
}
}
// 0x42AF78
void _combat_ai_begin(int a1, void* a2)
{
_curr_crit_num = a1;
if (a1 != 0) {
_curr_crit_list = internal_malloc(sizeof(Object*) * a1);
if (_curr_crit_list) {
memcpy(_curr_crit_list, a2, sizeof(Object*) * a1);
} else {
_curr_crit_num = 0;
}
}
}
// 0x42AFBC
void _combat_ai_over()
{
if (_curr_crit_num) {
internal_free(_curr_crit_list);
}
_curr_crit_num = 0;
}
// 0x42AFDC
int _cai_perform_distance_prefs(Object* a1, Object* a2)
{
if (a1->data.critter.combat.ap <= 0) {
return -1;
}
int distance = aiGetPacket(a1)->distance;
if (a2 != NULL) {
if ((a2->data.critter.combat.ap & DAM_DEAD) != 0) {
a2 = NULL;
}
}
switch (distance) {
case DISTANCE_STAY_CLOSE:
if (a1->data.critter.combat.whoHitMe != gDude) {
int distance = objectGetDistanceBetween(a1, gDude);
if (distance > 5) {
_ai_move_steps_closer(a1, gDude, distance - 5, 0);
}
}
break;
case DISTANCE_CHARGE:
if (a2 != NULL) {
_ai_move_steps_closer(a1, a2, a1->data.critter.combat.ap, 1);
}
break;
case DISTANCE_SNIPE:
if (a2 != NULL) {
if (objectGetDistanceBetween(a1, a2) < 10) {
// NOTE: some odd code omitted
_ai_move_away(a1, a2, 10);
}
}
break;
}
int tile = a1->tile;
if (_cai_retargetTileFromFriendlyFire(a1, a2, &tile) == 0 && tile != a1->tile) {
reg_anim_begin(2);
reg_anim_obj_move_to_tile(a1, tile, a1->elevation, a1->data.critter.combat.ap, 0);
if (reg_anim_end() != 0) {
return -1;
}
_combat_turn_run();
}
return 0;
}
// 0x42B100
int _cai_get_min_hp(AiPacket* ai)
{
if (ai == NULL) {
return 0;
}
int run_away_mode = ai->run_away_mode;
if (run_away_mode >= 0 && run_away_mode < RUN_AWAY_MODE_COUNT) {
return _hp_run_away_value[run_away_mode];
} else if (run_away_mode == -1) {
return ai->min_hp;
}
return 0;
}
// 0x42B130
void _combat_ai(Object* a1, Object* a2)
{
AiPacket* ai = aiGetPacket(a1);
int hpRatio = _cai_get_min_hp(ai);
if (ai->run_away_mode != -1) {
int v7 = critterGetStat(a1, STAT_MAXIMUM_HIT_POINTS) * hpRatio / 100;
int minimumHitPoints = critterGetStat(a1, STAT_MAXIMUM_HIT_POINTS) - v7;
int currentHitPoints = critterGetStat(a1, STAT_CURRENT_HIT_POINTS);
const char* name = critterGetName(a1);
debugPrint("\n%s minHp = %d; curHp = %d", name, minimumHitPoints, currentHitPoints);
}
CritterCombatData* combatData = &(a1->data.critter.combat);
if ((combatData->maneuver & CRITTER_MANUEVER_FLEEING) != 0
|| (combatData->results & ai->hurt_too_much) != 0
|| critterGetStat(a1, STAT_CURRENT_HIT_POINTS) < ai->min_hp) {
const char* name = critterGetName(a1);
debugPrint("%s: FLEEING: I'm Hurt!", name);
_ai_run_away(a1, a2);
return;
}
if (_ai_check_drugs(a1)) {
const char* name = critterGetName(a1);
debugPrint("%s: FLEEING: I need DRUGS!", name);
_ai_run_away(a1, a2);
} else {
if (a2 == NULL) {
a2 = _ai_danger_source(a1);
}
_cai_perform_distance_prefs(a1, a2);
if (a2 != NULL) {
_ai_try_attack(a1, a2);
}
}
if (a2 != NULL
&& (a1->data.critter.combat.results & DAM_DEAD) == 0
&& a1->data.critter.combat.ap != 0
&& objectGetDistanceBetween(a1, a2) > ai->max_dist) {
Object* v13 = _combatAIInfoGetFriendlyDead(a1);
if (v13 != NULL) {
_ai_move_away(a1, v13, 10);
_combatAIInfoSetFriendlyDead(a1, NULL);
} else {
int perception = critterGetStat(a1, STAT_PERCEPTION);
if (!_ai_find_friend(a1, perception * 2, 5)) {
combatData->maneuver |= CRITTER_MANEUVER_STOP_ATTACKING;
}
}
}
if (a2 == NULL && !objectIsPartyMember(a1)) {
Object* whoHitMe = combatData->whoHitMe;
if (whoHitMe != NULL) {
if ((whoHitMe->data.critter.combat.results & DAM_DEAD) == 0 && combatData->damageLastTurn > 0) {
Object* v16 = _combatAIInfoGetFriendlyDead(a1);
if (v16 != NULL) {
_ai_move_away(a1, v16, 10);
_combatAIInfoSetFriendlyDead(a1, NULL);
} else {
const char* name = critterGetName(a1);
debugPrint("%s: FLEEING: Somebody is shooting at me that I can't see!");
_ai_run_away(a1, NULL);
}
}
}
}
Object* v18 = _combatAIInfoGetFriendlyDead(a1);
if (v18 != NULL) {
_ai_move_away(a1, v18, 10);
if (objectGetDistanceBetween(a1, v18) >= 10) {
_combatAIInfoSetFriendlyDead(a1, NULL);
}
}
Object* v20;
int v21 = 5; // 0x42B156
if (a1->data.critter.combat.team != 0) {
v20 = _ai_find_nearest_team_in_combat(a1, a1, 1);
} else {
v20 = gDude;
if (objectIsPartyMember(a1)) {
// NOTE: Uninline
int distance = aiGetDistance(a1);
if (distance != -1) {
v21 = _aiPartyMemberDistances[distance];
}
}
}
if (a2 == NULL && v20 != NULL && objectGetDistanceBetween(a1, v20) > v21) {
int v23 = objectGetDistanceBetween(a1, v20);
_ai_move_steps_closer(a1, v20, v23 - v21, 0);
} else {
if (a1->data.critter.combat.ap > 0) {
debugPrint("\n>>>NOTE: %s had extra AP's to use!<<<", critterGetName(a1));
_cai_perform_distance_prefs(a1, a2);
}
}
}
// 0x42B3FC
bool _combatai_want_to_join(Object* a1)
{
_process_bk();
if ((a1->flags & OBJECT_HIDDEN) != 0) {
return false;
}
if (a1->elevation != gDude->elevation) {
return false;
}
if ((a1->data.critter.combat.results & (DAM_DEAD | DAM_KNOCKED_OUT)) != 0) {
return false;
}
if (a1->data.critter.combat.damageLastTurn > 0) {
return true;
}
if (a1->sid != -1) {
scriptSetObjects(a1->sid, NULL, NULL);
scriptSetFixedParam(a1->sid, 5);
scriptExecProc(a1->sid, SCRIPT_PROC_COMBAT);
}
if ((a1->data.critter.combat.maneuver & CRITTER_MANEUVER_0x01) != 0) {
return true;
}
if ((a1->data.critter.combat.maneuver & CRITTER_MANEUVER_STOP_ATTACKING) == 0) {
return false;
}
if ((a1->data.critter.combat.maneuver & CRITTER_MANUEVER_FLEEING) == 0) {
return false;
}
if (_ai_danger_source(a1) == NULL) {
return false;
}
return true;
}
// 0x42B4A8
bool _combatai_want_to_stop(Object* a1)
{
_process_bk();
if ((a1->data.critter.combat.maneuver & CRITTER_MANEUVER_STOP_ATTACKING) != 0) {
return true;
}
if ((a1->data.critter.combat.results & (DAM_KNOCKED_OUT | DAM_DEAD)) != 0) {
return true;
}
if ((a1->data.critter.combat.maneuver & CRITTER_MANUEVER_FLEEING) != 0) {
return true;
}
Object* v4 = _ai_danger_source(a1);
return v4 == NULL || !objectCanHearObject(a1, v4);
}
// 0x42B504
int critterSetTeam(Object* obj, int team)
{
if ((obj->pid >> 24) != OBJ_TYPE_CRITTER) {
return 0;
}
obj->data.critter.combat.team = team;
if (obj->data.critter.combat.whoHitMeCid == -1) {
_critter_set_who_hit_me(obj, NULL);
debugPrint("\nError: CombatData found with invalid who_hit_me!");
return -1;
}
Object* whoHitMe = obj->data.critter.combat.whoHitMe;
if (whoHitMe != NULL) {
if (whoHitMe->data.critter.combat.team == team) {
_critter_set_who_hit_me(obj, NULL);
}
}
_combatAIInfoSetLastTarget(obj, NULL);
if (isInCombat()) {
bool outlineWasEnabled = obj->outline != 0 && (obj->outline & OUTLINE_DISABLED) == 0;
objectClearOutline(obj, NULL);
int outlineType;
if (obj->data.critter.combat.team == gDude->data.critter.combat.team) {
outlineType = OUTLINE_TYPE_2;
} else {
outlineType = OUTLINE_TYPE_HOSTILE;
}
objectSetOutline(obj, outlineType, NULL);
if (outlineWasEnabled) {
Rect rect;
objectEnableOutline(obj, &rect);
tileWindowRefreshRect(&rect, obj->elevation);
}
}
return 0;
}
// 0x42B5D4
int critterSetAiPacket(Object* object, int aiPacket)
{
if ((object->pid >> 24) != OBJ_TYPE_CRITTER) {
return -1;
}
object->data.critter.combat.aiPacket = aiPacket;
if (_isPotentialPartyMember(object)) {
Proto* proto;
if (protoGetProto(object->pid, &proto) == -1) {
return -1;
}
proto->critter.aiPacket = aiPacket;
}
return 0;
}
// combatai_msg
// 0x42B634
int _combatai_msg(Object* a1, Attack* attack, int type, int delay)
{
if ((a1->pid >> 24) != OBJ_TYPE_CRITTER) {
return -1;
}
bool combatTaunts = true;
configGetBool(&gGameConfig, GAME_CONFIG_PREFERENCES_KEY, GAME_CONFIG_COMBAT_TAUNTS_KEY, &combatTaunts);
if (!combatTaunts) {
return -1;
}
if (a1 == gDude) {
return -1;
}
if (a1->data.critter.combat.results & 0x81) {
return -1;
}
AiPacket* ai = aiGetPacket(a1);
debugPrint("%s is using %s packet with a %d%% chance to taunt\n", objectGetName(a1), ai->name, ai->chance);
if (randomBetween(1, 100) > ai->chance) {
return -1;
}
int start;
int end;
char* string;
switch (type) {
case AI_MESSAGE_TYPE_RUN:
start = ai->run.start;
end = ai->run.end;
string = _attack_str;
break;
case AI_MESSAGE_TYPE_MOVE:
start = ai->move.start;
end = ai->move.end;
string = _attack_str;
break;
case AI_MESSAGE_TYPE_ATTACK:
start = ai->attack.start;
end = ai->attack.end;
string = _attack_str;
break;
case AI_MESSAGE_TYPE_MISS:
start = ai->miss.start;
end = ai->miss.end;
string = _target_str;
break;
case AI_MESSAGE_TYPE_HIT:
start = ai->hit[attack->defenderHitLocation].start;
end = ai->hit[attack->defenderHitLocation].end;
string = _target_str;
break;
default:
return -1;
}
if (end < start) {
return -1;
}
MessageListItem messageListItem;
messageListItem.num = randomBetween(start, end);
if (!messageListGetItem(&gCombatAiMessageList, &messageListItem)) {
debugPrint("\nERROR: combatai_msg: Couldn't find message # %d for %s", messageListItem.num, critterGetName(a1));
return -1;
}
debugPrint("%s said message %d\n", objectGetName(a1), messageListItem.num);
strncpy(string, messageListItem.text, 259);
// TODO: Get rid of casts.
return reg_anim_11_0(a1, (Object*)type, (AnimationProc*)_ai_print_msg, delay);
}
// 0x42B80C
int _ai_print_msg(Object* critter, int type)
{
if (textObjectsGetCount() > 0) {
return 0;
}
char* string;
switch (type) {
case AI_MESSAGE_TYPE_HIT:
case AI_MESSAGE_TYPE_MISS:
string = _target_str;
break;
default:
string = _attack_str;
break;
}
AiPacket* ai = aiGetPacket(critter);
Rect rect;
if (textObjectAdd(critter, string, ai->font, ai->color, ai->outline_color, &rect) == 0) {
tileWindowRefreshRect(&rect, critter->elevation);
}
return 0;
}
// Returns random critter for attacking as a result of critical weapon failure.
//
// 0x42B868
Object* _combat_ai_random_target(Attack* attack)
{
// Looks like this function does nothing because it's result is not used. I
// suppose it was planned to use range as a condition below, but it was
// later moved into 0x426614, but remained here.
_item_w_range(attack->attacker, attack->hitMode);
Object* critter = NULL;
if (_curr_crit_num != 0) {
// Randomize starting critter.
int start = randomBetween(0, _curr_crit_num - 1);
int index = start;
while (true) {
Object* obj = _curr_crit_list[index];
if (obj != attack->attacker
&& obj != attack->defender
&& _can_see(attack->attacker, obj)
&& _combat_check_bad_shot(attack->attacker, obj, attack->hitMode, false)) {
critter = obj;
break;
}
index += 1;
if (index == _curr_crit_num) {
index = 0;
}
if (index == start) {
break;
}
}
}
return critter;
}
// 0x42B90C
int _combatai_rating(Object* obj)
{
int melee_damage;
Object* item;
int weapon_damage_min;
int weapon_damage_max;
if (obj == NULL) {
return 0;
}
if ((obj->fid & 0xF000000) >> 24 != OBJ_TYPE_CRITTER) {
return 0;
}
if ((obj->data.critter.combat.results & (DAM_DEAD | DAM_KNOCKED_OUT)) != 0) {
return 0;
}
melee_damage = critterGetStat(obj, STAT_MELEE_DAMAGE);
item = critterGetItem2(obj);
if (item != NULL && itemGetType(item) == ITEM_TYPE_WEAPON && weaponGetDamageMinMax(item, &weapon_damage_min, &weapon_damage_max) != -1 && melee_damage < weapon_damage_max) {
melee_damage = weapon_damage_max;
}
item = critterGetItem1(obj);
if (item != NULL && itemGetType(item) == ITEM_TYPE_WEAPON && weaponGetDamageMinMax(item, &weapon_damage_min, &weapon_damage_max) != -1 && melee_damage < weapon_damage_max) {
melee_damage = weapon_damage_max;
}
return melee_damage + critterGetStat(obj, STAT_ARMOR_CLASS);
}
// 0x42B9D4
int _combatai_check_retaliation(Object* a1, Object* a2)
{
Object* whoHitMe = a1->data.critter.combat.whoHitMe;
if (whoHitMe != NULL) {
int v3 = _combatai_rating(a2);
int result = _combatai_rating(whoHitMe);
if (v3 <= result) {
return result;
}
}
return _critter_set_who_hit_me(a1, a2);
}
// 0x42BA04
bool objectCanHearObject(Object* a1, Object* a2)
{
if (a2 == NULL) {
return false;
}
int distance = objectGetDistanceBetween(a2, a1);
int perception = critterGetStat(a1, STAT_PERCEPTION);
int sneak = skillGetValue(a2, SKILL_SNEAK);
if (_can_see(a1, a2)) {
int v8 = perception * 5;
if ((a2->flags & OBJECT_FLAG_0x20000) != 0) {
v8 /= 2;
}
if (a2 == gDude) {
if (dudeIsSneaking()) {
v8 /= 4;
if (sneak > 120) {
v8 -= 1;
}
} else if (dudeHasState(0)) {
v8 = v8 * 2 / 3;
}
}
if (distance <= v8) {
return true;
}
}
int v12;
if (isInCombat()) {
v12 = perception * 2;
} else {
v12 = perception;
}
if (a2 == gDude) {
if (dudeIsSneaking()) {
v12 /= 4;
if (sneak > 120) {
v12 -= 1;
}
} else if (dudeHasState(0)) {
v12 = v12 * 2 / 3;
}
}
if (distance <= v12) {
return true;
}
return false;
}
// Load combatai.msg and apply language filter.
//
// 0x42BB34
int aiMessageListInit()
{
if (!messageListInit(&gCombatAiMessageList)) {
return -1;
}
char path[MAX_PATH];
sprintf(path, "%s%s", asc_5186C8, "combatai.msg");
if (!messageListLoad(&gCombatAiMessageList, path)) {
return -1;
}
bool languageFilter;
configGetBool(&gGameConfig, GAME_CONFIG_PREFERENCES_KEY, GAME_CONFIG_LANGUAGE_FILTER_KEY, &languageFilter);
if (languageFilter) {
messageListFilterBadwords(&gCombatAiMessageList);
}
return 0;
}
// NOTE: Inlined.
//
// 0x42BBD8
int aiMessageListFree()
{
if (!messageListFree(&gCombatAiMessageList)) {
return -1;
}
return 0;
}
// 0x42BBF0
void aiMessageListReloadIfNeeded()
{
bool languageFilter = false;
configGetBool(&gGameConfig, GAME_CONFIG_PREFERENCES_KEY, GAME_CONFIG_LANGUAGE_FILTER_KEY, &languageFilter);
if (languageFilter != gLanguageFilter) {
gLanguageFilter = languageFilter;
if (languageFilter) {
messageListFilterBadwords(&gCombatAiMessageList);
} else {
// NOTE: Uninline.
aiMessageListFree();
aiMessageListInit();
}
}
}
// 0x42BC60
void _combatai_notify_onlookers(Object* a1)
{
for (int index = 0; index < _curr_crit_num; index++) {
Object* obj = _curr_crit_list[index];
if ((obj->data.critter.combat.maneuver & CRITTER_MANEUVER_0x01) == 0) {
if (objectCanHearObject(obj, a1)) {
obj->data.critter.combat.maneuver |= CRITTER_MANEUVER_0x01;
if ((a1->data.critter.combat.results & DAM_DEAD) != 0) {
if (!objectCanHearObject(obj, obj->data.critter.combat.whoHitMe)) {
debugPrint("\nSomebody Died and I don't know why! Run!!!");
_combatAIInfoSetFriendlyDead(obj, a1);
}
}
}
}
}
}
// 0x42BCD4
void _combatai_notify_friends(Object* a1)
{
int team = a1->data.critter.combat.team;
for (int index = 0; index < _curr_crit_num; index++) {
Object* obj = _curr_crit_list[index];
if ((obj->data.critter.combat.maneuver & CRITTER_MANEUVER_0x01) == 0 && team == obj->data.critter.combat.team) {
if (objectCanHearObject(obj, a1)) {
obj->data.critter.combat.maneuver |= CRITTER_MANEUVER_0x01;
}
}
}
}
// 0x42BD28
void _combatai_delete_critter(Object* obj)
{
// TODO: Check entire function.
for (int i = 0; i < _curr_crit_num; i++) {
if (obj == _curr_crit_list[i]) {
_curr_crit_num--;
_curr_crit_list[i] = _curr_crit_list[_curr_crit_num];
_curr_crit_list[_curr_crit_num] = obj;
break;
}
}
}