2004-01-06 13:44:17 +00:00
|
|
|
/* Copyright (C) 1994-2004 Revolution Software Ltd
|
2003-07-28 01:44:38 +00:00
|
|
|
*
|
|
|
|
* 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 2
|
|
|
|
* 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, write to the Free Software
|
|
|
|
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
|
*
|
|
|
|
* $Header$
|
|
|
|
*/
|
|
|
|
|
2003-11-16 14:18:29 +00:00
|
|
|
#include "common/stdafx.h"
|
2003-12-31 13:14:07 +00:00
|
|
|
#include "common/file.h"
|
2003-11-16 14:18:29 +00:00
|
|
|
#include "sword2/sword2.h"
|
2003-10-28 19:51:30 +00:00
|
|
|
#include "sword2/defs.h"
|
|
|
|
#include "sword2/interpreter.h"
|
2004-02-05 14:19:07 +00:00
|
|
|
#include "sword2/logic.h"
|
|
|
|
#include "sword2/maketext.h"
|
|
|
|
#include "sword2/resman.h"
|
|
|
|
#include "sword2/driver/d_draw.h"
|
|
|
|
#include "sword2/driver/d_sound.h"
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-04 00:52:27 +00:00
|
|
|
namespace Sword2 {
|
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnTestFunction(int32 *params) {
|
|
|
|
// params: 0 address of a flag
|
2003-09-17 13:03:13 +00:00
|
|
|
return IR_CONT;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnTestFlags(int32 *params) {
|
|
|
|
// params: 0 value of flag
|
2003-09-17 13:03:13 +00:00
|
|
|
return IR_CONT;
|
|
|
|
}
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnGosub(int32 *params) {
|
2003-09-17 13:03:13 +00:00
|
|
|
// hurray, script subroutines
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
// params: 0 id of script
|
|
|
|
|
|
|
|
logicUp(params[0]);
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
// logic goes up - pc is saved for current level
|
|
|
|
return IR_GOSUB;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnNewScript(int32 *params) {
|
2003-09-17 13:03:13 +00:00
|
|
|
// change current script - must be followed by a TERMINATE script
|
|
|
|
// directive
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
// params: 0 id of script
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
// must clear this
|
|
|
|
PLAYER_ACTION = 0;
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
logicReplace(params[0]);
|
2003-09-17 13:03:13 +00:00
|
|
|
return IR_TERMINATE;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnInteract(int32 *params) {
|
2003-09-17 13:03:13 +00:00
|
|
|
// run targets action on a subroutine
|
|
|
|
// called by player on his base level 0 idle, for example
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
// params: 0 id of target from which we derive action script
|
|
|
|
// reference
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
// must clear this
|
|
|
|
PLAYER_ACTION = 0;
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
// 3rd script of clicked on id
|
2003-11-02 22:38:04 +00:00
|
|
|
logicUp((params[0] < 16) + 2);
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
// out, up and around again - pc is saved for current level to be
|
|
|
|
// returned to
|
|
|
|
return IR_GOSUB;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnPreLoad(int32 *params) {
|
2003-09-17 13:03:13 +00:00
|
|
|
// Open & close a resource.
|
2003-10-18 08:11:50 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
// Forces a resource into memory before it's "officially" opened for
|
|
|
|
// use. eg. if an anim needs to run on smoothly from another,
|
|
|
|
// "preloading" gets it into memory in advance to avoid the cacheing
|
|
|
|
// delay that normally occurs before the first frame.
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
// params: 0 resource to preload
|
|
|
|
|
2003-11-16 14:18:29 +00:00
|
|
|
_vm->_resman->openResource(params[0]);
|
|
|
|
_vm->_resman->closeResource(params[0]);
|
2003-10-18 08:11:50 +00:00
|
|
|
return IR_CONT;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnPreFetch(int32 *params) {
|
2003-09-17 13:03:13 +00:00
|
|
|
// Go fetch resource in the background.
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
// params: 0 resource to fetch [guess]
|
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
return IR_CONT;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnFetchWait(int32 *params) {
|
2003-09-17 13:03:13 +00:00
|
|
|
// Fetches a resource in the background but prevents the script from
|
|
|
|
// continuing until the resource is in memory.
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
// params: 0 resource to fetch [guess]
|
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
return IR_CONT;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnRelease(int32 *params) {
|
2003-09-17 13:03:13 +00:00
|
|
|
// Releases a resource from memory. Used for freeing memory for
|
|
|
|
// sprites that have just been used and will not be used again.
|
|
|
|
// Sometimes it is better to kick out a sprite straight away so that
|
|
|
|
// the memory can be used for more frequent animations.
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
// params: 0 resource to release [guess]
|
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
return IR_CONT;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnRandom(int32 *params) {
|
2003-09-17 13:03:13 +00:00
|
|
|
// Generates a random number between 'min' & 'max' inclusive, and
|
|
|
|
// sticks it in the script flag 'result'
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-08 18:02:53 +00:00
|
|
|
// params: 0 min
|
|
|
|
// 1 max
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-11-08 15:47:51 +00:00
|
|
|
RESULT = _vm->_rnd.getRandomNumberRng(params[0], params[1]);
|
2003-09-17 13:03:13 +00:00
|
|
|
return IR_CONT;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
2003-09-17 13:03:13 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnPause(int32 *params) {
|
2003-07-28 01:44:38 +00:00
|
|
|
// params: 0 pointer to object's logic structure
|
2003-09-17 13:03:13 +00:00
|
|
|
// 1 number of game-cycles to pause
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
// NB. Pause-value of 0 causes script to continue, 1 causes a 1-cycle
|
|
|
|
// quit, 2 gives 2 cycles, etc.
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-12-28 15:08:12 +00:00
|
|
|
ObjectLogic *ob_logic = (ObjectLogic *) _vm->_memory->intToPtr(params[0]);
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
if (ob_logic->looping == 0) {
|
|
|
|
// start the pause
|
2003-07-28 01:44:38 +00:00
|
|
|
ob_logic->looping = 1;
|
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
// no. of game cycles
|
|
|
|
ob_logic->pause = params[1];
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
2003-09-17 13:03:13 +00:00
|
|
|
|
|
|
|
if (ob_logic->pause) {
|
|
|
|
// decrement the pause count
|
|
|
|
ob_logic->pause--;
|
|
|
|
return IR_REPEAT;
|
|
|
|
} else {
|
2003-07-28 01:44:38 +00:00
|
|
|
ob_logic->looping = 0;
|
2003-09-17 13:03:13 +00:00
|
|
|
return IR_CONT;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
}
|
2003-09-17 13:03:13 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnRandomPause(int32 *params) {
|
2003-07-28 01:44:38 +00:00
|
|
|
// params: 0 pointer to object's logic structure
|
2003-09-17 13:03:13 +00:00
|
|
|
// 1 minimum number of game-cycles to pause
|
|
|
|
// 2 maximum number of game-cycles to pause
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-12-28 15:08:12 +00:00
|
|
|
ObjectLogic *ob_logic = (ObjectLogic *) _vm->_memory->intToPtr(params[0]);
|
2003-07-28 01:44:38 +00:00
|
|
|
int32 pars[2];
|
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
if (ob_logic->looping == 0) {
|
2003-10-18 08:11:50 +00:00
|
|
|
pars[0] = params[1];
|
|
|
|
pars[1] = params[2];
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
fnRandom(pars);
|
2003-09-17 13:03:13 +00:00
|
|
|
pars[1] = RESULT;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
pars[0] = params[0];
|
|
|
|
return fnPause(pars);
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnPassGraph(int32 *params) {
|
2003-12-28 15:08:12 +00:00
|
|
|
// makes an engine local copy of passed ObjectGraphic - run script 4
|
2003-11-25 09:05:10 +00:00
|
|
|
// of an object to request this used by fnTurnTo(id) etc
|
2003-09-17 13:03:13 +00:00
|
|
|
//
|
|
|
|
// remember, we cannot simply read a compact any longer but instead
|
|
|
|
// must request it from the object itself
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-12-28 15:08:12 +00:00
|
|
|
// params: 0 pointer to an ObjectGraphic structure
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-11-25 09:05:10 +00:00
|
|
|
warning("fnPassGraph() is a no-op now");
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
// makes no odds
|
|
|
|
return IR_CONT;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnPassMega(int32 *params) {
|
2003-09-17 13:03:13 +00:00
|
|
|
// makes an engine local copy of passed graphic_structure and
|
|
|
|
// mega_structure - run script 4 of an object to request this
|
2003-10-18 08:11:50 +00:00
|
|
|
// used by fnTurnTo(id) etc
|
2003-09-17 13:03:13 +00:00
|
|
|
//
|
|
|
|
// remember, we cannot simply read a compact any longer but instead
|
|
|
|
// must request it from the object itself
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
// params: 0 pointer to a mega structure
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-12-28 15:08:12 +00:00
|
|
|
memcpy(&_vm->_engineMega, _vm->_memory->intToPtr(params[0]), sizeof(ObjectMega));
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
// makes no odds
|
2003-09-17 13:03:13 +00:00
|
|
|
return IR_CONT;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnSetValue(int32 *params) {
|
2003-09-17 13:03:13 +00:00
|
|
|
// temp. function!
|
2003-10-18 08:11:50 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
// used for setting far-referenced megaset resource field in mega
|
|
|
|
// object, from start script
|
|
|
|
|
2003-07-28 01:44:38 +00:00
|
|
|
// params: 0 pointer to object's mega structure
|
2003-09-17 13:03:13 +00:00
|
|
|
// 1 value to set it to
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-12-28 15:08:12 +00:00
|
|
|
ObjectMega *ob_mega = (ObjectMega *) _vm->_memory->intToPtr(params[0]);
|
2003-07-28 01:44:38 +00:00
|
|
|
|
|
|
|
ob_mega->megaset_res = params[1];
|
2003-09-17 13:03:13 +00:00
|
|
|
return IR_CONT;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
2003-09-17 13:03:13 +00:00
|
|
|
|
2003-11-02 15:58:45 +00:00
|
|
|
#ifdef _SWORD2_DEBUG
|
2003-07-28 01:44:38 +00:00
|
|
|
#define BLACK 0
|
|
|
|
#define WHITE 1
|
2003-09-17 13:03:13 +00:00
|
|
|
#define RED 2
|
2003-07-28 01:44:38 +00:00
|
|
|
#define GREEN 3
|
|
|
|
#define BLUE 4
|
|
|
|
|
2003-11-02 15:58:45 +00:00
|
|
|
static uint8 black[4] = { 0, 0, 0, 0 };
|
|
|
|
static uint8 white[4] = { 255, 255, 255, 0 };
|
|
|
|
static uint8 red[4] = { 255, 0, 0, 0 };
|
|
|
|
static uint8 green[4] = { 0, 255, 0, 0 };
|
|
|
|
static uint8 blue[4] = { 0, 0, 255, 0 };
|
|
|
|
#endif
|
2003-09-17 13:03:13 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnFlash(int32 *params) {
|
2003-09-17 13:03:13 +00:00
|
|
|
// flash colour 0 (ie. border) - useful during script development
|
2003-10-18 08:11:50 +00:00
|
|
|
// eg. fnFlash(BLUE) where a text line is missed; RED when some code
|
2003-09-17 13:03:13 +00:00
|
|
|
// missing, etc
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
// params: 0 colour to flash
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
#ifdef _SWORD2_DEBUG
|
|
|
|
// what colour?
|
|
|
|
switch (params[0]) {
|
2003-09-21 16:11:26 +00:00
|
|
|
case WHITE:
|
2003-11-16 14:18:29 +00:00
|
|
|
_vm->_graphics->setPalette(0, 1, white, RDPAL_INSTANT);
|
2003-09-21 16:11:26 +00:00
|
|
|
break;
|
|
|
|
case RED:
|
2003-11-16 14:18:29 +00:00
|
|
|
_vm->_graphics->setPalette(0, 1, red, RDPAL_INSTANT);
|
2003-09-21 16:11:26 +00:00
|
|
|
break;
|
|
|
|
case GREEN:
|
2003-11-16 14:18:29 +00:00
|
|
|
_vm->_graphics->setPalette(0, 1, green, RDPAL_INSTANT);
|
2003-09-21 16:11:26 +00:00
|
|
|
break;
|
|
|
|
case BLUE:
|
2003-11-16 14:18:29 +00:00
|
|
|
_vm->_graphics->setPalette(0, 1, blue, RDPAL_INSTANT);
|
2003-09-21 16:11:26 +00:00
|
|
|
break;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
// There used to be a busy-wait loop here, so I don't know how long
|
|
|
|
// the delay was meant to be. Probably doesn't matter much.
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-11-16 14:18:29 +00:00
|
|
|
_vm->_graphics->updateDisplay();
|
|
|
|
_vm->_system->delay_msecs(250);
|
|
|
|
_vm->_graphics->setPalette(0, 1, black, RDPAL_INSTANT);
|
2003-09-17 13:03:13 +00:00
|
|
|
#endif
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
return IR_CONT;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnColour(int32 *params) {
|
2003-09-17 13:03:13 +00:00
|
|
|
// set border colour - useful during script development
|
|
|
|
// eg. set to colour during a timer situation, then black when timed
|
|
|
|
// out
|
|
|
|
|
2003-07-28 01:44:38 +00:00
|
|
|
// params 0: colour (see defines above)
|
|
|
|
|
2003-07-30 19:25:31 +00:00
|
|
|
#ifdef _SWORD2_DEBUG
|
2003-09-17 13:03:13 +00:00
|
|
|
// what colour?
|
|
|
|
switch (params[0]) {
|
2003-09-21 16:11:26 +00:00
|
|
|
case BLACK:
|
2003-11-16 14:18:29 +00:00
|
|
|
_vm->_graphics->setPalette(0, 1, black, RDPAL_INSTANT);
|
2003-09-21 16:11:26 +00:00
|
|
|
break;
|
|
|
|
case WHITE:
|
2003-11-16 14:18:29 +00:00
|
|
|
_vm->_graphics->setPalette(0, 1, white, RDPAL_INSTANT);
|
2003-09-21 16:11:26 +00:00
|
|
|
break;
|
|
|
|
case RED:
|
2003-11-16 14:18:29 +00:00
|
|
|
_vm->_graphics->setPalette(0, 1, red, RDPAL_INSTANT);
|
2003-09-21 16:11:26 +00:00
|
|
|
break;
|
|
|
|
case GREEN:
|
2003-11-16 14:18:29 +00:00
|
|
|
_vm->_graphics->setPalette(0, 1, green, RDPAL_INSTANT);
|
2003-09-21 16:11:26 +00:00
|
|
|
break;
|
|
|
|
case BLUE:
|
2003-11-16 14:18:29 +00:00
|
|
|
_vm->_graphics->setPalette(0, 1, blue, RDPAL_INSTANT);
|
2003-09-21 16:11:26 +00:00
|
|
|
break;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
2003-09-17 13:03:13 +00:00
|
|
|
#endif
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
return IR_CONT;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnDisplayMsg(int32 *params) {
|
2003-09-17 13:03:13 +00:00
|
|
|
// Display a message to the user on the screen.
|
2003-10-18 08:11:50 +00:00
|
|
|
|
|
|
|
// params: 0 Text number of message to be displayed.
|
2003-09-17 13:03:13 +00:00
|
|
|
|
|
|
|
uint32 local_text = params[0] & 0xffff;
|
|
|
|
uint32 text_res = params[0] / SIZE;
|
2003-07-28 01:44:38 +00:00
|
|
|
|
|
|
|
// Display message for three seconds.
|
2003-09-17 13:03:13 +00:00
|
|
|
|
|
|
|
// +2 to skip the encoded text number in the first 2 chars; 3 is
|
|
|
|
// duration in seconds
|
|
|
|
|
2003-11-16 14:18:29 +00:00
|
|
|
_vm->displayMsg(_vm->fetchTextLine(_vm->_resman->openResource(text_res), local_text) + 2, 3);
|
|
|
|
_vm->_resman->closeResource(text_res);
|
2003-11-08 15:47:51 +00:00
|
|
|
_vm->removeMsg();
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
return IR_CONT;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnResetGlobals(int32 *params) {
|
|
|
|
// fnResetGlobals is used by the demo - so it can loop back & restart
|
|
|
|
// itself
|
|
|
|
|
|
|
|
// params: none
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
int32 size;
|
|
|
|
uint32 *globals;
|
|
|
|
|
2003-11-16 14:18:29 +00:00
|
|
|
size = _vm->_resman->fetchLen(1);
|
2003-12-28 15:08:12 +00:00
|
|
|
size -= sizeof(StandardHeader);
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
debug(5, "globals size: %d", size);
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-12-28 15:08:12 +00:00
|
|
|
globals = (uint32 *) ((uint8 *) _vm->_resman->openResource(1) + sizeof(StandardHeader));
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
// blank each global variable
|
2003-10-18 08:11:50 +00:00
|
|
|
memset(globals, 0, size);
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-11-16 14:18:29 +00:00
|
|
|
_vm->_resman->closeResource(1);
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
// all objects but george
|
2003-11-16 14:18:29 +00:00
|
|
|
_vm->_resman->killAllObjects(false);
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-07 07:07:47 +00:00
|
|
|
// FOR THE DEMO - FORCE THE SCROLLING TO BE RESET!
|
2003-10-18 08:11:50 +00:00
|
|
|
// - this is taken from fnInitBackground
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
// switch on scrolling (2 means first time on screen)
|
2003-11-08 15:47:51 +00:00
|
|
|
_vm->_thisScreen.scroll_flag = 2;
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
return IR_CONT;
|
|
|
|
}
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
// FIXME:
|
|
|
|
//
|
|
|
|
// The original credits used a different font. I think it's stored in the
|
|
|
|
// font.clu file, but I don't know how to interpret it.
|
|
|
|
//
|
|
|
|
// The original used the entire screen. This version cuts off the top and
|
|
|
|
// bottom of the screen, because that's where the menus would usually be.
|
|
|
|
//
|
|
|
|
// The original had some sort of smoke effect at the bottom of the screen.
|
|
|
|
|
|
|
|
enum {
|
|
|
|
LINE_LEFT,
|
|
|
|
LINE_CENTER,
|
|
|
|
LINE_RIGHT
|
|
|
|
};
|
|
|
|
|
|
|
|
struct CreditsLine {
|
|
|
|
char *str;
|
|
|
|
byte type;
|
|
|
|
int top;
|
|
|
|
int height;
|
|
|
|
Memory *sprite;
|
|
|
|
};
|
|
|
|
|
2003-12-31 23:32:40 +00:00
|
|
|
#define CREDITS_FONT_HEIGHT 25
|
|
|
|
#define CREDITS_LINE_SPACING 20
|
2003-12-31 13:14:07 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
int32 Logic::fnPlayCredits(int32 *params) {
|
2003-09-17 13:03:13 +00:00
|
|
|
// This function just quits the game if this is the playable demo, ie.
|
|
|
|
// credits are NOT played in the demo any more!
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-10-18 08:11:50 +00:00
|
|
|
// params: none
|
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
if (DEMO) {
|
|
|
|
_vm->closeGame();
|
|
|
|
return IR_CONT;
|
|
|
|
}
|
2003-09-23 06:27:58 +00:00
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
// Prepare for the credits by fading down, stoping the music, etc.
|
2003-09-23 06:27:58 +00:00
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
_vm->setMouse(0);
|
2003-09-23 06:27:58 +00:00
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
_vm->_sound->saveMusicState();
|
2003-09-23 06:27:58 +00:00
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
_vm->_sound->muteFx(true);
|
|
|
|
_vm->_sound->muteSpeech(true);
|
|
|
|
_vm->_sound->stopMusic();
|
2003-09-23 06:27:58 +00:00
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
_vm->_graphics->waitForFade();
|
|
|
|
_vm->_graphics->fadeDown();
|
|
|
|
_vm->_graphics->waitForFade();
|
2003-09-23 06:27:58 +00:00
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
_vm->_graphics->closeMenuImmediately();
|
|
|
|
|
|
|
|
// There are three files which I believe are involved in showing the
|
|
|
|
// credits:
|
|
|
|
//
|
|
|
|
// credits.bmp - The "Smacker" logo, stored as follows:
|
|
|
|
//
|
|
|
|
// width 2 bytes, little endian
|
|
|
|
// height 2 bytes, little endian
|
|
|
|
// palette 3 * 256 bytes
|
|
|
|
// data width * height bytes
|
|
|
|
//
|
|
|
|
// Note that the maximum colour component in the palette is 0x3F.
|
|
|
|
// This is the same resolution as the _paletteMatch table. I doubt
|
|
|
|
// that this is a coincidence, but let's use the image palette
|
|
|
|
// directly anyway, just to be safe.
|
|
|
|
//
|
|
|
|
// credits.clu - The credits text
|
|
|
|
//
|
|
|
|
// This is simply a text file with CRLF line endings.
|
|
|
|
// '^' is not shown, but used to mark the center of the line.
|
|
|
|
// '@' is used as a placeholder for the "Smacker" logo. At least
|
|
|
|
// when it appears alone.
|
|
|
|
// Remaining lines are centered.
|
|
|
|
//
|
|
|
|
// fonts.clu - The credits font?
|
|
|
|
//
|
|
|
|
// FIXME: At this time I don't know how to interpret fonts.clu. For
|
|
|
|
// now, let's just the standard speech font instead.
|
2003-09-23 06:27:58 +00:00
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
SpriteInfo spriteInfo;
|
|
|
|
File f;
|
|
|
|
int i;
|
2003-09-23 06:27:58 +00:00
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
// Read the "Smacker" logo
|
2003-09-23 06:27:58 +00:00
|
|
|
|
2003-12-31 23:32:40 +00:00
|
|
|
uint16 logoWidth = 0;
|
|
|
|
uint16 logoHeight = 0;
|
|
|
|
uint8 *logoData = NULL;
|
2003-12-31 13:14:07 +00:00
|
|
|
uint8 palette[1024];
|
|
|
|
|
2004-01-11 16:53:33 +00:00
|
|
|
if (f.open("credits.bmp")) {
|
2003-12-31 23:32:40 +00:00
|
|
|
logoWidth = f.readUint16LE();
|
|
|
|
logoHeight = f.readUint16LE();
|
2003-12-31 13:14:07 +00:00
|
|
|
|
2003-12-31 23:32:40 +00:00
|
|
|
for (i = 0; i < 256; i++) {
|
|
|
|
palette[i * 4 + 0] = f.readByte() << 2;
|
|
|
|
palette[i * 4 + 1] = f.readByte() << 2;
|
|
|
|
palette[i * 4 + 2] = f.readByte() << 2;
|
|
|
|
palette[i * 4 + 3] = 0;
|
|
|
|
}
|
2003-12-31 13:14:07 +00:00
|
|
|
|
2003-12-31 23:32:40 +00:00
|
|
|
logoData = (uint8 *) malloc(logoWidth * logoHeight);
|
|
|
|
|
|
|
|
f.read(logoData, logoWidth * logoHeight);
|
|
|
|
f.close();
|
|
|
|
} else {
|
|
|
|
warning("Can't find credits.bmp");
|
|
|
|
memset(palette, 0, sizeof(palette));
|
|
|
|
palette[14 * 4 + 0] = 252;
|
|
|
|
palette[14 * 4 + 1] = 252;
|
|
|
|
palette[14 * 4 + 2] = 252;
|
|
|
|
palette[14 * 4 + 3] = 0;
|
|
|
|
}
|
2003-12-31 13:14:07 +00:00
|
|
|
|
|
|
|
_vm->_graphics->setPalette(0, 256, palette, RDPAL_INSTANT);
|
|
|
|
|
|
|
|
// Read the credits text
|
|
|
|
|
|
|
|
// This should be plenty
|
|
|
|
CreditsLine creditsLines[350];
|
|
|
|
|
|
|
|
for (i = 0; i < ARRAYSIZE(creditsLines); i++) {
|
|
|
|
creditsLines[i].str = NULL;
|
|
|
|
creditsLines[i].sprite = NULL;
|
|
|
|
}
|
|
|
|
|
|
|
|
char textLine[80];
|
|
|
|
|
2004-01-11 16:53:33 +00:00
|
|
|
if (!f.open("credits.clu")) {
|
2003-12-31 13:14:07 +00:00
|
|
|
warning("Can't find credits.clu");
|
|
|
|
return IR_CONT;
|
|
|
|
}
|
2003-09-23 06:27:58 +00:00
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
int lineTop = 400;
|
|
|
|
int lineCount = 0;
|
|
|
|
int pos = 0;
|
2003-09-23 06:27:58 +00:00
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
textLine[0] = 0;
|
2003-09-23 15:59:52 +00:00
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
int paragraphStart = 0;
|
|
|
|
bool hasCenterMark = false;
|
2003-09-23 06:27:58 +00:00
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
while (1) {
|
|
|
|
if (lineCount >= ARRAYSIZE(creditsLines)) {
|
|
|
|
warning("Too many credits lines");
|
|
|
|
break;
|
2003-09-17 13:03:13 +00:00
|
|
|
}
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
byte b = f.readByte();
|
|
|
|
|
|
|
|
if (f.ioFailed())
|
|
|
|
break;
|
|
|
|
|
|
|
|
// Remember that the current paragraph has at least once center
|
|
|
|
// mark. If a paragraph has no center marks, it should be
|
|
|
|
// centered.
|
|
|
|
|
|
|
|
if (b == '^')
|
|
|
|
hasCenterMark = true;
|
|
|
|
|
|
|
|
if (b == '^' && pos != 0) {
|
|
|
|
textLine[pos] = 0;
|
|
|
|
|
|
|
|
creditsLines[lineCount].top = lineTop;
|
|
|
|
creditsLines[lineCount].height = CREDITS_FONT_HEIGHT;
|
|
|
|
creditsLines[lineCount].type = LINE_LEFT;
|
|
|
|
creditsLines[lineCount].str = strdup(textLine);
|
|
|
|
|
|
|
|
lineCount++;
|
|
|
|
textLine[0] = '^';
|
|
|
|
pos = 1;
|
|
|
|
} else if (b == 0x0a) {
|
|
|
|
creditsLines[lineCount].top = lineTop;
|
|
|
|
|
|
|
|
if (textLine[0] == '^') {
|
|
|
|
creditsLines[lineCount].str = strdup(textLine + 1);
|
|
|
|
creditsLines[lineCount].type = LINE_RIGHT;
|
|
|
|
} else {
|
|
|
|
creditsLines[lineCount].str = strdup(textLine);
|
|
|
|
creditsLines[lineCount].type = LINE_LEFT;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (strcmp(textLine, "@") == 0) {
|
|
|
|
creditsLines[lineCount].height = logoHeight;
|
|
|
|
lineTop += logoHeight;
|
|
|
|
} else {
|
|
|
|
creditsLines[lineCount].height = CREDITS_FONT_HEIGHT;
|
2003-12-31 23:32:40 +00:00
|
|
|
lineTop += CREDITS_LINE_SPACING;
|
2003-12-31 13:14:07 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
if (strlen(textLine) > 0)
|
|
|
|
lineCount++;
|
|
|
|
else {
|
|
|
|
if (!hasCenterMark)
|
|
|
|
for (int j = paragraphStart; j < lineCount; j++)
|
|
|
|
creditsLines[j].type = LINE_CENTER;
|
|
|
|
|
|
|
|
paragraphStart = lineCount;
|
|
|
|
hasCenterMark = false;
|
|
|
|
}
|
|
|
|
|
|
|
|
pos = 0;
|
|
|
|
} else if (b == 0x0d) {
|
|
|
|
textLine[pos++] = 0;
|
|
|
|
} else
|
|
|
|
textLine[pos++] = b;
|
|
|
|
}
|
|
|
|
|
|
|
|
f.close();
|
|
|
|
|
|
|
|
// The paragraph detection above won't find the last paragraph, so we
|
|
|
|
// have to deal with it separately.
|
|
|
|
|
|
|
|
if (!hasCenterMark)
|
|
|
|
for (int j = paragraphStart; j < lineCount; j++)
|
|
|
|
creditsLines[j].type = LINE_CENTER;
|
|
|
|
|
|
|
|
// We could easily add some ScummVM stuff to the credits, if we wanted
|
|
|
|
// to. On the other hand, anyone with the attention span to actually
|
|
|
|
// read all the credits probably already knows. :-)
|
|
|
|
|
|
|
|
// Start the music and roll the credits
|
|
|
|
|
|
|
|
// The credits music (which can also be heard briefly in the "carib"
|
2004-01-12 08:01:25 +00:00
|
|
|
// cutscene) is played once.
|
2003-12-31 13:14:07 +00:00
|
|
|
|
|
|
|
int32 pars[2];
|
|
|
|
|
|
|
|
pars[0] = 309;
|
|
|
|
pars[1] = FX_SPOT;
|
|
|
|
fnPlayMusic(pars);
|
|
|
|
|
|
|
|
_vm->_graphics->clearScene();
|
|
|
|
_vm->_graphics->fadeUp(0);
|
|
|
|
|
|
|
|
spriteInfo.scale = 0;
|
|
|
|
spriteInfo.scaledWidth = 0;
|
|
|
|
spriteInfo.scaledHeight = 0;
|
|
|
|
spriteInfo.type = RDSPR_DISPLAYALIGN | RDSPR_NOCOMPRESSION | RDSPR_TRANS;
|
|
|
|
spriteInfo.blend = 0;
|
|
|
|
|
2003-12-31 23:32:40 +00:00
|
|
|
int startLine = 0;
|
2003-12-31 13:14:07 +00:00
|
|
|
int scrollPos = 0;
|
|
|
|
|
2004-01-12 08:01:25 +00:00
|
|
|
bool abortCredits = false;
|
|
|
|
|
|
|
|
int scrollSteps = lineTop + CREDITS_FONT_HEIGHT;
|
|
|
|
uint32 musicStart = _vm->_system->get_msecs();
|
|
|
|
|
|
|
|
// Ideally the music should last just a tiny bit longer than the
|
|
|
|
// credits. Note that musicTimeRemaining() will return 0 if the music
|
|
|
|
// is muted, so we need a sensible fallback for that case.
|
|
|
|
|
2004-01-17 11:15:38 +00:00
|
|
|
uint32 musicLength = MAX((int32)(1000 * (_vm->_sound->musicTimeRemaining() - 3)), 25 * (int32)scrollSteps);
|
2004-01-12 08:01:25 +00:00
|
|
|
|
|
|
|
while (scrollPos < scrollSteps && !_vm->_quit) {
|
2003-12-31 23:32:40 +00:00
|
|
|
bool foundStartLine = false;
|
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
_vm->_graphics->clearScene();
|
|
|
|
|
2003-12-31 23:32:40 +00:00
|
|
|
for (i = startLine; i < lineCount; i++) {
|
2003-12-31 13:14:07 +00:00
|
|
|
// Free any sprites that have scrolled off the screen
|
|
|
|
|
|
|
|
if (creditsLines[i].top + creditsLines[i].height < scrollPos) {
|
|
|
|
if (creditsLines[i].sprite) {
|
|
|
|
_vm->_memory->freeMemory(creditsLines[i].sprite);
|
|
|
|
creditsLines[i].sprite = NULL;
|
|
|
|
debug(2, "Freeing sprite '%s'", creditsLines[i].str);
|
|
|
|
}
|
|
|
|
if (creditsLines[i].str) {
|
|
|
|
free(creditsLines[i].str);
|
|
|
|
creditsLines[i].str = NULL;
|
|
|
|
}
|
|
|
|
} else if (creditsLines[i].top < scrollPos + 400) {
|
2003-12-31 23:32:40 +00:00
|
|
|
if (!foundStartLine) {
|
|
|
|
startLine = i;
|
|
|
|
foundStartLine = true;
|
|
|
|
}
|
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
if (!creditsLines[i].sprite) {
|
|
|
|
debug(2, "Creating sprite '%s'", creditsLines[i].str);
|
|
|
|
creditsLines[i].sprite = _vm->_fontRenderer->makeTextSprite((uint8 *) creditsLines[i].str, 600, 14, _vm->_speechFontId, 0);
|
|
|
|
}
|
|
|
|
|
|
|
|
FrameHeader *frame = (FrameHeader *) creditsLines[i].sprite->ad;
|
|
|
|
|
|
|
|
spriteInfo.y = creditsLines[i].top - scrollPos;
|
|
|
|
spriteInfo.w = frame->width;
|
|
|
|
spriteInfo.h = frame->height;
|
|
|
|
spriteInfo.data = creditsLines[i].sprite->ad + sizeof(FrameHeader);
|
|
|
|
|
|
|
|
switch (creditsLines[i].type) {
|
|
|
|
case LINE_LEFT:
|
|
|
|
spriteInfo.x = 640 / 2 - 5 - frame->width;
|
|
|
|
break;
|
|
|
|
case LINE_RIGHT:
|
|
|
|
spriteInfo.x = 640 / 2 + 5;
|
|
|
|
break;
|
|
|
|
case LINE_CENTER:
|
|
|
|
if (strcmp(creditsLines[i].str, "@") == 0) {
|
|
|
|
spriteInfo.data = logoData;
|
|
|
|
spriteInfo.x = (640 - logoWidth) / 2;
|
|
|
|
spriteInfo.w = logoWidth;
|
|
|
|
spriteInfo.h = logoHeight;
|
|
|
|
} else
|
|
|
|
spriteInfo.x = (640 - frame->width) / 2;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
2003-12-31 23:32:40 +00:00
|
|
|
if (spriteInfo.data)
|
|
|
|
_vm->_graphics->drawSprite(&spriteInfo);
|
|
|
|
} else
|
|
|
|
break;
|
2003-12-31 13:14:07 +00:00
|
|
|
}
|
2003-09-23 06:27:58 +00:00
|
|
|
|
2003-11-16 14:18:29 +00:00
|
|
|
_vm->_graphics->updateDisplay();
|
2003-07-28 01:44:38 +00:00
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
KeyboardEvent ke;
|
|
|
|
|
|
|
|
if (_vm->_input->readKey(&ke) == RD_OK && ke.keycode == 27) {
|
2004-01-12 08:01:25 +00:00
|
|
|
if (!abortCredits) {
|
|
|
|
abortCredits = true;
|
|
|
|
_vm->_graphics->fadeDown();
|
|
|
|
}
|
2003-12-31 13:14:07 +00:00
|
|
|
}
|
|
|
|
|
2004-01-12 08:01:25 +00:00
|
|
|
if (abortCredits && _vm->_graphics->getFadeStatus() == RDFADE_BLACK)
|
|
|
|
break;
|
2003-12-31 13:14:07 +00:00
|
|
|
|
2004-01-12 08:01:25 +00:00
|
|
|
_vm->sleepUntil(musicStart + (musicLength * scrollPos) / scrollSteps);
|
2003-12-31 13:14:07 +00:00
|
|
|
scrollPos++;
|
2003-09-17 13:03:13 +00:00
|
|
|
}
|
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
// We're done. Clean up and try to put everything back where it was
|
|
|
|
// before the credits.
|
|
|
|
|
|
|
|
for (i = 0; i < lineCount; i++) {
|
|
|
|
if (creditsLines[i].str)
|
|
|
|
free(creditsLines[i].str);
|
|
|
|
if (creditsLines[i].sprite)
|
|
|
|
_vm->_memory->freeMemory(creditsLines[i].sprite);
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
if (logoData)
|
|
|
|
free(logoData);
|
|
|
|
|
2004-01-12 08:01:25 +00:00
|
|
|
if (!abortCredits) {
|
|
|
|
// The music should either have stopped or be about to stop, so
|
|
|
|
// wait for it to really happen.
|
2004-01-08 13:03:50 +00:00
|
|
|
|
2004-01-12 08:01:25 +00:00
|
|
|
while (_vm->_sound->musicTimeRemaining() && !_vm->_quit) {
|
|
|
|
_vm->_graphics->updateDisplay(false);
|
|
|
|
_vm->_system->delay_msecs(100);
|
|
|
|
}
|
2004-01-08 13:03:50 +00:00
|
|
|
}
|
2003-12-31 13:14:07 +00:00
|
|
|
|
2004-01-12 08:01:25 +00:00
|
|
|
if (_vm->_quit)
|
|
|
|
return IR_CONT;
|
|
|
|
|
2003-12-31 13:14:07 +00:00
|
|
|
_vm->_sound->restoreMusicState();
|
|
|
|
_vm->_sound->muteFx(false);
|
|
|
|
_vm->_sound->muteSpeech(false);
|
|
|
|
|
|
|
|
_vm->_thisScreen.new_palette = 99;
|
|
|
|
|
|
|
|
if (!_vm->_mouseStatus || _choosing)
|
|
|
|
_vm->setMouse(NORMAL_MOUSE_ID);
|
|
|
|
|
|
|
|
if (DEAD)
|
|
|
|
_vm->buildSystemMenu();
|
|
|
|
|
2003-09-17 13:03:13 +00:00
|
|
|
return IR_CONT;
|
2003-07-28 01:44:38 +00:00
|
|
|
}
|
2003-10-04 00:52:27 +00:00
|
|
|
|
|
|
|
} // End of namespace Sword2
|