sample\game\facemove1.hsp » Plain Format
; ; 複数の物体を動かす(1) ; randomize celload "face.bmp" ; 画像ファイル face_id=stat celdiv face_id,64,64,32,32 ; パーツのサイズと中心位置 screen 0,640,480 facemax=30 ; 物体の最大数 gosub *faceini *main redraw 0 ; 描画始め color 0,64,0 boxf ; 背景を消す gosub *facemove ; 物体を動かす gosub *facedraw ; 物体を描画 redraw 1 ; 描画終わり await 20 goto *main *faceini ; 物体の初期化 ; dim facex,facemax dim facey,facemax repeat facemax facex(cnt)=rnd(640) ; X位置を決める facey(cnt)=rnd(480) ; Y位置を決める loop return *facemove ; 物体を動かす ; repeat facemax facey(cnt)+=4 ; 下に動かす if facey(cnt)>480 { ; 下まで行ったら上に戻す facey(cnt)=-64 } loop return *facedraw ; 物体を描画 ; gmode 2 ; 画像モード repeat facemax pos facex(cnt),facey(cnt) celput face_id ; 画像の描画 loop return