Subversion Repositories Kolibri OS

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

    KolibriOS 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

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

//? pragma option LST    // generate ASM listing file - ñîçäàòü àññåìáëåðíûé ëèñòèíã

? warning    TRUE      // âêëþ÷èòü ðåæèì âûâîäà ïðåäóïðåæäåíèé

? jumptomain NONE

? include "kos_sys.h--"     // KolibriOS system functions - ñèñòåìíûå ôóíêöèè KolibriOS

//? define DEBUG 1

? print "\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"

? print "\n³          KolibriOS MineSweeper v0.52         ³"

? print "\n³ (C)   Leency  (leency@mail.ru)     2010,2011 ³"

? print "\n³ (C) Ivan Poddubny (ivan-yar@bk.ru) 2003,2004 ³"

? print "\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ\n\n"

/************************************** DATA **************************************/

? define XPX 16      // X pixels by square - ðàçìåð êëåòêè â ïèêñåëÿõ

? define YPX 16      // Y pixels by square

? define MINE 255    // â êëåòêå ìèíà, åñëè value = MINE

struct

{

  byte value;        // number of mines   - êîëè÷åñòâî ìèí â îêðóæàþùèõ êëåòêàõ

  byte open;         // square is open    - êëåòêà îòêðûòà

  byte press;        // reserved          - çàðåçåðâèðîâàíî

  byte mark;         // square is marked  - êëåòêà ïîìå÷åíà

} massiv[30*30];

struct

{

  byte a_inc;

  byte b_inc;

} matrix[8] = {-1,-1,1,0,1,0,0,1,-2,0,0,1,1,0,1,0};

struct

{

  byte   x_size;

  byte   y_size;

  byte   nmines;

} stdmodes[3] = {9,9,10, 16,16,40, 30,16,99}; // {x,y,m}

?define XST 5       // offset of first pixel X - ñìåùåíèå ïîëÿ îò ãðàíèöû îêíà

?define YST 28

int ncx,             // number of squares in X  - ðàçìåð ïîëÿ

    ncy,

    cmines,          // mines discovered        - êîëè÷åñòâî íåîòêðûòûõ ìèí

    initmines,       // number of initial mines - èçíà÷àëüíîå êîëè÷åñòâî ìèí

    sqclosed;        // squares still closed    - êîëè÷åñòâî çàêðûòûõ êëåòîê

dword xpos = 100,    // window coordinates      - êîîðäèíàòû îêíà

      ypos = 100,

      xsize,         // window size

      ysize;

byte stop_game = FALSE,   // game stopped - ïðèçíàê êîíöà èãðû

     mouse_en = TRUE,     // mouse enabled   - ìûøü

     mode = 2,            // ðåæèì èãðû 1-íîâè÷îê 2-ëþáèòåëü 3-ýêñïåðò (0 îñîáûé)

     mouse_status,

     firstmine;

ProcessInfo  procinfo;

SystemColors colors;

/************************************** CODE **************************************/

inline void fastcall mouse_enable()

{

  $mov eax,40

  $mov ebx,0xC0000027

  $int 0x40

}

inline void fastcall mouse_disable()

{

  $mov eax,40

  $mov ebx,0xC0000007

  $int 0x40

}

# include "timer.h--"  // timer functions

# include "draw.h--"   // drawing functions

# include "access.h--" // get & set functions

# include "random.h--" // random number generator

void init()

// Èíèöèàëèçàöèÿ

{

  ECX = mode;

  IF (ECX != 0)

  {

    //ncx = stdmodes[ECX-1].x_size;

    //ncy = stdmodes[ECX-1].y_size;

    //cmines = initmines = stdmodes[ECX-1].nmines;

    EBX = #stdmodes;

    ECX--; ECX *= 3;

    EBX += ECX;

    ncx = DSBYTE[EBX]; EBX++;

    ncy = DSBYTE[EBX]; EBX++;

    cmines = initmines = DSBYTE[EBX];

  }

  xsize = ncx * XPX + XST + XST;

  ysize = ncy * YPX + YST + XST + sys_get_skin_height() + 4;

} // init

void clear_all()

// Î÷èñòèòü ïîëå

{

  EAX = 0;

  EDI = #massiv;

  ECX = ncx * ncy;

  $REP $STOSD

} // clear_all

void new_game()

// Íîâàÿ èãðà

{

  init();            // èíèöèàëèçàöèÿ

  randomize();       // ãåíåðàòîð ñëó÷àéíûõ ÷èñåë

  clear_all();       // î÷èñòèòü ïîëå

  firstmine = TRUE;  // èãðà íå íà÷àòà

  mouse_en = TRUE;   // ìûøü ðàçðåøåíà

  stop_game = FALSE; // èãðà íå çàêîí÷åíà

  stop_timer();

  time = 0;          // âðåìÿ = 0

} // new_game

void set_mines(int nminas, no_x, no_y)

