// Load a trigger into the system from a save game
BOOL eventLoadTrigger(UDWORD time, SCRIPT_CONTEXT *psContext,
SDWORD type, SDWORD trigger, UDWORD event, UDWORD offset)
{
ACTIVE_TRIGGER *psNewTrig;
ASSERT( event < psContext->psCode->numEvents,
"eventLoadTrigger: Event out of range" );
ASSERT( trigger < psContext->psCode->numTriggers,
"eventLoadTrigger: Trigger out of range" );
// Get a trigger object
psNewTrig = (ACTIVE_TRIGGER *)malloc(sizeof(ACTIVE_TRIGGER));
if (psNewTrig == NULL)
{
debug( LOG_FATAL, "eventLoadTrigger: out of memory" );
abort();
return false;
}
// Initialise the trigger
psNewTrig->psContext = psContext;
psContext->triggerCount += 1;
psNewTrig->testTime = time;
psNewTrig->trigger = (SWORD)trigger;
psNewTrig->type = (SWORD)type;
psNewTrig->event = (UWORD)event;
psNewTrig->offset = (UWORD)offset;
psNewTrig->deactivated = false;
eventAddTrigger(psNewTrig);
return true;
}
// Process all the currently active triggers
void eventProcessTriggers(UDWORD currTime)
{
ACTIVE_TRIGGER *psCurr, *psNext, *psNew;
TRIGGER_DATA *psData;
// Process all the current triggers
psAddedTriggers = NULL;
updateTime = currTime;
while(psTrigList && psTrigList->testTime <= currTime)
{
psCurr = psTrigList;
psTrigList = psTrigList->psNext;
// Run the trigger
if (eventFireTrigger(psCurr)) // This might mark the trigger for deletion
{
if (psCurr->deactivated || psCurr->type == TR_WAIT)
{
// remove the trigger
eventFreeTrigger(psCurr);
}
else if (psCurr->type == TR_PAUSE)
{
// restarted a paused event - replace the old trigger
if (psCurr->trigger != -1)
{
if (eventInitTrigger(&psNew, psCurr->psContext, psCurr->event, psCurr->trigger, updateTime))
{
psNew->psNext = psAddedTriggers;
psAddedTriggers = psNew;
}
}
// remove the TR_PAUSE trigger
eventFreeTrigger(psCurr);
}
else
{
// Add the trigger again
psData = psCurr->psContext->psCode->psTriggerData + psCurr->trigger;
psCurr->testTime = currTime + psData->time;
psCurr->psNext = psAddedTriggers;
psAddedTriggers = psCurr;
}
}
}
// Delete marked triggers now
eventPruneLists();
// Now add all the new triggers
for(psCurr = psAddedTriggers; psCurr; psCurr=psNext)
{
psNext = psCurr->psNext;
eventAddTrigger(psCurr);
}
//clear out after added them all
psAddedTriggers = NULL;
}
// Add a new object to the trigger system
// Time is the application time at which all the triggers are to be started
BOOL eventRunContext(SCRIPT_CONTEXT *psContext, UDWORD time)
{
SDWORD event;
ACTIVE_TRIGGER *psTrigger;
TRIGGER_DATA *psData;
SCRIPT_CODE *psCode;
ASSERT( psContext != NULL,
"eventNewObject: Invalid context pointer" );
// Now setup all the triggers
psContext->triggerCount = 0;
psCode = psContext->psCode;
for(event = 0; event < psCode->numEvents; event++)
{
if (psCode->pEventLinks[event] >= 0)
{
// See if this is an init event
psData = psCode->psTriggerData + psCode->pEventLinks[event];
if (psData->type == TR_INIT)
{
if (!interpRunScript(psContext, IRT_EVENT, event, 0))
{
return false;
}
}
else
{
if (!eventInitTrigger(&psTrigger, psContext, event,
psCode->pEventLinks[event], time))
{
return false;
}
eventAddTrigger(psTrigger);
DB_TRACE(("added "),2);
DB_TRIGINF(psTrigger, 2);
}
}
}
return true;
}
// Activate a callback trigger
void eventFireCallbackTrigger(TRIGGER_TYPE callback)
{
ACTIVE_TRIGGER *psPrev = NULL, *psCurr, *psNext;
TRIGGER_DATA *psTrigDat;
BOOL fired;
if (interpProcessorActive())
{
ASSERT(false, "eventFireCallbackTrigger: script interpreter is already running");
return;
}
//this can be called from eventProcessTriggers and so will wipe out all the current added ones
//psAddedTriggers = NULL;
for (psCurr = psCallbackList; psCurr && psCurr->type <= (int)callback; psCurr = psNext)
{
psNext = psCurr->psNext;
if (psCurr->type == (int)callback)
{
// see if the callback should be fired
fired = false;
if (psCurr->type != TR_PAUSE)
{
ASSERT(psCurr->trigger >= 0 && psCurr->trigger < psCurr->psContext->psCode->numTriggers,
"eventFireCallbackTrigger: invalid trigger number");
psTrigDat = psCurr->psContext->psCode->psTriggerData + psCurr->trigger;
}
else
{
psTrigDat = NULL;
}
if (psTrigDat && psTrigDat->code)
{
if (!interpRunScript(psCurr->psContext, IRT_TRIGGER, psCurr->trigger, 0))
{
ASSERT(false, "eventFireCallbackTrigger: trigger %s: code failed",
eventGetTriggerID(psCurr->psContext->psCode, psCurr->trigger));
psPrev = psCurr;
continue;
}
if (!stackPopParams(1, VAL_BOOL, &fired))
{
ASSERT(false, "eventFireCallbackTrigger: trigger %s: code failed",
eventGetTriggerID(psCurr->psContext->psCode, psCurr->trigger));
psPrev = psCurr;
continue;
}
}
else
{
fired = true;
}
// run the event
if (fired)
{
DB_TRIGINF(psCurr,1);
DB_TRACE(" fired",1);
// remove the trigger from the list
if (psPrev == NULL)
{
psCallbackList = psCallbackList->psNext;
}
else
{
psPrev->psNext = psNext;
}
psFiringTrigger = psCurr;
if (!interpRunScript(psCurr->psContext, IRT_EVENT, psCurr->event, psCurr->offset)) // this could set psCurr->deactivated
{
ASSERT(false, "eventFireCallbackTrigger: event %s: code failed",
eventGetEventID(psCurr->psContext->psCode, psCurr->event));
}
if (psCurr->deactivated)
{
// don't need to add the trigger again - just free it
eventFreeTrigger(psCurr);
}
else
{
// make sure the trigger goes back into the system
psCurr->psNext = psAddedTriggers;
psAddedTriggers = psCurr;
}
}
else
{
psPrev = psCurr;
}
}
else
{
psPrev = psCurr;
}
}
// Delete marked triggers now
eventPruneLists();
// Now add all the new triggers
for(psCurr = psAddedTriggers; psCurr; psCurr=psNext)
{
psNext = psCurr->psNext;
eventAddTrigger(psCurr);
}
//clear out after added them all
psAddedTriggers = NULL;
}
