#include "version.h"
#include <stdio.h>
#include "pre.h"
#include "StarLex.h"
#include "GalScr.h"
#include "FleetWin.h"
#include "structs.h"
#include <exec/lists.h>

struct IntuitionBase *IntuitionBase;
struct GfxBase *GfxBase;
struct Library *GadToolsBase;
struct Library *AslBase;
struct Library *UtilityBase;
struct Library *DiskfontBase;

struct List list;
char tmparray[256];
char textarray[256];
char commenttext[256];
char ynum[4], xnum[4];
void *Universe[61][61][9]=NULL;
struct { 
  int x, y;
} coord[9][2];

struct {
int RO;
int O ;
int LO;
int L ;
int M ;
int R ;
int LU;
int U ;
int RU;
} config[2] ={
{ -4,-3,-2,-1, 0, 1, 2, 3, 4 }, { 2,3,4,-1, 0, 1,-4,-3,-2 },
};

int confignum = 0;

struct Fleet fleet[50];

USHORT Colormap[]=
{ 
  0x9aa, 
  0x000, 
  0xFFF, 
  0x566, 
  0xF00, /* Red */
  0x0F0, /* Green */
  0x00F, /* Blue */
  0xFF0, /* Yellow */              
  0x0FF, /* Cyan */
  0xF0F  /* Magenta */
};

USHORT ColormapSnd[]=
{ 
  0xFFF, 
  0x000, 
};

FILE *file;
int x, y, z;
int X=0, Y=0, Z=0;
int tmp;

#include "Fleets.c"

int openlibs()
{
  if (GfxBase = (struct GfxBase *)OpenLibrary((UBYTE*)"graphics.library", 0)) 
    {
      if (IntuitionBase = (struct IntuitionBase *)OpenLibrary((UBYTE*)"intuition.library", 0))
	{
	  if (GadToolsBase = OpenLibrary((UBYTE*)"gadtools.library", 37L))
	    {
	      if (AslBase=OpenLibrary((UBYTE *)AslName, 38L))
		{
	        if (UtilityBase=OpenLibrary((UBYTE *)"utility.library", 37L))
  		  {
	            if (DiskfontBase=OpenLibrary((UBYTE *)"diskfont.library", 37L))
   		    {
   		      return 1;
  		    }
                    else
	            {
		      printf("Cannot open diskfont.library Version 37.\n");
		      return 0;
  		    }
  		  }
                  else
	          {
		    printf("Cannot open utility.library Version 38.\n");
		    return 0;
		  }
		}
	      else
	        {
		  printf("Cannot open asl.library Version 38.\n");
		  return 0;
		}
	    }
	  else
	    {
	      printf("Cannot open gadtools.library.\n");
	      return 0;
	    }
	}
      else
	{
	  printf("Cannot open intuition.library!!!!????\n");
	  return 0;
	}
    }
  else
    {
      printf("Cannot open graphics.library!!!!????\n");
      return 0;
    }
}

