/**
* @brief Runs all the events matching a trigger.
*
* @param trigger Trigger to match.
*/
void events_trigger( EventTrigger_t trigger )
{
int i, c;
for (i=0; i<event_ndata; i++) {
/* Make sure trigger matches. */
if (event_data[i].trigger != trigger)
continue;
/* Make sure chance is succeeded. */
if (RNGF() > event_data[i].chance)
continue;
/* Test uniqueness. */
if ((event_data[i].flags & EVENT_FLAG_UNIQUE) &&
(player_eventAlreadyDone( i ) || event_alreadyRunning(i)))
continue;
/* Test conditional. */
if (event_data[i].cond != NULL) {
c = cond_check(event_data[i].cond);
if (c<0) {
WARN("Conditional for event '%s' failed to run.", event_data[i].name);
continue;
}
else if (!c)
continue;
}
/* Create the event. */
event_create( i );
}
}
/**
* @brief Checks to see if a mission meets the requirements.
*
* @param mission ID of the mission to check.
* @param faction Faction of the current planet.
* @param planet Name of the current planet.
* @param sysname Name of the current system.
* @return 1 if requirements are met, 0 if they aren't.
*/
static int mission_meetReq( int mission, int faction,
const char* planet, const char* sysname )
{
MissionData* misn;
int c;
misn = mission_get( mission );
if (misn == NULL) /* In case it doesn't exist */
return 0;
/* If planet, must match planet. */
if ((misn->avail.planet != NULL) && (strcmp(misn->avail.planet,planet)!=0))
return 0;
/* If system, must match system. */
if ((misn->avail.system != NULL) && (strcmp(misn->avail.system,sysname)!=0))
return 0;
/* Match faction. */
if ((faction >= 0) && !mission_matchFaction(misn,faction))
return 0;
/* Must not be already done or running if unique. */
if (mis_isFlag(misn,MISSION_UNIQUE) &&
(player_missionAlreadyDone(mission) ||
mission_alreadyRunning(misn)))
return 0;
/* Must meet Lua condition. */
if (misn->avail.cond != NULL) {
c = cond_check(misn->avail.cond);
if (c < 0) {
WARN("Conditional for mission '%s' failed to run", misn->name);
return 0;
}
else if (!c)
return 0;
}
/* Must meet previous mission requirements. */
if ((misn->avail.done != NULL) &&
(player_missionAlreadyDone( mission_getID(misn->avail.done) ) == 0))
return 0;
return 1;
}
/**
* @brief Runs all the events matching a trigger.
*
* @param trigger Trigger to match.
*/
void events_trigger( EventTrigger_t trigger )
{
int i, c;
int created;
/* Events can't be triggered by tutorial. */
if (player_isTut())
return;
created = 0;
for (i=0; i<event_ndata; i++) {
/* Make sure trigger matches. */
if (event_data[i].trigger != trigger)
continue;
/* Make sure chance is succeeded. */
if (RNGF() > event_data[i].chance)
continue;
/* Test uniqueness. */
if ((event_data[i].flags & EVENT_FLAG_UNIQUE) &&
(player_eventAlreadyDone( i ) || event_alreadyRunning(i)))
continue;
/* Test conditional. */
if (event_data[i].cond != NULL) {
c = cond_check(event_data[i].cond);
if (c<0) {
WARN("Conditional for event '%s' failed to run.", event_data[i].name);
continue;
}
else if (!c)
continue;
}
/* Create the event. */
event_create( i, NULL );
created++;
}
/* Run claims if necessary. */
if (created)
claim_activateAll();
}
void parse(void)
{
char *s,*line,*inst;
char *ext[MAX_QUALIFIERS?MAX_QUALIFIERS:1];
char *op[MAX_OPERANDS];
int ext_len[MAX_QUALIFIERS?MAX_QUALIFIERS:1];
int op_len[MAX_OPERANDS];
int ext_cnt,op_cnt,inst_len;
instruction *ip;
while (line = read_next_line()) {
if (!cond_state()) {
/* skip source until ELSE or ENDIF */
int idx = -1;
s = skip(line);
if (labname = parse_labeldef(&s,1)) {
if (*s == ':')
s++; /* skip double-colon */
myfree(labname);
s = skip(s);
}
else {
if (inst = skip_identifier(s)) {
inst = skip(inst);
idx = check_directive(&inst);
}
}
if (idx < 0)
idx = check_directive(&s);
if (idx >= 0) {
if (directives[idx].func == handle_if)
cond_skipif();
else if (directives[idx].func == handle_else)
cond_else();
else if (directives[idx].func == handle_endif)
cond_endif();
}
continue;
}
s = skip(line);
again:
if (*s=='\0' || *line=='*' || *s==commentchar)
continue;
if (labname = parse_labeldef(&s,1)) {
/* we have found a valid global or local label */
symbol *sym = new_labsym(0,labname);
if (*s == ':') {
/* double colon automatically declares label as exported */
sym->flags |= EXPORT;
s++;
}
add_atom(0,new_label_atom(sym));
myfree(labname);
s = skip(s);
}
else {
/* there can still be a sym. in the 1st fld and an assignm. directive */
inst = s;
labname = parse_symbol(&s);
if (labname == NULL) {
syntax_error(10); /* identifier expected */
continue;
}
s = skip(s);
/* Now we have labname pointing to the first field in the line
and s pointing to the second. Find out where the directive is. */
if (!ISEOL(s)) {
#ifdef PARSE_CPU_LABEL
if (PARSE_CPU_LABEL(labname,&s)) {
myfree(labname);
continue;
}
#endif
if (handle_directive(s)) {
myfree(labname);
continue;
}
}
/* directive or mnemonic must be in the first field */
myfree(labname);
s = inst;
}
if (!strnicmp(s,".iif",4) || !(strnicmp(s,"iif",3))) {
/* immediate conditional assembly: parse line after ',' when true */
s = skip(*s=='.'?s+4:s+3);
if (do_cond(&s)) {
s = skip(s);
if (*s == ',') {
s = skip(s+1);
goto again;
}
else
syntax_error(0); /* malformed immediate-if */
}
continue;
}
/* check for directives */
s = parse_cpu_special(s);
if (ISEOL(s))
continue;
if (handle_directive(s))
continue;
/* read mnemonic name */
inst = s;
ext_cnt = 0;
if (!ISIDSTART(*s)) {
syntax_error(10); /* identifier expected */
continue;
}
#if MAX_QUALIFIERS==0
while (*s && !isspace((unsigned char)*s))
s++;
inst_len = s - inst;
#else
s = parse_instruction(s,&inst_len,ext,ext_len,&ext_cnt);
#endif
if (!isspace((unsigned char)*s) && *s!='\0')
syntax_error(2); /* no space before operands */
s = skip(s);
if (execute_macro(inst,inst_len,ext,ext_len,ext_cnt,s))
continue;
/* read operands, terminated by comma or blank (unless in parentheses) */
op_cnt = 0;
while (!ISEOL(s) && op_cnt<MAX_OPERANDS) {
op[op_cnt] = s;
s = skip_operand(s);
op_len[op_cnt] = oplen(s,op[op_cnt]);
#if !ALLOW_EMPTY_OPS
if (op_len[op_cnt] <= 0)
syntax_error(5); /* missing operand */
else
#endif
op_cnt++;
s = skip(s);
if (*s != ',')
break;
else
s = skip(s+1);
}
eol(s);
ip = new_inst(inst,inst_len,op_cnt,op,op_len);
#if MAX_QUALIFIERS>0
if (ip) {
int i;
for (i=0; i<ext_cnt; i++)
ip->qualifiers[i] = cnvstr(ext[i],ext_len[i]);
for(; i<MAX_QUALIFIERS; i++)
ip->qualifiers[i] = NULL;
}
#endif
if (ip)
add_atom(0,new_inst_atom(ip));
}
cond_check(); /* check for open conditional blocks */
}
