Session end : 11h59m58s | Hide picture Sexe : OFF | ![]() | ![]() | ![]() | ![]() | Donations 2024 : 679.48 € |
10 MODE 1:SYMBOL 240,65,34,28,20,28,34,65,0:SYMBOL 241,252,172,212,172,212,172,212,252:SYMBOL 242,0,28,62,127,119,127,62,28:TAG:x=320:y=150:MOVE x,y,1,1:PRINT CHR$(240);:BORDER 0:INK 0,0:INK 1,24:INK 2,9:INK 3,26:l=0:k=0:sc=0:sh=20
20 SYMBOL 243,252,212,172,212,172,212,172,252
30 IF INKEY(8)=0 AND x>16 THEN TAG:MOVE x,y,1,1:PRINT CHR$(240);:x=x-8:TAG:MOVE x,y,1,1:PRINT CHR$(240);:ELSE IF INKEY(1)=0 AND x<607 THEN TAG:MOVE x,y,1,1:PRINT CHR$(240);:x=x+8:TAG:MOVE x,y,1,1:PRINT CHR$(240);
40 IF INKEY(2)=0 AND y>30 THEN TAG:MOVE x,y,1,1:PRINT CHR$(240);:y=y-8:TAG:MOVE x,y,1,1:PRINT CHR$(240);
50 IF INKEY(0)=0 AND y<382 THEN TAG:MOVE x,y,1,1:PRINT CHR$(240);:y=y+8:TAG:MOVE x,y,1,1:PRINT CHR$(240);
60 IF INKEY(47)=0 AND k=1 AND (TEST(x+8,y-6)=2 OR TEST(x+2,y-6)=2) THEN sc=sc+1:sh=sh-1:CLS:MOVE x,y,3,1:PRINT CHR$(242);:FOR p=0 TO 9:NEXT:MOVE x,y,3,1:PRINT CHR$(243);:CLS:MOVE x,y,1,1:PRINT CHR$(240);:k=0 ELSE IF INKEY(47)=0 THEN sh=sh-1
70 IF l=50 THEN c=CINT(RND*591+16):v=CINT(RND*350+32):MOVE c,v,2,1:PRINT CHR$(241);:k=1:l=0 ELSE l=l+1
80 IF l=49 AND k=1 THEN MOVE c,v,2,1:PRINT CHR$(241);
90 IF sh=0 THEN MODE 1:FOR t=0 TO 1000:CLEAR INPUT:NEXT:LOCATE 4,15:PRINT "YOU SCORED "sc:LOCATE 4,20:PRINT "PRESS ANY KEY FOR ANOTHER GAME":CALL &BB18:GOTO 10
10 MODE 1:SYMBOL 240,65,34,28,20,28,34,65,0:SYMBOL 241,252,172,212,172,212,172,212,252:SYMBOL 242,0,28,62,127,119,127,62,28:PRINT CHR$(23)CHR$(1):TAG:x=320:y=150:PLOT -10,-10,1:MOVE x,y:PRINT CHR$(240);:BORDER 0:INK 0,0:INK 1,24:INK 2,9:INK 3,26:l=0:k=0
20 sc=0:sh=20:SYMBOL 243,252,212,172,212,172,212,172,252
30 IF INKEY(8)=0 AND x>16 THEN TAG:PLOT -10,-10,1:MOVE x,y:PRINT CHR$(240);:x=x-8:TAG:MOVE x,y:PRINT CHR$(240);:ELSE IF INKEY(1)=0 AND x<607 THEN TAG:PLOT -10,-10,1:MOVE x,y:PRINT CHR$(240);:x=x+8:TAG:MOVE x,y:PRINT CHR$(240);
40 IF INKEY(2)=0 AND y>30 THEN TAG:PLOT -10,-10,1:MOVE x,y:PRINT CHR$(240);:y=y-8:TAG:MOVE x,y:PRINT CHR$(240);
50 IF INKEY(0)=0 AND y<382 THEN TAG:PLOT -10,-10,1:MOVE x,y:PRINT CHR$(240);:y=y+8:TAG:MOVE x,y:PRINT CHR$(240);
60 IF INKEY(47)=0 THEN sh=sh-1:IF k=1 AND (TEST(x+8,y-6)=2 OR TEST(x+2,y-6)=2) THEN sc=sc+1:TAGOFF:CLS:TAG:PLOT -10,-10,3:MOVE x,y:PRINT CHR$(242);:FOR p=0 TO 9:NEXT:MOVE x,y:PRINT CHR$(243);:TAGOFF:CLS:TAG:PLOT -10,-10,1:MOVE x,y:PRINT CHR$(240);:k=0
70 IF l=50 THEN c=CINT(RND*591+16):v=CINT(RND*350+32):PLOT -10,-10,2:MOVE c,v:PRINT CHR$(241);:k=1:l=0 ELSE l=l+1
80 IF l=49 AND k=1 THEN PLOT -10,-10,2:MOVE c,v:PRINT CHR$(241);
90 IF sh=0 THEN MODE 1:FOR t=0 TO 1000:WHILE INKEY$<>"":WEND:NEXT:LOCATE 4,15:PRINT "YOU SCORED "sc:LOCATE 4,20:PRINT "PRESS ANY KEY FOR ANOTHER GAME":CALL &BB18:GOTO 10