SPSEARCH - [画像表示] |
||||||
… スプライトの検索
SPSEARCH(X,Y,開始,終了)
X: スプライトを取得するX座標
Y: スプライトを取得するY座標
開始: スプライト番号の開始範囲
終了: スプライト番号の終了範囲
指定した座標 (X,Y) に存在するスプライト番号を検索して返します。
検索するスプライト番号の範囲を指定するには、開始、終了にスプライト番号を指定します。
指定した座標位置にスプライトが存在しない場合は、-1が返ります。
指定した座標位置に複数のスプライトが重なっている場合は、一番小さいスプライト番号が返ります。
REM 944BASIC 'SPSEARCH サンプル'
SETDIRECTORY 'F1:\944BASIC\'
SETPAGE 2: BITMAP '9B_REF.BMP',0,0
X=RNDRG(50,190):Y=RNDRG(50,190)
SPRITE 1,1,1, X,Y, 0,16, 48,48, 1,1
COLORBG 0,0,0: CLS
REFRESH 0,0,0,0,240,240
MESSAGE 'タッチ!'
*LOOP SYNC
IFBLK SPSEARCH(PENX,PENY,1,1)=1
FOR I=1 TO 20
R=1-I/20: IF I%2 THEN R=R*(-1)
SPRITE 1,1,5, X+24,Y+24, 0,16,48,48,R,1-I/20:REM スプライトの中心=表示位置
REFRESH 0,0,0,0,240,240
NEXT I
MESSAGE '縮小/反転の応用':END
ENDIF
GOTO *LOOP
SPSEARCH - [画像表示] |