CHNOSProject/chnos/tolset_chn_000/chnos_008/walk/walk.c

   1 #include <apilib.h>\r
   2 \r
   3 void CHNMain(void)\r
   4 {\r
   5         uchar *buf;\r
   6         int win, i, x, y;\r
   7         api_initmalloc();\r
   8         buf = api_malloc(160 * 100);\r
   9         win = api_openwin(buf, 160, 100, -1, "walk");\r
  10         api_boxfilwin(win, 4, 24, 155, 95, black);\r
  11         x = 76;\r
  12         y = 56;\r
  13         api_putstrwin(win, x, y, yellow, 1, "*");\r
  14         for (;;) {\r
  15                 i = api_getkey(true);\r
  16                 api_putstrwin(win, x, y, black, 1, "*");\r
  17                 if (i == '4' && x >   4) { x -= 8; }\r
  18                 if (i == '6' && x < 148) { x += 8; }\r
  19                 if (i == '8' && y >  24) { y -= 8; }\r
  20                 if (i == '2' && y <  80) { y += 8; }\r
  21                 if (i == 0x0a) { break; }\r
  22                 api_putstrwin(win, x, y, yellow, 1, "*");\r
  23         }       \r
  24         api_closewin(win);\r
  25         api_end();\r
  26 }\r