Życie Wieczne
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum Życie Wieczne Strona Główna
->
Offtopic
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
----------------
Ogólna dyskusja
Kościół rzymsko katolicki
Biblia
Objawienia
Własne przemyślenia
Inne religie i ateizm
Nasza twórczość
Offtopic
Przegląd tematu
<table border="0" cellpadding="3" cellspacing="1" width="100%" class="forumline"> <tr> <th class="thCornerL" width="22%" height="26">Autor</th> <th class="thCornerR">Wiadomość</th> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 20:58, 16 Sty 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 animacja () <br />DECLARE SUB rysowanie () <br />DECLARE SUB palety () <br />DECLARE SUB plansze () <br />DECLARE SUB cegly () <br /> <br />DIM SHARED pomoc$(0 TO 23) <br />DIM pamiec(0 TO 72) AS LONG <br />DIM SHARED plansza$(0 TO 48) <br />DIM SHARED kod$ <br /> <br />REM cegielki planszy <br /> <br />DIM SHARED cegla(0 TO 16) AS LONG <br />DIM SHARED tlo(0 TO 16) AS LONG <br /> <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 ceg4spc32plus4(0 TO 640) AS LONG <br />DIM SHARED ceg1spc38ceg1(0 TO 640) AS LONG <br />DIM SHARED ceg1spc39(0 TO 640) AS LONG <br />DIM SHARED spc39ceg1(0 TO 640) AS LONG <br />DIM SHARED spc40(0 TO 640) AS LONG <br /> <br />REM ****************** DANE ANIMACJI <br /> <br />DIM SHARED znakp1(0 TO 72) AS LONG <br />DIM SHARED znakl1(0 TO 72) AS LONG <br />DIM SHARED znakp2(0 TO 72) AS LONG <br />DIM SHARED znakl2(0 TO 72) AS LONG <br />DIM SHARED znakp3(0 TO 72) AS LONG <br />DIM SHARED znakl3(0 TO 72) AS LONG <br />DIM SHARED vertd1(0 TO 72) AS LONG <br /> <br />REM przykladowa <br />REM DIM zmienna(0 TO 72) AS LONG <br />REM zmienna(0) = &H180060 <br />REM zmienna(1) = &HF0F0F0F <br />REM zmienna(2) = &HF0F0F0F <br />REM zmienna(3) = &HF0F0F0F <br /> <br />REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />DEF SEG = 0: REM - to dla pomiaru predkosci <br /> <br />x = 100: y = 80: xs = 100: ys = 80: 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 />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 />REM SUB rysowanie - rysowanie planszy <br />rysowanie <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): LOCATE 24, 10: PRINT "--"; t0; t1; "--"; <br />PRINT "Room:"; roomx; roomy; "--"; <br /> <br /> <br />REM **************** ustawienie gracza na planszy <br />GET (x, y)-(x + 11, y + 23), pamiec <br />PUT (x, y), vertd1, PSET <br /> <br />COLOR 15 <br />LOCATE 25, 10: PRINT "L-SHIFT CTRL P-SHIFT"; <br /> <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <br /> <br />dx = 0: dy = 0 <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 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br />FOR delay = 1 TO 450: 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 = 1: 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 = 1: obrot = -1: vert = 0 <br />IF pshift = 1 THEN dx = 4: dy = 1: 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 > 305 THEN x = 4: xs = 4: roomx = roomx + 1: GOTO rysuj <br />IF x + dx < 2 THEN x = 305: xs = 305: roomx = roomx - 1: GOTO rysuj <br />IF y + dy > 158 THEN y = 4: ys = 4: roomy = roomy + 1: GOTO rysuj <br />IF y + dy < 2 THEN y = 156: ys = 156: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br />REM sprawdzenie przeszkody. Przeszkoda sa punkty powyzej <br />REM okreslonej sumy rejestru koloru >=128 <br /> <br />xsuma = 0 <br />ysuma = 0 <br />xmozliwy = 0 <br />ymozliwy = 0 <br /> <br />REM sprawdzenie sasiedztwa obok <br />IF dx > 0 THEN FOR i = 0 TO 23: xsuma = xsuma + POINT(x + 15, y + i): NEXT i <br />IF dx < 0 THEN FOR i = 0 TO 23: xsuma = xsuma + POINT(x - 3, y + i): NEXT i <br />IF xsuma < 128 THEN xmozliwy = 1 <br /> <br />REM sprawdzenie sasiedztwa gora dol <br />IF dy > 0 THEN FOR i = 0 TO 11: ysuma = ysuma + POINT(x + i, y + 26): NEXT i <br />IF dy < 0 THEN FOR i = 0 TO 11: ysuma = ysuma + POINT(x + i, y - 4): NEXT i <br />IF ysuma < 128 THEN ymozliwy = 1 <br />suma = xsuma + ysuma <br />IF suma < 128 THEN IF dx <> 0 OR dy <> 0 THEN GOTO ruch <br /> <br /> <br />REM szczegolne przypadki <br />IF suma >= 128 AND xmozliwy = 1 THEN dy = 0: GOTO czy <br />IF suma >= 128 AND ymozliwy = 1 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 vert = 0 THEN SOUND 100, .025: SOUND 30000, .025 <br />REM ************* kasowanie starej postaci, otworzenie tego, jest za nia <br /> <br />PUT (xs, ys), pamiec, PSET <br />GET (x, y)-(x + 11, y + 23), pamiec <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 PUT (x, y), vertd1, OR <br />bezskosu: <br />REM ************************** ruch w lewo <br /> <br /> IF obrot = -1 THEN <br /> PRZEBIERANIE = PRZEBIERANIE + 1 <br /> IF PRZEBIERANIE = 3 THEN PRZEBIERANIE = 0 <br /> IF PRZEBIERANIE = 0 THEN PUT (x, y), znakl1, OR <br /> IF PRZEBIERANIE = 1 THEN PUT (x, y), znakl2, OR <br /> IF PRZEBIERANIE = 2 THEN PUT (x, y), znakl3, OR <br /> END IF <br /> <br />REM ****************** ruch w prawo <br /> <br />IF obrot = 1 THEN <br /> PRZEBIERANIE = PRZEBIERANIE + 1 <br /> IF PRZEBIERANIE = 3 THEN PRZEBIERANIE = 0 <br /> IF PRZEBIERANIE = 0 THEN PUT (x, y), znakp1, OR <br /> IF PRZEBIERANIE = 1 THEN PUT (x, y), znakp2, OR <br /> IF PRZEBIERANIE = 2 THEN PUT (x, y), znakp3, OR <br />END IF <br /> <br />xs = x: ys = y <br /> <br />GOTO petla <br /> <br />SUB animacja <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br /> <br />REM ************************* ruch poziomy FAZA 1 <br /> <br />znakp1(0) = &H180060 <br />znakl1(0) = &H180060 <br /> <br />pomoc$(0) = "0F000000080808080000000F" + "0F000000080808080000000F" <br />pomoc$(1) = "000000000F0F080800000000" + "0000000008080F0F00000000" <br />pomoc$(2) = "000000000F0F0F0800000000" + "00000000080F0F0F00000000" <br />pomoc$(3) = "000000000F0F0F0800000000" + "00000000080F0F0F00000000" <br />pomoc$(4) = "00000000000F0F0000000000" + "00000000000F0F0000000000" <br />pomoc$(5) = "00000000000C0C0C00000000" + "000000000C0C0C0000000000" <br />pomoc$(6) = "00000000000C0C0C00000000" + "000000000C0C0C0000000000" <br />pomoc$(7) = "000000000C0C0C0C0C000000" + "0000000C0C0C0C0C00000000" <br />pomoc$(8) = "0000000C0C0C0C0C0C000000" + "0000000C0C0C0C0C0C000000" <br />pomoc$(9) = "00000C0C000C0C0C0C000000" + "0000000C0C0C0C000C0C0000" <br />pomoc$(10) = "00000C0C000C0C0C0C000000" + "0000000C0C0C0C000C0C0000" <br />pomoc$(11) = "000C0C00000C0C0C0C000000" + "0000000C0C0C0C00000C0C00" <br />pomoc$(12) = "000F0F00000808080F000000" + "0000000F08080800000F0F00" <br />pomoc$(13) = "00000000000B0B0B0B000000" + "0000000B0B0B0B0000000000" <br />pomoc$(14) = "00000000000B0B0B0B000000" + "0000000B0B0B0B0000000000" <br />pomoc$(15) = "000000000B0B0B0B0B000000" + "0000000B0B0B0B0B00000000" <br />pomoc$(16) = "0000000B0B00000B0B000000" + "0000000B0B00000B0B000000" <br />pomoc$(17) = "0000000B0B00000B0B000000" + "0000000B0B00000B0B000000" <br />pomoc$(18) = "0000000B0B00000B0B000000" + "0000000B0B00000B0B000000" <br />pomoc$(19) = "000000000B0B00000B0B0000" + "00000B0B00000B0B00000000" <br />pomoc$(20) = "000000000B0B00000B0B0000" + "00000B0B00000B0B00000000" <br />pomoc$(21) = "000000000B0B00000B0B0000" + "00000B0B00000B0B00000000" <br />pomoc$(22) = "000000000B0B000707070000" + "0000070707000B0B00000000" <br />pomoc$(23) = "000000070707000000000000" + "000000000000070707000000" <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br /> <br />FOR i = 0 TO 23 <br />znakp1(i * 3 + 3) = VAL("&H" + MID$(pomoc$(i), 1, 8)) <br />znakp1(i * 3 + 2) = VAL("&H" + MID$(pomoc$(i), 9, 8)) <br />znakp1(i * 3 + 1) = VAL("&H" + MID$(pomoc$(i), 17, 8)) <br /> <br />znakl1(i * 3 + 3) = VAL("&H" + MID$(pomoc$(i), 25, 8)) <br />znakl1(i * 3 + 2) = VAL("&H" + MID$(pomoc$(i), 33, 8)) <br />znakl1(i * 3 + 1) = VAL("&H" + MID$(pomoc$(i), 41, 8)) <br />NEXT i <br /> <br />REM ************************************ FAZA 2 <br /> <br />znakp2(0) = &H180060 <br />znakl2(0) = &H180060 <br /> <br />pomoc$(0) = "000000000808080800000000" + "000000000808080800000000" <br />pomoc$(1) = "000000000F0F080800000000" + "0000000008080F0F00000000" <br />pomoc$(2) = "000000000F0F0F0800000000" + "00000000080F0F0F00000000" <br />pomoc$(3) = "000000000F0F0F0F00000000" + "00000000080F0F0F00000000" <br />pomoc$(4) = "00000000000F0F0000000000" + "00000000000F0F0000000000" <br />pomoc$(5) = "00000000000C0C0C00000000" + "000000000C0C0C0000000000" <br />pomoc$(6) = "00000000000C0C0C00000000" + "000000000C0C0C0000000000" <br />pomoc$(7) = "000000000C0C0C0C0C000000" + "0000000C0C0C0C0C00000000" <br />pomoc$(8) = "0000000C0C0C0C0C0C000000" + "0000000C0C0C0C0C0C000000" <br />pomoc$(9) = "0000000C0C0C0C0C0C000000" + "0000000C0C0C0C0C0C000000" <br />pomoc$(10) = "00000C0C000C0C0C0C000000" + "0000000C0C0C0C000C0C0000" <br />pomoc$(11) = "00000C0C000C0C0C0C000000" + "0000000C0C0C0C000C0C0000" <br />pomoc$(12) = "00000F0F000808080F000000" + "0000000F080808000F0F0000" <br />pomoc$(13) = "00000000000B0B0B0B000000" + "0000000B0B0B0B0000000000" <br />pomoc$(14) = "00000000000B0B0B0B000000" + "0000000B0B0B0B0000000000" <br />pomoc$(15) = "000000000B0B0B0B00000000" + "000000000B0B0B0B00000000" <br />pomoc$(16) = "0000000B0B0B0B0B00000000" + "000000000B0B0B0B0B000000" <br />pomoc$(17) = "0000000B0B000B0B00000000" + "000000000B0B000B0B000000" <br />pomoc$(18) = "000000000B0B0B0B00000000" + "000000000B0B0B0B00000000" <br />pomoc$(19) = "00000000000B0B0B07000000" + "000000070B0B0B0000000000" <br />pomoc$(20) = "0000000000000B0B07070000" + "000007070B0B000000000000" <br />pomoc$(21) = "0000000000000B0B00000700" + "000700000B0B000000000000" <br />pomoc$(22) = "0000000000000B0B00000000" + "000000000B0B000000000000" <br />pomoc$(23) = "000000000707070700000000" + "000000000707070700000000" <br /> <br /> <br />FOR i = 0 TO 23 <br />znakp2(i * 3 + 3) = VAL("&H" + MID$(pomoc$(i), 1, 8)) <br />znakp2(i * 3 + 2) = VAL("&H" + MID$(pomoc$(i), 9, 8)) <br />znakp2(i * 3 + 1) = VAL("&H" + MID$(pomoc$(i), 17, 8)) <br /> <br />znakl2(i * 3 + 3) = VAL("&H" + MID$(pomoc$(i), 25, 8)) <br />znakl2(i * 3 + 2) = VAL("&H" + MID$(pomoc$(i), 33, 8)) <br />znakl2(i * 3 + 1) = VAL("&H" + MID$(pomoc$(i), 41, 8)) <br />NEXT i <br /> <br /> <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br /> znakp3(0) = &H180060 <br /> znakl3(0) = &H180060 <br /> <br />pomoc$(0) = "000000000808080800000000" + "000000000808080800000000" <br />pomoc$(1) = "000000000F0F080800000000" + "0000000008080F0F00000000" <br />pomoc$(2) = "000000000F0F0F0800000000" + "00000000080F0F0F00000000" <br />pomoc$(3) = "000000000F0F0F0F00000000" + "000000000F0F0F0F00000000" <br />pomoc$(4) = "00000000000F0F0000000000" + "00000000000F0F0000000000" <br />pomoc$(5) = "00000000000C0C0C00000000" + "000000000C0C0C0000000000" <br />pomoc$(6) = "00000000000C0C0C00000000" + "000000000C0C0C0000000000" <br />pomoc$(7) = "000000000C0C0C0C00000000" + "000000000C0C0C0C00000000" <br />pomoc$(8) = "0000000C0C0C0C0C0C000000" + "0000000C0C0C0C0C0C000000" <br />pomoc$(9) = "0000000C0C0C0C0C0C000000" + "0000000C0C0C0C0C0C0C0000" <br />pomoc$(10) = "00000C0C0C0C0C0C0C000000" + "0000000C0C0C0C0C0C0C0000" <br />pomoc$(11) = "00000C0C000C0C0C0C000000" + "0000000C0C0C0C000C0C0000" <br />pomoc$(12) = "00000F0F000808080F000000" + "0000000F080808000F0F0000" <br />pomoc$(13) = "00000000000B0B0B0B000000" + "0000000B0B0B0B0000000000" <br />pomoc$(14) = "00000000000B0B0B0B000000" + "0000000B0B0B0B0000000000" <br />pomoc$(15) = "00000000000B0B0B00000000" + "000000000B0B0B0000000000" <br />pomoc$(16) = "000000000B0B0B0B00000000" + "000000000B0B0B0B00000000" <br />pomoc$(17) = "0000000B0B000B0B00000000" + "000000000B0B000B0B000000" <br />pomoc$(18) = "0000000B0B000B0B00000000" + "000000000B0B000B0B000000" <br />pomoc$(19) = "000000000B0B0B0B00000000" + "000000000B0B0B0B00000000" <br />pomoc$(20) = "0000000007070B0B0B000000" + "0000000B0B0B070700000000" <br />pomoc$(21) = "000000070700000B0B000000" + "0000000B0B00000707000000" <br />pomoc$(22) = "000000000000000B0B000000" + "0000000B0B00000000000000" <br />pomoc$(23) = "000000000007070707000000" + "000000070707070000000000" <br /> <br /> <br />FOR i = 0 TO 23 <br />znakp3(i * 3 + 3) = VAL("&H" + MID$(pomoc$(i), 1, 8)) <br />znakp3(i * 3 + 2) = VAL("&H" + MID$(pomoc$(i), 9, 8)) <br />znakp3(i * 3 + 1) = VAL("&H" + MID$(pomoc$(i), 17, 8)) <br /> <br />znakl3(i * 3 + 3) = VAL("&H" + MID$(pomoc$(i), 25, 8)) <br />znakl3(i * 3 + 2) = VAL("&H" + MID$(pomoc$(i), 33, 8)) <br />znakl3(i * 3 + 1) = VAL("&H" + MID$(pomoc$(i), 41, 8)) <br />NEXT i <br /> <br /> <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br /> vertd1(0) = &H180060 <br /> <br />pomoc$(0) = "000000000808080800000000" <br />pomoc$(1) = "000000000F0F0F0F00000000" <br />pomoc$(2) = "000000000F0F0F0F00000000" <br />pomoc$(3) = "000000000F0F0F0F00000000" <br />pomoc$(4) = "00000000000F0F0000000000" <br />pomoc$(5) = "0000000C0C0C0C0C0C000000" <br />pomoc$(6) = "000C0C0C0C0C0C0C0C0C0C00" <br />pomoc$(7) = "000C0C0C0C0C0C0C0C0C0C00" <br />pomoc$(8) = "0C0C0C0C0C0C0C0C0C0C0C0C" <br />pomoc$(9) = "0C0C0C0C0C0C0C0C0C0C0C0C" <br />pomoc$(10) = "0C0C000C0C0C0C0C0C000C0C" <br />pomoc$(11) = "0C0C000C0C0C0C0C0C000C0C" <br />pomoc$(12) = "0F0F00080808080808000F0F" <br />pomoc$(13) = "0000000B0B0B0B0B0B000000" <br />pomoc$(14) = "0000000B0B0B0B0B0B000000" <br />pomoc$(15) = "0000000B0B0B0B0B0B000000" <br />pomoc$(16) = "0000000B0B00000B0B000000" <br />pomoc$(17) = "0000000B0B00000B0B000000" <br />pomoc$(18) = "0000000B0B00000B0B000000" <br />pomoc$(19) = "0000000B0B00000B0B000000" <br />pomoc$(20) = "0000000B0B00000B0B000000" <br />pomoc$(21) = "0000000B0B00000B0B000000" <br />pomoc$(22) = "000000070700000707000000" <br />pomoc$(23) = "000707070700000707070700" <br /> <br /> <br />FOR i = 0 TO 23 <br />vertd1(i * 3 + 3) = VAL("&H" + MID$(pomoc$(i), 1, 8)) <br />vertd1(i * 3 + 2) = VAL("&H" + MID$(pomoc$(i), 9, 8)) <br />vertd1(i * 3 + 1) = VAL("&H" + MID$(pomoc$(i), 17, 8)) <br />NEXT i <br /> <br /> <br />END SUB <br /> <br />SUB cegly <br /> <br />cegla(0) = &H80040 <br /> <br />pomoc$(0) = "8181818181818281" <br />pomoc$(1) = "8181818181818281" <br />pomoc$(2) = "8181818181818281" <br />pomoc$(3) = "8282828282828282" <br />pomoc$(4) = "8182818181818181" <br />pomoc$(5) = "8182818181818181" <br />pomoc$(6) = "8182818181818181" <br />pomoc$(7) = "8282828282828282" <br /> <br />FOR i = 0 TO 7: <br />cegla((i + 1) * 2) = VAL("&H" + MID$(pomoc$(i), 1, 8)) <br />cegla((i + 1) * 2 - 1) = VAL("&H" + MID$(pomoc$(i), 9, 8)) <br />NEXT i <br /> <br />REM komorka tla <br /> <br />tlo(0) = &H80040 <br /> <br />pomoc$(0) = "0000010101000000" <br />pomoc$(1) = "0001010001010000" <br />pomoc$(2) = "0101000000010100" <br />pomoc$(3) = "0100000000000101" <br />pomoc$(4) = "0101000000010100" <br />pomoc$(5) = "0001010001010000" <br />pomoc$(6) = "0000010101000000" <br />pomoc$(7) = "0000000100000000" <br /> <br />FOR i = 0 TO 7: <br />tlo((i + 1) * 2) = VAL("&H" + MID$(pomoc$(i), 1, 8)) <br />tlo((i + 1) * 2 - 1) = VAL("&H" + MID$(pomoc$(i), 9, 8)) <br />NEXT i <br /> <br /> <br /> <br />FOR x = 0 TO 39 <br />FOR y = 0 TO 10 <br />PUT (x * 8, y * 8), tlo, PSET <br />NEXT y <br />NEXT x <br /> <br />FOR i = 0 TO 39 <br />PUT (i * 8, 0), cegla, PSET <br />NEXT i <br /> <br />GET (0, 0)-(319, 7), ceg40 <br /> <br />FOR i = 0 TO 16 <br />PUT (i * 8, 8), cegla, PSET <br />PUT (312 - i * 8, 8), cegla, PSET <br />NEXT i <br /> <br />GET (0, 8)-(319, 15), ceg17plus17 <br /> <br />FOR i = 0 TO 12 <br />PUT (i * 8, 16), cegla, PSET <br />PUT (312 - i * 8, 16), cegla, PSET <br />NEXT i <br /> <br />GET (0, 16)-(319, 23), ceg13plus13 <br /> <br />FOR i = 0 TO 3 <br />PUT (i * 8, 24), cegla, PSET <br />PUT (312 - i * 8, 24), cegla, PSET <br />NEXT i <br />FOR i = 0 TO 19 <br />PUT (i * 8 + 80, 24), cegla, PSET <br />NEXT i <br />GET (0, 24)-(319, 31), ceg4plus20plus4 <br /> <br />FOR i = 0 TO 3 <br />PUT (i * 8, 32), cegla, PSET <br />PUT (312 - i * 8, 32), cegla, PSET <br />NEXT i <br />GET (0, 32)-(319, 39), ceg4spc32plus4 <br /> <br />PUT (0, 40), cegla, PSET <br />PUT (8, 40), cegla, PSET <br />PUT (304, 40), cegla, PSET <br />PUT (312, 40), cegla, PSET <br />GET (0, 40)-(319, 47), ceg1spc38ceg1 <br /> <br />PUT (0, 48), cegla, PSET <br />PUT (8, 48), cegla, PSET <br />GET (0, 48)-(319, 55), ceg1spc39 <br /> <br />PUT (304, 56), cegla, PSET <br />PUT (312, 56), cegla, PSET <br />GET (0, 56)-(319, 63), spc39ceg1 <br /> <br />GET (0, 64)-(319, 71), spc40 <br /> <br /> <br />END SUB <br /> <br />SUB palety <br /> <br />REM ****************** Ustawienie wlasnej wartosci barw <br />REM **************** kolejno, blue green red, kazdy max=6 <br />REM rejestry tla <br />PALETTE 0, 10 * 65536 + 10 * 256 + 10 <br />PALETTE 1, 9 * 65536 + 9 * 256 + 9 <br />REM rejestry gracza takze po zsumowaniu z tlem <br />PALETTE 13, 0 * 65536 + 0 * 256 + 48: REM sweter <br />PALETTE 12, 0 * 65536 + 0 * 256 + 48: REM sweter <br />REM rejestry przeszkod <br />PALETTE 129, 27 * 65536 + 27 * 256 + 27: REM cegly <br />PALETTE 130, 34 * 65536 + 34 * 256 + 34: REM fugi <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 ************ plansze wiersza roomy=1 <br /> <br />plansza$(0) = "##LLLHHUHHHHHHUHHHLLLUU" <br />plansza$(1) = "##...UUUHHHHHWHHHHPPP##" <br />plansza$(2) = "##PPPHHUHUHHHWHWHHHHHUU" <br />plansza$(3) = "##QQHLLLHHHHHHHWWHHQQ##" <br />plansza$(4) = "##HHHPPPHHHUUHHHUUHHHUU" <br />plansza$(5) = "##LLLHHHMWWWWWWWWWHHHUU" <br />plansza$(6) = "##PPPHWWHHH0HHHWHHH00UU" <br /> <br />REM ************ plansze wiersza roomy=2 <br /> <br />plansza$(7) = "UHHHWWWHHHLLLHUHHHHHH##" <br />plansza$(8) = "#HHHHHHHHH...WWWHHHHH##" <br />plansza$(9) = "UUHHHWHHHWPPPHUUUUHHHUU" <br />plansza$(10) = "###WWWLLLHHHWWWHHHHHWWW" <br />plansza$(11) = "UUQQHHPPPHHHUHHHWWHHH##" <br />plansza$(12) = "UUHHHHHHHHH00HHHHHHH###" <br />plansza$(13) = "UUUUUUUUUHHHHHUUUUUUUUU" <br /> <br />REM ************* plansze wiersza roomy=3 <br /> <br />plansza$(14) = "####HHHHHMWMHHHVUVHHHWW" <br />plansza$(15) = "#HHHHWHHHWWHLLLHHHHHHHW" <br />plansza$(16) = "UU000000000.....00000##" <br />plansza$(17) = "WWWWWWWWWWWPPPPPUUUUUUU" <br />plansza$(18) = "#HHHHHHHHHHHHMWWMHHHHWW" <br />plansza$(19) = "##000HHHHUUULLLH000HHUU" <br />plansza$(20) = "UU00HHHWHHHUPPPH000UUUU" <br /> <br />REM ************ plansze wiersza roomy=4 <br /> <br />plansza$(21) = "WWWHHHWWWWLLLUUUUUUUUUU" <br />plansza$(22) = "WHHHHHWWHHPPPHWWHHWWH##" <br />plansza$(23) = "##00HHHLLLHHHHHHHHHWWWW" <br />plansza$(24) = "UUUUQQQPPPQQQWQQQUUUUUU": REM startowa <br />plansza$(25) = "##HHHWWHHHWWWHHHUUUUUUU" <br />plansza$(26) = "UUUVHHHHWWWWHHHWWHHHUUU" <br />plansza$(27) = "UUUUUUUUUUUUUUUUUUUUUUU" <br /> <br />REM ****************** plansze wiersza roomy=5 <br /> <br />plansza$(28) = "UULLLHHHWWWWWHHHHHLLL##" <br />plansza$(29) = "##...#############...##" <br />plansza$(30) = "WWPPPHHHHUUUUUUHHHPPPUU" <br />plansza$(31) = "UUUUHHHUUUHLLLHWWHHHH##" <br />plansza$(32) = "UHHHHWWHHHHPPP#########" <br />plansza$(33) = "UUUU0000UUUU0000UUUUUUU" <br />plansza$(34) = "UUUU0000HHHWHHH0000####" <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />plansza$(35) = "###00000UUUULLLUUU00UUU" <br />plansza$(36) = "#######UUUUUPPPHWLLL###" <br />plansza$(37) = "UU000HHHWWHHHUU00...HH#" <br />plansza$(38) = "##LLLUU00000000UUPPP###" <br />plansza$(39) = "##PPPHWWLLLWHHH000HH###" <br />plansza$(40) = "UUUUUU00PPP0UUUUUUUUUUU" <br />plansza$(41) = "##HHHWWH000000000000UUU" <br /> <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />plansza$(42) = "UUUUUU00LLL0###########" <br />plansza$(43) = "######UU...U###########" <br />plansza$(44) = "####LLL0PPP############" <br />plansza$(45) = "####PPP000#############" <br />plansza$(46) = "##LLLU0000#############" <br />plansza$(47) = "UUPPPH00HH000HHHWWLLL##" <br />plansza$(48) = "UUUUUUUUUUUUUUUUUUPPP##" <br /> <br /> <br />END SUB <br /> <br />SUB rysowanie <br /> <br />COLOR 2 <br /> <br />LOCATE 1, 1 <br />FOR i = 0 TO 22 <br />el$ = MID$(kod$, i + 1, 1) <br /> REM PRINT wiersz$(ASC(el$)) <br />IF el$ = "#" THEN PUT (0, i * 8), ceg40, PSET <br />IF el$ = "U" THEN PUT (0, i * 8), ceg17plus17, PSET <br />IF el$ = "0" THEN PUT (0, i * 8), ceg13plus13, PSET <br />IF el$ = "W" THEN PUT (0, i * 8), ceg4plus20plus4, PSET <br />IF el$ = "Q" THEN PUT (0, i * 8), ceg4spc32plus4, PSET <br />IF el$ = "H" THEN PUT (0, i * 8), ceg1spc38ceg1, PSET <br />IF el$ = "L" THEN PUT (0, i * 8), ceg1spc39, PSET <br />IF el$ = "P" THEN PUT (0, i * 8), spc39ceg1, PSET <br />IF el$ = "." THEN PUT (0, i * 8), spc40, PSET <br />NEXT i <br /> <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Śro 12:16, 13 Sty 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />DEF SEG = 0 <br /> <br />DIM cegla(0 TO 16) AS LONG <br />DIM dwiecegly(0 TO 32) AS LONG <br />DIM czterycegly(0 TO 64) AS LONG <br />DIM osiemcegiel(0 TO 128) AS LONG <br />DIM szesnasciecegiel(0 TO 256) AS LONG <br />DIM czterdziescicegiel(0 TO 640) AS LONG <br />DIM osiemdziesiatcegiel(0 TO 1280) AS LONG <br /> <br />cegla(0) = &H80040 <br /> <br />FOR i = 1 TO 8: READ a1$, a2$ <br />cegla(i * 2) = VAL("&H" + a1$) <br />cegla(i * 2 - 1) = VAL("&H" + a2$) <br />NEXT i <br /> <br />DATA "00000000","00000000" <br />DATA "01010101","00010101" <br />DATA "01010101","00010101" <br />DATA "01010101","00010101" <br />DATA "00000000","00000000" <br />DATA "00010101","01010101" <br />DATA "00010101","01010101" <br />DATA "00010101","01010101" <br /> <br />PUT (0, 0), cegla, PSET <br />PUT (8, 0), cegla, PSET <br /> <br />GET (0, 0)-(15, 7), dwiecegly <br />PUT (16, 0), dwiecegly, PSET <br /> <br />GET (0, 0)-(31, 7), czterycegly <br />PUT (32, 0), czterycegly, PSET <br /> <br />GET (0, 0)-(63, 7), osiemcegiel <br />PUT (64, 0), osiemcegiel, PSET <br /> <br />GET (0, 0)-(127, 7), szesnasciecegiel <br />PUT (128, 0), szesnasciecegiel, PSET <br />PUT (256, 0), osiemcegiel, PSET <br />GET (0, 0)-(319, 7), czterdziescicegiel <br /> <br />PUT (0, 8), czterdziescicegiel, PSET <br />GET (0, 0)-(319, 15), osiemdziesiatcegiel <br /> <br /> <br /> <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** (roomy-1)*7+(roomx-1) <br /> <br />DIM plansza$(0 TO 48) <br /> <br />REM ************ plansze wiersza roomy=1 <br /> <br />plansza$(0) = "#LL0HHHUHHHHHHU3333WLLU" <br />plansza$(1) = "#..UUUUU44444WHHHHHUPP#" <br />plansza$(2) = "#PPHHHHUHUHHHWHWHHHUHHU" <br />plansza$(3) = "##QQHHLLHHHHHHHWWHHQQ##" <br />plansza$(4) = "#HHHHPPHHHHUUHHHHUUUHHU" <br />plansza$(5) = "##LL0HHHWWWWWWWWWWWHHHU" <br />plansza$(6) = "##PPHHWWHH00HHHWWHH00UU" <br /> <br />REM ************ plansze wiersza roomy=2 <br /> <br />plansza$(7) = "UHHWWWWWHHLLHHUHHHHUHH#" <br />plansza$(8) = "#HHHHHHHHH..HWHWHWHWHH#" <br />plansza$(9) = "UU33W3333WPPHHUUUUUHHHU" <br />plansza$(10) = "###WWWLLHHHWWWWHHHHHWWW" <br />plansza$(11) = "UUQQHHPPHHHHU44WWHHHHH#" <br />plansza$(12) = "UUHHHHHHHHH00HHHHHHHH##" <br />plansza$(13) = "UUUUUUUUUHHHHHUUUUUUUUU" <br /> <br />REM ************* plansze wiersza roomy=3 <br /> <br />plansza$(14) = "####HHHHHHWHHHHHHUUHHHW" <br />plansza$(15) = "#HHHHW444WWHHLLHHHHHHHW" <br />plansza$(16) = "UU00000000000..000000##" <br />plansza$(17) = "WWWWWWWWWWWWWPP########" <br />plansza$(18) = "#3333333333333WWHHHHHHW" <br />plansza$(19) = "##0004444UUULL33000HHUU" <br />plansza$(20) = "UU00HHWWHHUUPPHH000UUUU" <br /> <br />REM ************ plansze wiersza roomy=4 <br /> <br />plansza$(21) = "WWWHHHWWWWLLUUUUUUUUUUU" <br />plansza$(22) = "W33333WWHHZZHHWW44WWHH#" <br />plansza$(23) = "##00HHHLLHHW44WHHHWWWWW" <br />plansza$(24) = "###QQQQXXQQQQWWQQUUUUUU": REM startowa <br />plansza$(25) = "#HHWWWW3333WWHHUUUUUUUU" <br />plansza$(26) = "UUUUHHHHWWWWHHHWWWHHUUU" <br />plansza$(27) = "UUUUUUUUUUUUUUUUUUUUUUU" <br /> <br />REM ****************** plansze wiersza roomy=5 <br /> <br />plansza$(28) = "UULLHHHHWWWWWHHHHHHLLH#" <br />plansza$(29) = "##..###############..##" <br />plansza$(30) = "WHPPHHHHHUUUUUHHHHHPPUU" <br />plansza$(31) = "UUUHHHHUUHHHLLHWWHHHHH#" <br />plansza$(32) = "U3333WWHHHHHPP#########" <br />plansza$(33) = "UUUU0000UUUU0000UUUUUUU" <br />plansza$(34) = "UUUU0000HHHWHHH0000####" <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />plansza$(35) = "##000000UUUULLUUUU00UUU" <br />plansza$(36) = "#######UUUUUPPHHWWLL###" <br />plansza$(37) = "UU000HHWWHHUUU0000..HH#" <br />plansza$(38) = "##LLUUU00000000UUUPP###" <br />plansza$(39) = "##PPHHWWLLWWHHH000HH###" <br />plansza$(40) = "UUUUUU00ZZ00UUUUUUUUUUU" <br />plansza$(41) = "##HHWWHH000000000000UUU" <br /> <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />plansza$(42) = "UUUUUU00LL00###########" <br />plansza$(43) = "######UU..UU###########" <br />plansza$(44) = "####LL00PP#############" <br />plansza$(45) = "####PP0000#############" <br />plansza$(46) = "##LLUU0000#############" <br />plansza$(47) = "UUPPHH00HH00000HHWWLL##" <br />plansza$(48) = "UUUUUUUUUUUUUUUUUUUPP##" <br /> <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br /> <br />DIM ZNAKP1(0 TO 32) AS LONG <br />DIM ZNAKL1(0 TO 32) AS LONG <br />DIM ZNAKP2(0 TO 32) AS LONG <br />DIM ZNAKL2(0 TO 32) AS LONG <br />DIM ZNAKP3(0 TO 32) AS LONG <br />DIM ZNAKL3(0 TO 32) AS LONG <br /> <br />REM ************************* ruch poziomy FAZA 1 <br /> <br />ZNAKP1(0) = &H100040 <br />ZNAKL1(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />ZNAKP1(i * 2) = VAL("&H" + a1$) <br />ZNAKP1(i * 2 - 1) = VAL("&H" + a2$) <br />ZNAKL1(i * 2) = VAL("&H" + a3$) <br />ZNAKL1(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","08000000","00000008","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B00","000B0000","00000B00","000B0000" <br />DATA "00000B00","000B0000","00000B00","000B0000" <br />DATA "0000000B","00000B00","000B0000","0B000000" <br />DATA "0000000B","00070707","07070700","0B000000" <br />DATA "00000707","00000000","00000000","07070000" <br /> <br />REM ************************************ FAZA 2 <br /> <br /> ZNAKP2(0) = &H100040 <br /> ZNAKL2(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />ZNAKP2(i * 2) = VAL("&H" + a1$) <br />ZNAKP2(i * 2 - 1) = VAL("&H" + a2$) <br />ZNAKL2(i * 2) = VAL("&H" + a3$) <br />ZNAKL2(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","08000000","00000008","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B0B","0B0B0000","00000B0B","0B0B0000" <br />DATA "000B0B00","0B000000","0000000B","000B0B00" <br />DATA "00000B0B","0B070700","0007070B","0B0B0000" <br />DATA "00000000","0B000700","0007000B","00000000" <br />DATA "00000000","0B000000","0000000B","00000000" <br />DATA "00000007","07070000","00000707","07000000" <br /> <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br /> ZNAKP3(0) = &H100040 <br /> ZNAKL3(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />ZNAKP3(i * 2) = VAL("&H" + a1$) <br />ZNAKP3(i * 2 - 1) = VAL("&H" + a2$) <br />ZNAKL3(i * 2) = VAL("&H" + a3$) <br />ZNAKL3(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","08000000","00000008","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B0B","0B0B0000","00000B0B","0B0B0000" <br />DATA "000B0B00","0B000000","0000000B","000B0B00" <br />DATA "00000B0B","0B000000","0000000B","0B0B0000" <br />DATA "00000707","0B000000","0000000B","07070000" <br />DATA "00000000","000B0000","00000B00","00000000" <br />DATA "00000000","07070700","00070707","00000000" <br /> <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />DIM vertd1(0 TO 32) AS LONG <br />DIM vertg1(0 TO 32) AS LONG <br />DIM vertd2(0 TO 32) AS LONG <br />DIM vertg2(0 TO 32) AS LONG <br />DIM vertd3(0 TO 32) AS LONG <br />DIM vertg3(0 TO 32) AS LONG <br /> <br />REM Ludzik idacy w dol lub w gore faza 1 <br /> <br /> vertd1(0) = &H100040 <br /> vertg1(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$ <br />vertd1(i * 2) = VAL("&H" + a1$) <br />vertd1(i * 2 - 1) = VAL("&H" + a2$) <br />vertg1(i * 2) = VAL("&H" + a3$) <br />vertg1(i * 2 - 1) = VAL("&H" + a4$) <br /> <br />NEXT i <br /> <br />DATA "00000008","08080000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "00000C0C","0C0C0C00","00000C0C","0C0C0C00" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C000C","0C0C000C","000C000C","0C0C000C" <br />DATA "000F0008","0808000F","000F0008","0808000F" <br />DATA "0000000B","0B0B0000","0000000B","0B0B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "00000707","00070700","00000707","00070700" <br /> <br />REM Ludzik idacy w dol lub w gore faza 2 <br /> <br /> vertd2(0) = &H100040 <br /> vertg2(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$ <br />vertd2(i * 2) = VAL("&H" + a1$) <br />vertd2(i * 2 - 1) = VAL("&H" + a2$) <br />vertg2(i * 2) = VAL("&H" + a3$) <br />vertg2(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000008","08080000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "00000C0C","0C0C0C00","00000C0C","0C0C0C00" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C000C","0C0C000C","000C000C","0C0C000C" <br />DATA "000F0008","0808000F","000F0008","0808000F" <br />DATA "0000000B","0B0B0000","0000000B","0B0B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "00000707","000B0000","00000707","000B0000" <br />DATA "00000000","000B0000","00000000","000B0000" <br />DATA "00000000","00070700","00000000","00070700" <br /> <br /> <br />REM Ludzik idacy w dol lub w gore faza 3 <br /> <br />vertd3(0) = &H100040 <br />vertg3(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$ <br />vertd3(i * 2) = VAL("&H" + a1$) <br />vertd3(i * 2 - 1) = VAL("&H" + a2$) <br />vertg3(i * 2) = VAL("&H" + a3$) <br />vertg3(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000008","08080000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "00000C0C","0C0C0C00","00000C0C","0C0C0C00" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C000C","0C0C000C","000C000C","0C0C000C" <br />DATA "000F0008","0808000F","000F0008","0808000F" <br />DATA "0000000B","0B0B0000","0000000B","0B0B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","00070700","0000000B","00070700" <br />DATA "0000000B","00000000","0000000B","00000000" <br />DATA "00000707","00000000","00000707","00000000" <br /> <br /> <br /> <br /> <br /> <br />REM ********************* kody elementow planszy <br />REM ********* beda wywolane przez numer kodu ascii <br /> <br />DIM wiersz$(35 TO 90): <br /> <br />DEF SEG = 0: REM to dla pomiarow predkosci <br /> <br />x = 20: y = 10 <br />xs = 20: ys = 10 <br />licz = -1 <br />roomx = 4 <br />roomy = 4 <br /> <br />REM Ustawienie wlasnej wartosci barw <br />REM kolejno, blue green red, kazdy max=6 <br />PALETTE 1, 0 <br />PALETTE 2, 15 * 65536 + 15 * 256 + 15 <br />PALETTE 3, 31 * 65536 + 31 * 256 + 31 <br />REM dawne PALETTE 100, 63 * 65536 + 31 * 256 + 47 <br />REM dawne PALETTE 101, 63 * 65536 + 15 * 256 + 0 <br /> <br />REM ********** dane poszczegolnych elementow <br />mur2$ = CHR$(219) + CHR$(219): <br />mur4$ = mur2$ + mur2$: mur8$ = mur4$ + mur4$: mur16$ = mur8$ + mur8$ <br /> <br />spc2$ = CHR$(32) + CHR$(32): <br />spc4$ = spc2$ + spc2$: spc8$ = spc4$ + spc4$: spc16$ = spc8$ + spc8$ <br /> <br />REM kod elementu "#" - mur na cal szerokosc ekranu <br />wiersz$(35) = mur16$ + mur16$ + mur8$ <br /> <br />REM kod elementu "L" - mur tylko na lewej krawedzi ekranu <br />wiersz$(76) = CHR$(219) + spc16$ + spc16$ + spc4$ + spc2$ + CHR$(32) <br /> <br />REM kod elementu "P" - mur tylko na prawej krawedzi ekranu <br />wiersz$(80) = spc16$ + spc16$ + spc4$ + spc2$ + CHR$(32) + CHR$(219) <br /> <br />REM kod elementu "." - pust przestrzen na calej szerokosci ekranu <br />wiersz$(46) = spc16$ + spc16$ + spc8$ <br /> <br />REM kod elementu "U" - dziura na srodku muru <br />wiersz$(85) = mur16$ + mur2$ + spc4$ + mur2$ + mur16$ <br /> <br />REM kod elenetu "H" - dwie sciany na obu krawedziach <br />wiersz$(72) = CHR$(219) + spc16$ + spc16$ + spc4$ + spc2$ + CHR$(219) <br /> <br />REM kod elementu "W" - dwie dziury w murze <br />wiersz$(87) = CHR$(219) + mur4$ + spc4$ + mur16$ + mur4$ + mur2$ + spc4$ + mur4$ + CHR$(219) <br /> <br />REM kod elementu "3" - trzy sciany w tym jedna po lewej <br />wiersz$(51) = CHR$(219) + spc8$ + spc4$ + CHR$(219) + spc16$ + spc8$ + CHR$(32) + CHR$(219) <br /> <br />REM kod elementu "4" - trzy sciany w tym jedna po prawej <br />wiersz$(52) = CHR$(219) + spc16$ + spc8$ + CHR$(32) + CHR$(219) + spc8$ + spc4$ + CHR$(219) <br /> <br />REM kod elementu "0" - mala przestrzen posrodku <br />wiersz$(48) = mur8$ + mur4$ + mur2$ + spc8$ + spc4$ + mur8$ + mur4$ + mur2$ <br /> <br />REM kod elementu "S" - mur w jednej trzeciej z lewej <br />wiersz$(83) = mur8$ + mur4$ + mur2$ + spc16$ + spc8$ + spc2$ <br /> <br />REM kod elementu "Z" - mur w jednej trzeciej z prawej <br />wiersz$(90) = spc16$ + spc8$ + spc2$ + mur8$ + mur4$ + mur2$ <br /> <br />REM kod elementu "Q" - srednia przestrzen posrodku <br />wiersz$(81) = CHR$(219) + mur4$ + spc16$ + spc8$ + spc4$ + spc2$ + mur4$ + CHR$(219) <br /> <br />REM kod elementu "X" - sredni mur z prawej <br />wiersz$(88) = spc16$ + spc16$ + spc2$ + CHR$(32) + mur4$ + CHR$(219) <br /> <br />REM kod elementu "Y" - sredni mur z lewej <br />wiersz$(89) = mur4$ + CHR$(219) + spc16$ + spc16$ + spc2$ + CHR$(32) <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 />REM CLS - wylaczenie CLS zapobiega miganiu ekranu <br /> <br /> <br />COLOR 2 <br /> <br />LOCATE 1, 1 <br />PRINT wiersz$(ASC(MID$(kod$, 1, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 2, 1))) <br />PUT (0, 0), osiemdziesiatcegiel, OR <br />PRINT wiersz$(ASC(MID$(kod$, 3, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 4, 1))) <br />PUT (0, 16), osiemdziesiatcegiel, OR <br />PRINT wiersz$(ASC(MID$(kod$, 5, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 6, 1))) <br />PUT (0, 32), osiemdziesiatcegiel, OR <br />PRINT wiersz$(ASC(MID$(kod$, 7, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 8, 1))) <br />PUT (0, 48), osiemdziesiatcegiel, OR <br />PRINT wiersz$(ASC(MID$(kod$, 9, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 10, 1))) <br />PUT (0, 64), osiemdziesiatcegiel, OR <br />PRINT wiersz$(ASC(MID$(kod$, 11, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 12, 1))) <br />PUT (0, 80), osiemdziesiatcegiel, OR <br />PRINT wiersz$(ASC(MID$(kod$, 13, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 14, 1))) <br />PUT (0, 96), osiemdziesiatcegiel, OR <br />PRINT wiersz$(ASC(MID$(kod$, 15, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 16, 1))) <br />PUT (0, 112), osiemdziesiatcegiel, OR <br />PRINT wiersz$(ASC(MID$(kod$, 17, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 18, 1))) <br />PUT (0, 128), osiemdziesiatcegiel, OR <br />PRINT wiersz$(ASC(MID$(kod$, 19, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 20, 1))) <br />PUT (0, 144), osiemdziesiatcegiel, OR <br />PRINT wiersz$(ASC(MID$(kod$, 21, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 22, 1))) <br />PUT (0, 160), osiemdziesiatcegiel, OR <br />PRINT wiersz$(ASC(MID$(kod$, 23, 1))) <br />PUT (0, 176), osiemdziesiatcegiel, OR <br /> <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): LOCATE 24, 10: PRINT "--"; t0; t1; "--"; <br />PRINT "Room:"; roomx; roomy; "--"; <br />REM ustawienie gracza na planszy <br />PUT ((x - 1) * 8, (y - 1) * 8), vertd1, PSET <br /> <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <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 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br />FOR delay = 1 TO 300: NEXT delay <br />REM ************************ sprawdzenie klawiszy <br /> <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br />REM PRINT k$; : IF k$ <> "" THEN PRINT ASC(k$); <br /> <br />IF k$ = CHR$(27) THEN END <br /> <br />IF k$ = CHR$(0) + "M" THEN x = x + 1: obrot = 1: vert = 0 <br />IF k$ = CHR$(0) + "K" THEN x = x - 1: obrot = -1: vert = 0 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1: obrot = 0: vert = -1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1: obrot = 0: vert = 1 <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br />REM ************ dla ludzika dwuznakowego! <br /> <br />IF x = 41 THEN x = 1: xs = 1: roomx = roomx + 1: GOTO rysuj <br />IF x = 0 THEN x = 40: xs = 40: roomx = roomx - 1: GOTO rysuj <br />IF y = 23 THEN y = 1: ys = 1: roomy = roomy + 1: GOTO rysuj <br />IF y = 0 THEN y = 23: ys = 23: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br /> <br />pobrany1 = SCREEN(y, x) <br />pobrany2 = SCREEN(y + 1, x) <br /> <br /> <br />REM *********** sprawdzenie czy cos mozna wziac <br /> <br />IF pobrany1 = 3 OR pobrany2 = 3 THEN SOUND 250, .5: SOUND 150, .5: GOTO ruch <br />IF pobrany1 = 4 OR pobrany2 = 4 THEN SOUND 1150, .5: SOUND 550, .5: GOTO ruch <br /> <br />REM sprawdzenie przeszkody <br /> <br />IF pobrany1 = 32 AND pobrany2 = 32 THEN GOTO ruch <br /> <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** ruch <br /> <br />ruch: <br />SOUND 100, .025: SOUND 30000, .025: SOUND 100, .025: SOUND 30000, .025 <br />REM ************* kasowanie starej postaci <br /> <br />LOCATE ys, xs: PRINT " "; <br />LOCATE ys + 1, xs: PRINT " "; <br /> <br />REM ************* rysowanie nowej postaci WEDLUG FAZY RUCHU <br /> <br />REM ************************** ruch w gore <br /> <br />IF vert = -1 THEN <br />przebiervert = przebiervert + 1 <br />IF przebiervert = 4 THEN przebiervert = 0 <br />IF przebiervert = 0 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertg1, PSET <br />IF przebiervert = 1 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertg2, PSET <br />IF przebiervert = 2 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertg1, PSET <br />IF przebiervert = 3 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertg3, PSET <br />END IF <br /> <br />REM ************************** ruch w dol <br /> <br />IF vert = 1 THEN <br />przebiervert = przebiervert + 1 <br />IF przebiervert = 4 THEN przebiervert = 0 <br />IF przebiervert = 0 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertd1, PSET <br />IF przebiervert = 1 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertd2, PSET <br />IF przebiervert = 2 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertd1, PSET <br />IF przebiervert = 3 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertd3, PSET <br /> <br />END IF <br /> <br />REM ************************** ruch w lewo <br /> <br /> IF obrot = -1 THEN <br /> PRZEBIERANIE = PRZEBIERANIE + 1 <br /> IF PRZEBIERANIE = 3 THEN PRZEBIERANIE = 0 <br /> IF PRZEBIERANIE = 0 THEN PUT ((x - 1) * 8, (y - 1) * 8), ZNAKL1, PSET <br /> IF PRZEBIERANIE = 1 THEN PUT ((x - 1) * 8, (y - 1) * 8), ZNAKL2, PSET <br /> IF PRZEBIERANIE = 2 THEN PUT ((x - 1) * 8, (y - 1) * 8), ZNAKL3, PSET <br /> END IF <br /> <br />REM ****************** ruch w prawo <br /> <br />IF obrot = 1 THEN <br /> PRZEBIERANIE = PRZEBIERANIE + 1 <br /> IF PRZEBIERANIE = 3 THEN PRZEBIERANIE = 0 <br /> IF PRZEBIERANIE = 0 THEN PUT ((x - 1) * 8, (y - 1) * 8), ZNAKP1, PSET <br /> IF PRZEBIERANIE = 1 THEN PUT ((x - 1) * 8, (y - 1) * 8), ZNAKP2, PSET <br /> IF PRZEBIERANIE = 2 THEN PUT ((x - 1) * 8, (y - 1) * 8), ZNAKP3, PSET <br />END IF <br /> <br />xs = x: ys = y <br /> <br />GOTO petla</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: Śro 11:13, 13 Sty 2021<span class="gen"> </span> Temat postu: QuickBasic -eksperymenty</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM ************************* DANE STARTOWE <br /> <br />SCREEN 13 <br />DEF SEG = 0 <br /> <br />DIM cegla(0 TO 16) AS LONG <br />DIM dwiecegly(0 TO 32) AS LONG <br />DIM czterycegly(0 TO 64) AS LONG <br />DIM osiemcegiel(0 TO 128) AS LONG <br />DIM szesnasciecegiel(0 TO 256) AS LONG <br />DIM czterdziescicegiel(0 TO 640) AS LONG <br />DIM osiemdziesiatcegiel(0 TO 1280) AS LONG <br />cegla(0) = &H80040 <br /> <br />FOR i = 1 TO 8: READ a1$, a2$ <br />cegla(i * 2) = VAL("&H" + a1$) <br />cegla(i * 2 - 1) = VAL("&H" + a2$) <br />NEXT i <br /> <br />DATA "00000000","00000000" <br />DATA "01010101","00010101" <br />DATA "01010101","00010101" <br />DATA "01010101","00010101" <br />DATA "00000000","00000000" <br />DATA "00010101","01010101" <br />DATA "00010101","01010101" <br />DATA "00010101","01010101" <br /> <br />PUT (0, 0), cegla, PSET <br />PUT (8, 0), cegla, PSET <br /> <br />GET (0, 0)-(15, 7), dwiecegly <br />PUT (16, 0), dwiecegly, PSET <br /> <br />GET (0, 0)-(31, 7), czterycegly <br />PUT (32, 0), czterycegly, PSET <br /> <br />GET (0, 0)-(63, 7), osiemcegiel <br />PUT (64, 0), osiemcegiel, PSET <br /> <br />GET (0, 0)-(127, 7), szesnasciecegiel <br />PUT (128, 0), szesnasciecegiel, PSET <br />PUT (256, 0), osiemcegiel, PSET <br />GET (0, 0)-(319, 7), czterdziescicegiel <br /> <br />PUT (0, 8), czterdziescicegiel, PSET <br />GET (0, 0)-(319, 15), osiemdziesiatcegiel <br /> <br />PUT (0, 50), osiemdziesiatcegiel, PSET <br /> <br />FOR i = 0 TO 11 <br />PUT (0, i * 16), osiemdziesiatcegiel, PSET <br />NEXT i <br /> <br /> <br /> <br />REM ************************** DANE pomieszczen <br />REM ***************** obliczane od roomx=1,roomy=1 <br />REM ***************** (roomy-1)*7+(roomx-1) <br /> <br />DIM plansza$(0 TO 48) <br /> <br />REM ************ plansze wiersza roomy=1 <br /> <br />plansza$(0) = "#LL0HHHUHHHHHHU3333WLLU" <br />plansza$(1) = "#..UUUUU44444WHHHHHUPP#" <br />plansza$(2) = "#PPHHHHUHUHHHWHWHHHUHHU" <br />plansza$(3) = "##QQHHLLHHHHHHHWWHHQQ##" <br />plansza$(4) = "#HHHHPPHHHHUUHHHHUUUHHU" <br />plansza$(5) = "##LL0HHHWWWWWWWWWWWHHHU" <br />plansza$(6) = "##PPHHWWHH00HHHWWHH00UU" <br /> <br />REM ************ plansze wiersza roomy=2 <br /> <br />plansza$(7) = "UHHWWWWWHHLLHHUHHHHUHH#" <br />plansza$(8) = "#HHHHHHHHH..HWHWHWHWHH#" <br />plansza$(9) = "UU33W3333WPPHHUUUUUHHHU" <br />plansza$(10) = "###WWWLLHHHWWWWHHHHHWWW" <br />plansza$(11) = "UUQQHHPPHHHHU44WWHHHHH#" <br />plansza$(12) = "UUHHHHHHHHH00HHHHHHHH##" <br />plansza$(13) = "UUUUUUUUUHHHHHUUUUUUUUU" <br /> <br />REM ************* plansze wiersza roomy=3 <br /> <br />plansza$(14) = "####HHHHHHWHHHHHHUUHHHW" <br />plansza$(15) = "#HHHHW444WWHHLLHHHHHHHW" <br />plansza$(16) = "UU00000000000..000000##" <br />plansza$(17) = "WWWWWWWWWWWWWPP########" <br />plansza$(18) = "#3333333333333WWHHHHHHW" <br />plansza$(19) = "##0004444UUULL33000HHUU" <br />plansza$(20) = "UU00HHWWHHUUPPHH000UUUU" <br /> <br />REM ************ plansze wiersza roomy=4 <br /> <br />plansza$(21) = "WWWHHHWWWWLLUUUUUUUUUUU" <br />plansza$(22) = "W33333WWHHZZHHWW44WWHH#" <br />plansza$(23) = "##00HHHLLHHW44WHHHWWWWW" <br />plansza$(24) = "###QQQQXXQQQQWWQQUUUUUU": REM startowa <br />plansza$(25) = "#HHWWWW3333WWHHUUUUUUUU" <br />plansza$(26) = "UUUUHHHHWWWWHHHWWWHHUUU" <br />plansza$(27) = "UUUUUUUUUUUUUUUUUUUUUUU" <br /> <br />REM ****************** plansze wiersza roomy=5 <br /> <br />plansza$(28) = "UULLHHHHWWWWWHHHHHHLLH#" <br />plansza$(29) = "##..###############..##" <br />plansza$(30) = "WHPPHHHHHUUUUUHHHHHPPUU" <br />plansza$(31) = "UUUHHHHUUHHHLLHWWHHHHH#" <br />plansza$(32) = "U3333WWHHHHHPP#########" <br />plansza$(33) = "UUUU0000UUUU0000UUUUUUU" <br />plansza$(34) = "UUUU0000HHHWHHH0000####" <br /> <br />REM ******************* plansze wiersza roomy=6 <br /> <br />plansza$(35) = "##000000UUUULLUUUU00UUU" <br />plansza$(36) = "#######UUUUUPPHHWWLL###" <br />plansza$(37) = "UU000HHWWHHUUU0000..HH#" <br />plansza$(38) = "##LLUUU00000000UUUPP###" <br />plansza$(39) = "##PPHHWWLLWWHHH000HH###" <br />plansza$(40) = "UUUUUU00ZZ00UUUUUUUUUUU" <br />plansza$(41) = "##HHWWHH000000000000UUU" <br /> <br /> <br />REM ******************* plansze wiersza roomy=7 <br /> <br />plansza$(42) = "UUUUUU00LL00###########" <br />plansza$(43) = "######UU..UU###########" <br />plansza$(44) = "####LL00PP#############" <br />plansza$(45) = "####PP0000#############" <br />plansza$(46) = "##LLUU0000#############" <br />plansza$(47) = "UUPPHH00HH00000HHWWLL##" <br />plansza$(48) = "UUUUUUUUUUUUUUUUUUUPP##" <br /> <br />REM ************************ znaczek - glowny bohater <br />REM ****************** DANE ANIMACJI <br /> <br />DIM ZNAKP1(0 TO 32) AS LONG <br />DIM ZNAKL1(0 TO 32) AS LONG <br />DIM ZNAKP2(0 TO 32) AS LONG <br />DIM ZNAKL2(0 TO 32) AS LONG <br />DIM ZNAKP3(0 TO 32) AS LONG <br />DIM ZNAKL3(0 TO 32) AS LONG <br /> <br />REM ************************* ruch poziomy FAZA 1 <br /> <br />ZNAKP1(0) = &H100040 <br />ZNAKL1(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />ZNAKP1(i * 2) = VAL("&H" + a1$) <br />ZNAKP1(i * 2 - 1) = VAL("&H" + a2$) <br />ZNAKL1(i * 2) = VAL("&H" + a3$) <br />ZNAKL1(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","08000000","00000008","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B00","000B0000","00000B00","000B0000" <br />DATA "00000B00","000B0000","00000B00","000B0000" <br />DATA "0000000B","00000B00","000B0000","0B000000" <br />DATA "0000000B","00070707","07070700","0B000000" <br />DATA "00000707","00000000","00000000","07070000" <br /> <br />REM ************************************ FAZA 2 <br /> <br /> ZNAKP2(0) = &H100040 <br /> ZNAKL2(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />ZNAKP2(i * 2) = VAL("&H" + a1$) <br />ZNAKP2(i * 2 - 1) = VAL("&H" + a2$) <br />ZNAKL2(i * 2) = VAL("&H" + a3$) <br />ZNAKL2(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","08000000","00000008","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B0B","0B0B0000","00000B0B","0B0B0000" <br />DATA "000B0B00","0B000000","0000000B","000B0B00" <br />DATA "00000B0B","0B070700","0007070B","0B0B0000" <br />DATA "00000000","0B000700","0007000B","00000000" <br />DATA "00000000","0B000000","0000000B","00000000" <br />DATA "00000007","07070000","00000707","07000000" <br /> <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br /> ZNAKP3(0) = &H100040 <br /> ZNAKL3(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$: <br />ZNAKP3(i * 2) = VAL("&H" + a1$) <br />ZNAKP3(i * 2 - 1) = VAL("&H" + a2$) <br />ZNAKL3(i * 2) = VAL("&H" + a3$) <br />ZNAKL3(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000808","08000000","00000008","08080000" <br />DATA "00000F0F","08000000","00000008","0F0F0000" <br />DATA "00000F0F","0F000000","0000000F","0F0F0000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "0000000C","0C000000","0000000C","0C000000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "00000C0C","0C0C0000","00000C0C","0C0C0000" <br />DATA "000C000C","0C0C0C00","000C0C0C","0C000C00" <br />DATA "000F0008","08080F00","000F0808","08000F00" <br />DATA "0000000B","0B0B0000","00000B0B","0B000000" <br />DATA "00000B0B","0B0B0000","00000B0B","0B0B0000" <br />DATA "000B0B00","0B000000","0000000B","000B0B00" <br />DATA "00000B0B","0B000000","0000000B","0B0B0000" <br />DATA "00000707","0B000000","0000000B","07070000" <br />DATA "00000000","000B0000","00000B00","00000000" <br />DATA "00000000","07070700","00070707","00000000" <br /> <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />DIM vertd1(0 TO 32) AS LONG <br />DIM vertg1(0 TO 32) AS LONG <br />DIM vertd2(0 TO 32) AS LONG <br />DIM vertg2(0 TO 32) AS LONG <br />DIM vertd3(0 TO 32) AS LONG <br />DIM vertg3(0 TO 32) AS LONG <br /> <br />REM Ludzik idacy w dol lub w gore faza 1 <br /> <br /> vertd1(0) = &H100040 <br /> vertg1(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$ <br />vertd1(i * 2) = VAL("&H" + a1$) <br />vertd1(i * 2 - 1) = VAL("&H" + a2$) <br />vertg1(i * 2) = VAL("&H" + a3$) <br />vertg1(i * 2 - 1) = VAL("&H" + a4$) <br /> <br />NEXT i <br /> <br />DATA "00000008","08080000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "00000C0C","0C0C0C00","00000C0C","0C0C0C00" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C000C","0C0C000C","000C000C","0C0C000C" <br />DATA "000F0008","0808000F","000F0008","0808000F" <br />DATA "0000000B","0B0B0000","0000000B","0B0B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "00000707","00070700","00000707","00070700" <br /> <br />REM Ludzik idacy w dol lub w gore faza 2 <br /> <br /> vertd2(0) = &H100040 <br /> vertg2(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$ <br />vertd2(i * 2) = VAL("&H" + a1$) <br />vertd2(i * 2 - 1) = VAL("&H" + a2$) <br />vertg2(i * 2) = VAL("&H" + a3$) <br />vertg2(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000008","08080000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "00000C0C","0C0C0C00","00000C0C","0C0C0C00" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C000C","0C0C000C","000C000C","0C0C000C" <br />DATA "000F0008","0808000F","000F0008","0808000F" <br />DATA "0000000B","0B0B0000","0000000B","0B0B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "00000707","000B0000","00000707","000B0000" <br />DATA "00000000","000B0000","00000000","000B0000" <br />DATA "00000000","00070700","00000000","00070700" <br /> <br /> <br />REM Ludzik idacy w dol lub w gore faza 3 <br /> <br />vertd3(0) = &H100040 <br />vertg3(0) = &H100040 <br /> <br />FOR i = 1 TO 16: READ a1$, a2$, a3$, a4$ <br />vertd3(i * 2) = VAL("&H" + a1$) <br />vertd3(i * 2 - 1) = VAL("&H" + a2$) <br />vertg3(i * 2) = VAL("&H" + a3$) <br />vertg3(i * 2 - 1) = VAL("&H" + a4$) <br />NEXT i <br /> <br />DATA "00000008","08080000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "0000000F","0F0F0000","00000008","08080000" <br />DATA "00000000","0F000000","00000000","0F000000" <br />DATA "00000C0C","0C0C0C00","00000C0C","0C0C0C00" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C0C0C","0C0C0C0C","000C0C0C","0C0C0C0C" <br />DATA "000C000C","0C0C000C","000C000C","0C0C000C" <br />DATA "000F0008","0808000F","000F0008","0808000F" <br />DATA "0000000B","0B0B0000","0000000B","0B0B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","000B0000","0000000B","000B0000" <br />DATA "0000000B","00070700","0000000B","00070700" <br />DATA "0000000B","00000000","0000000B","00000000" <br />DATA "00000707","00000000","00000707","00000000" <br /> <br /> <br /> <br /> <br /> <br />REM ********************* kody elementow planszy <br />REM ********* beda wywolane przez numer kodu ascii <br /> <br />DIM wiersz$(35 TO 90): <br /> <br />DEF SEG = 0: REM to dla pomiarow predkosci <br /> <br />x = 20: y = 10 <br />xs = 20: ys = 10 <br />licz = -1 <br />roomx = 4 <br />roomy = 4 <br /> <br />REM Ustawienie wlasnej wartosci barw <br />REM kolejno, blue green red, kazdy max=6 <br />PALETTE 1, 0 <br />PALETTE 2, 7 * 65536 + 7 * 256 + 7 <br />PALETTE 3, 0 * 65536 + 0 * 256 + 47 <br />PALETTE 100, 63 * 65536 + 31 * 256 + 47 <br />PALETTE 101, 63 * 65536 + 15 * 256 + 0 <br /> <br />REM ********** dane poszczegolnych elementow <br />mur2$ = CHR$(219) + CHR$(219): <br />mur4$ = mur2$ + mur2$: mur8$ = mur4$ + mur4$: mur16$ = mur8$ + mur8$ <br /> <br />spc2$ = CHR$(32) + CHR$(32): <br />spc4$ = spc2$ + spc2$: spc8$ = spc4$ + spc4$: spc16$ = spc8$ + spc8$ <br /> <br />REM kod elementu "#" - mur na cal szerokosc ekranu <br />wiersz$(35) = mur16$ + mur16$ + mur8$ <br /> <br />REM kod elementu "L" - mur tylko na lewej krawedzi ekranu <br />wiersz$(76) = CHR$(177) + spc16$ + spc16$ + spc4$ + spc2$ + CHR$(32) <br /> <br />REM kod elementu "P" - mur tylko na prawej krawedzi ekranu <br />wiersz$(80) = spc16$ + spc16$ + spc4$ + spc2$ + CHR$(32) + CHR$(177) <br /> <br />REM kod elementu "." - pust przestrzen na calej szerokosci ekranu <br />wiersz$(46) = spc16$ + spc16$ + spc8$ <br /> <br />REM kod elementu "U" - dziura na srodku muru <br />wiersz$(85) = mur16$ + mur2$ + spc4$ + mur2$ + mur16$ <br /> <br />REM kod elenetu "H" - dwie sciany na obu krawedziach <br />wiersz$(72) = CHR$(177) + spc16$ + spc16$ + spc4$ + spc2$ + CHR$(177) <br /> <br />REM kod elementu "W" - dwie dziury w murze <br />wiersz$(87) = CHR$(177) + mur4$ + spc4$ + mur16$ + mur4$ + mur2$ + spc4$ + mur4$ + CHR$(177) <br /> <br />REM kod elementu "3" - trzy sciany w tym jedna po lewej <br />wiersz$(51) = CHR$(177) + spc8$ + spc4$ + CHR$(177) + spc16$ + spc8$ + CHR$(32) + CHR$(177) <br /> <br />REM kod elementu "4" - trzy sciany w tym jedna po prawej <br />wiersz$(52) = CHR$(177) + spc16$ + spc8$ + CHR$(32) + CHR$(177) + spc8$ + spc4$ + CHR$(177) <br /> <br />REM kod elementu "0" - mala przestrzen posrodku <br />wiersz$(48) = mur8$ + mur4$ + mur2$ + spc8$ + spc4$ + mur8$ + mur4$ + mur2$ <br /> <br />REM kod elementu "S" - mur w jednej trzeciej z lewej <br />wiersz$(83) = mur8$ + mur4$ + mur2$ + spc16$ + spc8$ + spc2$ <br /> <br />REM kod elementu "Z" - mur w jednej trzeciej z prawej <br />wiersz$(90) = spc16$ + spc8$ + spc2$ + mur8$ + mur4$ + mur2$ <br /> <br />REM kod elementu "Q" - srednia przestrzen posrodku <br />wiersz$(81) = CHR$(177) + mur4$ + spc16$ + spc8$ + spc4$ + spc2$ + mur4$ + CHR$(177) <br /> <br />REM kod elementu "X" - sredni mur z prawej <br />wiersz$(88) = spc16$ + spc16$ + spc2$ + CHR$(32) + mur4$ + CHR$(177) <br /> <br />REM kod elementu "Y" - sredni mur z lewej <br />wiersz$(89) = mur4$ + CHR$(177) + spc16$ + spc16$ + spc2$ + CHR$(32) <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 />REM CLS - wylaczenie CLS zapobiega miganiu ekranu <br />COLOR 2 <br /> <br />LOCATE 1, 1: PRINT wiersz$(ASC(MID$(kod$, 1, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 2, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 3, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 4, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 5, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 6, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 7, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 8, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 9, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 10, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 11, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 12, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 13, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 14, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 15, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 16, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 17, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 18, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 19, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 20, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 21, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 22, 1))) <br />PRINT wiersz$(ASC(MID$(kod$, 23, 1))) <br />LOCATE 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />FOR i = 0 TO 11 <br />PUT (0, i * 16), osiemdziesiatcegiel, OR <br />NEXT i <br /> <br /> <br />REM pomiar czasu rysowania <br />t1 = PEEK(1132): LOCATE 24, 10: PRINT "--"; t0; t1; "--"; <br />PRINT "Room:"; roomx; roomy; "--"; <br />REM ustawienie gracza na planszy <br />PUT ((x - 1) * 8, (y - 1) * 8), vertd1, PSET <br /> <br /> <br />REM *************************** PETLA GLOWNA <br /> <br />petla: <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 24, 2: COLOR 15: PRINT "Czas:"; licz; <br /> <br />REM ************************ petla opozniajaca <br />FOR delay = 1 TO 300: NEXT delay <br />REM ************************ sprawdzenie klawiszy <br /> <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br /> <br />POKE 1050, PEEK(1052): REM czyszczenie bufora klawiatury <br />REM PRINT k$; : IF k$ <> "" THEN PRINT ASC(k$); <br /> <br />IF k$ = CHR$(27) THEN END <br /> <br />IF k$ = CHR$(0) + "M" THEN x = x + 1: obrot = 1: vert = 0 <br />IF k$ = CHR$(0) + "K" THEN x = x - 1: obrot = -1: vert = 0 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1: obrot = 0: vert = -1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1: obrot = 0: vert = 1 <br /> <br />REM ************ sprawdzenie czy jest przejscie do innej planszy <br />REM ************ dla ludzika dwuznakowego! <br /> <br />IF x = 41 THEN x = 1: xs = 1: roomx = roomx + 1: GOTO rysuj <br />IF x = 0 THEN x = 40: xs = 40: roomx = roomx - 1: GOTO rysuj <br />IF y = 23 THEN y = 1: ys = 1: roomy = roomy + 1: GOTO rysuj <br />IF y = 0 THEN y = 23: ys = 23: roomy = roomy - 1: GOTO rysuj <br /> <br />REM *********** sprawdzenie czy ruch jest mozliwy <br /> <br />pobrany1 = SCREEN(y, x) <br />pobrany2 = SCREEN(y + 1, x) <br /> <br /> <br />REM *********** sprawdzenie czy cos mozna wziac <br /> <br />IF pobrany1 = 3 OR pobrany2 = 3 THEN SOUND 250, .5: SOUND 150, .5: GOTO ruch <br />IF pobrany1 = 4 OR pobrany2 = 4 THEN SOUND 1150, .5: SOUND 550, .5: GOTO ruch <br /> <br />REM sprawdzenie przeszkody <br /> <br />IF pobrany1 = 32 AND pobrany2 = 32 THEN GOTO ruch <br /> <br />x = xs: y = ys <br />GOTO petla <br /> <br />REM ***************** ruch <br /> <br />ruch: <br />SOUND 100, .025: SOUND 30000, .025: SOUND 100, .025: SOUND 30000, .025 <br />REM ************* kasowanie starej postaci <br /> <br />LOCATE ys, xs: PRINT " "; <br />LOCATE ys + 1, xs: PRINT " "; <br /> <br />REM ************* rysowanie nowej postaci WEDLUG FAZY RUCHU <br /> <br />REM ************************** ruch w gore <br /> <br />IF vert = -1 THEN <br />przebiervert = przebiervert + 1 <br />IF przebiervert = 4 THEN przebiervert = 0 <br />IF przebiervert = 0 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertg1, PSET <br />IF przebiervert = 1 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertg2, PSET <br />IF przebiervert = 2 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertg1, PSET <br />IF przebiervert = 3 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertg3, PSET <br />END IF <br /> <br />REM ************************** ruch w dol <br /> <br />IF vert = 1 THEN <br />przebiervert = przebiervert + 1 <br />IF przebiervert = 4 THEN przebiervert = 0 <br />IF przebiervert = 0 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertd1, PSET <br />IF przebiervert = 1 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertd2, PSET <br />IF przebiervert = 2 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertd1, PSET <br />IF przebiervert = 3 THEN PUT ((x - 1) * 8, (y - 1) * 8), vertd3, PSET <br /> <br />END IF <br /> <br />REM ************************** ruch w lewo <br /> <br /> IF obrot = -1 THEN <br /> PRZEBIERANIE = PRZEBIERANIE + 1 <br /> IF PRZEBIERANIE = 3 THEN PRZEBIERANIE = 0 <br /> IF PRZEBIERANIE = 0 THEN PUT ((x - 1) * 8, (y - 1) * 8), ZNAKL1, PSET <br /> IF PRZEBIERANIE = 1 THEN PUT ((x - 1) * 8, (y - 1) * 8), ZNAKL2, PSET <br /> IF PRZEBIERANIE = 2 THEN PUT ((x - 1) * 8, (y - 1) * 8), ZNAKL3, PSET <br /> END IF <br /> <br />REM ****************** ruch w prawo <br /> <br />IF obrot = 1 THEN <br /> PRZEBIERANIE = PRZEBIERANIE + 1 <br /> IF PRZEBIERANIE = 3 THEN PRZEBIERANIE = 0 <br /> IF PRZEBIERANIE = 0 THEN PUT ((x - 1) * 8, (y - 1) * 8), ZNAKP1, PSET <br /> IF PRZEBIERANIE = 1 THEN PUT ((x - 1) * 8, (y - 1) * 8), ZNAKP2, PSET <br /> IF PRZEBIERANIE = 2 THEN PUT ((x - 1) * 8, (y - 1) * 8), ZNAKP3, PSET <br />END IF <br /> <br />xs = x: ys = y <br /> <br />GOTO petla</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