test4.hsp

sample\hspdx\test4.hsp » Plain Format

#include "hspdx.as"
#include "hsp3util.as"

	;
	;	HSPDX.DLL sample4
	;		リンゴをいっぱい表示。
	;		[ESC]キーで終了
	;

	;------------------------------------------------------------------

	wx=640:wy=480
	es_ini					; system初期化
	es_screen wx,wy,32,,1,1			; スクリーン初期化
	if stat=1 : goto *dderr1
	if stat=2 : goto *dderr2

	goto *start				; 正常に完了

*dderr1
	dialog {"DirectXの初期化に失敗しました。

"},1
	end
*dderr2
	dialog {"スクリーンの初期化に失敗しました。
"},1
	end
*dderr3
	es_bye
	wait 100
	dialog {"VRAMの容量が不足しています。
"},1
	end

	;------------------------------------------------------------------

*start

	chrsx=64:chrsy=64			; キャラクタのサイズを指定

	buffer 3,,,1
	bmppalette "testchr.bmp"
	picload "testchr.bmp"
	es_buffer 0,2
	if stat : goto *dderr3

	es_size 64,64,60
	es_pat 0, 0,64

	es_area -64,-64,wx,wy			; 画面ボーダー設定

	gsel 0,1
	es_cls
	es_sync
	wait 100

	repeat 100
	a=rnd(64):spd=rnd(10)*25+250
	x=rnd(640):y=rnd(480)
	es_set cnt,x,y,0
	es_adir cnt,a,spd
	es_flag cnt,$6200			; X,Yバウンド設定
	loop

*gmain
	es_cls
	stick ky,$1f				; キーの情報を取得
	if ky&$e0 : goto *owari			; [ESC]中断チェック

	es_draw

	pos 0,0:es_mes "Bench="+tt

	es_sync 16				; 1/60?
	tt=stat
	await 0
	goto *gmain

*owari
	es_bye
	end