【HSP3】DXライブラリをHSPで使ってみるサンプル(2.ジャンプ処理) | 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
#runtime "hsp3cl"
#include "DxLib.as" 
    SetGraphMode 640 , 480 , 16
    DxLib_Init
    if( stat == -1 ){   // ＤＸライブラリ初期化処理
         dialog "エラー" : end      // エラーが起きたら直ちに終了
    }
    // 描画先画面を裏画面にセット
    SetDrawScreen DX_SCREEN_BACK
    // グラフィックのロード
    LoadGraph "Player.bmp"
    PlayerGraph = stat
    // キャラクターの初期データをセット
    PlayerX = 0
    PlayerY = 0
    JumpPower = 0
    // ループ
    repeat
        ProcessMessage
        if stat != 0 : break
        CheckHitKey KEY_INPUT_ESCAPE
        if stat != 0 : break
        
        // キー入力取得
        GetJoypadInputState DX_INPUT_KEY_PAD1
        Key = stat
        
        // 上を押していたら上に進む
        if( Key & PAD_INPUT_UP ) : PlayerY -= 3
        // 下を押していたら下に進む
        if( Key & PAD_INPUT_DOWN ) : PlayerY += 3
        // 右を押していたら右に進む
        if( Key & PAD_INPUT_RIGHT ) : PlayerX += 3
        // 左を押していたら左に進む
        if( Key & PAD_INPUT_LEFT ) : PlayerX -= 3
        // 落下処理
        PlayerY -= JumpPower
        // 落下加速度を加える
        JumpPower -= 1
        // もし地面についていたら止まる
        if( PlayerY > 300 ){
            PlayerY = 300
            JumpPower = 0
        }
        // ジャンプボタンを押していて、地面についていたらジャンプ
        if( ( Key & PAD_INPUT_A ) && PlayerY == 300 ) : JumpPower = 20 
        // 画面を初期化する
        RECT = -1, -1, -1, -1
        ClearDrawScreen varptr(RECT)    // 0 でもよい？
        // 黒でつぶす
        DrawBox 0, 0, 640, 480, TRUE
        // プレイヤーを描画する
        DrawGraph PlayerX , PlayerY , PlayerGraph , TRUE
        // 裏画面の内容を表画面に反映させる
        ScreenFlip
    loop
    
    DxLib_End               // ＤＸライブラリ使用の終了処理
end
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX