Ż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: Sob 20:33, 25 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 dzwiek (ktory!) <br /> <br />REM Gra "Serca", UWAGA wersja gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <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 k$(0 TO 255): REM paleta kolorow <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED pozycjewind(1 TO 3) AS INTEGER <br />DIM SHARED p$(0 TO 175): REM dane plansz <br />DIM SHARED kod$ <br />DIM SHARED serca(0 TO 15, 0 TO 10) AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br />DIM SHARED xwindy AS INTEGER, ywindy 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 ceg4(0 TO 144) AS LONG <br />DIM SHARED cegz2(0 TO 75) AS LONG <br />DIM SHARED cegzl2(0 TO 220) AS LONG <br /> <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 />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 200: y = 35: xs = 200: ys = 35: REM wspol. pocz. gracza na ekr. <br />licz = -1: REM wartosc start. zegara <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 ************************* START 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 />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />IF przejechal = 1 THEN y = ywindy + 3: ys = ywindy + 3: przejechal = 0 <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />LINE (0, 180)-(319, 182), 234, BF <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <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: dzwiek (2) <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 />IF k$ = CHR$(27) THEN END <br /> <br />IF x >= xwindy AND y - ywindy < 10 THEN <br />IF k$ = "1" OR k$ = "2" THEN GOSUB przejazd: GOTO rysuj <br />IF k$ = "3" THEN GOSUB przejazd: GOTO rysuj <br />END IF <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 dzwiek (1): 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 />REM GOSUB-RETURN przejazd: <br />przejazd: <br />pietro = VAL(k$) <br />roomy = pozycjewind(pietro) <br /> <br />FOR i = 23 TO 0 STEP -1 <br />LINE (xwindy + i, ywindy)-(xwindy + i, ywindy + 35), 255 <br />FOR j = 1 TO 7500: NEXT j <br />NEXT i <br />CLS <br />FOR i = 1 TO 30000: NEXT i <br />przejechal = 1 <br />RETURN <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)-(63, 8), ceg4 <br />GET (64, 0)-(95, 8), cegz2 <br />GET (0, 9)-(47, 26), cegzl2 <br /> <br />GET (0, 36)-(15, 53), szaretlo <br />GET (0, 36)-(31, 53), szaretlo2 <br />GET (0, 36)-(63, 53), szaretlo4 <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 dzwiek (ktory) <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 />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 />REM DREPTANIE <br />IF ktory = 1 THEN <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 />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br />END IF <br /> <br /> <br />REM zabranie serca <br /> <br />IF ktory = 2 THEN <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 6000: NEXT i <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 6000: NEXT i <br />END IF <br /> <br /> <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: k$(i) = "00 00 00 00" <br />PALETTE i, 31 + 31 * 256 + 31 * 65536: NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 05 05 06": REM tlo plyta <br />k$(2) = "02 02 03 02": REM tlo fuga <br />k$(3) = "03 07 06 06": REM tlo krawedz <br />k$(4) = "04 00 22 00": REM liscie <br />k$(5) = "05 3F 08 00": REM serce <br />k$(6) = "06 30 30 30": REM framuga okna <br />k$(7) = "07 28 0A 00": REM doniczka drzewa <br />k$(8) = "08 00 21 39": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 14 14 14": REM framuga zewnetrzna <br />k$(11) = "0B 00 00 00": REM wentylator faza 1 <br />k$(12) = "0C 00 00 00": REM wentylator faza 2 <br />k$(13) = "0D 00 00 00": REM wentylator faza 3 <br />k$(14) = "0E 20 20 20": REM srednia szarosc <br />k$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />k$(16) = "10 18 02 02": REM sweter + zero <br />k$(17) = "11 18 02 02": REM <br />k$(18) = "12 18 02 02": REM <br />k$(19) = "13 18 02 02": REM <br />k$(20) = "14 22 12 00": REM sweter + liscie <br />k$(21) = "15 3F 00 00": REM <br />k$(22) = "16 2F 09 09": REM sweter + framuga okna <br />k$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />k$(24) = "18 25 16 24": REM sweter + niebo <br />k$(25) = "19 3F 3F 3F": REM sweter + slonce <br />k$(26) = "1A 16 0F 0F": REM sweter + framuga zew <br />k$(27) = "1B 3F 3F 3F": REM <br />k$(28) = "1C 3F 3F 3F": REM <br />k$(29) = "1D 3F 3F 3F": REM <br />k$(30) = "1E 20 10 10": REM sweter + przyciski <br />REM kolor 31 (1F) zastrzezony dla gracza <br />k$(32) = "20 0A 13 29": REM spodnie + zero <br />k$(33) = "21 0A 13 29": REM <br />k$(34) = "22 0A 13 29": REM <br />k$(35) = "23 0A 13 29": REM <br />k$(36) = "24 05 1D 24": REM spodnie+ liscie <br />k$(37) = "25 3F 3F 3F": REM <br />k$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />k$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />k$(40) = "28 00 1A 3F": REM spodnie + niebo <br />k$(41) = "29 3F 3F 3F": REM spodnie +slonce <br />k$(42) = "2A 10 14 20": REM spodnie + framuga zew <br />k$(43) = "2B 3F 3F 3F": REM <br />k$(44) = "2C 3F 3F 3F": REM <br />k$(45) = "2D 3F 3F 3F": REM <br />k$(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 />k$(31) = "1F 2F 09 09": REM sweter <br />k$(47) = "2F 0D 1A 37": REM spodnie <br />k$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 30 20": REM skora1 <br />REM kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 32 22 02": REM nos <br />REM kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />REM kolor$(175) = "AF 22 02 02": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br />REM FF- zarezerwowany dla przeslony <br /> <br />REM rejestry jednokierunkowe <br />k$(198) = "C6 20 20 20" <br />k$(199) = "C7 20 20 20" <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 24 24": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM kolor 240 - przeslona <br />REM k$(240) = "F0 38 38 38" <br /> <br />REM cegly male zlote <br /> <br />k$(242) = "F2 30 2C 10": REM <br />k$(243) = "F3 28 24 08": REM <br />k$(244) = "F4 2A 26 0A": REM <br />k$(245) = "F5 24 20 04": REM <br /> <br />REM cegly male zielone <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 28 28 28": REM przeslona <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(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) = "h111g3322f.6....LD....___EQ_F[Q_!" <br />p$(7) = "hh222ff11d.7..........aH_ZI_MdO_!" <br />p$(8) = "hhDDDfCCCg.8..........______DQK_!" <br />p$(9) = "hhhhhf111c.9..........__________!" <br />p$(10) = "hhhhhf222g.A..........MO_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) = "dd333a33hh.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.BG....cE.__________!" <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.BD....JG.ZM____AQM_!" <br />p$(45) = "c333cc11gg.D....aN....______AQM_!" <br />p$(46) = "dd33cc22hh.E..........___aG_AQE_!" <br />p$(47) = "hh3333113c.F.UJ....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____COK_!" <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.__________!" <br />p$(62) = "hh3222333f.E..........___GQ_NKK_!" <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) = "ff223c33cd.7.0C.SN....GN_TI_MdM_!": REM startowa <br />p$(72) = "ff113aa33d.8..........MO____P9K_!" <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________!" <br />p$(78) = "ff222333hh.E.UK.......______FEE_!" <br />p$(79) = "h3111333ff.F.WK.......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) = "h333111hhh.2..........___KM_P9H_!" <br />p$(99) = "f333aaafff.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..........______DQK_!" <br />p$(106) = "hh333fCCCh.A.BE.......___KI_____!" <br />p$(107) = "ff3333111h.B.0I....LK.aP____CON_!" <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) = "hfaa222fff.0..........______COJ_!" <br />p$(113) = "bbbb000hhh.1....KK....__________!" <br />p$(114) = "h222111fff.2.BJ.......ZE____AIK_!" <br />p$(115) = "f000aaaahh.3..........___KO_AQI_!" <br />p$(116) = "h000aaaahh.4.......KF.______P9K_!" <br />p$(117) = "h111hh222h.5..........KQ________!" <br />p$(118) = "hffaaa001f.6....KO....__________!" <br />p$(119) = "ff33ee00hh.7..........___KO_MdE_!" <br />p$(120) = "hh3333002h.8.BL.......______CCQ_!" <br />p$(121) = "hCCCffDDDh.9..........KO________!" <br />p$(122) = "hDDDccCCCh.A..........___MK_____!" <br />p$(123) = "hf333300Df.B.AL.......__________!" <br />p$(124) = "ffffff11hh.C....KN....______IOI_!" <br />p$(125) = "hhhhhf22fh.D.......TK.__________!" <br />p$(126) = "h33c3300ff.E..........KK____COG_!" <br />p$(127) = "hhheefDDhh.F....KN....__________!" <br /> <br />REM ***************** n/8 plansze wiersza roomy=8 <br /> <br />p$(128) = "fffa222hhh.0..........KK________!" <br />p$(129) = "hbbb000hhh.1.UH.ZK....__________!" <br />p$(130) = "f222111fff.2.......KK.__________!" <br />p$(131) = "h111ccchhh.3..........______COI_!" <br />p$(132) = "h333aaafff.4.UI.......aF________!" <br />p$(133) = "h333ff222h.5....KO....__________!" <br />p$(134) = "ffffff000h.6.......aN.______DQK_!" <br />p$(135) = "hhhhha000h.7..........______ESK_!" <br />p$(136) = "hh3333000c.8....KG....______CKK_!" <br />p$(137) = "h33333111h.9..........cD____OKK_!" <br />p$(138) = "h33333222h.A.BG.......__________!" <br />p$(139) = "ffCCff00ff.B....KN....______KaE_!" <br />p$(140) = "hfDDff00hh.C.......TH.______JKM_!" <br />p$(141) = "hhhaac00fh.D.0L.......__________!" <br />p$(142) = "f3333300ff.E....SI....______COL_!" <br />p$(143) = "hhheefDDhh.F..........]H________!" <br /> <br />REM ***************** n/9 plansze wiersza roomy=9 <br /> <br />p$(144) = "haaa222ffh.0....SD....______COH_!" <br />p$(145) = "heee000fff.1.......DK.__________!" <br />p$(146) = "f222311hhh.2.AI.......KK________!" <br />p$(147) = "h000aaaccc.3..........______IOJ_!" <br />p$(148) = "f000ahhhhh.4....KH....__________!" <br />p$(149) = "h111hhhhhh.5..........___KG_____!" <br />p$(150) = "hhffaa222h.6.......ZK.______HEM_!" <br />p$(151) = "hhaaaa000d.7.UL.......__________!" <br />p$(152) = "ccc333000h.8.AL.......dI________!" <br />p$(153) = "h33333111h.9....SD....______GOK_!" <br />p$(154) = "h33333222h.A..........______NKG_!" <br />p$(155) = "ff223300Dh.B.BL.......__________!" <br />p$(156) = "hfDDff00ff.C.......SK.__________!" <br />p$(157) = "hhhaac11fh.D....KK....______DYK_!" <br />p$(158) = "f3333322hh.E..........KK________!" <br />p$(159) = "haa333DDhh.F.......DK.__________!" <br /> <br />REM ***************** n/10 plansze wiersza roomy=10 <br /> <br />p$(160) = "hhaa222fhh.0.......KK.__________!" <br />p$(161) = "ffee000hhh.1....KK....__________!" <br />p$(162) = "hh22311hhh.2..........cK____OKJ_!" <br />p$(163) = "cc00aaahhh.3..........___KM_____!" <br />p$(164) = "hh00ahhhhh.4.......PG.__________!" <br />p$(165) = "h111hhhhhh.5....KE....__________!" <br />p$(166) = "hhhhhhCChh.6..........RN________!" <br />p$(167) = "dddaaa00hh.7..........______OKL_!" <br />p$(168) = "hhh33300hh.8.......KK.__________!" <br />p$(169) = "hh333311hh.9..........__________!" <br />p$(170) = "hh333322hh.A..........KK________!" <br />p$(171) = "hhh33300hh.B....KK....__________!" <br />p$(172) = "fffaaa00hh.C..........______P6K_!" <br />p$(173) = "hhhh3300hh.D..........KK____ECI_!" <br />p$(174) = "hh333300hh.E....KH....______OKK_!" <br />p$(175) = "haa33aDDhh.F..........______PBK_!" <br /> <br /> <br />REM tablica serc <br />FOR xr = 0 TO 15 <br />FOR yr = 0 TO 10 <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 />REM tablica wind <br />pozycjewind(1) = 0 <br />pozycjewind(2) = 4 <br />pozycjewind(3) = 7 <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 />yo = (ASC(el2$) - 65) * 9 <br />IF el$ = "#" THEN FOR xx = 0 TO 4: PUT (xx * 64, yo), ceg4, PSET: NEXT xx <br />IF el$ = "W" THEN <br />PUT (16, yo), ceg2, PSET: PUT (80, yo), ceg4, PSET <br />PUT (144, yo), ceg4, PSET: PUT (208, yo), ceg2, PSET: PUT (272, yo), ceg2, PSET <br />END IF <br />IF el$ = "U" THEN <br />PUT (16, yo), ceg4, PSET: PUT (64, yo), ceg4, PSET <br />PUT (192, yo), ceg4, PSET: PUT (240, yo), ceg4, PSET <br />END IF <br />IF el$ = "0" THEN PUT (16, yo), ceg4, PSET: PUT (240, yo), ceg4, PSET <br />IF el$ = "A" THEN FOR xx = 0 TO 4: PUT (16 + xx * 64, yo), ceg2, PSET: NEXT xx <br />IF el$ = "B" THEN FOR xx = 0 TO 5: PUT (64 + xx * 32, yo), 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 />xo = (ASC(el2$) - 65) * 8 <br />el3$ = MID$(kod$, 31, 1) <br />yo = (ASC(el3$) - 65) * 9 <br />IF el$ = "A" THEN <br />PUT (xo, yo), blokp, PSET: PUT (xo, yo + 18), blokp, PSET <br />PUT (xo + 16, yo), blok2, PSET: PUT (xo + 16, yo + 18), blok2, PSET <br />PUT (xo + 48, yo), blokk, PSET: PUT (xo + 48, yo + 18), blokk, PSET <br />END IF <br /> <br />IF el$ = "B" THEN COLOR 235: LINE (xo + 5, yo)-(xo + 9, yo + 35), , BF <br />IF el$ = "C" THEN PUT (xo, yo), ceg2, PSET: PUT (xo + 32, yo), ceg2, PSET: PUT (xo + 64, yo), ceg2, PSET <br />IF el$ = "D" THEN LINE (xo, yo)-(xo + 22, yo + 17), 235, BF: LINE (xo + 42, yo)-(xo + 63, yo + 17), 235, BF <br />IF el$ = "E" THEN LINE (xo, yo)-(xo + 5, yo + 35), 235, BF: LINE (xo + 26, yo + 36)-(xo + 31, yo + 72), 235, BF <br />REM niebieskie klocki <br />IF el$ = "F" THEN PUT (xo, yo), nieb, PSET <br />IF el$ = "G" THEN PUT (xo, yo), nieb, PSET: PUT (xo + 64, yo), nieb, PSET <br />IF el$ = "H" THEN PUT (xo, yo), nieb, PSET: PUT (xo + 64, yo + 36), nieb, PSET <br />IF el$ = "I" THEN PUT (xo, yo), nieb, PSET: PUT (xo + 64, yo - 36), nieb, PSET <br />REM jednokierunkowe bramki <br />IF el$ = "J" THEN PSET (xo - 2, yo), 199: DRAW "R18 D35 L18 U35 F18 U1 G18" <br />IF el$ = "K" THEN PSET (xo - 2, yo), 198: DRAW "R18 D35 L18 U35 R18 G18 U1 F18" <br />REM zaslonka <br />IF el$ = "L" THEN LINE (xo, yo)-(xo + 15, yo + 35), 255, BF <br />REM winda <br />xwindy = -10: ywindy = -10 <br />IF el$ = "M" THEN <br />LINE (xo, yo)-(xo + 23, yo + 35), 10, BF <br />LINE (xo, yo)-(xo, yo + 36), 6 <br />LINE (xo + 3, yo + 7)-(xo + 5, yo + 17), 14, BF <br />LINE (xo + 1, yo)-(xo + 23, yo), 9 <br />PSET (xo + 4, yo + 8), 12 <br />PSET (xo + 4, yo + 10), 5: DRAW "D7 C14 R1 U2 L2 U2 R2 U2 L2" <br />xwindy = xo: ywindy = yo <br />COLOR 8: LOCATE (ywindy / 8) + 2, 34 <br />IF roomy = 0 THEN PRINT "1" <br />IF roomy = 4 THEN PRINT "2" <br />IF roomy = 7 THEN PRINT "3" <br />END IF <br />IF el$ = "N" THEN <br />PUT (xo, yo), cegz2, PSET: PUT (xo + 64, yo), cegz2, PSET: PUT (xo + 128, yo), cegz2, PSET <br />PUT (xo, yo + 54), cegz2, PSET: PUT (xo + 64, yo + 54), cegz2, PSET: PUT (xo + 128, yo + 54), cegz2, PSET <br />END IF <br />IF el$ = "O" THEN <br />PUT (xo, yo), cegz2, PSET: PUT (xo + 64, yo), cegz2, PSET: PUT (xo + 128, yo), cegz2, PSET <br />END IF <br />IF el$ = "P" THEN <br />el = VAL("&H" + el2$) <br />IF (el AND 8) = 8 THEN PUT (64, yo), cegzl2, PSET <br />IF (el AND 4) = 4 THEN PUT (64 + 48, yo), cegzl2, PSET <br />IF (el AND 2) = 2 THEN PUT (64 + 48 * 2, yo), cegzl2, PSET <br />IF (el AND 1) = 1 THEN PUT (64 + 48 * 3, yo), cegzl2, PSET <br />END IF <br /> <br /> <br />okna: <br /> <br />REM rysowanie okien <br /> <br />el$ = MID$(kod$, 17, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO serce <br />xo = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 18, 1) <br />yo = (ASC(el$) - 65) * 9 <br />IF roomy < 2 THEN PUT (xo, yo), window2, PSET <br />IF roomy > 1 AND roomy < 5 THEN PUT (xo, yo), window1, PSET <br />IF roomy > 4 THEN PUT (xo, yo), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20: yserca = -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 />PSET (xserca, yserca + 1), 5 <br />DRAW "D2 F1 U4 R1 D5 F1 U5 E1 D5 E1 U4 F1 D2" <br /> <br /> <br />donica: <br />el$ = MID$(kod$, 26, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO wentyl <br />xo = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 27, 1) <br />yo = (ASC(el$) - 65) * 9 + 2 <br />PUT (xo, yo), palma, PSET <br /> <br />wentyl: <br />el$ = MID$(kod$, 20, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO koniecrysowania <br />xo = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 21, 1) <br />yo = (ASC(el$) - 65) * 9 <br />PUT (xo, yo), wentylator, PSET <br /> <br /> <br />koniecrysowania: <br /> <br />COLOR 15 <br /> <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 15:27, 25 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 dzwiek (ktory!) <br /> <br />REM Gra "Serca", UWAGA wersja gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <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 k$(0 TO 255): REM paleta kolorow <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED pozycjewind(1 TO 3) AS INTEGER <br />DIM SHARED p$(0 TO 175): REM dane plansz <br />DIM SHARED kod$ <br />DIM SHARED serca(0 TO 15, 0 TO 10) AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br />DIM SHARED xwindy AS INTEGER, ywindy 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 ceg4(0 TO 144) AS LONG <br />DIM SHARED cegz2(0 TO 75) AS LONG <br />DIM SHARED cegzl2(0 TO 220) AS LONG <br /> <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 />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 200: y = 35: xs = 200: ys = 35: REM wspol. pocz. gracza na ekr. <br />licz = -1: REM wartosc start. zegara <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 ************************* START 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 />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />IF przejechal = 1 THEN y = ywindy + 3: ys = ywindy + 3: przejechal = 0 <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />LINE (0, 180)-(319, 182), 234, BF <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <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: dzwiek (2) <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 />IF k$ = CHR$(27) THEN END <br /> <br />IF x >= xwindy AND y - ywindy < 10 THEN <br />IF k$ = "1" OR k$ = "2" THEN GOSUB przejazd: GOTO rysuj <br />IF k$ = "3" THEN GOSUB przejazd: GOTO rysuj <br />END IF <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 dzwiek (1): 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 />REM GOSUB-RETURN przejazd: <br />przejazd: <br />pietro = VAL(k$) <br />roomy = pozycjewind(pietro) <br /> <br />FOR i = 23 TO 0 STEP -1 <br />LINE (xwindy + i, ywindy)-(xwindy + i, ywindy + 35), 255 <br />FOR j = 1 TO 7500: NEXT j <br />NEXT i <br />CLS <br />FOR i = 1 TO 30000: NEXT i <br />przejechal = 1 <br />RETURN <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)-(63, 8), ceg4 <br />GET (64, 0)-(95, 8), cegz2 <br />GET (0, 9)-(47, 26), cegzl2 <br /> <br />GET (0, 36)-(15, 53), szaretlo <br />GET (0, 36)-(31, 53), szaretlo2 <br />GET (0, 36)-(63, 53), szaretlo4 <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 dzwiek (ktory) <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 />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 />REM DREPTANIE <br />IF ktory = 1 THEN <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 />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br />END IF <br /> <br /> <br />REM zabranie serca <br /> <br />IF ktory = 2 THEN <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 6000: NEXT i <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 6000: NEXT i <br />END IF <br /> <br /> <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: k$(i) = "00 00 00 00" <br />PALETTE i, 31 + 31 * 256 + 31 * 65536: NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 05 05 06": REM tlo plyta <br />k$(2) = "02 02 03 02": REM tlo fuga <br />k$(3) = "03 07 06 06": REM tlo krawedz <br />k$(4) = "04 00 22 00": REM liscie <br />k$(5) = "05 3F 08 00": REM serce <br />k$(6) = "06 30 30 30": REM framuga okna <br />k$(7) = "07 28 0A 00": REM doniczka drzewa <br />k$(8) = "08 00 21 39": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 14 14 14": REM framuga zewnetrzna <br />k$(11) = "0B 00 00 00": REM wentylator faza 1 <br />k$(12) = "0C 00 00 00": REM wentylator faza 2 <br />k$(13) = "0D 00 00 00": REM wentylator faza 3 <br />k$(14) = "0E 20 20 20": REM srednia szarosc <br />k$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />k$(16) = "10 18 02 02": REM sweter + zero <br />k$(17) = "11 18 02 02": REM <br />k$(18) = "12 18 02 02": REM <br />k$(19) = "13 18 02 02": REM <br />k$(20) = "14 22 12 00": REM sweter + liscie <br />k$(21) = "15 3F 00 00": REM <br />k$(22) = "16 2F 09 09": REM sweter + framuga okna <br />k$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />k$(24) = "18 25 16 24": REM sweter + niebo <br />k$(25) = "19 3F 3F 3F": REM sweter + slonce <br />k$(26) = "1A 16 0F 0F": REM sweter + framuga zew <br />k$(27) = "1B 3F 3F 3F": REM <br />k$(28) = "1C 3F 3F 3F": REM <br />k$(29) = "1D 3F 3F 3F": REM <br />k$(30) = "1E 20 10 10": REM sweter + przyciski <br />REM kolor 31 (1F) zastrzezony dla gracza <br />k$(32) = "20 0A 13 29": REM spodnie + zero <br />k$(33) = "21 0A 13 29": REM <br />k$(34) = "22 0A 13 29": REM <br />k$(35) = "23 0A 13 29": REM <br />k$(36) = "24 05 1D 24": REM spodnie+ liscie <br />k$(37) = "25 3F 3F 3F": REM <br />k$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />k$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />k$(40) = "28 00 1A 3F": REM spodnie + niebo <br />k$(41) = "29 3F 3F 3F": REM spodnie +slonce <br />k$(42) = "2A 10 14 20": REM spodnie + framuga zew <br />k$(43) = "2B 3F 3F 3F": REM <br />k$(44) = "2C 3F 3F 3F": REM <br />k$(45) = "2D 3F 3F 3F": REM <br />k$(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 />k$(31) = "1F 2F 09 09": REM sweter <br />k$(47) = "2F 0D 1A 37": REM spodnie <br />k$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 30 20": REM skora1 <br />REM kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 32 22 02": REM nos <br />REM kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />REM kolor$(175) = "AF 22 02 02": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br />REM FF- zarezerwowany dla przeslony <br /> <br />REM rejestry jednokierunkowe <br />k$(198) = "C6 20 20 20" <br />k$(199) = "C7 20 20 20" <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 24 24": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM kolor 240 - przeslona <br />REM k$(240) = "F0 38 38 38" <br /> <br />REM cegly male zlote <br /> <br />k$(242) = "F2 30 2C 10": REM <br />k$(243) = "F3 28 24 08": REM <br />k$(244) = "F4 2A 26 0A": REM <br />k$(245) = "F5 24 20 04": REM <br /> <br />REM cegly male zielone <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 28 28 28": REM przeslona <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(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) = "h111g3322f.6....LD....___EQ_F[Q_!" <br />p$(7) = "hh222ff11d.7.BE.......aH_ZI_MdO_!" <br />p$(8) = "hhDDDfCCCg.8..........______DQK_!" <br />p$(9) = "hhhhhf111c.9..........__________!" <br />p$(10) = "hhhhhf222g.A..........MO_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) = "dd333a33hh.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.BG....cE.__________!" <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.BD....JG.ZM____AQM_!" <br />p$(45) = "c333cc11gg.D....aN....______AQM_!" <br />p$(46) = "dd33cc22hh.E..........___aG_AQE_!" <br />p$(47) = "hh3333113c.F.UJ....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) = "ff223c33cd.7.0C.SN....GN_TI_MdM_!": REM startowa <br />p$(72) = "ff113aa33d.8..........MO____P9K_!" <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) = "ff222333hh.E.UK.......______FEE_!" <br />p$(79) = "h3111333ff.F.WK.......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) = "h333111hhh.2..........___KM_P9H_!" <br />p$(99) = "f333aaafff.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..........______DQK_!" <br />p$(106) = "hh333fCCCh.A.BE.......___KI_____!" <br />p$(107) = "ff3333111h.B.0I....LK.aP____CON_!" <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) = "hfaa222fff.0..........______COJ_!" <br />p$(113) = "bbbb000hhh.1....KK....__________!" <br />p$(114) = "h222111fff.2.BJ.......ZE____AIK_!" <br />p$(115) = "f000aaaahh.3..........___KO_AQI_!" <br />p$(116) = "h000aaaahh.4.......KF.______P9K_!" <br />p$(117) = "h111hh222h.5..........KQ________!" <br />p$(118) = "hffaaa001f.6....KO....__________!" <br />p$(119) = "ff33ee00hh.7..........___KO_MdE_!" <br />p$(120) = "hh3333002h.8.BL.......______CCQ_!" <br />p$(121) = "hCCCffDDDh.9..........KO________!" <br />p$(122) = "hDDDccCCCh.A..........___MK_____!" <br />p$(123) = "hf333300Df.B.AL.......__________!" <br />p$(124) = "ffffff11hh.C....KN....______IOI_!" <br />p$(125) = "hhhhhf22fh.D.......TK.__________!" <br />p$(126) = "h33c3300ff.E..........KK____COG_!" <br />p$(127) = "hhheefDDhh.F....KN....__________!" <br /> <br />REM ***************** n/8 plansze wiersza roomy=8 <br /> <br />p$(128) = "fffa222hhh.0..........KK________!" <br />p$(129) = "hbbb000hhh.1.UH.ZK....__________!" <br />p$(130) = "f222111fff.2.......KK.__________!" <br />p$(131) = "h111ccchhh.3..........______COI_!" <br />p$(132) = "h333aaafff.4.UI.......aF________!" <br />p$(133) = "h333ff222h.5....KO....__________!" <br />p$(134) = "ffffff000h.6.......aN.______DQK_!" <br />p$(135) = "hhhhha000h.7..........______ESK_!" <br />p$(136) = "hh3333000c.8....KG....______CKK_!" <br />p$(137) = "h33333111h.9..........cD____OKK_!" <br />p$(138) = "h33333222h.A.BG.......__________!" <br />p$(139) = "ffCCff00ff.B....KN....______KaE_!" <br />p$(140) = "hfDDff00hh.C.......TH.______JKM_!" <br />p$(141) = "hhhaac00fh.D.0L.......__________!" <br />p$(142) = "f3333300ff.E....SI....______COL_!" <br />p$(143) = "hhheefDDhh.F..........]H________!" <br /> <br />REM ***************** n/9 plansze wiersza roomy=9 <br /> <br />p$(144) = "haaa222ffh.0....SD....______COH_!" <br />p$(145) = "heee000fff.1.......DK.__________!" <br />p$(146) = "f222311hhh.2.AI.......KK________!" <br />p$(147) = "h000aaaccc.3..........______IOJ_!" <br />p$(148) = "f000ahhhhh.4....KH....__________!" <br />p$(149) = "h111hhhhhh.5..........___KG_____!" <br />p$(150) = "hhffaa222h.6.......ZK.______HEM_!" <br />p$(151) = "hhaaaa000d.7.UL.......__________!" <br />p$(152) = "ccc333000h.8.AL.......dI________!" <br />p$(153) = "h33333111h.9....SD....______GOK_!" <br />p$(154) = "h33333222h.A..........______NKG_!" <br />p$(155) = "ff223300Dh.B.BL.......__________!" <br />p$(156) = "hfDDff00ff.C.......SK.__________!" <br />p$(157) = "hhhaac11fh.D....KK....______DYK_!" <br />p$(158) = "f3333322hh.E..........KK________!" <br />p$(159) = "haa333DDhh.F.......DK.__________!" <br /> <br />REM ***************** n/10 plansze wiersza roomy=10 <br /> <br />p$(160) = "hhaa222fhh.0.......KK.__________!" <br />p$(161) = "ffee000hhh.1....KK....__________!" <br />p$(162) = "hh22311hhh.2..........cK____OKJ_!" <br />p$(163) = "cc00aaahhh.3..........___KM_____!" <br />p$(164) = "hh00ahhhhh.4.......PG.__________!" <br />p$(165) = "h111hhhhhh.5....KE....__________!" <br />p$(166) = "hhhhhhCChh.6..........RN________!" <br />p$(167) = "dddaaa00hh.7..........______OKL_!" <br />p$(168) = "hhh33300hh.8.......KK.__________!" <br />p$(169) = "hh333311hh.9..........__________!" <br />p$(170) = "hh333322hh.A..........KK________!" <br />p$(171) = "hhh33300hh.B....KK....__________!" <br />p$(172) = "fffaaa00hh.C..........______P6K_!" <br />p$(173) = "hhhh3300hh.D..........KK____ECI_!" <br />p$(174) = "hh333300hh.E....KH....______OKK_!" <br />p$(175) = "haa33aDDhh.F..........______PBK_!" <br /> <br /> <br />REM tablica serc <br />FOR xr = 0 TO 15 <br />FOR yr = 0 TO 10 <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 />REM tablica wind <br />pozycjewind(1) = 0 <br />pozycjewind(2) = 4 <br />pozycjewind(3) = 7 <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 />yo = (ASC(el2$) - 65) * 9 <br />IF el$ = "#" THEN FOR xx = 0 TO 4: PUT (xx * 64, yo), ceg4, PSET: NEXT xx <br />IF el$ = "W" THEN <br />PUT (16, yo), ceg2, PSET: PUT (80, yo), ceg4, PSET <br />PUT (144, yo), ceg4, PSET: PUT (208, yo), ceg2, PSET: PUT (272, yo), ceg2, PSET <br />END IF <br />IF el$ = "U" THEN <br />PUT (16, yo), ceg4, PSET: PUT (64, yo), ceg4, PSET <br />PUT (192, yo), ceg4, PSET: PUT (240, yo), ceg4, PSET <br />END IF <br />IF el$ = "0" THEN PUT (16, yo), ceg4, PSET: PUT (240, yo), ceg4, PSET <br />IF el$ = "A" THEN FOR xx = 0 TO 4: PUT (16 + xx * 64, yo), ceg2, PSET: NEXT xx <br />IF el$ = "B" THEN FOR xx = 0 TO 5: PUT (64 + xx * 32, yo), 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 />xo = (ASC(el2$) - 65) * 8 <br />el3$ = MID$(kod$, 31, 1) <br />yo = (ASC(el3$) - 65) * 9 <br />IF el$ = "A" THEN <br />PUT (xo, yo), blokp, PSET: PUT (xo, yo + 18), blokp, PSET <br />PUT (xo + 16, yo), blok2, PSET: PUT (xo + 16, yo + 18), blok2, PSET <br />PUT (xo + 48, yo), blokk, PSET: PUT (xo + 48, yo + 18), blokk, PSET <br />END IF <br /> <br />IF el$ = "B" THEN COLOR 235: LINE (xo + 5, yo)-(xo + 9, yo + 35), , BF <br />IF el$ = "C" THEN PUT (xo, yo), ceg2, PSET: PUT (xo + 32, yo), ceg2, PSET: PUT (xo + 64, yo), ceg2, PSET <br />IF el$ = "D" THEN LINE (xo, yo)-(xo + 22, yo + 17), 235, BF: LINE (xo + 42, yo)-(xo + 63, yo + 17), 235, BF <br />IF el$ = "E" THEN LINE (xo, yo)-(xo + 5, yo + 35), 235, BF: LINE (xo + 26, yo + 36)-(xo + 31, yo + 72), 235, BF <br />REM niebieskie klocki <br />IF el$ = "F" THEN PUT (xo, yo), nieb, PSET <br />IF el$ = "G" THEN PUT (xo, yo), nieb, PSET: PUT (xo + 64, yo), nieb, PSET <br />IF el$ = "H" THEN PUT (xo, yo), nieb, PSET: PUT (xo + 64, yo + 36), nieb, PSET <br />IF el$ = "I" THEN PUT (xo, yo), nieb, PSET: PUT (xo + 64, yo - 36), nieb, PSET <br />REM jednokierunkowe bramki <br />IF el$ = "J" THEN PSET (xo - 2, yo), 199: DRAW "R18 D35 L18 U35 F18 U1 G18" <br />IF el$ = "K" THEN PSET (xo - 2, yo), 198: DRAW "R18 D35 L18 U35 R18 G18 U1 F18" <br />REM zaslonka <br />IF el$ = "L" THEN LINE (xo, yo)-(xo + 15, yo + 35), 255, BF <br />REM winda <br />xwindy = -10: ywindy = -10 <br />IF el$ = "M" THEN <br />LINE (xo, yo)-(xo + 23, yo + 35), 10, BF <br />LINE (xo, yo)-(xo, yo + 36), 6 <br />LINE (xo + 3, yo + 7)-(xo + 5, yo + 17), 14, BF <br />LINE (xo + 1, yo)-(xo + 23, yo), 9 <br />PSET (xo + 4, yo + 8), 12 <br />PSET (xo + 4, yo + 10), 5: DRAW "D7 C14 R1 U2 L2 U2 R2 U2 L2" <br />xwindy = xo: ywindy = yo <br />COLOR 8: LOCATE (ywindy / 8) + 2, 34 <br />IF roomy = 0 THEN PRINT "1" <br />IF roomy = 4 THEN PRINT "2" <br />IF roomy = 7 THEN PRINT "3" <br />END IF <br />IF el$ = "N" THEN <br />PUT (xo, yo), cegz2, PSET: PUT (xo + 64, yo), cegz2, PSET: PUT (xo + 128, yo), cegz2, PSET <br />PUT (xo, yo + 54), cegz2, PSET: PUT (xo + 64, yo + 54), cegz2, PSET: PUT (xo + 128, yo + 54), cegz2, PSET <br />END IF <br />IF el$ = "O" THEN <br />PUT (xo, yo), cegz2, PSET: PUT (xo + 64, yo), cegz2, PSET: PUT (xo + 128, yo), cegz2, PSET <br />END IF <br />IF el$ = "P" THEN <br />el = VAL("&H" + el2$) <br />IF (el AND 8) = 8 THEN PUT (64, yo), cegzl2, PSET <br />IF (el AND 4) = 4 THEN PUT (64 + 48, yo), cegzl2, PSET <br />IF (el AND 2) = 2 THEN PUT (64 + 48 * 2, yo), cegzl2, PSET <br />IF (el AND 1) = 1 THEN PUT (64 + 48 * 3, yo), cegzl2, PSET <br />END IF <br /> <br /> <br />okna: <br /> <br />REM rysowanie okien <br /> <br />el$ = MID$(kod$, 17, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO serce <br />xo = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 18, 1) <br />yo = (ASC(el$) - 65) * 9 <br />IF roomy < 2 THEN PUT (xo, yo), window2, PSET <br />IF roomy > 1 AND roomy < 5 THEN PUT (xo, yo), window1, PSET <br />IF roomy > 4 THEN PUT (xo, yo), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20: yserca = -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 />PSET (xserca, yserca + 1), 5 <br />DRAW "D2 F1 U4 R1 D5 F1 U5 E1 D5 E1 U4 F1 D2" <br /> <br /> <br />donica: <br />el$ = MID$(kod$, 26, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO wentyl <br />xo = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 27, 1) <br />yo = (ASC(el$) - 65) * 9 + 2 <br />PUT (xo, yo), palma, PSET <br /> <br />wentyl: <br />el$ = MID$(kod$, 20, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO koniecrysowania <br />xo = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 21, 1) <br />yo = (ASC(el$) - 65) * 9 <br />PUT (xo, yo), wentylator, PSET <br /> <br /> <br />koniecrysowania: <br /> <br />COLOR 15 <br /> <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 9:33, 25 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 dzwiek (ktory!) <br /> <br />REM Gra "Serca", UWAGA wersja gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <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 k$(0 TO 255): REM paleta kolorow <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED pozycjewind(1 TO 3) AS INTEGER <br />DIM SHARED p$(0 TO 175): REM dane plansz <br />DIM SHARED kod$ <br />DIM SHARED serca(0 TO 15, 0 TO 10) AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br />DIM SHARED xwindy AS INTEGER, ywindy 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 ceg4(0 TO 144) AS LONG <br />DIM SHARED cegz2(0 TO 75) AS LONG <br />DIM SHARED cegzl2(0 TO 220) AS LONG <br /> <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 />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 200: y = 35: xs = 200: ys = 35: REM wspol. pocz. gracza na ekr. <br />licz = -1: REM wartosc start. zegara <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 ************************* START 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 />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />IF przejechal = 1 THEN y = ywindy + 3: ys = ywindy + 3: przejechal = 0 <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />LINE (0, 180)-(319, 182), 234, BF <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <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: dzwiek (2) <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 />IF k$ = CHR$(27) THEN END <br /> <br />IF x >= xwindy AND y - ywindy < 10 THEN <br />IF k$ = "1" OR k$ = "2" THEN GOSUB przejazd: GOTO rysuj <br />IF k$ = "3" THEN GOSUB przejazd: GOTO rysuj <br />END IF <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 dzwiek (1): 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 />REM GOSUB-RETURN przejazd: <br />przejazd: <br />pietro = VAL(k$) <br />roomy = pozycjewind(pietro) <br /> <br />FOR i = 23 TO 0 STEP -1 <br />LINE (xwindy + i, ywindy)-(xwindy + i, ywindy + 35), 255 <br />FOR j = 1 TO 7500: NEXT j <br />NEXT i <br />CLS <br />FOR i = 1 TO 30000: NEXT i <br />przejechal = 1 <br />RETURN <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)-(63, 8), ceg4 <br />GET (64, 0)-(95, 8), cegz2 <br />GET (0, 9)-(47, 26), cegzl2 <br /> <br />GET (0, 36)-(15, 53), szaretlo <br />GET (0, 36)-(31, 53), szaretlo2 <br />GET (0, 36)-(63, 53), szaretlo4 <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 dzwiek (ktory) <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 />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 />REM DREPTANIE <br />IF ktory = 1 THEN <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 />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br />END IF <br /> <br /> <br />REM zabranie serca <br /> <br />IF ktory = 2 THEN <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 6000: NEXT i <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 6000: NEXT i <br />END IF <br /> <br /> <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: k$(i) = "00 00 00 00" <br />PALETTE i, 31 + 31 * 256 + 31 * 65536: NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 05 05 06": REM tlo plyta <br />k$(2) = "02 02 03 02": REM tlo fuga <br />k$(3) = "03 07 06 06": REM tlo krawedz <br />k$(4) = "04 00 22 00": REM liscie <br />k$(5) = "05 3F 08 00": REM serce <br />k$(6) = "06 30 30 30": REM framuga okna <br />k$(7) = "07 28 0A 00": REM doniczka drzewa <br />k$(8) = "08 00 21 39": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 14 14 14": REM framuga zewnetrzna <br />k$(11) = "0B 00 00 00": REM wentylator faza 1 <br />k$(12) = "0C 00 00 00": REM wentylator faza 2 <br />k$(13) = "0D 00 00 00": REM wentylator faza 3 <br />k$(14) = "0E 20 20 20": REM srednia szarosc <br />k$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />k$(16) = "10 18 02 02": REM sweter + zero <br />k$(17) = "11 18 02 02": REM <br />k$(18) = "12 18 02 02": REM <br />k$(19) = "13 18 02 02": REM <br />k$(20) = "14 22 12 00": REM sweter + liscie <br />k$(21) = "15 3F 00 00": REM <br />k$(22) = "16 2F 09 09": REM sweter + framuga okna <br />k$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />k$(24) = "18 25 16 24": REM sweter + niebo <br />k$(25) = "19 3F 3F 3F": REM sweter + slonce <br />k$(26) = "1A 16 0F 0F": REM sweter + framuga zew <br />k$(27) = "1B 3F 3F 3F": REM <br />k$(28) = "1C 3F 3F 3F": REM <br />k$(29) = "1D 3F 3F 3F": REM <br />k$(30) = "1E 20 10 10": REM sweter + przyciski <br />REM kolor 31 (1F) zastrzezony dla gracza <br />k$(32) = "20 0A 13 29": REM spodnie + zero <br />k$(33) = "21 0A 13 29": REM <br />k$(34) = "22 0A 13 29": REM <br />k$(35) = "23 0A 13 29": REM <br />k$(36) = "24 05 1D 24": REM spodnie+ liscie <br />k$(37) = "25 3F 3F 3F": REM <br />k$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />k$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />k$(40) = "28 00 1A 3F": REM spodnie + niebo <br />k$(41) = "29 3F 3F 3F": REM spodnie +slonce <br />k$(42) = "2A 10 14 20": REM spodnie + framuga zew <br />k$(43) = "2B 3F 3F 3F": REM <br />k$(44) = "2C 3F 3F 3F": REM <br />k$(45) = "2D 3F 3F 3F": REM <br />k$(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 />k$(31) = "1F 2F 09 09": REM sweter <br />k$(47) = "2F 0D 1A 37": REM spodnie <br />k$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 30 20": REM skora1 <br />REM kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 32 22 02": REM nos <br />REM kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />REM kolor$(175) = "AF 22 02 02": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br />REM FF- zarezerwowany dla przeslony <br /> <br />REM rejestry jednokierunkowe <br />k$(198) = "C6 20 20 20" <br />k$(199) = "C7 20 20 20" <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 24 24": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM kolor 240 - przeslona <br />REM k$(240) = "F0 38 38 38" <br /> <br />REM cegly male zlote <br /> <br />k$(242) = "F2 30 2C 10": REM <br />k$(243) = "F3 28 24 08": REM <br />k$(244) = "F4 2A 26 0A": REM <br />k$(245) = "F5 24 20 04": REM <br /> <br />REM cegly male zielone <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 28 28 28": REM przeslona <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(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) = "h111g3322f.6....LD....___EQ_F[Q_!" <br />p$(7) = "hh222ff11d.7.BE.......aH_ZI_MdO_!" <br />p$(8) = "hhDDDfCCCg.8..........______DQK_!" <br />p$(9) = "hhhhhf111c.9..........__________!" <br />p$(10) = "hhhhhf222g.A..........MO_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) = "dd333a33hh.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.BG....cE.__________!" <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.BD....JG.ZM____AQM_!" <br />p$(45) = "c333cc11gg.D....aN....______AQM_!" <br />p$(46) = "dd33cc22hh.E..........___aG_AQE_!" <br />p$(47) = "hh3333113c.F.UJ....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) = "ff223c33cd.7.0C.SN....GN_TI_MdM_!": REM startowa <br />p$(72) = "ff113aa33d.8..........MO____P9K_!" <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) = "ff222333hh.E.UK.......______FEE_!" <br />p$(79) = "h3111333ff.F.WK.......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) = "h333111hhh.2..........___KM_____!" <br />p$(99) = "f333aaafff.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..........______DQK_!" <br />p$(106) = "hh333fCCCh.A.BE.......___KI_____!" <br />p$(107) = "ff3333111h.B.0I....LK.aP____CON_!" <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) = "hfaa222fff.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) = "hffaaa001f.6....KO....__________!" <br />p$(119) = "ff33ee00hh.7..........___KO_MdE_!" <br />p$(120) = "hh3333002h.8.BL.......______CCQ_!" <br />p$(121) = "hCCCffDDDh.9..........KO________!" <br />p$(122) = "hDDDccCCCh.A..........___MK_____!" <br />p$(123) = "hf333300Df.B.AL.......__________!" <br />p$(124) = "ffffff11hh.C....KN....______IOI_!" <br />p$(125) = "hhhhhf22fh.D.......TK.__________!" <br />p$(126) = "h33c3300ff.E..........KK____COG_!" <br />p$(127) = "hhheefDDhh.F....KN....__________!" <br /> <br />REM ***************** n/8 plansze wiersza roomy=8 <br /> <br />p$(128) = "fffa222hhh.0..........KK________!" <br />p$(129) = "hbbb000hhh.1.UH.ZK....__________!" <br />p$(130) = "f222111fff.2.......KK.__________!" <br />p$(131) = "h000ccchhh.3..........______COI_!" <br />p$(132) = "h111afffhh.4.UK.......RN________!" <br />p$(133) = "h333ff222h.5....KO....__________!" <br />p$(134) = "ffffff000h.6.......aN.______DQK_!" <br />p$(135) = "hhhhha000h.7..........______ESK_!" <br />p$(136) = "hh3333000c.8....KG....______CKK_!" <br />p$(137) = "h33333111h.9..........cD____OKK_!" <br />p$(138) = "h33333222h.A.BG.......__________!" <br />p$(139) = "ffCCff00ff.B....KN....______KaE_!" <br />p$(140) = "hfDDff00hh.C.......TH.______JKM_!" <br />p$(141) = "hhhaac00fh.D.0L.......__________!" <br />p$(142) = "f3333300ff.E....SI....______COL_!" <br />p$(143) = "hhheefDDhh.F..........]H________!" <br /> <br />REM ***************** n/9 plansze wiersza roomy=9 <br /> <br />p$(144) = "haaa222ffh.0....SD....______COH_!" <br />p$(145) = "heee000hhh.1.......DK.__________!" <br />p$(146) = "f222311hhh.2.AI.......KK________!" <br />p$(147) = "h000aaaccc.3..........______IOJ_!" <br />p$(148) = "h000ahhhhh.4....KH....__________!" <br />p$(149) = "h111hhhhhh.5..........___KG_____!" <br />p$(150) = "hhffaa222h.6.......ZK.______HEM_!" <br />p$(151) = "hhaaaa000d.7.UL.......__________!" <br />p$(152) = "ccc333000h.8.AL.......dI________!" <br />p$(153) = "h33333111h.9....SD....______GOK_!" <br />p$(154) = "h33333222h.A..........______NKG_!" <br />p$(155) = "ff223300Dh.B.BL.......__________!" <br />p$(156) = "hfDDff00ff.C.......SK.__________!" <br />p$(157) = "hhhaac00fh.D....KK....______DYK_!" <br />p$(158) = "f3333300hh.E..........KK____ECI_!" <br />p$(159) = "haa333DDhh.F.WL....DK.__________!" <br /> <br />REM ***************** n/10 plansze wiersza roomy=10 <br /> <br />p$(160) = "hhaa222fhh.0.......KK.__________!" <br />p$(161) = "hhee000hhh.1....KK....__________!" <br />p$(162) = "ff22311hhh.2..........KK____OKG_!" <br />p$(163) = "hh00aaahhh.3..........___KK_____!" <br />p$(164) = "hh00ahhhhh.4.......KK.__________!" <br />p$(165) = "h111hhhhhh.5....KK....__________!" <br />p$(166) = "hhhhhhCChh.6..........RP________!" <br />p$(167) = "dddaaa00hh.7..........______OKL_!" <br />p$(168) = "hhh33300hh.8.......KK.__________!" <br />p$(169) = "hh333311hh.9..........__________!" <br />p$(170) = "hh333322hh.A..........KK________!" <br />p$(171) = "hhh33300hh.B....KK....__________!" <br />p$(172) = "ffffff00hh.C..........__________!" <br />p$(173) = "hhhaac00hh.D..........KK________!" <br />p$(174) = "hh333300hh.E....KH....______OKK_!" <br />p$(175) = "haa333DDhh.F..........__________!" <br /> <br /> <br />REM tablica serc <br />FOR xr = 0 TO 15 <br />FOR yr = 0 TO 10 <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 />REM tablica wind <br />pozycjewind(1) = 0 <br />pozycjewind(2) = 4 <br />pozycjewind(3) = 7 <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 />yo = (ASC(el2$) - 65) * 9 <br />IF el$ = "#" THEN FOR xx = 0 TO 4: PUT (xx * 64, yo), ceg4, PSET: NEXT xx <br />IF el$ = "W" THEN <br />PUT (16, yo), ceg2, PSET: PUT (80, yo), ceg4, PSET <br />PUT (144, yo), ceg4, PSET: PUT (208, yo), ceg2, PSET: PUT (272, yo), ceg2, PSET <br />END IF <br />IF el$ = "U" THEN <br />PUT (16, yo), ceg4, PSET: PUT (64, yo), ceg4, PSET <br />PUT (192, yo), ceg4, PSET: PUT (240, yo), ceg4, PSET <br />END IF <br />IF el$ = "0" THEN PUT (16, yo), ceg4, PSET: PUT (240, yo), ceg4, PSET <br />IF el$ = "A" THEN FOR xx = 0 TO 4: PUT (16 + xx * 64, yo), ceg2, PSET: NEXT xx <br />IF el$ = "B" THEN FOR xx = 0 TO 5: PUT (64 + xx * 32, yo), 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 />xo = (ASC(el2$) - 65) * 8 <br />el3$ = MID$(kod$, 31, 1) <br />yo = (ASC(el3$) - 65) * 9 <br />IF el$ = "A" THEN <br />PUT (xo, yo), blokp, PSET: PUT (xo, yo + 18), blokp, PSET <br />PUT (xo + 16, yo), blok2, PSET: PUT (xo + 16, yo + 18), blok2, PSET <br />PUT (xo + 48, yo), blokk, PSET: PUT (xo + 48, yo + 18), blokk, PSET <br />END IF <br /> <br />IF el$ = "B" THEN COLOR 235: LINE (xo + 5, yo)-(xo + 9, yo + 35), , BF <br />IF el$ = "C" THEN PUT (xo, yo), ceg2, PSET: PUT (xo + 32, yo), ceg2, PSET: PUT (xo + 64, yo), ceg2, PSET <br />IF el$ = "D" THEN LINE (xo, yo)-(xo + 22, yo + 17), 235, BF: LINE (xo + 42, yo)-(xo + 63, yo + 17), 235, BF <br />IF el$ = "E" THEN LINE (xo, yo)-(xo + 5, yo + 35), 235, BF: LINE (xo + 26, yo + 36)-(xo + 31, yo + 72), 235, BF <br />REM niebieskie klocki <br />IF el$ = "F" THEN PUT (xo, yo), nieb, PSET <br />IF el$ = "G" THEN PUT (xo, yo), nieb, PSET: PUT (xo + 64, yo), nieb, PSET <br />IF el$ = "H" THEN PUT (xo, yo), nieb, PSET: PUT (xo + 64, yo + 36), nieb, PSET <br />IF el$ = "I" THEN PUT (xo, yo), nieb, PSET: PUT (xo + 64, yo - 36), nieb, PSET <br />REM jednokierunkowe bramki <br />IF el$ = "J" THEN PSET (xo - 2, yo), 199: DRAW "R18 D35 L18 U35 F18 U1 G18" <br />IF el$ = "K" THEN PSET (xo - 2, yo), 198: DRAW "R18 D35 L18 U35 R18 G18 U1 F18" <br />REM zaslonka <br />IF el$ = "L" THEN LINE (xo, yo)-(xo + 15, yo + 35), 255, BF <br />REM winda <br />xwindy = -10: ywindy = -10 <br />IF el$ = "M" THEN <br />LINE (xo, yo)-(xo + 23, yo + 35), 10, BF <br />LINE (xo, yo)-(xo, yo + 36), 6 <br />LINE (xo + 3, yo + 7)-(xo + 5, yo + 17), 14, BF <br />LINE (xo + 1, yo)-(xo + 23, yo), 9 <br />PSET (xo + 4, yo + 8), 12 <br />PSET (xo + 4, yo + 10), 5: DRAW "D7 C14 R1 U2 L2 U2 R2 U2 L2" <br />xwindy = xo: ywindy = yo <br />COLOR 8: LOCATE (ywindy / 8) + 2, 34 <br />IF roomy = 0 THEN PRINT "1" <br />IF roomy = 4 THEN PRINT "2" <br />IF roomy = 7 THEN PRINT "3" <br />END IF <br />IF el$ = "N" THEN <br />PUT (xo, yo), cegz2, PSET: PUT (xo + 64, yo), cegz2, PSET: PUT (xo + 128, yo), cegz2, PSET <br />PUT (xo, yo + 54), cegz2, PSET: PUT (xo + 64, yo + 54), cegz2, PSET: PUT (xo + 128, yo + 54), cegz2, PSET <br />END IF <br />IF el$ = "O" THEN <br />PUT (xo, yo), cegz2, PSET: PUT (xo + 64, yo), cegz2, PSET: PUT (xo + 128, yo), cegz2, PSET <br />END IF <br />IF el$ = "P" THEN <br />el = VAL("&H" + el2$) <br />IF (el AND 8) = 8 THEN PUT (64, yo), cegzl2, PSET <br />IF (el AND 4) = 4 THEN PUT (64 + 48, yo), cegzl2, PSET <br />IF (el AND 2) = 2 THEN PUT (64 + 48 * 2, yo), cegzl2, PSET <br />IF (el AND 1) = 1 THEN PUT (64 + 48 * 3, yo), cegzl2, PSET <br />END IF <br /> <br /> <br />okna: <br /> <br />REM rysowanie okien <br /> <br />el$ = MID$(kod$, 17, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO serce <br />xo = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 18, 1) <br />yo = (ASC(el$) - 65) * 9 <br />IF roomy < 2 THEN PUT (xo, yo), window2, PSET <br />IF roomy > 1 AND roomy < 5 THEN PUT (xo, yo), window1, PSET <br />IF roomy > 4 THEN PUT (xo, yo), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20: yserca = -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 />PSET (xserca, yserca + 1), 5 <br />DRAW "D2 F1 U4 R1 D5 F1 U5 E1 D5 E1 U4 F1 D2" <br /> <br /> <br />donica: <br />el$ = MID$(kod$, 26, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO wentyl <br />xo = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 27, 1) <br />yo = (ASC(el$) - 65) * 9 + 2 <br />PUT (xo, yo), palma, PSET <br /> <br />wentyl: <br />el$ = MID$(kod$, 20, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO koniecrysowania <br />xo = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 21, 1) <br />yo = (ASC(el$) - 65) * 9 <br />PUT (xo, yo), wentylator, PSET <br /> <br /> <br />koniecrysowania: <br /> <br />COLOR 15 <br /> <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 9:33, 25 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 k$(0 TO 255) <br />DIM cegla(0 TO 42) AS LONG <br />DIM ceglaziel(0 TO 42) AS LONG <br /> <br />DIM tlo(0 TO 40) AS LONG <br />DIM poltlo(0 TO 16) AS LONG <br />DIM bitmap$(0 TO 31) <br />DIM b$(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: k$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 0A 0A 0A": REM tlo plyta <br />k$(2) = "02 06 06 06": REM tlo fuga <br />k$(3) = "03 10 10 10": REM tlo krawedz <br />k$(4) = "04 00 2F 00": REM liscie <br />k$(5) = "05 3F 3F 3F" <br />k$(6) = "06 3F 3F 3F" <br />k$(7) = "07 28 0A 00": REM doniczka <br />k$(8) = "08 00 00 3F": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 20 20 20": REM framuga zewnetrzna <br />k$(11) = "0B 18 18 18": REM wentylator obudowa <br />k$(12) = "0C 3F 3F 3F": REM wentylator faza 1 <br />k$(13) = "0D 2F 2F 2F": REM wentylator faza 2 <br />k$(14) = "0E 1F 1F 1F": REM wentylator faza 3 <br />k$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM bloki przezroczystosci <br />k$(16) = "10 3F 3F 3F" <br />k$(32) = "20 3F 3F 3F" <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />k$(31) = "1F 28 00 00": REM sweter <br />k$(47) = "2F 05 12 2F": REM spodnie <br />k$(63) = "3F 17 17 17": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 2C 17": REM skora1 <br />k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 30 20 00": REM nos <br />k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych <br />k$(175) = "AF 20 00 00": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 2B 2B": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male zlote <br /> <br />k$(242) = "F2 30 2C 10": REM <br />k$(243) = "F3 28 24 08": REM <br />k$(244) = "F4 2A 26 0A": REM <br />k$(245) = "F5 24 20 04": REM <br /> <br />REM cegly male ZIELONE <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(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 />b$(0) = "DDDDDDDDDDDDDDDE" + "DDDDDDDE" <br />b$(1) = "DFFFFFFFFFFFFFFE" + "DFFFFFFE" <br />b$(2) = "DFFFFFFFFFFFFFFE" + "DFFFFFFE" <br />b$(3) = "DFFFFFFFFFFFFFFE" + "DFFFFFFE" <br />b$(4) = "DFFFFFFFFFFFFFFE" + "DFFFFFFE" <br />b$(5) = "DFFFFFFFFFFFFFFE" + "DFFFFFFE" <br />b$(6) = "DFFFFFFFFFFFFFFE" + "DFFFFFFE" <br />b$(7) = "DFFFFFFFFFFFFFFE" + "DFFFFFFE" <br />b$(8) = "EEEEEEEEEEEEEEEE" + "EEEEEEEE" <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$(b$(yd), xd + 1, 1)) - 65 - 1 + &HF0 + 10 <br />PSET (xd, yd) <br />NEXT xd: <br />FOR xd = 0 TO 7 <br />COLOR ASC(MID$(b$(yd), xd + 1 + 16, 1)) - 65 - 1 + &HF0 + 4 <br />PSET (xd + 64, yd): PSET (xd + 64 + 8, yd) <br />NEXT xd: <br /> <br />NEXT yd <br />GET (0, 0)-(15, 8), cegla <br />GET (64, 0)-(79, 8), ceglaziel <br /> <br /> <br /> <br />REM komorka tla <br /> <br />b$(0) = "0001200000012000" <br />b$(1) = "1111200000011111" <br />b$(2) = "2221200000012222" <br />b$(3) = "0001200000012000" <br />b$(4) = "0001200000012000" <br />b$(5) = "0001111111112000" <br />b$(6) = "0001222222212000" <br />b$(7) = "0001200000012000" <br />b$(8) = "0001200000012000" <br /> <br />FOR yd = 0 TO 8 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(b$(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 />REM element zloty <br /> <br /> b$(0) = "AAAAAAAAAAAAAAAA" <br /> b$(1) = "CAAAAAAAAAAAAAAB" <br /> b$(2) = "CCAAAAAAAAAAAABB" <br /> b$(3) = "CCCAAAAAAAAAABBB" <br /> b$(4) = "CCCCAAAAAAAABBBB" <br /> b$(5) = "CCCCCAAAAAABBBBB" <br /> b$(6) = "CCCCCCAAAABBBBBB" <br /> b$(7) = "CCCCCCCAABBBBBBB" <br /> b$(8) = "CCCCCCCCBBBBBBBB" <br /> b$(9) = "CCCCCCCCBBBBBBBB" <br />b$(10) = "CCCCCCCDDBBBBBBB" <br />b$(11) = "CCCCCCDDDDBBBBBB" <br />b$(12) = "CCCCCDDDDDDBBBBB" <br />b$(13) = "CCCCDDDDDDDDBBBB" <br />b$(14) = "CCCDDDDDDDDDDBBB" <br />b$(15) = "CCDDDDDDDDDDDDBB" <br />b$(16) = "CDDDDDDDDDDDDDDB" <br />b$(17) = "DDDDDDDDDDDDDDDD" <br /> <br />FOR yd = 0 TO 17 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(b$(yd), xd + 1, 1)) - 65 + 242 <br />PSET (xd, yd + 9) <br />NEXT xd: NEXT yd <br /> <br />GET (0, 9)-(15, 26), blok <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 />PUT (0, 9), blok, PSET: PUT (16, 9), blok, PSET: PUT (32, 9), blok, PSET <br /> <br />FOR i = 0 TO 3 <br />PUT (i * 16, 0), cegla, PSET <br />PUT (i * 16 + 64, 0), ceglaziel, PSET <br />NEXT i <br /> <br /> <br /> <br /> <br /> <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" <br />bitmap$(1) = "0000033333300000" <br />bitmap$(2) = "0000066663300000" <br />bitmap$(3) = "0000063663300000" <br />bitmap$(4) = "0000866666300000" <br />bitmap$(5) = "0000066666300000" <br />bitmap$(6) = "0000006666000000" <br />bitmap$(7) = "0000000661000000" <br />bitmap$(8) = "0000000711700000" <br />bitmap$(9) = "0000007111100000" <br /> <br />bitmap$(10) = "0000071111170000" <br />bitmap$(11) = "0000011111170000" <br />bitmap$(12) = "0000011111110000" <br />bitmap$(13) = "0000711111117000" <br />bitmap$(14) = "0000711111111000" <br />bitmap$(15) = "0000111111111000" <br />bitmap$(16) = "0001111333311000" <br />bitmap$(17) = "0006602222206600" <br />bitmap$(18) = "0006002222200600" <br />bitmap$(19) = "0000092222200000" <br />bitmap$(20) = "0000022222290000" <br />bitmap$(21) = "0000022222220000" <br />bitmap$(22) = "0000022202220000" <br />bitmap$(23) = "0000922202220000" <br />bitmap$(24) = "0000222202222000" <br />bitmap$(25) = "0000222009222000" <br />bitmap$(26) = "0000222000222000" <br />bitmap$(27) = "0000222000222000" <br />bitmap$(28) = "0009222000222300" <br />bitmap$(29) = "0002220000033300" <br />bitmap$(30) = "0003330000330000" <br />bitmap$(31) = "0033330000000000" <br /> <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, yd + 88): PSET (31 - xd, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd, yd + 88): PSET (31 - xd, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd, yd + 88): PSET (31 - xd, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd, yd + 88): PSET (31 - xd, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "0000003333000000" <br />bitmap$(1) = "0000033333300000" <br />bitmap$(2) = "0000066633300000" <br />bitmap$(3) = "0000063663300000" <br />bitmap$(4) = "0000866663300000" <br />bitmap$(5) = "0000066666300000" <br />bitmap$(6) = "0000006666000000" <br />bitmap$(7) = "0000000661000000" <br />bitmap$(8) = "0000000711700000" <br />bitmap$(9) = "0000007111100000" <br /> <br />bitmap$(10) = "0000001111100000" <br />bitmap$(11) = "0000001111100000" <br />bitmap$(12) = "0000001111100000" <br />bitmap$(13) = "0000001111100000" <br />bitmap$(14) = "0000071111100000" <br />bitmap$(15) = "0000071111100000" <br />bitmap$(16) = "0000071111300000" <br />bitmap$(17) = "0000028118200000" <br />bitmap$(18) = "0000022662200000" <br />bitmap$(19) = "0000022662200000" <br />bitmap$(20) = "0000022222000000" <br />bitmap$(21) = "0000922222000000" <br />bitmap$(22) = "0000222222000000" <br />bitmap$(23) = "0000922222000000" <br />bitmap$(24) = "0000022222000000" <br />bitmap$(25) = "0000022222300000" <br />bitmap$(26) = "0000002222300000" <br />bitmap$(27) = "0000000222330000" <br />bitmap$(28) = "0000000222033000" <br />bitmap$(29) = "0000000222000000" <br />bitmap$(30) = "0000000222000000" <br />bitmap$(31) = "0000033330000000" <br /> <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 + 32, yd + 88): PSET (63 - xd, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "0000003333000000" <br />bitmap$(1) = "0000033333300000" <br />bitmap$(2) = "0000066633300000" <br />bitmap$(3) = "0000063663300000" <br />bitmap$(4) = "0000866663300000" <br />bitmap$(5) = "0000066666300000" <br />bitmap$(6) = "0000006666000000" <br />bitmap$(7) = "0000000661000000" <br />bitmap$(8) = "0000000711700000" <br />bitmap$(9) = "0000007111100000" <br /> <br />bitmap$(10) = "0000071111100000" <br />bitmap$(11) = "0000011111170000" <br />bitmap$(12) = "0000711111110000" <br />bitmap$(13) = "0000711111110000" <br />bitmap$(14) = "0000711111110000" <br />bitmap$(15) = "0000111111110000" <br />bitmap$(16) = "0000111333310000" <br />bitmap$(17) = "0000066222260000" <br />bitmap$(18) = "0000006222260000" <br />bitmap$(19) = "0000002222200000" <br />bitmap$(20) = "0000002222200000" <br />bitmap$(21) = "0000022222200000" <br />bitmap$(22) = "0000022222200000" <br />bitmap$(23) = "0000922222200000" <br />bitmap$(24) = "0000222022200000" <br />bitmap$(25) = "0000222022200000" <br />bitmap$(26) = "0000222092290000" <br />bitmap$(27) = "0000222002220000" <br />bitmap$(28) = "0000222002220000" <br />bitmap$(29) = "0003333002220000" <br />bitmap$(30) = "0000000000222000" <br />bitmap$(31) = "0000000033330000" <br /> <br /> <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 + 64, yd + 88): PSET (95 - xd, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 64, yd + 88): PSET (95 - xd, 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="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: Czw 20:06, 23 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 k$(0 TO 255) <br />DIM cegla(0 TO 42) AS LONG <br />DIM ceglaziel(0 TO 42) AS LONG <br /> <br />DIM tlo(0 TO 40) AS LONG <br />DIM poltlo(0 TO 16) AS LONG <br />DIM bitmap$(0 TO 31) <br />DIM b$(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: k$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 0A 0A 0A": REM tlo plyta <br />k$(2) = "02 06 06 06": REM tlo fuga <br />k$(3) = "03 10 10 10": REM tlo krawedz <br />k$(4) = "04 00 2F 00": REM liscie <br />k$(5) = "05 3F 3F 3F" <br />k$(6) = "06 3F 3F 3F" <br />k$(7) = "07 28 0A 00": REM doniczka <br />k$(8) = "08 00 00 3F": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 20 20 20": REM framuga zewnetrzna <br />k$(11) = "0B 18 18 18": REM wentylator obudowa <br />k$(12) = "0C 3F 3F 3F": REM wentylator faza 1 <br />k$(13) = "0D 2F 2F 2F": REM wentylator faza 2 <br />k$(14) = "0E 1F 1F 1F": REM wentylator faza 3 <br />k$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM bloki przezroczystosci <br />k$(16) = "10 3F 3F 3F" <br />k$(32) = "20 3F 3F 3F" <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />k$(31) = "1F 28 00 00": REM sweter <br />k$(47) = "2F 05 12 2F": REM spodnie <br />k$(63) = "3F 17 17 17": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 2C 17": REM skora1 <br />k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 30 20 00": REM nos <br />k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych <br />k$(175) = "AF 20 00 00": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 2B 2B": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male ZIELONE <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(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 />b$(0) = "DDDDDDDDDDDDDDDE" + "DDDDDDDE" <br />b$(1) = "DFFFFFFFFFFFFFFE" + "DFFFFFFE" <br />b$(2) = "DFFFFFFFFFFFFFFE" + "DFFFFFFE" <br />b$(3) = "DFFFFFFFFFFFFFFE" + "DFFFFFFE" <br />b$(4) = "DFFFFFFFFFFFFFFE" + "DFFFFFFE" <br />b$(5) = "DFFFFFFFFFFFFFFE" + "DFFFFFFE" <br />b$(6) = "DFFFFFFFFFFFFFFE" + "DFFFFFFE" <br />b$(7) = "DFFFFFFFFFFFFFFE" + "DFFFFFFE" <br />b$(8) = "EEEEEEEEEEEEEEEE" + "EEEEEEEE" <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$(b$(yd), xd + 1, 1)) - 65 - 1 + &HF0 + 10 <br />PSET (xd, yd) <br />NEXT xd: <br />FOR xd = 0 TO 7 <br />COLOR ASC(MID$(b$(yd), xd + 1 + 16, 1)) - 65 - 1 + &HF0 + 4 <br />PSET (xd + 64, yd): PSET (xd + 64 + 8, yd) <br />NEXT xd: <br /> <br />NEXT yd <br />GET (0, 0)-(15, 8), cegla <br />GET (64, 0)-(79, 8), ceglaziel <br /> <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 />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 3 <br />PUT (i * 16, 0), cegla, PSET <br />PUT (i * 16 + 64, 0), ceglaziel, PSET <br />NEXT i <br /> <br /> <br /> <br /> <br /> <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" <br />bitmap$(1) = "0000033333300000" <br />bitmap$(2) = "0000066663300000" <br />bitmap$(3) = "0000063663300000" <br />bitmap$(4) = "0000866666300000" <br />bitmap$(5) = "0000066666300000" <br />bitmap$(6) = "0000006666000000" <br />bitmap$(7) = "0000000661000000" <br />bitmap$(8) = "0000000711700000" <br />bitmap$(9) = "0000007111100000" <br /> <br />bitmap$(10) = "0000071111170000" <br />bitmap$(11) = "0000011111170000" <br />bitmap$(12) = "0000011111110000" <br />bitmap$(13) = "0000711111117000" <br />bitmap$(14) = "0000711111111000" <br />bitmap$(15) = "0000111111111000" <br />bitmap$(16) = "0001111333311000" <br />bitmap$(17) = "0006602222206600" <br />bitmap$(18) = "0006002222200600" <br />bitmap$(19) = "0000092222200000" <br />bitmap$(20) = "0000022222290000" <br />bitmap$(21) = "0000022222220000" <br />bitmap$(22) = "0000022202220000" <br />bitmap$(23) = "0000922202220000" <br />bitmap$(24) = "0000222202222000" <br />bitmap$(25) = "0000222009222000" <br />bitmap$(26) = "0000222000222000" <br />bitmap$(27) = "0000222000222000" <br />bitmap$(28) = "0009222000222300" <br />bitmap$(29) = "0002220000033300" <br />bitmap$(30) = "0003330000330000" <br />bitmap$(31) = "0033330000000000" <br /> <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, yd + 88): PSET (31 - xd, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd, yd + 88): PSET (31 - xd, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd, yd + 88): PSET (31 - xd, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd, yd + 88): PSET (31 - xd, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "0000003333000000" <br />bitmap$(1) = "0000033333300000" <br />bitmap$(2) = "0000066633300000" <br />bitmap$(3) = "0000063663300000" <br />bitmap$(4) = "0000866663300000" <br />bitmap$(5) = "0000066666300000" <br />bitmap$(6) = "0000006666000000" <br />bitmap$(7) = "0000000661000000" <br />bitmap$(8) = "0000000711700000" <br />bitmap$(9) = "0000007111100000" <br /> <br />bitmap$(10) = "0000001111100000" <br />bitmap$(11) = "0000001111100000" <br />bitmap$(12) = "0000001111100000" <br />bitmap$(13) = "0000001111100000" <br />bitmap$(14) = "0000071111100000" <br />bitmap$(15) = "0000071111100000" <br />bitmap$(16) = "0000071111300000" <br />bitmap$(17) = "0000028118200000" <br />bitmap$(18) = "0000022662200000" <br />bitmap$(19) = "0000022662200000" <br />bitmap$(20) = "0000022222000000" <br />bitmap$(21) = "0000922222000000" <br />bitmap$(22) = "0000222222000000" <br />bitmap$(23) = "0000922222000000" <br />bitmap$(24) = "0000022222000000" <br />bitmap$(25) = "0000022222300000" <br />bitmap$(26) = "0000002222300000" <br />bitmap$(27) = "0000000222330000" <br />bitmap$(28) = "0000000222033000" <br />bitmap$(29) = "0000000222000000" <br />bitmap$(30) = "0000000222000000" <br />bitmap$(31) = "0000033330000000" <br /> <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 + 32, yd + 88): PSET (63 - xd, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "0000003333000000" <br />bitmap$(1) = "0000033333300000" <br />bitmap$(2) = "0000066633300000" <br />bitmap$(3) = "0000063663300000" <br />bitmap$(4) = "0000866663300000" <br />bitmap$(5) = "0000066666300000" <br />bitmap$(6) = "0000006666000000" <br />bitmap$(7) = "0000000661000000" <br />bitmap$(8) = "0000000711700000" <br />bitmap$(9) = "0000007111100000" <br /> <br />bitmap$(10) = "0000071111100000" <br />bitmap$(11) = "0000011111170000" <br />bitmap$(12) = "0000711111110000" <br />bitmap$(13) = "0000711111110000" <br />bitmap$(14) = "0000711111110000" <br />bitmap$(15) = "0000111111110000" <br />bitmap$(16) = "0000111333310000" <br />bitmap$(17) = "0000066222260000" <br />bitmap$(18) = "0000006222260000" <br />bitmap$(19) = "0000002222200000" <br />bitmap$(20) = "0000002222200000" <br />bitmap$(21) = "0000022222200000" <br />bitmap$(22) = "0000022222200000" <br />bitmap$(23) = "0000922222200000" <br />bitmap$(24) = "0000222022200000" <br />bitmap$(25) = "0000222022200000" <br />bitmap$(26) = "0000222092290000" <br />bitmap$(27) = "0000222002220000" <br />bitmap$(28) = "0000222002220000" <br />bitmap$(29) = "0003333002220000" <br />bitmap$(30) = "0000000000222000" <br />bitmap$(31) = "0000000033330000" <br /> <br /> <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 + 64, yd + 88): PSET (95 - xd, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 64, yd + 88): PSET (95 - xd, 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: Czw 20:05, 23 Wrz 2021<span class="gen"> </span> Temat postu: Test 16 x 11 plansz</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB dzwiek (ktory!) <br /> <br />REM Gra "Serca", UWAGA wersja gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <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 k$(0 TO 255): REM paleta kolorow <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED pozycjewind(1 TO 3) AS INTEGER <br />DIM SHARED p$(0 TO 175): REM dane plansz <br />DIM SHARED kod$ <br />DIM SHARED serca(0 TO 15, 0 TO 10) AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br />DIM SHARED xwindy AS INTEGER, ywindy 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 ceg4(0 TO 144) AS LONG <br />DIM SHARED cegz2(0 TO 75) AS LONG <br /> <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 />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 200: y = 35: xs = 200: ys = 35: REM wspol. pocz. gracza na ekr. <br />licz = -1: REM wartosc start. zegara <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 ************************* START 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 />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />IF przejechal = 1 THEN y = ywindy + 3: ys = ywindy + 3: przejechal = 0 <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />LINE (0, 180)-(319, 182), 234, BF <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <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: dzwiek (2) <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 />IF k$ = CHR$(27) THEN END <br /> <br />IF x >= xwindy AND y - ywindy < 10 THEN <br />IF k$ = "1" OR k$ = "2" THEN GOSUB przejazd: GOTO rysuj <br />IF k$ = "3" THEN GOSUB przejazd: GOTO rysuj <br />END IF <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 dzwiek (1): 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 />REM GOSUB-RETURN przejazd: <br />przejazd: <br />pietro = VAL(k$) <br />roomy = pozycjewind(pietro) <br /> <br />FOR i = 23 TO 0 STEP -1 <br />LINE (xwindy + i, ywindy)-(xwindy + i, ywindy + 35), 255 <br />FOR j = 1 TO 7500: NEXT j <br />NEXT i <br />CLS <br />FOR i = 1 TO 30000: NEXT i <br />przejechal = 1 <br />RETURN <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)-(63, 8), ceg4 <br />GET (64, 0)-(95, 8), cegz2 <br /> <br />GET (0, 36)-(15, 53), szaretlo <br />GET (0, 36)-(31, 53), szaretlo2 <br />GET (0, 36)-(63, 53), szaretlo4 <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 dzwiek (ktory) <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 />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 />REM DREPTANIE <br />IF ktory = 1 THEN <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 />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br />END IF <br /> <br /> <br />REM zabranie serca <br /> <br />IF ktory = 2 THEN <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 6000: NEXT i <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 6000: NEXT i <br />END IF <br /> <br /> <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: k$(i) = "00 00 00 00" <br />PALETTE i, 31 + 31 * 256 + 31 * 65536: NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 05 05 06": REM tlo plyta <br />k$(2) = "02 02 03 02": REM tlo fuga <br />k$(3) = "03 07 06 06": REM tlo krawedz <br />k$(4) = "04 00 22 00": REM liscie <br />k$(5) = "05 3F 08 00": REM serce <br />k$(6) = "06 30 30 30": REM framuga okna <br />k$(7) = "07 28 0A 00": REM doniczka drzewa <br />k$(8) = "08 00 21 39": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 14 14 14": REM framuga zewnetrzna <br />k$(11) = "0B 00 00 00": REM wentylator faza 1 <br />k$(12) = "0C 00 00 00": REM wentylator faza 2 <br />k$(13) = "0D 00 00 00": REM wentylator faza 3 <br />k$(14) = "0E 20 20 20": REM srednia szarosc <br />k$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />k$(16) = "10 18 02 02": REM sweter + zero <br />k$(17) = "11 18 02 02": REM <br />k$(18) = "12 18 02 02": REM <br />k$(19) = "13 18 02 02": REM <br />k$(20) = "14 22 12 00": REM sweter + liscie <br />k$(21) = "15 3F 00 00": REM <br />k$(22) = "16 2F 09 09": REM sweter + framuga okna <br />k$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />k$(24) = "18 25 16 24": REM sweter + niebo <br />k$(25) = "19 3F 3F 3F": REM sweter + slonce <br />k$(26) = "1A 16 0F 0F": REM sweter + framuga zew <br />k$(27) = "1B 3F 3F 3F": REM <br />k$(28) = "1C 3F 3F 3F": REM <br />k$(29) = "1D 3F 3F 3F": REM <br />k$(30) = "1E 20 10 10": REM sweter + przyciski <br />REM kolor 31 (1F) zastrzezony dla gracza <br />k$(32) = "20 0A 13 29": REM spodnie + zero <br />k$(33) = "21 0A 13 29": REM <br />k$(34) = "22 0A 13 29": REM <br />k$(35) = "23 0A 13 29": REM <br />k$(36) = "24 05 1D 24": REM spodnie+ liscie <br />k$(37) = "25 3F 3F 3F": REM <br />k$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />k$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />k$(40) = "28 00 1A 3F": REM spodnie + niebo <br />k$(41) = "29 3F 3F 3F": REM spodnie +slonce <br />k$(42) = "2A 10 14 20": REM spodnie + framuga zew <br />k$(43) = "2B 3F 3F 3F": REM <br />k$(44) = "2C 3F 3F 3F": REM <br />k$(45) = "2D 3F 3F 3F": REM <br />k$(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 />k$(31) = "1F 2F 09 09": REM sweter <br />k$(47) = "2F 0D 1A 37": REM spodnie <br />k$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 30 20": REM skora1 <br />REM kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 32 22 02": REM nos <br />REM kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />REM kolor$(175) = "AF 22 02 02": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br />REM FF- zarezerwowany dla przeslony <br /> <br />REM rejestry jednokierunkowe <br />k$(198) = "C6 20 20 20" <br />k$(199) = "C7 20 20 20" <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 24 24": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM kolor 240 - przeslona <br />k$(240) = "F0 38 38 38" <br /> <br />REM cegly male zielone <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 28 28 28": REM przeslona <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(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) = "h111g3322f.6....LD....___EQ_F[Q_!" <br />p$(7) = "hh222ff11d.7.BE.......aH_ZI_MdO_!" <br />p$(8) = "hhDDDfCCCg.8..........______DQK_!" <br />p$(9) = "hhhhhf111c.9..........__________!" <br />p$(10) = "hhhhhf222g.A..........MO_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) = "dd333a33hh.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.BG....cE.__________!" <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.BD....JG.ZM____AQM_!" <br />p$(45) = "c333cc11gg.D....aN....______AQM_!" <br />p$(46) = "dd33cc22hh.E..........___aG_AQE_!" <br />p$(47) = "hh3333113c.F.UJ....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) = "ff223c33cd.7.0C.SN....GN_TI_MdM_!": REM startowa <br />p$(72) = "ff113cc33d.8..........MO____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) = "ff222333hh.E.UK.......______FEE_!" <br />p$(79) = "h3111333ff.F.WK.......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) = "h333111hhh.2..........___KM_____!" <br />p$(99) = "f333aaafff.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..........______DQK_!" <br />p$(106) = "hh333fCCCh.A.BE.......___KI_____!" <br />p$(107) = "ff3333111h.B.0I....LK.aP____CON_!" <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) = "hfaa222fff.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) = "hffaaa001f.6....KO....__________!" <br />p$(119) = "ff33ee00hh.7..........___KO_MdE_!" <br />p$(120) = "hh3333002h.8.BL.......______CCQ_!" <br />p$(121) = "hCCCffDDDh.9..........KO________!" <br />p$(122) = "hDDDccCCCh.A..........___MK_____!" <br />p$(123) = "hf333300Df.B.AL.......__________!" <br />p$(124) = "ffffff11hh.C....KN....______IOI_!" <br />p$(125) = "hhhhhf22fh.D.......TK.__________!" <br />p$(126) = "h33c3300ff.E..........KK____COG_!" <br />p$(127) = "hhheefDDhh.F....KN....__________!" <br /> <br />REM ***************** n/8 plansze wiersza roomy=8 <br /> <br />p$(128) = "fffa222hhh.0..........KK________!" <br />p$(129) = "hbbb000hhh.1.UH.ZK....__________!" <br />p$(130) = "f222111fff.2.......KK.__________!" <br />p$(131) = "h000ccchhh.3..........______COI_!" <br />p$(132) = "h111afffhh.4.UK.......RN________!" <br />p$(133) = "h333ff222h.5....KO....__________!" <br />p$(134) = "ffffff000h.6.......aN.______DQK_!" <br />p$(135) = "hhhhha000h.7..........______ESK_!" <br />p$(136) = "hh3333000c.8....KG....______CKK_!" <br />p$(137) = "h33333111h.9..........cD____OKK_!" <br />p$(138) = "h33333222h.A.BG.......__________!" <br />p$(139) = "ffCCff00ff.B....KN....______KaE_!" <br />p$(140) = "hfDDff00hh.C.......TH.______JKM_!" <br />p$(141) = "hhhaac00fh.D.0L.......__________!" <br />p$(142) = "f3333300ff.E....SI....______COL_!" <br />p$(143) = "hhheefDDhh.F..........]H________!" <br /> <br />REM ***************** n/9 plansze wiersza roomy=9 <br /> <br />p$(144) = "haaa222ffh.0....SD....______COH_!" <br />p$(145) = "heee000hhh.1.......DK.__________!" <br />p$(146) = "f222311hhh.2.AI.......KK________!" <br />p$(147) = "h000aaaccc.3..........______IOJ_!" <br />p$(148) = "h000ahhhhh.4....KH....__________!" <br />p$(149) = "h111hhhhhh.5..........___KG_____!" <br />p$(150) = "hhffaa222h.6.......ZK.______HEM_!" <br />p$(151) = "hhaaaa000d.7.UL.......__________!" <br />p$(152) = "ccc333000h.8.AL.......dI________!" <br />p$(153) = "h33333111h.9....SD....______GOK_!" <br />p$(154) = "h33333222h.A..........______NKG_!" <br />p$(155) = "ff223300Dh.B.BL.......__________!" <br />p$(156) = "hfDDff00ff.C.......SK.__________!" <br />p$(157) = "hhhaac00fh.D....KK....______DYK_!" <br />p$(158) = "f3333300hh.E..........KK____ECI_!" <br />p$(159) = "haa333DDhh.F.WL....DK.__________!" <br /> <br />REM ***************** n/10 plansze wiersza roomy=10 <br /> <br />p$(160) = "hhaa222fhh.0.......KK.__________!" <br />p$(161) = "hhee000hhh.1....KK....__________!" <br />p$(162) = "ff22311hhh.2..........KK____OKG_!" <br />p$(163) = "hh00aaahhh.3..........___KK_____!" <br />p$(164) = "hh00ahhhhh.4.......KK.__________!" <br />p$(165) = "h111hhhhhh.5....KK....__________!" <br />p$(166) = "hhhhhhCChh.6..........RP________!" <br />p$(167) = "dddaaa00hh.7..........______OKL_!" <br />p$(168) = "hhh33300hh.8.......KK.__________!" <br />p$(169) = "hh333311hh.9..........__________!" <br />p$(170) = "hh333322hh.A..........KK________!" <br />p$(171) = "hhh33300hh.B....KK....__________!" <br />p$(172) = "ffffff00hh.C..........__________!" <br />p$(173) = "hhhaac00hh.D..........KK________!" <br />p$(174) = "hh333300hh.E....KH....______OKK_!" <br />p$(175) = "haa333DDhh.F..........__________!" <br /> <br /> <br />REM tablica serc <br />FOR xr = 0 TO 15 <br />FOR yr = 0 TO 10 <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 />REM tablica wind <br />pozycjewind(1) = 0 <br />pozycjewind(2) = 4 <br />pozycjewind(3) = 7 <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 />yo = (ASC(el2$) - 65) * 9 <br />IF el$ = "#" THEN FOR xx = 0 TO 4: PUT (xx * 64, yo), ceg4, PSET: NEXT xx <br />IF el$ = "W" THEN <br />PUT (16, yo), ceg2, PSET: PUT (80, yo), ceg4, PSET <br />PUT (144, yo), ceg4, PSET: PUT (208, yo), ceg2, PSET: PUT (272, yo), ceg2, PSET <br />END IF <br />IF el$ = "U" THEN <br />PUT (16, yo), ceg4, PSET: PUT (64, yo), ceg4, PSET <br />PUT (192, yo), ceg4, PSET: PUT (240, yo), ceg4, PSET <br />END IF <br />IF el$ = "0" THEN PUT (16, yo), ceg4, PSET: PUT (240, yo), ceg4, PSET <br />IF el$ = "A" THEN FOR xx = 0 TO 4: PUT (16 + xx * 64, yo), ceg2, PSET: NEXT xx <br />IF el$ = "B" THEN FOR xx = 0 TO 5: PUT (64 + xx * 32, yo), 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 />xo = (ASC(el2$) - 65) * 8 <br />el2$ = MID$(kod$, 31, 1) <br />yo = (ASC(el2$) - 65) * 9 <br />IF el$ = "A" THEN <br />PUT (xo, yo), blokp, PSET: PUT (xo, yo + 18), blokp, PSET <br />PUT (xo + 16, yo), blok2, PSET: PUT (xo + 16, yo + 18), blok2, PSET <br />PUT (xo + 48, yo), blokk, PSET: PUT (xo + 48, yo + 18), blokk, PSET <br />END IF <br /> <br />IF el$ = "B" THEN COLOR 235: LINE (xo + 5, yo)-(xo + 9, yo + 35), , BF <br />IF el$ = "C" THEN PUT (xo, yo), ceg2, PSET: PUT (xo + 32, yo), ceg2, PSET: PUT (xo + 64, yo), ceg2, PSET <br />IF el$ = "D" THEN LINE (xo, yo)-(xo + 22, yo + 17), 235, BF: LINE (xo + 42, yo)-(xo + 63, yo + 17), 235, BF <br />IF el$ = "E" THEN LINE (xo, yo)-(xo + 5, yo + 35), 235, BF: LINE (xo + 26, yo + 36)-(xo + 31, yo + 72), 235, BF <br />REM niebieskie klocki <br />IF el$ = "F" THEN PUT (xo, yo), nieb, PSET <br />IF el$ = "G" THEN PUT (xo, yo), nieb, PSET: PUT (xo + 64, yo), nieb, PSET <br />IF el$ = "H" THEN PUT (xo, yo), nieb, PSET: PUT (xo + 64, yo + 36), nieb, PSET <br />IF el$ = "I" THEN PUT (xo, yo), nieb, PSET: PUT (xo + 64, yo - 36), nieb, PSET <br />REM jednokierunkowe bramki <br />IF el$ = "J" THEN PSET (xo - 2, yo), 199: DRAW "R18 D35 L18 U35 F18 U1 G18" <br />IF el$ = "K" THEN PSET (xo - 2, yo), 198: DRAW "R18 D35 L18 U35 R18 G18 U1 F18" <br />REM zaslonka <br />IF el$ = "L" THEN LINE (xo, yo)-(xo + 15, yo + 35), 255, BF <br />REM winda <br />xwindy = -10: ywindy = -10 <br />IF el$ = "M" THEN <br />LINE (xo, yo)-(xo + 23, yo + 35), 10, BF <br />LINE (xo, yo)-(xo, yo + 36), 6 <br />LINE (xo + 3, yo + 7)-(xo + 5, yo + 17), 14, BF <br />LINE (xo + 1, yo)-(xo + 23, yo), 9 <br />PSET (xo + 4, yo + 8), 12 <br />PSET (xo + 4, yo + 10), 5: DRAW "D7 C14 R1 U2 L2 U2 R2 U2 L2" <br />xwindy = xo: ywindy = yo <br />COLOR 8: LOCATE (ywindy / 8) + 2, 34 <br />IF roomy = 0 THEN PRINT "1" <br />IF roomy = 4 THEN PRINT "2" <br />IF roomy = 7 THEN PRINT "3" <br />END IF <br />IF el$ = "N" THEN <br />PUT (xo, yo), cegz2, PSET: PUT (xo + 64, yo), cegz2, PSET: PUT (xo + 128, yo), cegz2, PSET <br />PUT (xo, yo + 54), cegz2, PSET: PUT (xo + 64, yo + 54), cegz2, PSET: PUT (xo + 128, yo + 54), cegz2, PSET <br />END IF <br />IF el$ = "O" THEN <br />PUT (xo, yo), cegz2, PSET: PUT (xo + 64, yo), cegz2, PSET: PUT (xo + 128, yo), cegz2, PSET <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 />xo = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 18, 1) <br />yo = (ASC(el$) - 65) * 9 <br />IF roomy < 2 THEN PUT (xo, yo), window2, PSET <br />IF roomy > 1 AND roomy < 5 THEN PUT (xo, yo), window1, PSET <br />IF roomy > 4 THEN PUT (xo, yo), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20: yserca = -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 />PSET (xserca, yserca + 1), 5 <br />DRAW "D2 F1 U4 R1 D5 F1 U5 E1 D5 E1 U4 F1 D2" <br /> <br /> <br />donica: <br />el$ = MID$(kod$, 26, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO wentyl <br />xo = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 27, 1) <br />yo = (ASC(el$) - 65) * 9 + 2 <br />PUT (xo, yo), palma, PSET <br /> <br />wentyl: <br />el$ = MID$(kod$, 20, 1) <br />IF el$ = "" OR el$ = "." THEN GOTO koniecrysowania <br />xo = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 21, 1) <br />yo = (ASC(el$) - 65) * 9 <br />PUT (xo, yo), wentylator, PSET <br /> <br /> <br />koniecrysowania: <br /> <br />COLOR 15 <br /> <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