sample\hgimg4\objfade.hsp » Plain Format
#include "hgimg4.as"
title "HGIMG4 Test"
; スプライトの移動&フェード
; カーソルキーでスプライトを動かしてスペースキーでスプライトを発射します
; 発射されたスプライトは自動的にフェードアウトして消去されます
;
randomize
gpreset
setcls CLSMODE_SOLID, $404040
sx=ginfo_sx ; 画面のXサイズ
sy=ginfo_sy ; 画面のYサイズ
celload "res/ball64.png",3
celdiv 3, 64,64, 32,32
; 自分のキャラ
myx=sx/2:myy=sy/2
gpspr id_spr, 3,0, 4
setscale id_spr, 2,2,2
spd=4.0
*main
stick key,31
; カーソルキーで動かす
if key&128 : end
if key&16 {
; 放射状にスプライトを発射
gpspr i,3,1, 4 ; スプライトを登録
setpos i, myx, myy ; 新しい座標を設定
rot=0.01*rnd(6282) ; 角度を乱数で設定する
setobjmode i, OBJ_MOVE ; 自動移動を設定する
setdir i, sin(rot)*spd,cos(rot)*spd ; 移動方向を設定する
gpsetprm i, PRMSET_FADE, -4 ; フェードアウトを設定する
}
if key&1 : myx -= 1
if key&4 : myx += 1
if key&8 : myy += 1
if key&2 : myy -= 1
setpos id_spr, myx, myy
redraw 0 ; 描画開始
gpdraw ; オブジェクトの描画
; 文字を表示
color 255,255,255
pos 8,8
mes "sprite test"
redraw 1 ; 描画終わり
await 1000/60
goto *main