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