あなた”P”はカナヅチ。
→で右に進み押し続けると加速、↑でジャンプ。スピードが速いほど高く飛べるよ。
釘”T"にジャンプして上から乗ればクギ打ち成功。
ジャンプ台を踏むと強制的にジャンプさせられるぞ。
クギに横からぶつかってしまうとゲームオーバー。
<音をつけたりすると楽しいかも。>
- 10 @INI
- 20 CLS:CLV:X=6:Y=5
- 30 LC0,7:?"TTTTTTTTTTTTTTT"
- 40 @IN
- 50 CLK:WAIT10:IFTGOTO@TH
- 60 K=INKEY():C=C+1
- 70 IFK=29IFV<5V=V+1
- 80 IFK<>29IFV>0IFC%5=0V=V-1
- 90 IFK<>30GOTO@DN
- 100 @TH
- 110 IFY=5L=V:GSB@DL:Y=Y-1ELSEIFL>0L=L-1:IFY>1GSB@DL:Y=Y-1:GOTO@PR
- 120 IFL=0ANDY>5:GSB@DL:Y=Y+1
- 130 @DN
- 140 IFL>0L=L-1ELSEIFY<5GSB@DL:Y=Y+1:IFVPEEK(6,Y)=84:S=S+1
- 150 LCX-1,Y:?" ";
- 160 @PR
- 170 LCX,Y:?"P"
- 180 LC0,0:?S;
- 190 IFV=0ORC%(6-V)>0GOTO@IN
- 200 M=RND(5)
- 210 LC15,6:?"T";:IF2>MLC15,5:?CHR$(84-37*M);
- 220 SCROLL3
- 230 T=(Y=5)*VPEEK(6,5)=47
- 235 IF(Y=5)*VPEEK(6,5)=84LC5,3:?"SCORE ";S:LC3,4:?"GAME OVER":END
- 240 GOTO@IN
- 250 @DL
- 260 LCX-1,Y:?" ":RTN