void HariMain(void) { char *buf; int win, i, x, y; api_initmalloc(); buf = api_malloc(160 * 100); win = api_openwin(buf, 160, 100, -1, "walk"); api_boxfilwin(win, 4, 24, 155, 95, 0);/*黑色*/ x = 76; y = 56; api_putstrwin(win, x, y, 3, 1, "*");/*黄色*/ for (;;) { i = api_getkey(1); api_putstrwin(win, x, y, 0 , 1, "*"); /*用黑色擦除*/ if (i == '4' && x > 4) { x -= 8; } if (i == '6' && x < 148) { x += 8; } if (i == '8' && y > 24) { y -= 8; } if (i == '2' && y < 80) { y += 8; } if (i == 0x0a) { break; } /*按回车键结束*/ api_putstrwin(win, x, y, 3 , 1, "*");/*黄色*/ } api_closewin(win); api_end(); }
void HariMain() { char buf[WND_X * WND_Y * osak_getbuflen()]; char cmdline[30], *p = 0; struct CSV_INFO csvinfo; int sig, cx, cy, basex, basey, i, mode; int *p_com1, *p_com2; char c; /* CSVデータの初期化 */ p_com2 = &csvinfo.comma[MAX_COMMA_Y - 1][MAX_COMMA_X - 1]; for (p_com1 = &csvinfo.comma[0][0]; p_com1 <= p_com2; p_com1++) *p_com1 = -1; csvinfo.max_x = csvinfo.max_y = csvinfo.filesize = 0; /* コマンドライン取得 */ api_cmdline(cmdline, 30); for (p = cmdline; *p > ' '; p++); /* スペースが来るまで読み飛ばす */ for (; *p == ' '; p++); /* スペースを読み飛ばす */ i = api_fopen(p); if (i == 0) { api_putstr0("File not found.\n"); api_end(); } csvinfo.filesize = api_fsize(i, 0); if (csvinfo.filesize >= MAX_FILESIZ - 1) { /* 読めない */ api_putstr0("Filesize is too big.\n"); api_end(); } api_fread(csvinfo.buf, csvinfo.filesize, i); api_fclose(i); p = csvinfo.buf; i = cx = cy = mode = 0; if (*p != ',') csvinfo.comma[0][0] = 0; while (i < csvinfo.filesize) { c = csvinfo.buf[i++]; if (c == 0x22) { if (i == 1 || mode == 0) { mode++; continue; } if (mode && (csvinfo.buf[i] == ',' || csvinfo.buf[i] == 0x0a || csvinfo.buf[i] == 0x0d)) mode--; } if (mode == 0 && c == ',') { cx++; // 「,,」「,\n」のように、セルに何もない状態ではない if (csvinfo.buf[i] != ',' && csvinfo.buf[i] != 0x0a && csvinfo.buf[i] != 0x0d) csvinfo.comma[cy][cx] = i; // コンマの次の文字の場所が記録される } /* 改行コード */ if ((c == 0x0d /* CR */ && csvinfo.buf[i] == 0x0a /* LF */) || (c == 0x0a /* LF */ && csvinfo.buf[i] == 0x0d /* CR */)) { if (i < csvinfo.filesize) { if (csvinfo.max_x < cx) csvinfo.max_x = cx; cy++; cx = 0; i++; if (i >= csvinfo.filesize) break; csvinfo.max_y++; if (csvinfo.buf[i] != ',' && csvinfo.buf[i] != 0x0a && csvinfo.buf[i] != 0x0d) csvinfo.comma[cy][cx] = i; // コンマの次の文字の場所が記録される if (csvinfo.buf[i] == 0x22) mode++; } } } csvinfo.max_x++; csvinfo.max_y++; win = api_openwin(buf, WND_X, WND_Y, -1, "CSV-Viewer"); api_boxfilwin(win, 6, 26+16, GBOX_X+6, GBOX_Y+26+16, 7); /* ワークシート作成 */ for (i = 0; i <= GBOX_X; i += CELLSIZ_X) api_linewin(win, i + 6, 42, i + 6, GBOX_Y + 42, 15); for (i = 0; i <= GBOX_Y; i += CELLSIZ_Y) api_linewin(win, 6, i + 42, GBOX_X + 6, i + 42, 15); /* CSVデータ表示 */ cx = cy = basex = basey = 1; PutCell(1, 1, &csvinfo); my_drawboxId(4, cx, cy); Putcellinfo(basex+cx-2, basey+cy-2, &csvinfo); /* メインループ */ for (;;) { sig = api_getkey(1); if (sig == 0xb4) { /* left */ if (1 < cx) { my_drawboxId(15, cx, cy); cx--; sig = 0; } else if (1 < basex) { basex--; PutCell(basex, basey, &csvinfo); sig = 0; } } if (sig == 0xb6) { /* rigth */ if (cx < maxell_x-1) { my_drawboxId(15, cx, cy); cx++; sig = 0; } else if (basex+cx < MAX_COMMA_X) { basex++; PutCell(basex, basey, &csvinfo); sig = 0; } } if (sig == 0xb8) { /* up */ if (cy > 1) { my_drawboxId(15, cx, cy); cy--; sig = 0; } else if (1 < basey) { basey--; PutCell(basex, basey, &csvinfo); sig = 0; } } if (sig == 0xb2) { /* down */ if (cy < maxell_y-1) { my_drawboxId(15, cx, cy); cy++; sig = 0; } else if (basey+cy < MAX_COMMA_Y) { basey++; PutCell(basex, basey, &csvinfo); sig = 0; } } if (sig == 0xb9) { /* Page Up */ if (basey > 1) { basey -= maxell_y - 1; if (basey < 1) { my_drawboxId(15, cx, cy); basey = cy = 1; } PutCell(basex, basey, &csvinfo); sig = 0; } } if (sig == 0xb3) { /* Page Down */ if (basey <= MAX_COMMA_Y - maxell_y) { basey += maxell_y - 1; if (basey > MAX_COMMA_Y - maxell_y) { my_drawboxId(15, cx, cy); basey = MAX_COMMA_Y - maxell_y + 1; cy = maxell_y - 1; } PutCell(basex, basey, &csvinfo); sig = 0; } } if (sig == 0) { my_drawboxId(4, cx, cy); Putcellinfo(basex+cx-2, basey+cy-2, &csvinfo); } } }
void putstr(char *s, int x, int y, int l) { api_boxfilwin(win + 1, x * 8 + 6, y * 16 + 26, (x + l) * 8 + 6, (y + 1) * 16 + 26, 0); api_putstrwin(win, x * 8 + 6, y * 16 + 26, 7, l, s); return; }
void HariMain(void) { char winbuf[256 * 112], txtbuf[100 * 1024]; char s[32], *p, *r; int win, timer, i, j, t = 120, l = 192 / 4, o = 4, q = 7, note_old = 0; /* 音番号と周波数(mHz)の対応表 */ /* たとえば、O4Aは440Hzなので、440000 */ /* オクターブ16のAは1802240Hzなので、1802240000 */ /* 以下はオクターブ16のリスト(C〜B) */ static int tonetable[12] = { 1071618315, 1135340056, 1202850889, 1274376125, 1350154473, 1430438836, 1515497155, 1605613306, 1701088041, 1802240000, 1909406767, 2022946002 }; static int notetable[7] = { +9, +11, +0 /* C */, +2, +4, +5, +7 }; /* コマンドライン解析 */ api_cmdline(s, 30); for (p = s; *p > ' '; p++) { } /* スペースが来るまで読み飛ばす */ for (; *p == ' '; p++) { } /* スペースを読み飛ばす */ i = strlen(p); if (i > 12) { file_error: end("file open error.\n"); } if (i == 0) { end(0); } /* ウィンドウの準備 */ win = api_openwin(winbuf, 256, 112, -1, "mmlplay"); api_putstrwin(win, 128, 32, 0, i, p); api_boxfilwin(win, 8, 60, 247, 76, 7); api_boxfilwin(win, 6, 86, 249, 105, 7); /* ファイル読み込み */ i = api_fopen(p); if (i == 0) { goto file_error; } j = api_fsize(i, 0); if (j >= 100 * 1024) { j = 100 * 1024 - 1; } api_fread(txtbuf, j, i); api_fclose(i); txtbuf[j] = 0; r = txtbuf; i = 0; /* 通常モード */ for (p = txtbuf; *p != 0; p++) { /* 処理を簡単にするためにコメントや空白を消す */ if (i == 0 && *p > ' ') { /* スペースや改行コードなどではない */ if (*p == '/') { if (p[1] == '*') { i = 1; } else if (p[1] == '/') { i = 2; } else { *r = *p; if ('a' <= *p && *p <= 'z') { *r += 'A' - 'a'; /* 小文字は大文字に変換 */ } r++; } } else if (*p == 0x22) { *r = *p; r++; i = 3; } else { *r = *p; r++; } } else if (i == 1 && *p == '*' && p[1] == '/') { /* ブロックコメント */ p++; i = 0; } else if (i == 2 && *p == 0x0a) { /* 行コメント */ i = 0; } else if (i == 3) { /* 文字列 */ *r = *p; r++; if (*p == 0x22) { i = 0; } else if (*p == '%') { p++; *r = *p; r++; } } } *r = 0; /* タイマの準備 */ timer = api_alloctimer(); api_inittimer(timer, 128); /* メイン */ p = txtbuf; for (;;) { if (('A' <= *p && *p <= 'G') || *p == 'R') { /* 音符・休符 */ /* 周波数計算 */ if (*p == 'R') { i = 0; s[0] = 0; } else { i = o * 12 + notetable[*p - 'A'] + 12; s[0] = 'O'; s[1] = '0' + o; s[2] = *p; s[3] = ' '; s[4] = 0; } p++; if (*p == '+' || *p == '-' || *p == '#') { s[3] = *p; if (*p == '-') { i--; } else { i++; } p++; } if (i != note_old) { api_boxfilwin(win + 1, 32, 36, 63, 51, 8); if (s[0] != 0) { api_putstrwin(win + 1, 32, 36, 10, 4, s); } api_refreshwin(win, 32, 36, 64, 52); if (28 <= note_old && note_old <= 107) { api_boxfilwin(win, (note_old - 28) * 3 + 8, 60, (note_old - 28) * 3 + 10, 76, 7); } if (28 <= i && i <= 107) { api_boxfilwin(win, (i - 28) * 3 + 8, 60, (i - 28) * 3 + 10, 76, 4); } if (s[0] != 0) { api_beep(tonetable[i % 12] >> (17 - i / 12)); } else { api_beep(0); } note_old = i; }
void HariMain(void) { int win, timer, i, j, fx, laserwait, lx = 0, ly; //laserwait: time to wait before loaded again int ix, iy, movewait0, movewait, idir;//movewait ==0, invaders move one step further int invline, score, high, point;//invline: lines of invaders, point: unit value for killing one invader char winbuf[336 * 261], invstr[32 * 6], s[12], keyflag[4], *p; static char invstr0[32] = " abcd abcd abcd abcd abcd "; win = api_openwin(winbuf, 336, 261, -1, "invader"); api_boxfilwin(win, 6, 27, 329, 254, 0); timer = api_alloctimer(); api_inittimer(timer, 128); high = 0; putstr(win, winbuf, 22, 0, 6, "HIGH:00000000"); restart: score = 0; point = 1; putstr(win, winbuf, 4, 0, 7, "SCORE:00000000"); movewait0 = 20; fx = 18; putstr(win, winbuf, fx, 13, 6, "efg"); //paint fighter wait(100, timer, keyflag); next_group: wait(100, timer, keyflag); ix = 7; iy = 1; invline = 6; for (i = 0; i < 6; i++) { for (j = 0; j < 27; j++) { invstr[i * 32 + j] = invstr0[j]; } putstr(win, winbuf, ix, iy + i, 2, invstr + i * 32); //paint invaders line bye line } keyflag[0] = 0; keyflag[1] = 0; keyflag[2] = 0; ly = 0; /* not shown */ laserwait = 0; movewait = movewait0; idir = +1; wait(100, timer, keyflag); for (;;) { if (laserwait != 0) { laserwait--; keyflag[2 /* space */] = 0; } wait(4, timer, keyflag); /* handling fighter */ if (keyflag[0 /* left */] != 0 && fx > 0) { fx--; putstr(win, winbuf, fx, 13, 6, "efg "); keyflag[0 /* left */] = 0; } if (keyflag[1 /* right */] != 0 && fx < 37) { putstr(win, winbuf, fx, 13, 6, " efg"); fx++; keyflag[1 /* right */] = 0; } if (keyflag[2 /* space */] != 0 && laserwait == 0) { laserwait = 15; lx = fx + 1; ly = 13; } /* invaders movement */ if (movewait != 0) { movewait--; } else { movewait = movewait0; if (ix + idir > 14 || ix + idir < 0) { if (iy + invline == 13) { break; /* GAME OVER */ } idir = - idir; putstr(win, winbuf, ix + 1, iy, 0, " ");//remove the first row iy++; } else { ix += idir; } for (i = 0; i < invline; i++) { putstr(win, winbuf, ix, iy + i, 2, invstr + i * 32);//paint again } } /* handling laser */ if (ly > 0) { if (ly < 13) { if (ix < lx && lx < ix + 25 && iy <= ly && ly < iy + invline) { putstr(win, winbuf, ix, ly, 2, invstr + (ly - iy) * 32); } else { putstr(win, winbuf, lx, ly, 0, " "); } } ly--; if (ly > 0) { putstr(win, winbuf, lx, ly, 3, "h"); } else { point -= 10; if (point <= 0) { point = 1; } } if (ix < lx && lx < ix + 25 && iy <= ly && ly < iy + invline) { p = invstr + (ly - iy) * 32 + (lx - ix); if (*p != ' ') { /* hit ! */ score += point; point++; sprintf(s, "%08d", score); putstr(win, winbuf, 10, 0, 7, s); if (high < score) { high = score; putstr(win, winbuf, 27, 0, 7, s); } for (p--; *p != ' '; p--) { } for (i = 1; i < 5; i++) { //remove hit invader p[i] = ' '; } putstr(win, winbuf, ix, ly, 2, invstr + (ly - iy) * 32); for (; invline > 0; invline--) { for (p = invstr + (invline - 1) * 32; *p != 0; p++) { if (*p != ' ') { goto alive; } } } /* all invaders killed */ movewait0 -= movewait0 / 3; goto next_group; alive: ly = 0; } } } } /* GAME OVER */ putstr(win, winbuf, 15, 6, 1, "GAME OVER"); wait(0, timer, keyflag); for (i = 1; i < 14; i++) { putstr(win, winbuf, 0, i, 0, " "); } goto restart; }
void HariMain(void) { char winbuf[1024 * 757], txtbuf[240 * 1024]; int w = 30, h = 10, t = 4, spd_x = 1, spd_y = 1; int win, i, j, lang = api_getlang(), xskip = 0; char s[30], *p, *q = 0, *r = 0; /* 커맨드 라인 해석 */ api_cmdline(s, 30); for (p = s; *p > ' '; p++) { } /* 스페이스가 올 때까지 건너 뛴다 */ for (; *p != 0; ) { p = skipspace(p); if (*p == '-') { if (p[1] == 'w') { w = strtol(p + 2, &p, 0); if (w < 20) { w = 20; } if (w > 126) { w = 126; } } else if (p[1] == 'h') { h = strtol(p + 2, &p, 0); if (h < 1) { h = 1; } if (h > 45) { h = 45; } } else if (p[1] == 't') { t = strtol(p + 2, &p, 0); if (t < 1) { t = 4; } } else { err: api_putstr0(" >tview file [-w30 -h10 -t4]\n"); api_end(); } } else { /* 파일명 발견 */ if (q != 0) { goto err; } q = p; for (; *p > ' '; p++) { } /* 스페이스가 올 때까지 건너 뛴다 */ r = p; } } if (q == 0) { goto err; } /* 윈도우의 준비 */ win = api_openwin(winbuf, w * 8 + 16, h * 16 + 37, -1, "tview"); api_boxfilwin(win, 6, 27, w * 8 + 9, h * 16 + 30, 7); /* 파일 read */ *r = 0; i = api_fopen(q); if (i == 0) { api_putstr0("file open error.\n"); api_end(); } j = api_fsize(i, 0); if (j >= 240 * 1024 - 1) { j = 240 * 1024 - 2; } txtbuf[0] = 0x0a; /* sentinel용의 개행 코드 */ api_fread(txtbuf + 1, j, i); api_fclose(i); txtbuf[j + 1] = 0; q = txtbuf + 1; for (p = txtbuf + 1; *p != 0; p++) { /* 처리를 간단하게 하기 위해서 0x0d의 코드를 지운다 */ if (*p != 0x0d) { *q = *p; q++; } } *q = 0; /* 메인 */ p = txtbuf + 1; for (;;) { textview(win, w, h, xskip, p, t, lang); i = api_getkey(1); if (i == 'Q' || i == 'q') { api_end(); } if ('A' <= i && i <= 'F') { spd_x = 1 << (i - 'A'); /* 1, 2, 4, 8, 16, 32 */ } if ('a' <= i && i <= 'f') { spd_y = 1 << (i - 'a'); /* 1, 2, 4, 8, 16, 32 */ } if (i == '<' && t > 1) { t /= 2; } if (i == '>' && t < 256) { t *= 2; } if (i == '4') { for (;;) { xskip -= spd_x; if (xskip < 0) { xskip = 0; } if (api_getkey(0) != '4') { /* '4'를 누르지 않으면 처리 끝 */ break; } } } if (i == '6') { for (;;) { xskip += spd_x; if (api_getkey(0) != '6') { break; } } } if (i == '8') { for (;;) { for (j = 0; j < spd_y; j++) { if (p == txtbuf + 1) { break; } for (p--; p[-1] != 0x0a; p--) { } /* 한 문자 전에 0x0a가 나올 때까지 거슬러 올라간다 */ } if (api_getkey(0) != '8') { break; } } } if (i == '2') { for (;;) { for (j = 0; j < spd_y; j++) { for (q = p; *q != 0 && *q != 0x0a; q++) { } if (*q == 0) { break; } p = q + 1; } if (api_getkey(0) != '2') { break; } } } } }
void HariMain(void) { char winbuf[256 * 112], txtbuf[100 * 1024]; char s[32], *p, *r; int win, timer, i, j, t = 120, l = 192 / 4, o = 4, q = 7, note_old = 0; /*音号与频率(mHz)的对照表*/ /*例如,04A为440Hz,即440000 */ /*第16八度的A为1802240Hz,即1802240000 */ /*以下为第16八度的列表(C~B) */ static int tonetable[12] = { 1071618315, 1135340056, 1202850889, 1274376125, 1350154473, 1430438836, 1515497155, 1605613306, 1701088041, 1802240000, 1909406767, 2022946002 }; static int notetable[7] = { +9, +11, +0 /* C */, +2, +4, +5, +7 }; /*命令行解析*/ api_cmdline(s, 30); for (p = s; *p > ' '; p++) { } /*一直读到空格为止*/ for (; *p == ' '; p++) { } /*跳过空格*/ i = strlen(p); if (i > 12) { file_error: end("file open error.\n"); } if (i == 0) { end(0); } /*准备窗口*/ win = api_openwin(winbuf, 256, 112, -1, "mmlplay"); api_putstrwin(win, 128, 32, 0, i, p); api_boxfilwin(win, 8, 60, 247, 76, 7); api_boxfilwin(win, 6, 86, 249, 105, 7); /*载入文件*/ i = api_fopen(p); if (i == 0) { goto file_error; } j = api_fsize(i, 0); if (j >= 100 * 1024) { j = 100 * 1024 - 1; } api_fread(txtbuf, j, i); api_fclose(i); txtbuf[j] = 0; r = txtbuf; i = 0; /*通常模式*/ for (p = txtbuf; *p != 0; p++) { /*为了方便处理,将注释和空白删去*/ if (i == 0 && *p > ' ') { /*不是空格或换行符*/ if (*p == '/') { if (p[1] == '*') { i = 1; } else if (p[1] == '/') { i = 2; } else { *r = *p; if ('a' <= *p && *p <= 'z') { *r += 'A' - 'a'; /*将小写字母转换为大写字母*/ } r++; } } else if (*p == 0x22) { *r = *p; r++; i = 3; } else { *r = *p; r++; } } else if (i == 1 && *p == '*' && p[1] == '/') { /*段注释*/ p++; i = 0; } else if (i == 2 && *p == 0x0a) { /*行注释*/ i = 0; } else if (i == 3) { /*字符串*/ *r = *p; r++; if (*p == 0x22) { i = 0; } else if (*p == '%') { p++; *r = *p; r++; } } } *r = 0; /*定时器准备*/ timer = api_alloctimer(); api_inittimer(timer, 128); /*主体*/ p = txtbuf; for (;;) { if (('A' <= *p && *p <= 'G') || *p == 'R') { /*音符、休止符*/ /*计算频率*/ if (*p == 'R') { i = 0; s[0] = 0; } else { i = o * 12 + notetable[*p - 'A'] + 12; s[0] = 'O'; s[1] = '0' + o; s[2] = *p; s[3] = ' '; s[4] = 0; } p++; if (*p == '+' || *p == '-' || *p == '#') { s[3] = *p; if (*p == '-') { i--; } else { i++; } p++; } if (i != note_old) { api_boxfilwin(win + 1, 32, 36, 63, 51, 8); if (s[0] != 0) { api_putstrwin(win + 1, 32, 36, 10, 4, s); } api_refreshwin(win, 32, 36, 64, 52); if (28 <= note_old && note_old <= 107) { api_boxfilwin(win, (note_old - 28) * 3 + 8, 60, (note_old - 28) * 3 + 10, 76, 7); } if (28 <= i && i <= 107) { api_boxfilwin(win, (i - 28) * 3 + 8, 60, (i - 28) * 3 + 10, 76, 4); } if (s[0] != 0) { api_beep(tonetable[i % 12] >> (17 - i / 12)); } else { api_beep(0); } note_old = i; }
void HariMain(void) { char *buf; int win, i, x, y, timer; api_initmalloc(); buf = api_malloc(200 * 200); char* title; char keyflag[4]; char *last_direction; *last_direction = '4'; //snake struct snakeNode *head = api_malloc(sizeof(struct snakeNode)); head->preNode = NULL; head->posX = 75; head->posY = 55; head->moveDirection = 4; struct snakeNode *tail = head; //snake //food struct Food food; food.posX = 69; food.posY = 61; food.isEaten = 1;// not eaten; //food sprintf(title, "posX: %d, posY: %d, mp: %d", tail->posX, tail->posY, tail->moveDirection); //sprintf(title, "Hungry Snake"); win = api_openwin(buf, 200, 200, -1, title); timer = api_alloctimer(); api_inittimer(timer, 128); api_boxfilwin(win, 5, 25, 195, 195, 0); x = 75; y = 55; tail->posX = 75; tail->posY = 55; api_putstrwin(win, tail->posX, tail->posY, 3, 1, "*"); //scrnRefresher(win, tail, 3, "*"); for (;;) { i = *last_direction; scrnRefresher(win, tail, 0, "*"); // updateSnake(head); updateSnake(tail); scrnRefresher(win, tail, 3, "*"); //add food here foodInit(&food, win, 4, "+"); //add food here /*detecting*/ detecting(head, &tail, &food); delay(); //if (snakeLength < 10) {tail = addSegment(tail, &snakeLength);} wait(1, timer, keyflag, last_direction, head); } api_closewin(win); api_end(); }
void HariMain(void) { int win, timer, i, j, fx, laserwait, lx = 0, ly; int ix, iy, movewait0, movewait, idir; int invline, score, high, point; char winbuf[336 * 261 * osak_getbuflen()], invstr[32 * 6], s[12], keyflag[4], *p; static char invstr0[32] = " abcd abcd abcd abcd abcd "; win = api_openwin(winbuf, 336, 261, -1, "invader"); api_boxfilwin(win, 6, 27, 329, 254, 0); timer = api_alloctimer(); api_inittimer(timer, 128); high = 0; putstr(win, winbuf, 22, 0, 7, "HIGH:00000000"); restart: score = 0; point = 1; putstr(win, winbuf, 4, 0, 7, "SCORE:00000000"); movewait0 = 20; fx = 18; putstr(win, winbuf, fx, 13, 6, "efg"); wait(100, timer, keyflag); next_group: wait(100, timer, keyflag); ix = 7; iy = 1; invline = 6; for (i = 0; i < 6; i++) { for (j = 0; j < 27; j++) { invstr[i * 32 + j] = invstr0[j]; } putstr(win, winbuf, ix, iy + i, 2, invstr + i * 32); } keyflag[0] = 0; keyflag[1] = 0; keyflag[2] = 0; ly = 0; /* 非表示 */ laserwait = 0; movewait = movewait0; idir = +1; wait(100, timer, keyflag); for (;;) { if (laserwait != 0) { laserwait--; keyflag[2 /* space */] = 0; } wait(4, timer, keyflag); /* 自機の処理 */ if (keyflag[0 /* left */] != 0 && fx > 0) { fx--; putstr(win, winbuf, fx, 13, 6, "efg "); keyflag[0 /* left */] = 0; } if (keyflag[1 /* right */] != 0 && fx < 37) { putstr(win, winbuf, fx, 13, 6, " efg"); fx++; keyflag[1 /* right */] = 0; } if (keyflag[2 /* space */] != 0 && laserwait == 0) { laserwait = 15; lx = fx + 1; ly = 13; } /* インベーダ移動 */ if (movewait != 0) { movewait--; } else { movewait = movewait0; if (ix + idir > 14 || ix + idir < 0) { if (iy + invline == 13) { break; /* GAME OVER */ } idir = - idir; putstr(win, winbuf, ix + 1, iy, 0, " "); iy++; } else { ix += idir; } for (i = 0; i < invline; i++) { putstr(win, winbuf, ix, iy + i, 2, invstr + i * 32); } } /* レーザー処理 */ if (ly > 0) { if (ly < 13) { if (ix < lx && lx < ix + 25 && iy <= ly && ly < iy + invline) { putstr(win, winbuf, ix, ly, 2, invstr + (ly - iy) * 32); } else { putstr(win, winbuf, lx, ly, 0, " "); } } ly--; if (ly > 0) { putstr(win, winbuf, lx, ly, 3, "h"); } else { point -= 10; if (point <= 0) { point = 1; } } if (ix < lx && lx < ix + 25 && iy <= ly && ly < iy + invline) { p = invstr + (ly - iy) * 32 + (lx - ix); if (*p != ' ') { /* hit ! */ score += point; point++; // sprintf(s, "%08d", score); setdec8(s, score); putstr(win, winbuf, 10, 0, 7, s); if (high < score) { high = score; putstr(win, winbuf, 27, 0, 7, s); } for (p--; *p != ' '; p--) { } for (i = 1; i < 5; i++) { p[i] = ' '; } putstr(win, winbuf, ix, ly, 2, invstr + (ly - iy) * 32); for (; invline > 0; invline--) { for (p = invstr + (invline - 1) * 32; *p != 0; p++) { if (*p != ' ') { goto alive; } } } /* 全部やっつけられた */ movewait0 -= movewait0 / 3; goto next_group; alive: ly = 0; } } } } /* GAME OVER */ putstr(win, winbuf, 15, 6, 1, "GAME OVER"); wait(0, timer, keyflag); for (i = 1; i < 14; i++) { putstr(win, winbuf, 0, i, 0, " "); } goto restart; }
void putstr(int win, char *winbuf, int x, int y, int col, unsigned char *s) { int c, x0, i, col2; char *p, t[2]; struct SYS_INFO sysinfo; int bpp; char *q; unsigned short *sq; unsigned int *iq; tomo_sysinfo(&sysinfo); bpp = sysinfo.vmode; col2 = osak_getcolor(1, col); x = x * 8 + 8; y = y * 16 + 29; x0 = x; i = strlen(s); /* sの文字数を数える */ api_boxfilwin(win + 1, x, y, x + i * 8 - 1, y + 15, 0); q = winbuf + y * 336; sq = (unsigned short *) winbuf + y * 336; iq = (unsigned int *) winbuf + y * 336; t[1] = 0; for (;;) { c = *s; if (c == 0) { break; } if (c != ' ') { if ('a' <= c && c <= 'h') { p = charset + 16 * (c - 'a'); if (bpp == 8) { q += x; for (i = 0; i < 16; i++) { if ((p[i] & 0x80) != 0) { q[0] = col; } if ((p[i] & 0x40) != 0) { q[1] = col; } if ((p[i] & 0x20) != 0) { q[2] = col; } if ((p[i] & 0x10) != 0) { q[3] = col; } if ((p[i] & 0x08) != 0) { q[4] = col; } if ((p[i] & 0x04) != 0) { q[5] = col; } if ((p[i] & 0x02) != 0) { q[6] = col; } if ((p[i] & 0x01) != 0) { q[7] = col; } q += 336; } q -= 336 * 16 + x; } else if (bpp == 16) { col = osak_getcolor(16, col2); sq += x; for (i = 0; i < 16; i++) { if ((p[i] & 0x80) != 0) { sq[0] = col; } if ((p[i] & 0x40) != 0) { sq[1] = col; } if ((p[i] & 0x20) != 0) { sq[2] = col; } if ((p[i] & 0x10) != 0) { sq[3] = col; } if ((p[i] & 0x08) != 0) { sq[4] = col; } if ((p[i] & 0x04) != 0) { sq[5] = col; } if ((p[i] & 0x02) != 0) { sq[6] = col; } if ((p[i] & 0x01) != 0) { sq[7] = col; } sq += 336; } sq -= 336 * 16 + x; } else if (bpp == 24) { iq += x; for (i = 0; i < 16; i++) { if ((p[i] & 0x80) != 0) { iq[0] = col2; } if ((p[i] & 0x40) != 0) { iq[1] = col2; } if ((p[i] & 0x20) != 0) { iq[2] = col2; } if ((p[i] & 0x10) != 0) { iq[3] = col2; } if ((p[i] & 0x08) != 0) { iq[4] = col2; } if ((p[i] & 0x04) != 0) { iq[5] = col2; } if ((p[i] & 0x02) != 0) { iq[6] = col2; } if ((p[i] & 0x01) != 0) { iq[7] = col2; } iq += 336; } iq -= 336 * 16 + x; } } else { t[0] = *s; api_putstrwin(win + 1, x, y, col, 1, t); } } s++; x += 8; } api_refreshwin(win, x0, y, x, y + 16); return; }