W nawiązaniu do nowej świeckiem tradycji i z uwagi na panującą pandemię ogłaszam kolejną edycję. Dla przypomnienia:
http://www.atari.org.pl/forum/viewtopic.php?id=15934 - info z zeszłego roku
http://www.atari.org.pl/forum/viewtopic.php?id=15266 - link do multidysku z poprzednich edycji
Proponuję jak zwykle sam Atari Basic, w załączeniu atr do poprawek. Może ktoś udźwiękowi przy okazji? (mono, pamiętam, że Tyś w tym mistrz). Życzę miłej zabawy, deadline jutro, tj. 01.04.2020 o godzinie 23:59 czasu forumowego.
Przypominam - każdy moze się dołączyć dopisując swoją część kodu! Aha, linie 0-4 zarezerwowałem na info o autorach itp...
Mój wstępny (prawie tradycyjnie) kawałek kodu do dalszej zabawy:
0 REM PRIMA APRILIS 2020 - CODENAME COVID-19
1 REM BY SIKOR,
5 DIM A$(8),B$(28):A$="COVID-19"
6 ? "Days of pandemia (100-500)?";:INPUT DAYS
10 GRAPHICS 0:POKE 710,0:POKE 709,15:POKE 82,0:POKE 752,12:D=0
11 ? " PRIMA APRILIS COMPO 2020 - CODENAME:":? " COVID 19 REACTION "
12 POSITION 2,23:? " STAY HOME AND PLAY WITH YOUR ATARI! ";
13 Z=INT(RND(0)*8)+1:X=INT(RND(0)*39):Y=INT(RND(0)*20)+2
14 POSITION X,Y:? A$(Z,Z)
15 FOR I=0 TO INT(RND(0)*1000/(D+1)):NEXT I
20 D=D+1:IF D<DAYS THEN 13
21 RESTORE 1000:FOR Y=7 TO 14:READ B$:POSITION 6,Y:? B$;:NEXT Y
25 IF PEEK(53279)<>6 THEN 25
1000 DATA
1001 DATA
1002 DATA
1003 DATA
1004 DATA
1005 DATA
1006 DATA
1007 DATA WIN WITH CORONAVIRUS!!! (Uwaga! Częśći nie widać, bo to co w invers video na PC źle się wyświetla - ale można podejrzeć pod dołączonym ATR-em!)
Miłej zabawy!
(PS: ilość dni nie jest sprawdzana, ale według mnie to są sensowne liczby do wprowadzenia. Jak uważacie inaczej - można wprowadzić sprawdzenie zakresu i go zmodyfikować, w sumie to tylko jeden if by doszedł)
