mis_c.c

Go to the documentation of this file.

/*
    Copyright (C) 2005 Michael K. McCarty & Fritz Bronner

    This program 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
*/
// Interplay's BUZZ ALDRIN's RACE into SPACE
//
// Formerly -=> LiftOff : Race to the Moon :: IBM version MCGA
// Copyright 1991 by Strategic Visions, Inc.
// Designed by Fritz Bronner
// Programmed by Michael K McCarty
//

#include "gamedata.h"
#include "Buzz_inc.h"
#include "externs.h"
#include "mis.h"
#include "av.h"
#include "mmfile.h"
#include "utils.h"
#include "logging.h"

#include <assert.h>

#define FRM_Delay 22

#define NORM_TABLE 397
#define CLIF_TABLE 240
#define ANIM_PARTS 297
#define SCND_TABLE 486

LOG_DEFAULT_CATEGORY(mission);

 struct NTable {
  char ID[8];
 };

 struct Infin {
  char Code[9],Qty;
  i16 List[10];
 };

 struct OF {
  char Name[8];
  i16 idx;
 };

struct Infin *Mob;
struct OF *Mob2;
int tFrames,cFrame;
char SHTS[4];
long aLoc;
GXHEADER dply;
struct AnimType AHead;
struct BlockHead BHead;

char STEPnum,loc[4];
extern struct MisAst MA[2][4];
extern struct MisEval Mev[60];
extern char MANNED[2],STEP,pal2[768],AI[2],fEarly,LM[2],EVA[2];
extern char BIG;

void Tick(char plr);
void Clock(char plr,char clck,char mode,char tm);
// void Plop(char plr,char mode);

// Who and What the hell are "Shining Happy People?"

#if 0
void RLEE (char *dest, char *src, unsigned int src_size)
{
    asm push es;          // preserve ES
    asm push ds;          // preserve DS
    asm les di,dest;      // move dest into ES:DI
    asm lds si,src;       // move src into DS:SI
    asm mov cx,0;         // clear CX
    asm mov bx,src_size;  // move counter into BX
loa:
    asm lodsb;            // move byte into AL
    asm dec bx;           // decrement CX
    asm cmp al,0;         // compare AL to 0
    asm jl repeat;        // if al < 0 jump to repeat
                  // copy bytes
    asm mov ah,0;         // clear AH
    asm inc al;           // increment AL
    asm mov cl,al;        // put value of AL into CL
    asm rep movsb;        // move CX bytes from DS:SI to ES:DI
    asm sub bx,ax;        // increment BX by approp value
    asm cmp bx,0;         // see if finished
    asm jg loa;           // if not then loop
    asm jmp bot;          // else jump to bottom

repeat:
    asm neg al;           // negate AL
    asm inc al;           // increment AL by 1
    asm mov cl,al;        // move counter value to CX
    asm lodsb;            // load value to copy
lob:
    asm stosb;            // copy AL into ES:DI
    asm loop lob;         // do while CX >0
    asm dec bx;           // decrement bx;

  asm cmp bx,100h;
  asm jg  sk;
  asm int   03h;

sk:
    asm cmp bx,0;         // see if finished
    asm jg loa;           // if not then loop

bot:                          // bottom of routine
    asm pop ds;           // restore ds
    asm pop es;           // restore es

  return;
}
#endif

/**
 * 
 * \param mode Female or other (2 = female)
 * \param Seq Sequence-Code for the movies (?)
 */
