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