// Ðàññòàâèòü ìèíû

{

  int i, x, y, a, b;

  #ifdef DEBUG

  sys_debug_write_string("MINE: set_mines called\n");

  #endif

  sqclosed = ncx * ncy - nminas;  // êîëè÷åñòâî ÍÅîòêðûòûõ êëåòîê = ïëîùàäü ïîëÿ - êîë-âî ìèí

  FOR (i = nminas; i > 0; i--)    // ðàññòàâèòü ìèíû

  {

    x = random(ncx);

    y = random(ncy);

    WHILE ((get_value(x, y) == MINE) || ((x == no_x) && (y == no_y)))

    {

      x = random(ncx);

      y = random(ncy);

    }

    set_value(x, y, MINE);

  }

  for (x = ncx-1; x >= 0; x--)    // ðàññòàâèòü öèôðû

  {

    for (y = ncy-1; y >= 0; y--)

    {

      IF (get_value(x, y) == MINE)

        continue;

      EDX = x * ncy + y*4 + #massiv;

      a = x; b = y;

      FOR (i = 0; i < 8; i++)

      {

         AL = matrix[i].a_inc;

         $movsx eax,al

         a += EAX;

         AL = matrix[i].b_inc;

         $movsx eax,al

         b += EAX;

         IF ((a >= 0) && (b >= 0) && (a < ncx) && (b < ncy) && (get_value(a, b) == MINE))

           DSBYTE[EDX]++;

      }

    }

  }

}  // set_mines

inline void do_mouse(void)

// Îáðàáîò÷èê ìûøè

{

  int x,y;

  EAX = sys_read_mouse(2);            // ìûøü íå íàæàòà -> âûõîä

  IF (EAX == 0)

  {

//    sys_debug_write_string("Strange\n");

    return;

  }

  mouse_status = AL;

  EAX = sys_read_mouse(1);            // ìûøü âíå ïîëÿ  -> âûõîä

  EBX = EAX; EAX >>= 16; EBX &= 0xffff;

  ECX = ncx * XPX + XST - 1;

  EDX = ncy * YPX + YST - 1;

  IF ((EAX < XST) || (EBX < YST) || (EAX > ECX) || (EBX > EDX)) return;

  EAX -= XST; EAX /= XPX; x = EAX;    // âû÷èñëèòü x è y

  EBX -= YST; EBX /= YPX; y = EBX;

  IF ((mouse_status == 1) && (!get_open(x, y)) && (get_mark(x, y) != 1))

  {

    // íà íåîòêðûòîé êëåòêå áåç ôëàæêà íàæàòà ëåâàÿ êíîïêà ìûøè

    // left mouse button is pressed

    IF (firstmine == TRUE)

    {

      firstmine = FALSE;

      set_mines(initmines, x, y);

      start_timer();

      time = 1;

      draw_time();

    }

    IF (get_value(x, y) == MINE)

    {

      end_game();

      return;

    }

    open_square(x, y);

  }

  else IF ((mouse_status == 2) && (!get_open(x, y)))

  {

    // íà íåîòêðûòîé êëåòêå íàæàòà ïðàâàÿ êíîïêà ìûøè

    // right mouse button is pressed

    EBX = get_mark(x, y); EBX++;

    EBX = EBX%3;

    SWITCH (EBX)

    {

      CASE 2: cmines++; BREAK;

      CASE 1: cmines--;

    }

    set_mark(x, y, EBX);

    draw_mines_left();

    draw_square(x, y);

    return;

  }

  ELSE IF ((mouse_status == 3) && (get_open(x, y)))

  {

    // íà îòêðûòîé êëåòêå íàæàòû îáå êíîïêè ìûøè

    // both mouse buttons are pressed

    IF (open_near_squares(x, y) == TRUE)

      end_game();

  }

  IF (sqclosed == 0)

  {

    // îòêðûòû âñå êëåòêè

    // all squares are opened

    mouse_en   = FALSE;  // çàïðåòèòü ìûøü

    stop_timer();

    stop_game  = TRUE;   // èãðà çàâåðøåíà

    // ïîñòàâèòü íåðàññòàâëåííûå ìèíû

    FOR (x = 0; x < ncx; x++)

      FOR (y = 0; y < ncy; y++)

        IF ((get_value(x, y) == MINE) && (get_mark(x, y) != 1))

        {

          set_mark(x, y, 1);

          cmines--;

          draw_square(x, y);

        }

    draw_mines_left();

  }

}  // do_mouse

void open_square(int x, y)

// Îòêðûòü êëåòêó

{

  int a, b, i;

  #ifdef DEBUG

  sys_debug_write_string("MINE: open_square called\n");

  #endif

  set_open(x, y, TRUE);

  sqclosed--;

  IF (get_value(x, y) != 0)

  {

    draw_square(x, y);

  }

  else

  {

    draw_square(x, y);

    a = x; b = y;

    FOR (i = 0; i < 8; i++)

    {

      //a += matrix[i].a_inc;

      //b += matrix[i].b_inc;

      AL = matrix[i].a_inc;

      $movsx eax,al

      a += EAX;

      AL = matrix[i].b_inc;

      $movsx eax,al

      b += EAX;

      IF ((a >= 0) && (b >= 0) && (a < ncx) && (b < ncy) && (!get_open(a, b)) && (get_mark(a, b) != 1))

        open_square(a, b);

    }

  }

}  // open_square

int open_near_squares(int x, y)

// Îòêðûòü áëèçëåæàùèå êëåòêè (îáå êíîïêè ìûøè âìåñòå)

{

  int a, b, i;

  dword suma = 0;

  #ifdef DEBUG

  sys_debug_write_string("MINE: open_near_squares called\n");

  #endif

  a = x;

  b = y;

  FOR (i = 0; i < 8; i++)

  {

    //a+=matrix[i].a_inc;

    //b+=matrix[i].b_inc;

    AL = matrix[i].a_inc;

    $movsx eax,al

    a += EAX;

    AL = matrix[i].b_inc;

    $movsx eax,al

    b += EAX;

    IF ((a >= 0) && (b >= 0) && (a < ncx) && (b < ncy) && (get_mark(a, b) == 1))

      suma++;

  }

  if (suma == get_value(x, y))

  {

    suma = 0;

    a = x;

    b = y;

    for (i = 0; i < 8; i++)

    {

      //a+=matrix[i].a_inc;

      //b+=matrix[i].b_inc;

      AL = matrix[i].a_inc;

      $movsx eax,al

      a += EAX;

      AL = matrix[i].b_inc;

      $movsx eax,al

      b += EAX;

      IF ((a >= 0) && (b >= 0) && (a < ncx) && (b < ncy) && (!get_open(a, b)) && (get_mark(a, b) != 1))

      {

        IF (get_value(a, b) == MINE)

          suma = 1;

        open_square(a, b);

      }

    }

    RETURN suma;

  }

  ELSE

    RETURN 0;

}  // open_near_squares

void end_game()

{

  int x,y;

  #ifdef DEBUG

  sys_debug_write_string("MINE: end_game called\n");

  #endif

  stop_game = TRUE;

  stop_timer();

  for (x=0; x

  {

    for (y=0; y

    {

      IF (get_value(x, y) == MINE)

      {

        set_mark(x, y, FALSE); // ñíÿòü ôëàã

        open_square(x, y);

      }

      ELSE IF (get_mark(x, y) == 1)      // åñëè ìèíû íåò, à ôëàæîê åñòü

      {

        EBX = XPX * x + XST;      // x left

        ECX = EBX + XPX - 1;      // x right

        EBX <<= 16; EBX += ECX;

        $PUSH EBX

        ECX = YPX * y + YST;      // y top

        $PUSH ECX

        EDX = ECX + YPX - 1;      // y bottom

        ECX <<= 16; ECX += EDX;

        sys_draw_line(EBX, ECX, clBlack);

        $POP EDX

        ECX = EDX + YPX - 1;

        ECX <<= 16; ECX += EDX;

        $POP EBX

        sys_draw_line(EBX, ECX, clBlack);

        CONTINUE;

      }

    }

  }

}  // end_game

void main()

{

  new_game();

  draw_window();

  mouse_enable();

  while()

  {

    switch (sys_wait_event_timeout(100))  // wait for 1 second

    {

      CASE evReDraw:

        draw_window();

        continue;

      CASE evKey:

        IF (sys_get_key() == 27)

          sys_exit_process();

        continue;

      CASE evButton:

        EAX = sys_get_button_id();

        IF (EAX == 911)              // new game

        {

          new_game();

          draw_squares();

          draw_time();

          draw_mines_left();

        }

        ELSE IF (EAX == 1001)        // change mode

        {

          mode++;

          if (mode==4) mode=1;

          //EAX = mode; EAX++; EAX = EAX%3; EAX++; mode = AL;

          new_game();

          window_move_size(OLD,OLD,xsize+9,ysize);

          CONTINUE;

        }

//        ELSE IF (EAX == 1002)

//        {

//          start_uf();

//        }

        ELSE IF (EAX == 1)           // close window

          sys_exit_process();

        CONTINUE;

      case evMouse:

        IF (!mouse_en) // is mouse enabled ?

          CONTINUE;

        do_mouse();

        // wait for mouse release - æäàòü îòïóñêàíèÿ êíîïêè

        WHILE (sys_read_mouse(2) == mouse_status)

        {

          check_timer();

          sys_delay(3);

          CONTINUE;

        }

        check_timer();

        IF (stop_game)      // disable mouse if game is stopped

          mouse_en = FALSE;

        CONTINUE;

    }

    check_timer();

    sys_delay(2);

  }

}  // main