void PlaySequence(char plr,int step,char *Seq,char mode)
{
    DEBUG4("->PlaySequence(plr, step %d, Seq %c, mode %s)", step, Seq, mode);
    int keep_going;
    int wlen,i,j;
    unsigned int fres,max;
    char lnch=0,AEPT,BABY,Tst2,Tst3;
    unsigned char sts=0,fem=0;
    FILE *fin,*fout,*ffin,*nfin;
    long offset;
    struct oGROUP *bSeq,aSeq;
    struct oFGROUP *dSeq,cSeq;
    struct Table *F;
    char sName[20],err=0;
    char *SEQ_DAT="SEQ.DAT";
    char *FSEQ_DAT="FSEQ.DAT";
    mm_file vidfile;
    FILE *mmfp;
    float fps;
    int hold_count;

    F = NULL; /* XXX check uninitialized */
    dSeq = NULL; /* XXX check uninitialized */
    bSeq = NULL; /* XXX check uninitialized */
    i = j = 0; /* XXX check uninitialized */

    memset(buffer,0x00,BUFFER_SIZE);
    SHTS[0]=random(10);SHTS[1]=random(10);SHTS[2]=random(10);SHTS[3]=random(10);

    if (fEarly && step!=0) return; //Specs: unmanned mission cut short

    //Specs: female'snaut klugge
    if (mode==2) {
        fem=1;  //Spec: additional search param.
        mode=0;
    } else fem=0;

    //Specs: Lem Activities Klugge
    if (Seq[0]=='h') {
        if (Mev[STEP-1].Name[0]=='S'){
          Seq[0]='Q';
        } else {
          Seq[0]='i';
          strncpy(Mev[step].FName,"F034",4);
        }
    };

    if (Seq[0]=='Q') {
        if (Mev[STEP-1].Name[0]!='S') {
            if (mode==0){ 
                Seq[0]='i';
            } else if (mode==1) {
                Seq[0]='i';
                strncpy(Mev[step].FName,"F034",4);
            }
        }
        if ((Seq[1]=='U' || Seq[1]=='S') && Seq[2]=='C') {
            if (Seq[3]=='5'){ 
                Seq[3]='6';
            } else if (Seq[3]=='6'){ 
                Seq[3]='5';
            }
        }
    };

    //Specs: lm act lunar liftoff failure klugge and failed landing LPL
    if (mode==1) {
        if (Seq[0]=='T') {
            if (Seq[3]=='6' || Seq[3]=='5')
                strncpy(Mev[STEP].FName,"F019",4);
        };
        if (Seq[0]=='Q') {
            if (Seq[3]=='6' || Seq[3]=='5')
                strncpy(Mev[STEP].FName,"F216",4);
        };
        if (Seq[0]=='S') {
            if (Seq[2]=='P') strncpy(Mev[STEP].FName,"F118",4);
        };
        if (Seq[0]=='P') {
            //TC changero klugge
            if (Seq[5]=='6') {
                Tst2 = Seq[4];
                Tst3 = Seq[5];
                Seq[4] = Seq[2];
                Seq[5] = Seq[3];
                Seq[2] = (char)Tst2;
                Seq[3] = (char)Tst3;
                strncpy(Mev[STEP].FName,"F115",4);
            }
        }
    }

    //Specs: launch sync
    if (Seq[0]=='#') lnch=1;
    else lnch=0;

    if (Seq[0]=='A' || Seq[0]=='E' || Seq[0]=='P' || Seq[0]=='T' || Seq[0]=='#')
        AEPT=1; else AEPT=0;

    if (mode==0) bSeq=(struct oGROUP *)&vhptr.vptr[35000];
    else dSeq=(struct oFGROUP *)&vhptr.vptr[35000];

    if (mode==0) {
        fin=open_gamedat(SEQ_DAT);
        offset=fread(&vhptr.vptr[35000],1,vhptr.h*vhptr.w-35000,fin);
    } else {
        fin = open_gamedat(FSEQ_DAT);
        F=(struct Table *)&vhptr.vptr[0];
        fread_Table(F,50,fin);

        err=0;  //Specs: reset error

        for (i=0;i<50;i++) {
            if (strncmp(F[i].fname,Mev[step].FName,4)==0)
                break;
        }

        if (i==50) err=1;

        if (err==0) {
            fseek(fin, F[i].foffset, SEEK_SET);
            fread_oFGROUP(dSeq, F[i].size / sizeof_oFGROUP, fin);
        }
    };

    fclose(fin);

    if (mode==0) {
        j=0;
        while (strncmp(bSeq[j].ID,"XXXX",4)!=0 && strncmp(&bSeq[j].ID[3],Seq,strlen(&bSeq[j].ID[3]))!=0)
            j++;

        if (bSeq[j].ID[2]-0x30 == 1)
            if (fem==0) j++; 
    } else if (err==0) {
        j=0;
        memset(sName,0x00,sizeof sName);
        strncpy(sName,&dSeq[j].ID[3+strlen(&dSeq[j].ID[3])-2],2);
        while (strncmp(dSeq[j].ID,"XXXX",4) !=0 && strncmp(&dSeq[j].ID[3],Seq,strlen(&dSeq[j].ID[3])-2) !=0)
            j++;
        while(strncmp(sName,&Seq[strlen(Seq)-2],2) !=0) {
            j++;
            strncpy(sName,&dSeq[j].ID[3+strlen(&dSeq[j].ID[3])-2],2);
            if (j>=F[i].size/sizeof_oFGROUP) {err=1;break;} 
        }
    };

    if ((strncmp((mode==0) ? bSeq[j].ID : dSeq[j].ID,"XXXX",4)==0) || (mode==1 && err==1)) {
        //Specs: Search Error Play Static
        if (mode==0) {
            j=0;
        } else {
            fin=open_gamedat(FSEQ_DAT);
            fseek(fin,F[0].foffset,SEEK_SET);
            fread_oFGROUP(dSeq,F[0].size/sizeof_oFGROUP,fin);
            fclose(fin);
        }
    }
    if (mode==1 && err==1) j=0;

    //::::::::::::::::::::::::::::::::::::
    // Specs  Success Sequence Variation :
    //::::::::::::::::::::::::::::::::::::
    if (mode==0 && (bSeq[j].ID[0]-0x30 !=1)) {
        fres=0;
        fres=(unsigned)(bSeq[j].ID[0]-0x30);
        max=(unsigned)fres;
        fres=fres-1;
        wlen=0;
        while(1) {
            fres=random(10000);
            fres%=10;
            if (fres<max) break;
            wlen++;
            if (wlen>100) {fres=0;break;}
        };
        j+=fres;
    };

    //::::::::::::::::::::::::::::::::::::
    // Specs: Failure Sequence Variation :
    //::::::::::::::::::::::::::::::::::::
    if (mode==1 && (dSeq[j].ID[0]-0x30 !=1)) {
        fres=0;
        fres=(unsigned)(dSeq[j].ID[0]-0x30);
        max=(unsigned)fres;
        fres=fres-1;
        wlen=0;
        while(1) {
            fres=random(10000);
            fres%=10;
            if (fres<max) break;
            wlen++;
            if (wlen>100) {fres=0;break;}
        };
        j+=fres;
    };

    BABY=0;
    if (mode==0) {
        if (j>=1 && j<=22)
            BABY=1;
    }

    if (mode==0) memcpy(&aSeq,&bSeq[j],sizeof aSeq);
    else memcpy(&cSeq,&dSeq[j],sizeof cSeq);

    fout=sOpen("REPLAY.TMP","at",1);
    if (mode==0) fprintf(fout,"%d\n",(unsigned int)j);
    else {i+=1;fprintf(fout,"%d\n",(unsigned int)(i*1000+j));}
    // Specs: mode==1 save out fail seq (i*1000)+j 
    fclose(fout);

    if (AI[plr]==1) return;

    ffin=open_gamedat("BABYPICX.CDR");

    Mob=(struct Infin *) buffer;

    if (AEPT && !mode) {
        if ((nfin=open_gamedat("BABYCLIF.CDR"))==NULL) return;
        fread(Mob,CLIF_TABLE*(sizeof (struct Infin)),1,nfin); //Specs: First Table

#ifdef __BIG_ENDIAN__
        for (i=0;i<CLIF_TABLE;i++)  {
            int ii;
            for (ii=0;ii<10;ii++)
                Swap16bit(Mob[i].List[ii]);
        }
#endif
        Mob2=(struct OF *)&buffer[15000];
        fseek(nfin,7200,SEEK_SET);
        fread(Mob2,SCND_TABLE*(sizeof (struct OF)),1,nfin);   //Specs: Second Table
        fclose(nfin);

#ifdef __BIG_ENDIAN__
        for (i=0;i<SCND_TABLE;i++) 
            Swap16bit(Mob2[i].idx);
#endif

        for (i=0;i<SCND_TABLE;i++) Mob2[i].Name[strlen(Mob2[i].Name)-3]='_'; // patch
    } else {
        nfin=open_gamedat("BABYNORM.CDR");
        fread(Mob,NORM_TABLE*(sizeof (struct Infin)),1,nfin);
        fclose(nfin);
#ifdef __BIG_ENDIAN__
        for (i = 0; i< NORM_TABLE; i++)
        {
            int j;
            for (j=0;j<10;j++)
                Swap16bit(Mob[i].List[j]);
        }
#endif
    }

    // Plop(plr,1); //Specs: random single frame for sound buffering

    i=0;

    if (mode==0) max=aSeq.ID[1]-'0';
    else max=cSeq.ID[1]-'0';

    keep_going = 1;
    while (keep_going && i<(int)max) {
        int aidx, sidx;
        char *seq_name = NULL;
        char name[20]; /** \todo assumption about seq_filename len */

        if (mode==0) {
            aidx = aSeq.oLIST[i].aIdx;
            sidx = aSeq.oLIST[i].sIdx;
        } else {
            aidx = cSeq.oLIST[i].aIdx;
            sidx = cSeq.oLIST[i].sIdx;
        }

        Swap16bit(aidx);
        Swap16bit(sidx);

        if (sidx)
            play_audio (sidx, mode);

        if ((seq_name = seq_filename(aidx, mode)) == NULL)
            seq_name = "(unknown)";

        snprintf(name, sizeof(name), "%s.ogg", seq_name);
        mmfp = sOpen(name, "rb", FT_VIDEO);

        INFO2("opening video file `%s'", name);
        if (mm_open_fp(&vidfile, mmfp) <= 0)
            break;

        /** \todo do not ignore width/height */
        if (mm_video_info(&vidfile, NULL, NULL, &fps) <= 0)
            break;

        j=0;

        hold_count = 0;
        while (keep_going) {
            av_step ();

            if (BABY==0 && BIG==0) Tick(plr);

            if (hold_count == 0) {

                /** \todo track decoding time and adjust delays */
                if (mm_decode_video(&vidfile, video_overlay) <= 0)
                    break;

                screen_dirty = 1;

            /* XXX I don't get the fancy "hold thing so I left it out */

            } else if (hold_count < 8) {
                //Specs: single frame hold
                idle_loop (FRM_Delay);
                if (!BABY && BIG==0) Tick(plr);
                idle_loop (FRM_Delay);
                if (!BABY && BIG==0) Tick(plr);
                idle_loop (FRM_Delay);
                if (!BABY && BIG==0) Tick(plr);
                idle_loop (FRM_Delay);
                hold_count++;
            } else {
                DEBUG1("need to come out of hold");
            }

            video_rect.w = 160;
            video_rect.h = 100;
            if (BIG==0)
            {
                video_rect.x = 80;
                video_rect.y = 3+plr*10;
            }
            else
            {
                memset(screen, 0, MAX_X*MAX_Y);
                video_rect.x = MAX_X / 4;
                video_rect.y = MAX_Y / 4;
                video_rect.h = MAX_Y / 2;
                video_rect.w = MAX_X / 2;
            }

            /** \todo idle_loop is too inaccurate for this */
            idle_loop_secs(1.0 / fps);
            if (sts<23) {
                if (BABY==0 && BIG==0) DoPack(plr,ffin,(AEPT && !mode) ? 1 : 0,Seq,seq_name);
                ++sts;
                if (sts==23) sts=0;

                if (bioskey(0) || grGetMouseButtons())
                {
                    av_silence (AV_SOUND_CHANNEL);
                    keep_going = 0;
                }
                if (Data->Def.Anim) {
                    idle_loop (FRM_Delay * 3);
                };
                j++;
            }
        }

        mm_close(&vidfile);

        i++;
    }

    if (!IsChannelMute(AV_SOUND_CHANNEL)) {
        if (lnch == 0)
            PlayAudio("wh.ogg",0);
        keep_going = 1;
        while (keep_going) {
            if (AnimSoundCheck())
                keep_going = 0;

            if (bioskey(0) || grGetMouseButtons())
            {
                av_silence (AV_SOUND_CHANNEL);
                keep_going = 0;
            }

            av_block ();
            if (Data->Def.Sound==1) UpdateAudio();
            if (!BABY && BIG==0) {
                Tick(plr);
                gr_maybe_sync ();
            }
        }
    }

    fclose(ffin);  // Specs: babypicx.cdr
    mm_close(&vidfile);
    video_rect.h = 0;
    video_rect.w = 0;
    DEBUG1("<-PlaySequence()");
}

