Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2016/12/10 16:35:17

MixJuice GET URL : kidspod.club/mj/119

クギ打ちゲーム MobileB2版

あなた”P”はカナヅチ。
→で右に進み押し続けると加速、↑でジャンプ。スピードが速いほど高く飛べるよ。
釘”T"にジャンプして上から乗ればクギ打ち成功。
ジャンプ台を踏むと強制的にジャンプさせられるぞ。
クギに横からぶつかってしまうとゲームオーバー。
<音をつけたりすると楽しいかも。>

SOURCE CODE

  1. 10 @INI
  2. 20 CLS:CLV:X=6:Y=5
  3. 30 LC0,7:?"TTTTTTTTTTTTTTT"
  4. 40 @IN
  5. 50 CLK:WAIT10:IFTGOTO@TH
  6. 60 K=INKEY():C=C+1
  7. 70 IFK=29IFV<5V=V+1
  8. 80 IFK<>29IFV>0IFC%5=0V=V-1
  9. 90 IFK<>30GOTO@DN
  10. 100 @TH
  11. 110 IFY=5L=V:GSB@DL:Y=Y-1ELSEIFL>0L=L-1:IFY>1GSB@DL:Y=Y-1:GOTO@PR
  12. 120 IFL=0ANDY>5:GSB@DL:Y=Y+1
  13. 130 @DN
  14. 140 IFL>0L=L-1ELSEIFY<5GSB@DL:Y=Y+1:IFVPEEK(6,Y)=84:S=S+1
  15. 150 LCX-1,Y:?" ";
  16. 160 @PR
  17. 170 LCX,Y:?"P"
  18. 180 LC0,0:?S;
  19. 190 IFV=0ORC%(6-V)>0GOTO@IN
  20. 200 M=RND(5)
  21. 210 LC15,6:?"T";:IF2>MLC15,5:?CHR$(84-37*M);
  22. 220 SCROLL3
  23. 230 T=(Y=5)*VPEEK(6,5)=47
  24. 235 IF(Y=5)*VPEEK(6,5)=84LC5,3:?"SCORE ";S:LC3,4:?"GAME OVER":END
  25. 240 GOTO@IN
  26. 250 @DL
  27. 260 LCX-1,Y:?" ":RTN

COMMENT

Kidspod運営チーム
Kidspod運営チーム2016/12/21 18:12:43

クギを踏むと得点、横に当たるとゲームオーバーになるというアイデアがいいですね。Pの残像が多くて、かなり難しいです!

S