/** info.c *****************/
/*                         */
/* by [RK]                 */
/*                         */
/* Copyright © 1988 by DgA */
/*                         */
/***************************/

/*
FIRM    : Digital Artist (DgA)
OBJECT  : info.c
RELEASE : 1.0
AUTHOR  : [RK]
DATE    : 06-21-1988
STATUS  : SECRET
*/

#include <exec/types.h>
#include <intuition/intuition.h>
#include <graphics/text.h>
#include "reederei.h"

extern struct Window *Window;
extern struct TextAttr font[2];
extern struct Spieler Spieler[4];
extern struct Quartal Quartal[8];
extern struct Hafen Hafen[14];
extern USHORT *box2;

UBYTE wert[28][5];

USHORT inpts[2][18] =
 {
  {0,0,579,0,579,109,1,109,1,0,578,0,578,109,0,109,0,0},
  {0,0,579,0,579,14,1,14,1,0,578,0,578,14,0,14,0,0}
 };

struct IntuiText inggtxt =
 {1,13,JAM2,17,2,&font[0],"Weiter",NULL};

struct Image inggim =
 {-2,-1,96,15,4,NULL,0xf,0x0,NULL};

struct Gadget ingg =
 {NULL,468,90,92,13,GADGIMAGE|GADGHNONE,GADGIMMEDIATE,BOOLGADGET|REQGADGET,&inggim,NULL,&inggtxt,0L,NULL,0,NULL};

struct Border inbo[2] =
 {
  {0,0,13,0,JAM2,9,&inpts[1][0],&inbo[1]},
  {0,0,13,0,JAM2,9,&inpts[0][0],NULL}
 };

struct IntuiText intxt[45] =
 {
  {1,0,JAM2,525,3,&font[0],"Info",&intxt[1]},
  {1,0,JAM2,10,3,&font[0],"Reeder",&intxt[2]},
  {1,0,JAM2,85,3,&font[0],NULL,&intxt[3]},

  {14,0,JAM2,15,25,&font[0],NULL,&intxt[4]},
  {14,0,JAM2,115,25,&font[0],&wert[0][0],&intxt[5]},
  {8,0,JAM2,150,25,&font[0],&wert[14][0],&intxt[6]},
  {14,0,JAM2,200,25,&font[0],NULL,&intxt[7]},
  {14,0,JAM2,300,25,&font[0],&wert[1][0],&intxt[8]},
  {8,0,JAM2,335,25,&font[0],&wert[15][0],&intxt[9]},
  {14,0,JAM2,385,25,&font[0],NULL,&intxt[10]},
  {14,0,JAM2,485,25,&font[0],&wert[2][0],&intxt[11]},
  {8,0,JAM2,520,25,&font[0],&wert[16][0],&intxt[12]},
  {14,0,JAM2,15,40,&font[0],NULL,&intxt[13]},
  {14,0,JAM2,115,40,&font[0],&wert[3][0],&intxt[14]},
  {8,0,JAM2,150,40,&font[0],&wert[17][0],&intxt[15]},
  {14,0,JAM2,200,40,&font[0],NULL,&intxt[16]},
  {14,0,JAM2,300,40,&font[0],&wert[4][0],&intxt[17]},
  {8,0,JAM2,335,40,&font[0],&wert[18][0],&intxt[18]},
  {14,0,JAM2,385,40,&font[0],NULL,&intxt[19]},
  {14,0,JAM2,485,40,&font[0],&wert[5][0],&intxt[20]},
  {8,0,JAM2,520,40,&font[0],&wert[19][0],&intxt[21]},
  {14,0,JAM2,15,55,&font[0],NULL,&intxt[22]},
  {14,0,JAM2,115,55,&font[0],&wert[6][0],&intxt[23]},
  {8,0,JAM2,150,55,&font[0],&wert[20][0],&intxt[24]},
  {14,0,JAM2,200,55,&font[0],NULL,&intxt[25]},
  {14,0,JAM2,300,55,&font[0],&wert[7][0],&intxt[26]},
  {8,0,JAM2,335,55,&font[0],&wert[21][0],&intxt[27]},
  {14,0,JAM2,385,55,&font[0],NULL,&intxt[28]},
  {14,0,JAM2,485,55,&font[0],&wert[8][0],&intxt[29]},
  {8,0,JAM2,520,55,&font[0],&wert[22][0],&intxt[30]},
  {14,0,JAM2,15,70,&font[0],NULL,&intxt[31]},
  {14,0,JAM2,115,70,&font[0],&wert[9][0],&intxt[32]},
  {8,0,JAM2,150,70,&font[0],&wert[23][0],&intxt[33]},
  {14,0,JAM2,200,70,&font[0],NULL,&intxt[34]},
  {14,0,JAM2,300,70,&font[0],&wert[10][0],&intxt[35]},
  {8,0,JAM2,335,70,&font[0],&wert[24][0],&intxt[36]},
  {14,0,JAM2,385,70,&font[0],NULL,&intxt[37]},
  {14,0,JAM2,485,70,&font[0],&wert[11][0],&intxt[38]},
  {8,0,JAM2,520,70,&font[0],&wert[25][0],&intxt[39]},
  {14,0,JAM2,15,85,&font[0],NULL,&intxt[40]},
  {14,0,JAM2,115,85,&font[0],&wert[12][0],&intxt[41]},
  {8,0,JAM2,150,85,&font[0],&wert[26][0],&intxt[42]},
  {14,0,JAM2,200,85,&font[0],NULL,&intxt[43]},
  {14,0,JAM2,300,85,&font[0],&wert[13][0],&intxt[44]},
  {8,0,JAM2,335,85,&font[0],&wert[27][0],NULL}
 };

struct Requester info =
 {NULL,30,45,580,110,0,0,&ingg,&inbo[0],&intxt[0],0,0,NULL,NULL,NULL,NULL,NULL};

Information(pl)
SHORT pl;
 {
  struct IntuiMessage *inmsg = NULL;
  int i;

  intxt[2].IText = Spieler[pl].Name;
  inggim.ImageData = box2;

  for (i=0;i<14;i++)
   {
    intxt[3+(i*3)].IText = Hafen[i].Name;
    sprintf(&wert[i][0],"%2d%%",Hafen[i].WarenKaufPreis * 100 / Quartal[7].WarenWMPreis[Hafen[i].Ware-1]);
    sprintf(&wert[14+i][0],"%d",Hafen[i].WarenKaufPreis);
   }

  Request(&info,Window);

  while (inmsg->Class != GADGETDOWN)
   {
    while((inmsg=(struct IntuiMessage *)GetMsg(Window->UserPort))==NULL);
    ReplyMsg(inmsg);
   }

  EndRequest(&info,Window);

  return;
 }