/*******************************************************************************

    MenuetOS MineSweeper
    Copyright (C) 2003, 2004  Ivan Poddubny

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

*******************************************************************************/
?define HEADER_Y 4
?define BTNSIZE 19
char game_mode[] = "1/3";

void draw_window() // Процедура отрисовки окна
{
  sys_get_colors(#colors, 40);

  // WINDOW
  sys_window_redraw(1);
  EBX = xpos << 16 + xsize + 9;
  ECX = ypos << 16 + ysize;
  sys_draw_window(EBX, ECX, 0x34CCCCCC, colors.w_work | 0x80000000, "MineSweeper");
  sys_window_redraw(2);
  
  // Leency ROLLED UP FIX
  sys_process_info(#procinfo, -1);
  IF (procinfo.ysize<70) return;  

  // <NEW GAME> BUTTON (911)
  EBX = xsize / 2 - 10;
  EBX = EBX << 16 + BTNSIZE;
  sys_draw_button(EBX, HEADER_Y<<16+BTNSIZE, 911+BT_HIDE, clLightGray);
  draw_rectangle(xsize/2-10,HEADER_Y,BTNSIZE,BTNSIZE,clWhite,clDarkGray);

  // <CHANGE MODE> BUTTON (1001)
  sys_draw_button(5<<16+32, HEADER_Y<<16+BTNSIZE, 1001+BT_HIDE, clLightGray);
  draw_rectangle(5,HEADER_Y,32,BTNSIZE,clWhite,clDarkGray);
  game_mode[0] = mode + '0';
  sys_write_text(9<<16+HEADER_Y+3, 0x90000000+clDarkGray, #game_mode, 3);

  // <USER FIELD> BUTTON (1002)
  //sys_draw_button(BTNSIZE<<16+7, ECX, EDX+1, 0xddbb44);

  draw_time();     // draw timer
  draw_mines_left();   // draw mines
  draw_squares();  // draw field
}

dword num_colors[8]=
{
  0x4444d0,  // 1
  0x118811,  // 2
  0xd04444,  // 3
  0x111199,  // 4
  0x991111,  // 5
  0x117089,  // 6
  0x000000,  // 7
  0x808080   // 8
};


// Отрисовка одной клетки
void draw_square(int x, y)
{
   int xl, xr, yt, yb;       // слева, справа, сверху, снизу
   dword tcolor = clBlack;   // цвет значения клетки по умолчанию черный
   byte tchar, tval;

   xl = XPX * x + XST;
   xr = xl + XPX - 1;
   yt = YPX * y + YST;
   yb = yt + YPX - 1;

   EBX = xl+1 << 16 + xr - xl-1;
   ECX = yt+1 << 16 + yb - yt-1;
   $inc ebx
   $inc ecx
   sys_draw_bar(EBX, ECX, clLightGray);  // рисует закрашенный прямоугольник

   if (!get_open(x, y))
   {
      // рисуем рамку
      ECX = yt << 16 + yb - 1;
      sys_draw_line(xl<<16+xl, ECX, clWhite);
      EBX = xl << 16 + xr - 1;
      sys_draw_line(EBX, yt << 16 + yt, EDX);
      sys_draw_line(xr << 16 + xl, yb << 16 + yb, clDarkGray);
      sys_draw_line(xr << 16 + xr, yb << 16 + yt, EDX);

      SWITCH (get_mark(x, y))
      {
        CASE 2: tcolor = 0x121288; tchar = '?'; BREAK;
        CASE 1: tcolor = 0xd04444; tchar = 'P';
      }

      IF (get_mark(x,y))
      {
        EBX = xl + 5 << 16 + yt + 4;
        sys_write_text(EBX, tcolor, #tchar, 1);
        EBX += 0x00010000;
        /*  Второй раз - регистры сохраняются  */
        sys_write_text(EBX, ECX, EDX, ESI);
      }
   }
   else          // get_open(x,y)==TRUE
   {
      tval = get_value(x, y);
      IF (tval != 0)
      {
        IF (tval == MINE)
        {
          tcolor = 0xee1111;
          tchar = '*';
        }
        ELSE
        {
          tchar = tval + '0';
          tcolor = num_colors[tval-1];
        }
        EBX = xl + 5 << 16 + yt + 5;
        sys_write_text(EBX, tcolor, #tchar, 1);
        EBX += 0x00010000;
        sys_write_text(EBX, ECX, EDX, ESI);
      }
      sys_draw_line(xl << 16 + xl, yt << 16 + yb, clDarkGray);
      sys_draw_line(xl << 16 + xr, yt << 16 + yt, EDX);
   }
}

void draw_time()
{
  sys_draw_bar(xsize-XST-58<<16+29, HEADER_Y<<16+20, clWhiteGray);
  sys_write_number(0x00030000, time, xsize-XST-56<<16+HEADER_Y+3, 0x101166C3);
}


void draw_mines_left()
{
  sys_draw_bar(xsize-XST-29<<16+29, HEADER_Y<<16+20, clWhiteGray);
  sys_write_number(0x00030000, cmines, xsize-XST-27<<16+HEADER_Y+3, 0x10ff0000);
}


// Отрисовка минного поля
void draw_squares()
{
  int x,y;

  FOR (y=0; y < ncy; y++)
    FOR (x=0; x < ncx; x++)
      draw_square(x, y);
}

void draw_rectangle(dword x,y,w,h,color1,color2)
{
  sys_draw_bar(x<<16+w+1,y<<16+1,color1);
  sys_draw_bar(x<<16+1,y+1<<16+h-1,color1);
  sys_draw_bar(x+w<<16+1,y+1<<16+h,color2);
  sys_draw_bar(x<<16+w,y+h<<16+1,color2);
}