十勇士クラブ

2015/5/26放送。前回作ったマイコンボード「IchigoJam」で、BASICのジャンプゲームを作ってみました。IchigoJamのビデオ出力をキャプチャーして、ライブ画面に乗せています。

●ライブ中に作ったジャンプゲームのリスト

10 '*** JUMP ***
20 CLS:CLV
30 X=15:Y=21:V=0:J=0:W=10
40 LOCATE X,Y
50 PRINT CHR$(7);
60 LOCATE 0,22
70 FOR I=0 TO 31
80 PRINT CHR$(1);
90 NEXT
100 LOCATE 0,0
110 PRINT S
120 '--- LOOP ---
130 IF INKEY()=32 AND J=0 THEN GOSUB 480
140 LOCATE X,Y
150 PRINT " ";
160 Y=Y+V:IF J=1 THEN V=V+1
170 IF VPEEK(X,Y)=36 THEN BEEP:S=S+100
180 IF VPEEK(X,Y)=64 THEN BEEP:W=2:Z=1
190 LOCATE X,Y
200 PRINT CHR$(7);
210 IF Y>=21 THEN J=0:V=0
220 GOSUB 290
230 IF VPEEK(X,Y+1)<>1 AND Y=21 THEN GOTO 250
240 GOTO 120
250 '--- MISS ---
260 LOCATE 10,12
270 PRINT "*** MISS ***"
280 END
290 '--- SCROLL ---
300 LOCATE X,Y
310 PRINT " ";
320 SCROLL 3
330 IF Z>0 THEN Z=Z+1
340 IF Z>=32 THEN Z=0:W=10
350 IF VPEEK(X,Y)=36 THEN BEEP:S=S+100
360 IF VPEEK(X,Y)=64 THEN BEEP:W=2:Z=1
370 LOCATE 31,22
380 IF RND(10)<9 THEN PRINT CHR$(1);
390 LOCATE X,Y
400 PRINT CHR$(7);
410 S=S+1
420 LOCATE 0,0
430 PRINT S
440 IF RND(10)<1 THEN LOCATE 31,15:PRINT "$";
450 IF RND(20)<1 THEN LOCATE 31,15:PRINT "@";
460 WAIT W
470 RETURN
480 '--- JUMP ---
490 J=1
500 V=-3
510 RETURN