Session end : 11h59m46s | Hide picture Sexe : OFF | ![]() | ![]() | ![]() | ![]() | Donations 2024 : 679.48 € |
20 LOCATE#1,1,2:PEN#1,1:PRINT#1,"Score:";s%;TAB(30);"Hi:";hi%: WINDOW#0,1,40,4,26:x$="^T^T^T^T":y$="^I^J^K^L":dx%=0:dy%=-1:s%=0: fx%=0:fy%=0:ft%=0:k$="*":WHILE k$<>" " AND k$<>"Z" AND k$<>"X":k$=INKEY$:WEND:CLS#0:PEN 1:FRAME:EVERY 50 GOSUB 90:DI
40 PEN 1:IF x%=0 OR x%=41 OR y%=0 OR y%=23 THEN SOUND 1,999,25,15,,,31:GOTO 10 ELSE x$=CHR$(x%)+x$:y$=CHR$(y%)+y$:LOCATE x%,y%:IF COPYCHR$(#0)=CHR$(202) THEN SOUND 1,999,25,15,,,31:GOTO 10
100 LOCATE fx%,fy%:IF COPYCHR$(#0)=CHR$(202) OR (fx%=ox% AND fy%=oy%) THEN fx%=0:GOTO 90 ELSE ft%=10:LOCATE#1,15,3:PRINT#1,STRING$(10,CHR$(143)):PEN 2:PRINT CHR$(231);:PEN 1:LOCATE h%,v%:ak%=1:RETURN
20 PRINT#1,"Score:";s%;TAB(30);"Hi:";hi%: WINDOW#0,1,40,4,26:x$="^T^T^T^T":y$="^I^J^K^L":dx%=0:dy%=-1:s%=0: fx%=0:fy%=0:ft%=0:k$="*":WHILE k$<>" " AND k$<>"Z" AND k$<>"X":k$=INKEY$:WEND:CLS:PEN 1:EVERY 50 GOSUB 90:DI:RESTORE:FOR a%=48 TO 54:READ p%:POKE a%,p%:NEXT
40 PEN 1:IF x%=0 OR x%=41 OR y%=0 OR y%=23 THEN SOUND 1,999,25,15,,,31:GOTO 10 ELSE x$=CHR$(x%)+x$:y$=CHR$(y%)+y$:LOCATE x%,y%:CALL 48:IF PEEK(55)=202 THEN SOUND 1,999,25,15,,,31:GOTO 10
100 LOCATE fx%,fy%:CALL 48:IF PEEK(55)=202 OR (fx%=ox% AND fy%=oy%) THEN fx%=0:GOTO 90 ELSE ft%=10:LOCATE#1,15,3:PRINT#1,STRING$(10,CHR$(143)):PEN 2:PRINT CHR$(231);:PEN 1:LOCATE h%,v%:ak%=1:RETURN:DATA 205,96,187,50,55,0,201