25/09/03 04:07:04.24 bjASeFqx0.net
このレベルだと、「ゲーム」と呼べないね……
一応、作ってみました
1 'save"KANGAME1.BAS",A
10 ON STOP GOSUB 190:STOP ON
20 DEFINT A-Z:SCREEN 1,0:KEY OFF:WIDTH 32:A=RND(-TIME):HI=0:GOSUB 160
30 CLS:M=16:SC=-23
40 L=RND(1)*3+1:X=RND(1)*(31-L)+1
50 LOCATE X,23:PRINT STRING$(L,&H85):SC=SC-(SC<32767)
60 S=STICK(0):M=M-(S=7)*(M>1)+(S=3)*(M<30)
70 PUT SPRITE 0,(M*8,0)
80 IF VPEEK(&H1800+M)=&H85 OR SC=32767 THEN 100
90 FOR I=0 TO 50:NEXT:GOTO 40
100 A$=STRING$(31,&H20)
110 FOR I=21 TO 23:LOCATE 0,I:PRINT A$;:NEXT
120 BEEP:IF SC>HI THEN HI=SC
130 LOCATE 0,23:PRINT "SCORE :";SC;SPC(3);"HI :";HI;
140 IF INKEY$<>"" THEN 140 ELSE FOR I=0 TO 2000:NEXT
150 S=-STRIG(0)+STICK(0):IF S=0 THEN 150 ELSE 30
160 C=&H84:A$=""
170 FOR I=C*8 TO C*8+7:A$=A$+CHR$(VPEEK(I)):NEXT
180 SPRITE$(0)=A$:RETURN
190 SCREEN 0:LOCATE 0,0:IF PEEK(&H2D) THEN WIDTH 80:END ELSE WIDTH 40:END