teambeef/raze
0
0
Fork 0
mirror of https://github.com/DrBeef/Raze.git synced 2024-12-12 21:52:23 +00:00
Code Issues Projects Releases Packages Wiki Activity
raze/source/games/duke/src/gamedef.cpp

1693 lines
36 KiB
C++
Raw Normal View History

- tabification of new sources and replacement of the CON instruction symbols. # Conflicts: # source/games/duke/src/zz_gamedef.cpp
2020-05-12 11:43:24 +00:00
//-------------------------------------------------------------------------
/*
Copyright (C) 1996, 2003 - 3D Realms Entertainment
This file is part of Enhanced Duke Nukem 3D version 1.5 - Atomic Edition
Duke Nukem 3D 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.
Original Source: 1996 - Todd Replogle
Prepared for public release: 03/21/2003 - Charlie Wiederhold, 3D Realms
EDuke enhancements integrated: 04/13/2003 - Matt Saettler
Note: This source file IS NOT USED in EDuke source. It has been split
into many sub-files.
*/
//-------------------------------------------------------------------------
#include "ns.h"
#include <string.h>
#include "concmd.h"
#include "cmdlib.h"
- hooked up the original CON parser for instruction-by-instruction substitution. # Conflicts: # source/games/duke/src/zz_gamedef.cpp
2020-05-12 13:39:35 +00:00
#include "memarena.h"
#include "printf.h"
#include "filesystem.h"
- tabification of new sources and replacement of the CON instruction symbols. # Conflicts: # source/games/duke/src/zz_gamedef.cpp
2020-05-12 11:43:24 +00:00
BEGIN_DUKE_NS
// parser state: todo: turn into a class
char* textptr;
- hooked up the original CON parser for instruction-by-instruction substitution. # Conflicts: # source/games/duke/src/zz_gamedef.cpp
2020-05-12 13:39:35 +00:00
char* label;
int line_number;
int labelcnt;
int errorcount, warningcount; // was named 'error' and 'warning' which is too generic for public variables and may clash with other code.
int g_currentSourceFile;
//G_EXTERN char tempbuf[MAXSECTORS << 1], buf[1024]; todo - move to compile state. tempbuf gets used nearly everywhere as scratchpad memory.
extern char tempbuf[];
extern intptr_t* scriptptr;
extern int* labelcode;
- tabification of new sources and replacement of the CON instruction symbols. # Conflicts: # source/games/duke/src/zz_gamedef.cpp
2020-05-12 11:43:24 +00:00
//---------------------------------------------------------------------------
//
// synthesize the instruction list
//
//---------------------------------------------------------------------------
#define cmd(a) { #a, concmd_ ## a },
#define cmdx(a, b) { b, concmd_ ## a },
#define cmda(a,b) { #a, concmd_ ## b },
struct ConCommand
{
char cmd[20]; // the longest instruction name is 'ifactornotstayput' at 17 characters so if this changes this field must be enlarged.
int instr;
};
static ConCommand cmdList[] =
{
#include "condef.h"
};
#undef cmd
#undef cmdx
#undef cmda
static int cmdCmp(const void *a, const void *b)
{
auto A = (ConCommand*)a;
auto B = (ConCommand*)b;
return strcmp(A->cmd, B->cmd);
}
void SortCommands()
{
qsort(cmdList, countof(cmdList), sizeof(ConCommand), cmdCmp);
}
- hooked up the original CON parser for instruction-by-instruction substitution. # Conflicts: # source/games/duke/src/zz_gamedef.cpp
2020-05-12 13:39:35 +00:00
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
enum
{
ERROR_ISAKEYWORD = 1,
ERROR_PARMUNDEFINED,
WARNING_DUPLICATEDEFINITION,
ERROR_COULDNOTFIND,
ERROR_VARREADONLY,
ERROR_NOTAGAMEDEF,
ERROR_NOTAGAMEVAR,
ERROR_OPENBRACKET,
ERROR_CLOSEBRACKET,
ERROR_NOENDSWITCH
};
void ReportError(int iError)
{
const char* fn = fileSystem.GetFileFullName(g_currentSourceFile);
switch (iError)
{
case ERROR_ISAKEYWORD:
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Symbol '%s' is a key word.\n",
fn, line_number, label + (labelcnt << 6));
break;
case ERROR_PARMUNDEFINED:
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Parameter '%s' is undefined.\n",
fn, line_number, tempbuf);
break;
case WARNING_DUPLICATEDEFINITION:
Printf(TEXTCOLOR_YELLOW " * WARNING.(%s, line %d) Duplicate definition '%s' ignored.\n",
fn, line_number, label + (labelcnt << 6));
break;
case ERROR_COULDNOTFIND:
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Could not find '%s'.\n",
fn, line_number, label + (labelcnt << 6));
break;
case ERROR_VARREADONLY:
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Variable '%s' is read-only.\n",
fn, line_number, label + (labelcnt << 6));
break;
case ERROR_NOTAGAMEDEF:
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Symbol '%s' is not a Game Definition.\n",
fn, line_number, label + (labelcnt << 6));
break;
case ERROR_NOTAGAMEVAR:
Printf(TEXTCOLOR_RED " * ERROR! (%s, line %d) Symbol '%s' is not a defined Game Variable.\n",
fn, line_number, label + (labelcnt << 6));
break;
case ERROR_OPENBRACKET:
Printf(TEXTCOLOR_RED " * ERROR! (%s, line %d) Found more '{' than '}' before '%s'.\n",
fn, line_number, tempbuf);
break;
case ERROR_CLOSEBRACKET:
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Found more '}' than '{' before '%s'.\n",
fn, line_number, tempbuf);
break;
case ERROR_NOENDSWITCH:
Printf(TEXTCOLOR_RED " * ERROR!%s(%s, line %d) Did not find endswitch before '%s'.\n",
fn, line_number, tempbuf);
break;
}
}
- tabification of new sources and replacement of the CON instruction symbols. # Conflicts: # source/games/duke/src/zz_gamedef.cpp
2020-05-12 11:43:24 +00:00
//---------------------------------------------------------------------------
//
// binary search for keyword
//
//---------------------------------------------------------------------------
int getkeyword(const char* text)
{
ptrdiff_t min = 0;
ptrdiff_t max = countof(cmdList) - 1;
while (min <= max)
{
int mid = (min + max) >> 1;
const int comp = strcmp(text, cmdList[mid].cmd);
if (comp == 0)
{
return cmdList[mid].instr;
}
else if (comp > 0)
{
min = mid + 1;
}
else
{
max = mid - 1;
}
}
return -1;
}
- hooked up the original CON parser for instruction-by-instruction substitution. # Conflicts: # source/games/duke/src/zz_gamedef.cpp
2020-05-12 13:39:35 +00:00
//---------------------------------------------------------------------------
//
// label management
//
//---------------------------------------------------------------------------
- tabification of new sources and replacement of the CON instruction symbols. # Conflicts: # source/games/duke/src/zz_gamedef.cpp
2020-05-12 11:43:24 +00:00
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
void skiptoendofline()
{
while (*textptr != 0x0a && *textptr != 0x0d && *textptr != 0)
textptr++;
}
void skipwhitespace()
{
while (*textptr == ' ' || *textptr == '\t' || *textptr == '\r' || *textptr == '\n')
{
- hooked up the original CON parser for instruction-by-instruction substitution. # Conflicts: # source/games/duke/src/zz_gamedef.cpp
2020-05-12 13:39:35 +00:00
if (*textptr == '\n') line_number++;
- tabification of new sources and replacement of the CON instruction symbols. # Conflicts: # source/games/duke/src/zz_gamedef.cpp
2020-05-12 11:43:24 +00:00
textptr++;
}
}
void skipblockcomment()
{
while (*textptr != '*' && textptr[1] != '/')
{
- hooked up the original CON parser for instruction-by-instruction substitution. # Conflicts: # source/games/duke/src/zz_gamedef.cpp
2020-05-12 13:39:35 +00:00
if (*textptr == '\n') line_number++;
- tabification of new sources and replacement of the CON instruction symbols. # Conflicts: # source/games/duke/src/zz_gamedef.cpp
2020-05-12 11:43:24 +00:00
if (*textptr == 0) return; // reached the end of the file
textptr++;
}
}
bool skipcomments()
{
while (true)
{
skipwhitespace();
if (*textptr == '/' && textptr[1] == '/')
{
skiptoendofline();
continue;
}
if (*textptr == '/' && textptr[1] == '*')
{
skipblockcomment();
continue;
}
// stop if we got something else
break;
}
return *textptr != 0;
}
- hooked up the original CON parser for instruction-by-instruction substitution. # Conflicts: # source/games/duke/src/zz_gamedef.cpp
2020-05-12 13:39:35 +00:00
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
bool ispecial(char c)
{
if (c == 0x0a)
{
line_number++;
return true;
}
if (c == ' ' || c == 0x0d)
return true;
return false;
}
bool isaltok(char c)
{
// isalnum pukes on negative input.
return c > 0 && (isalnum(c) || c == '{' || c == '}' || c == '/' || c == '*' || c == '-' || c == '_' || c == '.');
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
void getlabel(void)
{
long i;
while (isalnum(*textptr & 0xff) == 0)
{
if (*textptr == 0x0a) line_number++;
textptr++;
if (*textptr == 0)
return;
}
i = 0;
while (ispecial(*textptr) == 0)
label[(labelcnt << 6) + i++] = *(textptr++);
label[(labelcnt << 6) + i] = 0;
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
int transword(void) //Returns its code #
{
int i, l;
while (isaltok(*textptr) == 0)
{
if (*textptr == 0x0a) line_number++;
if (*textptr == 0)
return -1;
textptr++;
}
l = 0;
while (isaltok(*(textptr + l)) && !(*(textptr + l) == '.'))
{
if (l < 31)
{
tempbuf[l] = textptr[l];
l++;
}
}
tempbuf[l] = 0;
i = getkeyword(tempbuf);
if (i >= 0)
{
*scriptptr = i;
textptr += l;
scriptptr++;
return i;
}
textptr += l;
const char* fn = fileSystem.GetFileFullName(g_currentSourceFile);
if (tempbuf[0] == '{' && tempbuf[1] != 0)
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Expecting a SPACE or CR between '{' and '%s'.\n", fn, line_number, tempbuf + 1);
else if (tempbuf[0] == '}' && tempbuf[1] != 0)
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Expecting a SPACE or CR between '}' and '%s'.\n", fn, line_number, tempbuf + 1);
else if (tempbuf[0] == '/' && tempbuf[1] == '/' && tempbuf[2] != 0)
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Expecting a SPACE between '//' and '%s'.\n", fn, line_number, tempbuf + 2);
else if (tempbuf[0] == '/' && tempbuf[1] == '*' && tempbuf[2] != 0)
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Expecting a SPACE between '/*' and '%s'.\n", fn, line_number, tempbuf + 2);
else if (tempbuf[0] == '*' && tempbuf[1] == '/' && tempbuf[2] != 0)
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Expecting a SPACE between '*/' and '%s'.\n", fn, line_number, tempbuf + 2);
else
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Keyword expected, got '%s'.\n", fn, line_number, tempbuf + 2);
errorcount++;
return -1;
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
void transnum(void)
{
int i, l;
while (isaltok(*textptr) == 0)
{
if (*textptr == 0x0a) line_number++;
textptr++;
if (*textptr == 0)
return;
}
l = 0;
while (isaltok(*(textptr + l)))
{
if (l < 31)
{
tempbuf[l] = textptr[l];
l++;
}
}
tempbuf[l] = 0;
if (getkeyword(tempbuf) >= 0)
{
errorcount++;
ReportError(ERROR_ISAKEYWORD);
textptr += l;
}
for (i = 0; i < labelcnt; i++)
{
if (strcmp(tempbuf, label + (i << 6)) == 0)
{
*scriptptr = labelcode[i];
scriptptr++;
textptr += l;
return;
}
}
if (isdigit(*textptr) == 0 && *textptr != '-')
{
ReportError(ERROR_PARMUNDEFINED);
errorcount++;
textptr += l;
#ifdef FOR_LATER
if (GetDefID(tempbuf) >= 0)
{
Printf(TEXTCOLOR_ORANGE " Game Variable not expected\n");
}
#endif
return;
}
*scriptptr = atol(textptr);
scriptptr++;
textptr += l;
}
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//
//
//
//---------------------------------------------------------------------------
static TArray<char> parsebuffer; // global so that the storage is persistent across calls.
int parsecommand(int tw) // for now just run an externally parsed command.
{
const char* fn = fileSystem.GetFileFullName(g_currentSourceFile);
int i, j, k;
intptr_t* tempscrptr;
uint8_t done, temp_ifelse_check;// , tw;
int temp_line_number;
int temp_current_file;
#if FOR_LATER // for now this should just parse a single instruction
if ((errorcount + warningcount) > 12 || (*textptr == '\0') || (*(textptr + 1) == '\0')) return 1;
tw = transword();
#endif
switch (tw)
{
default:
case -1:
return 0; //End
#if 0
case concmd_blockcomment: //Rem endrem
scriptptr--;
j = line_number;
do
{
textptr++;
if (*textptr == 0x0a) line_number++;
if (*textptr == 0)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Found '/*' with no '*/'.\n", fn, j, label + (labelcnt << 6));
errorcount++;
return 0;
}
} while (*textptr != '*' || *(textptr + 1) != '/');
textptr += 2;
return 0;
case concmd_state:
if (parsing_actor == 0 && parsing_state == 0)
{
getlabel();
scriptptr--;
labelcode[labelcnt] = (intptr_t)scriptptr;
labelcnt++;
parsing_state = 1;
return 0;
}
getlabel();
if (getkeyword(label + (labelcnt << 6)) >= 0)
{
errorcount++;
ReportError(ERROR_ISAKEYWORD);
return 0;
}
for (j = 0; j < labelcnt; j++)
{
if (strcmp(label + (j << 6), label + (labelcnt << 6)) == 0)
{
*scriptptr = labelcode[j];
break;
}
}
if (j == labelcnt)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) State '%s' not found.\n", fn, line_number, label + (labelcnt << 6));
errorcount++;
}
scriptptr++;
return 0;
case concmd_sound:
case concmd_globalsound:
case concmd_soundonce:
case concmd_stopsound:
case concmd_lotsofglass:
transnum();
return 0;
case concmd_ends:
if (parsing_state == 0)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Found 'ends' with no 'state'.\n", fn, line_number);
errorcount++;
}
// else
{
if (num_squigilly_brackets > 0)
{
ReportError(ERROR_CLOSEBRACKET);
errorcount++;
}
if (num_squigilly_brackets < 0)
{
ReportError(ERROR_CLOSEBRACKET);
errorcount++;
}
parsing_state = 0;
}
return 0;
case concmd_gamevar:
// syntax: gamevar <var1> <initial value> <flags>
// defines var1 and sets initial value.
// flags are used to define usage
// (see top of this files for flags)
getlabel(); //GetGameVarLabel();
// Check to see it's already defined
if (getkeyword(label + (labelcnt << 6)) >= 0)
{
errorcount++;
ReportError(ERROR_ISAKEYWORD);
return 0;
}
transnum(); // get initial value
transnum(); // get flags
AddGameVar(label + (labelcnt << 6), *(scriptptr - 2),
(*(scriptptr - 1))
// can't define default or secret
& (~(GAMEVAR_FLAG_DEFAULT | GAMEVAR_FLAG_SECRET))
);
scriptptr -= 3; // no need to save in script...
return 0;
case concmd_define:
getlabel();
// Check to see it's already defined
if (getkeyword(label + (labelcnt << 6)) >= 0)
{
errorcount++;
ReportError(ERROR_ISAKEYWORD);
return 0;
}
for (i = 0; i < labelcnt; i++)
{
if (strcmp(label + (labelcnt << 6), label + (i << 6)) == 0)
{
warningcount++;
ReportError(WARNING_DUPLICATEDEFINITION);
break;
}
}
transnum();
if (i == labelcnt)
{
labelcode[labelcnt++] = *(scriptptr - 1);
}
scriptptr -= 2;
return 0;
case concmd_palfrom:
for (j = 0; j < 4; j++)
{
if (keyword() == -1)
transnum();
else break;
}
while (j < 4)
{
*scriptptr = 0;
scriptptr++;
j++;
}
return 0;
case concmd_move:
if (parsing_actor || parsing_state)
{
transnum();
j = 0;
while (keyword() == -1)
{
transnum();
scriptptr--;
j |= *scriptptr;
}
*scriptptr = j;
scriptptr++;
}
else
{
scriptptr--;
getlabel();
// Check to see it's already defined
if (getkeyword(label + (labelcnt << 6)) >= 0)
{
errorcount++;
ReportError(ERROR_ISAKEYWORD);
return 0;
}
for (i = 0; i < labelcnt; i++)
if (strcmp(label + (labelcnt << 6), label + (i << 6)) == 0)
{
warningcount++;
Printf(TEXTCOLOR_RED " * WARNING.(%s, line %d) Duplicate move '%s' ignored.\n", fn, line_number, label + (labelcnt << 6));
break;
}
if (i == labelcnt)
labelcode[labelcnt++] = (intptr_t)scriptptr;
for (j = 0; j < 2; j++)
{
if (keyword() >= 0) break;
transnum();
}
for (k = j; k < 2; k++)
{
*scriptptr = 0;
scriptptr++;
}
}
return 0;
case concmd_music:
{
scriptptr--;
transnum(); // Volume Number (0/4)
scriptptr--;
k = *scriptptr - 1;
if (k == -1) k = MAXVOLUMES;
if (k >= 0) // if it's background music
{
i = 0;
// get the file name...
while (keyword() == -1)
{
while (isaltok(*textptr) == 0)
{
if (*textptr == 0x0a) line_number++;
textptr++;
if (*textptr == 0) break;
}
j = 0;
parsebuffer.Clear();
while (isaltok(*(textptr + j)))
{
parsebuffer.Push(textptr[j]);
j++;
}
parsebuffer.Push(0);
mapList[(MAXLEVELS * k) + i].music = parsebuffer.Data();
textptr += j;
if (i > MAXLEVELS) break;
i++;
}
}
}
return 0;
case concmd_include:
{
scriptptr--;
while (isaltok(*textptr) == 0)
{
if (*textptr == 0x0a) line_number++;
textptr++;
if (*textptr == 0) break;
}
j = 0;
while (isaltok(*textptr))
{
tempbuf[j] = *(textptr++);
j++;
}
tempbuf[j] = '\0';
auto fn = fileSystem.FindFile(tempbuf);
if (fn < 0)
{
errorcount++;
ReportError(ERROR_COULDNOTFIND);
return 0;
}
auto data = fileSystem.LoadFile(tempbuf, 1);
temp_current_file = g_currentSourceFile;
temp_line_number = line_number;
line_number = 1;
temp_ifelse_check = checking_ifelse;
checking_ifelse = 0;
auto origtptr = textptr;
textptr = (char*)data.Data();
do
done = parsecommand();
while (done == 0);
textptr = origtptr;
total_lines += line_number;
line_number = temp_line_number;
checking_ifelse = temp_ifelse_check;
g_currentSourceFile = temp_current_file;
return 0;
}
case concmd_ai:
if (parsing_actor || parsing_state)
transnum();
else
{
scriptptr--;
getlabel();
if (getkeyword(label + (labelcnt << 6)) >= 0)
{
errorcount++;
ReportError(ERROR_ISAKEYWORD);
return 0;
}
for (i = 0; i < labelcnt; i++)
if (strcmp(label + (labelcnt << 6), label + (i << 6)) == 0)
{
warningcount++;
Printf(TEXTCOLOR_RED " * WARNING.(%s, line %d) Duplicate ai '%s' ignored.\n", fn, line_number, label + (labelcnt << 6));
break;
}
if (i == labelcnt)
labelcode[labelcnt++] = (intptr_t)scriptptr;
for (j = 0; j < 3; j++)
{
if (keyword() >= 0) break;
if (j == 2)
{
k = 0;
while (keyword() == -1)
{
transnum();
scriptptr--;
k |= *scriptptr;
}
*scriptptr = k;
scriptptr++;
return 0;
}
else transnum();
}
for (k = j; k < 3; k++)
{
*scriptptr = 0;
scriptptr++;
}
}
return 0;
case concmd_action:
if (parsing_actor || parsing_state)
transnum();
else
{
scriptptr--;
getlabel();
// Check to see it's already defined
if (getkeyword(label + (labelcnt << 6)) >= 0)
{
errorcount++;
ReportError(ERROR_ISAKEYWORD);
return 0;
}
for (i = 0; i < labelcnt; i++)
if (strcmp(label + (labelcnt << 6), label + (i << 6)) == 0)
{
warningcount++;
Printf(TEXTCOLOR_RED " * WARNING.(%s, line %d) Duplicate event '%s' ignored.\n", fn, line_number, label + (labelcnt << 6));
break;
}
if (i == labelcnt)
labelcode[labelcnt++] = (intptr_t)scriptptr;
for (j = 0; j < 5; j++)
{
if (keyword() >= 0) break;
transnum();
}
for (k = j; k < 5; k++)
{
*scriptptr = 0;
scriptptr++;
}
}
return 0;
case concmd_actor:
if (parsing_state)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Found 'actor' within 'state'.\n", fn, line_number);
errorcount++;
}
if (parsing_actor)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Found 'actor' within 'actor'.\n", fn, line_number);
errorcount++;
}
num_squigilly_brackets = 0;
scriptptr--;
parsing_actor = scriptptr;
transnum();
scriptptr--;
actorscrptr[*scriptptr] = parsing_actor;
for (j = 0; j < 4; j++)
{
*(parsing_actor + j) = 0;
if (j == 3)
{
j = 0;
while (keyword() == -1)
{
transnum();
scriptptr--;
j |= *scriptptr;
}
*scriptptr = j;
scriptptr++;
break;
}
else
{
if (keyword() >= 0)
{
scriptptr += (4 - j);
break;
}
transnum();
*(parsing_actor + j) = *(scriptptr - 1);
}
}
checking_ifelse = 0;
return 0;
case concmd_onevent:
if (parsing_state)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Found 'onevent' within 'state'.\n", fn, line_number);
errorcount++;
}
if (parsing_actor)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Found 'onevent' within 'actor'.\n", fn, line_number);
errorcount++;
}
num_squigilly_brackets = 0;
scriptptr--;
parsing_event = scriptptr;
parsing_actor = scriptptr;
transnum();
scriptptr--;
j = *scriptptr; // type of event
if (j< 0 || j> EVENT_MAXEVENT)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Invalid Event ID.\n", fn, line_number);
errorcount++;
return 0;
}
apScriptGameEvent[j] = parsing_event;
checking_ifelse = 0;
return 0;
case concmd_useractor:
if (parsing_state)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Found 'useractor' within 'state'.\n", fn, line_number);
errorcount++;
}
if (parsing_actor)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Found 'useractor' within 'actor'.\n", fn, line_number);
errorcount++;
}
num_squigilly_brackets = 0;
scriptptr--;
parsing_actor = scriptptr;
transnum();
scriptptr--;
j = *scriptptr;
transnum();
scriptptr--;
actorscrptr[*scriptptr] = parsing_actor;
actortype[*scriptptr] = j;
for (j = 0; j < 4; j++)
{
*(parsing_actor + j) = 0;
if (j == 3)
{
j = 0;
while (keyword() == -1)
{
transnum();
scriptptr--;
j |= *scriptptr;
}
*scriptptr = j;
scriptptr++;
break;
}
else
{
if (keyword() >= 0)
{
scriptptr += (4 - j);
break;
}
transnum();
*(parsing_actor + j) = *(scriptptr - 1);
}
}
checking_ifelse = 0;
return 0;
case concmd_strength:
case concmd_shoot:
case concmd_addphealth:
case concmd_spawn:
case concmd_cstat:
case concmd_count:
case concmd_endofgame:
case concmd_spritepal:
case concmd_cactor:
case concmd_quote:
case concmd_money:
case concmd_addkills:
case concmd_debug:
case concmd_addstrength:
case concmd_cstator:
case concmd_mail:
case concmd_paper:
case concmd_sleeptime:
case concmd_clipdist:
case concmd_isdrunk:
case concmd_iseat:
case concmd_newpic:
transnum();
return 0;
case concmd_addammo:
case concmd_addweapon:
case concmd_sizeto:
case concmd_sizeat:
case concmd_debris:
case concmd_addinventory:
case concmd_guts:
transnum();
transnum();
break;
case concmd_hitradius:
transnum();
transnum();
transnum();
transnum();
transnum();
break;
case concmd_else:
if (checking_ifelse)
{
checking_ifelse--;
tempscrptr = scriptptr;
scriptptr++; //Leave a spot for the fail location
parsecommand();
*tempscrptr = (intptr_t)scriptptr;
}
else
{
scriptptr--;
warningcount++;
Printf(TEXTCOLOR_RED " * WARNING.(%s, line %d) Found 'else' with no 'if', ignored.\n", fn, line_number);
}
return 0;
case concmd_setvar:
case concmd_addvar:
// syntax: [rand|add|set]var <var1> <const1>
// sets var1 to const1
// adds const1 to var1 (const1 can be negative...)
// get the ID of the DEF
getlabel(); //GetGameVarLabel();
// Check to see if it's a keyword
if (getkeyword(label + (labelcnt << 6)) >= 0)
{
errorcount++;
ReportError(ERROR_ISAKEYWORD);
return 0;
}
i = GetDefID(label + (labelcnt << 6));
if (i < 0)
{ // not a defined DEF
errorcount++;
ReportError(ERROR_NOTAGAMEDEF);
return 0;
}
if (aGameVars[i].dwFlags & GAMEVAR_FLAG_READONLY)
{
errorcount++;
ReportError(ERROR_VARREADONLY);
return 0;
}
*scriptptr++ = i; // the ID of the DEF (offset into array...)
transnum(); // the number to check against...
return 0;
case concmd_setvarvar:
case concmd_addvarvar:
// syntax: [add|set]varvar <var1> <var2>
// sets var1 = var2
// adds var1 and var2 with result in var1
// get the ID of the DEF
getlabel(); //GetGameVarLabel();
// Check to see if it's a keyword
if (getkeyword(label + (labelcnt << 6)) >= 0)
{
errorcount++;
ReportError(ERROR_ISAKEYWORD);
return 0;
}
i = GetDefID(label + (labelcnt << 6));
if (i < 0)
{ // not a defined DEF
errorcount++;
ReportError(ERROR_NOTAGAMEDEF);
return 0;
}
if (aGameVars[i].dwFlags & GAMEVAR_FLAG_READONLY)
{
errorcount++;
ReportError(ERROR_VARREADONLY);
return 0;
}
*scriptptr++ = i; // the ID of the DEF (offset into array...)
// get the ID of the DEF
getlabel(); //GetGameVarLabel();
// Check to see if it's a keyword
if (getkeyword(label + (labelcnt << 6)) >= 0)
{
errorcount++;
ReportError(ERROR_ISAKEYWORD);
return 0;
}
i = GetDefID(label + (labelcnt << 6));
if (i < 0)
{ // not a defined DEF
errorcount++;
ReportError(ERROR_NOTAGAMEDEF);
return 0;
}
//#ifndef EDUKE
// this was a bug: second var can be RO because it is source
if (aGameVars[i].dwFlags & GAMEVAR_FLAG_READONLY)
{
errorcount++;
ReportError(ERROR_VARREADONLY);
return 0;
}
//#endif
*scriptptr++ = i; // the ID of the DEF (offset into array...)
return 0;
case concmd_ifvarvarg:
case concmd_ifvarvarl:
case concmd_ifvarvare:
// get the ID of the DEF
getlabel(); //GetGameVarLabel();
// Check to see it's a keyword
if (getkeyword(label + (labelcnt << 6)) >= 0)
{
errorcount++;
ReportError(ERROR_ISAKEYWORD);
return 0;
}
i = GetDefID(label + (labelcnt << 6));
if (i < 0)
{ // not a defined DEF
errorcount++;
ReportError(ERROR_NOTAGAMEDEF);
return 0;
}
*scriptptr++ = i; // the ID of the DEF (offset into array...)
// get the ID of the DEF
getlabel(); //GetGameVarLabel();
// Check to see it's a keyword
if (getkeyword(label + (labelcnt << 6)) >= 0)
{
errorcount++;
ReportError(ERROR_ISAKEYWORD);
return 0;
}
i = GetDefID(label + (labelcnt << 6));
if (i < 0)
{ // not a defined DEF
errorcount++;
ReportError(ERROR_NOTAGAMEDEF);
return 0;
}
*scriptptr++ = i; // the ID of the DEF (offset into array...)
tempscrptr = scriptptr;
scriptptr++; //Leave a spot for the fail location
// eat comments
do
{
j = keyword();
if (j == 20 || j == 39)
parsecommand();
} while (j == 20 || j == 39);
parsecommand();
*tempscrptr = (intptr_t)scriptptr;
checking_ifelse++;
return 0;
case concmd_ifvarl:
case concmd_ifvarg:
case concmd_ifvare:
// get the ID of the DEF
getlabel(); //GetGameVarLabel();
// Check to see it's a keyword
if (getkeyword(label + (labelcnt << 6)) >= 0)
{
errorcount++;
ReportError(ERROR_ISAKEYWORD);
return 0;
}
i = GetDefID(label + (labelcnt << 6));
if (i < 0)
{ // not a defined DEF
errorcount++;
ReportError(ERROR_NOTAGAMEVAR);
return 0;
}
*scriptptr++ = i; // the ID of the DEF (offset into array...)
transnum(); // the number to check against...
tempscrptr = scriptptr;
scriptptr++; //Leave a spot for the fail location
do
{
j = keyword();
if (j == 20 || j == 39)
parsecommand();
} while (j == 20 || j == 39);
parsecommand();
*tempscrptr = (intptr_t)scriptptr;
checking_ifelse++;
return 0;
case concmd_addlogvar:
// syntax: addlogvar <var>
// source file.
*scriptptr = (long)g_currentSourceFile;
scriptptr++;
// prints the line number in the log file.
*scriptptr = line_number;
scriptptr++;
// get the ID of the DEF
getlabel(); //GetGameVarLabel();
// Check to see if it's a keyword
if (getkeyword(label + (labelcnt << 6)) >= 0)
{
errorcount++;
ReportError(ERROR_ISAKEYWORD);
return 0;
}
i = GetDefID(label + (labelcnt << 6));
if (i < 0)
{ // not a defined DEF
errorcount++;
ReportError(ERROR_NOTAGAMEDEF);
return 0;
}
*scriptptr++ = i; // the ID of the DEF (offset into array...)
return 0;
case concmd_addlog:
// syntax: addlog
// source file.
*scriptptr = (long)g_currentSourceFile;
scriptptr++;
// prints the line number in the log file.
*scriptptr = line_number;
scriptptr++;
return 0;
case concmd_ifpinventory:
transnum();
case concmd_ifrnd:
case concmd_ifpdistl:
case concmd_ifpdistg:
case concmd_ifai:
case concmd_ifwasweapon:
case concmd_ifaction:
case concmd_ifactioncount:
case concmd_ifmove:
case concmd_ifcount:
case concmd_ifactor:
case concmd_ifstrength:
case concmd_ifspawnedby:
case concmd_ifgapzl:
case concmd_iffloordistl:
case concmd_ifceilingdistl:
// case 74:
case concmd_ifphealthl:
case concmd_ifspritepal:
case concmd_ifgotweaponce:
case concmd_ifangdiffl:
case concmd_ifactorhealthg:
case concmd_ifactorhealthl:
case concmd_ifsoundid:
case concmd_ifsounddist:
transnum();
case concmd_ifonwater:
case concmd_ifinwater:
case concmd_ifactornotstayput:
case concmd_ifcansee:
case concmd_ifhitweapon:
case concmd_ifsquished:
case concmd_ifdead:
case concmd_ifcanshoottarget:
case concmd_ifp:
case concmd_ifhitspace:
case concmd_ifoutside:
case concmd_ifmultiplayer:
case concmd_ifinspace:
case concmd_ifbulletnear:
case concmd_ifrespawn:
case concmd_ifinouterspace:
case concmd_ifnotmoving:
case concmd_ifawayfromwall:
case concmd_ifcanseetarget:
case concmd_ifnosounds:
case concmd_ifnocover:
case concmd_ifhittruck:
case concmd_iftipcow:
case concmd_ifonmud:
case concmd_ifcoop:
case concmd_ifmotofast:
case concmd_ifwind:
case concmd_ifonmoto:
case concmd_ifonboat:
case concmd_ifsizedown:
case concmd_ifplaybackon:
if (tw == 51)
{
j = 0;
do
{
transnum();
scriptptr--;
j |= *scriptptr;
} while (keyword() == -1);
*scriptptr = j;
scriptptr++;
}
tempscrptr = scriptptr;
scriptptr++; //Leave a spot for the fail location
do
{
j = keyword();
if (j == 20 || j == 39)
parsecommand();
} while (j == 20 || j == 39);
parsecommand();
*tempscrptr = (intptr_t)scriptptr;
checking_ifelse++;
return 0;
case concmd_leftbrace:
num_squigilly_brackets++;
do
done = parsecommand();
while (done == 0);
return 0;
case concmd_rightbrace:
num_squigilly_brackets--;
if (num_squigilly_brackets < 0)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Found more '}' than '{'.\n", fn, line_number);
errorcount++;
}
return 1;
case concmd_betaname:
scriptptr--;
j = 0;
// not used anywhere, just parse over it.
while (*textptr != 0x0a && *textptr != 0x0d && *textptr != 0) // JBF 20040127: end of file checked
{
j++; textptr++;
}
return 0;
case concmd_comment:
scriptptr--; //Negate the rem
while (*textptr != 0x0a && *textptr != 0x0d && *textptr != 0) // JBF 20040127: end of file checked
textptr++;
// line_number++;
return 0;
case concmd_definevolumename:
scriptptr--;
transnum();
scriptptr--;
j = *scriptptr;
while (*textptr == ' ' || *textptr == '\t') textptr++;
i = 0;
parsebuffer.Clear();
while (*textptr != 0x0a && *textptr != 0x0d && *textptr != 0) // JBF 20040127: end of file checked
{
parsebuffer.Push(*textptr);
textptr++, i++;
}
parsebuffer.Push(0);
gVolumeNames[j] = FStringTable::MakeMacro(textptr, i);
return 0;
case concmd_defineskillname:
scriptptr--;
transnum();
scriptptr--;
j = *scriptptr;
while (*textptr == ' ') textptr++;
i = 0;
parsebuffer.Clear();
while (*textptr != 0x0a && *textptr != 0x0d && *textptr != 0) // JBF 20040127: end of file checked
{
parsebuffer.Push(*textptr);
textptr++, i++;
}
parsebuffer.Push(0);
gSkillNames[j] = FStringTable::MakeMacro(textptr, i);
return 0;
case concmd_definelevelname:
scriptptr--;
transnum();
scriptptr--;
j = *scriptptr;
transnum();
scriptptr--;
k = *scriptptr;
while (*textptr == ' ') textptr++;
i = 0;
parsebuffer.Clear();
while (*textptr != ' ' && *textptr != 0x0a && *textptr != 0x0d && *textptr != 0) // JBF 20040127: end of file checked
{
parsebuffer.Push(*textptr);
textptr++, i++;
}
parsebuffer.Push(0);
mapList[j * MAXLEVELS + k].SetFileName(tempbuf);
while (*textptr == ' ') textptr++;
mapList[j * MAXLEVELS + k].parTime =
(((*(textptr + 0) - '0') * 10 + (*(textptr + 1) - '0')) * 26 * 60) +
(((*(textptr + 3) - '0') * 10 + (*(textptr + 4) - '0')) * 26);
textptr += 5;
while (*textptr == ' ') textptr++;
mapList[j * MAXLEVELS + k].designerTime =
(((*(textptr + 0) - '0') * 10 + (*(textptr + 1) - '0')) * 26 * 60) +
(((*(textptr + 3) - '0') * 10 + (*(textptr + 4) - '0')) * 26);
textptr += 5;
while (*textptr == ' ') textptr++;
i = 0;
parsebuffer.Clear();
while (*textptr != 0x0a && *textptr != 0x0d && *textptr != 0) // JBF 20040127: end of file checked
{
parsebuffer.Push(*textptr);
textptr++, i++;
}
parsebuffer.Push(0);
mapList[j * MAXLEVELS + k].name = parsebuffer.Data();
return 0;
case concmd_definequote:
scriptptr--;
transnum();
k = *(scriptptr - 1);
if (k >= MAXQUOTES)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Quote number exceeds limit of %d.\n", line_number, MAXQUOTES);
errorcount++;
}
scriptptr--;
i = 0;
while (*textptr == ' ')
textptr++;
parsebuffer.Clear();
while (*textptr != 0x0a && *textptr != 0x0d && *textptr != 0) // JBF 20040127: end of file checked
{
parsebuffer.Push(*textptr);
textptr++, i++;
}
parsebuffer.Push(0);
quoteMgr.InitializeQuote(k, parsebuffer.Data(), true);
return 0;
case concmd_definesound:
{
scriptptr--;
transnum();
k = *(scriptptr - 1);
scriptptr--;
i = 0;
while (*textptr == ' ')
textptr++;
parsebuffer.Clear();
while (*textptr != ' ' && *textptr != 0) // JBF 20040127: end of file checked
{
parsebuffer.Push(*textptr);
textptr++, i++;
}
parsebuffer.Push(0);
transnum();
int ps = *(scriptptr - 1);
scriptptr--;
transnum();
int pe = *(scriptptr - 1);
scriptptr--;
transnum();
int pr = *(scriptptr - 1);
scriptptr--;
transnum();
int m = *(scriptptr - 1);
scriptptr--;
transnum();
int vo = *(scriptptr - 1);
scriptptr--;
S_DefineSound(k, parsebuffer.Data(), ps, pe, pr, m, vo, 1.f);
return 0;
}
case concmd_endevent:
if (parsing_event == 0)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Found 'endevent' without defining 'onevent'.\n", line_number);
errorcount++;
}
// else
{
if (num_squigilly_brackets > 0)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Found more '{' than '}' before 'endevent'.\n", line_number);
errorcount++;
}
parsing_event = 0;
parsing_actor = 0;
}
return 0;
case concmd_enda:
if (parsing_actor == 0)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Found 'enda' without defining 'actor'.\n", line_number);
errorcount++;
}
// else
{
if (num_squigilly_brackets > 0)
{
Printf(TEXTCOLOR_RED " * ERROR!(%s, line %d) Found more '{' than '}' before 'enda'.\n", line_number);
errorcount++;
}
parsing_actor = 0;
}
return 0;
case concmd_break:
case concmd_fall:
case concmd_tip:
// case 21:
case concmd_killit: //KILLIT
case concmd_resetactioncount:
case concmd_pstomp:
case concmd_resetplayer:
case concmd_resetcount:
case concmd_wackplayer:
case concmd_operate:
case concmd_respawnhitag:
case concmd_getlastpal:
case concmd_pkick:
case concmd_mikesnd:
case concmd_tossweapon:
case concmd_nullop:
case concmd_destroyit:
case concmd_larrybird:
case concmd_strafeleft:
case concmd_straferight:
case concmd_slapplayer:
//case 122:
case concmd_tearitup:
case concmd_smackbubba:
case concmd_soundtagonce:
case concmd_soundtag:
case concmd_smacksprite:
case concmd_fakebubba:
case concmd_mamatrigger:
case concmd_mamaspawn:
case concmd_mamaquake:
case concmd_mamaend:
case concmd_garybanjo:
case concmd_motoloopsnd:
case concmd_rndmove:
return 0;
case concmd_gamestartup:
{
#if 0 // cannot be activated before the old CON code is tossed.
auto parseone = []() { transnum(); scriptptr--; return *scriptptr; }
ud_const_visibility = parseone();
impact_damage = parseone();
max_player_health = parseone();
max_armour_amount = parseone();
respawnactortime = parseone();
respawnitemtime = parseone();
dukefriction = parseone();
gc = parseone();
pgblastradius = parseone();
ipebombblastradius = parseone();
shrinkerblastradius = parseone();
tripbombblastradius = parseone();
morterblastradius = parseone();
bouncemineblastradius = parseone();
seenineblastradius = parseone();
max_ammo_amount[1] = parseone();
max_ammo_amount[2] = parseone();
max_ammo_amount[3] = parseone();
max_ammo_amount[4] = parseone();
max_ammo_amount[5] = parseone();
max_ammo_amount[6] = parseone();
max_ammo_amount[7] = parseone();
max_ammo_amount[8] = parseone();
max_ammo_amount[9] = parseone();
max_ammo_amount[11] = parseone();
if (isRR()) max_ammo_amount[12] = parseone();
camerashitable = parseone();
numfreezebounces = parseone();
freezerhurtowner = parseone();
spriteqamount = clamp(parseone(), 0, 1024);
lasermode = parseone();
if (isRRRA())
{
max_ammo_amount[13] = parseone();
max_ammo_amount[14] = parseone();
max_ammo_amount[16] = parseone();
}
scriptptr++;
#endif
}
return 0;
#endif
}
return 0;
}
- tabification of new sources and replacement of the CON instruction symbols. # Conflicts: # source/games/duke/src/zz_gamedef.cpp
2020-05-12 11:43:24 +00:00
END_DUKE_NS
Reference in a new issue Copy permalink