【HSP3】DXライブラリをHSPで使ってみるサンプル(5.シューティング基本) | 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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
#runtime "hsp3cl"
#include "DxLib.as"
// ショットの最大数
#define MAX_SHOT    4
    dim ShotValid, MAX_SHOT // ショットが存在するか、フラグ
    dim ShotX, MAX_SHOT
    dim ShotY, MAX_SHOT     // ショットの位置
    Key = 0
    OldKey = 0  // 前のキー入力状態
    i = 0 : j = 0
    
    SetGraphMode 640, 480, 16
    DxLib_Init
    if( stat == -1 ){   // ＤＸライブラリ初期化処理
         dialog "エラー" : end      // エラーが起きたら直ちに終了
    }
    
    // 描画先画面を裏画面にセット
    SetDrawScreen DX_SCREEN_BACK
    // プレイヤーの初期位置をセット
    PlayerX = 320
    PlayerY = 400
    
    // ループ
    repeat
        ProcessMessage
        if stat != 0 : break
        CheckHitKey KEY_INPUT_ESCAPE
        if stat != 0 : break
        
        // キー入力取得
        OldKey = Key
        GetJoypadInputState DX_INPUT_KEY_PAD1
        Key = stat
    
        if( Key & PAD_INPUT_RIGHT ) : PlayerX += 3  // 右を押していたら右に進む
        if( Key & PAD_INPUT_LEFT ) : PlayerX -= 3   // 左を押していたら左に進む
    
        // ショットの移動処理
        for j, 0, MAX_SHOT, 1
            // ショットデータが無効だったらスキップ
            if( ShotValid(j) == 0 ) : _continue
            
            // 位置を上にずらす
            ShotY(j) -= 8
            
            // 画面外に出ていたらショットデータを無効にする
            if( ShotY(j) < -32 ) : ShotValid(j) = 0
        next
    
        // ショットボタンを押していたらショットを出す
        // 一つ前のループでショットボタンを押していたらショットは出さない
        // Zキーを押すとショット
        // C言語では
        // if( ( Key & ~OldKey ) & PAD_INPUT_A )
        // となっているが、~OldKey の ~ チルダは NOT演算子である。
        // HSPではNOT演算子がないので、OldKey^0xFFFFFFFF
        // とすることで対処している。
        // 詳しくは
        // http://hspdev-wiki.net/?HSP%B9%D6%BA%C2%2F%A5%D3%A5%C3%A5%C8%B1%E9%BB%BB#md54eaf4
        
        if( (Key&(OldKey^0xFFFFFFFF)) & PAD_INPUT_A ){
            // 使われていないショットデータを探す
            for j, 0, MAX_SHOT, 1
                if( ShotValid(j) == 0 ) : _break
            next
            // もし使われていないショットデータがあったらショットを出す
            if( j != MAX_SHOT ){
                // ショットの位置を設定
                ShotX(j) = PlayerX + 16
                ShotY(j) = PlayerY
                    // ショットデータを使用中にセット
                ShotValid(j) = 1
            }
        }
            
        // 背景を黒でつぶす
        GetColor 0, 0, 0
        DrawBox 0, 0, 640, 480, stat, TRUE
    
        // プレイヤーを描画する
        GetColor 255, 0, 0
        DrawBox PlayerX, PlayerY, PlayerX + 48, PlayerY + 48, stat, TRUE
        // ショットを描画する
        for j, 0, MAX_SHOT, 1
            // ショットデータが有効な時のみ描画
            if( ShotValid(j) == 1 ){
                GetColor 255, 255, 255
                DrawBox ShotX(j), ShotY(j), ShotX(j) + 16, ShotY(j) + 16, stat, TRUE
            }
        next
        // 裏画面の内容を表画面に反映させる
        ScreenFlip
    loop
    
    DxLib_End               // ＤＸライブラリ使用の終了処理
end
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX