#include <stdio.h>
#include <dos.h>
#include <conio.h>
#include <stdlib.h>
#include <alloc.h>
#include <ctype.h>
#include <wgt.h>
#include <spr.h>

block title;

color palette[256];
block sprites[201];
int x,y,i;
char k;
int shoot;


// sprites numbers (So you don't get confused)
// 1    = spaceship
// 2    = missile fired
// 3    = aliens!

void looper();
extern spclip;

void main(void)
{
printf("WordUp Graphics Toolkit Example Program\n\n");
printf("This program is meant to show off what the\n");
printf("WGT Library can do, and is not meant as a\n");
printf("complete shareware or public domain game.\n");
printf("Please remember this while playing the game.\n\n");
printf("Press q during the game to quit...\n\n\n");


i=minit();
if (i==0)
   {
   printf("Mouse not detected.  You need a mouse for this example program\n");
   printf("Press any key\n");
   getch();
   exit(1);
   }
else printf("Mouse with %i buttons detected.\n",i);
printf("Press any key\n");
getch();

vga256();
title=wloadpak("invade.pak");
wloadsprites(&palette,"invader.spr",sprites);
initspr();
spon=26;				// two sprites on now

wsetscreen(spritescreen);

wputblock(0,0,title,0);
wcopyscreen(0,0,319,199,spritescreen,0,0,NULL);

getch();

wsetcolor(0);
wbar(0,0,319,140);
wcopyscreen(0,0,319,199,spritescreen,0,0,NULL);

spriteon(1,160,148,1);

for (y=0; y<3; y++)
  for (x=1; x<8; x++)
    {
    spriteon((y*7)+x+2,x*20+10,20+y*30,3);
    animate((y*7)+x+2,"(3,3)(4,3)(5,3)(4,3)R");
    animon((y*7)+x+2);
    movex((y*7)+x+2,"(1,150,0)(0,30,0)(-1,150,0)(0,30,0)R");
    movey((y*7)+x+2,"(0,150,0)(1,30,0)(0,150,0)(-1,30,0)R");
    movexon((y*7)+x+2);
    moveyon((y*7)+x+2);
    }



msetbounds(0,148,319,148);

do {
looper();
} while (k !='Q');

msetbounds(0,0,319,199);
textmode(C80);
}


void looper(void)
{
erasespr();

mread();
s[1].x=mx;
s[1].y=my;

if (but==1)				// if you pressed the left button
  {
    if (shoot==0)			// not shooting then
      {
      spriteon(2,s[1].x+3,s[1].y,2);    // turn on the missile sprite
      movey(2,"(-2,200,0)");  		// make it move up
      moveyon(2);			// turn the movement on
      shoot=1;
      }
  }


if (s[2].y<-10)
  shoot=0;

if (kbhit())
   k=toupper(getch());			// convert to uppercase letter
drawspr();
}