時間内にミスなくアローキーを押すゲーム「Arrows Attack」 | Codetter（こーどったー）

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
    buffer 1, 800, 200
    font msgothic, 200, 16
    mes "←↑→↓"
    arrow = 1, 2, 4, 8
    celdiv 1, 200, , 100, 100
    gsel
    font "arial", 30, 16
    scene = 1
*mainLoop
    stick key
    if (scene) {
        if (key & 16) {
            scene = 0
            gosub *initGame
        }
    } else {
        if (key & 15) {
            if (key == arrow(nowNo)) {
                score++
                nowNo = rnd(4)
                arrowAni = 4
            } else {
                scene = 2
            }
        }
    }
    redraw 0
    color 255, 255, 255
    boxf
    if (scene != 1) {
        pos 320, 240
        arrowAni -= arrowAni > 0
        celput 1, nowNo, 0.2 * arrowAni + 1, 0.2 * arrowAni + 1
    }
    color
    pos 100, 230
    mes score
    pos 480, 230
    mes strf("%2.2f", double(remain) / 66)
    if (scene == 1) {
        pos 230, 80
        mes "Arrows Attack"
    }
    if (scene == 2) {
        pos 285, 80
        mes "Miss!"
    }
    if (scene == 3) {
        pos 250, 80
        mes"Time's up!"
    }
    if (scene) {
        pos 170, 380
        mes "SPACE key to START"
    }
    redraw
    await 15
    if (scene == 0) {
        remain--
        if (remain == 0) {
            scene = 3
        }
    }
    goto *mainLoop
*initGame
    randomize
    nowNo = rnd(4)
    remain = 66 * 10
    arrowAni = 4
    dim score
    return
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX