Życie Wieczne
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum Życie Wieczne Strona Główna
->
Offtopic
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
----------------
Ogólna dyskusja
Kościół rzymsko katolicki
Biblia
Objawienia
Własne przemyślenia
Inne religie i ateizm
Nasza twórczość
Offtopic
Przegląd tematu
<table border="0" cellpadding="3" cellspacing="1" width="100%" class="forumline"> <tr> <th class="thCornerL" width="22%" height="26">Autor</th> <th class="thCornerR">Wiadomość</th> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 15:51, 19 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB zabranie () <br /> <br />REM Gra "Serca" UWAGA wersaj gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <br />DECLARE SUB dreptanie () <br />DECLARE SUB animacja () <br />DECLARE SUB rysowanie () <br />DECLARE SUB palety () <br />DECLARE SUB plansze () <br />DECLARE SUB cegly () <br /> <br />REM plansza startowa: <br />DIM SHARED roomx AS INTEGER, roomy AS INTEGER <br />roomx = 7: roomy = 4 <br /> <br />DIM SHARED kolor$(0 TO 255) <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED p$(0 TO 143) <br />DIM SHARED kod$ <br />DIM SHARED serca(0 TO 15, 0 TO 8) AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br /> <br />REM pamiec tla pod wziatek <br /> <br />DIM SHARED tlo(0 TO 32) AS LONG <br /> <br />REM tlo <br /> <br />DIM SHARED szaretlo(0 TO 74) AS LONG <br />DIM SHARED szaretlo2(0 TO 148) AS LONG <br />DIM SHARED szaretlo4(0 TO 300) AS LONG <br />REM dane elementow planszy <br /> <br />DIM SHARED ceg2(0 TO 75) AS LONG <br />DIM SHARED ceg40(0 TO 730) AS LONG <br />DIM SHARED ceg17plus17(0 TO 730) AS LONG <br />DIM SHARED ceg13plus13(0 TO 760) AS LONG <br />DIM SHARED ceg4plus20plus4(0 TO 750) AS LONG <br />DIM SHARED palma(0 TO 64) AS LONG <br />DIM SHARED nieb(0 TO 145) AS LONG <br /> <br />DIM SHARED blokp(0 TO 74) AS LONG <br />DIM SHARED bloks(0 TO 74) AS LONG <br />DIM SHARED blokk(0 TO 74) AS LONG <br />DIM SHARED blok2(0 TO 158) AS LONG <br />DIM SHARED blok4(0 TO 296) AS LONG <br /> <br />REM ****************** DANE ANIMACJI <br /> <br />DIM SHARED znakp1(0 TO 128) AS LONG <br />DIM SHARED znakl1(0 TO 128) AS LONG <br />DIM SHARED znakp2(0 TO 128) AS LONG <br />DIM SHARED znakl2(0 TO 128) AS LONG <br />DIM SHARED znakp3(0 TO 128) AS LONG <br />DIM SHARED znakl3(0 TO 128) AS LONG <br />DIM SHARED vertd1(0 TO 128) AS LONG <br /> <br />REM matryce okien <br /> <br />DIM SHARED window1(0 TO 160) AS LONG <br />DIM SHARED window2(0 TO 160) AS LONG <br />DIM SHARED window3(0 TO 160) AS LONG <br /> <br />DIM SHARED wentylator(0 TO 64) AS LONG <br /> <br />REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />REM PRINT FRE(-2): END <br />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 150: y = 35: xs = 150: ys = 35: REM wspolrzedne poczatkowe gracza na ekranie <br />licz = -1: REM wartosc startowa zegara <br />REM roomx = 3: roomy = 3 przeniesione wyzej <br />kolwent = 30 + 30 * 256 + 30 * 65536: REM kolor lopat wentylatora <br /> <br />REM ***** SUB palety - ustawienie nowych wartosci barw <br />palety <br /> <br />REM ***** SUB cegly - zapelnienie pozostalych tablic <br />cegly <br /> <br />REM SUB plansze - wypelnienie tablicy wygladu plansz <br />plansze <br /> <br />REM SUB animacja - tablice animacji postaci <br />REM animacja <br /> <br /> <br />REM ************************* WYBOR POMIESZCZENIA <br /> <br />rysuj: <br /> <br />kod$ = p$(roomx + roomy * 16) <br /> <br />REM ******************** rysowanie pomieszczenia <br />t0 = PEEK(1132): REM pomiar czasu rysowania <br /> <br /> <br />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />COLOR 235 <br />REM LOCATE 23, 1: FOR i = 1 TO 40: PRINT CHR$(223); : NEXT i <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <br /> <br />LOCATE 24, 2: COLOR 3: PRINT "T:"; t0; "/"; t1; FRE(-2); <br />PRINT " ROOM:"; roomx; "/"; roomy; "--"; <br /> <br /> <br />REM **************** zapamietanie pola pod graczem <br />GET (x, y)-(x + 15, y + 31), pamiec <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />REM PUT (x, y), vertd1, PSET <br />liczsercaroom = 0: zrobione = 0 <br />GOTO postaw <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <br />dx = 0: dy = 0 <br />IF dzwiekbrania = 1 THEN dzwiekbrania = 0: zabranie <br /> <br />REM ******************* czas gry w sekundach <br /> <br />se$ = MID$(TIME$, 7, 2) <br />se = VAL(se$) <br />IF se <> ses THEN licz = licz + 1 <br />ses = se <br />LOCATE 25, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br />FOR delay = 1 TO 700: NEXT delay <br /> <br />REM faza wentylatora <br /> <br />komorka = PEEK(1132) / 1.5 <br />faz = INT(komorka) <br />IF faz / 3 = INT(faz / 3) THEN faza = 0 <br />IF (faz + 1) / 3 = INT((faz + 1) / 3) THEN faza = 1 <br />IF (faz + 2) / 3 = INT((faz + 2) / 3) THEN faza = 2 <br />FOR i = 0 TO 2: i16 = i * 16 <br />IF faza = 0 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, 0 <br />IF faza = 1 THEN PALETTE 11 + i16, 0: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, kolwent <br />IF faza = 2 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, 0: PALETTE 13 + i16, kolwent <br />NEXT i <br /> <br />REM ************************ sprawdzenie klawiszy <br /> <br />alt = 0: lshift = 0: pshift = 0: skos = 0 <br /> <br />k$ = INKEY$ <br />IF k$ = "f" THEN roomx = roomx - 1: GOTO rysuj <br />IF k$ = "h" THEN roomx = roomx + 1: GOTO rysuj <br />IF k$ = "t" THEN roomy = roomy - 1: GOTO rysuj <br />IF k$ = "b" THEN roomy = roomy + 1: GOTO rysuj <br /> <br />IF k$ = CHR$(27) THEN END <br /> <br />REM klawisz alt - wznoszenie sie <br />IF (PEEK(1047) AND 8) = 8 THEN alt = 1 <br />IF (PEEK(1047) AND 2) = 2 THEN lshift = 1 <br />IF (PEEK(1047) AND 1) = 1 THEN pshift = 1 <br /> <br />REM bezruch = grawitacja <br />IF lshift = 0 AND pshift = 0 AND alt = 0 THEN dy = 2: vert = 1: obrot = 0: przebiervert = 0: GOTO czy <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br /> <br />IF lshift = 1 THEN dx = -4: dy = 2: obrot = -1: vert = 0 <br />IF pshift = 1 THEN dx = 4: dy = 2: obrot = 1: vert = 0 <br />IF alt = 1 THEN dy = -4: vert = 1 <br />IF dx <> 0 AND dy <> 0 THEN skos = 1 <br />czy: <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br /> <br />IF x + dx > 300 THEN x = 5: xs = 5: roomx = roomx + 1: GOTO rysuj <br />IF x + dx < 3 THEN x = 300: xs = 300: roomx = roomx - 1: GOTO rysuj <br />IF y + dy > 144 THEN y = 5: ys = 5: roomy = roomy + 1: GOTO rysuj <br />IF y + dy < 4 THEN y = 145: ys = 145: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br />REM sprawdzenie przeszkody. Przeszkoda sa kolory > 200 <br /> <br />xmozliwy = 0: xniemozliwy = 0 <br />ymozliwy = 0: yniemozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa obok <br /> <br />IF dx > 0 THEN <br />FOR i = 0 TO 31: punkt = POINT(x + 19, y + i) <br />IF (punkt > 200 AND punkt <> 255) OR punkt = 198 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br /> <br />IF dx < 0 THEN <br />FOR i = 0 TO 31: punkt = POINT(x - 3, y + i) <br />IF (punkt > 200 AND punkt <> 255) OR punkt = 199 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF xniemozliwy = 0 THEN xmozliwy = 1 <br />IF xniemozliwy = 1 THEN xmozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa gora dol <br /> <br />IF dy > 0 THEN <br />FOR i = 0 TO 15: <br />IF POINT(x + i, y + 32) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y + 33) > 200 THEN yniemozliwy = 1: EXIT FOR <br /> <br />NEXT i <br />END IF <br /> <br />IF dy < 0 THEN <br />FOR i = 0 TO 15 <br />IF POINT(x + i, y - 4) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y - 5) > 200 THEN yniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF yniemozliwy = 0 THEN ymozliwy = 1 <br />IF yniemozliwy = 1 THEN ymozliwy = 0 <br /> <br />REM ruch gdy oba mozliwe x oraz y <br />IF ymozliwy = 1 AND xmozliwy = 1 THEN IF dx <> 0 OR dy <> 0 THEN GOTO ruch <br /> <br /> <br />REM szczegolne przypadki gdy tylko x albo y mozliwy <br />IF ymozliwy = 0 AND xmozliwy = 1 THEN dy = 0: GOTO czy <br />IF ymozliwy = 1 AND xmozliwy = 0 THEN dx = 0: GOTO czy <br /> <br /> <br />REM ruch niemozliwy powrot petli glownej bez zmian pozostaja x y <br /> <br /> <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** RUCH <br /> <br />ruch: <br /> <br />x = x + dx: y = y + dy <br />IF dy = 0 AND przebieranie = 0 AND alt = 0 THEN dreptanie: REM dzwiek chodzenia <br /> <br />REM ******************** czy jest wziatek <br />deltawx = ABS(x + 4 - xserca) <br />deltawy = ABS(y + 16 - yserca) <br />IF deltawx < 10 AND deltawy < 22 THEN GOSUB wziatek <br /> <br />REM ************************************** operacja odswiezania tla <br />postaw: <br />REM punkt 1 zapamietanie nowego pola dzialania (brudnego) <br />REM w oparciu o nowe x,y <br /> <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />REM************ 2 odnowienie pola dzialania uwzgledniajac dawne tlo <br /> <br />deltax = x - xs: deltay = y - ys <br />inversx = -1 * deltax: inversy = -1 * deltay <br />inver4 = INT(inversx / 4) <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = (yt + inversy) * 6 <br />FOR xt = 0 TO 3 <br />index1 = 1 + (yt6 + 24) + (xt + inver4) + 1 <br />index2 = 1 + yt4 + xt <br />poledzialania(index1) = pamiec(index2) <br />NEXT xt: NEXT yt <br /> <br />REM zmazanie serca z pola dzialania <br /> <br />IF liczsercaroom = 1 AND zrobione = 0 THEN <br />zrobione = 1 <br />PUT (x - 4, y - 4), poledzialania, PSET <br />PUT (xserca, yserca), tlo, PSET <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />END IF <br /> <br />REM nowa mala pamiec <br /> <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = yt * 6 <br />FOR xt = 0 TO 3: <br />index1 = 1 + (yt6 + 24) + (xt + 1): <br />index2 = 1 + yt4 + xt: <br />pamiec(index2) = poledzialania(index1): NEXT xt: NEXT yt <br /> <br /> <br />REM ************* rysowanie nowej postaci WEDLUG FAZY RUCHU <br /> <br />REM aby nie rysowac dwoch postaci w przypadku skosu <br />IF skos = 1 THEN GOTO bezskosu: <br /> <br />REM ************************** ruch w dol lub gore <br /> <br />IF vert = 1 THEN wkleic = 7: GOTO wklej <br />bezskosu: <br />REM ************************** ruch w lewo <br /> <br />IF obrot = -1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 1: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 2: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 3: GOTO wklej <br />END IF <br /> <br />REM ****************** ruch w prawo <br /> <br />IF obrot = 1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br /> <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 4: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 5: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 6: GOTO wklej <br />END IF <br /> <br />xs = x: ys = y <br /> <br />GOTO petla <br /> <br />wklej: <br /> <br />IF wkleic = 1 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 2 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 3 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 4 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 5 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 6 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 7 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR vertd1(index2)): NEXT xt: NEXT yt <br /> <br />REM wklejenie wyniku operacji na tablicy: <br />PUT (x - 4, y - 4), poledzialania, PSET <br /> <br />xs = x: ys = y <br />GOTO petla <br /> <br />REM GOSUB-RETURN****************************** obsluga wziatku <br /> <br />wziatek: <br />IF serca(roomx, roomy) = 0 THEN GOTO niemawziatku <br />IF liczsercaroom = 1 THEN GOTO niemawziatku <br />serca(roomx, roomy) = 0 <br />liczserca = liczserca + 1 <br />PUT (xserca, yserca), tlo, PSET <br /> <br />liczsercaroom = 1 <br />dzwiekbrania = 1 <br /> <br />LOCATE 1, 1: COLOR 6: PRINT liczserca; <br />niemawziatku: <br />RETURN <br /> <br />SUB animacja <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br />REM ten SUB jest do skasowania <br /> <br />END SUB <br /> <br />SUB cegly <br /> <br />BLOAD "bitmap1.scr" <br /> <br />REM INPUT a$ <br />REM pobranie z ekranu tablic elementow <br />REM uwaga! wysokosc elementu to 9 lub 18 px <br /> <br />GET (0, 0)-(31, 8), ceg2 <br />GET (0, 0)-(319, 8), ceg40 <br />GET (0, 9)-(319, 17), ceg17plus17 <br />GET (0, 18)-(319, 26), ceg13plus13 <br />GET (0, 27)-(319, 35), ceg4plus20plus4 <br />GET (0, 36)-(15, 53), szaretlo <br />GET (0, 36)-(31, 53), szaretlo2 <br />GET (0, 36)-(63, 53), szaretlo4: REM 36+18=46+8=54 <br /> <br />GET (16, 64)-(31, 79), palma <br />GET (32, 64)-(47, 81), blokp <br />GET (48, 64)-(63, 81), bloks <br />GET (64, 64)-(79, 81), blokk <br />GET (0, 156)-(31, 173), blok2 <br />GET (0, 156)-(63, 173), blok4 <br />GET (80, 64)-(111, 81), nieb <br /> <br /> <br />GET (0, 88)-(15, 119), znakl1 <br />GET (16, 88)-(31, 119), znakp1 <br />GET (32, 88)-(47, 119), znakl2 <br />GET (48, 88)-(63, 119), znakp2 <br />GET (64, 88)-(79, 119), znakl3 <br />GET (80, 88)-(95, 119), znakp3 <br />GET (96, 88)-(111, 119), vertd1 <br /> <br />GET (0, 120)-(31, 139), window1 <br />GET (32, 120)-(63, 139), window2 <br />GET (64, 120)-(95, 139), window3 <br />GET (0, 140)-(15, 155), wentylator <br />CLS <br />END SUB <br /> <br />SUB dreptanie <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />REM ewentualnie: <br />REM OUT 66, 30: OUT 66, 0 <br />REM OUT 66, 164: OUT 66, 2 <br />REM OUT 66, 130: OUT 66, 1 <br />REM OUT 66, 74: OUT 66, 0 <br />REM OUT 66, 220: OUT 66, 1 <br /> <br />FOR i = 1 TO 10 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 84: OUT 66, 2 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 94: OUT 66, 2 <br />OUT 66, 10: OUT 66, 0 <br />OUT 66, 40: OUT 66, 2 <br />OUT 66, 84: OUT 66, 0 <br />OUT 66, 10: OUT 66, 2 <br /> <br /> <br />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00" <br />PALETTE i, 31 + 31 * 256 + 31 * 65536: NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 05 05 06": REM tlo plyta <br />kolor$(2) = "02 02 03 02": REM tlo fuga <br />kolor$(3) = "03 07 06 06": REM tlo krawedz <br />kolor$(4) = "04 00 22 00": REM liscie <br />kolor$(5) = "05 3F 08 00": REM serce <br />kolor$(6) = "06 30 30 30": REM framuga okna <br />kolor$(7) = "07 28 0A 00": REM doniczka drzewa <br />kolor$(8) = "08 00 21 39": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 14 14 14": REM framuga zewnetrzna <br />kolor$(11) = "0B 00 00 00": REM wentylator faza 1 <br />kolor$(12) = "0C 00 00 00": REM wentylator faza 2 <br />kolor$(13) = "0D 00 00 00": REM wentylator faza 3 <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />kolor$(16) = "10 18 02 02": REM sweter + zero <br />kolor$(17) = "11 18 02 02": REM <br />kolor$(18) = "12 18 02 02": REM <br />kolor$(19) = "13 18 02 02": REM <br />kolor$(20) = "14 22 12 00": REM sweter + liscie <br />kolor$(21) = "15 3F 00 00": REM <br />kolor$(22) = "16 2F 09 09": REM sweter + framuga okna <br />kolor$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />kolor$(24) = "18 25 16 24": REM sweter + niebo <br />kolor$(25) = "19 3F 3F 3F": REM sweter + slonce <br />kolor$(26) = "1A 16 0F 0F": REM sweter + framuga zew <br />kolor$(27) = "1B 3F 3F 3F": REM <br />kolor$(28) = "1C 3F 3F 3F": REM <br />kolor$(29) = "1D 3F 3F 3F": REM <br />kolor$(30) = "1E 3F 3F 3F": REM <br />REM kolor 31 1F zastrzezony dla gracza <br />kolor$(32) = "20 0A 13 29": REM spodnie + zero <br />kolor$(33) = "21 0A 13 29": REM <br />kolor$(34) = "22 0A 13 29": REM <br />kolor$(35) = "23 0A 13 29": REM <br />kolor$(36) = "24 05 1D 24": REM spodnie+ liscie <br />kolor$(37) = "25 3F 3F 3F": REM <br />kolor$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />kolor$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />kolor$(40) = "28 00 1A 3F": REM spodnie + niebo <br />kolor$(41) = "29 3F 3F 3F": REM spodnie +slonce <br />kolor$(42) = "2A 10 14 20": REM spodnie + framuga zew <br />kolor$(43) = "2B 3F 3F 3F": REM <br />kolor$(44) = "2C 3F 3F 3F": REM <br />kolor$(45) = "2D 3F 3F 3F": REM <br />kolor$(46) = "2E 3F 3F 3F": REM <br />REM rejestr 47 2F zastrzezony dla gracza <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br />REM rejestry nieprzezroczyste <br /> <br />kolor$(31) = "1F 2F 09 09": REM sweter <br />kolor$(47) = "2F 0D 1A 37": REM spodnie <br />kolor$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 30 20": REM skora1 <br />kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 32 22 02": REM nos <br />kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 22 02 02": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br />REM FF- zarezerwowany dla przeslony <br /> <br />REM rejestry jednokierunkowe <br />kolor$(198) = "C6 20 20 20" <br />kolor$(199) = "C7 20 20 20" <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 24 24": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM kolor 240 - przeslona <br />kolor$(240) = "F0 38 38 38" <br />REM cegly male niebieskie <br /> <br />kolor$(249) = "F9 22 27 30": REM krawedz <br />kolor$(250) = "FA 09 0E 14": REM fuga <br />kolor$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 28 28 28": REM przeslona <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br /> <br /> <br /> <br />END SUB <br /> <br />SUB plansze <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** roomy*16+roomx <br /> <br />REM kody plansz +++nr.po.ok.we.se_kw_dod <br />REM ************ plansze wiersza roomy=0 <br /> <br />p$(0) = "h22233322d.0.UI.YO....GN________!" <br />p$(1) = "h000fff11h.1....MD....__________!" <br />p$(2) = "h11133333f.2.UI.HE....___EQ_____!" <br />p$(3) = "hh2223cchh.3..........SJ________!" <br />p$(4) = "h300033fff.4....ZK....__________!" <br />p$(5) = "h2001c333f.5....LG....______AQG_!" <br />p$(6) = "h111g3222f.6....LD....___EQ_F[Q_!" <br />p$(7) = "hh222d111g.7.BE....DF.aH_WI_____!" <br />p$(8) = "hhDDDfCCCg.8..........__________!" <br />p$(9) = "hhhhhf111c.9..........__________!" <br />p$(10) = "hhhhhf222g.A..........GG_EQ_____!" <br />p$(11) = "hh333f111d.B....HG....__________!" <br />p$(12) = "hhffff333g.C..........__________!" <br />p$(13) = "h22233333c.D.UN.aK.DF.MK____AYC_!" <br />p$(14) = "h111ff22hh.E..........___aG_BLM_!" <br />p$(15) = "h3333311cc.F....ZK....aH____AIG_!" <br /> <br /> <br />REM ************ plansze wiersza roomy=1 <br /> <br />p$(16) = "d333c2223h.0.......FN.__________!" <br />p$(17) = "h33330003h.1.WH.SO....dE____COM_!" <br />p$(18) = "ff333111ff.2.WJ.ML....__________!" <br />p$(19) = "hc222c333c.3..........___QQ_____!" <br />p$(20) = "f31113333h.4.UM.aI.aO.__________!" <br />p$(21) = "f333aa333h.5..........RN_GQ_____!" <br />p$(22) = "ffff333fff.6....DJ....aM____G[M_!" <br />p$(23) = "gg333a33hh.7..........__________!" <br />p$(24) = "gg333333ff.8.AK....IF.__________!" <br />p$(25) = "cc3322333c.9.WM.......eF________!" <br />p$(26) = "gg331133hh.A....LF....aO________!" <br />p$(27) = "ddaa22cccc.B..........__________!" <br />p$(28) = "g33300333h.C.AM....aO.__________!" <br />p$(29) = "c33311333c.D.0M.......ZK____AQO_!" <br />p$(30) = "h3322233dd.E.BE....aF.__________!" <br />p$(31) = "c33111333h.F.AM.bD....___QQ_COH_!" <br /> <br /> <br />REM ************* plansze wiersza roomy=2 <br /> <br />p$(32) = "h333ff333c.0..........KE_WQ_____!" <br />p$(33) = "h33332222c.1....KD....UP____CGI_!" <br />p$(34) = "faaaa0000h.2....WO.VI.__________!" <br />p$(35) = "ccccc1111f.3....MM....___EQ_____!" <br />p$(36) = "h33333223h.4.WI.FP....SM________!" <br />p$(37) = "haa33200af.5.UJ....GL.______HIE_!" <br />p$(38) = "f333c111ah.6....aM....UP________!" <br />p$(39) = "hh333d333g.7....YP....___KQ_____!" <br />p$(40) = "ff3333333g.8.#I.......KK____CGN_!" <br />p$(41) = "c33g33d33c.9..........__________!" <br />p$(42) = "hh3333333g.A.WM.LI....__________!" <br />p$(43) = "cc333322cc.B.UJ.......__________!" <br />p$(44) = "hhaacc00hh.C.BE....JG.ZM____AQM_!" <br />p$(45) = "c333cc11gg.D....aN....______AQM_!" <br />p$(46) = "dd33cc22hh.E..........______AQE_!" <br />p$(47) = "hh3331113c.F.UK....VI.___EQ_____!" <br /> <br />REM ************ plansze wiersza roomy=3 <br /> <br />p$(48) = "c33332222f.0....ZM.ZD.SF____COI_!" <br />p$(49) = "ccccc1111h.1..........__________!" <br />p$(50) = "ha3222333c.2.#F.LO....UO_SQ_____!" <br />p$(51) = "ff3111333f.3.WM.YI.VI.SJ_GQ_____!" <br />p$(52) = "h3333c333f.4..........NG____CKK_!" <br />p$(53) = "ff333c222f.5....ZO....SG________!" <br />p$(54) = "hhaaff000f.6.BE.......___KQ_____!" <br />p$(55) = "gggg33111f.7....LO.VJ.______IYM_!" <br />p$(56) = "gg3322ffff.8..........GG________!" <br />p$(57) = "cccc00hfff.9..........__________!" <br />p$(58) = "gg33DDffff.A..........___KK_CCH_!" <br />p$(59) = "cccccfffff.B.......TL.__________!" <br />p$(60) = "hh3333333f.C....KK....DP________!" <br />p$(61) = "g333333hhh.D.UJ....TF.______CKK_!" <br />p$(62) = "hh3222333f.E..........___GQ_____!" <br />p$(63) = "c331113hhh.F....ZK....__________!" <br /> <br />REM ****************** plansze wiersza roomy=4 <br /> <br />p$(64) = "f22322322h.0....DD....SP_YQ_CKK_!" <br />p$(65) = "h00f00f00h.1..........__________!" <br />p$(66) = "c11311311f.2....aP.KP.__________!" <br />p$(67) = "ff3332223h.3.UJ.ML....___YQ_____!" <br />p$(68) = "f3333111hh.4.WJ.YL....__________!" <br />p$(69) = "ffaafaaaff.5.......VI.__________!" <br />p$(70) = "ffa333c33h.6....OG....SQ_YQ_____!" <br />p$(71) = "ff2233c33d.7....aP....______LVO_!": REM startowa <br />p$(72) = "ff113cc33d.8..........aO____JVO_!" <br />p$(73) = "ff33cc33ff.9..........______COI_!" <br />p$(74) = "ff3333333d.A.WM.LI.ZP.PP________!" <br />p$(75) = "ff2233333f.B.UM.......___EQ_____!" <br />p$(76) = "ff11333hhh.C.......KH.__________!" <br />p$(77) = "h333333333.D.BE.SK....bF____CKK_!" <br />p$(78) = "ff22233hhh.E.UJ.......______FEE_!" <br />p$(79) = "h311133fff.F.WJ.......MM________!" <br /> <br />REM ******************* plansze wiersza roomy=5 <br /> <br />p$(80) = "haf222faff.0.......VI.___KK_____!" <br />p$(81) = "hhf111222h.1..........SP____CKK_!" <br />p$(82) = "fa333c000h.2....GO....__________!" <br />p$(83) = "h222fa111f.3..........___YQ_____!" <br />p$(84) = "h111c2223h.4.0Q....EE.MM________!" <br />p$(85) = "ffffa111ff.5..........______GOE_!" <br />p$(86) = "h333c333af.6....DD....ZF_MQ_____!" <br />p$(87) = "dd333f333g.7.......VI.___aI_____!" <br />p$(88) = "dd3333333g.8.UN.KP....______COI_!" <br />p$(89) = "f32233f33f.9.......ED.KK________!" <br />p$(90) = "ddDDCC333h.A....ZK....KO________!" <br />p$(91) = "f33300f33f.B..........______COH_!" <br />p$(92) = "h33300333c.C....NN....__________!" <br />p$(93) = "333311333h.D.0M....TG.GG________!" <br />p$(94) = "h33222333c.E.AM.......__________!" <br />p$(95) = "ff3111333h.F.WM.FF....___YQ_____!" <br /> <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />p$(96) = "fffa222hhh.0....EJ....___YM_____!" <br />p$(97) = "hhhf000bbb.1....SJ....ML____CMO_!" <br />p$(98) = "h222111hhh.2..........___KM_____!" <br />p$(99) = "f111aaafff.3....PH....ZJ________!" <br />p$(100) = "h222ahhhhh.4..........EE________!" <br />p$(101) = "f11133222h.5.0I.......___GQ_____!" <br />p$(102) = "ffffff000h.6....LO....__________!" <br />p$(103) = "gg333d111f.7....MO....aP________!" <br />p$(104) = "gg333hCCCh.8.......ZN.EG____HIE_!" <br />p$(105) = "ffffffDDDh.9..........__________!" <br />p$(106) = "hh333fCCCh.A.BE.......___KI_____!" <br />p$(107) = "ff3333111h.B.0I....KK.aP____CKK_!" <br />p$(108) = "cc22dd22ff.C..........__________!" <br />p$(109) = "hhDDffDDhh.D.......TJ.LN________!" <br />p$(110) = "ccc2222hhh.E..........__________!" <br />p$(111) = "hhhDDDDhhh.F..........TK_KM_____!" <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />p$(112) = "hfaa222hhh.0..........______COJ_!" <br />p$(113) = "bbbb000hhh.1....KK....__________!" <br />p$(114) = "h222111fff.2.BJ.......ZE____AIK_!" <br />p$(115) = "f000aaahhh.3..........___KM_____!" <br />p$(116) = "h000ahhhhh.4.......KF.__________!" <br />p$(117) = "h111hh222h.5..........KQ________!" <br />p$(118) = "hfffff000f.6....KO....__________!" <br />p$(119) = "fffeee000h.7..........___KQ_____!" <br />p$(120) = "hh3333000h.8.BL.......______CKK_!" <br />p$(121) = "hCCCffDDDh.9..........KO________!" <br />p$(122) = "hDDDccCCCh.A..........___MK_____!" <br />p$(123) = "hf333300Df.B.AL.......__________!" <br />p$(124) = "ffffff00hh.C....KN....______IOI_!" <br />p$(125) = "hhhhhf00fh.D.......TK.__________!" <br />p$(126) = "h33c3300ff.E..........KK____COG_!" <br />p$(127) = "hhheefDDhh.F....KN....__________!" <br /> <br />REM ******************* plansze wiersza roomy=8 <br /> <br />p$(128) = "hffa222hhh.0..........__________!" <br />p$(129) = "hbbb000hhh.1..........__________!" <br />p$(130) = "f222111hhh.2..........__________!" <br />p$(131) = "h000aaahhh.3..........______COI_!" <br />p$(132) = "h000ahhhhh.4..........__________!" <br />p$(133) = "h111hh222h.5..........__________!" <br />p$(134) = "ffffff000h.6..........______DQK_!" <br />p$(135) = "hhhhha000h.7..........______ESK_!" <br />p$(136) = "hh3333000h.8..........______CKK_!" <br />p$(137) = "h33333111h.9..........__________!" <br />p$(138) = "h33333222h.A.BG.......__________!" <br />p$(139) = "ffCCff00Dh.B..........______KaE_!" <br />p$(140) = "hfDDff00hh.C..........______JKM_!" <br />p$(141) = "hhhaac00fh.D..........__________!" <br />p$(142) = "f3333300hh.E..........______COL_!" <br />p$(143) = "hhheefDDhh.F..........__________!" <br /> <br /> <br />REM tablica serc <br />FOR xr = 0 TO 15 <br />FOR yr = 0 TO 8 <br />s = xr + yr * 16 <br />znak$ = MID$(p$(s), 23, 1) <br />IF znak$ <> "_" THEN serca(xr, yr) = 1 <br />NEXT yr: NEXT xr <br /> <br /> <br />END SUB <br /> <br />SUB rysowanie <br /> <br /> <br />FOR yw = 0 TO 9 <br />el$ = MID$(kod$, yw + 1, 1) <br />y16 = yw * 18 <br /> <br />REM tymczasowe sygnalizacje bledow: <br /> <br />IF el$ = "Q" OR el$ = "L" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "P" OR el$ = "W" OR el$ = "=" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "A" OR el$ = "B" OR el$ = "U" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "@" THEN COLOR 15: LINE (0, y16)-(200, y16) <br /> <br /> <br />REM elementy uzupelniajace <br /> <br />IF el$ = "C" THEN <br />PUT (128, y16), szaretlo4, PSET: PUT (192, y16), szaretlo4, PSET <br />PUT (256, y16), szaretlo4, PSET <br />PUT (0, y16), blok4, PSET: PUT (64, y16), blok2, PSET: <br />PUT (96, y16), bloks, PSET: PUT (112, y16), blokk, PSET <br />END IF <br /> <br />IF el$ = "D" THEN <br />PUT (0, y16), szaretlo4, PSET: PUT (64, y16), szaretlo4, PSET <br />PUT (128, y16), szaretlo4, PSET <br />PUT (192, y16), blokp, PSET: PUT (208, y16), blok4, PSET <br />PUT (272, y16), blok2, PSET: PUT (304, y16), bloks, PSET <br />END IF <br /> <br />REM czesc automatyczna, znaki a-h <br />ascii = ASC(el$) <br /> <br />IF ascii > 96 THEN <br />bity = ascii - 97 <br />PUT (0, y16), blok4, PSET: <br />pop1 = 0 <br />pop2 = 0 <br />pop3 = 0 <br /> <br />IF (bity AND 4) = 4 THEN PUT (64, y16), blok4, PSET: pop1 = 1 <br />IF (bity AND 4) = 0 THEN PUT (48, y16), blokk, PSET: PUT (64, y16), szaretlo4, PSET: pop1 = 0 <br />REM <br />IF (bity AND 2) = 2 THEN pop2 = 1: PUT (128, y16), blok4, PSET: IF pop1 = 0 THEN PUT (128, y16), blokp, PSET <br />IF (bity AND 2) = 0 THEN pop2 = 0: PUT (128, y16), szaretlo4, PSET: IF pop1 = 1 THEN PUT (112, y16), blokk, PSET <br />REM <br />IF (bity AND 1) = 1 THEN pop3 = 1: PUT (192, y16), blok4, PSET: IF pop2 = 0 THEN PUT (192, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN pop3 = 0: PUT (192, y16), szaretlo4, PSET: IF pop2 = 1 THEN PUT (176, y16), blokk, PSET <br />PUT (256, y16), blok4, PSET <br />IF pop3 = 0 THEN PUT (256, y16), blokp, PSET <br />END IF <br /> <br />REM znaki 0-3 <br /> <br />IF ascii < 58 THEN <br />bity = ascii - 48 <br />IF (bity AND 2) = 2 THEN PUT (0, y16), blokk, PSET <br />IF (bity AND 2) = 0 THEN PUT (0, y16), szaretlo, PSET <br />PUT (16, y16), szaretlo4, PSET <br />PUT (80, y16), szaretlo4, PSET <br />PUT (144, y16), szaretlo4, PSET <br />PUT (208, y16), szaretlo4, PSET <br />PUT (272, y16), szaretlo2, PSET <br /> <br />IF (bity AND 1) = 1 THEN PUT (304, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN PUT (304, y16), szaretlo, PSET <br />END IF <br /> <br /> <br />NEXT yw <br /> <br /> <br /> <br />REM rysowanie podestow <br /> <br />el$ = MID$(kod$, 14, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO dodatek <br /> <br />el2$ = MID$(kod$, 15, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "#" THEN PUT (0, yokna), ceg40, PSET <br />IF el$ = "W" THEN PUT (0, yokna), ceg4plus20plus4, PSET <br />IF el$ = "U" THEN PUT (0, yokna), ceg17plus17, PSET <br />IF el$ = "0" THEN PUT (0, yokna), ceg13plus13, PSET <br />IF el$ = "A" THEN FOR xx = 0 TO 4: PUT (16 + xx * 64, yokna), ceg2, PSET: NEXT xx <br />IF el$ = "B" THEN FOR xx = 0 TO 5: PUT (64 + xx * 32, yokna), ceg2, PSET: NEXT xx <br /> <br />REM dodatkowy element <br />dodatek: <br /> <br />el$ = MID$(kod$, 29, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO okna <br />el2$ = MID$(kod$, 30, 1) <br />xokna = (ASC(el2$) - 65) * 8 <br />el2$ = MID$(kod$, 31, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "A" THEN <br />PUT (xokna, yokna), blokp, PSET: <br />PUT (xokna, yokna + 18), blokp, PSET <br />PUT (xokna + 16, yokna), blok2, PSET: <br />PUT (xokna + 16, yokna + 18), blok2, PSET <br />PUT (xokna + 48, yokna), blokk, PSET: <br />PUT (xokna + 48, yokna + 18), blokk, PSET <br />END IF <br /> <br />IF el$ = "B" THEN COLOR 235: LINE (xokna + 5, yokna)-(xokna + 9, yokna + 35), , BF <br />IF el$ = "C" THEN PUT (xokna, yokna), ceg2, PSET: PUT (xokna + 32, yokna), ceg2, PSET: PUT (xokna + 64, yokna), ceg2, PSET <br />IF el$ = "D" THEN LINE (xokna, yokna)-(xokna + 22, yokna + 17), 235, BF: LINE (xokna + 42, yokna)-(xokna + 63, yokna + 17), 235, BF <br />IF el$ = "E" THEN LINE (xokna, yokna)-(xokna + 5, yokna + 35), 235, BF: LINE (xokna + 26, yokna + 36)-(xokna + 31, yokna + 72), 235, BF <br />REM niebieskie klocki <br />IF el$ = "F" THEN PUT (xokna, yokna), nieb, PSET <br />IF el$ = "G" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna), nieb, PSET <br />IF el$ = "H" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna + 36), nieb, PSET <br />IF el$ = "I" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna - 36), nieb, PSET <br />REM jednokierunkowe bramki <br />IF el$ = "J" THEN PSET (xokna - 2, yokna), 199: DRAW "R18 D35 L18 U35 F18 U1 G18" <br />IF el$ = "K" THEN PSET (xokna - 2, yokna), 198: DRAW "R18 D35 L18 U35 R18 G18 U1 F18" <br />REM zaslonka <br />IF el$ = "L" THEN LINE (xokna, yokna)-(xokna + 15, yokna + 35), 255, BF <br />okna: <br /> <br />REM rysowanie okien <br /> <br />el$ = MID$(kod$, 17, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO serce <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 18, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />IF roomy < 2 THEN PUT (xokna, yokna), window2, PSET <br />IF roomy > 1 AND roomy < 5 THEN PUT (xokna, yokna), window1, PSET <br />IF roomy > 4 THEN PUT (xokna, yokna), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20 <br />yokna = -20 <br />IF serca(roomx, roomy) = 0 THEN GOTO donica <br />el$ = MID$(kod$, 23, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO donica <br />xserca = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 24, 1) <br />yserca = (ASC(el$) - 65) * 9 <br />GET (xserca, yserca)-(xserca + 15, yserca + 7), tlo <br />COLOR 5 <br />LINE (xserca, yserca + 1)-(xserca, yserca + 3) <br />LINE (xserca + 1, yserca)-(xserca + 1, yserca + 4) <br />LINE (xserca + 2, yserca)-(xserca + 2, yserca + 5) <br />LINE (xserca + 3, yserca + 1)-(xserca + 3, yserca + 6) <br />LINE (xserca + 4, yserca)-(xserca + 4, yserca + 5) <br />LINE (xserca + 5, yserca)-(xserca + 5, yserca + 4) <br />LINE (xserca + 6, yserca + 1)-(xserca + 6, yserca + 3) <br /> <br />donica: <br />el$ = MID$(kod$, 26, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO wentyl <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 27, 1) <br />yokna = (ASC(el$) - 65) * 9 + 2 <br />PUT (xokna, yokna), palma, PSET <br /> <br />wentyl: <br />el$ = MID$(kod$, 20, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO koniecrysowania <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 21, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />PUT (xokna, yokna), wentylator, PSET <br /> <br /> <br />koniecrysowania: <br /> <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br /> <br />END SUB <br /> <br />SUB zabranie <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 6000: NEXT i <br /> <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 6000: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 12:49, 19 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB zabranie () <br /> <br />REM Gra "Serca" UWAGA wersaj gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <br />DECLARE SUB dreptanie () <br />DECLARE SUB animacja () <br />DECLARE SUB rysowanie () <br />DECLARE SUB palety () <br />DECLARE SUB plansze () <br />DECLARE SUB cegly () <br /> <br />REM plansza startowa: <br />DIM SHARED roomx AS INTEGER, roomy AS INTEGER <br />roomx = 7: roomy = 4 <br /> <br />DIM SHARED kolor$(0 TO 255) <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED p$(0 TO 143) <br />DIM SHARED kod$ <br />DIM SHARED serca(0 TO 15, 0 TO 8) AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br /> <br />REM pamiec tla pod wziatek <br /> <br />DIM SHARED tlo(0 TO 32) AS LONG <br /> <br />REM tlo <br /> <br />DIM SHARED szaretlo(0 TO 74) AS LONG <br />DIM SHARED szaretlo2(0 TO 148) AS LONG <br />DIM SHARED szaretlo4(0 TO 300) AS LONG <br />REM dane elementow planszy <br /> <br />DIM SHARED ceg2(0 TO 75) AS LONG <br />DIM SHARED ceg40(0 TO 730) AS LONG <br />DIM SHARED ceg17plus17(0 TO 730) AS LONG <br />DIM SHARED ceg13plus13(0 TO 760) AS LONG <br />DIM SHARED ceg4plus20plus4(0 TO 750) AS LONG <br />DIM SHARED palma(0 TO 64) AS LONG <br />DIM SHARED nieb(0 TO 145) AS LONG <br /> <br />DIM SHARED blokp(0 TO 74) AS LONG <br />DIM SHARED bloks(0 TO 74) AS LONG <br />DIM SHARED blokk(0 TO 74) AS LONG <br />DIM SHARED blok2(0 TO 158) AS LONG <br />DIM SHARED blok4(0 TO 296) AS LONG <br /> <br />REM ****************** DANE ANIMACJI <br /> <br />DIM SHARED znakp1(0 TO 128) AS LONG <br />DIM SHARED znakl1(0 TO 128) AS LONG <br />DIM SHARED znakp2(0 TO 128) AS LONG <br />DIM SHARED znakl2(0 TO 128) AS LONG <br />DIM SHARED znakp3(0 TO 128) AS LONG <br />DIM SHARED znakl3(0 TO 128) AS LONG <br />DIM SHARED vertd1(0 TO 128) AS LONG <br /> <br />REM matryce okien <br /> <br />DIM SHARED window1(0 TO 160) AS LONG <br />DIM SHARED window2(0 TO 160) AS LONG <br />DIM SHARED window3(0 TO 160) AS LONG <br /> <br />DIM SHARED wentylator(0 TO 64) AS LONG <br /> <br />REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />REM PRINT FRE(-2): END <br />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 150: y = 35: xs = 150: ys = 35: REM wspolrzedne poczatkowe gracza na ekranie <br />licz = -1: REM wartosc startowa zegara <br />REM roomx = 3: roomy = 3 przeniesione wyzej <br />kolwent = 30 + 30 * 256 + 30 * 65536: REM kolor lopat wentylatora <br /> <br />REM ***** SUB palety - ustawienie nowych wartosci barw <br />palety <br /> <br />REM ***** SUB cegly - zapelnienie pozostalych tablic <br />cegly <br /> <br />REM SUB plansze - wypelnienie tablicy wygladu plansz <br />plansze <br /> <br />REM SUB animacja - tablice animacji postaci <br />REM animacja <br /> <br /> <br />REM ************************* WYBOR POMIESZCZENIA <br /> <br />rysuj: <br /> <br />kod$ = p$(roomx + roomy * 16) <br /> <br />REM ******************** rysowanie pomieszczenia <br />t0 = PEEK(1132): REM pomiar czasu rysowania <br /> <br /> <br />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />COLOR 235 <br />REM LOCATE 23, 1: FOR i = 1 TO 40: PRINT CHR$(223); : NEXT i <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <br /> <br />LOCATE 24, 2: COLOR 3: PRINT "T:"; t0; "/"; t1; FRE(-2); <br />PRINT " ROOM:"; roomx; "/"; roomy; "--"; <br /> <br /> <br />REM **************** zapamietanie pola pod graczem <br />GET (x, y)-(x + 15, y + 31), pamiec <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />REM PUT (x, y), vertd1, PSET <br />liczsercaroom = 0: zrobione = 0 <br />GOTO postaw <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <br />dx = 0: dy = 0 <br />IF dzwiekbrania = 1 THEN dzwiekbrania = 0: zabranie <br /> <br />REM ******************* czas gry w sekundach <br /> <br />se$ = MID$(TIME$, 7, 2) <br />se = VAL(se$) <br />IF se <> ses THEN licz = licz + 1 <br />ses = se <br />LOCATE 25, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br />FOR delay = 1 TO 700: NEXT delay <br /> <br />REM faza wentylatora <br /> <br />komorka = PEEK(1132) / 1.5 <br />faz = INT(komorka) <br />IF faz / 3 = INT(faz / 3) THEN faza = 0 <br />IF (faz + 1) / 3 = INT((faz + 1) / 3) THEN faza = 1 <br />IF (faz + 2) / 3 = INT((faz + 2) / 3) THEN faza = 2 <br />FOR i = 0 TO 2: i16 = i * 16 <br />IF faza = 0 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, 0 <br />IF faza = 1 THEN PALETTE 11 + i16, 0: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, kolwent <br />IF faza = 2 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, 0: PALETTE 13 + i16, kolwent <br />NEXT i <br /> <br />REM ************************ sprawdzenie klawiszy <br /> <br />alt = 0: lshift = 0: pshift = 0: skos = 0 <br /> <br />k$ = INKEY$ <br />IF k$ = "f" THEN roomx = roomx - 1: GOTO rysuj <br />IF k$ = "h" THEN roomx = roomx + 1: GOTO rysuj <br />IF k$ = "t" THEN roomy = roomy - 1: GOTO rysuj <br />IF k$ = "b" THEN roomy = roomy + 1: GOTO rysuj <br /> <br />IF k$ = CHR$(27) THEN END <br /> <br />REM klawisz alt - wznoszenie sie <br />IF (PEEK(1047) AND 8) = 8 THEN alt = 1 <br />IF (PEEK(1047) AND 2) = 2 THEN lshift = 1 <br />IF (PEEK(1047) AND 1) = 1 THEN pshift = 1 <br /> <br />REM bezruch = grawitacja <br />IF lshift = 0 AND pshift = 0 AND alt = 0 THEN dy = 2: vert = 1: obrot = 0: przebiervert = 0: GOTO czy <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br /> <br />IF lshift = 1 THEN dx = -4: dy = 2: obrot = -1: vert = 0 <br />IF pshift = 1 THEN dx = 4: dy = 2: obrot = 1: vert = 0 <br />IF alt = 1 THEN dy = -4: vert = 1 <br />IF dx <> 0 AND dy <> 0 THEN skos = 1 <br />czy: <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br /> <br />IF x + dx > 300 THEN x = 5: xs = 5: roomx = roomx + 1: GOTO rysuj <br />IF x + dx < 3 THEN x = 300: xs = 300: roomx = roomx - 1: GOTO rysuj <br />IF y + dy > 144 THEN y = 5: ys = 5: roomy = roomy + 1: GOTO rysuj <br />IF y + dy < 4 THEN y = 145: ys = 145: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br />REM sprawdzenie przeszkody. Przeszkoda sa kolory > 200 <br /> <br />xmozliwy = 0: xniemozliwy = 0 <br />ymozliwy = 0: yniemozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa obok <br /> <br />IF dx > 0 THEN <br />FOR i = 0 TO 31: punkt = POINT(x + 19, y + i) <br />IF (punkt > 200 AND punkt <> 255) OR punkt = 198 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br /> <br />IF dx < 0 THEN <br />FOR i = 0 TO 31: punkt = POINT(x - 3, y + i) <br />IF (punkt > 200 AND punkt <> 255) OR punkt = 199 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF xniemozliwy = 0 THEN xmozliwy = 1 <br />IF xniemozliwy = 1 THEN xmozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa gora dol <br /> <br />IF dy > 0 THEN <br />FOR i = 0 TO 15: <br />IF POINT(x + i, y + 32) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y + 33) > 200 THEN yniemozliwy = 1: EXIT FOR <br /> <br />NEXT i <br />END IF <br /> <br />IF dy < 0 THEN <br />FOR i = 0 TO 15 <br />IF POINT(x + i, y - 4) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y - 5) > 200 THEN yniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF yniemozliwy = 0 THEN ymozliwy = 1 <br />IF yniemozliwy = 1 THEN ymozliwy = 0 <br /> <br />REM ruch gdy oba mozliwe x oraz y <br />IF ymozliwy = 1 AND xmozliwy = 1 THEN IF dx <> 0 OR dy <> 0 THEN GOTO ruch <br /> <br /> <br />REM szczegolne przypadki gdy tylko x albo y mozliwy <br />IF ymozliwy = 0 AND xmozliwy = 1 THEN dy = 0: GOTO czy <br />IF ymozliwy = 1 AND xmozliwy = 0 THEN dx = 0: GOTO czy <br /> <br /> <br />REM ruch niemozliwy powrot petli glownej bez zmian pozostaja x y <br /> <br /> <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** RUCH <br /> <br />ruch: <br /> <br />x = x + dx: y = y + dy <br />IF dy = 0 AND przebieranie = 0 AND alt = 0 THEN dreptanie: REM dzwiek chodzenia <br /> <br />REM ******************** czy jest wziatek <br />deltawx = ABS(x + 4 - xserca) <br />deltawy = ABS(y + 16 - yserca) <br />IF deltawx < 10 AND deltawy < 22 THEN GOSUB wziatek <br /> <br />REM ************************************** operacja odswiezania tla <br />postaw: <br />REM punkt 1 zapamietanie nowego pola dzialania (brudnego) <br />REM w oparciu o nowe x,y <br /> <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />REM************ 2 odnowienie pola dzialania uwzgledniajac dawne tlo <br /> <br />deltax = x - xs: deltay = y - ys <br />inversx = -1 * deltax: inversy = -1 * deltay <br />inver4 = INT(inversx / 4) <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = (yt + inversy) * 6 <br />FOR xt = 0 TO 3 <br />index1 = 1 + (yt6 + 24) + (xt + inver4) + 1 <br />index2 = 1 + yt4 + xt <br />poledzialania(index1) = pamiec(index2) <br />NEXT xt: NEXT yt <br /> <br />REM zmazanie serca z pola dzialania <br /> <br />IF liczsercaroom = 1 AND zrobione = 0 THEN <br />zrobione = 1 <br />PUT (x - 4, y - 4), poledzialania, PSET <br />PUT (xserca, yserca), tlo, PSET <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />END IF <br /> <br />REM nowa mala pamiec <br /> <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = yt * 6 <br />FOR xt = 0 TO 3: <br />index1 = 1 + (yt6 + 24) + (xt + 1): <br />index2 = 1 + yt4 + xt: <br />pamiec(index2) = poledzialania(index1): NEXT xt: NEXT yt <br /> <br /> <br />REM ************* rysowanie nowej postaci WEDLUG FAZY RUCHU <br /> <br />REM aby nie rysowac dwoch postaci w przypadku skosu <br />IF skos = 1 THEN GOTO bezskosu: <br /> <br />REM ************************** ruch w dol lub gore <br /> <br />IF vert = 1 THEN wkleic = 7: GOTO wklej <br />bezskosu: <br />REM ************************** ruch w lewo <br /> <br />IF obrot = -1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 1: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 2: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 3: GOTO wklej <br />END IF <br /> <br />REM ****************** ruch w prawo <br /> <br />IF obrot = 1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br /> <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 4: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 5: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 6: GOTO wklej <br />END IF <br /> <br />xs = x: ys = y <br /> <br />GOTO petla <br /> <br />wklej: <br /> <br />IF wkleic = 1 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 2 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 3 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 4 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 5 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 6 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 7 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR vertd1(index2)): NEXT xt: NEXT yt <br /> <br />REM wklejenie wyniku operacji na tablicy: <br />PUT (x - 4, y - 4), poledzialania, PSET <br /> <br />xs = x: ys = y <br />GOTO petla <br /> <br />REM GOSUB-RETURN****************************** obsluga wziatku <br /> <br />wziatek: <br />IF serca(roomx, roomy) = 0 THEN GOTO niemawziatku <br />IF liczsercaroom = 1 THEN GOTO niemawziatku <br />serca(roomx, roomy) = 0 <br />liczserca = liczserca + 1 <br />PUT (xserca, yserca), tlo, PSET <br /> <br />liczsercaroom = 1 <br />dzwiekbrania = 1 <br /> <br />LOCATE 1, 1: COLOR 6: PRINT liczserca; <br />niemawziatku: <br />RETURN <br /> <br />SUB animacja <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br />REM ten SUB jest do skasowania <br /> <br />END SUB <br /> <br />SUB cegly <br /> <br />BLOAD "bitmap1.scr" <br /> <br />REM INPUT a$ <br />REM pobranie z ekranu tablic elementow <br />REM uwaga! wysokosc elementu to 9 lub 18 px <br /> <br />GET (0, 0)-(31, 8), ceg2 <br />GET (0, 0)-(319, 8), ceg40 <br />GET (0, 9)-(319, 17), ceg17plus17 <br />GET (0, 18)-(319, 26), ceg13plus13 <br />GET (0, 27)-(319, 35), ceg4plus20plus4 <br />GET (0, 36)-(15, 53), szaretlo <br />GET (0, 36)-(31, 53), szaretlo2 <br />GET (0, 36)-(63, 53), szaretlo4: REM 36+18=46+8=54 <br /> <br />GET (16, 64)-(31, 79), palma <br />GET (32, 64)-(47, 81), blokp <br />GET (48, 64)-(63, 81), bloks <br />GET (64, 64)-(79, 81), blokk <br />GET (0, 156)-(31, 173), blok2 <br />GET (0, 156)-(63, 173), blok4 <br />GET (80, 64)-(111, 81), nieb <br /> <br /> <br />GET (0, 88)-(15, 119), znakl1 <br />GET (16, 88)-(31, 119), znakp1 <br />GET (32, 88)-(47, 119), znakl2 <br />GET (48, 88)-(63, 119), znakp2 <br />GET (64, 88)-(79, 119), znakl3 <br />GET (80, 88)-(95, 119), znakp3 <br />GET (96, 88)-(111, 119), vertd1 <br /> <br />GET (0, 120)-(31, 139), window1 <br />GET (32, 120)-(63, 139), window2 <br />GET (64, 120)-(95, 139), window3 <br />GET (0, 140)-(15, 155), wentylator <br />CLS <br />END SUB <br /> <br />SUB dreptanie <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />REM ewentualnie: <br />REM OUT 66, 30: OUT 66, 0 <br />REM OUT 66, 164: OUT 66, 2 <br />REM OUT 66, 130: OUT 66, 1 <br />REM OUT 66, 74: OUT 66, 0 <br />REM OUT 66, 220: OUT 66, 1 <br /> <br />FOR i = 1 TO 10 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 84: OUT 66, 2 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 94: OUT 66, 2 <br />OUT 66, 10: OUT 66, 0 <br />OUT 66, 40: OUT 66, 2 <br />OUT 66, 84: OUT 66, 0 <br />OUT 66, 10: OUT 66, 2 <br /> <br /> <br />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00" <br />PALETTE i, 31 + 31 * 256 + 31 * 65536: NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 05 05 06": REM tlo plyta <br />kolor$(2) = "02 02 03 02": REM tlo fuga <br />kolor$(3) = "03 07 06 06": REM tlo krawedz <br />kolor$(4) = "04 00 22 00": REM liscie <br />kolor$(5) = "05 3F 08 00": REM serce <br />kolor$(6) = "06 30 30 30": REM framuga okna <br />kolor$(7) = "07 28 0A 00": REM doniczka drzewa <br />kolor$(8) = "08 00 21 39": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 14 14 14": REM framuga zewnetrzna <br />kolor$(11) = "0B 00 00 00": REM wentylator faza 1 <br />kolor$(12) = "0C 00 00 00": REM wentylator faza 2 <br />kolor$(13) = "0D 00 00 00": REM wentylator faza 3 <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />kolor$(16) = "10 18 02 02": REM sweter + zero <br />kolor$(17) = "11 18 02 02": REM <br />kolor$(18) = "12 18 02 02": REM <br />kolor$(19) = "13 18 02 02": REM <br />kolor$(20) = "14 22 12 00": REM sweter + liscie <br />kolor$(21) = "15 3F 00 00": REM <br />kolor$(22) = "16 2F 09 09": REM sweter + framuga okna <br />kolor$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />kolor$(24) = "18 25 16 24": REM sweter + niebo <br />kolor$(25) = "19 3F 3F 3F": REM sweter + slonce <br />kolor$(26) = "1A 16 0F 0F": REM sweter + framuga zew <br />kolor$(27) = "1B 3F 3F 3F": REM <br />kolor$(28) = "1C 3F 3F 3F": REM <br />kolor$(29) = "1D 3F 3F 3F": REM <br />kolor$(30) = "1E 3F 3F 3F": REM <br />REM kolor 31 1F zastrzezony dla gracza <br />kolor$(32) = "20 0A 13 29": REM spodnie + zero <br />kolor$(33) = "21 0A 13 29": REM <br />kolor$(34) = "22 0A 13 29": REM <br />kolor$(35) = "23 0A 13 29": REM <br />kolor$(36) = "24 05 1D 24": REM spodnie+ liscie <br />kolor$(37) = "25 3F 3F 3F": REM <br />kolor$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />kolor$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />kolor$(40) = "28 00 1A 3F": REM spodnie + niebo <br />kolor$(41) = "29 3F 3F 3F": REM spodnie +slonce <br />kolor$(42) = "2A 10 14 20": REM spodnie + framuga zew <br />kolor$(43) = "2B 3F 3F 3F": REM <br />kolor$(44) = "2C 3F 3F 3F": REM <br />kolor$(45) = "2D 3F 3F 3F": REM <br />kolor$(46) = "2E 3F 3F 3F": REM <br />REM rejestr 47 2F zastrzezony dla gracza <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br />REM rejestry nieprzezroczyste <br /> <br />kolor$(31) = "1F 2F 09 09": REM sweter <br />kolor$(47) = "2F 0D 1A 37": REM spodnie <br />kolor$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 30 20": REM skora1 <br />kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 32 22 02": REM nos <br />kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 22 02 02": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br />REM FF- zarezerwowany dla przeslony <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 24 24": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM kolor 240 - przeslona <br />kolor$(240) = "F0 38 38 38" <br />REM cegly male niebieskie <br /> <br />kolor$(249) = "F9 22 27 30": REM krawedz <br />kolor$(250) = "FA 09 0E 14": REM fuga <br />kolor$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 28 28 28": REM przeslona <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br /> <br /> <br /> <br />END SUB <br /> <br />SUB plansze <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** roomy*16+roomx <br /> <br />REM kody plansz +++nr.po.ok.we.se_kw_dod <br />REM ************ plansze wiersza roomy=0 <br /> <br />p$(0) = "h22233322d.0.UI.YO....GN________!" <br />p$(1) = "h000fff11h.1....MD....______CKK_!" <br />p$(2) = "h11133333f.2.UI.HE....___EQ_____!" <br />p$(3) = "hh2223cchh.3..........SJ________!" <br />p$(4) = "h300033fff.4....ZK....__________!" <br />p$(5) = "h2001c333f.5....LG....______AQG_!" <br />p$(6) = "h111g3222f.6....LD....___EQ_F[Q_!" <br />p$(7) = "hh222d111g.7.BE....DF.aH_WI_____!" <br />p$(8) = "hhDDDfCCCg.8..........__________!" <br />p$(9) = "hhhhhf111c.9..........______CKK_!" <br />p$(10) = "hhhhhf222g.A..........GG_EQ_____!" <br />p$(11) = "hh333f111d.B....HG....__________!" <br />p$(12) = "hhffff333g.C..........__________!" <br />p$(13) = "h22233333c.D.UN.aK.DF.MK____AYC_!" <br />p$(14) = "h111ff22hh.E..........___aG_BLM_!" <br />p$(15) = "h3333311cc.F....ZK....aH____AIG_!" <br /> <br /> <br />REM ************ plansze wiersza roomy=1 <br /> <br />p$(16) = "d333c2223h.0.......FN.__________!" <br />p$(17) = "h33330003h.1.WH.YO....RN____CKK_!" <br />p$(18) = "ff333111ff.2.WJ.ML....__________!" <br />p$(19) = "hc222c333c.3..........___QQ_____!" <br />p$(20) = "f31113333h.4.UM.aI.aO.__________!" <br />p$(21) = "f333aa333h.5..........RN_GQ_____!" <br />p$(22) = "ffff333fff.6....DJ....aM____G[M_!" <br />p$(23) = "gg333a33hh.7..........__________!" <br />p$(24) = "gg333333ff.8.AK....IF.__________!" <br />p$(25) = "cccc22cccc.9..........SJ________!" <br />p$(26) = "gg331133hh.A....LF....aO________!" <br />p$(27) = "ddaa22cccc.B..........__________!" <br />p$(28) = "g33300333h.C.AM....aO.__________!" <br />p$(29) = "c33311333c.D.0M.......ZK____AQO_!" <br />p$(30) = "h3322233dd.E.BE....aF.__________!" <br />p$(31) = "c33111333h.F.AM.bD....___QQ_COH_!" <br /> <br /> <br />REM ************* plansze wiersza roomy=2 <br /> <br />p$(32) = "h333ff333c.0..........KE_WQ_____!" <br />p$(33) = "h333c2222c.1....MD....UP____CKK_!" <br />p$(34) = "faaaa0000h.2....WO.VI.__________!" <br />p$(35) = "ccccc1111f.3....MM....___EQ_____!" <br />p$(36) = "h33333c333.4.WO.NP....SM________!" <br />p$(37) = "haa33222af.5.UJ....GL.______HIE_!" <br />p$(38) = "f333c111ah.6....aM....UP________!" <br />p$(39) = "hh333d333g.7....YP....___KQ_____!" <br />p$(40) = "ff3333333g.8.#I.......KK____CGN_!" <br />p$(41) = "c33g33d33c.9..........__________!" <br />p$(42) = "hh3333333g.A.WM.LI....__________!" <br />p$(43) = "cc333322cc.B.UJ.......__________!" <br />p$(44) = "hhaacc00hh.C.BE....JG.ZM____AQM_!" <br />p$(45) = "c333cc11gg.D....aN....______AQM_!" <br />p$(46) = "dd33cc22hh.E..........______AQE_!" <br />p$(47) = "hh3331113c.F.UK....VI.___EQ_____!" <br /> <br />REM ************ plansze wiersza roomy=3 <br /> <br />p$(48) = "c333c2222f.0....ZM.ZD.SF____CKK_!" <br />p$(49) = "ccccc1111h.1..........__________!" <br />p$(50) = "ha3222333c.2.#F.LO....UO_SQ_____!" <br />p$(51) = "ff3111333f.3.WM.YI.VI.SJ_GQ_____!" <br />p$(52) = "h3333c333f.4..........NG____CKK_!" <br />p$(53) = "ff333c222f.5....ZO....SG________!" <br />p$(54) = "hhaaff000f.6.BE.......___KQ_____!" <br />p$(55) = "gggg33111f.7....LO.VJ.______IYM_!" <br />p$(56) = "gg3322ffff.8..........GG________!" <br />p$(57) = "cccc00hfff.9..........__________!" <br />p$(58) = "gg33DDffff.A..........___KK_CCH_!" <br />p$(59) = "cccccfffff.B.......TL.__________!" <br />p$(60) = "hh3333333f.C....KK....DP________!" <br />p$(61) = "g333333hhh.D.UJ....TF.______CKK_!" <br />p$(62) = "hh3222333f.E..........___GQ_____!" <br />p$(63) = "c331113hhh.F....ZK....__________!" <br /> <br />REM ****************** plansze wiersza roomy=4 <br /> <br />p$(64) = "f22322322h.0....DD....SP_YQ_CKK_!" <br />p$(65) = "h00f00f00h.1..........__________!" <br />p$(66) = "c11311311f.2....aP.KP.__________!" <br />p$(67) = "ff3332223h.3.UJ.ML....___YQ_____!" <br />p$(68) = "f3333111hh.4.WJ.YL....__________!" <br />p$(69) = "ffaafaaaff.5.......VI.__________!" <br />p$(70) = "ffa333c33h.6....OG....SQ_YQ_____!" <br />p$(71) = "ff2233c33d.7....aP....______LVO_!": REM startowa <br />p$(72) = "ff113cc33d.8..........aO____JVO_!" <br />p$(73) = "ff33cc33ff.9..........______CKK_!" <br />p$(74) = "ff3333333d.A.WM.LI.ZP.PP________!" <br />p$(75) = "ff2233333f.B.UM.......___EQ_____!" <br />p$(76) = "ff11333hhh.C.......KH.__________!" <br />p$(77) = "h333333333.D.BE.SK....bF____CKK_!" <br />p$(78) = "ff22233hhh.E.UJ.......______FEE_!" <br />p$(79) = "h311133fff.F.WJ.......MM________!" <br /> <br />REM ******************* plansze wiersza roomy=5 <br /> <br />p$(80) = "haf222faff.0.......VI.___KK_____!" <br />p$(81) = "hhf111222h.1..........SP____CKK_!" <br />p$(82) = "fa333c000h.2....GO....__________!" <br />p$(83) = "h222fa111f.3.BE.......___YQ_____!" <br />p$(84) = "h111c2223h.4.0Q....EE.MM________!" <br />p$(85) = "ffffa111ff.5..........______GEE_!" <br />p$(86) = "h333c333af.6....DD....ZF_MQ_____!" <br />p$(87) = "dd333f333g.7.......VI.___aI_____!" <br />p$(88) = "dd3333333g.8.UN.KP....______COI_!" <br />p$(89) = "f32233f33f.9.......ED.KK________!" <br />p$(90) = "ddDDCC333h.A....ZK....KO________!" <br />p$(91) = "f33300f33f.B..........______COH_!" <br />p$(92) = "h33300333c.C....NN....__________!" <br />p$(93) = "333311333h.D.0M....TG.GG________!" <br />p$(94) = "h33222333c.E.AM.......__________!" <br />p$(95) = "ff3111333h.F.WM.FF....___YQ_____!" <br /> <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />p$(96) = "fffa222hhh.0....EJ....___YM_____!" <br />p$(97) = "hhhf000bbb.1....SJ....ML____CKK_!" <br />p$(98) = "h222111hhh.2..........___KM_____!" <br />p$(99) = "f111aaafff.3....PH....ZJ________!" <br />p$(100) = "h222ahhhhh.4..........EE________!" <br />p$(101) = "f11133222h.5.0I.......___GQ_____!" <br />p$(102) = "ffffff000h.6....LO....__________!" <br />p$(103) = "gg333d111f.7....MO....aP________!" <br />p$(104) = "gg333hCCCh.8.......ZN.KH____HEE_!" <br />p$(105) = "ffffffDDDh.9..........__________!" <br />p$(106) = "hh333fCCCh.A.BE.......___KI_____!" <br />p$(107) = "ff3333111h.B.0I....KK.aP____CKK_!" <br />p$(108) = "cc22dd22ff.C..........__________!" <br />p$(109) = "hhDDffDDhh.D.......TJ.LN________!" <br />p$(110) = "ccc2222hhh.E..........__________!" <br />p$(111) = "hhhDDDDhhh.F..........TK_KM_____!" <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />p$(112) = "hffa222hhh.0..........______CKK_!" <br />p$(113) = "bbbb000hhh.1....KK....__________!" <br />p$(114) = "h222111fff.2.BJ.......ZE____AIK_!" <br />p$(115) = "f000aaahhh.3..........___KM_____!" <br />p$(116) = "h000ahhhhh.4.......KF.__________!" <br />p$(117) = "h111hh222h.5..........KQ________!" <br />p$(118) = "hfffff000f.6....KO....__________!" <br />p$(119) = "fffeee000h.7..........___KQ_____!" <br />p$(120) = "hh3333000h.8.BL.......______CKK_!" <br />p$(121) = "hCCCffDDDh.9..........KO________!" <br />p$(122) = "hDDDccCCCh.A..........___MK_____!" <br />p$(123) = "hf333300Df.B.AL.......__________!" <br />p$(124) = "ffffff00hh.C....KN....______IOI_!" <br />p$(125) = "hhhhhf00fh.D.......TK.__________!" <br />p$(126) = "h33c3300ff.E..........KK____COG_!" <br />p$(127) = "hhheefDDhh.F....KN....__________!" <br /> <br />REM ******************* plansze wiersza roomy=8 <br /> <br />p$(128) = "hffa222hhh.0..........__________!" <br />p$(129) = "hbbb000hhh.1..........__________!" <br />p$(130) = "f222111hhh.2..........__________!" <br />p$(131) = "h000aaahhh.3..........______COI_!" <br />p$(132) = "h000ahhhhh.4..........__________!" <br />p$(133) = "h111hh222h.5..........__________!" <br />p$(134) = "ffffff000h.6..........______DQK_!" <br />p$(135) = "hhhhha000h.7..........______ESK_!" <br />p$(136) = "hh3333000h.8..........______CKK_!" <br />p$(137) = "h33333111h.9..........__________!" <br />p$(138) = "h33333222h.A.BG.......__________!" <br />p$(139) = "ffCCff00Dh.B..........______KaE_!" <br />p$(140) = "hfDDff00hh.C..........______JKM_!" <br />p$(141) = "hhhhhf00fh.D..........__________!" <br />p$(142) = "f3333300hh.E..........______COL_!" <br />p$(143) = "hhheefDDhh.F..........__________!" <br /> <br /> <br />REM tablica serc <br />FOR xr = 0 TO 15 <br />FOR yr = 0 TO 8 <br />s = xr + yr * 16 <br />znak$ = MID$(p$(s), 23, 1) <br />IF znak$ <> "_" THEN serca(xr, yr) = 1 <br />NEXT yr: NEXT xr <br /> <br /> <br />END SUB <br /> <br />SUB rysowanie <br /> <br /> <br />FOR yw = 0 TO 9 <br />el$ = MID$(kod$, yw + 1, 1) <br />y16 = yw * 18 <br /> <br />REM tymczasowe sygnalizacje bledow: <br /> <br />IF el$ = "Q" OR el$ = "L" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "P" OR el$ = "W" OR el$ = "=" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "A" OR el$ = "B" OR el$ = "U" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "@" THEN COLOR 15: LINE (0, y16)-(200, y16) <br /> <br /> <br />REM elementy uzupelniajace <br /> <br />IF el$ = "C" THEN <br />PUT (128, y16), szaretlo4, PSET: PUT (192, y16), szaretlo4, PSET <br />PUT (256, y16), szaretlo4, PSET <br />PUT (0, y16), blok4, PSET: PUT (64, y16), blok2, PSET: <br />PUT (96, y16), bloks, PSET: PUT (112, y16), blokk, PSET <br />END IF <br /> <br />IF el$ = "D" THEN <br />PUT (0, y16), szaretlo4, PSET: PUT (64, y16), szaretlo4, PSET <br />PUT (128, y16), szaretlo4, PSET <br />PUT (192, y16), blokp, PSET: PUT (208, y16), blok4, PSET <br />PUT (272, y16), blok2, PSET: PUT (304, y16), bloks, PSET <br />END IF <br /> <br />REM czesc automatyczna, znaki a-h <br />ascii = ASC(el$) <br /> <br />IF ascii > 96 THEN <br />bity = ascii - 97 <br />PUT (0, y16), blok4, PSET: <br />pop1 = 0 <br />pop2 = 0 <br />pop3 = 0 <br /> <br />IF (bity AND 4) = 4 THEN PUT (64, y16), blok4, PSET: pop1 = 1 <br />IF (bity AND 4) = 0 THEN PUT (48, y16), blokk, PSET: PUT (64, y16), szaretlo4, PSET: pop1 = 0 <br />REM <br />IF (bity AND 2) = 2 THEN pop2 = 1: PUT (128, y16), blok4, PSET: IF pop1 = 0 THEN PUT (128, y16), blokp, PSET <br />IF (bity AND 2) = 0 THEN pop2 = 0: PUT (128, y16), szaretlo4, PSET: IF pop1 = 1 THEN PUT (112, y16), blokk, PSET <br />REM <br />IF (bity AND 1) = 1 THEN pop3 = 1: PUT (192, y16), blok4, PSET: IF pop2 = 0 THEN PUT (192, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN pop3 = 0: PUT (192, y16), szaretlo4, PSET: IF pop2 = 1 THEN PUT (176, y16), blokk, PSET <br />PUT (256, y16), blok4, PSET <br />IF pop3 = 0 THEN PUT (256, y16), blokp, PSET <br />END IF <br /> <br />REM znaki 0-3 <br /> <br />IF ascii < 58 THEN <br />bity = ascii - 48 <br />IF (bity AND 2) = 2 THEN PUT (0, y16), blokk, PSET <br />IF (bity AND 2) = 0 THEN PUT (0, y16), szaretlo, PSET <br />PUT (16, y16), szaretlo4, PSET <br />PUT (80, y16), szaretlo4, PSET <br />PUT (144, y16), szaretlo4, PSET <br />PUT (208, y16), szaretlo4, PSET <br />PUT (272, y16), szaretlo2, PSET <br /> <br />IF (bity AND 1) = 1 THEN PUT (304, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN PUT (304, y16), szaretlo, PSET <br />END IF <br /> <br /> <br />NEXT yw <br /> <br /> <br /> <br />REM rysowanie podestow <br /> <br />el$ = MID$(kod$, 14, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO dodatek <br /> <br />el2$ = MID$(kod$, 15, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "#" THEN PUT (0, yokna), ceg40, PSET <br />IF el$ = "W" THEN PUT (0, yokna), ceg4plus20plus4, PSET <br />IF el$ = "U" THEN PUT (0, yokna), ceg17plus17, PSET <br />IF el$ = "0" THEN PUT (0, yokna), ceg13plus13, PSET <br />IF el$ = "A" THEN FOR xx = 0 TO 4: PUT (16 + xx * 64, yokna), ceg2, PSET: NEXT xx <br />IF el$ = "B" THEN FOR xx = 0 TO 5: PUT (64 + xx * 32, yokna), ceg2, PSET: NEXT xx <br /> <br />REM dodatkowy element <br />dodatek: <br /> <br />el$ = MID$(kod$, 29, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO okna <br />el2$ = MID$(kod$, 30, 1) <br />xokna = (ASC(el2$) - 65) * 8 <br />el2$ = MID$(kod$, 31, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "A" THEN <br />PUT (xokna, yokna), blokp, PSET: <br />PUT (xokna, yokna + 18), blokp, PSET <br />PUT (xokna + 16, yokna), blok2, PSET: <br />PUT (xokna + 16, yokna + 18), blok2, PSET <br />PUT (xokna + 48, yokna), blokk, PSET: <br />PUT (xokna + 48, yokna + 18), blokk, PSET <br />END IF <br /> <br />IF el$ = "B" THEN COLOR 235: LINE (xokna + 5, yokna)-(xokna + 9, yokna + 35), , BF <br />IF el$ = "C" THEN PUT (xokna, yokna), ceg2, PSET: PUT (xokna + 32, yokna), ceg2, PSET: PUT (xokna + 64, yokna), ceg2, PSET <br />IF el$ = "D" THEN LINE (xokna, yokna)-(xokna + 22, yokna + 17), 235, BF: LINE (xokna + 42, yokna)-(xokna + 63, yokna + 17), 235, BF <br />IF el$ = "E" THEN LINE (xokna, yokna)-(xokna + 5, yokna + 35), 235, BF: LINE (xokna + 26, yokna + 36)-(xokna + 31, yokna + 72), 235, BF <br />REM niebieskie klocki <br />IF el$ = "F" THEN PUT (xokna, yokna), nieb, PSET <br />IF el$ = "G" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna), nieb, PSET <br />IF el$ = "H" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna + 36), nieb, PSET <br />IF el$ = "I" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna - 36), nieb, PSET <br />REM jednokierunkowe bramki <br />IF el$ = "J" THEN PSET (xokna - 2, yokna), 199: DRAW "R18 D35 L18 U35 F18 U1 G18" <br />IF el$ = "K" THEN PSET (xokna - 2, yokna), 198: DRAW "R18 D35 L18 U35 R18 G18 U1 F18" <br />REM zaslonka <br />IF el$ = "L" THEN LINE (xokna, yokna)-(xokna + 15, yokna + 35), 255, BF <br />okna: <br /> <br />REM rysowanie okien <br /> <br />el$ = MID$(kod$, 17, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO serce <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 18, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />IF roomy < 2 THEN PUT (xokna, yokna), window2, PSET <br />IF roomy > 1 AND roomy < 5 THEN PUT (xokna, yokna), window1, PSET <br />IF roomy > 4 THEN PUT (xokna, yokna), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20 <br />yokna = -20 <br />IF serca(roomx, roomy) = 0 THEN GOTO donica <br />el$ = MID$(kod$, 23, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO donica <br />xserca = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 24, 1) <br />yserca = (ASC(el$) - 65) * 9 <br />GET (xserca, yserca)-(xserca + 15, yserca + 7), tlo <br />COLOR 5 <br />LINE (xserca, yserca + 1)-(xserca, yserca + 3) <br />LINE (xserca + 1, yserca)-(xserca + 1, yserca + 4) <br />LINE (xserca + 2, yserca)-(xserca + 2, yserca + 5) <br />LINE (xserca + 3, yserca + 1)-(xserca + 3, yserca + 6) <br />LINE (xserca + 4, yserca)-(xserca + 4, yserca + 5) <br />LINE (xserca + 5, yserca)-(xserca + 5, yserca + 4) <br />LINE (xserca + 6, yserca + 1)-(xserca + 6, yserca + 3) <br /> <br />donica: <br />el$ = MID$(kod$, 26, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO wentyl <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 27, 1) <br />yokna = (ASC(el$) - 65) * 9 + 2 <br />PUT (xokna, yokna), palma, PSET <br /> <br />wentyl: <br />el$ = MID$(kod$, 20, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO koniecrysowania <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 21, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />PUT (xokna, yokna), wentylator, PSET <br /> <br /> <br />koniecrysowania: <br /> <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br /> <br />END SUB <br /> <br />SUB zabranie <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 6000: NEXT i <br /> <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 6000: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 11:49, 19 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB zabranie () <br /> <br />REM Gra "Serca" UWAGA wersaj gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <br />DECLARE SUB dreptanie () <br />DECLARE SUB animacja () <br />DECLARE SUB rysowanie () <br />DECLARE SUB palety () <br />DECLARE SUB plansze () <br />DECLARE SUB cegly () <br /> <br />REM plansza startowa: <br />DIM SHARED roomx AS INTEGER, roomy AS INTEGER <br />roomx = 7: roomy = 4 <br /> <br />DIM SHARED kolor$(0 TO 255) <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED p$(0 TO 143) <br />DIM SHARED kod$ <br />DIM SHARED serca(0 TO 15, 0 TO 8) AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br /> <br />REM pamiec tla pod wziatek <br /> <br />DIM SHARED tlo(0 TO 32) AS LONG <br /> <br />REM tlo <br /> <br />DIM SHARED szaretlo(0 TO 74) AS LONG <br />DIM SHARED szaretlo2(0 TO 148) AS LONG <br />DIM SHARED szaretlo4(0 TO 300) AS LONG <br />REM dane elementow planszy <br /> <br />DIM SHARED ceg2(0 TO 75) AS LONG <br />DIM SHARED ceg40(0 TO 730) AS LONG <br />DIM SHARED ceg17plus17(0 TO 730) AS LONG <br />DIM SHARED ceg13plus13(0 TO 760) AS LONG <br />DIM SHARED ceg4plus20plus4(0 TO 750) AS LONG <br />DIM SHARED palma(0 TO 64) AS LONG <br />DIM SHARED nieb(0 TO 145) AS LONG <br /> <br />DIM SHARED blokp(0 TO 74) AS LONG <br />DIM SHARED bloks(0 TO 74) AS LONG <br />DIM SHARED blokk(0 TO 74) AS LONG <br />DIM SHARED blok2(0 TO 158) AS LONG <br />DIM SHARED blok4(0 TO 296) AS LONG <br /> <br />REM ****************** DANE ANIMACJI <br /> <br />DIM SHARED znakp1(0 TO 128) AS LONG <br />DIM SHARED znakl1(0 TO 128) AS LONG <br />DIM SHARED znakp2(0 TO 128) AS LONG <br />DIM SHARED znakl2(0 TO 128) AS LONG <br />DIM SHARED znakp3(0 TO 128) AS LONG <br />DIM SHARED znakl3(0 TO 128) AS LONG <br />DIM SHARED vertd1(0 TO 128) AS LONG <br /> <br />REM matryce okien <br /> <br />DIM SHARED window1(0 TO 160) AS LONG <br />DIM SHARED window2(0 TO 160) AS LONG <br />DIM SHARED window3(0 TO 160) AS LONG <br /> <br />DIM SHARED wentylator(0 TO 64) AS LONG <br /> <br />REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />REM PRINT FRE(-2): END <br />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 150: y = 35: xs = 150: ys = 35: REM wspolrzedne poczatkowe gracza na ekranie <br />licz = -1: REM wartosc startowa zegara <br />REM roomx = 3: roomy = 3 przeniesione wyzej <br />kolwent = 30 + 30 * 256 + 30 * 65536: REM kolor lopat wentylatora <br /> <br />REM ***** SUB palety - ustawienie nowych wartosci barw <br />palety <br /> <br />REM ***** SUB cegly - zapelnienie pozostalych tablic <br />cegly <br /> <br />REM SUB plansze - wypelnienie tablicy wygladu plansz <br />plansze <br /> <br />REM SUB animacja - tablice animacji postaci <br />REM animacja <br /> <br /> <br />REM ************************* WYBOR POMIESZCZENIA <br /> <br />rysuj: <br /> <br />kod$ = p$(roomx + roomy * 16) <br /> <br />REM ******************** rysowanie pomieszczenia <br />t0 = PEEK(1132): REM pomiar czasu rysowania <br /> <br /> <br />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />COLOR 235 <br />REM LOCATE 23, 1: FOR i = 1 TO 40: PRINT CHR$(223); : NEXT i <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <br /> <br />LOCATE 24, 2: COLOR 3: PRINT "T:"; t0; "/"; t1; FRE(-2); <br />PRINT " ROOM:"; roomx; "/"; roomy; "--"; <br /> <br /> <br />REM **************** zapamietanie pola pod graczem <br />GET (x, y)-(x + 15, y + 31), pamiec <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />REM PUT (x, y), vertd1, PSET <br />liczsercaroom = 0: zrobione = 0 <br />GOTO postaw <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <br />dx = 0: dy = 0 <br />IF dzwiekbrania = 1 THEN dzwiekbrania = 0: zabranie <br /> <br />REM ******************* czas gry w sekundach <br /> <br />se$ = MID$(TIME$, 7, 2) <br />se = VAL(se$) <br />IF se <> ses THEN licz = licz + 1 <br />ses = se <br />LOCATE 25, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br />FOR delay = 1 TO 700: NEXT delay <br /> <br />REM faza wentylatora <br /> <br />komorka = PEEK(1132) / 1.5 <br />faz = INT(komorka) <br />IF faz / 3 = INT(faz / 3) THEN faza = 0 <br />IF (faz + 1) / 3 = INT((faz + 1) / 3) THEN faza = 1 <br />IF (faz + 2) / 3 = INT((faz + 2) / 3) THEN faza = 2 <br />FOR i = 0 TO 2: i16 = i * 16 <br />IF faza = 0 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, 0 <br />IF faza = 1 THEN PALETTE 11 + i16, 0: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, kolwent <br />IF faza = 2 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, 0: PALETTE 13 + i16, kolwent <br />NEXT i <br /> <br />REM ************************ sprawdzenie klawiszy <br /> <br />alt = 0: lshift = 0: pshift = 0: skos = 0 <br /> <br />k$ = INKEY$ <br />IF k$ = "f" THEN roomx = roomx - 1: GOTO rysuj <br />IF k$ = "h" THEN roomx = roomx + 1: GOTO rysuj <br />IF k$ = "t" THEN roomy = roomy - 1: GOTO rysuj <br />IF k$ = "b" THEN roomy = roomy + 1: GOTO rysuj <br /> <br />IF k$ = CHR$(27) THEN END <br /> <br />REM klawisz alt - wznoszenie sie <br />IF (PEEK(1047) AND 8) = 8 THEN alt = 1 <br />IF (PEEK(1047) AND 2) = 2 THEN lshift = 1 <br />IF (PEEK(1047) AND 1) = 1 THEN pshift = 1 <br /> <br />REM bezruch = grawitacja <br />IF lshift = 0 AND pshift = 0 AND alt = 0 THEN dy = 2: vert = 1: obrot = 0: przebiervert = 0: GOTO czy <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br /> <br />IF lshift = 1 THEN dx = -4: dy = 2: obrot = -1: vert = 0 <br />IF pshift = 1 THEN dx = 4: dy = 2: obrot = 1: vert = 0 <br />IF alt = 1 THEN dy = -4: vert = 1 <br />IF dx <> 0 AND dy <> 0 THEN skos = 1 <br />czy: <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br /> <br />IF x + dx > 300 THEN x = 5: xs = 5: roomx = roomx + 1: GOTO rysuj <br />IF x + dx < 3 THEN x = 300: xs = 300: roomx = roomx - 1: GOTO rysuj <br />IF y + dy > 144 THEN y = 5: ys = 5: roomy = roomy + 1: GOTO rysuj <br />IF y + dy < 4 THEN y = 145: ys = 145: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br />REM sprawdzenie przeszkody. Przeszkoda sa kolory > 200 <br /> <br />xmozliwy = 0: xniemozliwy = 0 <br />ymozliwy = 0: yniemozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa obok <br /> <br />IF dx > 0 THEN <br />FOR i = 0 TO 31: punkt = POINT(x + 19, y + i) <br />IF (punkt > 200 AND punkt <> 255) OR punkt = 198 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br /> <br />IF dx < 0 THEN <br />FOR i = 0 TO 31: punkt = POINT(x - 3, y + i) <br />IF (punkt > 200 AND punkt <> 255) OR punkt = 199 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF xniemozliwy = 0 THEN xmozliwy = 1 <br />IF xniemozliwy = 1 THEN xmozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa gora dol <br /> <br />IF dy > 0 THEN <br />FOR i = 0 TO 15: <br />IF POINT(x + i, y + 32) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y + 33) > 200 THEN yniemozliwy = 1: EXIT FOR <br /> <br />NEXT i <br />END IF <br /> <br />IF dy < 0 THEN <br />FOR i = 0 TO 15 <br />IF POINT(x + i, y - 4) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y - 5) > 200 THEN yniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF yniemozliwy = 0 THEN ymozliwy = 1 <br />IF yniemozliwy = 1 THEN ymozliwy = 0 <br /> <br />REM ruch gdy oba mozliwe x oraz y <br />IF ymozliwy = 1 AND xmozliwy = 1 THEN IF dx <> 0 OR dy <> 0 THEN GOTO ruch <br /> <br /> <br />REM szczegolne przypadki gdy tylko x albo y mozliwy <br />IF ymozliwy = 0 AND xmozliwy = 1 THEN dy = 0: GOTO czy <br />IF ymozliwy = 1 AND xmozliwy = 0 THEN dx = 0: GOTO czy <br /> <br /> <br />REM ruch niemozliwy powrot petli glownej bez zmian pozostaja x y <br /> <br /> <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** RUCH <br /> <br />ruch: <br /> <br />x = x + dx: y = y + dy <br />IF dy = 0 AND przebieranie = 0 AND alt = 0 THEN dreptanie: REM dzwiek chodzenia <br /> <br />REM ******************** czy jest wziatek <br />deltawx = ABS(x + 4 - xserca) <br />deltawy = ABS(y + 16 - yserca) <br />IF deltawx < 10 AND deltawy < 22 THEN GOSUB wziatek <br /> <br />REM ************************************** operacja odswiezania tla <br />postaw: <br />REM punkt 1 zapamietanie nowego pola dzialania (brudnego) <br />REM w oparciu o nowe x,y <br /> <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />REM************ 2 odnowienie pola dzialania uwzgledniajac dawne tlo <br /> <br />deltax = x - xs: deltay = y - ys <br />inversx = -1 * deltax: inversy = -1 * deltay <br />inver4 = INT(inversx / 4) <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = (yt + inversy) * 6 <br />FOR xt = 0 TO 3 <br />index1 = 1 + (yt6 + 24) + (xt + inver4) + 1 <br />index2 = 1 + yt4 + xt <br />poledzialania(index1) = pamiec(index2) <br />NEXT xt: NEXT yt <br /> <br />REM zmazanie serca z pola dzialania <br /> <br />IF liczsercaroom = 1 AND zrobione = 0 THEN <br />zrobione = 1 <br />PUT (x - 4, y - 4), poledzialania, PSET <br />PUT (xserca, yserca), tlo, PSET <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />END IF <br /> <br />REM nowa mala pamiec <br /> <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = yt * 6 <br />FOR xt = 0 TO 3: <br />index1 = 1 + (yt6 + 24) + (xt + 1): <br />index2 = 1 + yt4 + xt: <br />pamiec(index2) = poledzialania(index1): NEXT xt: NEXT yt <br /> <br /> <br />REM ************* rysowanie nowej postaci WEDLUG FAZY RUCHU <br /> <br />REM aby nie rysowac dwoch postaci w przypadku skosu <br />IF skos = 1 THEN GOTO bezskosu: <br /> <br />REM ************************** ruch w dol lub gore <br /> <br />IF vert = 1 THEN wkleic = 7: GOTO wklej <br />bezskosu: <br />REM ************************** ruch w lewo <br /> <br />IF obrot = -1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 1: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 2: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 3: GOTO wklej <br />END IF <br /> <br />REM ****************** ruch w prawo <br /> <br />IF obrot = 1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br /> <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 4: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 5: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 6: GOTO wklej <br />END IF <br /> <br />xs = x: ys = y <br /> <br />GOTO petla <br /> <br />wklej: <br /> <br />IF wkleic = 1 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 2 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 3 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 4 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 5 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 6 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 7 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR vertd1(index2)): NEXT xt: NEXT yt <br /> <br />REM wklejenie wyniku operacji na tablicy: <br />PUT (x - 4, y - 4), poledzialania, PSET <br /> <br />xs = x: ys = y <br />GOTO petla <br /> <br />REM GOSUB-RETURN****************************** obsluga wziatku <br /> <br />wziatek: <br />IF serca(roomx, roomy) = 0 THEN GOTO niemawziatku <br />IF liczsercaroom = 1 THEN GOTO niemawziatku <br />serca(roomx, roomy) = 0 <br />liczserca = liczserca + 1 <br />PUT (xserca, yserca), tlo, PSET <br /> <br />liczsercaroom = 1 <br />dzwiekbrania = 1 <br /> <br />LOCATE 1, 1: COLOR 6: PRINT liczserca; <br />niemawziatku: <br />RETURN <br /> <br />SUB animacja <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br />REM ten SUB jest do skasowania <br /> <br />END SUB <br /> <br />SUB cegly <br /> <br />BLOAD "bitmap1.scr" <br /> <br />REM INPUT a$ <br />REM pobranie z ekranu tablic elementow <br />REM uwaga! wysokosc elementu to 9 lub 18 px <br /> <br />GET (0, 0)-(31, 8), ceg2 <br />GET (0, 0)-(319, 8), ceg40 <br />GET (0, 9)-(319, 17), ceg17plus17 <br />GET (0, 18)-(319, 26), ceg13plus13 <br />GET (0, 27)-(319, 35), ceg4plus20plus4 <br />GET (0, 36)-(15, 53), szaretlo <br />GET (0, 36)-(31, 53), szaretlo2 <br />GET (0, 36)-(63, 53), szaretlo4: REM 36+18=46+8=54 <br /> <br />GET (16, 64)-(31, 79), palma <br />GET (32, 64)-(47, 81), blokp <br />GET (48, 64)-(63, 81), bloks <br />GET (64, 64)-(79, 81), blokk <br />GET (0, 156)-(31, 173), blok2 <br />GET (0, 156)-(63, 173), blok4 <br />GET (80, 64)-(111, 81), nieb <br /> <br /> <br />GET (0, 88)-(15, 119), znakl1 <br />GET (16, 88)-(31, 119), znakp1 <br />GET (32, 88)-(47, 119), znakl2 <br />GET (48, 88)-(63, 119), znakp2 <br />GET (64, 88)-(79, 119), znakl3 <br />GET (80, 88)-(95, 119), znakp3 <br />GET (96, 88)-(111, 119), vertd1 <br /> <br />GET (0, 120)-(31, 139), window1 <br />GET (32, 120)-(63, 139), window2 <br />GET (64, 120)-(95, 139), window3 <br />GET (0, 140)-(15, 155), wentylator <br />CLS <br />END SUB <br /> <br />SUB dreptanie <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />REM ewentualnie: <br />REM OUT 66, 30: OUT 66, 0 <br />REM OUT 66, 164: OUT 66, 2 <br />REM OUT 66, 130: OUT 66, 1 <br />REM OUT 66, 74: OUT 66, 0 <br />REM OUT 66, 220: OUT 66, 1 <br /> <br />FOR i = 1 TO 10 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 84: OUT 66, 2 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 94: OUT 66, 2 <br />OUT 66, 10: OUT 66, 0 <br />OUT 66, 40: OUT 66, 2 <br />OUT 66, 84: OUT 66, 0 <br />OUT 66, 10: OUT 66, 2 <br /> <br /> <br />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00" <br />PALETTE i, 31 + 31 * 256 + 31 * 65536: NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 05 05 06": REM tlo plyta <br />kolor$(2) = "02 02 03 02": REM tlo fuga <br />kolor$(3) = "03 07 06 06": REM tlo krawedz <br />kolor$(4) = "04 00 22 00": REM liscie <br />kolor$(5) = "05 3F 08 00": REM serce <br />kolor$(6) = "06 30 30 30": REM framuga okna <br />kolor$(7) = "07 28 0A 00": REM doniczka drzewa <br />kolor$(8) = "08 00 21 39": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 14 14 14": REM framuga zewnetrzna <br />kolor$(11) = "0B 00 00 00": REM wentylator faza 1 <br />kolor$(12) = "0C 00 00 00": REM wentylator faza 2 <br />kolor$(13) = "0D 00 00 00": REM wentylator faza 3 <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />kolor$(16) = "10 18 02 02": REM sweter + zero <br />kolor$(17) = "11 18 02 02": REM <br />kolor$(18) = "12 18 02 02": REM <br />kolor$(19) = "13 18 02 02": REM <br />kolor$(20) = "14 22 12 00": REM sweter + liscie <br />kolor$(21) = "15 3F 00 00": REM <br />kolor$(22) = "16 2F 09 09": REM sweter + framuga okna <br />kolor$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />kolor$(24) = "18 25 16 24": REM sweter + niebo <br />kolor$(25) = "19 3F 3F 3F": REM sweter + slonce <br />kolor$(26) = "1A 16 0F 0F": REM sweter + framuga zew <br />kolor$(27) = "1B 3F 3F 3F": REM <br />kolor$(28) = "1C 3F 3F 3F": REM <br />kolor$(29) = "1D 3F 3F 3F": REM <br />kolor$(30) = "1E 3F 3F 3F": REM <br />REM kolor 31 1F zastrzezony dla gracza <br />kolor$(32) = "20 0A 13 29": REM spodnie + zero <br />kolor$(33) = "21 0A 13 29": REM <br />kolor$(34) = "22 0A 13 29": REM <br />kolor$(35) = "23 0A 13 29": REM <br />kolor$(36) = "24 05 1D 24": REM spodnie+ liscie <br />kolor$(37) = "25 3F 3F 3F": REM <br />kolor$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />kolor$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />kolor$(40) = "28 00 1A 3F": REM spodnie + niebo <br />kolor$(41) = "29 3F 3F 3F": REM spodnie +slonce <br />kolor$(42) = "2A 10 14 20": REM spodnie + framuga zew <br />kolor$(43) = "2B 3F 3F 3F": REM <br />kolor$(44) = "2C 3F 3F 3F": REM <br />kolor$(45) = "2D 3F 3F 3F": REM <br />kolor$(46) = "2E 3F 3F 3F": REM <br />REM rejestr 47 2F zastrzezony dla gracza <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br />REM rejestry nieprzezroczyste <br /> <br />kolor$(31) = "1F 2F 09 09": REM sweter <br />kolor$(47) = "2F 0D 1A 37": REM spodnie <br />kolor$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 30 20": REM skora1 <br />kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 32 22 02": REM nos <br />kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 22 02 02": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br />REM FF- zarezerwowany dla przeslony <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 24 24": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM kolor 240 - przeslona <br />kolor$(240) = "F0 38 38 38" <br />REM cegly male niebieskie <br /> <br />kolor$(249) = "F9 22 27 30": REM krawedz <br />kolor$(250) = "FA 09 0E 14": REM fuga <br />kolor$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 28 28 28": REM przeslona <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br /> <br /> <br /> <br />END SUB <br /> <br />SUB plansze <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** roomy*16+roomx <br /> <br />REM kody plansz +++nr.po.ok.we.se_kw_dod <br />REM ************ plansze wiersza roomy=0 <br /> <br />p$(0) = "h22233322d.0.UI.YO....GN_______" <br />p$(1) = "h000fff11h.1....MD...._________" <br />p$(2) = "h11133333f.2.UI.HE....___EQ____" <br />p$(3) = "hh2223cchh.3..........SJ_______" <br />p$(4) = "h300033fff.4....ZK...._________" <br />p$(5) = "h2001c333f.5....LG....______AQG" <br />p$(6) = "h111g3222f.6....LD....___EQ____" <br />p$(7) = "hh222d111g.7.BE....DF.aH_WI____" <br />p$(8) = "hhDDDfCCCg.8..........__________!" <br />p$(9) = "hhhhhf111c.9..........__________!" <br />p$(10) = "hhhhhf222g.A..........GG_EQ_____!" <br />p$(11) = "hh333f111d.B....HG....__________!" <br />p$(12) = "hhffff333g.C..........__________!" <br />p$(13) = "h22233333c.D.UN.aK.DF.MK____AYC_!" <br />p$(14) = "h111ff22hh.E..........___aG_BLM_!" <br />p$(15) = "h3333311cc.F....ZK....aH____AIG_!" <br /> <br /> <br />REM ************ plansze wiersza roomy=1 <br /> <br />p$(16) = "d333c2223h.0.......FN._________" <br />p$(17) = "h33330003h.1.WH.YO....RN_______" <br />p$(18) = "ff333111ff.2.WJ.ML...._________" <br />p$(19) = "hc222c333c.3..........___QQ____" <br />p$(20) = "f31113333h.4.UM.aI.aO._________" <br />p$(21) = "f333aa333h.5..........RN_GQ____" <br />p$(22) = "ffff333fff.6....DJ....aM_______" <br />p$(23) = "gg333a33hh.7.........._________" <br />p$(24) = "gg333333ff.8.AK....IF._________" <br />p$(25) = "cccc22cccc.9..........SJ_______" <br />p$(26) = "gg331133hh.A....LF....aO_______" <br />p$(27) = "ddaa22cccc.B.........._________" <br />p$(28) = "g33300333h.C.AM....aO._________" <br />p$(29) = "c33311333c.D.0M.......ZK____AQO" <br />p$(30) = "h3322233dd.E.......aF._________" <br />p$(31) = "c33111333h.F.AM.bD....___QQ____" <br /> <br /> <br />REM ************* plansze wiersza roomy=2 <br /> <br />p$(32) = "h333ff333c.0..........KE_WQ___" <br />p$(33) = "h333c2222c.1....MD....UP______" <br />p$(34) = "faaaa0000h.2....WO.VI.________" <br />p$(35) = "ccccc1111f.3....MM....___EQ____" <br />p$(36) = "h33333c333.4.WO.NP....SM_______" <br />p$(37) = "haa33222af.5.UJ....GL._________" <br />p$(38) = "f333c111ah.6....aM....UP_______" <br />p$(39) = "hh333d333g.7....YP....___KQ____" <br />p$(40) = "ff3333333g.8.#I.......KM_______" <br />p$(41) = "c33g33d33c.9..........__________!" <br />p$(42) = "hh3333333g.A.WM.LI....__________!" <br />p$(43) = "cc333322cc.B.UJ.......__________!" <br />p$(44) = "hhaacc00hh.C.......JG.ZM____AQM_!" <br />p$(45) = "c333cc11gg.D....aN....______AQM_!" <br />p$(46) = "dd33cc22hh.E..........______AQE_!" <br />p$(47) = "hh3331113c.F.UK....VI.___EQ_____!" <br /> <br />REM ************ plansze wiersza roomy=3 <br /> <br />p$(48) = "c333c2222f.0....ZM.ZD.SF________!" <br />p$(49) = "ccccc1111h.1..........________" <br />p$(50) = "ha3222333c.2.#F.LO....UO_SQ___" <br />p$(51) = "ff3111333f.3.WM.YI.VI.SJ_GQ___" <br />p$(52) = "h3333c333f.4..........NG______" <br />p$(53) = "ff333c222f.5....ZO....SG________!" <br />p$(54) = "hhaaff000f.6..........___KQ___" <br />p$(55) = "gggg33111f.7....LO.VJ.________" <br />p$(56) = "gg3322ffff.8..........GG______" <br />p$(57) = "cccc00hfff.9..........________" <br />p$(58) = "gg33DDffff.A..........___KK___" <br />p$(59) = "cccccfffff.B.......TL.__________!" <br />p$(60) = "hh3333333f.C....KK....DP________!" <br />p$(61) = "g333333hhh.D.UJ....TF.__________!" <br />p$(62) = "hh3222333f.E..........___GQ___" <br />p$(63) = "c331113hhh.F....ZK....________" <br /> <br />REM ****************** plansze wiersza roomy=4 <br /> <br />p$(64) = "f22322322h.0....DD....SP_YQ___" <br />p$(65) = "h00f00f00h.1..........________" <br />p$(66) = "c11311311f.2....aP.KP.__________!" <br />p$(67) = "ff3332223h.3.UJ.ML....___YQ_____!" <br />p$(68) = "f3333111hh.4.WJ.YL....__________!" <br />p$(69) = "ffaafaaaff.5.......VI.__________!" <br />p$(70) = "ffa333c33h.6....OG....SQ_YQ_____!" <br />p$(71) = "ff2233c33d.7....aP....______LVO_!": REM startowa <br />p$(72) = "ff113cc33d.8..........aO____JVO_!" <br />p$(73) = "ff33cc33ff.9..........__________!" <br />p$(74) = "ff3333333d.A.WM.LI.ZP.PP________!" <br />p$(75) = "ff2233333f.B.UM.......___EQ_____!" <br />p$(76) = "ff11333hhh.C.......KH.__________!" <br />p$(77) = "h333333333.D....SK....bF________!" <br />p$(78) = "ff22233hhh.E.UJ.......__________!" <br />p$(79) = "h311133fff.F.WJ.......MM________!" <br /> <br />REM ******************* plansze wiersza roomy=5 <br /> <br />p$(80) = "haf222faff.0.......VI.___KK_____!" <br />p$(81) = "hhf111222h.1..........SP________!" <br />p$(82) = "fa333c000h.2....GO....__________!" <br />p$(83) = "h222fa111f.3..........___YQ___" <br />p$(84) = "h111c2223h.4.0Q....EE.MM______" <br />p$(85) = "ffffa111ff.5..........________" <br />p$(86) = "h333c333af.6....DD....ZF_MQ___" <br />p$(87) = "dd333f333g.7.......VI.___aI___" <br />p$(88) = "dd3333333g.8.UK.KO....________" <br />p$(89) = "f32233f33f.9.......ED.KK______" <br />p$(90) = "ddDDCC333h.A....ZK....KO______" <br />p$(91) = "f33300f33f.B..........________" <br />p$(92) = "h33300333c.C....NN....________" <br />p$(93) = "333311333h.D.0M....TG.GG______" <br />p$(94) = "h33222333c.E.AM.......________" <br />p$(95) = "ff3111333h.F.WM.FF....___YQ___" <br /> <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />p$(96) = "fffa222hhh.0....EJ....___YM_____!" <br />p$(97) = "hhhf000bbb.1....SJ....ML________!" <br />p$(98) = "h222111hhh.2..........___KM_____!" <br />p$(99) = "f111aaafff.3....PH....ZJ________!" <br />p$(100) = "h222ahhhhh.4..........EE________!" <br />p$(101) = "f11133222h.5.0I.......___GQ_____!" <br />p$(102) = "ffffff000h.6....LO....__________!" <br />p$(103) = "gg333d111f.7....MO....aP________!" <br />p$(104) = "gg333hCCCh.8.......ZN.KH________!" <br />p$(105) = "ffffffDDDh.9..........__________!" <br />p$(106) = "hh333fCCCh.A..........___KI_____!" <br />p$(107) = "ff3333111h.B.0I....KK.aP________!" <br />p$(108) = "cc22dd22ff.C..........__________!" <br />p$(109) = "hhDDffDDhh.D.......TJ.LN________!" <br />p$(110) = "ccc2222hhh.E..........__________!" <br />p$(111) = "hhhDDDDhhh.F..........TK_KM_____!" <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />p$(112) = "hffa222hhh.0..........__________!" <br />p$(113) = "bbbb000hhh.1....KK....__________!" <br />p$(114) = "h222111fff.2.BJ.......ZE____AIK_!" <br />p$(115) = "f000aaahhh.3..........___KM_____!" <br />p$(116) = "h000ahhhhh.4.......KF.__________!" <br />p$(117) = "h111hh222h.5..........KQ________!" <br />p$(118) = "hfffff000f.6....KO....__________!" <br />p$(119) = "fffeee000h.7..........___KQ_____!" <br />p$(120) = "hh3333000h.8.BL.......__________!" <br />p$(121) = "hCCCffDDDh.9..........KO________!" <br />p$(122) = "hDDDccCCCh.A..........___MK_____!" <br />p$(123) = "hf333300Df.B.AL.......__________!" <br />p$(124) = "ffffff00hh.C....KN....__________!" <br />p$(125) = "hhhhhf00fh.D.......TK.__________!" <br />p$(126) = "h33c3300ff.E..........KK________!" <br />p$(127) = "hhheefDDhh.F....KN....__________!" <br /> <br />REM ******************* plansze wiersza roomy=8 <br /> <br />p$(128) = "hffa222hhh.0..........__________!" <br />p$(129) = "hbbb000hhh.1..........__________!" <br />p$(130) = "f222111hhh.2..........__________!" <br />p$(131) = "h000aaahhh.3..........______COI_!" <br />p$(132) = "h000ahhhhh.4..........__________!" <br />p$(133) = "h111hh222h.5..........__________!" <br />p$(134) = "ffffff000h.6..........______DQK_!" <br />p$(135) = "hhhhha000h.7..........______ESK_!" <br />p$(136) = "hh3333000h.8..........______CKK_!" <br />p$(137) = "h33333111h.9..........__________!" <br />p$(138) = "h33333222h.A..........__________!" <br />p$(139) = "ffCCff00Dh.B..........______KaE_!" <br />p$(140) = "hfDDff00hh.C..........______JKM_!" <br />p$(141) = "hhhhhf00fh.D..........__________!" <br />p$(142) = "f3333300hh.E..........______COL_!" <br />p$(143) = "hhheefDDhh.F..........__________!" <br /> <br /> <br />REM tablica serc <br />FOR xr = 0 TO 15 <br />FOR yr = 0 TO 8 <br />s = xr + yr * 16 <br />znak$ = MID$(p$(s), 23, 1) <br />IF znak$ <> "_" THEN serca(xr, yr) = 1 <br />NEXT yr: NEXT xr <br /> <br /> <br />END SUB <br /> <br />SUB rysowanie <br /> <br /> <br />FOR yw = 0 TO 9 <br />el$ = MID$(kod$, yw + 1, 1) <br />y16 = yw * 18 <br /> <br />REM tymczasowe sygnalizacje bledow: <br /> <br />IF el$ = "Q" OR el$ = "L" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "P" OR el$ = "W" OR el$ = "=" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "A" OR el$ = "B" OR el$ = "U" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "@" THEN COLOR 15: LINE (0, y16)-(200, y16) <br /> <br /> <br />REM elementy uzupelniajace <br /> <br />IF el$ = "C" THEN <br />PUT (128, y16), szaretlo4, PSET: PUT (192, y16), szaretlo4, PSET <br />PUT (256, y16), szaretlo4, PSET <br />PUT (0, y16), blok4, PSET: PUT (64, y16), blok2, PSET: <br />PUT (96, y16), bloks, PSET: PUT (112, y16), blokk, PSET <br />END IF <br /> <br />IF el$ = "D" THEN <br />PUT (0, y16), szaretlo4, PSET: PUT (64, y16), szaretlo4, PSET <br />PUT (128, y16), szaretlo4, PSET <br />PUT (192, y16), blokp, PSET: PUT (208, y16), blok4, PSET <br />PUT (272, y16), blok2, PSET: PUT (304, y16), bloks, PSET <br />END IF <br /> <br />REM czesc automatyczna, znaki a-h <br />ascii = ASC(el$) <br /> <br />IF ascii > 96 THEN <br />bity = ascii - 97 <br />PUT (0, y16), blok4, PSET: <br />pop1 = 0 <br />pop2 = 0 <br />pop3 = 0 <br /> <br />IF (bity AND 4) = 4 THEN PUT (64, y16), blok4, PSET: pop1 = 1 <br />IF (bity AND 4) = 0 THEN PUT (48, y16), blokk, PSET: PUT (64, y16), szaretlo4, PSET: pop1 = 0 <br />REM <br />IF (bity AND 2) = 2 THEN pop2 = 1: PUT (128, y16), blok4, PSET: IF pop1 = 0 THEN PUT (128, y16), blokp, PSET <br />IF (bity AND 2) = 0 THEN pop2 = 0: PUT (128, y16), szaretlo4, PSET: IF pop1 = 1 THEN PUT (112, y16), blokk, PSET <br />REM <br />IF (bity AND 1) = 1 THEN pop3 = 1: PUT (192, y16), blok4, PSET: IF pop2 = 0 THEN PUT (192, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN pop3 = 0: PUT (192, y16), szaretlo4, PSET: IF pop2 = 1 THEN PUT (176, y16), blokk, PSET <br />PUT (256, y16), blok4, PSET <br />IF pop3 = 0 THEN PUT (256, y16), blokp, PSET <br />END IF <br /> <br />REM znaki 0-3 <br /> <br />IF ascii < 58 THEN <br />bity = ascii - 48 <br />IF (bity AND 2) = 2 THEN PUT (0, y16), blokk, PSET <br />IF (bity AND 2) = 0 THEN PUT (0, y16), szaretlo, PSET <br />PUT (16, y16), szaretlo4, PSET <br />PUT (80, y16), szaretlo4, PSET <br />PUT (144, y16), szaretlo4, PSET <br />PUT (208, y16), szaretlo4, PSET <br />PUT (272, y16), szaretlo2, PSET <br /> <br />IF (bity AND 1) = 1 THEN PUT (304, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN PUT (304, y16), szaretlo, PSET <br />END IF <br /> <br /> <br />NEXT yw <br /> <br /> <br /> <br />REM rysowanie podestow <br /> <br />el$ = MID$(kod$, 14, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO dodatek <br /> <br />el2$ = MID$(kod$, 15, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "#" THEN PUT (0, yokna), ceg40, PSET <br />IF el$ = "W" THEN PUT (0, yokna), ceg4plus20plus4, PSET <br />IF el$ = "U" THEN PUT (0, yokna), ceg17plus17, PSET <br />IF el$ = "0" THEN PUT (0, yokna), ceg13plus13, PSET <br />IF el$ = "A" THEN FOR xx = 0 TO 4: PUT (16 + xx * 64, yokna), ceg2, PSET: NEXT xx <br />IF el$ = "B" THEN FOR xx = 0 TO 5: PUT (64 + xx * 32, yokna), ceg2, PSET: NEXT xx <br /> <br />REM dodatkowy element <br />dodatek: <br /> <br />el$ = MID$(kod$, 29, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO okna <br />el2$ = MID$(kod$, 30, 1) <br />xokna = (ASC(el2$) - 65) * 8 <br />el2$ = MID$(kod$, 31, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "A" THEN <br />PUT (xokna, yokna), blokp, PSET: <br />PUT (xokna, yokna + 18), blokp, PSET <br />PUT (xokna + 16, yokna), blok2, PSET: <br />PUT (xokna + 16, yokna + 18), blok2, PSET <br />PUT (xokna + 48, yokna), blokk, PSET: <br />PUT (xokna + 48, yokna + 18), blokk, PSET <br />END IF <br />IF el$ = "B" THEN COLOR 235: LINE (xokna + 5, yokna)-(xokna + 9, yokna + 35), , BF <br />IF el$ = "C" THEN PUT (xokna, yokna), ceg2, PSET: PUT (xokna + 32, yokna), ceg2, PSET: PUT (xokna + 64, yokna), ceg2, PSET <br />IF el$ = "D" THEN LINE (xokna, yokna)-(xokna + 22, yokna + 17), 235, BF: LINE (xokna + 42, yokna)-(xokna + 63, yokna + 17), 235, BF <br />IF el$ = "E" THEN LINE (xokna, yokna)-(xokna + 5, yokna + 35), 235, BF: LINE (xokna + 26, yokna + 36)-(xokna + 31, yokna + 72), 235, BF <br />IF el$ = "F" THEN PUT (xokna, yokna), nieb, PSET <br />IF el$ = "G" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna), nieb, PSET <br />IF el$ = "H" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna + 36), nieb, PSET <br />IF el$ = "I" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna - 36), nieb, PSET <br />IF el$ = "J" THEN PSET (xokna - 2, yokna), 199: DRAW "R18 D35 L18 U35 F18 U1 G18" <br />IF el$ = "K" THEN PSET (xokna - 2, yokna), 198: DRAW "R18 D35 L18 U35 R18 G18 U1 F18" <br />IF el$ = "L" THEN LINE (xokna, yokna)-(xokna + 15, yokna + 35), 255, BF <br />okna: <br /> <br />REM rysowanie okien <br /> <br />el$ = MID$(kod$, 17, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO serce <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 18, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />IF roomy < 2 THEN PUT (xokna, yokna), window2, PSET <br />IF roomy > 1 AND roomy < 5 THEN PUT (xokna, yokna), window1, PSET <br />IF roomy > 4 THEN PUT (xokna, yokna), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20 <br />yokna = -20 <br />IF serca(roomx, roomy) = 0 THEN GOTO donica <br />el$ = MID$(kod$, 23, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO donica <br />xserca = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 24, 1) <br />yserca = (ASC(el$) - 65) * 9 <br />GET (xserca, yserca)-(xserca + 15, yserca + 7), tlo <br />COLOR 5 <br />LINE (xserca, yserca + 1)-(xserca, yserca + 3) <br />LINE (xserca + 1, yserca)-(xserca + 1, yserca + 4) <br />LINE (xserca + 2, yserca)-(xserca + 2, yserca + 5) <br />LINE (xserca + 3, yserca + 1)-(xserca + 3, yserca + 6) <br />LINE (xserca + 4, yserca)-(xserca + 4, yserca + 5) <br />LINE (xserca + 5, yserca)-(xserca + 5, yserca + 4) <br />LINE (xserca + 6, yserca + 1)-(xserca + 6, yserca + 3) <br /> <br />donica: <br />el$ = MID$(kod$, 26, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO wentyl <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 27, 1) <br />yokna = (ASC(el$) - 65) * 9 + 2 <br />PUT (xokna, yokna), palma, PSET <br /> <br />wentyl: <br />el$ = MID$(kod$, 20, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO koniecrysowania <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 21, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />PUT (xokna, yokna), wentylator, PSET <br /> <br /> <br />koniecrysowania: <br /> <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br /> <br />END SUB <br /> <br />SUB zabranie <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 6000: NEXT i <br /> <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 6000: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 10:16, 19 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB zabranie () <br /> <br />REM Gra "Serca" UWAGA wersaj gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <br />DECLARE SUB dreptanie () <br />DECLARE SUB animacja () <br />DECLARE SUB rysowanie () <br />DECLARE SUB palety () <br />DECLARE SUB plansze () <br />DECLARE SUB cegly () <br /> <br />REM plansza startowa: <br />DIM SHARED roomx AS INTEGER, roomy AS INTEGER <br />roomx = 7: roomy = 4 <br /> <br />DIM SHARED kolor$(0 TO 255) <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED p$(0 TO 143) <br />DIM SHARED kod$ <br />DIM SHARED serca(0 TO 15, 0 TO 8) AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br /> <br />REM pamiec tla pod wziatek <br /> <br />DIM SHARED tlo(0 TO 32) AS LONG <br /> <br />REM tlo <br /> <br />DIM SHARED szaretlo(0 TO 74) AS LONG <br />DIM SHARED szaretlo2(0 TO 148) AS LONG <br />DIM SHARED szaretlo4(0 TO 300) AS LONG <br />REM dane elementow planszy <br /> <br />DIM SHARED ceg2(0 TO 75) AS LONG <br />DIM SHARED ceg40(0 TO 730) AS LONG <br />DIM SHARED ceg17plus17(0 TO 730) AS LONG <br />DIM SHARED ceg13plus13(0 TO 760) AS LONG <br />DIM SHARED ceg4plus20plus4(0 TO 750) AS LONG <br />DIM SHARED palma(0 TO 64) AS LONG <br />DIM SHARED nieb(0 TO 145) AS LONG <br /> <br />DIM SHARED blokp(0 TO 74) AS LONG <br />DIM SHARED bloks(0 TO 74) AS LONG <br />DIM SHARED blokk(0 TO 74) AS LONG <br />DIM SHARED blok2(0 TO 158) AS LONG <br />DIM SHARED blok4(0 TO 296) AS LONG <br /> <br />REM ****************** DANE ANIMACJI <br /> <br />DIM SHARED znakp1(0 TO 128) AS LONG <br />DIM SHARED znakl1(0 TO 128) AS LONG <br />DIM SHARED znakp2(0 TO 128) AS LONG <br />DIM SHARED znakl2(0 TO 128) AS LONG <br />DIM SHARED znakp3(0 TO 128) AS LONG <br />DIM SHARED znakl3(0 TO 128) AS LONG <br />DIM SHARED vertd1(0 TO 128) AS LONG <br /> <br />REM matryce okien <br /> <br />DIM SHARED window1(0 TO 160) AS LONG <br />DIM SHARED window2(0 TO 160) AS LONG <br />DIM SHARED window3(0 TO 160) AS LONG <br /> <br />DIM SHARED wentylator(0 TO 64) AS LONG <br /> <br />REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />REM PRINT FRE(-2): END <br />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 150: y = 35: xs = 150: ys = 35: REM wspolrzedne poczatkowe gracza na ekranie <br />licz = -1: REM wartosc startowa zegara <br />REM roomx = 3: roomy = 3 przeniesione wyzej <br />kolwent = 30 + 30 * 256 + 30 * 65536: REM kolor lopat wentylatora <br /> <br />REM ***** SUB palety - ustawienie nowych wartosci barw <br />palety <br /> <br />REM ***** SUB cegly - zapelnienie pozostalych tablic <br />cegly <br /> <br />REM SUB plansze - wypelnienie tablicy wygladu plansz <br />plansze <br /> <br />REM SUB animacja - tablice animacji postaci <br />REM animacja <br /> <br /> <br />REM ************************* WYBOR POMIESZCZENIA <br /> <br />rysuj: <br /> <br />kod$ = p$(roomx + roomy * 16) <br /> <br />REM ******************** rysowanie pomieszczenia <br />t0 = PEEK(1132): REM pomiar czasu rysowania <br /> <br /> <br />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />COLOR 235 <br />REM LOCATE 23, 1: FOR i = 1 TO 40: PRINT CHR$(223); : NEXT i <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <br /> <br />LOCATE 24, 2: COLOR 3: PRINT "T:"; t0; "/"; t1; FRE(-2); <br />PRINT " ROOM:"; roomx; "/"; roomy; "--"; <br /> <br /> <br />REM **************** zapamietanie pola pod graczem <br />GET (x, y)-(x + 15, y + 31), pamiec <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />REM PUT (x, y), vertd1, PSET <br />liczsercaroom = 0: zrobione = 0 <br />GOTO postaw <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <br />dx = 0: dy = 0 <br />IF dzwiekbrania = 1 THEN dzwiekbrania = 0: zabranie <br /> <br />REM ******************* czas gry w sekundach <br /> <br />se$ = MID$(TIME$, 7, 2) <br />se = VAL(se$) <br />IF se <> ses THEN licz = licz + 1 <br />ses = se <br />LOCATE 25, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br />FOR delay = 1 TO 700: NEXT delay <br /> <br />REM faza wentylatora <br /> <br />komorka = PEEK(1132) / 1.5 <br />faz = INT(komorka) <br />IF faz / 3 = INT(faz / 3) THEN faza = 0 <br />IF (faz + 1) / 3 = INT((faz + 1) / 3) THEN faza = 1 <br />IF (faz + 2) / 3 = INT((faz + 2) / 3) THEN faza = 2 <br />FOR i = 0 TO 2: i16 = i * 16 <br />IF faza = 0 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, 0 <br />IF faza = 1 THEN PALETTE 11 + i16, 0: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, kolwent <br />IF faza = 2 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, 0: PALETTE 13 + i16, kolwent <br />NEXT i <br /> <br />REM ************************ sprawdzenie klawiszy <br /> <br />alt = 0: lshift = 0: pshift = 0: skos = 0 <br /> <br />k$ = INKEY$ <br />IF k$ = "f" THEN roomx = roomx - 1: GOTO rysuj <br />IF k$ = "h" THEN roomx = roomx + 1: GOTO rysuj <br />IF k$ = "t" THEN roomy = roomy - 1: GOTO rysuj <br />IF k$ = "b" THEN roomy = roomy + 1: GOTO rysuj <br /> <br />IF k$ = CHR$(27) THEN END <br /> <br />REM klawisz alt - wznoszenie sie <br />IF (PEEK(1047) AND 8) = 8 THEN alt = 1 <br />IF (PEEK(1047) AND 2) = 2 THEN lshift = 1 <br />IF (PEEK(1047) AND 1) = 1 THEN pshift = 1 <br /> <br />REM bezruch = grawitacja <br />IF lshift = 0 AND pshift = 0 AND alt = 0 THEN dy = 2: vert = 1: obrot = 0: przebiervert = 0: GOTO czy <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br /> <br />IF lshift = 1 THEN dx = -4: dy = 2: obrot = -1: vert = 0 <br />IF pshift = 1 THEN dx = 4: dy = 2: obrot = 1: vert = 0 <br />IF alt = 1 THEN dy = -4: vert = 1 <br />IF dx <> 0 AND dy <> 0 THEN skos = 1 <br />czy: <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br /> <br />IF x + dx > 300 THEN x = 5: xs = 5: roomx = roomx + 1: GOTO rysuj <br />IF x + dx < 3 THEN x = 300: xs = 300: roomx = roomx - 1: GOTO rysuj <br />IF y + dy > 144 THEN y = 5: ys = 5: roomy = roomy + 1: GOTO rysuj <br />IF y + dy < 4 THEN y = 145: ys = 145: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br />REM sprawdzenie przeszkody. Przeszkoda sa kolory > 200 <br /> <br />xmozliwy = 0: xniemozliwy = 0 <br />ymozliwy = 0: yniemozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa obok <br /> <br />IF dx > 0 THEN <br />FOR i = 0 TO 31: punkt = POINT(x + 19, y + i) <br />IF (punkt > 200 AND punkt <> 255) OR punkt = 198 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br /> <br />IF dx < 0 THEN <br />FOR i = 0 TO 31: punkt = POINT(x - 3, y + i) <br />IF (punkt > 200 AND punkt <> 255) OR punkt = 199 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF xniemozliwy = 0 THEN xmozliwy = 1 <br />IF xniemozliwy = 1 THEN xmozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa gora dol <br /> <br />IF dy > 0 THEN <br />FOR i = 0 TO 15: <br />IF POINT(x + i, y + 32) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y + 33) > 200 THEN yniemozliwy = 1: EXIT FOR <br /> <br />NEXT i <br />END IF <br /> <br />IF dy < 0 THEN <br />FOR i = 0 TO 15 <br />IF POINT(x + i, y - 4) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y - 5) > 200 THEN yniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF yniemozliwy = 0 THEN ymozliwy = 1 <br />IF yniemozliwy = 1 THEN ymozliwy = 0 <br /> <br />REM ruch gdy oba mozliwe x oraz y <br />IF ymozliwy = 1 AND xmozliwy = 1 THEN IF dx <> 0 OR dy <> 0 THEN GOTO ruch <br /> <br /> <br />REM szczegolne przypadki gdy tylko x albo y mozliwy <br />IF ymozliwy = 0 AND xmozliwy = 1 THEN dy = 0: GOTO czy <br />IF ymozliwy = 1 AND xmozliwy = 0 THEN dx = 0: GOTO czy <br /> <br /> <br />REM ruch niemozliwy powrot petli glownej bez zmian pozostaja x y <br /> <br /> <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** RUCH <br /> <br />ruch: <br /> <br />x = x + dx: y = y + dy <br />IF dy = 0 AND przebieranie = 0 AND alt = 0 THEN dreptanie: REM dzwiek chodzenia <br /> <br />REM ******************** czy jest wziatek <br />deltawx = ABS(x + 4 - xserca) <br />deltawy = ABS(y + 16 - yserca) <br />IF deltawx < 10 AND deltawy < 22 THEN GOSUB wziatek <br /> <br />REM ************************************** operacja odswiezania tla <br />postaw: <br />REM punkt 1 zapamietanie nowego pola dzialania (brudnego) <br />REM w oparciu o nowe x,y <br /> <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />REM************ 2 odnowienie pola dzialania uwzgledniajac dawne tlo <br /> <br />deltax = x - xs: deltay = y - ys <br />inversx = -1 * deltax: inversy = -1 * deltay <br />inver4 = INT(inversx / 4) <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = (yt + inversy) * 6 <br />FOR xt = 0 TO 3 <br />index1 = 1 + (yt6 + 24) + (xt + inver4) + 1 <br />index2 = 1 + yt4 + xt <br />poledzialania(index1) = pamiec(index2) <br />NEXT xt: NEXT yt <br /> <br />REM zmazanie serca z pola dzialania <br /> <br />IF liczsercaroom = 1 AND zrobione = 0 THEN <br />zrobione = 1 <br />PUT (x - 4, y - 4), poledzialania, PSET <br />PUT (xserca, yserca), tlo, PSET <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />END IF <br /> <br />REM nowa mala pamiec <br /> <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = yt * 6 <br />FOR xt = 0 TO 3: <br />index1 = 1 + (yt6 + 24) + (xt + 1): <br />index2 = 1 + yt4 + xt: <br />pamiec(index2) = poledzialania(index1): NEXT xt: NEXT yt <br /> <br /> <br />REM ************* rysowanie nowej postaci WEDLUG FAZY RUCHU <br /> <br />REM aby nie rysowac dwoch postaci w przypadku skosu <br />IF skos = 1 THEN GOTO bezskosu: <br /> <br />REM ************************** ruch w dol lub gore <br /> <br />IF vert = 1 THEN wkleic = 7: GOTO wklej <br />bezskosu: <br />REM ************************** ruch w lewo <br /> <br />IF obrot = -1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 1: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 2: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 3: GOTO wklej <br />END IF <br /> <br />REM ****************** ruch w prawo <br /> <br />IF obrot = 1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br /> <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 4: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 5: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 6: GOTO wklej <br />END IF <br /> <br />xs = x: ys = y <br /> <br />GOTO petla <br /> <br />wklej: <br /> <br />IF wkleic = 1 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 2 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 3 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 4 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 5 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 6 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 7 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR vertd1(index2)): NEXT xt: NEXT yt <br /> <br />REM wklejenie wyniku operacji na tablicy: <br />PUT (x - 4, y - 4), poledzialania, PSET <br /> <br />xs = x: ys = y <br />GOTO petla <br /> <br />REM GOSUB-RETURN****************************** obsluga wziatku <br /> <br />wziatek: <br />IF serca(roomx, roomy) = 0 THEN GOTO niemawziatku <br />IF liczsercaroom = 1 THEN GOTO niemawziatku <br />serca(roomx, roomy) = 0 <br />liczserca = liczserca + 1 <br />PUT (xserca, yserca), tlo, PSET <br /> <br />liczsercaroom = 1 <br />dzwiekbrania = 1 <br /> <br />LOCATE 1, 1: COLOR 6: PRINT liczserca; <br />niemawziatku: <br />RETURN <br /> <br />SUB animacja <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br />REM ten SUB jest do skasowania <br /> <br />END SUB <br /> <br />SUB cegly <br /> <br />BLOAD "bitmap1.scr" <br /> <br />REM INPUT a$ <br />REM pobranie z ekranu tablic elementow <br />REM uwaga! wysokosc elementu to 9 lub 18 px <br /> <br />GET (0, 0)-(31, 8), ceg2 <br />GET (0, 0)-(319, 8), ceg40 <br />GET (0, 9)-(319, 17), ceg17plus17 <br />GET (0, 18)-(319, 26), ceg13plus13 <br />GET (0, 27)-(319, 35), ceg4plus20plus4 <br />GET (0, 36)-(15, 53), szaretlo <br />GET (0, 36)-(31, 53), szaretlo2 <br />GET (0, 36)-(63, 53), szaretlo4: REM 36+18=46+8=54 <br /> <br />GET (16, 64)-(31, 79), palma <br />GET (32, 64)-(47, 81), blokp <br />GET (48, 64)-(63, 81), bloks <br />GET (64, 64)-(79, 81), blokk <br />GET (0, 156)-(31, 173), blok2 <br />GET (0, 156)-(63, 173), blok4 <br />GET (80, 64)-(111, 81), nieb <br /> <br /> <br />GET (0, 88)-(15, 119), znakl1 <br />GET (16, 88)-(31, 119), znakp1 <br />GET (32, 88)-(47, 119), znakl2 <br />GET (48, 88)-(63, 119), znakp2 <br />GET (64, 88)-(79, 119), znakl3 <br />GET (80, 88)-(95, 119), znakp3 <br />GET (96, 88)-(111, 119), vertd1 <br /> <br />GET (0, 120)-(31, 139), window1 <br />GET (32, 120)-(63, 139), window2 <br />GET (64, 120)-(95, 139), window3 <br />GET (0, 140)-(15, 155), wentylator <br />CLS <br />END SUB <br /> <br />SUB dreptanie <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />REM ewentualnie: <br />REM OUT 66, 30: OUT 66, 0 <br />REM OUT 66, 164: OUT 66, 2 <br />REM OUT 66, 130: OUT 66, 1 <br />REM OUT 66, 74: OUT 66, 0 <br />REM OUT 66, 220: OUT 66, 1 <br /> <br />FOR i = 1 TO 10 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 84: OUT 66, 2 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 94: OUT 66, 2 <br />OUT 66, 10: OUT 66, 0 <br />OUT 66, 40: OUT 66, 2 <br />OUT 66, 84: OUT 66, 0 <br />OUT 66, 10: OUT 66, 2 <br /> <br /> <br />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00" <br />PALETTE i, 31 + 31 * 256 + 31 * 65536: NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 05 05 06": REM tlo plyta <br />kolor$(2) = "02 02 03 02": REM tlo fuga <br />kolor$(3) = "03 07 06 06": REM tlo krawedz <br />kolor$(4) = "04 00 22 00": REM liscie <br />kolor$(5) = "05 3F 08 00": REM serce <br />kolor$(6) = "06 30 30 30": REM framuga okna <br />kolor$(7) = "07 28 0A 00": REM doniczka drzewa <br />kolor$(8) = "08 00 21 39": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 14 14 14": REM framuga zewnetrzna <br />kolor$(11) = "0B 00 00 00": REM wentylator faza 1 <br />kolor$(12) = "0C 00 00 00": REM wentylator faza 2 <br />kolor$(13) = "0D 00 00 00": REM wentylator faza 3 <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />kolor$(16) = "10 18 02 02": REM sweter + zero <br />kolor$(17) = "11 18 02 02": REM <br />kolor$(18) = "12 18 02 02": REM <br />kolor$(19) = "13 18 02 02": REM <br />kolor$(20) = "14 22 12 00": REM sweter + liscie <br />kolor$(21) = "15 3F 00 00": REM <br />kolor$(22) = "16 2F 09 09": REM sweter + framuga okna <br />kolor$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />kolor$(24) = "18 25 16 24": REM sweter + niebo <br />kolor$(25) = "19 3F 3F 3F": REM sweter + slonce <br />kolor$(26) = "1A 16 0F 0F": REM sweter + framuga zew <br />kolor$(27) = "1B 3F 3F 3F": REM <br />kolor$(28) = "1C 3F 3F 3F": REM <br />kolor$(29) = "1D 3F 3F 3F": REM <br />kolor$(30) = "1E 3F 3F 3F": REM <br />REM kolor 31 1F zastrzezony dla gracza <br />kolor$(32) = "20 0A 13 29": REM spodnie + zero <br />kolor$(33) = "21 0A 13 29": REM <br />kolor$(34) = "22 0A 13 29": REM <br />kolor$(35) = "23 0A 13 29": REM <br />kolor$(36) = "24 05 1D 24": REM spodnie+ liscie <br />kolor$(37) = "25 3F 3F 3F": REM <br />kolor$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />kolor$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />kolor$(40) = "28 00 1A 3F": REM spodnie + niebo <br />kolor$(41) = "29 3F 3F 3F": REM spodnie +slonce <br />kolor$(42) = "2A 10 14 20": REM spodnie + framuga zew <br />kolor$(43) = "2B 3F 3F 3F": REM <br />kolor$(44) = "2C 3F 3F 3F": REM <br />kolor$(45) = "2D 3F 3F 3F": REM <br />kolor$(46) = "2E 3F 3F 3F": REM <br />REM rejestr 47 2F zastrzezony dla gracza <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br />REM rejestry nieprzezroczyste <br /> <br />kolor$(31) = "1F 2F 09 09": REM sweter <br />kolor$(47) = "2F 0D 1A 37": REM spodnie <br />kolor$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 30 20": REM skora1 <br />kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 32 22 02": REM nos <br />kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 22 02 02": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br />REM FF- zarezerwowany dla przeslony <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 24 24": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM kolor 240 - przeslona <br />kolor$(240) = "F0 38 38 38" <br />REM cegly male niebieskie <br /> <br />kolor$(249) = "F9 22 27 30": REM krawedz <br />kolor$(250) = "FA 09 0E 14": REM fuga <br />kolor$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 28 28 28": REM przeslona <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br /> <br /> <br /> <br />END SUB <br /> <br />SUB plansze <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** roomy*16+roomx <br /> <br />REM kody plansz +++nr.po.ok.we.se_kw_dod <br />REM ************ plansze wiersza roomy=0 <br /> <br />p$(0) = "h22233322d.0.UI.YO....GN_______" <br />p$(1) = "h000fff11h.1....MD...._________" <br />p$(2) = "h11133333f.2.UI.HE....___EQ____" <br />p$(3) = "hh2223cchh.3..........SJ_______" <br />p$(4) = "h300033fff.4....ZK...._________" <br />p$(5) = "h2001c333f.5....LG....______AQG" <br />p$(6) = "h111g3222f.6....LD....___EQ____" <br />p$(7) = "hh222d111g.7.BE....DF.aH_WI____" <br />p$(8) = "hhDDDfCCCg.8..........__________!" <br />p$(9) = "hhCCCf111c.9..........__________!" <br />p$(10) = "hhDDDf222g.A..........GG_EQ_____!" <br />p$(11) = "hh333f111d.B....HG....__________!" <br />p$(12) = "hhffff333g.C..........__________!" <br />p$(13) = "h22233333c.D.UN.aK.DF.MK____AYC_!" <br />p$(14) = "h111ff22hh.E..........___aG_BLM_!" <br />p$(15) = "h3333311cc.F....ZK....aH____AIG_!" <br /> <br /> <br />REM ************ plansze wiersza roomy=1 <br /> <br />p$(16) = "d333c2223h.0.......FN._________" <br />p$(17) = "h33330003h.1.WH.YO....RN_______" <br />p$(18) = "ff333111ff.2.WJ.ML...._________" <br />p$(19) = "hc222c333c.3..........___QQ____" <br />p$(20) = "f31113333h.4.UM.aI.aO._________" <br />p$(21) = "f333aa333h.5..........RN_GQ____" <br />p$(22) = "ffff333fff.6....DJ....aM_______" <br />p$(23) = "gg333a33ff.7.........._________" <br />p$(24) = "gg333333ff.8.AK....IF._________" <br />p$(25) = "cccc33cccc.9..........SJ_______" <br />p$(26) = "gg33dd33ff.A....LF....aO_______" <br />p$(27) = "ddaa22cccc.B.........._________" <br />p$(28) = "g33300333h.C.AM....aO._________" <br />p$(29) = "c33311333c.D.0M.......ZK____AQO" <br />p$(30) = "h3322233dd.E.......aF._________" <br />p$(31) = "c33111333h.F.AM.bD....___QQ____" <br /> <br /> <br />REM ************* plansze wiersza roomy=2 <br /> <br />p$(32) = "h333ff333c.0..........KE_WQ___" <br />p$(33) = "h333c2222c.1....MD....UP______" <br />p$(34) = "faaaa0000h.2....WO.VI.________" <br />p$(35) = "ccccc1111f.3....MM....___EQ____" <br />p$(36) = "h33333c333.4.WO.NP....SM_______" <br />p$(37) = "haa33222af.5.UJ....GL._________" <br />p$(38) = "f333c111ah.6....aM....UP_______" <br />p$(39) = "ff333d333g.7....YP....___KQ____" <br />p$(40) = "ff3333333g.8.#I.......KM_______" <br />p$(41) = "c33g33d33c.9..........__________!" <br />p$(42) = "ff3333333g.A.WM.LI....__________!" <br />p$(43) = "cc333322cc.B.UJ.......__________!" <br />p$(44) = "hhaacc00hh.C.......JG.ZM____AQM_!" <br />p$(45) = "c333cc11gg.D....aN....______AQM_!" <br />p$(46) = "dd33cc22hh.E..........______AQE_!" <br />p$(47) = "hh3331113c.F.UK....VI.___EQ_____!" <br /> <br />REM ************ plansze wiersza roomy=3 <br /> <br />p$(48) = "c333c2222f.0....ZM.ZD.SF________!" <br />p$(49) = "ccccc1111h.1..........________" <br />p$(50) = "ha3222333c.2.#F.LO....UO_SQ___" <br />p$(51) = "ff3111333f.3.WM.YI.VI.SJ_GQ___" <br />p$(52) = "h3333c333f.4..........NG______" <br />p$(53) = "ff333c222f.5....ZO....SG________!" <br />p$(54) = "hhaaff000f.6..........___KQ___" <br />p$(55) = "gggg33111f.7....LO.VJ.________" <br />p$(56) = "gg3322ffff.8..........GG______" <br />p$(57) = "cccc00hfff.9..........________" <br />p$(58) = "gg33DDffff.A..........___KK___" <br />p$(59) = "cccccfffff.B.......TL.__________!" <br />p$(60) = "hh3333333f.C....KK....DP________!" <br />p$(61) = "g333333hhh.D.UJ....TF.__________!" <br />p$(62) = "hh3222333f.E..........___GQ___" <br />p$(63) = "c331113hhh.F....ZK....________" <br /> <br />REM ****************** plansze wiersza roomy=4 <br /> <br />p$(64) = "f22322322h.0....DD....SP_YQ___" <br />p$(65) = "h00f00f00h.1..........________" <br />p$(66) = "c11311311f.2....aP.KP.__________!" <br />p$(67) = "ff3332223h.3.UJ.ML....___YQ_____!" <br />p$(68) = "f3333111hh.4.WJ.YL....__________!" <br />p$(69) = "ffaafaaaff.5.......VI.__________!" <br />p$(70) = "ffa333c33h.6....OG....SQ_YQ_____!" <br />p$(71) = "ff2233c33d.7....aO....______LVO_!": REM startowa <br />p$(72) = "ff113cc33d.8..........aO____JVO_!" <br />p$(73) = "ff33cc33ff.9..........__________!" <br />p$(74) = "ff3322333d.A.WM.LI.ZP.PP________!" <br />p$(75) = "ff22DD333f.B.UM.......___EQ_____!" <br />p$(76) = "ff11333hhh.C.......KH.__________!" <br />p$(77) = "h333333333.D....SK....bF________!" <br />p$(78) = "ff22233hhh.E.UJ.......__________!" <br />p$(79) = "h311133fff.F.WJ.......MM________!" <br /> <br />REM ******************* plansze wiersza roomy=5 <br /> <br />p$(80) = "haf222faff.0.......VI.___KK_____!" <br />p$(81) = "hhf111222h.1..........SP________!" <br />p$(82) = "fa333c000h.2....GO....__________!" <br />p$(83) = "h222fa111f.3..........___YQ___" <br />p$(84) = "h111c2223h.4.0Q....EE.MM______" <br />p$(85) = "ffffa111ff.5..........________" <br />p$(86) = "h333c333af.6....DD....ZF_MQ___" <br />p$(87) = "dd333f333g.7.......VI.___aI___" <br />p$(88) = "dd3333333g.8.UK.KO....________" <br />p$(89) = "f32233f33f.9.......ED.KK______" <br />p$(90) = "ddDDCC333g.A....ZK....KO______" <br />p$(91) = "f33300f33f.B..........________" <br />p$(92) = "h33300333c.C....NN....________" <br />p$(93) = "333311333h.D.0M....TG.GG______" <br />p$(94) = "h33222333c.E.AM.......________" <br />p$(95) = "ff3111333h.F.WM.FF....___YQ___" <br /> <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />p$(96) = "fffa222hhh.0....EJ....___YM_____!" <br />p$(97) = "hhhf000bbb.1....SJ....ML________!" <br />p$(98) = "h222111hhh.2..........___KM_____!" <br />p$(99) = "f111aaafff.3....PH....ZJ________!" <br />p$(100) = "h222ahhhhh.4..........EE________!" <br />p$(101) = "f11133222h.5.0I.......___GQ_____!" <br />p$(102) = "ffffff000h.6....LO....__________!" <br />p$(103) = "gg333d111f.7....MO....aP________!" <br />p$(104) = "gg333hCCCh.8.......ZN.KH________!" <br />p$(105) = "ffffffDDDh.9..........__________!" <br />p$(106) = "gg333fCCCh.A..........___KI_____!" <br />p$(107) = "ff3333111h.B.0I....KK.aP________!" <br />p$(108) = "cc22dd22ff.C..........__________!" <br />p$(109) = "hhDDffDDhh.D.......TJ.LN________!" <br />p$(110) = "ccc2222hhh.E..........__________!" <br />p$(111) = "hhhDDDDhhh.F..........TK_KM_____!" <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />p$(112) = "hffa222hhh.0..........__________!" <br />p$(113) = "bbbb000hhh.1....KK....__________!" <br />p$(114) = "h222111fff.2.BJ.......ZE____AIK_!" <br />p$(115) = "f000aaahhh.3..........___KM_____!" <br />p$(116) = "h000ahhhhh.4.......KF.__________!" <br />p$(117) = "h111hh222h.5..........KQ________!" <br />p$(118) = "hfffff000f.6....KO....__________!" <br />p$(119) = "fffeee000h.7..........___KQ_____!" <br />p$(120) = "hh3333000h.8.BL.......__________!" <br />p$(121) = "hCCCffDDDh.9..........KO________!" <br />p$(122) = "hDDDccCCCh.A..........___MK_____!" <br />p$(123) = "hf333300Df.B.AL.......__________!" <br />p$(124) = "ffffff00hh.C....KN....__________!" <br />p$(125) = "hhhhhf00fh.D.......TK.__________!" <br />p$(126) = "h33c3300ff.E..........KK________!" <br />p$(127) = "hhheefDDhh.F....KN....__________!" <br /> <br />REM ******************* plansze wiersza roomy=8 <br /> <br />p$(128) = "hffa222hhh.0..........__________!" <br />p$(129) = "hbbb000hhh.1..........__________!" <br />p$(130) = "f222111hhh.2..........__________!" <br />p$(131) = "h000aaahhh.3..........______COI_!" <br />p$(132) = "h000ahhhhh.4..........__________!" <br />p$(133) = "h111hh222h.5..........__________!" <br />p$(134) = "ffffff000h.6..........______DQK_!" <br />p$(135) = "hhhhha000h.7..........______ESK_!" <br />p$(136) = "hh3333000h.8..........______CKK_!" <br />p$(137) = "hCCCffDDDh.9..........__________!" <br />p$(138) = "hDDDccCCCh.A..........__________!" <br />p$(139) = "ffCCff00Dh.B..........______KaE_!" <br />p$(140) = "hfDDff00hh.C..........______JKM_!" <br />p$(141) = "hhhhhf00fh.D..........__________!" <br />p$(142) = "f3333300hh.E..........______COL_!" <br />p$(143) = "hhheefDDhh.F..........__________!" <br /> <br /> <br />REM tablica serc <br />FOR xr = 0 TO 15 <br />FOR yr = 0 TO 8 <br />s = xr + yr * 16 <br />znak$ = MID$(p$(s), 23, 1) <br />IF znak$ <> "_" THEN serca(xr, yr) = 1 <br />NEXT yr: NEXT xr <br /> <br /> <br />END SUB <br /> <br />SUB rysowanie <br /> <br /> <br />FOR yw = 0 TO 9 <br />el$ = MID$(kod$, yw + 1, 1) <br />y16 = yw * 18 <br /> <br />REM tymczasowe sygnalizacje bledow: <br /> <br />IF el$ = "Q" OR el$ = "L" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "P" OR el$ = "W" OR el$ = "=" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "A" OR el$ = "B" OR el$ = "U" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "@" THEN COLOR 15: LINE (0, y16)-(200, y16) <br /> <br /> <br />REM elementy uzupelniajace <br /> <br />IF el$ = "C" THEN <br />PUT (128, y16), szaretlo4, PSET: PUT (192, y16), szaretlo4, PSET <br />PUT (256, y16), szaretlo4, PSET <br />PUT (0, y16), blok4, PSET: PUT (64, y16), blok2, PSET: <br />PUT (96, y16), bloks, PSET: PUT (112, y16), blokk, PSET <br />END IF <br /> <br />IF el$ = "D" THEN <br />PUT (0, y16), szaretlo4, PSET: PUT (64, y16), szaretlo4, PSET <br />PUT (128, y16), szaretlo4, PSET <br />PUT (192, y16), blokp, PSET: PUT (208, y16), blok4, PSET <br />PUT (272, y16), blok2, PSET: PUT (304, y16), bloks, PSET <br />END IF <br /> <br />REM czesc automatyczna, znaki a-h <br />ascii = ASC(el$) <br /> <br />IF ascii > 96 THEN <br />bity = ascii - 97 <br />PUT (0, y16), blok4, PSET: <br />pop1 = 0 <br />pop2 = 0 <br />pop3 = 0 <br /> <br />IF (bity AND 4) = 4 THEN PUT (64, y16), blok4, PSET: pop1 = 1 <br />IF (bity AND 4) = 0 THEN PUT (48, y16), blokk, PSET: PUT (64, y16), szaretlo4, PSET: pop1 = 0 <br />REM <br />IF (bity AND 2) = 2 THEN pop2 = 1: PUT (128, y16), blok4, PSET: IF pop1 = 0 THEN PUT (128, y16), blokp, PSET <br />IF (bity AND 2) = 0 THEN pop2 = 0: PUT (128, y16), szaretlo4, PSET: IF pop1 = 1 THEN PUT (112, y16), blokk, PSET <br />REM <br />IF (bity AND 1) = 1 THEN pop3 = 1: PUT (192, y16), blok4, PSET: IF pop2 = 0 THEN PUT (192, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN pop3 = 0: PUT (192, y16), szaretlo4, PSET: IF pop2 = 1 THEN PUT (176, y16), blokk, PSET <br />PUT (256, y16), blok4, PSET <br />IF pop3 = 0 THEN PUT (256, y16), blokp, PSET <br />END IF <br /> <br />REM znaki 0-3 <br /> <br />IF ascii < 58 THEN <br />bity = ascii - 48 <br />IF (bity AND 2) = 2 THEN PUT (0, y16), blokk, PSET <br />IF (bity AND 2) = 0 THEN PUT (0, y16), szaretlo, PSET <br />PUT (16, y16), szaretlo4, PSET <br />PUT (80, y16), szaretlo4, PSET <br />PUT (144, y16), szaretlo4, PSET <br />PUT (208, y16), szaretlo4, PSET <br />PUT (272, y16), szaretlo2, PSET <br /> <br />IF (bity AND 1) = 1 THEN PUT (304, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN PUT (304, y16), szaretlo, PSET <br />END IF <br /> <br /> <br />NEXT yw <br /> <br /> <br /> <br />REM rysowanie podestow <br /> <br />el$ = MID$(kod$, 14, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO dodatek <br /> <br />el2$ = MID$(kod$, 15, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "#" THEN PUT (0, yokna), ceg40, PSET <br />IF el$ = "W" THEN PUT (0, yokna), ceg4plus20plus4, PSET <br />IF el$ = "U" THEN PUT (0, yokna), ceg17plus17, PSET <br />IF el$ = "0" THEN PUT (0, yokna), ceg13plus13, PSET <br />IF el$ = "A" THEN FOR xx = 0 TO 4: PUT (16 + xx * 64, yokna), ceg2, PSET: NEXT xx <br />IF el$ = "B" THEN FOR xx = 0 TO 5: PUT (64 + xx * 32, yokna), ceg2, PSET: NEXT xx <br /> <br />REM dodatkowy element <br />dodatek: <br /> <br />el$ = MID$(kod$, 29, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO okna <br />el2$ = MID$(kod$, 30, 1) <br />xokna = (ASC(el2$) - 65) * 8 <br />el2$ = MID$(kod$, 31, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "A" THEN <br />PUT (xokna, yokna), blokp, PSET: <br />PUT (xokna, yokna + 18), blokp, PSET <br />PUT (xokna + 16, yokna), blok2, PSET: <br />PUT (xokna + 16, yokna + 18), blok2, PSET <br />PUT (xokna + 48, yokna), blokk, PSET: <br />PUT (xokna + 48, yokna + 18), blokk, PSET <br />END IF <br />IF el$ = "B" THEN COLOR 235: LINE (xokna + 5, yokna)-(xokna + 9, yokna + 35), , BF <br />IF el$ = "C" THEN PUT (xokna, yokna), ceg2, PSET: PUT (xokna + 32, yokna), ceg2, PSET: PUT (xokna + 64, yokna), ceg2, PSET <br />IF el$ = "D" THEN LINE (xokna, yokna)-(xokna + 22, yokna + 17), 235, BF: LINE (xokna + 42, yokna)-(xokna + 63, yokna + 17), 235, BF <br />IF el$ = "E" THEN LINE (xokna, yokna)-(xokna + 5, yokna + 35), 235, BF: LINE (xokna + 26, yokna + 36)-(xokna + 31, yokna + 72), 235, BF <br />IF el$ = "F" THEN PUT (xokna, yokna), nieb, PSET <br />IF el$ = "G" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna), nieb, PSET <br />IF el$ = "H" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna + 36), nieb, PSET <br />IF el$ = "I" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna - 36), nieb, PSET <br />IF el$ = "J" THEN PSET (xokna - 2, yokna), 199: DRAW "R18 D35 L18 U35 F18 U1 G18" <br />IF el$ = "K" THEN PSET (xokna - 2, yokna), 198: DRAW "R18 D35 L18 U35 R18 G18 U1 F18" <br />IF el$ = "L" THEN LINE (xokna, yokna)-(xokna + 15, yokna + 35), 255, BF <br />okna: <br /> <br />REM rysowanie okien <br /> <br />el$ = MID$(kod$, 17, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO serce <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 18, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />IF roomy < 2 THEN PUT (xokna, yokna), window2, PSET <br />IF roomy > 1 AND roomy < 5 THEN PUT (xokna, yokna), window1, PSET <br />IF roomy > 4 THEN PUT (xokna, yokna), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20 <br />yokna = -20 <br />IF serca(roomx, roomy) = 0 THEN GOTO donica <br />el$ = MID$(kod$, 23, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO donica <br />xserca = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 24, 1) <br />yserca = (ASC(el$) - 65) * 9 <br />GET (xserca, yserca)-(xserca + 15, yserca + 7), tlo <br />COLOR 5 <br />LINE (xserca, yserca + 1)-(xserca, yserca + 3) <br />LINE (xserca + 1, yserca)-(xserca + 1, yserca + 4) <br />LINE (xserca + 2, yserca)-(xserca + 2, yserca + 5) <br />LINE (xserca + 3, yserca + 1)-(xserca + 3, yserca + 6) <br />LINE (xserca + 4, yserca)-(xserca + 4, yserca + 5) <br />LINE (xserca + 5, yserca)-(xserca + 5, yserca + 4) <br />LINE (xserca + 6, yserca + 1)-(xserca + 6, yserca + 3) <br /> <br />donica: <br />el$ = MID$(kod$, 26, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO wentyl <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 27, 1) <br />yokna = (ASC(el$) - 65) * 9 + 2 <br />PUT (xokna, yokna), palma, PSET <br /> <br />wentyl: <br />el$ = MID$(kod$, 20, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO koniecrysowania <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 21, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />PUT (xokna, yokna), wentylator, PSET <br /> <br /> <br />koniecrysowania: <br /> <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br /> <br />END SUB <br /> <br />SUB zabranie <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 6000: NEXT i <br /> <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 6000: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 7:20, 19 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB zabranie () <br /> <br />REM Gra "Serca" UWAGA wersaj gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <br />DECLARE SUB dreptanie () <br />DECLARE SUB animacja () <br />DECLARE SUB rysowanie () <br />DECLARE SUB palety () <br />DECLARE SUB plansze () <br />DECLARE SUB cegly () <br /> <br />REM plansza startowa: <br />DIM SHARED roomx AS INTEGER, roomy AS INTEGER <br />roomx = 7: roomy = 4 <br /> <br />DIM SHARED kolor$(0 TO 255) <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED p$(0 TO 143) <br />DIM SHARED kod$ <br />DIM SHARED serca(0 TO 15, 0 TO 8) AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br /> <br />REM pamiec tla pod wziatek <br /> <br />DIM SHARED tlo(0 TO 32) AS LONG <br /> <br />REM tlo <br /> <br />DIM SHARED szaretlo(0 TO 74) AS LONG <br />DIM SHARED szaretlo2(0 TO 148) AS LONG <br />DIM SHARED szaretlo4(0 TO 300) AS LONG <br />REM dane elementow planszy <br /> <br />DIM SHARED ceg2(0 TO 75) AS LONG <br />DIM SHARED ceg40(0 TO 730) AS LONG <br />DIM SHARED ceg17plus17(0 TO 730) AS LONG <br />DIM SHARED ceg13plus13(0 TO 760) AS LONG <br />DIM SHARED ceg4plus20plus4(0 TO 750) AS LONG <br />DIM SHARED palma(0 TO 64) AS LONG <br />DIM SHARED nieb(0 TO 145) AS LONG <br /> <br />DIM SHARED blokp(0 TO 74) AS LONG <br />DIM SHARED bloks(0 TO 74) AS LONG <br />DIM SHARED blokk(0 TO 74) AS LONG <br />DIM SHARED blok2(0 TO 158) AS LONG <br />DIM SHARED blok4(0 TO 296) AS LONG <br /> <br />REM ****************** DANE ANIMACJI <br /> <br />DIM SHARED znakp1(0 TO 128) AS LONG <br />DIM SHARED znakl1(0 TO 128) AS LONG <br />DIM SHARED znakp2(0 TO 128) AS LONG <br />DIM SHARED znakl2(0 TO 128) AS LONG <br />DIM SHARED znakp3(0 TO 128) AS LONG <br />DIM SHARED znakl3(0 TO 128) AS LONG <br />DIM SHARED vertd1(0 TO 128) AS LONG <br /> <br />REM matryce okien <br /> <br />DIM SHARED window1(0 TO 160) AS LONG <br />DIM SHARED window2(0 TO 160) AS LONG <br />DIM SHARED window3(0 TO 160) AS LONG <br /> <br />DIM SHARED wentylator(0 TO 64) AS LONG <br /> <br />REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />REM PRINT FRE(-2): END <br />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 150: y = 35: xs = 150: ys = 35: REM wspolrzedne poczatkowe gracza na ekranie <br />licz = -1: REM wartosc startowa zegara <br />REM roomx = 3: roomy = 3 przeniesione wyzej <br />kolwent = 30 + 30 * 256 + 30 * 65536: REM kolor lopat wentylatora <br /> <br />REM ***** SUB palety - ustawienie nowych wartosci barw <br />palety <br /> <br />REM ***** SUB cegly - zapelnienie pozostalych tablic <br />cegly <br /> <br />REM SUB plansze - wypelnienie tablicy wygladu plansz <br />plansze <br /> <br />REM SUB animacja - tablice animacji postaci <br />REM animacja <br /> <br /> <br />REM ************************* WYBOR POMIESZCZENIA <br /> <br />rysuj: <br /> <br />kod$ = p$(roomx + roomy * 16) <br /> <br />REM ******************** rysowanie pomieszczenia <br />t0 = PEEK(1132): REM pomiar czasu rysowania <br /> <br /> <br />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />COLOR 235 <br />REM LOCATE 23, 1: FOR i = 1 TO 40: PRINT CHR$(223); : NEXT i <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <br /> <br />LOCATE 24, 2: COLOR 3: PRINT "T:"; t0; "/"; t1; FRE(-2); <br />PRINT " ROOM:"; roomx; "/"; roomy; "--"; <br /> <br /> <br />REM **************** zapamietanie pola pod graczem <br />GET (x, y)-(x + 15, y + 31), pamiec <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />REM PUT (x, y), vertd1, PSET <br />liczsercaroom = 0: zrobione = 0 <br />GOTO postaw <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <br />dx = 0: dy = 0 <br />IF dzwiekbrania = 1 THEN dzwiekbrania = 0: zabranie <br /> <br />REM ******************* czas gry w sekundach <br /> <br />se$ = MID$(TIME$, 7, 2) <br />se = VAL(se$) <br />IF se <> ses THEN licz = licz + 1 <br />ses = se <br />LOCATE 25, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br />FOR delay = 1 TO 700: NEXT delay <br /> <br />REM faza wentylatora <br /> <br />komorka = PEEK(1132) / 1.5 <br />faz = INT(komorka) <br />IF faz / 3 = INT(faz / 3) THEN faza = 0 <br />IF (faz + 1) / 3 = INT((faz + 1) / 3) THEN faza = 1 <br />IF (faz + 2) / 3 = INT((faz + 2) / 3) THEN faza = 2 <br />FOR i = 0 TO 2: i16 = i * 16 <br />IF faza = 0 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, 0 <br />IF faza = 1 THEN PALETTE 11 + i16, 0: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, kolwent <br />IF faza = 2 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, 0: PALETTE 13 + i16, kolwent <br />NEXT i <br /> <br />REM ************************ sprawdzenie klawiszy <br /> <br />alt = 0: lshift = 0: pshift = 0: skos = 0 <br /> <br />k$ = INKEY$ <br />IF k$ = "f" THEN roomx = roomx - 1: GOTO rysuj <br />IF k$ = "h" THEN roomx = roomx + 1: GOTO rysuj <br />IF k$ = "t" THEN roomy = roomy - 1: GOTO rysuj <br />IF k$ = "b" THEN roomy = roomy + 1: GOTO rysuj <br /> <br />IF k$ = CHR$(27) THEN END <br /> <br />REM klawisz alt - wznoszenie sie <br />IF (PEEK(1047) AND 8) = 8 THEN alt = 1 <br />IF (PEEK(1047) AND 2) = 2 THEN lshift = 1 <br />IF (PEEK(1047) AND 1) = 1 THEN pshift = 1 <br /> <br />REM bezruch = grawitacja <br />IF lshift = 0 AND pshift = 0 AND alt = 0 THEN dy = 2: vert = 1: obrot = 0: przebiervert = 0: GOTO czy <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br /> <br />IF lshift = 1 THEN dx = -4: dy = 2: obrot = -1: vert = 0 <br />IF pshift = 1 THEN dx = 4: dy = 2: obrot = 1: vert = 0 <br />IF alt = 1 THEN dy = -4: vert = 1 <br />IF dx <> 0 AND dy <> 0 THEN skos = 1 <br />czy: <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br /> <br />IF x + dx > 300 THEN x = 5: xs = 5: roomx = roomx + 1: GOTO rysuj <br />IF x + dx < 3 THEN x = 300: xs = 300: roomx = roomx - 1: GOTO rysuj <br />IF y + dy > 144 THEN y = 5: ys = 5: roomy = roomy + 1: GOTO rysuj <br />IF y + dy < 4 THEN y = 145: ys = 145: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br />REM sprawdzenie przeszkody. Przeszkoda sa kolory > 200 <br /> <br />xmozliwy = 0: xniemozliwy = 0 <br />ymozliwy = 0: yniemozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa obok <br /> <br />IF dx > 0 THEN <br />FOR i = 0 TO 31: IF POINT(x + 19, y + i) > 200 OR POINT(x + 19, y + i) = 198 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br /> <br />IF dx < 0 THEN <br />FOR i = 0 TO 31: IF POINT(x - 3, y + i) > 200 OR POINT(x - 3, y + i) = 199 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF xniemozliwy = 0 THEN xmozliwy = 1 <br />IF xniemozliwy = 1 THEN xmozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa gora dol <br /> <br />IF dy > 0 THEN <br />FOR i = 0 TO 15: <br />IF POINT(x + i, y + 32) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y + 33) > 200 THEN yniemozliwy = 1: EXIT FOR <br /> <br />NEXT i <br />END IF <br /> <br />IF dy < 0 THEN <br />FOR i = 0 TO 15 <br />IF POINT(x + i, y - 4) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y - 5) > 200 THEN yniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF yniemozliwy = 0 THEN ymozliwy = 1 <br />IF yniemozliwy = 1 THEN ymozliwy = 0 <br /> <br />REM ruch gdy oba mozliwe x oraz y <br />IF ymozliwy = 1 AND xmozliwy = 1 THEN IF dx <> 0 OR dy <> 0 THEN GOTO ruch <br /> <br /> <br />REM szczegolne przypadki gdy tylko x albo y mozliwy <br />IF ymozliwy = 0 AND xmozliwy = 1 THEN dy = 0: GOTO czy <br />IF ymozliwy = 1 AND xmozliwy = 0 THEN dx = 0: GOTO czy <br /> <br /> <br />REM ruch niemozliwy powrot petli glownej bez zmian pozostaja x y <br /> <br /> <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** RUCH <br /> <br />ruch: <br /> <br />x = x + dx: y = y + dy <br />IF dy = 0 AND przebieranie = 0 AND alt = 0 THEN dreptanie: REM dzwiek chodzenia <br /> <br />REM ******************** czy jest wziatek <br />deltawx = ABS(x + 4 - xserca) <br />deltawy = ABS(y + 16 - yserca) <br />IF deltawx < 10 AND deltawy < 22 THEN GOSUB wziatek <br /> <br />REM ************************************** operacja odswiezania tla <br />postaw: <br />REM punkt 1 zapamietanie nowego pola dzialania (brudnego) <br />REM w oparciu o nowe x,y <br /> <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />REM************ 2 odnowienie pola dzialania uwzgledniajac dawne tlo <br /> <br />deltax = x - xs: deltay = y - ys <br />inversx = -1 * deltax: inversy = -1 * deltay <br />inver4 = INT(inversx / 4) <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = (yt + inversy) * 6 <br />FOR xt = 0 TO 3 <br />index1 = 1 + (yt6 + 24) + (xt + inver4) + 1 <br />index2 = 1 + yt4 + xt <br />poledzialania(index1) = pamiec(index2) <br />NEXT xt: NEXT yt <br /> <br />REM zmazanie serca z pola dzialania <br /> <br />IF liczsercaroom = 1 AND zrobione = 0 THEN <br />zrobione = 1 <br />PUT (x - 4, y - 4), poledzialania, PSET <br />PUT (xserca, yserca), tlo, PSET <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />END IF <br /> <br />REM nowa mala pamiec <br /> <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = yt * 6 <br />FOR xt = 0 TO 3: <br />index1 = 1 + (yt6 + 24) + (xt + 1): <br />index2 = 1 + yt4 + xt: <br />pamiec(index2) = poledzialania(index1): NEXT xt: NEXT yt <br /> <br /> <br />REM ************* rysowanie nowej postaci WEDLUG FAZY RUCHU <br /> <br />REM aby nie rysowac dwoch postaci w przypadku skosu <br />IF skos = 1 THEN GOTO bezskosu: <br /> <br />REM ************************** ruch w dol lub gore <br /> <br />IF vert = 1 THEN wkleic = 7: GOTO wklej <br />bezskosu: <br />REM ************************** ruch w lewo <br /> <br />IF obrot = -1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 1: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 2: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 3: GOTO wklej <br />END IF <br /> <br />REM ****************** ruch w prawo <br /> <br />IF obrot = 1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br /> <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 4: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 5: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 6: GOTO wklej <br />END IF <br /> <br />xs = x: ys = y <br /> <br />GOTO petla <br /> <br />wklej: <br /> <br />IF wkleic = 1 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 2 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 3 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 4 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 5 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 6 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 7 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR vertd1(index2)): NEXT xt: NEXT yt <br /> <br />REM wklejenie wyniku operacji na tablicy: <br />PUT (x - 4, y - 4), poledzialania, PSET <br /> <br />xs = x: ys = y <br />GOTO petla <br /> <br />REM GOSUB-RETURN****************************** obsluga wziatku <br /> <br />wziatek: <br />IF serca(roomx, roomy) = 0 THEN GOTO niemawziatku <br />IF liczsercaroom = 1 THEN GOTO niemawziatku <br />serca(roomx, roomy) = 0 <br />liczserca = liczserca + 1 <br />PUT (xserca, yserca), tlo, PSET <br /> <br />liczsercaroom = 1 <br />dzwiekbrania = 1 <br /> <br />LOCATE 1, 1: COLOR 6: PRINT liczserca; <br />niemawziatku: <br />RETURN <br /> <br />SUB animacja <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br />REM ten SUB jest do skasowania <br /> <br />END SUB <br /> <br />SUB cegly <br /> <br />BLOAD "bitmap1.scr" <br /> <br />REM INPUT a$ <br />REM pobranie z ekranu tablic elementow <br />REM uwaga! wysokosc elementu to 9 lub 18 px <br /> <br />GET (0, 0)-(31, 8), ceg2 <br />GET (0, 0)-(319, 8), ceg40 <br />GET (0, 9)-(319, 17), ceg17plus17 <br />GET (0, 18)-(319, 26), ceg13plus13 <br />GET (0, 27)-(319, 35), ceg4plus20plus4 <br />GET (0, 36)-(15, 53), szaretlo <br />GET (0, 36)-(31, 53), szaretlo2 <br />GET (0, 36)-(63, 53), szaretlo4: REM 36+18=46+8=54 <br /> <br />GET (16, 64)-(31, 79), palma <br />GET (32, 64)-(47, 81), blokp <br />GET (48, 64)-(63, 81), bloks <br />GET (64, 64)-(79, 81), blokk <br />GET (0, 156)-(31, 173), blok2 <br />GET (0, 156)-(63, 173), blok4 <br />GET (80, 64)-(111, 81), nieb <br /> <br /> <br />GET (0, 88)-(15, 119), znakl1 <br />GET (16, 88)-(31, 119), znakp1 <br />GET (32, 88)-(47, 119), znakl2 <br />GET (48, 88)-(63, 119), znakp2 <br />GET (64, 88)-(79, 119), znakl3 <br />GET (80, 88)-(95, 119), znakp3 <br />GET (96, 88)-(111, 119), vertd1 <br /> <br />GET (0, 120)-(31, 139), window1 <br />GET (32, 120)-(63, 139), window2 <br />GET (64, 120)-(95, 139), window3 <br />GET (0, 140)-(15, 155), wentylator <br />CLS <br />END SUB <br /> <br />SUB dreptanie <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />REM ewentualnie: <br />REM OUT 66, 30: OUT 66, 0 <br />REM OUT 66, 164: OUT 66, 2 <br />REM OUT 66, 130: OUT 66, 1 <br />REM OUT 66, 74: OUT 66, 0 <br />REM OUT 66, 220: OUT 66, 1 <br /> <br />FOR i = 1 TO 10 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 84: OUT 66, 2 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 94: OUT 66, 2 <br />OUT 66, 10: OUT 66, 0 <br />OUT 66, 40: OUT 66, 2 <br />OUT 66, 84: OUT 66, 0 <br />OUT 66, 10: OUT 66, 2 <br /> <br /> <br />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 05 05 06": REM tlo plyta <br />kolor$(2) = "02 02 03 02": REM tlo fuga <br />kolor$(3) = "03 07 06 06": REM tlo krawedz <br />kolor$(4) = "04 00 22 00": REM liscie <br />kolor$(5) = "05 3F 08 00": REM serce <br />kolor$(6) = "06 30 30 30": REM framuga okna <br />kolor$(7) = "07 28 0A 00": REM doniczka drzewa <br />kolor$(8) = "08 00 21 39": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 14 14 14": REM framuga zewnetrzna <br />kolor$(11) = "0B 00 00 00": REM wentylator faza 1 <br />kolor$(12) = "0C 00 00 00": REM wentylator faza 2 <br />kolor$(13) = "0D 00 00 00": REM wentylator faza 3 <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />kolor$(16) = "10 18 02 02": REM sweter + zero <br />kolor$(17) = "11 18 02 02": REM <br />kolor$(18) = "12 18 02 02": REM <br />kolor$(19) = "13 18 02 02": REM <br />kolor$(20) = "14 22 12 00": REM sweter + liscie <br />kolor$(21) = "15 3F 00 00": REM <br />kolor$(22) = "16 2F 09 09": REM sweter + framuga okna <br />kolor$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />kolor$(24) = "18 25 16 24": REM sweter + niebo <br />kolor$(25) = "19 3F 3F 3F": REM sweter + slonce <br />kolor$(26) = "1A 16 0F 0F": REM sweter + framuga zew <br />kolor$(27) = "1B 3F 3F 3F": REM <br />kolor$(28) = "1C 3F 3F 3F": REM <br />kolor$(29) = "1D 3F 3F 3F": REM <br />kolor$(30) = "1E 3F 3F 3F": REM <br />REM kolor 31 1F zastrzezony dla gracza <br />kolor$(32) = "20 0A 13 29": REM spodnie + zero <br />kolor$(33) = "21 0A 13 29": REM <br />kolor$(34) = "22 0A 13 29": REM <br />kolor$(35) = "23 0A 13 29": REM <br />kolor$(36) = "24 05 1D 24": REM spodnie+ liscie <br />kolor$(37) = "25 3F 3F 3F": REM <br />kolor$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />kolor$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />kolor$(40) = "28 00 1A 3F": REM spodnie + niebo <br />kolor$(41) = "29 3F 3F 3F": REM spodnie +slonce <br />kolor$(42) = "2A 10 14 20": REM spodnie + framuga zew <br />kolor$(43) = "2B 3F 3F 3F": REM <br />kolor$(44) = "2C 3F 3F 3F": REM <br />kolor$(45) = "2D 3F 3F 3F": REM <br />kolor$(46) = "2E 3F 3F 3F": REM <br />REM rejestr 47 2F zastrzezony dla gracza <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br />REM rejestry nieprzezroczyste <br /> <br />kolor$(31) = "1F 2F 09 09": REM sweter <br />kolor$(47) = "2F 0D 1A 37": REM spodnie <br />kolor$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 30 20": REM skora1 <br />kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 32 22 02": REM nos <br />kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 22 02 02": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 24 24": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male niebieskie <br /> <br />kolor$(249) = "F9 22 27 30": REM krawedz <br />kolor$(250) = "FA 09 0E 14": REM fuga <br />kolor$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br /> <br /> <br /> <br />END SUB <br /> <br />SUB plansze <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** roomy*16+roomx <br /> <br />REM kody plansz +++nr.po.ok.we.se_kw_dod <br />REM ************ plansze wiersza roomy=0 <br /> <br />p$(0) = "h22233322d.0.UI.YO....GN_______" <br />p$(1) = "h000fff11h.1....MD...._________" <br />p$(2) = "h11133333f.2.UI.HE....___EQ____" <br />p$(3) = "hh2223cchh.3..........SJ_______" <br />p$(4) = "h300033fff.4....ZK...._________" <br />p$(5) = "h2001c333f.5....LG....______AQG" <br />p$(6) = "h111g3222f.6....LD....___EQ____" <br />p$(7) = "hh222d111g.7.BE....DF.aH_WI____" <br />p$(8) = "hhDDDfCCCg.8..........__________!" <br />p$(9) = "hhCCCf111c.9..........__________!" <br />p$(10) = "hhDDDf222g.A..........GG_EQ_____!" <br />p$(11) = "hh333f111d.B....HG....__________!" <br />p$(12) = "hhffff333g.C..........__________!" <br />p$(13) = "h22233333c.D.UN.aK.DF.MK____AYC_!" <br />p$(14) = "h111ff22hh.E..........___aG_BLM_!" <br />p$(15) = "h3333311cc.F....ZK....aH____AIG_!" <br /> <br /> <br />REM ************ plansze wiersza roomy=1 <br /> <br />p$(16) = "d333c2223h.0.......FN._________" <br />p$(17) = "h33330003h.1.WH.YO....RN_______" <br />p$(18) = "ff333111ff.2.WJ.ML...._________" <br />p$(19) = "hc222c333c.3..........___QQ____" <br />p$(20) = "f31113333h.4.UM.aI.aO._________" <br />p$(21) = "f333aa333h.5..........RN_GQ____" <br />p$(22) = "ffff333fff.6....DJ....aM_______" <br />p$(23) = "gg333a33ff.7.........._________" <br />p$(24) = "gg333333ff.8.AK....IF._________" <br />p$(25) = "cccc33cccc.9..........SJ_______" <br />p$(26) = "gg33dd33ff.A....LF....aO_______" <br />p$(27) = "ddaa22cccc.B.........._________" <br />p$(28) = "g33300333h.C.AM....aO._________" <br />p$(29) = "c33311333c.D.0M.......ZK____AQO" <br />p$(30) = "h3322233dd.E.......aF._________" <br />p$(31) = "c33111333h.F.AM.bD....___QQ____" <br /> <br /> <br />REM ************* plansze wiersza roomy=2 <br /> <br />p$(32) = "h333ff333c.0..........KE_WQ___" <br />p$(33) = "h333c2222c.1....MD....UP______" <br />p$(34) = "faaaa0000h.2....WO.VI.________" <br />p$(35) = "ccccc1111f.3....MM....___EQ____" <br />p$(36) = "h33333c333.4.WO.NP....SM_______" <br />p$(37) = "haa33222af.5.UJ....GL._________" <br />p$(38) = "f333c111ah.6....aM....UP_______" <br />p$(39) = "ff333d333g.7....YP....___KQ____" <br />p$(40) = "ff3333333g.8.#I.......KM_______" <br />p$(41) = "c33g33d33c.9..........__________!" <br />p$(42) = "ff3333333g.A.WM.LI....__________!" <br />p$(43) = "cc333322cc.B.UJ.......__________!" <br />p$(44) = "hhaacc00hh.C.......JG.ZM____AQM_!" <br />p$(45) = "c333cc11gg.D....aN....______AQM_!" <br />p$(46) = "dd33cc22hh.E..........______AQE_!" <br />p$(47) = "hh3331113c.F.UK....VI.___EQ_____!" <br /> <br />REM ************ plansze wiersza roomy=3 <br /> <br />p$(48) = "c333c2222f.0....ZM.ZD.SF________!" <br />p$(49) = "ccccc1111h.1..........________" <br />p$(50) = "ha3222333c.2.#F.LO....UO_SQ___" <br />p$(51) = "ff3111333f.3.WM.YI.VI.SJ_GQ___" <br />p$(52) = "h3333c333f.4..........NG______" <br />p$(53) = "ff333c222f.5....ZO....SG________!" <br />p$(54) = "hhaaff000f.6..........___KQ___" <br />p$(55) = "gggg33111f.7....LO.VJ.________" <br />p$(56) = "gg3322ffff.8..........GG______" <br />p$(57) = "cccc00hfff.9..........________" <br />p$(58) = "gg33DDffff.A..........___KK___" <br />p$(59) = "cccccfffff.B.......TL.__________!" <br />p$(60) = "hh3333333f.C....KK....DP________!" <br />p$(61) = "g333333hhh.D.UJ....TF.__________!" <br />p$(62) = "hh3222333f.E..........___GQ___" <br />p$(63) = "c331113hhh.F....ZK....________" <br /> <br />REM ****************** plansze wiersza roomy=4 <br /> <br />p$(64) = "f22322322h.0....DD....SP_YQ___" <br />p$(65) = "h00f00f00h.1..........________" <br />p$(66) = "c11311311f.2....aP.KP.__________!" <br />p$(67) = "ff3332223h.3.UJ.ML....___YQ_____!" <br />p$(68) = "f3333111hh.4.WJ.YL....__________!" <br />p$(69) = "ffaafaaaff.5.......VI.__________!" <br />p$(70) = "ffa333c33h.6....OG....SQ_YQ_____!" <br />p$(71) = "ff2233c33d.7....aO....______KVO_!": REM startowa <br />p$(72) = "ff113c333d.8..........aO________!" <br />p$(73) = "ff33cc33ff.9..........__________!" <br />p$(74) = "ff3322333d.A.WM.LI.ZP.PP________!" <br />p$(75) = "ff22DD333f.B.UM.......___EQ_____!" <br />p$(76) = "ff11333hhh.C.......KH.__________!" <br />p$(77) = "h333333333.D....SK....bF________!" <br />p$(78) = "ff22233hhh.E.UJ.......__________!" <br />p$(79) = "h311133fff.F.WJ.......MM________!" <br /> <br />REM ******************* plansze wiersza roomy=5 <br /> <br />p$(80) = "haf222faff.0.......VI.___KK_____!" <br />p$(81) = "hhf111222h.1..........SP________!" <br />p$(82) = "fa333c000h.2....GO....__________!" <br />p$(83) = "h222fa111f.3..........___YQ___" <br />p$(84) = "h111c2223h.4.0Q....EE.MM______" <br />p$(85) = "ffffa111ff.5..........________" <br />p$(86) = "h333c333af.6....DD....ZF_MQ___" <br />p$(87) = "dd333f333g.7.......VI.___aI___" <br />p$(88) = "dd3333333g.8.UK.KO....________" <br />p$(89) = "f32233f33f.9.......ED.KK______" <br />p$(90) = "ddDDCC333g.A....ZK....KO______" <br />p$(91) = "f33300f33f.B..........________" <br />p$(92) = "h33300333c.C....NN....________" <br />p$(93) = "333311333h.D.0M....TG.GG______" <br />p$(94) = "h33222333c.E.AM.......________" <br />p$(95) = "ff3111333h.F.WM.FF....___YQ___" <br /> <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />p$(96) = "fffa222hhh.0....EJ....___YM_____!" <br />p$(97) = "hhhf000bbb.1....SJ....ML________!" <br />p$(98) = "h222111hhh.2..........___KM_____!" <br />p$(99) = "f111aaafff.3....PH....ZJ________!" <br />p$(100) = "h222ahhhhh.4..........EE________!" <br />p$(101) = "f11133222h.5.0I.......___GQ_____!" <br />p$(102) = "ffffff000h.6....LO....__________!" <br />p$(103) = "gg333d111f.7....MO....aP________!" <br />p$(104) = "gg333hCCCh.8.......ZN.KH________!" <br />p$(105) = "ffffffDDDh.9..........__________!" <br />p$(106) = "gg333fCCCh.A..........___KI_____!" <br />p$(107) = "ff3333111h.B.0I....KK.aP________!" <br />p$(108) = "cc22dd22ff.C..........__________!" <br />p$(109) = "hhDDffDDhh.D.......TJ.LN________!" <br />p$(110) = "ccc2222hhh.E..........__________!" <br />p$(111) = "hhhDDDDhhh.F..........TK_KM_____!" <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />p$(112) = "hffa222hhh.0..........__________!" <br />p$(113) = "bbbb000hhh.1....KK....__________!" <br />p$(114) = "h222111fff.2.BJ.......ZE____AIK_!" <br />p$(115) = "f000aaahhh.3..........___KM_____!" <br />p$(116) = "h000ahhhhh.4.......KF.__________!" <br />p$(117) = "h111hh222h.5..........KQ________!" <br />p$(118) = "hfffff000f.6....KO....__________!" <br />p$(119) = "fffeee000h.7..........___KQ_____!" <br />p$(120) = "hh3333000h.8.BL.......__________!" <br />p$(121) = "hCCCffDDDh.9..........KO________!" <br />p$(122) = "hDDDccCCCh.A..........___MK_____!" <br />p$(123) = "hf333300Df.B.AL.......__________!" <br />p$(124) = "ffffff00hh.C....KN....__________!" <br />p$(125) = "hhhhhf00fh.D.......TK.__________!" <br />p$(126) = "h33c3300ff.E..........KK________!" <br />p$(127) = "hhheefDDhh.F....KN....__________!" <br /> <br />REM ******************* plansze wiersza roomy=8 <br /> <br />p$(128) = "hffa222hhh.0..........__________!" <br />p$(129) = "hbbb000hhh.1..........__________!" <br />p$(130) = "f222111hhh.2..........__________!" <br />p$(131) = "h000aaahhh.3..........______COI_!" <br />p$(132) = "h000ahhhhh.4..........__________!" <br />p$(133) = "h111hh222h.5..........__________!" <br />p$(134) = "ffffff000h.6..........______DQK_!" <br />p$(135) = "hhhhha000h.7..........______ESK_!" <br />p$(136) = "hh3333000h.8..........______CKK_!" <br />p$(137) = "hCCCffDDDh.9..........__________!" <br />p$(138) = "hDDDccCCCh.A..........__________!" <br />p$(139) = "ff333300Dh.B..........__________!" <br />p$(140) = "hfffff00hh.C..........__________!" <br />p$(141) = "hhhhhf00fh.D..........__________!" <br />p$(142) = "f3333300hh.E..........______COL_!" <br />p$(143) = "hhheefDDhh.F..........__________!" <br /> <br /> <br />REM tablica serc <br />FOR xr = 0 TO 15 <br />FOR yr = 0 TO 8 <br />s = xr + yr * 16 <br />znak$ = MID$(p$(s), 23, 1) <br />IF znak$ <> "_" THEN serca(xr, yr) = 1 <br />NEXT yr: NEXT xr <br /> <br /> <br />END SUB <br /> <br />SUB rysowanie <br /> <br /> <br />FOR yw = 0 TO 9 <br />el$ = MID$(kod$, yw + 1, 1) <br />y16 = yw * 18 <br /> <br />REM tymczasowe sygnalizacje bledow: <br /> <br />IF el$ = "Q" OR el$ = "L" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "P" OR el$ = "W" OR el$ = "=" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "A" OR el$ = "B" OR el$ = "U" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "@" THEN COLOR 15: LINE (0, y16)-(200, y16) <br /> <br /> <br />REM elementy uzupelniajace <br /> <br />IF el$ = "C" THEN <br />PUT (128, y16), szaretlo4, PSET: PUT (192, y16), szaretlo4, PSET <br />PUT (256, y16), szaretlo4, PSET <br />PUT (0, y16), blok4, PSET: PUT (64, y16), blok2, PSET: <br />PUT (96, y16), bloks, PSET: PUT (112, y16), blokk, PSET <br />END IF <br /> <br />IF el$ = "D" THEN <br />PUT (0, y16), szaretlo4, PSET: PUT (64, y16), szaretlo4, PSET <br />PUT (128, y16), szaretlo4, PSET <br />PUT (192, y16), blokp, PSET: PUT (208, y16), blok4, PSET <br />PUT (272, y16), blok2, PSET: PUT (304, y16), bloks, PSET <br />END IF <br /> <br />REM czesc automatyczna, znaki a-h <br />ascii = ASC(el$) <br /> <br />IF ascii > 96 THEN <br />bity = ascii - 97 <br />PUT (0, y16), blok4, PSET: <br />pop1 = 0 <br />pop2 = 0 <br />pop3 = 0 <br /> <br />IF (bity AND 4) = 4 THEN PUT (64, y16), blok4, PSET: pop1 = 1 <br />IF (bity AND 4) = 0 THEN PUT (48, y16), blokk, PSET: PUT (64, y16), szaretlo4, PSET: pop1 = 0 <br />REM <br />IF (bity AND 2) = 2 THEN pop2 = 1: PUT (128, y16), blok4, PSET: IF pop1 = 0 THEN PUT (128, y16), blokp, PSET <br />IF (bity AND 2) = 0 THEN pop2 = 0: PUT (128, y16), szaretlo4, PSET: IF pop1 = 1 THEN PUT (112, y16), blokk, PSET <br />REM <br />IF (bity AND 1) = 1 THEN pop3 = 1: PUT (192, y16), blok4, PSET: IF pop2 = 0 THEN PUT (192, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN pop3 = 0: PUT (192, y16), szaretlo4, PSET: IF pop2 = 1 THEN PUT (176, y16), blokk, PSET <br />PUT (256, y16), blok4, PSET <br />IF pop3 = 0 THEN PUT (256, y16), blokp, PSET <br />END IF <br /> <br />REM znaki 0-3 <br /> <br />IF ascii < 58 THEN <br />bity = ascii - 48 <br />IF (bity AND 2) = 2 THEN PUT (0, y16), blokk, PSET <br />IF (bity AND 2) = 0 THEN PUT (0, y16), szaretlo, PSET <br />PUT (16, y16), szaretlo4, PSET <br />PUT (80, y16), szaretlo4, PSET <br />PUT (144, y16), szaretlo4, PSET <br />PUT (208, y16), szaretlo4, PSET <br />PUT (272, y16), szaretlo2, PSET <br /> <br />IF (bity AND 1) = 1 THEN PUT (304, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN PUT (304, y16), szaretlo, PSET <br />END IF <br /> <br /> <br />NEXT yw <br /> <br /> <br /> <br />REM rysowanie podestow <br /> <br />el$ = MID$(kod$, 14, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO dodatek <br /> <br />el2$ = MID$(kod$, 15, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "#" THEN PUT (0, yokna), ceg40, PSET <br />IF el$ = "W" THEN PUT (0, yokna), ceg4plus20plus4, PSET <br />IF el$ = "U" THEN PUT (0, yokna), ceg17plus17, PSET <br />IF el$ = "0" THEN PUT (0, yokna), ceg13plus13, PSET <br />IF el$ = "A" THEN FOR xx = 0 TO 4: PUT (16 + xx * 64, yokna), ceg2, PSET: NEXT xx <br />IF el$ = "B" THEN FOR xx = 0 TO 5: PUT (64 + xx * 32, yokna), ceg2, PSET: NEXT xx <br /> <br />REM dodatkowy element <br />dodatek: <br /> <br />el$ = MID$(kod$, 29, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO okna <br />el2$ = MID$(kod$, 30, 1) <br />xokna = (ASC(el2$) - 65) * 8 <br />el2$ = MID$(kod$, 31, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "A" THEN <br />PUT (xokna, yokna), blokp, PSET: <br />PUT (xokna, yokna + 18), blokp, PSET <br />PUT (xokna + 16, yokna), blok2, PSET: <br />PUT (xokna + 16, yokna + 18), blok2, PSET <br />PUT (xokna + 48, yokna), blokk, PSET: <br />PUT (xokna + 48, yokna + 18), blokk, PSET <br />END IF <br />IF el$ = "B" THEN COLOR 235: LINE (xokna + 5, yokna)-(xokna + 9, yokna + 35), , BF <br />IF el$ = "C" THEN PUT (xokna, yokna), ceg2, PSET: PUT (xokna + 32, yokna), ceg2, PSET: PUT (xokna + 64, yokna), ceg2, PSET <br />IF el$ = "D" THEN LINE (xokna, yokna)-(xokna + 22, yokna + 17), 235, BF: LINE (xokna + 42, yokna)-(xokna + 63, yokna + 17), 235, BF <br />IF el$ = "E" THEN LINE (xokna, yokna)-(xokna + 5, yokna + 35), 235, BF: LINE (xokna + 26, yokna + 36)-(xokna + 31, yokna + 72), 235, BF <br />IF el$ = "F" THEN PUT (xokna, yokna), nieb, PSET <br />IF el$ = "G" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna), nieb, PSET <br />IF el$ = "H" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna + 36), nieb, PSET <br />IF el$ = "I" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna - 36), nieb, PSET <br />IF el$ = "J" THEN <br />LINE (xokna - 1, yokna)-(xokna + 16, yokna + 35), 199, BF <br />PSET (xokna - 2, yokna), 10: DRAW "R18 D35 L18 U35 F18 U1 G18" <br />END IF <br />IF el$ = "K" THEN <br />LINE (xokna - 1, yokna)-(xokna + 16, yokna + 35), 198, BF <br />PSET (xokna - 2, yokna), 10: DRAW "R18 D35 L18 U35 R18 G18 U1 F18" <br />END IF <br /> <br />okna: <br /> <br />REM rysowanie okien <br /> <br />el$ = MID$(kod$, 17, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO serce <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 18, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />IF roomy < 2 THEN PUT (xokna, yokna), window2, PSET <br />IF roomy > 1 AND roomy < 5 THEN PUT (xokna, yokna), window1, PSET <br />IF roomy > 4 THEN PUT (xokna, yokna), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20 <br />yokna = -20 <br />IF serca(roomx, roomy) = 0 THEN GOTO donica <br />el$ = MID$(kod$, 23, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO donica <br />xserca = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 24, 1) <br />yserca = (ASC(el$) - 65) * 9 <br />GET (xserca, yserca)-(xserca + 15, yserca + 7), tlo <br />COLOR 5 <br />LINE (xserca, yserca + 1)-(xserca, yserca + 3) <br />LINE (xserca + 1, yserca)-(xserca + 1, yserca + 4) <br />LINE (xserca + 2, yserca)-(xserca + 2, yserca + 5) <br />LINE (xserca + 3, yserca + 1)-(xserca + 3, yserca + 6) <br />LINE (xserca + 4, yserca)-(xserca + 4, yserca + 5) <br />LINE (xserca + 5, yserca)-(xserca + 5, yserca + 4) <br />LINE (xserca + 6, yserca + 1)-(xserca + 6, yserca + 3) <br /> <br />donica: <br />el$ = MID$(kod$, 26, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO wentyl <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 27, 1) <br />yokna = (ASC(el$) - 65) * 9 + 2 <br />PUT (xokna, yokna), palma, PSET <br /> <br />wentyl: <br />el$ = MID$(kod$, 20, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO koniecrysowania <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 21, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />PUT (xokna, yokna), wentylator, PSET <br /> <br /> <br />koniecrysowania: <br /> <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br /> <br />END SUB <br /> <br />SUB zabranie <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 6000: NEXT i <br /> <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 6000: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 21:48, 18 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB zabranie () <br /> <br />REM Gra "Serca" UWAGA wersaj gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <br />DECLARE SUB dreptanie () <br />DECLARE SUB animacja () <br />DECLARE SUB rysowanie () <br />DECLARE SUB palety () <br />DECLARE SUB plansze () <br />DECLARE SUB cegly () <br /> <br />REM plansza startowa: <br />DIM SHARED roomx AS INTEGER, roomy AS INTEGER <br />roomx = 7: roomy = 4 <br /> <br />DIM SHARED kolor$(0 TO 255) <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED p$(0 TO 143) <br />DIM SHARED kod$ <br />DIM SHARED serca(0 TO 15, 0 TO 8) AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br /> <br />REM pamiec tla pod wziatek <br /> <br />DIM SHARED tlo(0 TO 32) AS LONG <br /> <br />REM tlo <br /> <br />DIM SHARED szaretlo(0 TO 74) AS LONG <br />DIM SHARED szaretlo2(0 TO 148) AS LONG <br />DIM SHARED szaretlo4(0 TO 300) AS LONG <br />REM dane elementow planszy <br /> <br />DIM SHARED ceg2(0 TO 75) AS LONG <br />DIM SHARED ceg40(0 TO 730) AS LONG <br />DIM SHARED ceg17plus17(0 TO 730) AS LONG <br />DIM SHARED ceg13plus13(0 TO 760) AS LONG <br />DIM SHARED ceg4plus20plus4(0 TO 750) AS LONG <br />DIM SHARED palma(0 TO 64) AS LONG <br />DIM SHARED nieb(0 TO 145) AS LONG <br /> <br />DIM SHARED blokp(0 TO 74) AS LONG <br />DIM SHARED bloks(0 TO 74) AS LONG <br />DIM SHARED blokk(0 TO 74) AS LONG <br />DIM SHARED blok2(0 TO 158) AS LONG <br />DIM SHARED blok4(0 TO 296) AS LONG <br /> <br />REM ****************** DANE ANIMACJI <br /> <br />DIM SHARED znakp1(0 TO 128) AS LONG <br />DIM SHARED znakl1(0 TO 128) AS LONG <br />DIM SHARED znakp2(0 TO 128) AS LONG <br />DIM SHARED znakl2(0 TO 128) AS LONG <br />DIM SHARED znakp3(0 TO 128) AS LONG <br />DIM SHARED znakl3(0 TO 128) AS LONG <br />DIM SHARED vertd1(0 TO 128) AS LONG <br /> <br />REM matryce okien <br /> <br />DIM SHARED window1(0 TO 160) AS LONG <br />DIM SHARED window2(0 TO 160) AS LONG <br />DIM SHARED window3(0 TO 160) AS LONG <br /> <br />DIM SHARED wentylator(0 TO 64) AS LONG <br /> <br />REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />REM PRINT FRE(-2): END <br />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 150: y = 35: xs = 150: ys = 35: REM wspolrzedne poczatkowe gracza na ekranie <br />licz = -1: REM wartosc startowa zegara <br />REM roomx = 3: roomy = 3 przeniesione wyzej <br />kolwent = 30 + 30 * 256 + 30 * 65536: REM kolor lopat wentylatora <br /> <br />REM ***** SUB palety - ustawienie nowych wartosci barw <br />palety <br /> <br />REM ***** SUB cegly - zapelnienie pozostalych tablic <br />cegly <br /> <br />REM SUB plansze - wypelnienie tablicy wygladu plansz <br />plansze <br /> <br />REM SUB animacja - tablice animacji postaci <br />REM animacja <br /> <br /> <br />REM ************************* WYBOR POMIESZCZENIA <br /> <br />rysuj: <br /> <br />kod$ = p$(roomx + roomy * 16) <br /> <br />REM ******************** rysowanie pomieszczenia <br />t0 = PEEK(1132): REM pomiar czasu rysowania <br /> <br /> <br />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />COLOR 235 <br />REM LOCATE 23, 1: FOR i = 1 TO 40: PRINT CHR$(223); : NEXT i <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <br /> <br />LOCATE 24, 2: COLOR 3: PRINT "T:"; t0; "/"; t1; FRE(-2); <br />PRINT " ROOM:"; roomx; "/"; roomy; "--"; <br /> <br /> <br />REM **************** zapamietanie pola pod graczem <br />GET (x, y)-(x + 15, y + 31), pamiec <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />REM PUT (x, y), vertd1, PSET <br />liczsercaroom = 0: zrobione = 0 <br />GOTO postaw <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <br />dx = 0: dy = 0 <br />IF dzwiekbrania = 1 THEN dzwiekbrania = 0: zabranie <br /> <br />REM ******************* czas gry w sekundach <br /> <br />se$ = MID$(TIME$, 7, 2) <br />se = VAL(se$) <br />IF se <> ses THEN licz = licz + 1 <br />ses = se <br />LOCATE 25, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br />FOR delay = 1 TO 700: NEXT delay <br /> <br />REM faza wentylatora <br /> <br />komorka = PEEK(1132) / 1.5 <br />faz = INT(komorka) <br />IF faz / 3 = INT(faz / 3) THEN faza = 0 <br />IF (faz + 1) / 3 = INT((faz + 1) / 3) THEN faza = 1 <br />IF (faz + 2) / 3 = INT((faz + 2) / 3) THEN faza = 2 <br />FOR i = 0 TO 2: i16 = i * 16 <br />IF faza = 0 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, 0 <br />IF faza = 1 THEN PALETTE 11 + i16, 0: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, kolwent <br />IF faza = 2 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, 0: PALETTE 13 + i16, kolwent <br />NEXT i <br /> <br />REM ************************ sprawdzenie klawiszy <br /> <br />alt = 0: lshift = 0: pshift = 0: skos = 0 <br /> <br />k$ = INKEY$ <br />IF k$ = "f" THEN roomx = roomx - 1: GOTO rysuj <br />IF k$ = "h" THEN roomx = roomx + 1: GOTO rysuj <br />IF k$ = "t" THEN roomy = roomy - 1: GOTO rysuj <br />IF k$ = "b" THEN roomy = roomy + 1: GOTO rysuj <br /> <br />IF k$ = CHR$(27) THEN END <br /> <br />REM klawisz alt - wznoszenie sie <br />IF (PEEK(1047) AND 8) = 8 THEN alt = 1 <br />IF (PEEK(1047) AND 2) = 2 THEN lshift = 1 <br />IF (PEEK(1047) AND 1) = 1 THEN pshift = 1 <br /> <br />REM bezruch = grawitacja <br />IF lshift = 0 AND pshift = 0 AND alt = 0 THEN dy = 2: vert = 1: obrot = 0: przebiervert = 0: GOTO czy <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br /> <br />IF lshift = 1 THEN dx = -4: dy = 2: obrot = -1: vert = 0 <br />IF pshift = 1 THEN dx = 4: dy = 2: obrot = 1: vert = 0 <br />IF alt = 1 THEN dy = -4: vert = 1 <br />IF dx <> 0 AND dy <> 0 THEN skos = 1 <br />czy: <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br /> <br />IF x + dx > 300 THEN x = 5: xs = 5: roomx = roomx + 1: GOTO rysuj <br />IF x + dx < 3 THEN x = 300: xs = 300: roomx = roomx - 1: GOTO rysuj <br />IF y + dy > 144 THEN y = 5: ys = 5: roomy = roomy + 1: GOTO rysuj <br />IF y + dy < 4 THEN y = 145: ys = 145: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br />REM sprawdzenie przeszkody. Przeszkoda sa kolory > 200 <br /> <br />xmozliwy = 0: xniemozliwy = 0 <br />ymozliwy = 0: yniemozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa obok <br /> <br />IF dx > 0 THEN <br />FOR i = 0 TO 31: IF POINT(x + 19, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br /> <br />IF dx < 0 THEN <br />FOR i = 0 TO 31: IF POINT(x - 3, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF xniemozliwy = 0 THEN xmozliwy = 1 <br />IF xniemozliwy = 1 THEN xmozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa gora dol <br /> <br />IF dy > 0 THEN <br />FOR i = 0 TO 15: <br />IF POINT(x + i, y + 32) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y + 33) > 200 THEN yniemozliwy = 1: EXIT FOR <br /> <br />NEXT i <br />END IF <br /> <br />IF dy < 0 THEN <br />FOR i = 0 TO 15 <br />IF POINT(x + i, y - 4) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y - 5) > 200 THEN yniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF yniemozliwy = 0 THEN ymozliwy = 1 <br />IF yniemozliwy = 1 THEN ymozliwy = 0 <br /> <br />REM ruch gdy oba mozliwe x oraz y <br />IF ymozliwy = 1 AND xmozliwy = 1 THEN IF dx <> 0 OR dy <> 0 THEN GOTO ruch <br /> <br /> <br />REM szczegolne przypadki gdy tylko x albo y mozliwy <br />IF ymozliwy = 0 AND xmozliwy = 1 THEN dy = 0: GOTO czy <br />IF ymozliwy = 1 AND xmozliwy = 0 THEN dx = 0: GOTO czy <br /> <br /> <br />REM ruch niemozliwy powrot petli glownej bez zmian pozostaja x y <br /> <br /> <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** RUCH <br /> <br />ruch: <br /> <br />x = x + dx: y = y + dy <br />IF dy = 0 AND przebieranie = 0 AND alt = 0 THEN dreptanie: REM dzwiek chodzenia <br /> <br />REM ******************** czy jest wziatek <br />deltawx = ABS(x + 4 - xserca) <br />deltawy = ABS(y + 16 - yserca) <br />IF deltawx < 10 AND deltawy < 22 THEN GOSUB wziatek <br /> <br />REM ************************************** operacja odswiezania tla <br />postaw: <br />REM punkt 1 zapamietanie nowego pola dzialania (brudnego) <br />REM w oparciu o nowe x,y <br /> <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />REM************ 2 odnowienie pola dzialania uwzgledniajac dawne tlo <br /> <br />deltax = x - xs: deltay = y - ys <br />inversx = -1 * deltax: inversy = -1 * deltay <br />inver4 = INT(inversx / 4) <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = (yt + inversy) * 6 <br />FOR xt = 0 TO 3 <br />index1 = 1 + (yt6 + 24) + (xt + inver4) + 1 <br />index2 = 1 + yt4 + xt <br />poledzialania(index1) = pamiec(index2) <br />NEXT xt: NEXT yt <br /> <br />REM zmazanie serca z pola dzialania <br /> <br />IF liczsercaroom = 1 AND zrobione = 0 THEN <br />zrobione = 1 <br />PUT (x - 4, y - 4), poledzialania, PSET <br />PUT (xserca, yserca), tlo, PSET <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />END IF <br /> <br />REM nowa mala pamiec <br /> <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = yt * 6 <br />FOR xt = 0 TO 3: <br />index1 = 1 + (yt6 + 24) + (xt + 1): <br />index2 = 1 + yt4 + xt: <br />pamiec(index2) = poledzialania(index1): NEXT xt: NEXT yt <br /> <br /> <br />REM ************* rysowanie nowej postaci WEDLUG FAZY RUCHU <br /> <br />REM aby nie rysowac dwoch postaci w przypadku skosu <br />IF skos = 1 THEN GOTO bezskosu: <br /> <br />REM ************************** ruch w dol lub gore <br /> <br />IF vert = 1 THEN wkleic = 7: GOTO wklej <br />bezskosu: <br />REM ************************** ruch w lewo <br /> <br />IF obrot = -1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 1: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 2: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 3: GOTO wklej <br />END IF <br /> <br />REM ****************** ruch w prawo <br /> <br />IF obrot = 1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br /> <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 4: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 5: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 6: GOTO wklej <br />END IF <br /> <br />xs = x: ys = y <br /> <br />GOTO petla <br /> <br />wklej: <br /> <br />IF wkleic = 1 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 2 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 3 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 4 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 5 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 6 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 7 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR vertd1(index2)): NEXT xt: NEXT yt <br /> <br />REM wklejenie wyniku operacji na tablicy: <br />PUT (x - 4, y - 4), poledzialania, PSET <br /> <br />xs = x: ys = y <br />GOTO petla <br /> <br />REM GOSUB-RETURN****************************** obsluga wziatku <br /> <br />wziatek: <br />IF serca(roomx, roomy) = 0 THEN GOTO niemawziatku <br />IF liczsercaroom = 1 THEN GOTO niemawziatku <br />serca(roomx, roomy) = 0 <br />liczserca = liczserca + 1 <br />PUT (xserca, yserca), tlo, PSET <br /> <br />liczsercaroom = 1 <br />dzwiekbrania = 1 <br /> <br />LOCATE 1, 1: COLOR 6: PRINT liczserca; <br />niemawziatku: <br />RETURN <br /> <br />SUB animacja <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br />REM ten SUB jest do skasowania <br /> <br />END SUB <br /> <br />SUB cegly <br /> <br />BLOAD "bitmap1.scr" <br /> <br />REM INPUT a$ <br />REM pobranie z ekranu tablic elementow <br />REM uwaga! wysokosc elementu to 9 lub 18 px <br /> <br />GET (0, 0)-(31, 8), ceg2 <br />GET (0, 0)-(319, 8), ceg40 <br />GET (0, 9)-(319, 17), ceg17plus17 <br />GET (0, 18)-(319, 26), ceg13plus13 <br />GET (0, 27)-(319, 35), ceg4plus20plus4 <br />GET (0, 36)-(15, 53), szaretlo <br />GET (0, 36)-(31, 53), szaretlo2 <br />GET (0, 36)-(63, 53), szaretlo4: REM 36+18=46+8=54 <br /> <br />GET (16, 64)-(31, 79), palma <br />GET (32, 64)-(47, 81), blokp <br />GET (48, 64)-(63, 81), bloks <br />GET (64, 64)-(79, 81), blokk <br />GET (0, 156)-(31, 173), blok2 <br />GET (0, 156)-(63, 173), blok4 <br />GET (80, 64)-(111, 81), nieb <br /> <br /> <br />GET (0, 88)-(15, 119), znakl1 <br />GET (16, 88)-(31, 119), znakp1 <br />GET (32, 88)-(47, 119), znakl2 <br />GET (48, 88)-(63, 119), znakp2 <br />GET (64, 88)-(79, 119), znakl3 <br />GET (80, 88)-(95, 119), znakp3 <br />GET (96, 88)-(111, 119), vertd1 <br /> <br />GET (0, 120)-(31, 139), window1 <br />GET (32, 120)-(63, 139), window2 <br />GET (64, 120)-(95, 139), window3 <br />GET (0, 140)-(15, 155), wentylator <br />CLS <br />END SUB <br /> <br />SUB dreptanie <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />REM ewentualnie: <br />REM OUT 66, 30: OUT 66, 0 <br />REM OUT 66, 164: OUT 66, 2 <br />REM OUT 66, 130: OUT 66, 1 <br />REM OUT 66, 74: OUT 66, 0 <br />REM OUT 66, 220: OUT 66, 1 <br /> <br />FOR i = 1 TO 10 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 84: OUT 66, 2 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 94: OUT 66, 2 <br />OUT 66, 10: OUT 66, 0 <br />OUT 66, 40: OUT 66, 2 <br />OUT 66, 84: OUT 66, 0 <br />OUT 66, 10: OUT 66, 2 <br /> <br /> <br />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 05 05 06": REM tlo plyta <br />kolor$(2) = "02 02 03 02": REM tlo fuga <br />kolor$(3) = "03 07 06 06": REM tlo krawedz <br />kolor$(4) = "04 00 22 00": REM liscie <br />kolor$(5) = "05 3F 08 00": REM serce <br />kolor$(6) = "06 30 30 30": REM framuga okna <br />kolor$(7) = "07 28 0A 00": REM doniczka drzewa <br />kolor$(8) = "08 00 21 39": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 14 14 14": REM framuga zewnetrzna <br />kolor$(11) = "0B 00 00 00": REM wentylator faza 1 <br />kolor$(12) = "0C 00 00 00": REM wentylator faza 2 <br />kolor$(13) = "0D 00 00 00": REM wentylator faza 3 <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />kolor$(16) = "10 18 02 02": REM sweter + zero <br />kolor$(17) = "11 18 02 02": REM <br />kolor$(18) = "12 18 02 02": REM <br />kolor$(19) = "13 18 02 02": REM <br />kolor$(20) = "14 22 12 00": REM sweter + liscie <br />kolor$(21) = "15 3F 00 00": REM <br />kolor$(22) = "16 2F 09 09": REM sweter + framuga okna <br />kolor$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />kolor$(24) = "18 25 16 24": REM sweter + niebo <br />kolor$(25) = "19 3F 3F 3F": REM sweter + slonce <br />kolor$(26) = "1A 16 0F 0F": REM sweter + framuga zew <br />kolor$(27) = "1B 3F 3F 3F": REM <br />kolor$(28) = "1C 3F 3F 3F": REM <br />kolor$(29) = "1D 3F 3F 3F": REM <br />kolor$(30) = "1E 3F 3F 3F": REM <br />REM kolor 31 1F zastrzezony dla gracza <br />kolor$(32) = "20 0A 13 29": REM spodnie + zero <br />kolor$(33) = "21 0A 13 29": REM <br />kolor$(34) = "22 0A 13 29": REM <br />kolor$(35) = "23 0A 13 29": REM <br />kolor$(36) = "24 05 1D 24": REM spodnie+ liscie <br />kolor$(37) = "25 3F 3F 3F": REM <br />kolor$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />kolor$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />kolor$(40) = "28 00 1A 3F": REM spodnie + niebo <br />kolor$(41) = "29 3F 3F 3F": REM spodnie +slonce <br />kolor$(42) = "2A 10 14 20": REM spodnie + framuga zew <br />kolor$(43) = "2B 3F 3F 3F": REM <br />kolor$(44) = "2C 3F 3F 3F": REM <br />kolor$(45) = "2D 3F 3F 3F": REM <br />kolor$(46) = "2E 3F 3F 3F": REM <br />REM rejestr 47 2F zastrzezony dla gracza <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br />REM rejestry nieprzezroczyste <br /> <br />kolor$(31) = "1F 2F 09 09": REM sweter <br />kolor$(47) = "2F 0D 1A 37": REM spodnie <br />kolor$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 30 20": REM skora1 <br />kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 32 22 02": REM nos <br />kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 22 02 02": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 24 24": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male niebieskie <br /> <br />kolor$(249) = "F9 22 27 30": REM krawedz <br />kolor$(250) = "FA 09 0E 14": REM fuga <br />kolor$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br /> <br /> <br /> <br />END SUB <br /> <br />SUB plansze <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** roomy*16+roomx <br /> <br />REM kody plansz +++nr.po.ok.we.se_kw_dod <br />REM ************ plansze wiersza roomy=0 <br /> <br />p$(0) = "h22233322d.0.UI.YO....GN_______" <br />p$(1) = "h000fff11h.1....MD...._________" <br />p$(2) = "h11133333f.2.UI.HE....___EQ____" <br />p$(3) = "hh2223cchh.3..........SJ_______" <br />p$(4) = "h300033fff.4....ZK...._________" <br />p$(5) = "h2001c333f.5....LG....______AQG" <br />p$(6) = "h111g3222f.6....LD....___EQ____" <br />p$(7) = "hh222d111g.7.BE....DF.aH_WI____" <br />p$(8) = "hhDDDfCCCg.8..........__________!" <br />p$(9) = "hhCCCf111c.9..........__________!" <br />p$(10) = "hhDDDf222g.A..........GG_EQ_____!" <br />p$(11) = "hh333f111d.B....HG....__________!" <br />p$(12) = "hhffff333g.C..........__________!" <br />p$(13) = "h22233333c.D.UN.aK.DF.MK____AYC_!" <br />p$(14) = "h111ff22hh.E..........___aG_BLM_!" <br />p$(15) = "h3333311cc.F....ZK....aH____AIG_!" <br /> <br /> <br />REM ************ plansze wiersza roomy=1 <br /> <br />p$(16) = "d333c2223h.0.......FN._________" <br />p$(17) = "h33330003h.1.WH.YO....RN_______" <br />p$(18) = "ff333111ff.2.WJ.ML...._________" <br />p$(19) = "hc222c333c.3..........___QQ____" <br />p$(20) = "f31113333h.4.UM.aI.aO._________" <br />p$(21) = "f333aa333h.5..........RN_GQ____" <br />p$(22) = "ffff333fff.6....DJ....aM_______" <br />p$(23) = "gg333a33ff.7.........._________" <br />p$(24) = "gg333333ff.8.AK....IF._________" <br />p$(25) = "cccc33cccc.9..........SJ_______" <br />p$(26) = "gg33dd33ff.A....LF....aO_______" <br />p$(27) = "ddaa22cccc.B.........._________" <br />p$(28) = "g33300333h.C.AM....aO._________" <br />p$(29) = "c33311333c.D.0M.......ZK____AQO" <br />p$(30) = "h3322233dd.E.......aF._________" <br />p$(31) = "c33111333h.F.AM.bD....___QQ____" <br /> <br /> <br />REM ************* plansze wiersza roomy=2 <br /> <br />p$(32) = "h333ff333c.0..........KE_WQ___" <br />p$(33) = "h333c2222c.1....MD....UP______" <br />p$(34) = "faaaa0000h.2....WO.VI.________" <br />p$(35) = "ccccc1111f.3....MM....___EQ____" <br />p$(36) = "h33333c333.4.WO.NP....SM_______" <br />p$(37) = "haa33222af.5.UJ....GL._________" <br />p$(38) = "f333c111ah.6....aM....UP_______" <br />p$(39) = "ff333d333g.7....YP....___KQ____" <br />p$(40) = "ff3333333g.8.#I.......KM_______" <br />p$(41) = "c33g33d33c.9..........__________!" <br />p$(42) = "ff3333333g.A.WM.LI....__________!" <br />p$(43) = "cc333322cc.B.UJ.......__________!" <br />p$(44) = "hhaacc00hh.C.......JG.ZM____AQM_!" <br />p$(45) = "c333cc11gg.D....aN....______AQM_!" <br />p$(46) = "dd33cc22hh.E..........______AQE_!" <br />p$(47) = "hh3331113c.F.UK....VI.___EQ_____!" <br /> <br />REM ************ plansze wiersza roomy=3 <br /> <br />p$(48) = "c333c2222f.0....ZM.ZD.SF________!" <br />p$(49) = "ccccc1111h.1..........________" <br />p$(50) = "ha3222333c.2.#F.LO....UO_SQ___" <br />p$(51) = "ff3111333f.3.WM.YI.VI.SJ_GQ___" <br />p$(52) = "h3333c333f.4..........NG______" <br />p$(53) = "ff333c222f.5....ZO....SG________!" <br />p$(54) = "hhaaff000f.6..........___KQ___" <br />p$(55) = "gggg33111f.7....LO.VJ.________" <br />p$(56) = "gg3322ffff.8..........GG______" <br />p$(57) = "cccc00hfff.9..........________" <br />p$(58) = "gg33DDffff.A..........___KK___" <br />p$(59) = "cccccfffff.B.......TL.__________!" <br />p$(60) = "hh3333333f.C....KK....DP________!" <br />p$(61) = "g333333hhh.D.UJ....TF.__________!" <br />p$(62) = "hh3222333f.E..........___GQ___" <br />p$(63) = "c331113hhh.F....ZK....________" <br /> <br />REM ****************** plansze wiersza roomy=4 <br /> <br />p$(64) = "f22322322h.0....DD....SP_YQ___" <br />p$(65) = "h00f00f00h.1..........________" <br />p$(66) = "c11311311f.2....aP.KP.__________!" <br />p$(67) = "ff3332223h.3.UJ.ML....___YQ_____!" <br />p$(68) = "f3333111hh.4.WJ.YL....__________!" <br />p$(69) = "ffaafaaaff.5.......VI.__________!" <br />p$(70) = "ffa333c33h.6....OG....SQ_YQ_____!" <br />p$(71) = "ff2233333d.7....aO....______IKN_!": REM startowa <br />p$(72) = "ff113c333d.8..........aO________!" <br />p$(73) = "ff33cc33ff.9..........__________!" <br />p$(74) = "ff3322333d.A.WM.LI.ZP.PP________!" <br />p$(75) = "ff22DD333f.B.UM.......___EQ_____!" <br />p$(76) = "ff11333hhh.C.......KH.__________!" <br />p$(77) = "h333333333.D....SK....bF________!" <br />p$(78) = "ff22233hhh.E.UJ.......__________!" <br />p$(79) = "h311133fff.F.WJ.......MM________!" <br /> <br />REM ******************* plansze wiersza roomy=5 <br /> <br />p$(80) = "haf222faff.0.......VI.___KK_____!" <br />p$(81) = "hhf111222h.1..........SP________!" <br />p$(82) = "fa333c000h.2....GO....__________!" <br />p$(83) = "h222fa111f.3..........___YQ___" <br />p$(84) = "h111c2223h.4.0Q....EE.MM______" <br />p$(85) = "ffffa111ff.5..........________" <br />p$(86) = "h333c333af.6....DD....ZF_MQ___" <br />p$(87) = "dd333f333g.7.......VI.___aI___" <br />p$(88) = "dd3333333g.8.UK.KO....________" <br />p$(89) = "f32233f33f.9.......ED.KK______" <br />p$(90) = "ddDDCC333g.A....ZK....KO______" <br />p$(91) = "f33300f33f.B..........________" <br />p$(92) = "h33300333c.C....NN....________" <br />p$(93) = "333311333h.D.0M....TG.GG______" <br />p$(94) = "h33222333c.E.AM.......________" <br />p$(95) = "ff3111333h.F.WM.FF....___YQ___" <br /> <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />p$(96) = "fffa222hhh.0....EJ....___YM_____!" <br />p$(97) = "hhhf000bbb.1....SJ....ML________!" <br />p$(98) = "h222111hhh.2..........___KM_____!" <br />p$(99) = "f111aaafff.3....PH....ZJ________!" <br />p$(100) = "h222ahhhhh.4..........EE________!" <br />p$(101) = "f11133222h.5.0I.......___GQ_____!" <br />p$(102) = "ffffff000h.6....LO....__________!" <br />p$(103) = "gg333d111f.7....MO....aP________!" <br />p$(104) = "gg333hCCCh.8.......ZN.KH________!" <br />p$(105) = "ffffffDDDh.9..........__________!" <br />p$(106) = "gg333fCCCh.A..........___KI_____!" <br />p$(107) = "ff3333111h.B.0I....KK.aP________!" <br />p$(108) = "cc22dd22ff.C..........__________!" <br />p$(109) = "hhDDffDDhh.D.......TJ.LN________!" <br />p$(110) = "ccc2222hhh.E..........__________!" <br />p$(111) = "hhhDDDDhhh.F..........TK_KM_____!" <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />p$(112) = "hffa222hhh.0..........__________!" <br />p$(113) = "bbbb000hhh.1....KK....__________!" <br />p$(114) = "h222111fff.2.BJ.......ZE____AIK_!" <br />p$(115) = "f000aaahhh.3..........___KM_____!" <br />p$(116) = "h000ahhhhh.4.......KF.__________!" <br />p$(117) = "h111hh222h.5..........KQ________!" <br />p$(118) = "hfffff000f.6....KO....__________!" <br />p$(119) = "fffeee000h.7..........___KQ_____!" <br />p$(120) = "hh3333000h.8.BL.......__________!" <br />p$(121) = "hCCCffDDDh.9..........KO________!" <br />p$(122) = "hDDDccCCCh.A..........___MK_____!" <br />p$(123) = "hf333300Df.B.AL.......__________!" <br />p$(124) = "ffffff00hh.C....KN....__________!" <br />p$(125) = "hhhhhf00fh.D.......TK.__________!" <br />p$(126) = "h33c3300ff.E..........KK________!" <br />p$(127) = "hhheefDDhh.F....KN....__________!" <br /> <br />REM ******************* plansze wiersza roomy=8 <br /> <br />p$(128) = "hffa222hhh.0..........__________!" <br />p$(129) = "hbbb000hhh.1..........__________!" <br />p$(130) = "f222111hhh.2..........__________!" <br />p$(131) = "h000aaahhh.3..........______COI_!" <br />p$(132) = "h000ahhhhh.4..........__________!" <br />p$(133) = "h111hh222h.5..........__________!" <br />p$(134) = "ffffff000h.6..........______DQK_!" <br />p$(135) = "hhhhha000h.7..........______ESK_!" <br />p$(136) = "hh3333000h.8..........______CKK_!" <br />p$(137) = "hCCCffDDDh.9..........__________!" <br />p$(138) = "hDDDccCCCh.A..........__________!" <br />p$(139) = "ff333300Dh.B..........__________!" <br />p$(140) = "hfffff00hh.C..........__________!" <br />p$(141) = "hhhhhf00fh.D..........__________!" <br />p$(142) = "f3333300hh.E..........______COL_!" <br />p$(143) = "hhheefDDhh.F..........__________!" <br /> <br /> <br />REM tablica serc <br />FOR xr = 0 TO 15 <br />FOR yr = 0 TO 8 <br />s = xr + yr * 16 <br />znak$ = MID$(p$(s), 23, 1) <br />IF znak$ <> "_" THEN serca(xr, yr) = 1 <br />NEXT yr: NEXT xr <br /> <br /> <br />END SUB <br /> <br />SUB rysowanie <br /> <br /> <br />FOR yw = 0 TO 9 <br />el$ = MID$(kod$, yw + 1, 1) <br />y16 = yw * 18 <br /> <br />REM tymczasowe sygnalizacje bledow: <br /> <br />IF el$ = "Q" OR el$ = "L" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "P" OR el$ = "W" OR el$ = "=" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "A" OR el$ = "B" OR el$ = "U" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "@" THEN COLOR 15: LINE (0, y16)-(200, y16) <br /> <br /> <br />REM elementy uzupelniajace <br /> <br />IF el$ = "C" THEN <br />PUT (128, y16), szaretlo4, PSET: PUT (192, y16), szaretlo4, PSET <br />PUT (256, y16), szaretlo4, PSET <br />PUT (0, y16), blok4, PSET: PUT (64, y16), blok2, PSET: <br />PUT (96, y16), bloks, PSET: PUT (112, y16), blokk, PSET <br />END IF <br /> <br />IF el$ = "D" THEN <br />PUT (0, y16), szaretlo4, PSET: PUT (64, y16), szaretlo4, PSET <br />PUT (128, y16), szaretlo4, PSET <br />PUT (192, y16), blokp, PSET: PUT (208, y16), blok4, PSET <br />PUT (272, y16), blok2, PSET: PUT (304, y16), bloks, PSET <br />END IF <br /> <br />REM czesc automatyczna, znaki a-h <br />ascii = ASC(el$) <br /> <br />IF ascii > 96 THEN <br />bity = ascii - 97 <br />PUT (0, y16), blok4, PSET: <br />pop1 = 0 <br />pop2 = 0 <br />pop3 = 0 <br /> <br />IF (bity AND 4) = 4 THEN PUT (64, y16), blok4, PSET: pop1 = 1 <br />IF (bity AND 4) = 0 THEN PUT (48, y16), blokk, PSET: PUT (64, y16), szaretlo4, PSET: pop1 = 0 <br />REM <br />IF (bity AND 2) = 2 THEN pop2 = 1: PUT (128, y16), blok4, PSET: IF pop1 = 0 THEN PUT (128, y16), blokp, PSET <br />IF (bity AND 2) = 0 THEN pop2 = 0: PUT (128, y16), szaretlo4, PSET: IF pop1 = 1 THEN PUT (112, y16), blokk, PSET <br />REM <br />IF (bity AND 1) = 1 THEN pop3 = 1: PUT (192, y16), blok4, PSET: IF pop2 = 0 THEN PUT (192, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN pop3 = 0: PUT (192, y16), szaretlo4, PSET: IF pop2 = 1 THEN PUT (176, y16), blokk, PSET <br />PUT (256, y16), blok4, PSET <br />IF pop3 = 0 THEN PUT (256, y16), blokp, PSET <br />END IF <br /> <br />REM znaki 0-3 <br /> <br />IF ascii < 58 THEN <br />bity = ascii - 48 <br />IF (bity AND 2) = 2 THEN PUT (0, y16), blokk, PSET <br />IF (bity AND 2) = 0 THEN PUT (0, y16), szaretlo, PSET <br />PUT (16, y16), szaretlo4, PSET <br />PUT (80, y16), szaretlo4, PSET <br />PUT (144, y16), szaretlo4, PSET <br />PUT (208, y16), szaretlo4, PSET <br />PUT (272, y16), szaretlo2, PSET <br /> <br />IF (bity AND 1) = 1 THEN PUT (304, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN PUT (304, y16), szaretlo, PSET <br />END IF <br /> <br /> <br />NEXT yw <br /> <br /> <br /> <br />REM rysowanie podestow <br /> <br />el$ = MID$(kod$, 14, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO dodatek <br /> <br />el2$ = MID$(kod$, 15, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "#" THEN PUT (0, yokna), ceg40, PSET <br />IF el$ = "W" THEN PUT (0, yokna), ceg4plus20plus4, PSET <br />IF el$ = "U" THEN PUT (0, yokna), ceg17plus17, PSET <br />IF el$ = "0" THEN PUT (0, yokna), ceg13plus13, PSET <br />IF el$ = "A" THEN FOR xx = 0 TO 4: PUT (16 + xx * 64, yokna), ceg2, PSET: NEXT xx <br />IF el$ = "B" THEN FOR xx = 0 TO 5: PUT (64 + xx * 32, yokna), ceg2, PSET: NEXT xx <br /> <br />REM dodatkowy element <br />dodatek: <br /> <br />el$ = MID$(kod$, 29, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO okna <br />el2$ = MID$(kod$, 30, 1) <br />xokna = (ASC(el2$) - 65) * 8 <br />el2$ = MID$(kod$, 31, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "A" THEN <br />PUT (xokna, yokna), blokp, PSET: <br />PUT (xokna, yokna + 18), blokp, PSET <br />PUT (xokna + 16, yokna), blok2, PSET: <br />PUT (xokna + 16, yokna + 18), blok2, PSET <br />PUT (xokna + 48, yokna), blokk, PSET: <br />PUT (xokna + 48, yokna + 18), blokk, PSET <br />END IF <br />IF el$ = "B" THEN COLOR 235: LINE (xokna + 5, yokna)-(xokna + 9, yokna + 35), , BF <br />IF el$ = "C" THEN PUT (xokna, yokna), ceg2, PSET: PUT (xokna + 32, yokna), ceg2, PSET: PUT (xokna + 64, yokna), ceg2, PSET <br />IF el$ = "D" THEN LINE (xokna, yokna)-(xokna + 22, yokna + 17), 235, BF: LINE (xokna + 42, yokna)-(xokna + 63, yokna + 17), 235, BF <br />IF el$ = "E" THEN LINE (xokna, yokna)-(xokna + 5, yokna + 35), 235, BF: LINE (xokna + 26, yokna + 36)-(xokna + 31, yokna + 72), 235, BF <br />IF el$ = "F" THEN PUT (xokna, yokna), nieb, PSET <br />IF el$ = "G" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna), nieb, PSET <br />IF el$ = "H" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna + 36), nieb, PSET <br />IF el$ = "I" THEN PUT (xokna, yokna), nieb, PSET: PUT (xokna + 64, yokna - 36), nieb, PSET <br /> <br />okna: <br /> <br />REM rysowanie okien <br /> <br />el$ = MID$(kod$, 17, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO serce <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 18, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />IF roomy < 2 THEN PUT (xokna, yokna), window2, PSET <br />IF roomy > 1 AND roomy < 5 THEN PUT (xokna, yokna), window1, PSET <br />IF roomy > 4 THEN PUT (xokna, yokna), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20 <br />yokna = -20 <br />IF serca(roomx, roomy) = 0 THEN GOTO donica <br />el$ = MID$(kod$, 23, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO donica <br />xserca = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 24, 1) <br />yserca = (ASC(el$) - 65) * 9 <br />GET (xserca, yserca)-(xserca + 15, yserca + 7), tlo <br />COLOR 5 <br />LINE (xserca, yserca + 1)-(xserca, yserca + 3) <br />LINE (xserca + 1, yserca)-(xserca + 1, yserca + 4) <br />LINE (xserca + 2, yserca)-(xserca + 2, yserca + 5) <br />LINE (xserca + 3, yserca + 1)-(xserca + 3, yserca + 6) <br />LINE (xserca + 4, yserca)-(xserca + 4, yserca + 5) <br />LINE (xserca + 5, yserca)-(xserca + 5, yserca + 4) <br />LINE (xserca + 6, yserca + 1)-(xserca + 6, yserca + 3) <br /> <br />donica: <br />el$ = MID$(kod$, 26, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO wentyl <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 27, 1) <br />yokna = (ASC(el$) - 65) * 9 + 2 <br />PUT (xokna, yokna), palma, PSET <br /> <br />wentyl: <br />el$ = MID$(kod$, 20, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO koniecrysowania <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 21, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />PUT (xokna, yokna), wentylator, PSET <br /> <br /> <br />koniecrysowania: <br /> <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br /> <br />END SUB <br /> <br />SUB zabranie <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 6000: NEXT i <br /> <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 6000: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 21:48, 18 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul BSAVE do gry "Serca" <br /> <br />SCREEN 13 <br /> <br />DIM kolor$(0 TO 255) <br />DIM cegla(0 TO 42) AS LONG <br />DIM tlo(0 TO 40) AS LONG <br />DIM poltlo(0 TO 16) AS LONG <br />DIM bitmap$(0 TO 31) <br />DIM blok(0 TO 74) AS LONG <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 0A 0A 0A": REM tlo plyta <br />kolor$(2) = "02 06 06 06": REM tlo fuga <br />kolor$(3) = "03 10 10 10": REM tlo krawedz <br />kolor$(4) = "04 00 2F 00": REM liscie <br />kolor$(5) = "05 3F 3F 3F" <br />kolor$(6) = "06 3F 3F 3F" <br />kolor$(7) = "07 28 0A 00": REM doniczka <br />kolor$(8) = "08 00 00 3F": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 20 20 20": REM framuga zewnetrzna <br />kolor$(11) = "0B 18 18 18": REM wentylator obudowa <br />kolor$(12) = "0C 3F 3F 3F": REM wentylator faza 1 <br />kolor$(13) = "0D 2F 2F 2F": REM wentylator faza 2 <br />kolor$(14) = "0E 1F 1F 1F": REM wentylator faza 3 <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM bloki przezroczystosci <br />kolor$(16) = "10 3F 3F 3F" <br />kolor$(32) = "20 3F 3F 3F" <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />kolor$(31) = "1F 28 00 00": REM sweter <br />kolor$(47) = "2F 05 12 2F": REM spodnie <br />kolor$(63) = "3F 17 17 17": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 2C 17": REM skora1 <br />kolor$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 30 20 00": REM nos <br />kolor$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 20 00 00": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 2B 2B": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male niebieskie <br /> <br />kolor$(249) = "F9 22 27 30": REM krawedz <br />kolor$(250) = "FA 09 0E 14": REM fuga <br />kolor$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br />REM rysunki **************************************** <br /> <br />REM rysunek cegly <br /> <br />bitmap$(0) = "DDDDDDDDDDDDDDDE" <br />bitmap$(1) = "DFFFFFFFFFFFFFFE" <br />bitmap$(2) = "DFFFFFFFFFFFFFFE" <br />bitmap$(3) = "DFFFFFFFFFFFFFFE" <br />bitmap$(4) = "DFFFFFFFFFFFFFFE" <br />bitmap$(5) = "DFFFFFFFFFFFFFFE" <br />bitmap$(6) = "DFFFFFFFFFFFFFFE" <br />bitmap$(7) = "DFFFFFFFFFFFFFFE" <br />bitmap$(8) = "EEEEEEEEEEEEEEEE" <br /> <br />REM 250-A 251-B 252-C 253-D 254-E 255-F <br /> <br />FOR yd = 0 TO 8 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 - 1 + &HF0 + 10 <br />: PSET (xd, yd) <br />NEXT xd: NEXT yd <br />GET (0, 0)-(15, 8), cegla <br /> <br /> <br />REM komorka tla <br /> <br />REM tlo(0) = &H80040 <br /> <br />bitmap$(0) = "0001200000012000" <br />bitmap$(1) = "1111200000011111" <br />bitmap$(2) = "2221200000012222" <br />bitmap$(3) = "0001200000012000" <br />bitmap$(4) = "0001200000012000" <br />bitmap$(5) = "0001111111112000" <br />bitmap$(6) = "0001222222212000" <br />bitmap$(7) = "0001200000012000" <br />bitmap$(8) = "0001200000012000" <br /> <br /> <br />FOR yd = 0 TO 8 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 48 + 1 <br />: PSET (xd, yd) <br />NEXT xd: NEXT yd <br /> <br />GET (0, 0)-(15, 8), tlo <br /> <br /> <br /> <br />REM przygotowanie tablic elementow wierszowych <br />CLS <br /> <br />FOR x = 0 TO 19 <br />FOR y = 0 TO 8 <br />PUT (x * 16, y * 9), tlo, PSET <br />NEXT y <br />NEXT x <br /> <br />REM cegly <br /> <br />FOR i = 0 TO 19 <br />PUT (i * 16, 0), cegla, PSET <br />NEXT i <br /> <br />FOR i = 0 TO 7 <br />PUT (i * 16, 9), cegla, PSET <br />PUT (304 - i * 16, 9), cegla, PSET <br />NEXT i <br /> <br />FOR i = 0 TO 4 <br />PUT (i * 16, 18), cegla, PSET <br />PUT (304 - i * 16, 18), cegla, PSET <br />NEXT i <br /> <br /> <br />FOR i = 0 TO 2 <br />PUT (i * 16, 27), cegla, PSET <br />PUT (304 - i * 16, 27), cegla, PSET <br />NEXT i <br />FOR i = 0 TO 9 <br />PUT (i * 16 + 80, 27), cegla, PSET <br />NEXT i <br /> <br /> <br />REM poszerzenie przejsc pionowych <br /> <br />REM GET (8, 64)-(15, 71), poltlo <br />REM PUT (136, 8), poltlo, PSET <br />REM PUT (40, 24), poltlo, PSET <br />REM GET (0, 64)-(7, 71), poltlo <br />REM PUT (176, 8), poltlo, PSET <br />REM PUT (272, 24), poltlo, PSET <br /> <br />REM wykonczenie cegiel <br />REM COLOR 253: REM szczeliny <br />REM LINE (135, 8)-(135, 15) <br />REM LINE (79, 16)-(79, 23) <br />REM LINE (39, 24)-(39, 31) <br />REM LINE (239, 24)-(239, 31) <br /> <br />REM COLOR 252: REM krawedzie <br />REM LINE (184, 12)-(184, 14) <br />REM LINE (240, 21)-(240, 22) <br />REM LINE (80, 28)-(80, 30) <br />REM LINE (280, 28)-(280, 30) <br /> <br /> <br />REM RYSUNEK DONICZKI <br /> <br />bitmap$(0) = "DDDCBEEBBEECDDDD" <br />bitmap$(1) = "BBBCEEEEEEEEDBBB" <br />bitmap$(2) = "BBBEEEEEEEEEEBBB" <br />bitmap$(3) = "BBBEEEEEEEECEEBB" <br />bitmap$(4) = "BBEEDEDEEDECEEBB" <br />bitmap$(5) = "BBECBEBEEBECDEBB" <br />bitmap$(6) = "BBECEBBEEBBEDEBB" <br />bitmap$(7) = "BBECEBBEEBBEDEBB" <br />bitmap$(8) = "CCCCDBBEEBBCDCCC" <br />bitmap$(9) = "DDDCDBBEEBBCDDDD" <br />bitmap$(10) = "BBBCDBBEEBBCDBBB" <br />bitmap$(11) = "BBBCDHHHHHHCDBBB" <br />bitmap$(12) = "BBBCCHHHHHHCDBBB" <br />bitmap$(13) = "BBBCDDHHHHDCDBBB" <br />bitmap$(14) = "BBBCDBHHHHBCDBBB" <br />bitmap$(15) = "BBBCDBHHHHBCDBBB" <br /> <br />FOR yd = 0 TO 15 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 <br />: PSET (xd + 16, yd + 64) <br />NEXT xd: NEXT yd <br /> <br />REM rysunek bloku <br /> <br />bitmap$(0) = "KLKLKLKLKLKLKLKF" + "JJJJJJJJJJJJJJJF" + "KLKLKLKLKLKLKLKF" <br />bitmap$(1) = "LJJJJJJJJJJJJJJF" + "KHHHHHIHHGHHHHHF" + "LJJJJJJJJJJJJJJF" <br />bitmap$(2) = "MJKIJIJKJJKJJJJF" + "KHHHIHHHIHHGHHHF" + "MJJKJKJIJKJIJIJF" <br />bitmap$(3) = "LJJJJJJJJIJIJIJF" + "KHGHHHHIHHHHIHHF" + "LJJJIJJJIJJJJKJF" <br />bitmap$(4) = "MJJKJJJJJKJJJJJF" + "KHHHIHGHHIHHHHHF" + "MJJJJKJJJJJKJJJF" <br />bitmap$(5) = "MJJIJKJIJJIJKJJF" + "KHHHHHHIHHHHIHHF" + "MJKJJJJIJJJJJKJF" <br />bitmap$(6) = "LJKJIJJJKJJIJIJF" + "KHHGHHIHGHHIHGHF" + "LJKJIJJJKJJJIJJF" <br />bitmap$(7) = "MJJJJJJJJJJJJJJF" + "KHHHHHHHHHHHHHHF" + "MJJJJJJJJJIJJJJF" <br />bitmap$(8) = "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" <br />bitmap$(9) = "KLKLKLKFJJJJJJJJ" + "JJJJJJJFJJJJJJJJ" + "JJJJJJJFKLKLKLKF" <br />bitmap$(10) = "LJJJJJJFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFLJJJJJJF" <br />bitmap$(11) = "MJJIJJJFKHIHHIHH" + "HIHIHHHFKHHGHGHH" + "HHGHIHHFMJKJIJJF" <br />bitmap$(12) = "LJJJKJJFKHHGHHHI" + "HHGHHGHFKHIHHHHI" + "HGHHHHHFLJJJKJJF" <br />bitmap$(13) = "MJIJJIJFKHIHHHHH" + "GHHHIHHFKHHHHHGH" + "HHIHHHHFMJKJJIJF" <br />bitmap$(14) = "MJJIJJJFKHHHIHHH" + "GHIHHHHFKHHHGHHH" + "HHHHHIHFMJJJJJJF" <br />bitmap$(15) = "LJKJKJJFKHIHHGHI" + "HHHIHGHFKHGHHIHG" + "HIHGHHHFLJKJIKJF" <br />bitmap$(16) = "MJJJJJJFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFMJJJJJJF" <br />bitmap$(17) = "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" <br /> <br />FOR yd = 0 TO 17 <br />FOR xd = 0 TO 47 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 + 224 <br />: PSET (xd + 32, yd + 64) <br />NEXT xd: NEXT yd <br /> <br />GET (48, 64)-(63, 81), blok <br />FOR i = 0 TO 19: PUT (i * 16, 156), blok, PSET <br />NEXT i <br /> <br /> <br />COLOR 15: LOCATE 10, 16: PRINT "SERCA 1.0" <br /> <br />REM animacja <br />REM 7,9 - rejestry przezroczyste <br /> <br />bitmap$(0) = "0000003333000000" + "0000003333000000" <br />bitmap$(1) = "0000033333300000" + "0000033333300000" <br />bitmap$(2) = "0000066663300000" + "0000033366600000" <br />bitmap$(3) = "0000063663300000" + "0000033663600000" <br />bitmap$(4) = "0000866666300000" + "0000036666680000" <br />bitmap$(5) = "0000066666300000" + "0000036666600000" <br />bitmap$(6) = "0000006666000000" + "0000006666000000" <br />bitmap$(7) = "0000000661000000" + "0000001660000000" <br />bitmap$(8) = "0000000711700000" + "0000071170000000" <br />bitmap$(9) = "0000007111100000" + "0000011117000000" <br /> <br />bitmap$(10) = "0000071111170000" + "0000711111700000" <br />bitmap$(11) = "0000011111170000" + "0000711111100000" <br />bitmap$(12) = "0000011111110000" + "0000111111100000" <br />bitmap$(13) = "0000711111117000" + "0007111111170000" <br />bitmap$(14) = "0000711111111000" + "0001111111170000" <br />bitmap$(15) = "0000111111111000" + "0001111111110000" <br />bitmap$(16) = "0001111333311000" + "0001133331111000" <br />bitmap$(17) = "0006602222206600" + "0066022222066000" <br />bitmap$(18) = "0006002222200600" + "0060022222006000" <br />bitmap$(19) = "0000092222200000" + "0000922222900000" <br />bitmap$(20) = "0000022222290000" + "0000222222200000" <br />bitmap$(21) = "0000022222220000" + "0000222222200000" <br />bitmap$(22) = "0000022202220000" + "0000222022200000" <br />bitmap$(23) = "0000922202220000" + "0000222022220000" <br />bitmap$(24) = "0000222202222000" + "0009222022220000" <br />bitmap$(25) = "0000222009222000" + "0002229002220000" <br />bitmap$(26) = "0000222000222000" + "0002220002220000" <br />bitmap$(27) = "0000222000222000" + "0002220002220000" <br />bitmap$(28) = "0009222000222300" + "0032220009229000" <br />bitmap$(29) = "0002220000033300" + "0033300000222000" <br />bitmap$(30) = "0003330000330000" + "0000330000222000" <br />bitmap$(31) = "0033330000000000" + "0000000000333300" <br /> <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 31 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "0000003333000000" + "0000003333000000" <br />bitmap$(1) = "0000033333300000" + "0000033333300000" <br />bitmap$(2) = "0000066633300000" + "0000033366600000" <br />bitmap$(3) = "0000063663300000" + "0000033663600000" <br />bitmap$(4) = "0000866663300000" + "0000033666680000" <br />bitmap$(5) = "0000066666300000" + "0000036666600000" <br />bitmap$(6) = "0000006666000000" + "0000006666000000" <br />bitmap$(7) = "0000000661000000" + "0000001660000000" <br />bitmap$(8) = "0000000711700000" + "0000071170000000" <br />bitmap$(9) = "0000007111100000" + "0000011117000000" <br /> <br />bitmap$(10) = "0000001111100000" + "0000011111000000" <br />bitmap$(11) = "0000001111100000" + "0000011111000000" <br />bitmap$(12) = "0000001111100000" + "0000011111000000" <br />bitmap$(13) = "0000001111100000" + "0000011111000000" <br />bitmap$(14) = "0000071111100000" + "0000011111700000" <br />bitmap$(15) = "0000071111100000" + "0000011111700000" <br />bitmap$(16) = "0000071111300000" + "0000031111700000" <br />bitmap$(17) = "0000028118200000" + "0000028118200000" <br />bitmap$(18) = "0000022662200000" + "0000022662200000" <br />bitmap$(19) = "0000022662200000" + "0000022662200000" <br />bitmap$(20) = "0000022222000000" + "0000002222200000" <br />bitmap$(21) = "0000922222000000" + "0000002222290000" <br />bitmap$(22) = "0000222222000000" + "0000002222220000" <br />bitmap$(23) = "0000922222000000" + "0000002222290000" <br />bitmap$(24) = "0000022222000000" + "0000002222200000" <br />bitmap$(25) = "0000022222300000" + "0000032222200000" <br />bitmap$(26) = "0000002222300000" + "0000032222000000" <br />bitmap$(27) = "0000000222330000" + "0000332220000000" <br />bitmap$(28) = "0000000222033000" + "0003300222000000" <br />bitmap$(29) = "0000000222000000" + "0000000222000000" <br />bitmap$(30) = "0000000222000000" + "0000000222000000" <br />bitmap$(31) = "0000033330000000" + "0000000033330000" <br /> <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 31 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 32, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 32, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 32, yd + 88) <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 32, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "0000003333000000" + "0000003333000000" <br />bitmap$(1) = "0000033333300000" + "0000033333300000" <br />bitmap$(2) = "0000066633300000" + "0000033366600000" <br />bitmap$(3) = "0000063663300000" + "0000033663600000" <br />bitmap$(4) = "0000866663300000" + "0000033666680000" <br />bitmap$(5) = "0000066666300000" + "0000036666600000" <br />bitmap$(6) = "0000006666000000" + "0000006666000000" <br />bitmap$(7) = "0000000661000000" + "0000001660000000" <br />bitmap$(8) = "0000000711700000" + "0000071170000000" <br />bitmap$(9) = "0000007111100000" + "0000011117000000" <br /> <br />bitmap$(10) = "0000071111100000" + "0000111117000000" <br />bitmap$(11) = "0000011111170000" + "0000111111700000" <br />bitmap$(12) = "0000711111110000" + "0000111111170000" <br />bitmap$(13) = "0000711111110000" + "0000111111170000" <br />bitmap$(14) = "0000711111110000" + "0000111111170000" <br />bitmap$(15) = "0000111111110000" + "0000111111110000" <br />bitmap$(16) = "0000111333310000" + "0000133331110000" <br />bitmap$(17) = "0000066222260000" + "0000622226600000" <br />bitmap$(18) = "0000006222260000" + "0000622226000000" <br />bitmap$(19) = "0000002222200000" + "0000022222000000" <br />bitmap$(20) = "0000002222200000" + "0000022222000000" <br />bitmap$(21) = "0000022222200000" + "0000022222200000" <br />bitmap$(22) = "0000022222200000" + "0000022222200000" <br />bitmap$(23) = "0000922222200000" + "0000022222290000" <br />bitmap$(24) = "0000222022200000" + "0000022202220000" <br />bitmap$(25) = "0000222022200000" + "0000022202220000" <br />bitmap$(26) = "0000222092290000" + "0000922902220000" <br />bitmap$(27) = "0000222002220000" + "0000222002220000" <br />bitmap$(28) = "0000222002220000" + "0000222002220000" <br />bitmap$(29) = "0003333002220000" + "0000222003333000" <br />bitmap$(30) = "0000000000222000" + "0002220000000000" <br />bitmap$(31) = "0000000033330000" + "0000333300000000" <br /> <br /> <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 31 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 64, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 64, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 64, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 64, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "000006C8C6000000" <br />bitmap$(6) = "0000006860000000" <br />bitmap$(7) = "0000001610000000" <br />bitmap$(8) = "0000711111700000" <br />bitmap$(9) = "0001111111110000" <br /> <br />bitmap$(10) = "0071111111117000" <br />bitmap$(11) = "0071111111117000" <br />bitmap$(12) = "0011711111711000" <br />bitmap$(13) = "0711711111711700" <br />bitmap$(14) = "0A11711111711A00" <br />bitmap$(15) = "0117A11111A71100" <br />bitmap$(16) = "0117111111171100" <br />bitmap$(17) = "01104BBBBB401100" <br />bitmap$(18) = "0860922222906800" <br />bitmap$(19) = "0000922222900000" <br />bitmap$(20) = "0000929092900000" <br />bitmap$(21) = "0000929092900000" <br />bitmap$(22) = "0000929092900000" <br />bitmap$(23) = "0000929092900000" <br />bitmap$(24) = "0000929092900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000333033300000" <br />bitmap$(31) = "0003330003330000" <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM RYSUNEK OKNA NIEBIESKO-ZIELONEGO <br />bitmap$(0) = "AAGGGGGGGGGGGGGGGGGGGGGGGGGGGGAA" <br />bitmap$(1) = "AAGKKKKKKKKGKKKKKKKKGKKKKKKKKGAA" <br />bitmap$(2) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(3) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(4) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(5) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(6) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(7) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(8) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(9) = "AAGKIEEEEIIGKIIEEIIIGKEEEIIIIGAA" <br />bitmap$(10) = "AAGKEEEEEEIGKIEEEEIEGKEEEEIIIGAA" <br />bitmap$(11) = "AAGKEEEEEEEGKEEEEEEEGKEEEEEEIGAA" <br />bitmap$(12) = "AAGKEHEEEEEGKEEEEEEEGKEEEEEEEGAA" <br />bitmap$(13) = "AAGKEHEHEEEGKEHEEEEEGKEEHEEEEGAA" <br />bitmap$(14) = "AAGKEEHEEEEGKEHEHEEEGKHEHEEHEGAA" <br />bitmap$(15) = "AAGKEEHEEEEGKEEHEEEEGKEHEEHEEGAA" <br />bitmap$(16) = "AAGKHEHEEEEGKHEHEHEEGKEEHEHEEGAA" <br />bitmap$(17) = "AAGKEHEEEHEGKEHEEEHEGKEEEHEEEGAA" <br />bitmap$(18) = "AAGKEHEEEHEGKEHEEEHEGKEEHEEEEGAA" <br />bitmap$(19) = "AGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGA" <br /> <br />FOR yd = 0 TO 19 <br />FOR xd = 0 TO 31 <br />color$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />COLOR ASC(color$) - 65 <br />PSET (xd, yd + 120) <br />NEXT xd: NEXT yd <br /> <br />REM RYSUNEK OKNA NIEBIESKIEGO <br />bitmap$(0) = "AAGGGGGGGGGGGGGGGGGGGGGGGGGGGGAA" <br />bitmap$(1) = "AAGKKKKKKKKGKKKKKKKKGKKKKKKKKGAA" <br />bitmap$(2) = "AAGKIIIIIIIGKIIIIIIIGKIIIJJJJGAA" <br />bitmap$(3) = "AAGKIIIIIIIGKIIIIIIIGKIIIJJJJGAA" <br />bitmap$(4) = "AAGKIIIIIIIGKIIIIIIIGKIIIIJJJGAA" <br />bitmap$(5) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIJJGAA" <br />bitmap$(6) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(7) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(8) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(9) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(10) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(11) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(12) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(13) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(14) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(15) = "AAGKIEEEEIIGKIIEEIIIGKEEEIIIIGAA" <br />bitmap$(16) = "AAGKEEEEEEIGKIEEEEIEGKEEEEIIIGAA" <br />bitmap$(17) = "AAGKEEEEEEEGKEEEEEEEGKEEEEEEIGAA" <br />bitmap$(18) = "AAGKEEEEEEEGKEEEEEEEGKEEEEEEEGAA" <br />bitmap$(19) = "AGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGA" <br /> <br />FOR yd = 0 TO 19 <br />FOR xd = 0 TO 31 <br />color$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />COLOR ASC(color$) - 65 <br />PSET (xd + 32, yd + 120) <br />NEXT xd: NEXT yd <br /> <br />REM RYSUNEK OKNA ZIELONEGO <br /> <br />bitmap$(0) = "AAGGGGGGGGGGGGGGGGGGGGGGGGGGGGAA" <br />bitmap$(1) = "AAGKKKKKKKKGKKKKKKKKGKKKKKKKKGAA" <br />bitmap$(2) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(3) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(4) = "AAGKIEEEEIIGKIIEEIIIGKEEEIIIIGAA" <br />bitmap$(5) = "AAGKEEEEEEIGKIEEEEIEGKEEEEIIIGAA" <br />bitmap$(6) = "AAGKEEEEEEEGKEEEEEEEGKEEEEEEIGAA" <br />bitmap$(7) = "AAGKEEHEEEEGKEEHEHEEGKEHEEEEEGAA" <br />bitmap$(8) = "AAGKEEHEHEEGKEEEHEEHGKEEHEEEEGAA" <br />bitmap$(9) = "AAGKEEEHEEEGKHEEHEHEGKHEHEEHEGAA" <br />bitmap$(10) = "AAGKHEEHEEEGKHEHEHEEGKEHEEHEEGAA" <br />bitmap$(11) = "AAGKEHEHEHEGKEHEEHEHGKEEHEHEEGAA" <br />bitmap$(12) = "AAGKEEHEEHEGKEHEEEHEGKEEHHEEEGAA" <br />bitmap$(13) = "AAGKEEHEHEEGKEHEHEHEGKEEHEEEEGAA" <br />bitmap$(14) = "AAGKEEHHEEEGKEHHEEHEGKEEHEEEEGAA" <br />bitmap$(15) = "AAGKEEHEEEEGKEHEEEHEGKEEHEEEEGAA" <br />bitmap$(16) = "AAGKEEHEEEEGKEHEEHHHGKEEHEEEEGAA" <br />bitmap$(17) = "AAGKEHHHEEEGKHHHEEEEGKEHHHEEEGAA" <br />bitmap$(18) = "AAGKEEEEEEEGKEEEEEEEGKEEEEEEEGAA" <br />bitmap$(19) = "AGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGA" <br /> <br />FOR yd = 0 TO 19 <br />FOR xd = 0 TO 31 <br />color$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />COLOR ASC(color$) - 65 <br />PSET (xd + 64, yd + 120) <br />NEXT xd: NEXT yd <br /> <br />REM RYSUNEK wentylatora <br /> <br />bitmap$(0) = "KKKKKGGGGGKKKKKALLLLLGGGGGLLLLLA" <br />bitmap$(1) = "KKKGGNNLLLGGKKKALLLGGLLLLLGGLLLA" <br />bitmap$(2) = "KKGNNNNLLLLLGKKALLGALLLLLLLAGLLA" <br />bitmap$(3) = "KGMMNNNLLLLMMGKALGAALLLLLLLAAGLA" <br />bitmap$(4) = "KGMMMNNLLLMMMGKALGAAALLLLLAAAGLA" <br />bitmap$(5) = "GMMMMMNLLMMMMMGAGAAAALLLLLAAAAGA" <br />bitmap$(6) = "GMMMMMGGGMMMMNGAGAAAAALLLAAAAAGA" <br />bitmap$(7) = "GLLLLLGGGNNNNNGAGLLLAAALAAALLLGA" <br />bitmap$(8) = "GLLLLLGGGNNNNNGAGLLLLLLALLLLLLGA" <br />bitmap$(9) = "GLLLNNNMLLLNNNGAGLLLLLLALLLLLLGA" <br />bitmap$(10) = "KGNNNNMMMLLLNGKALGLLLLAAALLLLGLA" <br />bitmap$(11) = "KGNNNNMMMLLLLGKALGLLLAAAAALLLGLA" <br />bitmap$(12) = "KKGNNNMMMLLLGKKALLGLLAAAAALLGLLA" <br />bitmap$(13) = "KKKGGMMMMMGGKKKALLLGGAAAAAGGLLLA" <br />bitmap$(14) = "KKKKKGGGGGKKKKKALLLLLGGGGGLLLLLA" <br />bitmap$(15) = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" <br /> <br />FOR yd = 0 TO 15 <br />FOR xd = 0 TO 31 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 <br />: PSET (xd, yd + 140) <br />NEXT xd: NEXT yd <br /> <br /> <br />REM rysunek bloku niebieskiego <br />REM 249-D 250-E 251-F <br /> <br />bitmap$(0) = "DDDDDDDDDDDDDDDE" <br />bitmap$(1) = "DFFFFFFFFFFFFFFE" <br />bitmap$(2) = "DFFFFFFFFFFFFFFE" <br />bitmap$(3) = "DFFFFFFFFFFFFFFE" <br />bitmap$(4) = "DFFFFFFFFFFFFFFE" <br />bitmap$(5) = "DFFFFFFFFFFFFFFE" <br />bitmap$(6) = "DFFFFFFFFFFFFFFE" <br />bitmap$(7) = "DFFFFFFFFFFFFFFE" <br />bitmap$(8) = "DFFFFFFFFFFFFFFE" <br />bitmap$(9) = "DFFFFFFFFFFFFFFE" <br />bitmap$(10) = "DFFFFFFFFFFFFFFE" <br />bitmap$(11) = "DFFFFFFFFFFFFFFE" <br />bitmap$(12) = "DFFFFFFFFFFFFFFE" <br />bitmap$(13) = "DFFFFFFFFFFFFFFE" <br />bitmap$(14) = "DFFFFFFFFFFFFFFE" <br />bitmap$(15) = "DFFFFFFFFFFFFFFE" <br />bitmap$(16) = "DFFFFFFFFFFFFFFE" <br />bitmap$(17) = "DEEEEEEEEEEEEEEE" <br />FOR yd = 0 TO 17 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 + 246 <br />PSET (80 + xd, 64 + yd) <br />PSET (96 + xd, 64 + yd) <br /> <br />NEXT xd: NEXT yd <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 15:50, 18 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB zabranie () <br /> <br />REM Gra "Serca" UWAGA wersaj gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <br />DECLARE SUB dreptanie () <br />DECLARE SUB animacja () <br />DECLARE SUB rysowanie () <br />DECLARE SUB palety () <br />DECLARE SUB plansze () <br />DECLARE SUB cegly () <br /> <br />REM plansza startowa: <br />DIM SHARED roomx AS INTEGER, roomy AS INTEGER <br />roomx = 7: roomy = 4 <br /> <br />DIM SHARED kolor$(0 TO 255) <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED p$(0 TO 143) <br />DIM SHARED kod$ <br />DIM SHARED serca(0 TO 15, 0 TO 8) AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br /> <br />REM pamiec tla pod wziatek <br /> <br />DIM SHARED tlo(0 TO 32) AS LONG <br /> <br />REM tlo <br /> <br />DIM SHARED szaretlo(0 TO 74) AS LONG <br />DIM SHARED szaretlo2(0 TO 148) AS LONG <br />DIM SHARED szaretlo4(0 TO 300) AS LONG <br />REM dane elementow planszy <br /> <br />DIM SHARED ceg2(0 TO 75) AS LONG <br />DIM SHARED ceg40(0 TO 730) AS LONG <br />DIM SHARED ceg17plus17(0 TO 730) AS LONG <br />DIM SHARED ceg13plus13(0 TO 760) AS LONG <br />DIM SHARED ceg4plus20plus4(0 TO 750) AS LONG <br />DIM SHARED palma(0 TO 64) AS LONG <br /> <br />DIM SHARED blokp(0 TO 74) AS LONG <br />DIM SHARED bloks(0 TO 74) AS LONG <br />DIM SHARED blokk(0 TO 74) AS LONG <br />DIM SHARED blok2(0 TO 158) AS LONG <br />DIM SHARED blok4(0 TO 296) AS LONG <br /> <br />REM ****************** DANE ANIMACJI <br /> <br />DIM SHARED znakp1(0 TO 128) AS LONG <br />DIM SHARED znakl1(0 TO 128) AS LONG <br />DIM SHARED znakp2(0 TO 128) AS LONG <br />DIM SHARED znakl2(0 TO 128) AS LONG <br />DIM SHARED znakp3(0 TO 128) AS LONG <br />DIM SHARED znakl3(0 TO 128) AS LONG <br />DIM SHARED vertd1(0 TO 128) AS LONG <br /> <br />REM matryce okien <br /> <br />DIM SHARED window1(0 TO 160) AS LONG <br />DIM SHARED window2(0 TO 160) AS LONG <br />DIM SHARED window3(0 TO 160) AS LONG <br /> <br />DIM SHARED wentylator(0 TO 64) AS LONG <br /> <br />REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />REM PRINT FRE(-2): END <br />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 150: y = 35: xs = 150: ys = 35: REM wspolrzedne poczatkowe gracza na ekranie <br />licz = -1: REM wartosc startowa zegara <br />REM roomx = 3: roomy = 3 przeniesione wyzej <br />kolwent = 30 + 30 * 256 + 30 * 65536: REM kolor lopat wentylatora <br /> <br />REM ***** SUB palety - ustawienie nowych wartosci barw <br />palety <br /> <br />REM ***** SUB cegly - zapelnienie pozostalych tablic <br />cegly <br /> <br />REM SUB plansze - wypelnienie tablicy wygladu plansz <br />plansze <br /> <br />REM SUB animacja - tablice animacji postaci <br />REM animacja <br /> <br /> <br />REM ************************* WYBOR POMIESZCZENIA <br /> <br />rysuj: <br /> <br />kod$ = p$(roomx + roomy * 16) <br /> <br />REM ******************** rysowanie pomieszczenia <br />t0 = PEEK(1132): REM pomiar czasu rysowania <br /> <br /> <br />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />COLOR 235 <br />REM LOCATE 23, 1: FOR i = 1 TO 40: PRINT CHR$(223); : NEXT i <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <br /> <br />LOCATE 24, 2: COLOR 3: PRINT "T:"; t0; "/"; t1; FRE(-2); <br />PRINT " ROOM:"; roomx; "/"; roomy; "--"; <br /> <br /> <br />REM **************** zapamietanie pola pod graczem <br />GET (x, y)-(x + 15, y + 31), pamiec <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />REM PUT (x, y), vertd1, PSET <br />liczsercaroom = 0: zrobione = 0 <br />GOTO postaw <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <br />dx = 0: dy = 0 <br />IF dzwiekbrania = 1 THEN dzwiekbrania = 0: zabranie <br /> <br />REM ******************* czas gry w sekundach <br /> <br />se$ = MID$(TIME$, 7, 2) <br />se = VAL(se$) <br />IF se <> ses THEN licz = licz + 1 <br />ses = se <br />LOCATE 25, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br />FOR delay = 1 TO 700: NEXT delay <br /> <br />REM faza wentylatora <br /> <br />komorka = PEEK(1132) / 1.5 <br />faz = INT(komorka) <br />IF faz / 3 = INT(faz / 3) THEN faza = 0 <br />IF (faz + 1) / 3 = INT((faz + 1) / 3) THEN faza = 1 <br />IF (faz + 2) / 3 = INT((faz + 2) / 3) THEN faza = 2 <br />FOR i = 0 TO 2: i16 = i * 16 <br />IF faza = 0 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, 0 <br />IF faza = 1 THEN PALETTE 11 + i16, 0: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, kolwent <br />IF faza = 2 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, 0: PALETTE 13 + i16, kolwent <br />NEXT i <br /> <br />REM ************************ sprawdzenie klawiszy <br /> <br />alt = 0: lshift = 0: pshift = 0: skos = 0 <br /> <br />k$ = INKEY$ <br />IF k$ = "f" THEN roomx = roomx - 1: GOTO rysuj <br />IF k$ = "h" THEN roomx = roomx + 1: GOTO rysuj <br />IF k$ = "t" THEN roomy = roomy - 1: GOTO rysuj <br />IF k$ = "b" THEN roomy = roomy + 1: GOTO rysuj <br /> <br />IF k$ = CHR$(27) THEN END <br /> <br />REM klawisz alt - wznoszenie sie <br />IF (PEEK(1047) AND 8) = 8 THEN alt = 1 <br />IF (PEEK(1047) AND 2) = 2 THEN lshift = 1 <br />IF (PEEK(1047) AND 1) = 1 THEN pshift = 1 <br /> <br />REM bezruch = grawitacja <br />IF lshift = 0 AND pshift = 0 AND alt = 0 THEN dy = 2: vert = 1: obrot = 0: przebiervert = 0: GOTO czy <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br /> <br />IF lshift = 1 THEN dx = -4: dy = 2: obrot = -1: vert = 0 <br />IF pshift = 1 THEN dx = 4: dy = 2: obrot = 1: vert = 0 <br />IF alt = 1 THEN dy = -4: vert = 1 <br />IF dx <> 0 AND dy <> 0 THEN skos = 1 <br />czy: <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br /> <br />IF x + dx > 300 THEN x = 5: xs = 5: roomx = roomx + 1: GOTO rysuj <br />IF x + dx < 3 THEN x = 300: xs = 300: roomx = roomx - 1: GOTO rysuj <br />IF y + dy > 144 THEN y = 5: ys = 5: roomy = roomy + 1: GOTO rysuj <br />IF y + dy < 4 THEN y = 145: ys = 145: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br />REM sprawdzenie przeszkody. Przeszkoda sa kolory > 200 <br /> <br />xmozliwy = 0: xniemozliwy = 0 <br />ymozliwy = 0: yniemozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa obok <br /> <br />IF dx > 0 THEN <br />FOR i = 0 TO 31: IF POINT(x + 19, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br /> <br />IF dx < 0 THEN <br />FOR i = 0 TO 31: IF POINT(x - 3, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF xniemozliwy = 0 THEN xmozliwy = 1 <br />IF xniemozliwy = 1 THEN xmozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa gora dol <br /> <br />IF dy > 0 THEN <br />FOR i = 0 TO 15: <br />IF POINT(x + i, y + 32) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y + 33) > 200 THEN yniemozliwy = 1: EXIT FOR <br /> <br />NEXT i <br />END IF <br /> <br />IF dy < 0 THEN <br />FOR i = 0 TO 15 <br />IF POINT(x + i, y - 4) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y - 5) > 200 THEN yniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF yniemozliwy = 0 THEN ymozliwy = 1 <br />IF yniemozliwy = 1 THEN ymozliwy = 0 <br /> <br />REM ruch gdy oba mozliwe x oraz y <br />IF ymozliwy = 1 AND xmozliwy = 1 THEN IF dx <> 0 OR dy <> 0 THEN GOTO ruch <br /> <br /> <br />REM szczegolne przypadki gdy tylko x albo y mozliwy <br />IF ymozliwy = 0 AND xmozliwy = 1 THEN dy = 0: GOTO czy <br />IF ymozliwy = 1 AND xmozliwy = 0 THEN dx = 0: GOTO czy <br /> <br /> <br />REM ruch niemozliwy powrot petli glownej bez zmian pozostaja x y <br /> <br /> <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** RUCH <br /> <br />ruch: <br /> <br />x = x + dx: y = y + dy <br />IF dy = 0 AND przebieranie = 0 AND alt = 0 THEN dreptanie: REM dzwiek chodzenia <br /> <br />REM ******************** czy jest wziatek <br />deltawx = ABS(x + 4 - xserca) <br />deltawy = ABS(y + 16 - yserca) <br />IF deltawx < 10 AND deltawy < 22 THEN GOSUB wziatek <br /> <br />REM ************************************** operacja odswiezania tla <br />postaw: <br />REM punkt 1 zapamietanie nowego pola dzialania (brudnego) <br />REM w oparciu o nowe x,y <br /> <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />REM************ 2 odnowienie pola dzialania uwzgledniajac dawne tlo <br /> <br />deltax = x - xs: deltay = y - ys <br />inversx = -1 * deltax: inversy = -1 * deltay <br />inver4 = INT(inversx / 4) <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = (yt + inversy) * 6 <br />FOR xt = 0 TO 3 <br />index1 = 1 + (yt6 + 24) + (xt + inver4) + 1 <br />index2 = 1 + yt4 + xt <br />poledzialania(index1) = pamiec(index2) <br />NEXT xt: NEXT yt <br /> <br />REM zmazanie serca z pola dzialania <br /> <br />IF liczsercaroom = 1 AND zrobione = 0 THEN <br />zrobione = 1 <br />PUT (x - 4, y - 4), poledzialania, PSET <br />PUT (xserca, yserca), tlo, PSET <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />END IF <br /> <br />REM nowa mala pamiec <br /> <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = yt * 6 <br />FOR xt = 0 TO 3: <br />index1 = 1 + (yt6 + 24) + (xt + 1): <br />index2 = 1 + yt4 + xt: <br />pamiec(index2) = poledzialania(index1): NEXT xt: NEXT yt <br /> <br /> <br />REM ************* rysowanie nowej postaci WEDLUG FAZY RUCHU <br /> <br />REM aby nie rysowac dwoch postaci w przypadku skosu <br />IF skos = 1 THEN GOTO bezskosu: <br /> <br />REM ************************** ruch w dol lub gore <br /> <br />IF vert = 1 THEN wkleic = 7: GOTO wklej <br />bezskosu: <br />REM ************************** ruch w lewo <br /> <br />IF obrot = -1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 1: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 2: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 3: GOTO wklej <br />END IF <br /> <br />REM ****************** ruch w prawo <br /> <br />IF obrot = 1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br /> <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 4: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 5: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 6: GOTO wklej <br />END IF <br /> <br />xs = x: ys = y <br /> <br />GOTO petla <br /> <br />wklej: <br /> <br />IF wkleic = 1 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 2 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 3 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 4 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 5 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 6 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 7 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR vertd1(index2)): NEXT xt: NEXT yt <br /> <br />REM wklejenie wyniku operacji na tablicy: <br />PUT (x - 4, y - 4), poledzialania, PSET <br /> <br />xs = x: ys = y <br />GOTO petla <br /> <br />REM GOSUB-RETURN****************************** obsluga wziatku <br /> <br />wziatek: <br />IF serca(roomx, roomy) = 0 THEN GOTO niemawziatku <br />IF liczsercaroom = 1 THEN GOTO niemawziatku <br />serca(roomx, roomy) = 0 <br />liczserca = liczserca + 1 <br />PUT (xserca, yserca), tlo, PSET <br /> <br />liczsercaroom = 1 <br />dzwiekbrania = 1 <br /> <br />LOCATE 1, 1: COLOR 6: PRINT liczserca; <br />niemawziatku: <br />RETURN <br /> <br />SUB animacja <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br />REM ten SUB jest do skasowania <br /> <br />END SUB <br /> <br />SUB cegly <br /> <br />BLOAD "bitmap1.scr" <br /> <br />REM INPUT a$ <br />REM pobranie z ekranu tablic elementow <br />REM uwaga! wysokosc elementu to 9 lub 18 px <br /> <br />GET (0, 0)-(31, 8), ceg2 <br />GET (0, 0)-(319, 8), ceg40 <br />GET (0, 9)-(319, 17), ceg17plus17 <br />GET (0, 18)-(319, 26), ceg13plus13 <br />GET (0, 27)-(319, 35), ceg4plus20plus4 <br />GET (0, 36)-(15, 53), szaretlo <br />GET (0, 36)-(31, 53), szaretlo2 <br />GET (0, 36)-(63, 53), szaretlo4: REM 36+18=46+8=54 <br /> <br />GET (16, 64)-(31, 79), palma <br />GET (32, 64)-(47, 81), blokp <br />GET (48, 64)-(63, 81), bloks <br />GET (64, 64)-(79, 81), blokk <br />GET (0, 156)-(31, 173), blok2 <br />GET (0, 156)-(63, 173), blok4 <br /> <br />GET (0, 88)-(15, 119), znakl1 <br />GET (16, 88)-(31, 119), znakp1 <br />GET (32, 88)-(47, 119), znakl2 <br />GET (48, 88)-(63, 119), znakp2 <br />GET (64, 88)-(79, 119), znakl3 <br />GET (80, 88)-(95, 119), znakp3 <br />GET (96, 88)-(111, 119), vertd1 <br /> <br />GET (0, 120)-(31, 139), window1 <br />GET (32, 120)-(63, 139), window2 <br />GET (64, 120)-(95, 139), window3 <br />GET (0, 140)-(15, 155), wentylator <br />CLS <br />END SUB <br /> <br />SUB dreptanie <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />REM ewentualnie: <br />REM OUT 66, 30: OUT 66, 0 <br />REM OUT 66, 164: OUT 66, 2 <br />REM OUT 66, 130: OUT 66, 1 <br />REM OUT 66, 74: OUT 66, 0 <br />REM OUT 66, 220: OUT 66, 1 <br /> <br />FOR i = 1 TO 10 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 84: OUT 66, 2 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 94: OUT 66, 2 <br />OUT 66, 10: OUT 66, 0 <br />OUT 66, 40: OUT 66, 2 <br />OUT 66, 84: OUT 66, 0 <br />OUT 66, 10: OUT 66, 2 <br /> <br /> <br />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 05 05 06": REM tlo plyta <br />kolor$(2) = "02 02 03 02": REM tlo fuga <br />kolor$(3) = "03 07 06 06": REM tlo krawedz <br />kolor$(4) = "04 00 22 00": REM liscie <br />kolor$(5) = "05 3F 08 00": REM serce <br />kolor$(6) = "06 30 30 30": REM framuga okna <br />kolor$(7) = "07 28 0A 00": REM doniczka drzewa <br />kolor$(8) = "08 00 21 39": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 14 14 14": REM framuga zewnetrzna <br />kolor$(11) = "0B 00 00 00": REM wentylator faza 1 <br />kolor$(12) = "0C 00 00 00": REM wentylator faza 2 <br />kolor$(13) = "0D 00 00 00": REM wentylator faza 3 <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />kolor$(16) = "10 18 02 02": REM sweter + zero <br />kolor$(17) = "11 18 02 02": REM <br />kolor$(18) = "12 18 02 02": REM <br />kolor$(19) = "13 18 02 02": REM <br />kolor$(20) = "14 22 12 00": REM sweter + liscie <br />kolor$(21) = "15 3F 00 00": REM <br />kolor$(22) = "16 2F 09 09": REM sweter + framuga okna <br />kolor$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />kolor$(24) = "18 25 16 24": REM sweter + niebo <br />kolor$(25) = "19 3F 3F 3F": REM sweter + slonce <br />kolor$(26) = "1A 16 0F 0F": REM sweter + framuga zew <br />kolor$(27) = "1B 3F 3F 3F": REM <br />kolor$(28) = "1C 3F 3F 3F": REM <br />kolor$(29) = "1D 3F 3F 3F": REM <br />kolor$(30) = "1E 3F 3F 3F": REM <br />REM kolor 31 1F zastrzezony dla gracza <br />kolor$(32) = "20 0A 13 29": REM spodnie + zero <br />kolor$(33) = "21 0A 13 29": REM <br />kolor$(34) = "22 0A 13 29": REM <br />kolor$(35) = "23 0A 13 29": REM <br />kolor$(36) = "24 05 1D 24": REM spodnie+ liscie <br />kolor$(37) = "25 3F 3F 3F": REM <br />kolor$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />kolor$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />kolor$(40) = "28 00 1A 3F": REM spodnie + niebo <br />kolor$(41) = "29 3F 3F 3F": REM spodnie +slonce <br />kolor$(42) = "2A 10 14 20": REM spodnie + framuga zew <br />kolor$(43) = "2B 3F 3F 3F": REM <br />kolor$(44) = "2C 3F 3F 3F": REM <br />kolor$(45) = "2D 3F 3F 3F": REM <br />kolor$(46) = "2E 3F 3F 3F": REM <br />REM rejestr 47 2F zastrzezony dla gracza <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br />REM rejestry nieprzezroczyste <br /> <br />kolor$(31) = "1F 2F 09 09": REM sweter <br />kolor$(47) = "2F 0D 1A 37": REM spodnie <br />kolor$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 30 20": REM skora1 <br />kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 32 22 02": REM nos <br />kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 22 02 02": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 24 24": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br /> <br /> <br /> <br />END SUB <br /> <br />SUB plansze <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** roomy*16+roomx <br /> <br />REM kody plansz +++nr.po.ok.we.se_kw_dod <br />REM ************ plansze wiersza roomy=0 <br /> <br />p$(0) = "h22233322d.0.UI.YO....GN_______" <br />p$(1) = "h000fff11h.1....MD...._________" <br />p$(2) = "h11133333f.2.UI.HE....___EQ____" <br />p$(3) = "hh2223cchh.3..........SJ_______" <br />p$(4) = "h300033fff.4....ZK...._________" <br />p$(5) = "h2001c333f.5....LG....______AQG" <br />p$(6) = "h111g3222f.6....LD....___EQ____" <br />p$(7) = "hh222d111g.7.BE....DF.aH_WI____" <br />p$(8) = "hhDDDfCCCg.8.........._________" <br />p$(9) = "hhCCCf111c.9.........._________" <br />p$(10) = "hhDDDf222g.A..........GG_EQ____" <br />p$(11) = "hh333f111d.B....HG...._________" <br />p$(12) = "hhffff333g.C.........._________" <br />p$(13) = "h22233333c.D.UN.aK.DF.MK____AYC" <br />p$(14) = "h111ff22hh.E..........___aG_BLM" <br />p$(15) = "h3333311cc.F....ZK....aH____AIG" <br /> <br /> <br />REM ************ plansze wiersza roomy=1 <br /> <br />p$(16) = "d333c2223h.0.......FN._________" <br />p$(17) = "h33330003h.1.WH.YO....RN_______" <br />p$(18) = "ff333111ff.2.WJ.ML...._________" <br />p$(19) = "hc222c333c.3..........___QQ____" <br />p$(20) = "f31113333h.4.UM.aI.aO._________" <br />p$(21) = "f333aa333h.5..........RN_GQ____" <br />p$(22) = "ffff333fff.6....DJ....aM_______" <br />p$(23) = "gg333a33ff.7.........._________" <br />p$(24) = "gg333333ff.8.AK....IF._________" <br />p$(25) = "cccc33cccc.9..........SJ_______" <br />p$(26) = "gg33dd33ff.A....LF....aO_______" <br />p$(27) = "ddaa22cccc.B.........._________" <br />p$(28) = "g33300333h.C.AM....aO._________" <br />p$(29) = "c33311333c.D.0M.......ZK____AQO" <br />p$(30) = "h3322233dd.E.......aF._________" <br />p$(31) = "c33111333h.F.AM.bD....___QQ____" <br /> <br /> <br />REM ************* plansze wiersza roomy=2 <br /> <br />p$(32) = "h333ff333c.0..........KE_WQ___" <br />p$(33) = "h333c2222c.1....MD....UP______" <br />p$(34) = "faaaa0000h.2....WO.VI.________" <br />p$(35) = "ccccc1111f.3....MM....___EQ____" <br />p$(36) = "h33333c333.4.WO.NP....SM_______" <br />p$(37) = "haa33222af.5.UJ....GL._________" <br />p$(38) = "f333c111ah.6....aM....UP_______" <br />p$(39) = "ff333d333g.7....YP....___KQ____" <br />p$(40) = "ff3333333g.8.#I.......KM_______" <br />p$(41) = "c33g33d33c.9.........._________" <br />p$(42) = "ff3333333g.A.WM.LI...._________" <br />p$(43) = "cc333322cc.B.UJ......._________" <br />p$(44) = "hhaacc00hh.C.......JG.ZM____AQM" <br />p$(45) = "c333cc11gg.D....aN....______AQM" <br />p$(46) = "dd33cc22hh.E..........______AQE" <br />p$(47) = "hh3331113c.F.UK....VI.___EQ____" <br /> <br />REM ************ plansze wiersza roomy=3 <br /> <br />p$(48) = "c333c2222f.0....ZM.ZD.SF______" <br />p$(49) = "ccccc1111h.1..........________" <br />p$(50) = "ha3222333c.2.#F.LO....UO_SQ___" <br />p$(51) = "ff3111333f.3.WM.YI.VI.SJ_GQ___" <br />p$(52) = "h3333c333f.4..........NG______" <br />p$(53) = "ff333c222f.5....ZO....SG______" <br />p$(54) = "hhaaff000f.6..........___KQ___" <br />p$(55) = "gggg33111f.7....LO.VJ.________" <br />p$(56) = "gg3322ffff.8..........GG______" <br />p$(57) = "cccc00hfff.9..........________" <br />p$(58) = "gg33DDffff.A..........___KK___" <br />p$(59) = "cccccfffff.B.......TL.________" <br />p$(60) = "hh3333333f.C....KK....DP______" <br />p$(61) = "g333333hhh.D.UJ....TF.________" <br />p$(62) = "hh3222333f.E..........___GQ___" <br />p$(63) = "c331113hhh.F....ZK....________" <br /> <br />REM ****************** plansze wiersza roomy=4 <br /> <br />p$(64) = "f22322322h.0....DD....SP_YQ___" <br />p$(65) = "h00f00f00h.1..........________" <br />p$(66) = "c11311311f.2....aP.KP.________" <br />p$(67) = "ff3332223h.3.UJ.ML....___YQ___" <br />p$(68) = "f3333111hh.4.WJ.YL....________" <br />p$(69) = "ffaafaaaff.5.......VI.________" <br />p$(70) = "ffa333c33h.6....OG....SQ_YQ___" <br />p$(71) = "ff223c333d.7....aO....______EYK_!": REM startowa <br />p$(72) = "ff113c333d.8..........aO______" <br />p$(73) = "ff33cc33ff.9..........________" <br />p$(74) = "ff3322333d.A.WM.LI.ZP.PP______" <br />p$(75) = "ff22DD333f.B.UM.......___EQ___" <br />p$(76) = "ff11333hhh.C.......KH.________" <br />p$(77) = "h333333333.D....SK....bF______" <br />p$(78) = "ff22233hhh.E.UJ.......________" <br />p$(79) = "h311133fff.F.WJ.......MM______" <br /> <br />REM ******************* plansze wiersza roomy=5 <br /> <br />p$(80) = "haf222faff.0.......VI.___KK___" <br />p$(81) = "hhf111222h.1..........SP______" <br />p$(82) = "fa333c000h.2....GO....________" <br />p$(83) = "h222fa111f.3..........___YQ___" <br />p$(84) = "h111c2223h.4.0Q....EE.MM______" <br />p$(85) = "ffffa111ff.5..........________" <br />p$(86) = "h333c333af.6....DD....ZF_MQ___" <br />p$(87) = "dd333f333g.7.......VI.___aI___" <br />p$(88) = "dd3333333g.8.UK.KO....________" <br />p$(89) = "f32233f33f.9.......ED.KK______" <br />p$(90) = "ddDDCC333g.A....ZK....KO______" <br />p$(91) = "f33300f33f.B..........________" <br />p$(92) = "h33300333c.C....NN....________" <br />p$(93) = "333311333h.D.0M....TG.GG______" <br />p$(94) = "h33222333c.E.AM.......________" <br />p$(95) = "ff3111333h.F.WM.FF....___YQ___" <br /> <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />p$(96) = "fffa222hhh.0....EJ....___YM___" <br />p$(97) = "hhhf000bbb.1....SJ....ML______" <br />p$(98) = "h222111hhh.2..........___KM___" <br />p$(99) = "f111aaafff.3....PH....ZJ______" <br />p$(100) = "h222ahhhhh.4..........EE______" <br />p$(101) = "f11133222h.5.0I.......___GQ___" <br />p$(102) = "ffffff000h.6....LO....________" <br />p$(103) = "gg333d111f.7....MO....aP______" <br />p$(104) = "gg333hCCCh.8.......ZN.KH______" <br />p$(105) = "ffffffDDDh.9..........________" <br />p$(106) = "gg333fCCCh.A..........___KI___" <br />p$(107) = "ff3333111h.B.0I....KK.aP______" <br />p$(108) = "cc22dd22ff.C..........________" <br />p$(109) = "hhDDffDDhh.D.......TJ.LN______" <br />p$(110) = "ccc2222hhh.E..........________" <br />p$(111) = "hhhDDDDhhh.F..........TK_KM___" <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />p$(112) = "hffa222hhh.0..........__________!" <br />p$(113) = "bbbb000hhh.1....KK....__________!" <br />p$(114) = "h222111fff.2.BJ.......ZE____AIK_!" <br />p$(115) = "f000aaahhh.3..........___KM_____!" <br />p$(116) = "h000ahhhhh.4.......KF.__________!" <br />p$(117) = "h111hh222h.5..........KQ________!" <br />p$(118) = "hfffff000f.6....KO....__________!" <br />p$(119) = "fffeee000h.7..........___KQ_____!" <br />p$(120) = "hh3333000h.8.BL.......__________!" <br />p$(121) = "hCCCffDDDh.9..........KO________!" <br />p$(122) = "hDDDccCCCh.A..........___MK_____!" <br />p$(123) = "hf333300Df.B.AL.......__________!" <br />p$(124) = "ffffff00hh.C....KN....__________!" <br />p$(125) = "hhhhhf00fh.D.......TK.__________!" <br />p$(126) = "h33c3300ff.E..........KK________!" <br />p$(127) = "hhheefDDhh.F....KN....__________!" <br /> <br />REM ******************* plansze wiersza roomy=8 <br /> <br />p$(128) = "hffa222hhh.0..........__________!" <br />p$(129) = "hbbb000hhh.1..........__________!" <br />p$(130) = "f222111hhh.2..........__________!" <br />p$(131) = "h000aaahhh.3..........______COI_!" <br />p$(132) = "h000ahhhhh.4..........__________!" <br />p$(133) = "h111hh222h.5..........__________!" <br />p$(134) = "ffffff000h.6..........______DQK_!" <br />p$(135) = "hhhhha000h.7..........______ESK_!" <br />p$(136) = "hh3333000h.8..........______CKK_!" <br />p$(137) = "hCCCffDDDh.9..........__________!" <br />p$(138) = "hDDDccCCCh.A..........__________!" <br />p$(139) = "ff333300Dh.B..........__________!" <br />p$(140) = "hfffff00hh.C..........__________!" <br />p$(141) = "hhhhhf00fh.D..........__________!" <br />p$(142) = "f3333300hh.E..........______COL_!" <br />p$(143) = "hhheefDDhh.F..........__________!" <br /> <br /> <br />REM tablica serc <br />FOR xr = 0 TO 15 <br />FOR yr = 0 TO 8 <br />s = xr + yr * 16 <br />znak$ = MID$(p$(s), 23, 1) <br />IF znak$ <> "_" THEN serca(xr, yr) = 1 <br />NEXT yr: NEXT xr <br /> <br /> <br />END SUB <br /> <br />SUB rysowanie <br /> <br /> <br />FOR yw = 0 TO 9 <br />el$ = MID$(kod$, yw + 1, 1) <br />y16 = yw * 18 <br /> <br />REM tymczasowe sygnalizacje bledow: <br /> <br />IF el$ = "Q" OR el$ = "L" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "P" OR el$ = "W" OR el$ = "=" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "A" OR el$ = "B" OR el$ = "U" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "@" THEN COLOR 15: LINE (0, y16)-(200, y16) <br /> <br /> <br />REM elementy uzupelniajace <br /> <br />IF el$ = "C" THEN <br />PUT (128, y16), szaretlo4, PSET: PUT (192, y16), szaretlo4, PSET <br />PUT (256, y16), szaretlo4, PSET <br />PUT (0, y16), blok4, PSET: PUT (64, y16), blok2, PSET: <br />PUT (96, y16), bloks, PSET: PUT (112, y16), blokk, PSET <br />END IF <br /> <br />IF el$ = "D" THEN <br />PUT (0, y16), szaretlo4, PSET: PUT (64, y16), szaretlo4, PSET <br />PUT (128, y16), szaretlo4, PSET <br />PUT (192, y16), blokp, PSET: PUT (208, y16), blok4, PSET <br />PUT (272, y16), blok2, PSET: PUT (304, y16), bloks, PSET <br />END IF <br /> <br />REM czesc automatyczna, znaki a-h <br />ascii = ASC(el$) <br /> <br />IF ascii > 96 THEN <br />bity = ascii - 97 <br />PUT (0, y16), blok4, PSET: <br />pop1 = 0 <br />pop2 = 0 <br />pop3 = 0 <br /> <br />IF (bity AND 4) = 4 THEN PUT (64, y16), blok4, PSET: pop1 = 1 <br />IF (bity AND 4) = 0 THEN PUT (48, y16), blokk, PSET: PUT (64, y16), szaretlo4, PSET: pop1 = 0 <br />REM <br />IF (bity AND 2) = 2 THEN pop2 = 1: PUT (128, y16), blok4, PSET: IF pop1 = 0 THEN PUT (128, y16), blokp, PSET <br />IF (bity AND 2) = 0 THEN pop2 = 0: PUT (128, y16), szaretlo4, PSET: IF pop1 = 1 THEN PUT (112, y16), blokk, PSET <br />REM <br />IF (bity AND 1) = 1 THEN pop3 = 1: PUT (192, y16), blok4, PSET: IF pop2 = 0 THEN PUT (192, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN pop3 = 0: PUT (192, y16), szaretlo4, PSET: IF pop2 = 1 THEN PUT (176, y16), blokk, PSET <br />PUT (256, y16), blok4, PSET <br />IF pop3 = 0 THEN PUT (256, y16), blokp, PSET <br />END IF <br /> <br />REM znaki 0-3 <br /> <br />IF ascii < 58 THEN <br />bity = ascii - 48 <br />IF (bity AND 2) = 2 THEN PUT (0, y16), blokk, PSET <br />IF (bity AND 2) = 0 THEN PUT (0, y16), szaretlo, PSET <br />PUT (16, y16), szaretlo4, PSET <br />PUT (80, y16), szaretlo4, PSET <br />PUT (144, y16), szaretlo4, PSET <br />PUT (208, y16), szaretlo4, PSET <br />PUT (272, y16), szaretlo2, PSET <br /> <br />IF (bity AND 1) = 1 THEN PUT (304, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN PUT (304, y16), szaretlo, PSET <br />END IF <br /> <br /> <br />NEXT yw <br /> <br /> <br /> <br />REM rysowanie podestow <br /> <br />el$ = MID$(kod$, 14, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO dodatek <br /> <br />el2$ = MID$(kod$, 15, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "#" THEN PUT (0, yokna), ceg40, PSET <br />IF el$ = "W" THEN PUT (0, yokna), ceg4plus20plus4, PSET <br />IF el$ = "U" THEN PUT (0, yokna), ceg17plus17, PSET <br />IF el$ = "0" THEN PUT (0, yokna), ceg13plus13, PSET <br />IF el$ = "A" THEN FOR xx = 0 TO 4: PUT (16 + xx * 64, yokna), ceg2, PSET: NEXT xx <br />IF el$ = "B" THEN FOR xx = 0 TO 5: PUT (64 + xx * 32, yokna), ceg2, PSET: NEXT xx <br /> <br />REM dodatkowy element <br />dodatek: <br /> <br />el$ = MID$(kod$, 29, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO okna <br />el2$ = MID$(kod$, 30, 1) <br />xokna = (ASC(el2$) - 65) * 8 <br />el2$ = MID$(kod$, 31, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "A" THEN <br />PUT (xokna, yokna), blokp, PSET: <br />PUT (xokna, yokna + 18), blokp, PSET <br />PUT (xokna + 16, yokna), blok2, PSET: <br />PUT (xokna + 16, yokna + 18), blok2, PSET <br />PUT (xokna + 48, yokna), blokk, PSET: <br />PUT (xokna + 48, yokna + 18), blokk, PSET <br />END IF <br />IF el$ = "B" THEN COLOR 235: LINE (xokna + 5, yokna)-(xokna + 9, yokna + 35), , BF <br />IF el$ = "C" THEN PUT (xokna, yokna), ceg2, PSET: PUT (xokna + 32, yokna), ceg2, PSET: PUT (xokna + 64, yokna), ceg2, PSET <br />IF el$ = "D" THEN LINE (xokna, yokna)-(xokna + 22, yokna + 17), 235, BF: LINE (xokna + 42, yokna)-(xokna + 63, yokna + 17), 235, BF <br />IF el$ = "E" THEN LINE (xokna, yokna)-(xokna + 5, yokna + 35), 235, BF: LINE (xokna + 26, yokna + 36)-(xokna + 31, yokna + 72), 235, BF <br /> <br />okna: <br /> <br />REM rysowanie okien <br /> <br />el$ = MID$(kod$, 17, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO serce <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 18, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />IF roomy < 2 THEN PUT (xokna, yokna), window2, PSET <br />IF roomy > 1 AND roomy < 5 THEN PUT (xokna, yokna), window1, PSET <br />IF roomy > 4 THEN PUT (xokna, yokna), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20 <br />yokna = -20 <br />IF serca(roomx, roomy) = 0 THEN GOTO donica <br />el$ = MID$(kod$, 23, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO donica <br />xserca = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 24, 1) <br />yserca = (ASC(el$) - 65) * 9 <br />GET (xserca, yserca)-(xserca + 15, yserca + 7), tlo <br />COLOR 5 <br />LINE (xserca, yserca + 1)-(xserca, yserca + 3) <br />LINE (xserca + 1, yserca)-(xserca + 1, yserca + 4) <br />LINE (xserca + 2, yserca)-(xserca + 2, yserca + 5) <br />LINE (xserca + 3, yserca + 1)-(xserca + 3, yserca + 6) <br />LINE (xserca + 4, yserca)-(xserca + 4, yserca + 5) <br />LINE (xserca + 5, yserca)-(xserca + 5, yserca + 4) <br />LINE (xserca + 6, yserca + 1)-(xserca + 6, yserca + 3) <br /> <br />donica: <br />el$ = MID$(kod$, 26, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO wentyl <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 27, 1) <br />yokna = (ASC(el$) - 65) * 9 + 2 <br />PUT (xokna, yokna), palma, PSET <br /> <br />wentyl: <br />el$ = MID$(kod$, 20, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO koniecrysowania <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 21, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />PUT (xokna, yokna), wentylator, PSET <br /> <br />koniecrysowania: <br /> <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br /> <br />END SUB <br /> <br />SUB zabranie <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 6000: NEXT i <br /> <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 6000: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 13:43, 18 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul BSAVE do gry "Serca" <br /> <br />SCREEN 13 <br /> <br />DIM kolor$(0 TO 255) <br />DIM cegla(0 TO 42) AS LONG <br />DIM tlo(0 TO 40) AS LONG <br />DIM poltlo(0 TO 16) AS LONG <br />DIM bitmap$(0 TO 31) <br />DIM blok(0 TO 74) AS LONG <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 0A 0A 0A": REM tlo plyta <br />kolor$(2) = "02 06 06 06": REM tlo fuga <br />kolor$(3) = "03 10 10 10": REM tlo krawedz <br />kolor$(4) = "04 00 2F 00": REM liscie <br />kolor$(5) = "05 3F 3F 3F" <br />kolor$(6) = "06 3F 3F 3F" <br />kolor$(7) = "07 28 0A 00": REM doniczka <br />kolor$(8) = "08 00 00 3F": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 20 20 20": REM framuga zewnetrzna <br />kolor$(11) = "0B 18 18 18": REM wentylator obudowa <br />kolor$(12) = "0C 3F 3F 3F": REM wentylator faza 1 <br />kolor$(13) = "0D 2F 2F 2F": REM wentylator faza 2 <br />kolor$(14) = "0E 1F 1F 1F": REM wentylator faza 3 <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM bloki przezroczystosci <br />kolor$(16) = "10 3F 3F 3F" <br />kolor$(32) = "20 3F 3F 3F" <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />kolor$(31) = "1F 28 00 00": REM sweter <br />kolor$(47) = "2F 05 12 2F": REM spodnie <br />kolor$(63) = "3F 17 17 17": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 2C 17": REM skora1 <br />kolor$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 30 20 00": REM nos <br />kolor$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 20 00 00": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 2B 2B": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br />REM rysunki **************************************** <br /> <br />REM rysunek cegly <br /> <br />bitmap$(0) = "DDDDDDDDDDDDDDDE" <br />bitmap$(1) = "DFFFFFFFFFFFFFFE" <br />bitmap$(2) = "DFFFFFFFFFFFFFFE" <br />bitmap$(3) = "DFFFFFFFFFFFFFFE" <br />bitmap$(4) = "DFFFFFFFFFFFFFFE" <br />bitmap$(5) = "DFFFFFFFFFFFFFFE" <br />bitmap$(6) = "DFFFFFFFFFFFFFFE" <br />bitmap$(7) = "DFFFFFFFFFFFFFFE" <br />bitmap$(8) = "EEEEEEEEEEEEEEEE" <br /> <br />REM 250-A 251-B 252-C 253-D 254-E 255-F <br /> <br />FOR yd = 0 TO 8 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 - 1 + &HF0 + 10 <br />: PSET (xd, yd) <br />NEXT xd: NEXT yd <br />GET (0, 0)-(15, 8), cegla <br /> <br /> <br />REM komorka tla <br /> <br />REM tlo(0) = &H80040 <br /> <br />bitmap$(0) = "0001200000012000" <br />bitmap$(1) = "1111200000011111" <br />bitmap$(2) = "2221200000012222" <br />bitmap$(3) = "0001200000012000" <br />bitmap$(4) = "0001200000012000" <br />bitmap$(5) = "0001111111112000" <br />bitmap$(6) = "0001222222212000" <br />bitmap$(7) = "0001200000012000" <br />bitmap$(8) = "0001200000012000" <br /> <br /> <br />FOR yd = 0 TO 8 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 48 + 1 <br />: PSET (xd, yd) <br />NEXT xd: NEXT yd <br /> <br />GET (0, 0)-(15, 8), tlo <br /> <br /> <br /> <br />REM przygotowanie tablic elementow wierszowych <br />CLS <br /> <br />FOR x = 0 TO 19 <br />FOR y = 0 TO 8 <br />PUT (x * 16, y * 9), tlo, PSET <br />NEXT y <br />NEXT x <br /> <br />REM cegly <br /> <br />FOR i = 0 TO 19 <br />PUT (i * 16, 0), cegla, PSET <br />NEXT i <br /> <br />FOR i = 0 TO 7 <br />PUT (i * 16, 9), cegla, PSET <br />PUT (304 - i * 16, 9), cegla, PSET <br />NEXT i <br /> <br />FOR i = 0 TO 4 <br />PUT (i * 16, 18), cegla, PSET <br />PUT (304 - i * 16, 18), cegla, PSET <br />NEXT i <br /> <br /> <br />FOR i = 0 TO 2 <br />PUT (i * 16, 27), cegla, PSET <br />PUT (304 - i * 16, 27), cegla, PSET <br />NEXT i <br />FOR i = 0 TO 9 <br />PUT (i * 16 + 80, 27), cegla, PSET <br />NEXT i <br /> <br /> <br />REM poszerzenie przejsc pionowych <br /> <br />REM GET (8, 64)-(15, 71), poltlo <br />REM PUT (136, 8), poltlo, PSET <br />REM PUT (40, 24), poltlo, PSET <br />REM GET (0, 64)-(7, 71), poltlo <br />REM PUT (176, 8), poltlo, PSET <br />REM PUT (272, 24), poltlo, PSET <br /> <br />REM wykonczenie cegiel <br />REM COLOR 253: REM szczeliny <br />REM LINE (135, 8)-(135, 15) <br />REM LINE (79, 16)-(79, 23) <br />REM LINE (39, 24)-(39, 31) <br />REM LINE (239, 24)-(239, 31) <br /> <br />REM COLOR 252: REM krawedzie <br />REM LINE (184, 12)-(184, 14) <br />REM LINE (240, 21)-(240, 22) <br />REM LINE (80, 28)-(80, 30) <br />REM LINE (280, 28)-(280, 30) <br /> <br /> <br />REM RYSUNEK DONICZKI <br /> <br />bitmap$(0) = "DDDCBEEBBEECDDDD" <br />bitmap$(1) = "BBBCEEEEEEEEDBBB" <br />bitmap$(2) = "BBBEEEEEEEEEEBBB" <br />bitmap$(3) = "BBBEEEEEEEECEEBB" <br />bitmap$(4) = "BBEEDEDEEDECEEBB" <br />bitmap$(5) = "BBECBEBEEBECDEBB" <br />bitmap$(6) = "BBECEBBEEBBEDEBB" <br />bitmap$(7) = "BBECEBBEEBBEDEBB" <br />bitmap$(8) = "CCCCDBBEEBBCDCCC" <br />bitmap$(9) = "DDDCDBBEEBBCDDDD" <br />bitmap$(10) = "BBBCDBBEEBBCDBBB" <br />bitmap$(11) = "BBBCDHHHHHHCDBBB" <br />bitmap$(12) = "BBBCCHHHHHHCDBBB" <br />bitmap$(13) = "BBBCDDHHHHDCDBBB" <br />bitmap$(14) = "BBBCDBHHHHBCDBBB" <br />bitmap$(15) = "BBBCDBHHHHBCDBBB" <br /> <br />FOR yd = 0 TO 15 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 <br />: PSET (xd + 16, yd + 64) <br />NEXT xd: NEXT yd <br /> <br />REM rysunek bloku <br /> <br />bitmap$(0) = "KLKLKLKLKLKLKLKF" + "JJJJJJJJJJJJJJJF" + "KLKLKLKLKLKLKLKF" <br />bitmap$(1) = "LJJJJJJJJJJJJJJF" + "KHHHHHIHHGHHHHHF" + "LJJJJJJJJJJJJJJF" <br />bitmap$(2) = "MJKIJIJKJJKJJJJF" + "KHHHIHHHIHHGHHHF" + "MJJKJKJIJKJIJIJF" <br />bitmap$(3) = "LJJJJJJJJIJIJIJF" + "KHGHHHHIHHHHIHHF" + "LJJJIJJJIJJJJKJF" <br />bitmap$(4) = "MJJKJJJJJKJJJJJF" + "KHHHIHGHHIHHHHHF" + "MJJJJKJJJJJKJJJF" <br />bitmap$(5) = "MJJIJKJIJJIJKJJF" + "KHHHHHHIHHHHIHHF" + "MJKJJJJIJJJJJKJF" <br />bitmap$(6) = "LJKJIJJJKJJIJIJF" + "KHHGHHIHGHHIHGHF" + "LJKJIJJJKJJJIJJF" <br />bitmap$(7) = "MJJJJJJJJJJJJJJF" + "KHHHHHHHHHHHHHHF" + "MJJJJJJJJJIJJJJF" <br />bitmap$(8) = "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" <br />bitmap$(9) = "KLKLKLKFJJJJJJJJ" + "JJJJJJJFJJJJJJJJ" + "JJJJJJJFKLKLKLKF" <br />bitmap$(10) = "LJJJJJJFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFLJJJJJJF" <br />bitmap$(11) = "MJJIJJJFKHIHHIHH" + "HIHIHHHFKHHGHGHH" + "HHGHIHHFMJKJIJJF" <br />bitmap$(12) = "LJJJKJJFKHHGHHHI" + "HHGHHGHFKHIHHHHI" + "HGHHHHHFLJJJKJJF" <br />bitmap$(13) = "MJIJJIJFKHIHHHHH" + "GHHHIHHFKHHHHHGH" + "HHIHHHHFMJKJJIJF" <br />bitmap$(14) = "MJJIJJJFKHHHIHHH" + "GHIHHHHFKHHHGHHH" + "HHHHHIHFMJJJJJJF" <br />bitmap$(15) = "LJKJKJJFKHIHHGHI" + "HHHIHGHFKHGHHIHG" + "HIHGHHHFLJKJIKJF" <br />bitmap$(16) = "MJJJJJJFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFMJJJJJJF" <br />bitmap$(17) = "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" <br /> <br />FOR yd = 0 TO 17 <br />FOR xd = 0 TO 47 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 + 224 <br />: PSET (xd + 32, yd + 64) <br />NEXT xd: NEXT yd <br /> <br />GET (48, 64)-(63, 81), blok <br />FOR i = 0 TO 19: PUT (i * 16, 156), blok, PSET <br />NEXT i <br /> <br /> <br />COLOR 15: LOCATE 10, 16: PRINT "SERCA 1.0" <br /> <br />REM animacja <br />REM 7,9 - rejestry przezroczyste <br /> <br />bitmap$(0) = "0000003333000000" + "0000003333000000" <br />bitmap$(1) = "0000033333300000" + "0000033333300000" <br />bitmap$(2) = "0000066663300000" + "0000033366600000" <br />bitmap$(3) = "0000063663300000" + "0000033663600000" <br />bitmap$(4) = "0000866666300000" + "0000036666680000" <br />bitmap$(5) = "0000066666300000" + "0000036666600000" <br />bitmap$(6) = "0000006666000000" + "0000006666000000" <br />bitmap$(7) = "0000000661000000" + "0000001660000000" <br />bitmap$(8) = "0000000711700000" + "0000071170000000" <br />bitmap$(9) = "0000007111100000" + "0000011117000000" <br /> <br />bitmap$(10) = "0000071111170000" + "0000711111700000" <br />bitmap$(11) = "0000011111170000" + "0000711111100000" <br />bitmap$(12) = "0000011111110000" + "0000111111100000" <br />bitmap$(13) = "0000711111117000" + "0007111111170000" <br />bitmap$(14) = "0000711111111000" + "0001111111170000" <br />bitmap$(15) = "0000111111111000" + "0001111111110000" <br />bitmap$(16) = "0001111333311000" + "0001133331111000" <br />bitmap$(17) = "0006602222206600" + "0066022222066000" <br />bitmap$(18) = "0006002222200600" + "0060022222006000" <br />bitmap$(19) = "0000092222200000" + "0000922222900000" <br />bitmap$(20) = "0000022222290000" + "0000222222200000" <br />bitmap$(21) = "0000022222220000" + "0000222222200000" <br />bitmap$(22) = "0000022202220000" + "0000222022200000" <br />bitmap$(23) = "0000922202220000" + "0000222022220000" <br />bitmap$(24) = "0000222202222000" + "0009222022220000" <br />bitmap$(25) = "0000222009222000" + "0002229002220000" <br />bitmap$(26) = "0000222000222000" + "0002220002220000" <br />bitmap$(27) = "0000222000222000" + "0002220002220000" <br />bitmap$(28) = "0009222000222300" + "0032220009229000" <br />bitmap$(29) = "0002220000033300" + "0033300000222000" <br />bitmap$(30) = "0003330000330000" + "0000330000222000" <br />bitmap$(31) = "0033330000000000" + "0000000000333300" <br /> <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 31 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "0000003333000000" + "0000003333000000" <br />bitmap$(1) = "0000033333300000" + "0000033333300000" <br />bitmap$(2) = "0000066633300000" + "0000033366600000" <br />bitmap$(3) = "0000063663300000" + "0000033663600000" <br />bitmap$(4) = "0000866663300000" + "0000033666680000" <br />bitmap$(5) = "0000066666300000" + "0000036666600000" <br />bitmap$(6) = "0000006666000000" + "0000006666000000" <br />bitmap$(7) = "0000000661000000" + "0000001660000000" <br />bitmap$(8) = "0000000711700000" + "0000071170000000" <br />bitmap$(9) = "0000007111100000" + "0000011117000000" <br /> <br />bitmap$(10) = "0000001111100000" + "0000011111000000" <br />bitmap$(11) = "0000001111100000" + "0000011111000000" <br />bitmap$(12) = "0000001111100000" + "0000011111000000" <br />bitmap$(13) = "0000001111100000" + "0000011111000000" <br />bitmap$(14) = "0000071111100000" + "0000011111700000" <br />bitmap$(15) = "0000071111100000" + "0000011111700000" <br />bitmap$(16) = "0000071111300000" + "0000031111700000" <br />bitmap$(17) = "0000028118200000" + "0000028118200000" <br />bitmap$(18) = "0000022662200000" + "0000022662200000" <br />bitmap$(19) = "0000022662200000" + "0000022662200000" <br />bitmap$(20) = "0000022222000000" + "0000002222200000" <br />bitmap$(21) = "0000922222000000" + "0000002222290000" <br />bitmap$(22) = "0000222222000000" + "0000002222220000" <br />bitmap$(23) = "0000922222000000" + "0000002222290000" <br />bitmap$(24) = "0000022222000000" + "0000002222200000" <br />bitmap$(25) = "0000022222300000" + "0000032222200000" <br />bitmap$(26) = "0000002222300000" + "0000032222000000" <br />bitmap$(27) = "0000000222330000" + "0000332220000000" <br />bitmap$(28) = "0000000222033000" + "0003300222000000" <br />bitmap$(29) = "0000000222000000" + "0000000222000000" <br />bitmap$(30) = "0000000222000000" + "0000000222000000" <br />bitmap$(31) = "0000033330000000" + "0000000033330000" <br /> <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 31 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 32, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 32, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 32, yd + 88) <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 32, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "0000003333000000" + "0000003333000000" <br />bitmap$(1) = "0000033333300000" + "0000033333300000" <br />bitmap$(2) = "0000066633300000" + "0000033366600000" <br />bitmap$(3) = "0000063663300000" + "0000033663600000" <br />bitmap$(4) = "0000866663300000" + "0000033666680000" <br />bitmap$(5) = "0000066666300000" + "0000036666600000" <br />bitmap$(6) = "0000006666000000" + "0000006666000000" <br />bitmap$(7) = "0000000661000000" + "0000001660000000" <br />bitmap$(8) = "0000000711700000" + "0000071170000000" <br />bitmap$(9) = "0000007111100000" + "0000011117000000" <br /> <br />bitmap$(10) = "0000071111100000" + "0000111117000000" <br />bitmap$(11) = "0000011111170000" + "0000111111700000" <br />bitmap$(12) = "0000711111110000" + "0000111111170000" <br />bitmap$(13) = "0000711111110000" + "0000111111170000" <br />bitmap$(14) = "0000711111110000" + "0000111111170000" <br />bitmap$(15) = "0000111111110000" + "0000111111110000" <br />bitmap$(16) = "0000111333310000" + "0000133331110000" <br />bitmap$(17) = "0000066222260000" + "0000622226600000" <br />bitmap$(18) = "0000006222260000" + "0000622226000000" <br />bitmap$(19) = "0000002222200000" + "0000022222000000" <br />bitmap$(20) = "0000002222200000" + "0000022222000000" <br />bitmap$(21) = "0000022222200000" + "0000022222200000" <br />bitmap$(22) = "0000022222200000" + "0000022222200000" <br />bitmap$(23) = "0000922222200000" + "0000022222290000" <br />bitmap$(24) = "0000222022200000" + "0000022202220000" <br />bitmap$(25) = "0000222022200000" + "0000022202220000" <br />bitmap$(26) = "0000222092290000" + "0000922902220000" <br />bitmap$(27) = "0000222002220000" + "0000222002220000" <br />bitmap$(28) = "0000222002220000" + "0000222002220000" <br />bitmap$(29) = "0003333002220000" + "0000222003333000" <br />bitmap$(30) = "0000000000222000" + "0002220000000000" <br />bitmap$(31) = "0000000033330000" + "0000333300000000" <br /> <br /> <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 31 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 64, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 64, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 64, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 64, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "000006C8C6000000" <br />bitmap$(6) = "0000006860000000" <br />bitmap$(7) = "0000001610000000" <br />bitmap$(8) = "0000711111700000" <br />bitmap$(9) = "0001111111110000" <br /> <br />bitmap$(10) = "0071111111117000" <br />bitmap$(11) = "0071111111117000" <br />bitmap$(12) = "0011711111711000" <br />bitmap$(13) = "0711711111711700" <br />bitmap$(14) = "0A11711111711A00" <br />bitmap$(15) = "0117A11111A71100" <br />bitmap$(16) = "0117111111171100" <br />bitmap$(17) = "01104BBBBB401100" <br />bitmap$(18) = "0860922222906800" <br />bitmap$(19) = "0000922222900000" <br />bitmap$(20) = "0000929092900000" <br />bitmap$(21) = "0000929092900000" <br />bitmap$(22) = "0000929092900000" <br />bitmap$(23) = "0000929092900000" <br />bitmap$(24) = "0000929092900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000333033300000" <br />bitmap$(31) = "0003330003330000" <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM RYSUNEK OKNA NIEBIESKO-ZIELONEGO <br />bitmap$(0) = "AAGGGGGGGGGGGGGGGGGGGGGGGGGGGGAA" <br />bitmap$(1) = "AAGKKKKKKKKGKKKKKKKKGKKKKKKKKGAA" <br />bitmap$(2) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(3) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(4) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(5) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(6) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(7) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(8) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(9) = "AAGKIEEEEIIGKIIEEIIIGKEEEIIIIGAA" <br />bitmap$(10) = "AAGKEEEEEEIGKIEEEEIEGKEEEEIIIGAA" <br />bitmap$(11) = "AAGKEEEEEEEGKEEEEEEEGKEEEEEEIGAA" <br />bitmap$(12) = "AAGKEHEEEEEGKEEEEEEEGKEEEEEEEGAA" <br />bitmap$(13) = "AAGKEHEHEEEGKEHEEEEEGKEEHEEEEGAA" <br />bitmap$(14) = "AAGKEEHEEEEGKEHEHEEEGKHEHEEHEGAA" <br />bitmap$(15) = "AAGKEEHEEEEGKEEHEEEEGKEHEEHEEGAA" <br />bitmap$(16) = "AAGKHEHEEEEGKHEHEHEEGKEEHEHEEGAA" <br />bitmap$(17) = "AAGKEHEEEHEGKEHEEEHEGKEEEHEEEGAA" <br />bitmap$(18) = "AAGKEHEEEHEGKEHEEEHEGKEEHEEEEGAA" <br />bitmap$(19) = "AGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGA" <br /> <br />FOR yd = 0 TO 19 <br />FOR xd = 0 TO 31 <br />color$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />COLOR ASC(color$) - 65 <br />PSET (xd, yd + 120) <br />NEXT xd: NEXT yd <br /> <br />REM RYSUNEK OKNA NIEBIESKIEGO <br />bitmap$(0) = "AAGGGGGGGGGGGGGGGGGGGGGGGGGGGGAA" <br />bitmap$(1) = "AAGKKKKKKKKGKKKKKKKKGKKKKKKKKGAA" <br />bitmap$(2) = "AAGKIIIIIIIGKIIIIIIIGKIIIJJJJGAA" <br />bitmap$(3) = "AAGKIIIIIIIGKIIIIIIIGKIIIJJJJGAA" <br />bitmap$(4) = "AAGKIIIIIIIGKIIIIIIIGKIIIIJJJGAA" <br />bitmap$(5) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIJJGAA" <br />bitmap$(6) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(7) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(8) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(9) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(10) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(11) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(12) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(13) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(14) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(15) = "AAGKIEEEEIIGKIIEEIIIGKEEEIIIIGAA" <br />bitmap$(16) = "AAGKEEEEEEIGKIEEEEIEGKEEEEIIIGAA" <br />bitmap$(17) = "AAGKEEEEEEEGKEEEEEEEGKEEEEEEIGAA" <br />bitmap$(18) = "AAGKEEEEEEEGKEEEEEEEGKEEEEEEEGAA" <br />bitmap$(19) = "AGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGA" <br /> <br />FOR yd = 0 TO 19 <br />FOR xd = 0 TO 31 <br />color$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />COLOR ASC(color$) - 65 <br />PSET (xd + 32, yd + 120) <br />NEXT xd: NEXT yd <br /> <br />REM RYSUNEK OKNA ZIELONEGO <br /> <br />bitmap$(0) = "AAGGGGGGGGGGGGGGGGGGGGGGGGGGGGAA" <br />bitmap$(1) = "AAGKKKKKKKKGKKKKKKKKGKKKKKKKKGAA" <br />bitmap$(2) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(3) = "AAGKIIIIIIIGKIIIIIIIGKIIIIIIIGAA" <br />bitmap$(4) = "AAGKIEEEEIIGKIIEEIIIGKEEEIIIIGAA" <br />bitmap$(5) = "AAGKEEEEEEIGKIEEEEIEGKEEEEIIIGAA" <br />bitmap$(6) = "AAGKEEEEEEEGKEEEEEEEGKEEEEEEIGAA" <br />bitmap$(7) = "AAGKEEHEEEEGKEEHEHEEGKEHEEEEEGAA" <br />bitmap$(8) = "AAGKEEHEHEEGKEEEHEEHGKEEHEEEEGAA" <br />bitmap$(9) = "AAGKEEEHEEEGKHEEHEHEGKHEHEEHEGAA" <br />bitmap$(10) = "AAGKHEEHEEEGKHEHEHEEGKEHEEHEEGAA" <br />bitmap$(11) = "AAGKEHEHEHEGKEHEEHEHGKEEHEHEEGAA" <br />bitmap$(12) = "AAGKEEHEEHEGKEHEEEHEGKEEHHEEEGAA" <br />bitmap$(13) = "AAGKEEHEHEEGKEHEHEHEGKEEHEEEEGAA" <br />bitmap$(14) = "AAGKEEHHEEEGKEHHEEHEGKEEHEEEEGAA" <br />bitmap$(15) = "AAGKEEHEEEEGKEHEEEHEGKEEHEEEEGAA" <br />bitmap$(16) = "AAGKEEHEEEEGKEHEEHHHGKEEHEEEEGAA" <br />bitmap$(17) = "AAGKEHHHEEEGKHHHEEEEGKEHHHEEEGAA" <br />bitmap$(18) = "AAGKEEEEEEEGKEEEEEEEGKEEEEEEEGAA" <br />bitmap$(19) = "AGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGA" <br /> <br />FOR yd = 0 TO 19 <br />FOR xd = 0 TO 31 <br />color$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />COLOR ASC(color$) - 65 <br />PSET (xd + 64, yd + 120) <br />NEXT xd: NEXT yd <br /> <br />REM RYSUNEK wentylatora <br /> <br />bitmap$(0) = "KKKKKGGGGGKKKKKALLLLLGGGGGLLLLLA" <br />bitmap$(1) = "KKKGGNNLLLGGKKKALLLGGLLLLLGGLLLA" <br />bitmap$(2) = "KKGNNNNLLLLLGKKALLGALLLLLLLAGLLA" <br />bitmap$(3) = "KGMMNNNLLLLMMGKALGAALLLLLLLAAGLA" <br />bitmap$(4) = "KGMMMNNLLLMMMGKALGAAALLLLLAAAGLA" <br />bitmap$(5) = "GMMMMMNLLMMMMMGAGAAAALLLLLAAAAGA" <br />bitmap$(6) = "GMMMMMGGGMMMMNGAGAAAAALLLAAAAAGA" <br />bitmap$(7) = "GLLLLLGGGNNNNNGAGLLLAAALAAALLLGA" <br />bitmap$(8) = "GLLLLLGGGNNNNNGAGLLLLLLALLLLLLGA" <br />bitmap$(9) = "GLLLNNNMLLLNNNGAGLLLLLLALLLLLLGA" <br />bitmap$(10) = "KGNNNNMMMLLLNGKALGLLLLAAALLLLGLA" <br />bitmap$(11) = "KGNNNNMMMLLLLGKALGLLLAAAAALLLGLA" <br />bitmap$(12) = "KKGNNNMMMLLLGKKALLGLLAAAAALLGLLA" <br />bitmap$(13) = "KKKGGMMMMMGGKKKALLLGGAAAAAGGLLLA" <br />bitmap$(14) = "KKKKKGGGGGKKKKKALLLLLGGGGGLLLLLA" <br />bitmap$(15) = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" <br /> <br />FOR yd = 0 TO 15 <br />FOR xd = 0 TO 31 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 <br />: PSET (xd, yd + 140) <br />NEXT xd: NEXT yd <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 13:42, 18 Wrz 2021<span class="gen"> </span> Temat postu: Test 16x9 plansz</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB zabranie () <br /> <br />REM Gra "Serca" UWAGA wersaj gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <br />DECLARE SUB dreptanie () <br />DECLARE SUB animacja () <br />DECLARE SUB rysowanie () <br />DECLARE SUB palety () <br />DECLARE SUB plansze () <br />DECLARE SUB cegly () <br /> <br />REM plansza startowa: <br />DIM SHARED roomx AS INTEGER, roomy AS INTEGER <br />roomx = 7: roomy = 4 <br /> <br />DIM SHARED kolor$(0 TO 255) <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED p$(0 TO 143) <br />DIM SHARED kod$ <br />DIM SHARED serca(0 TO 15, 0 TO 8) AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br /> <br />REM pamiec tla pod wziatek <br /> <br />DIM SHARED tlo(0 TO 32) AS LONG <br /> <br />REM tlo <br /> <br />DIM SHARED szaretlo(0 TO 74) AS LONG <br />DIM SHARED szaretlo2(0 TO 148) AS LONG <br />DIM SHARED szaretlo4(0 TO 300) AS LONG <br />REM dane elementow planszy <br /> <br />DIM SHARED ceg2(0 TO 75) AS LONG <br />DIM SHARED ceg40(0 TO 730) AS LONG <br />DIM SHARED ceg17plus17(0 TO 730) AS LONG <br />DIM SHARED ceg13plus13(0 TO 760) AS LONG <br />DIM SHARED ceg4plus20plus4(0 TO 750) AS LONG <br />DIM SHARED palma(0 TO 64) AS LONG <br /> <br />DIM SHARED blokp(0 TO 74) AS LONG <br />DIM SHARED bloks(0 TO 74) AS LONG <br />DIM SHARED blokk(0 TO 74) AS LONG <br />DIM SHARED blok2(0 TO 158) AS LONG <br />DIM SHARED blok4(0 TO 296) AS LONG <br /> <br />REM ****************** DANE ANIMACJI <br /> <br />DIM SHARED znakp1(0 TO 128) AS LONG <br />DIM SHARED znakl1(0 TO 128) AS LONG <br />DIM SHARED znakp2(0 TO 128) AS LONG <br />DIM SHARED znakl2(0 TO 128) AS LONG <br />DIM SHARED znakp3(0 TO 128) AS LONG <br />DIM SHARED znakl3(0 TO 128) AS LONG <br />DIM SHARED vertd1(0 TO 128) AS LONG <br /> <br />REM matryce okien <br /> <br />DIM SHARED window1(0 TO 160) AS LONG <br />DIM SHARED window2(0 TO 160) AS LONG <br />DIM SHARED window3(0 TO 160) AS LONG <br /> <br />DIM SHARED wentylator(0 TO 64) AS LONG <br /> <br />REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />REM PRINT FRE(-2): END <br />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 150: y = 35: xs = 150: ys = 35: REM wspolrzedne poczatkowe gracza na ekranie <br />licz = -1: REM wartosc startowa zegara <br />REM roomx = 3: roomy = 3 przeniesione wyzej <br />kolwent = 30 + 30 * 256 + 30 * 65536: REM kolor lopat wentylatora <br /> <br />REM ***** SUB palety - ustawienie nowych wartosci barw <br />palety <br /> <br />REM ***** SUB cegly - zapelnienie pozostalych tablic <br />cegly <br /> <br />REM SUB plansze - wypelnienie tablicy wygladu plansz <br />plansze <br /> <br />REM SUB animacja - tablice animacji postaci <br />REM animacja <br /> <br /> <br />REM ************************* WYBOR POMIESZCZENIA <br /> <br />rysuj: <br /> <br />kod$ = p$(roomx + roomy * 16) <br /> <br />REM ******************** rysowanie pomieszczenia <br />t0 = PEEK(1132): REM pomiar czasu rysowania <br /> <br /> <br />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />COLOR 235 <br />REM LOCATE 23, 1: FOR i = 1 TO 40: PRINT CHR$(223); : NEXT i <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <br /> <br />LOCATE 24, 2: COLOR 3: PRINT "T:"; t0; "/"; t1; FRE(-2); <br />PRINT " ROOM:"; roomx; "/"; roomy; "--"; <br /> <br /> <br />REM **************** zapamietanie pola pod graczem <br />GET (x, y)-(x + 15, y + 31), pamiec <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />REM PUT (x, y), vertd1, PSET <br />liczsercaroom = 0: zrobione = 0 <br />GOTO postaw <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <br />dx = 0: dy = 0 <br />IF dzwiekbrania = 1 THEN dzwiekbrania = 0: zabranie <br /> <br />REM ******************* czas gry w sekundach <br /> <br />se$ = MID$(TIME$, 7, 2) <br />se = VAL(se$) <br />IF se <> ses THEN licz = licz + 1 <br />ses = se <br />LOCATE 25, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br />FOR delay = 1 TO 700: NEXT delay <br /> <br />REM faza wentylatora <br /> <br />komorka = PEEK(1132) / 1.5 <br />faz = INT(komorka) <br />IF faz / 3 = INT(faz / 3) THEN faza = 0 <br />IF (faz + 1) / 3 = INT((faz + 1) / 3) THEN faza = 1 <br />IF (faz + 2) / 3 = INT((faz + 2) / 3) THEN faza = 2 <br />FOR i = 0 TO 2: i16 = i * 16 <br />IF faza = 0 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, 0 <br />IF faza = 1 THEN PALETTE 11 + i16, 0: PALETTE 12 + i16, kolwent: PALETTE 13 + i16, kolwent <br />IF faza = 2 THEN PALETTE 11 + i16, kolwent: PALETTE 12 + i16, 0: PALETTE 13 + i16, kolwent <br />NEXT i <br /> <br />REM ************************ sprawdzenie klawiszy <br /> <br />alt = 0: lshift = 0: pshift = 0: skos = 0 <br /> <br />k$ = INKEY$ <br />IF k$ = "f" THEN roomx = roomx - 1: GOTO rysuj <br />IF k$ = "h" THEN roomx = roomx + 1: GOTO rysuj <br />IF k$ = "t" THEN roomy = roomy - 1: GOTO rysuj <br />IF k$ = "b" THEN roomy = roomy + 1: GOTO rysuj <br /> <br />IF k$ = CHR$(27) THEN END <br /> <br />REM klawisz alt - wznoszenie sie <br />IF (PEEK(1047) AND 8) = 8 THEN alt = 1 <br />IF (PEEK(1047) AND 2) = 2 THEN lshift = 1 <br />IF (PEEK(1047) AND 1) = 1 THEN pshift = 1 <br /> <br />REM bezruch = grawitacja <br />IF lshift = 0 AND pshift = 0 AND alt = 0 THEN dy = 2: vert = 1: obrot = 0: przebiervert = 0: GOTO czy <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br /> <br />IF lshift = 1 THEN dx = -4: dy = 2: obrot = -1: vert = 0 <br />IF pshift = 1 THEN dx = 4: dy = 2: obrot = 1: vert = 0 <br />IF alt = 1 THEN dy = -4: vert = 1 <br />IF dx <> 0 AND dy <> 0 THEN skos = 1 <br />czy: <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br /> <br />IF x + dx > 300 THEN x = 5: xs = 5: roomx = roomx + 1: GOTO rysuj <br />IF x + dx < 3 THEN x = 300: xs = 300: roomx = roomx - 1: GOTO rysuj <br />IF y + dy > 144 THEN y = 5: ys = 5: roomy = roomy + 1: GOTO rysuj <br />IF y + dy < 4 THEN y = 145: ys = 145: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br />REM sprawdzenie przeszkody. Przeszkoda sa kolory > 200 <br /> <br />xmozliwy = 0: xniemozliwy = 0 <br />ymozliwy = 0: yniemozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa obok <br /> <br />IF dx > 0 THEN <br />FOR i = 0 TO 31: IF POINT(x + 19, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br /> <br />IF dx < 0 THEN <br />FOR i = 0 TO 31: IF POINT(x - 3, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF xniemozliwy = 0 THEN xmozliwy = 1 <br />IF xniemozliwy = 1 THEN xmozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa gora dol <br /> <br />IF dy > 0 THEN <br />FOR i = 0 TO 15: <br />IF POINT(x + i, y + 32) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y + 33) > 200 THEN yniemozliwy = 1: EXIT FOR <br /> <br />NEXT i <br />END IF <br /> <br />IF dy < 0 THEN <br />FOR i = 0 TO 15 <br />IF POINT(x + i, y - 4) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y - 5) > 200 THEN yniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF yniemozliwy = 0 THEN ymozliwy = 1 <br />IF yniemozliwy = 1 THEN ymozliwy = 0 <br /> <br />REM ruch gdy oba mozliwe x oraz y <br />IF ymozliwy = 1 AND xmozliwy = 1 THEN IF dx <> 0 OR dy <> 0 THEN GOTO ruch <br /> <br /> <br />REM szczegolne przypadki gdy tylko x albo y mozliwy <br />IF ymozliwy = 0 AND xmozliwy = 1 THEN dy = 0: GOTO czy <br />IF ymozliwy = 1 AND xmozliwy = 0 THEN dx = 0: GOTO czy <br /> <br />REM ruch niemozliwy powrot petli glownej bez zmian pozostaja x y <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** RUCH <br /> <br />ruch: <br /> <br />x = x + dx: y = y + dy <br />IF dy = 0 AND przebieranie = 0 AND alt = 0 THEN dreptanie: REM dzwiek chodzenia <br /> <br />REM ******************** czy jest wziatek <br />deltawx = ABS(x + 4 - xserca) <br />deltawy = ABS(y + 16 - yserca) <br />IF deltawx < 10 AND deltawy < 22 THEN GOSUB wziatek <br /> <br />REM ************************************** operacja odswiezania tla <br />postaw: <br />REM punkt 1 zapamietanie nowego pola dzialania (brudnego) <br />REM w oparciu o nowe x,y <br /> <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />REM************ 2 odnowienie pola dzialania uwzgledniajac dawne tlo <br /> <br />deltax = x - xs: deltay = y - ys <br />inversx = -1 * deltax: inversy = -1 * deltay <br />inver4 = INT(inversx / 4) <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = (yt + inversy) * 6 <br />FOR xt = 0 TO 3 <br />index1 = 1 + (yt6 + 24) + (xt + inver4) + 1 <br />index2 = 1 + yt4 + xt <br />poledzialania(index1) = pamiec(index2) <br />NEXT xt: NEXT yt <br /> <br />REM zmazanie serca z pola dzialania <br /> <br />IF liczsercaroom = 1 AND zrobione = 0 THEN <br />zrobione = 1 <br />PUT (x - 4, y - 4), poledzialania, PSET <br />PUT (xserca, yserca), tlo, PSET <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />END IF <br /> <br />REM nowa mala pamiec <br /> <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = yt * 6 <br />FOR xt = 0 TO 3: <br />index1 = 1 + (yt6 + 24) + (xt + 1): <br />index2 = 1 + yt4 + xt: <br />pamiec(index2) = poledzialania(index1): NEXT xt: NEXT yt <br /> <br /> <br />REM ************* rysowanie nowej postaci WEDLUG FAZY RUCHU <br /> <br />REM aby nie rysowac dwoch postaci w przypadku skosu <br />IF skos = 1 THEN GOTO bezskosu: <br /> <br />REM ************************** ruch w dol lub gore <br /> <br />IF vert = 1 THEN wkleic = 7: GOTO wklej <br />bezskosu: <br />REM ************************** ruch w lewo <br /> <br />IF obrot = -1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 1: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 2: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 3: GOTO wklej <br />END IF <br /> <br />REM ****************** ruch w prawo <br /> <br />IF obrot = 1 THEN <br />IF dy = 0 THEN przebieranie = przebieranie + 1 <br /> <br />IF przebieranie = 3 THEN przebieranie = 0 <br />IF przebieranie = 0 THEN wkleic = 4: GOTO wklej <br />IF przebieranie = 1 THEN wkleic = 5: GOTO wklej <br />IF przebieranie = 2 THEN wkleic = 6: GOTO wklej <br />END IF <br /> <br />xs = x: ys = y <br /> <br />GOTO petla <br /> <br />wklej: <br /> <br />IF wkleic = 1 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 2 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 3 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 4 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 5 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 6 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 7 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR vertd1(index2)): NEXT xt: NEXT yt <br /> <br />REM wklejenie wyniku operacji na tablicy: <br />PUT (x - 4, y - 4), poledzialania, PSET <br /> <br />xs = x: ys = y <br />GOTO petla <br /> <br />REM GOSUB-RETURN****************************** obsluga wziatku <br /> <br />wziatek: <br />IF serca(roomx, roomy) = 0 THEN GOTO niemawziatku <br />IF liczsercaroom = 1 THEN GOTO niemawziatku <br />serca(roomx, roomy) = 0 <br />liczserca = liczserca + 1 <br />PUT (xserca, yserca), tlo, PSET <br /> <br />liczsercaroom = 1 <br />dzwiekbrania = 1 <br /> <br />LOCATE 1, 1: COLOR 6: PRINT liczserca; <br />niemawziatku: <br />RETURN <br /> <br />SUB animacja <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br />REM ten SUB jest do skasowania <br /> <br />END SUB <br /> <br />SUB cegly <br /> <br />BLOAD "bitmap1.scr" <br /> <br />REM INPUT a$ <br />REM pobranie z ekranu tablic elementow <br />REM uwaga! wysokosc elementu to 9 lub 18 px <br /> <br />GET (0, 0)-(31, 8), ceg2 <br />GET (0, 0)-(319, 8), ceg40 <br />GET (0, 9)-(319, 17), ceg17plus17 <br />GET (0, 18)-(319, 26), ceg13plus13 <br />GET (0, 27)-(319, 35), ceg4plus20plus4 <br />GET (0, 36)-(15, 53), szaretlo <br />GET (0, 36)-(31, 53), szaretlo2 <br />GET (0, 36)-(63, 53), szaretlo4: REM 36+18=46+8=54 <br /> <br />GET (16, 64)-(31, 79), palma <br />GET (32, 64)-(47, 81), blokp <br />GET (48, 64)-(63, 81), bloks <br />GET (64, 64)-(79, 81), blokk <br />GET (0, 156)-(31, 173), blok2 <br />GET (0, 156)-(63, 173), blok4 <br /> <br />GET (0, 88)-(15, 119), znakl1 <br />GET (16, 88)-(31, 119), znakp1 <br />GET (32, 88)-(47, 119), znakl2 <br />GET (48, 88)-(63, 119), znakp2 <br />GET (64, 88)-(79, 119), znakl3 <br />GET (80, 88)-(95, 119), znakp3 <br />GET (96, 88)-(111, 119), vertd1 <br /> <br />GET (0, 120)-(31, 139), window1 <br />GET (32, 120)-(63, 139), window2 <br />GET (64, 120)-(95, 139), window3 <br />GET (0, 140)-(15, 155), wentylator <br />CLS <br />END SUB <br /> <br />SUB dreptanie <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />REM ewentualnie: <br />REM OUT 66, 30: OUT 66, 0 <br />REM OUT 66, 164: OUT 66, 2 <br />REM OUT 66, 130: OUT 66, 1 <br />REM OUT 66, 74: OUT 66, 0 <br />REM OUT 66, 220: OUT 66, 1 <br /> <br />FOR i = 1 TO 10 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 84: OUT 66, 2 <br />OUT 66, 30: OUT 66, 0 <br />OUT 66, 94: OUT 66, 2 <br />OUT 66, 10: OUT 66, 0 <br />OUT 66, 40: OUT 66, 2 <br />OUT 66, 84: OUT 66, 0 <br />OUT 66, 10: OUT 66, 2 <br /> <br /> <br />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 05 05 06": REM tlo plyta <br />kolor$(2) = "02 02 03 02": REM tlo fuga <br />kolor$(3) = "03 07 06 06": REM tlo krawedz <br />kolor$(4) = "04 00 22 00": REM liscie <br />kolor$(5) = "05 3F 08 00": REM serce <br />kolor$(6) = "06 30 30 30": REM framuga okna <br />kolor$(7) = "07 28 0A 00": REM doniczka drzewa <br />kolor$(8) = "08 00 21 39": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 14 14 14": REM framuga zewnetrzna <br />kolor$(11) = "0B 00 00 00": REM wentylator faza 1 <br />kolor$(12) = "0C 00 00 00": REM wentylator faza 2 <br />kolor$(13) = "0D 00 00 00": REM wentylator faza 3 <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />kolor$(16) = "10 18 02 02": REM sweter + zero <br />kolor$(17) = "11 18 02 02": REM <br />kolor$(18) = "12 18 02 02": REM <br />kolor$(19) = "13 18 02 02": REM <br />kolor$(20) = "14 22 12 00": REM sweter + liscie <br />kolor$(21) = "15 3F 00 00": REM <br />kolor$(22) = "16 2F 09 09": REM sweter + framuga okna <br />kolor$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />kolor$(24) = "18 25 16 24": REM sweter + niebo <br />kolor$(25) = "19 3F 3F 3F": REM sweter + slonce <br />kolor$(26) = "1A 16 0F 0F": REM sweter + framuga zew <br />kolor$(27) = "1B 3F 3F 3F": REM <br />kolor$(28) = "1C 3F 3F 3F": REM <br />kolor$(29) = "1D 3F 3F 3F": REM <br />kolor$(30) = "1E 3F 3F 3F": REM <br />REM kolor 31 1F zastrzezony dla gracza <br />kolor$(32) = "20 0A 13 29": REM spodnie + zero <br />kolor$(33) = "21 0A 13 29": REM <br />kolor$(34) = "22 0A 13 29": REM <br />kolor$(35) = "23 0A 13 29": REM <br />kolor$(36) = "24 05 1D 24": REM spodnie+ liscie <br />kolor$(37) = "25 3F 3F 3F": REM <br />kolor$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />kolor$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />kolor$(40) = "28 00 1A 3F": REM spodnie + niebo <br />kolor$(41) = "29 3F 3F 3F": REM spodnie +slonce <br />kolor$(42) = "2A 10 14 20": REM spodnie + framuga zew <br />kolor$(43) = "2B 3F 3F 3F": REM <br />kolor$(44) = "2C 3F 3F 3F": REM <br />kolor$(45) = "2D 3F 3F 3F": REM <br />kolor$(46) = "2E 3F 3F 3F": REM <br />REM rejestr 47 2F zastrzezony dla gracza <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br />REM rejestry nieprzezroczyste <br /> <br />kolor$(31) = "1F 2F 09 09": REM sweter <br />kolor$(47) = "2F 0D 1A 37": REM spodnie <br />kolor$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 30 20": REM skora1 <br />kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 32 22 02": REM nos <br />kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 22 02 02": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 24 24": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br /> <br /> <br /> <br />END SUB <br /> <br />SUB plansze <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** roomy*16+roomx <br /> <br />REM kody plansz +++nr.po.ok.we.se_kw_dod <br />REM ************ plansze wiersza roomy=0 <br /> <br />p$(0) = "h22233322d.0.UI.YO....GN_______" <br />p$(1) = "h000fff11h.1....MD...._________" <br />p$(2) = "h11133333f.2.UI.HE....___EQ____" <br />p$(3) = "hh2223cchh.3..........SJ_______" <br />p$(4) = "h300033fff.4....ZK...._________" <br />p$(5) = "h2001c333f.5....LG....______AQG" <br />p$(6) = "h111g3222f.6....LD....___EQ____" <br />p$(7) = "hh222d111g.7.BE....DF.aH_WI____" <br />p$(8) = "hhDDDfCCCg.8.........._________" <br />p$(9) = "hhCCCf111c.9.........._________" <br />p$(10) = "hhDDDf222g.A..........GG_EQ____" <br />p$(11) = "hh333f111d.B....HG...._________" <br />p$(12) = "hhffff333g.C.........._________" <br />p$(13) = "h22233333c.D.UN.aK.DF.MK____AYC" <br />p$(14) = "h111ff22hh.E..........___aG_BLM" <br />p$(15) = "h3333311cc.F....ZK....aH____AIG" <br /> <br /> <br />REM ************ plansze wiersza roomy=1 <br /> <br />p$(16) = "d333c2223h.0.......FN._________" <br />p$(17) = "h33330003h.1.WH.YO....RN_______" <br />p$(18) = "ff333111ff.2.WJ.ML...._________" <br />p$(19) = "hc222c333c.3..........___QQ____" <br />p$(20) = "f31113333h.4.UM.aI.aO._________" <br />p$(21) = "f333aa333h.5..........RN_GQ____" <br />p$(22) = "ffff333fff.6....DJ....aM_______" <br />p$(23) = "gg333a33ff.7.........._________" <br />p$(24) = "gg333333ff.8.AK....IF._________" <br />p$(25) = "cccc33cccc.9..........SJ_______" <br />p$(26) = "gg33dd33ff.A....LF....aO_______" <br />p$(27) = "ddaa22cccc.B.........._________" <br />p$(28) = "g33300333h.C.AM....aO._________" <br />p$(29) = "c33311333c.D.0M.......ZK____AQO" <br />p$(30) = "h3322233dd.E.......aF._________" <br />p$(31) = "c33111333h.F.AM.bD....___QQ____" <br /> <br /> <br />REM ************* plansze wiersza roomy=2 <br /> <br />p$(32) = "h333ff333c.0..........KE_WQ___" <br />p$(33) = "h333c2222c.1....MD....UP______" <br />p$(34) = "faaaa0000h.2....WO.VI.________" <br />p$(35) = "ccccc1111f.3....MM....___EQ____" <br />p$(36) = "h33333c333.4.WO.NP....SM_______" <br />p$(37) = "haa33222af.5.UJ....GL._________" <br />p$(38) = "f333c111ah.6....aM....UP_______" <br />p$(39) = "ff333d333g.7....YP....___KQ____" <br />p$(40) = "ff3333333g.8.#I.......KM_______" <br />p$(41) = "c33g33d33c.9.........._________" <br />p$(42) = "ff3333333g.A.WM.LI...._________" <br />p$(43) = "cc333322cc.B.UJ......._________" <br />p$(44) = "hhaacc00hh.C.......JG.ZM____AQM" <br />p$(45) = "c333cc11gg.D....aN....______AQM" <br />p$(46) = "dd33cc22hh.E..........______AQE" <br />p$(47) = "hh3331113c.F.UK....VI.___EQ____" <br /> <br />REM ************ plansze wiersza roomy=3 <br /> <br />p$(48) = "c333c2222f.0....ZM.ZD.SF______" <br />p$(49) = "ccccc1111h.1..........________" <br />p$(50) = "ha3222333c.2.#F.LO....UO_SQ___" <br />p$(51) = "ff3111333f.3.WM.YI.VI.SJ_GQ___" <br />p$(52) = "h3333c333f.4..........NG______" <br />p$(53) = "ff333c222f.5....ZO....SG______" <br />p$(54) = "hhaaff000f.6..........___KQ___" <br />p$(55) = "gggg33111f.7....LO.VJ.________" <br />p$(56) = "gg3322ffff.8..........GG______" <br />p$(57) = "cccc00hfff.9..........________" <br />p$(58) = "gg33DDffff.A..........___KK___" <br />p$(59) = "cccccfffff.B.......TL.________" <br />p$(60) = "hh3333333f.C....KK....DP______" <br />p$(61) = "g333333hhh.D.UJ....TF.________" <br />p$(62) = "hh3222333f.E..........___GQ___" <br />p$(63) = "c331113hhh.F....ZK....________" <br /> <br />REM ****************** plansze wiersza roomy=4 <br /> <br />p$(64) = "f22322322h.0....DD....SP_YQ___" <br />p$(65) = "h00f00f00h.1..........________" <br />p$(66) = "c11311311f.2....aP.KP.________" <br />p$(67) = "ff3332223h.3.UJ.ML....___YQ___" <br />p$(68) = "f3333111hh.4.WJ.YL....________" <br />p$(69) = "ffaafaaaff.5.......VI.________" <br />p$(70) = "ffa333c33h.6....OG....SQ_YQ___" <br />p$(71) = "ff223c333d.7....aO....________": REM startowa <br />p$(72) = "ff113c333d.8..........aO______" <br />p$(73) = "ff33cc33ff.9..........________" <br />p$(74) = "ff3322333d.A.WM.LI.ZP.PP______" <br />p$(75) = "ff22DD333f.B.UM.......___EQ___" <br />p$(76) = "ff11333hhh.C.......KH.________" <br />p$(77) = "h333333333.D....SK....bF______" <br />p$(78) = "ff22233hhh.E.UJ.......________" <br />p$(79) = "h311133fff.F.WJ.......MM______" <br /> <br />REM ******************* plansze wiersza roomy=5 <br /> <br />p$(80) = "haf222faff.0.......VI.___KK___" <br />p$(81) = "hhf111222h.1..........SP______" <br />p$(82) = "fa333c000h.2....GO....________" <br />p$(83) = "h222fa111f.3..........___YQ___" <br />p$(84) = "h111c2223h.4.0Q....EE.MM______" <br />p$(85) = "ffffa111ff.5..........________" <br />p$(86) = "h333c333af.6....DD....ZF_MQ___" <br />p$(87) = "dd333f333g.7.......VI.___aI___" <br />p$(88) = "dd3333333g.8.UK.KO....________" <br />p$(89) = "f32233f33f.9.......ED.KK______" <br />p$(90) = "ddDDCC333g.A....ZK....KO______" <br />p$(91) = "f33300f33f.B..........________" <br />p$(92) = "h33300333c.C....NN....________" <br />p$(93) = "333311333h.D.0M....TG.GG______" <br />p$(94) = "h33222333c.E.AM.......________" <br />p$(95) = "ff3111333h.F.WM.FF....___YQ___" <br /> <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />p$(96) = "fffa222hhh.0....EJ....___YM___" <br />p$(97) = "hhhf000bbb.1....SJ....ML______" <br />p$(98) = "h222111hhh.2..........___KM___" <br />p$(99) = "f111aaafff.3....PH....ZJ______" <br />p$(100) = "h222ahhhhh.4..........EE______" <br />p$(101) = "f11133222h.5.0I.......___GQ___" <br />p$(102) = "ffffff000h.6....LO....________" <br />p$(103) = "gg333d111f.7....MO....aP______" <br />p$(104) = "gg333hCCCh.8.......ZN.KH______" <br />p$(105) = "ffffffDDDh.9..........________" <br />p$(106) = "gg333fCCCh.A..........___KI___" <br />p$(107) = "ff3333111h.B.0I....KK.aP______" <br />p$(108) = "cc22dd22ff.C..........________" <br />p$(109) = "hhDDffDDhh.D.......TJ.LN______" <br />p$(110) = "ccc2222hhh.E..........________" <br />p$(111) = "hhhDDDDhhh.F..........TK_KM___" <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />p$(112) = "hffa222hhh.0..........__________!" <br />p$(113) = "bbbb000hhh.1....KK....__________!" <br />p$(114) = "h222111fff.2.BJ.......ZE____AIK_!" <br />p$(115) = "f000aaahhh.3..........___KM_____!" <br />p$(116) = "h000ahhhhh.4.......KF.__________!" <br />p$(117) = "h111hh222h.5..........KQ________!" <br />p$(118) = "hfffff000f.6....KO....__________!" <br />p$(119) = "fffeee000h.7..........___KQ_____!" <br />p$(120) = "hh3333000h.8.BL.......__________!" <br />p$(121) = "hCCCffDDDh.9..........KO________!" <br />p$(122) = "hDDDccCCCh.A..........___MK_____!" <br />p$(123) = "hf333300Df.B.AL.......__________!" <br />p$(124) = "ffffff00hh.C....KN....__________!" <br />p$(125) = "hhhhhf00fh.D.......TK.__________!" <br />p$(126) = "h33c3300ff.E..........KK________!" <br />p$(127) = "hhheefDDhh.F....KN....__________!" <br /> <br />REM ******************* plansze wiersza roomy=8 <br /> <br />p$(128) = "hffa222hhh.0..........__________!" <br />p$(129) = "hbbb000hhh.1..........__________!" <br />p$(130) = "f222111hhh.2..........__________!" <br />p$(131) = "h000aaahhh.3..........__________!" <br />p$(132) = "h000ahhhhh.4..........__________!" <br />p$(133) = "h111hh222h.5..........__________!" <br />p$(134) = "ffffff000h.6..........__________!" <br />p$(135) = "hffeee000h.7..........__________!" <br />p$(136) = "hh3333000h.8..........__________!" <br />p$(137) = "hCCCffDDDh.9..........__________!" <br />p$(138) = "hDDDccCCCh.A..........__________!" <br />p$(139) = "ff333300Dh.B..........__________!" <br />p$(140) = "hfffff00hh.C..........__________!" <br />p$(141) = "hhhhhf00fh.D..........__________!" <br />p$(142) = "f33c3300hh.E..........__________!" <br />p$(143) = "hhheefDDhh.F..........__________!" <br /> <br /> <br />REM tablica serc <br />FOR xr = 0 TO 15 <br />FOR yr = 0 TO 8 <br />s = xr + yr * 16 <br />znak$ = MID$(p$(s), 23, 1) <br />IF znak$ <> "_" THEN serca(xr, yr) = 1 <br />NEXT yr: NEXT xr <br /> <br /> <br />END SUB <br /> <br />SUB rysowanie <br /> <br /> <br />FOR yw = 0 TO 9 <br />el$ = MID$(kod$, yw + 1, 1) <br />y16 = yw * 18 <br /> <br />REM tymczasowe sygnalizacje bledow: <br /> <br />IF el$ = "Q" OR el$ = "L" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "P" OR el$ = "W" OR el$ = "=" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "A" OR el$ = "B" OR el$ = "U" THEN COLOR 15: LINE (0, y16)-(200, y16) <br />IF el$ = "@" THEN COLOR 15: LINE (0, y16)-(200, y16) <br /> <br /> <br />REM elementy uzupelniajace <br /> <br />IF el$ = "C" THEN <br />PUT (128, y16), szaretlo4, PSET: PUT (192, y16), szaretlo4, PSET <br />PUT (256, y16), szaretlo4, PSET <br />PUT (0, y16), blok4, PSET: PUT (64, y16), blok2, PSET: <br />PUT (96, y16), bloks, PSET: PUT (112, y16), blokk, PSET <br />END IF <br /> <br />IF el$ = "D" THEN <br />PUT (0, y16), szaretlo4, PSET: PUT (64, y16), szaretlo4, PSET <br />PUT (128, y16), szaretlo4, PSET <br />PUT (192, y16), blokp, PSET: PUT (208, y16), blok4, PSET <br />PUT (272, y16), blok2, PSET: PUT (304, y16), bloks, PSET <br />END IF <br /> <br />REM czesc automatyczna, znaki a-h <br />ascii = ASC(el$) <br /> <br />IF ascii > 96 THEN <br />bity = ascii - 97 <br />PUT (0, y16), blok4, PSET: <br />pop1 = 0 <br />pop2 = 0 <br />pop3 = 0 <br /> <br />IF (bity AND 4) = 4 THEN PUT (64, y16), blok4, PSET: pop1 = 1 <br />IF (bity AND 4) = 0 THEN PUT (48, y16), blokk, PSET: PUT (64, y16), szaretlo4, PSET: pop1 = 0 <br />REM <br />IF (bity AND 2) = 2 THEN pop2 = 1: PUT (128, y16), blok4, PSET: IF pop1 = 0 THEN PUT (128, y16), blokp, PSET <br />IF (bity AND 2) = 0 THEN pop2 = 0: PUT (128, y16), szaretlo4, PSET: IF pop1 = 1 THEN PUT (112, y16), blokk, PSET <br />REM <br />IF (bity AND 1) = 1 THEN pop3 = 1: PUT (192, y16), blok4, PSET: IF pop2 = 0 THEN PUT (192, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN pop3 = 0: PUT (192, y16), szaretlo4, PSET: IF pop2 = 1 THEN PUT (176, y16), blokk, PSET <br />PUT (256, y16), blok4, PSET <br />IF pop3 = 0 THEN PUT (256, y16), blokp, PSET <br />END IF <br /> <br />REM znaki 0-3 <br /> <br />IF ascii < 58 THEN <br />bity = ascii - 48 <br />IF (bity AND 2) = 2 THEN PUT (0, y16), blokk, PSET <br />IF (bity AND 2) = 0 THEN PUT (0, y16), szaretlo, PSET <br />PUT (16, y16), szaretlo4, PSET <br />PUT (80, y16), szaretlo4, PSET <br />PUT (144, y16), szaretlo4, PSET <br />PUT (208, y16), szaretlo4, PSET <br />PUT (272, y16), szaretlo2, PSET <br /> <br />IF (bity AND 1) = 1 THEN PUT (304, y16), blokp, PSET <br />IF (bity AND 1) = 0 THEN PUT (304, y16), szaretlo, PSET <br />END IF <br /> <br /> <br />NEXT yw <br /> <br /> <br /> <br />REM rysowanie podestow <br /> <br />el$ = MID$(kod$, 14, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO dodatek <br /> <br />el2$ = MID$(kod$, 15, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "#" THEN PUT (0, yokna), ceg40, PSET <br />IF el$ = "W" THEN PUT (0, yokna), ceg4plus20plus4, PSET <br />IF el$ = "U" THEN PUT (0, yokna), ceg17plus17, PSET <br />IF el$ = "0" THEN PUT (0, yokna), ceg13plus13, PSET <br />IF el$ = "A" THEN FOR xx = 0 TO 4: PUT (16 + xx * 64, yokna), ceg2, PSET: NEXT xx <br />IF el$ = "B" THEN FOR xx = 0 TO 5: PUT (64 + xx * 32, yokna), ceg2, PSET: NEXT xx <br /> <br />REM dodatkowy element <br />dodatek: <br /> <br />el$ = MID$(kod$, 29, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO okna <br />el2$ = MID$(kod$, 30, 1) <br />xokna = (ASC(el2$) - 65) * 8 <br />el2$ = MID$(kod$, 31, 1) <br />yokna = (ASC(el2$) - 65) * 9 <br />IF el$ = "A" THEN <br />PUT (xokna, yokna), blokp, PSET: <br />PUT (xokna, yokna + 18), blokp, PSET <br />PUT (xokna + 16, yokna), blok2, PSET: <br />PUT (xokna + 16, yokna + 18), blok2, PSET <br />PUT (xokna + 48, yokna), blokk, PSET: <br />PUT (xokna + 48, yokna + 18), blokk, PSET <br />END IF <br />IF el$ = "B" THEN COLOR 235: LINE (xokna + 5, yokna)-(xokna + 9, yokna + 35), , BF <br /> <br />okna: <br /> <br />REM rysowanie okien <br /> <br />el$ = MID$(kod$, 17, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO serce <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 18, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />IF roomy < 2 THEN PUT (xokna, yokna), window2, PSET <br />IF roomy > 1 AND roomy < 5 THEN PUT (xokna, yokna), window1, PSET <br />IF roomy > 4 THEN PUT (xokna, yokna), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20 <br />yokna = -20 <br />IF serca(roomx, roomy) = 0 THEN GOTO donica <br />el$ = MID$(kod$, 23, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO donica <br />xserca = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 24, 1) <br />yserca = (ASC(el$) - 65) * 9 <br />GET (xserca, yserca)-(xserca + 15, yserca + 7), tlo <br />COLOR 5 <br />LINE (xserca, yserca + 1)-(xserca, yserca + 3) <br />LINE (xserca + 1, yserca)-(xserca + 1, yserca + 4) <br />LINE (xserca + 2, yserca)-(xserca + 2, yserca + 5) <br />LINE (xserca + 3, yserca + 1)-(xserca + 3, yserca + 6) <br />LINE (xserca + 4, yserca)-(xserca + 4, yserca + 5) <br />LINE (xserca + 5, yserca)-(xserca + 5, yserca + 4) <br />LINE (xserca + 6, yserca + 1)-(xserca + 6, yserca + 3) <br /> <br />donica: <br />el$ = MID$(kod$, 26, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO wentyl <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 27, 1) <br />yokna = (ASC(el$) - 65) * 9 + 2 <br />PUT (xokna, yokna), palma, PSET <br /> <br />wentyl: <br />el$ = MID$(kod$, 20, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO koniecrysowania <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 21, 1) <br />yokna = (ASC(el$) - 65) * 9 <br />PUT (xokna, yokna), wentylator, PSET <br /> <br />koniecrysowania: <br /> <br /> <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br /> <br />END SUB <br /> <br />SUB zabranie <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 6000: NEXT i <br /> <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 6000: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> </table>
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj