/*
==============================================================================
		      WordUp Graphics Toolkit Version 5.0                     
			     Demonstration Program 63                         
									      
 This is the same as example 62 except for the fact that it runs in                                                                              
 VESA using 640x480x256. A VESA driver is required of course.....

 *** PROJECT ***                                                             
 This program requires the WGT5_WC.LIB, WVESA_WC.LIB and WSCR_WC.LIB files 
 to be linked.   
									      
 *** DATA FILES ***                                                          
 MUN.WMP, MUNCHMAP.SPR, MUNCHKIN.SPR                                         
							   WATCOM C++ VERSION 
==============================================================================
*/
#include <dos.h>
#include <malloc.h>
#include <stdio.h>
#include <conio.h>

#include <wgt5.h>
#include <wgtscrol.h>
#include <wgtvesa.h>

#define _XSIZE_ 640
#define _YSIZE_ 480
#define DESIRED_MODE V640x480


typedef short tiletypes[256];


#define YOU 37
void checkfeet (void);
void checkhead (void);
void checkright (void);
void checkleft (void);
void findelevators (void);
void upelev (void);
void downelev (void);
void checkelevators (void);
void moveguys (void);

short ox,oy,dir,anim;
short jumping,addy;
short spx,spy;

int timer;
// The number of times the screen is updated
int updates;

short feet1,feet2,head1,head2;
short windx,windy;

wgtmap munchmap;                        // our world map
tiletypes munchtypes;

#define UP 72
#define DOWN 80
#define LEFT 75
#define RIGHT 77
#define CTRL 29
#define ESC 1

#define NUM_SPR 51
#define NUM_TILE 255
#define NUM_OBJ 101
#define TILE_SIZE 16

#define MAINWIN 0

color palette[256];             // our palette of colours

block munchtiles[NUM_TILE];             // our blocks for the map
block munchsprites[NUM_SPR];            // our sprites 
block screenbuf;
scrollsprite munchobj[NUM_OBJ];

short i;

typedef struct {
    short curheight;
    short origy,origx;
    short timer;
    } elevator;

short replace[200];
short elevup=-1;
short oldmode;

elevator elev[30];
short numelev=0;


void timerctr (void)
{
  timer++;
}


