本格海戦ゲーム 波高し!
10 DIM H(255):G=0 20 CLS:COLOR 4 30 F=0:FOR I=0 TO G:F=F+H(I)*10:NEXT 50 IF G>0 THEN E=F/G:PRINT "AVR ";E/10;".";E%10;" ";G;"プレイ"; CURSOR 8,9:PRINT " キ タ"; CURSOR 8,10:PRINT " ! ! ! ! ! "; CURSOR 8,11:PRINT " -+-+-+-+-+-"; CURSOR 8,12:PRINT " ! ! ! ! ! "; CURSOR 8,13:PRINT " -+-+-+-+-+-"; CURSOR 8,14:PRINT "ニ ! ! ! ! ! ヒ"; CURSOR 8,15:PRINT " -+-+-+-+-+-ガ"; CURSOR 8,16:PRINT "シ ! ! ! ! ! シ"; CURSOR 8,17:PRINT " -+-+-+-+-+-"; CURSOR 8,18:PRINT " ! ! ! ! ! "; CURSOR 8,19:PRINT " -+-+-+-+-+-"; CURSOR 8,20:PRINT " ! ! ! ! ! "; CURSOR 8,21:PRINT " ミナミ"; X=DRAWCOUNT()%6:Y=DRAWCOUNT()%6:C=0:A=2:B=2 LABEL LOOP:C=C+1 COLOR 7:CURSOR 8,23:PRINT "テキカンヲホウゲキセヨ "; 100 COLOR 7:CURSOR 9+A*2,10+B*2:PRINT "X"; 110 T=KEYS():IF T=0 THEN GOTO 110 CURSOR 9+A*2,10+B*2:PRINT " ";:WAIT 20 IF T=1 THEN B=B-1:IF B=-1 THEN B=5 IF T=2 THEN B=B+1:IF B=6 THEN B=0 IF T=4 THEN A=A-1:IF A=-1 THEN A=5 IF T=8 THEN A=A+1:IF A=6 THEN A=0 IF T=32 THEN GOTO 200 GOTO 100 200 COLOR 4:CURSOR 9+A*2,10+B*2:PRINT "X"; COLOR 7:CURSOR 8,23:PRINT "ホウゲキ "; FOR I=1 TO 4:CURSOR 13+I,23:PRINT "."; WAIT 30:NEXT IF A=X AND B=Y THEN GOTO 500 IF ABS(A-X)<2 AND ABS(B-Y)<2 THEN GOTO 250 COLOR 5:CURSOR 8,23:PRINT "ナミオダヤカナリ "; WAIT 140:IF C%2=0 THEN GOTO 300 ELSE GOTO LOOP 250 COLOR 6:CURSOR 8,23:PRINT "!!ナミタカシ!! "; WAIT 140 300 T=DRAWCOUNT()%4 IF T=0 THEN X=X-1:IF X=-1 THEN X=0:GOTO 300 IF T=1 THEN X=X+1:IF X=6 THEN X=5:GOTO 300 IF T=2 THEN Y=Y-1:IF Y=-1 THEN Y=0:GOTO 300 IF T=3 THEN Y=Y+1:IF Y=6 THEN Y=5:GOTO 300 COLOR 3:CURSOR 8,23:GOSUB 310+T:WAIT 140:GOTO LOOP 310 PRINT "テキカン ニシ ニイドウセリ";:RETURN 311 PRINT "テキカン ヒガシ ニイドウセリ";:RETURN 312 PRINT "テキカン キタ ニイドウセリ";:RETURN 313 PRINT "テキカン ミナミ ニイドウセリ";:RETURN 500 COLOR 2:CURSOR 9+A*2,10+B*2:PRINT "*"; COLOR 2:CURSOR 8,23:PRINT "!!テキカンゲキチン!! "; COLOR 7:CURSOR 6,24:PRINT "ホウゲキ";C;"カイ ニンムカンリョウ"; H(G)=C:G=G+1 600 IF KEYS()<>0 THEN GOTO 20 ELSE GOTO 600