• BASIC
• ichigojam

OK
1 'クレーンケ゛ーム
2 J=5
5 S=0
10 Z=RND(31):C=RND(31):B=RND(31):V=RND(31):Y=0:D=0:M=0
20 CLS
25 LC0,23:?"SCORE:";S
30 LCC,19:?CHR$(244):LCZ,19:?CHR$(235):LCV,19:?CHR$(255):LCB,19:?CHR$(235)
40 K=INKEY()
41 LC29,22:?J
60 IF K=32 D=1
70 IF D<2 LCX,Y:?"="
80 IF M=5 LCX,0:?" ":IF X<31 IF D=0 X=X+1 
85 IF X>30 X=0
90 IF M<5 M=M+1 ELSE M=0
100 IF D=1 IF Y<18 LCX,Y:?"|":Y=Y+1 ELSE D=2
110 IF D=2 IF X=Z IF Y>0 LCX,Y:?" ":Y=Y-1:LCX,Y:?CHR$(235)
120 IF D=2 IF X=Z IF Y>0 GOTO 110
130 IF D=2 IF X=Z IF Y=0 S=S+2:GOTO 10
140 IF D=2 IF X=B IF Y>0 LCX,Y:?" ":Y=Y-1:LCX,Y:?CHR$(235)
150 IF D=2 IF X=B IF Y>0 GOTO 140
160 IF D=2 IF X=B IF Y=0 S=S+2:GOTO 10
170 IF D=2 IF X=C IF Y>0 LCX,Y:?" ":Y=Y-1:LCX,Y:?CHR$(244)
180 IF D=2 IF X=C IF Y>0 GOTO 170
190 IF D=2 IF X=C IF Y=0 END
200 IF D=2 IF X=V IF Y>0 LCX,Y:?" ":Y=Y-1:LCX,Y:?CHR$(255)
210 IF D=2 IF X=V IF Y>0 GOTO 170
220 IF D=2 IF X=V IF Y=0 S=S+3
230 IF D=2 IF Y>0 LCX,Y:?" ":Y=Y-1:LCX,Y:?"="
240 IF D=2 IF Y>0 GOTO 230
250 IF D=2 IF Y=0 S=S-1:J=J-1:GOTO 10
260 IF J=0 END
270 GOTO40

Kidspod運営チーム2016/11/29 09:35:16

クレーンの動きがスピーディで心地よいですね。集中すれば狙ったものを取れるのに、ちょっと油断すると何も取れないというバランスもGOOD！

Pagetop