void main (void)
{
  oldmode = wgetmode ();
  if (!vgadetected ())
  {
    printf ("VGA is required to run this program...");
    exit (1);
  }

  printf ("WGT Example #63\n\n");
  printf ("8-WAY SCROLLING SVGA DEMO\n");
  printf ("Arrow keys move, CTRL jumps. Up/down looks in direction or operates\n");
  printf ("elevators.  ESC quits the program.\n");
  printf ("\n\nWindow Width (2-40):");
  scanf ("%i", &windx);
  printf ("\nWindow Height (2-24):");
  scanf ("%i", &windy);

  vga256 ();
  if (wvesa_detected ())
  {
    wvesa_getmodeinfo (DESIRED_MODE);
    wvesa_init (DESIRED_MODE);
  }
  wloadsprites (palette, "munchmap.spr", munchtiles, 0, NUM_TILE - 1);
  wloadsprites (palette, "munchkin.spr", munchsprites, 0, NUM_SPR - 1);
  wsetpalette (0, 255, palette);
  
  screenbuf = wallocblock (_XSIZE_, _YSIZE_);
  wsetscreen (screenbuf);
  
  winitscroll (MAINWIN, NORMAL, - 1, windx, windy, munchtiles);
  memset (&munchobj[0], 0, sizeof (scrollsprite)*NUM_OBJ);
  munchmap = wloadmap (MAINWIN, "mun.wmp", munchtypes, munchobj);
  
  findelevators ();
  
  wshowwindow (MAINWIN, 0, 0);
  
  installkbd ();
  
  munchobj[YOU].on = 1;
  munchobj[YOU].x = 16;
  munchobj[YOU].y = 242;
  munchobj[YOU].num = 1;
  
  jumping = 0; addy = 0;
  anim = 2;
  
  timer = 0;
  winittimer ();
  wstarttimer (timerctr, TICKS(100));
  do
  {
    spx = 0;
    spy = 0;
    ox = munchobj[YOU].x;
    oy = munchobj[YOU].y;
    
    if  (jumping == 1)
      addy += 2;
    if  (addy > 15)
      addy = 15;
    
    if  ((kbdon[CTRL]) & (jumping == 0))
    {
      jumping = 1;
      addy = - 14;
    }
    
    if  (kbdon[LEFT])
    {
      munchobj[YOU].x -= 8;
      checkleft ();
      if  (dir != 1)
      {
	dir = 1;
	anim = 5;
      }
      anim++;
      if  (anim > 8)
	anim = 5;
    }
    else if  (kbdon[RIGHT])
    {
      munchobj[YOU].x += 8;
      checkright ();
      if  (dir != 2)
      {
	dir = 2;
	anim = 1;
      }
      anim++;
      if  (anim > 4)
	anim = 1;
    }
    
    munchobj[YOU].num = anim;
    if  (munchobj[YOU].x == ox)
      if  (dir == 1)
	munchobj[YOU].num = 9;
    else munchobj[YOU].num = 1;
    
    munchobj[YOU].y += addy;
    if  (munchobj[YOU].y < 0) munchobj[YOU].y = 0;
    if  (addy < 0)
      checkhead ();
    
    
    if  ((jumping == 1))
      if  (dir == 1)
	munchobj[YOU].num = 6;
    else munchobj[YOU].num = 2;
    
    checkfeet ();
    
    spx = munchobj[YOU].x - worldx[MAINWIN] - windowmaxx[MAINWIN] / 2;
    spy = munchobj[YOU].y - worldy[MAINWIN] - windowmaxy[MAINWIN] / 2;
    
    if  (kbdon[UP])
    {
      if  ((feet1 == 105) | (feet2 == 105))
	upelev ();
      else
	spy = - 4;
    }
    if  (kbdon[DOWN])
    {
      if  ((feet1 == 105) | (feet2 == 105))
	downelev ();
      else
	spy = + 4;
    }
    
    checkelevators ();
    // make sure they come back down when not standing on them
    
    moveguys ();
    
    wscrollwindow (MAINWIN, spx, spy);
    wshowobjects (MAINWIN, 1, NUM_OBJ - 1, munchsprites, munchobj);
    
    wtextcolor (10);
    wtexttransparent (TEXTFGBG);
    wgtprintf (0, 0, NULL, "Free ram: %d", getmemfree ());
    
    wsetscreen (NULL);
    wvesa_clip (0, 0, 639, 479);
    wvesa_putblock (0, 0, scrollblock[MAINWIN], NORMAL);
    wsetscreen (screenbuf);
    updates++;
  } while  (kbdon[ESC] != 1);          /* until ESC key is pressed */
  wstoptimer ();  
  wdonetimer ();

  uninstallkbd ();
  
  wendscroll (MAINWIN);
  wfreesprites (munchtiles, 0, NUM_TILE - 1);
  wfreesprites (munchsprites, 0, NUM_SPR - 1);
  wfreemap (munchmap);
  wsetmode (oldmode);
  printf ("\nElapsed time (hundredths of seconds): %i", timer);
  printf ("\n# updates: %d", updates);
  printf ("\nMicroseconds per frame: %g", (float)(timer) / (float)(updates));
  printf ("\nAverage frame rate: %2.2f frames/sec\n", (float)updates / ((float)(timer) / 100.0));
}


void checkright (void)
{
  short j,k;
  short x;
    
  j = wgetworldblock (MAINWIN, munchobj[YOU].x + 16, munchobj[YOU].y + 1);
  k = wgetworldblock (MAINWIN, munchobj[YOU].x + 16, munchobj[YOU].y + 15);
  if  ((j >= 100) | (k >= 100))
  {
      x = munchobj[YOU].x / TILE_SIZE;
      munchobj[YOU].x = x * TILE_SIZE;
  }
}


void checkleft (void)
{
  short j,k;
  short x;
    
  j = wgetworldblock (MAINWIN, munchobj[YOU].x, munchobj[YOU].y);
  k = wgetworldblock (MAINWIN, munchobj[YOU].x, munchobj[YOU].y + 15);
  if  ((j >= 100) | (k >= 100))
  {
      x = munchobj[YOU].x / TILE_SIZE;
      x++;
      munchobj[YOU].x = x * TILE_SIZE;
  }
}


void checkfeet (void)
{
  short j,k,y;
  
  feet1 = wgetworldblock (MAINWIN, munchobj[YOU].x, munchobj[YOU].y + 16);
  feet2 = wgetworldblock (MAINWIN, munchobj[YOU].x + 15, munchobj[YOU].y + 16);
  if  ((feet1 < 50) & (feet2 < 50))
    jumping = 1;
  else 
  {
    y = munchobj[YOU].y / TILE_SIZE;
    munchobj[YOU].y = y * TILE_SIZE;

    jumping = 0;
    addy = 0;
  }
}


void checkhead (void)
{
  short j,k,y;
  
  head1 = wgetworldblock (MAINWIN, munchobj[YOU].x, munchobj[YOU].y - 1);
  head2 = wgetworldblock (MAINWIN, munchobj[YOU].x + 15, munchobj[YOU].y - 1);
  if  ((head1 < 50) & (head2 < 50))
    jumping = 1;
  else 
  {
    y = munchobj[YOU].y / TILE_SIZE;
    y++;
    munchobj[YOU].y = y * TILE_SIZE;

    jumping = 0;
    addy = 0;

  }
}


