391 lines
11 KiB
C++
391 lines
11 KiB
C++
#include "sfall_opcodes.h"
|
|
|
|
#include "art.h"
|
|
#include "combat.h"
|
|
#include "debug.h"
|
|
#include "game.h"
|
|
#include "interface.h"
|
|
#include "interpreter.h"
|
|
#include "item.h"
|
|
#include "message.h"
|
|
#include "mouse.h"
|
|
#include "object.h"
|
|
#include "sfall_global_vars.h"
|
|
#include "sfall_lists.h"
|
|
#include "stat.h"
|
|
#include "svga.h"
|
|
#include "worldmap.h"
|
|
|
|
namespace fallout {
|
|
|
|
static constexpr int kVersionMajor = 4;
|
|
static constexpr int kVersionMinor = 3;
|
|
static constexpr int kVersionPatch = 4;
|
|
|
|
// read_byte
|
|
static void opReadByte(Program* program)
|
|
{
|
|
int addr = programStackPopInteger(program);
|
|
|
|
int value = 0;
|
|
switch (addr) {
|
|
case 0x56D38C:
|
|
value = combatGetTargetHighlight();
|
|
break;
|
|
default:
|
|
debugPrint("%s: attempt to 'read_byte' at 0x%x", program->name, addr);
|
|
break;
|
|
}
|
|
|
|
programStackPushInteger(program, value);
|
|
}
|
|
|
|
// set_pc_base_stat
|
|
static void op_set_pc_base_stat(Program* program)
|
|
{
|
|
// CE: Implementation is different. Sfall changes value directly on the
|
|
// dude's proto, without calling |critterSetBaseStat|. This function has
|
|
// important call to update derived stats, which is not present in Sfall.
|
|
int value = programStackPopInteger(program);
|
|
int stat = programStackPopInteger(program);
|
|
critterSetBaseStat(gDude, stat, value);
|
|
}
|
|
|
|
// set_pc_extra_stat
|
|
static void opSetPcBonusStat(Program* program)
|
|
{
|
|
// CE: Implementation is different. Sfall changes value directly on the
|
|
// dude's proto, without calling |critterSetBonusStat|. This function has
|
|
// important call to update derived stats, which is not present in Sfall.
|
|
int value = programStackPopInteger(program);
|
|
int stat = programStackPopInteger(program);
|
|
critterSetBonusStat(gDude, stat, value);
|
|
}
|
|
|
|
// get_pc_base_stat
|
|
static void op_get_pc_base_stat(Program* program)
|
|
{
|
|
// CE: Implementation is different. Sfall obtains value directly from
|
|
// dude's proto. This can have unforeseen consequences when dealing with
|
|
// current stats.
|
|
int stat = programStackPopInteger(program);
|
|
programStackPushInteger(program, critterGetBaseStat(gDude, stat));
|
|
}
|
|
|
|
// get_pc_extra_stat
|
|
static void opGetPcBonusStat(Program* program)
|
|
{
|
|
int stat = programStackPopInteger(program);
|
|
int value = critterGetBonusStat(gDude, stat);
|
|
programStackPushInteger(program, value);
|
|
}
|
|
|
|
// in_world_map
|
|
static void op_in_world_map(Program* program)
|
|
{
|
|
programStackPushInteger(program, GameMode::isInGameMode(GameMode::kWorldmap) ? 1 : 0);
|
|
}
|
|
|
|
// set_world_map_pos
|
|
static void op_set_world_map_pos(Program* program)
|
|
{
|
|
int y = programStackPopInteger(program);
|
|
int x = programStackPopInteger(program);
|
|
wmSetPartyWorldPos(x, y);
|
|
}
|
|
|
|
// active_hand
|
|
static void opGetCurrentHand(Program* program)
|
|
{
|
|
programStackPushInteger(program, interfaceGetCurrentHand());
|
|
}
|
|
|
|
// set_sfall_global
|
|
static void opSetGlobalVar(Program* program)
|
|
{
|
|
ProgramValue value = programStackPopValue(program);
|
|
ProgramValue variable = programStackPopValue(program);
|
|
|
|
if ((variable.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
|
|
const char* key = programGetString(program, variable.opcode, variable.integerValue);
|
|
sfallGlobalVarsStore(key, value.integerValue);
|
|
} else if (variable.opcode == VALUE_TYPE_INT) {
|
|
sfallGlobalVarsStore(variable.integerValue, value.integerValue);
|
|
}
|
|
}
|
|
|
|
// get_sfall_global_int
|
|
static void opGetGlobalInt(Program* program)
|
|
{
|
|
ProgramValue variable = programStackPopValue(program);
|
|
|
|
int value = 0;
|
|
if ((variable.opcode & VALUE_TYPE_MASK) == VALUE_TYPE_STRING) {
|
|
const char* key = programGetString(program, variable.opcode, variable.integerValue);
|
|
sfallGlobalVarsFetch(key, value);
|
|
} else if (variable.opcode == VALUE_TYPE_INT) {
|
|
sfallGlobalVarsFetch(variable.integerValue, value);
|
|
}
|
|
|
|
programStackPushInteger(program, value);
|
|
}
|
|
|
|
// get_game_mode
|
|
static void opGetGameMode(Program* program)
|
|
{
|
|
programStackPushInteger(program, GameMode::getCurrentGameMode());
|
|
}
|
|
|
|
// set_car_current_town
|
|
static void op_set_car_current_town(Program* program)
|
|
{
|
|
int area = programStackPopInteger(program);
|
|
wmCarSetCurrentArea(area);
|
|
}
|
|
|
|
// list_begin
|
|
static void opListBegin(Program* program)
|
|
{
|
|
int listType = programStackPopInteger(program);
|
|
int listId = sfallListsCreate(listType);
|
|
programStackPushInteger(program, listId);
|
|
}
|
|
|
|
// list_next
|
|
static void opListNext(Program* program)
|
|
{
|
|
int listId = programStackPopInteger(program);
|
|
Object* obj = sfallListsGetNext(listId);
|
|
programStackPushPointer(program, obj);
|
|
}
|
|
|
|
// list_end
|
|
static void opListEnd(Program* program)
|
|
{
|
|
int listId = programStackPopInteger(program);
|
|
sfallListsDestroy(listId);
|
|
}
|
|
|
|
// sfall_ver_major
|
|
static void opGetVersionMajor(Program* program)
|
|
{
|
|
programStackPushInteger(program, kVersionMajor);
|
|
}
|
|
|
|
// sfall_ver_minor
|
|
static void opGetVersionMinor(Program* program)
|
|
{
|
|
programStackPushInteger(program, kVersionMinor);
|
|
}
|
|
|
|
// sfall_ver_build
|
|
static void opGetVersionPatch(Program* program)
|
|
{
|
|
programStackPushInteger(program, kVersionPatch);
|
|
}
|
|
|
|
// get_weapon_ammo_pid
|
|
static void opGetWeaponAmmoPid(Program* program)
|
|
{
|
|
Object* obj = static_cast<Object*>(programStackPopPointer(program));
|
|
|
|
int pid = -1;
|
|
if (obj != nullptr) {
|
|
if (PID_TYPE(obj->pid) == OBJ_TYPE_ITEM) {
|
|
switch (itemGetType(obj)) {
|
|
case ITEM_TYPE_WEAPON:
|
|
pid = weaponGetAmmoTypePid(obj);
|
|
break;
|
|
case ITEM_TYPE_MISC:
|
|
pid = miscItemGetPowerTypePid(obj);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
programStackPushInteger(program, pid);
|
|
}
|
|
|
|
// There are two problems with this function.
|
|
//
|
|
// 1. Sfall's implementation changes ammo PID of misc items, which is impossible
|
|
// since it's stored in proto, not in the object.
|
|
// 2. Changing weapon's ammo PID is done without checking for ammo
|
|
// quantity/capacity which can probably lead to bad things.
|
|
//
|
|
// set_weapon_ammo_pid
|
|
static void opSetWeaponAmmoPid(Program* program)
|
|
{
|
|
int ammoTypePid = programStackPopInteger(program);
|
|
Object* obj = static_cast<Object*>(programStackPopPointer(program));
|
|
|
|
if (obj != nullptr) {
|
|
if (PID_TYPE(obj->pid) == OBJ_TYPE_ITEM) {
|
|
switch (itemGetType(obj)) {
|
|
case ITEM_TYPE_WEAPON:
|
|
obj->data.item.weapon.ammoTypePid = ammoTypePid;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
// get_weapon_ammo_count
|
|
static void opGetWeaponAmmoCount(Program* program)
|
|
{
|
|
Object* obj = static_cast<Object*>(programStackPopPointer(program));
|
|
|
|
// CE: Implementation is different.
|
|
int ammoQuantityOrCharges = 0;
|
|
if (obj != nullptr) {
|
|
if (PID_TYPE(obj->pid) == OBJ_TYPE_ITEM) {
|
|
switch (itemGetType(obj)) {
|
|
case ITEM_TYPE_AMMO:
|
|
case ITEM_TYPE_WEAPON:
|
|
ammoQuantityOrCharges = ammoGetQuantity(obj);
|
|
break;
|
|
case ITEM_TYPE_MISC:
|
|
ammoQuantityOrCharges = miscItemGetCharges(obj);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
programStackPushInteger(program, ammoQuantityOrCharges);
|
|
}
|
|
|
|
// set_weapon_ammo_count
|
|
static void opSetWeaponAmmoCount(Program* program)
|
|
{
|
|
int ammoQuantityOrCharges = programStackPopInteger(program);
|
|
Object* obj = static_cast<Object*>(programStackPopPointer(program));
|
|
|
|
// CE: Implementation is different.
|
|
if (obj != nullptr) {
|
|
if (PID_TYPE(obj->pid) == OBJ_TYPE_ITEM) {
|
|
switch (itemGetType(obj)) {
|
|
case ITEM_TYPE_AMMO:
|
|
case ITEM_TYPE_WEAPON:
|
|
ammoSetQuantity(obj, ammoQuantityOrCharges);
|
|
break;
|
|
case ITEM_TYPE_MISC:
|
|
miscItemSetCharges(obj, ammoQuantityOrCharges);
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
// get_mouse_x
|
|
static void opGetMouseX(Program* program)
|
|
{
|
|
int x;
|
|
int y;
|
|
mouseGetPosition(&x, &y);
|
|
programStackPushInteger(program, x);
|
|
}
|
|
|
|
// get_mouse_y
|
|
static void opGetMouseY(Program* program)
|
|
{
|
|
int x;
|
|
int y;
|
|
mouseGetPosition(&x, &y);
|
|
programStackPushInteger(program, y);
|
|
}
|
|
|
|
// get_screen_width
|
|
static void opGetScreenWidth(Program* program)
|
|
{
|
|
programStackPushInteger(program, screenGetWidth());
|
|
}
|
|
|
|
// get_screen_height
|
|
static void opGetScreenHeight(Program* program)
|
|
{
|
|
programStackPushInteger(program, screenGetHeight());
|
|
}
|
|
|
|
// atoi
|
|
static void opParseInt(Program* program)
|
|
{
|
|
const char* string = programStackPopString(program);
|
|
programStackPushInteger(program, static_cast<int>(strtol(string, nullptr, 0)));
|
|
}
|
|
|
|
// strlen
|
|
static void opGetStringLength(Program* program)
|
|
{
|
|
const char* string = programStackPopString(program);
|
|
programStackPushInteger(program, static_cast<int>(strlen(string)));
|
|
}
|
|
|
|
// message_str_game
|
|
static void opGetMessage(Program* program)
|
|
{
|
|
int messageId = programStackPopInteger(program);
|
|
int messageListId = programStackPopInteger(program);
|
|
char* text = messageListRepositoryGetMsg(messageListId, messageId);
|
|
programStackPushString(program, text);
|
|
}
|
|
|
|
// round
|
|
static void opRound(Program* program)
|
|
{
|
|
float floatValue = programStackPopFloat(program);
|
|
int integerValue = static_cast<int>(floatValue);
|
|
float mod = floatValue - static_cast<float>(integerValue);
|
|
if (abs(mod) >= 0.5) {
|
|
integerValue += mod > 0.0 ? 1 : -1;
|
|
}
|
|
programStackPushInteger(program, integerValue);
|
|
}
|
|
|
|
// art_exists
|
|
static void opArtExists(Program* program)
|
|
{
|
|
int fid = programStackPopInteger(program);
|
|
programStackPushInteger(program, artExists(fid));
|
|
}
|
|
|
|
void sfallOpcodesInit()
|
|
{
|
|
interpreterRegisterOpcode(0x8156, opReadByte);
|
|
interpreterRegisterOpcode(0x815A, op_set_pc_base_stat);
|
|
interpreterRegisterOpcode(0x815B, opSetPcBonusStat);
|
|
interpreterRegisterOpcode(0x815C, op_get_pc_base_stat);
|
|
interpreterRegisterOpcode(0x815D, opGetPcBonusStat);
|
|
interpreterRegisterOpcode(0x8170, op_in_world_map);
|
|
interpreterRegisterOpcode(0x8172, op_set_world_map_pos);
|
|
interpreterRegisterOpcode(0x8193, opGetCurrentHand);
|
|
interpreterRegisterOpcode(0x819D, opSetGlobalVar);
|
|
interpreterRegisterOpcode(0x819E, opGetGlobalInt);
|
|
interpreterRegisterOpcode(0x81AF, opGetGameMode);
|
|
interpreterRegisterOpcode(0x81B6, op_set_car_current_town);
|
|
interpreterRegisterOpcode(0x820D, opListBegin);
|
|
interpreterRegisterOpcode(0x820E, opListNext);
|
|
interpreterRegisterOpcode(0x820F, opListEnd);
|
|
interpreterRegisterOpcode(0x8210, opGetVersionMajor);
|
|
interpreterRegisterOpcode(0x8211, opGetVersionMinor);
|
|
interpreterRegisterOpcode(0x8212, opGetVersionPatch);
|
|
interpreterRegisterOpcode(0x8217, opGetWeaponAmmoPid);
|
|
interpreterRegisterOpcode(0x8218, opSetWeaponAmmoPid);
|
|
interpreterRegisterOpcode(0x8219, opGetWeaponAmmoCount);
|
|
interpreterRegisterOpcode(0x821A, opSetWeaponAmmoCount);
|
|
interpreterRegisterOpcode(0x821C, opGetMouseX);
|
|
interpreterRegisterOpcode(0x821D, opGetMouseY);
|
|
interpreterRegisterOpcode(0x8220, opGetScreenWidth);
|
|
interpreterRegisterOpcode(0x8221, opGetScreenHeight);
|
|
interpreterRegisterOpcode(0x8237, opParseInt);
|
|
interpreterRegisterOpcode(0x824F, opGetStringLength);
|
|
interpreterRegisterOpcode(0x826B, opGetMessage);
|
|
interpreterRegisterOpcode(0x8267, opRound);
|
|
interpreterRegisterOpcode(0x8274, opArtExists);
|
|
}
|
|
|
|
void sfallOpcodesExit()
|
|
{
|
|
}
|
|
|
|
} // namespace fallout
|