sample\hgimg3\test11.hsp » Plain Format
#include "hgimg3.as" ; テクスチャアニメーションのサンプル ; (カーソルキーで移動、スペースで発射) ; ; ウインドゥサイズの設定 ; screen 0,640,480,0 cls 4 ; 初期設定 ; hgini ; スプライトモデルを登録 ; setuv 64,64,127,127 addspr pchr,1 ; プレイヤーキャラ regobj mychr,pchr setuv 128,64,191,127 ; ミサイル addspr mchr,1 texload "testchr.bmp" ; テクスチャの登録 ; イベントリストを登録 ; newevent ev1 ; 新しいイベントIDを取得 event_wait ev1, 10 ; 10フレーム待つ event_uv ev1, 0, 0 event_wait ev1, 10 ; 10フレーム待つ event_uv ev1, 64, 0 event_jump ev1, 0 ; 繰り返す ; 準備 ; clscolor 128 ; 背景色の設定 setborder 740.0f, 580.0f, 200.0f ; クリップ範囲 *main ; 描画メイン ; hgdraw ; 描画処理 hgsync 10 ; 時間待ち stick k,127 if k&128 : goto *owari ; [ESC]で終了 ; カーソルキーで移動 ; if k&1 : addpos mychr, -2, 0 if k&4 : addpos mychr, 2, 0 if k&2 : addpos mychr, 0, -2 if k&8 : addpos mychr, 0, 2 if k&16 { ; 発射 regobj apple,mchr,OBJ_MOVE|OBJ_BORDER getpos mychr,x,y,z setpos apple,x,y,z fvset fv,0,0,0.001*rnd(6282) fvdir fv, 0, -4, 0 seldir apple:objsetfv fv setevent apple,ev1 ; イベント設定 } goto *main *owari end