【mkII専用】
ACLS:CLEAR:Z=1 @LOOP A=B:B=B+Z:Z=Z*1.04:C=(C+1)%8 GFILL 0,86-A,255,86-B,C+16 GFILL 0,106+A,255,106+B,C+16 IF A<118THEN @LOOP |
ACLS:CLEAR:Z=1 @LOOP A=B:B=B+Z:Z=Z*1.04:C=(C+1)%8 GFILL 0,86-A,255,86-B,C+16 GFILL 0,106+A,255,106+B,C+16 IF A<118THEN @LOOP @LOOP2 D=D+1 COLSET "GRP",D%8+16,"008800" COLSET "GRP",(D-1)%8+16,"00FF00" VSYNC 1 GOTO @LOOP2 |
ACLS:CLEAR:Z=1 SPSET 0,100,0,0,0,0:SPHOME 0,8,8 @LOOP A=B:B=B+Z:Z=Z*1.04:C=(C+1)%8 GFILL 0,86-A,255,86-B,C+16 GFILL 0,106+A,255,106+B,C+16 IF A<118THEN @LOOP FOR I=0TO 7 COLSET "GRP",I+16,"00FF00" NEXT A=0:Z=1 @LOOP2 C=C+1 A=B:B=B+Z X=128+Z*D:Y=106+B SPOFS 0,X,Y SPSCALE 0,Z*30 Z=Z*1.04:IF Z>6THEN Z=1:B=0:D=RND(64)-32 COLSET "GRP",C%8+16,"008800" COLSET "GRP",(C-1)%8+16,"00FF00" VSYNC 1 GOTO @LOOP2 |
@START ACLS:PNLTYPE "OFF":CLEAR GCIRCLE 20,22,20,7 GPAINT 20,20,7 GFILL 0,20,40,80,7 GCIRCLE 20,20,4,14 GPAINT 20,20,14 FOR I=0TO 1 GCIRCLE I*20+10,10,3,14 GLINE I*30+5,15,I*14+13,18,14 GLINE I*30+5,20,I*14+13,20,14 GLINE I*30+5,25,I*14+13,22,14 NEXT GPAGE 1:GCLS 11:BGMPLAY 14 FOR A=0TO 4:GOSUB @MCLR:NEXT @MAIN IF M==0THEN A=RND (5):SP=S/9+1:M=1 IF MO>70THEN SP=-SP MO=MO+SP IF MO<=0THEN @END GOSUB @MOLE PNLSTR 0,0,"SCORE "+STR$(S),11 TX=TCHX:TY=TCHY Z=GSPOIT(TX,TY) IF TCHTIME==1 AND (Z==7OR Z==14)THEN GOSUB @HIT VSYNC 1 GOTO @MAIN @HIT BEEP 11:M=0:MO=0:S=S+1:GOSUB @MCLR RETURN @MOLE IF SP<0THEN GOSUB @MCLR GCOPY 0,0,0,40,MO,A*50+5,150-MO,0:RETURN @MCLR GFILL A*50+5,70,A*50+45,150,11 GFILL A*50+4,149,A*50+46,151,0 RETURN @END BGMPLAY 6 PNLSTR 12,9,"GAME OVER",13 PNLSTR 12,15,"RETRY=[A]",11 PNLSTR 12,16,"END =[X]",11 @LOOP B=BUTTON() IF B==16THEN @START IF B==64THEN ACLS:END GOTO @LOOP |
ACLS:CLEAR GPAGE 1:GCLS 6 A=0:B=110 @LOOP C=A:D=B A=A+RND(20)+20 B=B+RND(40)-20 IF B>140THEN B=140 IF B<20THEN B=20 IF A>=240THEN A=255:B=110 GLINE A,B,C,D,157 IF A<255THEN @LOOP GFILL 0,155,255,191,7 GPAINT 0,131,157 IF A<255THEN @LOOP @LOOP2 A=RND(10)+8 B=RND(10)+10 E=E+A+RND(15):IF E+A>240THEN @LP2END GLINE E-A,160-B,E,160-B*3,10 GLINE E,160-B*3,E+A,160-B,10 GLINE E+A,160-B,E-A,160-B,10 GPAINT E,160-B*3+5,10,10 GFILL E-3,160-B,E+3,160,23 GOTO @LOOP2 @LP2END GPAGE 0 @LOOP3 FOR I=0TO 254STEP 2 GCOPY 1,I,0,255,191,0,0,0 GCOPY 1,0,0,I-1,191,256-I,0,0 VSYNC 2 NEXT GOTO @LOOP3 |
ACLS:CLEAR A=0:B=110 GPAGE 0,1,0:GCLS 6 @LOOP C=A:D=B A=A+RND(20)+20 B=B+RND(40)-20 IF B>140THEN B=140 IF B<20THEN B=20 IF A>=240THEN A=255:B=110 GLINE A,B,C,D,157 IF A<255THEN @LOOP GLINE 0,154,255,154,157 GPAINT 0,131,157 IF A<255THEN @LOOP GPAGE 0,2,0:GCLS GFILL 0,155,255,191,7 @LOOP2 A=RND(10)+8 B=RND(10)+10 E=E+A+RND(15):IF E+A>240THEN @LP2END GLINE E-A,160-B,E,160-B*3,10 GLINE E,160-B*3,E+A,160-B,10 GLINE E+A,160-B,E-A,160-B,10 GPAINT E,160-B*3+5,10,10 GFILL E-3,160-B,E+3,160,23 GOTO @LOOP2 @LP2END @LOOP3 FOR I=0TO 510STEP 2 K=I/2:L=I%256 P=3-P:GPAGE 0,P,3-P GCOPY 1,K,0,255,154,0,0,1 GCOPY 1,0,0,K-1,154,256-K,0,1 GCOPY 2,L,100,255,191,0,100,0 GCOPY 2,0,100,L-1,191,256-L,100,0 VSYNC 1 NEXT GOTO @LOOP3 |
ACLS:GPAGE 0,1,0 CLEAR:GCLS 6 A=0:B=110 @LOOP C=A:D=B A=A+RND(20)+20 B=B+RND(40)-20 IF B>140THEN B=140 IF B<20THEN B=20 IF A>=240THEN A=255:B=110 GLINE A,B,C,D,157 IF A<255THEN @LOOP GFILL 0,155,255,191,7 GPAINT 0,131,157 IF A<255THEN @LOOP @LOOP2 A=RND(10)+8 B=RND(10)+10 E=E+A+RND(15):IF E+A>240THEN @LP2END GLINE E-A,160-B,E,160-B*3,10 GLINE E,160-B*3,E+A,160-B,10 GLINE E+A,160-B,E-A,160-B,10 GPAINT E,160-B*3+5,10,10 GFILL E-3,160-B,E+3,160,23 GOTO @LOOP2 @LP2END @LOOP3 P=3-P:GPAGE 0,P,3-P B=BUTTON() V=V-(4AND B)/8+(8AND B)/16 W=W-(1AND B)/2+(2AND B)/4 X=(X+V+256)%256 Y=(Y+W+192)%192 GCOPY 1,0,0,X,Y,256-X,192-Y,0 GCOPY 1,X,0,255,Y,0,192-Y,0 GCOPY 1,0,Y,X,191,256-X,0,0 GCOPY 1,X,Y,255,191,0,0,0 VSYNC 1 GOTO @LOOP3 |
0・ ・ ・ ・ X ・ ・ 領域A ・ Y | ・ ・ ・ ・ 255 領域B |
・ ・ ・ 領域C ・ 191 | (X,Y) 領域D |