烏賊先生のプログラミング道場

プチコン3号


参考資料

§ スプライト操作4・リンク+アニメ §

スプライト同士をSPLINKステートメントでリンクを設定すると同時に、夫々をSPANIMステートメントでアニメーションさせる事で、面白い動きを実現する事が出来ます。猶、SPANIMステートメントは、指定項目が多い場合は、データ文をラベル指定する事も出来ます。

下記のプログラムでは、リンクとアニメーションに依る面白い動作を実現して居ます。キャラクタは、 ボタンで上下左右に移動します。終了するには、 ボタンを押して下さい。

0000001OPTION STRICT
0000002ACLS
0000003DIM  B,X,Y
0000004
0000005'HEAD
0000006SPSET  0,3495
0000007SPOFS  0,200,120
0000008
0000009'TAIL
0000010SPSET  1,3496
0000011SPOFS  1,0,16
0000012SPLINK  1,0
0000013
0000014'HANDS
0000015SPSET  2,3510
0000016SPOFS  2,-10,0,5
0000017SPLINK  2,0
0000018SPSET  3,3511
0000019SPOFS  3,10,0,5
0000020SPLINK  3,0
0000021
0000022SPANIM  0,"R",1,0,-30,20,-60,-20,-30,0,0
0000023SPANIM  1,"I","@TAIL",0
0000024@TAIL
0000025DATA 8
0000026DATA  90,3496
0000027DATA  8,3498
0000028DATA  8,3499
0000029DATA  8,3500
0000030DATA  8,3499
0000031DATA  8,3498
0000032DATA  8,3497
0000033DATA  8,3496
0000034
0000035WHILE  TRUE
0000036  B=BUTTON(0)
0000037  
0000038  'QUIT
0000039  IN  B  AND  64  THEN  BREAK
0000040  
0000041  'MOVE
0000042  IF  B  AND  1  THEN
0000043    DEC  Y : IF  Y<0  THEN  Y=0
0000044  ENDIF
0000045  IF  B  AND  2  THEN
0000046    INC  Y : IF  Y>224  THEN  Y=224
0000047  ENDIF
0000048  IF  B  AND  4  THEN
0000049    DEC  X : IF  X<0  THEN  X=0
0000050  ENDIF
0000051  IF  B  AND  8  THEN
0000052    INC  X : IF  X>384  THEN  X=384
0000053  ENDIF
0000054  
0000055  SPOFS  0,X,Y
0000056
0000057  VSYNC  1
0000058WEND
0000059ACLS : END



ゲームプログラミング道場 ニンテンドー3DS Smile BASIC  Visual Basic,Visual C#

Copyright © King of Squid, All rights reserved.