zdoom/raze-gles
0
0
Fork 0
mirror of https://github.com/ZDoom/raze-gles.git synced 2024-12-25 03:00:46 +00:00
Code Issues Projects Releases Packages Wiki Activity

m32script conveniece

Browse source 
git-svn-id: https://svn.eduke32.com/eduke32@1528 1a8010ca-5511-0410-912e-c29ae57300e0
This commit is contained in:
helixhorned 2009-10-11 15:52:16 +00:00
parent 20c028b2e9
commit 4bde7fddac
5 changed files with 273 additions and 204 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

271
polymer/eduke32/a.m32
View file

@ -32,7 +32,7 @@ definequote 7 door sector not an island sector!
definequote 8 door sector has no SE sprite!
//light sector x y z range r g b radi fade angle horiz mins maxs prio tile
definequote 9 light %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d 0
definequote 9 light %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d
definequote 10 --PRLIGHTS--
definequote 11 --ENDPRLIGHTS--
@ -42,86 +42,102 @@ definequote 14 BLUE:
definequote 15 x/yoffset: %d %d
definequote 16 (r/g/b)color: %d %d %d
definequote 17 PICNUM:
gamearray ar 128
gamearray parm 8
defstate tests
// array test
getarraysize ar tmp
resizearray ar 65536
getticks parm[2]
getarraysize ar tmp
resizearray ar 65536
getticks parm[2]
for j range 65536
set ar[j] j
set i 0
for j range 65536
add i ar[j]
getticks parm[3]
resizearray ar tmp
getticks parm[3]
resizearray ar tmp
ife i 2147450880 quote 0 else quote 1
sub parm[3] parm[2]
qsprintf TQUOTE 6 parm[3]
quote TQUOTE
// iteration and break test
for i range 10
{
addlogvar i
ife i 5 break
}
ife i 5 quote 0 else quote 1
ends
// prints out maphack light definitions based on SE lights in map
defstate printlights
print 10
for i allsprites ifactor SECTOREFFECTOR ifge sprite[i].lotag 49 ifle sprite[i].lotag 50
{
set j 128, sub j sprite[i].shade, shiftl j 1
set k j, mul k 3, div k 4
set l 0
ifand sprite[i].cstat 2
{
ifand sprite[i].cstat 512
set l 4
else
set l 2
}
qsprintf TQUOTE 9 sprite[i].sectnum sprite[i].x sprite[i].y sprite[i].z
sprite[i].hitag sprite[i].xvel sprite[i].yvel sprite[i].zvel
j k sprite[i].ang sprite[i].extra sprite[i].xoffset sprite[i].yoffset l
print TQUOTE
}
print 11
for i allsprites, ifactor SECTOREFFECTOR, ifge .lotag 49, ifle .lotag 50
{
ife .lotag 50
{
set j 128, sub j .shade, shiftl j 1
set k j, mul k 3, div k 4
}
else
{
set j 0, set k 0
}
set l 0
ifand .cstat 2
{
ifand .cstat 512
set l 4
else
set l 2
}
qsprintf TQUOTE 9 .sectnum .x .y .z .hitag .xvel .yvel .zvel
j k .ang .extra .xoffset .yoffset l .owner
print TQUOTE
}
print 11
ends
defstate fiddlewithlights
ife searchstat 3 ife sprite[searchwall].picnum SECTOREFFECTOR
ifge sprite[searchwall].lotag 49 ifle sprite[searchwall].lotag 50
{
set i searchwall
ife searchstat 3 ife sprite[searchwall].picnum SECTOREFFECTOR
ifge sprite[searchwall].lotag 49 ifle sprite[searchwall].lotag 50
{
set i searchwall, seti i
// horiz
ifeithershift set j 1 else set j 10
ifhitkey KEY_gUP add sprite[i].extra j
else ifhitkey KEY_gKP5 sub sprite[i].extra j
clamp sprite[i].extra -500 500
// horiz
ifeithershift set j 1 else set j 10
ifhitkey KEY_gUP add .extra j
else ifhitkey KEY_gKP5 sub .extra j
clamp .extra -500 500
// angle
set j 128
ifeitherctrl set j 4
ifeithershift { ifeitherctrl set j 1 else set j 32 }
ifhitkey KEY_gLEFT sub sprite[i].ang j
else ifhitkey KEY_gRIGHT add sprite[i].ang j
ifhitkey KEY_gLEFT sub .ang j
else ifhitkey KEY_gRIGHT add .ang j
// range
ifeithershift set j 10
ifeithershift set j 10
else ifeitherctrl set j 1000
else set j 100
ifhitkey KEY_gPGUP add sprite[i].hitag j
else ifhitkey KEY_gHOME sub sprite[i].hitag j
clamp sprite[i].hitag 0 16000
ifhitkey KEY_gPGUP add .hitag j
else ifhitkey KEY_gHOME sub .hitag j
clamp .hitag 0 16000
// radius
ifeitherctrl
{
ifholdkey KEY_gMINUS add sprite[i].shade 9
else ifholdkey KEY_gPLUS sub sprite[i].shade 9
// radius
ifeitherctrl
{
ifholdkey KEY_gMINUS add .shade 9
else ifholdkey KEY_gPLUS sub .shade 9
clamp sprite[i].shade -118 117
}
clamp .shade -118 117
}
// min/max shade
ifeithershift set j -1 else set j 1
@ -129,51 +145,58 @@ defstate fiddlewithlights
{
ifhitkey KEY_gSLASH
{
set sprite[i].xoffset 0
set sprite[i].yoffset 0
set .xoffset 0
set .yoffset 0
}
}
else
{
set k 0
ifhitkey KEY_gSLASH { add sprite[i].xoffset j, set k 1 }
else ifhitkey KEY_gSTAR { add sprite[i].yoffset j, set k 1 }
ifhitkey KEY_gSLASH { add .xoffset j, set k 1 }
else ifhitkey KEY_gSTAR { add .yoffset j, set k 1 }
ife k 1
{
qsprintf TQUOTE 15 sprite[i].xoffset sprite[i].yoffset
qsprintf TQUOTE 15 .xoffset .yoffset
quote TQUOTE
}
}
// color
ifeitheralt ifhitkey KEY_gEND
{
getnumber256 sprite[i].xvel 12 255
getnumber256 sprite[i].yvel 13 255
getnumber256 sprite[i].zvel 14 255
}
else
{
ifeitherctrl set j 1 else set j 10
ifeithershift inv j
// color/picnum
ifeitheralt
{
ifhitkey KEY_gEND
{
getnumber256 .xvel 12 255
getnumber256 .yvel 13 255
getnumber256 .zvel 14 255
}
else ifhitkey KEY_gDOWN
{
getnumber256 .owner 17 -MAXTILES
}
}
else
{
ifeitherctrl set j 1 else set j 10
ifeithershift inv j
set k 0
ifhitkey KEY_gEND { add sprite[i].xvel j, set k 1 }
ifhitkey KEY_gDOWN { add sprite[i].yvel j, set k 1 }
ifhitkey KEY_gPGDN { add sprite[i].zvel j, set k 1 }
ifhitkey KEY_gEND { add .xvel j, set k 1 }
ifhitkey KEY_gDOWN { add .yvel j, set k 1 }
ifhitkey KEY_gPGDN { add .zvel j, set k 1 }
ife k 1
{
clamp sprite[i].xvel 1 255
clamp sprite[i].yvel 1 255
clamp sprite[i].zvel 1 255
clamp .xvel 1 255
clamp .yvel 1 255
clamp .zvel 1 255
qsprintf TQUOTE 16 sprite[i].xvel sprite[i].yvel sprite[i].zvel
qsprintf TQUOTE 16 .xvel .yvel .zvel
quote TQUOTE
}
}
}
}
ends
onevent EVENT_PREKEYS3D
@ -193,73 +216,79 @@ endevent
onevent EVENT_ANALYZESPRITES
for i drawnsprites
{
switch tsprite[i].picnum
case LIZTROOP spritepal 1 break
case PIGCOP spritepal 2 break
case BOSS1 spritepal 6 break
endswitch
}
{
set j tsprite[i].owner
switch sprite[j].picnum
case LIZTROOP spritepal 1 break
case PIGCOP spritepal 2 break
case BOSS1 spritepal 6 break
endswitch
}
endevent
defstate cmp_by_lotag
set RETURN sprite[SV2].lotag
sub RETURN sprite[SV1].lotag
set RETURN sprite[SV2].lotag
sub RETURN sprite[SV1].lotag
ends
onevent EVENT_DRAW2DSCREEN
ifl cursectnum 0 return
ifl cursectnum 0 return
// connect LOCATORS in a sector by lines
getarraysize ar tmp
set j 0
for i spritesofsector cursectnum
{
ifge j tmp nullop else
ifactor LOCATORS
{
set ar[j] i
add j 1
}
}
getarraysize ar tmp
set j 0
for i spritesofsector cursectnum
{
ifge j tmp nullop else
ifactor LOCATORS
{
set ar[j] i
add j 1
}
}
set tmp j
sort ar tmp cmp_by_lotag
set tmp j
sort ar tmp cmp_by_lotag
sub tmp 1
for i range tmp
{
set j ar[i]
set k i, add k 1, set k ar[k]
drawline16b sprite[j].x sprite[j].y sprite[k].x sprite[k].y drawcol
}
sub tmp 1
for i range tmp
{
set j ar[i]
set k i, add k 1, set k ar[k]
drawline16b sprite[j].x sprite[j].y sprite[k].x sprite[k].y drawcol
}
/*
set drawlinepat -1
for i allsprites
ifactor LIZTROOP
drawcircle16b sprite[i].x sprite[i].y 256 9
*/
/*
set i totalclock
shiftr i 6
drawcircle16b posx posy 256 i
set j i
add j 8
drawcircle16 halfxdim16 midydim16 12 j
qsprintf 3 2 i j
printmessage16 3
*/
endevent
onevent EVENT_OVERHEADEDITOR
// LOCATORS auto-incrementer
onevent EVENT_INSERTSPRITE2D
set k I
set j -1
for i spritesofsector .sectnum
{
ifn i k, ifactor LOCATORS, ifg .lotag j
set j .lotag
}
ifg j -1
{
add j 1
set .lotag j
}
endevent
onevent EVENT_PREKEYS2D // formerly EVENT_OVERHEADEDITOR
for i range 27
{
ifholdkey alphakeys[i]
{
qsprintf TQUOTE 5 i
quote TQUOTE
}
qsprintf TQUOTE 5 i
quote TQUOTE
}
}
for i range 10
@ -273,16 +302,6 @@ onevent EVENT_OVERHEADEDITOR
endevent
onevent EVENT_KEYS3D
for i range 10
// ife 0 1
{
ifholdkey numberkeys[i]
{
qsprintf TQUOTE 5 i
quote TQUOTE
}
}
// swinging doors tester -- hit space on a door wall
ife searchstat 0
ifhitkey KEY_SPACE // SE11 ST23 up:ccw
@ -366,7 +385,7 @@ onevent EVENT_KEYS3D
}
ifholdkey KEY_0
// ife 0 1
// ife 0 1
{
ifeithershift sub davr 512 else add davr 512
ifl davr 32768 set davr 32768

43
polymer/eduke32/source/m32def.c
View file

@ -876,7 +876,7 @@ static void C_GetNextVarType(int32_t type)
return;
}
else if (*textptr == '-' /* && !isdigit(*(textptr+1))*/)
else if (*textptr == '-' && *(textptr+1)!='.' /* && !isdigit(*(textptr+1))*/)
{
if (type==0)
{
@ -892,6 +892,32 @@ static void C_GetNextVarType(int32_t type)
return;
}
}
else if (type!=GAMEVAR_SPECIAL && (*textptr == '.' || (*textptr == '-' && *(textptr+1)=='.')))
{
int32_t lLabelID = -1, aridx=g_iThisActorID;
flags |= (MAXGAMEVARS<<3);
if (*textptr=='-')
{
flags |= (MAXGAMEVARS<<1);
textptr++;
}
textptr++;
/// now pointing at 'xxx'
C_GetNextLabelName();
lLabelID = C_GetLabelNameID(SpriteLabels, &spriteH, strtolower(tlabel,Bstrlen(tlabel)));
if (lLabelID == -1)
{
g_numCompilerErrors++;
C_ReportError(ERROR_SYMBOLNOTRECOGNIZED);
return;
}
id = g_iSpriteVarID;
*g_scriptPtr++ = (aridx<<16 | id | (lLabelID<<2) | flags);
return;
}
C_GetNextLabelName();
if (hash_find(&keywH, tlabel)>=0)
@ -3088,7 +3114,7 @@ static void C_AddDefaultDefinitions(void)
C_AddDefinition("EVENT_DRAW2DSCREEN", EVENT_DRAW2DSCREEN, LABEL_EVENT);
C_AddDefinition("EVENT_KEYS2D", EVENT_KEYS2D, LABEL_EVENT);
C_AddDefinition("EVENT_KEYS3D", EVENT_KEYS3D, LABEL_EVENT);
C_AddDefinition("EVENT_OVERHEADEDITOR", EVENT_OVERHEADEDITOR, LABEL_EVENT);
C_AddDefinition("EVENT_PREKEYS2D", EVENT_OVERHEADEDITOR, LABEL_EVENT);
C_AddDefinition("EVENT_PREKEYS3D", EVENT_PREKEYS3D, LABEL_EVENT);
C_AddDefinition("CLIPMASK0", CLIPMASK0, LABEL_DEFINE);
@ -3164,6 +3190,19 @@ static void C_AddDefaultDefinitions(void)
C_AddDefinition("KEY_RCTRL", KEYSC_RCTRL, LABEL_DEFINE);
C_AddDefinition("KEY_RSHIFT", KEYSC_RSHIFT, LABEL_DEFINE);
// some aliases...
C_AddDefinition("KEY_KP7", KEYSC_gHOME, LABEL_DEFINE);
C_AddDefinition("KEY_KP8", KEYSC_gUP, LABEL_DEFINE);
C_AddDefinition("KEY_KP9", KEYSC_gPGUP, LABEL_DEFINE);
C_AddDefinition("KEY_KP4", KEYSC_gLEFT, LABEL_DEFINE);
C_AddDefinition("KEY_KP5", KEYSC_gKP5, LABEL_DEFINE);
C_AddDefinition("KEY_KP6", KEYSC_gRIGHT, LABEL_DEFINE);
C_AddDefinition("KEY_KP1", KEYSC_gEND, LABEL_DEFINE);
C_AddDefinition("KEY_KP2", KEYSC_gDOWN, LABEL_DEFINE);
C_AddDefinition("KEY_KP3", KEYSC_gPGDN, LABEL_DEFINE);
C_AddDefinition("KEY_KP0", KEYSC_gINS, LABEL_DEFINE);
C_AddDefinition("KEY_KPCOMMA", KEYSC_gDEL, LABEL_DEFINE);
C_AddDefinition("KEY_gDEL", KEYSC_gDEL, LABEL_DEFINE);
C_AddDefinition("KEY_gDOWN", KEYSC_gDOWN, LABEL_DEFINE);
C_AddDefinition("KEY_gEND", KEYSC_gEND, LABEL_DEFINE);

