RANDOMIZE TIMER TOUCHSCREEN DIM LX(25),LY(25) ZX=0 ZY=0 SPRITE 1 PAL 1 MENU: CLS TIMME=2500 SCORE=0 ZX=64 ZY=64 SIZEE=3 PALL=0 DX=1 DY=2 ALPHA=0 LEVEL=0 FOR I=1 TO 25 LX(I)=64 LY(I)=64 NEXT I PAL 1 TEXT 5,4,"Z" PAL 0 TEXT 7,4,"FINDER" REPEAT ZX=ZX+RND(6)-3 ZY=ZY+RND(6)-3 FOR I=1 TO 25 LX(I)=LX(I)+RND(6)-3 LY(I)=LY(I)+RND(6)-3 SPRITE I+1,LX(I),LY(I),I+224 NEXT I SPRITE 1,ZX,ZY,250 WAIT VBL UNTIL TAP CLS SPRITE OFF 0 TO 63 RES: FOR I=1 TO SIZEE FOR G=1 TO SIZEE PAL RND(PALL) CELL DX,DY,225+RND(ALPHA) DY=DY+1 NEXT G DY=2 DX=DX+1 NEXT I CELL RND(SIZEE-1)+1,RND(SIZEE-1)+2,250 DX=1 CONTIN: REPEAT PAL 0 TIMME=TIMME-1 LOCATE 0,0 PRINT TIMME LOCATE 5,0 IF TIMME<1 THEN GOTO ENDING PRINT "SCORE :",SCORE WAIT VBL UNTIL TAP IF CELL.C(TOUCH.X/8,TOUCH.Y/8)=250 THEN SCORE=SCORE+100+LEVEL*100 GOTO WORLDUP ELSE CELL TOUCH.X/8,TOUCH.Y/8,0 TIMME=TIMME-250 END IF GOTO CONTIN WORLDUP: TINT TOUCH.X/8,TOUCH.Y/8 PAL 1 LEVEL=LEVEL+1 IF SIZEE<13 AND LEVEL>3 THEN SIZEE=SIZEE+1 IF ALPHA<24 AND LEVEL>5 THEN ALPHA=ALPHA+1 IF LEVEL>6 AND PALL<7 THEN PALL=PALL+1 WAIT 20 GOTO RES ENDING: CLS PRINT "GAMEOVER" PRINT "SCORE :",SCORE REPEAT UNTIL TAP GOTO MENU #1:MAIN PALETTES 053F2F0000383400003C0C00003F3C00 002E0C0000331700003F2A00002E2107