raze/source/blood/src/eventq.cpp

608 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
This file is part of NBlood.
NBlood is free software; you can redistribute it and/or
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" // Must come before everything else!
2019-09-19 22:42:45 +00:00
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "build.h"
#include "common_game.h"
#include "callback.h"
#include "db.h"
#include "eventq.h"
#include "globals.h"
#include "loadsave.h"
#include "pqueue.h"
#include "triggers.h"
#include "view.h"
2019-09-19 22:42:45 +00:00
BEGIN_BLD_NS
2019-09-19 22:42:45 +00:00
class EventQueue
{
public:
PriorityQueue<EVENT>* PQueue;
2019-09-19 22:42:45 +00:00
EventQueue()
{
PQueue = NULL;
}
bool IsNotEmpty(unsigned int nTime)
{
return PQueue->Size() > 0 && nTime >= PQueue->LowestPriority();
}
EVENT ERemove(void)
{
return PQueue->Remove();
2019-09-19 22:42:45 +00:00
}
void Kill(int, int);
void Kill(int, int, CALLBACK_ID);
};
EventQueue eventQ;
void EventQueue::Kill(int a1, int a2)
{
PQueue->Kill([=](EVENT nItem)->bool {return nItem.index == a1 && nItem.type == a2; });
2019-09-19 22:42:45 +00:00
}
void EventQueue::Kill(int a1, int a2, CALLBACK_ID a3)
{
EVENT evn = { (unsigned int)a1, (unsigned int)a2, kCmdCallback, (unsigned int)a3 };
PQueue->Kill([=](EVENT nItem)->bool {return !memcmp(&nItem, &evn, sizeof(EVENT)); });
2019-09-19 22:42:45 +00:00
}
RXBUCKET rxBucket[kChannelMax+1];
2019-09-19 22:42:45 +00:00
int GetBucketChannel(const RXBUCKET *pRX)
{
switch (pRX->type) {
case 6: {
int nIndex = pRX->index;
int nXIndex = sector[nIndex].extra;
dassert(nXIndex > 0);
return xsector[nXIndex].rxID;
}
case 0: {
int nIndex = pRX->index;
int nXIndex = wall[nIndex].extra;
dassert(nXIndex > 0);
return xwall[nXIndex].rxID;
}
case 3: {
int nIndex = pRX->index;
int nXIndex = sprite[nIndex].extra;
dassert(nXIndex > 0);
return xsprite[nXIndex].rxID;
}
2019-09-19 22:42:45 +00:00
}
return 0;
}
#if 0
int CompareChannels(const void *a, const void *b)
{
return GetBucketChannel((const RXBUCKET*)a)-GetBucketChannel((const RXBUCKET*)b);
}
#else
static int CompareChannels(RXBUCKET *a, RXBUCKET *b)
{
return GetBucketChannel(a) - GetBucketChannel(b);
}
#endif
static RXBUCKET *SortGetMiddle(RXBUCKET *a1, RXBUCKET *a2, RXBUCKET *a3)
{
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;
}
}
static void SortSwap(RXBUCKET *a, RXBUCKET *b)
{
RXBUCKET t = *a;
*a = *b;
*b = t;
}
static void SortRXBucket(int nCount)
{
RXBUCKET *v144[32];
int vc4[32];
int v14 = 0;
RXBUCKET *pArray = rxBucket;
while (true)
{
while (nCount > 1)
{
if (nCount < 16)
{
for (int nDist = 3; nDist > 0; nDist -= 2)
{
for (RXBUCKET *pI = pArray+nDist; pI < pArray+nCount; pI += nDist)
{
for (RXBUCKET *pJ = pI; pJ > pArray && CompareChannels(pJ-nDist, pJ) > 0; pJ -= nDist)
{
SortSwap(pJ, pJ-nDist);
}
}
}
break;
}
RXBUCKET *v30, *vdi, *vsi;
vdi = pArray + nCount / 2;
if (nCount > 29)
{
v30 = pArray;
vsi = pArray + nCount-1;
if (nCount > 42)
{
int v20 = nCount / 8;
v30 = SortGetMiddle(v30, v30+v20, v30+v20*2);
vdi = SortGetMiddle(vdi-v20, vdi, vdi+v20);
vsi = SortGetMiddle(vsi-v20*2, vsi-v20, vsi);
}
vdi = SortGetMiddle(v30, vdi, vsi);
}
RXBUCKET v44 = *vdi;
RXBUCKET *vc = pArray;
RXBUCKET *v8 = pArray+nCount-1;
RXBUCKET *vbx = vc;
RXBUCKET *v4 = v8;
while (true)
{
while (vbx <= v4)
{
int nCmp = CompareChannels(vbx, &v44);
if (nCmp > 0)
break;
if (nCmp == 0)
{
SortSwap(vbx, vc);
vc++;
}
vbx++;
}
while (vbx <= v4)
{
int nCmp = CompareChannels(v4, &v44);
if (nCmp < 0)
break;
if (nCmp == 0)
{
SortSwap(v4, v8);
v8--;
}
v4--;
}
if (vbx > v4)
break;
SortSwap(vbx, v4);
v4--;
vbx++;
}
RXBUCKET *v2c = pArray+nCount;
int vt = ClipHigh(vbx-vc, vc-pArray);
for (int i = 0; i < vt; i++)
{
SortSwap(&vbx[i-vt], &pArray[i]);
}
vt = ClipHigh(v8-v4, v2c-v8-1);
for (int i = 0; i < vt; i++)
{
SortSwap(&v2c[i-vt], &vbx[i]);
}
int vvsi = v8-v4;
int vvdi = vbx-vc;
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];
}
}
unsigned short bucketHead[1024+1];
void evInit(void)
{
if (eventQ.PQueue)
delete eventQ.PQueue;
if (VanillaMode())
eventQ.PQueue = new VanillaPriorityQueue<EVENT>();
2019-09-19 22:42:45 +00:00
else
eventQ.PQueue = new StdPriorityQueue<EVENT>();
2019-09-19 22:42:45 +00:00
eventQ.PQueue->Clear();
int nCount = 0;
for (int i = 0; i < numsectors; i++)
{
int nXSector = sector[i].extra;
if (nXSector >= kMaxXSectors)
ThrowError("Invalid xsector reference in sector %d", i);
if (nXSector > 0 && xsector[nXSector].rxID > 0)
{
dassert(nCount < kChannelMax);
2019-09-19 22:42:45 +00:00
rxBucket[nCount].type = 6;
rxBucket[nCount].index = i;
nCount++;
}
}
for (int i = 0; i < numwalls; i++)
{
int nXWall = wall[i].extra;
if (nXWall >= kMaxXWalls)
ThrowError("Invalid xwall reference in wall %d", i);
if (nXWall > 0 && xwall[nXWall].rxID > 0)
{
dassert(nCount < kChannelMax);
2019-09-19 22:42:45 +00:00
rxBucket[nCount].type = 0;
rxBucket[nCount].index = i;
nCount++;
}
}
for (int i = 0; i < kMaxSprites; i++)
{
if (sprite[i].statnum < kMaxStatus)
{
int nXSprite = sprite[i].extra;
if (nXSprite >= kMaxXSprites)
ThrowError("Invalid xsprite reference in sprite %d", i);
if (nXSprite > 0 && xsprite[nXSprite].rxID > 0)
{
dassert(nCount < kChannelMax);
2019-09-19 22:42:45 +00:00
rxBucket[nCount].type = 3;
rxBucket[nCount].index = i;
nCount++;
}
}
}
SortRXBucket(nCount);
int i, j = 0;
for (i = 0; i < 1024; i++)
{
bucketHead[i] = j;
while(j < nCount && GetBucketChannel(&rxBucket[j]) == i)
j++;
}
bucketHead[i] = j;
}
char evGetSourceState(int nType, int nIndex)
{
switch (nType)
{
case 6:
{
int nXIndex = sector[nIndex].extra;
dassert(nXIndex > 0 && nXIndex < kMaxXSectors);
return xsector[nXIndex].state;
}
case 0:
{
int nXIndex = wall[nIndex].extra;
dassert(nXIndex > 0 && nXIndex < kMaxXWalls);
return xwall[nXIndex].state;
}
case 3:
{
int nXIndex = sprite[nIndex].extra;
dassert(nXIndex > 0 && nXIndex < kMaxXSprites);
return xsprite[nXIndex].state;
}
}
return 0;
}
void evSend(int nIndex, int nType, int rxId, COMMAND_ID command, short causedBy)
2019-09-19 22:42:45 +00:00
{
EVENT event; event.index = nIndex; event.type = nType; event.cmd = command; event.causedBy = causedBy;
switch (command) {
case kCmdState:
command = evGetSourceState(nType, nIndex) ? kCmdOn : kCmdOff;
break;
case kCmdNotState:
command = evGetSourceState(nType, nIndex) ? kCmdOff : kCmdOn;
break;
}
switch (rxId) {
case kChannelTextOver:
if (command >= kCmdNumberic) trTextOver(command - kCmdNumberic);
else viewSetSystemMessage("Invalid TextOver command by xobject #%d (object type %d)", nIndex, nType);
return;
case kChannelLevelExitNormal:
levelEndLevel(0);
return;
case kChannelLevelExitSecret:
levelEndLevel(1);
return;
2019-09-19 22:42:45 +00:00
// By NoOne: finished level and load custom level <20> via numbered command.
case kChannelModernEndLevelCustom:
if (command >= kCmdNumberic) levelEndLevelCustom(command - kCmdNumberic);
else viewSetSystemMessage("Invalid Level-Exit# command by xobject #%d (object type %d)", nIndex, nType);
return;
case kChannelSetTotalSecrets:
if (command >= kCmdNumberic) levelSetupSecret(command - kCmdNumberic);
else viewSetSystemMessage("Invalid Total-Secrets command by xobject #%d (object type %d)", nIndex, nType);
break;
case kChannelSecretFound:
Printf(PRINT_NONOTIFY, "Secret trigger %d\n", nIndex * 65536 + nType);
if (command >= kCmdNumberic) levelTriggerSecret(command - kCmdNumberic);
else viewSetSystemMessage("Invalid Trigger-Secret command by xobject #%d (object type %d)", nIndex, nType);
break;
case kChannelRemoteBomb0:
case kChannelRemoteBomb1:
case kChannelRemoteBomb2:
case kChannelRemoteBomb3:
case kChannelRemoteBomb4:
case kChannelRemoteBomb5:
case kChannelRemoteBomb6:
case kChannelRemoteBomb7:
for (int nSprite = headspritestat[kStatThing]; nSprite >= 0; nSprite = nextspritestat[nSprite])
{
spritetype* pSprite = &sprite[nSprite];
if (pSprite->flags & 32)
continue;
int nXSprite = pSprite->extra;
if (nXSprite > 0)
2019-09-19 22:42:45 +00:00
{
XSPRITE* pXSprite = &xsprite[nXSprite];
if (pXSprite->rxID == rxId)
trMessageSprite(nSprite, event);
2019-09-19 22:42:45 +00:00
}
}
return;
case kChannelTeamAFlagCaptured:
case kChannelTeamBFlagCaptured:
for (int nSprite = headspritestat[kStatItem]; nSprite >= 0; nSprite = nextspritestat[nSprite])
{
spritetype* pSprite = &sprite[nSprite];
if (pSprite->flags & 32)
continue;
int nXSprite = pSprite->extra;
if (nXSprite > 0)
2019-09-19 22:42:45 +00:00
{
XSPRITE* pXSprite = &xsprite[nXSprite];
if (pXSprite->rxID == rxId)
trMessageSprite(nSprite, event);
2019-09-19 22:42:45 +00:00
}
}
return;
default:
break;
}
//by NoOne: allow to send commands on player sprites
if (gModernMap) {
PLAYER* pPlayer = NULL;
if (rxId >= kChannelPlayer0 && rxId <= kChannelPlayer7) {
if ((pPlayer = getPlayerById((kChannelPlayer0 - kChannelPlayer7) + kMaxPlayers)) != NULL)
trMessageSprite(pPlayer->nSprite, event);
} else if (rxId == kChannelAllPlayers) {
for (int i = 0; i < kMaxPlayers; i++) {
if ((pPlayer = getPlayerById(i)) != NULL)
trMessageSprite(pPlayer->nSprite, event);
}
}
2019-09-19 22:42:45 +00:00
}
for (int i = bucketHead[rxId]; i < bucketHead[rxId+1]; i++) {
if (event.type != rxBucket[i].type || event.index != rxBucket[i].index) {
switch (rxBucket[i].type) {
case 6:
trMessageSector(rxBucket[i].index, event);
break;
case 0:
trMessageWall(rxBucket[i].index, event);
break;
case 3:
2019-09-19 22:42:45 +00:00
{
int nSprite = rxBucket[i].index;
spritetype *pSprite = &sprite[nSprite];
if (pSprite->flags&32)
continue;
int nXSprite = pSprite->extra;
if (nXSprite > 0)
{
XSPRITE *pXSprite = &xsprite[nXSprite];
if (pXSprite->rxID > 0)
trMessageSprite(nSprite, event);
}
break;
2019-09-19 22:42:45 +00:00
}
}
}
}
}
void evPost(int nIndex, int nType, unsigned int nDelta, COMMAND_ID command, short causedBy) {
dassert(command != kCmdCallback);
if (command == kCmdState) command = evGetSourceState(nType, nIndex) ? kCmdOn : kCmdOff;
else if (command == kCmdNotState) command = evGetSourceState(nType, nIndex) ? kCmdOff : kCmdOn;
EVENT evn = {};
2019-09-19 22:42:45 +00:00
evn.index = nIndex;
evn.type = nType;
evn.cmd = command;
evn.causedBy = causedBy;
eventQ.PQueue->Insert((int)gFrameClock+nDelta, evn);
2019-09-19 22:42:45 +00:00
}
void evPost(int nIndex, int nType, unsigned int nDelta, CALLBACK_ID callback, short causedBy) {
EVENT evn = {};
2019-09-19 22:42:45 +00:00
evn.index = nIndex;
evn.type = nType;
evn.cmd = kCmdCallback;
evn.funcID = callback;
evn.causedBy = causedBy;
eventQ.PQueue->Insert((int)gFrameClock+nDelta, evn);
2019-09-19 22:42:45 +00:00
}
void evProcess(unsigned int nTime)
{
#if 0
while (1)
{
// Inlined?
char bDone;
if (eventQ.fNodeCount > 0 && nTime >= eventQ.queueItems[1])
bDone = 1;
else
bDone = 0;
if (!bDone)
break;
#endif
while(eventQ.IsNotEmpty(nTime))
{
EVENT event = eventQ.ERemove();
if (event.cmd == kCmdCallback)
2019-09-19 22:42:45 +00:00
{
dassert(event.funcID < kCallbackMax);
dassert(gCallback[event.funcID] != NULL);
gCallback[event.funcID](event.index);
}
else
{
switch (event.type)
{
case 6:
trMessageSector(event.index, event);
break;
case 0:
trMessageWall(event.index, event);
break;
case 3:
trMessageSprite(event.index, event);
break;
}
}
}
}
void evKill(int a1, int a2)
{
eventQ.Kill(a1, a2);
}
void evKill(int a1, int a2, CALLBACK_ID a3)
{
eventQ.Kill(a1, a2, a3);
}
class EventQLoadSave : public LoadSave
{
public:
virtual void Load();
virtual void Save();
};
void EventQLoadSave::Load()
{
if (eventQ.PQueue)
delete eventQ.PQueue;
Read(&eventQ, sizeof(eventQ));
if (VanillaMode())
eventQ.PQueue = new VanillaPriorityQueue<EVENT>();
2019-09-19 22:42:45 +00:00
else
eventQ.PQueue = new StdPriorityQueue<EVENT>();
2019-09-19 22:42:45 +00:00
int nEvents;
Read(&nEvents, sizeof(nEvents));
for (int i = 0; i < nEvents; i++)
{
EVENT event = {};
2019-09-19 22:42:45 +00:00
unsigned int eventtime;
Read(&eventtime, sizeof(eventtime));
Read(&event, sizeof(event));
eventQ.PQueue->Insert(eventtime, event);
2019-09-19 22:42:45 +00:00
}
Read(rxBucket, sizeof(rxBucket));
Read(bucketHead, sizeof(bucketHead));
}
void EventQLoadSave::Save()
{
EVENT events[1024];
unsigned int eventstime[1024];
Write(&eventQ, sizeof(eventQ));
int nEvents = eventQ.PQueue->Size();
Write(&nEvents, sizeof(nEvents));
for (int i = 0; i < nEvents; i++)
{
eventstime[i] = eventQ.PQueue->LowestPriority();
events[i] = eventQ.ERemove();
Write(&eventstime[i], sizeof(eventstime[i]));
Write(&events[i], sizeof(events[i]));
}
dassert(eventQ.PQueue->Size() == 0);
for (int i = 0; i < nEvents; i++)
{
eventQ.PQueue->Insert(eventstime[i], events[i]);
2019-09-19 22:42:45 +00:00
}
Write(rxBucket, sizeof(rxBucket));
Write(bucketHead, sizeof(bucketHead));
}
static EventQLoadSave *myLoadSave;
void EventQLoadSaveConstruct(void)
{
myLoadSave = new EventQLoadSave();
}
END_BLD_NS