sample\hspdx\TEST3.hsp » Plain Format
#include "hspdx.as" #include "hsp3util.as" ; ; HSPDX.DLL sample3 ; フルサイズの画像をフェードイン表示。 ; [SPACE]キーでホワイトアウト ; [ESC]キーで終了 ; ;------------------------------------------------------------------ es_ini ; system初期化 es_screen 640,480,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 demo=0 buffer 3,,,1 bmppalette "hspdx.bmp" picload "hspdx.bmp" es_buffer 0 if stat : goto *dderr3 gsel 0,1 color 0,0,0 es_cls es_sync wait 100 es_palfade -256 es_palfade 0,1 *sudden stick b,15 ; カーソルキーの情報を取得 if b&16 : goto *sayo if b : goto *owari es_cls gmode 0,640,480:pos 0,0:es_copy 0,0,0 es_sync 12: await 0 goto *sudden *sayo es_palfade 256,1 repeat 256 es_cls gmode 0,640,480:pos 0,0:es_copy 0,0,0 es_sync 12: await 0 loop *owari color 0,0,0 es_cls es_sync es_bye end