void Tick(char plr)
{
 static int Sec=1,Min=0,Hour=5,Day=5;
 int g,change=0;
 double now;
 static double last;

 //: Specs: reset clocks
 if (plr==2) {
  Sec=1;
  Min=0;
  Hour=5;
  Day=5;
  return;
 }

 now = get_time ();
 if (now - last < .1)
     return;
 last = now;

 for (g=3;g>-1;g--)
  {
   change=0;
   if (g==3 && Hour==7) change=1;
    else if (g==2 && Min==7) change=1;
     else if (g==1 && Sec==7) change=1;
      else if (g==0) change=1;
   if (change==1)
    {
     switch(g)
      {
       case 3:Clock(plr,3,0,Day);if (Day==7) Day=0; else Day++;Clock(plr,3,1,Day);
       case 2:Clock(plr,2,0,Hour);if (Hour==7) Hour=0; else Hour++;Clock(plr,2,1,Hour);
       case 1:Clock(plr,1,0,Min);if (Min==7) Min=0; else Min++;Clock(plr,1,1,Min);
       default:Clock(plr,0,0,Sec);if (Sec==7) Sec=0; else Sec++;Clock(plr,0,1,Sec);break;
      };
    };
 };
 return;
}

void Clock(char plr,char clck,char mode,char tm)
{
 unsigned sx,sy;

 sx = 0; /* XXX check uninitialized */

 //: Specs: clock y value
 if (plr==0) sy=108;
  else sy=121;
 //: Specs: color 
 if (mode==0) mode=3;
  else mode=4;
 //: Specs: clock x_value
 if (clck==0) sx=147;
  else if (clck==1) sx=157;
   else if (clck==2) sx=168;
    else if (clck==3) sx=178;

 switch(tm)
  {
   case 0:grPutPixel(sx,sy-1,mode);grPutPixel(sx,sy-2,mode);break;
   case 1:grPutPixel(sx+1,sy-1,mode);break;
   case 2:grPutPixel(sx+1,sy,mode);grPutPixel(sx+2,sy,mode);break;
   case 3:grPutPixel(sx+1,sy+1,mode);break;
   case 4:grPutPixel(sx,sy+1,mode);grPutPixel(sx,sy+2,mode);break;
   case 5:grPutPixel(sx-1,sy+1,mode);break;
   case 6:grPutPixel(sx-1,sy,mode);grPutPixel(sx-2,sy,mode);break;
   case 7:grPutPixel(sx-1,sy-1,mode);break;
   default:break;
  };
 av_need_update_xy(sx - 2, sy - 2, sx + 2, sy - 2);
 return;
}

void DoPack(char plr,FILE *ffin,char mode,char *cde,char *fName)
{
 int i,x,y,try,which,mx2,mx1;
 GXHEADER boob;
 ui16 *bot,off=0;
 long locl;
 static char kk=0,bub=0;
 char Val1[12],Val2[12],loc;

  memset(Val1,0x00,sizeof Val1);memset(Val2,0x00,sizeof Val2);
  strcpy(Val1,cde);
  if (Val1[0]=='W') Val1[2]='P';  // for planetary steps

  if (bub<2) //4
   {
    mode=3;
    loc=kk;
   }
  else if (bub==2) {   //4
   ++bub;
   loc=kk;
  }
  else {
   bub=0;
   SHTS[0]++;SHTS[1]++;
   SHTS[2]++;SHTS[3]++;
   mx1=maxx(SHTS[0],SHTS[2]);mx2=maxx(SHTS[1],SHTS[3]);
   if (mx1>mx2) loc=(SHTS[0]>SHTS[2]) ? 0 : 2 ;
    else loc=(SHTS[1]>SHTS[3]) ? 1 : 3 ;
   SHTS[loc]=random(3);
   kk=loc;
   return;
  };

   x=(loc==0 || loc==1) ? 6 : 246;
   y=(loc==0 || loc==2) ? 5+2*plr: 57+plr*9;
   off=64+loc*16;
   GV(&boob,68,46);
   bot=(ui16 *) boob.vptr;

  //:::::::::::::::::::::::::::::::
  //Specs: which holds baby frame :
  //:::::::::::::::::::::::::::::::
  if (mode==3) {
   which=580+bub; //Specs: static frames
   ++bub;
  }
  else if (mode==1) {
   try=0;which=0;
   while (try<SCND_TABLE)
    {
     if (xstrncasecmp(fName,Mob2[try].Name,strlen(Mob2[try].Name))==0) break;
      else try++;
    };
   if (try>=SCND_TABLE) which=415+random(25);
    else
     {
      if (Val1[0]!='#')
       switch(Mob2[try].idx)
        {
         case 0:strcat(Val1,"0\0");break;
         case 1:strcat(Val1,"1\0");break;
         case 2:strcat(Val1,"2\0");break;
         case 3:strcat(Val1,"3\0");break;
         case 4:strcat(Val1,"0\0");break;
         case 5:strcat(Val1,"1\0");break;
         case 6:strcat(Val1,"2\0");break;
         case 7:strcat(Val1,"0\0");break;
         case 8:strcat(Val1,"1\0");break;
         case 9:strcat(Val1,"2\0");break;
         case 10:strcat(Val1,"0\0");break;
         case 11:strcat(Val1,"1\0");break;
         default:which=415+random(25);
        }
      if (which==0) {
       try=0;
       while (try<CLIF_TABLE)
        {
         strcpy(Val2,&Mob[try].Code[0]);
         if (xstrncasecmp(Val1,Val2,strlen(Val1))==0) break;
          else try++;
        };
        if (try>=CLIF_TABLE) which=415+random(25);
         else
          {  
           which=random(Mob[try].Qty);
           if (which>=10)
            {
             locl=((which-(which%10))/10)-1;
             which=Mob[try].List[which%10];
            }
           else which=Mob[try].List[which];
          }
       }
     }
  }
  else {
   try=0;
   while (try<NORM_TABLE)
    {
     strcpy(Val2,&Mob[try].Code[0]);
     if (strncmp(Val1,Val2,strlen(Val2))==0) break;
      else try++;
    };
   if (try>=NORM_TABLE) which=415+random(25);
    else
     {  
      which=random(Mob[try].Qty);
      if (which>=10)
       {
        locl=((which-(which%10))/10)-1;
        which=Mob[try].List[which%10];
       }
      else which=Mob[try].List[which];
    }
  };

  //Specs: which holds baby num
  locl=(long) 1612*which; 
  if (which<580) memset(&pal[off*3],0x00,48);
  if(loc!=0 && which<580) {VBlank();gxSetDisplayPalette(pal);}
  fseek(ffin,(long)locl,SEEK_SET);
  fread(&pal[off*3],48,1,ffin);
  fread(boob.vptr,1564,1,ffin);
  for (i=0;i<782;i++) {
   bot[i+782]=((bot[i]&0xF0F0)>>4);
   bot[i]=(bot[i]&0x0F0F);
  };
  for (i=0;i<1564;i++) {
   boob.vptr[i]+=off;
   boob.vptr[1564+i]+=off;
  };
  VBlank();
  gxPutImage(&boob,gxSET,x,y,0);
  VBlank();
  gxSetDisplayPalette(pal);
  DV(&boob);
}



void InRFBox(int a, int b, int c, int d, int col)
{
   InBox(a,b,c,d);RectFill(a+1,b+1,c-1,d-1,col);
   return;
}

void GuyDisp(int xa,int ya,struct Astros *Guy)
{
   grSetColor(1);
   assert(Guy != NULL);
   PrintAt(xa,ya,Guy->Name);
   switch(Guy->Status) {
      case 1: grSetColor(9);PrintAt(0,0," : DEAD");break;
      case 2: grSetColor(12);PrintAt(0,0," : INJ");break;
      case 3: grSetColor(12);PrintAt(0,0," : INJ");break;
      default: grSetColor(13);PrintAt(0,0," : OK");break;
      }
  return;
}


char FailureMode(char plr,int prelim,char *text)
{
  int i,j,k;
  FILE *fin;
  double last_secs;
  char save_screen[64000], save_pal[768];

  FadeOut(2,pal,10,0,0);
 
  // this destroy's what's in the current page frames
  memcpy (save_screen, screen, 64000);
  memcpy (save_pal, pal, 768);

  gxClearDisplay(0,0);
  ShBox(0,0,319,22);IOBox(243,3,316,19);InBox(3,3,30,19);FlagSm(plr,4,4);
  grSetColor(1);PrintAt(258,13,"CONTINUE");

  ShBox(0,24,319,199);

  InRFBox(4,27,153,58,0);

  grSetColor(1);
  MisStep(9,34,Mev[STEP].loc);
  PrintAt(9,41,"MISSION STEP: ");DispNum(0,0,STEP);
  PrintAt(9,48,Mev[STEP].E->Name);
  PrintAt(0,0," CHECK");

   if (strncmp(Mev[STEP].E->Name,"DO",2)==0) {
      if (Mev[STEP].loc==1 || Mev[STEP].loc==2)
         DispNum(9,55,Mev[STEP].E->MSF);
      else DispNum(9,55,Mev[STEP].E->MisSaf);
      }
   else DispNum(9,55,Mev[STEP].E->MisSaf);


  PrintAt(0,0," VS ");DispNum(0,0,Mev[STEP].dice);

  DispBig(40,5,"STEP FAILURE",0,-1);

//  InRFBox(4,61,153,109,0); // Image, Small Left Side

  // Status/Scrub
  InRFBox(4,112,153,128,0);
  // Display Result of Mission
  if (prelim==3) {
    ShBox(6,114,151,126);
    grSetColor(1); PrintAt(8,122,"RECOMMEND MISSION SCRUB");
  } else {
    grSetColor(9);
    switch(prelim) {
      case 0: grSetColor(15);PrintAt(8,122,"ALL SYSTEMS ARE GO");break;
      case 1: PrintAt(8,122,"FAILURE: USE ALTERNATE");break;
      case 2: PrintAt(8,122,"FURTHER PROBLEMS: RECHECK");break;
      case 4: PrintAt(8,122,"CREW STRANDED IN SPACE");break;
      case 5: PrintAt(8,122,"MISSION FAILURE");break;
      case 6: grSetColor(15);PrintAt(8,122,"MISSION SUCCESS");break;
      case 7: PrintAt(8,122,"STEP FAILURE");break;
      case 8: PrintAt(8,122,"CATASTROPHIC FAILURE");break;
      case 9: PrintAt(8,122,"CREW INJURIES");break;
      default: break;
    };
  };


  // Flight Crew Info
  InRFBox(4,131,315,151,0);// Astro List/Crew
  grSetColor(12);PrintAt(14,139,"CREW");PrintAt(9,146,"STATUS");


   if (MANNED[Mev[STEP].pad]>0) GuyDisp(49,138,MA[Mev[STEP].pad][0].A);
   if (MANNED[Mev[STEP].pad]>1) GuyDisp(49,146,MA[Mev[STEP].pad][1].A);
   if (MANNED[Mev[STEP].pad]>2) GuyDisp(182,138,MA[Mev[STEP].pad][2].A);
   if (MANNED[Mev[STEP].pad]>3) GuyDisp(182,146,MA[Mev[STEP].pad][3].A);

   if (MANNED[Mev[STEP].pad]==0) {
     if (((Mev[STEP].E->ID[1]==0x35 || Mev[STEP].E->ID[1]==0x36) && STEP>5)) {  // if LEMS
        GuyDisp(49,138,MA[1][LM[1]].A);
        if (EVA[1]!=LM[1]) GuyDisp(49,146,MA[1][EVA[1]].A);
     }
     else if (strncmp(Mev[STEP].E->ID,"M2",2)==0) {
       GuyDisp(49,138,MA[other(Mev[STEP].pad)][0].A);
       GuyDisp(49,146,MA[other(Mev[STEP].pad)][1].A);
       GuyDisp(182,138,MA[other(Mev[STEP].pad)][2].A);
     }
     else if (strncmp(Mev[STEP].E->ID,"M3",2)==0) {  // EVA
        GuyDisp(49,138,MA[1][EVA[1]].A);
     }
     else {grSetColor(1);PrintAt(49,138,"UNMANNED");}
   };

   grSetColor(11);  // Specialist
   if (MANNED[Mev[STEP].pad]>0) {
      switch (Mev[STEP].ast) {
          case 0: grDrawLine(49,140,172,140);break;
          case 1: grDrawLine(49,148,172,148);break;
          case 2: grDrawLine(182,140,305,140);break;
          case 3: grDrawLine(182,148,305,148);break;
          default: break;
     };
      };

  // Display Failure Text
  InRFBox(4,154,315,196,0);
  grSetColor(11);j=0;k=163;grMoveTo(12,k);
  for (i=0;i<200;i++) {
    if (j>40 && text[i]==' ') {k+=7;j=0;grMoveTo(12,k);}
    else DispChr(text[i]);
    j++;if (text[i]=='\0') break;
  };


  // Failure Diagram
  InRFBox(162,28,312,42,10);
  grSetColor(11);PrintAt(181,37," EQUIPMENT DETAIL");

  InRFBox(162,46,312,127,0); // Image is 188,49

  // Place Image Here
  // Build Name
  memset(Name,0x00,sizeof Name);

  VerifyData();
  if (plr==0) strcat(Name,"US");
  else strcat(Name,"SV");
  strncat(Name,Mev[STEP].E->ID,2);

   if(Mev[STEP].Class==6) {
      strcpy(&Name[0],"XCAM\0");
      }

   strcat(Name,".BZ\0");

  fin=OpenAnim(Name);
  StepAnim(188,47,fin);

  last_secs = get_time ();

  FadeIn(2,pal,10,0,0);
  

    WaitForMouseUp();
    key = 0;
  while(bioskey(1)) bioskey(0);

  while (1)
  {
    if (get_time () - last_secs > .55) {
        last_secs = get_time ();
        StepAnim(188,47,fin);
    }

    GetMouse();
    if ((x>=245 && y>=5 && x<=314 && y<=17 && mousebuttons>0) || key==K_ENTER)
    {
       InBox(245,5,314,17);
       WaitForMouseUp();
       OutBox(245,5,314,17);delay(10);
       FadeOut(2,pal2,10,0,0);
     //  DrawControl(plr);
       CloseAnim(fin);

       memcpy (screen, save_screen, 64000);
       memcpy (pal, save_pal, 768);
       screen_dirty = 1;

       FadeIn(2,pal,10,0,0);
       key=0;
       return 0;  /* Continue */
    };
    if ((x>=6 && y>=114 && x<=151 && y<=126 && prelim==3 && mousebuttons>0) || (prelim==7 && key=='S'))
    {
       InBox(6,114,151,126);
       WaitForMouseUp();
       OutBox(6,114,151,126);delay(10);
       FadeOut(2,pal2,10,0,0);
    //   DrawControl(plr);
       CloseAnim(fin);

       memcpy (screen, save_screen, 64000);
       memcpy (pal, save_pal, 768);
       screen_dirty = 1;
       FadeIn(2,pal,10,0,0); key=0;
       return 1;  /* Scrub */
    };
  };
}