void findelevators (void)
{
  short i,j,k;
  for  (i = 0; i <= mapheight[MAINWIN]; i++)
    for  (j = 0; j <= mapwidth[MAINWIN]; j++)
  {
    k = wgetworldblock (MAINWIN, j*16, i*16);
    if  (k == 105)
    {
      elev[numelev].curheight = i;
      elev[numelev].origx = j;
      elev[numelev].origy = i;
      elev[numelev].timer = 0;
      
      for  (k = 0; k < 200; k++)
	replace[k] = 0;
      numelev++;
    }
  }
}


void upelev (void)
{
  short ii,jj;
  for  (ii = 0; ii < numelev; ii++)
  {
    if  ((elev[ii].origx >= (munchobj[YOU].x / 16) - 1)
	& (elev[ii].curheight >= (munchobj[YOU].y / 16) - 1)
	& (elev[ii].origx <= (munchobj[YOU].x / 16) + 1)
	& (elev[ii].curheight <= (munchobj[YOU].y / 16) + 1)
	& ((elevup == - 1) | (elevup == ii))
	& (munchobj[YOU].y > 16))
    {
      checkhead ();
      if  ((head1 < 50) & (head2 < 50))
      {
	replace[elev[ii].curheight - 1] = wgetworldblock (MAINWIN, elev[ii].origx*16, (elev[ii].curheight - 1)*16);
	wputworldblock (MAINWIN, elev[ii].origx*16, elev[ii].curheight*16, 104);
	wputworldblock (MAINWIN, elev[ii].origx*16, (elev[ii].curheight - 1)*16, 105);
	elev[ii].curheight--;
	elevup = ii;
	munchobj[YOU].y -= 16;
	elev[ii].timer = 10;
      }
    }
  }
}


void downelev (void)
{
  short ii,jj;
  for  (ii = 0; ii < numelev; ii++)
  {
    if  ((elev[ii].origx >= (munchobj[YOU].x / 16) - 1)
	& (elev[ii].curheight >= (munchobj[YOU].y / 16) - 1)
	& (elev[ii].origx <= (munchobj[YOU].x / 16) + 1)
	& (elev[ii].curheight <= (munchobj[YOU].y / 16) + 1)
	& (elev[ii].curheight != elev[ii].origy))
    {
      wputworldblock (MAINWIN, elev[ii].origx*16, elev[ii].curheight*16, replace[elev[ii].curheight]);
      wputworldblock (MAINWIN, elev[ii].origx*16, (elev[ii].curheight + 1)*16, 105);
      elev[ii].curheight++;
      if  (elev[ii].curheight == elev[ii].origy)
	elevup = - 1;
      munchobj[YOU].y += 16;
      elev[ii].timer = 10;
    }
  }
}


void checkelevators (void)
{
  short ii;
  
  for  (ii = 0; ii < numelev; ii++)
  {
    if  ((elev[ii].curheight != elev[ii].origy))
    {
      if  (elev[ii].timer == 0)
      {
	wputworldblock (MAINWIN, elev[ii].origx*16, elev[ii].curheight*16, replace[elev[ii].curheight]);
	wputworldblock (MAINWIN, elev[ii].origx*16, (elev[ii].curheight + 1)*16, 105);
	elev[ii].curheight++;
	if  (elev[ii].curheight == elev[ii].origy)
	  elevup = - 1;
	elev[ii].timer = 0;
      }
      else elev[ii].timer--;
    }
  }
}


void moveguys (void)
{
  short j,k;
  
  for  (i = 0; i <= 36; i++)
  {
    if  (munchobj[i].on == 1) 
      if (munchsprites[munchobj[i].num] != NULL)
	// sprite made
    {
      if  (is_in_window (MAINWIN, munchobj[i].x, munchobj[i].y, 100))
      {
	if  (munchobj[i].num < 16)     // walking right
	{
	  munchobj[i].num++;
	  if  (munchobj[i].num > 15) munchobj[i].num = 12;
	  // walking animation loop
	  munchobj[i].x += 3;
	  j = wgetworldblock (MAINWIN, munchobj[i].x + 16, munchobj[i].y + 16);
	  k = wgetworldblock (MAINWIN, munchobj[i].x + 16, munchobj[i].y + 8);
	  if  ((j < 50) | (k >= 50)) munchobj[i].num = 16;
	}
	if  (munchobj[i].num > 15)     // walking left
	{
	  munchobj[i].num++;
	  if  (munchobj[i].num > 19) munchobj[i].num = 16;
	  // walking animation loop
	  munchobj[i].x -= 3;
	  j = wgetworldblock (MAINWIN, munchobj[i].x, munchobj[i].y + 16);
	  k = wgetworldblock (MAINWIN, munchobj[i].x, munchobj[i].y + 8);
	  if  ((j < 50) | (k >= 50)) munchobj[i].num = 12;
	}
      }
    }
  }
}