1

Temat: Prima Aprilis Compo 2020 - Coronavirus Reaction

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ł)

Post's attachments

pa2020(bas).atr 90.02 kb, liczba pobrań: 14 (od 2020-03-31) 

Tylko zalogowani mogą pobierać załączniki.
Sikor umarł...

2

Odp: Prima Aprilis Compo 2020 - Coronavirus Reaction

No cóż, compo czas zamknąć sad Widzę, że w przyszłym roku nie ma sensu robić - zerowy odzew. Dołączę jutro moje wypociny do zbiorczego dysku i myślę, że jakiś czas (3-5-10 lat?) nie ma sensu wracać do PA compo, bo ideafix się wypaliła w narodzie.

Sikor umarł...

3

Odp: Prima Aprilis Compo 2020 - Coronavirus Reaction

Multidysk zaktualizowany.

Sikor umarł...

4

Odp: Prima Aprilis Compo 2020 - Coronavirus Reaction

Nie mirmiłuj. W następnym roku będzie lepiej.

hex, code and ror'n'rol!
"mężczyzna wydoił wielbłąda żoną"
"wcześniej miał na imię Heidi i był niemiecką kulomiotką"

5

Odp: Prima Aprilis Compo 2020 - Coronavirus Reaction

Kurde, w ubiegłym roku wziąłem udział, a w tym jakoś przeoczyłem w ogóle tego posta. Nie wiem jak to możliwe, bo na forum siedzę codziennie, a ten wątek widzę dopiero teraz. Czy możliwe jest, że z jakiegoś tajemniczego powodu nie był widoczny dla wszystkich, albo pojawił się z opóźnieniem?
W każdym razie żałuję, że nie zrobiłem nic w tym roku, Sikor nie przerywaj tradycji, za rok się może uda, proponuję ogłaszać tydzień wcześniej i później podbijać codziennie aż do momentu startu, to ludzie nie przeoczą.

6

Odp: Prima Aprilis Compo 2020 - Coronavirus Reaction

Właśnie ten był dzień wcześniej. Dlatego żal mi dudę ściska, że wszyscy olali.

Sikor umarł...