sverbs.c

/* SVERBS-	SIMPLE VERBS PROCESSOR */
/* 	ALL VERBS IN THIS ROUTINE MUST BE INDEPENDANT */
/* 	OF OBJECT ACTIONS */

/*COPYRIGHT 1980, INFOCOM COMPUTERS AND COMMUNICATIONS, CAMBRIDGE MA. 02142*/
/* ALL RIGHTS RESERVED, COMMERCIAL USAGE STRICTLY PROHIBITED */
/* WRITTEN BY R. M. SUPNIK */

#include <stdio.h>
#include "funcs.h"
#include "vars.h"

logical sverbs_(ri)
integer ri;
{
   /* Initialized data */

   const integer mxnop = 39;
   const integer mxjoke = 64;
   static const integer jokes[25] = { 4,5,3,304,305,306,307,308,309,310,311,
      312,313,5314,5319,324,325,883,884,120,120,0,0,0,0 };
   static const integer answer[14] = { 0,1,2,3,4,4,4,4,5,5,5,6,7,7};
   static const char * const ansstr[14] =
   { "TEMPLE", "FOREST", "30003", "FLASK", "RUB", "FONDLE",
      "CARRES", "TOUCH", "BONES", "BODY", "SKELE", "RUSTYKNIFE",
      "NONE", "NOWHER" };

   /* System generated locals */
   integer i__1, i__2;
   logical ret_val;

   /* Local variables */
   logical f;
   const char *z, *z2;
   integer i, j;
   integer k;
   integer l;
   char ch[1*6];
   integer cp, wp;
   char pp1[1*6], pp2[1*6];
   integer odi2 = 0, odo2 = 0;

   ret_val = TRUE_;
   /* 						!ASSUME WINS. */
   if (prsvec_1.prso != 0) {
      odo2 = objcts_1.odesc2[prsvec_1.prso - 1];
   }
   /* 						!SET UP DESCRIPTORS. */
   if (prsvec_1.prsi != 0) {
      odi2 = objcts_1.odesc2[prsvec_1.prsi - 1];
   }

   if (ri == 0) {
      bug_(7, ri);
   }
   /* 						!ZERO IS VERBOTEN. */
   if (ri <= mxnop) {
      return ret_val;
   }
   /* 						!NOP? */
   if (ri <= mxjoke) {
      goto L100;
   }
   /* 						!JOKE? */
   switch (ri - mxjoke) {
   case 1:  goto L65000;
   case 2:  goto L66000;
   case 3:  goto L67000;
   case 4:  goto L68000;
   case 5:  goto L69000;
   case 6:  goto L1000;
   case 7:  goto L2000;
   case 8:  goto L3000;
   case 9:  goto L4000;
   case 10:  goto L5000;
   case 11:  goto L6000;
   case 12:  goto L7000;
   case 13:  goto L8000;
   case 14:  goto L9000;
   case 15:  goto L10000;
   case 16:  goto L11000;
   case 17:  goto L12000;
   case 18:  goto L13000;
   case 19:  goto L14000;
   case 20:  goto L15000;
   case 21:  goto L16000;
   case 22:  goto L17000;
   case 23:  goto L18000;
   case 24:  goto L19000;
   case 25:  goto L20000;
   case 26:  goto L21000;
   case 27:  goto L22000;
   case 28:  goto L23000;
   case 29:  goto L24000;
   case 30:  goto L25000;
   case 31:  goto L26000;
   case 32:  goto L27000;
   }
   bug_(7, ri);

   /* ALL VERB PROCESSORS RETURN HERE TO DECLARE FAILURE. */

   /* L10: */
   ret_val = FALSE_;
   /* 						!LOSE. */
   return ret_val;

   /* JOKE PROCESSOR. */
   /* FIND PROPER ENTRY IN JOKES, USE IT TO SELECT STRING TO PRINT. */

L100:
   i = jokes[ri - mxnop - 1];
   /* 						!GET TABLE ENTRY. */
   j = i / 1000;
   /* 						!ISOLATE # STRINGS. */
   if (j != 0) {
      i = i % 1000 + rnd_(j);
   }
   /* 						!IF RANDOM, CHOOSE. */
   rspeak_(i);
   /* 						!PRINT JOKE. */
   return ret_val;
   /* SVERBS, PAGE 2A */

   /* V65--	ROOM */

L65000:
   ret_val = rmdesc_(2);
   /* 						!DESCRIBE ROOM ONLY. */
   return ret_val;

   /* V66--	OBJECTS */

L66000:
   ret_val = rmdesc_(1);
   /* 						!DESCRIBE OBJ ONLY. */
   if (! play_1.telflg) {
      rspeak_(138);
   }
   /* 						!NO OBJECTS. */
   return ret_val;

   /* V67--	RNAME */

L67000:
   i__1 = rooms_1.rdesc2[play_1.here - 1];
   rspeak_(i__1);
   /* 						!SHORT ROOM NAME. */
   return ret_val;

   /* V68--	RESERVED */

L68000:
   return ret_val;

   /* V69--	RESERVED */

L69000:
   return ret_val;
   /* SVERBS, PAGE 3 */

   /* V70--	BRIEF.  SET FLAG. */

L1000:
   findex_1.brieff = TRUE_;
   /* 						!BRIEF DESCRIPTIONS. */
   findex_1.superf = FALSE_;
   rspeak_(326);
   return ret_val;

   /* V71--	VERBOSE.  CLEAR FLAGS. */

L2000:
   findex_1.brieff = FALSE_;
   /* 						!LONG DESCRIPTIONS. */
   findex_1.superf = FALSE_;
   rspeak_(327);
   return ret_val;

   /* V72--	SUPERBRIEF.  SET FLAG. */

L3000:
   findex_1.superf = TRUE_;
   rspeak_(328);
   return ret_val;

   /* V73-- STAY (USED IN ENDGAME). */

L4000:
   if (play_1.winner != aindex_1.amastr) {
      goto L4100;
   }
   /* 						!TELL MASTER, STAY. */
   rspeak_(781);
   /* 						!HE DOES. */
   cevent_1.ctick[cindex_1.cevfol - 1] = 0;
   /* 						!NOT FOLLOWING. */
   return ret_val;

L4100:
   if (play_1.winner == aindex_1.player) {
      rspeak_(664);
   }
   /* 						!JOKE. */
   return ret_val;

   /* V74--	VERSION.  PRINT INFO. */

L5000:
   more_output(NULL);
   printf("V%1d.%1d%c\n", vers_1.vmaj, vers_1.vmin, vers_1.vedit);
   play_1.telflg = TRUE_;
   return ret_val;

   /* V75--	SWIM.  ALWAYS A JOKE. */

L6000:
   i = 330;
   /* 						!ASSUME WATER. */
   if ((rooms_1.rflag[play_1.here - 1] & RWATER + RFILL) == 
         0) {
      i = rnd_(3) + 331;
   }
   rspeak_(i);
   return ret_val;

   /* V76--	GERONIMO.  IF IN BARREL, FATAL, ELSE JOKE. */

L7000:
   if (play_1.here == rindex_1.mbarr) {
      goto L7100;
   }
   /* 						!IN BARREL? */
   rspeak_(334);
   /* 						!NO, JOKE. */
   return ret_val;

L7100:
   jigsup_(335);
   /* 						!OVER FALLS. */
   return ret_val;

   /* V77--	SINBAD ET AL.  CHASE CYCLOPS, ELSE JOKE. */

L8000:
   if (play_1.here == rindex_1.mcycl && qhere_(oindex_1.cyclo, play_1.here)
      ) {
      goto L8100;
   }
   rspeak_(336);
   /* 						!NOT HERE, JOKE. */
   return ret_val;

L8100:
   newsta_(oindex_1.cyclo, 337, 0, 0, 0);
   /* 						!CYCLOPS FLEES. */
   findex_1.cyclof = TRUE_;
   /* 						!SET ALL FLAGS. */
   findex_1.magicf = TRUE_;
   objcts_1.oflag2[oindex_1.cyclo - 1] &= ~ FITEBT;
   return ret_val;

   /* V78--	WELL.  OPEN DOOR, ELSE JOKE. */

L9000:
   if (findex_1.riddlf || play_1.here != rindex_1.riddl) {
      goto L9100;
   }
   /* 						!IN RIDDLE ROOM? */
   findex_1.riddlf = TRUE_;
   /* 						!YES, SOLVED IT. */
   rspeak_(338);
   return ret_val;

L9100:
   rspeak_(339);
   /* 						!WELL, WHAT? */
   return ret_val;

   /* V79--	PRAY.  IF IN TEMP2, POOF */
   /* 						! */

L10000:
   if (play_1.here != rindex_1.temp2) {
      goto L10050;
   }
   /* 						!IN TEMPLE? */
   if (moveto_(rindex_1.fore1, play_1.winner)) {
      goto L10100;
   }
   /* 						!FORE1 STILL THERE? */
L10050:
   rspeak_(340);
   /* 						!JOKE. */
   return ret_val;

L10100:
   f = rmdesc_(3);
   /* 						!MOVED, DESCRIBE. */
   return ret_val;

   /* V80--	TREASURE.  IF IN TEMP1, POOF */
   /* 						! */

L11000:
   if (play_1.here != rindex_1.temp1) {
      goto L11050;
   }
   /* 						!IN TEMPLE? */
   if (moveto_(rindex_1.treas, play_1.winner)) {
      goto L10100;
   }
   /* 						!TREASURE ROOM THERE? */
L11050:
   rspeak_(341);
   /* 						!NOTHING HAPPENS. */
   return ret_val;

   /* V81--	TEMPLE.  IF IN TREAS, POOF */
   /* 						! */

L12000:
   if (play_1.here != rindex_1.treas) {
      goto L12050;
   }
   /* 						!IN TREASURE? */
   if (moveto_(rindex_1.temp1, play_1.winner)) {
      goto L10100;
   }
   /* 						!TEMP1 STILL THERE? */
L12050:
   rspeak_(341);
   /* 						!NOTHING HAPPENS. */
   return ret_val;

   /* V82--	BLAST.  USUALLY A JOKE. */

L13000:
   i = 342;
   /* 						!DONT UNDERSTAND. */
   if (prsvec_1.prso == oindex_1.safe) {
      i = 252;
   }
   /* 						!JOKE FOR SAFE. */
   rspeak_(i);
   return ret_val;

   /* V83--	SCORE.  PRINT SCORE. */

L14000:
   score_(0);
   return ret_val;

   /* V84--	QUIT.  FINISH OUT THE GAME. */

L15000:
   score_(1);
   /* 						!TELLL SCORE. */
   if (! yesno_(343, 0, 0)) {
      return ret_val;
   }
   /* 						!ASK FOR Y/N DECISION. */
   exit_();
   /* 						!BYE. */
   /* SVERBS, PAGE 4 */

   /* V85--	FOLLOW (USED IN ENDGAME) */

L16000:
   if (play_1.winner != aindex_1.amastr) {
      return ret_val;
   }
   /* 						!TELL MASTER, FOLLOW. */
   rspeak_(782);
   cevent_1.ctick[cindex_1.cevfol - 1] = -1;
   /* 						!STARTS FOLLOWING. */
   return ret_val;

   /* V86--	WALK THROUGH */

L17000:
   if (screen_1.scolrm == 0 || prsvec_1.prso != oindex_1.scol && (
            prsvec_1.prso != oindex_1.wnort || play_1.here != rindex_1.bkbox))
   {
      goto L17100;
   }
   screen_1.scolac = screen_1.scolrm;
   /* 						!WALKED THRU SCOL. */
   prsvec_1.prso = 0;
   /* 						!FAKE OUT FROMDR. */
   cevent_1.ctick[cindex_1.cevscl - 1] = 6;
   /* 						!START ALARM. */
   rspeak_(668);
   /* 						!DISORIENT HIM. */
   f = moveto_(screen_1.scolrm, play_1.winner);
   /* 						!INTO ROOM. */
   f = rmdesc_(3);
   /* 						!DESCRIBE. */
   return ret_val;

L17100:
   if (play_1.here != screen_1.scolac) {
      goto L17300;
   }
   /* 						!ON OTHER SIDE OF SCOL? */
   for (i = 1; i <= 12; i += 3) {
      /* 						!WALK THRU PROPER WALL? */
      if (screen_1.scolwl[i - 1] == play_1.here && screen_1.scolwl[i] == 
            prsvec_1.prso) {
         goto L17500;
      }
      /* L17200: */
   }

L17300:
   if ((objcts_1.oflag1[prsvec_1.prso - 1] & TAKEBT) != 0) {
      goto L17400;
   }
   i = 669;
   /* 						!NO, JOKE. */
   if (prsvec_1.prso == oindex_1.scol) {
      i = 670;
   }
   /* 						!SPECIAL JOKE FOR SCOL. */
   rspsub_(i, odo2);
   return ret_val;

L17400:
   i = 671;
   /* 						!JOKE. */
   if (objcts_1.oroom[prsvec_1.prso - 1] != 0) {
      i = rnd_(5) + 552;
   }
   /* 						!SPECIAL JOKES IF CARRY. */
   rspeak_(i);
   return ret_val;

L17500:
   prsvec_1.prso = screen_1.scolwl[i + 1];
   /* 						!THRU SCOL WALL... */
   for (i = 1; i <= 8; i += 2) {
      /* 						!FIND MATCHING ROOM. */
      if (prsvec_1.prso == screen_1.scoldr[i - 1]) {
         screen_1.scolrm = screen_1.scoldr[i];
      }
      /* L17600: */
   }
   /* 						!DECLARE NEW SCOLRM. */
   cevent_1.ctick[cindex_1.cevscl - 1] = 0;
   /* 						!CANCEL ALARM. */
   rspeak_(668);
   /* 						!DISORIENT HIM. */
   f = moveto_(rindex_1.bkbox, play_1.winner);
   /* 						!BACK IN BOX ROOM. */
   f = rmdesc_(3);
   return ret_val;

   /* V87--	RING.  A JOKE. */

L18000:
   i = 359;
   /* 						!CANT RING. */
   if (prsvec_1.prso == oindex_1.bell) {
      i = 360;
   }
   /* 						!DING, DONG. */
   rspeak_(i);
   /* 						!JOKE. */
   return ret_val;

   /* V88--	BRUSH.  JOKE WITH OBSCURE TRAP. */

L19000:
   if (prsvec_1.prso == oindex_1.teeth) {
      goto L19100;
   }
   /* 						!BRUSH TEETH? */
   rspeak_(362);
   /* 						!NO, JOKE. */
   return ret_val;

L19100:
   if (prsvec_1.prsi != 0) {
      goto L19200;
   }
   /* 						!WITH SOMETHING? */
   rspeak_(363);
   /* 						!NO, JOKE. */
   return ret_val;

L19200:
   if (prsvec_1.prsi == oindex_1.putty && objcts_1.oadv[oindex_1.putty - 1] 
         == play_1.winner) {
      goto L19300;
   }
   rspsub_(364, odi2);
   /* 						!NO, JOKE. */
   return ret_val;

L19300:
   jigsup_(365);
   /* 						!YES, DEAD */
   /* 						! */
   /* 						! */
   /* 						! */
   /* 						! */
   /* 						! */
   return ret_val;
   /* SVERBS, PAGE 5 */

   /* V89--	DIG.  UNLESS SHOVEL, A JOKE. */

L20000:
   if (prsvec_1.prso == oindex_1.shove) {
      return ret_val;
   }
   /* 						!SHOVEL? */
   i = 392;
   /* 						!ASSUME TOOL. */
   if ((objcts_1.oflag1[prsvec_1.prso - 1] & TOOLBT) == 0) {
      i = 393;
   }
   rspsub_(i, odo2);
   return ret_val;

   /* V90--	TIME.  PRINT OUT DURATION OF GAME. */

L21000:
   gttime_(&k);
   /* 						!GET PLAY TIME. */
   i = k / 60;
   j = k % 60;

   more_output(NULL);
   printf("You have been playing Dungeon for ");
   if (i >= 1) {
      printf("%d hour", i);
      if (i >= 2)
         printf("s");
      printf(" and ");
   }
   printf("%d minute", j);
   if (j != 1)
      printf("s");
   printf(".\n");
   play_1.telflg = TRUE_;
   return ret_val;


   /* V91--	LEAP.  USUALLY A JOKE, WITH A CATCH. */

L22000:
   if (prsvec_1.prso == 0) {
      goto L22200;
   }
   /* 						!OVER SOMETHING? */
   if (qhere_(prsvec_1.prso, play_1.here)) {
      goto L22100;
   }
   /* 						!HERE? */
   rspeak_(447);
   /* 						!NO, JOKE. */
   return ret_val;

L22100:
   if ((objcts_1.oflag2[prsvec_1.prso - 1] & VILLBT) == 0) {
      goto L22300;
   }
   rspsub_(448, odo2);
   /* 						!CANT JUMP VILLAIN. */
   return ret_val;

L22200:
   if (! findxt_(xsrch_1.xdown, play_1.here)) {
      goto L22300;
   }
   /* 						!DOWN EXIT? */
   if (curxt_1.xtype == xpars_1.xno || curxt_1.xtype == xpars_1.xcond && ! 
         flags[*xflag - 1]) {
      goto L22400;
   }
L22300:
   i__1 = rnd_(5) + 314;
   rspeak_(i__1);
   /* 						!WHEEEE */
   /* 						! */
   return ret_val;

L22400:
   i__1 = rnd_(4) + 449;
   jigsup_(i__1);
   /* 						!FATAL LEAP. */
   return ret_val;
   /* SVERBS, PAGE 6 */

   /* V92--	LOCK. */

L23000:
   if (prsvec_1.prso == oindex_1.grate && play_1.here == rindex_1.mgrat) {
      goto L23200;
   }
L23100:
   rspeak_(464);
   /* 						!NOT LOCK GRATE. */
   return ret_val;

L23200:
   findex_1.grunlf = FALSE_;
   /* 						!GRATE NOW LOCKED. */
   rspeak_(214);
   exits_1.travel[rooms_1.rexit[play_1.here - 1]] = 214;
   /* 						!CHANGE EXIT STATUS. */
   return ret_val;

   /* V93--	UNLOCK */

L24000:
   if (prsvec_1.prso != oindex_1.grate || play_1.here != rindex_1.mgrat) {
      goto L23100;
   }
   if (prsvec_1.prsi == oindex_1.keys) {
      goto L24200;
   }
   /* 						!GOT KEYS? */
   rspsub_(465, odi2);
   /* 						!NO, JOKE. */
   return ret_val;

L24200:
   findex_1.grunlf = TRUE_;
   /* 						!UNLOCK GRATE. */
   rspeak_(217);
   exits_1.travel[rooms_1.rexit[play_1.here - 1]] = 217;
   /* 						!CHANGE EXIT STATUS. */
   return ret_val;

   /* V94--	DIAGNOSE. */

L25000:
   i = fights_(play_1.winner, 0);
   /* 						!GET FIGHTS STRENGTH. */
   j = advs_1.astren[play_1.winner - 1];
   /* 						!GET HEALTH. */
   /* Computing MIN */
   i__1 = i + j;
   k = min(i__1,4);
   /* 						!GET STATE. */
   if (! cevent_1.cflag[cindex_1.cevcur - 1]) {
      j = 0;
   }
   /* 						!IF NO WOUNDS. */
   /* Computing MIN */
   i__1 = 4, i__2 = abs(j);
   l = min(i__1,i__2);
   /* 						!SCALE. */
   i__1 = l + 473;
   rspeak_(i__1);
   /* 						!DESCRIBE HEALTH. */
   i = (-j - 1) * 30 + cevent_1.ctick[cindex_1.cevcur - 1];
   /* 						!COMPUTE WAIT. */

   if (j != 0) {
      more_output(NULL);
      printf("You will be cured after %d moves.\n", i);
   }

   i__1 = k + 478;
   rspeak_(i__1);
   /* 						!HOW MUCH MORE? */
   if (state_1.deaths != 0) {
      i__1 = state_1.deaths + 482;
      rspeak_(i__1);
   }
   /* 						!HOW MANY DEATHS? */
   return ret_val;
   /* SVERBS, PAGE 7 */

   /* V95--	INCANT */

L26000:
   for (i = 1; i <= 6; ++i) {
      /* 						!SET UP PARSE. */
      pp1[i - 1] = ' ';
      pp2[i - 1] = ' ';
      /* L26100: */
   }
   wp = 1;
   /* 						!WORD POINTER. */
   cp = 1;
   /* 						!CHAR POINTER. */
   if (prsvec_1.prscon <= 1) {
      goto L26300;
   }
   for (z = input_1.inbuf + prsvec_1.prscon - 1; *z != '\0'; ++z) {
      /* 						!PARSE INPUT */
      if (*z == ',')
         goto L26300;
      /* 						!END OF PHRASE? */
      if (*z != ' ')
         goto L26150;
      /* 						!SPACE? */
      if (cp != 1) {
         ++wp;
      }
      cp = 1;
      goto L26200;
L26150:
      if (wp == 1) {
         pp1[cp - 1] = *z;
      }
      /* 						!STUFF INTO HOLDER. */
      if (wp == 2) {
         pp2[cp - 1] = *z;
      }
      /* Computing MIN */
      i__2 = cp + 1;
      cp = min(i__2,6);
L26200:
      ;
   }

L26300:
   prsvec_1.prscon = 1;
   /* 						!KILL REST OF LINE. */
   if (pp1[0] != ' ') {
      goto L26400;
   }
   /* 						!ANY INPUT? */
   rspeak_(856);
   /* 						!NO, HO HUM. */
   return ret_val;

L26400:
   encryp_(pp1, ch);
   /* 						!COMPUTE RESPONSE. */
   if (pp2[0] != ' ') {
      goto L26600;
   }
   /* 						!TWO PHRASES? */

   if (findex_1.spellf) {
      goto L26550;
   }
   /* 						!HE'S TRYING TO LEARN. */
   if ((rooms_1.rflag[rindex_1.tstrs - 1] & RSEEN) == 0) {
      goto L26575;
   }
   findex_1.spellf = TRUE_;
   /* 						!TELL HIM. */
   play_1.telflg = TRUE_;
   more_output(NULL);
   printf("A hollow voice replies:  \"%.6s %.6s\".\n", pp1, ch);

   return ret_val;

L26550:
   rspeak_(857);
   /* 						!HE'S GOT ONE ALREADY. */
   return ret_val;

L26575:
   rspeak_(858);
   /* 						!HE'S NOT IN ENDGAME. */
   return ret_val;

L26600:
   if ((rooms_1.rflag[rindex_1.tstrs - 1] & RSEEN) != 0) {
      goto L26800;
   }
   for (i = 1; i <= 6; ++i) {
      if (pp2[i - 1] != ch[i - 1]) {
         goto L26575;
      }
      /* 						!WRONG. */
      /* L26700: */
   }
   findex_1.spellf = TRUE_;
   /* 						!IT WORKS. */
   rspeak_(859);
   cevent_1.ctick[cindex_1.cevste - 1] = 1;
   /* 						!FORCE START. */
   return ret_val;

L26800:
   rspeak_(855);
   /* 						!TOO LATE. */
   return ret_val;
   /* SVERBS, PAGE 8 */

   /* V96--	ANSWER */

L27000:
   if (prsvec_1.prscon > 1 && play_1.here == rindex_1.fdoor && 
         findex_1.inqstf) {
      goto L27100;
   }
   rspeak_(799);
   /* 						!NO ONE LISTENS. */
   prsvec_1.prscon = 1;
   return ret_val;

L27100:
   for (j = 1; j <= 14; j ++) {
      /* 						!CHECK ANSWERS. */
      if (findex_1.quesno != answer[j - 1])
         goto L27300;
      /* 						!ONLY CHECK PROPER ANS. */
      z = ansstr[j - 1];
      z2 = input_1.inbuf + prsvec_1.prscon - 1;
      while (*z != '\0') {
         while (*z2 == ' ')
            z2++;
         /* 						!STRIP INPUT BLANKS. */
         if (*z++ != *z2++)
            goto L27300;
      }
      goto L27500;
      /* 						!RIGHT ANSWER. */
L27300:
      ;
   }

   prsvec_1.prscon = 1;
   /* 						!KILL REST OF LINE. */
   ++findex_1.nqatt;
   /* 						!WRONG, CRETIN. */
   if (findex_1.nqatt >= 5) {
      goto L27400;
   }
   /* 						!TOO MANY WRONG? */
   i__1 = findex_1.nqatt + 800;
   rspeak_(i__1);
   /* 						!NO, TRY AGAIN. */
   return ret_val;

L27400:
   rspeak_(826);
   /* 						!ALL OVER. */
   cevent_1.cflag[cindex_1.cevinq - 1] = FALSE_;
   /* 						!LOSE. */
   return ret_val;

L27500:
   prsvec_1.prscon = 1;
   /* 						!KILL REST OF LINE. */
   ++findex_1.corrct;
   /* 						!GOT IT RIGHT. */
   rspeak_(800);
   /* 						!HOORAY. */
   if (findex_1.corrct >= 3) {
      goto L27600;
   }
   /* 						!WON TOTALLY? */
   cevent_1.ctick[cindex_1.cevinq - 1] = 2;
   /* 						!NO, START AGAIN. */
   findex_1.quesno = (findex_1.quesno + 3) % 8;
   findex_1.nqatt = 0;
   rspeak_(769);
   /* 						!ASK NEXT QUESTION. */
   i__1 = findex_1.quesno + 770;
   rspeak_(i__1);
   return ret_val;

L27600:
   rspeak_(827);
   /* 						!QUIZ OVER, */
   cevent_1.cflag[cindex_1.cevinq - 1] = FALSE_;
   objcts_1.oflag2[oindex_1.qdoor - 1] |= OPENBT;
   return ret_val;

} /* sverbs_ */