svn rev.329より移動。

[chnosproject/CHNOSProject.git] / CHNOSProject / chnos / tolset_chn_000 / chnos_008 / walk / walk.c

diff --git a/CHNOSProject/chnos/tolset_chn_000/chnos_008/walk/walk.c b/CHNOSProject/chnos/tolset_chn_000/chnos_008/walk/walk.c
new file mode 100644 (file)
index 0000000..a3d8355
--- /dev/null
+++ b/CHNOSProject/chnos/tolset_chn_000/chnos_008/walk/walk.c
@@ -0,0 +1,26 @@
+#include <apilib.h>\r
+\r
+void CHNMain(void)\r
+{\r
+       uchar *buf;\r
+       int win, i, x, y;\r
+       api_initmalloc();\r
+       buf = api_malloc(160 * 100);\r
+       win = api_openwin(buf, 160, 100, -1, "walk");\r
+       api_boxfilwin(win, 4, 24, 155, 95, black);\r
+       x = 76;\r
+       y = 56;\r
+       api_putstrwin(win, x, y, yellow, 1, "*");\r
+       for (;;) {\r
+               i = api_getkey(true);\r
+               api_putstrwin(win, x, y, black, 1, "*");\r
+               if (i == '4' && x >   4) { x -= 8; }\r
+               if (i == '6' && x < 148) { x += 8; }\r
+               if (i == '8' && y >  24) { y -= 8; }\r
+               if (i == '2' && y <  80) { y += 8; }\r
+               if (i == 0x0a) { break; }\r
+               api_putstrwin(win, x, y, yellow, 1, "*");\r
+       }       \r
+       api_closewin(win);\r
+       api_end();\r
+}\r