6
polymer/eduke32/source/m32def.h
View file

@ -87,9 +87,13 @@ typedef struct {
// or >= MAXEVENTS+1 and < MAXEVENTS+1+g_stateCount (state)
int32_t g_st;
spritetype *g_sp;
int32_t g_errorFlag, g_returnFlag;
uint32_t flags; //g_errorFlag, g_returnFlag;
} vmstate_t;
#define VMFLAG_RETURN 1
#define VMFLAG_BREAK 2
#define VMFLAG_ERROR 4
extern vmstate_t vm;
extern vmstate_t vm_default;

135
polymer/eduke32/source/m32exec.c
View file

@ -40,7 +40,6 @@ vmstate_t vm_default =
-1,
0,
NULL,
0,
0
};
@ -159,12 +158,12 @@ void X_OnEvent(register int32_t iEventID, register int32_t iActor)
vm.g_st = 1+iEventID;
vm.g_returnFlag = vm.g_errorFlag = 0;
vm.flags = 0;
insptr = script + aEventOffsets[iEventID];
X_DoExecute(0);
if (vm.g_errorFlag)
if (vm.flags&VMFLAG_ERROR)
{
aEventEnabled[iEventID] = 0;
message("ERROR executing %s. Event disabled.", label+(iEventID*MAXLABELLEN));
@ -236,7 +235,7 @@ static int32_t X_DoSort(const int32_t *lv, const int32_t *rv)
(vm.g_st!=0 || searchstat!=3 || (vm.g_i=searchwall, vm.g_sp=&sprite[vm.g_i], 0))) \
{ \
OSD_Printf(CON_ERROR "Current sprite index invalid!\n", g_errorLineNum, keyw[g_tw]); \
vm.g_errorFlag = 1; \
vm.flags |= VMFLAG_ERROR; \
continue; \
}
@ -244,7 +243,7 @@ static int32_t X_DoSort(const int32_t *lv, const int32_t *rv)
if (dasprite < 0 || dasprite>=MAXSPRITES) \
{ \
OSD_Printf(CON_ERROR "Invalid sprite index %d!\n", g_errorLineNum, keyw[g_tw], dasprite); \
vm.g_errorFlag = 1; \
vm.flags |= VMFLAG_ERROR; \
continue; \
}
@ -252,7 +251,7 @@ static int32_t X_DoSort(const int32_t *lv, const int32_t *rv)
if (dasect < 0 || dasect>=numsectors) \
{ \
OSD_Printf(CON_ERROR "Invalid sector index %d!\n", g_errorLineNum, keyw[g_tw], dasect); \
vm.g_errorFlag = 1; \
vm.flags |= VMFLAG_ERROR; \
continue; \
}
@ -260,7 +259,7 @@ static int32_t X_DoSort(const int32_t *lv, const int32_t *rv)
if (!vm.g_sp && (vm.g_st!=0 || searchstat!=3 || (vm.g_sp=&sprite[searchwall], 0))) \
{ \
OSD_Printf(CON_ERROR "Current sprite invalid!\n", g_errorLineNum, keyw[g_tw]); \
vm.g_errorFlag = 1; \
vm.flags |= VMFLAG_ERROR; \
continue; \
}
@ -268,13 +267,13 @@ static int32_t X_DoSort(const int32_t *lv, const int32_t *rv)
if (q<0 || q>=MAXQUOTES) \
{ \
OSD_Printf(CON_ERROR "Invalid quote number %d!\n", g_errorLineNum, keyw[g_tw], q); \
vm.g_errorFlag = 1; \
vm.flags |= VMFLAG_ERROR; \
continue; \
} \
else if (array[q] == NULL) \
{ \
OSD_Printf(CON_ERROR "Null quote %d!\n", g_errorLineNum, keyw[g_tw], q); \
vm.g_errorFlag = 1; \
vm.flags |= VMFLAG_ERROR; \
continue; \
} \
@ -287,7 +286,7 @@ int32_t X_DoExecute(int32_t once)
while (!once)
{
if (vm.g_errorFlag + vm.g_returnFlag)
if (vm.flags)
return 1;
tw = *insptr;
@ -309,20 +308,23 @@ skip_check:
case CON_STATE:
{
instype *tempscrptr = insptr+2;
int32_t stateidx = *(insptr+1), o_g_st = vm.g_st, oret=vm.g_returnFlag;
int32_t stateidx = *(insptr+1), o_g_st = vm.g_st, oret=vm.flags&VMFLAG_RETURN;
insptr = script + statesinfo[stateidx].ofs;
vm.g_st = 1+MAXEVENTS+stateidx;
X_DoExecute(0);
vm.g_st = o_g_st;
vm.g_returnFlag = oret;
vm.flags &= ~VMFLAG_RETURN;
vm.flags |= oret;
insptr = tempscrptr;
}
continue;
case CON_RETURN:
vm.g_returnFlag = 1;
vm.flags |= VMFLAG_RETURN;
return 1;
case CON_BREAK:
vm.flags |= VMFLAG_BREAK;
case CON_ENDS:
return 1;
@ -332,6 +334,7 @@ skip_check:
continue;
case CON_ENDSWITCH:
vm.flags &= ~VMFLAG_BREAK;
case CON_ENDEVENT:
insptr++;
return 1;
@ -414,7 +417,7 @@ skip_check:
if (j<0 || j>=(g_scriptPtr-script))
{
OSD_Printf(CON_ERROR "script index out of bounds (%d)\n", g_errorLineNum, keyw[g_tw], j);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
continue;
}
insptr = (instype *)(j+script);
@ -505,19 +508,19 @@ skip_check:
if (j<0 || j >= g_gameArrayCount)
{
OSD_Printf(CON_ERROR "Tried to set invalid array ID (%d)\n", g_errorLineNum, keyw[g_tw], j);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
}
if (aGameArrays[j].dwFlags & GAMEARRAY_READONLY)
{
OSD_Printf(CON_ERROR "Tried to set on read-only array `%s'\n", g_errorLineNum, keyw[g_tw], aGameArrays[j].szLabel);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
}
if (index >= aGameArrays[j].size || index < 0)
{
OSD_Printf(CON_ERROR "Array index %d out of bounds\n", g_errorLineNum, keyw[g_tw], index);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
}
if (vm.g_errorFlag) continue;
if (vm.flags&VMFLAG_ERROR) continue;
((int32_t *)aGameArrays[j].vals)[index]=value; // REM: other array types not implemented, since they're read-only
continue;
}
@ -540,8 +543,8 @@ skip_check:
if (asize<=0 || asize>65536)
{
OSD_Printf(CON_ERROR "Invalid array size %d (max: 65536)\n",g_errorLineNum,keyw[g_tw]);
vm.g_errorFlag = 1;
continue;;
vm.flags |= VMFLAG_ERROR;
continue;
}
// OSD_Printf(OSDTEXT_GREEN "CON_RESIZEARRAY: resizing array %s from %d to %d\n", aGameArrays[j].szLabel, aGameArrays[j].size, asize);
@ -550,7 +553,7 @@ skip_check:
{
aGameArrays[j].size = 0;
OSD_Printf(CON_ERROR "Out of memory!\n",g_errorLineNum,keyw[g_tw]);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
return 1;
}
aGameArrays[j].size = asize;
@ -570,19 +573,19 @@ skip_check:
if (si<0 || si>=g_gameArrayCount)
{
OSD_Printf(CON_ERROR "Invalid array %d!\n",g_errorLineNum,keyw[g_tw],si);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
}
if (di<0 || di>=g_gameArrayCount)
{
OSD_Printf(CON_ERROR "Invalid array %d!\n",g_errorLineNum,keyw[g_tw],di);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
}
if (aGameArrays[di].dwFlags & GAMEARRAY_READONLY)
{
OSD_Printf(CON_ERROR "Array %d is read-only!\n",g_errorLineNum,keyw[g_tw],di);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
}
if (vm.g_errorFlag) continue;
if (vm.flags&VMFLAG_ERROR) continue;
ssiz = (aGameArrays[si].dwFlags&GAMEARRAY_VARSIZE) ?
Gv_GetVarN(aGameArrays[si].size) : aGameArrays[si].size;
@ -858,14 +861,14 @@ skip_check:
if (xvar < 0 || xvar >= MAXSPRITES || sprite[xvar].statnum==MAXSTATUS)
{
OSD_Printf(CON_ERROR "invalid sprite %d\n",g_errorLineNum,keyw[g_tw],xvar);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
}
if (yvar < 0 || yvar >= MAXSPRITES || sprite[yvar].statnum==MAXSTATUS)
{
OSD_Printf(CON_ERROR "invalid sprite %d\n",g_errorLineNum,keyw[g_tw],yvar);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
}
if (vm.g_errorFlag) continue;
if (vm.flags&VMFLAG_ERROR) continue;
if (tw==CON_DIST)
Gv_SetVarX(distvar, dist(&sprite[xvar],&sprite[yvar]));
@ -1043,7 +1046,8 @@ skip_check:
j = (Gv_GetVarX(*(insptr-1)) != *insptr);
X_DoConditional(j);
}
while (j);
while (j && !vm.flags);
vm.flags &= ~VMFLAG_BREAK;
continue;
}
@ -1057,7 +1061,8 @@ skip_check:
j = (Gv_GetVarX(*(insptr-1)) < *insptr);
X_DoConditional(j);
}
while (j);
while (j && !vm.flags);
vm.flags &= ~VMFLAG_BREAK;
continue;
}
@ -1073,7 +1078,8 @@ skip_check:
insptr--;
X_DoConditional(j);
}
while (j);
while (j && !vm.flags);
vm.flags &= ~VMFLAG_BREAK;
continue;
}
@ -1089,7 +1095,8 @@ skip_check:
insptr--;
X_DoConditional(j);
}
while (j);
while (j && !vm.flags);
vm.flags &= ~VMFLAG_BREAK;
continue;
}
@ -1104,7 +1111,7 @@ skip_check:
if (count > aGameArrays[aridx].size)
{
OSD_Printf(CON_ERROR "Count of elements to sort (%d) exceeds array size (%d)!\n",g_errorLineNum,keyw[g_tw],count,aGameArrays[aridx].size);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
continue;
}
@ -1133,12 +1140,12 @@ skip_check:
spritetype *vm_sp_bak = vm.g_sp;
int16_t endwall;
if (vm.g_errorFlag) continue;
if (vm.flags&VMFLAG_ERROR) continue;
switch (how)
{
case ITER_ALLSPRITES:
for (jj=0; jj<MAXSPRITES; jj++)
for (jj=0; jj<MAXSPRITES && !vm.flags; jj++)
{
if (sprite[jj].statnum == MAXSTATUS)
continue;
@ -1150,7 +1157,7 @@ skip_check:
}
break;
case ITER_ALLSECTORS:
for (jj=0; jj<numsectors; jj++)
for (jj=0; jj<numsectors && !vm.flags; jj++)
{
Gv_SetVarX(var, jj);
insptr = beg;
@ -1158,7 +1165,7 @@ skip_check:
}
break;
case ITER_ALLWALLS:
for (jj=0; jj<numwalls; jj++)
for (jj=0; jj<numwalls && !vm.flags; jj++)
{
Gv_SetVarX(var, jj);
insptr = beg;
@ -1166,7 +1173,7 @@ skip_check:
}
break;
case ITER_SELSPRITES:
for (ii=0; ii<highlightcnt; ii++)
for (ii=0; ii<highlightcnt && !vm.flags; ii++)
{
jj = highlight[ii];
if (jj&0xc000)
@ -1181,7 +1188,7 @@ skip_check:
}
break;
case ITER_SELSECTORS:
for (ii=0; ii<highlightsectorcnt; ii++)
for (ii=0; ii<highlightsectorcnt && !vm.flags; ii++)
{
jj=highlightsector[ii];
Gv_SetVarX(var, jj);
@ -1190,7 +1197,7 @@ skip_check:
}
break;
case ITER_SELWALLS:
for (ii=0; ii<highlightcnt; ii++)
for (ii=0; ii<highlightcnt && !vm.flags; ii++)
{
jj=highlight[ii];
if (jj&0xc000)
@ -1201,7 +1208,7 @@ skip_check:
}
break;
case ITER_DRAWNSPRITES:
for (ii=0; ii<spritesortcnt; ii++)
for (ii=0; ii<spritesortcnt && !vm.flags; ii++)
{
vm.g_sp = &tsprite[ii];
Gv_SetVarX(var, ii);
@ -1212,7 +1219,7 @@ skip_check:
case ITER_SPRITESOFSECTOR:
if (parm2 < 0 || parm2 >= MAXSECTORS)
goto badindex;
for (jj=headspritesect[parm2]; jj>=0; jj=nextspritesect[jj])
for (jj=headspritesect[parm2]; jj>=0 && !vm.flags; jj=nextspritesect[jj])
{
Gv_SetVarX(var, jj);
vm.g_i = jj;
@ -1224,7 +1231,8 @@ skip_check:
case ITER_WALLSOFSECTOR:
if (parm2 < 0 || parm2 >= MAXSECTORS)
goto badindex;
for(jj=sector[parm2].wallptr, endwall=jj+sector[parm2].wallnum-1; jj<=endwall; jj++)
for(jj=sector[parm2].wallptr, endwall=jj+sector[parm2].wallnum-1;
jj<=endwall && !vm.flags; jj++)
{
Gv_SetVarX(var, jj);
insptr = beg;
@ -1241,10 +1249,10 @@ skip_check:
insptr = beg;
X_DoExecute(1);
jj = wall[jj].point2;
} while (jj != parm2);
} while (jj != parm2 && !vm.flags);
break;
case ITER_RANGE:
for (jj=0; jj<parm2; jj++)
for (jj=0; jj<parm2 && !vm.flags; jj++)
{
Gv_SetVarX(var, jj);
insptr = beg;
@ -1253,16 +1261,17 @@ skip_check:
break;
default:
OSD_Printf(CON_ERROR "Unknown iteration type %d!\n",g_errorLineNum,keyw[g_tw],how);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
continue;
badindex:
OSD_Printf(OSD_ERROR "Line %d, %s %s: index %d out of range!\n",g_errorLineNum,keyw[g_tw],
iter_tokens[how], parm2);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
continue;
}
vm.g_i = vm_i_bak;
vm.g_sp = vm_sp_bak;
vm.flags &= ~VMFLAG_BREAK;
insptr = end;
}
continue;
@ -1352,7 +1361,7 @@ badindex:
if (key<0 || key >= (int32_t)(sizeof(keystatus)/sizeof(keystatus[0])))
{
OSD_Printf(CON_ERROR "Invalid key %d!\n",g_errorLineNum,keyw[g_tw],key);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
continue;
}
@ -1463,7 +1472,7 @@ badindex:
{
OSD_Printf(CON_ERROR "Sector index %d out of range!\n",g_errorLineNum,keyw[g_tw],
sectnum);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
continue;
}
insptr--;
@ -1503,7 +1512,7 @@ badindex:
if (numsprites >= MAXSPRITES)
{
OSD_Printf(CON_ERROR "Maximum number of sprites reached.\n",g_errorLineNum,keyw[g_tw]);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
continue;
}
@ -1522,21 +1531,21 @@ badindex:
if (ospritenum<0 || ospritenum>=MAXSPRITES || sprite[ospritenum].statnum==MAXSTATUS)
{
OSD_Printf(CON_ERROR "Tried to duplicate nonexistent sprite %d\n",g_errorLineNum,keyw[g_tw],ospritenum);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
}
if (numsprites >= MAXSPRITES)
{
OSD_Printf(CON_ERROR "Maximum number of sprites reached.\n",g_errorLineNum,keyw[g_tw]);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
}
if (vm.g_errorFlag) continue;
if (vm.flags&VMFLAG_ERROR) continue;
nspritenum = insertsprite(sprite[ospritenum].sectnum, sprite[ospritenum].statnum);
if (nspritenum < 0)
{
OSD_Printf(CON_ERROR "Internal error.\n",g_errorLineNum,keyw[g_tw]);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
continue;
}
@ -1568,7 +1577,7 @@ badindex:
if (dapoint<0 || dapoint>=numwalls)
{
OSD_Printf(CON_ERROR "Invalid wall %d\n",g_errorLineNum,keyw[g_tw],dapoint);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
continue;
}
@ -1775,7 +1784,7 @@ badindex:
if (j < 0 || j > MAXSTATUS)
{
OSD_Printf(CON_ERROR "invalid status list %d\n",g_errorLineNum,keyw[g_tw],j);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
continue;
}
Gv_SetVarX(i,headspritestat[j]);
@ -1845,15 +1854,15 @@ badindex:
if (lVar1<0 || lVar1>=MAXSPRITES || sprite[lVar1].statnum==MAXSTATUS)
{
OSD_Printf(CON_ERROR "Invalid sprite %d\n",g_errorLineNum,keyw[g_tw],lVar1);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
}
if (lVar2<0 || lVar2>=MAXSPRITES || sprite[lVar2].statnum==MAXSTATUS)
{
OSD_Printf(CON_ERROR "Invalid sprite %d\n",g_errorLineNum,keyw[g_tw],lVar2);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
}
if (vm.g_errorFlag) res=0;
if (vm.flags&VMFLAG_ERROR) res=0;
else res=cansee(sprite[lVar1].x,sprite[lVar1].y,sprite[lVar1].z,sprite[lVar1].sectnum,
sprite[lVar2].x,sprite[lVar2].y,sprite[lVar2].z,sprite[lVar2].sectnum);
@ -1873,7 +1882,7 @@ badindex:
{
OSD_Printf(CON_ERROR "Invalid %s: %d\n", tw==CON_CHANGESPRITESTAT?"statnum":"sector",
g_errorLineNum,keyw[g_tw],j);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
continue;
}
@ -1898,7 +1907,7 @@ badindex:
if (wallnum<0 || wallnum>=numwalls)
{
OSD_Printf(CON_ERROR "Invalid wall %d\n",g_errorLineNum,keyw[g_tw],wallnum);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
continue;
}
dragpoint(wallnum,newx,newy);
@ -2059,7 +2068,7 @@ badindex:
int32_t backcol=(tw>=CON_PRINTEXT256)?Gv_GetVarX(*insptr++):0;
int32_t fontsize=(tw>=CON_PRINTEXT256)?Gv_GetVarX(*insptr++):0;
if (tw==CON_ERRORINS) vm.g_errorFlag = 1;
if (tw==CON_ERRORINS) vm.flags |= VMFLAG_ERROR;
X_ERROR_INVALIDQUOTE(i, ScriptQuotes);
@ -2545,7 +2554,7 @@ dodefault:
"you're using and instructions how to reproduce this error to\n"
"helixhorned@gmail.com.\n\n"
"Thank you!");
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
return 1;
}
}

