Ż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 18:42, 06 Sie 2022<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul startowy do gry "Serca 2022" <br /> <br />SCREEN 13 <br /> <br />DIM p1(0 TO 192) AS LONG <br />DIM p2(0 TO 192) AS LONG <br />DIM p3(0 TO 192) AS LONG <br />DIM p4(0 TO 192) AS LONG <br />DIM l1(0 TO 192) AS LONG <br />DIM l2(0 TO 192) AS LONG <br />DIM l3(0 TO 192) AS LONG <br />DIM l4(0 TO 192) AS LONG <br /> <br /> <br />DIM bitmap$(0 TO 47) <br /> <br /> <br />REM rysunki **************************************** <br /> <br /> <br />petla: <br /> <br />REM animacja <br />REM ************************* faza 1 <br /> <br />bitmap$(0) = "0000055555000000" <br />bitmap$(1) = "0000555555500000" <br />bitmap$(2) = "0000555555500000" <br />bitmap$(3) = "0000AAAA55500000" <br />bitmap$(4) = "0000AA3AA5500000" <br />bitmap$(5) = "000AAAAAAA500000" <br />bitmap$(6) = "0000AAAAAA500000" <br />bitmap$(7) = "0000AAAAAAA00000" <br />bitmap$(8) = "00000AAAAA000000" <br />bitmap$(9) = "000000AAAA000000" <br /> <br />bitmap$(10) = "000000DDDD000000" <br />bitmap$(11) = "00000DDDDD000000" <br />bitmap$(12) = "00000DDDDDD00000" <br />bitmap$(13) = "00000DDDDDBB0000" <br />bitmap$(14) = "0000DDDDDBBB0000" <br />bitmap$(15) = "0000DDDDDBBB0000" <br />bitmap$(16) = "0000DDDDBBBB0000" <br />bitmap$(17) = "0000DDDBBBBB0000" <br />bitmap$(18) = "000DDDDBBBB99000" <br />bitmap$(19) = "000DDDFBBBB99000" <br />bitmap$(20) = "00DDDFBBBBB99000" <br />bitmap$(21) = "00DDFFFFFFF99900" <br />bitmap$(22) = "00DD077777709900" <br />bitmap$(23) = "00D0077777700900" <br />bitmap$(24) = "0000777777700000" <br />bitmap$(25) = "0000777775550000" <br />bitmap$(26) = "0000777755550000" <br />bitmap$(27) = "0000777755550000" <br />bitmap$(28) = "0000777705550000" <br />bitmap$(29) = "0000777005550000" <br />bitmap$(30) = "0007777005550000" <br />bitmap$(31) = "0007777005550000" <br />bitmap$(32) = "0007770005555000" <br />bitmap$(33) = "0007770005555000" <br />bitmap$(34) = "0007770000555000" <br />bitmap$(35) = "0007770000555000" <br />bitmap$(36) = "0007770000555000" <br />bitmap$(37) = "007777000055FF00" <br />bitmap$(38) = "00777000000FFF00" <br />bitmap$(39) = "00FFF00000FF0000" <br />bitmap$(40) = "0FFFF00000000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br /> <br />CLS : <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />COLOR 16 + VAL("&H" + znak$) <br />PSET (xd, yd): PSET (16 - xd, yd + 48) <br />REM IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br />GET (0, 0)-(15, 47), l1 <br />GET (0, 48)-(15, 95), p1 <br /> <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br />bitmap$(0) = "0000055555000000" <br />bitmap$(1) = "0000555555500000" <br />bitmap$(2) = "0000555555500000" <br />bitmap$(3) = "0000AAAA55500000" <br />bitmap$(4) = "0000AA3AA5500000" <br />bitmap$(5) = "000AAAAAAA500000" <br />bitmap$(6) = "0000AAAAAA500000" <br />bitmap$(7) = "0000AAAAAAA00000" <br />bitmap$(8) = "00000AAAAA000000" <br />bitmap$(9) = "000000AAAA000000" <br /> <br />bitmap$(10) = "000000DDDD000000" <br />bitmap$(11) = "00000DDDDD000000" <br />bitmap$(12) = "00000DDDDDB00000" <br />bitmap$(13) = "00000DDDDDB00000" <br />bitmap$(14) = "00000DDDDBB00000" <br />bitmap$(15) = "00000DDDDBB00000" <br />bitmap$(16) = "00000DDDDBB00000" <br />bitmap$(17) = "00000DDDDBB00000" <br />bitmap$(18) = "0000DDDDBBB00000" <br />bitmap$(19) = "0000DDDDBBB00000" <br />bitmap$(20) = "0000DDDDBBB00000" <br />bitmap$(21) = "0000DDFFFFF00000" <br />bitmap$(22) = "0000DD7777700000" <br />bitmap$(23) = "0000DD7777700000" <br />bitmap$(24) = "0000D77777700000" <br />bitmap$(25) = "0000777777700000" <br />bitmap$(26) = "0000F77777000000" <br />bitmap$(27) = "0000F7777F000000" <br />bitmap$(28) = "0005577777000000" <br />bitmap$(29) = "0005577777000000" <br />bitmap$(30) = "0005577777000000" <br />bitmap$(31) = "0005577777000000" <br />bitmap$(32) = "0000F77777000000" <br />bitmap$(33) = "0000F7777F000000" <br />bitmap$(34) = "00000F777FF00000" <br />bitmap$(35) = "00000F777FF00000" <br />bitmap$(36) = "000000777FFF0000" <br />bitmap$(37) = "00000077770FF000" <br />bitmap$(38) = "0000007777000000" <br />bitmap$(39) = "000000FFFF000000" <br />bitmap$(40) = "0000FFFFF0000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br /> <br />COLOR 16 + VAL("&H" + znak$) <br />PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 48) <br /> <br />REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />GET (16, 0)-(31, 47), l2 <br />GET (16, 48)-(31, 95), p2 <br /> <br /> <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000FAAAF3F00000" <br />bitmap$(4) = "0000FAFAAFF00000" <br />bitmap$(5) = "000FAAAAAAF00000" <br />bitmap$(6) = "0000FAAAAAF00000" <br />bitmap$(7) = "0000FAAAAAF00000" <br />bitmap$(8) = "00000FAAAF000000" <br />bitmap$(9) = "000000FFFF000000" <br /> <br />bitmap$(10) = "000000FDDF000000" <br />bitmap$(11) = "00000FDDDF000000" <br />bitmap$(12) = "00000FDDDDF00000" <br />bitmap$(13) = "0000FFDDDDF00000" <br />bitmap$(14) = "0000FFDDDDF00000" <br />bitmap$(15) = "0000FFFDDDF00000" <br />bitmap$(16) = "0000FFBFDDDF0000" <br />bitmap$(17) = "0000FFBBFDDF0000" <br />bitmap$(18) = "000F9FBBFDDF0000" <br />bitmap$(19) = "000F9FBBFDDF0000" <br />bitmap$(20) = "000F9FBBBFDF0000" <br />bitmap$(21) = "000F9FFFFFDF0000" <br />bitmap$(22) = "0000F6777FFF0000" <br />bitmap$(23) = "00000F777FFF0000" <br />bitmap$(24) = "00000F7777F00000" <br />bitmap$(25) = "00000F7777F00000" <br />bitmap$(26) = "00000F7777F00000" <br />bitmap$(27) = "0000FF7777F00000" <br />bitmap$(28) = "0000F5F777F00000" <br />bitmap$(29) = "0000F55F77F00000" <br />bitmap$(30) = "000F55FF77F00000" <br />bitmap$(31) = "000F55F0F7F00000" <br />bitmap$(32) = "000F5F00F7F00000" <br />bitmap$(33) = "000F5F00F7F00000" <br />bitmap$(34) = "000F5F00F77F0000" <br />bitmap$(35) = "000F5F000F7F0000" <br />bitmap$(36) = "000F5F000F7F0000" <br />bitmap$(37) = "000F5F000F7F0000" <br />bitmap$(38) = "00FFFF000F7F0000" <br />bitmap$(39) = "0000000000F7F000" <br />bitmap$(40) = "00000000FFFF0000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />COLOR 16 + VAL("&H" + znak$) <br />PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 48) <br /> <br />REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br />GET (32, 0)-(47, 47), l3 <br />GET (32, 48)-(47, 95), p3 <br /> <br /> <br /> <br />REM ************************************ FAZA 4 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000FAAAF3F00000" <br />bitmap$(4) = "0000FAFAAFF00000" <br />bitmap$(5) = "000FAAAAAAF00000" <br />bitmap$(6) = "0000FAAAAAF00000" <br />bitmap$(7) = "0000FAAAAAF00000" <br />bitmap$(8) = "00000FAAAF000000" <br />bitmap$(9) = "000000FFFF000000" <br /> <br />bitmap$(10) = "000000FDDF000000" <br />bitmap$(11) = "00000FDDDF000000" <br />bitmap$(12) = "00000FDDDDF00000" <br />bitmap$(13) = "00000FDDDDF00000" <br />bitmap$(14) = "00000FDDDFF00000" <br />bitmap$(15) = "00000FDDDFF00000" <br />bitmap$(16) = "00000FDDDFF00000" <br />bitmap$(17) = "00000FDDFBF00000" <br />bitmap$(18) = "0000FDDDFBF00000" <br />bitmap$(19) = "0000FDDDFBF00000" <br />bitmap$(20) = "0000FDDDFBF00000" <br />bitmap$(21) = "0000FDFFFFF00000" <br />bitmap$(22) = "0000FDF777F00000" <br />bitmap$(23) = "0000FFF777F00000" <br />bitmap$(24) = "0000FFF777F00000" <br />bitmap$(25) = "0000F77777F00000" <br />bitmap$(26) = "0000F7777F000000" <br />bitmap$(27) = "0000F7777F000000" <br />bitmap$(28) = "000F7777FF000000" <br />bitmap$(29) = "000F7777FF000000" <br />bitmap$(30) = "000F777F5F000000" <br />bitmap$(31) = "000F7777FF000000" <br />bitmap$(32) = "0000F7777F000000" <br />bitmap$(33) = "0000FF777F000000" <br />bitmap$(34) = "00000FFF7FF00000" <br />bitmap$(35) = "00000F55FFF00000" <br />bitmap$(36) = "000000F55FFF0000" <br />bitmap$(37) = "000000F55F0FF000" <br />bitmap$(38) = "000000F55F000000" <br />bitmap$(39) = "000000F55F000000" <br />bitmap$(40) = "0000FFFFF0000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br /> <br />COLOR 16 + VAL("&H" + znak$) <br />PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 48) <br /> <br />REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />GET (48, 0)-(63, 47), l4 <br />GET (48, 48)-(63, 95), p4 <br /> <br />REM END <br /> <br />REM *********** petla glowna ************************** <br /> <br />pet2: <br /> <br />IF faza = 4 THEN faza = 0 <br />vek = 0 <br />key$ = INKEY$ <br />IF key$ = "6" THEN x = x + 3: vek = 1 <br />IF key$ = "4" THEN x = x - 3: vek = -1 <br />IF vek <> 0 THEN CLS <br /> <br />IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1 <br />IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2 <br />IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3 <br />IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4 <br /> <br />IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1 <br />IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2 <br />IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3 <br />IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4 <br />IF vek <> 0 THEN faza = faza + 1 <br /> <br />FOR delay = 1 TO 1000: NEXT delay <br /> <br />GOTO pet2 <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "0000366666300000" <br />bitmap$(6) = "000006C8C6000000" <br />bitmap$(7) = "0000006860000000" <br />bitmap$(8) = "0000001610000000" <br />bitmap$(9) = "0000711111700000" <br /> <br />bitmap$(10) = "0000711111700000" <br />bitmap$(11) = "0001111111110000" <br />bitmap$(12) = "0071111111117000" <br />bitmap$(13) = "0071111111117000" <br />bitmap$(14) = "0011711111711000" <br />bitmap$(15) = "0011711111711000" <br />bitmap$(16) = "0711711111711700" <br />bitmap$(17) = "0A11711111711A00" <br />bitmap$(18) = "0117A11111A71100" <br />bitmap$(19) = "0117111111171100" <br />bitmap$(20) = "01104BBBBB401100" <br />bitmap$(21) = "0860922222906800" <br />bitmap$(22) = "0000922222900000" <br />bitmap$(23) = "0000922222900000" <br />bitmap$(24) = "0000922222900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000929092900000" <br />bitmap$(31) = "0000929092900000" <br />bitmap$(32) = "0000929092900000" <br />bitmap$(33) = "0000929092900000" <br />bitmap$(34) = "0000929092900000" <br />bitmap$(35) = "0000929092900000" <br />bitmap$(36) = "0000929092900000" <br />bitmap$(37) = "0000929092900000" <br />bitmap$(38) = "0000333033300000" <br />bitmap$(39) = "0003330003330000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />END <br /> <br /> <br /> <br /> <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 12:36, 06 Sie 2022<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">poprawka: <br /> <br />REM modul startowy do gry "Serca 2022" <br /> <br />SCREEN 13 <br /> <br />DIM p1(0 TO 192) AS LONG <br />DIM p2(0 TO 192) AS LONG <br />DIM p3(0 TO 192) AS LONG <br />DIM p4(0 TO 192) AS LONG <br />DIM l1(0 TO 192) AS LONG <br />DIM l2(0 TO 192) AS LONG <br />DIM l3(0 TO 192) AS LONG <br />DIM l4(0 TO 192) AS LONG <br /> <br /> <br />DIM bitmap$(0 TO 47) <br /> <br /> <br />REM rysunki **************************************** <br /> <br /> <br />petla: <br /> <br />REM animacja <br />REM ************************* faza 1 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000FAAAF3F00000" <br />bitmap$(4) = "0000FAFAAFF00000" <br />bitmap$(5) = "000FAAAAAAF00000" <br />bitmap$(6) = "0000FAAAAAF00000" <br />bitmap$(7) = "0000FAAAAAF00000" <br />bitmap$(8) = "00000FAAAF000000" <br />bitmap$(9) = "000000FFFF000000" <br /> <br />bitmap$(10) = "000000FDDF000000" <br />bitmap$(11) = "00000FDDDF000000" <br />bitmap$(12) = "00000FDDDDF00000" <br />bitmap$(13) = "00000FDDDDFF0000" <br />bitmap$(14) = "0000FDDDDFBF0000" <br />bitmap$(15) = "0000FDDDDFBF0000" <br />bitmap$(16) = "0000FDDDFBBF0000" <br />bitmap$(17) = "0000FDDFBBBF0000" <br />bitmap$(18) = "000FDDDFBBF9F000" <br />bitmap$(19) = "000FDDFBBBF9F000" <br />bitmap$(20) = "00FDDFBBBBF9F000" <br />bitmap$(21) = "00FDFFFFFFFFFF00" <br />bitmap$(22) = "00FF0F7777F0FF00" <br />bitmap$(23) = "00F00F7777F00F00" <br />bitmap$(24) = "0000F77777F00000" <br />bitmap$(25) = "0000F777FFFF0000" <br />bitmap$(26) = "0000F777F55F0000" <br />bitmap$(27) = "0000F77FF55F0000" <br />bitmap$(28) = "0000F77F0F5F0000" <br />bitmap$(29) = "0000F7F00F5F0000" <br />bitmap$(30) = "000F77F00F5F0000" <br />bitmap$(31) = "000F77F00F5F0000" <br />bitmap$(32) = "000F7F000F55F000" <br />bitmap$(33) = "000F7F000F55F000" <br />bitmap$(34) = "000F7F0000F5F000" <br />bitmap$(35) = "000F7F0000F5F000" <br />bitmap$(36) = "000F7F0000F5F000" <br />bitmap$(37) = "00F77F0000F55F00" <br />bitmap$(38) = "00F7F000000FFF00" <br />bitmap$(39) = "00FFF00000FF0000" <br />bitmap$(40) = "0FFFF00000000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br /> <br />CLS : <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />COLOR 16 + VAL("&H" + znak$) <br />PSET (xd, yd): PSET (16 - xd, yd + 48) <br />REM IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br />GET (0, 0)-(15, 47), l1 <br />GET (0, 48)-(15, 95), p1 <br /> <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000FAAAF3F00000" <br />bitmap$(4) = "0000FAFAAFF00000" <br />bitmap$(5) = "000FAAAAAAF00000" <br />bitmap$(6) = "0000FAAAAAF00000" <br />bitmap$(7) = "0000FAAAAAF00000" <br />bitmap$(8) = "00000FAAAF000000" <br />bitmap$(9) = "000000FFFF000000" <br />bitmap$(10) = "000000FDDF000000" <br /> <br />bitmap$(11) = "00000FDDDF000000" <br />bitmap$(12) = "00000FDDDDF00000" <br />bitmap$(13) = "00000FDDDDF00000" <br />bitmap$(14) = "00000FDDDFF00000" <br />bitmap$(15) = "00000FDDDFF00000" <br />bitmap$(16) = "00000FDDDFF00000" <br />bitmap$(17) = "00000FDDFBF00000" <br />bitmap$(18) = "0000FDDDFBF00000" <br />bitmap$(19) = "0000FDDDFBF00000" <br />bitmap$(20) = "0000FDDDFBF00000" <br />bitmap$(21) = "0000FDFFFFF00000" <br />bitmap$(22) = "0000FDF777F00000" <br />bitmap$(23) = "0000FFF777F00000" <br />bitmap$(24) = "0000FFF777F00000" <br />bitmap$(25) = "0000F77777F00000" <br />bitmap$(26) = "0000F7777F000000" <br />bitmap$(27) = "0000F7777F000000" <br />bitmap$(28) = "000F5F777F000000" <br />bitmap$(29) = "000F5F777F000000" <br />bitmap$(30) = "000F5F777F000000" <br />bitmap$(31) = "000F5F777F000000" <br />bitmap$(32) = "0000FF777F000000" <br />bitmap$(33) = "0000FF777F000000" <br />bitmap$(34) = "00000F777FF00000" <br />bitmap$(35) = "00000F777FF00000" <br />bitmap$(36) = "000000F77FFF0000" <br />bitmap$(37) = "000000F77F0FF000" <br />bitmap$(38) = "000000F77F000000" <br />bitmap$(39) = "000000F77F000000" <br />bitmap$(40) = "0000FFFFF0000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br /> <br />COLOR 16 + VAL("&H" + znak$) <br />PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 48) <br /> <br />REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />GET (16, 0)-(31, 47), l2 <br />GET (16, 48)-(31, 95), p2 <br /> <br /> <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000FAAAF3F00000" <br />bitmap$(4) = "0000FAFAAFF00000" <br />bitmap$(5) = "000FAAAAAAF00000" <br />bitmap$(6) = "0000FAAAAAF00000" <br />bitmap$(7) = "0000FAAAAAF00000" <br />bitmap$(8) = "00000FAAAF000000" <br />bitmap$(9) = "000000FFFF000000" <br /> <br />bitmap$(10) = "000000FDDF000000" <br />bitmap$(11) = "00000FDDDF000000" <br />bitmap$(12) = "00000FDDDDF00000" <br />bitmap$(13) = "0000FFDDDDF00000" <br />bitmap$(14) = "0000FFDDDDF00000" <br />bitmap$(15) = "0000FFFDDDF00000" <br />bitmap$(16) = "0000FFBFDDDF0000" <br />bitmap$(17) = "0000FFBBFDDF0000" <br />bitmap$(18) = "000F9FBBFDDF0000" <br />bitmap$(19) = "000F9FBBFDDF0000" <br />bitmap$(20) = "000F9FBBBFDF0000" <br />bitmap$(21) = "000F9FFFFFDF0000" <br />bitmap$(22) = "0000F6777FFF0000" <br />bitmap$(23) = "00000F777FFF0000" <br />bitmap$(24) = "00000F7777F00000" <br />bitmap$(25) = "00000F7777F00000" <br />bitmap$(26) = "00000F7777F00000" <br />bitmap$(27) = "0000FF7777F00000" <br />bitmap$(28) = "0000F5F777F00000" <br />bitmap$(29) = "0000F55F77F00000" <br />bitmap$(30) = "000F55FF77F00000" <br />bitmap$(31) = "000F55F0F7F00000" <br />bitmap$(32) = "000F5F00F7F00000" <br />bitmap$(33) = "000F5F00F7F00000" <br />bitmap$(34) = "000F5F00F77F0000" <br />bitmap$(35) = "000F5F000F7F0000" <br />bitmap$(36) = "000F5F000F7F0000" <br />bitmap$(37) = "000F5F000F7F0000" <br />bitmap$(38) = "00FFFF000F7F0000" <br />bitmap$(39) = "0000000000F7F000" <br />bitmap$(40) = "00000000FFFF0000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />COLOR 16 + VAL("&H" + znak$) <br />PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 48) <br /> <br />REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br />GET (32, 0)-(47, 47), l3 <br />GET (32, 48)-(47, 95), p3 <br /> <br /> <br /> <br />REM ************************************ FAZA 4 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000FAAAF3F00000" <br />bitmap$(4) = "0000FAFAAFF00000" <br />bitmap$(5) = "000FAAAAAAF00000" <br />bitmap$(6) = "0000FAAAAAF00000" <br />bitmap$(7) = "0000FAAAAAF00000" <br />bitmap$(8) = "00000FAAAF000000" <br />bitmap$(9) = "000000FFFF000000" <br /> <br />bitmap$(10) = "000000FDDF000000" <br />bitmap$(11) = "00000FDDDF000000" <br />bitmap$(12) = "00000FDDDDF00000" <br />bitmap$(13) = "00000FDDDDF00000" <br />bitmap$(14) = "00000FDDDFF00000" <br />bitmap$(15) = "00000FDDDFF00000" <br />bitmap$(16) = "00000FDDDFF00000" <br />bitmap$(17) = "00000FDDFBF00000" <br />bitmap$(18) = "0000FDDDFBF00000" <br />bitmap$(19) = "0000FDDDFBF00000" <br />bitmap$(20) = "0000FDDDFBF00000" <br />bitmap$(21) = "0000FDFFFFF00000" <br />bitmap$(22) = "0000FDF777F00000" <br />bitmap$(23) = "0000FFF777F00000" <br />bitmap$(24) = "0000FFF777F00000" <br />bitmap$(25) = "0000F77777F00000" <br />bitmap$(26) = "0000F7777F000000" <br />bitmap$(27) = "0000F7777F000000" <br />bitmap$(28) = "000F7777FF000000" <br />bitmap$(29) = "000F7777FF000000" <br />bitmap$(30) = "000F777F5F000000" <br />bitmap$(31) = "000F7777FF000000" <br />bitmap$(32) = "0000F7777F000000" <br />bitmap$(33) = "0000FF777F000000" <br />bitmap$(34) = "00000FFF7FF00000" <br />bitmap$(35) = "00000F55FFF00000" <br />bitmap$(36) = "000000F55FFF0000" <br />bitmap$(37) = "000000F55F0FF000" <br />bitmap$(38) = "000000F55F000000" <br />bitmap$(39) = "000000F55F000000" <br />bitmap$(40) = "0000FFFFF0000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br /> <br />COLOR 16 + VAL("&H" + znak$) <br />PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 48) <br /> <br />REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />GET (48, 0)-(63, 47), l4 <br />GET (48, 48)-(63, 95), p4 <br /> <br />REM END <br /> <br />REM *********** petla glowna ************************** <br /> <br />pet2: <br /> <br />IF faza = 4 THEN faza = 0 <br />vek = 0 <br />key$ = INKEY$ <br />IF key$ = "6" THEN x = x + 3: vek = 1 <br />IF key$ = "4" THEN x = x - 3: vek = -1 <br />IF vek <> 0 THEN CLS <br /> <br />IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1 <br />IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2 <br />IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3 <br />IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4 <br /> <br />IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1 <br />IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2 <br />IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3 <br />IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4 <br />IF vek <> 0 THEN faza = faza + 1 <br /> <br />FOR delay = 1 TO 1000: NEXT delay <br /> <br />GOTO pet2 <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "0000366666300000" <br />bitmap$(6) = "000006C8C6000000" <br />bitmap$(7) = "0000006860000000" <br />bitmap$(8) = "0000001610000000" <br />bitmap$(9) = "0000711111700000" <br /> <br />bitmap$(10) = "0000711111700000" <br />bitmap$(11) = "0001111111110000" <br />bitmap$(12) = "0071111111117000" <br />bitmap$(13) = "0071111111117000" <br />bitmap$(14) = "0011711111711000" <br />bitmap$(15) = "0011711111711000" <br />bitmap$(16) = "0711711111711700" <br />bitmap$(17) = "0A11711111711A00" <br />bitmap$(18) = "0117A11111A71100" <br />bitmap$(19) = "0117111111171100" <br />bitmap$(20) = "01104BBBBB401100" <br />bitmap$(21) = "0860922222906800" <br />bitmap$(22) = "0000922222900000" <br />bitmap$(23) = "0000922222900000" <br />bitmap$(24) = "0000922222900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000929092900000" <br />bitmap$(31) = "0000929092900000" <br />bitmap$(32) = "0000929092900000" <br />bitmap$(33) = "0000929092900000" <br />bitmap$(34) = "0000929092900000" <br />bitmap$(35) = "0000929092900000" <br />bitmap$(36) = "0000929092900000" <br />bitmap$(37) = "0000929092900000" <br />bitmap$(38) = "0000333033300000" <br />bitmap$(39) = "0003330003330000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />END <br /> <br /> <br /> <br /> <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 12:34, 06 Sie 2022<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul startowy do gry "Serca 2022" <br /> <br />SCREEN 13 <br /> <br />DIM p1(0 TO 192) AS LONG <br />DIM p2(0 TO 192) AS LONG <br />DIM p3(0 TO 192) AS LONG <br />DIM p4(0 TO 192) AS LONG <br />DIM l1(0 TO 192) AS LONG <br />DIM l2(0 TO 192) AS LONG <br />DIM l3(0 TO 192) AS LONG <br />DIM l4(0 TO 192) AS LONG <br /> <br /> <br />DIM bitmap$(0 TO 47) <br /> <br /> <br />REM rysunki **************************************** <br /> <br /> <br />petla: <br /> <br />REM animacja <br />REM ************************* faza 1 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000FAAAF3F00000" <br />bitmap$(4) = "0000FAFAAFF00000" <br />bitmap$(5) = "000FAAAAAAF00000" <br />bitmap$(6) = "0000FAAAAAF00000" <br />bitmap$(7) = "0000FAAAAAF00000" <br />bitmap$(<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "00000FAAAF000000" <br />bitmap$(9) = "000000FFFF000000" <br /> <br />bitmap$(10) = "000000FDDF000000" <br />bitmap$(11) = "00000FDDDF000000" <br />bitmap$(12) = "00000FDDDDF00000" <br />bitmap$(13) = "00000FDDDDFF0000" <br />bitmap$(14) = "0000FDDDDFBF0000" <br />bitmap$(15) = "0000FDDDDFBF0000" <br />bitmap$(16) = "0000FDDDFBBF0000" <br />bitmap$(17) = "0000FDDFBBBF0000" <br />bitmap$(1<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "000FDDDFBBF9F000" <br />bitmap$(19) = "000FDDFBBBF9F000" <br />bitmap$(20) = "00FDDFBBBBF9F000" <br />bitmap$(21) = "00FDFFFFFFFFFF00" <br />bitmap$(22) = "00FF0F7777F0FF00" <br />bitmap$(23) = "00F00F7777F00F00" <br />bitmap$(24) = "0000F77777F00000" <br />bitmap$(25) = "0000F777FFFF0000" <br />bitmap$(26) = "0000F777F55F0000" <br />bitmap$(27) = "0000F77FF55F0000" <br />bitmap$(2<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "0000F77F0F5F0000" <br />bitmap$(29) = "0000F7F00F5F0000" <br />bitmap$(30) = "000F77F00F5F0000" <br />bitmap$(31) = "000F77F00F5F0000" <br />bitmap$(32) = "000F7F000F55F000" <br />bitmap$(33) = "000F7F000F55F000" <br />bitmap$(34) = "000F7F0000F5F000" <br />bitmap$(35) = "000F7F0000F5F000" <br />bitmap$(36) = "000F7F0000F5F000" <br />bitmap$(37) = "00F77F0000F55F00" <br />bitmap$(3<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "00F7F000000FFF00" <br />bitmap$(39) = "00FFF00000FF0000" <br />bitmap$(40) = "0FFFF00000000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br /> <br />CLS : <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />COLOR 16 + VAL("&H" + znak$) <br />PSET (xd, yd): PSET (16 - xd, yd + 4<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> <br />REM IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 4<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> <br /> <br />NEXT xd <br />NEXT yd <br />GET (0, 0)-(15, 47), l1 <br />GET (0, 4<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" />-(15, 95), p1 <br /> <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000FAAAF3F00000" <br />bitmap$(4) = "0000FAFAAFF00000" <br />bitmap$(5) = "000FAAAAAAF00000" <br />bitmap$(6) = "0000FAAAAAF00000" <br />bitmap$(7) = "0000FAAAAAF00000" <br />bitmap$(<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "00000FAAAF000000" <br />bitmap$(9) = "000000FFFF000000" <br />bitmap$(10) = "000000FDDF000000" <br /> <br />bitmap$(11) = "00000FDDDF000000" <br />bitmap$(12) = "00000FDDDDF00000" <br />bitmap$(13) = "00000FDDDDF00000" <br />bitmap$(14) = "00000FDDDFF00000" <br />bitmap$(15) = "00000FDDDFF00000" <br />bitmap$(16) = "00000FDDDFF00000" <br />bitmap$(17) = "00000FDDFBF00000" <br />bitmap$(1<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "0000FDDDFBF00000" <br />bitmap$(19) = "0000FDDDFBF00000" <br />bitmap$(20) = "0000FDDDFBF00000" <br />bitmap$(21) = "0000FDFFFFF00000" <br />bitmap$(22) = "0000FDF777F00000" <br />bitmap$(23) = "0000FFF777F00000" <br />bitmap$(24) = "0000FFF777F00000" <br />bitmap$(25) = "0000F77777F00000" <br />bitmap$(26) = "0000F7777F000000" <br />bitmap$(27) = "0000F7777F000000" <br />bitmap$(2<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "000F5F777F000000" <br />bitmap$(29) = "000F5F777F000000" <br />bitmap$(30) = "000F5F777F000000" <br />bitmap$(31) = "000F5F777F000000" <br />bitmap$(32) = "0000FF777F000000" <br />bitmap$(33) = "0000FF777F000000" <br />bitmap$(34) = "00000F777FF00000" <br />bitmap$(35) = "00000F777FF00000" <br />bitmap$(36) = "000000F77FFF0000" <br />bitmap$(37) = "000000F77F0FF000" <br />bitmap$(3<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "000000F77F000000" <br />bitmap$(39) = "000000F77F000000" <br />bitmap$(40) = "0000FFFFF0000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br /> <br />COLOR 16 + VAL("&H" + znak$) <br />PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 4<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> <br /> <br />REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 4<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> <br /> <br />NEXT xd <br />NEXT yd <br /> <br />GET (16, 0)-(31, 47), l2 <br />GET (16, 4<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" />-(31, 95), p2 <br /> <br /> <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000FAAAF3F00000" <br />bitmap$(4) = "0000FAFAAFF00000" <br />bitmap$(5) = "000FAAAAAAF00000" <br />bitmap$(6) = "0000FAAAAAF00000" <br />bitmap$(7) = "0000FAAAAAF00000" <br />bitmap$(<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "00000FAAAF000000" <br />bitmap$(9) = "000000FFFF000000" <br /> <br />bitmap$(10) = "000000FDDF000000" <br />bitmap$(11) = "00000FDDDF000000" <br />bitmap$(12) = "00000FDDDDF00000" <br />bitmap$(13) = "0000FFDDDDF00000" <br />bitmap$(14) = "0000FFDDDDF00000" <br />bitmap$(15) = "0000FFFDDDF00000" <br />bitmap$(16) = "0000FFBFDDDF0000" <br />bitmap$(17) = "0000FFBBFDDF0000" <br />bitmap$(1<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "000F9FBBFDDF0000" <br />bitmap$(19) = "000F9FBBFDDF0000" <br />bitmap$(20) = "000F9FBBBFDF0000" <br />bitmap$(21) = "000F9FFFFFDF0000" <br />bitmap$(22) = "0000F6777FFF0000" <br />bitmap$(23) = "00000F777FFF0000" <br />bitmap$(24) = "00000F7777F00000" <br />bitmap$(25) = "00000F7777F00000" <br />bitmap$(26) = "00000F7777F00000" <br />bitmap$(27) = "0000FF7777F00000" <br />bitmap$(2<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "0000F5F777F00000" <br />bitmap$(29) = "0000F55F77F00000" <br />bitmap$(30) = "000F55FF77F00000" <br />bitmap$(31) = "000F55F0F7F00000" <br />bitmap$(32) = "000F5F00F7F00000" <br />bitmap$(33) = "000F5F00F7F00000" <br />bitmap$(34) = "000F5F00F77F0000" <br />bitmap$(35) = "000F5F000F7F0000" <br />bitmap$(36) = "000F5F000F7F0000" <br />bitmap$(37) = "000F5F000F7F0000" <br />bitmap$(3<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "00FFFF000F7F0000" <br />bitmap$(39) = "0000000000F7F000" <br />bitmap$(40) = "00000000FFFF0000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />COLOR 16 + VAL("&H" + znak$) <br />PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 4<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> <br /> <br />REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 4<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br />GET (32, 0)-(47, 47), l3 <br />GET (32, 4<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" />-(47, 95), p3 <br /> <br /> <br /> <br />REM ************************************ FAZA 4 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000FAAAF3F00000" <br />bitmap$(4) = "0000FAFAAFF00000" <br />bitmap$(5) = "000FAAAAAAF00000" <br />bitmap$(6) = "0000FAAAAAF00000" <br />bitmap$(7) = "0000FAAAAAF00000" <br />bitmap$(<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "00000FAAAF000000" <br />bitmap$(9) = "000000FFFF000000" <br /> <br />bitmap$(10) = "000000FDDF000000" <br />bitmap$(11) = "00000FDDDF000000" <br />bitmap$(12) = "00000FDDDDF00000" <br />bitmap$(13) = "00000FDDDDF00000" <br />bitmap$(14) = "00000FDDDFF00000" <br />bitmap$(15) = "00000FDDDFF00000" <br />bitmap$(16) = "00000FDDDFF00000" <br />bitmap$(17) = "00000FDDFBF00000" <br />bitmap$(1<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "0000FDDDFBF00000" <br />bitmap$(19) = "0000FDDDFBF00000" <br />bitmap$(20) = "0000FDDDFBF00000" <br />bitmap$(21) = "0000FDFFFFF00000" <br />bitmap$(22) = "0000FDF777F00000" <br />bitmap$(23) = "0000FFF777F00000" <br />bitmap$(24) = "0000FFF777F00000" <br />bitmap$(25) = "0000F77777F00000" <br />bitmap$(26) = "0000F7777F000000" <br />bitmap$(27) = "0000F7777F000000" <br />bitmap$(2<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "000F7777FF000000" <br />bitmap$(29) = "000F7777FF000000" <br />bitmap$(30) = "000F777F5F000000" <br />bitmap$(31) = "000F7777FF000000" <br />bitmap$(32) = "0000F7777F000000" <br />bitmap$(33) = "0000FF777F000000" <br />bitmap$(34) = "00000FFF7FF00000" <br />bitmap$(35) = "00000F55FFF00000" <br />bitmap$(36) = "000000F55FFF0000" <br />bitmap$(37) = "000000F55F0FF000" <br />bitmap$(3<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "000000F55F000000" <br />bitmap$(39) = "000000F55F000000" <br />bitmap$(40) = "0000FFFFF0000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br /> <br />COLOR 16 + VAL("&H" + znak$) <br />PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 4<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> <br /> <br />REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 4<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> <br /> <br />NEXT xd <br />NEXT yd <br /> <br />GET (48, 0)-(63, 47), l4 <br />GET (48, 4<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" />-(63, 95), p4 <br /> <br />REM END <br /> <br />REM *********** petla glowna ************************** <br /> <br />pet2: <br /> <br />IF faza = 4 THEN faza = 0 <br />vek = 0 <br />key$ = INKEY$ <br />IF key$ = "6" THEN x = x + 3: vek = 1 <br />IF key$ = "4" THEN x = x - 3: vek = -1 <br />IF vek <> 0 THEN CLS <br /> <br />IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1 <br />IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2 <br />IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3 <br />IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4 <br /> <br />IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1 <br />IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2 <br />IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3 <br />IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4 <br />IF vek <> 0 THEN faza = faza + 1 <br /> <br />FOR delay = 1 TO 1000: NEXT delay <br /> <br />GOTO pet2 <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "0000366666300000" <br />bitmap$(6) = "000006C8C6000000" <br />bitmap$(7) = "0000006860000000" <br />bitmap$(<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "0000001610000000" <br />bitmap$(9) = "0000711111700000" <br /> <br />bitmap$(10) = "0000711111700000" <br />bitmap$(11) = "0001111111110000" <br />bitmap$(12) = "0071111111117000" <br />bitmap$(13) = "0071111111117000" <br />bitmap$(14) = "0011711111711000" <br />bitmap$(15) = "0011711111711000" <br />bitmap$(16) = "0711711111711700" <br />bitmap$(17) = "0A11711111711A00" <br />bitmap$(1<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "0117A11111A71100" <br />bitmap$(19) = "0117111111171100" <br />bitmap$(20) = "01104BBBBB401100" <br />bitmap$(21) = "0860922222906800" <br />bitmap$(22) = "0000922222900000" <br />bitmap$(23) = "0000922222900000" <br />bitmap$(24) = "0000922222900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(2<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000929092900000" <br />bitmap$(31) = "0000929092900000" <br />bitmap$(32) = "0000929092900000" <br />bitmap$(33) = "0000929092900000" <br />bitmap$(34) = "0000929092900000" <br />bitmap$(35) = "0000929092900000" <br />bitmap$(36) = "0000929092900000" <br />bitmap$(37) = "0000929092900000" <br />bitmap$(3<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> = "0000333033300000" <br />bitmap$(39) = "0003330003330000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 8<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 8<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 8<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 8<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 8<img src="http://picsrv.fora.pl/images/smiles/icon_cool.gif" alt="Cool" border="0" /> <br /> <br />NEXT xd <br />NEXT yd <br /> <br />END <br /> <br /> <br /> <br /> <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 10:27, 06 Sie 2022<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul BSAVE do gry "Serca 2022" <br /> <br />SCREEN 13 <br /> <br />DIM p1(0 TO 192) AS LONG <br />DIM p2(0 TO 192) AS LONG <br />DIM p3(0 TO 192) AS LONG <br />DIM p4(0 TO 192) AS LONG <br />DIM l1(0 TO 192) AS LONG <br />DIM l2(0 TO 192) AS LONG <br />DIM l3(0 TO 192) AS LONG <br />DIM l4(0 TO 192) AS LONG <br /> <br /> <br />DIM bitmap$(0 TO 47) <br /> <br /> <br />REM rysunki **************************************** <br /> <br /> <br />petla: <br /> <br />REM animacja <br />REM ************************* faza 1 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000FAAAF3F00000" <br />bitmap$(4) = "0000FAFAAFF00000" <br />bitmap$(5) = "000FAAAAAAF00000" <br />bitmap$(6) = "0000FAAAAAF00000" <br />bitmap$(7) = "0000FAAAAAF00000" <br />bitmap$(8) = "00000FAAAF000000" <br />bitmap$(9) = "000000FFFF000000" <br /> <br />bitmap$(10) = "000000FDDF000000" <br />bitmap$(11) = "00000FDDDF000000" <br />bitmap$(12) = "00000FDDDDF00000" <br />bitmap$(13) = "00000FDDDDFF0000" <br />bitmap$(14) = "0000FDDDDFBF0000" <br />bitmap$(15) = "0000FDDDDFBF0000" <br />bitmap$(16) = "0000FDDDFBBF0000" <br />bitmap$(17) = "0000FDDFBBBF0000" <br />bitmap$(18) = "000FDDDFBBF9F000" <br />bitmap$(19) = "000FDDFBBBF9F000" <br />bitmap$(20) = "00FDDFBBBBF9F000" <br />bitmap$(21) = "00FDFFFFFFFFFF00" <br />bitmap$(22) = "00FF0F7777F0FF00" <br />bitmap$(23) = "00F00F7777F00F00" <br />bitmap$(24) = "0000F77777F00000" <br />bitmap$(25) = "0000F777FFFF0000" <br />bitmap$(26) = "0000F777F55F0000" <br />bitmap$(27) = "0000F77FF55F0000" <br />bitmap$(28) = "0000F77F0F5F0000" <br />bitmap$(29) = "0000F7F00F5F0000" <br />bitmap$(30) = "000F77F00F5F0000" <br />bitmap$(31) = "000F77F00F5F0000" <br />bitmap$(32) = "000F7F000F55F000" <br />bitmap$(33) = "000F7F000F55F000" <br />bitmap$(34) = "000F7F0000F5F000" <br />bitmap$(35) = "000F7F0000F5F000" <br />bitmap$(36) = "000F7F0000F5F000" <br />bitmap$(37) = "00F77F0000F55F00" <br />bitmap$(38) = "00F7F000000FFF00" <br />bitmap$(39) = "00FFF00000FF0000" <br />bitmap$(40) = "0FFFF00000000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br /> <br />CLS : <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />COLOR 16 + VAL("&H" + znak$) <br />PSET (xd, yd): PSET (16 - xd, yd + 48) <br />REM IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br />GET (0, 0)-(15, 47), l1 <br />GET (0, 48)-(15, 95), p1 <br /> <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "0000F6F66FF00000" <br />bitmap$(5) = "000F666666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "0000F66666F00000" <br />bitmap$(8) = "00000F666F000000" <br />bitmap$(9) = "000000FFFF000000" <br />bitmap$(10) = "000000F11F000000" <br /> <br />bitmap$(11) = "00000F111F000000" <br />bitmap$(12) = "00000F1111F00000" <br />bitmap$(13) = "00000F1111F00000" <br />bitmap$(14) = "00000F111FF00000" <br />bitmap$(15) = "00000F111FF00000" <br />bitmap$(16) = "00000F111FF00000" <br />bitmap$(17) = "00000F11F1F00000" <br />bitmap$(18) = "0000F111F1F00000" <br />bitmap$(19) = "0000F111F1F00000" <br />bitmap$(20) = "0000F111F1F00000" <br />bitmap$(21) = "0000F1FFFFF00000" <br />bitmap$(22) = "0000F8F222F00000" <br />bitmap$(23) = "0000FFF222F00000" <br />bitmap$(24) = "0000FFF222F00000" <br />bitmap$(25) = "0000F22222F00000" <br />bitmap$(26) = "0000F2222F000000" <br />bitmap$(27) = "0000F2222F000000" <br />bitmap$(28) = "000F2F222F000000" <br />bitmap$(29) = "000F2F222F000000" <br />bitmap$(30) = "000F2F222F000000" <br />bitmap$(31) = "000F2F222F000000" <br />bitmap$(32) = "0000FF222F000000" <br />bitmap$(33) = "0000FF222F000000" <br />bitmap$(34) = "00000F222FF00000" <br />bitmap$(35) = "00000F222FF00000" <br />bitmap$(36) = "000000F22FFF0000" <br />bitmap$(37) = "000000F22F0FF000" <br />bitmap$(38) = "000000F22F000000" <br />bitmap$(39) = "000000F22F000000" <br />bitmap$(40) = "0000FFFFF0000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />GET (16, 0)-(31, 47), l2 <br />GET (16, 48)-(31, 95), p2 <br /> <br /> <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "0000F6F66FF00000" <br />bitmap$(5) = "000F666666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "0000F66666F00000" <br />bitmap$(8) = "00000F666F000000" <br />bitmap$(9) = "000000FFFF000000" <br /> <br />bitmap$(10) = "000000F11F000000" <br />bitmap$(11) = "00000F111F000000" <br />bitmap$(12) = "00000F1111F00000" <br />bitmap$(13) = "0000FF1111F00000" <br />bitmap$(14) = "0000FF1111F00000" <br />bitmap$(15) = "0000FFF111F00000" <br />bitmap$(16) = "0000FF1F111F0000" <br />bitmap$(17) = "0000FF11F11F0000" <br />bitmap$(18) = "000F1F11F11F0000" <br />bitmap$(19) = "000F1F11F11F0000" <br />bitmap$(20) = "000F1F111F1F0000" <br />bitmap$(21) = "000F1FFFFF1F0000" <br />bitmap$(22) = "0000F6222FFF0000" <br />bitmap$(23) = "00000F222FFF0000" <br />bitmap$(24) = "00000F2222F00000" <br />bitmap$(25) = "00000F2222F00000" <br />bitmap$(26) = "00000F2222F00000" <br />bitmap$(27) = "0000FF2222F00000" <br />bitmap$(28) = "0000F2F222F00000" <br />bitmap$(29) = "0000F22F22F00000" <br />bitmap$(30) = "000F22FF22F00000" <br />bitmap$(31) = "000F22F0F2F00000" <br />bitmap$(32) = "000F2F00F2F00000" <br />bitmap$(33) = "000F2F00F2F00000" <br />bitmap$(34) = "000F2F00F22F0000" <br />bitmap$(35) = "000F2F000F2F0000" <br />bitmap$(36) = "000F2F000F2F0000" <br />bitmap$(37) = "000F2F000F2F0000" <br />bitmap$(38) = "00FFFF000F2F0000" <br />bitmap$(39) = "0000000000F2F000" <br />bitmap$(40) = "00000000FFFF0000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br />GET (32, 0)-(47, 47), l3 <br />GET (32, 48)-(47, 95), p3 <br /> <br /> <br /> <br />REM ************************************ FAZA 4 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "0000F6F66FF00000" <br />bitmap$(5) = "000F666666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "0000F66666F00000" <br />bitmap$(8) = "00000F666F000000" <br />bitmap$(9) = "000000FFFF000000" <br /> <br />bitmap$(10) = "000000F11F000000" <br />bitmap$(11) = "00000F111F000000" <br />bitmap$(12) = "00000F1111F00000" <br />bitmap$(13) = "00000F1111F00000" <br />bitmap$(14) = "00000F111FF00000" <br />bitmap$(15) = "00000F111FF00000" <br />bitmap$(16) = "00000F111FF00000" <br />bitmap$(17) = "00000F11F1F00000" <br />bitmap$(18) = "0000F111F1F00000" <br />bitmap$(19) = "0000F111F1F00000" <br />bitmap$(20) = "0000F111F1F00000" <br />bitmap$(21) = "0000F1FFFFF00000" <br />bitmap$(22) = "0000F8F222F00000" <br />bitmap$(23) = "0000FFF222F00000" <br />bitmap$(24) = "0000FFF222F00000" <br />bitmap$(25) = "0000F22222F00000" <br />bitmap$(26) = "0000F2222F000000" <br />bitmap$(27) = "0000F2222F000000" <br />bitmap$(28) = "000F2222FF000000" <br />bitmap$(29) = "000F2222FF000000" <br />bitmap$(30) = "000F222F2F000000" <br />bitmap$(31) = "000F2222FF000000" <br />bitmap$(32) = "0000F2222F000000" <br />bitmap$(33) = "0000FF222F000000" <br />bitmap$(34) = "00000FFF2FF00000" <br />bitmap$(35) = "00000F22F0F00000" <br />bitmap$(36) = "000000F22FFF0000" <br />bitmap$(37) = "000000F22F0FF000" <br />bitmap$(38) = "000000F22F000000" <br />bitmap$(39) = "000000F22F000000" <br />bitmap$(40) = "0000FFFFF0000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />GET (48, 0)-(63, 47), l4 <br />GET (48, 48)-(63, 95), p4 <br /> <br />REM END <br /> <br />REM *********** petla glowna ************************** <br /> <br />pet2: <br /> <br />IF faza = 4 THEN faza = 0 <br />vek = 0 <br />key$ = INKEY$ <br />IF key$ = "6" THEN x = x + 1: vek = 1 <br />IF key$ = "4" THEN x = x - 1: vek = -1 <br />IF vek <> 0 THEN CLS <br /> <br />IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1 <br />IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2 <br />IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3 <br />IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4 <br /> <br />IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1 <br />IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2 <br />IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3 <br />IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4 <br />IF vek <> 0 THEN faza = faza + 1 <br /> <br />FOR delay = 1 TO 5000: NEXT delay <br /> <br />GOTO pet2 <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "0000366666300000" <br />bitmap$(6) = "000006C8C6000000" <br />bitmap$(7) = "0000006860000000" <br />bitmap$(8) = "0000001610000000" <br />bitmap$(9) = "0000711111700000" <br /> <br />bitmap$(10) = "0000711111700000" <br />bitmap$(11) = "0001111111110000" <br />bitmap$(12) = "0071111111117000" <br />bitmap$(13) = "0071111111117000" <br />bitmap$(14) = "0011711111711000" <br />bitmap$(15) = "0011711111711000" <br />bitmap$(16) = "0711711111711700" <br />bitmap$(17) = "0A11711111711A00" <br />bitmap$(18) = "0117A11111A71100" <br />bitmap$(19) = "0117111111171100" <br />bitmap$(20) = "01104BBBBB401100" <br />bitmap$(21) = "0860922222906800" <br />bitmap$(22) = "0000922222900000" <br />bitmap$(23) = "0000922222900000" <br />bitmap$(24) = "0000922222900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000929092900000" <br />bitmap$(31) = "0000929092900000" <br />bitmap$(32) = "0000929092900000" <br />bitmap$(33) = "0000929092900000" <br />bitmap$(34) = "0000929092900000" <br />bitmap$(35) = "0000929092900000" <br />bitmap$(36) = "0000929092900000" <br />bitmap$(37) = "0000929092900000" <br />bitmap$(38) = "0000333033300000" <br />bitmap$(39) = "0003330003330000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />END <br /> <br /> <br /> <br /> <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 21:29, 05 Sie 2022<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul BSAVE do gry "Serca 2022" <br /> <br />SCREEN 13 <br /> <br />DIM p1(0 TO 192) AS LONG <br />DIM p2(0 TO 192) AS LONG <br />DIM p3(0 TO 192) AS LONG <br />DIM p4(0 TO 192) AS LONG <br />DIM l1(0 TO 192) AS LONG <br />DIM l2(0 TO 192) AS LONG <br />DIM l3(0 TO 192) AS LONG <br />DIM l4(0 TO 192) AS LONG <br /> <br /> <br />DIM bitmap$(0 TO 47) <br />DIM k$(0 TO 255) <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 0A 0A 0A": REM tlo plyta <br />k$(2) = "02 06 06 06": REM tlo fuga <br />k$(3) = "03 10 10 10": REM tlo krawedz <br />k$(4) = "04 00 2F 00": REM liscie <br />k$(5) = "05 3F 3F 3F" <br />k$(6) = "06 3F 3F 3F" <br />k$(7) = "07 28 0A 00": REM doniczka <br />k$(8) = "08 00 00 3F": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 20 20 20": REM framuga zewnetrzna <br />k$(11) = "0B 18 18 18": REM wentylator obudowa <br />k$(12) = "0C 3F 3F 3F": REM wentylator faza 1 <br />k$(13) = "0D 2F 2F 2F": REM wentylator faza 2 <br />k$(14) = "0E 1F 1F 1F": REM wentylator faza 3 <br />k$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM bloki przezroczystosci <br />k$(16) = "10 3F 3F 3F" <br />k$(32) = "20 3F 3F 3F" <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />k$(31) = "1F 28 00 00": REM sweter <br />k$(47) = "2F 05 12 2F": REM spodnie <br />k$(63) = "3F 17 17 17": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 2C 17": REM skora1 <br />k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 30 20 00": REM nos <br />k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych <br />k$(175) = "AF 20 00 00": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 2B 2B": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male zlote <br /> <br />k$(242) = "F2 30 2C 10": REM <br />k$(243) = "F3 28 24 08": REM <br />k$(244) = "F4 2A 26 0A": REM <br />k$(245) = "F5 24 20 04": REM <br /> <br />REM cegly male ZIELONE <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br />REM rysunki **************************************** <br /> <br /> <br /> <br />petla: <br /> <br />REM animacja <br />REM ************************* faza 1 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "0000F6F66FF00000" <br />bitmap$(5) = "000F666666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "0000F66666F00000" <br />bitmap$(8) = "00000F666F000000" <br />bitmap$(9) = "000000FFFF000000" <br /> <br />bitmap$(10) = "000000F11F000000" <br />bitmap$(11) = "00000F111F000000" <br />bitmap$(12) = "00000F1111F00000" <br />bitmap$(13) = "00000F1111FF0000" <br />bitmap$(14) = "0000F1111F1F0000" <br />bitmap$(15) = "0000F1111F1F0000" <br />bitmap$(16) = "0000F111F11F0000" <br />bitmap$(17) = "0000F11F111F0000" <br />bitmap$(18) = "000F111F11F1F000" <br />bitmap$(19) = "000F11F111F1F000" <br />bitmap$(20) = "00F11F1111F1F000" <br />bitmap$(21) = "00F1FFFFFFFFFF00" <br />bitmap$(22) = "00FF0F2222F0FF00" <br />bitmap$(23) = "00F00F2222F00F00" <br />bitmap$(24) = "0000F22222F00000" <br />bitmap$(25) = "0000F222FFFF0000" <br />bitmap$(26) = "0000F222F22F0000" <br />bitmap$(27) = "0000F22FF22F0000" <br />bitmap$(28) = "0000F22F0F2F0000" <br />bitmap$(29) = "0000F2F00F2F0000" <br />bitmap$(30) = "000F22F00F2F0000" <br />bitmap$(31) = "000F22F00F2F0000" <br />bitmap$(32) = "000F2F000F22F000" <br />bitmap$(33) = "000F2F000F22F000" <br />bitmap$(34) = "000F2F0000F2F000" <br />bitmap$(35) = "000F2F0000F2F000" <br />bitmap$(36) = "000F2F0000F2F000" <br />bitmap$(37) = "00F22F0000F22F00" <br />bitmap$(38) = "00F2F000000FFF00" <br />bitmap$(39) = "00FFF00000FF0000" <br />bitmap$(40) = "0FFFF00000000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br /> <br />CLS : <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> GET (0, 0)-(15, 47), l1 <br /> GET (0, 48)-(15, 95), p1 <br /> <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "0000F6F66FF00000" <br />bitmap$(5) = "000F666666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "0000F66666F00000" <br />bitmap$(8) = "00000F666F000000" <br />bitmap$(9) = "000000FFFF000000" <br />bitmap$(10) = "000000F11F000000" <br /> <br />bitmap$(11) = "00000F111F000000" <br />bitmap$(12) = "00000F1111F00000" <br />bitmap$(13) = "00000F1111F00000" <br />bitmap$(14) = "00000F111FF00000" <br />bitmap$(15) = "00000F111FF00000" <br />bitmap$(16) = "00000F111FF00000" <br />bitmap$(17) = "00000F11F1F00000" <br />bitmap$(18) = "0000F111F1F00000" <br />bitmap$(19) = "0000F111F1F00000" <br />bitmap$(20) = "0000F111F1F00000" <br />bitmap$(21) = "0000F1FFFFF00000" <br />bitmap$(22) = "0000F8F222F00000" <br />bitmap$(23) = "0000FFF222F00000" <br />bitmap$(24) = "0000FFF222F00000" <br />bitmap$(25) = "0000F22222F00000" <br />bitmap$(26) = "0000F2222F000000" <br />bitmap$(27) = "0000F2222F000000" <br />bitmap$(28) = "000F2F222F000000" <br />bitmap$(29) = "000F2F222F000000" <br />bitmap$(30) = "000F2F222F000000" <br />bitmap$(31) = "000F2F222F000000" <br />bitmap$(32) = "0000FF222F000000" <br />bitmap$(33) = "0000FF222F000000" <br />bitmap$(34) = "00000F222FF00000" <br />bitmap$(35) = "00000F222FF00000" <br />bitmap$(36) = "000000F22FFF0000" <br />bitmap$(37) = "000000F22F0FF000" <br />bitmap$(38) = "000000F22F000000" <br />bitmap$(39) = "000000F22F000000" <br />bitmap$(40) = "0000FFFFF0000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> GET (16, 0)-(31, 47), l2 <br /> GET (16, 48)-(31, 95), p2 <br /> <br /> <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "0000F6F66FF00000" <br />bitmap$(5) = "000F666666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "0000F66666F00000" <br />bitmap$(8) = "00000F666F000000" <br />bitmap$(9) = "000000FFFF000000" <br /> <br />bitmap$(10) = "000000F11F000000" <br />bitmap$(11) = "00000F111F000000" <br />bitmap$(12) = "00000F1111F00000" <br />bitmap$(13) = "0000FF1111F00000" <br />bitmap$(14) = "0000FF1111F00000" <br />bitmap$(15) = "0000FFF111F00000" <br />bitmap$(16) = "0000FF1F111F0000" <br />bitmap$(17) = "0000FF11F11F0000" <br />bitmap$(18) = "000F1F11F11F0000" <br />bitmap$(19) = "000F1F11F11F0000" <br />bitmap$(20) = "000F1F111F1F0000" <br />bitmap$(21) = "000F1FFFFF1F0000" <br />bitmap$(22) = "0000F6222FFF0000" <br />bitmap$(23) = "00000F222FFF0000" <br />bitmap$(24) = "00000F2222F00000" <br />bitmap$(25) = "00000F2222F00000" <br />bitmap$(26) = "00000F2222F00000" <br />bitmap$(27) = "0000FF2222F00000" <br />bitmap$(28) = "0000F2F222F00000" <br />bitmap$(29) = "0000F22F22F00000" <br />bitmap$(30) = "000F22FF22F00000" <br />bitmap$(31) = "000F22F0F2F00000" <br />bitmap$(32) = "000F2F00F2F00000" <br />bitmap$(33) = "000F2F00F2F00000" <br />bitmap$(34) = "000F2F00F22F0000" <br />bitmap$(35) = "000F2F000F2F0000" <br />bitmap$(36) = "000F2F000F2F0000" <br />bitmap$(37) = "000F2F000F2F0000" <br />bitmap$(38) = "00FFFF000F2F0000" <br />bitmap$(39) = "0000000000F2F000" <br />bitmap$(40) = "00000000FFFF0000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> GET (32, 0)-(47, 47), l3 <br /> GET (32, 48)-(47, 95), p3 <br /> <br /> <br /> <br />REM ************************************ FAZA 4 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "0000F6F66FF00000" <br />bitmap$(5) = "000F666666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "0000F66666F00000" <br />bitmap$(8) = "00000F666F000000" <br />bitmap$(9) = "000000FFFF000000" <br /> <br />bitmap$(10) = "000000F11F000000" <br />bitmap$(11) = "00000F111F000000" <br />bitmap$(12) = "00000F1111F00000" <br />bitmap$(13) = "00000F1111F00000" <br />bitmap$(14) = "00000F111FF00000" <br />bitmap$(15) = "00000F111FF00000" <br />bitmap$(16) = "00000F111FF00000" <br />bitmap$(17) = "00000F11F1F00000" <br />bitmap$(18) = "0000F111F1F00000" <br />bitmap$(19) = "0000F111F1F00000" <br />bitmap$(20) = "0000F111F1F00000" <br />bitmap$(21) = "0000F1FFFFF00000" <br />bitmap$(22) = "0000F8F222F00000" <br />bitmap$(23) = "0000FFF222F00000" <br />bitmap$(24) = "0000FFF222F00000" <br />bitmap$(25) = "0000F22222F00000" <br />bitmap$(26) = "0000F2222F000000" <br />bitmap$(27) = "0000F2222F000000" <br />bitmap$(28) = "000F2222FF000000" <br />bitmap$(29) = "000F2222FF000000" <br />bitmap$(30) = "000F222F2F000000" <br />bitmap$(31) = "000F2222FF000000" <br />bitmap$(32) = "0000F2222F000000" <br />bitmap$(33) = "0000FF222F000000" <br />bitmap$(34) = "00000FFF2FF00000" <br />bitmap$(35) = "00000F22F0F00000" <br />bitmap$(36) = "000000F22FFF0000" <br />bitmap$(37) = "000000F22F0FF000" <br />bitmap$(38) = "000000F22F000000" <br />bitmap$(39) = "000000F22F000000" <br />bitmap$(40) = "0000FFFFF0000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> GET (48, 0)-(63, 47), l4 <br /> GET (48, 48)-(63, 95), p4 <br /> <br /> REM END <br /> <br /> REM *********** petla glowna ************************** <br /> <br />pet2: <br /> <br />IF faza = 4 THEN faza = 0 <br />vek = 0 <br />key$ = INKEY$ <br />IF key$ = "6" THEN x = x + 1: vek = 1 <br />IF key$ = "4" THEN x = x - 1: vek = -1 <br />IF vek <> 0 THEN CLS <br /> <br />IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1 <br />IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2 <br />IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3 <br />IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4 <br /> <br />IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1 <br />IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2 <br />IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3 <br />IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4 <br />IF vek <> 0 THEN faza = faza + 1 <br /> <br />FOR delay = 1 TO 5000: NEXT delay <br /> <br />GOTO pet2 <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "0000366666300000" <br />bitmap$(6) = "000006C8C6000000" <br />bitmap$(7) = "0000006860000000" <br />bitmap$(8) = "0000001610000000" <br />bitmap$(9) = "0000711111700000" <br /> <br />bitmap$(10) = "0000711111700000" <br />bitmap$(11) = "0001111111110000" <br />bitmap$(12) = "0071111111117000" <br />bitmap$(13) = "0071111111117000" <br />bitmap$(14) = "0011711111711000" <br />bitmap$(15) = "0011711111711000" <br />bitmap$(16) = "0711711111711700" <br />bitmap$(17) = "0A11711111711A00" <br />bitmap$(18) = "0117A11111A71100" <br />bitmap$(19) = "0117111111171100" <br />bitmap$(20) = "01104BBBBB401100" <br />bitmap$(21) = "0860922222906800" <br />bitmap$(22) = "0000922222900000" <br />bitmap$(23) = "0000922222900000" <br />bitmap$(24) = "0000922222900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000929092900000" <br />bitmap$(31) = "0000929092900000" <br />bitmap$(32) = "0000929092900000" <br />bitmap$(33) = "0000929092900000" <br />bitmap$(34) = "0000929092900000" <br />bitmap$(35) = "0000929092900000" <br />bitmap$(36) = "0000929092900000" <br />bitmap$(37) = "0000929092900000" <br />bitmap$(38) = "0000333033300000" <br />bitmap$(39) = "0003330003330000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />END <br /> <br /> <br /> <br /> <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 20:51, 05 Sie 2022<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul BSAVE do gry "Serca 2022" <br /> <br />SCREEN 13 <br /> <br />DIM p1(0 TO 192) AS LONG <br />DIM p2(0 TO 192) AS LONG <br />DIM p3(0 TO 192) AS LONG <br />DIM p4(0 TO 192) AS LONG <br />DIM l1(0 TO 192) AS LONG <br />DIM l2(0 TO 192) AS LONG <br />DIM l3(0 TO 192) AS LONG <br />DIM l4(0 TO 192) AS LONG <br /> <br /> <br />DIM bitmap$(0 TO 47) <br />DIM k$(0 TO 255) <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 0A 0A 0A": REM tlo plyta <br />k$(2) = "02 06 06 06": REM tlo fuga <br />k$(3) = "03 10 10 10": REM tlo krawedz <br />k$(4) = "04 00 2F 00": REM liscie <br />k$(5) = "05 3F 3F 3F" <br />k$(6) = "06 3F 3F 3F" <br />k$(7) = "07 28 0A 00": REM doniczka <br />k$(8) = "08 00 00 3F": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 20 20 20": REM framuga zewnetrzna <br />k$(11) = "0B 18 18 18": REM wentylator obudowa <br />k$(12) = "0C 3F 3F 3F": REM wentylator faza 1 <br />k$(13) = "0D 2F 2F 2F": REM wentylator faza 2 <br />k$(14) = "0E 1F 1F 1F": REM wentylator faza 3 <br />k$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM bloki przezroczystosci <br />k$(16) = "10 3F 3F 3F" <br />k$(32) = "20 3F 3F 3F" <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />k$(31) = "1F 28 00 00": REM sweter <br />k$(47) = "2F 05 12 2F": REM spodnie <br />k$(63) = "3F 17 17 17": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 2C 17": REM skora1 <br />k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 30 20 00": REM nos <br />k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych <br />k$(175) = "AF 20 00 00": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 2B 2B": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male zlote <br /> <br />k$(242) = "F2 30 2C 10": REM <br />k$(243) = "F3 28 24 08": REM <br />k$(244) = "F4 2A 26 0A": REM <br />k$(245) = "F5 24 20 04": REM <br /> <br />REM cegly male ZIELONE <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br />REM rysunki **************************************** <br /> <br /> <br /> <br />petla: <br /> <br />REM animacja <br />REM ************************* faza 1 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "0000F6F66FF00000" <br />bitmap$(5) = "000F666666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F11F000000" <br /> <br />bitmap$(10) = "00000F111F000000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "00000F1111FF0000" <br />bitmap$(13) = "0000F1111F1F0000" <br />bitmap$(14) = "0000F1111F1F0000" <br />bitmap$(15) = "0000F111F11F0000" <br />bitmap$(16) = "0000F11F111F0000" <br />bitmap$(17) = "000F111F11F1F000" <br />bitmap$(18) = "000F11F111F1F000" <br />bitmap$(19) = "00F11F1111F1F000" <br />bitmap$(20) = "00F1FFFFFFFFFF00" <br />bitmap$(21) = "00FF0F2222F0FF00" <br />bitmap$(22) = "00F00F2222F00F00" <br />bitmap$(23) = "0000F22222F00000" <br />bitmap$(24) = "0000F222FFFF0000" <br />bitmap$(25) = "0000F222F22F0000" <br />bitmap$(26) = "0000F22FF22F0000" <br />bitmap$(27) = "0000F22F0F2F0000" <br />bitmap$(28) = "0000F2F00F2F0000" <br />bitmap$(29) = "000F22F00F2F0000" <br />bitmap$(30) = "000F22F00F2F0000" <br />bitmap$(31) = "000F2F000F22F000" <br />bitmap$(32) = "000F2F000F22F000" <br />bitmap$(33) = "000F2F0000F2F000" <br />bitmap$(34) = "000F2F0000F2F000" <br />bitmap$(35) = "000F2F0000F2F000" <br />bitmap$(36) = "00F22F0000F22F00" <br />bitmap$(37) = "00F2F000000FFF00" <br />bitmap$(38) = "00FFF00000FF0000" <br />bitmap$(39) = "0FFFF00000000000" <br />bitmap$(40) = "0000000000000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br />CLS : <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> GET (0, 0)-(15, 47), l1 <br /> GET (0, 48)-(15, 95), p1 <br /> <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "0000F6F66FF00000" <br />bitmap$(5) = "000F666666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F11F000000" <br /> <br />bitmap$(10) = "00000F111F000000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "00000F1111F00000" <br />bitmap$(13) = "00000F111FF00000" <br />bitmap$(14) = "00000F111FF00000" <br />bitmap$(15) = "00000F111FF00000" <br />bitmap$(16) = "00000F11F1F00000" <br />bitmap$(17) = "0000F111F1F00000" <br />bitmap$(18) = "0000F111F1F00000" <br />bitmap$(19) = "0000F111F1F00000" <br />bitmap$(20) = "0000F1FFFFF00000" <br />bitmap$(21) = "0000F8F222F00000" <br />bitmap$(22) = "0000FFF222F00000" <br />bitmap$(23) = "0000FFF222F00000" <br />bitmap$(24) = "0000F22222F00000" <br />bitmap$(25) = "0000F2222F000000" <br />bitmap$(26) = "0000F2222F000000" <br />bitmap$(27) = "000F2F222F000000" <br />bitmap$(28) = "000F2F222F000000" <br />bitmap$(29) = "000F2F222F000000" <br />bitmap$(30) = "000F2F222F000000" <br />bitmap$(31) = "0000FF222F000000" <br />bitmap$(32) = "0000FF222F000000" <br />bitmap$(33) = "00000F222FF00000" <br />bitmap$(34) = "00000F222FF00000" <br />bitmap$(35) = "000000F22FFF0000" <br />bitmap$(36) = "000000F22F0FF000" <br />bitmap$(37) = "000000F22F000000" <br />bitmap$(38) = "000000F22F000000" <br />bitmap$(39) = "0000FFFFF0000000" <br />bitmap$(40) = "0000000000000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> GET (16, 0)-(31, 47), l2 <br /> GET (16, 48)-(31, 95), p2 <br /> <br /> <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "0000F6F66FF00000" <br />bitmap$(5) = "000F666666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F11F000000" <br /> <br />bitmap$(10) = "00000F111F000000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "0000FF1111F00000" <br />bitmap$(13) = "0000FF1111F00000" <br />bitmap$(14) = "0000FFF111F00000" <br />bitmap$(15) = "0000FF1F111F0000" <br />bitmap$(16) = "0000FF11F11F0000" <br />bitmap$(17) = "000F1F11F11F0000" <br />bitmap$(18) = "000F1F11F11F0000" <br />bitmap$(19) = "000F1F111F1F0000" <br />bitmap$(20) = "000F1FFFFF1F0000" <br />bitmap$(21) = "0000F6222FFF0000" <br />bitmap$(22) = "00000F222FFF0000" <br />bitmap$(23) = "00000F2222F00000" <br />bitmap$(24) = "00000F2222F00000" <br />bitmap$(25) = "00000F2222F00000" <br /> <br />bitmap$(26) = "0000FF2222F00000" <br />bitmap$(27) = "0000F2F222F00000" <br />bitmap$(28) = "0000F22F22F00000" <br />bitmap$(29) = "000F22FF22F00000" <br />bitmap$(30) = "000F22F0F2F00000" <br />bitmap$(31) = "000F2F00F2F00000" <br />bitmap$(32) = "000F2F00F2F00000" <br />bitmap$(33) = "000F2F00F22F0000" <br />bitmap$(34) = "000F2F000F2F0000" <br />bitmap$(35) = "000F2F000F2F0000" <br />bitmap$(36) = "000F2F000F2F0000" <br />bitmap$(37) = "00FFFF000F2F0000" <br />bitmap$(38) = "0000000000F2F000" <br />bitmap$(39) = "00000000FFFF0000" <br />bitmap$(40) = "0000000000000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> GET (32, 0)-(47, 47), l3 <br /> GET (32, 48)-(47, 95), p3 <br /> <br /> <br /> <br />REM ************************************ FAZA 4 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "0000F6F66FF00000" <br />bitmap$(5) = "000F666666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F11F000000" <br /> <br />bitmap$(10) = "00000F111F000000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "00000F1111F00000" <br />bitmap$(13) = "00000F111FF00000" <br />bitmap$(14) = "00000F111FF00000" <br />bitmap$(15) = "00000F111FF00000" <br />bitmap$(16) = "00000F11F1F00000" <br />bitmap$(17) = "0000F111F1F00000" <br />bitmap$(18) = "0000F111F1F00000" <br />bitmap$(19) = "0000F111F1F00000" <br />bitmap$(20) = "0000F1FFFFF00000" <br />bitmap$(21) = "0000F8F222F00000" <br />bitmap$(22) = "0000FFF222F00000" <br />bitmap$(23) = "0000FFF222F00000" <br />bitmap$(24) = "0000F22222F00000" <br />bitmap$(25) = "0000F2222F000000" <br />bitmap$(26) = "0000F2222F000000" <br />bitmap$(27) = "000F2222FF000000" <br />bitmap$(28) = "000F2222FF000000" <br />bitmap$(29) = "000F222F2F000000" <br />bitmap$(30) = "000F2222FF000000" <br />bitmap$(31) = "0000F2222F000000" <br />bitmap$(32) = "0000FF222F000000" <br />bitmap$(33) = "00000FFF2FF00000" <br />bitmap$(34) = "00000F22F0F00000" <br />bitmap$(35) = "000000F22FFF0000" <br />bitmap$(36) = "000000F22F0FF000" <br />bitmap$(37) = "000000F22F000000" <br />bitmap$(38) = "000000F22F000000" <br />bitmap$(39) = "0000FFFFF0000000" <br />bitmap$(40) = "0000000000000000" <br />bitmap$(41) = "0000000000000000" <br />bitmap$(42) = "0000000000000000" <br />bitmap$(43) = "0000000000000000" <br />bitmap$(44) = "0000000000000000" <br />bitmap$(45) = "0000000000000000" <br />bitmap$(46) = "0000000000000000" <br />bitmap$(47) = "0000000000000000" <br /> <br />FOR yd = 0 TO 47 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 48) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> GET (48, 0)-(63, 47), l4 <br /> GET (48, 48)-(63, 95), p4 <br /> <br /> REM END <br /> <br /> REM *********** petla glowna ************************** <br /> <br />pet2: <br /> <br />IF faza = 4 THEN faza = 0 <br />vek = 0 <br />key$ = INKEY$ <br />IF key$ = "6" THEN x = x + 1: vek = 1 <br />IF key$ = "4" THEN x = x - 1: vek = -1 <br />IF vek <> 0 THEN CLS <br /> <br />IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1 <br />IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2 <br />IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3 <br />IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4 <br /> <br />IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1 <br />IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2 <br />IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3 <br />IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4 <br />IF vek <> 0 THEN faza = faza + 1 <br /> <br />FOR delay = 1 TO 5000: NEXT delay <br /> <br />GOTO pet2 <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "0000366666300000" <br />bitmap$(6) = "000006C8C6000000" <br />bitmap$(7) = "0000006860000000" <br />bitmap$(8) = "0000001610000000" <br />bitmap$(9) = "0000711111700000" <br /> <br />bitmap$(10) = "0000711111700000" <br />bitmap$(11) = "0001111111110000" <br />bitmap$(12) = "0071111111117000" <br />bitmap$(13) = "0071111111117000" <br />bitmap$(14) = "0011711111711000" <br />bitmap$(15) = "0011711111711000" <br />bitmap$(16) = "0711711111711700" <br />bitmap$(17) = "0A11711111711A00" <br />bitmap$(18) = "0117A11111A71100" <br />bitmap$(19) = "0117111111171100" <br />bitmap$(20) = "01104BBBBB401100" <br />bitmap$(21) = "0860922222906800" <br />bitmap$(22) = "0000922222900000" <br />bitmap$(23) = "0000922222900000" <br />bitmap$(24) = "0000922222900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000929092900000" <br />bitmap$(31) = "0000929092900000" <br />bitmap$(32) = "0000929092900000" <br />bitmap$(33) = "0000929092900000" <br />bitmap$(34) = "0000929092900000" <br />bitmap$(35) = "0000929092900000" <br />bitmap$(36) = "0000929092900000" <br />bitmap$(37) = "0000929092900000" <br />bitmap$(38) = "0000333033300000" <br />bitmap$(39) = "0003330003330000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />END <br /> <br /> <br /> <br /> <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 12:42, 05 Sie 2022<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul BSAVE do gry "Serca 2022" <br /> <br />SCREEN 13 <br /> <br />DIM p1(0 TO 160) AS LONG <br />DIM p2(0 TO 160) AS LONG <br />DIM p3(0 TO 160) AS LONG <br />DIM p4(0 TO 160) AS LONG <br />DIM l1(0 TO 160) AS LONG <br />DIM l2(0 TO 160) AS LONG <br />DIM l3(0 TO 160) AS LONG <br />DIM l4(0 TO 160) AS LONG <br /> <br /> <br />DIM bitmap$(0 TO 39) <br />DIM k$(0 TO 255) <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 0A 0A 0A": REM tlo plyta <br />k$(2) = "02 06 06 06": REM tlo fuga <br />k$(3) = "03 10 10 10": REM tlo krawedz <br />k$(4) = "04 00 2F 00": REM liscie <br />k$(5) = "05 3F 3F 3F" <br />k$(6) = "06 3F 3F 3F" <br />k$(7) = "07 28 0A 00": REM doniczka <br />k$(8) = "08 00 00 3F": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 20 20 20": REM framuga zewnetrzna <br />k$(11) = "0B 18 18 18": REM wentylator obudowa <br />k$(12) = "0C 3F 3F 3F": REM wentylator faza 1 <br />k$(13) = "0D 2F 2F 2F": REM wentylator faza 2 <br />k$(14) = "0E 1F 1F 1F": REM wentylator faza 3 <br />k$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM bloki przezroczystosci <br />k$(16) = "10 3F 3F 3F" <br />k$(32) = "20 3F 3F 3F" <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />k$(31) = "1F 28 00 00": REM sweter <br />k$(47) = "2F 05 12 2F": REM spodnie <br />k$(63) = "3F 17 17 17": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 2C 17": REM skora1 <br />k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 30 20 00": REM nos <br />k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych <br />k$(175) = "AF 20 00 00": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 2B 2B": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male zlote <br /> <br />k$(242) = "F2 30 2C 10": REM <br />k$(243) = "F3 28 24 08": REM <br />k$(244) = "F4 2A 26 0A": REM <br />k$(245) = "F5 24 20 04": REM <br /> <br />REM cegly male ZIELONE <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br />REM rysunki **************************************** <br /> <br /> <br /> <br />petla: <br /> <br />REM animacja <br />REM ************************* faza 1 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "0000F6F66FF00000" <br />bitmap$(5) = "000F666666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F11F000000" <br /> <br />bitmap$(10) = "00000F111F000000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "00000F1111FF0000" <br />bitmap$(13) = "0000F1111F1F0000" <br />bitmap$(14) = "0000F1111F1F0000" <br />bitmap$(15) = "0000F111F11F0000" <br />bitmap$(16) = "0000F11F111F0000" <br />bitmap$(17) = "000F111F11F1F000" <br />bitmap$(18) = "000F11F111F1F000" <br />bitmap$(19) = "00F11F1111F1F000" <br />bitmap$(20) = "00F1FFFFFFFFFF000" <br />bitmap$(21) = "00FF0F2222F0FF00" <br />bitmap$(22) = "00F00F2222F00F00" <br />bitmap$(23) = "0000F22222F00000" <br />bitmap$(24) = "0000F222FFFF0000" <br />bitmap$(25) = "0000F222F22F0000" <br />bitmap$(26) = "0000F22FF22F0000" <br />bitmap$(27) = "0000F22F0F2F0000" <br />bitmap$(28) = "0000F2F00F2F0000" <br />bitmap$(29) = "000F22F00F2F0000" <br />bitmap$(30) = "000F22F00F2F0000" <br />bitmap$(31) = "000F2F000F22F000" <br />bitmap$(32) = "000F2F000F22F000" <br />bitmap$(33) = "000F2F0000F2F000" <br />bitmap$(34) = "000F2F0000F2F000" <br />bitmap$(35) = "000F2F0000F2F000" <br />bitmap$(36) = "00F22F0000F22F00" <br />bitmap$(37) = "00F2F000000FFF00" <br />bitmap$(38) = "00FFF00000FF0000" <br />bitmap$(39) = "0FFFF00000000000" <br /> <br />CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> GET (0, 0)-(15, 39), l1 <br /> GET (0, 40)-(15, 79), p1 <br /> <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "0000F6F66FF00000" <br />bitmap$(5) = "000F666666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F11F000000" <br /> <br />bitmap$(10) = "00000F111F000000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "00000F1111F00000" <br />bitmap$(13) = "00000F111FF00000" <br />bitmap$(14) = "00000F111FF00000" <br />bitmap$(15) = "00000F111FF00000" <br />bitmap$(16) = "00000F11F1F00000" <br />bitmap$(17) = "0000F111F1F00000" <br />bitmap$(18) = "0000F111F1F00000" <br />bitmap$(19) = "0000F111F1F00000" <br />bitmap$(20) = "0000F1FFFFF00000" <br />bitmap$(21) = "0000F8F222F00000" <br />bitmap$(22) = "0000FFF222F00000" <br />bitmap$(23) = "0000FFF222F00000" <br />bitmap$(24) = "0000F22222F00000" <br />bitmap$(25) = "0000F2222F000000" <br />bitmap$(26) = "0000F2222F000000" <br />bitmap$(27) = "000F2F222F000000" <br />bitmap$(28) = "000F2F222F000000" <br />bitmap$(29) = "000F2F222F000000" <br />bitmap$(30) = "000F2F222F000000" <br />bitmap$(31) = "0000FF222F000000" <br />bitmap$(32) = "0000FF222F000000" <br />bitmap$(33) = "00000F222FF00000" <br />bitmap$(34) = "00000F222FF00000" <br />bitmap$(35) = "000000F22FFF0000" <br />bitmap$(36) = "000000F22F0FF000" <br />bitmap$(37) = "000000F22F000000" <br />bitmap$(38) = "000000F22F000000" <br />bitmap$(39) = "0000FFFFF0000000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> GET (16, 0)-(31, 39), l2 <br /> GET (16, 40)-(31, 79), p2 <br /> <br /> <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "0000F6F66FF00000" <br />bitmap$(5) = "000F666666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F11F000000" <br /> <br />bitmap$(10) = "00000F111F000000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "0000FF1111F00000" <br />bitmap$(13) = "0000FF1111F00000" <br />bitmap$(14) = "0000FFF111F00000" <br />bitmap$(15) = "0000FF1F111F0000" <br />bitmap$(16) = "0000FF11F11F0000" <br />bitmap$(17) = "000F1F11F11F0000" <br />bitmap$(18) = "000F1F11F11F0000" <br />bitmap$(19) = "000F1F111F1F0000" <br />bitmap$(20) = "000F1FFFFF1F0000" <br />bitmap$(21) = "0000F6222FFF0000" <br />bitmap$(22) = "00000F222FFF0000" <br />bitmap$(23) = "00000F2222F00000" <br />bitmap$(24) = "00000F2222F00000" <br />bitmap$(25) = "00000F2222F00000" <br /> <br />bitmap$(26) = "0000FF2222F00000" <br />bitmap$(27) = "0000F2F222F00000" <br />bitmap$(28) = "0000F22F22F00000" <br />bitmap$(29) = "000F22FF22F00000" <br />bitmap$(30) = "000F22F0F2F00000" <br />bitmap$(31) = "000F2F00F2F00000" <br />bitmap$(32) = "000F2F00F2F00000" <br />bitmap$(33) = "000F2F00F22F0000" <br />bitmap$(34) = "000F2F000F2F0000" <br />bitmap$(35) = "000F2F000F2F0000" <br />bitmap$(36) = "000F2F000F2F0000" <br />bitmap$(37) = "00FFFF000F2F0000" <br />bitmap$(38) = "0000000000F2F000" <br />bitmap$(39) = "00000000FFFF0000" <br /> <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> GET (32, 0)-(47, 39), l3 <br /> GET (32, 40)-(47, 79), p3 <br /> <br /> <br /> <br />REM ************************************ FAZA 4 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "0000F6F66FF00000" <br />bitmap$(5) = "000F666666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F11F000000" <br /> <br />bitmap$(10) = "00000F111F000000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "00000F1111F00000" <br />bitmap$(13) = "00000F111FF00000" <br />bitmap$(14) = "00000F111FF00000" <br />bitmap$(15) = "00000F111FF00000" <br />bitmap$(16) = "00000F11F1F00000" <br />bitmap$(17) = "0000F111F1F00000" <br />bitmap$(18) = "0000F111F1F00000" <br />bitmap$(19) = "0000F111F1F00000" <br />bitmap$(20) = "0000F1FFFFF00000" <br />bitmap$(21) = "0000F8F222F00000" <br />bitmap$(22) = "0000FFF222F00000" <br />bitmap$(23) = "0000FFF222F00000" <br />bitmap$(24) = "0000F22222F00000" <br />bitmap$(25) = "0000F2222F000000" <br />bitmap$(26) = "0000F2222F000000" <br />bitmap$(27) = "000F2222FF000000" <br />bitmap$(28) = "000F2222FF000000" <br />bitmap$(29) = "000F222F2F000000" <br />bitmap$(30) = "000F2222FF000000" <br />bitmap$(31) = "0000F2222F000000" <br />bitmap$(32) = "0000FF222F000000" <br />bitmap$(33) = "00000FFF2FF00000" <br />bitmap$(34) = "00000F22F0F00000" <br />bitmap$(35) = "000000F22FFF0000" <br />bitmap$(36) = "000000F22F0FF000" <br />bitmap$(37) = "000000F22F000000" <br />bitmap$(38) = "000000F22F000000" <br />bitmap$(39) = "0000FFFFF0000000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> GET (48, 0)-(63, 39), l4 <br /> GET (48, 40)-(63, 79), p4 <br /> <br /> REM END <br /> <br /> REM *********** petla glowna ************************** <br /> <br />pet2: <br /> <br />IF faza = 4 THEN faza = 0 <br />vek = 0 <br />key$ = INKEY$ <br />IF key$ = "6" THEN x = x + 1: vek = 1 <br />IF key$ = "4" THEN x = x - 1: vek = -1 <br />IF vek <> 0 THEN CLS <br /> <br />IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1 <br />IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2 <br />IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3 <br />IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4 <br /> <br />IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1 <br />IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2 <br />IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3 <br />IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4 <br />IF vek <> 0 THEN faza = faza + 1 <br /> <br />FOR delay = 1 TO 5000: NEXT delay <br /> <br />GOTO pet2 <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "0000366666300000" <br />bitmap$(6) = "000006C8C6000000" <br />bitmap$(7) = "0000006860000000" <br />bitmap$(8) = "0000001610000000" <br />bitmap$(9) = "0000711111700000" <br /> <br />bitmap$(10) = "0000711111700000" <br />bitmap$(11) = "0001111111110000" <br />bitmap$(12) = "0071111111117000" <br />bitmap$(13) = "0071111111117000" <br />bitmap$(14) = "0011711111711000" <br />bitmap$(15) = "0011711111711000" <br />bitmap$(16) = "0711711111711700" <br />bitmap$(17) = "0A11711111711A00" <br />bitmap$(18) = "0117A11111A71100" <br />bitmap$(19) = "0117111111171100" <br />bitmap$(20) = "01104BBBBB401100" <br />bitmap$(21) = "0860922222906800" <br />bitmap$(22) = "0000922222900000" <br />bitmap$(23) = "0000922222900000" <br />bitmap$(24) = "0000922222900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000929092900000" <br />bitmap$(31) = "0000929092900000" <br />bitmap$(32) = "0000929092900000" <br />bitmap$(33) = "0000929092900000" <br />bitmap$(34) = "0000929092900000" <br />bitmap$(35) = "0000929092900000" <br />bitmap$(36) = "0000929092900000" <br />bitmap$(37) = "0000929092900000" <br />bitmap$(38) = "0000333033300000" <br />bitmap$(39) = "0003330003330000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />END <br /> <br /> <br /> <br /> <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 12:22, 05 Sie 2022<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul BSAVE do gry "Serca 2022" <br /> <br />SCREEN 13 <br /> <br />DIM p1(0 TO 160) AS LONG <br />DIM p2(0 TO 160) AS LONG <br />DIM p3(0 TO 160) AS LONG <br />DIM p4(0 TO 160) AS LONG <br />DIM l1(0 TO 160) AS LONG <br />DIM l2(0 TO 160) AS LONG <br />DIM l3(0 TO 160) AS LONG <br />DIM l4(0 TO 160) AS LONG <br /> <br /> <br />DIM bitmap$(0 TO 39) <br />DIM k$(0 TO 255) <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 0A 0A 0A": REM tlo plyta <br />k$(2) = "02 06 06 06": REM tlo fuga <br />k$(3) = "03 10 10 10": REM tlo krawedz <br />k$(4) = "04 00 2F 00": REM liscie <br />k$(5) = "05 3F 3F 3F" <br />k$(6) = "06 3F 3F 3F" <br />k$(7) = "07 28 0A 00": REM doniczka <br />k$(8) = "08 00 00 3F": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 20 20 20": REM framuga zewnetrzna <br />k$(11) = "0B 18 18 18": REM wentylator obudowa <br />k$(12) = "0C 3F 3F 3F": REM wentylator faza 1 <br />k$(13) = "0D 2F 2F 2F": REM wentylator faza 2 <br />k$(14) = "0E 1F 1F 1F": REM wentylator faza 3 <br />k$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM bloki przezroczystosci <br />k$(16) = "10 3F 3F 3F" <br />k$(32) = "20 3F 3F 3F" <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />k$(31) = "1F 28 00 00": REM sweter <br />k$(47) = "2F 05 12 2F": REM spodnie <br />k$(63) = "3F 17 17 17": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 2C 17": REM skora1 <br />k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 30 20 00": REM nos <br />k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych <br />k$(175) = "AF 20 00 00": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 2B 2B": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male zlote <br /> <br />k$(242) = "F2 30 2C 10": REM <br />k$(243) = "F3 28 24 08": REM <br />k$(244) = "F4 2A 26 0A": REM <br />k$(245) = "F5 24 20 04": REM <br /> <br />REM cegly male ZIELONE <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br />REM rysunki **************************************** <br /> <br /> <br /> <br />petla: <br /> <br />REM animacja <br />REM ************************* faza 1 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "000F66666FF00000" <br />bitmap$(5) = "0000F66666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F111F00000" <br /> <br />bitmap$(10) = "00000F1111F00000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "00000F1111FF0000" <br />bitmap$(13) = "0000F1111F1F0000" <br />bitmap$(14) = "0000F111FF1F0000" <br />bitmap$(15) = "0000F11F111F0000" <br />bitmap$(16) = "0000F11F111F0000" <br />bitmap$(17) = "000F111F11F1F000" <br />bitmap$(18) = "000F11F111F1F000" <br />bitmap$(19) = "00F11F1111F1F000" <br />bitmap$(20) = "00F1FFFFFFFFFF000" <br />bitmap$(21) = "00FF0F2222F0FF00" <br />bitmap$(22) = "00F00F2222F00F00" <br />bitmap$(23) = "0000F22222F00000" <br />bitmap$(24) = "0000F222FFFF0000" <br />bitmap$(25) = "0000F22FF22F0000" <br />bitmap$(26) = "0000F22FF22F0000" <br />bitmap$(27) = "0000F2F00F2F0000" <br />bitmap$(28) = "0000F2F00F2F0000" <br />bitmap$(29) = "000F22F00F2F0000" <br />bitmap$(30) = "000F22F00F2F0000" <br />bitmap$(31) = "000F2F000F22F000" <br />bitmap$(32) = "000F2F000F22F000" <br />bitmap$(33) = "000F2F0000F2F000" <br />bitmap$(34) = "000F2F0000F2F000" <br />bitmap$(35) = "000F2F0000F2F000" <br />bitmap$(36) = "00F22F0000F22F00" <br />bitmap$(37) = "00F2F000000FFF00" <br />bitmap$(38) = "00FFF00000FF0000" <br />bitmap$(39) = "0FFFF00000000000" <br /> <br />CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> GET (0, 0)-(15, 39), l1 <br /> GET (0, 40)-(15, 79), p1 <br /> <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "000F66666FF00000" <br />bitmap$(5) = "0000F66666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F111F00000" <br /> <br />bitmap$(10) = "00000F1111F00000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "00000F1111F00000" <br />bitmap$(13) = "00000F111FF00000" <br />bitmap$(14) = "00000F111FF00000" <br />bitmap$(15) = "00000F111FF00000" <br />bitmap$(16) = "00000F11F1F00000" <br />bitmap$(17) = "0000F111F1F00000" <br />bitmap$(18) = "0000F111F1F00000" <br />bitmap$(19) = "0000F111F1F00000" <br />bitmap$(20) = "0000F1FFFFF00000" <br />bitmap$(21) = "0000F8F222F00000" <br />bitmap$(22) = "0000FFF222F00000" <br />bitmap$(23) = "0000FFF2222F00000" <br />bitmap$(24) = "0000F22222F00000" <br />bitmap$(25) = "0000F2222F000000" <br />bitmap$(26) = "0000F2222F000000" <br />bitmap$(27) = "000F2F222F000000" <br />bitmap$(28) = "000F2F222F000000" <br />bitmap$(29) = "000F2F222F000000" <br />bitmap$(30) = "000F2F222F000000" <br />bitmap$(31) = "0000FF222F000000" <br />bitmap$(32) = "0000FF222F000000" <br />bitmap$(33) = "00000F222FF00000" <br />bitmap$(34) = "00000F222FF00000" <br />bitmap$(35) = "000000F22FFF0000" <br />bitmap$(36) = "000000F22F0FF000" <br />bitmap$(37) = "000000F22F000000" <br />bitmap$(38) = "000000F22F000000" <br />bitmap$(39) = "0000FFFFF0000000" <br />CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> GET (16, 0)-(31, 39), l2 <br /> GET (16, 40)-(31, 79), p2 <br /> <br /> <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "000F66666FF00000" <br />bitmap$(5) = "0000F66666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F111F00000" <br /> <br />bitmap$(10) = "00000F1111F00000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "0000FF1111F00000" <br />bitmap$(13) = "0000FF1111F00000" <br />bitmap$(14) = "0000FFF111F00000" <br />bitmap$(15) = "0000FFFF111F0000" <br />bitmap$(16) = "0000FF11F11F0000" <br />bitmap$(17) = "000F1F11F11F0000" <br />bitmap$(18) = "000F1F11F11F0000" <br />bitmap$(19) = "000F1F111F1F0000" <br />bitmap$(20) = "000F1FFFFF1F0000" <br />bitmap$(21) = "0000F6222FFF0000" <br />bitmap$(22) = "00000F222FFF0000" <br />bitmap$(23) = "00000F2222F00000" <br />bitmap$(24) = "00000F2222F00000" <br />bitmap$(25) = "00000F2222F00000" <br /> <br />bitmap$(26) = "0000FF2222F00000" <br />bitmap$(27) = "0000FF2222F00000" <br />bitmap$(28) = "0000F2FF22F00000" <br />bitmap$(29) = "000F22FF22F00000" <br />bitmap$(30) = "000F2F00F2F00000" <br />bitmap$(31) = "000F2F00F2F00000" <br />bitmap$(32) = "000F2F00F2F00000" <br />bitmap$(33) = "000F2F00F22F0000" <br />bitmap$(34) = "000F2F000F2F0000" <br />bitmap$(35) = "000F2F000F2F0000" <br />bitmap$(36) = "000F2F000F2F0000" <br />bitmap$(37) = "00FFFF000F2F0000" <br />bitmap$(38) = "0000000000F2F000" <br />bitmap$(39) = "00000000FFFF0000" <br /> <br />CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> GET (32, 0)-(47, 39), l3 <br /> GET (32, 40)-(47, 79), p3 <br /> <br /> <br /> <br />REM ************************************ FAZA 4 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "000F66666FF00000" <br />bitmap$(5) = "0000F66666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F111F00000" <br /> <br />bitmap$(10) = "00000F1111F00000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "00000F1111F00000" <br />bitmap$(13) = "00000F111FF00000" <br />bitmap$(14) = "00000F111FF00000" <br />bitmap$(15) = "00000F111FF00000" <br />bitmap$(16) = "00000F11F1F00000" <br />bitmap$(17) = "0000F111F1F00000" <br />bitmap$(18) = "0000F111F1F00000" <br />bitmap$(19) = "0000F111F1F00000" <br />bitmap$(20) = "0000F1FFFFF00000" <br />bitmap$(21) = "0000F8F222F00000" <br />bitmap$(22) = "0000FFF222F00000" <br />bitmap$(23) = "0000FFF222F00000" <br />bitmap$(24) = "0000F22222F00000" <br />bitmap$(25) = "0000F2222F000000" <br />bitmap$(26) = "0000F2222F000000" <br />bitmap$(27) = "000F2222FF000000" <br />bitmap$(28) = "000F2222FF000000" <br />bitmap$(29) = "000F222F2F000000" <br />bitmap$(30) = "000F2222FF000000" <br />bitmap$(31) = "0000F2222F000000" <br />bitmap$(32) = "0000FF222F000000" <br />bitmap$(33) = "00000FF22FF00000" <br />bitmap$(34) = "00000F22F0F00000" <br />bitmap$(35) = "000000F22FFF0000" <br />bitmap$(36) = "000000F22F0FF000" <br />bitmap$(37) = "000000F22F000000" <br />bitmap$(38) = "000000F22F000000" <br />bitmap$(39) = "0000FFFFF0000000" <br />CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> GET (48, 0)-(63, 39), l4 <br /> GET (48, 40)-(63, 79), p4 <br /> <br />pet2: <br />faza = faza + 1 <br />IF faza = 4 THEN faza = 0 <br />vek = 0 <br />key$ = INKEY$ <br />IF key$ = "6" THEN x = x + 1: vek = 1 <br />IF key$ = "4" THEN x = x - 1: vek = -1 <br />IF vek <> 0 THEN CLS <br /> <br />IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1 <br />IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2 <br />IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3 <br />IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4 <br /> <br />IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1 <br />IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2 <br />IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3 <br />IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4 <br /> <br />FOR delay = 1 TO 5000: NEXT delay <br /> <br />GOTO pet2 <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "0000366666300000" <br />bitmap$(6) = "000006C8C6000000" <br />bitmap$(7) = "0000006860000000" <br />bitmap$(8) = "0000001610000000" <br />bitmap$(9) = "0000711111700000" <br /> <br />bitmap$(10) = "0000711111700000" <br />bitmap$(11) = "0001111111110000" <br />bitmap$(12) = "0071111111117000" <br />bitmap$(13) = "0071111111117000" <br />bitmap$(14) = "0011711111711000" <br />bitmap$(15) = "0011711111711000" <br />bitmap$(16) = "0711711111711700" <br />bitmap$(17) = "0A11711111711A00" <br />bitmap$(18) = "0117A11111A71100" <br />bitmap$(19) = "0117111111171100" <br />bitmap$(20) = "01104BBBBB401100" <br />bitmap$(21) = "0860922222906800" <br />bitmap$(22) = "0000922222900000" <br />bitmap$(23) = "0000922222900000" <br />bitmap$(24) = "0000922222900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000929092900000" <br />bitmap$(31) = "0000929092900000" <br />bitmap$(32) = "0000929092900000" <br />bitmap$(33) = "0000929092900000" <br />bitmap$(34) = "0000929092900000" <br />bitmap$(35) = "0000929092900000" <br />bitmap$(36) = "0000929092900000" <br />bitmap$(37) = "0000929092900000" <br />bitmap$(38) = "0000333033300000" <br />bitmap$(39) = "0003330003330000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />END <br /> <br /> <br /> <br /> <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 12:17, 05 Sie 2022<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul BSAVE do gry "Serca 2022" <br /> <br />SCREEN 13 <br /> <br />DIM p1(0 TO 160) AS LONG <br />DIM p2(0 TO 160) AS LONG <br />DIM p3(0 TO 160) AS LONG <br />DIM p4(0 TO 160) AS LONG <br />DIM l1(0 TO 160) AS LONG <br />DIM l2(0 TO 160) AS LONG <br />DIM l3(0 TO 160) AS LONG <br />DIM l4(0 TO 160) AS LONG <br /> <br /> <br />DIM bitmap$(0 TO 39) <br />DIM k$(0 TO 255) <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 0A 0A 0A": REM tlo plyta <br />k$(2) = "02 06 06 06": REM tlo fuga <br />k$(3) = "03 10 10 10": REM tlo krawedz <br />k$(4) = "04 00 2F 00": REM liscie <br />k$(5) = "05 3F 3F 3F" <br />k$(6) = "06 3F 3F 3F" <br />k$(7) = "07 28 0A 00": REM doniczka <br />k$(8) = "08 00 00 3F": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 20 20 20": REM framuga zewnetrzna <br />k$(11) = "0B 18 18 18": REM wentylator obudowa <br />k$(12) = "0C 3F 3F 3F": REM wentylator faza 1 <br />k$(13) = "0D 2F 2F 2F": REM wentylator faza 2 <br />k$(14) = "0E 1F 1F 1F": REM wentylator faza 3 <br />k$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM bloki przezroczystosci <br />k$(16) = "10 3F 3F 3F" <br />k$(32) = "20 3F 3F 3F" <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />k$(31) = "1F 28 00 00": REM sweter <br />k$(47) = "2F 05 12 2F": REM spodnie <br />k$(63) = "3F 17 17 17": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 2C 17": REM skora1 <br />k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 30 20 00": REM nos <br />k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych <br />k$(175) = "AF 20 00 00": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 2B 2B": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male zlote <br /> <br />k$(242) = "F2 30 2C 10": REM <br />k$(243) = "F3 28 24 08": REM <br />k$(244) = "F4 2A 26 0A": REM <br />k$(245) = "F5 24 20 04": REM <br /> <br />REM cegly male ZIELONE <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br />REM rysunki **************************************** <br /> <br /> <br /> <br />petla: <br /> <br />REM animacja <br />REM ************************* faza 1 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "000F66666FF00000" <br />bitmap$(5) = "0000F66666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F111F00000" <br /> <br />bitmap$(10) = "00000F1111F00000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "00000F1111FF0000" <br />bitmap$(13) = "0000F1111F1F0000" <br />bitmap$(14) = "0000F111FF1F0000" <br />bitmap$(15) = "0000F11F111F0000" <br />bitmap$(16) = "0000F11F111F0000" <br />bitmap$(17) = "000F111F11F1F000" <br />bitmap$(18) = "000F11F111F1F000" <br />bitmap$(19) = "00F11F1111F1F000" <br />bitmap$(20) = "00F1FFFFFFFFFF000" <br />bitmap$(21) = "00FF0F2222F0FF00" <br />bitmap$(22) = "00F00F2222F00F00" <br />bitmap$(23) = "0000F22222F00000" <br />bitmap$(24) = "0000F222FFFF0000" <br />bitmap$(25) = "0000F22FF22F0000" <br />bitmap$(26) = "0000F22FF22F0000" <br />bitmap$(27) = "0000F2F00F2F0000" <br />bitmap$(28) = "0000F2F00F2F0000" <br />bitmap$(29) = "000F22F00F2F0000" <br />bitmap$(30) = "000F22F00F2F0000" <br />bitmap$(31) = "000F2F000F22F000" <br />bitmap$(32) = "000F2F000F22F000" <br />bitmap$(33) = "000F2F0000F2F000" <br />bitmap$(34) = "000F2F0000F2F000" <br />bitmap$(35) = "000F2F0000F2F000" <br />bitmap$(36) = "00F22F0000F22F00" <br />bitmap$(37) = "00F2F000000FFF00" <br />bitmap$(38) = "00FFF00000FF0000" <br />bitmap$(39) = "0FFFF00000000000" <br /> <br />CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> GET (0, 0)-(15, 39), l1 <br /> GET (0, 40)-(15, 79), p1 <br /> <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "000F66666FF00000" <br />bitmap$(5) = "0000F66666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F111F00000" <br /> <br />bitmap$(10) = "00000F1111F00000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "00000F1111F00000" <br />bitmap$(13) = "00000F111FF00000" <br />bitmap$(14) = "00000F111FF00000" <br />bitmap$(15) = "00000F111FF00000" <br />bitmap$(16) = "00000F11F1F00000" <br />bitmap$(17) = "0000F111F1F00000" <br />bitmap$(18) = "0000F111F1F00000" <br />bitmap$(19) = "0000F111F1F00000" <br />bitmap$(20) = "0000F1FFFFF00000" <br />bitmap$(21) = "0000F8F222F00000" <br />bitmap$(22) = "0000FFF222F00000" <br />bitmap$(23) = "0000FFF2222F00000" <br />bitmap$(24) = "0000F22222F00000" <br />bitmap$(25) = "0000F2222F000000" <br />bitmap$(26) = "0000F2222F000000" <br />bitmap$(27) = "000F2F222F000000" <br />bitmap$(28) = "000F2F222F000000" <br />bitmap$(29) = "000F2F222F000000" <br />bitmap$(30) = "000F2F222F000000" <br />bitmap$(31) = "0000FF222F000000" <br />bitmap$(32) = "0000FF222F000000" <br />bitmap$(33) = "00000F222FF00000" <br />bitmap$(34) = "00000F222FF00000" <br />bitmap$(35) = "000000F22FFF0000" <br />bitmap$(36) = "000000F22F0FF000" <br />bitmap$(37) = "000000F22F000000" <br />bitmap$(38) = "000000F22F000000" <br />bitmap$(39) = "0000FFFFF0000000" <br />CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> GET (0, 0)-(15, 39), l2 <br /> GET (0, 40)-(15, 79), p2 <br /> <br /> <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "000F66666FF00000" <br />bitmap$(5) = "0000F66666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F111F00000" <br /> <br />bitmap$(10) = "00000F1111F00000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "0000FF1111F00000" <br />bitmap$(13) = "0000FF1111F00000" <br />bitmap$(14) = "0000FFF111F00000" <br />bitmap$(15) = "0000FFFF111F0000" <br />bitmap$(16) = "0000FF11F11F0000" <br />bitmap$(17) = "000F1F11F11F0000" <br />bitmap$(18) = "000F1F11F11F0000" <br />bitmap$(19) = "000F1F111F1F0000" <br />bitmap$(20) = "000F1FFFFF1F0000" <br />bitmap$(21) = "0000F6222FFF0000" <br />bitmap$(22) = "00000F222FFF0000" <br />bitmap$(23) = "00000F2222F00000" <br />bitmap$(24) = "00000F2222F00000" <br />bitmap$(25) = "00000F2222F00000" <br /> <br />bitmap$(26) = "0000FF2222F00000" <br />bitmap$(27) = "0000FF2222F00000" <br />bitmap$(28) = "0000F2FF22F00000" <br />bitmap$(29) = "000F22FF22F00000" <br />bitmap$(30) = "000F2F00F2F00000" <br />bitmap$(31) = "000F2F00F2F00000" <br />bitmap$(32) = "000F2F00F2F00000" <br />bitmap$(33) = "000F2F00F22F0000" <br />bitmap$(34) = "000F2F000F2F0000" <br />bitmap$(35) = "000F2F000F2F0000" <br />bitmap$(36) = "000F2F000F2F0000" <br />bitmap$(37) = "00FFFF000F2F0000" <br />bitmap$(38) = "0000000000F2F000" <br />bitmap$(39) = "00000000FFFF0000" <br /> <br />CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> GET (0, 0)-(15, 39), l3 <br /> GET (0, 40)-(15, 79), p3 <br /> <br /> <br /> <br />REM ************************************ FAZA 4 <br /> <br />bitmap$(0) = "00000FFFFF000000" <br />bitmap$(1) = "0000F33333F00000" <br />bitmap$(2) = "0000FFFF33F00000" <br />bitmap$(3) = "0000F366F3F00000" <br />bitmap$(4) = "000F66666FF00000" <br />bitmap$(5) = "0000F66666F00000" <br />bitmap$(6) = "0000F66666F00000" <br />bitmap$(7) = "00000F666F000000" <br />bitmap$(8) = "000000FFFF000000" <br />bitmap$(9) = "000000F111F00000" <br /> <br />bitmap$(10) = "00000F1111F00000" <br />bitmap$(11) = "00000F1111F00000" <br />bitmap$(12) = "00000F1111F00000" <br />bitmap$(13) = "00000F111FF00000" <br />bitmap$(14) = "00000F111FF00000" <br />bitmap$(15) = "00000F111FF00000" <br />bitmap$(16) = "00000F11F1F00000" <br />bitmap$(17) = "0000F111F1F00000" <br />bitmap$(18) = "0000F111F1F00000" <br />bitmap$(19) = "0000F111F1F00000" <br />bitmap$(20) = "0000F1FFFFF00000" <br />bitmap$(21) = "0000F8F222F00000" <br />bitmap$(22) = "0000FFF222F00000" <br />bitmap$(23) = "0000FFF222F00000" <br />bitmap$(24) = "0000F22222F00000" <br />bitmap$(25) = "0000F2222F000000" <br />bitmap$(26) = "0000F2222F000000" <br />bitmap$(27) = "000F2222FF000000" <br />bitmap$(28) = "000F2222FF000000" <br />bitmap$(29) = "000F222F2F000000" <br />bitmap$(30) = "000F2222FF000000" <br />bitmap$(31) = "0000F2222F000000" <br />bitmap$(32) = "0000FF222F000000" <br />bitmap$(33) = "00000FF22FF00000" <br />bitmap$(34) = "00000F22F0F00000" <br />bitmap$(35) = "000000F22FFF0000" <br />bitmap$(36) = "000000F22F0FF000" <br />bitmap$(37) = "000000F22F000000" <br />bitmap$(38) = "000000F22F000000" <br />bitmap$(39) = "0000FFFFF0000000" <br />CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> GET (0, 0)-(15, 39), l4 <br /> GET (0, 40)-(15, 79), p4 <br /> <br />pet2: <br />faza = faza + 1 <br />IF faza = 4 THEN faza = 0 <br />vek = 0 <br />key$ = INKEY$ <br />IF key$ = "6" THEN x = x + 1: vek = 1 <br />IF key$ = "4" THEN x = x - 1: vek = -1 <br />IF vek <> 0 THEN CLS <br /> <br />IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1 <br />IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2 <br />IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3 <br />IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4 <br /> <br />IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1 <br />IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2 <br />IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3 <br />IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4 <br /> <br />FOR delay = 1 TO 5000: NEXT delay <br /> <br />GOTO pet2 <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "0000366666300000" <br />bitmap$(6) = "000006C8C6000000" <br />bitmap$(7) = "0000006860000000" <br />bitmap$(8) = "0000001610000000" <br />bitmap$(9) = "0000711111700000" <br /> <br />bitmap$(10) = "0000711111700000" <br />bitmap$(11) = "0001111111110000" <br />bitmap$(12) = "0071111111117000" <br />bitmap$(13) = "0071111111117000" <br />bitmap$(14) = "0011711111711000" <br />bitmap$(15) = "0011711111711000" <br />bitmap$(16) = "0711711111711700" <br />bitmap$(17) = "0A11711111711A00" <br />bitmap$(18) = "0117A11111A71100" <br />bitmap$(19) = "0117111111171100" <br />bitmap$(20) = "01104BBBBB401100" <br />bitmap$(21) = "0860922222906800" <br />bitmap$(22) = "0000922222900000" <br />bitmap$(23) = "0000922222900000" <br />bitmap$(24) = "0000922222900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000929092900000" <br />bitmap$(31) = "0000929092900000" <br />bitmap$(32) = "0000929092900000" <br />bitmap$(33) = "0000929092900000" <br />bitmap$(34) = "0000929092900000" <br />bitmap$(35) = "0000929092900000" <br />bitmap$(36) = "0000929092900000" <br />bitmap$(37) = "0000929092900000" <br />bitmap$(38) = "0000333033300000" <br />bitmap$(39) = "0003330003330000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />END <br /> <br /> <br /> <br /> <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 12:03, 05 Sie 2022<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul BSAVE do gry "Serca 2022" <br /> <br />SCREEN 13 <br /> <br />DIM p1(0 TO 160) AS LONG <br />DIM p2(0 TO 160) AS LONG <br />DIM p3(0 TO 160) AS LONG <br />DIM p4(0 TO 160) AS LONG <br />DIM l1(0 TO 160) AS LONG <br />DIM l2(0 TO 160) AS LONG <br />DIM l3(0 TO 160) AS LONG <br />DIM l4(0 TO 160) AS LONG <br /> <br /> <br />DIM bitmap$(0 TO 39) <br />DIM k$(0 TO 255) <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 0A 0A 0A": REM tlo plyta <br />k$(2) = "02 06 06 06": REM tlo fuga <br />k$(3) = "03 10 10 10": REM tlo krawedz <br />k$(4) = "04 00 2F 00": REM liscie <br />k$(5) = "05 3F 3F 3F" <br />k$(6) = "06 3F 3F 3F" <br />k$(7) = "07 28 0A 00": REM doniczka <br />k$(8) = "08 00 00 3F": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 20 20 20": REM framuga zewnetrzna <br />k$(11) = "0B 18 18 18": REM wentylator obudowa <br />k$(12) = "0C 3F 3F 3F": REM wentylator faza 1 <br />k$(13) = "0D 2F 2F 2F": REM wentylator faza 2 <br />k$(14) = "0E 1F 1F 1F": REM wentylator faza 3 <br />k$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM bloki przezroczystosci <br />k$(16) = "10 3F 3F 3F" <br />k$(32) = "20 3F 3F 3F" <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />k$(31) = "1F 28 00 00": REM sweter <br />k$(47) = "2F 05 12 2F": REM spodnie <br />k$(63) = "3F 17 17 17": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 2C 17": REM skora1 <br />k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 30 20 00": REM nos <br />k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych <br />k$(175) = "AF 20 00 00": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 2B 2B": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male zlote <br /> <br />k$(242) = "F2 30 2C 10": REM <br />k$(243) = "F3 28 24 08": REM <br />k$(244) = "F4 2A 26 0A": REM <br />k$(245) = "F5 24 20 04": REM <br /> <br />REM cegly male ZIELONE <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br />REM rysunki **************************************** <br /> <br /> <br /> <br />petla: <br /> <br />REM animacja <br />REM 7,9 - rejestry przezroczyste <br /> <br />bitmap$(0) = "000000FFFF000000" <br />bitmap$(1) = "00000F3333F00000" <br />bitmap$(2) = "00000FFF33F00000" <br />bitmap$(3) = "00000F36F3F00000" <br />bitmap$(4) = "0000F6666FF00000" <br />bitmap$(5) = "00000F6666F00000" <br />bitmap$(6) = "00000F6666F00000" <br />bitmap$(7) = "000000F66F000000" <br />bitmap$(8) = "0000000FFF000000" <br />bitmap$(9) = "0000000F11F00000" <br /> <br />bitmap$(10) = "000000F111F00000" <br />bitmap$(11) = "000000F111F00000" <br />bitmap$(12) = "000000F111FF0000" <br />bitmap$(13) = "00000F111F1F0000" <br />bitmap$(14) = "00000F111F1F0000" <br />bitmap$(15) = "00000F11F11F0000" <br />bitmap$(16) = "00000F11F11F0000" <br />bitmap$(17) = "0000F111F1F1F000" <br />bitmap$(18) = "0000F11F11F1F000" <br />bitmap$(19) = "000F11F111F1F000" <br />bitmap$(20) = "000F1FFFFFFFF000" <br />bitmap$(21) = "000FF0F222F0FF00" <br />bitmap$(22) = "000F00F222F00F00" <br />bitmap$(23) = "00000F2222F00000" <br />bitmap$(24) = "00000F222FFF0000" <br />bitmap$(25) = "00000F22F22F0000" <br />bitmap$(26) = "00000F22F22F0000" <br />bitmap$(27) = "00000F2F0F2F0000" <br />bitmap$(28) = "00000F2F0F2F0000" <br />bitmap$(29) = "0000F22F0F2F0000" <br />bitmap$(30) = "0000F22F0F2F0000" <br />bitmap$(31) = "0000F2F00F22F000" <br />bitmap$(32) = "0000F2F00F22F000" <br />bitmap$(33) = "0000F2F000F2F000" <br />bitmap$(34) = "0000F2F000F2F000" <br />bitmap$(35) = "0000F2F000F2F000" <br />bitmap$(36) = "000F22F000F22F00" <br />bitmap$(37) = "000F2F00000FFF00" <br />bitmap$(38) = "000FFF0000FF0000" <br />bitmap$(39) = "00FFFF0000000000" <br /> <br />CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> GET (0, 0)-(15, 39), l1 <br /> GET (0, 40)-(15, 79), p1 <br /> <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "000000FFFF000000" <br />bitmap$(1) = "00000F3333F00000" <br />bitmap$(2) = "00000FFF33F00000" <br />bitmap$(3) = "00000F36F3F00000" <br />bitmap$(4) = "0000F6666FF00000" <br />bitmap$(5) = "00000F6666F00000" <br />bitmap$(6) = "00000F6666F00000" <br />bitmap$(7) = "000000F66F000000" <br />bitmap$(8) = "0000000FFF000000" <br />bitmap$(9) = "0000000F11F00000" <br /> <br />bitmap$(10) = "000000F111F00000" <br />bitmap$(11) = "000000F111F00000" <br />bitmap$(12) = "000000F111F00000" <br />bitmap$(13) = "000000F11FF00000" <br />bitmap$(14) = "000000F11FF00000" <br />bitmap$(15) = "000000F11FF00000" <br />bitmap$(16) = "000000F1F1F00000" <br />bitmap$(17) = "00000F11F1F00000" <br />bitmap$(18) = "00000F11F1F00000" <br />bitmap$(19) = "00000F11F1F00000" <br />bitmap$(20) = "00000F1FFFF00000" <br />bitmap$(21) = "00000F8F22F00000" <br />bitmap$(22) = "00000FFF22F00000" <br />bitmap$(23) = "00000FFF22F00000" <br />bitmap$(24) = "00000F2222F00000" <br />bitmap$(25) = "00000F222F000000" <br />bitmap$(26) = "00000F222F000000" <br />bitmap$(27) = "0000F2F22F000000" <br />bitmap$(28) = "0000F2F22F000000" <br />bitmap$(29) = "0000F2F22F000000" <br />bitmap$(30) = "0000F2F22F000000" <br />bitmap$(31) = "00000FF22F000000" <br />bitmap$(32) = "00000FF22F000000" <br />bitmap$(33) = "000000F22FF00000" <br />bitmap$(34) = "000000F22FF00000" <br />bitmap$(35) = "0000000F2FFF0000" <br />bitmap$(36) = "0000000F2F0FF000" <br />bitmap$(37) = "0000000F2F000000" <br />bitmap$(38) = "0000000F2F000000" <br />bitmap$(39) = "00000FFFF0000000" <br />CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> GET (0, 0)-(15, 39), l2 <br /> GET (0, 40)-(15, 79), p2 <br /> <br /> <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "000000FFFF000000" <br />bitmap$(1) = "00000F3333F00000" <br />bitmap$(2) = "00000FFF33F00000" <br />bitmap$(3) = "00000F36F3F00000" <br />bitmap$(4) = "0000F6666FF00000" <br />bitmap$(5) = "00000F6666F00000" <br />bitmap$(6) = "00000F6666F00000" <br />bitmap$(7) = "000000F66F000000" <br />bitmap$(8) = "0000000FFF000000" <br />bitmap$(9) = "0000000F11F00000" <br /> <br />bitmap$(10) = "000000F111F00000" <br />bitmap$(11) = "000000F111F00000" <br />bitmap$(12) = "00000FF111F00000" <br />bitmap$(13) = "00000FF111F00000" <br />bitmap$(14) = "00000FFF11F00000" <br />bitmap$(15) = "00000FFF111F0000" <br />bitmap$(16) = "00000FF1F11F0000" <br />bitmap$(17) = "0000F1F1F11F0000" <br />bitmap$(18) = "0000F1F1F11F0000" <br />bitmap$(19) = "0000F1F11F1F0000" <br />bitmap$(20) = "0000F1FFFF1F0000" <br />bitmap$(21) = "00000F622FFF0000" <br />bitmap$(22) = "000000F22FFF0000" <br />bitmap$(23) = "000000F222F00000" <br />bitmap$(24) = "000000F222F00000" <br />bitmap$(25) = "000000F222F00000" <br /> <br />bitmap$(26) = "00000FF222F00000" <br />bitmap$(27) = "00000FF222F00000" <br />bitmap$(28) = "00000F2F22F00000" <br />bitmap$(29) = "0000F22F22F00000" <br />bitmap$(30) = "0000F2F0F2F00000" <br />bitmap$(31) = "0000F2F0F2F00000" <br />bitmap$(32) = "0000F2F0F2F00000" <br />bitmap$(33) = "0000F2F0F22F0000" <br />bitmap$(34) = "0000F2F00F2F0000" <br />bitmap$(35) = "0000F2F00F2F0000" <br />bitmap$(36) = "0000F2F00F2F0000" <br />bitmap$(37) = "000FFFF00F2F0000" <br />bitmap$(38) = "0000000000F2F000" <br />bitmap$(39) = "00000000FFFF0000" <br /> <br />CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> GET (0, 0)-(15, 39), l3 <br /> GET (0, 40)-(15, 79), p3 <br /> <br /> <br /> <br />REM ************************************ FAZA 4 <br /> <br />bitmap$(0) = "000000FFFF000000" <br />bitmap$(1) = "00000F3333F00000" <br />bitmap$(2) = "00000FFF33F00000" <br />bitmap$(3) = "00000F36F3F00000" <br />bitmap$(4) = "0000F6666FF00000" <br />bitmap$(5) = "00000F6666F00000" <br />bitmap$(6) = "00000F6666F00000" <br />bitmap$(7) = "000000F66F000000" <br />bitmap$(8) = "0000000FFF000000" <br />bitmap$(9) = "0000000F11F00000" <br /> <br />bitmap$(10) = "000000F111F00000" <br />bitmap$(11) = "000000F111F00000" <br />bitmap$(12) = "000000F111F00000" <br />bitmap$(13) = "000000F11FF00000" <br />bitmap$(14) = "000000F11FF00000" <br />bitmap$(15) = "000000F11FF00000" <br />bitmap$(16) = "000000F1F1F00000" <br />bitmap$(17) = "00000F11F1F00000" <br />bitmap$(18) = "00000F11F1F00000" <br />bitmap$(19) = "00000F11F1F00000" <br />bitmap$(20) = "00000F1FFFF00000" <br />bitmap$(21) = "00000F8F22F00000" <br />bitmap$(22) = "00000FFF22F00000" <br />bitmap$(23) = "00000FFF22F00000" <br />bitmap$(24) = "00000F2222F00000" <br />bitmap$(25) = "00000F222F000000" <br />bitmap$(26) = "00000F222F000000" <br />bitmap$(27) = "0000F222FF000000" <br />bitmap$(28) = "0000F222FF000000" <br />bitmap$(29) = "0000F22F2F000000" <br />bitmap$(30) = "0000F222FF000000" <br />bitmap$(31) = "00000F222F000000" <br />bitmap$(32) = "00000FF22F000000" <br />bitmap$(33) = "000000FF2FF00000" <br />bitmap$(34) = "000000F2F0F00000" <br />bitmap$(35) = "0000000F2FFF0000" <br />bitmap$(36) = "0000000F2F0FF000" <br />bitmap$(37) = "0000000F2F000000" <br />bitmap$(38) = "0000000F2F000000" <br />bitmap$(39) = "00000FFFF0000000" <br />CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> GET (0, 0)-(15, 39), l4 <br /> GET (0, 40)-(15, 79), p4 <br /> <br />pet2: <br />faza = faza + 1 <br />IF faza = 4 THEN faza = 0 <br />vek = 0 <br />key$ = INKEY$ <br />IF key$ = "6" THEN x = x + 1: vek = 1 <br />IF key$ = "4" THEN x = x - 1: vek = -1 <br />IF vek <> 0 THEN CLS <br /> <br />IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1 <br />IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2 <br />IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3 <br />IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4 <br /> <br />IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1 <br />IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2 <br />IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3 <br />IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4 <br /> <br />FOR delay = 1 TO 5000: NEXT delay <br /> <br />GOTO pet2 <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "0000366666300000" <br />bitmap$(6) = "000006C8C6000000" <br />bitmap$(7) = "0000006860000000" <br />bitmap$(8) = "0000001610000000" <br />bitmap$(9) = "0000711111700000" <br /> <br />bitmap$(10) = "0000711111700000" <br />bitmap$(11) = "0001111111110000" <br />bitmap$(12) = "0071111111117000" <br />bitmap$(13) = "0071111111117000" <br />bitmap$(14) = "0011711111711000" <br />bitmap$(15) = "0011711111711000" <br />bitmap$(16) = "0711711111711700" <br />bitmap$(17) = "0A11711111711A00" <br />bitmap$(18) = "0117A11111A71100" <br />bitmap$(19) = "0117111111171100" <br />bitmap$(20) = "01104BBBBB401100" <br />bitmap$(21) = "0860922222906800" <br />bitmap$(22) = "0000922222900000" <br />bitmap$(23) = "0000922222900000" <br />bitmap$(24) = "0000922222900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000929092900000" <br />bitmap$(31) = "0000929092900000" <br />bitmap$(32) = "0000929092900000" <br />bitmap$(33) = "0000929092900000" <br />bitmap$(34) = "0000929092900000" <br />bitmap$(35) = "0000929092900000" <br />bitmap$(36) = "0000929092900000" <br />bitmap$(37) = "0000929092900000" <br />bitmap$(38) = "0000333033300000" <br />bitmap$(39) = "0003330003330000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />END <br /> <br /> <br /> <br /> <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 10:18, 05 Sie 2022<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul BSAVE do gry "Serca 2022" <br /> <br />SCREEN 13 <br /> <br />DIM bitmap$(0 TO 39) <br />DIM k$(0 TO 255) <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 0A 0A 0A": REM tlo plyta <br />k$(2) = "02 06 06 06": REM tlo fuga <br />k$(3) = "03 10 10 10": REM tlo krawedz <br />k$(4) = "04 00 2F 00": REM liscie <br />k$(5) = "05 3F 3F 3F" <br />k$(6) = "06 3F 3F 3F" <br />k$(7) = "07 28 0A 00": REM doniczka <br />k$(8) = "08 00 00 3F": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 20 20 20": REM framuga zewnetrzna <br />k$(11) = "0B 18 18 18": REM wentylator obudowa <br />k$(12) = "0C 3F 3F 3F": REM wentylator faza 1 <br />k$(13) = "0D 2F 2F 2F": REM wentylator faza 2 <br />k$(14) = "0E 1F 1F 1F": REM wentylator faza 3 <br />k$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM bloki przezroczystosci <br />k$(16) = "10 3F 3F 3F" <br />k$(32) = "20 3F 3F 3F" <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />k$(31) = "1F 28 00 00": REM sweter <br />k$(47) = "2F 05 12 2F": REM spodnie <br />k$(63) = "3F 17 17 17": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 2C 17": REM skora1 <br />k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 30 20 00": REM nos <br />k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych <br />k$(175) = "AF 20 00 00": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 2B 2B": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male zlote <br /> <br />k$(242) = "F2 30 2C 10": REM <br />k$(243) = "F3 28 24 08": REM <br />k$(244) = "F4 2A 26 0A": REM <br />k$(245) = "F5 24 20 04": REM <br /> <br />REM cegly male ZIELONE <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br />REM rysunki **************************************** <br /> <br /> <br /> <br />petla: <br /> <br />REM animacja <br />REM 7,9 - rejestry przezroczyste <br /> <br />bitmap$(0) = "000000FFFF000000" <br />bitmap$(1) = "00000F3333F00000" <br />bitmap$(2) = "00000FFF33F00000" <br />bitmap$(3) = "00000F36F3F00000" <br />bitmap$(4) = "0000F6666FF00000" <br />bitmap$(5) = "00000F6666F00000" <br />bitmap$(6) = "00000F6666F00000" <br />bitmap$(7) = "000000F66F000000" <br />bitmap$(8) = "0000000FFF000000" <br />bitmap$(9) = "0000000F11F00000" <br /> <br />bitmap$(10) = "000000F111F00000" <br />bitmap$(11) = "000000F111F00000" <br />bitmap$(12) = "000000F111FF0000" <br />bitmap$(13) = "00000F111F1F0000" <br />bitmap$(14) = "00000F111F1F0000" <br />bitmap$(15) = "00000F11F11F0000" <br />bitmap$(16) = "00000F11F11F0000" <br />bitmap$(17) = "0000F111F1F1F000" <br />bitmap$(18) = "0000F11F11F1F000" <br />bitmap$(19) = "000F11F111F1F000" <br />bitmap$(20) = "000F1FFFFFFFF000" <br />bitmap$(21) = "000FF0F222F0FF00" <br />bitmap$(22) = "000F00F222F00F00" <br />bitmap$(23) = "00000F2222F00000" <br />bitmap$(24) = "00000F222FFF0000" <br />bitmap$(25) = "00000F22F22F0000" <br />bitmap$(26) = "00000F22F22F0000" <br />bitmap$(27) = "00000F2F0F2F0000" <br />bitmap$(28) = "00000F2F0F2F0000" <br />bitmap$(29) = "0000F22F0F2F0000" <br />bitmap$(30) = "0000F22F0F2F0000" <br />bitmap$(31) = "0000F2F00F22F000" <br />bitmap$(32) = "0000F2F00F22F000" <br />bitmap$(33) = "0000F2F000F2F000" <br />bitmap$(34) = "0000F2F000F2F000" <br />bitmap$(35) = "0000F2F000F2F000" <br />bitmap$(36) = "000F22F000F22F00" <br />bitmap$(37) = "000F2F00000FFF00" <br />bitmap$(38) = "000FFF0000FF0000" <br />bitmap$(39) = "00FFFF0000000000" <br /> <br />CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "000000FFFF000000" <br />bitmap$(1) = "00000F3333F00000" <br />bitmap$(2) = "00000FFF33F00000" <br />bitmap$(3) = "00000F36F3F00000" <br />bitmap$(4) = "0000F6666FF00000" <br />bitmap$(5) = "00000F6666F00000" <br />bitmap$(6) = "00000F6666F00000" <br />bitmap$(7) = "000000F66F000000" <br />bitmap$(8) = "0000000FFF000000" <br />bitmap$(9) = "0000000F11F00000" <br /> <br />bitmap$(10) = "000000F111F00000" <br />bitmap$(11) = "000000F111F00000" <br />bitmap$(12) = "000000F111F00000" <br />bitmap$(13) = "000000F11FF00000" <br />bitmap$(14) = "000000F11FF00000" <br />bitmap$(15) = "000000F11FF00000" <br />bitmap$(16) = "000000F1F1F00000" <br />bitmap$(17) = "00000F11F1F00000" <br />bitmap$(18) = "00000F11F1F00000" <br />bitmap$(19) = "00000F11F1F00000" <br />bitmap$(20) = "00000F1FFFF00000" <br />bitmap$(21) = "00000F8F22F00000" <br />bitmap$(22) = "00000FFF22F00000" <br />bitmap$(23) = "00000FFF22F00000" <br />bitmap$(24) = "00000F2222F00000" <br />bitmap$(25) = "00000F222F000000" <br />bitmap$(26) = "00000F222F000000" <br />bitmap$(27) = "0000F2F22F000000" <br />bitmap$(28) = "0000F2F22F000000" <br />bitmap$(29) = "0000F2F22F000000" <br />bitmap$(30) = "0000F2F22F000000" <br />bitmap$(31) = "00000FF22F000000" <br />bitmap$(32) = "00000FF22F000000" <br />bitmap$(33) = "000000F22FF00000" <br />bitmap$(34) = "000000F22FF00000" <br />bitmap$(35) = "0000000F2FFF0000" <br />bitmap$(36) = "0000000F2F0FF000" <br />bitmap$(37) = "0000000F2F000000" <br />bitmap$(38) = "0000000F2F000000" <br />bitmap$(39) = "00000FFFF0000000" <br /> CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "000000FFFF000000" <br />bitmap$(1) = "00000F3333F00000" <br />bitmap$(2) = "00000FFF33F00000" <br />bitmap$(3) = "00000F36F3F00000" <br />bitmap$(4) = "0000F6666FF00000" <br />bitmap$(5) = "00000F6666F00000" <br />bitmap$(6) = "00000F6666F00000" <br />bitmap$(7) = "000000F66F000000" <br />bitmap$(8) = "0000000FFF000000" <br />bitmap$(9) = "0000000F11F00000" <br /> <br />bitmap$(10) = "000000F111F00000" <br />bitmap$(11) = "000000F111F00000" <br />bitmap$(12) = "00000FF111F00000" <br />bitmap$(13) = "00000FF111F00000" <br />bitmap$(14) = "00000FFF11F00000" <br />bitmap$(15) = "00000FFF111F0000" <br />bitmap$(16) = "00000FF1F11F0000" <br />bitmap$(17) = "0000F1F1F11F0000" <br />bitmap$(18) = "0000F1F1F11F0000" <br />bitmap$(19) = "0000F1F11F1F0000" <br />bitmap$(20) = "0000F1FFFF1F0000" <br />bitmap$(21) = "00000F622FFF0000" <br />bitmap$(22) = "000000F22FFF0000" <br />bitmap$(23) = "000000F222F00000" <br />bitmap$(24) = "000000F222F00000" <br />bitmap$(25) = "000000F222F00000" <br /> <br />bitmap$(26) = "00000FF222F00000" <br />bitmap$(27) = "00000FF222F00000" <br />bitmap$(28) = "00000F2F22F00000" <br />bitmap$(29) = "0000F22F22F00000" <br />bitmap$(30) = "0000F2F0F2F00000" <br />bitmap$(31) = "0000F2F0F2F00000" <br />bitmap$(32) = "0000F2F0F2F00000" <br />bitmap$(33) = "0000F2F0F22F0000" <br />bitmap$(34) = "0000F2F00F2F0000" <br />bitmap$(35) = "0000F2F00F2F0000" <br />bitmap$(36) = "0000F2F00F2F0000" <br />bitmap$(37) = "000FFFF00F2F0000" <br />bitmap$(38) = "0000000000F2F000" <br />bitmap$(39) = "00000000FFFF0000" <br /> <br /> CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> <br /> <br />REM ************************************ FAZA 4 <br /> <br />bitmap$(0) = "000000FFFF000000" <br />bitmap$(1) = "00000F3333F00000" <br />bitmap$(2) = "00000FFF33F00000" <br />bitmap$(3) = "00000F36F3F00000" <br />bitmap$(4) = "0000F6666FF00000" <br />bitmap$(5) = "00000F6666F00000" <br />bitmap$(6) = "00000F6666F00000" <br />bitmap$(7) = "000000F66F000000" <br />bitmap$(8) = "0000000FFF000000" <br />bitmap$(9) = "0000000F11F00000" <br /> <br />bitmap$(10) = "000000F111F00000" <br />bitmap$(11) = "000000F111F00000" <br />bitmap$(12) = "000000F111F00000" <br />bitmap$(13) = "000000F11FF00000" <br />bitmap$(14) = "000000F11FF00000" <br />bitmap$(15) = "000000F11FF00000" <br />bitmap$(16) = "000000F1F1F00000" <br />bitmap$(17) = "00000F11F1F00000" <br />bitmap$(18) = "00000F11F1F00000" <br />bitmap$(19) = "00000F11F1F00000" <br />bitmap$(20) = "00000F1FFFF00000" <br />bitmap$(21) = "00000F8F22F00000" <br />bitmap$(22) = "00000FFF22F00000" <br />bitmap$(23) = "00000FFF22F00000" <br />bitmap$(24) = "00000F2222F00000" <br />bitmap$(25) = "00000F222F000000" <br />bitmap$(26) = "00000F222F000000" <br />bitmap$(27) = "0000F222FF000000" <br />bitmap$(28) = "0000F222FF000000" <br />bitmap$(29) = "0000F22F2F000000" <br />bitmap$(30) = "0000F222FF000000" <br />bitmap$(31) = "00000F222F000000" <br />bitmap$(32) = "00000FF22F000000" <br />bitmap$(33) = "000000FF2FF00000" <br />bitmap$(34) = "000000F2F0F00000" <br />bitmap$(35) = "0000000F2FFF0000" <br />bitmap$(36) = "0000000F2F0FF000" <br />bitmap$(37) = "0000000F2F000000" <br />bitmap$(38) = "0000000F2F000000" <br />bitmap$(39) = "00000FFFF0000000" <br />CLS : <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br />GOTO petla: <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "0000366666300000" <br />bitmap$(6) = "000006C8C6000000" <br />bitmap$(7) = "0000006860000000" <br />bitmap$(8) = "0000001610000000" <br />bitmap$(9) = "0000711111700000" <br /> <br />bitmap$(10) = "0000711111700000" <br />bitmap$(11) = "0001111111110000" <br />bitmap$(12) = "0071111111117000" <br />bitmap$(13) = "0071111111117000" <br />bitmap$(14) = "0011711111711000" <br />bitmap$(15) = "0011711111711000" <br />bitmap$(16) = "0711711111711700" <br />bitmap$(17) = "0A11711111711A00" <br />bitmap$(18) = "0117A11111A71100" <br />bitmap$(19) = "0117111111171100" <br />bitmap$(20) = "01104BBBBB401100" <br />bitmap$(21) = "0860922222906800" <br />bitmap$(22) = "0000922222900000" <br />bitmap$(23) = "0000922222900000" <br />bitmap$(24) = "0000922222900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000929092900000" <br />bitmap$(31) = "0000929092900000" <br />bitmap$(32) = "0000929092900000" <br />bitmap$(33) = "0000929092900000" <br />bitmap$(34) = "0000929092900000" <br />bitmap$(35) = "0000929092900000" <br />bitmap$(36) = "0000929092900000" <br />bitmap$(37) = "0000929092900000" <br />bitmap$(38) = "0000333033300000" <br />bitmap$(39) = "0003330003330000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />END <br /> <br /> <br /> <br /> <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 9:51, 05 Sie 2022<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul BSAVE do gry "Serca 2022" <br /> <br />SCREEN 13 <br /> <br />DIM bitmap$(0 TO 39) <br />DIM k$(0 TO 255) <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 0A 0A 0A": REM tlo plyta <br />k$(2) = "02 06 06 06": REM tlo fuga <br />k$(3) = "03 10 10 10": REM tlo krawedz <br />k$(4) = "04 00 2F 00": REM liscie <br />k$(5) = "05 3F 3F 3F" <br />k$(6) = "06 3F 3F 3F" <br />k$(7) = "07 28 0A 00": REM doniczka <br />k$(8) = "08 00 00 3F": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 20 20 20": REM framuga zewnetrzna <br />k$(11) = "0B 18 18 18": REM wentylator obudowa <br />k$(12) = "0C 3F 3F 3F": REM wentylator faza 1 <br />k$(13) = "0D 2F 2F 2F": REM wentylator faza 2 <br />k$(14) = "0E 1F 1F 1F": REM wentylator faza 3 <br />k$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM bloki przezroczystosci <br />k$(16) = "10 3F 3F 3F" <br />k$(32) = "20 3F 3F 3F" <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />k$(31) = "1F 28 00 00": REM sweter <br />k$(47) = "2F 05 12 2F": REM spodnie <br />k$(63) = "3F 17 17 17": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 2C 17": REM skora1 <br />k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 30 20 00": REM nos <br />k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych <br />k$(175) = "AF 20 00 00": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 2B 2B": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male zlote <br /> <br />k$(242) = "F2 30 2C 10": REM <br />k$(243) = "F3 28 24 08": REM <br />k$(244) = "F4 2A 26 0A": REM <br />k$(245) = "F5 24 20 04": REM <br /> <br />REM cegly male ZIELONE <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br />REM rysunki **************************************** <br /> <br /> <br /> <br /> <br />CLS <br /> <br /> <br />COLOR 15: LOCATE 10, 16: PRINT "SERCA 1.0" <br /> <br />REM animacja <br />REM 7,9 - rejestry przezroczyste <br /> <br />bitmap$(0) = "000000FFFF000000" <br />bitmap$(1) = "00000F3333F00000" <br />bitmap$(2) = "00000FFF33F00000" <br />bitmap$(3) = "00000F36F3F00000" <br />bitmap$(4) = "0000F6666FF00000" <br />bitmap$(5) = "00000F6666F00000" <br />bitmap$(6) = "00000F6666F00000" <br />bitmap$(7) = "000000F66F000000" <br />bitmap$(8) = "0000000FFF000000" <br />bitmap$(9) = "0000000F11F00000" <br /> <br />bitmap$(10) = "000000F111F00000" <br />bitmap$(11) = "000000F111F00000" <br />bitmap$(12) = "000000F111FF0000" <br />bitmap$(13) = "00000F111F1F0000" <br />bitmap$(14) = "00000F111F1F0000" <br />bitmap$(15) = "00000F11F11F0000" <br />bitmap$(16) = "00000F11F11F0000" <br />bitmap$(17) = "0000F111F1F1F000" <br />bitmap$(18) = "0000F11F11F1F000" <br />bitmap$(19) = "000F11F111F1F000" <br />bitmap$(20) = "000F1FFFFFFFF000" <br />bitmap$(21) = "000FF0F222F0FF00" <br />bitmap$(22) = "000F00F222F00F00" <br />bitmap$(23) = "00000F2222F00000" <br />bitmap$(24) = "00000F222FFF0000" <br />bitmap$(25) = "00000F22F22F0000" <br />bitmap$(26) = "00000F22F22F0000" <br />bitmap$(27) = "00000F2F0F2F0000" <br />bitmap$(28) = "00000F2F0F2F0000" <br />bitmap$(29) = "0000F22F0F2F0000" <br />bitmap$(30) = "0000F22F0F2F0000" <br />bitmap$(31) = "0000F2F00F22F000" <br />bitmap$(32) = "0000F2F00F22F000" <br />bitmap$(33) = "0000F2F000F2F000" <br />bitmap$(34) = "0000F2F000F2F000" <br />bitmap$(35) = "0000F2F000F2F000" <br />bitmap$(36) = "000F22F000F22F00" <br />bitmap$(37) = "000F2F00000FFF00" <br />bitmap$(38) = "000FFF0000FF0000" <br />bitmap$(39) = "00FFFF0000000000" <br /> <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "000000FFFF000000" <br />bitmap$(1) = "00000F3333F00000" <br />bitmap$(2) = "00000FFF33F00000" <br />bitmap$(3) = "00000F36F3F00000" <br />bitmap$(4) = "0000F6666FF00000" <br />bitmap$(5) = "00000F6666F00000" <br />bitmap$(6) = "00000F6666F00000" <br />bitmap$(7) = "000000F66F000000" <br />bitmap$(8) = "0000000FFF000000" <br />bitmap$(9) = "0000000F11F00000" <br /> <br />bitmap$(10) = "000000F111F00000" <br />bitmap$(11) = "000000F111F00000" <br />bitmap$(12) = "000000F111F00000" <br />bitmap$(13) = "000000F11FF00000" <br />bitmap$(14) = "000000F11FF00000" <br />bitmap$(15) = "000000F11FF00000" <br />bitmap$(16) = "000000F1F1F00000" <br />bitmap$(17) = "00000F11F1F00000" <br />bitmap$(18) = "00000F11F1F00000" <br />bitmap$(19) = "00000F11F1F00000" <br />bitmap$(20) = "00000F1FFFF00000" <br />bitmap$(21) = "00000F8F22F00000" <br />bitmap$(22) = "00000FFF22F00000" <br />bitmap$(23) = "00000FFF22F00000" <br />bitmap$(24) = "00000F222F000000" <br />bitmap$(25) = "00000F222F000000" <br />bitmap$(26) = "00000F222F000000" <br />bitmap$(27) = "0000F2F22F000000" <br />bitmap$(28) = "0000F2F22F000000" <br />bitmap$(29) = "0000F2F22F000000" <br />bitmap$(30) = "0000F2F22F000000" <br />bitmap$(31) = "00000FF22F000000" <br />bitmap$(32) = "00000FF22F000000" <br />bitmap$(33) = "000000F22FF00000" <br />bitmap$(34) = "000000F22FF00000" <br />bitmap$(35) = "0000000F2FFF0000" <br />bitmap$(36) = "0000000F2F0FF000" <br />bitmap$(37) = "0000000F2F000000" <br />bitmap$(38) = "0000000F2F000000" <br />bitmap$(39) = "00000FFFF0000000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "000000FFFF000000" <br />bitmap$(1) = "00000F3333F00000" <br />bitmap$(2) = "00000FFF33F00000" <br />bitmap$(3) = "00000F36F3F00000" <br />bitmap$(4) = "0000F6666FF00000" <br />bitmap$(5) = "00000F6666F00000" <br />bitmap$(6) = "00000F6666F00000" <br />bitmap$(7) = "000000F66F000000" <br />bitmap$(8) = "0000000FFF000000" <br />bitmap$(9) = "0000000F11F00000" <br /> <br />bitmap$(10) = "000000F111F00000" <br />bitmap$(11) = "000000F111F00000" <br />bitmap$(12) = "00000FF111F00000" <br />bitmap$(13) = "00000FF111F00000" <br />bitmap$(14) = "00000FFF11F00000" <br />bitmap$(15) = "00000FFF111F0000" <br />bitmap$(16) = "00000FF1F11F0000" <br />bitmap$(17) = "0000F1F1F11F0000" <br />bitmap$(18) = "0000F1F1F11F0000" <br />bitmap$(19) = "0000F1F11F1F0000" <br />bitmap$(20) = "0000F1FFFF1F0000" <br />bitmap$(21) = "00000F622FFF0000" <br />bitmap$(22) = "000000F22FFF0000" <br />bitmap$(23) = "000000F222F00000" <br />bitmap$(24) = "000000F222F00000" <br />bitmap$(25) = "000000F222F00000" <br /> <br />bitmap$(26) = "00000FF222F00000" <br />bitmap$(27) = "00000FF222F00000" <br />bitmap$(28) = "00000F2F22F00000" <br />bitmap$(29) = "0000F22F22F00000" <br />bitmap$(30) = "0000F2F0F2F00000" <br />bitmap$(31) = "0000F2F0F2F00000" <br />bitmap$(32) = "0000F2F0F2F00000" <br />bitmap$(33) = "0000F2F0F22F0000" <br />bitmap$(34) = "0000F2F00F2F0000" <br />bitmap$(35) = "0000F2F00F2F0000" <br />bitmap$(36) = "0000F2F00F2F0000" <br />bitmap$(37) = "000FFFF00F2F0000" <br />bitmap$(38) = "0000000000F2F000" <br />bitmap$(39) = "00000000FFFF0000" <br /> <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 40) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "0000366666300000" <br />bitmap$(6) = "000006C8C6000000" <br />bitmap$(7) = "0000006860000000" <br />bitmap$(8) = "0000001610000000" <br />bitmap$(9) = "0000711111700000" <br /> <br />bitmap$(10) = "0000711111700000" <br />bitmap$(11) = "0001111111110000" <br />bitmap$(12) = "0071111111117000" <br />bitmap$(13) = "0071111111117000" <br />bitmap$(14) = "0011711111711000" <br />bitmap$(15) = "0011711111711000" <br />bitmap$(16) = "0711711111711700" <br />bitmap$(17) = "0A11711111711A00" <br />bitmap$(18) = "0117A11111A71100" <br />bitmap$(19) = "0117111111171100" <br />bitmap$(20) = "01104BBBBB401100" <br />bitmap$(21) = "0860922222906800" <br />bitmap$(22) = "0000922222900000" <br />bitmap$(23) = "0000922222900000" <br />bitmap$(24) = "0000922222900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000929092900000" <br />bitmap$(31) = "0000929092900000" <br />bitmap$(32) = "0000929092900000" <br />bitmap$(33) = "0000929092900000" <br />bitmap$(34) = "0000929092900000" <br />bitmap$(35) = "0000929092900000" <br />bitmap$(36) = "0000929092900000" <br />bitmap$(37) = "0000929092900000" <br />bitmap$(38) = "0000333033300000" <br />bitmap$(39) = "0003330003330000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />END <br /> <br /> <br /> <br /> <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Czw 19:40, 04 Sie 2022<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul BSAVE do gry "Serca 2022" <br /> <br />SCREEN 13 <br /> <br />DIM bitmap$(0 TO 39) <br />DIM k$(0 TO 255) <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 0A 0A 0A": REM tlo plyta <br />k$(2) = "02 06 06 06": REM tlo fuga <br />k$(3) = "03 10 10 10": REM tlo krawedz <br />k$(4) = "04 00 2F 00": REM liscie <br />k$(5) = "05 3F 3F 3F" <br />k$(6) = "06 3F 3F 3F" <br />k$(7) = "07 28 0A 00": REM doniczka <br />k$(8) = "08 00 00 3F": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 20 20 20": REM framuga zewnetrzna <br />k$(11) = "0B 18 18 18": REM wentylator obudowa <br />k$(12) = "0C 3F 3F 3F": REM wentylator faza 1 <br />k$(13) = "0D 2F 2F 2F": REM wentylator faza 2 <br />k$(14) = "0E 1F 1F 1F": REM wentylator faza 3 <br />k$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM bloki przezroczystosci <br />k$(16) = "10 3F 3F 3F" <br />k$(32) = "20 3F 3F 3F" <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />k$(31) = "1F 28 00 00": REM sweter <br />k$(47) = "2F 05 12 2F": REM spodnie <br />k$(63) = "3F 17 17 17": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 2C 17": REM skora1 <br />k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 30 20 00": REM nos <br />k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych <br />k$(175) = "AF 20 00 00": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 2B 2B": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male zlote <br /> <br />k$(242) = "F2 30 2C 10": REM <br />k$(243) = "F3 28 24 08": REM <br />k$(244) = "F4 2A 26 0A": REM <br />k$(245) = "F5 24 20 04": REM <br /> <br />REM cegly male ZIELONE <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br />REM rysunki **************************************** <br /> <br /> <br /> <br /> <br />CLS <br /> <br /> <br />COLOR 15: LOCATE 10, 16: PRINT "SERCA 1.0" <br /> <br />REM animacja <br />REM 7,9 - rejestry przezroczyste <br /> <br />bitmap$(0) = "000000FFFF000000" <br />bitmap$(1) = "00000F3333F00000" <br />bitmap$(2) = "00000FFF33F00000" <br />bitmap$(3) = "00000F36F3F00000" <br />bitmap$(4) = "0000F6666FF00000" <br />bitmap$(5) = "00000F6666F00000" <br />bitmap$(6) = "00000F6666F00000" <br />bitmap$(7) = "000000F66F000000" <br />bitmap$(8) = "0000000FFF000000" <br />bitmap$(9) = "0000000F11F00000" <br /> <br />bitmap$(10) = "000000F111F00000" <br />bitmap$(11) = "000000F111F00000" <br />bitmap$(12) = "000000F111FF0000" <br />bitmap$(13) = "00000F111F1F0000" <br />bitmap$(14) = "00000F111F1F0000" <br />bitmap$(15) = "00000F11F11F0000" <br />bitmap$(16) = "00000F11F11F0000" <br />bitmap$(17) = "0000F111F1F1F000" <br />bitmap$(18) = "0000F11F11F1F000" <br />bitmap$(19) = "000F11F111F1F000" <br />bitmap$(20) = "000F1FFFFFFFF000" <br />bitmap$(21) = "000FF0F222F0FF00" <br />bitmap$(22) = "000F00F222F00F00" <br />bitmap$(23) = "00000F2222F00000" <br />bitmap$(24) = "00000F222FFF0000" <br />bitmap$(25) = "00000F22F22F0000" <br />bitmap$(26) = "00000F22F22F0000" <br />bitmap$(27) = "00000F2F0F2F0000" <br />bitmap$(28) = "00000F2F0F2F0000" <br />bitmap$(29) = "0000F22F0F2F0000" <br />bitmap$(30) = "0000F22F0F2F0000" <br />bitmap$(31) = "0000F2F00F22F000" <br />bitmap$(32) = "0000F2F00F22F000" <br />bitmap$(33) = "0000F2F000F2F000" <br />bitmap$(34) = "0000F2F000F2F000" <br />bitmap$(35) = "0000F2F000F2F000" <br />bitmap$(36) = "000F22F000F22F00" <br />bitmap$(37) = "000F2F00000FFF00" <br />bitmap$(38) = "000FFF0000FF0000" <br />bitmap$(39) = "00FFFF0000000000" <br /> <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd, yd + 88): PSET (31 - xd, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "000000FFFF000000" <br />bitmap$(1) = "00000F3333F00000" <br />bitmap$(2) = "00000FFF33F00000" <br />bitmap$(3) = "00000F36F3F00000" <br />bitmap$(4) = "0000F6666FF00000" <br />bitmap$(5) = "00000F6666F00000" <br />bitmap$(6) = "00000F6666F00000" <br />bitmap$(7) = "000000F66F000000" <br />bitmap$(8) = "0000000FFF000000" <br />bitmap$(9) = "0000000F11F00000" <br /> <br />bitmap$(10) = "000000F111F00000" <br />bitmap$(11) = "000000F111F00000" <br />bitmap$(12) = "000000F111F00000" <br />bitmap$(13) = "000000F11FF00000" <br />bitmap$(14) = "000000F11FF00000" <br />bitmap$(15) = "000000F11FF00000" <br />bitmap$(16) = "000000F1F1F00000" <br />bitmap$(17) = "00000F11F1F00000" <br />bitmap$(18) = "00000F11F1F00000" <br />bitmap$(19) = "00000F11F1F00000" <br />bitmap$(20) = "00000F1F11F00000" <br />bitmap$(21) = "00000F8FFFF00000" <br />bitmap$(22) = "00000FFF22F00000" <br />bitmap$(23) = "00000FFF22F00000" <br />bitmap$(24) = "00000F222F000000" <br />bitmap$(25) = "00000F222F000000" <br />bitmap$(26) = "00000F222F000000" <br />bitmap$(27) = "0000F2F22F000000" <br />bitmap$(28) = "0000F2F22F000000" <br />bitmap$(29) = "0000F2F22F000000" <br />bitmap$(30) = "0000F2F22F000000" <br />bitmap$(31) = "00000FF22F000000" <br />bitmap$(32) = "00000FF22F000000" <br />bitmap$(33) = "000000F22FF00000" <br />bitmap$(34) = "000000F22FF00000" <br />bitmap$(35) = "0000000F2FFF0000" <br />bitmap$(36) = "0000000F2F0FF000" <br />bitmap$(37) = "0000000F2F000000" <br />bitmap$(38) = "0000000F2F000000" <br />bitmap$(39) = "00000FFFF0000000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />REM kolor = VAL("&H" + znak$ + "F") <br />REM IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br />REM IF znak$ = "7" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br />REM IF znak$ = "A" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "0000003333000000" <br />bitmap$(1) = "0000033333300000" <br />bitmap$(2) = "0000066633300000" <br />bitmap$(3) = "0000063663300000" <br />bitmap$(4) = "0000866663300000" <br />bitmap$(5) = "0000066666300000" <br />bitmap$(6) = "0000066666300000" <br />bitmap$(7) = "0000006666000000" <br />bitmap$(8) = "0000000661000000" <br />bitmap$(9) = "0000000711700000" <br /> <br />bitmap$(10) = "0000007111100000" <br />bitmap$(11) = "0000007111100000" <br />bitmap$(12) = "0000071111100000" <br />bitmap$(13) = "0000011111170000" <br />bitmap$(14) = "0000011111170000" <br />bitmap$(15) = "0000711111110000" <br />bitmap$(16) = "0000711111110000" <br />bitmap$(17) = "0000711111110000" <br />bitmap$(18) = "0000711111110000" <br />bitmap$(19) = "0000111111110000" <br />bitmap$(20) = "0000111333310000" <br />bitmap$(21) = "0000066222260000" <br />bitmap$(22) = "0000006222260000" <br />bitmap$(23) = "0000002222200000" <br />bitmap$(24) = "0000002222200000" <br />bitmap$(25) = "0000002222200000" <br /> <br />bitmap$(26) = "0000022222200000" <br />bitmap$(27) = "0000022222200000" <br />bitmap$(28) = "0000022222200000" <br />bitmap$(29) = "0000922222200000" <br />bitmap$(30) = "0000222022200000" <br />bitmap$(31) = "0000222022200000" <br />bitmap$(32) = "0000222022200000" <br />bitmap$(33) = "0000222092290000" <br />bitmap$(34) = "0000222002220000" <br />bitmap$(35) = "0000222002220000" <br />bitmap$(36) = "0000222002220000" <br />bitmap$(37) = "0003333002220000" <br />bitmap$(38) = "0000000000222000" <br />bitmap$(39) = "0000000033330000" <br /> <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "0000366666300000" <br />bitmap$(6) = "000006C8C6000000" <br />bitmap$(7) = "0000006860000000" <br />bitmap$(8) = "0000001610000000" <br />bitmap$(9) = "0000711111700000" <br /> <br />bitmap$(10) = "0000711111700000" <br />bitmap$(11) = "0001111111110000" <br />bitmap$(12) = "0071111111117000" <br />bitmap$(13) = "0071111111117000" <br />bitmap$(14) = "0011711111711000" <br />bitmap$(15) = "0011711111711000" <br />bitmap$(16) = "0711711111711700" <br />bitmap$(17) = "0A11711111711A00" <br />bitmap$(18) = "0117A11111A71100" <br />bitmap$(19) = "0117111111171100" <br />bitmap$(20) = "01104BBBBB401100" <br />bitmap$(21) = "0860922222906800" <br />bitmap$(22) = "0000922222900000" <br />bitmap$(23) = "0000922222900000" <br />bitmap$(24) = "0000922222900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000929092900000" <br />bitmap$(31) = "0000929092900000" <br />bitmap$(32) = "0000929092900000" <br />bitmap$(33) = "0000929092900000" <br />bitmap$(34) = "0000929092900000" <br />bitmap$(35) = "0000929092900000" <br />bitmap$(36) = "0000929092900000" <br />bitmap$(37) = "0000929092900000" <br />bitmap$(38) = "0000333033300000" <br />bitmap$(39) = "0003330003330000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />END <br /> <br /> <br /> <br /> <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Czw 18:25, 04 Sie 2022<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">rem (kontur) postaci <br /> <br /> <br />REM modul BSAVE do gry "Serca 2022" <br /> <br />SCREEN 13 <br /> <br />DIM bitmap$(0 TO 39) <br />DIM k$(0 TO 255) <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 0A 0A 0A": REM tlo plyta <br />k$(2) = "02 06 06 06": REM tlo fuga <br />k$(3) = "03 10 10 10": REM tlo krawedz <br />k$(4) = "04 00 2F 00": REM liscie <br />k$(5) = "05 3F 3F 3F" <br />k$(6) = "06 3F 3F 3F" <br />k$(7) = "07 28 0A 00": REM doniczka <br />k$(8) = "08 00 00 3F": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 20 20 20": REM framuga zewnetrzna <br />k$(11) = "0B 18 18 18": REM wentylator obudowa <br />k$(12) = "0C 3F 3F 3F": REM wentylator faza 1 <br />k$(13) = "0D 2F 2F 2F": REM wentylator faza 2 <br />k$(14) = "0E 1F 1F 1F": REM wentylator faza 3 <br />k$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM bloki przezroczystosci <br />k$(16) = "10 3F 3F 3F" <br />k$(32) = "20 3F 3F 3F" <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />k$(31) = "1F 28 00 00": REM sweter <br />k$(47) = "2F 05 12 2F": REM spodnie <br />k$(63) = "3F 17 17 17": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 2C 17": REM skora1 <br />k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 30 20 00": REM nos <br />k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych <br />k$(175) = "AF 20 00 00": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 2B 2B": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male zlote <br /> <br />k$(242) = "F2 30 2C 10": REM <br />k$(243) = "F3 28 24 08": REM <br />k$(244) = "F4 2A 26 0A": REM <br />k$(245) = "F5 24 20 04": REM <br /> <br />REM cegly male ZIELONE <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br />REM rysunki **************************************** <br /> <br /> <br /> <br /> <br />CLS <br /> <br /> <br />COLOR 15: LOCATE 10, 16: PRINT "SERCA 1.0" <br /> <br />REM animacja <br />REM 7,9 - rejestry przezroczyste <br /> <br />bitmap$(0) = "000000FFFF000000" <br />bitmap$(1) = "00000F3333F00000" <br />bitmap$(2) = "00000FFF33F00000" <br />bitmap$(3) = "00000F36F3F00000" <br />bitmap$(4) = "0000F6666FF00000" <br />bitmap$(5) = "00000F6666F00000" <br />bitmap$(6) = "00000F6666F00000" <br />bitmap$(7) = "000000F66F000000" <br />bitmap$(8) = "0000000FFF000000" <br />bitmap$(9) = "0000000F11F00000" <br /> <br />bitmap$(10) = "000000F111F00000" <br />bitmap$(11) = "000000F111F00000" <br />bitmap$(12) = "000000F111FF0000" <br />bitmap$(13) = "00000F111F1F0000" <br />bitmap$(14) = "00000F111F1F0000" <br />bitmap$(15) = "00000F11F11F0000" <br />bitmap$(16) = "00000F11F11F0000" <br />bitmap$(17) = "0000F111F1F1F000" <br />bitmap$(18) = "0000F11F11F1F000" <br />bitmap$(19) = "000F11F111F1F000" <br />bitmap$(20) = "000F1FFFFFFFF000" <br />bitmap$(21) = "000FF0F222F0FF00" <br />bitmap$(22) = "000F00F222F00F00" <br />bitmap$(23) = "00000F2222F00000" <br />bitmap$(24) = "00000F222FFF0000" <br />bitmap$(25) = "00000F22F22F0000" <br />bitmap$(26) = "00000F22F22F0000" <br />bitmap$(27) = "00000F2F0F2F0000" <br />bitmap$(28) = "00000F2F0F2F0000" <br />bitmap$(29) = "0000F22F0F2F0000" <br />bitmap$(30) = "0000F22F0F2F0000" <br />bitmap$(31) = "0000F2F00F22F000" <br />bitmap$(32) = "0000F2F00F22F000" <br />bitmap$(33) = "0000F2F000F2F000" <br />bitmap$(34) = "0000F2F000F2F000" <br />bitmap$(35) = "0000F2F000F2F000" <br />bitmap$(36) = "000F22F000F22F00" <br />bitmap$(37) = "000F2F00000FFF00" <br />bitmap$(38) = "000FFF0000FF0000" <br />bitmap$(39) = "00FFFF0000000000" <br /> <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />REM kolor = VAL("&H" + znak$ + "F") <br />REM IF znak$ <> "0" THEN COLOR kolor: PSET (xd, yd + 88): PSET (31 - xd, yd + 88) <br />REM IF znak$ = "7" THEN COLOR 16: PSET (xd, yd + 88): PSET (31 - xd, yd + 88) <br />REM IF znak$ = "A" THEN COLOR 16: PSET (xd, yd + 88): PSET (31 - xd, yd + 88) <br /> <br />IF znak$ = "F" THEN COLOR 32: PSET (xd, yd + 88): PSET (31 - xd, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "0000003333000000" <br />bitmap$(1) = "0000033333300000" <br />bitmap$(2) = "0000066633300000" <br />bitmap$(3) = "0000063663300000" <br />bitmap$(4) = "0000866663300000" <br />bitmap$(5) = "0000066666300000" <br />bitmap$(6) = "0000066666300000" <br />bitmap$(7) = "0000006666000000" <br />bitmap$(8) = "0000000661000000" <br />bitmap$(9) = "0000000711700000" <br /> <br />bitmap$(10) = "0000007111100000" <br />bitmap$(11) = "0000001111100000" <br />bitmap$(12) = "0000001111100000" <br />bitmap$(13) = "0000001111100000" <br />bitmap$(14) = "0000001111100000" <br />bitmap$(15) = "0000001111100000" <br />bitmap$(16) = "0000001111100000" <br />bitmap$(17) = "0000071111100000" <br />bitmap$(18) = "0000071111100000" <br />bitmap$(19) = "0000071111100000" <br />bitmap$(20) = "0000071111300000" <br />bitmap$(21) = "0000028118200000" <br />bitmap$(22) = "0000022662200000" <br />bitmap$(23) = "0000022662200000" <br />bitmap$(24) = "0000022222000000" <br />bitmap$(25) = "0000022222000000" <br />bitmap$(26) = "0000022222000000" <br />bitmap$(27) = "0000922222000000" <br />bitmap$(28) = "0000222222000000" <br />bitmap$(29) = "0000222222000000" <br />bitmap$(30) = "0000922222000000" <br />bitmap$(31) = "0000022222000000" <br />bitmap$(32) = "0000022222000000" <br />bitmap$(33) = "0000022222300000" <br />bitmap$(34) = "0000002222300000" <br />bitmap$(35) = "0000000222330000" <br />bitmap$(36) = "0000000222033000" <br />bitmap$(37) = "0000000222000000" <br />bitmap$(38) = "0000000222000000" <br />bitmap$(39) = "0000033330000000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "0000003333000000" <br />bitmap$(1) = "0000033333300000" <br />bitmap$(2) = "0000066633300000" <br />bitmap$(3) = "0000063663300000" <br />bitmap$(4) = "0000866663300000" <br />bitmap$(5) = "0000066666300000" <br />bitmap$(6) = "0000066666300000" <br />bitmap$(7) = "0000006666000000" <br />bitmap$(8) = "0000000661000000" <br />bitmap$(9) = "0000000711700000" <br /> <br />bitmap$(10) = "0000007111100000" <br />bitmap$(11) = "0000007111100000" <br />bitmap$(12) = "0000071111100000" <br />bitmap$(13) = "0000011111170000" <br />bitmap$(14) = "0000011111170000" <br />bitmap$(15) = "0000711111110000" <br />bitmap$(16) = "0000711111110000" <br />bitmap$(17) = "0000711111110000" <br />bitmap$(18) = "0000711111110000" <br />bitmap$(19) = "0000111111110000" <br />bitmap$(20) = "0000111333310000" <br />bitmap$(21) = "0000066222260000" <br />bitmap$(22) = "0000006222260000" <br />bitmap$(23) = "0000002222200000" <br />bitmap$(24) = "0000002222200000" <br />bitmap$(25) = "0000002222200000" <br /> <br />bitmap$(26) = "0000022222200000" <br />bitmap$(27) = "0000022222200000" <br />bitmap$(28) = "0000022222200000" <br />bitmap$(29) = "0000922222200000" <br />bitmap$(30) = "0000222022200000" <br />bitmap$(31) = "0000222022200000" <br />bitmap$(32) = "0000222022200000" <br />bitmap$(33) = "0000222092290000" <br />bitmap$(34) = "0000222002220000" <br />bitmap$(35) = "0000222002220000" <br />bitmap$(36) = "0000222002220000" <br />bitmap$(37) = "0003333002220000" <br />bitmap$(38) = "0000000000222000" <br />bitmap$(39) = "0000000033330000" <br /> <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "0000366666300000" <br />bitmap$(6) = "000006C8C6000000" <br />bitmap$(7) = "0000006860000000" <br />bitmap$(8) = "0000001610000000" <br />bitmap$(9) = "0000711111700000" <br /> <br />bitmap$(10) = "0000711111700000" <br />bitmap$(11) = "0001111111110000" <br />bitmap$(12) = "0071111111117000" <br />bitmap$(13) = "0071111111117000" <br />bitmap$(14) = "0011711111711000" <br />bitmap$(15) = "0011711111711000" <br />bitmap$(16) = "0711711111711700" <br />bitmap$(17) = "0A11711111711A00" <br />bitmap$(18) = "0117A11111A71100" <br />bitmap$(19) = "0117111111171100" <br />bitmap$(20) = "01104BBBBB401100" <br />bitmap$(21) = "0860922222906800" <br />bitmap$(22) = "0000922222900000" <br />bitmap$(23) = "0000922222900000" <br />bitmap$(24) = "0000922222900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000929092900000" <br />bitmap$(31) = "0000929092900000" <br />bitmap$(32) = "0000929092900000" <br />bitmap$(33) = "0000929092900000" <br />bitmap$(34) = "0000929092900000" <br />bitmap$(35) = "0000929092900000" <br />bitmap$(36) = "0000929092900000" <br />bitmap$(37) = "0000929092900000" <br />bitmap$(38) = "0000333033300000" <br />bitmap$(39) = "0003330003330000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />END <br /> <br /> <br /> <br /> <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Czw 13:58, 04 Sie 2022<span class="gen"> </span> Temat postu: Gra Serca 2022</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul BSAVE do gry "Serca 2022" <br /> <br />SCREEN 13 <br /> <br />DIM bitmap$(0 TO 39) <br />DIM k$(0 TO 255) <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />k$(0) = "00 00 00 00": REM rejestr zero- wolny <br />k$(1) = "01 0A 0A 0A": REM tlo plyta <br />k$(2) = "02 06 06 06": REM tlo fuga <br />k$(3) = "03 10 10 10": REM tlo krawedz <br />k$(4) = "04 00 2F 00": REM liscie <br />k$(5) = "05 3F 3F 3F" <br />k$(6) = "06 3F 3F 3F" <br />k$(7) = "07 28 0A 00": REM doniczka <br />k$(8) = "08 00 00 3F": REM niebo <br />k$(9) = "09 3F 3F 00": REM slonce <br />k$(10) = "0A 20 20 20": REM framuga zewnetrzna <br />k$(11) = "0B 18 18 18": REM wentylator obudowa <br />k$(12) = "0C 3F 3F 3F": REM wentylator faza 1 <br />k$(13) = "0D 2F 2F 2F": REM wentylator faza 2 <br />k$(14) = "0E 1F 1F 1F": REM wentylator faza 3 <br />k$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM bloki przezroczystosci <br />k$(16) = "10 3F 3F 3F" <br />k$(32) = "20 3F 3F 3F" <br /> <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />k$(31) = "1F 28 00 00": REM sweter <br />k$(47) = "2F 05 12 2F": REM spodnie <br />k$(63) = "3F 17 17 17": REM wlosy i buty <br />k$(79) = "4F 10 10 10": REM pasek2 <br />k$(95) = "5F 3F 2F 0F": <br />k$(111) = "6F 3F 2C 17": REM skora1 <br />k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych <br />k$(143) = "8F 30 20 00": REM nos <br />k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych <br />k$(175) = "AF 20 00 00": REM sweter3 <br />k$(191) = "BF 20 20 20": REM pasek <br />k$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />k$(224) = "E0 00 00 00": REM <br />k$(225) = "E1 04 04 04": REM <br />k$(226) = "E2 08 08 08": REM <br />k$(227) = "E3 0B 0B 0B": REM <br />k$(228) = "E4 10 10 10": REM <br />k$(229) = "E5 14 14 14": REM <br />k$(230) = "E6 18 18 18": REM <br />k$(231) = "E7 1B 1B 1B": REM <br />k$(232) = "E8 20 20 20": REM <br />k$(233) = "E9 24 2B 2B": REM <br />k$(234) = "EA 28 28 28": REM <br />k$(235) = "EB 2B 2B 2B": REM <br />k$(236) = "EC 30 30 30": REM <br />k$(237) = "ED 34 34 34": REM <br />k$(238) = "EE 38 38 38": REM <br />k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male zlote <br /> <br />k$(242) = "F2 30 2C 10": REM <br />k$(243) = "F3 28 24 08": REM <br />k$(244) = "F4 2A 26 0A": REM <br />k$(245) = "F5 24 20 04": REM <br /> <br />REM cegly male ZIELONE <br /> <br />k$(246) = "F6 22 30 27": REM krawedz <br />k$(247) = "F7 09 14 0E": REM fuga <br />k$(248) = "F8 11 1f 17": REM cegla <br /> <br />REM cegly male niebieskie <br /> <br />k$(249) = "F9 22 27 30": REM krawedz <br />k$(250) = "FA 09 0E 14": REM fuga <br />k$(251) = "FB 11 17 1F": REM cegla <br /> <br />REM cegly male czerwone <br /> <br />k$(252) = "FC 30 27 27": REM krawedz <br />k$(253) = "FD 14 0E 0E": REM fuga <br />k$(254) = "FE 1F 17 17": REM cegla <br />k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2) <br />red$ = "&H" + MID$(k$(i), 4, 2) <br />gre$ = "&H" + MID$(k$(i), 7, 2) <br />blu$ = "&H" + MID$(k$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br />REM rysunki **************************************** <br /> <br /> <br /> <br /> <br />CLS <br /> <br /> <br />COLOR 15: LOCATE 10, 16: PRINT "SERCA 1.0" <br /> <br />REM animacja <br />REM 7,9 - rejestry przezroczyste <br /> <br />bitmap$(0) = "0000003333000000" <br />bitmap$(1) = "0000033333300000" <br />bitmap$(2) = "0000066663300000" <br />bitmap$(3) = "0000063663300000" <br />bitmap$(4) = "0000866666300000" <br />bitmap$(5) = "0000066666300000" <br />bitmap$(6) = "0000066666300000" <br />bitmap$(7) = "0000006666000000" <br />bitmap$(8) = "0000000661000000" <br />bitmap$(9) = "0000000711700000" <br /> <br />bitmap$(10) = "0000007111100000" <br />bitmap$(11) = "0000007111100000" <br />bitmap$(12) = "0000071111170000" <br />bitmap$(13) = "0000011111170000" <br />bitmap$(14) = "0000011111110000" <br />bitmap$(15) = "0000011111110000" <br />bitmap$(16) = "0000711111117000" <br />bitmap$(17) = "0000711111117000" <br />bitmap$(18) = "0000711111111000" <br />bitmap$(19) = "0000111111111000" <br />bitmap$(20) = "0001111333311000" <br />bitmap$(21) = "0006602222206600" <br />bitmap$(22) = "0006002222200600" <br />bitmap$(23) = "0000092222200000" <br />bitmap$(24) = "0000022222290000" <br />bitmap$(25) = "0000022222290000" <br />bitmap$(26) = "0000022222220000" <br />bitmap$(27) = "0000022202220000" <br />bitmap$(28) = "0000022202220000" <br />bitmap$(29) = "0000022202220000" <br />bitmap$(30) = "0000922202220000" <br />bitmap$(31) = "0000222202222000" <br />bitmap$(32) = "0000222009222000" <br />bitmap$(33) = "0000222000222000" <br />bitmap$(34) = "0000222000222000" <br />bitmap$(35) = "0000222000222000" <br />bitmap$(36) = "0009222000222300" <br />bitmap$(37) = "0002220000033300" <br />bitmap$(38) = "0003330000330000" <br />bitmap$(39) = "0033330000000000" <br /> <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd, yd + 88): PSET (31 - xd, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd, yd + 88): PSET (31 - xd, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd, yd + 88): PSET (31 - xd, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd, yd + 88): PSET (31 - xd, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "0000003333000000" <br />bitmap$(1) = "0000033333300000" <br />bitmap$(2) = "0000066633300000" <br />bitmap$(3) = "0000063663300000" <br />bitmap$(4) = "0000866663300000" <br />bitmap$(5) = "0000066666300000" <br />bitmap$(6) = "0000066666300000" <br />bitmap$(7) = "0000006666000000" <br />bitmap$(8) = "0000000661000000" <br />bitmap$(9) = "0000000711700000" <br /> <br />bitmap$(10) = "0000007111100000" <br />bitmap$(11) = "0000001111100000" <br />bitmap$(12) = "0000001111100000" <br />bitmap$(13) = "0000001111100000" <br />bitmap$(14) = "0000001111100000" <br />bitmap$(15) = "0000001111100000" <br />bitmap$(16) = "0000001111100000" <br />bitmap$(17) = "0000071111100000" <br />bitmap$(18) = "0000071111100000" <br />bitmap$(19) = "0000071111100000" <br />bitmap$(20) = "0000071111300000" <br />bitmap$(21) = "0000028118200000" <br />bitmap$(22) = "0000022662200000" <br />bitmap$(23) = "0000022662200000" <br />bitmap$(24) = "0000022222000000" <br />bitmap$(25) = "0000022222000000" <br />bitmap$(26) = "0000022222000000" <br />bitmap$(27) = "0000922222000000" <br />bitmap$(28) = "0000222222000000" <br />bitmap$(29) = "0000222222000000" <br />bitmap$(30) = "0000922222000000" <br />bitmap$(31) = "0000022222000000" <br />bitmap$(32) = "0000022222000000" <br />bitmap$(33) = "0000022222300000" <br />bitmap$(34) = "0000002222300000" <br />bitmap$(35) = "0000000222330000" <br />bitmap$(36) = "0000000222033000" <br />bitmap$(37) = "0000000222000000" <br />bitmap$(38) = "0000000222000000" <br />bitmap$(39) = "0000033330000000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "0000003333000000" <br />bitmap$(1) = "0000033333300000" <br />bitmap$(2) = "0000066633300000" <br />bitmap$(3) = "0000063663300000" <br />bitmap$(4) = "0000866663300000" <br />bitmap$(5) = "0000066666300000" <br />bitmap$(6) = "0000066666300000" <br />bitmap$(7) = "0000006666000000" <br />bitmap$(8) = "0000000661000000" <br />bitmap$(9) = "0000000711700000" <br /> <br />bitmap$(10) = "0000007111100000" <br />bitmap$(11) = "0000007111100000" <br />bitmap$(12) = "0000071111100000" <br />bitmap$(13) = "0000011111170000" <br />bitmap$(14) = "0000011111170000" <br />bitmap$(15) = "0000711111110000" <br />bitmap$(16) = "0000711111110000" <br />bitmap$(17) = "0000711111110000" <br />bitmap$(18) = "0000711111110000" <br />bitmap$(19) = "0000111111110000" <br />bitmap$(20) = "0000111333310000" <br />bitmap$(21) = "0000066222260000" <br />bitmap$(22) = "0000006222260000" <br />bitmap$(23) = "0000002222200000" <br />bitmap$(24) = "0000002222200000" <br />bitmap$(25) = "0000002222200000" <br /> <br />bitmap$(26) = "0000022222200000" <br />bitmap$(27) = "0000022222200000" <br />bitmap$(28) = "0000022222200000" <br />bitmap$(29) = "0000922222200000" <br />bitmap$(30) = "0000222022200000" <br />bitmap$(31) = "0000222022200000" <br />bitmap$(32) = "0000222022200000" <br />bitmap$(33) = "0000222092290000" <br />bitmap$(34) = "0000222002220000" <br />bitmap$(35) = "0000222002220000" <br />bitmap$(36) = "0000222002220000" <br />bitmap$(37) = "0003333002220000" <br />bitmap$(38) = "0000000000222000" <br />bitmap$(39) = "0000000033330000" <br /> <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "0000366666300000" <br />bitmap$(6) = "000006C8C6000000" <br />bitmap$(7) = "0000006860000000" <br />bitmap$(8) = "0000001610000000" <br />bitmap$(9) = "0000711111700000" <br /> <br />bitmap$(10) = "0000711111700000" <br />bitmap$(11) = "0001111111110000" <br />bitmap$(12) = "0071111111117000" <br />bitmap$(13) = "0071111111117000" <br />bitmap$(14) = "0011711111711000" <br />bitmap$(15) = "0011711111711000" <br />bitmap$(16) = "0711711111711700" <br />bitmap$(17) = "0A11711111711A00" <br />bitmap$(18) = "0117A11111A71100" <br />bitmap$(19) = "0117111111171100" <br />bitmap$(20) = "01104BBBBB401100" <br />bitmap$(21) = "0860922222906800" <br />bitmap$(22) = "0000922222900000" <br />bitmap$(23) = "0000922222900000" <br />bitmap$(24) = "0000922222900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000929092900000" <br />bitmap$(31) = "0000929092900000" <br />bitmap$(32) = "0000929092900000" <br />bitmap$(33) = "0000929092900000" <br />bitmap$(34) = "0000929092900000" <br />bitmap$(35) = "0000929092900000" <br />bitmap$(36) = "0000929092900000" <br />bitmap$(37) = "0000929092900000" <br />bitmap$(38) = "0000333033300000" <br />bitmap$(39) = "0003330003330000" <br /> <br />FOR yd = 0 TO 39 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br />IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88) <br />IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88) <br /> <br />NEXT xd <br />NEXT yd <br /> <br /> END <br /> <br /> <br /> <br /> <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 57000 <br />COLOR 15: LOCATE 23, 1 <br />INPUT a$ <br />CLS <br /> <br /> <br />BLOAD "bitmap1.scr" <br /> <br />END</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> </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