Ż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: Czw 12:50, 02 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul BSAVE do gry "Serca" <br /> <br />SCREEN 13 <br /> <br />DIM kolor$(0 TO 255) <br />DIM cegla(0 TO 32) AS LONG <br />DIM tlo(0 TO 32) AS LONG <br />DIM poltlo(0 TO 16) AS LONG <br />DIM bitmap$(0 TO 31) <br />DIM blok(0 TO 64) AS LONG <br /> <br />REM palety kolorow ********************************* <br />REM max koloru=3F <br /> <br />FOR i = 0 TO 255: kolor$(i) = "00 00 00 00": NEXT i <br /> <br />REM kolory za ludzikiem <br /> <br />kolor$(0) = "00 00 00 00": REM rejestr zero- wolny <br />kolor$(1) = "01 0A 0A 0A": REM tlo plyta <br />kolor$(2) = "02 06 06 06": REM tlo fuga <br />kolor$(3) = "03 10 10 10": REM tlo krawedz <br />kolor$(4) = "04 00 2F 00": REM liscie <br />kolor$(5) = "05 3F 3F 3F" <br />kolor$(6) = "06 3F 3F 3F" <br />kolor$(7) = "07 28 0A 00": REM doniczka <br />kolor$(8) = "08 3F 3F 0F" <br />kolor$(9) = "09 3F 3F 3F" <br />kolor$(10) = "0A 3F 3F 3F" <br />kolor$(11) = "0B 3F 3F 3F" <br />kolor$(12) = "0C 3F 3F 3F" <br />kolor$(13) = "0D 3F 3F 3F" <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis startowy <br /> <br />REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF) <br /> <br />kolor$(31) = "1F 28 00 00": REM sweter <br />kolor$(47) = "2F 05 12 2F": REM spodnie <br />kolor$(63) = "3F 17 17 17": REM wlosy i buty <br />kolor$(79) = "4F 10 10 10": REM pasek2 <br />kolor$(95) = "5F 3F 2F 0F": <br />kolor$(111) = "6F 3F 2C 17": REM skora1 <br />kolor$(127) = "7F 18 00 00": REM sweter 2 <br />kolor$(143) = "8F 30 20 00": REM nos <br />kolor$(159) = "9F 04 0D 23": REM spodnie2 <br />kolor$(175) = "AF 20 00 00": REM sweter3 <br />kolor$(191) = "BF 20 20 20": REM pasek <br />kolor$(207) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />kolor$(224) = "E0 00 00 00": REM <br />kolor$(225) = "E1 04 04 04": REM <br />kolor$(226) = "E2 08 08 08": REM <br />kolor$(227) = "E3 0B 0B 0B": REM <br />kolor$(228) = "E4 10 10 10": REM <br />kolor$(229) = "E5 14 14 14": REM <br />kolor$(230) = "E6 18 18 18": REM <br />kolor$(231) = "E7 1B 1B 1B": REM <br />kolor$(232) = "E8 20 20 20": REM <br />kolor$(233) = "E9 24 2B 2B": REM <br />kolor$(234) = "EA 28 28 28": REM <br />kolor$(235) = "EB 2B 2B 2B": REM <br />kolor$(236) = "EC 30 30 30": REM <br />kolor$(237) = "ED 34 34 34": REM <br />kolor$(238) = "EE 38 38 38": REM <br />kolor$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />REM cegly male <br /> <br />kolor$(252) = "FC 30 27 27": REM krawedz <br />kolor$(253) = "FD 14 0E 0E": REM fuga <br />kolor$(254) = "FE 1F 17 17": REM cegla <br />kolor$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br />REM rysunki **************************************** <br /> <br />REM rysunek cegly <br /> <br />bitmap$(0) = "DDDDDDDEDDDDDDDE" <br />bitmap$(1) = "DFFFFFFEDFFFFFFE" <br />bitmap$(2) = "DFFFFFFEDFFFFFFE" <br />bitmap$(3) = "EEEEEEEEEEEEEEEE" <br />bitmap$(4) = "DDDEDDDDDDDDDDDD" <br />bitmap$(5) = "FFFEDFFFFFFFFFFF" <br />bitmap$(6) = "FFFEDFFFFFFFFFFF" <br />bitmap$(7) = "EEEEEEEEEEEEEEEE" <br /> <br />REM 250-A 251-B 252-C 253-D 254-E 255-F <br /> <br />FOR yd = 0 TO 7 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 - 1 + &HF0 + 10 <br /> : PSET (xd, yd) <br />NEXT xd: NEXT yd <br />GET (0, 0)-(15, 7), cegla <br /> <br /> <br />REM komorka tla <br /> <br />REM tlo(0) = &H80040 <br /> <br />bitmap$(0) = "0001200000012000" <br />bitmap$(1) = "1111200000011111" <br />bitmap$(2) = "2221200000012222" <br />bitmap$(3) = "0001200000012000" <br />bitmap$(4) = "0001200000012000" <br />bitmap$(5) = "0001111111112000" <br />bitmap$(6) = "0001222222212000" <br />bitmap$(7) = "0001200000012000" <br /> <br />FOR yd = 0 TO 7 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 48 + 1 <br /> : PSET (xd, yd) <br />NEXT xd: NEXT yd <br /> <br />GET (0, 0)-(15, 7), tlo <br /> <br /> <br /> <br />REM przygotowanie tablic elementow wierszowych <br />CLS <br /> <br />FOR x = 0 TO 19 <br />FOR y = 0 TO 10 <br />PUT (x * 16, y * 8), tlo, PSET <br />NEXT y <br />NEXT x <br /> <br />REM cegly <br /> <br />FOR i = 0 TO 19 <br />PUT (i * 16, 0), cegla, PSET <br />NEXT i <br /> <br />FOR i = 0 TO 8 <br />PUT (i * 16, 8), cegla, PSET <br />PUT (304 - i * 16, 8), cegla, PSET <br />NEXT i <br /> <br />FOR i = 0 TO 4 <br />PUT (i * 16, 16), cegla, PSET <br />PUT (304 - i * 16, 16), cegla, PSET <br />NEXT i <br /> <br /> <br />FOR i = 0 TO 2 <br />PUT (i * 16, 24), cegla, PSET <br />PUT (304 - i * 16, 24), cegla, PSET <br />NEXT i <br />FOR i = 0 TO 9 <br />PUT (i * 16 + 80, 24), cegla, PSET <br />NEXT i <br /> <br /> <br />REM poszerzenie przejsc pionowych <br /> <br />GET (8, 64)-(15, 71), poltlo <br />PUT (136, 8), poltlo, PSET <br />PUT (40, 24), poltlo, PSET <br />GET (0, 64)-(7, 71), poltlo <br />PUT (176, 8), poltlo, PSET <br />PUT (272, 24), poltlo, PSET <br /> <br />REM wykonczenie cegiel <br />COLOR 253: REM szczeliny <br />LINE (135, 8)-(135, 15) <br />LINE (79, 16)-(79, 23) <br />LINE (39, 24)-(39, 31) <br />LINE (239, 24)-(239, 31) <br /> <br />COLOR 252: REM krawedzie <br />LINE (184, 12)-(184, 14) <br />LINE (240, 21)-(240, 22) <br />LINE (80, 28)-(80, 30) <br />LINE (280, 28)-(280, 30) <br /> <br /> <br /> <br />REM RYSUNEK kamienia <br /> <br />bitmap$(0) = "JJJJJJJJJJJJJJJJ" <br />bitmap$(1) = "JJNNNNNNNNNNNNJJ" <br />bitmap$(2) = "JJNAAAKJPKAAANJJ" <br />bitmap$(3) = "JJNAKONPNKPKANJJ" <br />bitmap$(4) = "JJNAPMKLGLMPANJJ" <br />bitmap$(5) = "JJNKJOJKPJPKMNJJ" <br />bitmap$(6) = "JJNOLJKJJMKMJNJJ" <br />bitmap$(7) = "JJNJFMJOHKNIPNJJ" <br />bitmap$(8) = "JJNJILJLJHIJHNJJ" <br />bitmap$(9) = "JJNIHJNOHOJJKNJJ" <br />bitmap$(10) = "JJNAJIIHJOMPANJJ" <br />bitmap$(11) = "JJNAINNJLJOKANJJ" <br />bitmap$(12) = "JJNAAAIKJKAAANJJ" <br />bitmap$(13) = "JJNNNNNNNNNNNNJJ" <br />bitmap$(14) = "JJJJJJJJJJJJJJJJ" <br />bitmap$(15) = "JJJJJJJJJJJJJJJJ" <br /> <br />FOR yd = 0 TO 15 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 + 230 <br /> : PSET (xd, yd + 64) <br />NEXT xd: NEXT yd <br /> <br />REM RYSUNEK DONICZKI <br /> <br />bitmap$(0) = "AAABCEEAAEEBCAAA" <br />bitmap$(1) = "BBBBEEEEEEEECBBB" <br />bitmap$(2) = "CCCEEEEEEEEEECCC" <br />bitmap$(3) = "AAAEEEEEEEEBEEAA" <br />bitmap$(4) = "AAEEAEAEEAEBEEAA" <br />bitmap$(5) = "AAEBCEBEEBEBCEAA" <br />bitmap$(6) = "AAEBECCEECCECEAA" <br />bitmap$(7) = "AAEBEAAEEAAECEAA" <br />bitmap$(8) = "AAABCAAEEAABCAAA" <br />bitmap$(9) = "BBBBCAAEEAABBBBB" <br />bitmap$(10) = "CCCBAAAEEAABCCCC" <br />bitmap$(11) = "AAABCHHHHHHBCAAA" <br />bitmap$(12) = "AAABCHHHHHHBCAAA" <br />bitmap$(13) = "AAABBBHHHHBBCAAA" <br />bitmap$(14) = "AAABCCHHHHCBCAAA" <br />bitmap$(15) = "AAABCAHHHHABCAAA" <br /> <br />FOR yd = 0 TO 15 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 <br /> : PSET (xd + 16, yd + 64) <br />NEXT xd: NEXT yd <br /> <br />REM rysunek bloku <br /> <br />bitmap$(0) = "JJJJJJJJJJJJJJJF" + "JJJJJJJJJJJJJJJF" + "JJJJJJJJJJJJJJJF" <br />bitmap$(1) = "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" <br />bitmap$(2) = "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" <br />bitmap$(3) = "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" <br />bitmap$(4) = "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" <br />bitmap$(5) = "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" <br />bitmap$(6) = "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" <br />bitmap$(7) = "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" <br />bitmap$(8) = "JJJJJJJFJJJJJJJJ" + "JJJJJJJFJJJJJJJJ" + "JJJJJJJFJJJJJJJF" <br />bitmap$(9) = "KHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHF" <br />bitmap$(10) = "KHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHF" <br />bitmap$(11) = "KHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHF" <br />bitmap$(12) = "KHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHF" <br />bitmap$(13) = "KHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHF" <br />bitmap$(14) = "KHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHF" <br />bitmap$(15) = "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" <br /> <br />FOR yd = 0 TO 15 <br />FOR xd = 0 TO 47 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 + 224 <br /> : PSET (xd + 32, yd + 64) <br />NEXT xd: NEXT yd <br /> <br />GET (48, 64)-(63, 79), blok <br />FOR i = 0 TO 19: PUT (i * 16, 32), blok, PSET <br />NEXT i <br /> <br /> <br />COLOR 15: LOCATE 10, 16: PRINT "SERCA 1.0" <br /> <br />REM animacja <br /> <br />bitmap$(0) = "0000003333000000" + "0000003333000000" <br />bitmap$(1) = "0000033333300000" + "0000033333300000" <br />bitmap$(2) = "0000066663300000" + "0000033366600000" <br />bitmap$(3) = "0000063663300000" + "0000033663600000" <br />bitmap$(4) = "0000866666300000" + "0000036666680000" <br />bitmap$(5) = "0000066666300000" + "0000036666600000" <br />bitmap$(6) = "0000006666000000" + "0000006666000000" <br />bitmap$(7) = "0000000661000000" + "0000001660000000" <br />bitmap$(8) = "0000000711700000" + "0000071170000000" <br />bitmap$(9) = "0000007111100000" + "0000011117000000" <br /> <br />bitmap$(10) = "0000071111170000" + "0000711111700000" <br />bitmap$(11) = "0000011111170000" + "0000711111100000" <br />bitmap$(12) = "0000011111110000" + "0000111111100000" <br />bitmap$(13) = "0000711111117000" + "0007111111170000" <br />bitmap$(14) = "0000711111111000" + "0001111111170000" <br />bitmap$(15) = "0000111111111000" + "0001111111110000" <br />bitmap$(16) = "0001111333311000" + "0001133331111000" <br />bitmap$(17) = "0006602222206600" + "0066022222066000" <br />bitmap$(18) = "0006002222200600" + "0060022222006000" <br />bitmap$(19) = "0000092222200000" + "0000922222900000" <br />bitmap$(20) = "0000022222290000" + "0000222222200000" <br />bitmap$(21) = "0000022222220000" + "0000222222200000" <br />bitmap$(22) = "0000022202220000" + "0000222022200000" <br />bitmap$(23) = "0000922202220000" + "0000222022220000" <br />bitmap$(24) = "0000222202222000" + "0009222022220000" <br />bitmap$(25) = "0000222009222000" + "0002229002220000" <br />bitmap$(26) = "0000222000222000" + "0002220002220000" <br />bitmap$(27) = "0000222000222000" + "0002220002220000" <br />bitmap$(28) = "0009222000222300" + "0032220009229000" <br />bitmap$(29) = "0002220000033300" + "0033300000222000" <br />bitmap$(30) = "0003330000330000" + "0000330000222000" <br />bitmap$(31) = "0033330000000000" + "0000000000333300" <br /> <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 31 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd, yd + 88) <br /> NEXT xd <br />NEXT yd <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "0000003333000000" + "0000003333000000" <br />bitmap$(1) = "0000033333300000" + "0000033333300000" <br />bitmap$(2) = "0000066633300000" + "0000033366600000" <br />bitmap$(3) = "0000063663300000" + "0000033663600000" <br />bitmap$(4) = "0000866663300000" + "0000033666680000" <br />bitmap$(5) = "0000066666300000" + "0000036666600000" <br />bitmap$(6) = "0000006666000000" + "0000006666000000" <br />bitmap$(7) = "0000000661000000" + "0000001660000000" <br />bitmap$(8) = "0000000711700000" + "0000071170000000" <br />bitmap$(9) = "0000007111100000" + "0000011117000000" <br /> <br />bitmap$(10) = "0000001111100000" + "0000011111000000" <br />bitmap$(11) = "0000001111100000" + "0000011111000000" <br />bitmap$(12) = "0000001111100000" + "0000011111000000" <br />bitmap$(13) = "0000001111100000" + "0000011111000000" <br />bitmap$(14) = "0000071111100000" + "0000011111700000" <br />bitmap$(15) = "0000071111100000" + "0000011111700000" <br />bitmap$(16) = "0000071111300000" + "0000031111700000" <br />bitmap$(17) = "0000028118200000" + "0000028118200000" <br />bitmap$(18) = "0000022662200000" + "0000022662200000" <br />bitmap$(19) = "0000022662200000" + "0000022662200000" <br />bitmap$(20) = "0000022222000000" + "0000002222200000" <br />bitmap$(21) = "0000922222000000" + "0000002222290000" <br />bitmap$(22) = "0000222222000000" + "0000002222220000" <br />bitmap$(23) = "0000922222000000" + "0000002222290000" <br />bitmap$(24) = "0000022222000000" + "0000002222200000" <br />bitmap$(25) = "0000022222300000" + "0000032222200000" <br />bitmap$(26) = "0000002222300000" + "0000032222000000" <br />bitmap$(27) = "0000000222330000" + "0000332220000000" <br />bitmap$(28) = "0000000222033000" + "0003300222000000" <br />bitmap$(29) = "0000000222000000" + "0000000222000000" <br />bitmap$(30) = "0000000222000000" + "0000000222000000" <br />bitmap$(31) = "0000033330000000" + "0000000033330000" <br /> <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 31 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 32, yd + 88) <br /> NEXT xd <br />NEXT yd <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "0000003333000000" + "0000003333000000" <br />bitmap$(1) = "0000033333300000" + "0000033333300000" <br />bitmap$(2) = "0000066633300000" + "0000033366600000" <br />bitmap$(3) = "0000063663300000" + "0000033663600000" <br />bitmap$(4) = "0000866663300000" + "0000033666680000" <br />bitmap$(5) = "0000066666300000" + "0000036666600000" <br />bitmap$(6) = "0000006666000000" + "0000006666000000" <br />bitmap$(7) = "0000000661000000" + "0000001660000000" <br />bitmap$(8) = "0000000711700000" + "0000071170000000" <br />bitmap$(9) = "0000007111100000" + "0000011117000000" <br /> <br />bitmap$(10) = "0000071111100000" + "0000111117000000" <br />bitmap$(11) = "0000011111170000" + "0000111111700000" <br />bitmap$(12) = "0000711111110000" + "0000111111170000" <br />bitmap$(13) = "0000711111110000" + "0000111111170000" <br />bitmap$(14) = "0000711111110000" + "0000111111170000" <br />bitmap$(15) = "0000111111110000" + "0000111111110000" <br />bitmap$(16) = "0000111333310000" + "0000133331110000" <br />bitmap$(17) = "0000066222260000" + "0000622226600000" <br />bitmap$(18) = "0000006222260000" + "0000622226000000" <br />bitmap$(19) = "0000002222200000" + "0000022222000000" <br />bitmap$(20) = "0000002222200000" + "0000022222000000" <br />bitmap$(21) = "0000022222200000" + "0000022222200000" <br />bitmap$(22) = "0000022222200000" + "0000022222200000" <br />bitmap$(23) = "0000922222200000" + "0000022222290000" <br />bitmap$(24) = "0000222022200000" + "0000022202220000" <br />bitmap$(25) = "0000222022200000" + "0000022202220000" <br />bitmap$(26) = "0000222092290000" + "0000922902220000" <br />bitmap$(27) = "0000222002220000" + "0000222002220000" <br />bitmap$(28) = "0000222002220000" + "0000222002220000" <br />bitmap$(29) = "0003333002220000" + "0000222003333000" <br />bitmap$(30) = "0000000000222000" + "0002220000000000" <br />bitmap$(31) = "0000000033330000" + "0000333300000000" <br /> <br /> <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 31 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 64, yd + 88) <br /> NEXT xd <br />NEXT yd <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "000006C8C6000000" <br />bitmap$(6) = "0000006860000000" <br />bitmap$(7) = "0000001610000000" <br />bitmap$(8) = "0000711111700000" <br />bitmap$(9) = "0001111111110000" <br /> <br />bitmap$(10) = "0071111111117000" <br />bitmap$(11) = "0071111111117000" <br />bitmap$(12) = "0011711111711000" <br />bitmap$(13) = "0711711111711700" <br />bitmap$(14) = "0A1A7111117A1A00" <br />bitmap$(15) = "0117A11111A71100" <br />bitmap$(16) = "0117111111171100" <br />bitmap$(17) = "01104BBBBB401100" <br />bitmap$(18) = "0860922222906800" <br />bitmap$(19) = "0000922222900000" <br />bitmap$(20) = "0000929092900000" <br />bitmap$(21) = "0000929092900000" <br />bitmap$(22) = "0000929092900000" <br />bitmap$(23) = "0000929092900000" <br />bitmap$(24) = "0000929092900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000333033300000" <br />bitmap$(31) = "0003330003330000" <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br /> NEXT xd <br />NEXT yd <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 50000 <br /> COLOR 0: PRINT "AAAAAAAAA" <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 11:34, 02 Wrz 2021<span class="gen"> </span> Temat postu: Tablica kolorów</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM modul BSAVE do gry "Serca" <br /> <br />SCREEN 13 <br />DIM kolor$(0 TO 255) <br />REM max koloru=3F <br />FOR i = 1 TO 255: kolor$(i) = "00 00 00 00": NEXT i <br /> <br />kolor$(0) = "00 3A 00 3A": REM tlo <br />kolor$(1) = "01 07 07 07": REM tlo fuga <br />kolor$(2) = "02 0F 0F 0F": REM tlo <br />kolor$(3) = "03 3F 3F 3F" <br />kolor$(4) = "04 00 2F 00": REM liscie <br />kolor$(5) = "05 3F 3F 3F" <br />kolor$(6) = "06 3F 3F 3F" <br />kolor$(7) = "07 28 0A 00": REM doniczka <br />kolor$(8) = "08 3F 3F 0F" <br />kolor$(9) = "09 3F 3F 3F" <br />kolor$(10) = "0A 3F 3F 3F" <br />kolor$(11) = "0B 3F 3F 3F" <br />kolor$(12) = "0C 3F 3F 3F" <br />kolor$(13) = "0D 3F 3F 3F" <br />kolor$(14) = "0E 3F 3F 3F" <br />kolor$(15) = "0F 3F 3F 3F": REM napis <br /> <br />REM ****************** ludzik - uwaga rejestry sa rozrzucone <br /> <br />kolor$(16) = "1F 28 00 00": REM sweter <br />kolor$(17) = "2F 05 12 2F": REM spodnie <br />kolor$(18) = "3F 18 18 18": REM wlosy i buty <br />kolor$(19) = "4F 10 10 10": REM pasek2 <br />kolor$(20) = "5F 3F 2F 0F": <br />kolor$(21) = "6F 3F 2C 17": REM skora1 <br />kolor$(22) = "7F 18 00 00": REM sweter 2 <br />kolor$(23) = "8F 30 20 00": REM nos <br />kolor$(24) = "9F 04 0D 23": REM spodnie2 <br />kolor$(25) = "AF 20 00 00": REM sweter3 <br />kolor$(26) = "BF 20 20 20": REM pasek <br />kolor$(27) = "CF 37 27 06": REM usta <br /> <br />REM bloczek <br /> <br />kolor$(230) = "E6 00 00 00": REM <br />kolor$(231) = "E7 04 04 04": REM <br />kolor$(232) = "E8 08 08 08": REM <br />kolor$(233) = "E9 0B 0B 0B": REM <br />kolor$(234) = "EA 10 10 10": REM <br />kolor$(235) = "EB 14 14 14": REM <br />kolor$(236) = "EC 18 18 18": REM <br />kolor$(237) = "ED 1B 1B 1B": REM <br />kolor$(238) = "EE 20 20 20": REM <br />kolor$(239) = "EF 24 24 24": REM <br />kolor$(240) = "F0 28 28 28": REM <br />kolor$(241) = "F1 2B 2B 2B": REM <br />kolor$(242) = "F2 30 30 30": REM <br />kolor$(243) = "F3 34 34 34": REM <br />kolor$(244) = "F4 38 38 38": REM <br />kolor$(245) = "F5 3F 3F 3F": REM ostatni z bloku <br /> <br />REM cegly male <br /> <br />kolor$(253) = "FD 30 27 27": REM <br />kolor$(254) = "FE 14 0E 0E": REM <br />kolor$(255) = "FF 1F 17 17": REM <br /> <br />FOR i = 0 TO 255: rej$ = "&H" + MID$(kolor$(i), 1, 2) <br />red$ = "&H" + MID$(kolor$(i), 4, 2) <br />gre$ = "&H" + MID$(kolor$(i), 7, 2) <br />blu$ = "&H" + MID$(kolor$(i), 10, 2) <br />REM PRINT rej$; " "; red$; " "; gre$; " "; blu$ <br />rej = VAL(rej$) <br />red = VAL(red$) <br />gre = VAL(gre$) <br />blu = VAL(blu$) <br />REM PRINT rej; " "; red; " "; gre; " "; blu <br /> <br />PALETTE rej, red + gre * 256 + blu * 65536 <br />NEXT i <br /> <br /> <br />DIM cegla(0 TO 32) AS LONG <br />DIM tlo(0 TO 32) AS LONG <br />DIM poltlo(0 TO 16) AS LONG <br />DIM bitmap$(0 TO 31) <br />DIM blok(0 TO 64) AS LONG <br /> <br />REM rysunek cegly <br /> <br />bitmap$(0) = "DDDDDDDEDDDDDDDE" <br />bitmap$(1) = "DFFFFFFEDFFFFFFE" <br />bitmap$(2) = "DFFFFFFEDFFFFFFE" <br />bitmap$(3) = "EEEEEEEEEEEEEEEE" <br />bitmap$(4) = "DDDEDDDDDDDDDDDD" <br />bitmap$(5) = "FFFEDFFFFFFFFFFF" <br />bitmap$(6) = "FFFEDFFFFFFFFFFF" <br />bitmap$(7) = "EEEEEEEEEEEEEEEE" <br /> <br />REM 250-A 251-B 252-C 253-D 254-E 255-F <br /> <br />FOR yd = 0 TO 7 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 + &HF0 + 10 <br /> : PSET (xd, yd) <br />NEXT xd: NEXT yd <br />GET (0, 0)-(15, 7), cegla <br /> <br /> <br />REM komorka tla <br /> <br />REM tlo(0) = &H80040 <br /> <br />bitmap$(0) = "0001200000012000" <br />bitmap$(1) = "1111200000011111" <br />bitmap$(2) = "2221200000012222" <br />bitmap$(3) = "0001200000012000" <br />bitmap$(4) = "0001200000012000" <br />bitmap$(5) = "0001111111112000" <br />bitmap$(6) = "0001222222212000" <br />bitmap$(7) = "0001200000012000" <br /> <br />FOR yd = 0 TO 7 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 48 <br /> : PSET (xd, yd) <br />NEXT xd: NEXT yd <br /> <br />GET (0, 0)-(15, 7), tlo <br /> <br /> <br /> <br />REM przygotowanie tablic elementow wierszowych <br />CLS <br /> <br />FOR x = 0 TO 19 <br />FOR y = 0 TO 10 <br />PUT (x * 16, y * 8), tlo, PSET <br />NEXT y <br />NEXT x <br /> <br />REM cegly <br /> <br />FOR i = 0 TO 19 <br />PUT (i * 16, 0), cegla, PSET <br />NEXT i <br /> <br />FOR i = 0 TO 8 <br />PUT (i * 16, 8), cegla, PSET <br />PUT (304 - i * 16, 8), cegla, PSET <br />NEXT i <br /> <br />FOR i = 0 TO 4 <br />PUT (i * 16, 16), cegla, PSET <br />PUT (304 - i * 16, 16), cegla, PSET <br />NEXT i <br /> <br /> <br />FOR i = 0 TO 2 <br />PUT (i * 16, 24), cegla, PSET <br />PUT (304 - i * 16, 24), cegla, PSET <br />NEXT i <br />FOR i = 0 TO 9 <br />PUT (i * 16 + 80, 24), cegla, PSET <br />NEXT i <br /> <br /> <br />REM poszerzenie przejsc pionowych <br /> <br />GET (8, 64)-(15, 71), poltlo <br />PUT (136, 8), poltlo, PSET <br />PUT (40, 24), poltlo, PSET <br />GET (0, 64)-(7, 71), poltlo <br />PUT (176, 8), poltlo, PSET <br />PUT (272, 24), poltlo, PSET <br /> <br />REM wykonczenie cegiel <br />COLOR 254: REM szczeliny <br />LINE (135, 8)-(135, 15) <br />LINE (79, 16)-(79, 23) <br />LINE (39, 24)-(39, 31) <br />LINE (239, 24)-(239, 31) <br /> <br />COLOR 253: REM krawedzie <br />LINE (184, 12)-(184, 14) <br />LINE (240, 21)-(240, 22) <br />LINE (80, 28)-(80, 30) <br />LINE (280, 28)-(280, 30) <br /> <br /> <br /> <br />REM RYSUNEK kamienia <br /> <br />bitmap$(0) = "JJJJJJJJJJJJJJJJ" <br />bitmap$(1) = "JJNNNNNNNNNNNNJJ" <br />bitmap$(2) = "JJNAAAKJPKAAANJJ" <br />bitmap$(3) = "JJNAKONPNKPKANJJ" <br />bitmap$(4) = "JJNAPMKLGLMPANJJ" <br />bitmap$(5) = "JJNKJOJKPJPKMNJJ" <br />bitmap$(6) = "JJNOLJKJJMKMJNJJ" <br />bitmap$(7) = "JJNJFMJOHKNIPNJJ" <br />bitmap$(8) = "JJNJILJLJHIJHNJJ" <br />bitmap$(9) = "JJNIHJNOHOJJKNJJ" <br />bitmap$(10) = "JJNAJIIHJOMPANJJ" <br />bitmap$(11) = "JJNAINNJLJOKANJJ" <br />bitmap$(12) = "JJNAAAIKJKAAANJJ" <br />bitmap$(13) = "JJNNNNNNNNNNNNJJ" <br />bitmap$(14) = "JJJJJJJJJJJJJJJJ" <br />bitmap$(15) = "JJJJJJJJJJJJJJJJ" <br /> <br />FOR yd = 0 TO 15 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 + 230 <br /> : PSET (xd, yd + 64) <br />NEXT xd: NEXT yd <br /> <br />REM RYSUNEK DONICZKI <br /> <br />bitmap$(0) = "AAABCEEAAEEBCAAA" <br />bitmap$(1) = "BBBBEEEEEEEECBBB" <br />bitmap$(2) = "CCCEEEEEEEEEECCC" <br />bitmap$(3) = "AAAEEEEEEEEBEEAA" <br />bitmap$(4) = "AAEEAEAEEAEBEEAA" <br />bitmap$(5) = "AAEBCEBEEBEBCEAA" <br />bitmap$(6) = "AAEBECCEECCECEAA" <br />bitmap$(7) = "AAEBEAAEEAAECEAA" <br />bitmap$(8) = "AAABCAAEEAABCAAA" <br />bitmap$(9) = "BBBBCAAEEAABBBBB" <br />bitmap$(10) = "CCCBAAAEEAABCCCC" <br />bitmap$(11) = "AAABCHHHHHHBCAAA" <br />bitmap$(12) = "AAABCHHHHHHBCAAA" <br />bitmap$(13) = "AAABBBHHHHBBCAAA" <br />bitmap$(14) = "AAABCCHHHHCBCAAA" <br />bitmap$(15) = "AAABCAHHHHABCAAA" <br /> <br />FOR yd = 0 TO 15 <br />FOR xd = 0 TO 15 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 <br /> : PSET (xd + 16, yd + 64) <br />NEXT xd: NEXT yd <br /> <br />REM rysunek bloku <br /> <br />bitmap$(0) = "JJJJJJJJJJJJJJJF" + "JJJJJJJJJJJJJJJF" + "JJJJJJJJJJJJJJJF" <br />bitmap$(1) = "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" <br />bitmap$(2) = "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" <br />bitmap$(3) = "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" <br />bitmap$(4) = "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" <br />bitmap$(5) = "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" <br />bitmap$(6) = "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" + "KHHHHHHHHHHHHHHF" <br />bitmap$(7) = "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" <br />bitmap$(8) = "JJJJJJJFJJJJJJJJ" + "JJJJJJJFJJJJJJJJ" + "JJJJJJJFJJJJJJJF" <br />bitmap$(9) = "KHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHF" <br />bitmap$(10) = "KHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHF" <br />bitmap$(11) = "KHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHF" <br />bitmap$(12) = "KHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHF" <br />bitmap$(13) = "KHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHF" <br />bitmap$(14) = "KHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHH" + "HHHHHHHFKHHHHHHF" <br />bitmap$(15) = "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" + "FFFFFFFFFFFFFFFF" <br /> <br />FOR yd = 0 TO 15 <br />FOR xd = 0 TO 47 <br />COLOR ASC(MID$(bitmap$(yd), xd + 1, 1)) - 65 + 230 <br /> : PSET (xd + 32, yd + 64) <br />NEXT xd: NEXT yd <br /> <br />GET (48, 64)-(63, 79), blok <br />FOR i = 0 TO 19: PUT (i * 16, 32), blok, PSET <br />NEXT i <br /> <br /> <br />COLOR 15: LOCATE 10, 16: PRINT "SERCA 1.0" <br /> <br />REM animacja <br /> <br />bitmap$(0) = "0000003333000000" + "0000003333000000" <br />bitmap$(1) = "0000033333300000" + "0000033333300000" <br />bitmap$(2) = "0000066663300000" + "0000033366600000" <br />bitmap$(3) = "0000063663300000" + "0000033663600000" <br />bitmap$(4) = "0000866666300000" + "0000036666680000" <br />bitmap$(5) = "0000066666300000" + "0000036666600000" <br />bitmap$(6) = "0000006666000000" + "0000006666000000" <br />bitmap$(7) = "0000000661000000" + "0000001660000000" <br />bitmap$(8) = "0000000711700000" + "0000071170000000" <br />bitmap$(9) = "0000007111100000" + "0000011117000000" <br /> <br />bitmap$(10) = "0000071111170000" + "0000711111700000" <br />bitmap$(11) = "0000011111170000" + "0000711111100000" <br />bitmap$(12) = "0000011111110000" + "0000111111100000" <br />bitmap$(13) = "0000711111117000" + "0007111111170000" <br />bitmap$(14) = "0000711111111000" + "0001111111170000" <br />bitmap$(15) = "0000111111111000" + "0001111111110000" <br />bitmap$(16) = "0001111333311000" + "0001133331111000" <br />bitmap$(17) = "0006602222206600" + "0066022222066000" <br />bitmap$(18) = "0006002222200600" + "0060022222006000" <br />bitmap$(19) = "0000092222200000" + "0000922222900000" <br />bitmap$(20) = "0000022222290000" + "0000222222200000" <br />bitmap$(21) = "0000022222220000" + "0000222222200000" <br />bitmap$(22) = "0000022202220000" + "0000222022200000" <br />bitmap$(23) = "0000922202220000" + "0000222022220000" <br />bitmap$(24) = "0000222202222000" + "0009222022220000" <br />bitmap$(25) = "0000222009222000" + "0002229002220000" <br />bitmap$(26) = "0000222000222000" + "0002220002220000" <br />bitmap$(27) = "0000222000222000" + "0002220002220000" <br />bitmap$(28) = "0009222000222300" + "0032220009229000" <br />bitmap$(29) = "0002220000033300" + "0033300000222000" <br />bitmap$(30) = "0003330000330000" + "0000330000222000" <br />bitmap$(31) = "0033330000000000" + "0000000000333300" <br /> <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 31 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd, yd + 88) <br /> NEXT xd <br />NEXT yd <br /> <br /> <br /> <br />REM ************************************ FAZA 2 <br /> <br />bitmap$(0) = "0000003333000000" + "0000003333000000" <br />bitmap$(1) = "0000033333300000" + "0000033333300000" <br />bitmap$(2) = "0000066633300000" + "0000033366600000" <br />bitmap$(3) = "0000063663300000" + "0000033663600000" <br />bitmap$(4) = "0000866663300000" + "0000033666680000" <br />bitmap$(5) = "0000066666300000" + "0000036666600000" <br />bitmap$(6) = "0000006666000000" + "0000006666000000" <br />bitmap$(7) = "0000000661000000" + "0000001660000000" <br />bitmap$(8) = "0000000711700000" + "0000071170000000" <br />bitmap$(9) = "0000007111100000" + "0000011117000000" <br /> <br />bitmap$(10) = "0000001111100000" + "0000011111000000" <br />bitmap$(11) = "0000001111100000" + "0000011111000000" <br />bitmap$(12) = "0000001111100000" + "0000011111000000" <br />bitmap$(13) = "0000001111100000" + "0000011111000000" <br />bitmap$(14) = "0000071111100000" + "0000011111700000" <br />bitmap$(15) = "0000071111100000" + "0000011111700000" <br />bitmap$(16) = "0000071111300000" + "0000031111700000" <br />bitmap$(17) = "0000028118200000" + "0000028118200000" <br />bitmap$(18) = "0000022662200000" + "0000022662200000" <br />bitmap$(19) = "0000022662200000" + "0000022662200000" <br />bitmap$(20) = "0000022222000000" + "0000002222200000" <br />bitmap$(21) = "0000922222000000" + "0000002222290000" <br />bitmap$(22) = "0000222222000000" + "0000002222220000" <br />bitmap$(23) = "0000922222000000" + "0000002222290000" <br />bitmap$(24) = "0000022222000000" + "0000002222200000" <br />bitmap$(25) = "0000022222300000" + "0000032222200000" <br />bitmap$(26) = "0000002222300000" + "0000032222000000" <br />bitmap$(27) = "0000000222330000" + "0000332220000000" <br />bitmap$(28) = "0000000222033000" + "0003300222000000" <br />bitmap$(29) = "0000000222000000" + "0000000222000000" <br />bitmap$(30) = "0000000222000000" + "0000000222000000" <br />bitmap$(31) = "0000033330000000" + "0000000033330000" <br /> <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 31 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 32, yd + 88) <br /> NEXT xd <br />NEXT yd <br /> <br />REM ************************ ruch poziomy FAZA 3 <br /> <br />bitmap$(0) = "0000003333000000" + "0000003333000000" <br />bitmap$(1) = "0000033333300000" + "0000033333300000" <br />bitmap$(2) = "0000066633300000" + "0000033366600000" <br />bitmap$(3) = "0000063663300000" + "0000033663600000" <br />bitmap$(4) = "0000866663300000" + "0000033666680000" <br />bitmap$(5) = "0000066666300000" + "0000036666600000" <br />bitmap$(6) = "0000006666000000" + "0000006666000000" <br />bitmap$(7) = "0000000661000000" + "0000001660000000" <br />bitmap$(8) = "0000000711700000" + "0000071170000000" <br />bitmap$(9) = "0000007111100000" + "0000011117000000" <br /> <br />bitmap$(10) = "0000071111100000" + "0000111117000000" <br />bitmap$(11) = "0000011111170000" + "0000111111700000" <br />bitmap$(12) = "0000711111110000" + "0000111111170000" <br />bitmap$(13) = "0000711111110000" + "0000111111170000" <br />bitmap$(14) = "0000711111110000" + "0000111111170000" <br />bitmap$(15) = "0000111111110000" + "0000111111110000" <br />bitmap$(16) = "0000111333310000" + "0000133331110000" <br />bitmap$(17) = "0000066222260000" + "0000622226600000" <br />bitmap$(18) = "0000006222260000" + "0000622226000000" <br />bitmap$(19) = "0000002222200000" + "0000022222000000" <br />bitmap$(20) = "0000002222200000" + "0000022222000000" <br />bitmap$(21) = "0000022222200000" + "0000022222200000" <br />bitmap$(22) = "0000022222200000" + "0000022222200000" <br />bitmap$(23) = "0000922222200000" + "0000022222290000" <br />bitmap$(24) = "0000222022200000" + "0000022202220000" <br />bitmap$(25) = "0000222022200000" + "0000022202220000" <br />bitmap$(26) = "0000222092290000" + "0000922902220000" <br />bitmap$(27) = "0000222002220000" + "0000222002220000" <br />bitmap$(28) = "0000222002220000" + "0000222002220000" <br />bitmap$(29) = "0003333002220000" + "0000222003333000" <br />bitmap$(30) = "0000000000222000" + "0002220000000000" <br />bitmap$(31) = "0000000033330000" + "0000333300000000" <br /> <br /> <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 31 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 64, yd + 88) <br /> NEXT xd <br />NEXT yd <br /> <br />REM ************************ fazy ruchu pionowego <br /> <br />REM Ludzik idacy w dol lub w gore <br /> <br />bitmap$(0) = "0000003330000000" <br />bitmap$(1) = "0000033333000000" <br />bitmap$(2) = "0000336663300000" <br />bitmap$(3) = "0000363636300000" <br />bitmap$(4) = "0000366666300000" <br />bitmap$(5) = "000006C8C6000000" <br />bitmap$(6) = "0000006860000000" <br />bitmap$(7) = "0000001610000000" <br />bitmap$(8) = "0000711111700000" <br />bitmap$(9) = "0001111111110000" <br /> <br />bitmap$(10) = "0071111111117000" <br />bitmap$(11) = "0071111111117000" <br />bitmap$(12) = "0011711111711000" <br />bitmap$(13) = "0711711111711700" <br />bitmap$(14) = "0A1A7111117A1A00" <br />bitmap$(15) = "0117A11111A71100" <br />bitmap$(16) = "0117111111171100" <br />bitmap$(17) = "01104BBBBB401100" <br />bitmap$(18) = "0860922222906800" <br />bitmap$(19) = "0000922222900000" <br />bitmap$(20) = "0000929092900000" <br />bitmap$(21) = "0000929092900000" <br />bitmap$(22) = "0000929092900000" <br />bitmap$(23) = "0000929092900000" <br />bitmap$(24) = "0000929092900000" <br />bitmap$(25) = "0000929092900000" <br />bitmap$(26) = "0000929092900000" <br />bitmap$(27) = "0000929092900000" <br />bitmap$(28) = "0000929092900000" <br />bitmap$(29) = "0000929092900000" <br />bitmap$(30) = "0000333033300000" <br />bitmap$(31) = "0003330003330000" <br />FOR yd = 0 TO 31 <br />FOR xd = 0 TO 15 <br />znak$ = MID$(bitmap$(yd), xd + 1, 1) <br />kolor = VAL("&H" + znak$ + "F") <br />IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 96, yd + 88) <br /> NEXT xd <br />NEXT yd <br /> <br /> <br />REM zapis do pliku <br /> <br /> <br />DEF SEG = &HA000 <br />BSAVE "bitmap1.scr", 0, 50000 <br /> <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