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ń: 16 (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ąć :( 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
niewiedza buduje, wiedza rujnuje

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

7

Odp: Prima Aprilis Compo 2020 - Coronavirus Reaction

Zgodnie z przewidywaniem - edycji 2021 nikt nie pociągnął...

Sikor umarł...

8

Odp: Prima Aprilis Compo 2020 - Coronavirus Reaction

Myślę że nie olali, tylko nie widzieli posta. Wchodzę codziennie na "aktywne tematy" i zobaczyłem ten wątek dopiero teraz.

9

Odp: Prima Aprilis Compo 2020 - Coronavirus Reaction

Potwierdzam to co napisał VLX. Też tego posta nie widziałem.

10

Odp: Prima Aprilis Compo 2020 - Coronavirus Reaction

Ponieważ wątek powstał rok temu, dlatego go nie było widać w aktywnych :)

Czy możecie wyjaśnić, Stirlitz, dlaczego wasz służbowy adres stirlitz@rsha.gov.de ma aliasa justas@gru.su?
Nie czytam PM. Proszę używać e-mail.

11

Odp: Prima Aprilis Compo 2020 - Coronavirus Reaction

Fakt, poprzedni wpis z kwietnia 2020. Gapa ja.

Sikor, szkoda, że nie odkopałeś tematu. To raczej nie kwestia niechęci ludzi, tylko bałaganu jaki się ostatnio zrobił na świecie. Po takim roku jak 2020 nie dziwię się, że ludzie mogli nie pamiętać o konkursie.

12

Odp: Prima Aprilis Compo 2020 - Coronavirus Reaction

Dlategoponieważazaliszaczkolwiekiżże, jak napisałem w zeszłym roku - jak widzę, temat się wyczerpał. Specjalnie nie zaczynałem wątku 2021 aby to sprawdzić - i miałem rację, Ok, dla mnie EOT, do PA compo już raczej w życiu nic nie napiszę, na ten post też już się nie będę produkował.

Sikor umarł...

13

Odp: Prima Aprilis Compo 2020 - Coronavirus Reaction

Nic się nie wyczerpało. Za niecały miesiąc następna edycja!

hex, code and ror'n'rol
niewiedza buduje, wiedza rujnuje