raze/source/games/blood/src/eventq.cpp

753 lines
17 KiB
C++
Raw Normal View History

2019-09-19 22:42:45 +00:00
//-------------------------------------------------------------------------
/*
Copyright (C) 2010-2019 EDuke32 developers and contributors
Copyright (C) 2019 Nuke.YKT
Copyright (C) 2020 Christoph Oelckers
2019-09-19 22:42:45 +00:00
This file is part of Raze.
2019-09-19 22:42:45 +00:00
Raze is free software; you can redistribute it and/or
2019-09-19 22:42:45 +00:00
modify it under the terms of the GNU General Public License version 2
as published by the Free Software Foundation.
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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*/
//-------------------------------------------------------------------------
#include "ns.h"
#include <set>
2019-09-19 22:42:45 +00:00
#include "build.h"
#include "printf.h"
#include "blood.h"
2019-11-12 23:44:33 +00:00
#include "secrets.h"
#include "serializer.h"
2020-12-03 17:00:07 +00:00
#include "bloodactor.h"
2019-09-19 22:42:45 +00:00
BEGIN_BLD_NS
const int kMaxID = 1024;
2021-11-23 17:49:48 +00:00
EventObject rxBucket[kChannelMax];
unsigned short bucketHead[kMaxID + 1];
static int bucketCount;
static std::multiset<EVENT> queue;
2021-11-23 17:05:24 +00:00
FString EventObject::description() const
{
if (isActor()) return FStringf("actor %d", ActorP->GetIndex()); // do not add a read barrier here!
if (isSector()) return FStringf("sector %d", int(index >> 8));
if (isWall()) return FStringf("wall %d", int(index >> 8));
return FString("invalid object");
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
static int GetBucketChannel(EventObject* pBucket)
2019-09-19 22:42:45 +00:00
{
if (pBucket->isSector())
{
auto pSector = pBucket->sector();
2021-11-19 00:13:33 +00:00
assert(pSector->hasX());
return pSector->xs().rxID;
}
if (pBucket->isWall())
2021-11-19 00:13:33 +00:00
{
auto pWall = pBucket->wall();
2021-11-19 00:13:33 +00:00
assert(pWall->hasX());
return pWall->xw().rxID;
}
if (pBucket->isActor())
{
auto pActor = pBucket->actor();
2021-12-29 19:45:55 +00:00
return pActor ? pActor->xspr.rxID : 0;
}
Printf(PRINT_HIGH, "Unexpected rxBucket %s", pBucket->description().GetChars());
return 0;
2019-09-19 22:42:45 +00:00
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
static int CompareChannels(EventObject* ref1, EventObject* ref2)
2019-09-19 22:42:45 +00:00
{
return GetBucketChannel(ref1) - GetBucketChannel(ref2);
2019-09-19 22:42:45 +00:00
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
2021-11-23 17:49:48 +00:00
static EventObject* SortGetMiddle(EventObject* a1, EventObject* a2, EventObject* a3)
2019-09-19 22:42:45 +00:00
{
if (CompareChannels(a1, a2) > 0)
{
if (CompareChannels(a1, a3) > 0)
{
if (CompareChannels(a2, a3) > 0)
return a2;
return a3;
}
return a1;
}
else
{
if (CompareChannels(a1, a3) < 0)
{
if (CompareChannels(a2, a3) > 0)
return a3;
return a2;
}
return a1;
}
2019-09-19 22:42:45 +00:00
}
2021-11-23 17:49:48 +00:00
static void SortSwap(EventObject* a, EventObject* b)
2019-09-19 22:42:45 +00:00
{
2021-11-23 17:49:48 +00:00
EventObject t = *a;
*a = *b;
*b = t;
2019-09-19 22:42:45 +00:00
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
static void SortRXBucket(int nCount)
2019-09-19 22:42:45 +00:00
{
2021-11-23 17:49:48 +00:00
EventObject* v144[32];
int vc4[32];
int v14 = 0;
2021-11-23 17:49:48 +00:00
EventObject* pArray = rxBucket;
while (true)
{
while (nCount > 1)
{
if (nCount < 16)
{
for (int nDist = 3; nDist > 0; nDist -= 2)
{
2021-11-23 17:49:48 +00:00
for (EventObject* pI = pArray + nDist; pI < pArray + nCount; pI += nDist)
{
2021-11-23 17:49:48 +00:00
for (EventObject* pJ = pI; pJ > pArray && CompareChannels(pJ - nDist, pJ) > 0; pJ -= nDist)
{
SortSwap(pJ, pJ - nDist);
}
}
}
break;
}
2021-12-29 19:45:55 +00:00
EventObject* middle = pArray + nCount / 2;
if (nCount > 29)
{
2021-11-23 17:49:48 +00:00
EventObject* first = pArray;
EventObject* last = pArray + nCount - 1;
if (nCount > 42)
{
int eighth = nCount / 8;
first = SortGetMiddle(first, first + eighth, first + eighth * 2);
middle = SortGetMiddle(middle - eighth, middle, middle + eighth);
last = SortGetMiddle(last - eighth * 2, last - eighth, last);
}
middle = SortGetMiddle(first, middle, last);
}
2021-11-23 17:49:48 +00:00
EventObject pivot = *middle;
EventObject* first = pArray;
EventObject* last = pArray + nCount - 1;
EventObject* vbx = first;
EventObject* v4 = last;
while (true)
{
while (vbx <= v4)
{
int nCmp = CompareChannels(vbx, &pivot);
if (nCmp > 0)
break;
if (nCmp == 0)
{
SortSwap(vbx, first);
first++;
}
vbx++;
}
while (vbx <= v4)
{
int nCmp = CompareChannels(v4, &pivot);
if (nCmp < 0)
break;
if (nCmp == 0)
{
SortSwap(v4, last);
last--;
}
v4--;
}
if (vbx > v4)
break;
SortSwap(vbx, v4);
v4--;
vbx++;
}
2021-11-23 17:49:48 +00:00
EventObject* v2c = pArray + nCount;
2021-05-12 00:00:06 +00:00
int vt = int(min(vbx - first, first - pArray));
for (int i = 0; i < vt; i++)
{
SortSwap(&vbx[i - vt], &pArray[i]);
}
2021-05-12 00:00:06 +00:00
vt = int(min(last - v4, v2c - last - 1));
for (int i = 0; i < vt; i++)
{
SortSwap(&v2c[i - vt], &vbx[i]);
}
2021-05-12 00:00:06 +00:00
int vvsi = int(last - v4);
int vvdi = int(vbx - first);
if (vvsi >= vvdi)
{
vc4[v14] = vvsi;
v144[v14] = v2c - vvsi;
nCount = vvdi;
v14++;
}
else
{
vc4[v14] = vvdi;
v144[v14] = pArray;
nCount = vvsi;
pArray = v2c - vvsi;
v14++;
}
}
if (v14 == 0)
return;
v14--;
pArray = v144[v14];
nCount = vc4[v14];
}
2019-09-19 22:42:45 +00:00
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
static void createBucketHeads()
2019-09-19 22:42:45 +00:00
{
int i, j;
// create the list of header indices
for (i = 0, j = 0; i < kMaxID; i++)
{
bucketHead[i] = (short)j;
while (j < bucketCount && GetBucketChannel(&rxBucket[j]) == i)
{
j++;
}
}
bucketHead[i] = (short)j;
2019-09-19 22:42:45 +00:00
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
2019-09-19 22:42:45 +00:00
void evInit(TArray<DBloodActor*>& actors)
2019-09-19 22:42:45 +00:00
{
int nCount = 0;
queue.clear();
memset(rxBucket, 0, sizeof(rxBucket));
// add all the tags to the bucket array
2021-12-29 19:45:55 +00:00
for (auto& sect : sector)
{
if (sect.hasX() && sect.xs().rxID > 0)
{
assert(nCount < kChannelMax);
2021-11-23 17:43:19 +00:00
rxBucket[nCount] = EventObject(&sect);
nCount++;
}
}
2021-12-29 19:45:55 +00:00
for (auto& wal : wall)
{
if (wal.hasX() && wal.xw().rxID > 0)
{
assert(nCount < kChannelMax);
2021-11-23 17:43:19 +00:00
rxBucket[nCount] = EventObject(&wal);
nCount++;
}
}
for (auto actor : actors)
{
if (actor->exists() && actor->hasX() && actor->xspr.rxID > 0)
{
assert(nCount < kChannelMax);
2021-11-23 17:43:19 +00:00
rxBucket[nCount] = EventObject(actor);
nCount++;
}
}
SortRXBucket(nCount);
bucketCount = nCount;
createBucketHeads();
2019-09-19 22:42:45 +00:00
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
static bool evGetSourceState(EventObject& eob)
2019-09-19 22:42:45 +00:00
{
2021-11-23 17:05:24 +00:00
if (eob.isSector())
{
2021-11-23 17:05:24 +00:00
auto pSect = eob.sector();
return pSect->hasX() && pSect->xs().state != 0;
}
else if (eob.isWall())
{
auto pWall = eob.wall();
return pWall->hasX() && pWall->xw().state != 0;
}
else if (eob.isActor())
{
auto actor = eob.actor();
if (actor && actor->hasX())
return actor->xspr.state != 0;
}
// shouldn't reach this point
return false;
2019-09-19 22:42:45 +00:00
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
void evSend(EventObject& eob, int rxId, COMMAND_ID command)
2019-09-19 22:42:45 +00:00
{
switch (command) {
case kCmdState:
2021-11-23 17:05:24 +00:00
command = evGetSourceState(eob) ? kCmdOn : kCmdOff;
break;
case kCmdNotState:
2021-11-23 17:05:24 +00:00
command = evGetSourceState(eob) ? kCmdOff : kCmdOn;
break;
default:
break;
}
EVENT event;
2021-11-23 17:05:24 +00:00
event.target = eob;
event.cmd = command;
switch (rxId) {
case kChannelTextOver:
if (command >= kCmdNumberic) trTextOver(command - kCmdNumberic);
2021-11-23 17:05:24 +00:00
else viewSetSystemMessage("Invalid TextOver command by %s", eob.description().GetChars());
return;
case kChannelLevelExitNormal:
levelEndLevel(0);
return;
case kChannelLevelExitSecret:
levelEndLevel(1);
return;
#ifdef NOONE_EXTENSIONS
// finished level and load custom level <20> via numbered command.
case kChannelModernEndLevelCustom:
if (command >= kCmdNumberic) levelEndLevelCustom(command - kCmdNumberic);
2021-11-23 17:05:24 +00:00
else viewSetSystemMessage("Invalid Level-Exit# command by %s", eob.description().GetChars());
return;
#endif
case kChannelSetTotalSecrets:
if (command >= kCmdNumberic) gSecretMgr.SetCount(command - kCmdNumberic);
2021-11-23 17:05:24 +00:00
else viewSetSystemMessage("Invalid Total-Secrets command by %s", eob.description().GetChars());
break;
case kChannelSecretFound:
2021-12-29 19:45:55 +00:00
{
2021-11-23 17:05:24 +00:00
int nIndex = -1;
int nType = -1;
if (eob.isActor() && eob.actor()) nIndex = eob.actor()->GetIndex(), nType = Secret_Sprite;
else if (eob.isSector()) nIndex = eob.rawindex(), nType = Secret_Sector;
else if (eob.isWall()) nIndex = eob.rawindex(), nType = Secret_Wall;
if (SECRET_Trigger(nIndex, nType)) // if the hint system knows this secret it's a retrigger - skip that.
{
if (command >= kCmdNumberic)
{
gSecretMgr.Found(command - kCmdNumberic);
if (gGameOptions.nGameType == 0)
{
viewSetMessage(GStrings(FStringf("TXTB_SECRET%d", Random(2))), nullptr, MESSAGE_PRIORITY_SECRET);
}
}
2021-11-23 17:05:24 +00:00
else viewSetSystemMessage("Invalid Trigger-Secret command by %s", eob.description().GetChars());
}
break;
2021-11-23 17:05:24 +00:00
}
case kChannelRemoteBomb0:
case kChannelRemoteBomb1:
case kChannelRemoteBomb2:
case kChannelRemoteBomb3:
case kChannelRemoteBomb4:
case kChannelRemoteBomb5:
case kChannelRemoteBomb6:
case kChannelRemoteBomb7:
{
2021-08-27 14:44:24 +00:00
BloodStatIterator it(kStatThing);
while (auto actor = it.Next())
{
if (actor->spr.flags & 32)
continue;
2021-08-27 14:44:24 +00:00
if (actor->hasX())
{
if (actor->xspr.rxID == rxId)
2021-09-05 06:27:34 +00:00
trMessageSprite(actor, event);
}
}
return;
}
case kChannelTeamAFlagCaptured:
case kChannelTeamBFlagCaptured:
{
2021-08-27 14:44:24 +00:00
BloodStatIterator it(kStatItem);
while (auto actor = it.Next())
{
if (actor->spr.flags & 32)
continue;
2021-08-27 14:44:24 +00:00
if (actor->hasX())
{
if (actor->xspr.rxID == rxId)
2021-09-05 06:27:34 +00:00
trMessageSprite(actor, event);
}
}
return;
}
default:
break;
}
#ifdef NOONE_EXTENSIONS
2021-12-29 19:45:55 +00:00
if (gModernMap)
{
// allow to send commands on player sprites
PLAYER* pPlayer = NULL;
2021-12-29 19:45:55 +00:00
if (playerRXRngIsFine(rxId))
{
2020-12-06 20:56:09 +00:00
if ((pPlayer = getPlayerById((rxId - kChannelPlayer7) + kMaxPlayers)) != nullptr)
trMessageSprite(pPlayer->actor, event);
}
2021-12-29 19:45:55 +00:00
else if (rxId == kChannelAllPlayers)
{
2021-12-29 19:45:55 +00:00
for (int i = 0; i < kMaxPlayers; i++)
{
if ((pPlayer = getPlayerById(i)) != nullptr)
trMessageSprite(pPlayer->actor, event);
}
2021-12-29 19:45:55 +00:00
return;
}
}
#endif
2021-12-29 19:45:55 +00:00
for (int i = bucketHead[rxId]; i < bucketHead[rxId + 1]; i++)
{
2021-11-23 17:43:19 +00:00
auto eo = rxBucket[i];
2021-11-23 17:05:24 +00:00
if (!event.event_isObject(eo))
{
2021-11-23 17:41:18 +00:00
if (eo.isSector())
{
trMessageSector(eo.sector(), event);
2021-11-23 17:41:18 +00:00
}
else if (eo.isWall())
{
trMessageWall(eo.wall(), event);
2021-11-23 17:41:18 +00:00
}
else if (eo.isActor())
{
auto actor = eo.actor();
2021-09-01 17:48:33 +00:00
if (actor && actor->hasX() && !(actor->spr.flags & 32))
{
if (actor->xspr.rxID > 0)
2021-09-05 06:27:34 +00:00
trMessageSprite(actor, event);
}
}
}
}
2019-09-19 22:42:45 +00:00
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
2019-09-19 22:42:45 +00:00
void evPost_(EventObject& eob, unsigned int nDelta, COMMAND_ID command)
{
assert(command != kCmdCallback);
2021-11-23 17:05:24 +00:00
if (command == kCmdState) command = evGetSourceState(eob) ? kCmdOn : kCmdOff;
else if (command == kCmdNotState) command = evGetSourceState(eob) ? kCmdOff : kCmdOn;
2021-12-29 19:45:55 +00:00
EVENT evn = { eob, (int8_t)command, 0, PlayClock + (int)nDelta };
queue.insert(evn);
2019-09-19 22:42:45 +00:00
}
2021-11-23 17:05:24 +00:00
void evPost_(const EventObject& eob, unsigned int nDelta, CALLBACK_ID callback)
2019-09-19 22:42:45 +00:00
{
2021-12-29 19:45:55 +00:00
EVENT evn = { eob, kCmdCallback, (int16_t)callback, PlayClock + (int)nDelta };
queue.insert(evn);
2019-09-19 22:42:45 +00:00
}
void evPostActor(DBloodActor* actor, unsigned int nDelta, COMMAND_ID command)
2020-12-03 17:00:07 +00:00
{
auto ev = EventObject(actor);
evPost_(ev, nDelta, command);
2020-12-03 17:00:07 +00:00
}
void evPostActor(DBloodActor* actor, unsigned int nDelta, CALLBACK_ID callback)
2020-12-03 17:00:07 +00:00
{
2021-11-23 17:05:24 +00:00
evPost_(EventObject(actor), nDelta, callback);
}
void evPostSector(sectortype* sect, unsigned int nDelta, COMMAND_ID command)
{
auto ev = EventObject(sect);
evPost_(ev, nDelta, command);
}
void evPostSector(sectortype* sect, unsigned int nDelta, CALLBACK_ID callback)
{
2021-11-23 17:05:24 +00:00
evPost_(EventObject(sect), nDelta, callback);
2020-12-03 17:00:07 +00:00
}
2021-11-23 16:23:16 +00:00
void evPostWall(walltype* wal, unsigned int nDelta, COMMAND_ID command)
{
auto ev = EventObject(wal);
evPost_(ev, nDelta, command);
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
2021-11-23 17:05:24 +00:00
void evKill_(const EventObject& eob)
2019-09-19 22:42:45 +00:00
{
for (auto ev = queue.begin(); ev != queue.end();)
{
2021-11-23 17:05:24 +00:00
if (ev->event_isObject(eob)) ev = queue.erase(ev);
else ev++;
}
2019-09-19 22:42:45 +00:00
}
2021-11-23 17:05:24 +00:00
void evKill_(const EventObject& eob, CALLBACK_ID cb)
2019-09-19 22:42:45 +00:00
{
for (auto ev = queue.begin(); ev != queue.end();)
{
2021-11-23 17:05:24 +00:00
if (ev->event_isObject(eob) && ev->funcID == cb) ev = queue.erase(ev);
else ev++;
}
2019-09-19 22:42:45 +00:00
}
void evKillActor(DBloodActor* actor)
2020-12-03 17:00:07 +00:00
{
2021-11-23 17:05:24 +00:00
evKill_(EventObject(actor));
2020-12-03 17:00:07 +00:00
}
void evKillActor(DBloodActor* actor, CALLBACK_ID cb)
2021-09-16 17:42:54 +00:00
{
2021-11-23 17:05:24 +00:00
evKill_(EventObject(actor));
2021-09-16 17:42:54 +00:00
}
void evKillWall(walltype* wal)
{
2021-11-23 17:05:24 +00:00
evKill_(EventObject(wal));
}
void evKillSector(sectortype* sec)
{
2021-11-23 17:05:24 +00:00
evKill_(EventObject(sec));
}
// these have no target.
void evSendGame(int rxId, COMMAND_ID command)
{
auto ev = EventObject(nullptr);
evSend(ev, rxId, command);
}
void evSendActor(DBloodActor* actor, int rxId, COMMAND_ID command)
{
auto ev = EventObject(actor);
evSend(ev, rxId, command);
}
2021-11-23 16:34:39 +00:00
void evSendSector(sectortype* sect, int rxId, COMMAND_ID command)
{
auto ev = EventObject(sect);
evSend(ev, rxId, command);
}
2021-11-19 00:12:05 +00:00
void evSendWall(walltype* wal, int rxId, COMMAND_ID command)
{
auto ev = EventObject(wal);
evSend(ev, rxId, command);
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
void evProcess(unsigned int time)
2019-09-19 22:42:45 +00:00
{
while (queue.size() > 0 && (int)time >= queue.begin()->priority)
{
EVENT event = *queue.begin();
queue.erase(queue.begin());
2021-11-23 17:05:24 +00:00
if (event.target.isActor())
{
// Don't call events on destroyed actors. Seems to happen occasionally.
if (!event.target.actor() || event.target.actor()->spr.statnum == kStatFree) continue;
}
if (event.cmd == kCmdCallback)
{
assert(event.funcID < kCallbackMax);
2021-11-24 00:05:17 +00:00
if (event.target.isActor()) gCallback[event.funcID](event.target.actor(), nullptr);
else if (event.target.isSector()) gCallback[event.funcID](nullptr, event.target.sector());
2021-11-23 17:05:24 +00:00
// no case for walls defined here.
}
else
{
2021-11-23 17:05:24 +00:00
if (event.target.isActor()) trMessageSprite(event.target.actor(), event);
else if (event.target.isSector()) trMessageSector(event.target.sector(), event);
else if (event.target.isWall()) trMessageWall(event.target.wall(), event);
}
2021-12-29 19:45:55 +00:00
}
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
2019-09-19 22:42:45 +00:00
2021-11-23 17:05:24 +00:00
FSerializer& Serialize(FSerializer& arc, const char* keyname, EventObject& w, EventObject* def)
{
if (arc.BeginObject(keyname))
{
int type = w.isActor() ? 0 : w.isSector() ? 1 : 2;
arc("type", type);
switch (type)
{
case 0:
{
2021-12-29 19:45:55 +00:00
DBloodActor* a = arc.isWriting() ? w.actor() : nullptr;
2021-11-23 17:05:24 +00:00
arc("actor", a);
if (arc.isReading()) w = EventObject(a);
2021-11-23 17:05:24 +00:00
break;
}
case 1:
{
2021-12-29 19:45:55 +00:00
auto s = arc.isWriting() ? w.sector() : nullptr;
2021-11-23 17:05:24 +00:00
arc("sector", s);
if (arc.isReading()) w = EventObject(s);
2021-11-23 17:05:24 +00:00
break;
}
case 2:
{
2021-12-29 19:45:55 +00:00
auto s = arc.isWriting() ? w.wall() : nullptr;
2021-11-23 17:05:24 +00:00
arc("wall", s);
if (arc.isReading()) w = EventObject(s);
2021-11-23 17:05:24 +00:00
break;
}
}
arc.EndObject();
}
return arc;
}
FSerializer& Serialize(FSerializer& arc, const char* keyname, EVENT& w, EVENT* def)
2019-09-19 22:42:45 +00:00
{
if (arc.BeginObject(keyname))
{
2021-11-23 17:05:24 +00:00
arc("target", w.target)
("command", w.cmd)
("func", w.funcID)
("prio", w.priority)
.EndObject();
}
return arc;
2019-09-19 22:42:45 +00:00
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
2019-09-19 22:42:45 +00:00
void SerializeEvents(FSerializer& arc)
2019-09-19 22:42:45 +00:00
{
if (arc.BeginObject("events"))
{
arc("bucketcount", bucketCount)
.Array("buckets", rxBucket, bucketCount)
.Array("buckethead", bucketHead, countof(bucketHead));
int numEvents = (int)queue.size();
arc("eventcount", numEvents);
if (arc.BeginArray("events"))
{
if (arc.isReading())
{
queue.clear();
EVENT ev;
for (int i = 0; i < numEvents; i++)
{
arc(nullptr, ev);
queue.insert(ev);
}
}
else
{
for (auto item : queue)
{
arc(nullptr, item);
}
}
arc.EndArray();
}
arc.EndObject();
}
2019-09-19 22:42:45 +00:00
}
END_BLD_NS