void HariMain(void)
{
char buf[214 * 82 * osak_getbuflen()], s[2];
int win, col;
win = api_openwin(buf, 25 * 8 + 14, 3 * 16 + 34, -1, "LuckyNum");
api_boxfilwin(win, BPX, BPY, 25 * 8 + BPX, 3 * 16 + BPY, 0);
api_putstrwin(win, BPX, BPY, 6, 12, "LuckyNumber=");
api_putstrwin(win, BPX, 16 + BPY, 6, 12, "LuckyColor =");
api_putstrwin(win, BPX, 32 + BPY, 3, 17, "Good Luck!(^o^)/~");
srand(tomo_gettick()); /* seedを与える */
s[0] = '0' + rand() % 10;
s[1] = '\0';
api_putstrwin(win, 13 * 8 + BPX, BPY, 6, 1, s);
col = rand() % 9; /* Hariboteは明るい色が前に集まっているので変なループはいらない */
api_boxfilwin(win, 13 * 8 + BPX, 16 + BPY, 14 * 8 + BPX - 1, 32 + BPY - 1, col);
while (api_getkey(1) != 0x0a);
api_closewin(win);
api_end();
}
void HariMain(void)
{
char buf[416 * 52 * osak_getbuflen()], s[2];
int win, timer, i, curc = 0, curx = 8;
win = api_openwin(buf, 416, 50, -1, "1Line");
timer = api_alloctimer();
api_inittimer(timer, 128);
make_textbox(win, 8, 28, 400, 16);
s[1] = '\0';
api_settimer(timer, 50); /* 0.5•b */
for (;;) {
i = api_getkey(1);
if (i == 128) {
if (curc == 0) {
/* On */
curc = 7;
} else {
/* Off */
curc = 0;
}
api_boxfilwin(win, curx, 43, 7 + curx, 43, curc);
api_settimer(timer, 50); /* 0.5•b */
}
if (i == 0x08) {
/* BackSpace */
if (8 < curx) {
api_boxfilwin(win, curx - 8, 28, curx + 7, 43, 7);
curx -= 8;
api_boxfilwin(win, curx, 43, 7 + curx, 43, curc);
}
}
if (0x20 <= i && i <= 'z') {
if (curx < 400) {
api_boxfilwin(win, curx, 28 + 15, 7 + curx, 28 + 15, 7);
s[0] = i;
api_putstrwin(win, curx, 28, 0, 1, s);
curx += 8;
api_boxfilwin(win, curx, 28 + 15, 7 + curx, 28 + 15, curc);
}
}
}
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 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;
}
