place.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
*/
#include "race.h"
#include "gamedata.h"
#include "Buzz_inc.h"
#include "externs.h"
#include "av.h"
#include "utils.h"

extern char IDT[5],IKEY[5],AL_CALL,AI[2];
extern struct mStr Mis;
extern char Option,MAIL;

void BCDraw(int y)
{
  ShBox(23,y,54,20+y);//ShBox(56,y,296,20+y);
  return;
}

int MChoice(char qty,char *Name)
{
    PatchHdr P;
    GXHEADER local,local2;
    int starty,coff;
    int i,j;
    char poff;
    FILE *in;


    //FadeOut(2,pal,30,0,0);

    ShBox(21,9,180,34);
    ShBox(21,36,180,61);
    ShBox(21,63,180,88);
    ShBox(21,90,180,115);
    ShBox(21,117,180,142);
    ShBox(21,144,180,169);

    DispBig(34,15,"NEW GAME",1,0);
    DispBig(34,42,"OLD GAME",1,0);
    DispBig(34,69,"MODEM",1,0);
    DispBig(34,96,"PLAY BY MAIL",1,0);
    DispBig(34,123,"CREDITS",1,0);
    DispBig(34,150,"EXIT",1,0);

    in=sOpen("BEGGAM.BUT","rb",0);
    poff=0;coff=128;
    fread(&pal[coff*3],384,1,in);
    fseek(in,(poff)*(sizeof P),SEEK_CUR);
    fread(&P,sizeof P,1,in);
    SwapPatchHdr(&P);

    fseek(in,P.offset,SEEK_SET);
    GV(&local,P.w,P.h); 
    GV(&local2,P.w,P.h);
    gxGetImage(&local2,0,0,P.w-1,P.h-1,0);
    fread(local.vptr,P.size,1,in);
    fclose(in);

    for (j=0;j<P.size;j++)
        if(local.vptr[j]!=0) local2.vptr[j]=local.vptr[j]+coff;
    gxPutImage(&local2,gxSET,0,0,0);
    DV(&local); DV(&local2);

    ShBox(21,9,180,34);
    ShBox(21,36,180,61);
    ShBox(21,63,180,88);
    ShBox(21,90,180,115);
    ShBox(21,117,180,142);
    ShBox(21,144,180,169);

    DispBig(34,15,"NEW GAME",1,0);
    DispBig(34,42,"OLD GAME",1,0);
    DispBig(34,69,"MODEM",1,0);
    DispBig(34,96,"PLAY BY MAIL",1,0);
    DispBig(34,123,"CREDITS",1,0);
    DispBig(34,150,"EXIT",1,0);

    FadeIn(2,pal,30,0,0);
    WaitForMouseUp();
    j=-1;starty=9;
    while(j==-1)
    {
        GetMouse();
        for (i=0;i<qty;i++) // keyboard stuff
            if ((char)key==Name[i*22])
            {

                InBox(21,starty+27*i,180,starty+25+27*i);

                delay(50);
                j=i+1;key=0;
            }
        if (mousebuttons!=0)
        {
            for (i=0;i<qty;i++)
                if (x>=21 && x<=180 && y>=starty+27*i && y<=starty+25+27*i)
                {

                    InBox(21,starty+27*i,180,starty+25+27*i);

                    delay(50);
                    j=i+1;
                }
        }
    }   //while(j=...

    return j;
}

