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

プチコン3号


参考資料

§ 罠(TRAP) §

スプライトは、SPANIMステートメントでアニメーションを設定する事が出来ます。亦、SPCOLステートメントとSPHITSP関数を使用する事でスプライト同士の衝突判定を簡単に行う事が出来ます。

下記のプログラムでは、ダンジョンの罠(トラップ)を実現して居ます。キャラクタは、 ボタンで左右に動き、 ボタンでジャンプし、 ボタンでダッシュします。 ボタンで何度でも挑戦出来ます。終了するには、キーボード画面の STOP をタップして下さい。

0000001OPTION STRICT
0000002ACLS
0000003DIM I,B,X,Y,N,A,S,D
0000004
0000005GFILL 0,0,399,239,RGB(128,0,0)
0000006
0000007FOR I=0 TO 11
0000008  BGPUT 0,I,13,614
0000009  BGPUT 0,I,14,646
0000010  BGPUT 0,I+13,13,614
0000011  BGPUT 0,I+30,14,646
0000012NEXT
0000013
0000014SPSET 0,496
0000015SPOFS 0,10,192
0000016
0000017SPSET 1,1346
0000018SPOFS 1,192,224
0000019SPANIM 1,"I",10,1347,10,1346,0
0000020SPANIM 1,"XY",-30,192,0,-30,192,224
0000021
0000022SPSET 2,1250
0000023SPOFS 2,100,0
0000024SPANIM 2,"XY",-50,100,100,-20,100,192,-50,100,0,0
0000025SPSET 3,1250
0000026SPOFS 3,220,0
0000027SPANIM 3,"XY",-60,220,100,-20,220,192,-50,220,0,0
0000028SPSET 4,1250
0000029SPOFS 4,320,0
0000030SPANIM 4,"XY",-70,320,100,-20,320,192,-50,320,0,0
0000031
0000032SPCOL 0 : SPCOL 1 : SPCOL 2
0000033SPCOL 3 : SPCOL 4
0000034
0000035@START
0000036X=10 : Y=192 : N=0 : A=0 : S=0 : D=1
0000037WHILE TRUE
0000038  B=BUTTON(0)
0000039  IF B AND 64 THEN BREAK
0000040  IF B AND 32 THEN
0000041    D=D*1.2 : IF D>5 THEN D=5
0000042  ELSE
0000043    D=1
0000044  ENDIF
0000045  IF B AND 4 THEN
0000046    DEC X,D : IF X<0 THEN X=0
0000047    SPCHR 0,504+N
0000048  END IF
0000049  IF B AND 8 THEN
0000050    INC X,D : IF X>383 THEN X=383
0000051    SPCHR 0,496+N
0000052  ENDIF
0000053  IF S==0 && (B AND 16)>0 THEN
0000054    S=1 : A=10
0000055  ENDIF
0000056  IF S==1 THEN
0000057    DEC A,0.98
0000058    DEC Y,A : IF Y>192 THEN Y=192 : S=0
0000059  ENDIF
0000060  SPOFS 0,X,Y
0000061  IF SPHITSP(0)>0 THEN BREAK
0000062  IF BGGET(0,X,Y+16,1)!=614 THEN
0000063    SPANIM 0,"XY",-10,X,240,1
0000064    BREAK
0000065  ENDIF
0000066  INC N : IF N>3 THEN N=0
0000067  VSYNC 1
0000068WEND
0000069LOCATE 18,10 : PRINT "PUSH A BUTTON!"
0000070REPEAT
0000071  B=BUTTON(0)
0000072UNTIL (B AND 16)>0
0000073CLS : GOTO @START



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

Copyright © King of Squid, All rights reserved.