/*
 *  Abuse - dark 2D side-scrolling platform game
 *  Copyright (c) 1995 Crack dot Com
 *
 *  This software was released into the Public Domain. As with most public
 *  domain software, no warranty is made or implied by Crack dot Com or
 *  Jonathan Clark.
 */

#include "config.h"

#include "automap.hpp"
#include "game.hpp"

automap *current_automap=0;

void automap::draw()
{
  if (!automap_window) return ;
  image *screen=automap_window->screen;
  
  long sx,ex,sy,ey,x,y,window_xstart,window_ystart,
                       window_xend,window_yend,centerx,centery,
                       draw_xstart,draw_ystart,
                       i,j;
  
  x=the_game->first_view->x_center();
  y=the_game->first_view->y_center();

  
  window_xstart=automap_window->x1();       
  window_ystart=automap_window->y1();
  window_xend=automap_window->x2();       
  window_yend=automap_window->y2();
  centerx=(window_xstart+window_xend)/2;
  centery=(window_ystart+window_yend)/2;
    
  sx=x/f_wid-w/2;                // start drawing with this foretile  
  sy=y/f_hi-h/2;
  ex=sx+w; 
  ey=sy+h;  

  if (sx<0)                       // does the map scroll past the left side ?
  { sx=0;                         // yes, start drawing at 0  
    draw_xstart=centerx-(x*AUTOTILE_WIDTH/f_wid);
  }
  else
    draw_xstart=centerx-(x*AUTOTILE_WIDTH/f_wid-sx*AUTOTILE_WIDTH);
                           
  if (sy<0) 
  { 
    sy=0;   
    draw_ystart=centery-(y*AUTOTILE_HEIGHT/f_hi);
  }
  else
    draw_ystart=centery-(y*AUTOTILE_HEIGHT/f_hi-sy*AUTOTILE_HEIGHT);

  // if view position hasn't changed, only update the binking dot and return
  if (draw_xstart==old_dx && draw_ystart==old_dy)  
  {
   automap_window->screen->add_dirty(centerx,centery,centerx,centery);
    if ((tick++)&4)
      automap_window->screen->putpixel(centerx,centery,255);
    else 
      automap_window->screen->putpixel(centerx,centery,27);
    return ;   
  }

  old_dx=draw_xstart;
  old_dy=draw_ystart;  


  if (ex>=cur_lev->foreground_width())  
    ex=cur_lev->foreground_width()-1;
  if (ey>=cur_lev->foreground_height())
    ey=cur_lev->foreground_height()-1;


  screen->bar(window_xstart,window_ystart,draw_xstart,window_yend,0);
  screen->bar(window_xstart,window_ystart,window_xend,draw_ystart,0);
  

/*  if (ex>=cur_lev->foreground_width())
  {    
    draw_xend=center
    ex=foreground_width()-1; */

    


  // we are going to redraw the whole map, so make the dirty rect work easier by marking
  // everything dirty
  screen->add_dirty(window_xstart,window_ystart,window_xend,window_yend);

  


  // draw the tiles that will be around the border of the automap with put_image
  // because it handles clipping, but for ths reason is slower, the rest
  // we will slam on as fast as possible

  screen->set_clip(window_xstart,window_ystart,window_xend,window_yend);
/*  for (i=draw_xstart,j=draw_ystart,x=sx,y=sy;y<=ey;j+=AUTOTILE_HEIGHT,y++)
    foretiles[cur_lev->get_fg(x,y)]->micro_image->put_image(screen,i,j,0);

  for (i=draw_xstart+ex*AUTOTILE_WIDTH,j=draw_ystart,y=sy,x=ex;y<=ey;j+=AUTOTILE_HEIGHT,y++)
    foretiles[cur_lev->get_fg(x,y)]->micro_image->put_image(screen,i,j,0);

  for (i=draw_xstart,j=draw_ystart,x=sx,y=sy;x<=ex;i+=AUTOTILE_WIDTH,x++)
    foretiles[cur_lev->get_fg(x,y)]->micro_image->put_image(screen,i,j,0);

  for (i=draw_xstart,j=draw_ystart+ey*AUTOTILE_HEIGHT,x=sx,y=ex;x<=ex;i+=AUTOTILE_WIDTH,x++)
    foretiles[cur_lev->get_fg(x,y)]->micro_image->put_image(screen,i,j,0); */


   
  unsigned short *fgline;
  for (j=draw_ystart,y=sy;y<=ey;j+=AUTOTILE_HEIGHT,y++)
  {    
    fgline=cur_lev->get_fgline(y)+sx;
    for (i=draw_xstart,x=sx;x<=ex;i+=AUTOTILE_WIDTH,x++,fgline++)
    {
      if ((*fgline)&0x8000)
      {
	int id=foretiles[ (*fgline)&0x7fff];
	if (id>=0)
          cash.foret(id)->micro_image->put_image(screen,i,j,0);
	else
          cash.foret(foretiles[0])->micro_image->put_image(screen,i,j,0);
      }
      else
        screen->bar(i,j,i+AUTOTILE_WIDTH-1,j+AUTOTILE_HEIGHT-1,0);


    }

  } 


  // draw the person as a dot, no need to add a dirty because we marked the whole screen already
  if ((tick++)&4)
    automap_window->screen->putpixel(centerx,centery,255);
  else 
    automap_window->screen->putpixel(centerx,centery,27);

  // set the clip back to full window size because soemthing else could mess with the area
  automap_window->screen->set_clip(0,0,screen->width()-1,screen->height()-1);  
}


void automap::toggle_window()
{
  if (automap_window)
  {    
    eh->close_window(automap_window);
    automap_window=NULL;
  } 
  else
  {    
    old_dx=-1000;        // make sure the map gets drawn the first time
    old_dy=-1000;

    automap_window=eh->new_window(0,0,w*AUTOTILE_WIDTH,h*AUTOTILE_HEIGHT);
    automap_window->screen->bar(17,1,17+8*6+3,6,eh->medium_color());    
    eh->font()->put_string(automap_window->screen,20,2,"AUTOMAP");
    draw();    
  }  
}


automap::automap(level *l, int width, int height)
{
  w=width;
  h=height;
  
  tick=0;  
  cur_lev=l;
  automap_window=NULL;
  toggle_window();   
}

void automap::handle_event(event &ev)
{

  //only respond to stuff in our window or on the main screen
  if (ev.window==NULL || ev.window==automap_window)
  {
    switch (ev.type)
    {
      case EV_KEY :
        switch(ev.key)
	{
	  case 'A' :	
	  case 'a' :
  	    toggle_window();
	    break;	    
	}  
	break;	
      case EV_CLOSE_WINDOW :
        eh->close_window(automap_window);
	automap_window=NULL;
	break;	             
    }    
  }     
}