madcow/scummvm-cursorfix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 1 Wiki Activity

Initial commit

Browse Source
This commit is contained in:
Leon Krieg
2026-02-02 04:50:13 +01:00
commit 5b11698731
22592 changed files with 7677434 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

709
engines/scumm/he/logic/football.cpp Normal file
View File

@@ -0,0 +1,709 @@
/* ScummVM - Graphic Adventure Engine
*
* ScummVM is the legal property of its developers, whose names
* are too numerous to list here. Please refer to the COPYRIGHT
* file distributed with this source distribution.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*
*/
#include "common/config-manager.h"
#include "common/savefile.h"
#include "scumm/he/intern_he.h"
#ifdef USE_ENET
#include "scumm/he/net/net_main.h"
#ifdef USE_BASIC_NET
#include "scumm/he/net/net_lobby.h"
#endif
#include "scumm/he/net/net_defines.h"
#endif
#include "scumm/he/logic_he.h"
// DirectPlay opcodes:
#define OP_NET_REMOTE_START_SCRIPT 1492
#define OP_NET_QUERY_PROVIDERS 1497
#define OP_NET_CLOSE_PROVIDER 1500
#define OP_NET_QUERY_SESSIONS 1501
#define OP_NET_GET_SESSION_NAME 1502
#define OP_NET_JOIN_SESSION 1504
#define OP_NET_END_SESSION 1505
#define OP_NET_ADD_USER 1506
#define OP_NET_WHO_SENT_THIS 1508
#define OP_NET_REMOTE_SEND_ARRAY 1509
#define OP_NET_INIT 1513
#define OP_NET_WHO_AM_I 1510
#define OP_NET_INIT_LAN_GAME 1515
#define OP_NET_SET_PROVIDER_BY_NAME 1516
// MAIA (Updater) opcodes.
#define OP_NET_CHECK_INTERNET_STATUS 3001
#define OP_NET_SHUT_DOWN_MAIA 3004
namespace Scumm {
/**
* Logic code for:
* Backyard Football
* Backyard Football 2002
*/
class LogicHEfootball : public LogicHE {
public:
LogicHEfootball(ScummEngine_v90he *vm) : LogicHE(vm) {}
int versionID() override;
int startOfFrame() override;
int32 dispatch(int op, int numArgs, int32 *args) override;
protected:
#ifdef USE_ENET
void netRemoteStartScript(int numArgs, int32 *args);
void netRemoteSendArray(int32 *args);
#endif
int lineEquation3D(int32 *args);
virtual int translateWorldToScreen(int32 *args);
int fieldGoalScreenTranslation(int32 *args);
virtual int translateScreenToWorld(int32 *args);
int nextPoint(int32 *args);
int computePlayerBallIntercepts(int32 *args);
int computeTwoCircleIntercepts(int32 *args);
};
int LogicHEfootball::versionID() {
return 1;
}
int LogicHEfootball::startOfFrame() {
#ifdef USE_ENET
#ifdef USE_BASIC_NET
// Football 2002 does not have lobby support, so
// _lobby is not defined.
if (_vm->_lobby)
_vm->_lobby->doNetworkOnceAFrame();
#endif
_vm->_net->doNetworkOnceAFrame(15);
#endif
return 0;
}
int32 LogicHEfootball::dispatch(int op, int numArgs, int32 *args) {
#if defined(USE_ENET) && defined(USE_BASIC_NET)
if (op > 2120 && op < 3003 && op != OP_NET_CHECK_INTERNET_STATUS &&
_vm->_lobby)
return _vm->_lobby->dispatch(op, numArgs, args);
#endif
int res = 0;
switch (op) {
case 1004:
res = lineEquation3D(args);
break;
case 1006:
res = translateWorldToScreen(args);
break;
case 1007:
res = fieldGoalScreenTranslation(args);
break;
case 1010:
res = translateScreenToWorld(args);
break;
case 1022:
res = nextPoint(args);
break;
case 1023:
res = computePlayerBallIntercepts(args);
break;
case 1024:
res = computeTwoCircleIntercepts(args);
break;
case 8221968:
// Someone had a fun and used his birthday as opcode number
res = getFromArray(args[0], args[1], args[2]);
break;
case OP_NET_INIT:
// Initialize network system, this gets called at boot up and
// sets VAR_NETWORK_AVAILABLE (100). We just return a 1 if
// ENet is compiled. Used in both 1999 and 2002.
#ifdef USE_ENET
res = 1;
#endif
break;
#ifdef USE_ENET
case OP_NET_REMOTE_START_SCRIPT:
netRemoteStartScript(numArgs, args);
break;
case OP_NET_CLOSE_PROVIDER:
res = _vm->_net->closeProvider();
break;
case OP_NET_QUERY_SESSIONS:
#ifdef USE_BASIC_NET
if (_vm->_lobby->_sessionId) {
_vm->_net->querySessions();
// Only proceed if we've found the session
// we're looking for.
res = _vm->_net->ifSessionExist(_vm->_lobby->_sessionId);
}
#endif
break;
case OP_NET_JOIN_SESSION:
#ifdef USE_BASIC_NET
if (_vm->_lobby->_sessionId) {
res = _vm->_net->joinSessionById(_vm->_lobby->_sessionId);
if (res) {
_vm->_net->stopQuerySessions();
}
}
#endif
break;
case OP_NET_END_SESSION:
res = _vm->_net->endSession();
break;
case OP_NET_ADD_USER:
char userName[MAX_PLAYER_NAME];
_vm->getStringFromArray(args[0], userName, sizeof(userName));
res = _vm->_net->addUser(userName, userName);
break;
case OP_NET_WHO_SENT_THIS:
res = _vm->_net->whoSentThis();
break;
case OP_NET_REMOTE_SEND_ARRAY:
netRemoteSendArray(args);
break;
case OP_NET_WHO_AM_I:
res = _vm->_net->whoAmI();
break;
#endif // USE_ENET
case OP_NET_CHECK_INTERNET_STATUS:
#if defined(USE_ENET) && defined(USE_BASIC_NET)
// We can only use the lobby system if both
// libcurl (for lobby communication) and
// ENet (for gameplay communication) is enabled.
// TODO: Actually check if we're connected to the
// Internet.
res = 1;
#endif
break;
case OP_NET_SHUT_DOWN_MAIA:
break;
case 1493: case 1494: case 1495: case 1496:
case 1498: case 1499:
case 1502: case 1503:
case 1507: case 1511:
case 1512: case 1514: case 1555:
// DirectPlay-related
// 1513: initialize
// 1555: set fake lag
break;
default:
LogicHE::dispatch(op, numArgs, args);
warning("Tell sev how to reproduce it (%d)", op);
}
return res;
}
int LogicHEfootball::lineEquation3D(int32 *args) {
// Identical to soccer's 1004 opcode
double res, a2, a4, a5;
a5 = ((double)args[4] - (double)args[1]) / ((double)args[5] - (double)args[2]);
a4 = ((double)args[3] - (double)args[0]) / ((double)args[5] - (double)args[2]);
a2 = (double)args[2] - (double)args[0] * a4 - args[1] * a5;
res = (double)args[6] * a4 + (double)args[7] * a5 + a2;
writeScummVar(108, (int32)res);
writeScummVar(109, (int32)a2);
writeScummVar(110, (int32)a5);
writeScummVar(111, (int32)a4);
return 1;
}
int LogicHEfootball::translateWorldToScreen(int32 *args) {
// This is more or less the inverse of translateScreenToWorld
const double a1 = args[1];
double res;
// 2.9411764e-4 = 1/3400
// 5.3050399e-2 = 1/18.85 = 20/377
// 1.1764706e-2 = 1/85 = 40/3400
// 1.2360656e-1 = 377/3050
res = (1.0 - a1 * 2.9411764e-4 * 5.3050399e-2) * 1.2360656e-1 * args[0] +
a1 * 1.1764706e-2 + 46;
// Shortened / optimized version of that formula:
// res = (377.0 - a1 / 170.0) / 3050.0 * args[0] + a1 / 85.0 + 46;
writeScummVar(108, (int32)res);
// 1.2360656e-1 = 377/3050
// 1.1588235e-1 = 197/1700 = 394/3400
res = 640.0 - args[2] * 1.2360656e-1 - a1 * 1.1588235e-1 - 26;
writeScummVar(109, (int32)res);
return 1;
}
int LogicHEfootball::fieldGoalScreenTranslation(int32 *args) {
double res, temp;
temp = (double)args[1] * 0.32;
if (temp > 304.0)
res = -args[2] * 0.142;
else
res = args[2] * 0.142;
res += temp;
writeScummVar(108, (int32)res);
res = (1000.0 - args[2]) * 0.48;
writeScummVar(109, (int32)res);
return 1;
}
int LogicHEfootball::translateScreenToWorld(int32 *args) {
// This is more or less the inverse of translateWorldToScreen
double a1 = (640.0 - (double)args[1] - 26.0) / 1.1588235e-1;
// 2.9411764e-4 = 1/3400
// 5.3050399e-2 = 1/18.85 = 20/377
// 1.1764706e-2 = 1/85 = 40/3400
// 1.2360656e-1 = 377/3050
double a0 = ((double)args[0] - 46 - a1 * 1.1764706e-2) /
((1.0 - a1 * 2.9411764e-4 * 5.3050399e-2) * 1.2360656e-1);
writeScummVar(108, (int32)a0);
writeScummVar(109, (int32)a1);
return 1;
}
int LogicHEfootball::nextPoint(int32 *args) {
double res;
double var10 = args[4] - args[1];
double var8 = args[5] - args[2];
double var6 = args[3] - args[0];
res = sqrt(var8 * var8 + var6 * var6 + var10 * var10);
if (res >= (double)args[6]) {
var8 = (double)args[6] * var8 / res;
var10 = (double)args[6] * var10 / res;
var6 = (double)args[6] * var6 / res;
}
writeScummVar(108, (int32)var6);
writeScummVar(109, (int32)var10);
writeScummVar(110, (int32)var8);
return 1;
}
int LogicHEfootball::computePlayerBallIntercepts(int32 *args) {
double var10, var18, var20, var28, var30, var30_;
double argf[7];
for (int i = 0; i < 7; i++)
argf[i] = args[i];
var10 = (argf[3] - argf[1]) / (argf[2] - argf[0]);
var28 = var10 * var10 + 1;
var20 = argf[0] * var10;
var18 = (argf[5] + argf[1] + var20) * argf[4] * var10 * 2 +
argf[6] * argf[6] * var28 + argf[4] * argf[4] -
argf[0] * argf[0] * var10 * var10 -
argf[5] * argf[0] * var10 * 2 -
argf[5] * argf[1] * 2 -
argf[1] * argf[1] - argf[5] * argf[5];
if (var18 >= 0) {
var18 = sqrt(var18);
var30_ = argf[4] + argf[5] * var10 + argf[1] * var10 + argf[0] * var10 * var10;
var30 = (var30_ - var18) / var28;
var18 = (var30_ + var18) / var28;
if ((argf[0] - var30 < 0) && (argf[0] - var18 < 0)) {
var30_ = var30;
var30 = var18;
var18 = var30_;
}
var28 = var18 * var10 - var20 - argf[1];
var20 = var30 * var10 - var20 - argf[1];
} else {
var18 = 0;
var20 = 0;
var28 = 0;
var30 = 0;
}
writeScummVar(108, (int32)var18);
writeScummVar(109, (int32)var28);
writeScummVar(110, (int32)var30);
writeScummVar(111, (int32)var20);
return 1;
}
int LogicHEfootball::computeTwoCircleIntercepts(int32 *args) {
// Looks like this was just dummied out
writeScummVar(108, 0);
writeScummVar(109, 0);
writeScummVar(110, 0);
writeScummVar(111, 0);
return 1;
}
#ifdef USE_ENET
void LogicHEfootball::netRemoteStartScript(int numArgs, int32 *args) {
_vm->_net->remoteStartScript(args[0], args[1], args[2], numArgs - 3, &args[3]);
}
void LogicHEfootball::netRemoteSendArray(int32 *args) {
_vm->_net->remoteSendArray(args[0], args[1], args[2], args[3]);
}
#endif // USE_ENET
class LogicHEfootball2002 : public LogicHEfootball {
public:
LogicHEfootball2002(ScummEngine_v90he *vm) : LogicHEfootball(vm) {
_var0 = _var1 = _var2 = _var3 = _var4 = 0.0;
_angle = 0.0;
_maxX = -1;
_minX = 1000000;
}
int32 dispatch(int op, int numArgs, int32 *args) override;
private:
int translateWorldToScreen(int32 *args) override;
int translateScreenToWorld(int32 *args) override;
int getDayOfWeek();
int initScreenTranslations();
int getPlaybookFiles(int32 *args);
int largestFreeBlock();
#ifdef USE_ENET
int netGetSessionName(int index);
int netInitLanGame(int32 *args);
#endif
float _var0;
float _var1;
float _var2;
float _var3;
float _var4;
float _angle;
int32 _maxX;
int32 _minX;
#ifdef USE_ENET
int _requestedSessionIndex = -2;
#endif
};
int32 LogicHEfootball2002::dispatch(int op, int numArgs, int32 *args) {
int32 res = 0;
switch (op) {
case 1025:
res = getDayOfWeek();
break;
case 1026:
res = initScreenTranslations();
break;
case 1027:
res = getPlaybookFiles(args);
break;
case 1028:
res = largestFreeBlock();
break;
case 1029:
// Clean-up off heap
// Dummied in the Windows U32
res = 1;
break;
case 1030:
// Get Computer Name (online play only)
if (ConfMan.hasKey("network_player_name")) {
res = _vm->setupStringArrayFromString(ConfMan.get("network_player_name").c_str());
}
break;
// These cases are outside #ifdef USE_ENET intentionally
// to silence warnings:
case OP_NET_QUERY_PROVIDERS:
#ifdef USE_ENET
res = _vm->_net->queryProviders();
#endif
break;
case OP_NET_SET_PROVIDER_BY_NAME:
#ifdef USE_ENET
res = _vm->_net->setProviderByName(args[0], args[1]);
if (res)
_requestedSessionIndex = _vm->networkSessionDialog();
if (_requestedSessionIndex == -2) {
// Cancelled out the join dialog.
_vm->_net->closeProvider();
res = 0;
}
#endif
break;
#ifdef USE_ENET
case OP_NET_QUERY_SESSIONS:
if (_requestedSessionIndex > -1)
// Emulate that we've found a session.
res = 1;
break;
case OP_NET_GET_SESSION_NAME:
res = netGetSessionName(args[0]);
break;
case OP_NET_INIT_LAN_GAME:
res = netInitLanGame(args);
break;
#endif
default:
res = LogicHEfootball::dispatch(op, numArgs, args);
break;
}
return res;
}
int LogicHEfootball2002::translateWorldToScreen(int32 *args) {
// While this performs the same task as football's 1006 opcode,
// the implementation is different. Note that this is also the
// same as basketball's 1006 opcode with different constants!
double v9;
if (args[1] >= _minX) {
if (args[1] < _maxX) {
v9 = (sqrt(_var1 + args[1]) - sqrt(_var1)) / sqrt(_var0);
} else {
double v10 = sqrt(_var0 * (_maxX + _var1));
v9 = 1.0 / (v10 + v10) * (args[1] - _maxX) + 451.0;
}
} else {
double v8 = sqrt(_var0 * (_minX + _var1));
v9 = 1.0 / (v8 + v8) * (args[1] - _minX) - 29.0;
}
double v11 = tan(_angle);
double v12, v13;
if (v9 >= -29.0) {
if (v9 >= 451.0) {
v12 = 1517.0 - (451.0 / v11 + 451.0 / v11);
v13 = tan(1.570796326794895 - _angle) * 451.0;
} else {
v12 = 1517.0 - (v9 / v11 + v9 / v11);
v13 = tan(1.570796326794895 - _angle) * v9;
}
} else {
v12 = 1517.0 - (-29.0 / v11 + -29.0 / v11);
v13 = tan(1.570796326794895 - _angle) * -29.0;
}
writeScummVar(108, scummRound(v12 * args[0] / 12200.0 + v13 + 41.0));
writeScummVar(109, scummRound(611.0 - v9 - v12 * args[2] / 12200.0));
return 1;
}
int LogicHEfootball2002::translateScreenToWorld(int32 *args) {
// While this performs the same task as football's 1010 opcode,
// the implementation is different. Note that this is also the
// same as basketball's 1010 opcode with different constants!
double v15 = 611.0 - args[1];
double v5 = tan(_angle);
double v4, v6, v7;
if (v15 >= -29.0) {
if (v15 >= 451.0) {
v4 = (_var2 * 902.0 + _var3) * (v15 - 451.0) + _maxX;
v6 = 1517.0 - (451.0 / v5 + 451.0 / v5);
v7 = tan(1.570796326794895 - _angle) * 451.0;
} else {
v4 = (v15 * _var2 + _var3) * v15 + _var4;
v6 = 1517.0 - (v15 / v5 + v15 / v5);
v7 = tan(1.570796326794895 - _angle) * v15;
}
} else {
v4 = (_var3 - _var2 * 58.0) * (v15 - -29.0) + _minX;
v6 = 1517.0 - (-29.0 / v5 + -29.0 / v5);
v7 = tan(1.570796326794895 - _angle) * -29.0;
}
writeScummVar(108, scummRound((args[0] - (v7 + 41.0)) * (12200.0 / v6)));
writeScummVar(109, scummRound(v4));
return 1;
}
int LogicHEfootball2002::getDayOfWeek() {
// Get day of week, store in var 108
TimeDate time;
_vm->_system->getTimeAndDate(time);
writeScummVar(108, time.tm_wday);
return 1;
}
int LogicHEfootball2002::initScreenTranslations() {
// Set values used by translateWorldToScreen/translateScreenToWorld
_var0 = _var2 = 0.0029172597f;
_var1 = 4896.3755f;
_var3 = 7.5588355f;
_var4 = 0.0f;
_angle = (float)atan(2.899280575539569);
_maxX = 4002;
_minX = -217;
return 1;
}
int LogicHEfootball2002::getPlaybookFiles(int32 *args) {
// Get the pattern and then skip over the directory prefix ("*\" or "*:")
// Also prepend the target name
Common::String targetName = _vm->getTargetName();
Common::String basePattern = ((const char *)_vm->getStringAddress(args[0] & ~MAGIC_ARRAY_NUMBER) + 2);
Common::String pattern = targetName + '-' + basePattern;
// Prepare a buffer to hold the file names
Common::String output;
// Get the list of file names that match the pattern and iterate over it
Common::StringArray fileList = _vm->getSaveFileManager()->listSavefiles(pattern);
for (uint32 i = 0; i < fileList.size(); i++) {
// Isolate the base part of the filename and concatenate it to our buffer
Common::String fileName(fileList[i].c_str() + targetName.size() + 1, fileList[i].size() - (basePattern.size() - 1) - (targetName.size() + 1));
output += fileName + '>'; // names separated by '>'
}
// Now store the result in an array
int array = _vm->setupStringArray(output.size());
Common::strlcpy((char *)_vm->getStringAddress(array), output.c_str(), output.size() + 1);
// And store the array index in variable 108
writeScummVar(108, array);
return 1;
}
int LogicHEfootball2002::largestFreeBlock() {
// The Windows version always sets the variable to this
// The Mac version actually checks for the largest free block
writeScummVar(108, 100000000);
return 1;
}
#ifdef USE_ENET
int LogicHEfootball2002::netGetSessionName(int index) {
char name[MAX_SESSION_NAME];
_vm->_net->getSessionName(_requestedSessionIndex, name, sizeof(name));
return _vm->setupStringArrayFromString(name);
}
int LogicHEfootball2002::netInitLanGame(int32 *args) {
// Initialize Session
// Arg 0 is the provider name ("TCP/IP")
// Arg 1 is the session name
// Arg 2 is the host name.
// Arg 3 is a boolean determining we're hosting or joining a session.
char sessionName[MAX_SESSION_NAME];
_vm->getStringFromArray(args[1], sessionName, sizeof(sessionName));
char userName[MAX_PLAYER_NAME];
_vm->getStringFromArray(args[2], userName, sizeof(userName));
int res;
if (args[3] == 1) {
// Stop querying sessions if we haven't already
_vm->_net->stopQuerySessions();
// And host our new game.
// If there's a custom game name, use that instead.
if (ConfMan.hasKey("game_session_name")) {
Common::String gameSessionName = ConfMan.get("game_session_name");
return _vm->_net->hostGame(const_cast<char *>(gameSessionName.c_str()), userName);
}
res = _vm->_net->hostGame(sessionName, userName);
} else {
res = _vm->_net->joinSession(_requestedSessionIndex);
if (res)
_vm->_net->addUser(userName, userName);
_vm->_net->stopQuerySessions();
}
return res;
}
#endif
LogicHE *makeLogicHEfootball(ScummEngine_v90he *vm) {
return new LogicHEfootball(vm);
}
LogicHE *makeLogicHEfootball2002(ScummEngine_v90he *vm) {
return new LogicHEfootball2002(vm);
}
} // End of namespace Scumm