sample\sprite\es_test12.hsp » Plain Format
#include "hsp3dish.as"
;
; HSP3Dish sprite sample12
; デコレーションスプライトのテスト
; スペースキーかマウスクリックで装飾スプライトを表示します
; [ESC]キーで終了
;
;------------------------------------------------------------------
randomize
wx=640:wy=480 ; 画面サイズ
screen 0,wx,wy ; スクリーン初期化
es_ini ; スプライト初期化
buffer 3
picload "testchr.png"
es_size 64,64,100
es_pat 0, 0,0 ; 顔
es_pat 1, 64,0 ; リンゴ
gsel 0
; 装飾スプライトの登録
; deco1にIDが代入されます
es_regdeco 0,ESDECO_MULTI8,0,400
deco1=stat
; 装飾スプライトの登録
; deco2にIDが代入されます
es_regdeco 1,ESDECO_BOOST|ESDECO_MULTI8
deco2=stat
*main
stick ky,$1f ; カーソルキーの情報を取得
if ky&$80 : goto *owari
if ky&256 {
; マウスクリックで装飾スプライトの表示
; マウスカーソルの位置に出します
es_setdeco mousex,mousey,deco1
}
if ky&16 {
; スペースキーで装飾スプライトの表示
; ランダムな位置に出します
es_setdeco rnd(wx),rnd(wy),deco2
}
redraw 0
es_draw ; スプライト描画
pos 0,0
mes "Press mouse button or space key"
redraw 1
await 1000/60 ; タスク更新
goto *main
*owari
es_bye
end