#include "exec/types.h"
#include "intuition/intuition.h"
#include "graphics/gfxmacros.h"

struct IntuitionBase *IntuitionBase;
struct Window *NoBorder;
struct GfxBase *GfxBase;
struct Screen *Scrn;
struct IntuiMessage *mesg;
struct RastPort *r;



#define INTUITION_REV 29
#define GRAPHICS_REV 29

main()
{
 ULONG flags,mclass;
 SHORT x,y,w,h,d,c0,c1,einde,txt0ycrd,txt1ycrd,txt2ycrd,xt;
 USHORT mode;
 int len;
 char *txt0,*txt1,*txt2,*txt3,*txt4,*txt5,*txt6,*txt7,*txt8;
 struct TextFont *FontPtr;
 static struct TextAttr SysFont=
       {"topaz.font",9,0,0}; 


 VOID OpenALL();
  txt6 = "BAMIGA SECTOR ONE";
  txt7 = "PRESENTS";
  txt8 = "KING'S QUEST II";


 OpenALL();

 /* ======Open een hires custom screen====== */

 y=0;
 w=320;
 h=200;
 d=5; /* max 32 colors ! */
 c0=0x00;
 c1=0x01;
 mode=NULL;

 Scrn=(struct Screen *)
         make_screen(y,w,h,d,c0,c1,mode,NULL);

 /* ======open een borderless window ====== */

 x=y=0;
 w=320;
 h=200;
 flags=ACTIVATE|NOCAREREFRESH|BORDERLESS|BACKDROP;
 NoBorder=(struct Window *)
             make_window(x,y,w,h,NULL,flags,Scrn);

 /* ======geen screentitel====== */

 ShowTitle(Scrn,0);

 /* ======definitie van RPort !====== */

 r=NoBorder->RPort;

  SetRGB4(ViewPortAddress(NoBorder),0,0,0,0);

  for(x=1;x<16;x++)
   { 
   SetRGB4(ViewPortAddress(NoBorder),   x,(12-x)%16   , 15,(x+y)%16);
   SetRGB4(ViewPortAddress(NoBorder),16+x,x+4,(15-x+y)%16,5 );
   };

  txt3 = "BAMIGA_SECTOR_ONE ";
  txt4 = "PRESENTS ";
  txt5 = "KING'S QUEST II ";


  for(xt=159;xt>=0;xt--)
   {
   SetAPen(r,xt%31+1);

   Move(r,0,99);Draw(r,xt,0);
   Move(r,319,0);Draw(r,319-xt,99);

   Move(r,0,0);Draw(r,xt,99);
   Move(r,319,99);Draw(r,319-xt,0);

   Move(r,0,199);Draw(r,xt,100);
   Move(r,319,100);Draw(r,319-xt,199);

   Move(r,0,100);Draw(r,xt,199);
   Move(r,319,199);Draw(r,319-xt,100);

   };



  /* zwart vlak om in te schrijven */

  SetAPen(r,0);
  SetBPen(r,0);
  for(xt=0;xt<160;xt++)
  {
   Move(r,159-xt,99-50);Draw(r,159-xt,99+50);
   Move(r,160+xt,99-50);Draw(r,160+xt,99+50);
  }
   
  SetAPen(r,10);
  RectFill(r,5,99-55+10,319-5,99+55-10);

  SetAPen(r,0);
  RectFill(r,10,99-55+15,319-10,99+55-15);


  /* text , zie ook OpenAll() */
  /* controle op originaliteit :
     txt0,txt1,txt2 zijn de echte texten
     txt3,txt4,txt5 zijn nep texten die niet hetzelfde mogen zijn als de anderen
     txt6,txt7,txt8 moeten hetzelfe als txt0, txt1, txt2 zijn */



  txt0 = "BAMIGA SECTOR ONE";
  txt1 = "PRESENTS";
  txt2 = "KING'S QUEST II";



  if(len=(strcmp(txt0,txt6))!=0) for(;;);
  if(len=(strcmp(txt1,txt7))!=0) for(;;);
  if(len=(strcmp(txt2,txt8))!=0) for(;;);

  if(len=(strcmp(txt0,txt3))==0) for(;;);
  if(len=(strcmp(txt1,txt4))==0) for(;;);
  if(len=(strcmp(txt2,txt5))==0) for(;;);

 
 

 /*==Font==*/

  FontPtr=(struct TextFont *)OpenFont(&SysFont);
  if (FontPtr== 0)exit(FALSE);

  SetAPen(r,1);
  SetFont(r,FontPtr);
  SetSoftStyle(r,FSF_BOLD,FSF_BOLD);
  PrintAt(r,73,99-20-4,txt0);
  PrintAt(r,118,104-4,txt1);

  SetAPen(r,1);
  PrintAt(r,159-strlen(txt2)*5,99+33-6,txt2);/* 1LETTER = 10.4 PIXELS*/

  SetSoftStyle(r,FS_NORMAL,FS_NORMAL);

  CloseFont(FontPtr);

  for(y=0;y<128;y++)
  {
  for(x=1;x<16;x++)
   { 
   SetRGB4(ViewPortAddress(NoBorder),   x,(12-x)%16   , 15,(x+y)%16);
   SetRGB4(ViewPortAddress(NoBorder),16+x,x+4,(15-x+y)%16,5 );
   }
  }
 


 /* ======einde in stijl !====== */

einde=0; /* init einde op 0 ! */
while (einde != 1)
 {
  Wait(1<<NoBorder->UserPort->mp_SigBit);

  while((mesg=(struct IntuiMessage *)
      GetMsg(NoBorder->UserPort))!=NULL)
  {
   ReplyMsg(mesg);
   mclass=mesg->Class;
  }

  if(mclass==MOUSEBUTTONS)
   {
     einde=1;

    /* scroll */

    for(xt=0;xt<50;xt++)
     {
       ScrollRaster(r,0,-2,0,99-50+xt*2,319,99+50);
       WaitTOF();
      };

     Delay(10);
     scrollscreen(Scrn);
     CloseLibrary(GfxBase);
     CloseWindow(NoBorder);
     CloseScreen(Scrn);

   }
 }

} /********************************** einde van main **********************/

VOID OpenALL()
{
 /*==Intuition==*/

 IntuitionBase=(struct IntuitionBase *)
            OpenLibrary("intuition.library",INTUITION_REV);

 if(IntuitionBase==NULL)
    exit(FALSE);

 /*==Graphics Library==*/

 GfxBase=(struct GfxBase *)
          OpenLibrary("graphics.library",GRAPHICS_REV);

 if(GfxBase==NULL)
    exit(FALSE);

}

make_window(x,y,w,h,name,flags,screen)
SHORT x,y,w,h;
UBYTE *name;
ULONG flags;
struct Screen *screen;

{
 struct NewWindow NewWindow;

 NewWindow.LeftEdge = x;
 NewWindow.TopEdge = y;
 NewWindow.Width = w;
 NewWindow.Height = h;
 NewWindow.DetailPen = -1;
 NewWindow.BlockPen = -1;
 NewWindow.Title = name;
 NewWindow.Flags = flags;
 NewWindow.IDCMPFlags = MOUSEBUTTONS;
 NewWindow.Type = CUSTOMSCREEN;
 NewWindow.FirstGadget = NULL;
 NewWindow.CheckMark = NULL;
 NewWindow.Screen = screen;
 NewWindow.BitMap = NULL;
 NewWindow.MinWidth = 0;
 NewWindow.MinHeight = 0;
 NewWindow.MaxWidth = 0;
 NewWindow.MaxHeight = 0;

 return(OpenWindow(&NewWindow));

}


make_screen(y,w,h,d,color0,color1,mode,name)
SHORT y,w,h,d;
UBYTE color0,color1,*name;
USHORT mode;
{
 struct NewScreen NewScreen;

 NewScreen.LeftEdge = 0;
 NewScreen.TopEdge = y;
 NewScreen.Width = w;
 NewScreen.Height = h;
 NewScreen.Depth = d;
 NewScreen.DetailPen = color0;
 NewScreen.BlockPen = color1;
 NewScreen.ViewModes = mode;
 NewScreen.Type = CUSTOMSCREEN;
 NewScreen.Font = NULL;
 NewScreen.DefaultTitle = name;
 NewScreen.Gadgets = NULL;
 NewScreen.CustomBitMap = NULL;

 return(OpenScreen(&NewScreen));
}

scrollscreen(screen)
struct Screen *screen;
{
 SHORT i;

 for(i=0;i<50;i++) MoveScreen(screen,0,4);

}


PrintAt(rast,x,y,s)
struct RastPort *rast;
int x,y;
char *s;
{
 Move(rast,x,y);
 Text(rast,s,strlen(s));
}