Życie Wieczne
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum Życie Wieczne Strona Główna
->
Offtopic
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
----------------
Ogólna dyskusja
Kościół rzymsko katolicki
Biblia
Objawienia
Własne przemyślenia
Inne religie i ateizm
Nasza twórczość
Offtopic
Przegląd tematu
<table border="0" cellpadding="3" cellspacing="1" width="100%" class="forumline"> <tr> <th class="thCornerL" width="22%" height="26">Autor</th> <th class="thCornerR">Wiadomość</th> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 18:20, 05 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB zabranie () <br /> <br />REM Gra "Serca" UWAGA wersaj gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <br />DECLARE SUB dreptanie () <br />DECLARE SUB animacja () <br />DECLARE SUB rysowanie () <br />DECLARE SUB palety () <br />DECLARE SUB plansze () <br />DECLARE SUB cegly () <br /> <br />DIM SHARED kolor$(0 TO 255) <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED plansza$(0 TO 48) <br />DIM SHARED kod$ <br />DIM SHARED serca(1 TO 7, 1 TO 7) AS INTEGER <br />DIM SHARED roomx AS INTEGER, roomy AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br /> <br />REM pamiec tla pod wziatek <br /> <br />DIM SHARED tlo(0 TO 32) AS LONG <br /> <br />REM tlo <br /> <br />DIM SHARED szaretlo(0 TO 64) AS LONG <br />DIM SHARED szaretlo2(0 TO 128) AS LONG <br />DIM SHARED szaretlo4(0 TO 256) AS LONG <br />REM dane elementow planszy <br /> <br />DIM SHARED ceg40(0 TO 640) AS LONG <br />DIM SHARED ceg17plus17(0 TO 640) AS LONG <br />DIM SHARED ceg13plus13(0 TO 640) AS LONG <br />DIM SHARED ceg4plus20plus4(0 TO 640) AS LONG <br /> DIM SHARED palma(0 TO 64) AS LONG <br /> <br />DIM SHARED blokp(0 TO 64) AS LONG <br />DIM SHARED bloks(0 TO 64) AS LONG <br />DIM SHARED blokk(0 TO 64) AS LONG <br />DIM SHARED blok2(0 TO 128) AS LONG <br />DIM SHARED blok4(0 TO 256) 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 /> <br />REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />REM PRINT FRE(-2): END <br />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 100: y = 60: xs = 100: ys = 60: REM wspolrzedne poczatkowe gracza na ekranie <br />licz = -1: REM wartosc startowa zegara <br />roomx = 4: roomy = 4: REM plansza startowa <br /> <br />REM ***** SUB palety - ustawienie nowych wartosci barw <br />palety <br /> <br />REM ***** SUB cegly - zapelnienie pozostalych tablic <br />cegly <br /> <br />REM SUB plansze - wypelnienie tablicy wygladu plansz <br />plansze <br /> <br />REM SUB animacja - tablice animacji postaci <br />REM animacja <br /> <br /> <br />REM ************************* WYBOR POMIESZCZENIA <br /> <br />rysuj: <br /> <br />kod$ = plansza$(roomx - 1 + (roomy - 1) * 7) <br /> <br />REM ******************** rysowanie pomieszczenia <br />t0 = PEEK(1132): REM pomiar czasu rysowania <br /> <br /> <br />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />COLOR 28 <br />LOCATE 23, 1: FOR i = 1 TO 40: PRINT CHR$(223); : NEXT i <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <br /> <br />LOCATE 24, 2: COLOR 3: PRINT "T:"; t0; "/"; t1; FRE(-2); <br />PRINT " ROOM:"; roomx; "/"; roomy; "--"; <br /> <br /> <br />REM **************** zapamietanie pola pod graczem <br />GET (x, y)-(x + 15, y + 31), pamiec <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />liczsercaroom = 0: zrobione = 0 <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <br />dx = 0: dy = 0 <br />IF dzwiekbrania = 1 THEN dzwiekbrania = 0: zabranie <br /> <br />REM ******************* czas gry w sekundach <br /> <br />se$ = MID$(TIME$, 7, 2) <br />se = VAL(se$) <br />IF se <> ses THEN licz = licz + 1 <br />ses = se <br />LOCATE 25, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br /> FOR delay = 1 TO 1000: NEXT delay <br /> <br />REM ************************ sprawdzenie klawiszy <br /> <br />alt = 0: lshift = 0: pshift = 0: skos = 0 <br /> <br />k$ = INKEY$ <br />IF k$ = CHR$(27) THEN END <br /> <br />REM klawisz alt - wznoszenie sie <br />IF (PEEK(1047) AND 8) = 8 THEN alt = 1 <br />IF (PEEK(1047) AND 2) = 2 THEN lshift = 1 <br />IF (PEEK(1047) AND 1) = 1 THEN pshift = 1 <br /> <br />REM bezruch = grawitacja <br />IF lshift = 0 AND pshift = 0 AND alt = 0 THEN dy = 2: vert = 1: obrot = 0: przebiervert = 0: GOTO czy <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br /> <br />IF lshift = 1 THEN dx = -4: dy = 2: obrot = -1: vert = 0 <br />IF pshift = 1 THEN dx = 4: dy = 2: obrot = 1: vert = 0 <br />IF alt = 1 THEN dy = -4: vert = 1 <br />IF dx <> 0 AND dy <> 0 THEN skos = 1 <br />czy: <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br /> <br />IF x + dx > 300 THEN x = 5: xs = 5: roomx = roomx + 1: GOTO rysuj <br />IF x + dx < 3 THEN x = 300: xs = 300: roomx = roomx - 1: GOTO rysuj <br />IF y + dy > 149 THEN y = 4: ys = 4: roomy = roomy + 1: GOTO rysuj <br />IF y + dy < 3 THEN y = 146: ys = 146: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br />REM sprawdzenie przeszkody. Przeszkoda sa kolory > 200 <br /> <br />xmozliwy = 0: xniemozliwy = 0 <br />ymozliwy = 0: yniemozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa obok <br /> <br />IF dx > 0 THEN <br />FOR i = 0 TO 31: IF POINT(x + 19, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br /> <br />IF dx < 0 THEN <br />FOR i = 0 TO 31: IF POINT(x - 3, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF xniemozliwy = 0 THEN xmozliwy = 1 <br />IF xniemozliwy = 1 THEN xmozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa gora dol <br /> <br />IF dy > 0 THEN <br />FOR i = 0 TO 15: <br />IF POINT(x + i, y + 32) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y + 33) > 200 THEN yniemozliwy = 1: EXIT FOR <br /> <br />NEXT i <br />END IF <br /> <br />IF dy < 0 THEN <br />FOR i = 0 TO 15 <br />IF POINT(x + i, y - 4) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y - 5) > 200 THEN yniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF yniemozliwy = 0 THEN ymozliwy = 1 <br />IF yniemozliwy = 1 THEN ymozliwy = 0 <br /> <br />REM ruch gdy oba mozliwe x oraz y <br />IF ymozliwy = 1 AND xmozliwy = 1 THEN IF dx <> 0 OR dy <> 0 THEN GOTO ruch <br /> <br /> <br />REM szczegolne przypadki gdy tylko x albo y mozliwy <br />IF ymozliwy = 0 AND xmozliwy = 1 THEN dy = 0: GOTO czy <br />IF ymozliwy = 1 AND xmozliwy = 0 THEN dx = 0: GOTO czy <br /> <br />REM ruch niemozliwy powrot petli glownej bez zmian pozostaja x y <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** RUCH <br /> <br />ruch: <br /> <br />x = x + dx: y = y + dy <br />IF dy = 0 AND przebieranie = 0 AND alt = 0 THEN dreptanie: REM dzwiek chodzenia <br /> <br />REM ******************** czy jest wziatek <br />deltawx = ABS(x - xserca) <br />deltawy = ABS(y + 16 - yserca) <br />IF deltawx < 10 AND deltawy < 22 THEN GOSUB wziatek <br /> <br />REM ************************************** operacja odswiezania tla <br /> <br />REM punkt 1 zapamietanie nowego pola dzialania (brudnego) <br />REM w oparciu o nowe x,y <br /> <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />REM************ 2 odnowienie pola dzialania uwzgledniajac dawne tlo <br /> <br />deltax = x - xs: deltay = y - ys <br />inversx = -1 * deltax: inversy = -1 * deltay <br />inver4 = INT(inversx / 4) <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = (yt + inversy) * 6 <br />FOR xt = 0 TO 3 <br />index1 = 1 + (yt6 + 24) + (xt + inver4) + 1 <br />index2 = 1 + yt4 + xt <br />poledzialania(index1) = pamiec(index2) <br />NEXT xt: NEXT yt <br /> <br />REM zmazanie serca z pola dzialania <br /> <br />IF liczsercaroom = 1 AND zrobione = 0 THEN <br />zrobione = 1 <br />PUT (x - 4, y - 4), poledzialania, PSET <br />PUT (xserca, yserca), tlo, PSET <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />END IF <br /> <br />REM nowa mala pamiec <br /> <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = yt * 6 <br />FOR xt = 0 TO 3: <br />index1 = 1 + (yt6 + 24) + (xt + 1): <br />index2 = 1 + yt4 + xt: <br />pamiec(index2) = poledzialania(index1): NEXT xt: NEXT yt <br /> <br /> <br />REM ************* rysowanie nowej postaci WEDLUG FAZY RUCHU <br /> <br />REM aby nie rysowac dwoch postaci w przypadku skosu <br />IF skos = 1 THEN GOTO bezskosu: <br /> <br />REM ************************** ruch w dol lub gore <br /> <br />IF vert = 1 THEN wkleic = 7: GOTO wklej <br />bezskosu: <br />REM ************************** ruch w lewo <br /> <br /> IF obrot = -1 THEN <br /> IF dy = 0 THEN przebieranie = przebieranie + 1 <br /> IF przebieranie = 3 THEN przebieranie = 0 <br /> IF przebieranie = 0 THEN wkleic = 1: GOTO wklej <br /> IF przebieranie = 1 THEN wkleic = 2: GOTO wklej <br /> IF przebieranie = 2 THEN wkleic = 3: GOTO wklej <br /> END IF <br /> <br />REM ****************** ruch w prawo <br /> <br />IF obrot = 1 THEN <br /> IF dy = 0 THEN przebieranie = przebieranie + 1 <br /> <br /> IF przebieranie = 3 THEN przebieranie = 0 <br /> IF przebieranie = 0 THEN wkleic = 4: GOTO wklej <br /> IF przebieranie = 1 THEN wkleic = 5: GOTO wklej <br /> IF przebieranie = 2 THEN wkleic = 6: GOTO wklej <br />END IF <br /> <br />xs = x: ys = y <br /> <br />GOTO petla <br /> <br />wklej: <br /> <br />IF wkleic = 1 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 2 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 3 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 4 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 5 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 6 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 7 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR vertd1(index2)): NEXT xt: NEXT yt <br /> <br />REM wklejenie wyniku operacji na tablicy: <br />PUT (x - 4, y - 4), poledzialania, PSET <br /> <br />xs = x: ys = y <br />GOTO petla <br /> <br />REM GOSUB-RETURN****************************** obsluga wziatku <br /> <br />wziatek: <br />IF serca(roomx, roomy) = 0 THEN GOTO niemawziatku <br />IF liczsercaroom = 1 THEN GOTO niemawziatku <br />serca(roomx, roomy) = 0 <br />liczserca = liczserca + 1 <br />PUT (xserca, yserca), tlo, PSET <br /> <br />liczsercaroom = 1 <br />dzwiekbrania = 1 <br /> <br />LOCATE 1, 1: COLOR 6: PRINT liczserca; <br />niemawziatku: <br />RETURN <br /> <br />SUB animacja <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br />REM ten SUB jest do skasowania <br /> <br />END SUB <br /> <br />SUB cegly <br /> <br />BLOAD "bitmap1.scr" <br /> <br />REM INPUT a$ <br />REM pobranie z ekranu tablic elementow <br /> <br /> GET (0, 0)-(319, 7), ceg40 <br /> GET (0, 8)-(319, 15), ceg17plus17 <br /> GET (0, 16)-(319, 23), ceg13plus13 <br /> GET (0, 24)-(319, 31), ceg4plus20plus4 <br />GET (0, 48)-(15, 63), szaretlo <br />GET (0, 48)-(31, 63), szaretlo2 <br />GET (0, 48)-(63, 63), szaretlo4 <br /> <br /> GET (16, 64)-(31, 79), palma <br />GET (32, 64)-(47, 79), blokp <br />GET (48, 64)-(63, 79), bloks <br />GET (64, 64)-(79, 79), blokk <br />GET (0, 32)-(31, 47), blok2 <br />GET (0, 32)-(63, 47), blok4 <br /> <br />GET (0, 88)-(15, 119), znakl1 <br />GET (16, 88)-(31, 119), znakp1 <br />GET (32, 88)-(47, 119), znakl2 <br />GET (48, 88)-(63, 119), znakp2 <br />GET (64, 88)-(79, 119), znakl3 <br />GET (80, 88)-(95, 119), znakp3 <br />GET (96, 88)-(111, 119), vertd1 <br /> <br /> GET (0, 120)-(31, 139), window1 <br /> GET (32, 120)-(63, 139), window2 <br /> GET (64, 120)-(95, 139), window3 <br /> <br />END SUB <br /> <br />SUB dreptanie <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br /> REM ewentualnie: <br /> REM OUT 66, 30: OUT 66, 0 <br /> REM OUT 66, 164: OUT 66, 2 <br /> REM OUT 66, 130: OUT 66, 1 <br /> REM OUT 66, 74: OUT 66, 0 <br /> REM OUT 66, 220: OUT 66, 1 <br /> <br />FOR i = 1 TO 10 <br /> OUT 66, 30: OUT 66, 0 <br /> OUT 66, 164: OUT 66, 2 <br /> OUT 66, 130: OUT 66, 1 <br /> OUT 66, 74: OUT 66, 0 <br /> OUT 66, 220: OUT 66, 1 <br /> <br /> <br />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 05 05 06": REM tlo plyta <br />kolor$(2) = "02 02 03 02": REM tlo fuga <br />kolor$(3) = "03 07 06 06": REM tlo krawedz <br />kolor$(4) = "04 00 22 00": REM liscie <br />kolor$(5) = "05 3F 08 00": REM serce <br />kolor$(6) = "06 30 30 30": REM framuga okna <br />kolor$(7) = "07 28 0A 00": REM doniczka drzewa <br />kolor$(8) = "08 00 21 39": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 3F 3F 3F": REM niezdef <br />kolor$(11) = "0B 3F 3F 3F" <br />kolor$(12) = "0C 3F 3F 3F" <br />kolor$(13) = "0D 3F 3F 3F" <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />kolor$(16) = "10 18 02 02": REM sweter + zero <br />kolor$(17) = "11 18 02 02": REM <br />kolor$(18) = "12 18 02 02": REM <br />kolor$(19) = "13 18 02 02": REM <br />kolor$(20) = "14 22 12 00": REM sweter + liscie <br />kolor$(21) = "15 3F 00 00": REM <br />kolor$(22) = "16 2F 09 09": REM sweter + framuga okna <br />kolor$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />kolor$(24) = "18 25 16 24": REM sweter + niebo <br />kolor$(25) = "19 3F 3F 3F": REM niezdef <br />kolor$(26) = "1A 3F 3F 3F": REM <br />kolor$(27) = "1B 3F 3F 3F": REM <br />kolor$(28) = "1C 3F 3F 3F": REM <br />kolor$(29) = "1D 3F 3F 3F": REM <br />kolor$(30) = "1E 3F 3F 3F": REM <br />REM kolor 31 1F zastrzezony dla gracza <br />kolor$(32) = "20 0A 13 29": REM spodnie + zero <br />kolor$(33) = "21 0A 13 29": REM <br />kolor$(34) = "22 0A 13 29": REM <br />kolor$(35) = "23 0A 13 29": REM <br />kolor$(36) = "24 05 1D 24": REM spodnie+ liscie <br />kolor$(37) = "25 3F 3F 3F": REM <br />kolor$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />kolor$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />kolor$(40) = "28 00 1A 3F": REM spodnie + niebo <br />kolor$(41) = "29 3F 3F 3F": REM niezdef <br />kolor$(42) = "2A 3F 3F 3F": REM <br />kolor$(43) = "2B 3F 3F 3F": REM <br />kolor$(44) = "2C 3F 3F 3F": REM <br />kolor$(45) = "2D 3F 3F 3F": REM <br />kolor$(46) = "2E 3F 3F 3F": REM <br />REM rejestr 47 2F zastrzezony dla gracza <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br />REM rejestry nieprzezroczyste <br /> <br />kolor$(31) = "1F 2F 09 09": REM sweter <br />kolor$(47) = "2F 0D 1A 37": REM spodnie <br />kolor$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 30 20": REM skora1 <br />kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 32 22 02": REM nos <br />kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 22 02 02": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 24 24": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br /> <br /> <br /> <br />END SUB <br /> <br />SUB plansze <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** (roomy-1)*7+(roomx-1) <br /> <br />REM kodowanie _+++++++++++++++++++++++_okna++++_se_kw_se1_se2_nowy11+++++ <br />REM ************ plansze wiersza roomy=1 <br /> <br />plansza$(0) = "......................._______YQ_GN_________UI_#LLLQQQLLLU" <br />plansza$(1) = ".......................____MD__________________#...UUUPPP#" <br />plansza$(2) = "......................._HE__________ES______UI_#PPPQQQQQQU" <br />plansza$(3) = ".......................__________SK____BB1_fB1_##LLLQWWWQ#" <br />plansza$(4) = "......................._______ZK_______________#QPPPQQUQQU" <br />plansza$(5) = ".......................____MG__________LK5_____#LLLQWWQQQU" <br />plansza$(6) = "......................._LD__________FQ_________#PPPWQQQQUU" <br /> <br />REM ************ plansze wiersza roomy=2 <br /> <br />plansza$(7) = ".......................________________________UQQQWLLLQQ#" <br />plansza$(8) = "......................._______YQ_RN_________WH_#QQQQ...QQ#" <br />plansza$(9) = ".......................____ML__________KK1__WJ_UUQQQPPPUQU" <br />plansza$(10) = "......................._____________MS_________#WLLLWQQQQW" <br />plansza$(11) = "......................._aI__________________UM_UQPPPQQQQQ#" <br />plansza$(12) = ".......................__________RN_GS_________UQQQ000QQQ#" <br />plansza$(13) = ".......................____DJ____aM____________UUUUQQQUUUU" <br /> <br />REM ************* plansze wiersza roomy=3 <br /> <br />plansza$(14) = ".......................__________NG_YS_________#QQQWQWQQQW" <br />plansza$(15) = "......................._MD_YP____UP____________#QQQWLLLLQW" <br />plansza$(16) = "......................._WQ_____________DI3_`I3_U0000....0#" <br />plansza$(17) = "......................._MM__________YQ_________WWWWWPPPPUU" <br />plansza$(18) = "......................._______NP_SM_________WO_#QQQQMWMQQW" <br />plansza$(19) = ".......................________________EB1__UJ_#00QQLLL0QU" <br />plansza$(20) = ".......................____aM____UP____________UQQQWPPP0##" <br /> <br />REM ************ plansze wiersza roomy=4 <br /> <br />plansza$(21) = ".......................____ZM____SG____________WQQQWLLLLUU" <br />plansza$(22) = ".......................________________________WPPPWPPPP##" <br />plansza$(23) = "......................._______LQ_UQ_YS_RU3__#F_#0QLLLQQQQW" <br />plansza$(24) = ".......................____YI____SK_GS_GB5__WM_UUQPPPQQQQU": REM startowa MaX=dU <br />plansza$(25) = ".......................__________NG____________#QQQQWQQQQU" <br />plansza$(26) = "......................._______ZQ_SG____________UUQQQWLLLLU" <br />plansza$(27) = "......................._____________LS_KK1_____##00UUPPPPU" <br /> <br />REM ****************** plansze wiersza roomy=5 <br /> <br />plansza$(28) = "......................._DD____aQ_SS_YS_________ULLLWWWLLL#" <br />plansza$(29) = ".......................________________II4_YI4_#...UUU...#" <br />plansza$(30) = "......................._______aQ_______GL5_YL5_WPPPQUUPPPU" <br />plansza$(31) = ".......................____ML_______YS______UJ_UUQQQLLLQQ#" <br />plansza$(32) = ".......................____YL_______________WJ_UQQQQPPP###" <br />plansza$(33) = ".......................________________KR1_____UU00U000UUU" <br />plansza$(34) = ".......................____OG____SR_YS_________UU0QQQWQQQ#" <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />plansza$(35) = "......................._____________KM_________#00ULLLU0UU" <br />plansza$(36) = ".......................__________SR____MH2_YH2_###UPPPLLL#" <br />plansza$(37) = "......................._______GQ_______________U0QQQQW...#" <br />plansza$(38) = "......................._____________YS_________#LLLU00PPP#" <br />plansza$(39) = ".......................__________MM_________0Q_#PPPWLLLQQ#" <br />plansza$(40) = ".......................________________KO3_YO3_UUUU0PPPUUU" <br />plansza$(41) = "......................._DD_______ZF_MS_________#QQQWQQQ00U" <br /> <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />plansza$(42) = "......................._EJ__________YM_________UUU0LLL####" <br />plansza$(43) = ".......................____SJ____ML____________###U...####" <br />plansza$(44) = "......................._____________KM_________#LLLPPP####" <br />plansza$(45) = ".......................____PH____ZJ____________#PPP000####" <br />plansza$(46) = ".......................__________EE____________#LLL0######" <br />plansza$(47) = "......................._____________GS______0I_UPPPQQQLLL#" <br />plansza$(48) = "......................._LQ_____________________UUUUUUUPPP#" <br /> <br />REM lokalizacja serc <br />REM serca wiersza 1 <br /> <br />serca(1, 1) = 1 <br />serca(4, 1) = 1 <br /> <br />REM serca wiersza 2 <br />serca(2, 2) = 1 <br />serca(6, 2) = 1 <br />serca(7, 2) = 1 <br /> <br />REM serca wiersza 3 <br /> <br />serca(1, 3) = 1 <br />serca(2, 3) = 1 <br />serca(5, 3) = 1 <br />serca(7, 3) = 1 <br /> <br />REM serca wiersza 4 <br />serca(1, 4) = 1 <br />serca(3, 4) = 1 <br />serca(4, 4) = 1 <br />serca(5, 4) = 1 <br />serca(6, 4) = 1 <br /> <br />REM serca wiersza 5 <br /> <br />serca(1, 5) = 1 <br />serca(7, 5) = 1 <br /> <br />REM serca wiersza 6 <br />serca(2, 6) = 1 <br />serca(5, 6) = 1 <br />serca(7, 6) = 1 <br /> <br />REM serca wiersza 7 <br />serca(2, 7) = 1 <br />serca(4, 7) = 1 <br />serca(5, 7) = 1 <br /> <br />END SUB <br /> <br />SUB rysowanie <br /> <br /> <br />FOR yw = 0 TO 10 <br />el$ = MID$(kod$, yw + 48, 1) <br />y16 = yw * 16 <br /> <br />IF el$ = "U" THEN <br />PUT (128, y16), szaretlo4, PSET <br />PUT (0, y16), blok4, PSET <br />PUT (64, y16), blok2, PSET <br />PUT (96, y16), bloks, PSET <br />PUT (112, y16), blokk, PSET <br />PUT (192, y16), blokp, PSET <br />PUT (208, y16), blok4, PSET <br />PUT (272, y16), blok2, PSET <br />PUT (304, y16), bloks, PSET <br />END IF <br /> <br />IF el$ = "L" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />PUT (0, y16), blokk, PSET <br />END IF <br /> <br />IF el$ = "P" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />PUT (304, y16), blokp, PSET <br />END IF <br /> <br />IF el$ = "." THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />END IF <br /> <br />IF el$ = "#" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), blok4, PSET: NEXT xw <br />END IF <br /> <br />IF el$ = "0" THEN <br />PUT (80, y16), szaretlo4, PSET <br />PUT (144, y16), szaretlo4, PSET <br />PUT (208, y16), szaretlo2, PSET <br />PUT (0, y16), blok4, PSET <br />PUT (64, y16), blokk, PSET <br />PUT (240, y16), blokp, PSET <br />PUT (256, y16), blok4, PSET <br />END IF <br /> <br />IF el$ = "W" THEN <br />PUT (32, y16), szaretlo4, PSET <br />PUT (224, y16), szaretlo4, PSET <br />PUT (0, y16), bloks, PSET <br />PUT (16, y16), blokk, PSET <br />PUT (80, y16), blokp, PSET <br />PUT (96, y16), blok4, PSET <br />PUT (160, y16), blok4, PSET <br />PUT (224, y16), blokk, PSET <br />PUT (288, y16), blokp, PSET <br />PUT (304, y16), bloks, PSET <br />END IF <br /> <br />IF el$ = "Q" THEN <br />FOR xw = 0 TO 3: PUT (xw * 64 + 16, y16), szaretlo4, PSET: NEXT xw <br />PUT (272, y16), szaretlo2, PSET <br />PUT (0, y16), blokk, PSET <br />PUT (304, y16), blokp, PSET <br />END IF <br /> <br />NEXT yw <br /> <br />REM rysowanie podestow <br /> <br /> el$ = MID$(kod$, 45, 1) <br /> IF el$ = "" OR el$ = "_" THEN GOTO okna <br /> <br /> el2$ = MID$(kod$, 46, 1) <br /> yokna = (ASC(el2$) - 65) * 8 <br /> IF el$ = "#" THEN PUT (0, yokna), ceg40, PSET <br /> IF el$ = "W" THEN PUT (0, yokna), ceg4plus20plus4, PSET <br /> IF el$ = "U" THEN PUT (0, yokna), ceg17plus17, PSET <br /> IF el$ = "0" THEN PUT (0, yokna), ceg13plus13, PSET <br /> <br />okna: <br /> <br />REM rysowanie okien <br /> <br /> el$ = MID$(kod$, 25, 1) <br /> IF el$ = "" OR el$ = "_" THEN GOTO oknonz <br /> xokna = (ASC(el$) - 65) * 8 <br /> el$ = MID$(kod$, 26, 1) <br /> yokna = (ASC(el$) - 65) * 8 <br /> PUT (xokna, yokna), window2, PSET <br /> <br /> <br />oknonz: <br />REM okno niebiesko-zielone <br /> <br /> el$ = MID$(kod$, 28, 1) <br /> IF el$ = "" OR el$ = "_" THEN GOTO oknoziel <br /> xokna = (ASC(el$) - 65) * 8 <br /> el$ = MID$(kod$, 29, 1) <br /> yokna = (ASC(el$) - 65) * 8 <br /> PUT (xokna, yokna), window1, PSET <br /> <br />oknoziel: <br />REM okno zielone <br /> <br /> el$ = MID$(kod$, 31, 1) <br /> IF el$ = "" OR el$ = "_" THEN GOTO serce <br /> xokna = (ASC(el$) - 65) * 8 <br /> el$ = MID$(kod$, 32, 1) <br /> yokna = (ASC(el$) - 65) * 8 <br />PUT (xokna, yokna), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20 <br />yokna = -20 <br />IF serca(roomx, roomy) = 0 THEN GOTO donica <br />el$ = MID$(kod$, 34, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO donica <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 35, 1) <br />yokna = (ASC(el$) - 65) * 8 <br /> GET (xokna + 8, yokna + 8)-(xokna + 15 + 8, yokna + 7 + 8), tlo <br />COLOR 5: LOCATE yokna / 8, xokna / 8: PRINT CHR$(3); <br /> xserca = xokna - 8 <br /> yserca = yokna - 8 <br /> <br /> <br />donica: <br /> el$ = MID$(kod$, 37, 1) <br /> IF el$ = "" OR el$ = "_" THEN GOTO koniecrysowania <br /> xokna = (ASC(el$) - 65) * 8 <br /> el$ = MID$(kod$, 38, 1) <br /> yokna = (ASC(el$) - 65) * 8 <br /> PUT (xokna, yokna), palma, PSET <br /> <br /> <br />koniecrysowania: <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br /> <br />END SUB <br /> <br />SUB zabranie <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 4000: NEXT i <br /> <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 4000: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 16:31, 05 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB zabranie () <br /> <br />REM Gra "Serca" UWAGA wersaj gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <br />DECLARE SUB dreptanie () <br />DECLARE SUB animacja () <br />DECLARE SUB rysowanie () <br />DECLARE SUB palety () <br />DECLARE SUB plansze () <br />DECLARE SUB cegly () <br /> <br />DIM SHARED kolor$(0 TO 255) <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED plansza$(0 TO 48) <br />DIM SHARED kod$ <br />DIM SHARED serca(1 TO 7, 1 TO 7) AS INTEGER <br />DIM SHARED roomx AS INTEGER, roomy AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br /> <br />REM pamiec tla pod wziatek <br /> <br />DIM SHARED tlo(0 TO 32) AS LONG <br /> <br />REM tlo <br /> <br />DIM SHARED szaretlo(0 TO 64) AS LONG <br />DIM SHARED szaretlo2(0 TO 128) AS LONG <br />DIM SHARED szaretlo4(0 TO 256) AS LONG <br />REM dane elementow planszy <br /> <br />DIM SHARED ceg40(0 TO 640) AS LONG <br />DIM SHARED ceg17plus17(0 TO 640) AS LONG <br />DIM SHARED ceg13plus13(0 TO 640) AS LONG <br />DIM SHARED ceg4plus20plus4(0 TO 640) AS LONG <br />REM DIM SHARED palma(0 TO 64) AS LONG <br /> <br />DIM SHARED blokp(0 TO 64) AS LONG <br />DIM SHARED bloks(0 TO 64) AS LONG <br />DIM SHARED blokk(0 TO 64) AS LONG <br />DIM SHARED blok2(0 TO 128) AS LONG <br />DIM SHARED blok4(0 TO 256) 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 /> <br />REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br /> REM PRINT FRE(-2): END <br />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 100: y = 60: xs = 100: ys = 60: REM wspolrzedne poczatkowe gracza na ekranie <br />licz = -1: REM wartosc startowa zegara <br />roomx = 4: roomy = 4: REM plansza startowa <br /> <br />REM ***** SUB palety - ustawienie nowych wartosci barw <br />palety <br /> <br />REM ***** SUB cegly - zapelnienie pozostalych tablic <br />cegly <br /> <br />REM SUB plansze - wypelnienie tablicy wygladu plansz <br />plansze <br /> <br />REM SUB animacja - tablice animacji postaci <br />REM animacja <br /> <br /> <br />REM ************************* WYBOR POMIESZCZENIA <br /> <br />rysuj: <br /> <br />kod$ = plansza$(roomx - 1 + (roomy - 1) * 7) <br /> <br />REM ******************** rysowanie pomieszczenia <br />t0 = PEEK(1132): REM pomiar czasu rysowania <br /> <br /> <br />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />COLOR 28 <br />LOCATE 23, 1: FOR i = 1 TO 40: PRINT CHR$(223); : NEXT i <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <br /> <br />LOCATE 24, 2: COLOR 3: PRINT "T:"; t0; "/"; t1; <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 /> <br />liczsercaroom = 0: zrobione = 0 <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <br />dx = 0: dy = 0 <br />IF dzwiekbrania = 1 THEN dzwiekbrania = 0: zabranie <br /> <br />REM ******************* czas gry w sekundach <br /> <br />se$ = MID$(TIME$, 7, 2) <br />se = VAL(se$) <br />IF se <> ses THEN licz = licz + 1 <br />ses = se <br />LOCATE 25, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br /> FOR delay = 1 TO 1000: NEXT delay <br /> <br />REM ************************ sprawdzenie klawiszy <br /> <br />alt = 0: lshift = 0: pshift = 0: skos = 0 <br /> <br />k$ = INKEY$ <br />IF k$ = CHR$(27) THEN END <br /> <br />REM klawisz alt - wznoszenie sie <br />IF (PEEK(1047) AND 8) = 8 THEN alt = 1 <br />IF (PEEK(1047) AND 2) = 2 THEN lshift = 1 <br />IF (PEEK(1047) AND 1) = 1 THEN pshift = 1 <br /> <br />REM bezruch = grawitacja <br />IF lshift = 0 AND pshift = 0 AND alt = 0 THEN dy = 2: vert = 1: obrot = 0: przebiervert = 0: GOTO czy <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br /> <br />IF lshift = 1 THEN dx = -4: dy = 2: obrot = -1: vert = 0 <br />IF pshift = 1 THEN dx = 4: dy = 2: obrot = 1: vert = 0 <br />IF alt = 1 THEN dy = -4: vert = 1 <br />IF dx <> 0 AND dy <> 0 THEN skos = 1 <br />czy: <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br /> <br />IF x + dx > 300 THEN x = 5: xs = 5: roomx = roomx + 1: GOTO rysuj <br />IF x + dx < 3 THEN x = 300: xs = 300: roomx = roomx - 1: GOTO rysuj <br />IF y + dy > 149 THEN y = 4: ys = 4: roomy = roomy + 1: GOTO rysuj <br />IF y + dy < 3 THEN y = 146: ys = 146: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br />REM sprawdzenie przeszkody. Przeszkoda sa kolory > 200 <br /> <br />xmozliwy = 0: xniemozliwy = 0 <br />ymozliwy = 0: yniemozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa obok <br /> <br />IF dx > 0 THEN <br />FOR i = 0 TO 31: IF POINT(x + 19, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br /> <br />IF dx < 0 THEN <br />FOR i = 0 TO 31: IF POINT(x - 3, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF xniemozliwy = 0 THEN xmozliwy = 1 <br />IF xniemozliwy = 1 THEN xmozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa gora dol <br /> <br />IF dy > 0 THEN <br />FOR i = 0 TO 15: <br />IF POINT(x + i, y + 32) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y + 33) > 200 THEN yniemozliwy = 1: EXIT FOR <br /> <br />NEXT i <br />END IF <br /> <br />IF dy < 0 THEN <br />FOR i = 0 TO 15 <br />IF POINT(x + i, y - 4) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y - 5) > 200 THEN yniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF yniemozliwy = 0 THEN ymozliwy = 1 <br />IF yniemozliwy = 1 THEN ymozliwy = 0 <br /> <br />REM ruch gdy oba mozliwe x oraz y <br />IF ymozliwy = 1 AND xmozliwy = 1 THEN IF dx <> 0 OR dy <> 0 THEN GOTO ruch <br /> <br /> <br />REM szczegolne przypadki gdy tylko x albo y mozliwy <br />IF ymozliwy = 0 AND xmozliwy = 1 THEN dy = 0: GOTO czy <br />IF ymozliwy = 1 AND xmozliwy = 0 THEN dx = 0: GOTO czy <br /> <br />REM ruch niemozliwy powrot petli glownej bez zmian pozostaja x y <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** RUCH <br /> <br />ruch: <br /> <br />x = x + dx: y = y + dy <br />IF dy = 0 AND przebieranie = 0 AND alt = 0 THEN dreptanie: REM dzwiek chodzenia <br /> <br />REM ******************** czy jest wziatek <br />deltawx = ABS(x - xserca) <br />deltawy = ABS(y + 16 - yserca) <br />IF deltawx < 10 AND deltawy < 22 THEN GOSUB wziatek <br /> <br />REM ************************************** operacja odswiezania tla <br /> <br />REM punkt 1 zapamietanie nowego pola dzialania (brudnego) <br />REM w oparciu o nowe x,y <br /> <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />REM************ 2 odnowienie pola dzialania uwzgledniajac dawne tlo <br /> <br />deltax = x - xs: deltay = y - ys <br />inversx = -1 * deltax: inversy = -1 * deltay <br />inver4 = INT(inversx / 4) <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = (yt + inversy) * 6 <br />FOR xt = 0 TO 3 <br />index1 = 1 + (yt6 + 24) + (xt + inver4) + 1 <br />index2 = 1 + yt4 + xt <br />poledzialania(index1) = pamiec(index2) <br />NEXT xt: NEXT yt <br /> <br />REM zmazanie serca z pola dzialania <br /> <br />IF liczsercaroom = 1 AND zrobione = 0 THEN <br />zrobione = 1 <br />PUT (x - 4, y - 4), poledzialania, PSET <br />PUT (xserca, yserca), tlo, PSET <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br />END IF <br /> <br />REM nowa mala pamiec <br /> <br />FOR yt = 0 TO 31: <br />yt4 = yt * 4 <br />yt6 = yt * 6 <br />FOR xt = 0 TO 3: <br />index1 = 1 + (yt6 + 24) + (xt + 1): <br />index2 = 1 + yt4 + xt: <br />pamiec(index2) = poledzialania(index1): NEXT xt: NEXT yt <br /> <br /> <br />REM ************* rysowanie nowej postaci WEDLUG FAZY RUCHU <br /> <br />REM aby nie rysowac dwoch postaci w przypadku skosu <br />IF skos = 1 THEN GOTO bezskosu: <br /> <br />REM ************************** ruch w dol lub gore <br /> <br />IF vert = 1 THEN wkleic = 7: GOTO wklej <br />bezskosu: <br />REM ************************** ruch w lewo <br /> <br /> IF obrot = -1 THEN <br /> IF dy = 0 THEN przebieranie = przebieranie + 1 <br /> IF przebieranie = 3 THEN przebieranie = 0 <br /> IF przebieranie = 0 THEN wkleic = 1: GOTO wklej <br /> IF przebieranie = 1 THEN wkleic = 2: GOTO wklej <br /> IF przebieranie = 2 THEN wkleic = 3: GOTO wklej <br /> END IF <br /> <br />REM ****************** ruch w prawo <br /> <br />IF obrot = 1 THEN <br /> IF dy = 0 THEN przebieranie = przebieranie + 1 <br /> <br /> IF przebieranie = 3 THEN przebieranie = 0 <br /> IF przebieranie = 0 THEN wkleic = 4: GOTO wklej <br /> IF przebieranie = 1 THEN wkleic = 5: GOTO wklej <br /> IF przebieranie = 2 THEN wkleic = 6: GOTO wklej <br />END IF <br /> <br />xs = x: ys = y <br /> <br />GOTO petla <br /> <br />wklej: <br /> <br />IF wkleic = 1 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 2 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 3 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakl3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 4 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp1(index2)): NEXT xt: NEXT yt <br />IF wkleic = 5 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp2(index2)): NEXT xt: NEXT yt <br />IF wkleic = 6 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR znakp3(index2)): NEXT xt: NEXT yt <br />IF wkleic = 7 THEN FOR yt = 0 TO 31: yt4 = yt * 4: yt6 = yt * 6: FOR xt = 0 TO 3: index1 = 1 + yt6 + xt + 1 + 24: index2 = 1 + yt4 + xt: poledzialania(index1) = (poledzialania(index1) OR vertd1(index2)): NEXT xt: NEXT yt <br /> <br />REM wklejenie wyniku operacji na tablicy: <br />PUT (x - 4, y - 4), poledzialania, PSET <br /> <br />xs = x: ys = y <br />GOTO petla <br /> <br />REM GOSUB-RETURN****************************** obsluga wziatku <br /> <br />wziatek: <br />IF serca(roomx, roomy) = 0 THEN GOTO niemawziatku <br />IF liczsercaroom = 1 THEN GOTO niemawziatku <br />serca(roomx, roomy) = 0 <br />liczserca = liczserca + 1 <br />PUT (xserca, yserca), tlo, PSET <br /> <br />liczsercaroom = 1 <br />dzwiekbrania = 1 <br /> <br />LOCATE 1, 1: COLOR 6: PRINT liczserca; <br />niemawziatku: <br />RETURN <br /> <br />SUB animacja <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br />REM ten SUB jest do skasowania <br /> <br />END SUB <br /> <br />SUB cegly <br /> <br />BLOAD "bitmap1.scr" <br /> <br />REM INPUT a$ <br />REM pobranie z ekranu tablic elementow <br /> <br /> GET (0, 0)-(319, 7), ceg40 <br /> GET (0, 8)-(319, 15), ceg17plus17 <br /> GET (0, 16)-(319, 23), ceg13plus13 <br /> GET (0, 24)-(319, 31), ceg4plus20plus4 <br />GET (0, 48)-(15, 63), szaretlo <br />GET (0, 48)-(31, 63), szaretlo2 <br />GET (0, 48)-(63, 63), szaretlo4 <br /> <br />REM GET (16, 64)-(31, 79), palma <br />GET (32, 64)-(47, 79), blokp <br />GET (48, 64)-(63, 79), bloks <br />GET (64, 64)-(79, 79), blokk <br />GET (0, 32)-(31, 47), blok2 <br />GET (0, 32)-(63, 47), blok4 <br /> <br />GET (0, 88)-(15, 119), znakl1 <br />GET (16, 88)-(31, 119), znakp1 <br />GET (32, 88)-(47, 119), znakl2 <br />GET (48, 88)-(63, 119), znakp2 <br />GET (64, 88)-(79, 119), znakl3 <br />GET (80, 88)-(95, 119), znakp3 <br />GET (96, 88)-(111, 119), vertd1 <br /> <br /> GET (0, 120)-(31, 139), window1 <br /> GET (32, 120)-(63, 139), window2 <br /> GET (64, 120)-(95, 139), window3 <br /> <br />END SUB <br /> <br />SUB dreptanie <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br /> <br /> <br />FOR i = 1 TO 10 <br />OUT 66, 32: OUT 66, 2 <br />OUT 66, 64: OUT 66, 1 <br />OUT 66, 200: OUT 66, 0 <br />OUT 66, 32: OUT 66, 1 <br />OUT 66, 62: OUT 66, 0 <br />OUT 66, 104: OUT 66, 2 <br />OUT 66, 48: OUT 66, 0 <br />OUT 66, 150: OUT 66, 2 <br />OUT 66, 42: OUT 66, 1 <br />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 05 05 06": REM tlo plyta <br />kolor$(2) = "02 02 03 02": REM tlo fuga <br />kolor$(3) = "03 07 06 06": REM tlo krawedz <br />kolor$(4) = "04 00 22 00": REM liscie <br />kolor$(5) = "05 3F 08 00": REM serce <br />kolor$(6) = "06 30 30 30": REM framuga okna <br />kolor$(7) = "07 28 0A 00": REM doniczka drzewa <br />kolor$(8) = "08 00 21 39": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 3F 3F 3F": REM niezdef <br />kolor$(11) = "0B 3F 3F 3F" <br />kolor$(12) = "0C 3F 3F 3F" <br />kolor$(13) = "0D 3F 3F 3F" <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />kolor$(16) = "10 18 02 02": REM sweter + zero <br />kolor$(17) = "11 18 02 02": REM <br />kolor$(18) = "12 18 02 02": REM <br />kolor$(19) = "13 18 02 02": REM <br />kolor$(20) = "14 22 12 00": REM sweter + liscie <br />kolor$(21) = "15 3F 00 00": REM <br />kolor$(22) = "16 2F 09 09": REM sweter + framuga okna <br />kolor$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />kolor$(24) = "18 25 16 24": REM sweter + niebo <br />kolor$(25) = "19 3F 3F 3F": REM niezdef <br />kolor$(26) = "1A 3F 3F 3F": REM <br />kolor$(27) = "1B 3F 3F 3F": REM <br />kolor$(28) = "1C 3F 3F 3F": REM <br />kolor$(29) = "1D 3F 3F 3F": REM <br />kolor$(30) = "1E 3F 3F 3F": REM <br />REM kolor 31 1F zastrzezony dla gracza <br />kolor$(32) = "20 0A 13 29": REM spodnie + zero <br />kolor$(33) = "21 0A 13 29": REM <br />kolor$(34) = "22 0A 13 29": REM <br />kolor$(35) = "23 0A 13 29": REM <br />kolor$(36) = "24 05 1D 24": REM spodnie+ liscie <br />kolor$(37) = "25 3F 3F 3F": REM <br />kolor$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />kolor$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />kolor$(40) = "28 00 1A 3F": REM spodnie + niebo <br />kolor$(41) = "29 3F 3F 3F": REM niezdef <br />kolor$(42) = "2A 3F 3F 3F": REM <br />kolor$(43) = "2B 3F 3F 3F": REM <br />kolor$(44) = "2C 3F 3F 3F": REM <br />kolor$(45) = "2D 3F 3F 3F": REM <br />kolor$(46) = "2E 3F 3F 3F": REM <br />REM rejestr 47 2F zastrzezony dla gracza <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br />REM rejestry nieprzezroczyste <br /> <br />kolor$(31) = "1F 2F 09 09": REM sweter <br />kolor$(47) = "2F 0D 1A 37": REM spodnie <br />kolor$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 30 20": REM skora1 <br />kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 32 22 02": REM nos <br />kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 22 02 02": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 24 24": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br /> <br /> <br /> <br />END SUB <br /> <br />SUB plansze <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** (roomy-1)*7+(roomx-1) <br /> <br />REM kodowanie _+++++++++++++++++++++++_okna++++_se_kw_se1_se2_nowy11+++++ <br />REM ************ plansze wiersza roomy=1 <br /> <br />plansza$(0) = "......................._______YQ_GN_________UI_#LLLQQQLLLU" <br />plansza$(1) = ".......................____MD__________________#...UUUPPP#" <br />plansza$(2) = "......................._HE__________ES______UI_#PPPQQQQQQU" <br />plansza$(3) = ".......................__________SK____BB1_fB1_##LLLQWWWQ#" <br />plansza$(4) = "......................._______ZK_______________#QPPPQQUQQU" <br />plansza$(5) = ".......................____MG__________LK5_____#LLLQWWQQQU" <br />plansza$(6) = "......................._LD__________FQ_________#PPPWQQQQUU" <br /> <br />REM ************ plansze wiersza roomy=2 <br /> <br />plansza$(7) = ".......................________________________UQQQWLLLQQ#" <br />plansza$(8) = "......................._______YQ_RN_________WH_#QQQQ...QQ#" <br />plansza$(9) = ".......................____ML__________KK1__WJ_UUQQQPPPUQU" <br />plansza$(10) = "......................._____________MS_________#WLLLWQQQQW" <br />plansza$(11) = "......................._aI__________________UM_UQPPPQQQQQ#" <br />plansza$(12) = ".......................__________RN_GS_________UQQQ000QQQ#" <br />plansza$(13) = ".......................____DJ____aM____________UUUUQQQUUUU" <br /> <br />REM ************* plansze wiersza roomy=3 <br /> <br />plansza$(14) = ".......................__________NG_YS_________#QQQWQWQQQW" <br />plansza$(15) = "......................._MD_YP____UP____________#QQQWLLLLQW" <br />plansza$(16) = "......................._WQ_____________DI3_`I3_U0000....0#" <br />plansza$(17) = "......................._MM__________YQ_________WWWWWPPPPUU" <br />plansza$(18) = "......................._______NP_SM_________WO_#QQQQMWMQQW" <br />plansza$(19) = ".......................________________EB1__UJ_#00QQLLL0QU" <br />plansza$(20) = ".......................____aM____UP____________UQQQWPPP0##" <br /> <br />REM ************ plansze wiersza roomy=4 <br /> <br />plansza$(21) = ".......................____ZM____SG____________WQQQWLLLLUU" <br />plansza$(22) = ".......................________________________WPPPWPPPP##" <br />plansza$(23) = "......................._______LQ_UQ_YS_RU3__#F_#0QLLLQQQQW" <br />plansza$(24) = ".......................____YI____SK_GS_GB5__WM_UUQPPPQQQQU": REM startowa MaX=dU <br />plansza$(25) = ".......................__________NG____________#QQQQWQQQQU" <br />plansza$(26) = "......................._______ZQ_SG____________UUQQQWLLLLU" <br />plansza$(27) = "......................._____________LS_KK1_____##00UUPPPPU" <br /> <br />REM ****************** plansze wiersza roomy=5 <br /> <br />plansza$(28) = "......................._DD____aQ_SS_YS_________ULLLWWWLLL#" <br />plansza$(29) = ".......................________________II4_YI4_#...UUU...#" <br />plansza$(30) = "......................._______aQ_______GL5_YL5_WPPPQUUPPPU" <br />plansza$(31) = ".......................____ML_______YS______UJ_UUQQQLLLQQ#" <br />plansza$(32) = ".......................____YL_______________WJ_UQQQQPPP###" <br />plansza$(33) = ".......................________________KR1_____UU00U000UUU" <br />plansza$(34) = ".......................____OG____SR_YS_________UU0QQQWQQQ#" <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />plansza$(35) = "......................._____________KM_________#00ULLLU0UU" <br />plansza$(36) = ".......................__________SR____MH2_YH2_###UPPPLLL#" <br />plansza$(37) = "......................._______GQ_______________U0QQQQW...#" <br />plansza$(38) = "......................._____________YS_________#LLLU00PPP#" <br />plansza$(39) = ".......................__________MM_________0Q_#PPPWLLLQQ#" <br />plansza$(40) = ".......................________________KO3_YO3_UUUU0PPPUUU" <br />plansza$(41) = "......................._DD_______ZF_MS_________#QQQWQQQ00U" <br /> <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />plansza$(42) = "......................._EJ__________YM_________UUU0LLL####" <br />plansza$(43) = ".......................____SJ____ML____________###U...####" <br />plansza$(44) = "......................._____________KM_________#LLLPPP####" <br />plansza$(45) = ".......................____PH____ZJ____________#PPP000####" <br />plansza$(46) = ".......................__________EE____________#LLL0######" <br />plansza$(47) = "......................._____________GS______0I_UPPPQQQLLL#" <br />plansza$(48) = "......................._LQ_____________________UUUUUUUPPP#" <br /> <br />REM lokalizacja serc <br />REM serca wiersza 1 <br /> <br />serca(1, 1) = 1 <br />serca(4, 1) = 1 <br /> <br />REM serca wiersza 2 <br />serca(2, 2) = 1 <br />serca(6, 2) = 1 <br />serca(7, 2) = 1 <br /> <br />REM serca wiersza 3 <br /> <br />serca(1, 3) = 1 <br />serca(2, 3) = 1 <br />serca(5, 3) = 1 <br />serca(7, 3) = 1 <br /> <br />REM serca wiersza 4 <br />serca(1, 4) = 1 <br />serca(3, 4) = 1 <br />serca(4, 4) = 1 <br />serca(5, 4) = 1 <br />serca(6, 4) = 1 <br /> <br />REM serca wiersza 5 <br /> <br />serca(1, 5) = 1 <br />serca(7, 5) = 1 <br /> <br />REM serca wiersza 6 <br />serca(2, 6) = 1 <br />serca(5, 6) = 1 <br />serca(7, 6) = 1 <br /> <br />REM serca wiersza 7 <br />serca(2, 7) = 1 <br />serca(4, 7) = 1 <br />serca(5, 7) = 1 <br /> <br />END SUB <br /> <br />SUB rysowanie <br /> <br /> <br />FOR yw = 0 TO 10 <br />el$ = MID$(kod$, yw + 48, 1) <br />y16 = yw * 16 <br /> <br />IF el$ = "U" THEN <br />PUT (128, y16), szaretlo4, PSET <br />PUT (0, y16), blok4, PSET <br />PUT (64, y16), blok2, PSET <br />PUT (96, y16), bloks, PSET <br />PUT (112, y16), blokk, PSET <br />PUT (192, y16), blokp, PSET <br />PUT (208, y16), blok4, PSET <br />PUT (272, y16), blok2, PSET <br />PUT (304, y16), bloks, PSET <br />END IF <br /> <br />IF el$ = "L" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />PUT (0, y16), blokk, PSET <br />END IF <br /> <br />IF el$ = "P" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />PUT (304, y16), blokp, PSET <br />END IF <br /> <br />IF el$ = "." THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />END IF <br /> <br />IF el$ = "#" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), blok4, PSET: NEXT xw <br />END IF <br /> <br />IF el$ = "0" THEN <br />PUT (80, y16), szaretlo4, PSET <br />PUT (144, y16), szaretlo4, PSET <br />PUT (208, y16), szaretlo2, PSET <br />PUT (0, y16), blok4, PSET <br />PUT (64, y16), blokk, PSET <br />PUT (240, y16), blokp, PSET <br />PUT (256, y16), blok4, PSET <br />END IF <br /> <br />IF el$ = "W" THEN <br />PUT (32, y16), szaretlo4, PSET <br />PUT (224, y16), szaretlo4, PSET <br />PUT (0, y16), bloks, PSET <br />PUT (16, y16), blokk, PSET <br />PUT (80, y16), blokp, PSET <br />PUT (96, y16), blok4, PSET <br />PUT (160, y16), blok4, PSET <br />PUT (224, y16), blokk, PSET <br />PUT (288, y16), blokp, PSET <br />PUT (304, y16), bloks, PSET <br />END IF <br /> <br />IF el$ = "Q" THEN <br />FOR xw = 0 TO 3: PUT (xw * 64 + 16, y16), szaretlo4, PSET: NEXT xw <br />PUT (272, y16), szaretlo2, PSET <br />PUT (0, y16), blokk, PSET <br />PUT (304, y16), blokp, PSET <br />END IF <br /> <br />NEXT yw <br /> <br />REM rysowanie podestow <br /> <br /> el$ = MID$(kod$, 45, 1) <br /> IF el$ = "" OR el$ = "_" THEN GOTO okna <br /> <br /> el2$ = MID$(kod$, 46, 1) <br /> yokna = (ASC(el2$) - 65) * 8 <br /> IF el$ = "#" THEN PUT (0, yokna), ceg40, PSET <br /> IF el$ = "W" THEN PUT (0, yokna), ceg4plus20plus4, PSET <br /> IF el$ = "U" THEN PUT (0, yokna), ceg17plus17, PSET <br /> IF el$ = "0" THEN PUT (0, yokna), ceg13plus13, PSET <br /> <br />okna: <br /> <br />REM rysowanie okien <br /> <br /> el$ = MID$(kod$, 25, 1) <br /> IF el$ = "" OR el$ = "_" THEN GOTO oknonz <br /> xokna = (ASC(el$) - 65) * 8 <br /> el$ = MID$(kod$, 26, 1) <br /> yokna = (ASC(el$) - 65) * 8 <br /> PUT (xokna, yokna), window2, PSET <br /> <br /> <br />oknonz: <br />REM okno niebiesko-zielone <br /> <br /> el$ = MID$(kod$, 28, 1) <br /> IF el$ = "" OR el$ = "_" THEN GOTO oknoziel <br /> xokna = (ASC(el$) - 65) * 8 <br /> el$ = MID$(kod$, 29, 1) <br /> yokna = (ASC(el$) - 65) * 8 <br /> PUT (xokna, yokna), window1, PSET <br /> <br />oknoziel: <br />REM okno zielone <br /> <br /> el$ = MID$(kod$, 31, 1) <br /> IF el$ = "" OR el$ = "_" THEN GOTO serce <br /> xokna = (ASC(el$) - 65) * 8 <br /> el$ = MID$(kod$, 32, 1) <br /> yokna = (ASC(el$) - 65) * 8 <br />PUT (xokna, yokna), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20 <br />yokna = -20 <br />IF serca(roomx, roomy) = 0 THEN GOTO donica <br />el$ = MID$(kod$, 34, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO donica <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 35, 1) <br />yokna = (ASC(el$) - 65) * 8 <br /> GET (xokna + 8, yokna + 8)-(xokna + 15 + 8, yokna + 7 + 8), tlo <br />COLOR 5: LOCATE yokna / 8, xokna / 8: PRINT CHR$(3); <br /> xserca = xokna - 8 <br /> yserca = yokna - 8 <br /> <br /> <br />donica: <br />REM el$ = MID$(kod$, 37, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO koniecrysowania <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 38, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), palma, PSET <br /> <br /> <br />koniecrysowania: <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br /> <br />END SUB <br /> <br />SUB zabranie <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 4000: NEXT i <br /> <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 4000: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 15:56, 05 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB zabranie () <br /> <br />REM Gra "Serca" UWAGA wersaj gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <br />DECLARE SUB dreptanie () <br />DECLARE SUB animacja () <br />DECLARE SUB rysowanie () <br />DECLARE SUB palety () <br />DECLARE SUB plansze () <br />DECLARE SUB cegly () <br /> <br />DIM SHARED kolor$(0 TO 255) <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED plansza$(0 TO 48) <br />DIM SHARED kod$ <br />DIM SHARED serca(1 TO 7, 1 TO 7) AS INTEGER <br />DIM SHARED roomx AS INTEGER, roomy AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br /> <br />REM pamiec tla pod wziatek <br /> <br />DIM SHARED tlo(0 TO 32) AS LONG <br /> <br />REM tlo <br /> <br />DIM SHARED szaretlo(0 TO 64) AS LONG <br />DIM SHARED szaretlo2(0 TO 128) AS LONG <br />DIM SHARED szaretlo4(0 TO 256) AS LONG <br />REM dane elementow planszy <br /> <br /> DIM SHARED ceg40(0 TO 640) AS LONG <br /> DIM SHARED ceg17plus17(0 TO 640) AS LONG <br /> DIM SHARED ceg13plus13(0 TO 640) AS LONG <br /> DIM SHARED ceg4plus20plus4(0 TO 640) AS LONG <br />REM DIM SHARED spc40(0 TO 640) AS LONG <br />REM DIM SHARED palma(0 TO 64) AS LONG <br /> <br />DIM SHARED blokp(0 TO 64) AS LONG <br />DIM SHARED bloks(0 TO 64) AS LONG <br />DIM SHARED blokk(0 TO 64) AS LONG <br />DIM SHARED blok2(0 TO 128) AS LONG <br />DIM SHARED blok4(0 TO 256) 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 />REM DIM SHARED window1(0 TO 160) AS LONG <br />REM DIM SHARED window2(0 TO 160) AS LONG <br />REM DIM SHARED window3(0 TO 160) AS LONG <br /> <br /> <br />REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />REM PRINT FRE(-2): END <br />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 100: y = 60: xs = 100: ys = 60: REM wspolrzedne poczatkowe gracza na ekranie <br />licz = -1: REM wartosc startowa zegara <br />roomx = 4: roomy = 4: REM plansza startowa <br /> <br />REM ***** SUB palety - ustawienie nowych wartosci barw <br />palety <br /> <br />REM ***** SUB cegly - zapelnienie pozostalych tablic <br />cegly <br /> <br />REM SUB plansze - wypelnienie tablicy wygladu plansz <br />plansze <br /> <br />REM SUB animacja - tablice animacji postaci <br />REM animacja <br /> <br /> <br />REM ************************* WYBOR POMIESZCZENIA <br /> <br />rysuj: <br /> <br />kod$ = plansza$(roomx - 1 + (roomy - 1) * 7) <br /> <br />REM ******************** rysowanie pomieszczenia <br />t0 = PEEK(1132): REM pomiar czasu rysowania <br /> <br /> <br />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />COLOR 28 <br />LOCATE 23, 1: FOR i = 1 TO 40: PRINT CHR$(223); : NEXT i <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <br /> <br />LOCATE 24, 2: COLOR 3: PRINT "T:"; t0; "/"; t1; <br />PRINT " ROOM:"; roomx; "/"; roomy; "--"; <br /> <br /> <br />REM **************** ustawienie gracza na planszy <br />GET (x, y)-(x + 15, y + 31), pamiec <br /> <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />liczsercaroom = 0: zrobione = 0 <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <br />REM LINE (0, 0)-(250, 40), 5, BF <br />REM kontrolne wyswietlenia <br /> REM PUT (200, 0), poledzialania, PSET <br /> REM PUT (30, 4), pamiec, PSET <br />dx = 0: dy = 0 <br />IF dzwiekbrania = 1 THEN dzwiekbrania = 0: zabranie <br /> <br />REM ******************* czas gry w sekundach <br /> <br />se$ = MID$(TIME$, 7, 2) <br />se = VAL(se$) <br />IF se <> ses THEN licz = licz + 1 <br />ses = se <br />LOCATE 25, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br /> FOR delay = 1 TO 1000: NEXT delay <br /> <br />REM ************************ sprawdzenie klawiszy <br /> <br />alt = 0: lshift = 0: pshift = 0: skos = 0 <br /> <br />k$ = INKEY$ <br />IF k$ = CHR$(27) THEN END <br /> <br />REM klawisz alt - wznoszenie sie <br />IF (PEEK(1047) AND 8) = 8 THEN alt = 1 <br />IF (PEEK(1047) AND 2) = 2 THEN lshift = 1 <br />IF (PEEK(1047) AND 1) = 1 THEN pshift = 1 <br /> <br />REM bezruch = grawitacja <br />IF lshift = 0 AND pshift = 0 AND alt = 0 THEN dy = 2: vert = 1: obrot = 0: przebiervert = 0: GOTO czy <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br /> <br />IF lshift = 1 THEN dx = -4: dy = 2: obrot = -1: vert = 0 <br />IF pshift = 1 THEN dx = 4: dy = 2: obrot = 1: vert = 0 <br />IF alt = 1 THEN dy = -4: vert = 1 <br />IF dx <> 0 AND dy <> 0 THEN skos = 1 <br />czy: <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br /> <br />IF x + dx > 300 THEN x = 5: xs = 5: roomx = roomx + 1: GOTO rysuj <br />IF x + dx < 3 THEN x = 300: xs = 300: roomx = roomx - 1: GOTO rysuj <br />IF y + dy > 149 THEN y = 4: ys = 4: roomy = roomy + 1: GOTO rysuj <br />IF y + dy < 3 THEN y = 146: ys = 146: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br />REM sprawdzenie przeszkody. Przeszkoda sa kolory > 200 <br /> <br />xmozliwy = 0: xniemozliwy = 0 <br />ymozliwy = 0: yniemozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa obok <br /> <br />IF dx > 0 THEN <br />FOR i = 0 TO 31: IF POINT(x + 19, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br /> <br />IF dx < 0 THEN <br />FOR i = 0 TO 31: IF POINT(x - 3, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF xniemozliwy = 0 THEN xmozliwy = 1 <br />IF xniemozliwy = 1 THEN xmozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa gora dol <br /> <br />IF dy > 0 THEN <br />FOR i = 0 TO 15: <br />IF POINT(x + i, y + 32) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y + 33) > 200 THEN yniemozliwy = 1: EXIT FOR <br /> <br />NEXT i <br />END IF <br /> <br />IF dy < 0 THEN <br />FOR i = 0 TO 15 <br />IF POINT(x + i, y - 4) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y - 5) > 200 THEN yniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF yniemozliwy = 0 THEN ymozliwy = 1 <br />IF yniemozliwy = 1 THEN ymozliwy = 0 <br /> <br />REM ruch gdy oba mozliwe x oraz y <br />IF ymozliwy = 1 AND xmozliwy = 1 THEN IF dx <> 0 OR dy <> 0 THEN GOTO ruch <br /> <br /> <br />REM szczegolne przypadki gdy tylko x albo y mozliwy <br />IF ymozliwy = 0 AND xmozliwy = 1 THEN dy = 0: GOTO czy <br />IF ymozliwy = 1 AND xmozliwy = 0 THEN dx = 0: GOTO czy <br /> <br />REM ruch niemozliwy powrot petli glownej bez zmian pozostaja x y <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** RUCH <br /> <br />ruch: <br /> <br />x = x + dx: y = y + dy <br />IF dy = 0 AND przebieranie = 0 AND alt = 0 THEN dreptanie: REM dzwiek chodzenia <br /> <br />REM ******************** czy jest wziatek <br />deltawx = ABS(x - xserca) <br />deltawy = ABS(y + 16 - yserca) <br />IF deltawx < 10 AND deltawy < 22 THEN GOSUB wziatek <br /> <br />REM ************************************** operacja odswiezania tla <br /> <br />REM 1 zapamietanie nowego pola dzialania (brudnego) <br />REM w oparciu o nowe x,y <br /> <br /> <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />REM kontrolne wyswietlenie brudnego tla <br />REM PUT (100, 0), poledzialania, PSET <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 />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 kontrolne wyswietlenie odnowionego tla <br />REM PUT (150, 0), poledzialania, PSET <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 />REM <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 <br />FOR yt = 0 TO 31 <br />yt4 = yt * 4 <br />yt6 = yt * 6 <br />FOR xt = 0 TO 3 <br />index1 = 1 + yt6 + xt + 1 + 24 <br />index2 = 1 + yt4 + xt <br />poledzialania(index1) = (poledzialania(index1) OR vertd1(index2)) <br />NEXT xt: NEXT yt <br />END IF <br /> <br />REM wklejenie wyniku operacji na tablicy: <br />PUT (x - 4, y - 4), poledzialania, PSET <br />wstrzymaj: <br />REM IF INKEY$ <> "q" THEN GOTO wstrzymaj <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 />REM LINE (xserca, yserca)-(xserca + 7, yserca + 7), 6, BF <br />REM GET (x, y)-(x + 15, y + 31), pamiec <br />REM GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />liczsercaroom = 1 <br />dzwiekbrania = 1 <br />REM zabranie <br /> <br />LOCATE 1, 1: COLOR 6: PRINT liczserca; <br />niemawziatku: <br />RETURN <br /> <br />SUB animacja <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br />REM ten SUB jest do skasowania <br /> <br />END SUB <br /> <br />SUB cegly <br /> <br />BLOAD "bitmap1.scr" <br /> <br />REM INPUT a$ <br />REM pobranie z ekranu tablic elementow <br /> <br /> GET (0, 0)-(319, 7), ceg40 <br /> GET (0, 8)-(319, 15), ceg17plus17 <br /> GET (0, 16)-(319, 23), ceg13plus13 <br /> GET (0, 24)-(319, 31), ceg4plus20plus4 <br />REM GET (0, 48)-(319, 55), spc40 <br />GET (0, 48)-(15, 63), szaretlo <br />GET (0, 48)-(31, 63), szaretlo2 <br />GET (0, 48)-(63, 63), szaretlo4 <br /> <br />REM GET (16, 64)-(31, 79), palma <br />GET (32, 64)-(47, 79), blokp <br />GET (48, 64)-(63, 79), bloks <br />GET (64, 64)-(79, 79), blokk <br />GET (0, 32)-(31, 47), blok2 <br />GET (0, 32)-(63, 47), blok4 <br /> <br />GET (0, 88)-(15, 119), znakl1 <br />GET (16, 88)-(31, 119), znakp1 <br />GET (32, 88)-(47, 119), znakl2 <br />GET (48, 88)-(63, 119), znakp2 <br />GET (64, 88)-(79, 119), znakl3 <br />GET (80, 88)-(95, 119), znakp3 <br />GET (96, 88)-(111, 119), vertd1 <br /> <br />REM GET (0, 120)-(31, 139), window1 <br />REM GET (32, 120)-(63, 139), window2 <br />REM GET (64, 120)-(95, 139), window3 <br /> <br />END SUB <br /> <br />SUB dreptanie <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br /> <br /> <br />FOR i = 1 TO 10 <br />OUT 66, 32: OUT 66, 2 <br />OUT 66, 64: OUT 66, 1 <br />OUT 66, 200: OUT 66, 0 <br />OUT 66, 32: OUT 66, 1 <br />OUT 66, 62: OUT 66, 0 <br />OUT 66, 104: OUT 66, 2 <br />OUT 66, 48: OUT 66, 0 <br />OUT 66, 150: OUT 66, 2 <br />OUT 66, 42: OUT 66, 1 <br />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 05 05 06": REM tlo plyta <br />kolor$(2) = "02 02 03 02": REM tlo fuga <br />kolor$(3) = "03 07 06 06": REM tlo krawedz <br />kolor$(4) = "04 00 22 00": REM liscie <br />kolor$(5) = "05 3F 08 00": REM serce <br />kolor$(6) = "06 30 30 30": REM framuga okna <br />kolor$(7) = "07 28 0A 00": REM doniczka drzewa <br />kolor$(8) = "08 00 21 39": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 3F 3F 3F": REM niezdef <br />kolor$(11) = "0B 3F 3F 3F" <br />kolor$(12) = "0C 3F 3F 3F" <br />kolor$(13) = "0D 3F 3F 3F" <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />kolor$(16) = "10 18 02 02": REM sweter + zero <br />kolor$(17) = "11 18 02 02": REM <br />kolor$(18) = "12 18 02 02": REM <br />kolor$(19) = "13 18 02 02": REM <br />kolor$(20) = "14 22 12 00": REM sweter + liscie <br />kolor$(21) = "15 3F 00 00": REM <br />kolor$(22) = "16 2F 09 09": REM sweter + framuga okna <br />kolor$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />kolor$(24) = "18 25 16 24": REM sweter + niebo <br />kolor$(25) = "19 3F 3F 3F": REM niezdef <br />kolor$(26) = "1A 3F 3F 3F": REM <br />kolor$(27) = "1B 3F 3F 3F": REM <br />kolor$(28) = "1C 3F 3F 3F": REM <br />kolor$(29) = "1D 3F 3F 3F": REM <br />kolor$(30) = "1E 3F 3F 3F": REM <br />REM kolor 31 1F zastrzezony dla gracza <br />kolor$(32) = "20 0A 13 29": REM spodnie + zero <br />kolor$(33) = "21 0A 13 29": REM <br />kolor$(34) = "22 0A 13 29": REM <br />kolor$(35) = "23 0A 13 29": REM <br />kolor$(36) = "24 05 1D 24": REM spodnie+ liscie <br />kolor$(37) = "25 3F 3F 3F": REM <br />kolor$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />kolor$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />kolor$(40) = "28 00 1A 3F": REM spodnie + niebo <br />kolor$(41) = "29 3F 3F 3F": REM niezdef <br />kolor$(42) = "2A 3F 3F 3F": REM <br />kolor$(43) = "2B 3F 3F 3F": REM <br />kolor$(44) = "2C 3F 3F 3F": REM <br />kolor$(45) = "2D 3F 3F 3F": REM <br />kolor$(46) = "2E 3F 3F 3F": REM <br />REM rejestr 47 2F zastrzezony dla gracza <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br />REM rejestry nieprzezroczyste <br /> <br />kolor$(31) = "1F 2F 09 09": REM sweter <br />kolor$(47) = "2F 0D 1A 37": REM spodnie <br />kolor$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 30 20": REM skora1 <br />kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 32 22 02": REM nos <br />kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 22 02 02": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 24 24": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br /> <br /> <br /> <br />END SUB <br /> <br />SUB plansze <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** (roomy-1)*7+(roomx-1) <br /> <br />REM kodowanie _+++++++++++++++++++++++_okna++++_se_kw_se1_se2_nowy11+++++ <br />REM ************ plansze wiersza roomy=1 <br /> <br />plansza$(0) = "......................._______YQ_GN_________UI_#LLLQQQLLLU" <br />plansza$(1) = ".......................____MD__________________#...UUUPPP#" <br />plansza$(2) = "......................._HE__________ES______UI_#PPPQQQQQQU" <br />plansza$(3) = ".......................__________SK____BB1_fB1_##LLLQWWWQ#" <br />plansza$(4) = "......................._______ZK_______________#QPPPQQUQQU" <br />plansza$(5) = ".......................____MG__________LK5_____#LLLQWWQQQU" <br />plansza$(6) = "......................._LD__________FQ_________#PPPWQQQQUU" <br /> <br />REM ************ plansze wiersza roomy=2 <br /> <br />plansza$(7) = ".......................________________________UQQQWLLLQQ#" <br />plansza$(8) = "......................._______YQ_RN_________WH_#QQQQ...QQ#" <br />plansza$(9) = ".......................____ML__________KK1__WJ_UUQQQPPPUQU" <br />plansza$(10) = "......................._____________MS_________#WLLLWQQQQW" <br />plansza$(11) = "......................._aI__________________UM_UQPPPQQQQQ#" <br />plansza$(12) = ".......................__________RN_GS_________UQQQ000QQQ#" <br />plansza$(13) = ".......................____DJ____aM____________UUUUQQQUUUU" <br /> <br />REM ************* plansze wiersza roomy=3 <br /> <br />plansza$(14) = ".......................__________NG_YS_________#QQQWQWQQQW" <br />plansza$(15) = "......................._MD_YP____UP____________#QQQWLLLLQW" <br />plansza$(16) = "......................._WQ_____________DI3_`I3_U0000....0#" <br />plansza$(17) = "......................._MM__________YQ_________WWWWWPPPPUU" <br />plansza$(18) = "......................._______NP_SM_________WO_#QQQQMWMQQW" <br />plansza$(19) = ".......................________________EB1__UJ_#00QQLLL0QU" <br />plansza$(20) = ".......................____aM____UP____________UQQQWPPP0##" <br /> <br />REM ************ plansze wiersza roomy=4 <br /> <br />plansza$(21) = ".......................____ZM____SG____________WQQQWLLLLUU" <br />plansza$(22) = ".......................________________________WPPPWPPPP##" <br />plansza$(23) = "......................._______LQ_UQ_YS_RU3__#F_#0QLLLQQQQW" <br />plansza$(24) = ".......................____YI____SK_GS_GB5__WM_UUQPPPQQQQU": REM startowa MaX=dU <br />plansza$(25) = ".......................__________NG____________#QQQQWQQQQU" <br />plansza$(26) = "......................._______ZQ_SG____________UUQQQWLLLLU" <br />plansza$(27) = "......................._____________LS_KK1_____##00UUPPPPU" <br /> <br />REM ****************** plansze wiersza roomy=5 <br /> <br />plansza$(28) = "......................._DD____aQ_SS_YS_________ULLLWWWLLL#" <br />plansza$(29) = ".......................________________II4_YI4_#...UUU...#" <br />plansza$(30) = "......................._______aQ_______GL5_YL5_WPPPQUUPPPU" <br />plansza$(31) = ".......................____ML_______YS______UJ_UUQQQLLLQQ#" <br />plansza$(32) = ".......................____YL_______________WJ_UQQQQPPP###" <br />plansza$(33) = ".......................________________KR1_____UU00U000UUU" <br />plansza$(34) = ".......................____OG____SR_YS_________UU0QQQWQQQ#" <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />plansza$(35) = "......................._____________KM_________#00ULLLU0UU" <br />plansza$(36) = ".......................__________SR____MH2_YH2_###UPPPLLL#" <br />plansza$(37) = "......................._______GQ_______________U0QQQQW...#" <br />plansza$(38) = "......................._____________YS_________#LLLU00PPP#" <br />plansza$(39) = ".......................__________MM_________0Q_#PPPWLLLQQ#" <br />plansza$(40) = ".......................________________KO3_YO3_UUUU0PPPUUU" <br />plansza$(41) = "......................._DD_______ZF_MS_________#QQQWQQQ00U" <br /> <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />plansza$(42) = "......................._EJ__________YM_________UUU0LLL####" <br />plansza$(43) = ".......................____SJ____ML____________###U...####" <br />plansza$(44) = "......................._____________KM_________#LLLPPP####" <br />plansza$(45) = ".......................____PH____ZJ____________#PPP000####" <br />plansza$(46) = ".......................__________EE____________#LLL0######" <br />plansza$(47) = "......................._____________GS______0I_UPPPQQQLLL#" <br />plansza$(48) = "......................._LQ_____________________UUUUUUUPPP#" <br /> <br />REM lokalizacja serc <br />REM serca wiersza 1 <br /> <br />serca(1, 1) = 1 <br />serca(4, 1) = 1 <br /> <br />REM serca wiersza 2 <br />serca(2, 2) = 1 <br />serca(6, 2) = 1 <br />serca(7, 2) = 1 <br /> <br />REM serca wiersza 3 <br /> <br />serca(1, 3) = 1 <br />serca(2, 3) = 1 <br />serca(5, 3) = 1 <br />serca(7, 3) = 1 <br /> <br />REM serca wiersza 4 <br />serca(1, 4) = 1 <br />serca(3, 4) = 1 <br />serca(4, 4) = 1 <br />serca(5, 4) = 1 <br />serca(6, 4) = 1 <br /> <br />REM serca wiersza 5 <br /> <br />serca(1, 5) = 1 <br />serca(7, 5) = 1 <br /> <br />REM serca wiersza 6 <br />serca(2, 6) = 1 <br />serca(5, 6) = 1 <br />serca(7, 6) = 1 <br /> <br />REM serca wiersza 7 <br />serca(2, 7) = 1 <br />serca(4, 7) = 1 <br />serca(5, 7) = 1 <br /> <br />END SUB <br /> <br />SUB rysowanie <br /> <br /> <br />FOR yw = 0 TO 10 <br />el$ = MID$(kod$, yw + 48, 1) <br />y16 = yw * 16 <br /> <br />IF el$ = "U" THEN <br />PUT (128, y16), szaretlo4, PSET <br />PUT (0, y16), blok4, PSET <br />PUT (64, y16), blok2, PSET <br />PUT (96, y16), bloks, PSET <br />PUT (112, y16), blokk, PSET <br />PUT (192, y16), blokp, PSET <br />PUT (208, y16), blok4, PSET <br />PUT (272, y16), blok2, PSET <br />PUT (304, y16), bloks, PSET <br />END IF <br /> <br />IF el$ = "L" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />PUT (0, y16), blokk, PSET <br />END IF <br /> <br />IF el$ = "P" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />PUT (304, y16), blokp, PSET <br />END IF <br /> <br />IF el$ = "." THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />END IF <br /> <br />IF el$ = "#" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), blok4, PSET: NEXT xw <br />END IF <br /> <br />IF el$ = "0" THEN <br />PUT (80, y16), szaretlo4, PSET <br />PUT (144, y16), szaretlo4, PSET <br />PUT (208, y16), szaretlo2, PSET <br />PUT (0, y16), blok4, PSET <br />PUT (64, y16), blokk, PSET <br />PUT (240, y16), blokp, PSET <br />PUT (256, y16), blok4, PSET <br />END IF <br /> <br />IF el$ = "W" THEN <br />PUT (32, y16), szaretlo4, PSET <br />PUT (224, y16), szaretlo4, PSET <br />PUT (0, y16), bloks, PSET <br />PUT (16, y16), blokk, PSET <br />PUT (80, y16), blokp, PSET <br />PUT (96, y16), blok4, PSET <br />PUT (160, y16), blok4, PSET <br />PUT (224, y16), blokk, PSET <br />PUT (288, y16), blokp, PSET <br />PUT (304, y16), bloks, PSET <br />END IF <br /> <br />IF el$ = "Q" THEN <br />FOR xw = 0 TO 3: PUT (xw * 64 + 16, y16), szaretlo4, PSET: NEXT xw <br />PUT (272, y16), szaretlo2, PSET <br />PUT (0, y16), blokk, PSET <br />PUT (304, y16), blokp, PSET <br />END IF <br /> <br />NEXT yw <br /> <br />REM rysowanie podestow <br /> <br /> el$ = MID$(kod$, 45, 1) <br /> IF el$ = "" OR el$ = "_" THEN GOTO okna <br /> <br /> el2$ = MID$(kod$, 46, 1) <br /> yokna = (ASC(el2$) - 65) * 8 <br /> IF el$ = "#" THEN PUT (0, yokna), ceg40, PSET <br /> IF el$ = "W" THEN PUT (0, yokna), ceg4plus20plus4, PSET <br /> IF el$ = "U" THEN PUT (0, yokna), ceg17plus17, PSET <br /> IF el$ = "0" THEN PUT (0, yokna), ceg13plus13, PSET <br /> <br />okna: <br /> <br />REM rysowanie okien <br /> <br />REM el$ = MID$(kod$, 25, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO oknonz <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 26, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), window2, PSET <br /> <br /> <br />oknonz: <br />REM okno niebiesko-zielone <br /> <br />REM el$ = MID$(kod$, 28, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO oknoziel <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 29, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), window1, PSET <br /> <br />oknoziel: <br />REM okno zielone <br />REM <br />REM el$ = MID$(kod$, 31, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO serce <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 32, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20 <br />yokna = -20 <br />IF serca(roomx, roomy) = 0 THEN GOTO donica <br />el$ = MID$(kod$, 34, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO donica <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 35, 1) <br />yokna = (ASC(el$) - 65) * 8 <br /> GET (xokna + 8, yokna + 8)-(xokna + 15 + 8, yokna + 7 + 8), tlo <br />COLOR 5: LOCATE yokna / 8, xokna / 8: PRINT CHR$(3); <br /> xserca = xokna - 8 <br /> yserca = yokna - 8 <br /> <br /> <br />donica: <br />REM el$ = MID$(kod$, 37, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO koniecrysowania <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 38, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), palma, PSET <br /> <br /> <br />koniecrysowania: <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br /> <br />END SUB <br /> <br />SUB zabranie <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 4000: NEXT i <br /> <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 4000: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 15:30, 05 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB zabranie () <br /> <br />REM Gra "Serca" UWAGA wersaj gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <br />DECLARE SUB dreptanie () <br />DECLARE SUB animacja () <br />DECLARE SUB rysowanie () <br />DECLARE SUB palety () <br />DECLARE SUB plansze () <br />DECLARE SUB cegly () <br /> <br />DIM SHARED kolor$(0 TO 255) <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED plansza$(0 TO 48) <br />DIM SHARED kod$ <br />DIM SHARED serca(1 TO 7, 1 TO 7) AS INTEGER <br />DIM SHARED roomx AS INTEGER, roomy AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br /> <br />REM pamiec tla pod wziatek <br /> <br />DIM SHARED tlo(0 TO 32) AS LONG <br /> <br />REM tlo <br /> <br />DIM SHARED szaretlo(0 TO 64) AS LONG <br />DIM SHARED szaretlo2(0 TO 128) AS LONG <br />DIM SHARED szaretlo4(0 TO 256) AS LONG <br />REM dane elementow planszy <br /> <br />REM DIM SHARED ceg40(0 TO 640) AS LONG <br />REM DIM SHARED ceg17plus17(0 TO 640) AS LONG <br />REM DIM SHARED ceg13plus13(0 TO 640) AS LONG <br />REM DIM SHARED ceg4plus20plus4(0 TO 640) AS LONG <br />REM DIM SHARED spc40(0 TO 640) AS LONG <br />REM DIM SHARED palma(0 TO 64) AS LONG <br /> <br />DIM SHARED blokp(0 TO 64) AS LONG <br />DIM SHARED bloks(0 TO 64) AS LONG <br />DIM SHARED blokk(0 TO 64) AS LONG <br />DIM SHARED blok2(0 TO 128) AS LONG <br />DIM SHARED blok4(0 TO 256) 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 />REM DIM SHARED window1(0 TO 160) AS LONG <br />REM DIM SHARED window2(0 TO 160) AS LONG <br />REM DIM SHARED window3(0 TO 160) AS LONG <br /> <br /> <br />REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />REM PRINT FRE(-2): END <br />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 100: y = 60: xs = 100: ys = 60: REM wspolrzedne poczatkowe gracza na ekranie <br />licz = -1: REM wartosc startowa zegara <br />roomx = 4: roomy = 4: REM plansza startowa <br /> <br />REM ***** SUB palety - ustawienie nowych wartosci barw <br />palety <br /> <br />REM ***** SUB cegly - zapelnienie pozostalych tablic <br />cegly <br /> <br />REM SUB plansze - wypelnienie tablicy wygladu plansz <br />plansze <br /> <br />REM SUB animacja - tablice animacji postaci <br />REM animacja <br /> <br /> <br />REM ************************* WYBOR POMIESZCZENIA <br /> <br />rysuj: <br /> <br />kod$ = plansza$(roomx - 1 + (roomy - 1) * 7) <br /> <br />REM ******************** rysowanie pomieszczenia <br />t0 = PEEK(1132): REM pomiar czasu rysowania <br /> <br /> <br />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />COLOR 28 <br />LOCATE 23, 1: FOR i = 1 TO 40: PRINT CHR$(223); : NEXT i <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <br /> <br />LOCATE 24, 2: COLOR 3: PRINT "T:"; t0; "/"; t1; <br />PRINT " ROOM:"; roomx; "/"; roomy; "--"; <br /> <br /> <br />REM **************** ustawienie gracza na planszy <br />GET (x, y)-(x + 15, y + 31), pamiec <br /> <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />liczsercaroom = 0: zrobione = 0 <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <br />REM LINE (0, 0)-(250, 40), 5, BF <br />REM kontrolne wyswietlenia <br /> REM PUT (200, 0), poledzialania, PSET <br /> REM PUT (30, 4), pamiec, PSET <br />dx = 0: dy = 0 <br />IF dzwiekbrania = 1 THEN dzwiekbrania = 0: zabranie <br /> <br />REM ******************* czas gry w sekundach <br /> <br />se$ = MID$(TIME$, 7, 2) <br />se = VAL(se$) <br />IF se <> ses THEN licz = licz + 1 <br />ses = se <br />LOCATE 25, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br /> FOR delay = 1 TO 1000: NEXT delay <br /> <br />REM ************************ sprawdzenie klawiszy <br /> <br />alt = 0: lshift = 0: pshift = 0: skos = 0 <br /> <br />k$ = INKEY$ <br />IF k$ = CHR$(27) THEN END <br /> <br />REM klawisz alt - wznoszenie sie <br />IF (PEEK(1047) AND 8) = 8 THEN alt = 1 <br />IF (PEEK(1047) AND 2) = 2 THEN lshift = 1 <br />IF (PEEK(1047) AND 1) = 1 THEN pshift = 1 <br /> <br />REM bezruch = grawitacja <br />IF lshift = 0 AND pshift = 0 AND alt = 0 THEN dy = 2: vert = 1: obrot = 0: przebiervert = 0: GOTO czy <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br /> <br />IF lshift = 1 THEN dx = -4: dy = 2: obrot = -1: vert = 0 <br />IF pshift = 1 THEN dx = 4: dy = 2: obrot = 1: vert = 0 <br />IF alt = 1 THEN dy = -4: vert = 1 <br />IF dx <> 0 AND dy <> 0 THEN skos = 1 <br />czy: <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br /> <br />IF x + dx > 300 THEN x = 5: xs = 5: roomx = roomx + 1: GOTO rysuj <br />IF x + dx < 3 THEN x = 300: xs = 300: roomx = roomx - 1: GOTO rysuj <br />IF y + dy > 149 THEN y = 4: ys = 4: roomy = roomy + 1: GOTO rysuj <br />IF y + dy < 3 THEN y = 146: ys = 146: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br />REM sprawdzenie przeszkody. Przeszkoda sa kolory > 200 <br /> <br />xmozliwy = 0: xniemozliwy = 0 <br />ymozliwy = 0: yniemozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa obok <br /> <br />IF dx > 0 THEN <br />FOR i = 0 TO 31: IF POINT(x + 19, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br /> <br />IF dx < 0 THEN <br />FOR i = 0 TO 31: IF POINT(x - 3, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF xniemozliwy = 0 THEN xmozliwy = 1 <br />IF xniemozliwy = 1 THEN xmozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa gora dol <br /> <br />IF dy > 0 THEN <br />FOR i = 0 TO 15: <br />IF POINT(x + i, y + 32) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y + 33) > 200 THEN yniemozliwy = 1: EXIT FOR <br /> <br />NEXT i <br />END IF <br /> <br />IF dy < 0 THEN <br />FOR i = 0 TO 15 <br />IF POINT(x + i, y - 4) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y - 5) > 200 THEN yniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF yniemozliwy = 0 THEN ymozliwy = 1 <br />IF yniemozliwy = 1 THEN ymozliwy = 0 <br /> <br />REM ruch gdy oba mozliwe x oraz y <br />IF ymozliwy = 1 AND xmozliwy = 1 THEN IF dx <> 0 OR dy <> 0 THEN GOTO ruch <br /> <br /> <br />REM szczegolne przypadki gdy tylko x albo y mozliwy <br />IF ymozliwy = 0 AND xmozliwy = 1 THEN dy = 0: GOTO czy <br />IF ymozliwy = 1 AND xmozliwy = 0 THEN dx = 0: GOTO czy <br /> <br />REM ruch niemozliwy powrot petli glownej bez zmian pozostaja x y <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** RUCH <br /> <br />ruch: <br /> <br />x = x + dx: y = y + dy <br />IF dy = 0 AND przebieranie = 0 AND alt = 0 THEN dreptanie: REM dzwiek chodzenia <br /> <br />REM ******************** czy jest wziatek <br />deltawx = ABS(x - xserca) <br />deltawy = ABS(y + 16 - yserca) <br />IF deltawx < 10 AND deltawy < 22 THEN GOSUB wziatek <br /> <br />REM ************************************** operacja odswiezania tla <br /> <br />REM 1 zapamietanie nowego pola dzialania (brudnego) <br />REM w oparciu o nowe x,y <br />IF liczsercaroom = 1 AND zrobione = 0 THEN PUT (xserca, yserca), tlo, PSET: zrobione = 1 <br /> <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />REM kontrolne wyswietlenie brudnego tla <br />REM PUT (100, 0), poledzialania, PSET <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 kontrolne wyswietlenie odnowionego tla <br />REM PUT (150, 0), poledzialania, PSET <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 />REM <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 <br />FOR yt = 0 TO 31 <br />yt4 = yt * 4 <br />yt6 = yt * 6 <br />FOR xt = 0 TO 3 <br />index1 = 1 + yt6 + xt + 1 + 24 <br />index2 = 1 + yt4 + xt <br />poledzialania(index1) = (poledzialania(index1) OR vertd1(index2)) <br />NEXT xt: NEXT yt <br />END IF <br /> <br />REM wklejenie wyniku operacji na tablicy: <br />PUT (x - 4, y - 4), poledzialania, PSET <br />wstrzymaj: <br />REM IF INKEY$ <> "q" THEN GOTO wstrzymaj <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 />liczsercaroom = 1 <br />dzwiekbrania = 1 <br />REM zabranie <br /> <br />LOCATE 1, 1: COLOR 6: PRINT liczserca; <br />niemawziatku: <br />RETURN <br /> <br />SUB animacja <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br />REM ten SUB jest do skasowania <br /> <br />END SUB <br /> <br />SUB cegly <br /> <br />BLOAD "bitmap1.scr" <br /> <br />REM INPUT a$ <br />REM pobranie z ekranu tablic elementow <br /> <br />REM GET (0, 0)-(319, 7), ceg40 <br />REM GET (0, 8)-(319, 15), ceg17plus17 <br />REM GET (0, 16)-(319, 23), ceg13plus13 <br />REM GET (0, 24)-(319, 31), ceg4plus20plus4 <br />REM GET (0, 48)-(319, 55), spc40 <br />GET (0, 48)-(15, 63), szaretlo <br />GET (0, 48)-(31, 63), szaretlo2 <br />GET (0, 48)-(63, 63), szaretlo4 <br /> <br />REM GET (16, 64)-(31, 79), palma <br />GET (32, 64)-(47, 79), blokp <br />GET (48, 64)-(63, 79), bloks <br />GET (64, 64)-(79, 79), blokk <br />GET (0, 32)-(31, 47), blok2 <br />GET (0, 32)-(63, 47), blok4 <br /> <br />GET (0, 88)-(15, 119), znakl1 <br />GET (16, 88)-(31, 119), znakp1 <br />GET (32, 88)-(47, 119), znakl2 <br />GET (48, 88)-(63, 119), znakp2 <br />GET (64, 88)-(79, 119), znakl3 <br />GET (80, 88)-(95, 119), znakp3 <br />GET (96, 88)-(111, 119), vertd1 <br /> <br />REM GET (0, 120)-(31, 139), window1 <br />REM GET (32, 120)-(63, 139), window2 <br />REM GET (64, 120)-(95, 139), window3 <br /> <br />END SUB <br /> <br />SUB dreptanie <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br /> <br /> <br />FOR i = 1 TO 10 <br />OUT 66, 32: OUT 66, 2 <br />OUT 66, 64: OUT 66, 1 <br />OUT 66, 200: OUT 66, 0 <br />OUT 66, 32: OUT 66, 1 <br />OUT 66, 62: OUT 66, 0 <br />OUT 66, 104: OUT 66, 2 <br />OUT 66, 48: OUT 66, 0 <br />OUT 66, 150: OUT 66, 2 <br />OUT 66, 42: OUT 66, 1 <br />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 05 05 06": REM tlo plyta <br />kolor$(2) = "02 02 03 02": REM tlo fuga <br />kolor$(3) = "03 07 06 06": REM tlo krawedz <br />kolor$(4) = "04 00 22 00": REM liscie <br />kolor$(5) = "05 3F 08 00": REM serce <br />kolor$(6) = "06 30 30 30": REM framuga okna <br />kolor$(7) = "07 28 0A 00": REM doniczka drzewa <br />kolor$(8) = "08 00 21 39": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 3F 3F 3F": REM niezdef <br />kolor$(11) = "0B 3F 3F 3F" <br />kolor$(12) = "0C 3F 3F 3F" <br />kolor$(13) = "0D 3F 3F 3F" <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />kolor$(16) = "10 18 02 02": REM sweter + zero <br />kolor$(17) = "11 18 02 02": REM <br />kolor$(18) = "12 18 02 02": REM <br />kolor$(19) = "13 18 02 02": REM <br />kolor$(20) = "14 22 12 00": REM sweter + liscie <br />kolor$(21) = "15 3F 00 00": REM <br />kolor$(22) = "16 2F 09 09": REM sweter + framuga okna <br />kolor$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />kolor$(24) = "18 25 16 24": REM sweter + niebo <br />kolor$(25) = "19 3F 3F 3F": REM niezdef <br />kolor$(26) = "1A 3F 3F 3F": REM <br />kolor$(27) = "1B 3F 3F 3F": REM <br />kolor$(28) = "1C 3F 3F 3F": REM <br />kolor$(29) = "1D 3F 3F 3F": REM <br />kolor$(30) = "1E 3F 3F 3F": REM <br />REM kolor 31 1F zastrzezony dla gracza <br />kolor$(32) = "20 0A 13 29": REM spodnie + zero <br />kolor$(33) = "21 0A 13 29": REM <br />kolor$(34) = "22 0A 13 29": REM <br />kolor$(35) = "23 0A 13 29": REM <br />kolor$(36) = "24 05 1D 24": REM spodnie+ liscie <br />kolor$(37) = "25 3F 3F 3F": REM <br />kolor$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />kolor$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />kolor$(40) = "28 00 1A 3F": REM spodnie + niebo <br />kolor$(41) = "29 3F 3F 3F": REM niezdef <br />kolor$(42) = "2A 3F 3F 3F": REM <br />kolor$(43) = "2B 3F 3F 3F": REM <br />kolor$(44) = "2C 3F 3F 3F": REM <br />kolor$(45) = "2D 3F 3F 3F": REM <br />kolor$(46) = "2E 3F 3F 3F": REM <br />REM rejestr 47 2F zastrzezony dla gracza <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br />REM rejestry nieprzezroczyste <br /> <br />kolor$(31) = "1F 2F 09 09": REM sweter <br />kolor$(47) = "2F 0D 1A 37": REM spodnie <br />kolor$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 30 20": REM skora1 <br />kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 32 22 02": REM nos <br />kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 22 02 02": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 24 24": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br /> <br /> <br /> <br />END SUB <br /> <br />SUB plansze <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** (roomy-1)*7+(roomx-1) <br /> <br />REM kodowanie _+++++++++++++++++++++++_okna++++_se_kw_se1_se2_nowy11+++++ <br />REM ************ plansze wiersza roomy=1 <br /> <br />plansza$(0) = "......................._______YQ_GN_________UI_#LLLQQQLLLU" <br />plansza$(1) = ".......................____MD__________________#...UUUPPP#" <br />plansza$(2) = "......................._HE__________ES______UI_#PPPQQQQQQU" <br />plansza$(3) = ".......................__________SK____BB1_fB1_##LLLQWWWQ#" <br />plansza$(4) = "......................._______ZK_______________#QPPPQQUQQU" <br />plansza$(5) = ".......................____MG__________LK5_____#LLLQWWQQQU" <br />plansza$(6) = "......................._LD__________FQ_________#PPPWQQQQUU" <br /> <br />REM ************ plansze wiersza roomy=2 <br /> <br />plansza$(7) = ".......................________________________UQQQWLLLQQ#" <br />plansza$(8) = "......................._______YQ_RN_________WH_#QQQQ...QQ#" <br />plansza$(9) = ".......................____ML__________KK1__WJ_UUQQQPPPUQU" <br />plansza$(10) = "......................._____________MS_________#WLLLWQQQQW" <br />plansza$(11) = "......................._aI__________________UM_UQPPPQQQQQ#" <br />plansza$(12) = ".......................__________RN_GS_________UQQQ000QQQ#" <br />plansza$(13) = ".......................____DJ____aM____________UUUUQQQUUUU" <br /> <br />REM ************* plansze wiersza roomy=3 <br /> <br />plansza$(14) = ".......................__________NG_YS_________#QQQWQWQQQW" <br />plansza$(15) = "......................._MD_YP____UP____________#QQQWLLLLQW" <br />plansza$(16) = "......................._WQ_____________DI3_`I3_U0000....0#" <br />plansza$(17) = "......................._MM__________YQ_________WWWWWPPPPUU" <br />plansza$(18) = "......................._______NP_SM_________WO_#QQQQMWMQQW" <br />plansza$(19) = ".......................________________EB1__UJ_#00QQLLL0QU" <br />plansza$(20) = ".......................____aM____UP____________UQQQWPPP0##" <br /> <br />REM ************ plansze wiersza roomy=4 <br /> <br />plansza$(21) = ".......................____ZM____SG____________WQQQWLLLLUU" <br />plansza$(22) = ".......................________________________WPPPWPPPP##" <br />plansza$(23) = "......................._______LQ_UQ_YS_RU3__#F_#0QLLLQQQQW" <br />plansza$(24) = ".......................____YI____SK_GS_GB5__WM_UUQPPPQQQQU": REM startowa MaX=dU <br />plansza$(25) = ".......................__________NG____________#QQQQWQQQQU" <br />plansza$(26) = "......................._______ZQ_SG____________UUQQQWLLLLU" <br />plansza$(27) = "......................._____________LS_KK1_____##00UUPPPPU" <br /> <br />REM ****************** plansze wiersza roomy=5 <br /> <br />plansza$(28) = "......................._DD____aQ_SS_YS_________ULLLWWWLLL#" <br />plansza$(29) = ".......................________________II4_YI4_#...UUU...#" <br />plansza$(30) = "......................._______aQ_______GL5_YL5_WPPPQUUPPPU" <br />plansza$(31) = ".......................____ML_______YS______UJ_UUQQQLLLQQ#" <br />plansza$(32) = ".......................____YL_______________WJ_UQQQQPPP###" <br />plansza$(33) = ".......................________________KR1_____UU00U000UUU" <br />plansza$(34) = ".......................____OG____SR_YS_________UU0QQQWQQQ#" <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />plansza$(35) = "......................._____________KM_________#00ULLLU0UU" <br />plansza$(36) = ".......................__________SR____MH2_YH2_###UPPPLLL#" <br />plansza$(37) = "......................._______GQ_______________U0QQQQW...#" <br />plansza$(38) = "......................._____________YS_________#LLLU00PPP#" <br />plansza$(39) = ".......................__________MM_________0Q_#PPPWLLLQQ#" <br />plansza$(40) = ".......................________________KO3_YO3_UUUU0PPPUUU" <br />plansza$(41) = "......................._DD_______ZF_MS_________#QQQWQQQ00U" <br /> <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />plansza$(42) = "......................._EJ__________YM_________UUU0LLL####" <br />plansza$(43) = ".......................____SJ____ML____________###U...####" <br />plansza$(44) = "......................._____________KM_________#LLLPPP####" <br />plansza$(45) = ".......................____PH____ZJ____________#PPP000####" <br />plansza$(46) = ".......................__________EE____________#LLL0######" <br />plansza$(47) = "......................._____________GS______0I_UPPPQQQLLL#" <br />plansza$(48) = "......................._LQ_____________________UUUUUUUPPP#" <br /> <br />REM lokalizacja serc <br />REM serca wiersza 1 <br /> <br />serca(1, 1) = 1 <br />serca(4, 1) = 1 <br /> <br />REM serca wiersza 2 <br />serca(2, 2) = 1 <br />serca(6, 2) = 1 <br />serca(7, 2) = 1 <br /> <br />REM serca wiersza 3 <br /> <br />serca(1, 3) = 1 <br />serca(2, 3) = 1 <br />serca(5, 3) = 1 <br />serca(7, 3) = 1 <br /> <br />REM serca wiersza 4 <br />serca(1, 4) = 1 <br />serca(3, 4) = 1 <br />serca(4, 4) = 1 <br />serca(5, 4) = 1 <br />serca(6, 4) = 1 <br /> <br />REM serca wiersza 5 <br /> <br />serca(1, 5) = 1 <br />serca(7, 5) = 1 <br /> <br />REM serca wiersza 6 <br />serca(2, 6) = 1 <br />serca(5, 6) = 1 <br />serca(7, 6) = 1 <br /> <br />REM serca wiersza 7 <br />serca(2, 7) = 1 <br />serca(4, 7) = 1 <br />serca(5, 7) = 1 <br /> <br />END SUB <br /> <br />SUB rysowanie <br /> <br /> <br />FOR yw = 0 TO 10 <br />el$ = MID$(kod$, yw + 48, 1) <br />y16 = yw * 16 <br /> <br />IF el$ = "U" THEN <br />PUT (128, y16), szaretlo4, PSET <br />PUT (0, y16), blok4, PSET <br />PUT (64, y16), blok2, PSET <br />PUT (96, y16), bloks, PSET <br />PUT (112, y16), blokk, PSET <br />PUT (192, y16), blokp, PSET <br />PUT (208, y16), blok4, PSET <br />PUT (272, y16), blok2, PSET <br />PUT (304, y16), bloks, PSET <br />END IF <br /> <br />IF el$ = "L" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />PUT (0, y16), blokk, PSET <br />END IF <br /> <br />IF el$ = "P" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />PUT (304, y16), blokp, PSET <br />END IF <br /> <br />IF el$ = "." THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />END IF <br /> <br />IF el$ = "#" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), blok4, PSET: NEXT xw <br />END IF <br /> <br />IF el$ = "0" THEN <br />PUT (80, y16), szaretlo4, PSET <br />PUT (144, y16), szaretlo4, PSET <br />PUT (208, y16), szaretlo2, PSET <br />PUT (0, y16), blok4, PSET <br />PUT (64, y16), blokk, PSET <br />PUT (240, y16), blokp, PSET <br />PUT (256, y16), blok4, PSET <br />END IF <br /> <br />IF el$ = "W" THEN <br />PUT (32, y16), szaretlo4, PSET <br />PUT (224, y16), szaretlo4, PSET <br />PUT (0, y16), bloks, PSET <br />PUT (16, y16), blokk, PSET <br />PUT (80, y16), blokp, PSET <br />PUT (96, y16), blok4, PSET <br />PUT (160, y16), blok4, PSET <br />PUT (224, y16), blokk, PSET <br />PUT (288, y16), blokp, PSET <br />PUT (304, y16), bloks, PSET <br />END IF <br /> <br />IF el$ = "Q" THEN <br />FOR xw = 0 TO 3: PUT (xw * 64 + 16, y16), szaretlo4, PSET: NEXT xw <br />PUT (272, y16), szaretlo2, PSET <br />PUT (0, y16), blokk, PSET <br />PUT (304, y16), blokp, PSET <br />END IF <br /> <br />NEXT yw <br /> <br />REM rysowanie podestow <br /> <br />REM el$ = MID$(kod$, 45, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO okna <br />REM <br />REM el2$ = MID$(kod$, 46, 1) <br />REM yokna = (ASC(el2$) - 65) * 8 <br />REM IF el$ = "#" THEN PUT (0, yokna), ceg40, PSET <br />REM IF el$ = "W" THEN PUT (0, yokna), ceg4plus20plus4, PSET <br />REM IF el$ = "U" THEN PUT (0, yokna), ceg17plus17, PSET <br />REM IF el$ = "0" THEN PUT (0, yokna), ceg13plus13, PSET <br /> <br />okna: <br /> <br />REM rysowanie okien <br /> <br />REM el$ = MID$(kod$, 25, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO oknonz <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 26, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), window2, PSET <br /> <br /> <br />oknonz: <br />REM okno niebiesko-zielone <br /> <br />REM el$ = MID$(kod$, 28, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO oknoziel <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 29, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), window1, PSET <br /> <br />oknoziel: <br />REM okno zielone <br />REM <br />REM el$ = MID$(kod$, 31, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO serce <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 32, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20 <br />yokna = -20 <br />IF serca(roomx, roomy) = 0 THEN GOTO donica <br />el$ = MID$(kod$, 34, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO donica <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 35, 1) <br />yokna = (ASC(el$) - 65) * 8 <br /> GET (xokna + 8, yokna + 8)-(xokna + 15 + 8, yokna + 7 + 8), tlo <br />COLOR 5: LOCATE yokna / 8, xokna / 8: PRINT CHR$(3); <br /> xserca = xokna - 8 <br /> yserca = yokna - 8 <br /> <br /> <br />donica: <br />REM el$ = MID$(kod$, 37, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO koniecrysowania <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 38, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), palma, PSET <br /> <br /> <br />koniecrysowania: <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br /> <br />END SUB <br /> <br />SUB zabranie <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 4000: NEXT i <br /> <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 4000: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 14:56, 05 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB zabranie () <br /> <br />REM Gra "Serca" UWAGA wersaj gry wymaga <br />REM emulatora o predkosci 6075 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <br />DECLARE SUB dreptanie () <br />DECLARE SUB animacja () <br />DECLARE SUB rysowanie () <br />DECLARE SUB palety () <br />DECLARE SUB plansze () <br />DECLARE SUB cegly () <br /> <br />DIM SHARED kolor$(0 TO 255) <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED plansza$(0 TO 48) <br />DIM SHARED kod$ <br />DIM SHARED serca(1 TO 7, 1 TO 7) AS INTEGER <br />DIM SHARED roomx AS INTEGER, roomy AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br /> <br />REM pamiec tla pod wziatek <br /> <br />DIM SHARED tlo(0 TO 32) AS LONG <br /> <br />REM tlo <br /> <br />DIM SHARED szaretlo(0 TO 64) AS LONG <br />DIM SHARED szaretlo2(0 TO 128) AS LONG <br />DIM SHARED szaretlo4(0 TO 256) AS LONG <br />REM dane elementow planszy <br /> <br />REM DIM SHARED ceg40(0 TO 640) AS LONG <br />REM DIM SHARED ceg17plus17(0 TO 640) AS LONG <br />REM DIM SHARED ceg13plus13(0 TO 640) AS LONG <br />REM DIM SHARED ceg4plus20plus4(0 TO 640) AS LONG <br />REM DIM SHARED spc40(0 TO 640) AS LONG <br />REM DIM SHARED palma(0 TO 64) AS LONG <br /> <br />DIM SHARED blokp(0 TO 64) AS LONG <br />DIM SHARED bloks(0 TO 64) AS LONG <br />DIM SHARED blokk(0 TO 64) AS LONG <br />DIM SHARED blok2(0 TO 128) AS LONG <br />DIM SHARED blok4(0 TO 256) 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 />REM DIM SHARED window1(0 TO 160) AS LONG <br />REM DIM SHARED window2(0 TO 160) AS LONG <br />REM DIM SHARED window3(0 TO 160) AS LONG <br /> <br /> <br />REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />REM PRINT FRE(-2): END <br />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 100: y = 60: xs = 100: ys = 60: REM wspolrzedne poczatkowe gracza na ekranie <br />licz = -1: REM wartosc startowa zegara <br />roomx = 4: roomy = 4: REM plansza startowa <br /> <br />REM ***** SUB palety - ustawienie nowych wartosci barw <br />palety <br /> <br />REM ***** SUB cegly - zapelnienie pozostalych tablic <br />cegly <br /> <br />REM SUB plansze - wypelnienie tablicy wygladu plansz <br />plansze <br /> <br />REM SUB animacja - tablice animacji postaci <br />REM animacja <br /> <br /> <br />REM ************************* WYBOR POMIESZCZENIA <br /> <br />rysuj: <br /> <br />kod$ = plansza$(roomx - 1 + (roomy - 1) * 7) <br /> <br />REM ******************** rysowanie pomieszczenia <br />t0 = PEEK(1132): REM pomiar czasu rysowania <br /> <br /> <br />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />COLOR 28 <br />LOCATE 23, 1: FOR i = 1 TO 40: PRINT CHR$(223); : NEXT i <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <br /> <br />LOCATE 24, 2: COLOR 3: PRINT "T:"; t0; "/"; t1; <br />PRINT " ROOM:"; roomx; "/"; roomy; "--"; <br /> <br /> <br />REM **************** ustawienie gracza na planszy <br />GET (x, y)-(x + 15, y + 31), pamiec <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />liczsercaroom = 0 <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <br />REM LINE (0, 0)-(250, 40), 5, BF <br />REM kontrolne wyswietlenia <br /> REM PUT (200, 0), poledzialania, PSET <br /> REM PUT (30, 4), pamiec, PSET <br />dx = 0: dy = 0 <br />IF dzwiekbrania = 1 THEN dzwiekbrania = 0: zabranie <br /> <br />REM ******************* czas gry w sekundach <br /> <br />se$ = MID$(TIME$, 7, 2) <br />se = VAL(se$) <br />IF se <> ses THEN licz = licz + 1 <br />ses = se <br />LOCATE 25, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br /> FOR delay = 1 TO 1000: NEXT delay <br /> <br />REM ************************ sprawdzenie klawiszy <br /> <br />alt = 0: lshift = 0: pshift = 0: skos = 0 <br /> <br />k$ = INKEY$ <br />IF k$ = CHR$(27) THEN END <br /> <br />REM klawisz alt - wznoszenie sie <br />IF (PEEK(1047) AND 8) = 8 THEN alt = 1 <br />IF (PEEK(1047) AND 2) = 2 THEN lshift = 1 <br />IF (PEEK(1047) AND 1) = 1 THEN pshift = 1 <br /> <br />REM bezruch = grawitacja <br />IF lshift = 0 AND pshift = 0 AND alt = 0 THEN dy = 2: vert = 1: obrot = 0: przebiervert = 0: GOTO czy <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br /> <br />IF lshift = 1 THEN dx = -4: dy = 2: obrot = -1: vert = 0 <br />IF pshift = 1 THEN dx = 4: dy = 2: obrot = 1: vert = 0 <br />IF alt = 1 THEN dy = -4: vert = 1 <br />IF dx <> 0 AND dy <> 0 THEN skos = 1 <br />czy: <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br /> <br />IF x + dx > 300 THEN x = 5: xs = 5: roomx = roomx + 1: GOTO rysuj <br />IF x + dx < 3 THEN x = 300: xs = 300: roomx = roomx - 1: GOTO rysuj <br />IF y + dy > 149 THEN y = 4: ys = 4: roomy = roomy + 1: GOTO rysuj <br />IF y + dy < 3 THEN y = 146: ys = 146: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br />REM sprawdzenie przeszkody. Przeszkoda sa kolory > 200 <br /> <br />xmozliwy = 0: xniemozliwy = 0 <br />ymozliwy = 0: yniemozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa obok <br /> <br />IF dx > 0 THEN <br />FOR i = 0 TO 31: IF POINT(x + 19, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br /> <br />IF dx < 0 THEN <br />FOR i = 0 TO 31: IF POINT(x - 3, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF xniemozliwy = 0 THEN xmozliwy = 1 <br />IF xniemozliwy = 1 THEN xmozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa gora dol <br /> <br />IF dy > 0 THEN <br />FOR i = 0 TO 15: <br />IF POINT(x + i, y + 32) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y + 33) > 200 THEN yniemozliwy = 1: EXIT FOR <br /> <br />NEXT i <br />END IF <br /> <br />IF dy < 0 THEN <br />FOR i = 0 TO 15 <br />IF POINT(x + i, y - 4) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y - 5) > 200 THEN yniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF yniemozliwy = 0 THEN ymozliwy = 1 <br />IF yniemozliwy = 1 THEN ymozliwy = 0 <br /> <br />REM ruch gdy oba mozliwe x oraz y <br />IF ymozliwy = 1 AND xmozliwy = 1 THEN IF dx <> 0 OR dy <> 0 THEN GOTO ruch <br /> <br /> <br />REM szczegolne przypadki gdy tylko x albo y mozliwy <br />IF ymozliwy = 0 AND xmozliwy = 1 THEN dy = 0: GOTO czy <br />IF ymozliwy = 1 AND xmozliwy = 0 THEN dx = 0: GOTO czy <br /> <br />REM ruch niemozliwy powrot petli glownej bez zmian pozostaja x y <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** RUCH <br /> <br />ruch: <br /> <br />x = x + dx: y = y + dy <br />IF dy = 0 AND przebieranie = 0 AND alt = 0 THEN dreptanie: REM dzwiek chodzenia <br /> <br />REM ******************** czy jest wziatek <br />deltawx = ABS(x - xserca) <br />deltawy = ABS(y + 16 - yserca) <br />IF deltawx < 10 AND deltawy < 22 THEN GOSUB wziatek <br /> <br />REM ************************************** operacja odswiezania tla <br /> <br />REM 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 kontrolne wyswietlenie brudnego tla <br />REM PUT (100, 0), poledzialania, PSET <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 kontrolne wyswietlenie odnowionego tla <br />REM PUT (150, 0), poledzialania, PSET <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 />REM <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 <br />FOR yt = 0 TO 31 <br />yt4 = yt * 4 <br />yt6 = yt * 6 <br />FOR xt = 0 TO 3 <br />index1 = 1 + yt6 + xt + 1 + 24 <br />index2 = 1 + yt4 + xt <br />poledzialania(index1) = (poledzialania(index1) OR vertd1(index2)) <br />NEXT xt: NEXT yt <br />END IF <br /> <br />REM wklejenie wyniku operacji na tablicy: <br />PUT (x - 4, y - 4), poledzialania, PSET <br />wstrzymaj: <br />REM IF INKEY$ <> "q" THEN GOTO wstrzymaj <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 />liczsercaroom = 1 <br />dzwiekbrania = 1 <br />REM zabranie <br /> <br />LOCATE 1, 1: COLOR 6: PRINT liczserca; <br />niemawziatku: <br />RETURN <br /> <br />SUB animacja <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br />REM ten SUB jest do skasowania <br /> <br />END SUB <br /> <br />SUB cegly <br /> <br />BLOAD "bitmap1.scr" <br /> <br />REM INPUT a$ <br />REM pobranie z ekranu tablic elementow <br /> <br />REM GET (0, 0)-(319, 7), ceg40 <br />REM GET (0, 8)-(319, 15), ceg17plus17 <br />REM GET (0, 16)-(319, 23), ceg13plus13 <br />REM GET (0, 24)-(319, 31), ceg4plus20plus4 <br />REM GET (0, 48)-(319, 55), spc40 <br />GET (0, 48)-(15, 63), szaretlo <br />GET (0, 48)-(31, 63), szaretlo2 <br />GET (0, 48)-(63, 63), szaretlo4 <br /> <br />REM GET (16, 64)-(31, 79), palma <br />GET (32, 64)-(47, 79), blokp <br />GET (48, 64)-(63, 79), bloks <br />GET (64, 64)-(79, 79), blokk <br />GET (0, 32)-(31, 47), blok2 <br />GET (0, 32)-(63, 47), blok4 <br /> <br />GET (0, 88)-(15, 119), znakl1 <br />GET (16, 88)-(31, 119), znakp1 <br />GET (32, 88)-(47, 119), znakl2 <br />GET (48, 88)-(63, 119), znakp2 <br />GET (64, 88)-(79, 119), znakl3 <br />GET (80, 88)-(95, 119), znakp3 <br />GET (96, 88)-(111, 119), vertd1 <br /> <br />REM GET (0, 120)-(31, 139), window1 <br />REM GET (32, 120)-(63, 139), window2 <br />REM GET (64, 120)-(95, 139), window3 <br /> <br />END SUB <br /> <br />SUB dreptanie <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br /> <br /> <br />FOR i = 1 TO 10 <br />OUT 66, 32: OUT 66, 2 <br />OUT 66, 64: OUT 66, 1 <br />OUT 66, 250: OUT 66, 0 <br />OUT 66, 32: OUT 66, 1 <br />OUT 66, 32: OUT 66, 0 <br />OUT 66, 104: OUT 66, 2 <br />OUT 66, 48: OUT 66, 0 <br />OUT 66, 250: OUT 66, 2 <br />OUT 66, 32: OUT 66, 0 <br />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 05 05 06": REM tlo plyta <br />kolor$(2) = "02 02 03 02": REM tlo fuga <br />kolor$(3) = "03 07 06 06": REM tlo krawedz <br />kolor$(4) = "04 00 22 00": REM liscie <br />kolor$(5) = "05 3F 08 00": REM serce <br />kolor$(6) = "06 30 30 30": REM framuga okna <br />kolor$(7) = "07 28 0A 00": REM doniczka drzewa <br />kolor$(8) = "08 00 21 39": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 3F 3F 3F": REM niezdef <br />kolor$(11) = "0B 3F 3F 3F" <br />kolor$(12) = "0C 3F 3F 3F" <br />kolor$(13) = "0D 3F 3F 3F" <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />kolor$(16) = "10 18 02 02": REM sweter + zero <br />kolor$(17) = "11 18 02 02": REM <br />kolor$(18) = "12 18 02 02": REM <br />kolor$(19) = "13 18 02 02": REM <br />kolor$(20) = "14 22 12 00": REM sweter + liscie <br />kolor$(21) = "15 3F 00 00": REM <br />kolor$(22) = "16 2F 09 09": REM sweter + framuga okna <br />kolor$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />kolor$(24) = "18 25 16 24": REM sweter + niebo <br />kolor$(25) = "19 3F 3F 3F": REM niezdef <br />kolor$(26) = "1A 3F 3F 3F": REM <br />kolor$(27) = "1B 3F 3F 3F": REM <br />kolor$(28) = "1C 3F 3F 3F": REM <br />kolor$(29) = "1D 3F 3F 3F": REM <br />kolor$(30) = "1E 3F 3F 3F": REM <br />REM kolor 31 1F zastrzezony dla gracza <br />kolor$(32) = "20 0A 13 29": REM spodnie + zero <br />kolor$(33) = "21 0A 13 29": REM <br />kolor$(34) = "22 0A 13 29": REM <br />kolor$(35) = "23 0A 13 29": REM <br />kolor$(36) = "24 05 1D 24": REM spodnie+ liscie <br />kolor$(37) = "25 3F 3F 3F": REM <br />kolor$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />kolor$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />kolor$(40) = "28 00 1A 3F": REM spodnie + niebo <br />kolor$(41) = "29 3F 3F 3F": REM niezdef <br />kolor$(42) = "2A 3F 3F 3F": REM <br />kolor$(43) = "2B 3F 3F 3F": REM <br />kolor$(44) = "2C 3F 3F 3F": REM <br />kolor$(45) = "2D 3F 3F 3F": REM <br />kolor$(46) = "2E 3F 3F 3F": REM <br />REM rejestr 47 2F zastrzezony dla gracza <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br />REM rejestry nieprzezroczyste <br /> <br />kolor$(31) = "1F 2F 09 09": REM sweter <br />kolor$(47) = "2F 0D 1A 37": REM spodnie <br />kolor$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 30 20": REM skora1 <br />kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 32 22 02": REM nos <br />kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 22 02 02": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 24 24": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br /> <br /> <br /> <br />END SUB <br /> <br />SUB plansze <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** (roomy-1)*7+(roomx-1) <br /> <br />REM kodowanie _+++++++++++++++++++++++_okna++++_se_kw_se1_se2_nowy11+++++ <br />REM ************ plansze wiersza roomy=1 <br /> <br />plansza$(0) = "......................._______YQ_GN_________UI_#LLLQQQLLLU" <br />plansza$(1) = ".......................____MD__________________#...UUUPPP#" <br />plansza$(2) = "......................._HE__________ES______UI_#PPPQQQQQQU" <br />plansza$(3) = ".......................__________SK____BB1_fB1_##LLLQWWWQ#" <br />plansza$(4) = "......................._______ZK_______________#QPPPQQUQQU" <br />plansza$(5) = ".......................____MG__________LK5_____#LLLQWWQQQU" <br />plansza$(6) = "......................._LD__________FQ_________#PPPWQQQQUU" <br /> <br />REM ************ plansze wiersza roomy=2 <br /> <br />plansza$(7) = ".......................________________________UQQQWLLLQQ#" <br />plansza$(8) = "......................._______YQ_RN_________WH_#QQQQ...QQ#" <br />plansza$(9) = ".......................____ML__________KK1__WJ_UUQQQPPPUQU" <br />plansza$(10) = "......................._____________MS_________#WLLLWQQQQW" <br />plansza$(11) = "......................._aI__________________UM_UQPPPQQQQQ#" <br />plansza$(12) = ".......................__________RN_GS_________UQQQ000QQQ#" <br />plansza$(13) = ".......................____DJ____aM____________UUUUQQQUUUU" <br /> <br />REM ************* plansze wiersza roomy=3 <br /> <br />plansza$(14) = ".......................__________NG_YS_________#QQQWQWQQQW" <br />plansza$(15) = "......................._MD_YP____UP____________#QQQWLLLLQW" <br />plansza$(16) = "......................._WQ_____________DI3_`I3_U0000....0#" <br />plansza$(17) = "......................._MM__________YQ_________WWWWWPPPPUU" <br />plansza$(18) = "......................._______NP_SM_________WO_#QQQQMWMQQW" <br />plansza$(19) = ".......................________________EB1__UJ_#00QQLLL0QU" <br />plansza$(20) = ".......................____aM____UP____________UQQQWPPP0##" <br /> <br />REM ************ plansze wiersza roomy=4 <br /> <br />plansza$(21) = ".......................____ZM____SG____________WQQQWLLLLUU" <br />plansza$(22) = ".......................________________________WPPPWPPPP##" <br />plansza$(23) = "......................._______LQ_UQ_YS_RU3__#F_#0QLLLQQQQW" <br />plansza$(24) = ".......................____YI____SK_GS_GB5__WM_UUQPPPQQQQU": REM startowa MaX=dU <br />plansza$(25) = ".......................__________NG____________#QQQQWQQQQU" <br />plansza$(26) = "......................._______ZQ_SG____________UUQQQWLLLLU" <br />plansza$(27) = "......................._____________LS_KK1_____##00UUPPPPU" <br /> <br />REM ****************** plansze wiersza roomy=5 <br /> <br />plansza$(28) = "......................._DD____aQ_SS_YS_________ULLLWWWLLL#" <br />plansza$(29) = ".......................________________II4_YI4_#...UUU...#" <br />plansza$(30) = "......................._______aQ_______GL5_YL5_WPPPQUUPPPU" <br />plansza$(31) = ".......................____ML_______YS______UJ_UUQQQLLLQQ#" <br />plansza$(32) = ".......................____YL_______________WJ_UQQQQPPP###" <br />plansza$(33) = ".......................________________KR1_____UU00U000UUU" <br />plansza$(34) = ".......................____OG____SR_YS_________UU0QQQWQQQ#" <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />plansza$(35) = "......................._____________KM_________#00ULLLU0UU" <br />plansza$(36) = ".......................__________SR____MH2_YH2_###UPPPLLL#" <br />plansza$(37) = "......................._______GQ_______________U0QQQQW...#" <br />plansza$(38) = "......................._____________YS_________#LLLU00PPP#" <br />plansza$(39) = ".......................__________MM_________0Q_#PPPWLLLQQ#" <br />plansza$(40) = ".......................________________KO3_YO3_UUUU0PPPUUU" <br />plansza$(41) = "......................._DD_______ZF_MS_________#QQQWQQQ00U" <br /> <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />plansza$(42) = "......................._EJ__________YM_________UUU0LLL####" <br />plansza$(43) = ".......................____SJ____ML____________###U...####" <br />plansza$(44) = "......................._____________KM_________#LLLPPP####" <br />plansza$(45) = ".......................____PH____ZJ____________#PPP000####" <br />plansza$(46) = ".......................__________EE____________#LLL0######" <br />plansza$(47) = "......................._____________GS______0I_UPPPQQQLLL#" <br />plansza$(48) = "......................._LQ_____________________UUUUUUUPPP#" <br /> <br />REM lokalizacja serc <br />REM serca wiersza 1 <br /> <br />serca(1, 1) = 1 <br />serca(4, 1) = 1 <br /> <br />REM serca wiersza 2 <br />serca(2, 2) = 1 <br />serca(6, 2) = 1 <br />serca(7, 2) = 1 <br /> <br />REM serca wiersza 3 <br /> <br />serca(1, 3) = 1 <br />serca(2, 3) = 1 <br />serca(5, 3) = 1 <br />serca(7, 3) = 1 <br /> <br />REM serca wiersza 4 <br />serca(1, 4) = 1 <br />serca(3, 4) = 1 <br />serca(4, 4) = 1 <br />serca(5, 4) = 1 <br />serca(6, 4) = 1 <br /> <br />REM serca wiersza 5 <br /> <br />serca(1, 5) = 1 <br />serca(7, 5) = 1 <br /> <br />REM serca wiersza 6 <br />serca(2, 6) = 1 <br />serca(5, 6) = 1 <br />serca(7, 6) = 1 <br /> <br />REM serca wiersza 7 <br />serca(2, 7) = 1 <br />serca(4, 7) = 1 <br />serca(5, 7) = 1 <br /> <br />END SUB <br /> <br />SUB rysowanie <br /> <br /> <br />FOR yw = 0 TO 10 <br />el$ = MID$(kod$, yw + 48, 1) <br />y16 = yw * 16 <br /> <br />IF el$ = "U" THEN <br />PUT (128, y16), szaretlo4, PSET <br />PUT (0, y16), blok4, PSET <br />PUT (64, y16), blok2, PSET <br />PUT (96, y16), bloks, PSET <br />PUT (112, y16), blokk, PSET <br />PUT (192, y16), blokp, PSET <br />PUT (208, y16), blok4, PSET <br />PUT (272, y16), blok2, PSET <br />PUT (304, y16), bloks, PSET <br />END IF <br /> <br />IF el$ = "L" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />PUT (0, y16), blokk, PSET <br />END IF <br /> <br />IF el$ = "P" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />PUT (304, y16), blokp, PSET <br />END IF <br /> <br />IF el$ = "." THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />END IF <br /> <br />IF el$ = "#" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), blok4, PSET: NEXT xw <br />END IF <br /> <br />IF el$ = "0" THEN <br />PUT (80, y16), szaretlo4, PSET <br />PUT (144, y16), szaretlo4, PSET <br />PUT (208, y16), szaretlo2, PSET <br />PUT (0, y16), blok4, PSET <br />PUT (64, y16), blokk, PSET <br />PUT (240, y16), blokp, PSET <br />PUT (256, y16), blok4, PSET <br />END IF <br /> <br />IF el$ = "W" THEN <br />PUT (32, y16), szaretlo4, PSET <br />PUT (224, y16), szaretlo4, PSET <br />PUT (0, y16), bloks, PSET <br />PUT (16, y16), blokk, PSET <br />PUT (80, y16), blokp, PSET <br />PUT (96, y16), blok4, PSET <br />PUT (160, y16), blok4, PSET <br />PUT (224, y16), blokk, PSET <br />PUT (288, y16), blokp, PSET <br />PUT (304, y16), bloks, PSET <br />END IF <br /> <br />IF el$ = "Q" THEN <br />FOR xw = 0 TO 3: PUT (xw * 64 + 16, y16), szaretlo4, PSET: NEXT xw <br />PUT (272, y16), szaretlo2, PSET <br />PUT (0, y16), blokk, PSET <br />PUT (304, y16), blokp, PSET <br />END IF <br /> <br />NEXT yw <br /> <br />REM rysowanie podestow <br /> <br />REM el$ = MID$(kod$, 45, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO okna <br />REM <br />REM el2$ = MID$(kod$, 46, 1) <br />REM yokna = (ASC(el2$) - 65) * 8 <br />REM IF el$ = "#" THEN PUT (0, yokna), ceg40, PSET <br />REM IF el$ = "W" THEN PUT (0, yokna), ceg4plus20plus4, PSET <br />REM IF el$ = "U" THEN PUT (0, yokna), ceg17plus17, PSET <br />REM IF el$ = "0" THEN PUT (0, yokna), ceg13plus13, PSET <br /> <br />okna: <br /> <br />REM rysowanie okien <br /> <br />REM el$ = MID$(kod$, 25, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO oknonz <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 26, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), window2, PSET <br /> <br /> <br />oknonz: <br />REM okno niebiesko-zielone <br /> <br />REM el$ = MID$(kod$, 28, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO oknoziel <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 29, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), window1, PSET <br /> <br />oknoziel: <br />REM okno zielone <br />REM <br />REM el$ = MID$(kod$, 31, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO serce <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 32, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20 <br />yokna = -20 <br />IF serca(roomx, roomy) = 0 THEN GOTO donica <br />el$ = MID$(kod$, 34, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO donica <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 35, 1) <br />yokna = (ASC(el$) - 65) * 8 <br /> GET (xokna + 8, yokna + 8)-(xokna + 15 + 8, yokna + 7 + 8), tlo <br />COLOR 5: LOCATE yokna / 8, xokna / 8: PRINT CHR$(3); <br /> xserca = xokna - 8 <br /> yserca = yokna - 8 <br /> <br /> <br />donica: <br />REM el$ = MID$(kod$, 37, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO koniecrysowania <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 38, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), palma, PSET <br /> <br /> <br />koniecrysowania: <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br /> <br />END SUB <br /> <br />SUB zabranie <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 3000: NEXT i <br /> <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 3000: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 14:45, 05 Wrz 2021<span class="gen"> </span> Temat postu: Temat Antymiganie</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Rem operacje zapamietania tla wykonane sa w tablicach <br /> <br />DECLARE SUB zabranie () <br /> <br />REM Gra "Serca" <br />REM wymaga emulatora o predkosci 3300 cyklow <br />REM wymaga pliku bitmap1.scr utworzonego przez modul bsave.bas <br /> <br />DECLARE SUB dreptanie () <br />DECLARE SUB animacja () <br />DECLARE SUB rysowanie () <br />DECLARE SUB palety () <br />DECLARE SUB plansze () <br />DECLARE SUB cegly () <br /> <br />DIM SHARED kolor$(0 TO 255) <br />DIM pamiec(0 TO 128) AS LONG <br />DIM poledzialania(0 TO 240) AS LONG <br />DIM SHARED plansza$(0 TO 48) <br />DIM SHARED kod$ <br />DIM SHARED serca(1 TO 7, 1 TO 7) AS INTEGER <br />DIM SHARED roomx AS INTEGER, roomy AS INTEGER <br />DIM SHARED xserca AS INTEGER, yserca AS INTEGER <br /> <br />REM pamiec tla pod wziatek <br /> <br />DIM SHARED tlo(0 TO 32) AS LONG <br /> <br />REM tlo <br /> <br />DIM SHARED szaretlo(0 TO 64) AS LONG <br />DIM SHARED szaretlo2(0 TO 128) AS LONG <br />DIM SHARED szaretlo4(0 TO 256) AS LONG <br />REM dane elementow planszy <br /> <br />REM DIM SHARED ceg40(0 TO 640) AS LONG <br />REM DIM SHARED ceg17plus17(0 TO 640) AS LONG <br />REM DIM SHARED ceg13plus13(0 TO 640) AS LONG <br />REM DIM SHARED ceg4plus20plus4(0 TO 640) AS LONG <br />REM DIM SHARED spc40(0 TO 640) AS LONG <br />REM DIM SHARED palma(0 TO 64) AS LONG <br /> <br />DIM SHARED blokp(0 TO 64) AS LONG <br />DIM SHARED bloks(0 TO 64) AS LONG <br />DIM SHARED blokk(0 TO 64) AS LONG <br />DIM SHARED blok2(0 TO 128) AS LONG <br />DIM SHARED blok4(0 TO 256) 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 />REM DIM SHARED window1(0 TO 160) AS LONG <br />REM DIM SHARED window2(0 TO 160) AS LONG <br />REM DIM SHARED window3(0 TO 160) AS LONG <br /> <br /> <br />REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />REM PRINT FRE(-2): END <br />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 100: y = 60: xs = 100: ys = 60: REM wspolrzedne poczatkowe gracza na ekranie <br />licz = -1: REM wartosc startowa zegara <br />roomx = 4: roomy = 4: REM plansza startowa <br /> <br />REM ***** SUB palety - ustawienie nowych wartosci barw <br />palety <br /> <br />REM ***** SUB cegly - zapelnienie pozostalych tablic <br />cegly <br /> <br />REM SUB plansze - wypelnienie tablicy wygladu plansz <br />plansze <br /> <br />REM SUB animacja - tablice animacji postaci <br />REM animacja <br /> <br /> <br />REM ************************* WYBOR POMIESZCZENIA <br /> <br />rysuj: <br /> <br />kod$ = plansza$(roomx - 1 + (roomy - 1) * 7) <br /> <br />REM ******************** rysowanie pomieszczenia <br />t0 = PEEK(1132): REM pomiar czasu rysowania <br /> <br /> <br />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): <br /> <br />REM menu na dole <br />COLOR 28 <br />LOCATE 23, 1: FOR i = 1 TO 40: PRINT CHR$(223); : NEXT i <br />LOCATE 25, 15: PRINT "L-SHIFT ALT P-SHIFT"; <br /> <br />LOCATE 24, 2: COLOR 3: PRINT "T:"; t0; "/"; t1; <br />PRINT " ROOM:"; roomx; "/"; roomy; "--"; <br /> <br /> <br />REM **************** ustawienie gracza na planszy <br />GET (x, y)-(x + 15, y + 31), pamiec <br />GET (x - 4, y - 4)-(x + 19, y + 35), poledzialania <br /> <br />liczsercaroom = 0 <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <br />LINE (0, 0)-(250, 40), 5, BF <br />REM kontrolne wyswietlenia <br /> PUT (200, 0), poledzialania, PSET <br /> PUT (30, 4), pamiec, PSET <br />dx = 0: dy = 0 <br />IF dzwiekbrania = 1 THEN dzwiekbrania = 0: zabranie <br /> <br />REM ******************* czas gry w sekundach <br /> <br />se$ = MID$(TIME$, 7, 2) <br />se = VAL(se$) <br />IF se <> ses THEN licz = licz + 1 <br />ses = se <br />LOCATE 25, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br />REM FOR delay = 1 TO 1800: NEXT delay <br /> <br />REM ************************ sprawdzenie klawiszy <br /> <br />alt = 0: lshift = 0: pshift = 0: skos = 0 <br /> <br />k$ = INKEY$ <br />IF k$ = CHR$(27) THEN END <br /> <br />REM klawisz alt - wznoszenie sie <br />IF (PEEK(1047) AND 8) = 8 THEN alt = 1 <br />IF (PEEK(1047) AND 2) = 2 THEN lshift = 1 <br />IF (PEEK(1047) AND 1) = 1 THEN pshift = 1 <br /> <br />REM bezruch = grawitacja <br />IF lshift = 0 AND pshift = 0 AND alt = 0 THEN dy = 2: vert = 1: obrot = 0: przebiervert = 0: GOTO czy <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br /> <br />IF lshift = 1 THEN dx = -4: dy = 2: obrot = -1: vert = 0 <br />IF pshift = 1 THEN dx = 4: dy = 2: obrot = 1: vert = 0 <br />IF alt = 1 THEN dy = -4: vert = 1 <br />IF dx <> 0 AND dy <> 0 THEN skos = 1 <br />czy: <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br /> <br />IF x + dx > 301 THEN x = 4: xs = 4: roomx = roomx + 1: GOTO rysuj <br />IF x + dx < 2 THEN x = 301: xs = 301: roomx = roomx - 1: GOTO rysuj <br />IF y + dy > 149 THEN y = 4: ys = 4: roomy = roomy + 1: GOTO rysuj <br />IF y + dy < 2 THEN y = 147: ys = 147: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br />REM sprawdzenie przeszkody. Przeszkoda sa kolory > 200 <br /> <br />xmozliwy = 0: xniemozliwy = 0 <br />ymozliwy = 0: yniemozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa obok <br /> <br />IF dx > 0 THEN <br />FOR i = 0 TO 31: IF POINT(x + 19, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br /> <br />IF dx < 0 THEN <br />FOR i = 0 TO 31: IF POINT(x - 3, y + i) > 200 THEN xniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF xniemozliwy = 0 THEN xmozliwy = 1 <br />IF xniemozliwy = 1 THEN xmozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa gora dol <br /> <br />IF dy > 0 THEN <br />FOR i = 0 TO 15: <br />IF POINT(x + i, y + 32) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y + 33) > 200 THEN yniemozliwy = 1: EXIT FOR <br /> <br />NEXT i <br />END IF <br /> <br />IF dy < 0 THEN <br />FOR i = 0 TO 15 <br />IF POINT(x + i, y - 4) > 200 THEN yniemozliwy = 1: EXIT FOR <br />IF POINT(x + i, y - 5) > 200 THEN yniemozliwy = 1: EXIT FOR <br />NEXT i <br />END IF <br />IF yniemozliwy = 0 THEN ymozliwy = 1 <br />IF yniemozliwy = 1 THEN ymozliwy = 0 <br /> <br />REM ruch gdy oba mozliwe x oraz y <br />IF ymozliwy = 1 AND xmozliwy = 1 THEN IF dx <> 0 OR dy <> 0 THEN GOTO ruch <br /> <br /> <br />REM szczegolne przypadki gdy tylko x albo y mozliwy <br />IF ymozliwy = 0 AND xmozliwy = 1 THEN dy = 0: GOTO czy <br />IF ymozliwy = 1 AND xmozliwy = 0 THEN dx = 0: GOTO czy <br /> <br />REM ruch niemozliwy powrot petli glownej bez zmian pozostaja x y <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** RUCH <br /> <br />ruch: <br /> <br />x = x + dx: y = y + dy <br />IF dy = 0 AND przebieranie = 0 AND alt = 0 THEN dreptanie: REM dzwiek chodzenia <br /> <br />REM ******************** czy jest wziatek <br />deltawx = ABS(x - xserca) <br />deltawy = ABS(y + 16 - yserca) <br />IF deltawx < 10 AND deltawy < 22 THEN GOSUB wziatek <br /> <br />REM ************************************** operacja odswiezania tla <br /> <br />REM 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 kontrolne wyswietlenie brudnego tla <br />PUT (100, 0), poledzialania, PSET <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 kontrolne wyswietlenie odnowionego tla <br />PUT (150, 0), poledzialania, PSET <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 />REM <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 <br />FOR yt = 0 TO 31 <br />yt4 = yt * 4 <br />yt6 = yt * 6 <br />FOR xt = 0 TO 3 <br />index1 = 1 + yt6 + xt + 1 + 24 <br />index2 = 1 + yt4 + xt <br />poledzialania(index1) = (poledzialania(index1) OR vertd1(index2)) <br />NEXT xt: NEXT yt <br />END IF <br /> <br />REM wklejenie wyniku operacji na tablicy: <br />PUT (x - 4, y - 4), poledzialania, PSET <br />wstrzymaj: <br />REM IF INKEY$ <> "q" THEN GOTO wstrzymaj <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 />liczsercaroom = 1 <br />dzwiekbrania = 1 <br />REM zabranie <br /> <br />LOCATE 1, 1: COLOR 6: PRINT liczserca; <br />niemawziatku: <br />RETURN <br /> <br />SUB animacja <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br />REM ten SUB jest do skasowania <br /> <br />END SUB <br /> <br />SUB cegly <br /> <br />BLOAD "bitmap1.scr" <br /> <br />REM INPUT a$ <br />REM pobranie z ekranu tablic elementow <br /> <br />REM GET (0, 0)-(319, 7), ceg40 <br />REM GET (0, 8)-(319, 15), ceg17plus17 <br />REM GET (0, 16)-(319, 23), ceg13plus13 <br />REM GET (0, 24)-(319, 31), ceg4plus20plus4 <br />REM GET (0, 48)-(319, 55), spc40 <br />GET (0, 48)-(15, 63), szaretlo <br />GET (0, 48)-(31, 63), szaretlo2 <br />GET (0, 48)-(63, 63), szaretlo4 <br /> <br />REM GET (16, 64)-(31, 79), palma <br />GET (32, 64)-(47, 79), blokp <br />GET (48, 64)-(63, 79), bloks <br />GET (64, 64)-(79, 79), blokk <br />GET (0, 32)-(31, 47), blok2 <br />GET (0, 32)-(63, 47), blok4 <br /> <br />GET (0, 88)-(15, 119), znakl1 <br />GET (16, 88)-(31, 119), znakp1 <br />GET (32, 88)-(47, 119), znakl2 <br />GET (48, 88)-(63, 119), znakp2 <br />GET (64, 88)-(79, 119), znakl3 <br />GET (80, 88)-(95, 119), znakp3 <br />GET (96, 88)-(111, 119), vertd1 <br /> <br />REM GET (0, 120)-(31, 139), window1 <br />REM GET (32, 120)-(63, 139), window2 <br />REM GET (64, 120)-(95, 139), window3 <br /> <br />END SUB <br /> <br />SUB dreptanie <br /> <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br /> <br /> <br />FOR i = 1 TO 10 <br />OUT 66, 32: OUT 66, 2 <br />OUT 66, 64: OUT 66, 1 <br />OUT 66, 250: OUT 66, 0 <br />OUT 66, 32: OUT 66, 1 <br />OUT 66, 32: OUT 66, 0 <br />OUT 66, 104: OUT 66, 2 <br />OUT 66, 48: OUT 66, 0 <br />OUT 66, 250: OUT 66, 2 <br />OUT 66, 32: OUT 66, 0 <br />NEXT i <br />REM FOR i = 1 TO 150: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB <br /> <br />SUB palety <br /> <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 15 05 06": REM tlo plyta <br />kolor$(2) = "02 12 03 02": REM tlo fuga <br />kolor$(3) = "03 17 06 06": REM tlo krawedz <br />kolor$(4) = "04 00 22 00": REM liscie <br />kolor$(5) = "05 3F 08 00": REM serce <br />kolor$(6) = "06 30 30 30": REM framuga okna <br />kolor$(7) = "07 28 0A 00": REM doniczka drzewa <br />kolor$(8) = "08 00 21 39": REM niebo <br />kolor$(9) = "09 3F 3F 00": REM slonce <br />kolor$(10) = "0A 3F 3F 3F": REM niezdef <br />kolor$(11) = "0B 3F 3F 3F" <br />kolor$(12) = "0C 3F 3F 3F" <br />kolor$(13) = "0D 3F 3F 3F" <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy / zastrzezony dla gracza <br /> <br />REM rejestry przezroczyste gracza <br />kolor$(16) = "10 18 02 02": REM sweter + zero <br />kolor$(17) = "11 18 02 02": REM <br />kolor$(18) = "12 18 02 02": REM <br />kolor$(19) = "13 18 02 02": REM <br />kolor$(20) = "14 22 12 00": REM sweter + liscie <br />kolor$(21) = "15 3F 00 00": REM <br />kolor$(22) = "16 2F 09 09": REM sweter + framuga okna <br />kolor$(23) = "17 2B 08 00": REM sweter + doniczka drzewa <br />kolor$(24) = "18 25 16 24": REM sweter + niebo <br />kolor$(25) = "19 3F 3F 3F": REM niezdef <br />kolor$(26) = "1A 3F 3F 3F": REM <br />kolor$(27) = "1B 3F 3F 3F": REM <br />kolor$(28) = "1C 3F 3F 3F": REM <br />kolor$(29) = "1D 3F 3F 3F": REM <br />kolor$(30) = "1E 3F 3F 3F": REM <br />REM kolor 31 1F zastrzezony dla gracza <br />kolor$(32) = "20 0A 13 29": REM spodnie + zero <br />kolor$(33) = "21 0A 13 29": REM <br />kolor$(34) = "22 0A 13 29": REM <br />kolor$(35) = "23 0A 13 29": REM <br />kolor$(36) = "24 05 1D 24": REM spodnie+ liscie <br />kolor$(37) = "25 3F 3F 3F": REM <br />kolor$(38) = "26 1B 1B 32": REM spodnie + framuga okna <br />kolor$(39) = "27 1A 10 3F": REM spodnie + doniczka <br />kolor$(40) = "28 00 1A 3F": REM spodnie + niebo <br />kolor$(41) = "29 3F 3F 3F": REM niezdef <br />kolor$(42) = "2A 3F 3F 3F": REM <br />kolor$(43) = "2B 3F 3F 3F": REM <br />kolor$(44) = "2C 3F 3F 3F": REM <br />kolor$(45) = "2D 3F 3F 3F": REM <br />kolor$(46) = "2E 3F 3F 3F": REM <br />REM rejestr 47 2F zastrzezony dla gracza <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br />REM rejestry nieprzezroczyste <br /> <br />kolor$(31) = "1F 2F 09 09": REM sweter <br />kolor$(47) = "2F 0D 1A 37": REM spodnie <br />kolor$(63) = "3F 1A 1A 1A": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 30 20": REM skora1 <br />kolor$(127) = "7F 1A 02 02": REM sweter 2 przeniesiony do przezroczystych <br />kolor$(143) = "8F 32 22 02": REM nos <br />kolor$(159) = "9F 0A 13 29": REM spodnie2 przeniesiony do przezroczystych <br />kolor$(175) = "AF 22 02 02": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 24 24": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br /> <br /> <br /> <br />END SUB <br /> <br />SUB plansze <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** (roomy-1)*7+(roomx-1) <br /> <br />REM kodowanie _+++++++++++++++++++++++_okna++++_se_kw_se1_se2_nowy11+++++ <br />REM ************ plansze wiersza roomy=1 <br /> <br />plansza$(0) = "......................._______YQ_GN_________UI_#LLLQQQLLLU" <br />plansza$(1) = ".......................____MD__________________#...UUUPPP#" <br />plansza$(2) = "......................._HE__________ES______UI_#PPPQQQQQQU" <br />plansza$(3) = ".......................__________SK____BB1_fB1_##LLLQWWWQ#" <br />plansza$(4) = "......................._______ZK_______________#QPPPQQUQQU" <br />plansza$(5) = ".......................____MG__________LK5_____#LLLQWWQQQU" <br />plansza$(6) = "......................._LD__________FQ_________#PPPWQQQQUU" <br /> <br />REM ************ plansze wiersza roomy=2 <br /> <br />plansza$(7) = ".......................________________________UQQQWLLLQQ#" <br />plansza$(8) = "......................._______YQ_RN_________WH_#QQQQ...QQ#" <br />plansza$(9) = ".......................____ML__________KK1__WJ_UUQQQPPPUQU" <br />plansza$(10) = "......................._____________MS_________#WLLLWQQQQW" <br />plansza$(11) = "......................._aI__________________UM_UQPPPQQQQQ#" <br />plansza$(12) = ".......................__________RN_GS_________UQQQ000QQQ#" <br />plansza$(13) = ".......................____DJ____aM____________UUUUQQQUUUU" <br /> <br />REM ************* plansze wiersza roomy=3 <br /> <br />plansza$(14) = ".......................__________NG_YS_________#QQQWQWQQQW" <br />plansza$(15) = "......................._MD_YP____UP____________#QQQWLLLLQW" <br />plansza$(16) = "......................._WQ_____________DI3_`I3_U0000....0#" <br />plansza$(17) = "......................._MM__________YQ_________WWWWWPPPPUU" <br />plansza$(18) = "......................._______NP_SM_________WO_#QQQQMWMQQW" <br />plansza$(19) = ".......................________________EB1__UJ_#00QQLLL0QU" <br />plansza$(20) = ".......................____aM____UP____________UQQQWPPP0##" <br /> <br />REM ************ plansze wiersza roomy=4 <br /> <br />plansza$(21) = ".......................____ZM____SG____________WQQQWLLLLUU" <br />plansza$(22) = ".......................________________________WPPPWPPPP##" <br />plansza$(23) = "......................._______LQ_UQ_YS_RU3__#F_#0QLLLQQQQW" <br />plansza$(24) = ".......................____YI____SK_GS_GB5__WM_UUQPPPQQQQU": REM startowa MaX=dU <br />plansza$(25) = ".......................__________NG____________#QQQQWQQQQU" <br />plansza$(26) = "......................._______ZQ_SG____________UUQQQWLLLLU" <br />plansza$(27) = "......................._____________LS_KK1_____##00UUPPPPU" <br /> <br />REM ****************** plansze wiersza roomy=5 <br /> <br />plansza$(28) = "......................._DD____aQ_SS_YS_________ULLLWWWLLL#" <br />plansza$(29) = ".......................________________II4_YI4_#...UUU...#" <br />plansza$(30) = "......................._______aQ_______GL5_YL5_WPPPQUUPPPU" <br />plansza$(31) = ".......................____ML_______YS______UJ_UUQQQLLLQQ#" <br />plansza$(32) = ".......................____YL_______________WJ_UQQQQPPP###" <br />plansza$(33) = ".......................________________KR1_____UU00U000UUU" <br />plansza$(34) = ".......................____OG____SR_YS_________UU0QQQWQQQ#" <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />plansza$(35) = "......................._____________KM_________#00ULLLU0UU" <br />plansza$(36) = ".......................__________SR____MH2_YH2_###UPPPLLL#" <br />plansza$(37) = "......................._______GQ_______________U0QQQQW...#" <br />plansza$(38) = "......................._____________YS_________#LLLU00PPP#" <br />plansza$(39) = ".......................__________MM_________0Q_#PPPWLLLQQ#" <br />plansza$(40) = ".......................________________KO3_YO3_UUUU0PPPUUU" <br />plansza$(41) = "......................._DD_______ZF_MS_________#QQQWQQQ00U" <br /> <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />plansza$(42) = "......................._EJ__________YM_________UUU0LLL####" <br />plansza$(43) = ".......................____SJ____ML____________###U...####" <br />plansza$(44) = "......................._____________KM_________#LLLPPP####" <br />plansza$(45) = ".......................____PH____ZJ____________#PPP000####" <br />plansza$(46) = ".......................__________EE____________#LLL0######" <br />plansza$(47) = "......................._____________GS______0I_UPPPQQQLLL#" <br />plansza$(48) = "......................._LQ_____________________UUUUUUUPPP#" <br /> <br />REM lokalizacja serc <br />REM serca wiersza 1 <br /> <br />serca(1, 1) = 1 <br />serca(4, 1) = 1 <br /> <br />REM serca wiersza 2 <br />serca(2, 2) = 1 <br />serca(6, 2) = 1 <br />serca(7, 2) = 1 <br /> <br />REM serca wiersza 3 <br /> <br />serca(1, 3) = 1 <br />serca(2, 3) = 1 <br />serca(5, 3) = 1 <br />serca(7, 3) = 1 <br /> <br />REM serca wiersza 4 <br />serca(1, 4) = 1 <br />serca(3, 4) = 1 <br />serca(4, 4) = 1 <br />serca(5, 4) = 1 <br />serca(6, 4) = 1 <br /> <br />REM serca wiersza 5 <br /> <br />serca(1, 5) = 1 <br />serca(7, 5) = 1 <br /> <br />REM serca wiersza 6 <br />serca(2, 6) = 1 <br />serca(5, 6) = 1 <br />serca(7, 6) = 1 <br /> <br />REM serca wiersza 7 <br />serca(2, 7) = 1 <br />serca(4, 7) = 1 <br />serca(5, 7) = 1 <br /> <br />END SUB <br /> <br />SUB rysowanie <br /> <br /> <br />FOR yw = 0 TO 10 <br />el$ = MID$(kod$, yw + 48, 1) <br />y16 = yw * 16 <br /> <br />IF el$ = "U" THEN <br />PUT (128, y16), szaretlo4, PSET <br />PUT (0, y16), blok4, PSET <br />PUT (64, y16), blok2, PSET <br />PUT (96, y16), bloks, PSET <br />PUT (112, y16), blokk, PSET <br />PUT (192, y16), blokp, PSET <br />PUT (208, y16), blok4, PSET <br />PUT (272, y16), blok2, PSET <br />PUT (304, y16), bloks, PSET <br />END IF <br /> <br />IF el$ = "L" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />PUT (0, y16), blokk, PSET <br />END IF <br /> <br />IF el$ = "P" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />PUT (304, y16), blokp, PSET <br />END IF <br /> <br />IF el$ = "." THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), szaretlo4, PSET: NEXT xw <br />END IF <br /> <br />IF el$ = "#" THEN <br />FOR xw = 0 TO 4: PUT (xw * 64, y16), blok4, PSET: NEXT xw <br />END IF <br /> <br />IF el$ = "0" THEN <br />PUT (80, y16), szaretlo4, PSET <br />PUT (144, y16), szaretlo4, PSET <br />PUT (208, y16), szaretlo2, PSET <br />PUT (0, y16), blok4, PSET <br />PUT (64, y16), blokk, PSET <br />PUT (240, y16), blokp, PSET <br />PUT (256, y16), blok4, PSET <br />END IF <br /> <br />IF el$ = "W" THEN <br />PUT (32, y16), szaretlo4, PSET <br />PUT (224, y16), szaretlo4, PSET <br />PUT (0, y16), bloks, PSET <br />PUT (16, y16), blokk, PSET <br />PUT (80, y16), blokp, PSET <br />PUT (96, y16), blok4, PSET <br />PUT (160, y16), blok4, PSET <br />PUT (224, y16), blokk, PSET <br />PUT (288, y16), blokp, PSET <br />PUT (304, y16), bloks, PSET <br />END IF <br /> <br />IF el$ = "Q" THEN <br />FOR xw = 0 TO 3: PUT (xw * 64 + 16, y16), szaretlo4, PSET: NEXT xw <br />PUT (272, y16), szaretlo2, PSET <br />PUT (0, y16), blokk, PSET <br />PUT (304, y16), blokp, PSET <br />END IF <br /> <br />NEXT yw <br /> <br />REM rysowanie podestow <br /> <br />REM el$ = MID$(kod$, 45, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO okna <br />REM <br />REM el2$ = MID$(kod$, 46, 1) <br />REM yokna = (ASC(el2$) - 65) * 8 <br />REM IF el$ = "#" THEN PUT (0, yokna), ceg40, PSET <br />REM IF el$ = "W" THEN PUT (0, yokna), ceg4plus20plus4, PSET <br />REM IF el$ = "U" THEN PUT (0, yokna), ceg17plus17, PSET <br />REM IF el$ = "0" THEN PUT (0, yokna), ceg13plus13, PSET <br /> <br />okna: <br /> <br />REM rysowanie okien <br /> <br />REM el$ = MID$(kod$, 25, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO oknonz <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 26, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), window2, PSET <br /> <br /> <br />oknonz: <br />REM okno niebiesko-zielone <br /> <br />REM el$ = MID$(kod$, 28, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO oknoziel <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 29, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), window1, PSET <br /> <br />oknoziel: <br />REM okno zielone <br />REM <br />REM el$ = MID$(kod$, 31, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO serce <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 32, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), window3, PSET <br /> <br /> <br />serce: <br />REM serce <br />xserca = -20 <br />yokna = -20 <br />IF serca(roomx, roomy) = 0 THEN GOTO donica <br />el$ = MID$(kod$, 34, 1) <br />IF el$ = "" OR el$ = "_" THEN GOTO donica <br />xokna = (ASC(el$) - 65) * 8 <br />el$ = MID$(kod$, 35, 1) <br />yokna = (ASC(el$) - 65) * 8 <br /> GET (xokna + 8, yokna + 8)-(xokna + 15 + 8, yokna + 7 + 8), tlo <br />COLOR 5: LOCATE yokna / 8, xokna / 8: PRINT CHR$(3); <br /> xserca = xokna - 8 <br /> yserca = yokna - 8 <br /> <br /> <br />donica: <br />REM el$ = MID$(kod$, 37, 1) <br />REM IF el$ = "" OR el$ = "_" THEN GOTO koniecrysowania <br />REM xokna = (ASC(el$) - 65) * 8 <br />REM el$ = MID$(kod$, 38, 1) <br />REM yokna = (ASC(el$) - 65) * 8 <br />REM PUT (xokna, yokna), palma, PSET <br /> <br /> <br />koniecrysowania: <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br /> <br />END SUB <br /> <br />SUB zabranie <br />DEF SEG = 0 <br />REM wlaczene zegara <br />OUT 67, 182 <br /> <br />REM odczytanie wartosci portu 97 <br />stary.port = INP(97) <br /> <br /> <br />REM ustawienie wartosci "1" dla bitow 1 i 0 <br />nowy.port = (stary.port OR 3) <br /> <br />REM wlaczenie glosnika <br />OUT 97, nowy.port <br /> <br />REM najpierw mlodszy potem starszy bajt <br /> <br />t0 = PEEK(1132) <br /> <br />OUT 66, 32: OUT 66, 3 <br />FOR i = 1 TO 3000: NEXT i <br /> <br />OUT 66, 204: OUT 66, 4 <br />FOR i = 1 TO 3000: NEXT i <br /> <br /> <br />t1 = PEEK(1132) <br />REM wylaczenie glosnika <br />OUT 97, stary.port <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> </table>
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj