【HSP3】DXライブラリをHSPで使ってみるサンプル(3.マップ表示基本) | 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
#runtime "hsp3cl"
#include "DxLib.as" 
#define MAP_SIZE    64          // マップチップ一つのドットサイズ
#define MAP_WIDTH   10          // マップの幅
#define MAP_HEIGHT  8           // マップの縦長さ
    // マップのデータ
    dim MapData, MAP_WIDTH, MAP_HEIGHT
    MapData(0, 0) = 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
    MapData(0, 1) = 0, 1, 0, 0, 0, 0, 0, 0, 0, 0
    MapData(0, 2) = 0, 1, 0, 1, 1, 1, 1, 1, 1, 0
    MapData(0, 3) = 0, 1, 0, 1, 1, 0, 0, 0, 1, 0
    MapData(0, 4) = 0, 1, 1, 1, 1, 0, 0, 0, 1, 0
    MapData(0, 5) = 0, 1, 0, 1, 0, 0, 0, 0, 1, 0
    MapData(0, 6) = 0, 1, 1, 1, 1, 1, 1, 1, 1, 0
    MapData(0, 7) = 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
    
    SetGraphMode 640, 480, 16
    DxLib_Init
    if( stat == -1 ){   // ＤＸライブラリ初期化処理
         dialog "エラー" : end      // エラーが起きたら直ちに終了
    }
    i = 0 : j = 0
    for i, 0, MAP_HEIGHT, 1
        for j, 0, MAP_WIDTH, 1
            if MapData(j, i) == 0{
                GetColor 255, 0, 0
                DrawBox j * MAP_SIZE, i * MAP_SIZE, j * MAP_SIZE + MAP_SIZE, i * MAP_SIZE + MAP_SIZE, stat, TRUE
            }
        next
    next
    WaitKey
    
    DxLib_End
end
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX