WebSVN – Kolibri OS – Diff – /programs/games/mine/trunk/mine.c--

 /*******************************************************************************
     MenuetOS MineSweeper
-    Copyright (C) 2003  Ivan Poddubny
+    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
     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      // âêëþ÷èòü ðåæèì âûâîäà ïðåäóïðåæäåíèé
+? pragma option LST    // generate ASM listing file - ñîçäàòü àññåìáëåðíûé ëèñòèíã
-? pragma option meos
+? warning    TRUE      // âêëþ÷èòü ðåæèì âûâîäà ïðåäóïðåæäåíèé
+? jumptomain NONE
-? jumptomain NONE
+? include "msys.h--"     // MenuetOS system functions - ñèñòåìíûå ôóíêöèè MenuetOS
-? include "msys.h--"   // MenuetOS system functions - ñèñòåìíûå ôóíêöèè MenuetOS
+//? define DEBUG 1
-? print "\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
+? print "\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
-? print "\n³          MeOS MineSweeper v0.3          ³"
+? print "\n³          MenuetOS MineSweeper v0.4           ³"
-? print "\n³ (C) Ivan Poddubny (ivan-yar@bk.ru) 2003 ³"
+? print "\n³ (C) Ivan Poddubny (ivan-yar@bk.ru) 2003,2004 ³"
-? print "\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ\n\n"
+? print "\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ\n\n"
 /************************************** DATA **************************************/
 ? define XPX 16      // X pixels by square - ðàçìåð êëåòêè â ïèêñåëÿõ
 ? define YPX 16      // Y pixels by square
   byte   nmines;
 } stdmodes[3] = {9,9,10, 16,16,40, 30,16,99}; // {x,y,m}
 int XST,             // offset of first pixel X - ñìåùåíèå ïîëÿ îò ãðàíèöû îêíà
     YST,
-    ncx,             // number of squares in X  - ðàçìåð ïîë
+    ncx,             // number of squares in X  - ðàçìåð ïîëÿ
     ncy,
     cmines,          // mines discovered        - êîëè÷åñòâî íåîòêðûòûõ ìèí
     initmines,       // number of initial mines - èçíà÷àëüíîå êîëè÷åñòâî ìèí
   $mov eax,40
   $mov ebx,100111b
   $int 0x40
+}
 inline void fastcall mouse_disable()
+{
   $mov eax,40
   $mov ebx,000111b
   $int 0x40
+}
 ? include "timer.h--"  // timer functions
 ? include "draw.h--"   // drawing functions
 ? include "access.h--" // get & set functions
+? include "random.h--" // random number generator
-? include "random.h--" // random number generator
+//? include "uf.h--"     // user field window
-//? include "uf.h--"     // user field window
 void init()
-// Èíèöèàëèçàöè
+// Èíèöèàëèçàöèÿ
+{
   xsize = ncx * XPX + XST + XST;
   ysize = ncy * YPX + YST + XST;
+} // init
 } // init
 void clear_all()
 // Î÷èñòèòü ïîëå
+{
   EAX = 0;
   EDI = #massiv;
   ECX = ncx * ncy;
+  $REP $STOSD
-  $REP $STOSD
+} // clear_all
 } // clear_all
 void new_game()
 // Íîâàÿ èãðà
+{
-  init();            // èíèöèàëèçàöè
+  init();            // èíèöèàëèçàöèÿ
   randomize();       // ãåíåðàòîð ñëó÷àéíûõ ÷èñåë
   clear_all();       // î÷èñòèòü ïîëå
   firstmine = TRUE;  // èãðà íå íà÷àòà
   mouse_en = TRUE;   // ìûøü ðàçðåøåíà
+  stop_game = FALSE; // èãðà íå çàêîí÷åíà
-  stop_game = FALSE; // èãðà íå çàêîí÷åíà
+  stop_timer();
-  stop_timer();
+  time = 0;          // âðåìÿ = 0
-  time = 0;          // âðåìÿ = 0
+} // new_game
 } // new_game
+void set_mines(int nminas, no_x, no_y)
+// Ðàññòàâèòü ìèíû
+{
   int i, x, y, a, b;
 void set_mines(int nminas, no_x, no_y)
-// Ðàññòàâèòü ìèíû
+  #ifdef DEBUG
+  sys_debug_write_string("MINE: set_mines called\n");
-{
+  #endif
   int i, x, y, a, b;
   sqclosed = ncx * ncy - nminas;  // êîëè÷åñòâî ÍÅîòêðûòûõ êëåòîê = ïëîùàäü ïîëÿ - êîë-âî ìèí
   sqclosed = ncx * ncy - nminas;  // êîëè÷åñòâî ÍÅîòêðûòûõ êëåòîê = ïëîùàäü ïîëÿ - êîë-âî ìèí
   FOR (i = nminas; i > 0; i--)    // ðàññòàâèòü ìèíû
   FOR (i = nminas; i > 0; i--)    // ðàññòàâèòü ìèíû
+      }
+    }
+  }
 }  // set_mines
 inline void do_mouse(void)
 // Îáðàáîò÷èê ìûøè
+{
   int x,y;
+  EAX = sys_read_mouse(2);            // ìûøü íå íàæàòà -> âûõîä
+  IF (EAX == 0)
+  {
+//    sys_debug_write_string("Strange\n");
-  EAX = sys_read_mouse(2);            // ìûøü íå íàæàòà -> âûõîä
+    return;
   IF (EAX == 0) return;
     // íà íåîòêðûòîé êëåòêå áåç ôëàæêà íàæàòà ëåâàÿ êíîïêà ìûøè
     // left mouse button is pressed
     IF (firstmine == TRUE)
+    {
       firstmine = FALSE;
-      set_mines(cmines, x, y);
+      set_mines(initmines, x, y);
       start_timer();
+      time = 1;
+      draw_time();
+    }
     IF (get_value(x, y) == MINE)
+    {
       end_game();
       return;
     // both mouse buttons are pressed
     IF (open_near_squares(x, y) == TRUE)
       end_game();
+  }
+  IF (sqclosed == 0)
   if (sqclosed == 0)
-  // îòêðûòû âñå êëåòêè
+    // îòêðûòû âñå êëåòêè
-  // all squares are opened
     // all squares are opened
     mouse_en   = FALSE;  // çàïðåòèòü ìûøü
     stop_timer();
     stop_game  = TRUE;   // èãðà çàâåðøåíà
+        }
     draw_minesi();
+  }
 }  // do_mouse
 void open_square(int x, y)
 // Îòêðûòü êëåòêó
+{
+  int a, b, i;
+  #ifdef DEBUG
+  sys_debug_write_string("MINE: open_square called\n");
-  int a, b, i;
+  #endif
   set_open(x, y, TRUE);
   sqclosed--;
         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");
-  dword suma = 0;
+  #endif
   a = x;
   b = y;
   FOR (i = 0; i < 8; i++)
         IF (get_value(a, b) == MINE)
           suma = 1;
         open_square(a, b);
+      }
+    }
-    RETURN suma;
+    return suma;
+  }
   ELSE
-    RETURN 0;
+    return 0;
 }  // open_near_squares
 void end_game()
+{
+  int x,y;
+  #ifdef DEBUG
+  sys_debug_write_string("MINE: end_game called\n");
-  int x,y;
+  #endif
   stop_game = TRUE;
   stop_timer();
   for (x=0; x
 }  // end_game
 void main()
+{
-  sys_delay(5);   // for old kernel only!
+  //sys_delay(5);   // for old kernel only!
   new_game();
   draw_window();
   mouse_enable();
   while()
   {
     switch (sys_wait_event_timeout(100))  // wait for 1 second
+    {
-      CASE evReDraw:
+      case evReDraw:
         draw_window();
         continue;
-      CASE evKey:
+      case evKey:
         IF (sys_get_key() == 27)
           sys_exit_process();
         continue;
-      CASE evButton:
+      case evButton:
         ELSE IF (EAX == 1001)        // change mode
+        {
           // mode++; mode%=3; mode++;
           EAX = mode; EAX++; EAX = EAX%3; EAX++; mode = AL;
-          // get window position - ïîëó÷èòü êîîðäèíàòû îêíà
+          new_game();
-          sys_process_info(#procinfo, -1);
+          EBX = ECX = -1;
-          xpos = procinfo.xstart;
+          EDX = xsize;
-          ypos = procinfo.ystart;
+          ESI = ysize;
-          // start a new process and terminate this one
+          EAX = 67;
-          sys_create_thread(#main, ESP);
+          $int 0x40
-          sys_exit_process();
+          continue;
+        }
-        //ELSE IF (EAX == 1002)
+//        ELSE IF (EAX == 1002)
-        //{
+//        {
-        //  start_uf();
+//          start_uf();
-        //}
+//        }
         ELSE IF (EAX == 1)           // close window
           sys_exit_process();
-        CONTINUE;
+        continue;
       case evMouse:
         IF (!mouse_en) // is mouse enabled ?
-          CONTINUE;
+          continue;
         do_mouse();
         // wait for mouse release - æäàòü îòïóñêàíèÿ êíîïêè
         WHILE (sys_read_mouse(2) == mouse_status)
         {
           check_timer();
-          sys_delay(6);
+          sys_delay(3);
           CONTINUE;
+        }
         check_timer();

Subversion Repositories Kolibri OS

(root)/programs/games/mine/trunk/mine.c-- – Rev 109 → 126