int BChoice(char plr,char qty,char *Name,char *Imx)  // Name[][22]
{
  int i,j,starty=100;
  GXHEADER local;
  FILE *fin=sOpen("PORTBUT.BUT","rb",0);
  
  //FadeOut(2,pal,10,0,0);

  GV(&local,30,19);

  starty-=(qty*23/2);

  /* hard-coded magic numbers, yuck */
  for (i=0;i<qty;i++) {
     BCDraw(starty+23*i);
     DispBig(60,starty+4+23*i,&Name[i*22],1,0);
    fseek(fin,Imx[i]*570,SEEK_SET);
    fread((char *)local.vptr,570,1,fin);
    gxPutImage(&local,gxSET,24,starty+1+23*i,0);
  }
  fclose(fin);
  DV(&local);

  av_need_update_xy(23, starty, 60+22*15, starty+23*i);
  
  // FadeIn(2,pal,10,0,0);
    WaitForMouseUp();
  j=-1;
  while(j==-1) {
    av_block ();
    GetMse(plr,0);
    for (i=0;i<qty;i++) // keyboard stuff
       if ((char)key==Name[i*22])
    {
      
      InBox(23,starty+23*i,54,starty+20+23*i);
      
      delay(50);
      j=i+1;key=0;
    }
    if (mousebuttons!=0) {
      for (i=0;i<qty;i++)
    if ((x>=23 && x<=54 && y>=starty+23*i && y<=starty+20+23*i) ||
        (x>56 && y>starty+23*i && x<296 && y<starty+20+23*i))
    {
      
      InBox(23,starty+23*i,54,starty+20+23*i);
      
      delay(50);
      j=i+1;
    }
    }

  }
  return j;
}

void PatchMe(char plr,int x,int y,char prog,char poff,unsigned char coff) 
{
    /* 
     * XXX: HACK WARNING.  In my datafiles some Patch entries have
     * errors in widths. That causes malformed images, though the data
     * is there.  I corrected the problem here (look for do_fix).
     * Someone else might also run into this problem, but maybe only
     * my data files are corrupted. For correct data behavior is not
     * changed.
     */
    PatchHdrSmall P;
  GXHEADER local,local2;
  unsigned int j, do_fix = 0;
  FILE *in;
  in=sOpen("PATCHES.BUT","rb",0);
  fread(&pal[coff*3],96,1,in);
  fseek(in,(50*plr+prog*10+poff)*(sizeof P),SEEK_CUR);
  fread(&P,sizeof P,1,in);
    SwapPatchHdrSmall(&P);
  fseek(in,P.offset,SEEK_SET);
  if (P.w * P.h != P.size)
  {
      /* fprintf(stderr, "PatchMe(): w*h != size (%hhd*%hhd == %d != %hd)\n",
              P.w, P.h, P.w*P.h, P.size); */
      if ((P.w+1) * P.h == P.size) {
          /* fprintf(stderr, "PatchMe(): P.w++ saves the day!\n"); */
          P.w++;
          do_fix = 1;
      }
      P.size = P.w * P.h;
  }
  GV(&local,P.w,P.h); GV(&local2,P.w,P.h);
  gxGetImage(&local2,x,y,x+P.w-1,y+P.h-1,0);

  fread(local.vptr, P.size, 1, in);
  fclose(in);
  //RLED(buffer+20000,local.vptr,P.size);
    for (j = 0; j < P.size; j++)
        if (local.vptr[j] != 0) 
        {
            if (do_fix && ((j % P.w) + 1 == (unsigned char)P.w))
                continue;
            local2.vptr[j] = local.vptr[j] + coff;
        }
  
  gxPutImage(&local2,gxSET,x,y,0);
  DV(&local); DV(&local2);
  return;
}

void
AstFaces(char plr, int x, int y, char face)
{
    long offset;
    GXHEADER local, local2, local3;
    int fx, fy;
    unsigned int j;
    int face_offset = 0;
    FILE *fin;

    memset(&pal[192], 0x00, 192);
    fin = sOpen("FACES.BUT", "rb", 0);
    fseek(fin, 87 * sizeof(long), SEEK_SET);
    fread(&pal[192], 96, 1, fin);
    face_offset = ((int)face) * sizeof(i32);
    fseek(fin, face_offset, SEEK_SET);  // Get Face
    fread(&offset, sizeof(long), 1, fin);
    Swap32bit(offset);
    fseek(fin, offset, SEEK_SET);
    GV(&local, 18, 15);
    fread(local.vptr, 18 * 15, 1, fin);

    
    face_offset = ((int)(85+plr)) * sizeof(i32);
    fseek(fin, face_offset, SEEK_SET);  // Get Helmet
    fread(&offset, sizeof(long), 1, fin);
    Swap32bit(offset);
    fseek(fin, offset, SEEK_SET);
    GV(&local2, 80, 50);
    GV(&local3, 80, 50);
    fread(local2.vptr, 80 * 50, 1, fin);
    fclose(fin);
    memset(local3.vptr, 0x00, 80 * 50);
    if (plr == 0)   { fx = 32; fy = 17; }
    else            { fx = 33; fy = 21; }
    gxVirtualVirtual(&local, 0, 0, local.w - 1, local.h - 1,
            &local3, fx, fy, gxSET);
    for (j = 0; j < 80 * 50; j++)
        if (local2.vptr[j] == 0)
            local2.vptr[j] = local3.vptr[j];
    gxGetImage(&local3, x, y, x + 79, y + 49, 0);
    for (j = 0; j < 80 * 50; j++)
        if (local2.vptr[j] != 0)
            local3.vptr[j] = local2.vptr[j];
    for (j = 0; j < 80 * 50; j++)
        if (local3.vptr[j] != (7 + plr * 3))
            local3.vptr[j] -= 160;
    gxPutImage(&local3, gxSET, x, y, 0);
    DV(&local3);
    DV(&local2);
    DV(&local);                    // deallocate in reverse order
    return;
}


void SmHardMe(char plr,int x,int y,char prog,char planet,unsigned char coff)
{
  PatchHdrSmall P;
  GXHEADER local,local2;
  unsigned int j;
  int do_fix = 0;
  FILE *in;

  in=sOpen("MHIST.BUT","rb",0);
  fread(&pal[coff*3],64*3,1,in);
  if (planet>0) fseek(in,(planet-1)*(sizeof P),SEEK_CUR);
  else fseek(in,(7+plr*8+prog)*(sizeof P),SEEK_CUR);
  fread(&P,sizeof P,1,in);
    SwapPatchHdrSmall(&P);
  fseek(in,P.offset,SEEK_SET);
  if (P.w * P.h != P.size) {
      /* fprintf(stderr, "SmHardMe(): w*h != size (%hhd*%hhd == %d != %hd)\n",
              P.w, P.h, P.w*P.h, P.size); */
      if ((P.w+1) * P.h == P.size) {
          /* fprintf(stderr, "SmHardMe(): P.w++ saves the day!\n"); */
          P.w++;
          do_fix = 1;
      }
      P.size = P.w * P.h;
  }
  GV(&local,P.w,P.h); GV(&local2,P.w,P.h);
  gxGetImage(&local2,x,y,x+P.w-1,y+P.h-1,0);
  fread(local.vptr,P.size,1,in);
  fclose(in);
  //RLED(buffer+20000,local.vptr,P.size);
    for (j = 0; j < P.size; j++)
        if (local.vptr[j] != 0) 
        {
            if (do_fix && ((j % P.w) + 1 == (unsigned char)P.w))
                continue;
            local2.vptr[j] = local.vptr[j] + coff;
        }
  gxPutImage(&local2,gxSET,x,y,0);
  DV(&local); DV(&local2);
  if (planet>0 && prog==6) SmHardMe(plr,x+planet*2,y+5,prog,0,coff);
  if (planet==7 || planet==6) SmHardMe(plr,x+planet*2,y+5,prog,0,coff);
  return;
}

