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;
}
