tile.hsp

sample\new\tile.hsp » Plain Format

	;	画像の読み込み
	buffer 1			; ID1のバッファを初期化する
	picload "bg.bmp"		; 画像を読み込む
	gsel 0				; ID0のバッファを操作する

	;	変数の設定
	bgx=0:bgy=0			; 背景のX,Y座標

	;	メインループ
	repeat				; 無限に繰り返す
	redraw 0			; 描画更新を無効にする
	gmode 0,128,128			; コピーサイズを設定する
	font msgothic,60,1		; 文字フォントとサイズを設定

	repeat 4			; Y方向に4回繰り返す
		y=cnt*128-bgy		; Yの描画位置を計算する
		repeat 6		; X方向に6回繰り返す
		x=cnt*128-bgx		; Xの描画位置を計算する
		pos x,y:gcopy 1		; 画像を描画する
		loop			; 繰り返しの終わり(X)
	loop				; 繰り返しの終わり(Y)
	bgx=bgx+1			; 背景の座標を移動させる
	if bgx>=128 { bgx=0 }		; 128以上の時は0に戻す

	color 100,160,255		; 文字の色を設定する
	pos 140,200:mes "HSP3 Sample"	; 文字を描画する

	await 16			; 一定時間待つ
	redraw 1			; 描画内容を反映させる
	loop				; 繰り返しの終わり