zdoom/zduke
0
0
Fork 0
mirror of https://github.com/ZDoom/zduke.git synced 2024-11-15 00:41:50 +00:00
Code Issues Projects Releases Packages Wiki Activity
zduke/source/GAMEDEF.cpp

3431 lines
95 KiB
C++
Raw Normal View History

- import
2020-07-17 08:59:23 +00:00
//-------------------------------------------------------------------------
/*
Copyright (C) 1996, 2003 - 3D Realms Entertainment
This file is part of 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
*/
//-------------------------------------------------------------------------
#include "duke3d.h"
#include "i_system.h"
#include "s_sound.h"
extern short otherp;
static short total_lines,line_number;
static char checking_ifelse,parsing_state,*last_used_text;
static short num_squigilly_brackets;
static long last_used_size;
static short g_i,g_p;
static long g_x;
static long *g_t;
static spritetype *g_sp;
// [RH] I'd much rather refer to the keywords by name than number
enum
{
KEY_DefineLevelName,
KEY_Actor,
KEY_AddAmmo,
KEY_IfRnd,
KEY_EndA,
KEY_IfCanSee,
KEY_IfHitWeapon,
KEY_Action,
KEY_IfPDistL,
KEY_IfPDistG,
KEY_Else,
KEY_Strength,
KEY_Break,
KEY_Shoot,
KEY_PalFrom,
KEY_Sound,
KEY_Fall,
KEY_State,
KEY_EndS,
KEY_Define,
KEY_CPPComment,
KEY_IfAI,
KEY_KillIt,
KEY_AddWeapon,
KEY_AI,
KEY_AddPHealth,
KEY_IfDead,
KEY_IfSquished,
KEY_SizeTo,
KEY_LBrace,
KEY_RBrace,
KEY_Spawn,
KEY_Move,
KEY_IfWasWeapon,
KEY_IfAction,
KEY_IfActionCount,
KEY_ResetActionCount,
KEY_Debris,
KEY_PStomp,
KEY_CComment,
KEY_CStat,
KEY_IfMove,
KEY_ResetPlayer,
KEY_IfOnWater,
KEY_IfInWater,
KEY_IfCanShootTarget,
KEY_IfCount,
KEY_ResetCount,
KEY_AddInventory,
KEY_IfActorNotStayPut,
KEY_HitRadius,
KEY_IfP,
KEY_Count,
KEY_IfActor,
KEY_Music,
KEY_Include,
KEY_IfStrength,
KEY_DefineSound,
KEY_Guts,
KEY_IfSpawnedBy,
KEY_GameStartup,
KEY_WackPlayer,
KEY_IfGapZL,
KEY_IfHitSpace,
KEY_IfOutside,
KEY_IfMultiplayer,
KEY_Operate,
KEY_IfInSpace,
KEY_Debug,
KEY_EndOfGame,
KEY_IfBulletNear,
KEY_IfRespawn,
KEY_IfFloorDistL,
KEY_IfCeilingDistL,
KEY_SpritePal,
KEY_IfPInventory,
KEY_BetaName,
KEY_CActor,
KEY_IfPHealthL,
KEY_DefineQuote,
KEY_Quote,
KEY_IfInOuterSpace,
KEY_IfNotMoving,
KEY_RespawnHiTag,
KEY_Tip,
KEY_IfSpritePal,
KEY_Money,
KEY_SoundOnce,
KEY_AddKills,
KEY_StopSound,
KEY_IfAwayFromWall,
KEY_IfCanSeeTarget,
KEY_GlobalSound,
KEY_LotsOfGlass,
KEY_IfGotWeapOnce,
KEY_GetLastPal,
KEY_PKick,
KEY_MikeSnd,
KEY_UserActor,
KEY_SizeAt,
KEY_AddStrength,
KEY_CStator,
KEY_Mail,
KEY_Paper,
KEY_TossWeapon,
KEY_SleepTime,
KEY_NullOp,
KEY_DefineVolumeName,
KEY_DefineSkillName,
KEY_IfNoSounds,
KEY_ClipDist,
KEY_IfAngDiffL,
NUMKEYWORDS
};
char *keyw[NUMKEYWORDS] =
{
"definelevelname", // 0
"actor", // 1 [#]
"addammo", // 2 [#]
"ifrnd", // 3 [C]
"enda", // 4 [:]
"ifcansee", // 5 [C]
"ifhitweapon", // 6 [#]
"action", // 7 [#]
"ifpdistl", // 8 [#]
"ifpdistg", // 9 [#]
"else", // 10 [#]
"strength", // 11 [#]
"break", // 12 [#]
"shoot", // 13 [#]
"palfrom", // 14 [#]
"sound", // 15 [filename.voc]
"fall", // 16 []
"state", // 17
"ends", // 18
"define", // 19
"//", // 20
"ifai", // 21
"killit", // 22
"addweapon", // 23
"ai", // 24
"addphealth", // 25
"ifdead", // 26
"ifsquished", // 27
"sizeto", // 28
"{", // 29
"}", // 30
"spawn", // 31
"move", // 32
"ifwasweapon", // 33
"ifaction", // 34
"ifactioncount", // 35
"resetactioncount", // 36
"debris", // 37
"pstomp", // 38
"/*", // 39
"cstat", // 40
"ifmove", // 41
"resetplayer", // 42
"ifonwater", // 43
"ifinwater", // 44
"ifcanshoottarget", // 45
"ifcount", // 46
"resetcount", // 47
"addinventory", // 48
"ifactornotstayput",// 49
"hitradius", // 50
"ifp", // 51
"count", // 52
"ifactor", // 53
"music", // 54
"include", // 55
"ifstrength", // 56
"definesound", // 57
"guts", // 58
"ifspawnedby", // 59
"gamestartup", // 60
"wackplayer", // 61
"ifgapzl", // 62
"ifhitspace", // 63
"ifoutside", // 64
"ifmultiplayer", // 65
"operate", // 66
"ifinspace", // 67
"debug", // 68
"endofgame", // 69
"ifbulletnear", // 70
"ifrespawn", // 71
"iffloordistl", // 72
"ifceilingdistl", // 73
"spritepal", // 74
"ifpinventory", // 75
"betaname", // 76
"cactor", // 77
"ifphealthl", // 78
"definequote", // 79
"quote", // 80
"ifinouterspace", // 81
"ifnotmoving", // 82
"respawnhitag", // 83
"tip", // 84
"ifspritepal", // 85
"money", // 86
"soundonce", // 87
"addkills", // 88
"stopsound", // 89
"ifawayfromwall", // 90
"ifcanseetarget", // 91
"globalsound", // 92
"lotsofglass", // 93
"ifgotweaponce", // 94
"getlastpal", // 95
"pkick", // 96
"mikesnd", // 97
"useractor", // 98
"sizeat", // 99
"addstrength", // 100 [#]
"cstator", // 101
"mail", // 102
"paper", // 103
"tossweapon", // 104
"sleeptime", // 105
"nullop", // 106
"definevolumename", // 107
"defineskillname", // 108
"ifnosounds", // 109
"clipdist", // 110
"ifangdiffl" // 111
};
BYTE KeywordsSorted[NUMKEYWORDS];
short getincangle(short a,short na)
{
a &= 2047;
na &= 2047;
if(klabs(a-na) < 1024)
return (na-a);
else
{
if(na > 1024) na -= 2048;
if(a > 1024) a -= 2048;
na -= 2048;
a -= 2048;
return (na-a);
}
}
char ispecial(char c)
{
if(c == 0x0a)
{
line_number++;
return 1;
}
if(c == ' ' || c == 0x0d)
return 1;
return 0;
}
char isaltok(char c)
{
return ( isalnum(c) || c == '{' || c == '}' || c == '/' || c == '*' || c == '-' || c == '_' || c == '.');
}
void getglobalz(short i)
{
long hz,lz,zr;
spritetype *s = &sprite[i];
if( s->statnum == 10 || s->statnum == 6 || s->statnum == 2 || s->statnum == 1 || s->statnum == 4)
{
if(s->statnum == 4)
zr = 4L;
else zr = 127L;
getzrange(s->x,s->y,s->z-(FOURSLEIGHT),s->sectnum,&hittype[i].ceilingz,&hz,&hittype[i].floorz,&lz,zr,CLIPMASK0);
if( (lz&49152) == 49152 && (sprite[lz&(MAXSPRITES-1)].cstat&CSTAT_TYPEMASK) == CSTAT_FACE )
{
lz &= (MAXSPRITES-1);
if( badguy(&sprite[lz]) && sprite[lz].pal != 1)
{
if( s->statnum != 4 )
{
hittype[i].dispicnum = -4; // No shadows on actors
s->xvel = -256;
ssp(i,CLIPMASK0);
}
}
else if(sprite[lz].picnum == APLAYER && badguy(s) )
{
hittype[i].dispicnum = -4; // No shadows on actors
s->xvel = -256;
ssp(i,CLIPMASK0);
}
else if(s->statnum == 4 && sprite[lz].picnum == APLAYER)
if(s->owner == lz)
{
hittype[i].ceilingz = sector[s->sectnum].ceilingz;
hittype[i].floorz = sector[s->sectnum].floorz;
}
}
}
else
{
hittype[i].ceilingz = sector[s->sectnum].ceilingz;
hittype[i].floorz = sector[s->sectnum].floorz;
}
}
void makeitfall(short i)
{
spritetype *s = &sprite[i];
long hz,lz,c;
if( floorspace(s->sectnum) )
c = 0;
else
{
if( ceilingspace(s->sectnum) || sector[s->sectnum].lotag == 2)
c = gc/6;
else c = gc;
}
if( ( s->statnum == 1 || s->statnum == 10 || s->statnum == 2 || s->statnum == 6 ) )
getzrange(s->x,s->y,s->z-(FOURSLEIGHT),s->sectnum,&hittype[i].ceilingz,&hz,&hittype[i].floorz,&lz,127L,CLIPMASK0);
else
{
hittype[i].ceilingz = sector[s->sectnum].ceilingz;
hittype[i].floorz = sector[s->sectnum].floorz;
}
if( s->z < hittype[i].floorz-(FOURSLEIGHT) )
{
if( sector[s->sectnum].lotag == 2 && s->zvel > 3122 )
s->zvel = 3144;
if(s->zvel < 6144)
s->zvel += c;
else s->zvel = 6144;
s->z += s->zvel;
}
if( s->z >= hittype[i].floorz-(FOURSLEIGHT) )
{
s->z = hittype[i].floorz - FOURSLEIGHT;
s->zvel = 0;
}
}
void getlabel(void)
{
long i;
while( isalnum(*textptr) == 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;
}
long keyword(void)
{
long i;
char *temptextptr;
temptextptr = textptr;
while( isaltok(*temptextptr) == 0 )
{
temptextptr++;
if( *temptextptr == 0 )
return 0;
}
i = 0;
while( isaltok(*temptextptr) )
{
tempbuf[i] = *(temptextptr++);
i++;
}
tempbuf[i] = 0;
// [RH] Use binary search to make this faster.
int min = 0;
int max = NUMKEYWORDS-1;
while (min <= max)
{
i = (min + max) / 2;
int diff = strcmp ((char *)tempbuf, keyw[KeywordsSorted[i]]);
if (diff == 0)
return i;
else if (diff > 0)
min = i + 1;
else
max = i - 1;
}
return -1;
}
long transword(void) //Returns its code #
{
long i, l;
while( isaltok(*textptr) == 0 )
{
if(*textptr == 0x0a) line_number++;
if( *textptr == 0 )
return -1;
textptr++;
}
l = 0;
while( isaltok(*(textptr+l)) )
{
tempbuf[l] = textptr[l];
l++;
}
tempbuf[l] = 0;
for(i=0;i<NUMKEYWORDS;i++)
{
if( strcmp( (char*)tempbuf,keyw[i]) == 0 )
{
*scriptptr = i;
textptr += l;
scriptptr++;
return i;
}
}
textptr += l;
if( tempbuf[0] == '{' && tempbuf[1] != 0)
Printf(" * ERROR!(L%ld) Expecting a SPACE or CR between '{' and '%s'.\n",line_number,tempbuf+1);
else if( tempbuf[0] == '}' && tempbuf[1] != 0)
Printf(" * ERROR!(L%ld) Expecting a SPACE or CR between '}' and '%s'.\n",line_number,tempbuf+1);
else if( tempbuf[0] == '/' && tempbuf[1] == '/' && tempbuf[2] != 0 )
Printf(" * ERROR!(L%ld) Expecting a SPACE between '//' and '%s'.\n",line_number,tempbuf+2);
else if( tempbuf[0] == '/' && tempbuf[1] == '*' && tempbuf[2] != 0 )
Printf(" * ERROR!(L%ld) Expecting a SPACE between '/*' and '%s'.\n",line_number,tempbuf+2);
else if( tempbuf[0] == '*' && tempbuf[1] == '/' && tempbuf[2] != 0 )
Printf(" * ERROR!(L%ld) Expecting a SPACE between '*/' and '%s'.\n",line_number,tempbuf+2);
else
Printf(" * ERROR!(L%ld) Expecting key word, but found '%s'.\n",line_number,tempbuf);
error++;
return -1;
}
void transnum(void)
{
long i, l;
while( isaltok(*textptr) == 0 )
{
if(*textptr == 0x0a) line_number++;
textptr++;
if( *textptr == 0 )
return;
}
l = 0;
while( isaltok(*(textptr+l)) )
{
tempbuf[l] = textptr[l];
l++;
}
tempbuf[l] = 0;
for(i=0;i<NUMKEYWORDS;i++)
if( strcmp( label+(labelcnt<<6),keyw[i]) == 0 )
{
error++;
Printf(" * ERROR!(L%ld) Symbol '%s' is a key word.\n",line_number,label+(labelcnt<<6));
textptr+=l;
}
for(i=0;i<labelcnt;i++)
{
if( strcmp((char*)tempbuf,label+(i<<6)) == 0 )
{
*scriptptr = labelcode[i];
scriptptr++;
textptr += l;
return;
}
}
if( isdigit(*textptr) == 0 && *textptr != '-')
{
Printf(" * ERROR!(L%ld) Parameter '%s' is undefined.\n",line_number,tempbuf);
error++;
textptr+=l;
return;
}
*scriptptr = atol(textptr);
scriptptr++;
textptr += l;
}
char parsecommand(void)
{
long i, j, k, *tempscrptr;
char done, *origtptr, temp_ifelse_check, tw;
short temp_line_number;
int fp;
if( error > 12 || ( *textptr == '\0' ) || ( *(textptr+1) == '\0' ) ) return 1;
tw = transword();
switch(tw)
{
default:
case -1:
return 0; //End
case KEY_CComment: //Rem endrem
scriptptr--;
j = line_number;
do
{
textptr++;
if(*textptr == 0x0a) line_number++;
if( *textptr == 0 )
{
Printf(" * ERROR!(L%ld) Found '/*' with no '*/'.\n",j,label+(labelcnt<<6));
error++;
return 0;
}
}
while( *textptr != '*' || *(textptr+1) != '/' );
textptr+=2;
return 0;
case KEY_State:
if( parsing_actor == 0 && parsing_state == 0 )
{
getlabel();
scriptptr--;
labelcode[labelcnt] = (long) scriptptr;
labelcnt++;
parsing_state = 1;
return 0;
}
getlabel();
for(i=0;i<NUMKEYWORDS;i++)
if( strcmp( label+(labelcnt<<6),keyw[i]) == 0 )
{
error++;
Printf(" * ERROR!(L%ld) Symbol '%s' is a key word.\n",line_number,label+(labelcnt<<6));
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(" * ERROR!(L%ld) State '%s' not found.\n",line_number,label+(labelcnt<<6));
error++;
}
scriptptr++;
return 0;
case KEY_Sound:
case KEY_GlobalSound:
case KEY_SoundOnce:
case KEY_StopSound:
case KEY_LotsOfGlass:
transnum();
return 0;
case KEY_EndS:
if( parsing_state == 0 )
{
Printf(" * ERROR!(L%ld) Found 'ends' with no 'state'.\n",line_number);
error++;
}
// else
{
if( num_squigilly_brackets > 0 )
{
Printf(" * ERROR!(L%ld) Found more '{' than '}' before 'ends'.\n",line_number);
error++;
}
if( num_squigilly_brackets < 0 )
{
Printf(" * ERROR!(L%ld) Found more '}' than '{' before 'ends'.\n",line_number);
error++;
}
parsing_state = 0;
}
return 0;
case KEY_Define:
getlabel();
// Check to see it's already defined
for(i=0;i<NUMKEYWORDS;i++)
if( strcmp( label+(labelcnt<<6),keyw[i]) == 0 )
{
error++;
Printf(" * ERROR!(L%ld) Symbol '%s' is a key word.\n",line_number,label+(labelcnt<<6));
return 0;
}
for(i=0;i<labelcnt;i++)
{
if( strcmp(label+(labelcnt<<6),label+(i<<6)) == 0 )
{
warning++;
Printf(" * WARNING.(L%ld) Duplicate definition '%s' ignored.\n",line_number,label+(labelcnt<<6));
break;
}
}
transnum();
if(i == labelcnt)
labelcode[labelcnt++] = *(scriptptr-1);
scriptptr -= 2;
return 0;
case KEY_PalFrom:
for(j = 0;j < 4;j++)
{
if( keyword() == -1 )
transnum();
else break;
}
while(j < 4)
{
*scriptptr = 0;
scriptptr++;
j++;
}
return 0;
case KEY_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
for(i=0;i<NUMKEYWORDS;i++)
if( strcmp( label+(labelcnt<<6),keyw[i]) == 0 )
{
error++;
Printf(" * ERROR!(L%ld) Symbol '%s' is a key word.\n",line_number,label+(labelcnt<<6));
return 0;
}
for(i=0;i<labelcnt;i++)
if( strcmp(label+(labelcnt<<6),label+(i<<6)) == 0 )
{
warning++;
Printf(" * WARNING.(L%ld) Duplicate move '%s' ignored.\n",line_number,label+(labelcnt<<6));
break;
}
if(i == labelcnt)
labelcode[labelcnt++] = (long) scriptptr;
for(j=0;j<2;j++)
{
if(keyword() >= 0) break;
transnum();
}
for(k=j;k<2;k++)
{
*scriptptr = 0;
scriptptr++;
}
}
return 0;
case KEY_Music:
{
scriptptr--;
transnum(); // Volume Number (0/4)
scriptptr--;
k = *scriptptr-1;
if(k >= 0) // if it's background music
{
i = 0;
while(keyword() == -1)
{
while( isaltok(*textptr) == 0 )
{
if(*textptr == 0x0a) line_number++;
textptr++;
if( *textptr == 0 ) break;
}
j = 0;
while( isaltok(*(textptr+j)) )
{
music_fn[k][i][j] = textptr[j];
j++;
}
music_fn[k][i][j] = '\0';
textptr += j;
if(i > 9) break;
i++;
}
}
else
{
i = 0;
while(keyword() == -1)
{
while( isaltok(*textptr) == 0 )
{
if(*textptr == 0x0a) line_number++;
textptr++;
if( *textptr == 0 ) break;
}
j = 0;
while( isaltok(*(textptr+j)) )
{
env_music_fn[i][j] = textptr[j];
j++;
}
env_music_fn[i][j] = '\0';
textptr += j;
if(i > 9) break;
i++;
}
}
}
return 0;
case KEY_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';
fp = kopen4load((char*)tempbuf,loadfromgrouponly);
if(fp == 0)
{
error++;
Printf(" * ERROR!(L%ld) Could not find '%s'.\n",line_number,label+(labelcnt<<6));
return 0;
}
j = kfilelength(fp);
Printf("Including: '%s'.\n",tempbuf);
temp_line_number = line_number;
line_number = 1;
temp_ifelse_check = checking_ifelse;
checking_ifelse = 0;
origtptr = textptr;
textptr = last_used_text+last_used_size;
*(textptr+j) = 0;
kread(fp,(char *)textptr,j);
kclose(fp);
do
done = parsecommand();
while( done == 0 );
textptr = origtptr;
total_lines += line_number;
line_number = temp_line_number;
checking_ifelse = temp_ifelse_check;
return 0;
case KEY_AI:
if( parsing_actor || parsing_state )
transnum();
else
{
scriptptr--;
getlabel();
for(i=0;i<NUMKEYWORDS;i++)
if( strcmp( label+(labelcnt<<6),keyw[i]) == 0 )
{
error++;
Printf(" * ERROR!(L%ld) Symbol '%s' is a key word.\n",line_number,label+(labelcnt<<6));
return 0;
}
for(i=0;i<labelcnt;i++)
if( strcmp(label+(labelcnt<<6),label+(i<<6)) == 0 )
{
warning++;
Printf(" * WARNING.(L%ld) Duplicate ai '%s' ignored.\n",line_number,label+(labelcnt<<6));
break;
}
if(i == labelcnt)
labelcode[labelcnt++] = (long) 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 KEY_Action:
if( parsing_actor || parsing_state )
transnum();
else
{
scriptptr--;
getlabel();
// Check to see it's already defined
for(i=0;i<NUMKEYWORDS;i++)
if( strcmp( label+(labelcnt<<6),keyw[i]) == 0 )
{
error++;
Printf(" * ERROR!(L%ld) Symbol '%s' is a key word.\n",line_number,label+(labelcnt<<6));
return 0;
}
for(i=0;i<labelcnt;i++)
if( strcmp(label+(labelcnt<<6),label+(i<<6)) == 0 )
{
warning++;
Printf(" * WARNING.(L%ld) Duplicate action '%s' ignored.\n",line_number,label+(labelcnt<<6));
break;
}
if(i == labelcnt)
labelcode[labelcnt++] = (long) scriptptr;
for(j=0;j<5;j++)
{
if(keyword() >= 0) break;
transnum();
}
for(k=j;k<5;k++)
{
*scriptptr = 0;
scriptptr++;
}
}
return 0;
case KEY_Actor:
if( parsing_state )
{
Printf(" * ERROR!(L%ld) Found 'actor' within 'state'.\n",line_number);
error++;
}
if( parsing_actor )
{
Printf(" * ERROR!(L%ld) Found 'actor' within 'actor'.\n",line_number);
error++;
}
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 KEY_UserActor:
if( parsing_state )
{
Printf(" * ERROR!(L%ld) Found 'useritem' within 'state'.\n",line_number);
error++;
}
if( parsing_actor )
{
Printf(" * ERROR!(L%ld) Found 'useritem' within 'actor'.\n",line_number);
error++;
}
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 KEY_Strength:
case KEY_Shoot:
case KEY_AddPHealth:
case KEY_Spawn:
case KEY_CStat:
case KEY_Count:
case KEY_EndOfGame:
case KEY_SpritePal:
case KEY_CActor:
case KEY_Quote:
case KEY_Money:
case KEY_AddKills:
case KEY_Debug:
case KEY_AddStrength:
case KEY_CStator:
case KEY_Mail:
case KEY_Paper:
case KEY_SleepTime:
case KEY_ClipDist:
transnum();
return 0;
case KEY_AddAmmo:
case KEY_AddWeapon:
case KEY_SizeTo:
case KEY_SizeAt:
case KEY_Debris:
case KEY_AddInventory:
case KEY_Guts:
transnum();
transnum();
break;
case KEY_HitRadius:
transnum();
transnum();
transnum();
transnum();
transnum();
break;
case KEY_Else:
if( checking_ifelse )
{
checking_ifelse--;
tempscrptr = scriptptr;
scriptptr++; //Leave a spot for the fail location
parsecommand();
*tempscrptr = (long) scriptptr;
}
else
{
scriptptr--;
error++;
Printf(" * ERROR!(L%ld) Found 'else' with no 'if'.\n",line_number);
}
return 0;
case KEY_IfPInventory:
transnum();
case KEY_IfRnd:
case KEY_IfPDistL:
case KEY_IfPDistG:
case KEY_IfAI:
case KEY_IfWasWeapon:
case KEY_IfAction:
case KEY_IfActionCount:
case KEY_IfMove:
case KEY_IfCount:
case KEY_IfActor:
case KEY_IfStrength:
case KEY_IfSpawnedBy:
case KEY_IfGapZL:
case KEY_IfFloorDistL:
case KEY_IfCeilingDistL:
// case 74:
case KEY_IfPHealthL:
case KEY_IfSpritePal:
case KEY_IfGotWeapOnce:
case KEY_IfAngDiffL:
transnum();
case KEY_IfOnWater:
case KEY_IfInWater:
case KEY_IfActorNotStayPut:
case KEY_IfCanSee:
case KEY_IfHitWeapon:
case KEY_IfSquished:
case KEY_IfDead:
case KEY_IfCanShootTarget:
case KEY_IfP:
case KEY_IfHitSpace:
case KEY_IfOutside:
case KEY_IfMultiplayer:
case KEY_IfInSpace:
case KEY_IfBulletNear:
case KEY_IfRespawn:
case KEY_IfInOuterSpace:
case KEY_IfNotMoving:
case KEY_IfAwayFromWall:
case KEY_IfCanSeeTarget:
case KEY_IfNoSounds:
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 = (long) scriptptr;
checking_ifelse++;
return 0;
case KEY_LBrace:
num_squigilly_brackets++;
do
done = parsecommand();
while( done == 0 );
return 0;
case KEY_RBrace:
num_squigilly_brackets--;
if( num_squigilly_brackets < 0 )
{
Printf(" * ERROR!(L%ld) Found more '}' than '{'.\n",line_number);
error++;
}
return 1;
case KEY_BetaName:
scriptptr--;
j = 0;
while( *textptr != 0x0a )
{
betaname[j] = *textptr;
j++; textptr++;
}
betaname[j] = 0;
return 0;
case KEY_CPPComment:
scriptptr--; //Negate the rem
while( *textptr != 0x0a )
textptr++;
// line_number++;
return 0;
case KEY_DefineVolumeName:
scriptptr--;
transnum();
scriptptr--;
j = *scriptptr;
while( *textptr == ' ' ) textptr++;
i = 0;
while( *textptr != 0x0a )
{
volume_names[j][i] = toupper(*textptr);
textptr++,i++;
if(i >= 32)
{
Printf(" * ERROR!(L%ld) Volume name exceeds character size limit of 32.\n",line_number);
error++;
while( *textptr != 0x0a ) textptr++;
break;
}
}
volume_names[j][i-1] = '\0';
return 0;
case KEY_DefineSkillName:
scriptptr--;
transnum();
scriptptr--;
j = *scriptptr;
while( *textptr == ' ' ) textptr++;
i = 0;
while( *textptr != 0x0a )
{
skill_names[j][i] = toupper(*textptr);
textptr++,i++;
if(i >= 32)
{
Printf(" * ERROR!(L%ld) Skill name exceeds character size limit of 32.\n",line_number);
error++;
while( *textptr != 0x0a ) textptr++;
break;
}
}
skill_names[j][i-1] = '\0';
return 0;
case KEY_DefineLevelName:
scriptptr--;
transnum();
scriptptr--;
j = *scriptptr;
transnum();
scriptptr--;
k = *scriptptr;
while( *textptr == ' ' ) textptr++;
i = 0;
while( *textptr != ' ' && *textptr != 0x0a )
{
level_file_names[j*11+k][i] = *textptr;
textptr++,i++;
if(i > 127)
{
Printf(" * ERROR!(L%ld) Level file name exceeds character size limit of 128.\n",line_number);
error++;
while( *textptr != ' ') textptr++;
break;
}
}
level_names[j*11+k][i-1] = '\0';
while( *textptr == ' ' ) textptr++;
partime[j*11+k] =
(((*(textptr+0)-'0')*10+(*(textptr+1)-'0'))*26*60)+
(((*(textptr+3)-'0')*10+(*(textptr+4)-'0'))*26);
textptr += 5;
while( *textptr == ' ' ) textptr++;
designertime[j*11+k] =
(((*(textptr+0)-'0')*10+(*(textptr+1)-'0'))*26*60)+
(((*(textptr+3)-'0')*10+(*(textptr+4)-'0'))*26);
textptr += 5;
while( *textptr == ' ' ) textptr++;
i = 0;
while( *textptr != 0x0a )
{
level_names[j*11+k][i] = toupper(*textptr);
textptr++,i++;
if(i >= 32)
{
Printf(" * ERROR!(L%ld) Level name exceeds character size limit of 32.\n",line_number);
error++;
while( *textptr != 0x0a ) textptr++;
break;
}
}
level_names[j*11+k][i-1] = '\0';
return 0;
case KEY_DefineQuote:
scriptptr--;
transnum();
k = *(scriptptr-1);
if(k >= NUMOFFIRSTTIMEACTIVE)
{
Printf(" * ERROR!(L%ld) Quote amount exceeds limit of %ld characters.\n",line_number,NUMOFFIRSTTIMEACTIVE);
error++;
}
scriptptr--;
i = 0;
while( *textptr == ' ' )
textptr++;
while( *textptr != 0x0a )
{
fta_quotes[k][i] = *textptr;
textptr++,i++;
if(i >= 64)
{
Printf(" * ERROR!(L%ld) Quote exceeds character size limit of 64.\n",line_number);
error++;
while( *textptr != 0x0a ) textptr++;
break;
}
}
fta_quotes[k][i] = '\0';
return 0;
case KEY_DefineSound:
scriptptr--;
transnum();
k = *(scriptptr-1);
if(k >= NUM_SOUNDS)
{
Printf(" * ERROR!(L%ld) Exceeded sound limit of %ld.\n",line_number,NUM_SOUNDS);
error++;
}
scriptptr--;
i = 0;
while( *textptr == ' ')
textptr++;
if ((size_t)k >= S_sfx.Size())
{
S_sfx.Resize (k+1);
}
memset (&S_sfx[k], 0, sizeof(sfxinfo_t));
while( *textptr != ' ' )
{
S_sfx[k].Name[i] = *textptr;
textptr++,i++;
if(i >= 13)
{
Printf("%s\n",S_sfx[k].Name);
Printf(" * ERROR!(L%ld) Sound filename exceeded limit of 13 characters.\n",line_number);
error++;
while( *textptr != ' ' ) textptr++;
break;
}
}
transnum();
S_sfx[k].PitchStart = *(scriptptr-1);
scriptptr--;
transnum();
S_sfx[k].PitchEnd = *(scriptptr-1);
scriptptr--;
transnum();
S_sfx[k].Priority = max (min (*(scriptptr-1)-1, 254), 0); // [RH] Clamp priority to [0,254]
scriptptr--;
transnum();
S_sfx[k].bRepeat = (*(scriptptr-1) & 1) != 0;
S_sfx[k].bMusicAndSfx = (*(scriptptr-1) & 2) != 0;
S_sfx[k].bDukeVoice = (*(scriptptr-1) & 4) != 0;
S_sfx[k].bLockout = (*(scriptptr-1) & 8) != 0;
S_sfx[k].bGlobHeard = (*(scriptptr-1) & 16) != 0;
S_sfx[k].bFullVolume = (*(scriptptr-1) & 128) != 0;
scriptptr--;
transnum();
S_sfx[k].VolumeAdjust = *(scriptptr-1);
scriptptr--;
S_sfx[k].link = sfxinfo_t::NO_LINK;
return 0;
case KEY_EndA:
if( parsing_actor == 0 )
{
Printf(" * ERROR!(L%ld) Found 'enda' without defining 'actor'.\n",line_number);
error++;
}
// else
{
if( num_squigilly_brackets > 0 )
{
Printf(" * ERROR!(L%ld) Found more '{' than '}' before 'enda'.\n",line_number);
error++;
}
parsing_actor = 0;
}
return 0;
case KEY_Break:
case KEY_Fall:
case KEY_Tip:
// case 21:
case KEY_KillIt: //KILLIT
case KEY_ResetActionCount:
case KEY_PStomp:
case KEY_ResetPlayer:
case KEY_ResetCount:
case KEY_WackPlayer:
case KEY_Operate:
case KEY_RespawnHiTag:
case KEY_GetLastPal:
case KEY_PKick:
case KEY_MikeSnd:
case KEY_TossWeapon:
case KEY_NullOp:
return 0;
case KEY_GameStartup:
{
int num[30];
char * oldtextptr;
int key;
// We read 26 values
for (j = 0; j < 26; j++)
{
transnum();
scriptptr--;
num[j] = *scriptptr;
}
// Save the textptr
oldtextptr = textptr;
// Get the 'text' of this value
while (*textptr && *textptr <= ' ') textptr++;
key = keyword();
// Work out if this is dukever13 if we either hit the end of the file
// or a keyword
if (key != -1)
{
Printf ("Detected Version 1.3 con files\n");
dukever13 = true;
}
// reset the pointer
textptr = oldtextptr;
// Read the final 4
if (!dukever13)
{
for (j = 26; j < 30; j++)
{
transnum();
scriptptr--;
num[j] = *scriptptr;
}
}
i = j = 0;
while(j < 30)
{
// what a crap, skip GRAVITATIONALCONSTANT, MAXGROWAMMO, QSIZE,
// TRIPBOMBLASERMODE
if(dukever13)
{
switch(j)
{
case 7:
gc = 176;
++j;
break;
case 24:
max_ammo_amount[11] = 50;
++j;
break;
case 28:
spriteqamount = 1024;
++j;
break;
case 29:
lasermode = 0;
++j;
break;
};
if(j>27)
continue;
}
switch(j)
{
case 0:
ud.const_visibility = num[i++];
break;
case 1:
impact_damage = num[i++];
break;
case 2:
max_player_health = num[i++];
break;
case 3:
max_armour_amount = num[i++];
break;
case 4:
respawnactortime = num[i++];
break;
case 5:
respawnitemtime = num[i++];
break;
case 6:
dukefriction = num[i++];
break;
case 7:
gc = num[i++];
break;
case 8:rpgblastradius = num[i++];
break;
case 9:pipebombblastradius = num[i++];
break;
case 10:shrinkerblastradius = num[i++];
break;
case 11:tripbombblastradius = num[i++];
break;
case 12:morterblastradius = num[i++];
break;
case 13:bouncemineblastradius = num[i++];
break;
case 14:seenineblastradius = num[i++];
break;
case 15:
case 16:
case 17:
case 18:
case 19:
case 20:
case 21:
case 22:
case 23:
case 24:
if(j == 24)
max_ammo_amount[11] = num[i++];
else max_ammo_amount[j-14] = num[i++];
break;
case 25:
camerashitable = num[i++];
break;
case 26:
numfreezebounces = num[i++];
break;
case 27:
freezerhurtowner = num[i++];
break;
case 28:
spriteqamount = num[i++];
if(spriteqamount > 1024) spriteqamount = 1024;
else if(spriteqamount < 0) spriteqamount = 0;
break;
case 29:
lasermode = num[i++];
break;
}
j++;
}
scriptptr++;
return 0;
}
}
return 0;
}
int keyw_sort (const void *a, const void *b)
{
return strcmp (keyw[*(const BYTE *)a], keyw[*(const BYTE *)b]);
}
void passone(void)
{
if (KeywordsSorted[0] == 0)
{
for (int i = 0; i < NUMKEYWORDS; ++i)
{
KeywordsSorted[i] = i;
}
qsort (KeywordsSorted, NUMKEYWORDS, sizeof(KeywordsSorted[0]), keyw_sort);
}
while( parsecommand() == 0 );
if( (error+warning) > 12)
Printf( " * ERROR! Too many warnings or errors.\n");
}
char *defaultcons[3] =
{
{"GAME.CON"},
{"USER.CON"},
{"DEFS.CON"}
};
void copydefaultcons(void)
{
long i, fs, fpi;
FILE *fpo;
for(i=0;i<3;i++)
{
fpi = kopen4load( defaultcons[i] , 1 );
fpo = fopen( defaultcons[i],"wb");
if(fpi == 0)
{
// CTW - MODIFICATION
// if(fpo == -1) fclose(fpo);
if(fpo == NULL) fclose(fpo);
// CTW END - MODIFICATION
continue;
}
// CTW - MODIFICATION
// if(fpo == -1)
if(fpo == NULL)
// CTW END - MODIFICATION
{
if(fpi == 0) kclose(fpi);
continue;
}
fs = kfilelength(fpi);
kread(fpi,&hittype[0],fs);
fwrite(&hittype[0],fs,1,fpo);
kclose(fpi);
fclose(fpo);
}
}
void loadefs(char *filenam,char *mptr)
{
long fs,fp;
if(!SafeFileExists(filenam) && loadfromgrouponly == 0)
{
bool q = I_YesNoQuestion (
"Missing external con file(s).\n"
"COPY INTERNAL DEFAULTS TO DIRECTORY?");
if (q)
{
copydefaultcons();
}
}
fp = kopen4load(filenam,loadfromgrouponly);
if( fp == -1 )
{
if( loadfromgrouponly == 1 )
gameexit("\nMissing con file(s).");
loadfromgrouponly = 1;
return; //Not there
}
else
{
Printf("Compiling: '%s'.\n",filenam);
fs = kfilelength(fp);
last_used_text = textptr = (char *) mptr;
last_used_size = fs;
kread(fp,(char *)textptr,fs);
kclose(fp);
}
textptr[fs - 2] = 0;
clearbuf(actorscrptr,MAXSPRITES,0L);
clearbufbyte(actortype,MAXSPRITES,0L);
labelcnt = 0;
scriptptr = script+1;
warning = 0;
error = 0;
line_number = 1;
total_lines = 0;
passone(); //Tokenize
*script = (long) scriptptr;
if(warning|error)
Printf("Found %ld warning(s), %ld error(s).\n",warning,error);
if( error == 0 && warning != 0)
{
if( groupfile != -1 && loadfromgrouponly == 0 )
{
bool q = I_YesNoQuestion (
"Warnings found in %s file. You should backup the original copies before\n"
"before attempting to modify them. Do you want to use the\n"
"INTERNAL DEFAULTS?", filenam);
if (q)
{
loadfromgrouponly = 1;
return;
}
}
}
if(error)
{
if( loadfromgrouponly )
{
sprintf(buf,"\nError in %s.",filenam);
gameexit(buf);
}
else
{
if( groupfile != -1 && loadfromgrouponly == 0 )
{
bool q = I_YesNoQuestion (
"Errors found in %s file. You should backup the original copies\n"
"before attempting to modify them. Do you want to use the\n"
"internal defaults?", filenam);
if (q)
{
loadfromgrouponly = 1;
return;
}
else gameexit("");
}
}
}
else
{
total_lines += line_number;
Printf("Code Size:%ld bytes(%ld labels).\n",(long)((scriptptr-script)<<2)-4,labelcnt);
}
}
char dodge(spritetype *s)
{
short i;
long bx,by,mx,my,bxvect,byvect,mxvect,myvect,d;
mx = s->x;
my = s->y;
mxvect = sintable[(s->ang+512)&2047]; myvect = sintable[s->ang&2047];
for(i=headspritestat[4];i>=0;i=nextspritestat[i]) //weapons list
{
if( sprite[i].owner == i || sprite[i].sectnum != s->sectnum)
continue;
bx = sprite[i].x-mx;
by = sprite[i].y-my;
bxvect = sintable[(sprite[i].ang+512)&2047]; byvect = sintable[sprite[i].ang&2047];
if (mxvect*bx + myvect*by >= 0)
if (bxvect*bx + byvect*by < 0)
{
d = bxvect*by - byvect*bx;
if (klabs(d) < 65536*64)
{
s->ang -= 512+(TRAND&1024);
return 1;
}
}
}
return 0;
}
short furthestangle(short i,short angs)
{
short j, hitsect,hitwall,hitspr,furthest_angle, angincs;
long hx, hy, hz, d, greatestd;
spritetype *s = &sprite[i];
greatestd = -(1<<30);
angincs = 2048/angs;
if(s->picnum != APLAYER)
if( (g_t[0]&63) > 2 ) return( s->ang + 1024 );
for(j=s->ang;j<(2048+s->ang);j+=angincs)
{
hitscan(s->x, s->y, s->z-(8<<8), s->sectnum,
sintable[(j+512)&2047],
sintable[j&2047],0,
&hitsect,&hitwall,&hitspr,&hx,&hy,&hz,CLIPMASK1);
d = klabs(hx-s->x) + klabs(hy-s->y);
if(d > greatestd)
{
greatestd = d;
furthest_angle = j;
}
}
return (furthest_angle&2047);
}
short furthestcanseepoint(short i,spritetype *ts,long *dax,long *day)
{
short j, hitsect,hitwall,hitspr, angincs;
long hx, hy, hz, d, da;//, d, cd, ca,tempx,tempy,cx,cy;
spritetype *s = &sprite[i];
if( (g_t[0]&63) ) return -1;
if(ud.multimode < 2 && ud.player_skill < 3)
angincs = 2048/2;
else angincs = 2048/(1+(TRAND&1));
for(j=ts->ang;j<(2048+ts->ang);j+=(angincs-(TRAND&511)))
{
hitscan(ts->x, ts->y, ts->z-(16<<8), ts->sectnum,
sintable[(j+512)&2047],
sintable[j&2047],16384-(TRAND&32767),
&hitsect,&hitwall,&hitspr,&hx,&hy,&hz,CLIPMASK1);
d = klabs(hx-ts->x)+klabs(hy-ts->y);
da = klabs(hx-s->x)+klabs(hy-s->y);
if( d < da )
if(cansee(hx,hy,hz,hitsect,s->x,s->y,s->z-(16<<8),s->sectnum))
{
*dax = hx;
*day = hy;
return hitsect;
}
}
return -1;
}
void alterang(short a)
{
short aang, angdif, goalang,j;
long ticselapsed, *moveptr;
moveptr = (long *)g_t[1];
ticselapsed = (g_t[0])&31;
aang = g_sp->ang;
g_sp->xvel += (*moveptr-g_sp->xvel)/5;
if(g_sp->zvel < 648) g_sp->zvel += ((*(moveptr+1)<<4)-g_sp->zvel)/5;
if(a&seekplayer)
{
j = ps[g_p].holoduke_on;
if(j >= 0 && cansee(sprite[j].x,sprite[j].y,sprite[j].z,sprite[j].sectnum,g_sp->x,g_sp->y,g_sp->z,g_sp->sectnum) )
g_sp->owner = j;
else g_sp->owner = ps[g_p].i;
if(sprite[g_sp->owner].picnum == APLAYER)
goalang = getangle(hittype[g_i].lastvx-g_sp->x,hittype[g_i].lastvy-g_sp->y);
else
goalang = getangle(sprite[g_sp->owner].x-g_sp->x,sprite[g_sp->owner].y-g_sp->y);
if(g_sp->xvel && g_sp->picnum != DRONE)
{
angdif = getincangle(aang,goalang);
if(ticselapsed < 2)
{
if( klabs(angdif) < 256)
{
j = 128-(TRAND&256);
g_sp->ang += j;
if( hits(g_i) < 844 )
g_sp->ang -= j;
}
}
else if(ticselapsed > 18 && ticselapsed < 26) // choose
{
if(klabs(angdif>>2) < 128) g_sp->ang = goalang;
else g_sp->ang += angdif>>2;
}
}
else g_sp->ang = goalang;
}
if(ticselapsed < 1)
{
j = 2;
if(a&furthestdir)
{
goalang = furthestangle(g_i,j);
g_sp->ang = goalang;
g_sp->owner = ps[g_p].i;
}
if(a&fleeenemy)
{
goalang = furthestangle(g_i,j);
g_sp->ang = goalang; // += angdif; // = getincangle(aang,goalang)>>1;
}
}
}
void move()
{
long l, *moveptr;
short a, goalang, angdif;
long daxvel;
a = g_sp->hitag;
if(a == -1) a = 0;
g_t[0]++;
if(a&face_player)
{
if(ps[g_p].newowner >= 0)
goalang = getangle(ps[g_p].oposx-g_sp->x,ps[g_p].oposy-g_sp->y);
else goalang = getangle(ps[g_p].posx-g_sp->x,ps[g_p].posy-g_sp->y);
angdif = getincangle(g_sp->ang,goalang)>>2;
if(angdif > -8 && angdif < 0) angdif = 0;
g_sp->ang += angdif;
}
if(a&spin)
g_sp->ang += sintable[ ((g_t[0]<<3)&2047) ]>>6;
if(a&face_player_slow)
{
if(ps[g_p].newowner >= 0)
goalang = getangle(ps[g_p].oposx-g_sp->x,ps[g_p].oposy-g_sp->y);
else goalang = getangle(ps[g_p].posx-g_sp->x,ps[g_p].posy-g_sp->y);
angdif = ksgn(getincangle(g_sp->ang,goalang))<<5;
if(angdif > -32 && angdif < 0)
{
angdif = 0;
g_sp->ang = goalang;
}
g_sp->ang += angdif;
}
if((a&jumptoplayer) == jumptoplayer)
{
if(g_t[0] < 16)
g_sp->zvel -= (sintable[(512+(g_t[0]<<4))&2047]>>5);
}
if(a&face_player_smart)
{
long newx,newy;
newx = ps[g_p].posx+(ps[g_p].posxv/768);
newy = ps[g_p].posy+(ps[g_p].posyv/768);
goalang = getangle(newx-g_sp->x,newy-g_sp->y);
angdif = getincangle(g_sp->ang,goalang)>>2;
if(angdif > -8 && angdif < 0) angdif = 0;
g_sp->ang += angdif;
}
if( g_t[1] == 0 || a == 0 )
{
if( ( badguy(g_sp) && g_sp->extra <= 0 ) || (hittype[g_i].bposx != g_sp->x) || (hittype[g_i].bposy != g_sp->y) )
{
hittype[g_i].bposx = g_sp->x;
hittype[g_i].bposy = g_sp->y;
setsprite(g_i,g_sp->x,g_sp->y,g_sp->z);
}
return;
}
moveptr = (long *)g_t[1];
if(a&geth) g_sp->xvel += (*moveptr-g_sp->xvel)>>1;
if(a&getv) g_sp->zvel += ((*(moveptr+1)<<4)-g_sp->zvel)>>1;
if(a&dodgebullet)
dodge(g_sp);
if(g_sp->picnum != APLAYER)
alterang(a);
if(g_sp->xvel > -6 && g_sp->xvel < 6 ) g_sp->xvel = 0;
a = badguy(g_sp);
if(g_sp->xvel || g_sp->zvel)
{
if(a && g_sp->picnum != ROTATEGUN)
{
if( (g_sp->picnum == DRONE || g_sp->picnum == COMMANDER) && g_sp->extra > 0)
{
if(g_sp->picnum == COMMANDER)
{
hittype[g_i].floorz = l = getflorzofslope(g_sp->sectnum,g_sp->x,g_sp->y);
if( g_sp->z > (l-(8<<8)) )
{
if( g_sp->z > (l-(8<<8)) ) g_sp->z = l-(8<<8);
g_sp->zvel = 0;
}
hittype[g_i].ceilingz = l = getceilzofslope(g_sp->sectnum,g_sp->x,g_sp->y);
if( (g_sp->z-l) < (80<<8) )
{
g_sp->z = l+(80<<8);
g_sp->zvel = 0;
}
}
else
{
if( g_sp->zvel > 0 )
{
hittype[g_i].floorz = l = getflorzofslope(g_sp->sectnum,g_sp->x,g_sp->y);
if( g_sp->z > (l-(30<<8)) )
g_sp->z = l-(30<<8);
}
else
{
hittype[g_i].ceilingz = l = getceilzofslope(g_sp->sectnum,g_sp->x,g_sp->y);
if( (g_sp->z-l) < (50<<8) )
{
g_sp->z = l+(50<<8);
g_sp->zvel = 0;
}
}
}
}
else if(g_sp->picnum != ORGANTIC)
{
if(g_sp->zvel > 0 && hittype[g_i].floorz < g_sp->z)
g_sp->z = hittype[g_i].floorz;
if( g_sp->zvel < 0)
{
l = getceilzofslope(g_sp->sectnum,g_sp->x,g_sp->y);
if( (g_sp->z-l) < (66<<8) )
{
g_sp->z = l+(66<<8);
g_sp->zvel >>= 1;
}
}
}
}
else if(g_sp->picnum == APLAYER)
if( (g_sp->z-hittype[g_i].ceilingz) < (32<<8) )
g_sp->z = hittype[g_i].ceilingz+(32<<8);
daxvel = g_sp->xvel;
angdif = g_sp->ang;
if( a && g_sp->picnum != ROTATEGUN )
{
if( g_x < 960 && g_sp->xrepeat > 16 )
{
daxvel = -(1024-g_x);
angdif = getangle(ps[g_p].posx-g_sp->x,ps[g_p].posy-g_sp->y);
if(g_x < 512)
{
ps[g_p].posxv = 0;
ps[g_p].posyv = 0;
}
else
{
ps[g_p].posxv = mulscale(ps[g_p].posxv,dukefriction-0x2000,16);
ps[g_p].posyv = mulscale(ps[g_p].posyv,dukefriction-0x2000,16);
}
}
else if(g_sp->picnum != DRONE && g_sp->picnum != SHARK && g_sp->picnum != COMMANDER)
{
if( hittype[g_i].bposz != g_sp->z || ( ud.multimode < 2 && ud.player_skill < 2 ) )
{
if( (g_t[0]&1) || ps[g_p].actorsqu == g_i ) return;
else daxvel <<= 1;
}
else
{
if( (g_t[0]&3) || ps[g_p].actorsqu == g_i ) return;
else daxvel <<= 2;
}
}
}
hittype[g_i].movflag = movesprite(g_i,
(daxvel*(sintable[(angdif+512)&2047]))>>14,
(daxvel*(sintable[angdif&2047]))>>14,g_sp->zvel,CLIPMASK0);
}
if( a )
{
if (sector[g_sp->sectnum].ceilingstat&SSTAT_PARALLAX)
g_sp->shade += (sector[g_sp->sectnum].ceilingshade-g_sp->shade)>>1;
else g_sp->shade += (sector[g_sp->sectnum].floorshade-g_sp->shade)>>1;
if( sector[g_sp->sectnum].floorpicnum == MIRROR )
deletesprite(g_i);
}
}
char parse(void);
void parseifelse(long condition)
{
if( condition )
{
insptr+=2;
parse();
}
else
{
insptr = (long *) *(insptr+1);
if(*insptr == 10)
{
insptr+=2;
parse();
}
}
}
// long *it = 0x00589a04;
char parse(void)
{
long j, l, s;
if(killit_flag) return 1;
// if(*it == 1668249134L) gameexit("\nERR");
switch(*insptr)
{
case KEY_IfRnd:
insptr++;
parseifelse( rnd(*insptr));
break;
case KEY_IfCanShootTarget:
if(g_x > 1024)
{
short temphit, sclip, angdif;
if( badguy(g_sp) && g_sp->xrepeat > 56 )
{
sclip = 3084;
angdif = 48;
}
else
{
sclip = 768;
angdif = 16;
}
j = hitasprite(g_i,&temphit);
if(j == (1<<30))
{
parseifelse(1);
break;
}
if(j > sclip)
{
if(temphit >= 0 && sprite[temphit].picnum == g_sp->picnum)
j = 0;
else
{
g_sp->ang += angdif;j = hitasprite(g_i,&temphit);g_sp->ang -= angdif;
if(j > sclip)
{
if(temphit >= 0 && sprite[temphit].picnum == g_sp->picnum)
j = 0;
else
{
g_sp->ang -= angdif;j = hitasprite(g_i,&temphit);g_sp->ang += angdif;
if( j > 768 )
{
if(temphit >= 0 && sprite[temphit].picnum == g_sp->picnum)
j = 0;
else j = 1;
}
else j = 0;
}
}
else j = 0;
}
}
else j = 0;
}
else j = 1;
parseifelse(j);
break;
case KEY_IfCanSeeTarget:
j = cansee(g_sp->x,g_sp->y,g_sp->z-((TRAND&41)<<8),g_sp->sectnum,ps[g_p].posx,ps[g_p].posy,ps[g_p].posz/*-((TRAND&41)<<8)*/,sprite[ps[g_p].i].sectnum);
parseifelse(j);
if( j ) hittype[g_i].timetosleep = SLEEPTIME;
break;
case KEY_IfActorNotStayPut:
parseifelse(hittype[g_i].actorstayput == -1);
break;
case KEY_IfCanSee:
{
spritetype *s;
if(ps[g_p].holoduke_on >= 0)
{
s = &sprite[ps[g_p].holoduke_on];
j = cansee(g_sp->x,g_sp->y,g_sp->z-(TRAND&((32<<8)-1)),g_sp->sectnum,
s->x,s->y,s->z,s->sectnum);
if(j == 0)
s = &sprite[ps[g_p].i];
}
else s = &sprite[ps[g_p].i];
j = cansee(g_sp->x,g_sp->y,g_sp->z-(TRAND&((47<<8))),g_sp->sectnum,
s->x,s->y,s->z-(24<<8),s->sectnum);
if(j == 0)
{
if( ( klabs(hittype[g_i].lastvx-g_sp->x)+klabs(hittype[g_i].lastvy-g_sp->y) ) <
( klabs(hittype[g_i].lastvx-s->x)+klabs(hittype[g_i].lastvy-s->y) ) )
j = 0;
if( j == 0 )
{
j = furthestcanseepoint(g_i,s,&hittype[g_i].lastvx,&hittype[g_i].lastvy);
if(j == -1) j = 0;
else j = 1;
}
}
else
{
hittype[g_i].lastvx = s->x;
hittype[g_i].lastvy = s->y;
}
if( j == 1 && ( g_sp->statnum == 1 || g_sp->statnum == 6 ) )
hittype[g_i].timetosleep = SLEEPTIME;
parseifelse(j == 1);
break;
}
case KEY_IfHitWeapon:
parseifelse(ifhitbyweapon(g_i) >= 0);
break;
case KEY_IfSquished:
parseifelse( ifsquished(g_i, g_p) == 1);
break;
case KEY_IfDead:
{
j = g_sp->extra;
if(g_sp->picnum == APLAYER)
j--;
parseifelse(j < 0);
}
break;
case KEY_AI:
insptr++;
g_t[5] = *insptr;
g_t[4] = *(long *)(g_t[5]); // Action
g_t[1] = *(long *)(g_t[5]+4); // move
g_sp->hitag = *(long *)(g_t[5]+8); // Ai
g_t[0] = g_t[2] = g_t[3] = 0;
if(g_sp->hitag&random_angle)
g_sp->ang = TRAND&2047;
insptr++;
break;
case KEY_Action:
insptr++;
g_t[2] = 0;
g_t[3] = 0;
g_t[4] = *insptr;
insptr++;
break;
case KEY_IfPDistL:
insptr++;
parseifelse(g_x < *insptr);
if(g_x > MAXSLEEPDIST && hittype[g_i].timetosleep == 0)
hittype[g_i].timetosleep = SLEEPTIME;
break;
case KEY_IfPDistG:
insptr++;
parseifelse(g_x > *insptr);
if(g_x > MAXSLEEPDIST && hittype[g_i].timetosleep == 0)
hittype[g_i].timetosleep = SLEEPTIME;
break;
case KEY_Else:
insptr = (long *) *(insptr+1);
break;
case KEY_AddStrength:
insptr++;
g_sp->extra += *insptr;
insptr++;
break;
case KEY_Strength:
insptr++;
g_sp->extra = *insptr;
insptr++;
break;
case KEY_IfGotWeapOnce:
insptr++;
if(ud.coop >= 1 && ud.multimode > 1)
{
if(*insptr == 0)
{
for(j=0;j < ps[g_p].weapreccnt;j++)
if( ps[g_p].weaprecs[j] == g_sp->picnum )
break;
parseifelse(j < ps[g_p].weapreccnt && g_sp->owner == g_i);
}
else if(ps[g_p].weapreccnt < 16)
{
ps[g_p].weaprecs[ps[g_p].weapreccnt++] = g_sp->picnum;
parseifelse(g_sp->owner == g_i);
}
}
else parseifelse(0);
break;
case KEY_GetLastPal:
insptr++;
if(g_sp->picnum == APLAYER)
g_sp->pal = ps[g_sp->yvel].palookup;
else g_sp->pal = hittype[g_i].tempang;
hittype[g_i].tempang = 0;
break;
case KEY_TossWeapon:
insptr++;
checkweapons(&ps[g_sp->yvel]);
break;
case KEY_NullOp:
insptr++;
break;
case KEY_MikeSnd:
insptr++;
if (!ActorIsPlaying (g_i, g_sp->yvel))
spritesound(g_sp->yvel,g_i);
break;
case KEY_PKick:
insptr++;
if( ud.multimode > 1 && g_sp->picnum == APLAYER )
{
if(ps[otherp].quick_kick == 0)
ps[otherp].quick_kick = 14;
}
else if(g_sp->picnum != APLAYER && ps[g_p].quick_kick == 0)
ps[g_p].quick_kick = 14;
break;
case KEY_SizeTo:
insptr++;
j = ((*insptr)-g_sp->xrepeat)<<1;
g_sp->xrepeat += ksgn(j);
insptr++;
if( ( g_sp->picnum == APLAYER && g_sp->yrepeat < 36 ) || *insptr < g_sp->yrepeat || ((g_sp->yrepeat*(tilesizy[g_sp->picnum]+8))<<2) < (hittype[g_i].floorz - hittype[g_i].ceilingz) )
{
j = ((*insptr)-g_sp->yrepeat)<<1;
if( klabs(j) ) g_sp->yrepeat += ksgn(j);
}
insptr++;
break;
case KEY_SizeAt:
insptr++;
g_sp->xrepeat = (char) *insptr;
insptr++;
g_sp->yrepeat = (char) *insptr;
insptr++;
break;
case KEY_Shoot:
insptr++;
shoot(g_i,(short)*insptr);
insptr++;
break;
case KEY_SoundOnce:
insptr++;
if (!ActorIsPlaying (g_i, *insptr))
spritesound((short) *insptr,g_i);
insptr++;
break;
case KEY_StopSound:
insptr++;
stopsound((short)*insptr, g_i);
insptr++;
break;
case KEY_GlobalSound:
insptr++;
if(g_p == screenpeek || ud.coop==1)
spritesound((short) *insptr,ps[screenpeek].i);
insptr++;
break;
case KEY_Sound:
insptr++;
spritesound((short) *insptr,g_i);
insptr++;
break;
case KEY_Tip:
insptr++;
ps[g_p].tipincs = 26;
break;
case KEY_Fall:
insptr++;
g_sp->xoffset = 0;
g_sp->yoffset = 0;
// if(!gotz)
{
long c;
if( floorspace(g_sp->sectnum) )
c = 0;
else
{
if( ceilingspace(g_sp->sectnum) || sector[g_sp->sectnum].lotag == 2)
c = gc/6;
else c = gc;
}
if( hittype[g_i].cgg <= 0 || (sector[g_sp->sectnum].floorstat&SSTAT_GROUDRAW) )
{
getglobalz(g_i);
hittype[g_i].cgg = 6;
}
else hittype[g_i].cgg --;
if( g_sp->z < (hittype[g_i].floorz-FOURSLEIGHT) )
{
g_sp->zvel += c;
g_sp->z+=g_sp->zvel;
if(g_sp->zvel > 6144) g_sp->zvel = 6144;
}
else
{
g_sp->z = hittype[g_i].floorz - FOURSLEIGHT;
if( badguy(g_sp) || ( g_sp->picnum == APLAYER && g_sp->owner >= 0) )
{
if( g_sp->zvel > 3084 && g_sp->extra <= 1)
{
if(g_sp->pal != 1 && g_sp->picnum != DRONE)
{
if(g_sp->picnum == APLAYER && g_sp->extra > 0)
goto SKIPJIBS;
guts(g_sp,JIBS6,15,g_p);
spritesound(SQUISHED,g_i);
spawn(g_i,BLOODPOOL);
}
SKIPJIBS:
hittype[g_i].picnum = SHOTSPARK1;
hittype[g_i].extra = 1;
g_sp->zvel = 0;
}
else if(g_sp->zvel > 2048 && sector[g_sp->sectnum].lotag != 1)
{
short jj = g_sp->sectnum;
pushmove(&g_sp->x,&g_sp->y,&g_sp->z,&jj,128L,(4L<<8),(4L<<8),CLIPMASK0);
j = jj;
if(j != g_sp->sectnum && j >= 0 && j < MAXSECTORS)
changespritesect(g_i,j);
spritesound(THUD,g_i);
}
}
if(sector[g_sp->sectnum].lotag == 1)
switch (g_sp->picnum)
{
case OCTABRAIN:
case COMMANDER:
case DRONE:
break;
default:
g_sp->z += (24<<8);
break;
}
else g_sp->zvel = 0;
}
}
break;
case KEY_EndA:
case KEY_Break:
case KEY_EndS:
return 1;
case KEY_RBrace:
insptr++;
return 1;
case KEY_AddAmmo:
insptr++;
if( ps[g_p].ammo_amount[*insptr] >= max_ammo_amount[*insptr] )
{
killit_flag = 2;
break;
}
addammo( *insptr, &ps[g_p], *(insptr+1) );
if(ps[g_p].curr_weapon == KNEE_WEAPON)
if( ps[g_p].gotweapon[*insptr] )
addweapon( &ps[g_p], *insptr );
insptr += 2;
break;
case KEY_Money:
insptr++;
lotsofmoney(g_sp,*insptr);
insptr++;
break;
case KEY_Mail:
insptr++;
lotsofmail(g_sp,*insptr);
insptr++;
break;
case KEY_SleepTime:
insptr++;
hittype[g_i].timetosleep = (short)*insptr;
insptr++;
break;
case KEY_Paper:
insptr++;
lotsofpaper(g_sp,*insptr);
insptr++;
break;
case KEY_AddKills:
insptr++;
ps[g_p].actors_killed += *insptr;
hittype[g_i].actorstayput = -1;
insptr++;
break;
case KEY_LotsOfGlass:
insptr++;
spriteglass(g_i,*insptr);
insptr++;
break;
case KEY_KillIt:
insptr++;
killit_flag = 1;
break;
case KEY_AddWeapon:
insptr++;
if( ps[g_p].gotweapon[*insptr] == 0 ) addweapon( &ps[g_p], *insptr );
else if( ps[g_p].ammo_amount[*insptr] >= max_ammo_amount[*insptr] )
{
killit_flag = 2;
break;
}
addammo( *insptr, &ps[g_p], *(insptr+1) );
if(ps[g_p].curr_weapon == KNEE_WEAPON)
if( ps[g_p].gotweapon[*insptr] )
addweapon( &ps[g_p], *insptr );
insptr+=2;
break;
case KEY_Debug:
insptr++;
Printf("%ld\n",*insptr);
insptr++;
break;
case KEY_EndOfGame:
insptr++;
ps[g_p].timebeforeexit = *insptr;
ps[g_p].customexitsound = -1;
ud.eog = 1;
insptr++;
break;
case KEY_AddPHealth:
insptr++;
if(ps[g_p].newowner >= 0)
{
ps[g_p].newowner = -1;
ps[g_p].posx = ps[g_p].oposx;
ps[g_p].posy = ps[g_p].oposy;
ps[g_p].posz = ps[g_p].oposz;
ps[g_p].ang = ps[g_p].oang;
updatesector(ps[g_p].posx,ps[g_p].posy,&ps[g_p].cursectnum);
setpal(&ps[g_p]);
j = headspritestat[1];
while(j >= 0)
{
if(sprite[j].picnum==CAMERA1)
sprite[j].yvel = 0;
j = nextspritestat[j];
}
}
j = sprite[ps[g_p].i].extra;
if(g_sp->picnum != ATOMICHEALTH)
{
if( j > max_player_health && *insptr > 0 )
{
insptr++;
break;
}
else
{
if(j > 0)
j += *insptr;
if ( j > max_player_health && *insptr > 0 )
j = max_player_health;
}
}
else
{
if( j > 0 )
j += *insptr;
if ( j > (max_player_health<<1) )
j = (max_player_health<<1);
}
if(j < 0) j = 0;
if(ud.god == 0)
{
if(*insptr > 0)
{
if( ( j - *insptr ) < (max_player_health>>2) &&
j >= (max_player_health>>2) )
spritesound(DUKE_GOTHEALTHATLOW,ps[g_p].i);
ps[g_p].last_extra = j;
}
sprite[ps[g_p].i].extra = j;
}
insptr++;
break;
case KEY_State:
{
long *tempscrptr;
tempscrptr = insptr+2;
insptr = (long *) *(insptr+1);
while(1) if(parse()) break;
insptr = tempscrptr;
}
break;
case KEY_LBrace:
insptr++;
while(1) if(parse()) break;
break;
case KEY_Move:
g_t[0]=0;
insptr++;
g_t[1] = *insptr;
insptr++;
g_sp->hitag = *insptr;
insptr++;
if(g_sp->hitag&random_angle)
g_sp->ang = TRAND&2047;
break;
case KEY_Spawn:
insptr++;
if(g_sp->sectnum >= 0 && g_sp->sectnum < MAXSECTORS)
spawn(g_i,*insptr);
insptr++;
break;
case KEY_IfWasWeapon:
insptr++;
parseifelse( hittype[g_i].picnum == *insptr);
break;
case KEY_IfAI:
insptr++;
parseifelse(g_t[5] == *insptr);
break;
case KEY_IfAction:
insptr++;
parseifelse(g_t[4] == *insptr);
break;
case KEY_IfActionCount:
insptr++;
parseifelse(g_t[2] >= *insptr);
break;
case KEY_ResetActionCount:
insptr++;
g_t[2] = 0;
break;
case KEY_Debris:
{
short dnum;
insptr++;
dnum = *insptr;
insptr++;
if(g_sp->sectnum >= 0 && g_sp->sectnum < MAXSECTORS)
for(j=(*insptr)-1;j>=0;j--)
{
if(g_sp->picnum == BLIMP && dnum == SCRAP1)
s = 0;
else s = (TRAND%3);
l = EGS(g_sp->sectnum,
g_sp->x+(TRAND&255)-128,g_sp->y+(TRAND&255)-128,g_sp->z-(8<<8)-(TRAND&8191),
dnum+s,g_sp->shade,32+(TRAND&15),32+(TRAND&15),
TRAND&2047,(TRAND&127)+32,
-(TRAND&2047),g_i,5);
if(g_sp->picnum == BLIMP && dnum == SCRAP1)
sprite[l].yvel = weaponsandammosprites[j%14];
else sprite[l].yvel = -1;
sprite[l].pal = g_sp->pal;
}
insptr++;
}
break;
case KEY_Count:
insptr++;
g_t[0] = (short) *insptr;
insptr++;
break;
case KEY_CStator:
insptr++;
g_sp->cstat |= (short)*insptr;
insptr++;
break;
case KEY_ClipDist:
insptr++;
g_sp->clipdist = (short) *insptr;
insptr++;
break;
case KEY_CStat:
insptr++;
g_sp->cstat = (short) *insptr;
insptr++;
break;
case KEY_IfMove:
insptr++;
parseifelse(g_t[1] == *insptr);
break;
case KEY_ResetPlayer:
insptr++;
if(ud.multimode < 2)
{
if( lastsavedpos >= 0 && ud.recstat != 2 )
{
ps[g_p].gm = MODE_MENU;
cmenu(15000);
}
else ps[g_p].gm = MODE_RESTART;
killit_flag = 2;
}
else
{
pickrandomspot(g_p);
g_sp->x = hittype[g_i].bposx = ps[g_p].bobposx = ps[g_p].oposx = ps[g_p].posx;
g_sp->y = hittype[g_i].bposy = ps[g_p].bobposy = ps[g_p].oposy =ps[g_p].posy;
g_sp->z = hittype[g_i].bposy = ps[g_p].oposz =ps[g_p].posz;
updatesector(ps[g_p].posx,ps[g_p].posy,&ps[g_p].cursectnum);
setsprite(ps[g_p].i,ps[g_p].posx,ps[g_p].posy,ps[g_p].posz+PHEIGHT);
g_sp->cstat = CSTAT_ALLBLOCKING;
g_sp->shade = -12;
g_sp->clipdist = 64;
g_sp->xrepeat = 42;
g_sp->yrepeat = 36;
g_sp->owner = g_i;
g_sp->xoffset = 0;
g_sp->pal = ps[g_p].palookup;
ps[g_p].last_extra = g_sp->extra = max_player_health;
ps[g_p].wantweaponfire = -1;
ps[g_p].horiz = 100;
ps[g_p].on_crane = -1;
ps[g_p].frag_ps = g_p;
ps[g_p].horizoff = 0;
ps[g_p].opyoff = 0;
ps[g_p].wackedbyactor = -1;
ps[g_p].shield_amount = max_armour_amount;
ps[g_p].dead_flag = 0;
ps[g_p].pals_time = 0;
ps[g_p].footprintcount = 0;
ps[g_p].weapreccnt = 0;
ps[g_p].fta = 0;
ps[g_p].ftq = 0;
ps[g_p].posxv = ps[g_p].posyv = 0;
ps[g_p].rotscrnang = 0;
ps[g_p].falling_counter = 0;
hittype[g_i].extra = -1;
hittype[g_i].owner = g_i;
hittype[g_i].cgg = 0;
hittype[g_i].movflag = 0;
hittype[g_i].tempang = 0;
hittype[g_i].actorstayput = -1;
hittype[g_i].dispicnum = 0;
hittype[g_i].owner = ps[g_p].i;
resetinventory(g_p);
resetweapons(g_p);
cameradist = 0;
cameraclock = totalclock;
}
setpal(&ps[g_p]);
break;
case KEY_IfOnWater:
parseifelse( klabs(g_sp->z-sector[g_sp->sectnum].floorz) < (32<<8) && sector[g_sp->sectnum].lotag == 1);
break;
case KEY_IfInWater:
parseifelse( sector[g_sp->sectnum].lotag == 2);
break;
case KEY_IfCount:
insptr++;
parseifelse(g_t[0] >= *insptr);
break;
case KEY_IfActor:
insptr++;
parseifelse(g_sp->picnum == *insptr);
break;
case KEY_ResetCount:
insptr++;
g_t[0] = 0;
break;
case KEY_AddInventory:
insptr+=2;
switch(*(insptr-1))
{
case 0:
ps[g_p].steroids_amount = *insptr;
ps[g_p].inven_icon = 2;
break;
case 1:
ps[g_p].shield_amount += *insptr;// 100;
if(ps[g_p].shield_amount > max_player_health)
ps[g_p].shield_amount = max_player_health;
break;
case 2:
ps[g_p].scuba_amount = *insptr;// 1600;
ps[g_p].inven_icon = 6;
break;
case 3:
ps[g_p].holoduke_amount = *insptr;// 1600;
ps[g_p].inven_icon = 3;
break;
case 4:
ps[g_p].jetpack_amount = *insptr;// 1600;
ps[g_p].inven_icon = 4;
break;
case 6:
switch(g_sp->pal)
{
case 0: ps[g_p].got_access |= 1;break;
case 21: ps[g_p].got_access |= 2;break;
case 23: ps[g_p].got_access |= 4;break;
}
break;
case 7:
ps[g_p].heat_amount = *insptr;
ps[g_p].inven_icon = 5;
break;
case 9:
ps[g_p].inven_icon = 1;
ps[g_p].firstaid_amount = *insptr;
break;
case 10:
ps[g_p].inven_icon = 7;
ps[g_p].boot_amount = *insptr;
break;
}
insptr++;
break;
case KEY_HitRadius:
hitradius(g_i,*(insptr+1),*(insptr+2),*(insptr+3),*(insptr+4),*(insptr+5));
insptr+=6;
break;
case KEY_IfP:
{
insptr++;
l = *insptr;
j = 0;
s = g_sp->xvel;
if( (l&8) && ps[g_p].on_ground && (sync[g_p].bits&2) )
j = 1;
else if( (l&16) && ps[g_p].jumping_counter == 0 && !ps[g_p].on_ground &&
ps[g_p].poszv > 2048 )
j = 1;
else if( (l&32) && ps[g_p].jumping_counter > 348 )
j = 1;
else if( (l&1) && s >= 0 && s < 8)
j = 1;
else if( (l&2) && s >= 8 && !(sync[g_p].bits&(1<<5)) )
j = 1;
else if( (l&4) && s >= 8 && sync[g_p].bits&(1<<5) )
j = 1;
else if( (l&64) && ps[g_p].posz < (g_sp->z-(48<<8)) )
j = 1;
else if( (l&128) && s <= -8 && !(sync[g_p].bits&(1<<5)) )
j = 1;
else if( (l&256) && s <= -8 && (sync[g_p].bits&(1<<5)) )
j = 1;
else if( (l&512) && ( ps[g_p].quick_kick > 0 || ( ps[g_p].curr_weapon == KNEE_WEAPON && ps[g_p].kickback_pic > 0 ) ) )
j = 1;
else if( (l&1024) && sprite[ps[g_p].i].xrepeat < 32 )
j = 1;
else if( (l&2048) && ps[g_p].jetpack_on )
j = 1;
else if( (l&4096) && ps[g_p].steroids_amount > 0 && ps[g_p].steroids_amount < 400 )
j = 1;
else if( (l&8192) && ps[g_p].on_ground)
j = 1;
else if( (l&16384) && sprite[ps[g_p].i].xrepeat > 32 && sprite[ps[g_p].i].extra > 0 && ps[g_p].timebeforeexit == 0 )
j = 1;
else if( (l&32768) && sprite[ps[g_p].i].extra <= 0)
j = 1;
else if( (l&65536L) )
{
if(g_sp->picnum == APLAYER && ud.multimode > 1)
j = getincangle(ps[otherp].ang,getangle(ps[g_p].posx-ps[otherp].posx,ps[g_p].posy-ps[otherp].posy));
else
j = getincangle(ps[g_p].ang,getangle(g_sp->x-ps[g_p].posx,g_sp->y-ps[g_p].posy));
if( j > -128 && j < 128 )
j = 1;
else
j = 0;
}
parseifelse((long) j);
}
break;
case KEY_IfStrength:
insptr++;
parseifelse(g_sp->extra <= *insptr);
break;
case KEY_Guts:
insptr += 2;
guts(g_sp,*(insptr-1),*insptr,g_p);
insptr++;
break;
case KEY_IfSpawnedBy:
insptr++;
// if(g_sp->owner >= 0 && sprite[g_sp->owner].picnum == *insptr)
// parseifelse(1);
// else
parseifelse( hittype[g_i].picnum == *insptr);
break;
case KEY_WackPlayer:
insptr++;
forceplayerangle(&ps[g_p]);
return 0;
case KEY_IfGapZL:
insptr++;
parseifelse( (( hittype[g_i].floorz - hittype[g_i].ceilingz ) >> 8 ) < *insptr);
break;
case KEY_IfHitSpace:
parseifelse( sync[g_p].bits&(1<<29));
break;
case KEY_IfOutside:
parseifelse(sector[g_sp->sectnum].ceilingstat&SSTAT_PARALLAX);
break;
case KEY_IfMultiplayer:
parseifelse(ud.multimode > 1);
break;
case KEY_Operate:
insptr++;
if( sector[g_sp->sectnum].lotag == 0 )
{
neartag(g_sp->x,g_sp->y,g_sp->z-(32<<8),g_sp->sectnum,g_sp->ang,&neartagsector,&neartagwall,&neartagsprite,&neartaghitdist,768L,1);
if( neartagsector >= 0 && isanearoperator(sector[neartagsector].lotag) )
if( (sector[neartagsector].lotag&0xff) == 23 || sector[neartagsector].floorz == sector[neartagsector].ceilingz )
if( (sector[neartagsector].lotag&16384) == 0 )
if( (sector[neartagsector].lotag&32768) == 0 )
{
j = headspritesect[neartagsector];
while(j >= 0)
{
if(sprite[j].picnum == ACTIVATOR)
break;
j = nextspritesect[j];
}
if(j == -1)
operatesectors(neartagsector,g_i);
}
}
break;
case KEY_IfInSpace:
parseifelse(ceilingspace(g_sp->sectnum));
break;
case KEY_SpritePal:
insptr++;
if(g_sp->picnum != APLAYER)
hittype[g_i].tempang = g_sp->pal;
g_sp->pal = *insptr;
insptr++;
break;
case KEY_CActor:
insptr++;
g_sp->picnum = *insptr;
insptr++;
break;
case KEY_IfBulletNear:
parseifelse( dodge(g_sp) == 1);
break;
case KEY_IfRespawn:
if( badguy(g_sp) )
parseifelse( ud.respawn_monsters );
else if( inventory(g_sp) )
parseifelse( ud.respawn_inventory );
else
parseifelse( ud.respawn_items );
break;
case KEY_IfFloorDistL:
insptr++;
// getglobalz(g_i);
parseifelse( (hittype[g_i].floorz - g_sp->z) <= ((*insptr)<<8));
break;
case KEY_IfCeilingDistL:
insptr++;
// getglobalz(g_i);
parseifelse( ( g_sp->z - hittype[g_i].ceilingz ) <= ((*insptr)<<8));
break;
case KEY_PalFrom:
insptr++;
ps[g_p].pals_time = *insptr;
insptr++;
for(j=0;j<3;j++)
{
ps[g_p].pals[j] = *insptr;
insptr++;
}
break;
/* case 74: // spritepal
insptr++;
getglobalz(g_i);
parseifelse( (( hittype[g_i].floorz - hittype[g_i].ceilingz ) >> 8 ) >= *insptr);
break;
*/
case KEY_IfPHealthL:
insptr++;
parseifelse( sprite[ps[g_p].i].extra < *insptr);
break;
case KEY_IfPInventory:
{
insptr++;
j = 0;
switch(*(insptr++))
{
case 0:if( ps[g_p].steroids_amount != *insptr)
j = 1;
break;
case 1:if(ps[g_p].shield_amount != max_player_health )
j = 1;
break;
case 2:if(ps[g_p].scuba_amount != *insptr) j = 1;break;
case 3:if(ps[g_p].holoduke_amount != *insptr) j = 1;break;
case 4:if(ps[g_p].jetpack_amount != *insptr) j = 1;break;
case 6:
switch(g_sp->pal)
{
case 0: if(ps[g_p].got_access&1) j = 1;break;
case 21: if(ps[g_p].got_access&2) j = 1;break;
case 23: if(ps[g_p].got_access&4) j = 1;break;
}
break;
case 7:if(ps[g_p].heat_amount != *insptr) j = 1;break;
case 9:
if(ps[g_p].firstaid_amount != *insptr) j = 1;break;
case 10:
if(ps[g_p].boot_amount != *insptr) j = 1;break;
}
parseifelse(j);
break;
}
case KEY_PStomp:
insptr++;
if( ps[g_p].knee_incs == 0 && sprite[ps[g_p].i].xrepeat >= 40 )
if( cansee(g_sp->x,g_sp->y,g_sp->z-(4<<8),g_sp->sectnum,ps[g_p].posx,ps[g_p].posy,ps[g_p].posz+(16<<8),sprite[ps[g_p].i].sectnum) )
{
ps[g_p].knee_incs = 1;
if(ps[g_p].weapon_pos == 0)
ps[g_p].weapon_pos = -1;
ps[g_p].actorsqu = g_i;
}
break;
case KEY_IfAwayFromWall:
{
short s1;
s1 = g_sp->sectnum;
j = 0;
updatesector(g_sp->x+108,g_sp->y+108,&s1);
if( s1 == g_sp->sectnum )
{
updatesector(g_sp->x-108,g_sp->y-108,&s1);
if( s1 == g_sp->sectnum )
{
updatesector(g_sp->x+108,g_sp->y-108,&s1);
if( s1 == g_sp->sectnum )
{
updatesector(g_sp->x-108,g_sp->y+108,&s1);
if( s1 == g_sp->sectnum )
j = 1;
}
}
}
parseifelse( j );
}
break;
case KEY_Quote:
insptr++;
FTA(*insptr,&ps[g_p]);
insptr++;
break;
case KEY_IfInOuterSpace:
parseifelse( floorspace(g_sp->sectnum));
break;
case KEY_IfNotMoving:
parseifelse( (hittype[g_i].movflag&49152) > 16384 );
break;
case KEY_RespawnHiTag:
insptr++;
switch(g_sp->picnum)
{
case FEM1:
case FEM2:
case FEM3:
case FEM4:
case FEM5:
case FEM6:
case FEM7:
case FEM8:
case FEM9:
case FEM10:
case PODFEM1:
case NAKED1:
case STATUE:
if(g_sp->yvel) operaterespawns(g_sp->yvel);
break;
default:
if(g_sp->hitag >= 0) operaterespawns(g_sp->hitag);
break;
}
break;
case KEY_IfSpritePal:
insptr++;
parseifelse( g_sp->pal == *insptr);
break;
case KEY_IfAngDiffL:
insptr++;
j = klabs(getincangle(ps[g_p].ang,g_sp->ang));
parseifelse( j <= *insptr);
break;
case KEY_IfNoSounds:
parseifelse( !ActorIsMakingNoise (g_i) );
break;
default:
killit_flag = 1;
break;
}
return 0;
}
void execute(short i,short p,long x)
{
char done;
g_i = i;
g_p = p;
g_x = x;
g_sp = &sprite[g_i];
g_t = &hittype[g_i].temp_data[0];
if( actorscrptr[g_sp->picnum] == 0 ) return;
insptr = 4 + (actorscrptr[g_sp->picnum]);
killit_flag = 0;
if(g_sp->sectnum < 0 || g_sp->sectnum >= MAXSECTORS)
{
if(badguy(g_sp))
ps[g_p].actors_killed++;
deletesprite(g_i);
return;
}
if(g_t[4])
{
g_sp->lotag += TICSPERFRAME;
if(g_sp->lotag > *(long *)(g_t[4]+16) )
{
g_t[2]++;
g_sp->lotag = 0;
g_t[3] += *(long *)( g_t[4]+12 );
}
if( klabs(g_t[3]) >= klabs( *(long *)(g_t[4]+4) * *(long *)(g_t[4]+12) ) )
g_t[3] = 0;
}
do
done = parse();
while( done == 0 );
if(killit_flag == 1)
{
if(ps[g_p].actorsqu == g_i)
ps[g_p].actorsqu = -1;
deletesprite(g_i);
}
else
{
move();
if( g_sp->statnum == 1)
{
if( badguy(g_sp) )
{
if( g_sp->xrepeat > 60 ) return;
if( ud.respawn_monsters == 1 && g_sp->extra <= 0 ) return;
}
else if( ud.respawn_items == 1 && (g_sp->cstat&CSTAT_INVISIBLE) ) return;
if(hittype[g_i].timetosleep > 1)
hittype[g_i].timetosleep--;
else if(hittype[g_i].timetosleep == 1)
changespritestat(g_i,2);
}
else if(g_sp->statnum == 6)
switch(g_sp->picnum)
{
case RUBBERCAN:
case EXPLODINGBARREL:
case WOODENHORSE:
case HORSEONSIDE:
case CANWITHSOMETHING:
case FIREBARREL:
case NUKEBARREL:
case NUKEBARRELDENTED:
case NUKEBARRELLEAKED:
case TRIPBOMB:
case EGG:
if(hittype[g_i].timetosleep > 1)
hittype[g_i].timetosleep--;
else if(hittype[g_i].timetosleep == 1)
changespritestat(g_i,2);
break;
}
}
}
// "Duke 2000"
// "Virchua Duke"
// "Son of Death
// "Cromium"
// "Potent"
// "Flotsom"
// Volume One
// "Duke is brain dead",
// "BOOT TO THE HEAD"
// Damage too duke
// Weapons are computer cont. Only logical thinking
// is disappearing.
// " Flips! "
// Flash on screen, inst.
// "BUMS"
// "JAIL"/"MENTAL WARD (Cop code for looney? T. asks Cop.)"
// "GUTS OR GLORY"
// ( Duke's Mission
// Duke: "Looks like some kind of transporter...?"
// Byte: "...YES"
// Duke: "Waa, here goes nuthin'. "
// (Duke puts r. arm in device)
// Duke: AAAAHHHHHHHHHHHHHHHHHHHHHHHHH!!!
// (Duke's arm is seved.)
// Byte: NO.NO.NO.NO.NO.NO.NO...
// ( Byte directs duke to the nearest heat source)
// (Shut Up Mode)
// ( Duke Staggers, end of arm bleeding, usual oozing arm guts. )
// Byte: Left, Left, Left, Left, Right.
// ( Duke, loozing consc, trips on broken pipe, )
// ( hits temple on edge of step. )
// ( Rats everywhere, byte pushing them away with weapon,
// ( eventually covered, show usual groosums, Duke appears dead
// ( Duke wakes up, in hospital, vision less blurry
// ( Hospital doing brain scan, 1/3 cran. mass MISSING!
// Doc: Hummm? ( Grabbing upper lip to "appear" smart. )
// Stand back boys
// Schrapnel has busted my scull!
// Now I'm insane, Mental ward, got to escape.
// Search light everywhere.
// (M)Mendor, The Tree Dweller.
// (M)BashMan, The Destructor.
// (M)Lash, The Scavenger.
// (F)Mag, The Slut.
// (F)
// NRA OR SOMETHIN'
// Duke Nukem
// 5th Dimention
// Pentagon Man!
// I Hope your not stupid!
// The 70's meet the future.
// Dirty Harry style. 70's music with futuristic edge
// The Instant De-Welder(tm)
// I think I'm going to puke...
// Badge attitude.
// He's got a Badge(LA 3322), a Bulldog, a Bronco (beat up/bondoed).
// Gfx:
// Lite rail systems
// A church. Large cross
// Sniper Scope,
// Really use the phone
// The Boiler Room
// The IRS, nuking other government buildings?
// You wouldn't have a belt of booz, would ya?
// Slow turning signes
// More persise shooting/descructions
// Faces, use phoneoms and its lookup. Talking, getting in fights.
// Drug dealers, pimps, and all galore
// Weapons, Anything lying around.
// Trees to clime, burning trees.
// Sledge Hammer, Sledge hammer with Spike
// sancurary, get away from it all.
// Goodlife = ( War + Greed ) / Peace
// Monsterism (ACTION)
// Global Hunter (RPG)
// Slick a Wick (PUZZLE)
// Roach Condo (FUNNY)
// AntiProfit (RPG)
// Pen Patrol (TD SIM)
// 97.5 KPIG! - Wanker County
// "Fauna" - Native Indiginouns Animal Life
Reference in a new issue Copy permalink