FILE *OpenAnim(char *fname)
{
   FILE  *fin;
   struct TM {
      char ID[4];
      long offset;
      long size;
      } AIndex;

    fin=open_gamedat("LIFTOFF.ABZ");
    if (!fin)
    {                                  
        WARNING1("can't access file LIFTOFF.ABZ");
        return fin;
    }
   fread(&AIndex,sizeof AIndex,1,fin);
   while (strncmp(AIndex.ID,fname,4)!=0) {
      fread(&AIndex,sizeof AIndex,1,fin);
      }
            Swap32bit(AIndex.offset);
            Swap32bit(AIndex.size);
   fseek(fin,AIndex.offset,SEEK_SET);

      fread(&AHead,sizeof AHead,1,fin);
            Swap16bit(AHead.w);
            Swap16bit(AHead.h);
      fread(&pal[AHead.cOff*3],AHead.cNum*3,1,fin);
      aLoc=ftell(fin);
      tFrames=AHead.fNum;
      cFrame=0;

   GV(&dply,AHead.w,AHead.h);
   return fin;
}

int CloseAnim(FILE *fin)
{
   DV(&dply);
   tFrames=cFrame=0;
   aLoc=0;
   fclose(fin);
   return 0;
}

int StepAnim(int x,int y,FILE *fin)
{
   int mode;

   mode = 0; /* XXX check uninitialized */

   if (cFrame==tFrames) {
      fseek(fin,aLoc,SEEK_SET);
      cFrame=0;
      }
   if (cFrame<tFrames) {
       fread(&BHead,sizeof BHead,1,fin);
         Swap32bit(BHead.fSize);
       fread(vhptr.vptr,BHead.fSize,1,fin);
       switch(BHead.cType) {
           case 0: memcpy(dply.vptr,vhptr.vptr,BHead.fSize); mode=gxSET;break;
       case 1: RLED_img(vhptr.vptr,dply.vptr,BHead.fSize,dply.w,dply.h); mode=gxSET; break;
       case 2: RLED_img(vhptr.vptr,dply.vptr,BHead.fSize,dply.w,dply.h); mode=gxXOR; break;
           default: break;
           }
      
      dply.vptr[AHead.w*AHead.h-1]=dply.vptr[AHead.w*AHead.h-2];
        gxPutImage(&dply,mode,x,y,0);
      
      cFrame++;
   }
   return (tFrames-cFrame);  //remaining frames
}

---