closelibs()
{
  if (DiskfontBase) CloseLibrary(DiskfontBase);
  if (UtilityBase) CloseLibrary(UtilityBase);
  if (AslBase) CloseLibrary(AslBase);
  if (GadToolsBase) CloseLibrary(GadToolsBase);
  if (IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  if (GfxBase) CloseLibrary((struct Library *)GfxBase);
}

StringRequest(char *retval)
{
  struct IntuiMessage *im;
  short notDone = 1;
  
  StrReqLeft=(StarLexWnd->Width-StrReqWidth)/2;
  StrReqTop=(StarLexWnd->Height-StrReqHeight)/2;
  OpenStrReqWindow();

  strcpy((char *)((struct StringInfo *)(StrReqGadgets[GDX_TEXT]->SpecialInfo))->Buffer, retval);
  
  while (notDone) {
    ActivateGadget(StrReqGadgets[GDX_TEXT], StrReqWnd, NULL);
    WaitPort(StrReqWnd->UserPort);
    while (im = GT_GetIMsg(StrReqWnd->UserPort)) {
      switch(im->Class) {
      case IDCMP_REFRESHWINDOW:
	GT_BeginRefresh(StarLexWnd);
	GT_EndRefresh(StarLexWnd, TRUE);
	break;
      case IDCMP_GADGETUP:
	switch(((struct Gadget *)im->IAddress)->GadgetID) 
          {
          case GD_TEXT:
            strcpy(retval, 
		   (char *)((struct StringInfo *)(StrReqGadgets[GDX_TEXT]->SpecialInfo))->Buffer);
            notDone=0;
            break;
          default:
            break;
          }
	break;
      default:
	break;
      }
      GT_ReplyIMsg(im);
    }
  }
  CloseStrReqWindow();
}

ClearList(struct List *list)
{
  struct Node *tmp;

  while(tmp=RemHead(list))
    free(tmp);
}

AddList(struct List *list, char *s) 
{
  int ok=0;
  
  ok=strlen(s);
  while (ok>0)
  {
    struct Node *np = (struct Node *)calloc(1,sizeof(struct Node));
    
    np->ln_Pri = 0;
    np->ln_Name = (APTR)calloc(1,35);
    strncpy(np->ln_Name, s, 34);
    AddTail(list, np);
    ok-=34;
    s+=34;
  } 
}

ClearMap()
{
  SetAPen(StarLexWnd->RPort, 0);
  RectFill( StarLexWnd->RPort, 20, 31, 310, 178);
  
  DrawMyBorders(StarLexWnd->RPort);
}

showmap(int x, int y)
{
  int i, j, k;

  if (x < -28) x = -28;
  if (x > 28)  x = 28;
  if (y < -28) y = -28;
  if (y > 28)  y = 28;

  X=x;  
  Y=y;
  for (i=x-2; i<=x+2; i++)
    for (j=y-2; j<=y+2; j++)
      for (k=-4; k<=4; k++)
        if (Universe[30+i][30+j][4+k]!=NULL)        
	  {
	    Move(StarLexWnd->RPort, 161+(i-x)*60+coord[4+k][confignum].x, 107-(j-y)*30+coord[4+k][confignum].y);
	    if (((struct System *)Universe[30+i][30+j][4+k])->type=='*')
	      {
		SetAPen(StarLexWnd->RPort, 7);
		Text(StarLexWnd->RPort, (UBYTE *)"*", 1);
		SetAPen(StarLexWnd->RPort, 1);
	      }
	    else
   	      if (((struct System *)Universe[30+i][30+j][4+k])->type=='.')
	      {
		SetAPen(StarLexWnd->RPort, 1);
		Text(StarLexWnd->RPort, (UBYTE *)"·", 1);
	      }
	      else
	      {
		SetAPen(StarLexWnd->RPort, 5);
		Text(StarLexWnd->RPort, (UBYTE *)"·", 1);
	      }
	    if (((struct System *)Universe[30+i][30+j][4+k])->Special=='!')
	      {
		SetAPen(StarLexWnd->RPort, 4);
		SetDrMd(StarLexWnd->RPort, JAM1);
		Move(StarLexWnd->RPort, 161+(i-x)*60+coord[4+k][confignum].x, 107-(j-y)*30+coord[4+k][confignum].y);
		Text(StarLexWnd->RPort, (UBYTE *)"!", 1);
		SetDrMd(StarLexWnd->RPort, JAM2);
		SetAPen(StarLexWnd->RPort, 1);
	      }
	  }        
}

InitCoords()
{
  int i, j;

  coord[0][0].x=-20;
  coord[0][0].y=-10;
  coord[1][0].x=0;
  coord[1][0].y=-10;
  coord[2][0].x=20;
  coord[2][0].y=-10;
  coord[3][0].x=-20;
  coord[3][0].y=0;
  coord[4][0].x=0;
  coord[4][0].y=0;
  coord[5][0].x=20;
  coord[5][0].y=0;
  coord[6][0].x=-20;
  coord[6][0].y=10;
  coord[7][0].x=0;
  coord[7][0].y=10;
  coord[8][0].x=20;
  coord[8][0].y=10;

  coord[6][1].x=-20; 
  coord[6][1].y=-10;
  coord[7][1].x=0;
  coord[7][1].y=-10;
  coord[8][1].x=20;
  coord[8][1].y=-10;
  coord[3][1].x=-20;
  coord[3][1].y=0;
  coord[4][1].x=0;
  coord[4][1].y=0;
  coord[5][1].x=20;
  coord[5][1].y=0;
  coord[0][1].x=-20;
  coord[0][1].y=10;
  coord[1][1].x=0;
  coord[1][1].y=10;
  coord[2][1].x=20;
  coord[2][1].y=10;

  for(i=0; i<50; i++)
  {
    fleet[i].name[0]='\0';
    fleet[i].ships[0]='\0';
    fleet[i].start[0]='\0';
    fleet[i].ende[0]='\0';
    fleet[i].ax=0;
    fleet[i].ay=0;
    fleet[i].az=0;
    fleet[i].ex=0;
    fleet[i].ey=0;
    fleet[i].ez=0;
    for(j=0; j<8; j++)
    {
      fleet[i].coords[j].x=0;
      fleet[i].coords[j].y=0;
      fleet[i].coords[j].z=0;
    }
    fleet[i].comment[0]='\0';
  }  
}

main()
{
  struct IntuiMessage *im;
  short notDone = 1;
  USHORT selection, flags;
  ULONG menuNum, itemNum, subNum;
  int i, j, k;
  int mode=0; /* 0=Add Sector 1=Del Sector (System, Fleet) */
  
  if(!openlibs()) _abort();
  
  fprintf(stderr, "Loading Universe, please be patient ...\n");
  LoadStars(FALSE);
  fprintf(stderr,"\n");
  fflush(stderr);

  InitCoords();
  
  /*SetupSndScreen();*/

  /*OpenGalScrWindow();*/

  /*LoadRGB4(&(galScr->ViewPort), ColormapSnd, 2);*/

  SetupScreen();
  
  LoadRGB4(&(Scr->ViewPort), Colormap, 10);
  
  OpenStarLexWindow();
  StarLexRender();
  
  DrawMyBorders(StarLexWnd->RPort);

  showmap(0,0);

  NewList(&list);

  GT_RefreshWindow(StarLexWnd, NULL);
  while (notDone) {
    WaitPort(StarLexWnd->UserPort);
    while (im = GT_GetIMsg(StarLexWnd->UserPort)) {
      switch(im->Class) {
      case IDCMP_REFRESHWINDOW:
	GT_BeginRefresh(StarLexWnd);
	StarLexRender();
	showmap(X, Y);
	GT_EndRefresh(StarLexWnd, TRUE);
	break;
      case IDCMP_MOUSEBUTTONS:
	if (im->Code!=SELECTUP) break;
	if ((StarLexWnd->MouseX>20)
	    &&(StarLexWnd->MouseX<315)
	    &&(StarLexWnd->MouseY>30)
	    &&(StarLexWnd->MouseY<180))
          {
            switch (mode)
	      {
              case 0: /* Add Sectorscan */
                if (Universe[30+x+X][30+y+Y][4+z]==NULL)
		  {
		    Universe[30+x+X][30+y+Y][4+z]=(void *)calloc(1,sizeof(struct System));
		    ((struct System *)Universe[30+x+X][30+y+Y][4+z])->type='.';
		  }
	        else
	          if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->type=='·')
		    ((struct System *)Universe[30+x+X][30+y+Y][4+z])->type='.';
                showmap(X,Y);
                break;
              case 1: /* Del Sectorscan */
                if ((Universe[30+x+X][30+y+Y][4+z]!=NULL)&&(((struct System *)Universe[30+x+X][30+y+Y][4+z])->type=='.')) 
		  {
		    free(Universe[30+x+X][30+y+Y][4+z]);
		    Universe[30+x+X][30+y+Y][4+z]=NULL;
		  }
                ClearMap();
                showmap(X,Y);
                break;
              case 2: /* Add Mark */
                if (Universe[30+x+X][30+y+Y][4+z]==NULL)
		  {
		    Universe[30+x+X][30+y+Y][4+z]=(void *)calloc(1,sizeof(struct System));
		    ((struct System *)Universe[30+x+X][30+y+Y][4+z])->type='.';
		    ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Special='!';
		  }
                else
                  ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Special='!';
                showmap(X,Y);
                break;
              case 3: /* Del Mark */
                if ((Universe[30+x+X][30+y+Y][4+z]!=NULL)&&(((struct System *)Universe[30+x+X][30+y+Y][4+z])->Special=='!')) 
		  {
		    ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Special='x';
		  }
                ClearMap();
                showmap(X,Y);
                break;
              case 4: /* Add System */
                tmparray[0]='\0';
                if (Universe[30+x+X][30+y+Y][4+z]==NULL)
		  {
    	            Universe[30+x+X][30+y+Y][4+z]=(void *)calloc(1,sizeof(struct System));
		    StringRequest(tmparray);
		    if (tmparray[0]!='\0') {
		      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->type='*';
		      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName=(char *)calloc(1,strlen(tmparray)+1);
		      strcpy(((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName, tmparray);
		    }
		  }
		else
		{
                  if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->type=='·')
		  {
		    tmparray[0]='\0';
		    StringRequest(tmparray);
		    if (tmparray[0]!='\0') {
		      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->type='*';
		      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName=(char *)calloc(1,strlen(tmparray)+1);
		      strcpy(((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName, tmparray);
		    }
		  }
		  else
                  if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->type=='*')
		  {
		    strcpy(tmparray, ((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName);
		    StringRequest(tmparray);
		    if (tmparray[0]!='\0') {
		      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->type='*';
		      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName=(char *)calloc(1,strlen(tmparray)+1);
		      strcpy(((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName, tmparray);
		    }
		  }
		}
                if (Universe[30+x+X][30+y+Y][4+z]!=NULL)
		  {
		    tmparray[0]='\0';
		    if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment)
		      strcpy(tmparray, ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment);
		    StringRequest(tmparray);
		    if (tmparray[0]!='\0') {
		      if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment)
			free(((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment);
		      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment=(char *)calloc(1,strlen(tmparray)+1);
		      strcpy(((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment, tmparray);
		    }
		    else 
                    { 
                      free(((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment);
                      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment=NULL;
                    }
		    if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment)
		      {
			if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->type=='*')
			  sprintf(commenttext, "%s:%s", ((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName,
				  ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment);
			else
			  sprintf(commenttext, "S:%s", ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment);
			GT_SetGadgetAttrs(StarLexGadgets[GDX_BEM], StarLexWnd, NULL, GTLV_Labels, ~0, TAG_END);
			ClearList(&list);
			AddList(&list, commenttext);
			GT_SetGadgetAttrs(StarLexGadgets[GDX_BEM], StarLexWnd, NULL, GTLV_Labels, &list, TAG_END);
	 	      }
		  }
                showmap(X,Y);
                break;
              case 5: /* Edit System */
                tmparray[0]='\0';
                if (Universe[30+x+X][30+y+Y][4+z]==NULL)
		  {
    	            Universe[30+x+X][30+y+Y][4+z]=(void *)calloc(1,sizeof(struct System));
		    StringRequest(tmparray);
		    if (tmparray[0]!='\0') {
		      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->type='*';
		      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName=(char *)calloc(1,strlen(tmparray)+1);
		      strcpy(((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName, tmparray);
		    }
		  }
		else
		{
                  if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->type=='·')
		  {
		    tmparray[0]='\0';
		    StringRequest(tmparray);
		    if (tmparray[0]!='\0') {
		      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->type='*';
		      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName=(char *)calloc(1,strlen(tmparray)+1);
		      strcpy(((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName, tmparray);
		    }
		  }
		  else
                  if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->type=='*')
		  {
		    strcpy(tmparray, ((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName);
		    StringRequest(tmparray);
		    if (tmparray[0]!='\0') {
		      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->type='*';
		      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName=(char *)calloc(1,strlen(tmparray)+1);
		      strcpy(((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName, tmparray);
		    }
		  }
		}
                showmap(X,Y);
                break;
              case 6: /* Remove System */
                if ((Universe[30+x+X][30+y+Y][4+z]!=NULL)&&(((struct System *)Universe[30+x+X][30+y+Y][4+z])->type=='*')) 
		  {
		    free(((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName);
		    free(Universe[30+x+X][30+y+Y][4+z]);
		    Universe[30+x+X][30+y+Y][4+z]=NULL;
		  }
                ClearMap();
                showmap(X,Y);
                break;
              case 7: /* Edit Comment */
                if (Universe[30+x+X][30+y+Y][4+z]!=NULL)
		  {
		    tmparray[0]='\0';
		    if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment)
		      strcpy(tmparray, ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment);
		    StringRequest(tmparray);
		    if (tmparray[0]!='\0') {
		      if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment)
			free(((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment);
		      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment=(char *)calloc(1,strlen(tmparray)+1);
		      strcpy(((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment, tmparray);
		    }
		    else 
                    { 
                      free(((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment);
                      ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment=NULL;
                    }
		    if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment)
		      {
			if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->type=='*')
			  sprintf(commenttext, "%s:%s", ((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName,
				  ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment);
			else
			  sprintf(commenttext, "S:%s", ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment);
			GT_SetGadgetAttrs(StarLexGadgets[GDX_BEM], StarLexWnd, NULL, GTLV_Labels, ~0, TAG_END);
			ClearList(&list);
			AddList(&list, commenttext);
			GT_SetGadgetAttrs(StarLexGadgets[GDX_BEM], StarLexWnd, NULL, GTLV_Labels, &list, TAG_END);
	 	      }
		  }
                break;
              case 8: /* Remove Comment */
                if ((Universe[30+x+X][30+y+Y][4+z]!=NULL)&&(((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment!=NULL)) 
		  {
		    free(((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment);
		    ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment=NULL;
		  }
                break;
              case 9: /* Add Fleetpath */
                if (Universe[30+x+X][30+y+Y][4+z]==NULL)
		  {
		    Universe[30+x+X][30+y+Y][4+z]=(void *)calloc(1,sizeof(struct System));
		    ((struct System *)Universe[30+x+X][30+y+Y][4+z])->type='·';
		  }
                showmap(X,Y);
                break;
              case 10: /* Planned Fleetpath */
                if ((Universe[30+x+X][30+y+Y][4+z]!=NULL)&&(((struct System *)Universe[30+x+X][30+y+Y][4+z])->type=='·')) 
		  {
		    free(Universe[30+x+X][30+y+Y][4+z]);
		    Universe[30+x+X][30+y+Y][4+z]=NULL;
		  }
                ClearMap();
                showmap(X,Y);
                break;
              case 11: /* Fill Sectors */
              for (k=-4; k<=4; k++)
                if (Universe[30+x+X][30+y+Y][4+k]==NULL)
		  {
		    Universe[30+x+X][30+y+Y][4+k]=(void *)calloc(1,sizeof(struct System));
		    ((struct System *)Universe[30+x+X][30+y+Y][4+k])->type='.';
		  }
	        else
	          if (((struct System *)Universe[30+x+X][30+y+Y][4+k])->type=='·')
		    ((struct System *)Universe[30+x+X][30+y+Y][4+k])->type='.';
                showmap(X,Y);
                break;
              default: break;
	      }
          }
	break;
      case IDCMP_MOUSEMOVE:
	switch(((struct Gadget *)im->IAddress)->GadgetID)
          {
	  case GD_XAXIS:
	    sprintf(xnum, "%4d", X=im->Code-28);
	    GT_SetGadgetAttrs(StarLexGadgets[GDX_X], StarLexWnd, NULL, GTTX_Text, xnum, TAG_END);
	    ClearMap();
	    showmap(X,Y);
	    break;
	  case GD_YAXIS: 
	    sprintf(ynum, "%4d", Y=28-im->Code);
	    GT_SetGadgetAttrs(StarLexGadgets[GDX_Y], StarLexWnd, NULL, GTTX_Text, ynum, TAG_END);
	    ClearMap();
	    showmap(X,Y);
	    break;
	  default:
	    if ((StarLexWnd->MouseX>20)
                &&(StarLexWnd->MouseX<315)
                &&(StarLexWnd->MouseY>30)
                &&(StarLexWnd->MouseY<180))
              {
                x=((StarLexWnd->MouseX-20)/60)-2;
                y=2-((StarLexWnd->MouseY-30)/30);
                switch ((((StarLexWnd->MouseX-20)%60)/20*10)+((StarLexWnd->MouseY-30)%30)/10)
		  {
                  case  0: z=config[confignum].RO; break;
                  case 10: z=config[confignum].O ; break;
                  case 20: z=config[confignum].LO; break;
                  case  1: z=config[confignum].L ; break;
                  case 11: z=config[confignum].M ; break;
                  case 21: z=config[confignum].R ; break;
                  case  2: z=config[confignum].LU; break;
                  case 12: z=config[confignum].U ; break;
                  case 22: z=config[confignum].RU; break;
                  default: z=99;
		  }
                if (Universe[30+x+X][30+y+Y][4+z]!=NULL)
		  {
                    if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->type=='*')
		      sprintf(textarray, "%s (%3d,%3d,%2d)", ((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName, x+X, y+Y, z);
                    else
                      sprintf(textarray, "(%3d,%3d,%2d)", x+X, y+Y, z);
		      
		    if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment)
		      {
			if (((struct System *)Universe[30+x+X][30+y+Y][4+z])->type=='*')
			  sprintf(commenttext, "%s:%s", ((struct System *)Universe[30+x+X][30+y+Y][4+z])->SysName,
				  ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment);
			else
			  sprintf(commenttext, "S:%s", ((struct System *)Universe[30+x+X][30+y+Y][4+z])->Comment);
			GT_SetGadgetAttrs(StarLexGadgets[GDX_BEM], StarLexWnd, NULL, GTLV_Labels, ~0, TAG_END);
			ClearList(&list);
			AddList(&list, commenttext);
			GT_SetGadgetAttrs(StarLexGadgets[GDX_BEM], StarLexWnd, NULL, GTLV_Labels, &list, TAG_END);
		      }
		  }
		  else
                    sprintf(textarray, "(%3d,%3d,%2d)", x+X, y+Y, z);
		  
                GT_SetGadgetAttrs(StarLexGadgets[GDX_INFO], StarLexWnd, NULL, GTTX_Text, textarray, TAG_END);
              }
	    break;
          }
	break;
      case IDCMP_MENUPICK:
	selection=im->Code;
	while(selection!=MENUNULL)
          {
            menuNum = MENUNUM(selection);
            itemNum = ITEMNUM(selection);
            subNum  = SUBNUM (selection);
            switch(menuNum)
	      {
              case 0: /* Project Menu */
                switch(itemNum)
		  {
                  case 0: /* Load */
		    /* ClearMap();
		       showmap(X,Y);*/
		    break;
                  case 1: file=fopen("Universe", "w"); /* Save */
		    for(i=-30; i<=30; i++)
		      for(j=-30; j<=30; j++)
			for(k=-4; k<=4; k++)
			  if (Universe[30+i][30+j][4+k]!=NULL)
			    {
			      if (((struct System *)Universe[30+i][30+j][4+k])->type=='*')
				fprintf(file, "\"%s\" (%3d,%3d,%2d)", ((struct System *)Universe[30+i][30+j][4+k])->SysName, i, j, k);
			      else
			        if (((struct System *)Universe[30+i][30+j][4+k])->type=='.')
   				  fprintf(file, "S (%3d,%3d,%2d)", i, j, k);
   				else
   				  fprintf(file, "SC (%3d,%3d,%2d)", i, j, k);
			      if (((struct System *)Universe[30+i][30+j][4+k])->Comment)
				fprintf(file, ";%s\n", ((struct System *)Universe[30+i][30+j][4+k])->Comment);
			      else
				fprintf(file,"\n");
			      if (((struct System *)Universe[30+i][30+j][4+k])->Special=='!')
				fprintf(file, "Mark (%3d,%3d,%2d)\n", i, j, k);
			    }
		    fclose(file);
		    break;
                  case 2: file=fopen("Inputstars", "w"); /* Save As ASCII*/
		    for(i=-30; i<=30; i++)
		      for(j=-30; j<=30; j++)
			for(k=-4; k<=4; k++)
			  if (Universe[30+i][30+j][4+k]!=NULL)
			    if (((struct System *)Universe[30+i][30+j][4+k])->type=='*')
			      {
				fprintf(file, "\"%s\" (%3d,%3d,%2d)", ((struct System *)Universe[30+i][30+j][4+k])->SysName, i, j, k);
				if (((struct System *)Universe[30+i][30+j][4+k])->Comment)
				  fprintf(file, ";%s\n", ((struct System *)Universe[30+i][30+j][4+k])->Comment);
				else
				  fprintf(file,"\n");
			      }
		    fclose(file);
		    break;
                  case 3: file=fopen("Stars.tex", "w"); /* Save As TeX */
		    tmp=1;
		    fprintf(file, "\\documentstyle[a4]{article}\n \\pagestyle{empty}\n \\def\\Star \#1,\#2,\#3,\#4;{\#1\&\#2\&\#3\&\#4\\\\}\n \\def\\Starx \#1,\#2,\#3,\#4;{\#1\&\#2\&\#3\&\#4\&}\n \\begin{document}\n\\small\n  \\begin{tabular}[12]{l@{\\quad(}r@{,}r@{,}r@{)\\qquad}l@{\\quad(}r@{,}r@{,}r@{)\\qquad}l@{\\quad(}r@{,}r@{,}r@{)}}\n");
		    for(i=-30; i<=30; i++)
		      for(j=-30; j<=30; j++)
			for(k=-4; k<=4; k++)
			  if (Universe[30+i][30+j][4+k]!=NULL)
			    {
			      if (((struct System *)Universe[30+i][30+j][4+k])->type=='*')
                                {
                                  if (tmp%3)
                                    fprintf(file, "  \\Starx %s,%3d,%3d,%2d;\n", ((struct System *)Universe[30+i][30+j][4+k])->SysName, i, j, k);
                                  else
                                    fprintf(file, "  \\Star %s,%3d,%3d,%2d;\n", ((struct System *)Universe[30+i][30+j][4+k])->SysName, i, j, k);
                                  if (!(tmp++%168))
				    {
				      fprintf(file,"  \\end{tabular}\n \\newpage\n");
				      fprintf(file, " \\begin{tabular}[12]{l@{\\quad(}r@{,}r@{,}r@{)\\qquad}l@{\\quad(}r@{,}r@{,}r@{)\\qquad}l@{\\quad(}r@{,}r@{,}r@{)}}\n");
				    }
                                } 
			    }
		    fprintf(file,"  \\end{tabular}\n\\end{document}\n");
		    fclose(file);
		    break;
                  case 5: /* New unimplemented */
		    break;
                  case 7: /* Quit */
		    notDone=0;
		    break;
                  default:
                    break;
		  }
                break;
              case 1: /* Configuration Menu */
                switch(itemNum) {
                  case  0: confignum=0; break;
                  case  1: confignum=1; break;
                  default: confignum=0; break;
                }
                ClearMap();
                showmap(X,Y);
                break;
              case 2: /* Utilities Menu */
                switch(itemNum)
		  {
                  case 0: /* Find System */
                    tmparray[0]='\0';
		    StringRequest(tmparray);
		    for(i=-30; i<=30; i++)
		      for(j=-30; j<=30; j++)
			for(k=-4; k<=4; k++)
			  if (Universe[30+i][30+j][4+k]!=NULL)
			    {
			      if (((struct System *)Universe[30+i][30+j][4+k])->type=='*')
				if (!strncmp(tmparray,((struct System *)Universe[30+i][30+j][4+k])->SysName,strlen(tmparray)))
                                  {
                                    ClearMap();
                                    showmap(i,j);
                                    sprintf(xnum, "%4d", X);
                                    sprintf(ynum, "%4d", Y);
                                    GT_SetGadgetAttrs(StarLexGadgets[GDX_XAXIS], StarLexWnd, NULL, GTSC_Top, X+28, TAG_END);
                                    GT_SetGadgetAttrs(StarLexGadgets[GDX_X], StarLexWnd, NULL, GTTX_Text, xnum, TAG_END);
                                    GT_SetGadgetAttrs(StarLexGadgets[GDX_YAXIS], StarLexWnd, NULL, GTSC_Top, 28-Y, TAG_END);
                                    GT_SetGadgetAttrs(StarLexGadgets[GDX_Y], StarLexWnd, NULL, GTTX_Text, ynum, TAG_END); 
				    if ((Universe[30+i][30+j][4+k]!=NULL)&&((struct System *)Universe[30+i][30+j][4+k])->type=='*')
				      {
					sprintf(textarray, "%s (%3d,%3d,%2d)", ((struct System *)Universe[30+i][30+j][4+k])->SysName, i, j, k);
					if (((struct System *)Universe[30+i][30+j][4+k])->Comment)
					  {
					    if (((struct System *)Universe[30+i][30+j][4+k])->type=='*')
					      sprintf(commenttext, "%s:%s", ((struct System *)Universe[30+i][30+j][4+k])->SysName,
						      ((struct System *)Universe[30+i][30+j][4+k])->Comment);
					    else
					      sprintf(commenttext, "S:%s", ((struct System *)Universe[30+i][30+j][4+k])->Comment);
					    GT_SetGadgetAttrs(StarLexGadgets[GDX_BEM], StarLexWnd, NULL, GTLV_Labels, ~0, TAG_END);
					    ClearList(&list);
					    AddList(&list, commenttext);
					    GT_SetGadgetAttrs(StarLexGadgets[GDX_BEM], StarLexWnd, NULL, GTLV_Labels, &list, TAG_END);
					  }
				      }
				    else
				      sprintf(textarray, "(%3d,%3d,%2d)", i, j, k);
				    GT_SetGadgetAttrs(StarLexGadgets[GDX_INFO], StarLexWnd, NULL, GTTX_Text, textarray, TAG_END);
				    break;
                                  }
			    }
		    break;
                  case 1: /* Add Fleet */
                    DoFleetWin();
                    break;
                  default:
                    break;
		  }
              default:
                break;
	      }
            selection=((struct MenuItem *)ItemAddress(StarLexMenus, (LONG)selection))->NextSelect;
          }
	break;
      case IDCMP_GADGETUP:
	switch(((struct Gadget *)im->IAddress)->GadgetID)
          {
	  case GD_XAXIS:
	    sprintf(xnum, "%4d", X=im->Code-28);
	    GT_SetGadgetAttrs(StarLexGadgets[GDX_X], StarLexWnd, NULL, GTTX_Text, xnum, TAG_END);
	    break;
	  case GD_YAXIS: 
	    sprintf(ynum, "%4d", Y=28-im->Code);
	    GT_SetGadgetAttrs(StarLexGadgets[GDX_Y], StarLexWnd, NULL, GTTX_Text, ynum, TAG_END);
	    break;
	  case GD_MODE:
	    mode=im->Code;
	    break;
	  default:
	    break;
          }
	break;
      default:
	break;
      }
      GT_ReplyIMsg(im);
    }
  }
  CloseGalScrWindow();
  CloseStarLexWindow();
  CloseDownSndScreen();
  CloseDownScreen();
  closelibs();
  return(0);
}

_abort()
{
  CloseGalScrWindow();
  CloseStarLexWindow();
  CloseDownSndScreen();
  CloseDownScreen();
  closelibs();
  exit(10);
}