archives/open-adventure
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove disused labels.

Browse source
This commit is contained in:
Jason S. Ninneman 2017-05-20 16:25:31 -07:00
parent 24988e250f
commit 45969e629a
6 changed files with 75 additions and 75 deletions
Download patch file Download diff file Expand all files Collapse all files

50
init.c
View file

@ -299,11 +299,11 @@ L1039: TRVS--; TRAVEL[TRVS]= -TRAVEL[TRVS]; TRVS++;
* WOULD MAKE IT HARDER TO DETECT PARTICULAR INPUT WORDS.) */
L1040: J=10000;
/* 1042 */ for (TABNDX=1; TABNDX<=TABSIZ; TABNDX++) {
L1043: KTAB[TABNDX]=GETNUM(1);
for (TABNDX=1; TABNDX<=TABSIZ; TABNDX++) {
KTAB[TABNDX]=GETNUM(1);
if(KTAB[TABNDX] == -1) goto L1002;
J=J+7;
L1042: ATAB[TABNDX]=GETTXT(true,true,true,0)+J*J;
ATAB[TABNDX]=GETTXT(true,true,true,0)+J*J;
} /* end loop */
BUG(4);
@ -340,8 +340,8 @@ L1080: HNTMAX=0;
L1081: K=GETNUM(1);
if(K == -1) goto L1002;
if(K <= 0 || K > HNTSIZ)BUG(7);
/* 1083 */ for (I=1; I<=4; I++) {
L1083: HINTS[K][I] =GETNUM(0);
for (I=1; I<=4; I++) {
HINTS[K][I] =GETNUM(0);
} /* end loop */
HNTMAX=(HNTMAX>K ? HNTMAX : K);
goto L1081;
@ -372,11 +372,11 @@ L1092: LOCSND[K]=KK;
* DESCRIPTION IS PRINTED. COUNTS MOD 5 UNLESS "LOOK" IS USED. */
static int finish_init(void) {
/* 1101 */ for (I=1; I<=100; I++) {
for (I=1; I<=100; I++) {
PLACE[I]=0;
PROP[I]=0;
LINK[I]=0;
L1101: {long x = I+100; LINK[x]=0;}
{long x = I+100; LINK[x]=0;}
} /* end loop */
/* 1102 */ for (I=1; I<=LOCSIZ; I++) {
@ -402,10 +402,10 @@ L1102: ATLOC[I]=0;
L1106: /*etc*/ ;
} /* end loop */
/* 1107 */ for (I=1; I<=100; I++) {
for (I=1; I<=100; I++) {
K=101-I;
FIXED[K]=FIXD[K];
L1107: if(PLAC[K] != 0 && FIXD[K] <= 0)DROP(K,PLAC[K]);
if(PLAC[K] != 0 && FIXD[K] <= 0)DROP(K,PLAC[K]);
} /* end loop */
/* TREASURES, AS NOTED EARLIER, ARE OBJECTS 50 THROUGH MAXTRS (CURRENTLY 79).
@ -415,17 +415,17 @@ L1107: if(PLAC[K] != 0 && FIXD[K] <= 0)DROP(K,PLAC[K]);
MAXTRS=79;
TALLY=0;
/* 1200 */ for (I=50; I<=MAXTRS; I++) {
for (I=50; I<=MAXTRS; I++) {
if(PTEXT[I] != 0)PROP[I]= -1;
L1200: TALLY=TALLY-PROP[I];
TALLY=TALLY-PROP[I];
} /* end loop */
/* CLEAR THE HINT STUFF. HINTLC(I) IS HOW LONG HE'S BEEN AT LOC WITH COND BIT
* I. HINTED(I) IS TRUE IFF HINT I HAS BEEN USED. */
/* 1300 */ for (I=1; I<=HNTMAX; I++) {
for (I=1; I<=HNTMAX; I++) {
HINTED[I]=false;
L1300: HINTLC[I]=0;
HINTLC[I]=0;
} /* end loop */
/* DEFINE SOME HANDY MNEMONICS. THESE CORRESPOND TO OBJECT NUMBERS. */
@ -524,8 +524,8 @@ L1300: HINTLC[I]=0;
CHLOC=114;
CHLOC2=140;
/* 1700 */ for (I=1; I<=6; I++) {
L1700: DSEEN[I]=false;
for (I=1; I<=6; I++) {
DSEEN[I]=false;
} /* end loop */
DFLAG=0;
DLOC[1]=19;
@ -569,8 +569,8 @@ L1700: DSEEN[I]=false;
KNFLOC=0;
DETAIL=0;
ABBNUM=5;
/* 1800 */ for (I=0; I<=4; I++) {
L1800: {long x = 2*I+81; if(RTEXT[x] != 0)MAXDIE=I+1;}
for (I=0; I<=4; I++) {
{long x = 2*I+81; if(RTEXT[x] != 0)MAXDIE=I+1;}
} /* end loop */
NUMDIE=0;
HOLDNG=0;
@ -596,25 +596,25 @@ L1800: {long x = 2*I+81; if(RTEXT[x] != 0)MAXDIE=I+1;}
/* REPORT ON AMOUNT OF ARRAYS ACTUALLY USED, TO PERMIT REDUCTIONS. */
static void report(void) {
/* 1998 */ for (K=1; K<=LOCSIZ; K++) {
for (K=1; K<=LOCSIZ; K++) {
KK=LOCSIZ+1-K;
if(LTEXT[KK] != 0) goto L1997;
L1998: /*etc*/ ;
/*etc*/ ;
} /* end loop */
OBJ=0;
L1997: /* 1996 */ for (K=1; K<=100; K++) {
L1996: if(PTEXT[K] != 0)OBJ=OBJ+1;
L1997: for (K=1; K<=100; K++) {
if(PTEXT[K] != 0)OBJ=OBJ+1;
} /* end loop */
/* 1995 */ for (K=1; K<=TABNDX; K++) {
L1995: if(KTAB[K]/1000 == 2)VERB=KTAB[K]-2000;
for (K=1; K<=TABNDX; K++) {
if(KTAB[K]/1000 == 2)VERB=KTAB[K]-2000;
} /* end loop */
/* 1994 */ for (K=1; K<=RTXSIZ; K++) {
for (K=1; K<=RTXSIZ; K++) {
J=RTXSIZ+1-K;
if(RTEXT[J] != 0) goto L1993;
L1994: /*etc*/ ;
/*etc*/ ;
} /* end loop */
L1993: SETPRM(1,LINUSE,LINSIZ);