22
polymer/eduke32/source/m32vars.c
View file

@ -225,7 +225,7 @@ int32_t __fastcall Gv_GetVarN(register int32_t id) // 'N' for "no side-effects"
if (id & (0xFFFFFFFF-(MAXGAMEVARS-1)))
{
OSD_Printf(CON_ERROR "Gv_GetVarN(): invalid var index %d\n",g_errorLineNum,keyw[g_tw],id);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
return -1;
}
@ -246,7 +246,7 @@ int32_t __fastcall Gv_GetVarN(register int32_t id) // 'N' for "no side-effects"
return *((uint8_t*)aGameVars[id].val.lValue);
default:
OSD_Printf(CON_ERROR "Gv_GetVarN(): WTF??\n",g_errorLineNum,keyw[g_tw]);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
return -1;
}
}
@ -268,7 +268,7 @@ int32_t __fastcall Gv_GetVarX(register int32_t id)
return labelval[(id>>16)&0xffff];
default:
OSD_Printf(CON_ERROR "Gv_GetVarX() (constant): WTF??\n",g_errorLineNum,keyw[g_tw]);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
return -1;
}
}
@ -311,7 +311,7 @@ int32_t __fastcall Gv_GetVarX(register int32_t id)
return ((((uint8_t *)aGameArrays[id].vals)[index] ^ -negateResult) + negateResult);
default:
OSD_Printf(CON_ERROR "Gv_GetVarX() (array): WTF??\n",g_errorLineNum,keyw[g_tw]);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
return -1;
}
}
@ -348,7 +348,7 @@ int32_t __fastcall Gv_GetVarX(register int32_t id)
if (!negateResult)
{
OSD_Printf(CON_ERROR "Gv_GetVarX(): invalid gamevar ID (%d)\n",g_errorLineNum,keyw[g_tw],id);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
return -1;
}
}
@ -368,7 +368,7 @@ int32_t __fastcall Gv_GetVarX(register int32_t id)
return ((*((uint8_t*)aGameVars[id].val.lValue) ^ -negateResult) + negateResult);
default:
OSD_Printf(CON_ERROR "Gv_GetVarX(): WTF??\n",g_errorLineNum,keyw[g_tw]);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
return -1;
}
}
@ -396,7 +396,7 @@ void __fastcall Gv_SetVarX(register int32_t id, register int32_t lValue)
if (index < 0 || index >= siz)
{
OSD_Printf(CON_ERROR "Gv_SetVarX(): invalid array index (%s[%d])\n",g_errorLineNum,keyw[g_tw],aGameArrays[id].szLabel,index);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
return;
}
@ -414,7 +414,7 @@ void __fastcall Gv_SetVarX(register int32_t id, register int32_t lValue)
return;
default:
OSD_Printf(CON_ERROR "Gv_SetVarX() (array): WTF??\n",g_errorLineNum,keyw[g_tw]);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
return;
}
return;
@ -452,7 +452,7 @@ void __fastcall Gv_SetVarX(register int32_t id, register int32_t lValue)
}
OSD_Printf(CON_ERROR "Gv_SetVarX(): invalid gamevar ID (%d)\n",g_errorLineNum,keyw[g_tw],id);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
return;
}
@ -476,7 +476,7 @@ void __fastcall Gv_SetVarX(register int32_t id, register int32_t lValue)
return;
default:
OSD_Printf(CON_ERROR "Gv_SetVarX(): WTF??\n",g_errorLineNum,keyw[g_tw]);
vm.g_errorFlag = 1;
vm.flags |= VMFLAG_ERROR;
return;
}
}
@ -611,8 +611,6 @@ static void Gv_AddSystemVars(void)
GAMEARRAY_READONLY|GAMEARRAY_OFSHORT|GAMEARRAY_VARSIZE);
Gv_NewArray("highlightsector", (void *)highlightsector, hlscnt_id,
GAMEARRAY_READONLY|GAMEARRAY_OFSHORT|GAMEARRAY_VARSIZE);
Gv_NewArray("sintable", (void *)sintable, 2048,
GAMEARRAY_READONLY|GAMEARRAY_OFSHORT);
Gv_NewArray("hsect", (void *)headspritesect, MAXSECTORS+1, GAMEARRAY_READONLY|GAMEARRAY_OFSHORT);
Gv_NewArray("nsect", (void *)prevspritesect, MAXSPRITES, GAMEARRAY_READONLY|GAMEARRAY_OFSHORT);