【HSP3】DXライブラリをHSPで使ってみるサンプル(3.マップ表示基本)

http://homepage2.nifty.com/natupaji/DxLib/dxprogram.html#N3 のHSP版です。DxLib.as は http://tkooler.moe.hm/hsp/img/DxLib.as から入手可能。

http://homepage2.nifty.com/natupaji/DxLib/dxprogram.html#N3 のHSP版です。DxLib.as は http://tkooler.moe.hm/hsp/img/DxLib.as から入手可能。

#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 ){	// DXライブラリ初期化処理
		 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