porolith-pc98/POROLITH.PN2 at main · katakura/porolith-pc98 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
[47mA:\USR\SRC\POROLITH.C[46m             [    1:   1]      <挿入>          HELPでヘルプ[m
        for (;;) {
                c = getch() ;
                if (c == 'y') return(1) ;
                if (c == 'n') return(0) ;
        }
}
void
poro_init(void)
{
        int     x,y,i ;

        srand(time(0L)) ;                       /* ﾗﾝﾀﾞﾑ関数の初期化    */
        map_offset = MAP_XX ;                   /* ｷｬﾗｸﾀの表示位置設定  */

        for (i=0;i<5;i++) score_reaso[47mn[m[i][0] = 0x00 ;   /* ｽｺｱmsg初期化 */
        score = 0 ;
        speed = SG_SPEED ;                      /* ｽﾋﾟｰﾄﾞの初期設定     */
        next_block = rand()%SG_BLOCK_NUM ;

        for (y=0;y<MAP_Y;y++) {                 /* 画面ﾃﾞｰﾀの初期設定   */
                for (x=0;x<MAP_X;x++) {
                        screen_map[y][x] = 0x00 ;
                }
    [47m MENU1[m [47m MENU2[m [47m MENU3[m [47m SPLIT[m [47m FIND [m    [47m SEL  [m [47m CUT  [m [47m COPY [m [47m PASTE[m [47m TAGJP[m