Session end : 12h00m00s | Hide picture Sexe : OFF | Donations 2024 : 785.48 € |
5 MODE 1:INK 0,0:INK 1,15:INK 2,18:INK 3,24:BORDER 0:PAPER 0:PEN 1
5 MODE 1:INK 0,0:INK 1,15:INK 2,18:INK 3,24:BORDER 0:PAPER 0:PEN 1:RANDOMIZE TIME*1.01020304
100 A=CINT(RND(1)*30+5):B=CINT(RND(1)*20+2):IF TEST(A*16-8,(25-B)*16+8) OR (A=20 AND B=12)=2 OR (A=25 AND B=17) THEN GOTO 100 ELSE LOCATE A,B:PEN 2:PRINT CHR$(150)
100 A=CINT(RND(1)*30+5):B=CINT(RND(1)*20+2):IF TEST(A*16-8,(25-B)*16+8)=2 OR (A=MANX AND B=MANY) OR (A=CREEPX AND B=CREEPY) THEN GOTO 100 ELSE LOCATE A,B:PEN 2:PRINT CHR$(150)
12 LOCATE 5,9:PEN 1:PRINT"Objects to gobble: ";:PEN 2:PRINT" ";CHR$(150)
18 LOCATE 5,9:PEN 1:PRINT"Objects to gobble: ";:PEN 2:PRINT" ";CHR$(150)
10 MODE 1:INK 0,0:INK 1,15:INK 2,18:INK 3,24:BORDER 0:PAPER 0:PEN 1
10 MODE 1:INK 0,0:INK 1,15:INK 2,18:INK 3,24:BORDER 0:PAPER 0:PEN 1:RANDOMIZE TIME*1.01020304
140 A=CINT(RND(1)*30+5):B=CINT(RND(1)*20+2):IF TEST(A*16-8,(25-B)*16+8) OR (A=20 AND B=12)=2 OR (A=25 AND B=17) THEN GOTO 140 ELSE LOCATE A,B:PEN 2:PRINT CHR$(150)
140 A=CINT(RND(1)*30+5):B=CINT(RND(1)*20+2):IF TEST(A*16-8,(25-B)*16+8)=2 OR (A=JX AND B=JY) OR (A=MONSTX AND B=MONSTY) THEN GOTO 140 ELSE LOCATE A,B:PEN 2:PRINT CHR$(150)
370 LOCATE 20,25:PEN 2:PRINT PUNT:PEN 1
370 LOCATE 17,25:PEN 2:PRINT PUNT:PEN 1
430 INK 3,26,0:SPEED INK 5,5:LOCATE 20,25:PEN 3:PRINT PUNT
430 INK 3,26,0:SPEED INK 5,5:LOCATE 17,25:PEN 3:PRINT PUNT