projects / open-adventure.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
More switch reformatting.
[open-adventure.git] / actions1.c
diff --git a/actions1.c b/actions1.c
index 0bbe90e071d9b33a8e0b3b0a280229ec8d277943..c64291c4073d4dc8477f1c52b5db4211d3b692ef 100644 (file)
--- a/actions1.c
+++ b/actions1.c
@@ -23,49 +23,89 @@ int action(FILE *input, long STARTAT) {
        BUG(99);
 
 L4000: VERB=K;
-       game.spk=ACTVERB[VERB];
+       game.spk=ACTSPK[VERB];
        if(WD2 > 0 && VERB != SAY) return(2800);
        if(VERB == SAY)OBJ=WD2;
        if(OBJ > 0) goto L4090;
 
 /*  Analyse an intransitive verb (ie, no object given yet). */
 
-       switch (VERB-1) { case 0: goto L8010; case 1: return(8000); case 2:
-               return(8000); case 3: goto L8040; case 4: return(2009); case 5: goto L8040;
-               case 6: goto L8070; case 7: goto L8080; case 8: return(8000); case
-               9: return(8000); case 10: return(2011); case 11: goto L9120; case 12:
-               goto L9130; case 13: goto L8140; case 14: goto L9150; case 15:
-               return(8000); case 16: return(8000); case 17: goto L8180; case 18:
-               return(8000); case 19: goto L8200; case 20: return(8000); case 21:
-               goto L9220; case 22: goto L9230; case 23: goto L8240; case 24:
-               goto L8250; case 25: goto L8260; case 26: goto L8270; case 27:
-               return(8000); case 28: return(8000); case 29: goto L8300; case 30:
-               goto L8310; case 31: goto L8320; case 32: goto L8330; case 33:
-               goto L8340; }
-/*          TAKE DROP  SAY OPEN NOTH LOCK   ON  OFF WAVE CALM
- *          WALK KILL POUR  EAT DRNK  RUB TOSS QUIT FIND INVN
- *          FEED FILL BLST SCOR  FOO  BRF READ BREK WAKE SUSP
- *          RESU FLY  LSTN ZZZZ */
+       switch (VERB-1) {
+               case 0: goto L8010;     /* CARRY */
+               case 1: return(8000);   /* DROP */
+               case 2: return(8000);   /* SAY */
+               case 3: goto L8040;     /* UNLOC */
+               case 4: return(2009);   /* NOTHI */
+               case 5: goto L8040;     /* LOCK */
+               case 6: goto L8070;     /* LIGHT */
+               case 7: goto L8080;     /* EXTIN */
+               case 8: return(8000);   /* WAVE */
+               case 9: return(8000);   /* CALM */
+               case 10: return(2011);  /* WALK */
+               case 11: goto L9120;    /* ATTAC */
+               case 12: goto L9130;    /* POUR */
+               case 13: goto L8140;    /* EAT */
+               case 14: goto L9150;    /* DRINK */
+               case 15: return(8000);  /* RUB */
+               case 16: return(8000);  /* TOSS */
+               case 17: goto L8180;    /* QUIT */
+               case 18: return(8000);  /* FIND */
+               case 19: goto L8200;    /* INVEN */
+               case 20: return(8000);  /* FEED */
+               case 21: goto L9220;    /* FILL */
+               case 22: goto L9230;    /* BLAST */
+               case 23: goto L8240;    /* SCOR */
+               case 24: goto L8250;    /* FOO */
+               case 25: goto L8260;    /* BRIEF */
+               case 26: goto L8270;    /* READ */
+               case 27: return(8000);  /* BREAK */
+               case 28: return(8000);  /* WAKE */
+               case 29: goto L8300;    /* SUSP */
+               case 30: goto L8310;    /* RESU */
+               case 31: goto L8320;    /* FLY */
+               case 32: goto L8330;    /* LISTEN */
+               case 33: goto L8340;    /* ZZZZ */
+       }
        BUG(23);
 
 /*  Analyse a transitive verb. */
 
-L4090: switch (VERB-1) { case 0: goto L9010; case 1: goto L9020; case 2: goto
-               L9030; case 3: goto L9040; case 4: return(2009); case 5: goto L9040;
-               case 6: goto L9070; case 7: goto L9080; case 8: goto L9090; case
-               9: return(2011); case 10: return(2011); case 11: goto L9120; case 12:
-               goto L9130; case 13: goto L9140; case 14: goto L9150; case 15:
-               goto L9160; case 16: goto L9170; case 17: return(2011); case 18:
-               goto L9190; case 19: goto L9190; case 20: goto L9210; case 21:
-               goto L9220; case 22: goto L9230; case 23: return(2011); case 24:
-               return(2011); case 25: return(2011); case 26: goto L9270; case 27:
-               goto L9280; case 28: goto L9290; case 29: return(2011); case 30:
-               return(2011); case 31: goto L9320; case 32: return(2011); case 33:
-               goto L8340; }
-/*          TAKE DROP  SAY OPEN NOTH LOCK   ON  OFF WAVE CALM
- *          WALK KILL POUR  EAT DRNK  RUB TOSS QUIT FIND INVN
- *          FEED FILL BLST SCOR  FOO  BRF READ BREK WAKE SUSP
- *          RESU FLY  LSTN ZZZZ */
+L4090: switch (VERB-1) {
+               case 0: goto L9010;     /* CARRY */
+               case 1: goto L9020;     /* DROP */
+               case 2: goto L9030;     /* SAY */
+               case 3: goto L9040;     /* UNLOC */
+               case 4: return(2009);   /* NOTHI */
+               case 5: goto L9040;     /* LOCK */
+               case 6: goto L9070;     /* LIGHT */
+               case 7: goto L9080;     /* EXTI */
+               case 8: goto L9090;     /* WAVE */
+               case 9: return(2011);   /* CALM */
+               case 10: return(2011);  /* WALK */
+               case 11: goto L9120;    /* ATTAC */
+               case 12: goto L9130;    /* POUR */
+               case 13: goto L9140;    /* EAT */
+               case 14: goto L9150;    /* DRINK */
+               case 15: goto L9160;    /* RUB */
+               case 16: goto L9170;    /* TOSS */
+               case 17: return(2011);  /* QUIT */
+               case 18: goto L9190;    /* FIND */
+               case 19: goto L9190;    /* INVEN */
+               case 20: goto L9210;    /* FEED */
+               case 21: goto L9220;    /* FILL */
+               case 22: goto L9230;    /* BLAST */
+               case 23: return(2011);  /* SCOR */
+               case 24: return(2011);  /* FOO */
+               case 25: return(2011);  /* BRIEF */
+               case 26: goto L9270;    /* READ */
+               case 27: goto L9280;    /* BREAK */
+               case 28: goto L9290;    /* WAKE */
+               case 29: return(2011);  /* SUSP */
+               case 30: return(2011);  /* RESU */
+               case 31: goto L9320;    /* FLY */
+               case 32: return(2011);  /* LISTEN */
+               case 33: goto L8340;    /* ZZZZ */
+       }
        BUG(24);
 
 /*  Analyse an object word.  See if the thing is here, whether we've got a verb
@@ -442,11 +482,11 @@ L8270:    for (I=1; I<=100; I++) {
 
 L9270: if(DARK(0)) goto L5190;
        if(OBJTXT[OBJ] == 0 || PROP[OBJ] < 0) return(2011);
-       if(OBJ == OYSTER && !CLSHNT) goto L9275;
+       if(OBJ == OYSTER && !game.clshint) goto L9275;
        PSPEAK(OBJ,OBJTXT[OBJ]+PROP[OBJ]);
         return(2012);
 
-L9275: CLSHNT=YES(input,192,193,54);
+L9275: game.clshint=YES(input,192,193,54);
         return(2012);
 
 /*  Break.  Only works for mirror in repository and, of course, the vase. */
@@ -500,11 +540,11 @@ L8305:    DATIME(I,K);
        SAVWDS(OBJ,game.oldlc2,game.oldloc,game.oldobj,game.panic,game.saved,game.setup);
        SAVWDS(game.spk,game.tally,game.thresh,game.trndex,game.trnluz,game.turns,OBJTXT[OYSTER]);
        SAVWDS(VERB,WD1,WD1X,WD2,game.wzdark,game.zzword,OBJSND[BIRD]);
-       SAVWDS(OBJTXT[SIGN],CLSHNT,game.novice,K,K,K,K);
+       SAVWDS(OBJTXT[SIGN],game.clshint,game.novice,K,K,K,K);
        SAVARR(ABB,LOCSIZ);
        SAVARR(ATLOC,LOCSIZ);
        SAVARR(DLOC,6);
-       SAVARR(DSEEN,6);
+       SAVARR(game.dseen,6);
        SAVARR(FIXED,100);
        SAVARR(HINTED,HNTSIZ);
        SAVARR(HINTLC,HNTSIZ);
This code is a forward-port of the Crowther/Woods Adventure 2.5 from 1995, last version in the main line of Colossal Cave Adventure development written by the original authors. The authors have given permission and encouragement to this release.