void BigHardMe(char plr,int x,int y,char hw,char unit,char sh,unsigned char coff)
{
    SimpleHdr table;
  char ch;
  GXHEADER local,local2;
  long size;
  unsigned int j, n;
  FILE *in,*fin;
  struct TM {
      char ID[4];
      long offset;
      long size;
      } AIndex;

  extern struct AnimType AHead;
  extern struct BlockHead BHead;

  
   if (sh==0) {
      size=(plr*32)+(hw*8)+unit;
      in=sOpen("RDFULL.BUT","rb",0);
      fseek(in,size*sizeof_SimpleHdr,SEEK_CUR);
      fread_SimpleHdr(&table,1,in);
      fseek(in,table.offset,SEEK_SET);
      GV(&local,104,77);GV(&local2,104,77);
      fread(&pal[coff*3],96*3,1,in);  // Individual Palette
      fread(local2.vptr,table.size,1,in);  // Get Image
      fclose(in);
      RLED_img(local2.vptr,local.vptr,table.size,local.w,local.h);

      n = gxVirtualSize(gxVGA_13,104,77);
      for (j=0;j<n;j++) local.vptr[j]+=coff;

      local.vptr[n - 1]=0;
      if (FADE==0) gxSetDisplayPalette(pal);
      gxPutImage(&local,gxSET,x,y,0);
      DV(&local); DV(&local2);
      }
   else {
      memset(Name,0x00,sizeof Name);
      if (plr==0) strcat(Name,"US");
      else strcat(Name,"SV");
      ch=0x30+unit;

      switch(hw) {
     case 0: strcat(Name,"P");
         break;
     case 1: strcat(Name,"R");
         break;
     case 2: strcat(Name,"C");
//       if (strncmp(Data->P[plr].Manned[1].Name,"ZOND",4)==0) ch=0x37;
         break;
     case 3: strcat(Name,"M");
         break;
     }

      Name[3]=ch;

      fin=sOpen("LIFTOFF.ABZ","rb",0);
      fread(&AIndex,sizeof AIndex,1,fin);
      while (strncmp(AIndex.ID,Name,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[coff*3],64*3,1,fin);
      fseek(fin,3*(AHead.cNum-64),SEEK_CUR);
      GV(&local,AHead.w,AHead.h);

      fread(&BHead,sizeof BHead,1,fin);
            Swap32bit(BHead.fSize);
      fread(vhptr.vptr,BHead.fSize,1,fin);
      RLED_img(vhptr.vptr,local.vptr,BHead.fSize,local.w,local.h);
      n = gxVirtualSize(gxVGA_13,AHead.w,AHead.h);
      for (j=0;j<n;j++) {
          if (local.vptr[j]!=0) local.vptr[j]-=(128-coff);
      }
      local.vptr[0]=0x00;
      
      if (FADE==0) gxSetDisplayPalette(pal);
      gxVirtualDisplay(&local,0,0,x+1,y,x+102,y+76,0);
       //gxPutImage(&dply,mode,x,y,0);
      

      DV(&local);
      fclose(fin);
      }
  return;
}

void
DispHelp(char top, char bot, char *txt)
{
    int i, pl = 0;

    i = 0;

    while (i++ < top)
    {
        if (txt[i * 42] == (char) 0xcc)
            grSetColor(txt[i * 42 + 1]);
    }
    i = top;
    RectFill(38, 49, 260, 127, 3);
    while (i <= bot && pl < 11)
    {
        if (txt[i * 42] == (char) 0xCC)
        {
            grSetColor(txt[i * 42 + 1]);
            PrintAt(45, 55 + 7 * pl, &txt[i * 42 + 2]);
        }
        else
        {
            PrintAt(45, 55 + 7 * pl, &txt[i * 42]);
        }
        pl++;
        i++;
    }

    return;
}

int Help(char *FName)
{
  int i,j,line,top=0,bot=0,plc=0;
  char *Help,*NTxt,mode;
  int fsize;
  GXHEADER local;
  FILE *fin;
  i32 count;
  struct Help {
    char Code[6];
    i32 offset;
    i16 size;
  } Pul;

  mode = 0; /* XXX check uninitialized */
  NTxt = NULL; /* XXX check uninitialized */

  if (strncmp(&FName[1],"000",3)==0) return 0;

  fin=sOpen("HELP.CDR","rb",0);
  fread(&count,sizeof count,1,fin);
  fread(&Pul,sizeof Pul,1,fin);
    Swap32bit(count);
    
  i=0;
  while (xstrncasecmp(Pul.Code,FName,4)!=0 && i<count) {
     fread(&Pul,sizeof Pul,1,fin);
     i++;
  }
  if (i==count) {fclose(fin);return 0;}
    Swap32bit(Pul.offset);
    Swap16bit(Pul.size);

  AL_CALL=1;
  Help=xmalloc(Pul.size);
  fseek(fin,Pul.offset,SEEK_SET);
  fread(Help,Pul.size,1,fin);
  fclose(fin);

  // Process File
  i=0;j=0;line=0;fsize=1;
  
  while(line<fsize) {
   if (Help[i]==0x3B) while(Help[i++]!=0x0a);  // Remove Comments
   else if (Help[i]==0x25) {  // Percent for line qty
      i++;
      fsize=10*(Help[i]-0x30)+(Help[i+1]-0x30)+1;
      bot=fsize;

      NTxt=xmalloc((unsigned int) (42*fsize));
      memset(NTxt,0x00,(unsigned int)(42*fsize));
      j=line*42;  // should be 0
      mode=Help[i+3]-0x30;
      i+=6;
      }
   else if (Help[i]==0x2e) {  // Period
      i++;
      NTxt[j++]=0xcc;
      NTxt[j++]=(Help[i]-0x30)*100+(Help[i+1]-0x30)*10+(Help[i+2]-0x30);
      i+=5;
      }
   else {   // Text of Line
      while (Help[i]!=0x0d) NTxt[j++]=Help[i++];
      NTxt[j]=0x00;
      i+=2;line++;
      j=line*42;
      }
   }
  free(Help);

  key=0;
  GV(&local,250,128);
  gxGetImage(&local,34,32,283,159,0);
  av_need_update_xy(34,32,283,159);

  ShBox(34,32,283,159);
  InBox(37,35,279,45); InBox(37,48,261,128);
  InBox(264,48,279,128);RectFill(265,49,278,127,0);
  ShBox(266,50,277,87); UPArrow(268,56);
  ShBox(266,89,277,126);DNArrow(268,95);
  RectFill(38,36,278,44,7);
  if (mode==0) {
   IOBox(83,131,241,156);
   DispBig(119,137,"CONTINUE",1,0);
   }
  else {
   IOBox(83,131,156,156);
   IOBox(168,131,241,156);
   DispBig(88,137,"YES",1,0);
   DispBig(175,137,"NO",1,0);
   }

  // Display Title
  grSetColor(NTxt[1]);
  fsize=strlen(&NTxt[2]);
  PrintAt(157-fsize*3,42,&NTxt[2]);
  top=plc=1;
  DispHelp(plc,bot-1,&NTxt[0]);
  av_sync();

    WaitForMouseUp();
  i=2;
  while(i==2) {
    GetMouse();
    if (mode==0 && ((x>85 && y>=133 && x<=239 && y<=154 && mousebuttons>0) || (key=='C' || key==K_ENTER))) {
      InBox(85,133,239,154);i=0;
            WaitForMouseUp();
            key = 0;
      // Continue Response
    }
    if (mode==1 && ((x>=85 && y>=133 && x<=154 && y<=154 && mousebuttons>0) || key=='Y')) {
      InBox(85,133,154,154);i=1;
            WaitForMouseUp();
            key = 0;
      // Yes Response
    }
    if (mode==1 && ((x>170 && y>=133 && x<=239 && y<=154 && mousebuttons>0) || key=='N')) {
      InBox(170,133,239,154);i=-1;
            WaitForMouseUp();
            key = 0;
      // No Response
    }
    if (plc>top && ((x>=266 && y>50 && x<=277 && y<=87 && mousebuttons>0) || (key>>8)==72 ))
      {
       InBox(266,50,277,87);
      // WaitForMouseUp();
       plc--;
       DispHelp(plc,bot,&NTxt[0]);
       OutBox(266,50,277,87);
       key=0;
      }  // Up
    if ((plc+11)<bot && ((x>=266 && y>89 && x<=277 && y<=126 && mousebuttons>0) || (key>>8)==80 ))
      {
       InBox(266,89,277,126);
      // WaitForMouseUp();
       plc++;
       DispHelp(plc,bot,&NTxt[0]);
       OutBox(266,89,277,126);
       key=0;
      }  // Down

  }
  
  gxPutImage(&local,gxSET,34,32,0);
  free(NTxt);
  DV(&local);
  
  AL_CALL=0;
  return i;
}


void Draw_Mis_Stats(char plr, char index, int *where,char mode)
{
  int j,k,mcode;
  int let;
  

  if (mode==0) InBox(245,5,314,17);

  ShBox(6,30,209,168);  // Left Side
  RectFill(10,34,205,44,9);InBox(9,33,206,45);
  RectFill(10,49,205,119,7);InBox(9,48,206,120);
  RectFill(10,124,205,164,7);InBox(9,123,206,165);
  ShBox(62,117,154,127);grSetColor(1);PrintAt(80,124,"FLIGHT CREW");
  grSetColor(11);PrintAt(58,41,"MISSION INFORMATION");
  PrintAt(12,104,"MISSION DURATION: ");
  Name[0]=(char)Data->P[plr].History[index].Duration+'A'-1;
  Name[1]=0;
  if (Name[0] >= 'A') PrintAt(0,0,Name);
  else PrintAt(0,0,"NONE");
  PrintAt(12,112,"PRESTIGE EARNED: ");
  if ((MAIL==-1 && Option==-1) || mode==0) DispNum(0,0,Data->P[plr].History[index].Prestige);
   else PrintAt(0,0,"PENDING");
  mcode=Data->P[plr].History[index].MissionCode;

  GetMisType(mcode);

  grSetColor(1);
  PrintAt(12,56,"MISSION NAME: ");
  PrintAt(0,0,(char *)Data->P[plr].History[index].MissionName);
  PrintAt(12,64,"MISSION TYPE:");
  grSetColor(11);
  PrintAt(15,72,Mis.Abbr);
  grSetColor(1);
  PrintAt(12,80,"RESULT: ");
  if(Data->P[plr].History[index].Duration!=0) {

      if (Data->P[plr].History[index].spResult==4197)
        PrintAt(0,0,"PRIMARY CREW DEAD");
      else if (Data->P[plr].History[index].spResult==4198)
        PrintAt(0,0,"SECONDARY CREW DEAD");
      else if (Data->P[plr].History[index].spResult==4199)
        PrintAt(0,0,"BOTH CREWS DEAD");
      else PrintAt(0,0,((Data->P[plr].History[index].spResult<500) || (Data->P[plr].History[index].spResult>=5000)) ? "SUCCESS" : 
        (Data->P[plr].History[index].spResult<1999) ? "PARTIAL FAILURE" :
        (Data->P[plr].History[index].spResult==1999) ? "FAILURE" :
        (Data->P[plr].History[index].spResult<3000) ? "MISSION INJURY" :
        (Data->P[plr].History[index].spResult<4000) ? "MISSION DEATH" :
        "ALL DEAD");
  }
  else if (Data->P[plr].History[index].Event==0)
     PrintAt(0,0,(Data->P[plr].History[index].spResult == 1)?"SUCCESS":"FAILURE");
  else if (Data->P[plr].History[index].Event>0) {
     PrintAt(0,0,"ARRIVE IN ");
     DispNum(0,0,Data->P[plr].History[index].Event);
     PrintAt(0,0," SEASON");
     if (Data->P[plr].History[index].Event>=2) PrintAt(0,0,"S");
  }

  RectFill(210,30,211,168,0); // Clear any left over stuff
  ShBox(211,30,313,168); // Right Side
  RectFill(215,34,309,44,9);InBox(214,33,310,45);
  grSetColor(11);PrintAt(225,41,"MISSION REPLAY");
  InBox(214,55,310,116);

  AbzFrame(plr,index,215,56,94,60,"OOOO",mode);
   
  IOBox(214,134,310,148);grSetColor(1);PrintAt(223,143,"REPLAY MISSION");
  if (mode==0) {
     IOBox(214,151,310,165);
     grSetColor(1);PrintAt(250,160,"EXIT");
  }

  // Crew Stuff
    grSetColor(11);
  if (Data->P[plr].History[index].Man[0][0]==-1 && Data->P[plr].History[index].Man[1][0]==-1)
     PrintAt(13,137,"UNMANNED MISSION");
  else {
    // First Part -- Men
    if (Data->P[plr].History[index].Man[0][0]!=-1) {
        for(j=0;j<4;j++) {
          k=Data->P[plr].History[index].Man[0][j];
          if(k!=-1) PrintAt(13,137+j*7,Data->P[plr].Pool[k].Name);
        }
      let=1;   // Men on Part 1
    }
    else let=0;   // Men not on Part 1
    // Second Part -- Men
    if (Data->P[plr].History[index].Man[1][0]!=-1) {
        for(j=0;j<4;j++) {
          k=Data->P[plr].History[index].Man[1][j];
          if(k!=-1) PrintAt(13+let*100,137+j*7,Data->P[plr].Pool[k].Name);
        }
    }

  }  
  

  if (mode==1) {
     FadeIn(2,pal,10,0,0);
  };

    WaitForMouseUp();
  while(1) {
       GetMouse();
       if (mode==0 && ((x>=216 && y>=153 && x<=308 && y<=163 && mousebuttons==1) || (key==K_ENTER || key=='E')))
       { 
          InBox(216,153,308,153);OutBox(245,5,314,17); 
          WaitForMouseUp();
        if(key>0) delay(150);
          DrawMisHist(plr,where);
        key=0;
          break;
       }
     else if (mode==1 && ((x>=245 && y>=5 && x<=314 && y<=17 && mousebuttons==1) || key==K_ENTER))
     {
        InBox(245,5,314,17);
          WaitForMouseUp();
        if (key>0) delay(150);
          OutBox(245,5,314,17);delay(10);
        if (!AI[plr]) music_stop();
        FadeOut(2,pal,10,0,0);
        key=0;
          break;
     }
       else if ((x>=216 && y>=136 && x<=308 && y<=146 && mousebuttons==1) || (key=='R'))
       {
          InBox(216,136,308,146);
        if (mode==0) InBox(216,153,309,163);
        grSetColor(11);PrintAt(225,125,"PLAYING...");
         
          WaitForMouseUp();
        grSetColor(1);

        if (x==0 && y==0) {
           FILE *tin;
           
           tin=sOpen("REPL.TMP","wb",1); // Create temp image file
           fwrite(pal,sizeof pal,1,tin);
           fwrite(screen,64000,1,tin);
           fclose(tin);
           FadeOut(2,pal,10,0,0);
           memset(screen,0x00,64000);
           FadeIn(2,pal,10,0,0);
           if (Data->P[plr].History[index].MissionCode==10 ||
             Data->P[plr].History[index].MissionCode==12 ||
             Data->P[plr].History[index].MissionCode==13)
            {
             if (Data->P[plr].History[index].Event==0 &&
              Data->P[plr].History[index].spResult==1) 
               switch(Data->P[plr].History[index].MissionCode)
                {
                 case 10:Replay(plr,index,0,0,320,200,(plr==0) ? "WUM1" : "WSM1");break;
                 case 12:Replay(plr,index,0,0,320,200,(plr==0) ? "WUJ1" : "WSJ1");break;
                 case 13:Replay(plr,index,0,0,320,200,(plr==0) ? "WUS1" : "WSS1");break;
                 default:break;
                };
            }
            else Replay(plr,index,0,0,320,200,"OOOO");
           FadeOut(2,pal,10,0,0);
           tin=sOpen("REPL.TMP","rb",1);  // replad temp image file
           fread(pal,sizeof pal,1,tin);
           fread(screen,64000,1,tin);
           fclose(tin);
           FadeIn(2,pal,10,0,0);
           key=0;
           remove_savedat("REPL.TMP");
           
        }
        else {
          //Specs: Planetary Mission Klugge
          if (Data->P[plr].History[index].MissionCode==10 ||
              Data->P[plr].History[index].MissionCode==12 ||
              Data->P[plr].History[index].MissionCode==13)
            {
             if (Data->P[plr].History[index].Event==0 &&
                Data->P[plr].History[index].spResult==1) {
               switch(Data->P[plr].History[index].MissionCode)
                {
                 case 10:Replay(plr,index,215,56,94,60,(plr==0) ? "WUM1" : "WSM1");break;
                 case 12:Replay(plr,index,215,56,94,60,(plr==0) ? "WUJ1" : "WSJ1");break;
                 case 13:Replay(plr,index,215,56,94,60,(plr==0) ? "WUS1" : "WSS1");break;
                 default:break;
                };
              }
             else Replay(plr,index,215,56,94,60,"OOOO");
            }
          else Replay(plr,index,215,56,94,60,"OOOO");
          AbzFrame(plr,index,215,56,94,60,"OOOO",mode);
         }
          OutBox(216,136,308,146);
          if (mode==0) OutBox(216,153,309,163);
          RectFill(212,119,312,127,3);
          key=0;
          
       }; // if

  }; // while
  video_rect.w = 0;
  video_rect.h = 0;

}


// EOF

---