転載元:電波新聞社「マイコンBASICマガジン」 1993年2月号
題名:X1 turbo用「イタリアンフィーバー・アラソーイ」
2プレイ専用対戦ゲームです。特徴はプログラムが短いこと、、、それだけです。
▲タイトル画面。
▲対戦中。お互いで相手に皿を投げつけます。
▲決着がついた様子。
プログラムリスト。半角カタカナ使っててすみません。
5 '####### イタリアンフィーバー ####### 6 '####### アラソーイ ####### 7 '####### for X1 turbo ####### 10 WIDTH 40,12:CONSOLE 0,12:KMODE 0 30 PALET:DEFINT A-Z 31 FOR I=97 TO 102:READ A$ 32 DEFCHR$(I)=HEXCHR$(A$+A$+A$):NEXT 40 '############################ START 41 X=10:Y=5:E=30:W=9:N=0:V=0:P(0)=5:P(1)=5 120 GOSUB"C" 130 LOCATE 14,6:PRINT "GET READY !!" 140 PLAY"T150O4D6R5B1F5GB9:T150O3D3E5G1D6" 150 LOCATE 14,6:PRINT " " 160 '########################### MAIN 170 SWAP X,E :SWAP Y,W:SWAP M,B:SWAP N,V 180 SWAP X1,E1:SWAP Y1,W1 190 T=(T+1) MOD 2:COLOR T+1 200 S=STICK(T):IF S ELSE 250 210 X1=(S=4)*2-(S=6)*2:Y1=(S=8)-(S=2) 220 IF SCRN$(X+X1,Y+Y1,1)<>" " THEN 260 230 LOCATE X,Y:PRINT " " 240 X=X+X1:Y=Y+Y1 250 CGEN 1:LOCATE X,Y:PRINT "ab":CGEN 260 '############################ SHOT 270 IF N=0 THEN IF STRIG(T) THEN M=X:N=Y:PLAY"A1:A1":GOTO 290 ELSE 160 280 LOCATE M,N:PRINT " " 290 M=M+X1:N=N+Y1 300 IF M=E AND N=W THEN 340 310 IF SCRN$(M,N,1)<>" " THEN N=0:GOTO 160 320 CGEN 1:LOCATE M,N:PRINT "ef":CGEN 330 GOTO 160 340 '############################ HIT 350 I=ABS(T-1):PALET 0,I+1:PLAY"E5:D5" 360 LOCATE ABS(I)*20+6+P(I),0:PRINT " " 370 PALET:P(I)=P(I)-1:IF P(I) THEN 310 380 COLOR 7 390 LOCATE 12,6:PRINT T+1;"PLAYER WIN!" 400 E=E*8+4:W=W*16+8:FOR I=0 TO 40 410 LINE(E-I,W-I)-(E+I,W+I),XOR,ABS(T-1)+1,BF:PLAY 500:PLAY"D1:F1" 420 NEXT 430 PLAY"B2ACFGEFDFE9:CD3E1F2G9" 435 GOTO 40 440 LABEL"C":'############################ uge 470 CLS 4 471 COLOR 4:PRINT "[Hit Space Key]" 472 PRINT:PRINT " BLUE:KEYBOARD RED:JOY STICK1" 473 COLOR 7:PRINT:PRINT "イタリアンフィーバ- 474 SYMBOL(1,5),"アラソーイ",1,1,2,0,chr$(&H7F) 475 COLOR 6 476 SYMBOL(0,5),"アラソーイ",1,1,2,0,chr$(&H7F) 478 IF STRIG(0) ELSE 478 479 FOR I=0 TO 30:PRINT:NEXT:CLS 480 COLOR 1:PRINT"コナチーズ:";chr$(&H7F,&H7F,&H7F,&H7F,&H7F) 490 COLOR 2:LOCATE 20,0:PRINT"タバスーコ:";chr$(&H7F,&H7F,&H7F,&H7F,&H7F) 500 COLOR 6:CGEN 1 510 LINE(0,1)-(38,11),"c",B 520 LINE(1,1)-(39,11),"d",B 530 FOR I=0 TO RND*20 540 LOCATE INT(RND*16)*2+2,RND*8+2 550 PRINT "cd";:NEXT:CGEN 560 RETURN 570 DATA"031F032C4FCF043E" 580 DATA"C0F8C034F2F3207C" 590 DATA"55AA5500FF3F81FD" 600 DATA"55AA55008FE0FFFF" 610 DATA"0F78E5D6CBE17C0F" 620 DATA"F01EA7D36BA71EF0"