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

    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

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

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

  // WINDOW
  EBX = xpos << 16 + xsize;
  ECX = ypos << 16 + ysize;
  sys_draw_window(EBX, ECX, 0x14CCCCCC, colors.w_grab | 0x80000000, "MineSweeper");

   // <NEW GAME> BUTTON (911)
  EBX = xsize / 2 - 10;
  EBX = EBX << 16 + 20;
  sys_draw_button(EBX, 25<<16+20, 911, clLightGray);

  // <CHANGE MODE> BUTTON (1001)
  sys_draw_button(10<<16+7, 23<<16+7, 1001, 0x118811);

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

  draw_time();     // draw timer
  draw_minesi();   // draw mines
  draw_squares();  // draw field

  sys_window_redraw(2);
}

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(XST<<16+25, 31<<16+10, 0xCCCCCC);
  sys_write_number(0x00030000, time, XST<<16+32, 0x10ff0000);
}


// Индикатор количества нерасставленных мин
void draw_minesi()
{
  EBX = xsize - XST - 25;
  $PUSH EBX
  EBX = EBX << 16 + 25;
  sys_draw_bar(EBX, 31<<16+10, 0xCCCCCC);
  $POP EDX
  EDX <<= 16; EDX += 32;
  sys_write_number(0x00030000, cmines, EDX, 0x10ff0000);
}


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

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