Życie Wieczne

Piotr-246 · Gość

REM modul BSAVE do gry "Serca 2022"

SCREEN 13

DIM bitmap$(0 TO 39)
DIM k$(0 TO 255)

REM palety kolorow *********************************
REM max koloru=3F

FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i

REM kolory za ludzikiem

k$(0) = "00 00 00 00": REM rejestr zero- wolny
k$(1) = "01 0A 0A 0A": REM tlo plyta
k$(2) = "02 06 06 06": REM tlo fuga
k$(3) = "03 10 10 10": REM tlo krawedz
k$(4) = "04 00 2F 00": REM liscie
k$(5) = "05 3F 3F 3F"
k$(6) = "06 3F 3F 3F"
k$(7) = "07 28 0A 00": REM doniczka
k$(8) = "08 00 00 3F": REM niebo
k$(9) = "09 3F 3F 00": REM slonce
k$(10) = "0A 20 20 20": REM framuga zewnetrzna
k$(11) = "0B 18 18 18": REM wentylator obudowa
k$(12) = "0C 3F 3F 3F": REM wentylator faza 1
k$(13) = "0D 2F 2F 2F": REM wentylator faza 2
k$(14) = "0E 1F 1F 1F": REM wentylator faza 3
k$(15) = "0F 3F 3F 3F": REM napis startowy

REM bloki przezroczystosci
k$(16) = "10 3F 3F 3F"
k$(32) = "20 3F 3F 3F"

REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF)

k$(31) = "1F 28 00 00": REM sweter
k$(47) = "2F 05 12 2F": REM spodnie
k$(63) = "3F 17 17 17": REM wlosy i buty
k$(79) = "4F 10 10 10": REM pasek2
k$(95) = "5F 3F 2F 0F":
k$(111) = "6F 3F 2C 17": REM skora1
k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych
k$(143) = "8F 30 20 00": REM nos
k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych
k$(175) = "AF 20 00 00": REM sweter3
k$(191) = "BF 20 20 20": REM pasek
k$(207) = "CF 37 27 06": REM usta

REM bloczek

k$(224) = "E0 00 00 00": REM
k$(225) = "E1 04 04 04": REM
k$(226) = "E2 08 08 08": REM
k$(227) = "E3 0B 0B 0B": REM
k$(228) = "E4 10 10 10": REM
k$(229) = "E5 14 14 14": REM
k$(230) = "E6 18 18 18": REM
k$(231) = "E7 1B 1B 1B": REM
k$(232) = "E8 20 20 20": REM
k$(233) = "E9 24 2B 2B": REM
k$(234) = "EA 28 28 28": REM
k$(235) = "EB 2B 2B 2B": REM
k$(236) = "EC 30 30 30": REM
k$(237) = "ED 34 34 34": REM
k$(238) = "EE 38 38 38": REM
k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika

REM cegly male zlote

k$(242) = "F2 30 2C 10": REM
k$(243) = "F3 28 24 08": REM
k$(244) = "F4 2A 26 0A": REM
k$(245) = "F5 24 20 04": REM

REM cegly male ZIELONE

k$(246) = "F6 22 30 27": REM krawedz
k$(247) = "F7 09 14 0E": REM fuga
k$(248) = "F8 11 1f 17": REM cegla

REM cegly male niebieskie

k$(249) = "F9 22 27 30": REM krawedz
k$(250) = "FA 09 0E 14": REM fuga
k$(251) = "FB 11 17 1F": REM cegla

REM cegly male czerwone

k$(252) = "FC 30 27 27": REM krawedz
k$(253) = "FD 14 0E 0E": REM fuga
k$(254) = "FE 1F 17 17": REM cegla
k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika

FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2)
red$ = "&H" + MID$(k$(i), 4, 2)
gre$ = "&H" + MID$(k$(i), 7, 2)
blu$ = "&H" + MID$(k$(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 ****************************************

CLS

COLOR 15: LOCATE 10, 16: PRINT "SERCA 1.0"

REM animacja
REM 7,9 - rejestry przezroczyste

bitmap$(0) = "0000003333000000"
bitmap$(1) = "0000033333300000"
bitmap$(2) = "0000066663300000"
bitmap$(3) = "0000063663300000"
bitmap$(4) = "0000866666300000"
bitmap$(5) = "0000066666300000"
bitmap$(6) = "0000066666300000"
bitmap$(7) = "0000006666000000"
bitmap$(8) = "0000000661000000"
bitmap$(9) = "0000000711700000"

bitmap$(10) = "0000007111100000"
bitmap$(11) = "0000007111100000"
bitmap$(12) = "0000071111170000"
bitmap$(13) = "0000011111170000"
bitmap$(14) = "0000011111110000"
bitmap$(15) = "0000011111110000"
bitmap$(16) = "0000711111117000"
bitmap$(17) = "0000711111117000"
bitmap$(18) = "0000711111111000"
bitmap$(19) = "0000111111111000"
bitmap$(20) = "0001111333311000"
bitmap$(21) = "0006602222206600"
bitmap$(22) = "0006002222200600"
bitmap$(23) = "0000092222200000"
bitmap$(24) = "0000022222290000"
bitmap$(25) = "0000022222290000"
bitmap$(26) = "0000022222220000"
bitmap$(27) = "0000022202220000"
bitmap$(28) = "0000022202220000"
bitmap$(29) = "0000022202220000"
bitmap$(30) = "0000922202220000"
bitmap$(31) = "0000222202222000"
bitmap$(32) = "0000222009222000"
bitmap$(33) = "0000222000222000"
bitmap$(34) = "0000222000222000"
bitmap$(35) = "0000222000222000"
bitmap$(36) = "0009222000222300"
bitmap$(37) = "0002220000033300"
bitmap$(38) = "0003330000330000"
bitmap$(39) = "0033330000000000"

FOR yd = 0 TO 39
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, yd + 88): PSET (31 - xd, yd + 88)
IF znak$ = "7" THEN COLOR 16: PSET (xd, yd + 88): PSET (31 - xd, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd, yd + 88): PSET (31 - xd, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd, yd + 88): PSET (31 - xd, yd + 88)

NEXT xd
NEXT yd

REM ************************************ FAZA 2

bitmap$(0) = "0000003333000000"
bitmap$(1) = "0000033333300000"
bitmap$(2) = "0000066633300000"
bitmap$(3) = "0000063663300000"
bitmap$(4) = "0000866663300000"
bitmap$(5) = "0000066666300000"
bitmap$(6) = "0000066666300000"
bitmap$(7) = "0000006666000000"
bitmap$(8) = "0000000661000000"
bitmap$(9) = "0000000711700000"

bitmap$(10) = "0000007111100000"
bitmap$(11) = "0000001111100000"
bitmap$(12) = "0000001111100000"
bitmap$(13) = "0000001111100000"
bitmap$(14) = "0000001111100000"
bitmap$(15) = "0000001111100000"
bitmap$(16) = "0000001111100000"
bitmap$(17) = "0000071111100000"
bitmap$(18) = "0000071111100000"
bitmap$(19) = "0000071111100000"
bitmap$(20) = "0000071111300000"
bitmap$(21) = "0000028118200000"
bitmap$(22) = "0000022662200000"
bitmap$(23) = "0000022662200000"
bitmap$(24) = "0000022222000000"
bitmap$(25) = "0000022222000000"
bitmap$(26) = "0000022222000000"
bitmap$(27) = "0000922222000000"
bitmap$(28) = "0000222222000000"
bitmap$(29) = "0000222222000000"
bitmap$(30) = "0000922222000000"
bitmap$(31) = "0000022222000000"
bitmap$(32) = "0000022222000000"
bitmap$(33) = "0000022222300000"
bitmap$(34) = "0000002222300000"
bitmap$(35) = "0000000222330000"
bitmap$(36) = "0000000222033000"
bitmap$(37) = "0000000222000000"
bitmap$(38) = "0000000222000000"
bitmap$(39) = "0000033330000000"

FOR yd = 0 TO 39
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 + 32, yd + 88): PSET (63 - xd, yd + 88)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88)
IF znak$ = "9" THEN COLOR 32: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88)

NEXT xd
NEXT yd

REM ************************ ruch poziomy FAZA 3

bitmap$(0) = "0000003333000000"
bitmap$(1) = "0000033333300000"
bitmap$(2) = "0000066633300000"
bitmap$(3) = "0000063663300000"
bitmap$(4) = "0000866663300000"
bitmap$(5) = "0000066666300000"
bitmap$(6) = "0000066666300000"
bitmap$(7) = "0000006666000000"
bitmap$(8) = "0000000661000000"
bitmap$(9) = "0000000711700000"

bitmap$(10) = "0000007111100000"
bitmap$(11) = "0000007111100000"
bitmap$(12) = "0000071111100000"
bitmap$(13) = "0000011111170000"
bitmap$(14) = "0000011111170000"
bitmap$(15) = "0000711111110000"
bitmap$(16) = "0000711111110000"
bitmap$(17) = "0000711111110000"
bitmap$(18) = "0000711111110000"
bitmap$(19) = "0000111111110000"
bitmap$(20) = "0000111333310000"
bitmap$(21) = "0000066222260000"
bitmap$(22) = "0000006222260000"
bitmap$(23) = "0000002222200000"
bitmap$(24) = "0000002222200000"
bitmap$(25) = "0000002222200000"

bitmap$(26) = "0000022222200000"
bitmap$(27) = "0000022222200000"
bitmap$(28) = "0000022222200000"
bitmap$(29) = "0000922222200000"
bitmap$(30) = "0000222022200000"
bitmap$(31) = "0000222022200000"
bitmap$(32) = "0000222022200000"
bitmap$(33) = "0000222092290000"
bitmap$(34) = "0000222002220000"
bitmap$(35) = "0000222002220000"
bitmap$(36) = "0000222002220000"
bitmap$(37) = "0003333002220000"
bitmap$(38) = "0000000000222000"
bitmap$(39) = "0000000033330000"

FOR yd = 0 TO 39
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 + 64, yd + 88): PSET (95 - xd, yd + 88)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 64, yd + 88): PSET (95 - xd, 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) = "0000366666300000"
bitmap$(6) = "000006C8C6000000"
bitmap$(7) = "0000006860000000"
bitmap$(8) = "0000001610000000"
bitmap$(9) = "0000711111700000"

bitmap$(10) = "0000711111700000"
bitmap$(11) = "0001111111110000"
bitmap$(12) = "0071111111117000"
bitmap$(13) = "0071111111117000"
bitmap$(14) = "0011711111711000"
bitmap$(15) = "0011711111711000"
bitmap$(16) = "0711711111711700"
bitmap$(17) = "0A11711111711A00"
bitmap$(18) = "0117A11111A71100"
bitmap$(19) = "0117111111171100"
bitmap$(20) = "01104BBBBB401100"
bitmap$(21) = "0860922222906800"
bitmap$(22) = "0000922222900000"
bitmap$(23) = "0000922222900000"
bitmap$(24) = "0000922222900000"
bitmap$(25) = "0000929092900000"
bitmap$(26) = "0000929092900000"
bitmap$(27) = "0000929092900000"
bitmap$(28) = "0000929092900000"
bitmap$(29) = "0000929092900000"
bitmap$(30) = "0000929092900000"
bitmap$(31) = "0000929092900000"
bitmap$(32) = "0000929092900000"
bitmap$(33) = "0000929092900000"
bitmap$(34) = "0000929092900000"
bitmap$(35) = "0000929092900000"
bitmap$(36) = "0000929092900000"
bitmap$(37) = "0000929092900000"
bitmap$(38) = "0000333033300000"
bitmap$(39) = "0003330003330000"

FOR yd = 0 TO 39
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)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88)

NEXT xd
NEXT yd

END

REM zapis do pliku

DEF SEG = &HA000
BSAVE "bitmap1.scr", 0, 57000
COLOR 15: LOCATE 23, 1
INPUT a$
CLS

BLOAD "bitmap1.scr"

END

Piotr-246 · Gość

rem (kontur) postaci

REM modul BSAVE do gry "Serca 2022"

SCREEN 13

DIM bitmap$(0 TO 39)
DIM k$(0 TO 255)

REM palety kolorow *********************************
REM max koloru=3F

FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i

REM kolory za ludzikiem

k$(0) = "00 00 00 00": REM rejestr zero- wolny
k$(1) = "01 0A 0A 0A": REM tlo plyta
k$(2) = "02 06 06 06": REM tlo fuga
k$(3) = "03 10 10 10": REM tlo krawedz
k$(4) = "04 00 2F 00": REM liscie
k$(5) = "05 3F 3F 3F"
k$(6) = "06 3F 3F 3F"
k$(7) = "07 28 0A 00": REM doniczka
k$(8) = "08 00 00 3F": REM niebo
k$(9) = "09 3F 3F 00": REM slonce
k$(10) = "0A 20 20 20": REM framuga zewnetrzna
k$(11) = "0B 18 18 18": REM wentylator obudowa
k$(12) = "0C 3F 3F 3F": REM wentylator faza 1
k$(13) = "0D 2F 2F 2F": REM wentylator faza 2
k$(14) = "0E 1F 1F 1F": REM wentylator faza 3
k$(15) = "0F 3F 3F 3F": REM napis startowy

REM bloki przezroczystosci
k$(16) = "10 3F 3F 3F"
k$(32) = "20 3F 3F 3F"

REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF)

k$(31) = "1F 28 00 00": REM sweter
k$(47) = "2F 05 12 2F": REM spodnie
k$(63) = "3F 17 17 17": REM wlosy i buty
k$(79) = "4F 10 10 10": REM pasek2
k$(95) = "5F 3F 2F 0F":
k$(111) = "6F 3F 2C 17": REM skora1
k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych
k$(143) = "8F 30 20 00": REM nos
k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych
k$(175) = "AF 20 00 00": REM sweter3
k$(191) = "BF 20 20 20": REM pasek
k$(207) = "CF 37 27 06": REM usta

REM bloczek

k$(224) = "E0 00 00 00": REM
k$(225) = "E1 04 04 04": REM
k$(226) = "E2 08 08 08": REM
k$(227) = "E3 0B 0B 0B": REM
k$(228) = "E4 10 10 10": REM
k$(229) = "E5 14 14 14": REM
k$(230) = "E6 18 18 18": REM
k$(231) = "E7 1B 1B 1B": REM
k$(232) = "E8 20 20 20": REM
k$(233) = "E9 24 2B 2B": REM
k$(234) = "EA 28 28 28": REM
k$(235) = "EB 2B 2B 2B": REM
k$(236) = "EC 30 30 30": REM
k$(237) = "ED 34 34 34": REM
k$(238) = "EE 38 38 38": REM
k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika

REM cegly male zlote

k$(242) = "F2 30 2C 10": REM
k$(243) = "F3 28 24 08": REM
k$(244) = "F4 2A 26 0A": REM
k$(245) = "F5 24 20 04": REM

REM cegly male ZIELONE

k$(246) = "F6 22 30 27": REM krawedz
k$(247) = "F7 09 14 0E": REM fuga
k$(248) = "F8 11 1f 17": REM cegla

REM cegly male niebieskie

k$(249) = "F9 22 27 30": REM krawedz
k$(250) = "FA 09 0E 14": REM fuga
k$(251) = "FB 11 17 1F": REM cegla

REM cegly male czerwone

k$(252) = "FC 30 27 27": REM krawedz
k$(253) = "FD 14 0E 0E": REM fuga
k$(254) = "FE 1F 17 17": REM cegla
k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika

FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2)
red$ = "&H" + MID$(k$(i), 4, 2)
gre$ = "&H" + MID$(k$(i), 7, 2)
blu$ = "&H" + MID$(k$(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 ****************************************

CLS

COLOR 15: LOCATE 10, 16: PRINT "SERCA 1.0"

REM animacja
REM 7,9 - rejestry przezroczyste

bitmap$(0) = "000000FFFF000000"
bitmap$(1) = "00000F3333F00000"
bitmap$(2) = "00000FFF33F00000"
bitmap$(3) = "00000F36F3F00000"
bitmap$(4) = "0000F6666FF00000"
bitmap$(5) = "00000F6666F00000"
bitmap$(6) = "00000F6666F00000"
bitmap$(7) = "000000F66F000000"
bitmap$(8) = "0000000FFF000000"
bitmap$(9) = "0000000F11F00000"

bitmap$(10) = "000000F111F00000"
bitmap$(11) = "000000F111F00000"
bitmap$(12) = "000000F111FF0000"
bitmap$(13) = "00000F111F1F0000"
bitmap$(14) = "00000F111F1F0000"
bitmap$(15) = "00000F11F11F0000"
bitmap$(16) = "00000F11F11F0000"
bitmap$(17) = "0000F111F1F1F000"
bitmap$(18) = "0000F11F11F1F000"
bitmap$(19) = "000F11F111F1F000"
bitmap$(20) = "000F1FFFFFFFF000"
bitmap$(21) = "000FF0F222F0FF00"
bitmap$(22) = "000F00F222F00F00"
bitmap$(23) = "00000F2222F00000"
bitmap$(24) = "00000F222FFF0000"
bitmap$(25) = "00000F22F22F0000"
bitmap$(26) = "00000F22F22F0000"
bitmap$(27) = "00000F2F0F2F0000"
bitmap$(28) = "00000F2F0F2F0000"
bitmap$(29) = "0000F22F0F2F0000"
bitmap$(30) = "0000F22F0F2F0000"
bitmap$(31) = "0000F2F00F22F000"
bitmap$(32) = "0000F2F00F22F000"
bitmap$(33) = "0000F2F000F2F000"
bitmap$(34) = "0000F2F000F2F000"
bitmap$(35) = "0000F2F000F2F000"
bitmap$(36) = "000F22F000F22F00"
bitmap$(37) = "000F2F00000FFF00"
bitmap$(38) = "000FFF0000FF0000"
bitmap$(39) = "00FFFF0000000000"

FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)
REM kolor = VAL("&H" + znak$ + "F")
REM IF znak$ <> "0" THEN COLOR kolor: PSET (xd, yd + 88): PSET (31 - xd, yd + 88)
REM IF znak$ = "7" THEN COLOR 16: PSET (xd, yd + 88): PSET (31 - xd, yd + 88)
REM IF znak$ = "A" THEN COLOR 16: PSET (xd, yd + 88): PSET (31 - xd, yd + 88)

IF znak$ = "F" THEN COLOR 32: PSET (xd, yd + 88): PSET (31 - xd, yd + 88)

NEXT xd
NEXT yd

REM ************************************ FAZA 2

bitmap$(0) = "0000003333000000"
bitmap$(1) = "0000033333300000"
bitmap$(2) = "0000066633300000"
bitmap$(3) = "0000063663300000"
bitmap$(4) = "0000866663300000"
bitmap$(5) = "0000066666300000"
bitmap$(6) = "0000066666300000"
bitmap$(7) = "0000006666000000"
bitmap$(8) = "0000000661000000"
bitmap$(9) = "0000000711700000"

bitmap$(10) = "0000007111100000"
bitmap$(11) = "0000001111100000"
bitmap$(12) = "0000001111100000"
bitmap$(13) = "0000001111100000"
bitmap$(14) = "0000001111100000"
bitmap$(15) = "0000001111100000"
bitmap$(16) = "0000001111100000"
bitmap$(17) = "0000071111100000"
bitmap$(18) = "0000071111100000"
bitmap$(19) = "0000071111100000"
bitmap$(20) = "0000071111300000"
bitmap$(21) = "0000028118200000"
bitmap$(22) = "0000022662200000"
bitmap$(23) = "0000022662200000"
bitmap$(24) = "0000022222000000"
bitmap$(25) = "0000022222000000"
bitmap$(26) = "0000022222000000"
bitmap$(27) = "0000922222000000"
bitmap$(28) = "0000222222000000"
bitmap$(29) = "0000222222000000"
bitmap$(30) = "0000922222000000"
bitmap$(31) = "0000022222000000"
bitmap$(32) = "0000022222000000"
bitmap$(33) = "0000022222300000"
bitmap$(34) = "0000002222300000"
bitmap$(35) = "0000000222330000"
bitmap$(36) = "0000000222033000"
bitmap$(37) = "0000000222000000"
bitmap$(38) = "0000000222000000"
bitmap$(39) = "0000033330000000"

FOR yd = 0 TO 39
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 + 32, yd + 88): PSET (63 - xd, yd + 88)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88)
IF znak$ = "9" THEN COLOR 32: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88)

NEXT xd
NEXT yd

REM ************************ ruch poziomy FAZA 3

bitmap$(0) = "0000003333000000"
bitmap$(1) = "0000033333300000"
bitmap$(2) = "0000066633300000"
bitmap$(3) = "0000063663300000"
bitmap$(4) = "0000866663300000"
bitmap$(5) = "0000066666300000"
bitmap$(6) = "0000066666300000"
bitmap$(7) = "0000006666000000"
bitmap$(8) = "0000000661000000"
bitmap$(9) = "0000000711700000"

bitmap$(10) = "0000007111100000"
bitmap$(11) = "0000007111100000"
bitmap$(12) = "0000071111100000"
bitmap$(13) = "0000011111170000"
bitmap$(14) = "0000011111170000"
bitmap$(15) = "0000711111110000"
bitmap$(16) = "0000711111110000"
bitmap$(17) = "0000711111110000"
bitmap$(18) = "0000711111110000"
bitmap$(19) = "0000111111110000"
bitmap$(20) = "0000111333310000"
bitmap$(21) = "0000066222260000"
bitmap$(22) = "0000006222260000"
bitmap$(23) = "0000002222200000"
bitmap$(24) = "0000002222200000"
bitmap$(25) = "0000002222200000"

bitmap$(26) = "0000022222200000"
bitmap$(27) = "0000022222200000"
bitmap$(28) = "0000022222200000"
bitmap$(29) = "0000922222200000"
bitmap$(30) = "0000222022200000"
bitmap$(31) = "0000222022200000"
bitmap$(32) = "0000222022200000"
bitmap$(33) = "0000222092290000"
bitmap$(34) = "0000222002220000"
bitmap$(35) = "0000222002220000"
bitmap$(36) = "0000222002220000"
bitmap$(37) = "0003333002220000"
bitmap$(38) = "0000000000222000"
bitmap$(39) = "0000000033330000"

FOR yd = 0 TO 39
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 + 64, yd + 88): PSET (95 - xd, yd + 88)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 64, yd + 88): PSET (95 - xd, 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) = "0000366666300000"
bitmap$(6) = "000006C8C6000000"
bitmap$(7) = "0000006860000000"
bitmap$(8) = "0000001610000000"
bitmap$(9) = "0000711111700000"

bitmap$(10) = "0000711111700000"
bitmap$(11) = "0001111111110000"
bitmap$(12) = "0071111111117000"
bitmap$(13) = "0071111111117000"
bitmap$(14) = "0011711111711000"
bitmap$(15) = "0011711111711000"
bitmap$(16) = "0711711111711700"
bitmap$(17) = "0A11711111711A00"
bitmap$(18) = "0117A11111A71100"
bitmap$(19) = "0117111111171100"
bitmap$(20) = "01104BBBBB401100"
bitmap$(21) = "0860922222906800"
bitmap$(22) = "0000922222900000"
bitmap$(23) = "0000922222900000"
bitmap$(24) = "0000922222900000"
bitmap$(25) = "0000929092900000"
bitmap$(26) = "0000929092900000"
bitmap$(27) = "0000929092900000"
bitmap$(28) = "0000929092900000"
bitmap$(29) = "0000929092900000"
bitmap$(30) = "0000929092900000"
bitmap$(31) = "0000929092900000"
bitmap$(32) = "0000929092900000"
bitmap$(33) = "0000929092900000"
bitmap$(34) = "0000929092900000"
bitmap$(35) = "0000929092900000"
bitmap$(36) = "0000929092900000"
bitmap$(37) = "0000929092900000"
bitmap$(38) = "0000333033300000"
bitmap$(39) = "0003330003330000"

FOR yd = 0 TO 39
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)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88)

NEXT xd
NEXT yd

END

REM zapis do pliku

DEF SEG = &HA000
BSAVE "bitmap1.scr", 0, 57000
COLOR 15: LOCATE 23, 1
INPUT a$
CLS

BLOAD "bitmap1.scr"

END

Piotr-246 · Gość

REM modul BSAVE do gry "Serca 2022"

SCREEN 13

DIM bitmap$(0 TO 39)
DIM k$(0 TO 255)

REM palety kolorow *********************************
REM max koloru=3F

FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i

REM kolory za ludzikiem

k$(0) = "00 00 00 00": REM rejestr zero- wolny
k$(1) = "01 0A 0A 0A": REM tlo plyta
k$(2) = "02 06 06 06": REM tlo fuga
k$(3) = "03 10 10 10": REM tlo krawedz
k$(4) = "04 00 2F 00": REM liscie
k$(5) = "05 3F 3F 3F"
k$(6) = "06 3F 3F 3F"
k$(7) = "07 28 0A 00": REM doniczka
k$(8) = "08 00 00 3F": REM niebo
k$(9) = "09 3F 3F 00": REM slonce
k$(10) = "0A 20 20 20": REM framuga zewnetrzna
k$(11) = "0B 18 18 18": REM wentylator obudowa
k$(12) = "0C 3F 3F 3F": REM wentylator faza 1
k$(13) = "0D 2F 2F 2F": REM wentylator faza 2
k$(14) = "0E 1F 1F 1F": REM wentylator faza 3
k$(15) = "0F 3F 3F 3F": REM napis startowy

REM bloki przezroczystosci
k$(16) = "10 3F 3F 3F"
k$(32) = "20 3F 3F 3F"

REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF)

k$(31) = "1F 28 00 00": REM sweter
k$(47) = "2F 05 12 2F": REM spodnie
k$(63) = "3F 17 17 17": REM wlosy i buty
k$(79) = "4F 10 10 10": REM pasek2
k$(95) = "5F 3F 2F 0F":
k$(111) = "6F 3F 2C 17": REM skora1
k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych
k$(143) = "8F 30 20 00": REM nos
k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych
k$(175) = "AF 20 00 00": REM sweter3
k$(191) = "BF 20 20 20": REM pasek
k$(207) = "CF 37 27 06": REM usta

REM bloczek

k$(224) = "E0 00 00 00": REM
k$(225) = "E1 04 04 04": REM
k$(226) = "E2 08 08 08": REM
k$(227) = "E3 0B 0B 0B": REM
k$(228) = "E4 10 10 10": REM
k$(229) = "E5 14 14 14": REM
k$(230) = "E6 18 18 18": REM
k$(231) = "E7 1B 1B 1B": REM
k$(232) = "E8 20 20 20": REM
k$(233) = "E9 24 2B 2B": REM
k$(234) = "EA 28 28 28": REM
k$(235) = "EB 2B 2B 2B": REM
k$(236) = "EC 30 30 30": REM
k$(237) = "ED 34 34 34": REM
k$(238) = "EE 38 38 38": REM
k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika

REM cegly male zlote

k$(242) = "F2 30 2C 10": REM
k$(243) = "F3 28 24 08": REM
k$(244) = "F4 2A 26 0A": REM
k$(245) = "F5 24 20 04": REM

REM cegly male ZIELONE

k$(246) = "F6 22 30 27": REM krawedz
k$(247) = "F7 09 14 0E": REM fuga
k$(248) = "F8 11 1f 17": REM cegla

REM cegly male niebieskie

k$(249) = "F9 22 27 30": REM krawedz
k$(250) = "FA 09 0E 14": REM fuga
k$(251) = "FB 11 17 1F": REM cegla

REM cegly male czerwone

k$(252) = "FC 30 27 27": REM krawedz
k$(253) = "FD 14 0E 0E": REM fuga
k$(254) = "FE 1F 17 17": REM cegla
k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika

FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2)
red$ = "&H" + MID$(k$(i), 4, 2)
gre$ = "&H" + MID$(k$(i), 7, 2)
blu$ = "&H" + MID$(k$(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 ****************************************

CLS

COLOR 15: LOCATE 10, 16: PRINT "SERCA 1.0"

REM animacja
REM 7,9 - rejestry przezroczyste

bitmap$(0) = "000000FFFF000000"
bitmap$(1) = "00000F3333F00000"
bitmap$(2) = "00000FFF33F00000"
bitmap$(3) = "00000F36F3F00000"
bitmap$(4) = "0000F6666FF00000"
bitmap$(5) = "00000F6666F00000"
bitmap$(6) = "00000F6666F00000"
bitmap$(7) = "000000F66F000000"
bitmap$(8) = "0000000FFF000000"
bitmap$(9) = "0000000F11F00000"

bitmap$(10) = "000000F111F00000"
bitmap$(11) = "000000F111F00000"
bitmap$(12) = "000000F111FF0000"
bitmap$(13) = "00000F111F1F0000"
bitmap$(14) = "00000F111F1F0000"
bitmap$(15) = "00000F11F11F0000"
bitmap$(16) = "00000F11F11F0000"
bitmap$(17) = "0000F111F1F1F000"
bitmap$(18) = "0000F11F11F1F000"
bitmap$(19) = "000F11F111F1F000"
bitmap$(20) = "000F1FFFFFFFF000"
bitmap$(21) = "000FF0F222F0FF00"
bitmap$(22) = "000F00F222F00F00"
bitmap$(23) = "00000F2222F00000"
bitmap$(24) = "00000F222FFF0000"
bitmap$(25) = "00000F22F22F0000"
bitmap$(26) = "00000F22F22F0000"
bitmap$(27) = "00000F2F0F2F0000"
bitmap$(28) = "00000F2F0F2F0000"
bitmap$(29) = "0000F22F0F2F0000"
bitmap$(30) = "0000F22F0F2F0000"
bitmap$(31) = "0000F2F00F22F000"
bitmap$(32) = "0000F2F00F22F000"
bitmap$(33) = "0000F2F000F2F000"
bitmap$(34) = "0000F2F000F2F000"
bitmap$(35) = "0000F2F000F2F000"
bitmap$(36) = "000F22F000F22F00"
bitmap$(37) = "000F2F00000FFF00"
bitmap$(38) = "000FFF0000FF0000"
bitmap$(39) = "00FFFF0000000000"

FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd, yd + 88): PSET (31 - xd, yd + 88)

NEXT xd
NEXT yd

REM ************************************ FAZA 2

bitmap$(0) = "000000FFFF000000"
bitmap$(1) = "00000F3333F00000"
bitmap$(2) = "00000FFF33F00000"
bitmap$(3) = "00000F36F3F00000"
bitmap$(4) = "0000F6666FF00000"
bitmap$(5) = "00000F6666F00000"
bitmap$(6) = "00000F6666F00000"
bitmap$(7) = "000000F66F000000"
bitmap$(8) = "0000000FFF000000"
bitmap$(9) = "0000000F11F00000"

bitmap$(10) = "000000F111F00000"
bitmap$(11) = "000000F111F00000"
bitmap$(12) = "000000F111F00000"
bitmap$(13) = "000000F11FF00000"
bitmap$(14) = "000000F11FF00000"
bitmap$(15) = "000000F11FF00000"
bitmap$(16) = "000000F1F1F00000"
bitmap$(17) = "00000F11F1F00000"
bitmap$(18) = "00000F11F1F00000"
bitmap$(19) = "00000F11F1F00000"
bitmap$(20) = "00000F1F11F00000"
bitmap$(21) = "00000F8FFFF00000"
bitmap$(22) = "00000FFF22F00000"
bitmap$(23) = "00000FFF22F00000"
bitmap$(24) = "00000F222F000000"
bitmap$(25) = "00000F222F000000"
bitmap$(26) = "00000F222F000000"
bitmap$(27) = "0000F2F22F000000"
bitmap$(28) = "0000F2F22F000000"
bitmap$(29) = "0000F2F22F000000"
bitmap$(30) = "0000F2F22F000000"
bitmap$(31) = "00000FF22F000000"
bitmap$(32) = "00000FF22F000000"
bitmap$(33) = "000000F22FF00000"
bitmap$(34) = "000000F22FF00000"
bitmap$(35) = "0000000F2FFF0000"
bitmap$(36) = "0000000F2F0FF000"
bitmap$(37) = "0000000F2F000000"
bitmap$(38) = "0000000F2F000000"
bitmap$(39) = "00000FFFF0000000"

FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)
REM kolor = VAL("&H" + znak$ + "F")
REM IF znak$ <> "0" THEN COLOR kolor: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88)
REM IF znak$ = "7" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88)
REM IF znak$ = "A" THEN COLOR 16: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd + 88): PSET (63 - xd, yd + 88)

NEXT xd
NEXT yd

REM ************************ ruch poziomy FAZA 3

bitmap$(0) = "0000003333000000"
bitmap$(1) = "0000033333300000"
bitmap$(2) = "0000066633300000"
bitmap$(3) = "0000063663300000"
bitmap$(4) = "0000866663300000"
bitmap$(5) = "0000066666300000"
bitmap$(6) = "0000066666300000"
bitmap$(7) = "0000006666000000"
bitmap$(8) = "0000000661000000"
bitmap$(9) = "0000000711700000"

bitmap$(10) = "0000007111100000"
bitmap$(11) = "0000007111100000"
bitmap$(12) = "0000071111100000"
bitmap$(13) = "0000011111170000"
bitmap$(14) = "0000011111170000"
bitmap$(15) = "0000711111110000"
bitmap$(16) = "0000711111110000"
bitmap$(17) = "0000711111110000"
bitmap$(18) = "0000711111110000"
bitmap$(19) = "0000111111110000"
bitmap$(20) = "0000111333310000"
bitmap$(21) = "0000066222260000"
bitmap$(22) = "0000006222260000"
bitmap$(23) = "0000002222200000"
bitmap$(24) = "0000002222200000"
bitmap$(25) = "0000002222200000"

bitmap$(26) = "0000022222200000"
bitmap$(27) = "0000022222200000"
bitmap$(28) = "0000022222200000"
bitmap$(29) = "0000922222200000"
bitmap$(30) = "0000222022200000"
bitmap$(31) = "0000222022200000"
bitmap$(32) = "0000222022200000"
bitmap$(33) = "0000222092290000"
bitmap$(34) = "0000222002220000"
bitmap$(35) = "0000222002220000"
bitmap$(36) = "0000222002220000"
bitmap$(37) = "0003333002220000"
bitmap$(38) = "0000000000222000"
bitmap$(39) = "0000000033330000"

FOR yd = 0 TO 39
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 + 64, yd + 88): PSET (95 - xd, yd + 88)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 64, yd + 88): PSET (95 - xd, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 64, yd + 88): PSET (95 - xd, 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) = "0000366666300000"
bitmap$(6) = "000006C8C6000000"
bitmap$(7) = "0000006860000000"
bitmap$(8) = "0000001610000000"
bitmap$(9) = "0000711111700000"

bitmap$(10) = "0000711111700000"
bitmap$(11) = "0001111111110000"
bitmap$(12) = "0071111111117000"
bitmap$(13) = "0071111111117000"
bitmap$(14) = "0011711111711000"
bitmap$(15) = "0011711111711000"
bitmap$(16) = "0711711111711700"
bitmap$(17) = "0A11711111711A00"
bitmap$(18) = "0117A11111A71100"
bitmap$(19) = "0117111111171100"
bitmap$(20) = "01104BBBBB401100"
bitmap$(21) = "0860922222906800"
bitmap$(22) = "0000922222900000"
bitmap$(23) = "0000922222900000"
bitmap$(24) = "0000922222900000"
bitmap$(25) = "0000929092900000"
bitmap$(26) = "0000929092900000"
bitmap$(27) = "0000929092900000"
bitmap$(28) = "0000929092900000"
bitmap$(29) = "0000929092900000"
bitmap$(30) = "0000929092900000"
bitmap$(31) = "0000929092900000"
bitmap$(32) = "0000929092900000"
bitmap$(33) = "0000929092900000"
bitmap$(34) = "0000929092900000"
bitmap$(35) = "0000929092900000"
bitmap$(36) = "0000929092900000"
bitmap$(37) = "0000929092900000"
bitmap$(38) = "0000333033300000"
bitmap$(39) = "0003330003330000"

FOR yd = 0 TO 39
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)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88)

NEXT xd
NEXT yd

END

REM zapis do pliku

DEF SEG = &HA000
BSAVE "bitmap1.scr", 0, 57000
COLOR 15: LOCATE 23, 1
INPUT a$
CLS

BLOAD "bitmap1.scr"

END

Piotr-246 · Gość

REM modul BSAVE do gry "Serca 2022"

SCREEN 13

DIM bitmap$(0 TO 39)
DIM k$(0 TO 255)

REM palety kolorow *********************************
REM max koloru=3F

FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i

REM kolory za ludzikiem

k$(0) = "00 00 00 00": REM rejestr zero- wolny
k$(1) = "01 0A 0A 0A": REM tlo plyta
k$(2) = "02 06 06 06": REM tlo fuga
k$(3) = "03 10 10 10": REM tlo krawedz
k$(4) = "04 00 2F 00": REM liscie
k$(5) = "05 3F 3F 3F"
k$(6) = "06 3F 3F 3F"
k$(7) = "07 28 0A 00": REM doniczka
k$(8) = "08 00 00 3F": REM niebo
k$(9) = "09 3F 3F 00": REM slonce
k$(10) = "0A 20 20 20": REM framuga zewnetrzna
k$(11) = "0B 18 18 18": REM wentylator obudowa
k$(12) = "0C 3F 3F 3F": REM wentylator faza 1
k$(13) = "0D 2F 2F 2F": REM wentylator faza 2
k$(14) = "0E 1F 1F 1F": REM wentylator faza 3
k$(15) = "0F 3F 3F 3F": REM napis startowy

REM bloki przezroczystosci
k$(16) = "10 3F 3F 3F"
k$(32) = "20 3F 3F 3F"

REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF)

k$(31) = "1F 28 00 00": REM sweter
k$(47) = "2F 05 12 2F": REM spodnie
k$(63) = "3F 17 17 17": REM wlosy i buty
k$(79) = "4F 10 10 10": REM pasek2
k$(95) = "5F 3F 2F 0F":
k$(111) = "6F 3F 2C 17": REM skora1
k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych
k$(143) = "8F 30 20 00": REM nos
k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych
k$(175) = "AF 20 00 00": REM sweter3
k$(191) = "BF 20 20 20": REM pasek
k$(207) = "CF 37 27 06": REM usta

REM bloczek

k$(224) = "E0 00 00 00": REM
k$(225) = "E1 04 04 04": REM
k$(226) = "E2 08 08 08": REM
k$(227) = "E3 0B 0B 0B": REM
k$(228) = "E4 10 10 10": REM
k$(229) = "E5 14 14 14": REM
k$(230) = "E6 18 18 18": REM
k$(231) = "E7 1B 1B 1B": REM
k$(232) = "E8 20 20 20": REM
k$(233) = "E9 24 2B 2B": REM
k$(234) = "EA 28 28 28": REM
k$(235) = "EB 2B 2B 2B": REM
k$(236) = "EC 30 30 30": REM
k$(237) = "ED 34 34 34": REM
k$(238) = "EE 38 38 38": REM
k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika

REM cegly male zlote

k$(242) = "F2 30 2C 10": REM
k$(243) = "F3 28 24 08": REM
k$(244) = "F4 2A 26 0A": REM
k$(245) = "F5 24 20 04": REM

REM cegly male ZIELONE

k$(246) = "F6 22 30 27": REM krawedz
k$(247) = "F7 09 14 0E": REM fuga
k$(248) = "F8 11 1f 17": REM cegla

REM cegly male niebieskie

k$(249) = "F9 22 27 30": REM krawedz
k$(250) = "FA 09 0E 14": REM fuga
k$(251) = "FB 11 17 1F": REM cegla

REM cegly male czerwone

k$(252) = "FC 30 27 27": REM krawedz
k$(253) = "FD 14 0E 0E": REM fuga
k$(254) = "FE 1F 17 17": REM cegla
k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika

FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2)
red$ = "&H" + MID$(k$(i), 4, 2)
gre$ = "&H" + MID$(k$(i), 7, 2)
blu$ = "&H" + MID$(k$(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 ****************************************

CLS

COLOR 15: LOCATE 10, 16: PRINT "SERCA 1.0"

REM animacja
REM 7,9 - rejestry przezroczyste

bitmap$(0) = "000000FFFF000000"
bitmap$(1) = "00000F3333F00000"
bitmap$(2) = "00000FFF33F00000"
bitmap$(3) = "00000F36F3F00000"
bitmap$(4) = "0000F6666FF00000"
bitmap$(5) = "00000F6666F00000"
bitmap$(6) = "00000F6666F00000"
bitmap$(7) = "000000F66F000000"
bitmap$(8) = "0000000FFF000000"
bitmap$(9) = "0000000F11F00000"

bitmap$(10) = "000000F111F00000"
bitmap$(11) = "000000F111F00000"
bitmap$(12) = "000000F111FF0000"
bitmap$(13) = "00000F111F1F0000"
bitmap$(14) = "00000F111F1F0000"
bitmap$(15) = "00000F11F11F0000"
bitmap$(16) = "00000F11F11F0000"
bitmap$(17) = "0000F111F1F1F000"
bitmap$(18) = "0000F11F11F1F000"
bitmap$(19) = "000F11F111F1F000"
bitmap$(20) = "000F1FFFFFFFF000"
bitmap$(21) = "000FF0F222F0FF00"
bitmap$(22) = "000F00F222F00F00"
bitmap$(23) = "00000F2222F00000"
bitmap$(24) = "00000F222FFF0000"
bitmap$(25) = "00000F22F22F0000"
bitmap$(26) = "00000F22F22F0000"
bitmap$(27) = "00000F2F0F2F0000"
bitmap$(28) = "00000F2F0F2F0000"
bitmap$(29) = "0000F22F0F2F0000"
bitmap$(30) = "0000F22F0F2F0000"
bitmap$(31) = "0000F2F00F22F000"
bitmap$(32) = "0000F2F00F22F000"
bitmap$(33) = "0000F2F000F2F000"
bitmap$(34) = "0000F2F000F2F000"
bitmap$(35) = "0000F2F000F2F000"
bitmap$(36) = "000F22F000F22F00"
bitmap$(37) = "000F2F00000FFF00"
bitmap$(38) = "000FFF0000FF0000"
bitmap$(39) = "00FFFF0000000000"

FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 40)

NEXT xd
NEXT yd

REM ************************************ FAZA 2

bitmap$(0) = "000000FFFF000000"
bitmap$(1) = "00000F3333F00000"
bitmap$(2) = "00000FFF33F00000"
bitmap$(3) = "00000F36F3F00000"
bitmap$(4) = "0000F6666FF00000"
bitmap$(5) = "00000F6666F00000"
bitmap$(6) = "00000F6666F00000"
bitmap$(7) = "000000F66F000000"
bitmap$(8) = "0000000FFF000000"
bitmap$(9) = "0000000F11F00000"

bitmap$(10) = "000000F111F00000"
bitmap$(11) = "000000F111F00000"
bitmap$(12) = "000000F111F00000"
bitmap$(13) = "000000F11FF00000"
bitmap$(14) = "000000F11FF00000"
bitmap$(15) = "000000F11FF00000"
bitmap$(16) = "000000F1F1F00000"
bitmap$(17) = "00000F11F1F00000"
bitmap$(18) = "00000F11F1F00000"
bitmap$(19) = "00000F11F1F00000"
bitmap$(20) = "00000F1FFFF00000"
bitmap$(21) = "00000F8F22F00000"
bitmap$(22) = "00000FFF22F00000"
bitmap$(23) = "00000FFF22F00000"
bitmap$(24) = "00000F222F000000"
bitmap$(25) = "00000F222F000000"
bitmap$(26) = "00000F222F000000"
bitmap$(27) = "0000F2F22F000000"
bitmap$(28) = "0000F2F22F000000"
bitmap$(29) = "0000F2F22F000000"
bitmap$(30) = "0000F2F22F000000"
bitmap$(31) = "00000FF22F000000"
bitmap$(32) = "00000FF22F000000"
bitmap$(33) = "000000F22FF00000"
bitmap$(34) = "000000F22FF00000"
bitmap$(35) = "0000000F2FFF0000"
bitmap$(36) = "0000000F2F0FF000"
bitmap$(37) = "0000000F2F000000"
bitmap$(38) = "0000000F2F000000"
bitmap$(39) = "00000FFFF0000000"

FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 40)

NEXT xd
NEXT yd

REM ************************ ruch poziomy FAZA 3

bitmap$(0) = "000000FFFF000000"
bitmap$(1) = "00000F3333F00000"
bitmap$(2) = "00000FFF33F00000"
bitmap$(3) = "00000F36F3F00000"
bitmap$(4) = "0000F6666FF00000"
bitmap$(5) = "00000F6666F00000"
bitmap$(6) = "00000F6666F00000"
bitmap$(7) = "000000F66F000000"
bitmap$(8) = "0000000FFF000000"
bitmap$(9) = "0000000F11F00000"

bitmap$(10) = "000000F111F00000"
bitmap$(11) = "000000F111F00000"
bitmap$(12) = "00000FF111F00000"
bitmap$(13) = "00000FF111F00000"
bitmap$(14) = "00000FFF11F00000"
bitmap$(15) = "00000FFF111F0000"
bitmap$(16) = "00000FF1F11F0000"
bitmap$(17) = "0000F1F1F11F0000"
bitmap$(18) = "0000F1F1F11F0000"
bitmap$(19) = "0000F1F11F1F0000"
bitmap$(20) = "0000F1FFFF1F0000"
bitmap$(21) = "00000F622FFF0000"
bitmap$(22) = "000000F22FFF0000"
bitmap$(23) = "000000F222F00000"
bitmap$(24) = "000000F222F00000"
bitmap$(25) = "000000F222F00000"

bitmap$(26) = "00000FF222F00000"
bitmap$(27) = "00000FF222F00000"
bitmap$(28) = "00000F2F22F00000"
bitmap$(29) = "0000F22F22F00000"
bitmap$(30) = "0000F2F0F2F00000"
bitmap$(31) = "0000F2F0F2F00000"
bitmap$(32) = "0000F2F0F2F00000"
bitmap$(33) = "0000F2F0F22F0000"
bitmap$(34) = "0000F2F00F2F0000"
bitmap$(35) = "0000F2F00F2F0000"
bitmap$(36) = "0000F2F00F2F0000"
bitmap$(37) = "000FFFF00F2F0000"
bitmap$(38) = "0000000000F2F000"
bitmap$(39) = "00000000FFFF0000"

FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)
kolor = VAL("&H" + znak$ + "F")

IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 40)

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) = "0000366666300000"
bitmap$(6) = "000006C8C6000000"
bitmap$(7) = "0000006860000000"
bitmap$(8) = "0000001610000000"
bitmap$(9) = "0000711111700000"

bitmap$(10) = "0000711111700000"
bitmap$(11) = "0001111111110000"
bitmap$(12) = "0071111111117000"
bitmap$(13) = "0071111111117000"
bitmap$(14) = "0011711111711000"
bitmap$(15) = "0011711111711000"
bitmap$(16) = "0711711111711700"
bitmap$(17) = "0A11711111711A00"
bitmap$(18) = "0117A11111A71100"
bitmap$(19) = "0117111111171100"
bitmap$(20) = "01104BBBBB401100"
bitmap$(21) = "0860922222906800"
bitmap$(22) = "0000922222900000"
bitmap$(23) = "0000922222900000"
bitmap$(24) = "0000922222900000"
bitmap$(25) = "0000929092900000"
bitmap$(26) = "0000929092900000"
bitmap$(27) = "0000929092900000"
bitmap$(28) = "0000929092900000"
bitmap$(29) = "0000929092900000"
bitmap$(30) = "0000929092900000"
bitmap$(31) = "0000929092900000"
bitmap$(32) = "0000929092900000"
bitmap$(33) = "0000929092900000"
bitmap$(34) = "0000929092900000"
bitmap$(35) = "0000929092900000"
bitmap$(36) = "0000929092900000"
bitmap$(37) = "0000929092900000"
bitmap$(38) = "0000333033300000"
bitmap$(39) = "0003330003330000"

FOR yd = 0 TO 39
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)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88)

NEXT xd
NEXT yd

END

REM zapis do pliku

DEF SEG = &HA000
BSAVE "bitmap1.scr", 0, 57000
COLOR 15: LOCATE 23, 1
INPUT a$
CLS

BLOAD "bitmap1.scr"

END

Piotr-246 · Gość

REM modul BSAVE do gry "Serca 2022"

SCREEN 13

DIM bitmap$(0 TO 39)
DIM k$(0 TO 255)

REM palety kolorow *********************************
REM max koloru=3F

FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i

REM kolory za ludzikiem

k$(0) = "00 00 00 00": REM rejestr zero- wolny
k$(1) = "01 0A 0A 0A": REM tlo plyta
k$(2) = "02 06 06 06": REM tlo fuga
k$(3) = "03 10 10 10": REM tlo krawedz
k$(4) = "04 00 2F 00": REM liscie
k$(5) = "05 3F 3F 3F"
k$(6) = "06 3F 3F 3F"
k$(7) = "07 28 0A 00": REM doniczka
k$(8) = "08 00 00 3F": REM niebo
k$(9) = "09 3F 3F 00": REM slonce
k$(10) = "0A 20 20 20": REM framuga zewnetrzna
k$(11) = "0B 18 18 18": REM wentylator obudowa
k$(12) = "0C 3F 3F 3F": REM wentylator faza 1
k$(13) = "0D 2F 2F 2F": REM wentylator faza 2
k$(14) = "0E 1F 1F 1F": REM wentylator faza 3
k$(15) = "0F 3F 3F 3F": REM napis startowy

REM bloki przezroczystosci
k$(16) = "10 3F 3F 3F"
k$(32) = "20 3F 3F 3F"

REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF)

k$(31) = "1F 28 00 00": REM sweter
k$(47) = "2F 05 12 2F": REM spodnie
k$(63) = "3F 17 17 17": REM wlosy i buty
k$(79) = "4F 10 10 10": REM pasek2
k$(95) = "5F 3F 2F 0F":
k$(111) = "6F 3F 2C 17": REM skora1
k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych
k$(143) = "8F 30 20 00": REM nos
k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych
k$(175) = "AF 20 00 00": REM sweter3
k$(191) = "BF 20 20 20": REM pasek
k$(207) = "CF 37 27 06": REM usta

REM bloczek

k$(224) = "E0 00 00 00": REM
k$(225) = "E1 04 04 04": REM
k$(226) = "E2 08 08 08": REM
k$(227) = "E3 0B 0B 0B": REM
k$(228) = "E4 10 10 10": REM
k$(229) = "E5 14 14 14": REM
k$(230) = "E6 18 18 18": REM
k$(231) = "E7 1B 1B 1B": REM
k$(232) = "E8 20 20 20": REM
k$(233) = "E9 24 2B 2B": REM
k$(234) = "EA 28 28 28": REM
k$(235) = "EB 2B 2B 2B": REM
k$(236) = "EC 30 30 30": REM
k$(237) = "ED 34 34 34": REM
k$(238) = "EE 38 38 38": REM
k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika

REM cegly male zlote

k$(242) = "F2 30 2C 10": REM
k$(243) = "F3 28 24 08": REM
k$(244) = "F4 2A 26 0A": REM
k$(245) = "F5 24 20 04": REM

REM cegly male ZIELONE

k$(246) = "F6 22 30 27": REM krawedz
k$(247) = "F7 09 14 0E": REM fuga
k$(248) = "F8 11 1f 17": REM cegla

REM cegly male niebieskie

k$(249) = "F9 22 27 30": REM krawedz
k$(250) = "FA 09 0E 14": REM fuga
k$(251) = "FB 11 17 1F": REM cegla

REM cegly male czerwone

k$(252) = "FC 30 27 27": REM krawedz
k$(253) = "FD 14 0E 0E": REM fuga
k$(254) = "FE 1F 17 17": REM cegla
k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika

FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2)
red$ = "&H" + MID$(k$(i), 4, 2)
gre$ = "&H" + MID$(k$(i), 7, 2)
blu$ = "&H" + MID$(k$(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 ****************************************

petla:

REM animacja
REM 7,9 - rejestry przezroczyste

bitmap$(0) = "000000FFFF000000"
bitmap$(1) = "00000F3333F00000"
bitmap$(2) = "00000FFF33F00000"
bitmap$(3) = "00000F36F3F00000"
bitmap$(4) = "0000F6666FF00000"
bitmap$(5) = "00000F6666F00000"
bitmap$(6) = "00000F6666F00000"
bitmap$(7) = "000000F66F000000"
bitmap$(8) = "0000000FFF000000"
bitmap$(9) = "0000000F11F00000"

bitmap$(10) = "000000F111F00000"
bitmap$(11) = "000000F111F00000"
bitmap$(12) = "000000F111FF0000"
bitmap$(13) = "00000F111F1F0000"
bitmap$(14) = "00000F111F1F0000"
bitmap$(15) = "00000F11F11F0000"
bitmap$(16) = "00000F11F11F0000"
bitmap$(17) = "0000F111F1F1F000"
bitmap$(18) = "0000F11F11F1F000"
bitmap$(19) = "000F11F111F1F000"
bitmap$(20) = "000F1FFFFFFFF000"
bitmap$(21) = "000FF0F222F0FF00"
bitmap$(22) = "000F00F222F00F00"
bitmap$(23) = "00000F2222F00000"
bitmap$(24) = "00000F222FFF0000"
bitmap$(25) = "00000F22F22F0000"
bitmap$(26) = "00000F22F22F0000"
bitmap$(27) = "00000F2F0F2F0000"
bitmap$(28) = "00000F2F0F2F0000"
bitmap$(29) = "0000F22F0F2F0000"
bitmap$(30) = "0000F22F0F2F0000"
bitmap$(31) = "0000F2F00F22F000"
bitmap$(32) = "0000F2F00F22F000"
bitmap$(33) = "0000F2F000F2F000"
bitmap$(34) = "0000F2F000F2F000"
bitmap$(35) = "0000F2F000F2F000"
bitmap$(36) = "000F22F000F22F00"
bitmap$(37) = "000F2F00000FFF00"
bitmap$(38) = "000FFF0000FF0000"
bitmap$(39) = "00FFFF0000000000"

CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 40)

NEXT xd
NEXT yd

REM ************************************ FAZA 2

bitmap$(0) = "000000FFFF000000"
bitmap$(1) = "00000F3333F00000"
bitmap$(2) = "00000FFF33F00000"
bitmap$(3) = "00000F36F3F00000"
bitmap$(4) = "0000F6666FF00000"
bitmap$(5) = "00000F6666F00000"
bitmap$(6) = "00000F6666F00000"
bitmap$(7) = "000000F66F000000"
bitmap$(8) = "0000000FFF000000"
bitmap$(9) = "0000000F11F00000"

bitmap$(10) = "000000F111F00000"
bitmap$(11) = "000000F111F00000"
bitmap$(12) = "000000F111F00000"
bitmap$(13) = "000000F11FF00000"
bitmap$(14) = "000000F11FF00000"
bitmap$(15) = "000000F11FF00000"
bitmap$(16) = "000000F1F1F00000"
bitmap$(17) = "00000F11F1F00000"
bitmap$(18) = "00000F11F1F00000"
bitmap$(19) = "00000F11F1F00000"
bitmap$(20) = "00000F1FFFF00000"
bitmap$(21) = "00000F8F22F00000"
bitmap$(22) = "00000FFF22F00000"
bitmap$(23) = "00000FFF22F00000"
bitmap$(24) = "00000F2222F00000"
bitmap$(25) = "00000F222F000000"
bitmap$(26) = "00000F222F000000"
bitmap$(27) = "0000F2F22F000000"
bitmap$(28) = "0000F2F22F000000"
bitmap$(29) = "0000F2F22F000000"
bitmap$(30) = "0000F2F22F000000"
bitmap$(31) = "00000FF22F000000"
bitmap$(32) = "00000FF22F000000"
bitmap$(33) = "000000F22FF00000"
bitmap$(34) = "000000F22FF00000"
bitmap$(35) = "0000000F2FFF0000"
bitmap$(36) = "0000000F2F0FF000"
bitmap$(37) = "0000000F2F000000"
bitmap$(38) = "0000000F2F000000"
bitmap$(39) = "00000FFFF0000000"
CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40)

NEXT xd
NEXT yd

REM ************************ ruch poziomy FAZA 3

bitmap$(0) = "000000FFFF000000"
bitmap$(1) = "00000F3333F00000"
bitmap$(2) = "00000FFF33F00000"
bitmap$(3) = "00000F36F3F00000"
bitmap$(4) = "0000F6666FF00000"
bitmap$(5) = "00000F6666F00000"
bitmap$(6) = "00000F6666F00000"
bitmap$(7) = "000000F66F000000"
bitmap$(8) = "0000000FFF000000"
bitmap$(9) = "0000000F11F00000"

bitmap$(10) = "000000F111F00000"
bitmap$(11) = "000000F111F00000"
bitmap$(12) = "00000FF111F00000"
bitmap$(13) = "00000FF111F00000"
bitmap$(14) = "00000FFF11F00000"
bitmap$(15) = "00000FFF111F0000"
bitmap$(16) = "00000FF1F11F0000"
bitmap$(17) = "0000F1F1F11F0000"
bitmap$(18) = "0000F1F1F11F0000"
bitmap$(19) = "0000F1F11F1F0000"
bitmap$(20) = "0000F1FFFF1F0000"
bitmap$(21) = "00000F622FFF0000"
bitmap$(22) = "000000F22FFF0000"
bitmap$(23) = "000000F222F00000"
bitmap$(24) = "000000F222F00000"
bitmap$(25) = "000000F222F00000"

bitmap$(26) = "00000FF222F00000"
bitmap$(27) = "00000FF222F00000"
bitmap$(28) = "00000F2F22F00000"
bitmap$(29) = "0000F22F22F00000"
bitmap$(30) = "0000F2F0F2F00000"
bitmap$(31) = "0000F2F0F2F00000"
bitmap$(32) = "0000F2F0F2F00000"
bitmap$(33) = "0000F2F0F22F0000"
bitmap$(34) = "0000F2F00F2F0000"
bitmap$(35) = "0000F2F00F2F0000"
bitmap$(36) = "0000F2F00F2F0000"
bitmap$(37) = "000FFFF00F2F0000"
bitmap$(38) = "0000000000F2F000"
bitmap$(39) = "00000000FFFF0000"

CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40)

NEXT xd
NEXT yd

REM ************************************ FAZA 4

bitmap$(0) = "000000FFFF000000"
bitmap$(1) = "00000F3333F00000"
bitmap$(2) = "00000FFF33F00000"
bitmap$(3) = "00000F36F3F00000"
bitmap$(4) = "0000F6666FF00000"
bitmap$(5) = "00000F6666F00000"
bitmap$(6) = "00000F6666F00000"
bitmap$(7) = "000000F66F000000"
bitmap$(8) = "0000000FFF000000"
bitmap$(9) = "0000000F11F00000"

bitmap$(10) = "000000F111F00000"
bitmap$(11) = "000000F111F00000"
bitmap$(12) = "000000F111F00000"
bitmap$(13) = "000000F11FF00000"
bitmap$(14) = "000000F11FF00000"
bitmap$(15) = "000000F11FF00000"
bitmap$(16) = "000000F1F1F00000"
bitmap$(17) = "00000F11F1F00000"
bitmap$(18) = "00000F11F1F00000"
bitmap$(19) = "00000F11F1F00000"
bitmap$(20) = "00000F1FFFF00000"
bitmap$(21) = "00000F8F22F00000"
bitmap$(22) = "00000FFF22F00000"
bitmap$(23) = "00000FFF22F00000"
bitmap$(24) = "00000F2222F00000"
bitmap$(25) = "00000F222F000000"
bitmap$(26) = "00000F222F000000"
bitmap$(27) = "0000F222FF000000"
bitmap$(28) = "0000F222FF000000"
bitmap$(29) = "0000F22F2F000000"
bitmap$(30) = "0000F222FF000000"
bitmap$(31) = "00000F222F000000"
bitmap$(32) = "00000FF22F000000"
bitmap$(33) = "000000FF2FF00000"
bitmap$(34) = "000000F2F0F00000"
bitmap$(35) = "0000000F2FFF0000"
bitmap$(36) = "0000000F2F0FF000"
bitmap$(37) = "0000000F2F000000"
bitmap$(38) = "0000000F2F000000"
bitmap$(39) = "00000FFFF0000000"
CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40)

NEXT xd
NEXT yd

GOTO petla:

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) = "0000366666300000"
bitmap$(6) = "000006C8C6000000"
bitmap$(7) = "0000006860000000"
bitmap$(8) = "0000001610000000"
bitmap$(9) = "0000711111700000"

bitmap$(10) = "0000711111700000"
bitmap$(11) = "0001111111110000"
bitmap$(12) = "0071111111117000"
bitmap$(13) = "0071111111117000"
bitmap$(14) = "0011711111711000"
bitmap$(15) = "0011711111711000"
bitmap$(16) = "0711711111711700"
bitmap$(17) = "0A11711111711A00"
bitmap$(18) = "0117A11111A71100"
bitmap$(19) = "0117111111171100"
bitmap$(20) = "01104BBBBB401100"
bitmap$(21) = "0860922222906800"
bitmap$(22) = "0000922222900000"
bitmap$(23) = "0000922222900000"
bitmap$(24) = "0000922222900000"
bitmap$(25) = "0000929092900000"
bitmap$(26) = "0000929092900000"
bitmap$(27) = "0000929092900000"
bitmap$(28) = "0000929092900000"
bitmap$(29) = "0000929092900000"
bitmap$(30) = "0000929092900000"
bitmap$(31) = "0000929092900000"
bitmap$(32) = "0000929092900000"
bitmap$(33) = "0000929092900000"
bitmap$(34) = "0000929092900000"
bitmap$(35) = "0000929092900000"
bitmap$(36) = "0000929092900000"
bitmap$(37) = "0000929092900000"
bitmap$(38) = "0000333033300000"
bitmap$(39) = "0003330003330000"

FOR yd = 0 TO 39
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)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88)

NEXT xd
NEXT yd

END

REM zapis do pliku

DEF SEG = &HA000
BSAVE "bitmap1.scr", 0, 57000
COLOR 15: LOCATE 23, 1
INPUT a$
CLS

BLOAD "bitmap1.scr"

END

Piotr-246 · Gość

REM modul BSAVE do gry "Serca 2022"

SCREEN 13

DIM p1(0 TO 160) AS LONG
DIM p2(0 TO 160) AS LONG
DIM p3(0 TO 160) AS LONG
DIM p4(0 TO 160) AS LONG
DIM l1(0 TO 160) AS LONG
DIM l2(0 TO 160) AS LONG
DIM l3(0 TO 160) AS LONG
DIM l4(0 TO 160) AS LONG

DIM bitmap$(0 TO 39)
DIM k$(0 TO 255)

REM palety kolorow *********************************
REM max koloru=3F

FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i

REM kolory za ludzikiem

k$(0) = "00 00 00 00": REM rejestr zero- wolny
k$(1) = "01 0A 0A 0A": REM tlo plyta
k$(2) = "02 06 06 06": REM tlo fuga
k$(3) = "03 10 10 10": REM tlo krawedz
k$(4) = "04 00 2F 00": REM liscie
k$(5) = "05 3F 3F 3F"
k$(6) = "06 3F 3F 3F"
k$(7) = "07 28 0A 00": REM doniczka
k$(8) = "08 00 00 3F": REM niebo
k$(9) = "09 3F 3F 00": REM slonce
k$(10) = "0A 20 20 20": REM framuga zewnetrzna
k$(11) = "0B 18 18 18": REM wentylator obudowa
k$(12) = "0C 3F 3F 3F": REM wentylator faza 1
k$(13) = "0D 2F 2F 2F": REM wentylator faza 2
k$(14) = "0E 1F 1F 1F": REM wentylator faza 3
k$(15) = "0F 3F 3F 3F": REM napis startowy

REM bloki przezroczystosci
k$(16) = "10 3F 3F 3F"
k$(32) = "20 3F 3F 3F"

REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF)

k$(31) = "1F 28 00 00": REM sweter
k$(47) = "2F 05 12 2F": REM spodnie
k$(63) = "3F 17 17 17": REM wlosy i buty
k$(79) = "4F 10 10 10": REM pasek2
k$(95) = "5F 3F 2F 0F":
k$(111) = "6F 3F 2C 17": REM skora1
k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych
k$(143) = "8F 30 20 00": REM nos
k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych
k$(175) = "AF 20 00 00": REM sweter3
k$(191) = "BF 20 20 20": REM pasek
k$(207) = "CF 37 27 06": REM usta

REM bloczek

k$(224) = "E0 00 00 00": REM
k$(225) = "E1 04 04 04": REM
k$(226) = "E2 08 08 08": REM
k$(227) = "E3 0B 0B 0B": REM
k$(228) = "E4 10 10 10": REM
k$(229) = "E5 14 14 14": REM
k$(230) = "E6 18 18 18": REM
k$(231) = "E7 1B 1B 1B": REM
k$(232) = "E8 20 20 20": REM
k$(233) = "E9 24 2B 2B": REM
k$(234) = "EA 28 28 28": REM
k$(235) = "EB 2B 2B 2B": REM
k$(236) = "EC 30 30 30": REM
k$(237) = "ED 34 34 34": REM
k$(238) = "EE 38 38 38": REM
k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika

REM cegly male zlote

k$(242) = "F2 30 2C 10": REM
k$(243) = "F3 28 24 08": REM
k$(244) = "F4 2A 26 0A": REM
k$(245) = "F5 24 20 04": REM

REM cegly male ZIELONE

k$(246) = "F6 22 30 27": REM krawedz
k$(247) = "F7 09 14 0E": REM fuga
k$(248) = "F8 11 1f 17": REM cegla

REM cegly male niebieskie

k$(249) = "F9 22 27 30": REM krawedz
k$(250) = "FA 09 0E 14": REM fuga
k$(251) = "FB 11 17 1F": REM cegla

REM cegly male czerwone

k$(252) = "FC 30 27 27": REM krawedz
k$(253) = "FD 14 0E 0E": REM fuga
k$(254) = "FE 1F 17 17": REM cegla
k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika

FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2)
red$ = "&H" + MID$(k$(i), 4, 2)
gre$ = "&H" + MID$(k$(i), 7, 2)
blu$ = "&H" + MID$(k$(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 ****************************************

petla:

REM animacja
REM 7,9 - rejestry przezroczyste

bitmap$(0) = "000000FFFF000000"
bitmap$(1) = "00000F3333F00000"
bitmap$(2) = "00000FFF33F00000"
bitmap$(3) = "00000F36F3F00000"
bitmap$(4) = "0000F6666FF00000"
bitmap$(5) = "00000F6666F00000"
bitmap$(6) = "00000F6666F00000"
bitmap$(7) = "000000F66F000000"
bitmap$(8) = "0000000FFF000000"
bitmap$(9) = "0000000F11F00000"

bitmap$(10) = "000000F111F00000"
bitmap$(11) = "000000F111F00000"
bitmap$(12) = "000000F111FF0000"
bitmap$(13) = "00000F111F1F0000"
bitmap$(14) = "00000F111F1F0000"
bitmap$(15) = "00000F11F11F0000"
bitmap$(16) = "00000F11F11F0000"
bitmap$(17) = "0000F111F1F1F000"
bitmap$(18) = "0000F11F11F1F000"
bitmap$(19) = "000F11F111F1F000"
bitmap$(20) = "000F1FFFFFFFF000"
bitmap$(21) = "000FF0F222F0FF00"
bitmap$(22) = "000F00F222F00F00"
bitmap$(23) = "00000F2222F00000"
bitmap$(24) = "00000F222FFF0000"
bitmap$(25) = "00000F22F22F0000"
bitmap$(26) = "00000F22F22F0000"
bitmap$(27) = "00000F2F0F2F0000"
bitmap$(28) = "00000F2F0F2F0000"
bitmap$(29) = "0000F22F0F2F0000"
bitmap$(30) = "0000F22F0F2F0000"
bitmap$(31) = "0000F2F00F22F000"
bitmap$(32) = "0000F2F00F22F000"
bitmap$(33) = "0000F2F000F2F000"
bitmap$(34) = "0000F2F000F2F000"
bitmap$(35) = "0000F2F000F2F000"
bitmap$(36) = "000F22F000F22F00"
bitmap$(37) = "000F2F00000FFF00"
bitmap$(38) = "000FFF0000FF0000"
bitmap$(39) = "00FFFF0000000000"

CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 40)

NEXT xd
NEXT yd
GET (0, 0)-(15, 39), l1
GET (0, 40)-(15, 79), p1

REM ************************************ FAZA 2

bitmap$(0) = "000000FFFF000000"
bitmap$(1) = "00000F3333F00000"
bitmap$(2) = "00000FFF33F00000"
bitmap$(3) = "00000F36F3F00000"
bitmap$(4) = "0000F6666FF00000"
bitmap$(5) = "00000F6666F00000"
bitmap$(6) = "00000F6666F00000"
bitmap$(7) = "000000F66F000000"
bitmap$(8) = "0000000FFF000000"
bitmap$(9) = "0000000F11F00000"

bitmap$(10) = "000000F111F00000"
bitmap$(11) = "000000F111F00000"
bitmap$(12) = "000000F111F00000"
bitmap$(13) = "000000F11FF00000"
bitmap$(14) = "000000F11FF00000"
bitmap$(15) = "000000F11FF00000"
bitmap$(16) = "000000F1F1F00000"
bitmap$(17) = "00000F11F1F00000"
bitmap$(18) = "00000F11F1F00000"
bitmap$(19) = "00000F11F1F00000"
bitmap$(20) = "00000F1FFFF00000"
bitmap$(21) = "00000F8F22F00000"
bitmap$(22) = "00000FFF22F00000"
bitmap$(23) = "00000FFF22F00000"
bitmap$(24) = "00000F2222F00000"
bitmap$(25) = "00000F222F000000"
bitmap$(26) = "00000F222F000000"
bitmap$(27) = "0000F2F22F000000"
bitmap$(28) = "0000F2F22F000000"
bitmap$(29) = "0000F2F22F000000"
bitmap$(30) = "0000F2F22F000000"
bitmap$(31) = "00000FF22F000000"
bitmap$(32) = "00000FF22F000000"
bitmap$(33) = "000000F22FF00000"
bitmap$(34) = "000000F22FF00000"
bitmap$(35) = "0000000F2FFF0000"
bitmap$(36) = "0000000F2F0FF000"
bitmap$(37) = "0000000F2F000000"
bitmap$(38) = "0000000F2F000000"
bitmap$(39) = "00000FFFF0000000"
CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40)

NEXT xd
NEXT yd

GET (0, 0)-(15, 39), l2
GET (0, 40)-(15, 79), p2

REM ************************ ruch poziomy FAZA 3

bitmap$(0) = "000000FFFF000000"
bitmap$(1) = "00000F3333F00000"
bitmap$(2) = "00000FFF33F00000"
bitmap$(3) = "00000F36F3F00000"
bitmap$(4) = "0000F6666FF00000"
bitmap$(5) = "00000F6666F00000"
bitmap$(6) = "00000F6666F00000"
bitmap$(7) = "000000F66F000000"
bitmap$(8) = "0000000FFF000000"
bitmap$(9) = "0000000F11F00000"

bitmap$(10) = "000000F111F00000"
bitmap$(11) = "000000F111F00000"
bitmap$(12) = "00000FF111F00000"
bitmap$(13) = "00000FF111F00000"
bitmap$(14) = "00000FFF11F00000"
bitmap$(15) = "00000FFF111F0000"
bitmap$(16) = "00000FF1F11F0000"
bitmap$(17) = "0000F1F1F11F0000"
bitmap$(18) = "0000F1F1F11F0000"
bitmap$(19) = "0000F1F11F1F0000"
bitmap$(20) = "0000F1FFFF1F0000"
bitmap$(21) = "00000F622FFF0000"
bitmap$(22) = "000000F22FFF0000"
bitmap$(23) = "000000F222F00000"
bitmap$(24) = "000000F222F00000"
bitmap$(25) = "000000F222F00000"

bitmap$(26) = "00000FF222F00000"
bitmap$(27) = "00000FF222F00000"
bitmap$(28) = "00000F2F22F00000"
bitmap$(29) = "0000F22F22F00000"
bitmap$(30) = "0000F2F0F2F00000"
bitmap$(31) = "0000F2F0F2F00000"
bitmap$(32) = "0000F2F0F2F00000"
bitmap$(33) = "0000F2F0F22F0000"
bitmap$(34) = "0000F2F00F2F0000"
bitmap$(35) = "0000F2F00F2F0000"
bitmap$(36) = "0000F2F00F2F0000"
bitmap$(37) = "000FFFF00F2F0000"
bitmap$(38) = "0000000000F2F000"
bitmap$(39) = "00000000FFFF0000"

CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40)

NEXT xd
NEXT yd

GET (0, 0)-(15, 39), l3
GET (0, 40)-(15, 79), p3

REM ************************************ FAZA 4

bitmap$(0) = "000000FFFF000000"
bitmap$(1) = "00000F3333F00000"
bitmap$(2) = "00000FFF33F00000"
bitmap$(3) = "00000F36F3F00000"
bitmap$(4) = "0000F6666FF00000"
bitmap$(5) = "00000F6666F00000"
bitmap$(6) = "00000F6666F00000"
bitmap$(7) = "000000F66F000000"
bitmap$(8) = "0000000FFF000000"
bitmap$(9) = "0000000F11F00000"

bitmap$(10) = "000000F111F00000"
bitmap$(11) = "000000F111F00000"
bitmap$(12) = "000000F111F00000"
bitmap$(13) = "000000F11FF00000"
bitmap$(14) = "000000F11FF00000"
bitmap$(15) = "000000F11FF00000"
bitmap$(16) = "000000F1F1F00000"
bitmap$(17) = "00000F11F1F00000"
bitmap$(18) = "00000F11F1F00000"
bitmap$(19) = "00000F11F1F00000"
bitmap$(20) = "00000F1FFFF00000"
bitmap$(21) = "00000F8F22F00000"
bitmap$(22) = "00000FFF22F00000"
bitmap$(23) = "00000FFF22F00000"
bitmap$(24) = "00000F2222F00000"
bitmap$(25) = "00000F222F000000"
bitmap$(26) = "00000F222F000000"
bitmap$(27) = "0000F222FF000000"
bitmap$(28) = "0000F222FF000000"
bitmap$(29) = "0000F22F2F000000"
bitmap$(30) = "0000F222FF000000"
bitmap$(31) = "00000F222F000000"
bitmap$(32) = "00000FF22F000000"
bitmap$(33) = "000000FF2FF00000"
bitmap$(34) = "000000F2F0F00000"
bitmap$(35) = "0000000F2FFF0000"
bitmap$(36) = "0000000F2F0FF000"
bitmap$(37) = "0000000F2F000000"
bitmap$(38) = "0000000F2F000000"
bitmap$(39) = "00000FFFF0000000"
CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40)

NEXT xd
NEXT yd

GET (0, 0)-(15, 39), l4
GET (0, 40)-(15, 79), p4

pet2:
faza = faza + 1
IF faza = 4 THEN faza = 0
vek = 0
key$ = INKEY$
IF key$ = "6" THEN x = x + 1: vek = 1
IF key$ = "4" THEN x = x - 1: vek = -1
IF vek <> 0 THEN CLS

IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1
IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2
IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3
IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4

IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1
IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2
IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3
IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4

FOR delay = 1 TO 5000: NEXT delay

GOTO pet2

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) = "0000366666300000"
bitmap$(6) = "000006C8C6000000"
bitmap$(7) = "0000006860000000"
bitmap$(8) = "0000001610000000"
bitmap$(9) = "0000711111700000"

bitmap$(10) = "0000711111700000"
bitmap$(11) = "0001111111110000"
bitmap$(12) = "0071111111117000"
bitmap$(13) = "0071111111117000"
bitmap$(14) = "0011711111711000"
bitmap$(15) = "0011711111711000"
bitmap$(16) = "0711711111711700"
bitmap$(17) = "0A11711111711A00"
bitmap$(18) = "0117A11111A71100"
bitmap$(19) = "0117111111171100"
bitmap$(20) = "01104BBBBB401100"
bitmap$(21) = "0860922222906800"
bitmap$(22) = "0000922222900000"
bitmap$(23) = "0000922222900000"
bitmap$(24) = "0000922222900000"
bitmap$(25) = "0000929092900000"
bitmap$(26) = "0000929092900000"
bitmap$(27) = "0000929092900000"
bitmap$(28) = "0000929092900000"
bitmap$(29) = "0000929092900000"
bitmap$(30) = "0000929092900000"
bitmap$(31) = "0000929092900000"
bitmap$(32) = "0000929092900000"
bitmap$(33) = "0000929092900000"
bitmap$(34) = "0000929092900000"
bitmap$(35) = "0000929092900000"
bitmap$(36) = "0000929092900000"
bitmap$(37) = "0000929092900000"
bitmap$(38) = "0000333033300000"
bitmap$(39) = "0003330003330000"

FOR yd = 0 TO 39
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)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88)

NEXT xd
NEXT yd

END

REM zapis do pliku

DEF SEG = &HA000
BSAVE "bitmap1.scr", 0, 57000
COLOR 15: LOCATE 23, 1
INPUT a$
CLS

BLOAD "bitmap1.scr"

END

Piotr-246 · Gość

REM modul BSAVE do gry "Serca 2022"

SCREEN 13

DIM p1(0 TO 160) AS LONG
DIM p2(0 TO 160) AS LONG
DIM p3(0 TO 160) AS LONG
DIM p4(0 TO 160) AS LONG
DIM l1(0 TO 160) AS LONG
DIM l2(0 TO 160) AS LONG
DIM l3(0 TO 160) AS LONG
DIM l4(0 TO 160) AS LONG

DIM bitmap$(0 TO 39)
DIM k$(0 TO 255)

REM palety kolorow *********************************
REM max koloru=3F

FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i

REM kolory za ludzikiem

k$(0) = "00 00 00 00": REM rejestr zero- wolny
k$(1) = "01 0A 0A 0A": REM tlo plyta
k$(2) = "02 06 06 06": REM tlo fuga
k$(3) = "03 10 10 10": REM tlo krawedz
k$(4) = "04 00 2F 00": REM liscie
k$(5) = "05 3F 3F 3F"
k$(6) = "06 3F 3F 3F"
k$(7) = "07 28 0A 00": REM doniczka
k$(8) = "08 00 00 3F": REM niebo
k$(9) = "09 3F 3F 00": REM slonce
k$(10) = "0A 20 20 20": REM framuga zewnetrzna
k$(11) = "0B 18 18 18": REM wentylator obudowa
k$(12) = "0C 3F 3F 3F": REM wentylator faza 1
k$(13) = "0D 2F 2F 2F": REM wentylator faza 2
k$(14) = "0E 1F 1F 1F": REM wentylator faza 3
k$(15) = "0F 3F 3F 3F": REM napis startowy

REM bloki przezroczystosci
k$(16) = "10 3F 3F 3F"
k$(32) = "20 3F 3F 3F"

REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF)

k$(31) = "1F 28 00 00": REM sweter
k$(47) = "2F 05 12 2F": REM spodnie
k$(63) = "3F 17 17 17": REM wlosy i buty
k$(79) = "4F 10 10 10": REM pasek2
k$(95) = "5F 3F 2F 0F":
k$(111) = "6F 3F 2C 17": REM skora1
k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych
k$(143) = "8F 30 20 00": REM nos
k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych
k$(175) = "AF 20 00 00": REM sweter3
k$(191) = "BF 20 20 20": REM pasek
k$(207) = "CF 37 27 06": REM usta

REM bloczek

k$(224) = "E0 00 00 00": REM
k$(225) = "E1 04 04 04": REM
k$(226) = "E2 08 08 08": REM
k$(227) = "E3 0B 0B 0B": REM
k$(228) = "E4 10 10 10": REM
k$(229) = "E5 14 14 14": REM
k$(230) = "E6 18 18 18": REM
k$(231) = "E7 1B 1B 1B": REM
k$(232) = "E8 20 20 20": REM
k$(233) = "E9 24 2B 2B": REM
k$(234) = "EA 28 28 28": REM
k$(235) = "EB 2B 2B 2B": REM
k$(236) = "EC 30 30 30": REM
k$(237) = "ED 34 34 34": REM
k$(238) = "EE 38 38 38": REM
k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika

REM cegly male zlote

k$(242) = "F2 30 2C 10": REM
k$(243) = "F3 28 24 08": REM
k$(244) = "F4 2A 26 0A": REM
k$(245) = "F5 24 20 04": REM

REM cegly male ZIELONE

k$(246) = "F6 22 30 27": REM krawedz
k$(247) = "F7 09 14 0E": REM fuga
k$(248) = "F8 11 1f 17": REM cegla

REM cegly male niebieskie

k$(249) = "F9 22 27 30": REM krawedz
k$(250) = "FA 09 0E 14": REM fuga
k$(251) = "FB 11 17 1F": REM cegla

REM cegly male czerwone

k$(252) = "FC 30 27 27": REM krawedz
k$(253) = "FD 14 0E 0E": REM fuga
k$(254) = "FE 1F 17 17": REM cegla
k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika

FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2)
red$ = "&H" + MID$(k$(i), 4, 2)
gre$ = "&H" + MID$(k$(i), 7, 2)
blu$ = "&H" + MID$(k$(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 ****************************************

petla:

REM animacja
REM ************************* faza 1

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "000F66666FF00000"
bitmap$(5) = "0000F66666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F111F00000"

bitmap$(10) = "00000F1111F00000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "00000F1111FF0000"
bitmap$(13) = "0000F1111F1F0000"
bitmap$(14) = "0000F111FF1F0000"
bitmap$(15) = "0000F11F111F0000"
bitmap$(16) = "0000F11F111F0000"
bitmap$(17) = "000F111F11F1F000"
bitmap$(18) = "000F11F111F1F000"
bitmap$(19) = "00F11F1111F1F000"
bitmap$(20) = "00F1FFFFFFFFFF000"
bitmap$(21) = "00FF0F2222F0FF00"
bitmap$(22) = "00F00F2222F00F00"
bitmap$(23) = "0000F22222F00000"
bitmap$(24) = "0000F222FFFF0000"
bitmap$(25) = "0000F22FF22F0000"
bitmap$(26) = "0000F22FF22F0000"
bitmap$(27) = "0000F2F00F2F0000"
bitmap$(28) = "0000F2F00F2F0000"
bitmap$(29) = "000F22F00F2F0000"
bitmap$(30) = "000F22F00F2F0000"
bitmap$(31) = "000F2F000F22F000"
bitmap$(32) = "000F2F000F22F000"
bitmap$(33) = "000F2F0000F2F000"
bitmap$(34) = "000F2F0000F2F000"
bitmap$(35) = "000F2F0000F2F000"
bitmap$(36) = "00F22F0000F22F00"
bitmap$(37) = "00F2F000000FFF00"
bitmap$(38) = "00FFF00000FF0000"
bitmap$(39) = "0FFFF00000000000"

CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 40)

NEXT xd
NEXT yd
GET (0, 0)-(15, 39), l1
GET (0, 40)-(15, 79), p1

REM ************************************ FAZA 2

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "000F66666FF00000"
bitmap$(5) = "0000F66666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F111F00000"

bitmap$(10) = "00000F1111F00000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "00000F1111F00000"
bitmap$(13) = "00000F111FF00000"
bitmap$(14) = "00000F111FF00000"
bitmap$(15) = "00000F111FF00000"
bitmap$(16) = "00000F11F1F00000"
bitmap$(17) = "0000F111F1F00000"
bitmap$(18) = "0000F111F1F00000"
bitmap$(19) = "0000F111F1F00000"
bitmap$(20) = "0000F1FFFFF00000"
bitmap$(21) = "0000F8F222F00000"
bitmap$(22) = "0000FFF222F00000"
bitmap$(23) = "0000FFF2222F00000"
bitmap$(24) = "0000F22222F00000"
bitmap$(25) = "0000F2222F000000"
bitmap$(26) = "0000F2222F000000"
bitmap$(27) = "000F2F222F000000"
bitmap$(28) = "000F2F222F000000"
bitmap$(29) = "000F2F222F000000"
bitmap$(30) = "000F2F222F000000"
bitmap$(31) = "0000FF222F000000"
bitmap$(32) = "0000FF222F000000"
bitmap$(33) = "00000F222FF00000"
bitmap$(34) = "00000F222FF00000"
bitmap$(35) = "000000F22FFF0000"
bitmap$(36) = "000000F22F0FF000"
bitmap$(37) = "000000F22F000000"
bitmap$(38) = "000000F22F000000"
bitmap$(39) = "0000FFFFF0000000"
CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40)

NEXT xd
NEXT yd

GET (0, 0)-(15, 39), l2
GET (0, 40)-(15, 79), p2

REM ************************ ruch poziomy FAZA 3

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "000F66666FF00000"
bitmap$(5) = "0000F66666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F111F00000"

bitmap$(10) = "00000F1111F00000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "0000FF1111F00000"
bitmap$(13) = "0000FF1111F00000"
bitmap$(14) = "0000FFF111F00000"
bitmap$(15) = "0000FFFF111F0000"
bitmap$(16) = "0000FF11F11F0000"
bitmap$(17) = "000F1F11F11F0000"
bitmap$(18) = "000F1F11F11F0000"
bitmap$(19) = "000F1F111F1F0000"
bitmap$(20) = "000F1FFFFF1F0000"
bitmap$(21) = "0000F6222FFF0000"
bitmap$(22) = "00000F222FFF0000"
bitmap$(23) = "00000F2222F00000"
bitmap$(24) = "00000F2222F00000"
bitmap$(25) = "00000F2222F00000"

bitmap$(26) = "0000FF2222F00000"
bitmap$(27) = "0000FF2222F00000"
bitmap$(28) = "0000F2FF22F00000"
bitmap$(29) = "000F22FF22F00000"
bitmap$(30) = "000F2F00F2F00000"
bitmap$(31) = "000F2F00F2F00000"
bitmap$(32) = "000F2F00F2F00000"
bitmap$(33) = "000F2F00F22F0000"
bitmap$(34) = "000F2F000F2F0000"
bitmap$(35) = "000F2F000F2F0000"
bitmap$(36) = "000F2F000F2F0000"
bitmap$(37) = "00FFFF000F2F0000"
bitmap$(38) = "0000000000F2F000"
bitmap$(39) = "00000000FFFF0000"

CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40)

NEXT xd
NEXT yd

GET (0, 0)-(15, 39), l3
GET (0, 40)-(15, 79), p3

REM ************************************ FAZA 4

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "000F66666FF00000"
bitmap$(5) = "0000F66666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F111F00000"

bitmap$(10) = "00000F1111F00000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "00000F1111F00000"
bitmap$(13) = "00000F111FF00000"
bitmap$(14) = "00000F111FF00000"
bitmap$(15) = "00000F111FF00000"
bitmap$(16) = "00000F11F1F00000"
bitmap$(17) = "0000F111F1F00000"
bitmap$(18) = "0000F111F1F00000"
bitmap$(19) = "0000F111F1F00000"
bitmap$(20) = "0000F1FFFFF00000"
bitmap$(21) = "0000F8F222F00000"
bitmap$(22) = "0000FFF222F00000"
bitmap$(23) = "0000FFF222F00000"
bitmap$(24) = "0000F22222F00000"
bitmap$(25) = "0000F2222F000000"
bitmap$(26) = "0000F2222F000000"
bitmap$(27) = "000F2222FF000000"
bitmap$(28) = "000F2222FF000000"
bitmap$(29) = "000F222F2F000000"
bitmap$(30) = "000F2222FF000000"
bitmap$(31) = "0000F2222F000000"
bitmap$(32) = "0000FF222F000000"
bitmap$(33) = "00000FF22FF00000"
bitmap$(34) = "00000F22F0F00000"
bitmap$(35) = "000000F22FFF0000"
bitmap$(36) = "000000F22F0FF000"
bitmap$(37) = "000000F22F000000"
bitmap$(38) = "000000F22F000000"
bitmap$(39) = "0000FFFFF0000000"
CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 0, yd): PSET (16 - xd + 0, yd + 40)

NEXT xd
NEXT yd

GET (0, 0)-(15, 39), l4
GET (0, 40)-(15, 79), p4

pet2:
faza = faza + 1
IF faza = 4 THEN faza = 0
vek = 0
key$ = INKEY$
IF key$ = "6" THEN x = x + 1: vek = 1
IF key$ = "4" THEN x = x - 1: vek = -1
IF vek <> 0 THEN CLS

IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1
IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2
IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3
IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4

IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1
IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2
IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3
IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4

FOR delay = 1 TO 5000: NEXT delay

GOTO pet2

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) = "0000366666300000"
bitmap$(6) = "000006C8C6000000"
bitmap$(7) = "0000006860000000"
bitmap$(8) = "0000001610000000"
bitmap$(9) = "0000711111700000"

bitmap$(10) = "0000711111700000"
bitmap$(11) = "0001111111110000"
bitmap$(12) = "0071111111117000"
bitmap$(13) = "0071111111117000"
bitmap$(14) = "0011711111711000"
bitmap$(15) = "0011711111711000"
bitmap$(16) = "0711711111711700"
bitmap$(17) = "0A11711111711A00"
bitmap$(18) = "0117A11111A71100"
bitmap$(19) = "0117111111171100"
bitmap$(20) = "01104BBBBB401100"
bitmap$(21) = "0860922222906800"
bitmap$(22) = "0000922222900000"
bitmap$(23) = "0000922222900000"
bitmap$(24) = "0000922222900000"
bitmap$(25) = "0000929092900000"
bitmap$(26) = "0000929092900000"
bitmap$(27) = "0000929092900000"
bitmap$(28) = "0000929092900000"
bitmap$(29) = "0000929092900000"
bitmap$(30) = "0000929092900000"
bitmap$(31) = "0000929092900000"
bitmap$(32) = "0000929092900000"
bitmap$(33) = "0000929092900000"
bitmap$(34) = "0000929092900000"
bitmap$(35) = "0000929092900000"
bitmap$(36) = "0000929092900000"
bitmap$(37) = "0000929092900000"
bitmap$(38) = "0000333033300000"
bitmap$(39) = "0003330003330000"

FOR yd = 0 TO 39
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)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88)

NEXT xd
NEXT yd

END

REM zapis do pliku

DEF SEG = &HA000
BSAVE "bitmap1.scr", 0, 57000
COLOR 15: LOCATE 23, 1
INPUT a$
CLS

BLOAD "bitmap1.scr"

END

Piotr-246 · Gość

REM modul BSAVE do gry "Serca 2022"

SCREEN 13

DIM p1(0 TO 160) AS LONG
DIM p2(0 TO 160) AS LONG
DIM p3(0 TO 160) AS LONG
DIM p4(0 TO 160) AS LONG
DIM l1(0 TO 160) AS LONG
DIM l2(0 TO 160) AS LONG
DIM l3(0 TO 160) AS LONG
DIM l4(0 TO 160) AS LONG

DIM bitmap$(0 TO 39)
DIM k$(0 TO 255)

REM palety kolorow *********************************
REM max koloru=3F

FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i

REM kolory za ludzikiem

k$(0) = "00 00 00 00": REM rejestr zero- wolny
k$(1) = "01 0A 0A 0A": REM tlo plyta
k$(2) = "02 06 06 06": REM tlo fuga
k$(3) = "03 10 10 10": REM tlo krawedz
k$(4) = "04 00 2F 00": REM liscie
k$(5) = "05 3F 3F 3F"
k$(6) = "06 3F 3F 3F"
k$(7) = "07 28 0A 00": REM doniczka
k$(8) = "08 00 00 3F": REM niebo
k$(9) = "09 3F 3F 00": REM slonce
k$(10) = "0A 20 20 20": REM framuga zewnetrzna
k$(11) = "0B 18 18 18": REM wentylator obudowa
k$(12) = "0C 3F 3F 3F": REM wentylator faza 1
k$(13) = "0D 2F 2F 2F": REM wentylator faza 2
k$(14) = "0E 1F 1F 1F": REM wentylator faza 3
k$(15) = "0F 3F 3F 3F": REM napis startowy

REM bloki przezroczystosci
k$(16) = "10 3F 3F 3F"
k$(32) = "20 3F 3F 3F"

REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF)

k$(31) = "1F 28 00 00": REM sweter
k$(47) = "2F 05 12 2F": REM spodnie
k$(63) = "3F 17 17 17": REM wlosy i buty
k$(79) = "4F 10 10 10": REM pasek2
k$(95) = "5F 3F 2F 0F":
k$(111) = "6F 3F 2C 17": REM skora1
k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych
k$(143) = "8F 30 20 00": REM nos
k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych
k$(175) = "AF 20 00 00": REM sweter3
k$(191) = "BF 20 20 20": REM pasek
k$(207) = "CF 37 27 06": REM usta

REM bloczek

k$(224) = "E0 00 00 00": REM
k$(225) = "E1 04 04 04": REM
k$(226) = "E2 08 08 08": REM
k$(227) = "E3 0B 0B 0B": REM
k$(228) = "E4 10 10 10": REM
k$(229) = "E5 14 14 14": REM
k$(230) = "E6 18 18 18": REM
k$(231) = "E7 1B 1B 1B": REM
k$(232) = "E8 20 20 20": REM
k$(233) = "E9 24 2B 2B": REM
k$(234) = "EA 28 28 28": REM
k$(235) = "EB 2B 2B 2B": REM
k$(236) = "EC 30 30 30": REM
k$(237) = "ED 34 34 34": REM
k$(238) = "EE 38 38 38": REM
k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika

REM cegly male zlote

k$(242) = "F2 30 2C 10": REM
k$(243) = "F3 28 24 08": REM
k$(244) = "F4 2A 26 0A": REM
k$(245) = "F5 24 20 04": REM

REM cegly male ZIELONE

k$(246) = "F6 22 30 27": REM krawedz
k$(247) = "F7 09 14 0E": REM fuga
k$(248) = "F8 11 1f 17": REM cegla

REM cegly male niebieskie

k$(249) = "F9 22 27 30": REM krawedz
k$(250) = "FA 09 0E 14": REM fuga
k$(251) = "FB 11 17 1F": REM cegla

REM cegly male czerwone

k$(252) = "FC 30 27 27": REM krawedz
k$(253) = "FD 14 0E 0E": REM fuga
k$(254) = "FE 1F 17 17": REM cegla
k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika

FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2)
red$ = "&H" + MID$(k$(i), 4, 2)
gre$ = "&H" + MID$(k$(i), 7, 2)
blu$ = "&H" + MID$(k$(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 ****************************************

petla:

REM animacja
REM ************************* faza 1

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "000F66666FF00000"
bitmap$(5) = "0000F66666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F111F00000"

bitmap$(10) = "00000F1111F00000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "00000F1111FF0000"
bitmap$(13) = "0000F1111F1F0000"
bitmap$(14) = "0000F111FF1F0000"
bitmap$(15) = "0000F11F111F0000"
bitmap$(16) = "0000F11F111F0000"
bitmap$(17) = "000F111F11F1F000"
bitmap$(18) = "000F11F111F1F000"
bitmap$(19) = "00F11F1111F1F000"
bitmap$(20) = "00F1FFFFFFFFFF000"
bitmap$(21) = "00FF0F2222F0FF00"
bitmap$(22) = "00F00F2222F00F00"
bitmap$(23) = "0000F22222F00000"
bitmap$(24) = "0000F222FFFF0000"
bitmap$(25) = "0000F22FF22F0000"
bitmap$(26) = "0000F22FF22F0000"
bitmap$(27) = "0000F2F00F2F0000"
bitmap$(28) = "0000F2F00F2F0000"
bitmap$(29) = "000F22F00F2F0000"
bitmap$(30) = "000F22F00F2F0000"
bitmap$(31) = "000F2F000F22F000"
bitmap$(32) = "000F2F000F22F000"
bitmap$(33) = "000F2F0000F2F000"
bitmap$(34) = "000F2F0000F2F000"
bitmap$(35) = "000F2F0000F2F000"
bitmap$(36) = "00F22F0000F22F00"
bitmap$(37) = "00F2F000000FFF00"
bitmap$(38) = "00FFF00000FF0000"
bitmap$(39) = "0FFFF00000000000"

CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 40)

NEXT xd
NEXT yd
GET (0, 0)-(15, 39), l1
GET (0, 40)-(15, 79), p1

REM ************************************ FAZA 2

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "000F66666FF00000"
bitmap$(5) = "0000F66666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F111F00000"

bitmap$(10) = "00000F1111F00000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "00000F1111F00000"
bitmap$(13) = "00000F111FF00000"
bitmap$(14) = "00000F111FF00000"
bitmap$(15) = "00000F111FF00000"
bitmap$(16) = "00000F11F1F00000"
bitmap$(17) = "0000F111F1F00000"
bitmap$(18) = "0000F111F1F00000"
bitmap$(19) = "0000F111F1F00000"
bitmap$(20) = "0000F1FFFFF00000"
bitmap$(21) = "0000F8F222F00000"
bitmap$(22) = "0000FFF222F00000"
bitmap$(23) = "0000FFF2222F00000"
bitmap$(24) = "0000F22222F00000"
bitmap$(25) = "0000F2222F000000"
bitmap$(26) = "0000F2222F000000"
bitmap$(27) = "000F2F222F000000"
bitmap$(28) = "000F2F222F000000"
bitmap$(29) = "000F2F222F000000"
bitmap$(30) = "000F2F222F000000"
bitmap$(31) = "0000FF222F000000"
bitmap$(32) = "0000FF222F000000"
bitmap$(33) = "00000F222FF00000"
bitmap$(34) = "00000F222FF00000"
bitmap$(35) = "000000F22FFF0000"
bitmap$(36) = "000000F22F0FF000"
bitmap$(37) = "000000F22F000000"
bitmap$(38) = "000000F22F000000"
bitmap$(39) = "0000FFFFF0000000"
CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 40)

NEXT xd
NEXT yd

GET (16, 0)-(31, 39), l2
GET (16, 40)-(31, 79), p2

REM ************************ ruch poziomy FAZA 3

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "000F66666FF00000"
bitmap$(5) = "0000F66666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F111F00000"

bitmap$(10) = "00000F1111F00000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "0000FF1111F00000"
bitmap$(13) = "0000FF1111F00000"
bitmap$(14) = "0000FFF111F00000"
bitmap$(15) = "0000FFFF111F0000"
bitmap$(16) = "0000FF11F11F0000"
bitmap$(17) = "000F1F11F11F0000"
bitmap$(18) = "000F1F11F11F0000"
bitmap$(19) = "000F1F111F1F0000"
bitmap$(20) = "000F1FFFFF1F0000"
bitmap$(21) = "0000F6222FFF0000"
bitmap$(22) = "00000F222FFF0000"
bitmap$(23) = "00000F2222F00000"
bitmap$(24) = "00000F2222F00000"
bitmap$(25) = "00000F2222F00000"

bitmap$(26) = "0000FF2222F00000"
bitmap$(27) = "0000FF2222F00000"
bitmap$(28) = "0000F2FF22F00000"
bitmap$(29) = "000F22FF22F00000"
bitmap$(30) = "000F2F00F2F00000"
bitmap$(31) = "000F2F00F2F00000"
bitmap$(32) = "000F2F00F2F00000"
bitmap$(33) = "000F2F00F22F0000"
bitmap$(34) = "000F2F000F2F0000"
bitmap$(35) = "000F2F000F2F0000"
bitmap$(36) = "000F2F000F2F0000"
bitmap$(37) = "00FFFF000F2F0000"
bitmap$(38) = "0000000000F2F000"
bitmap$(39) = "00000000FFFF0000"

CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 40)

NEXT xd
NEXT yd

GET (32, 0)-(47, 39), l3
GET (32, 40)-(47, 79), p3

REM ************************************ FAZA 4

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "000F66666FF00000"
bitmap$(5) = "0000F66666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F111F00000"

bitmap$(10) = "00000F1111F00000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "00000F1111F00000"
bitmap$(13) = "00000F111FF00000"
bitmap$(14) = "00000F111FF00000"
bitmap$(15) = "00000F111FF00000"
bitmap$(16) = "00000F11F1F00000"
bitmap$(17) = "0000F111F1F00000"
bitmap$(18) = "0000F111F1F00000"
bitmap$(19) = "0000F111F1F00000"
bitmap$(20) = "0000F1FFFFF00000"
bitmap$(21) = "0000F8F222F00000"
bitmap$(22) = "0000FFF222F00000"
bitmap$(23) = "0000FFF222F00000"
bitmap$(24) = "0000F22222F00000"
bitmap$(25) = "0000F2222F000000"
bitmap$(26) = "0000F2222F000000"
bitmap$(27) = "000F2222FF000000"
bitmap$(28) = "000F2222FF000000"
bitmap$(29) = "000F222F2F000000"
bitmap$(30) = "000F2222FF000000"
bitmap$(31) = "0000F2222F000000"
bitmap$(32) = "0000FF222F000000"
bitmap$(33) = "00000FF22FF00000"
bitmap$(34) = "00000F22F0F00000"
bitmap$(35) = "000000F22FFF0000"
bitmap$(36) = "000000F22F0FF000"
bitmap$(37) = "000000F22F000000"
bitmap$(38) = "000000F22F000000"
bitmap$(39) = "0000FFFFF0000000"
CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 40)

NEXT xd
NEXT yd

GET (48, 0)-(63, 39), l4
GET (48, 40)-(63, 79), p4

pet2:
faza = faza + 1
IF faza = 4 THEN faza = 0
vek = 0
key$ = INKEY$
IF key$ = "6" THEN x = x + 1: vek = 1
IF key$ = "4" THEN x = x - 1: vek = -1
IF vek <> 0 THEN CLS

IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1
IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2
IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3
IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4

IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1
IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2
IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3
IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4

FOR delay = 1 TO 5000: NEXT delay

GOTO pet2

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) = "0000366666300000"
bitmap$(6) = "000006C8C6000000"
bitmap$(7) = "0000006860000000"
bitmap$(8) = "0000001610000000"
bitmap$(9) = "0000711111700000"

bitmap$(10) = "0000711111700000"
bitmap$(11) = "0001111111110000"
bitmap$(12) = "0071111111117000"
bitmap$(13) = "0071111111117000"
bitmap$(14) = "0011711111711000"
bitmap$(15) = "0011711111711000"
bitmap$(16) = "0711711111711700"
bitmap$(17) = "0A11711111711A00"
bitmap$(18) = "0117A11111A71100"
bitmap$(19) = "0117111111171100"
bitmap$(20) = "01104BBBBB401100"
bitmap$(21) = "0860922222906800"
bitmap$(22) = "0000922222900000"
bitmap$(23) = "0000922222900000"
bitmap$(24) = "0000922222900000"
bitmap$(25) = "0000929092900000"
bitmap$(26) = "0000929092900000"
bitmap$(27) = "0000929092900000"
bitmap$(28) = "0000929092900000"
bitmap$(29) = "0000929092900000"
bitmap$(30) = "0000929092900000"
bitmap$(31) = "0000929092900000"
bitmap$(32) = "0000929092900000"
bitmap$(33) = "0000929092900000"
bitmap$(34) = "0000929092900000"
bitmap$(35) = "0000929092900000"
bitmap$(36) = "0000929092900000"
bitmap$(37) = "0000929092900000"
bitmap$(38) = "0000333033300000"
bitmap$(39) = "0003330003330000"

FOR yd = 0 TO 39
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)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88)

NEXT xd
NEXT yd

END

REM zapis do pliku

DEF SEG = &HA000
BSAVE "bitmap1.scr", 0, 57000
COLOR 15: LOCATE 23, 1
INPUT a$
CLS

BLOAD "bitmap1.scr"

END

Piotr-246 · Gość

REM modul BSAVE do gry "Serca 2022"

SCREEN 13

DIM p1(0 TO 160) AS LONG
DIM p2(0 TO 160) AS LONG
DIM p3(0 TO 160) AS LONG
DIM p4(0 TO 160) AS LONG
DIM l1(0 TO 160) AS LONG
DIM l2(0 TO 160) AS LONG
DIM l3(0 TO 160) AS LONG
DIM l4(0 TO 160) AS LONG

DIM bitmap$(0 TO 39)
DIM k$(0 TO 255)

REM palety kolorow *********************************
REM max koloru=3F

FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i

REM kolory za ludzikiem

k$(0) = "00 00 00 00": REM rejestr zero- wolny
k$(1) = "01 0A 0A 0A": REM tlo plyta
k$(2) = "02 06 06 06": REM tlo fuga
k$(3) = "03 10 10 10": REM tlo krawedz
k$(4) = "04 00 2F 00": REM liscie
k$(5) = "05 3F 3F 3F"
k$(6) = "06 3F 3F 3F"
k$(7) = "07 28 0A 00": REM doniczka
k$(8) = "08 00 00 3F": REM niebo
k$(9) = "09 3F 3F 00": REM slonce
k$(10) = "0A 20 20 20": REM framuga zewnetrzna
k$(11) = "0B 18 18 18": REM wentylator obudowa
k$(12) = "0C 3F 3F 3F": REM wentylator faza 1
k$(13) = "0D 2F 2F 2F": REM wentylator faza 2
k$(14) = "0E 1F 1F 1F": REM wentylator faza 3
k$(15) = "0F 3F 3F 3F": REM napis startowy

REM bloki przezroczystosci
k$(16) = "10 3F 3F 3F"
k$(32) = "20 3F 3F 3F"

REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF)

k$(31) = "1F 28 00 00": REM sweter
k$(47) = "2F 05 12 2F": REM spodnie
k$(63) = "3F 17 17 17": REM wlosy i buty
k$(79) = "4F 10 10 10": REM pasek2
k$(95) = "5F 3F 2F 0F":
k$(111) = "6F 3F 2C 17": REM skora1
k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych
k$(143) = "8F 30 20 00": REM nos
k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych
k$(175) = "AF 20 00 00": REM sweter3
k$(191) = "BF 20 20 20": REM pasek
k$(207) = "CF 37 27 06": REM usta

REM bloczek

k$(224) = "E0 00 00 00": REM
k$(225) = "E1 04 04 04": REM
k$(226) = "E2 08 08 08": REM
k$(227) = "E3 0B 0B 0B": REM
k$(228) = "E4 10 10 10": REM
k$(229) = "E5 14 14 14": REM
k$(230) = "E6 18 18 18": REM
k$(231) = "E7 1B 1B 1B": REM
k$(232) = "E8 20 20 20": REM
k$(233) = "E9 24 2B 2B": REM
k$(234) = "EA 28 28 28": REM
k$(235) = "EB 2B 2B 2B": REM
k$(236) = "EC 30 30 30": REM
k$(237) = "ED 34 34 34": REM
k$(238) = "EE 38 38 38": REM
k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika

REM cegly male zlote

k$(242) = "F2 30 2C 10": REM
k$(243) = "F3 28 24 08": REM
k$(244) = "F4 2A 26 0A": REM
k$(245) = "F5 24 20 04": REM

REM cegly male ZIELONE

k$(246) = "F6 22 30 27": REM krawedz
k$(247) = "F7 09 14 0E": REM fuga
k$(248) = "F8 11 1f 17": REM cegla

REM cegly male niebieskie

k$(249) = "F9 22 27 30": REM krawedz
k$(250) = "FA 09 0E 14": REM fuga
k$(251) = "FB 11 17 1F": REM cegla

REM cegly male czerwone

k$(252) = "FC 30 27 27": REM krawedz
k$(253) = "FD 14 0E 0E": REM fuga
k$(254) = "FE 1F 17 17": REM cegla
k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika

FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2)
red$ = "&H" + MID$(k$(i), 4, 2)
gre$ = "&H" + MID$(k$(i), 7, 2)
blu$ = "&H" + MID$(k$(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 ****************************************

petla:

REM animacja
REM ************************* faza 1

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "0000F6F66FF00000"
bitmap$(5) = "000F666666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F11F000000"

bitmap$(10) = "00000F111F000000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "00000F1111FF0000"
bitmap$(13) = "0000F1111F1F0000"
bitmap$(14) = "0000F1111F1F0000"
bitmap$(15) = "0000F111F11F0000"
bitmap$(16) = "0000F11F111F0000"
bitmap$(17) = "000F111F11F1F000"
bitmap$(18) = "000F11F111F1F000"
bitmap$(19) = "00F11F1111F1F000"
bitmap$(20) = "00F1FFFFFFFFFF000"
bitmap$(21) = "00FF0F2222F0FF00"
bitmap$(22) = "00F00F2222F00F00"
bitmap$(23) = "0000F22222F00000"
bitmap$(24) = "0000F222FFFF0000"
bitmap$(25) = "0000F222F22F0000"
bitmap$(26) = "0000F22FF22F0000"
bitmap$(27) = "0000F22F0F2F0000"
bitmap$(28) = "0000F2F00F2F0000"
bitmap$(29) = "000F22F00F2F0000"
bitmap$(30) = "000F22F00F2F0000"
bitmap$(31) = "000F2F000F22F000"
bitmap$(32) = "000F2F000F22F000"
bitmap$(33) = "000F2F0000F2F000"
bitmap$(34) = "000F2F0000F2F000"
bitmap$(35) = "000F2F0000F2F000"
bitmap$(36) = "00F22F0000F22F00"
bitmap$(37) = "00F2F000000FFF00"
bitmap$(38) = "00FFF00000FF0000"
bitmap$(39) = "0FFFF00000000000"

CLS :
FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 40)

NEXT xd
NEXT yd
GET (0, 0)-(15, 39), l1
GET (0, 40)-(15, 79), p1

REM ************************************ FAZA 2

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "0000F6F66FF00000"
bitmap$(5) = "000F666666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F11F000000"

bitmap$(10) = "00000F111F000000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "00000F1111F00000"
bitmap$(13) = "00000F111FF00000"
bitmap$(14) = "00000F111FF00000"
bitmap$(15) = "00000F111FF00000"
bitmap$(16) = "00000F11F1F00000"
bitmap$(17) = "0000F111F1F00000"
bitmap$(18) = "0000F111F1F00000"
bitmap$(19) = "0000F111F1F00000"
bitmap$(20) = "0000F1FFFFF00000"
bitmap$(21) = "0000F8F222F00000"
bitmap$(22) = "0000FFF222F00000"
bitmap$(23) = "0000FFF222F00000"
bitmap$(24) = "0000F22222F00000"
bitmap$(25) = "0000F2222F000000"
bitmap$(26) = "0000F2222F000000"
bitmap$(27) = "000F2F222F000000"
bitmap$(28) = "000F2F222F000000"
bitmap$(29) = "000F2F222F000000"
bitmap$(30) = "000F2F222F000000"
bitmap$(31) = "0000FF222F000000"
bitmap$(32) = "0000FF222F000000"
bitmap$(33) = "00000F222FF00000"
bitmap$(34) = "00000F222FF00000"
bitmap$(35) = "000000F22FFF0000"
bitmap$(36) = "000000F22F0FF000"
bitmap$(37) = "000000F22F000000"
bitmap$(38) = "000000F22F000000"
bitmap$(39) = "0000FFFFF0000000"

FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 40)

NEXT xd
NEXT yd

GET (16, 0)-(31, 39), l2
GET (16, 40)-(31, 79), p2

REM ************************ ruch poziomy FAZA 3

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "0000F6F66FF00000"
bitmap$(5) = "000F666666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F11F000000"

bitmap$(10) = "00000F111F000000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "0000FF1111F00000"
bitmap$(13) = "0000FF1111F00000"
bitmap$(14) = "0000FFF111F00000"
bitmap$(15) = "0000FF1F111F0000"
bitmap$(16) = "0000FF11F11F0000"
bitmap$(17) = "000F1F11F11F0000"
bitmap$(18) = "000F1F11F11F0000"
bitmap$(19) = "000F1F111F1F0000"
bitmap$(20) = "000F1FFFFF1F0000"
bitmap$(21) = "0000F6222FFF0000"
bitmap$(22) = "00000F222FFF0000"
bitmap$(23) = "00000F2222F00000"
bitmap$(24) = "00000F2222F00000"
bitmap$(25) = "00000F2222F00000"

bitmap$(26) = "0000FF2222F00000"
bitmap$(27) = "0000F2F222F00000"
bitmap$(28) = "0000F22F22F00000"
bitmap$(29) = "000F22FF22F00000"
bitmap$(30) = "000F22F0F2F00000"
bitmap$(31) = "000F2F00F2F00000"
bitmap$(32) = "000F2F00F2F00000"
bitmap$(33) = "000F2F00F22F0000"
bitmap$(34) = "000F2F000F2F0000"
bitmap$(35) = "000F2F000F2F0000"
bitmap$(36) = "000F2F000F2F0000"
bitmap$(37) = "00FFFF000F2F0000"
bitmap$(38) = "0000000000F2F000"
bitmap$(39) = "00000000FFFF0000"

FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 40)

NEXT xd
NEXT yd

GET (32, 0)-(47, 39), l3
GET (32, 40)-(47, 79), p3

REM ************************************ FAZA 4

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "0000F6F66FF00000"
bitmap$(5) = "000F666666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F11F000000"

bitmap$(10) = "00000F111F000000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "00000F1111F00000"
bitmap$(13) = "00000F111FF00000"
bitmap$(14) = "00000F111FF00000"
bitmap$(15) = "00000F111FF00000"
bitmap$(16) = "00000F11F1F00000"
bitmap$(17) = "0000F111F1F00000"
bitmap$(18) = "0000F111F1F00000"
bitmap$(19) = "0000F111F1F00000"
bitmap$(20) = "0000F1FFFFF00000"
bitmap$(21) = "0000F8F222F00000"
bitmap$(22) = "0000FFF222F00000"
bitmap$(23) = "0000FFF222F00000"
bitmap$(24) = "0000F22222F00000"
bitmap$(25) = "0000F2222F000000"
bitmap$(26) = "0000F2222F000000"
bitmap$(27) = "000F2222FF000000"
bitmap$(28) = "000F2222FF000000"
bitmap$(29) = "000F222F2F000000"
bitmap$(30) = "000F2222FF000000"
bitmap$(31) = "0000F2222F000000"
bitmap$(32) = "0000FF222F000000"
bitmap$(33) = "00000FFF2FF00000"
bitmap$(34) = "00000F22F0F00000"
bitmap$(35) = "000000F22FFF0000"
bitmap$(36) = "000000F22F0FF000"
bitmap$(37) = "000000F22F000000"
bitmap$(38) = "000000F22F000000"
bitmap$(39) = "0000FFFFF0000000"

FOR yd = 0 TO 39
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 40)

NEXT xd
NEXT yd

GET (48, 0)-(63, 39), l4
GET (48, 40)-(63, 79), p4

REM END

REM *********** petla glowna **************************

pet2:

IF faza = 4 THEN faza = 0
vek = 0
key$ = INKEY$
IF key$ = "6" THEN x = x + 1: vek = 1
IF key$ = "4" THEN x = x - 1: vek = -1
IF vek <> 0 THEN CLS

IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1
IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2
IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3
IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4

IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1
IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2
IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3
IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4
IF vek <> 0 THEN faza = faza + 1

FOR delay = 1 TO 5000: NEXT delay

GOTO pet2

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) = "0000366666300000"
bitmap$(6) = "000006C8C6000000"
bitmap$(7) = "0000006860000000"
bitmap$(8) = "0000001610000000"
bitmap$(9) = "0000711111700000"

bitmap$(10) = "0000711111700000"
bitmap$(11) = "0001111111110000"
bitmap$(12) = "0071111111117000"
bitmap$(13) = "0071111111117000"
bitmap$(14) = "0011711111711000"
bitmap$(15) = "0011711111711000"
bitmap$(16) = "0711711111711700"
bitmap$(17) = "0A11711111711A00"
bitmap$(18) = "0117A11111A71100"
bitmap$(19) = "0117111111171100"
bitmap$(20) = "01104BBBBB401100"
bitmap$(21) = "0860922222906800"
bitmap$(22) = "0000922222900000"
bitmap$(23) = "0000922222900000"
bitmap$(24) = "0000922222900000"
bitmap$(25) = "0000929092900000"
bitmap$(26) = "0000929092900000"
bitmap$(27) = "0000929092900000"
bitmap$(28) = "0000929092900000"
bitmap$(29) = "0000929092900000"
bitmap$(30) = "0000929092900000"
bitmap$(31) = "0000929092900000"
bitmap$(32) = "0000929092900000"
bitmap$(33) = "0000929092900000"
bitmap$(34) = "0000929092900000"
bitmap$(35) = "0000929092900000"
bitmap$(36) = "0000929092900000"
bitmap$(37) = "0000929092900000"
bitmap$(38) = "0000333033300000"
bitmap$(39) = "0003330003330000"

FOR yd = 0 TO 39
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)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88)

NEXT xd
NEXT yd

END

REM zapis do pliku

DEF SEG = &HA000
BSAVE "bitmap1.scr", 0, 57000
COLOR 15: LOCATE 23, 1
INPUT a$
CLS

BLOAD "bitmap1.scr"

END

Piotr-246 · Gość

REM modul BSAVE do gry "Serca 2022"

SCREEN 13

DIM p1(0 TO 192) AS LONG
DIM p2(0 TO 192) AS LONG
DIM p3(0 TO 192) AS LONG
DIM p4(0 TO 192) AS LONG
DIM l1(0 TO 192) AS LONG
DIM l2(0 TO 192) AS LONG
DIM l3(0 TO 192) AS LONG
DIM l4(0 TO 192) AS LONG

DIM bitmap$(0 TO 47)
DIM k$(0 TO 255)

REM palety kolorow *********************************
REM max koloru=3F

FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i

REM kolory za ludzikiem

k$(0) = "00 00 00 00": REM rejestr zero- wolny
k$(1) = "01 0A 0A 0A": REM tlo plyta
k$(2) = "02 06 06 06": REM tlo fuga
k$(3) = "03 10 10 10": REM tlo krawedz
k$(4) = "04 00 2F 00": REM liscie
k$(5) = "05 3F 3F 3F"
k$(6) = "06 3F 3F 3F"
k$(7) = "07 28 0A 00": REM doniczka
k$(8) = "08 00 00 3F": REM niebo
k$(9) = "09 3F 3F 00": REM slonce
k$(10) = "0A 20 20 20": REM framuga zewnetrzna
k$(11) = "0B 18 18 18": REM wentylator obudowa
k$(12) = "0C 3F 3F 3F": REM wentylator faza 1
k$(13) = "0D 2F 2F 2F": REM wentylator faza 2
k$(14) = "0E 1F 1F 1F": REM wentylator faza 3
k$(15) = "0F 3F 3F 3F": REM napis startowy

REM bloki przezroczystosci
k$(16) = "10 3F 3F 3F"
k$(32) = "20 3F 3F 3F"

REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF)

k$(31) = "1F 28 00 00": REM sweter
k$(47) = "2F 05 12 2F": REM spodnie
k$(63) = "3F 17 17 17": REM wlosy i buty
k$(79) = "4F 10 10 10": REM pasek2
k$(95) = "5F 3F 2F 0F":
k$(111) = "6F 3F 2C 17": REM skora1
k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych
k$(143) = "8F 30 20 00": REM nos
k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych
k$(175) = "AF 20 00 00": REM sweter3
k$(191) = "BF 20 20 20": REM pasek
k$(207) = "CF 37 27 06": REM usta

REM bloczek

k$(224) = "E0 00 00 00": REM
k$(225) = "E1 04 04 04": REM
k$(226) = "E2 08 08 08": REM
k$(227) = "E3 0B 0B 0B": REM
k$(228) = "E4 10 10 10": REM
k$(229) = "E5 14 14 14": REM
k$(230) = "E6 18 18 18": REM
k$(231) = "E7 1B 1B 1B": REM
k$(232) = "E8 20 20 20": REM
k$(233) = "E9 24 2B 2B": REM
k$(234) = "EA 28 28 28": REM
k$(235) = "EB 2B 2B 2B": REM
k$(236) = "EC 30 30 30": REM
k$(237) = "ED 34 34 34": REM
k$(238) = "EE 38 38 38": REM
k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika

REM cegly male zlote

k$(242) = "F2 30 2C 10": REM
k$(243) = "F3 28 24 08": REM
k$(244) = "F4 2A 26 0A": REM
k$(245) = "F5 24 20 04": REM

REM cegly male ZIELONE

k$(246) = "F6 22 30 27": REM krawedz
k$(247) = "F7 09 14 0E": REM fuga
k$(248) = "F8 11 1f 17": REM cegla

REM cegly male niebieskie

k$(249) = "F9 22 27 30": REM krawedz
k$(250) = "FA 09 0E 14": REM fuga
k$(251) = "FB 11 17 1F": REM cegla

REM cegly male czerwone

k$(252) = "FC 30 27 27": REM krawedz
k$(253) = "FD 14 0E 0E": REM fuga
k$(254) = "FE 1F 17 17": REM cegla
k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika

FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2)
red$ = "&H" + MID$(k$(i), 4, 2)
gre$ = "&H" + MID$(k$(i), 7, 2)
blu$ = "&H" + MID$(k$(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 ****************************************

petla:

REM animacja
REM ************************* faza 1

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "0000F6F66FF00000"
bitmap$(5) = "000F666666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F11F000000"

bitmap$(10) = "00000F111F000000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "00000F1111FF0000"
bitmap$(13) = "0000F1111F1F0000"
bitmap$(14) = "0000F1111F1F0000"
bitmap$(15) = "0000F111F11F0000"
bitmap$(16) = "0000F11F111F0000"
bitmap$(17) = "000F111F11F1F000"
bitmap$(18) = "000F11F111F1F000"
bitmap$(19) = "00F11F1111F1F000"
bitmap$(20) = "00F1FFFFFFFFFF00"
bitmap$(21) = "00FF0F2222F0FF00"
bitmap$(22) = "00F00F2222F00F00"
bitmap$(23) = "0000F22222F00000"
bitmap$(24) = "0000F222FFFF0000"
bitmap$(25) = "0000F222F22F0000"
bitmap$(26) = "0000F22FF22F0000"
bitmap$(27) = "0000F22F0F2F0000"
bitmap$(28) = "0000F2F00F2F0000"
bitmap$(29) = "000F22F00F2F0000"
bitmap$(30) = "000F22F00F2F0000"
bitmap$(31) = "000F2F000F22F000"
bitmap$(32) = "000F2F000F22F000"
bitmap$(33) = "000F2F0000F2F000"
bitmap$(34) = "000F2F0000F2F000"
bitmap$(35) = "000F2F0000F2F000"
bitmap$(36) = "00F22F0000F22F00"
bitmap$(37) = "00F2F000000FFF00"
bitmap$(38) = "00FFF00000FF0000"
bitmap$(39) = "0FFFF00000000000"
bitmap$(40) = "0000000000000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

CLS :
FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 48)

NEXT xd
NEXT yd
GET (0, 0)-(15, 47), l1
GET (0, 48)-(15, 95), p1

REM ************************************ FAZA 2

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "0000F6F66FF00000"
bitmap$(5) = "000F666666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F11F000000"

bitmap$(10) = "00000F111F000000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "00000F1111F00000"
bitmap$(13) = "00000F111FF00000"
bitmap$(14) = "00000F111FF00000"
bitmap$(15) = "00000F111FF00000"
bitmap$(16) = "00000F11F1F00000"
bitmap$(17) = "0000F111F1F00000"
bitmap$(18) = "0000F111F1F00000"
bitmap$(19) = "0000F111F1F00000"
bitmap$(20) = "0000F1FFFFF00000"
bitmap$(21) = "0000F8F222F00000"
bitmap$(22) = "0000FFF222F00000"
bitmap$(23) = "0000FFF222F00000"
bitmap$(24) = "0000F22222F00000"
bitmap$(25) = "0000F2222F000000"
bitmap$(26) = "0000F2222F000000"
bitmap$(27) = "000F2F222F000000"
bitmap$(28) = "000F2F222F000000"
bitmap$(29) = "000F2F222F000000"
bitmap$(30) = "000F2F222F000000"
bitmap$(31) = "0000FF222F000000"
bitmap$(32) = "0000FF222F000000"
bitmap$(33) = "00000F222FF00000"
bitmap$(34) = "00000F222FF00000"
bitmap$(35) = "000000F22FFF0000"
bitmap$(36) = "000000F22F0FF000"
bitmap$(37) = "000000F22F000000"
bitmap$(38) = "000000F22F000000"
bitmap$(39) = "0000FFFFF0000000"
bitmap$(40) = "0000000000000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 48)

NEXT xd
NEXT yd

GET (16, 0)-(31, 47), l2
GET (16, 48)-(31, 95), p2

REM ************************ ruch poziomy FAZA 3

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "0000F6F66FF00000"
bitmap$(5) = "000F666666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F11F000000"

bitmap$(10) = "00000F111F000000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "0000FF1111F00000"
bitmap$(13) = "0000FF1111F00000"
bitmap$(14) = "0000FFF111F00000"
bitmap$(15) = "0000FF1F111F0000"
bitmap$(16) = "0000FF11F11F0000"
bitmap$(17) = "000F1F11F11F0000"
bitmap$(18) = "000F1F11F11F0000"
bitmap$(19) = "000F1F111F1F0000"
bitmap$(20) = "000F1FFFFF1F0000"
bitmap$(21) = "0000F6222FFF0000"
bitmap$(22) = "00000F222FFF0000"
bitmap$(23) = "00000F2222F00000"
bitmap$(24) = "00000F2222F00000"
bitmap$(25) = "00000F2222F00000"

bitmap$(26) = "0000FF2222F00000"
bitmap$(27) = "0000F2F222F00000"
bitmap$(28) = "0000F22F22F00000"
bitmap$(29) = "000F22FF22F00000"
bitmap$(30) = "000F22F0F2F00000"
bitmap$(31) = "000F2F00F2F00000"
bitmap$(32) = "000F2F00F2F00000"
bitmap$(33) = "000F2F00F22F0000"
bitmap$(34) = "000F2F000F2F0000"
bitmap$(35) = "000F2F000F2F0000"
bitmap$(36) = "000F2F000F2F0000"
bitmap$(37) = "00FFFF000F2F0000"
bitmap$(38) = "0000000000F2F000"
bitmap$(39) = "00000000FFFF0000"
bitmap$(40) = "0000000000000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 48)

NEXT xd
NEXT yd

GET (32, 0)-(47, 47), l3
GET (32, 48)-(47, 95), p3

REM ************************************ FAZA 4

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "0000F6F66FF00000"
bitmap$(5) = "000F666666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "00000F666F000000"
bitmap$(8) = "000000FFFF000000"
bitmap$(9) = "000000F11F000000"

bitmap$(10) = "00000F111F000000"
bitmap$(11) = "00000F1111F00000"
bitmap$(12) = "00000F1111F00000"
bitmap$(13) = "00000F111FF00000"
bitmap$(14) = "00000F111FF00000"
bitmap$(15) = "00000F111FF00000"
bitmap$(16) = "00000F11F1F00000"
bitmap$(17) = "0000F111F1F00000"
bitmap$(18) = "0000F111F1F00000"
bitmap$(19) = "0000F111F1F00000"
bitmap$(20) = "0000F1FFFFF00000"
bitmap$(21) = "0000F8F222F00000"
bitmap$(22) = "0000FFF222F00000"
bitmap$(23) = "0000FFF222F00000"
bitmap$(24) = "0000F22222F00000"
bitmap$(25) = "0000F2222F000000"
bitmap$(26) = "0000F2222F000000"
bitmap$(27) = "000F2222FF000000"
bitmap$(28) = "000F2222FF000000"
bitmap$(29) = "000F222F2F000000"
bitmap$(30) = "000F2222FF000000"
bitmap$(31) = "0000F2222F000000"
bitmap$(32) = "0000FF222F000000"
bitmap$(33) = "00000FFF2FF00000"
bitmap$(34) = "00000F22F0F00000"
bitmap$(35) = "000000F22FFF0000"
bitmap$(36) = "000000F22F0FF000"
bitmap$(37) = "000000F22F000000"
bitmap$(38) = "000000F22F000000"
bitmap$(39) = "0000FFFFF0000000"
bitmap$(40) = "0000000000000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 48)

NEXT xd
NEXT yd

GET (48, 0)-(63, 47), l4
GET (48, 48)-(63, 95), p4

REM END

REM *********** petla glowna **************************

pet2:

IF faza = 4 THEN faza = 0
vek = 0
key$ = INKEY$
IF key$ = "6" THEN x = x + 1: vek = 1
IF key$ = "4" THEN x = x - 1: vek = -1
IF vek <> 0 THEN CLS

IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1
IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2
IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3
IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4

IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1
IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2
IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3
IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4
IF vek <> 0 THEN faza = faza + 1

FOR delay = 1 TO 5000: NEXT delay

GOTO pet2

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) = "0000366666300000"
bitmap$(6) = "000006C8C6000000"
bitmap$(7) = "0000006860000000"
bitmap$(8) = "0000001610000000"
bitmap$(9) = "0000711111700000"

bitmap$(10) = "0000711111700000"
bitmap$(11) = "0001111111110000"
bitmap$(12) = "0071111111117000"
bitmap$(13) = "0071111111117000"
bitmap$(14) = "0011711111711000"
bitmap$(15) = "0011711111711000"
bitmap$(16) = "0711711111711700"
bitmap$(17) = "0A11711111711A00"
bitmap$(18) = "0117A11111A71100"
bitmap$(19) = "0117111111171100"
bitmap$(20) = "01104BBBBB401100"
bitmap$(21) = "0860922222906800"
bitmap$(22) = "0000922222900000"
bitmap$(23) = "0000922222900000"
bitmap$(24) = "0000922222900000"
bitmap$(25) = "0000929092900000"
bitmap$(26) = "0000929092900000"
bitmap$(27) = "0000929092900000"
bitmap$(28) = "0000929092900000"
bitmap$(29) = "0000929092900000"
bitmap$(30) = "0000929092900000"
bitmap$(31) = "0000929092900000"
bitmap$(32) = "0000929092900000"
bitmap$(33) = "0000929092900000"
bitmap$(34) = "0000929092900000"
bitmap$(35) = "0000929092900000"
bitmap$(36) = "0000929092900000"
bitmap$(37) = "0000929092900000"
bitmap$(38) = "0000333033300000"
bitmap$(39) = "0003330003330000"

FOR yd = 0 TO 39
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)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88)

NEXT xd
NEXT yd

END

REM zapis do pliku

DEF SEG = &HA000
BSAVE "bitmap1.scr", 0, 57000
COLOR 15: LOCATE 23, 1
INPUT a$
CLS

BLOAD "bitmap1.scr"

END

Piotr-246 · Gość

REM modul BSAVE do gry "Serca 2022"

SCREEN 13

DIM p1(0 TO 192) AS LONG
DIM p2(0 TO 192) AS LONG
DIM p3(0 TO 192) AS LONG
DIM p4(0 TO 192) AS LONG
DIM l1(0 TO 192) AS LONG
DIM l2(0 TO 192) AS LONG
DIM l3(0 TO 192) AS LONG
DIM l4(0 TO 192) AS LONG

DIM bitmap$(0 TO 47)
DIM k$(0 TO 255)

REM palety kolorow *********************************
REM max koloru=3F

FOR i = 0 TO 255: k$(i) = "00 00 00 00": NEXT i

REM kolory za ludzikiem

k$(0) = "00 00 00 00": REM rejestr zero- wolny
k$(1) = "01 0A 0A 0A": REM tlo plyta
k$(2) = "02 06 06 06": REM tlo fuga
k$(3) = "03 10 10 10": REM tlo krawedz
k$(4) = "04 00 2F 00": REM liscie
k$(5) = "05 3F 3F 3F"
k$(6) = "06 3F 3F 3F"
k$(7) = "07 28 0A 00": REM doniczka
k$(8) = "08 00 00 3F": REM niebo
k$(9) = "09 3F 3F 00": REM slonce
k$(10) = "0A 20 20 20": REM framuga zewnetrzna
k$(11) = "0B 18 18 18": REM wentylator obudowa
k$(12) = "0C 3F 3F 3F": REM wentylator faza 1
k$(13) = "0D 2F 2F 2F": REM wentylator faza 2
k$(14) = "0E 1F 1F 1F": REM wentylator faza 3
k$(15) = "0F 3F 3F 3F": REM napis startowy

REM bloki przezroczystosci
k$(16) = "10 3F 3F 3F"
k$(32) = "20 3F 3F 3F"

REM ******* ludzik - uwaga rejestry sa rozrzucone nF (1F-FF)

k$(31) = "1F 28 00 00": REM sweter
k$(47) = "2F 05 12 2F": REM spodnie
k$(63) = "3F 17 17 17": REM wlosy i buty
k$(79) = "4F 10 10 10": REM pasek2
k$(95) = "5F 3F 2F 0F":
k$(111) = "6F 3F 2C 17": REM skora1
k$(127) = "7F 18 00 00": REM sweter 2 przeniesiony do przezroczystych
k$(143) = "8F 30 20 00": REM nos
k$(159) = "9F 04 0D 23": REM spodnie2 przeniesiony do przezroczystych
k$(175) = "AF 20 00 00": REM sweter3
k$(191) = "BF 20 20 20": REM pasek
k$(207) = "CF 37 27 06": REM usta

REM bloczek

k$(224) = "E0 00 00 00": REM
k$(225) = "E1 04 04 04": REM
k$(226) = "E2 08 08 08": REM
k$(227) = "E3 0B 0B 0B": REM
k$(228) = "E4 10 10 10": REM
k$(229) = "E5 14 14 14": REM
k$(230) = "E6 18 18 18": REM
k$(231) = "E7 1B 1B 1B": REM
k$(232) = "E8 20 20 20": REM
k$(233) = "E9 24 2B 2B": REM
k$(234) = "EA 28 28 28": REM
k$(235) = "EB 2B 2B 2B": REM
k$(236) = "EC 30 30 30": REM
k$(237) = "ED 34 34 34": REM
k$(238) = "EE 38 38 38": REM
k$(239) = "EF 3F 3F 3F": REM zarezerwowany dla ludzika

REM cegly male zlote

k$(242) = "F2 30 2C 10": REM
k$(243) = "F3 28 24 08": REM
k$(244) = "F4 2A 26 0A": REM
k$(245) = "F5 24 20 04": REM

REM cegly male ZIELONE

k$(246) = "F6 22 30 27": REM krawedz
k$(247) = "F7 09 14 0E": REM fuga
k$(248) = "F8 11 1f 17": REM cegla

REM cegly male niebieskie

k$(249) = "F9 22 27 30": REM krawedz
k$(250) = "FA 09 0E 14": REM fuga
k$(251) = "FB 11 17 1F": REM cegla

REM cegly male czerwone

k$(252) = "FC 30 27 27": REM krawedz
k$(253) = "FD 14 0E 0E": REM fuga
k$(254) = "FE 1F 17 17": REM cegla
k$(255) = "FF 3F 3F 3F": REM zarezerwowany dla ludzika

FOR i = 0 TO 255: rej$ = "&H" + MID$(k$(i), 1, 2)
red$ = "&H" + MID$(k$(i), 4, 2)
gre$ = "&H" + MID$(k$(i), 7, 2)
blu$ = "&H" + MID$(k$(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 ****************************************

petla:

REM animacja
REM ************************* faza 1

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "0000F6F66FF00000"
bitmap$(5) = "000F666666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "0000F66666F00000"
bitmap$(8) = "00000F666F000000"
bitmap$(9) = "000000FFFF000000"

bitmap$(10) = "000000F11F000000"
bitmap$(11) = "00000F111F000000"
bitmap$(12) = "00000F1111F00000"
bitmap$(13) = "00000F1111FF0000"
bitmap$(14) = "0000F1111F1F0000"
bitmap$(15) = "0000F1111F1F0000"
bitmap$(16) = "0000F111F11F0000"
bitmap$(17) = "0000F11F111F0000"
bitmap$(18) = "000F111F11F1F000"
bitmap$(19) = "000F11F111F1F000"
bitmap$(20) = "00F11F1111F1F000"
bitmap$(21) = "00F1FFFFFFFFFF00"
bitmap$(22) = "00FF0F2222F0FF00"
bitmap$(23) = "00F00F2222F00F00"
bitmap$(24) = "0000F22222F00000"
bitmap$(25) = "0000F222FFFF0000"
bitmap$(26) = "0000F222F22F0000"
bitmap$(27) = "0000F22FF22F0000"
bitmap$(28) = "0000F22F0F2F0000"
bitmap$(29) = "0000F2F00F2F0000"
bitmap$(30) = "000F22F00F2F0000"
bitmap$(31) = "000F22F00F2F0000"
bitmap$(32) = "000F2F000F22F000"
bitmap$(33) = "000F2F000F22F000"
bitmap$(34) = "000F2F0000F2F000"
bitmap$(35) = "000F2F0000F2F000"
bitmap$(36) = "000F2F0000F2F000"
bitmap$(37) = "00F22F0000F22F00"
bitmap$(38) = "00F2F000000FFF00"
bitmap$(39) = "00FFF00000FF0000"
bitmap$(40) = "0FFFF00000000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

CLS :
FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 48)

NEXT xd
NEXT yd
GET (0, 0)-(15, 47), l1
GET (0, 48)-(15, 95), p1

REM ************************************ FAZA 2

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "0000F6F66FF00000"
bitmap$(5) = "000F666666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "0000F66666F00000"
bitmap$(8) = "00000F666F000000"
bitmap$(9) = "000000FFFF000000"
bitmap$(10) = "000000F11F000000"

bitmap$(11) = "00000F111F000000"
bitmap$(12) = "00000F1111F00000"
bitmap$(13) = "00000F1111F00000"
bitmap$(14) = "00000F111FF00000"
bitmap$(15) = "00000F111FF00000"
bitmap$(16) = "00000F111FF00000"
bitmap$(17) = "00000F11F1F00000"
bitmap$(18) = "0000F111F1F00000"
bitmap$(19) = "0000F111F1F00000"
bitmap$(20) = "0000F111F1F00000"
bitmap$(21) = "0000F1FFFFF00000"
bitmap$(22) = "0000F8F222F00000"
bitmap$(23) = "0000FFF222F00000"
bitmap$(24) = "0000FFF222F00000"
bitmap$(25) = "0000F22222F00000"
bitmap$(26) = "0000F2222F000000"
bitmap$(27) = "0000F2222F000000"
bitmap$(28) = "000F2F222F000000"
bitmap$(29) = "000F2F222F000000"
bitmap$(30) = "000F2F222F000000"
bitmap$(31) = "000F2F222F000000"
bitmap$(32) = "0000FF222F000000"
bitmap$(33) = "0000FF222F000000"
bitmap$(34) = "00000F222FF00000"
bitmap$(35) = "00000F222FF00000"
bitmap$(36) = "000000F22FFF0000"
bitmap$(37) = "000000F22F0FF000"
bitmap$(38) = "000000F22F000000"
bitmap$(39) = "000000F22F000000"
bitmap$(40) = "0000FFFFF0000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 48)

NEXT xd
NEXT yd

GET (16, 0)-(31, 47), l2
GET (16, 48)-(31, 95), p2

REM ************************ ruch poziomy FAZA 3

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "0000F6F66FF00000"
bitmap$(5) = "000F666666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "0000F66666F00000"
bitmap$(8) = "00000F666F000000"
bitmap$(9) = "000000FFFF000000"

bitmap$(10) = "000000F11F000000"
bitmap$(11) = "00000F111F000000"
bitmap$(12) = "00000F1111F00000"
bitmap$(13) = "0000FF1111F00000"
bitmap$(14) = "0000FF1111F00000"
bitmap$(15) = "0000FFF111F00000"
bitmap$(16) = "0000FF1F111F0000"
bitmap$(17) = "0000FF11F11F0000"
bitmap$(18) = "000F1F11F11F0000"
bitmap$(19) = "000F1F11F11F0000"
bitmap$(20) = "000F1F111F1F0000"
bitmap$(21) = "000F1FFFFF1F0000"
bitmap$(22) = "0000F6222FFF0000"
bitmap$(23) = "00000F222FFF0000"
bitmap$(24) = "00000F2222F00000"
bitmap$(25) = "00000F2222F00000"
bitmap$(26) = "00000F2222F00000"
bitmap$(27) = "0000FF2222F00000"
bitmap$(28) = "0000F2F222F00000"
bitmap$(29) = "0000F22F22F00000"
bitmap$(30) = "000F22FF22F00000"
bitmap$(31) = "000F22F0F2F00000"
bitmap$(32) = "000F2F00F2F00000"
bitmap$(33) = "000F2F00F2F00000"
bitmap$(34) = "000F2F00F22F0000"
bitmap$(35) = "000F2F000F2F0000"
bitmap$(36) = "000F2F000F2F0000"
bitmap$(37) = "000F2F000F2F0000"
bitmap$(38) = "00FFFF000F2F0000"
bitmap$(39) = "0000000000F2F000"
bitmap$(40) = "00000000FFFF0000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 48)

NEXT xd
NEXT yd

GET (32, 0)-(47, 47), l3
GET (32, 48)-(47, 95), p3

REM ************************************ FAZA 4

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "0000F6F66FF00000"
bitmap$(5) = "000F666666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "0000F66666F00000"
bitmap$(8) = "00000F666F000000"
bitmap$(9) = "000000FFFF000000"

bitmap$(10) = "000000F11F000000"
bitmap$(11) = "00000F111F000000"
bitmap$(12) = "00000F1111F00000"
bitmap$(13) = "00000F1111F00000"
bitmap$(14) = "00000F111FF00000"
bitmap$(15) = "00000F111FF00000"
bitmap$(16) = "00000F111FF00000"
bitmap$(17) = "00000F11F1F00000"
bitmap$(18) = "0000F111F1F00000"
bitmap$(19) = "0000F111F1F00000"
bitmap$(20) = "0000F111F1F00000"
bitmap$(21) = "0000F1FFFFF00000"
bitmap$(22) = "0000F8F222F00000"
bitmap$(23) = "0000FFF222F00000"
bitmap$(24) = "0000FFF222F00000"
bitmap$(25) = "0000F22222F00000"
bitmap$(26) = "0000F2222F000000"
bitmap$(27) = "0000F2222F000000"
bitmap$(28) = "000F2222FF000000"
bitmap$(29) = "000F2222FF000000"
bitmap$(30) = "000F222F2F000000"
bitmap$(31) = "000F2222FF000000"
bitmap$(32) = "0000F2222F000000"
bitmap$(33) = "0000FF222F000000"
bitmap$(34) = "00000FFF2FF00000"
bitmap$(35) = "00000F22F0F00000"
bitmap$(36) = "000000F22FFF0000"
bitmap$(37) = "000000F22F0FF000"
bitmap$(38) = "000000F22F000000"
bitmap$(39) = "000000F22F000000"
bitmap$(40) = "0000FFFFF0000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 48)

NEXT xd
NEXT yd

GET (48, 0)-(63, 47), l4
GET (48, 48)-(63, 95), p4

REM END

REM *********** petla glowna **************************

pet2:

IF faza = 4 THEN faza = 0
vek = 0
key$ = INKEY$
IF key$ = "6" THEN x = x + 1: vek = 1
IF key$ = "4" THEN x = x - 1: vek = -1
IF vek <> 0 THEN CLS

IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1
IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2
IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3
IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4

IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1
IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2
IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3
IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4
IF vek <> 0 THEN faza = faza + 1

FOR delay = 1 TO 5000: NEXT delay

GOTO pet2

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) = "0000366666300000"
bitmap$(6) = "000006C8C6000000"
bitmap$(7) = "0000006860000000"
bitmap$(8) = "0000001610000000"
bitmap$(9) = "0000711111700000"

bitmap$(10) = "0000711111700000"
bitmap$(11) = "0001111111110000"
bitmap$(12) = "0071111111117000"
bitmap$(13) = "0071111111117000"
bitmap$(14) = "0011711111711000"
bitmap$(15) = "0011711111711000"
bitmap$(16) = "0711711111711700"
bitmap$(17) = "0A11711111711A00"
bitmap$(18) = "0117A11111A71100"
bitmap$(19) = "0117111111171100"
bitmap$(20) = "01104BBBBB401100"
bitmap$(21) = "0860922222906800"
bitmap$(22) = "0000922222900000"
bitmap$(23) = "0000922222900000"
bitmap$(24) = "0000922222900000"
bitmap$(25) = "0000929092900000"
bitmap$(26) = "0000929092900000"
bitmap$(27) = "0000929092900000"
bitmap$(28) = "0000929092900000"
bitmap$(29) = "0000929092900000"
bitmap$(30) = "0000929092900000"
bitmap$(31) = "0000929092900000"
bitmap$(32) = "0000929092900000"
bitmap$(33) = "0000929092900000"
bitmap$(34) = "0000929092900000"
bitmap$(35) = "0000929092900000"
bitmap$(36) = "0000929092900000"
bitmap$(37) = "0000929092900000"
bitmap$(38) = "0000333033300000"
bitmap$(39) = "0003330003330000"

FOR yd = 0 TO 39
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)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88)

NEXT xd
NEXT yd

END

REM zapis do pliku

DEF SEG = &HA000
BSAVE "bitmap1.scr", 0, 57000
COLOR 15: LOCATE 23, 1
INPUT a$
CLS

BLOAD "bitmap1.scr"

END

Piotr-246 · Gość

REM modul BSAVE do gry "Serca 2022"

SCREEN 13

DIM p1(0 TO 192) AS LONG
DIM p2(0 TO 192) AS LONG
DIM p3(0 TO 192) AS LONG
DIM p4(0 TO 192) AS LONG
DIM l1(0 TO 192) AS LONG
DIM l2(0 TO 192) AS LONG
DIM l3(0 TO 192) AS LONG
DIM l4(0 TO 192) AS LONG

DIM bitmap$(0 TO 47)

REM rysunki ****************************************

petla:

REM animacja
REM ************************* faza 1

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000FAAAF3F00000"
bitmap$(4) = "0000FAFAAFF00000"
bitmap$(5) = "000FAAAAAAF00000"
bitmap$(6) = "0000FAAAAAF00000"
bitmap$(7) = "0000FAAAAAF00000"
bitmap$(8) = "00000FAAAF000000"
bitmap$(9) = "000000FFFF000000"

bitmap$(10) = "000000FDDF000000"
bitmap$(11) = "00000FDDDF000000"
bitmap$(12) = "00000FDDDDF00000"
bitmap$(13) = "00000FDDDDFF0000"
bitmap$(14) = "0000FDDDDFBF0000"
bitmap$(15) = "0000FDDDDFBF0000"
bitmap$(16) = "0000FDDDFBBF0000"
bitmap$(17) = "0000FDDFBBBF0000"
bitmap$(18) = "000FDDDFBBF9F000"
bitmap$(19) = "000FDDFBBBF9F000"
bitmap$(20) = "00FDDFBBBBF9F000"
bitmap$(21) = "00FDFFFFFFFFFF00"
bitmap$(22) = "00FF0F7777F0FF00"
bitmap$(23) = "00F00F7777F00F00"
bitmap$(24) = "0000F77777F00000"
bitmap$(25) = "0000F777FFFF0000"
bitmap$(26) = "0000F777F55F0000"
bitmap$(27) = "0000F77FF55F0000"
bitmap$(28) = "0000F77F0F5F0000"
bitmap$(29) = "0000F7F00F5F0000"
bitmap$(30) = "000F77F00F5F0000"
bitmap$(31) = "000F77F00F5F0000"
bitmap$(32) = "000F7F000F55F000"
bitmap$(33) = "000F7F000F55F000"
bitmap$(34) = "000F7F0000F5F000"
bitmap$(35) = "000F7F0000F5F000"
bitmap$(36) = "000F7F0000F5F000"
bitmap$(37) = "00F77F0000F55F00"
bitmap$(38) = "00F7F000000FFF00"
bitmap$(39) = "00FFF00000FF0000"
bitmap$(40) = "0FFFF00000000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

CLS :
FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)
COLOR 16 + VAL("&H" + znak$)
PSET (xd, yd): PSET (16 - xd, yd + 48)
REM IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 48)

NEXT xd
NEXT yd
GET (0, 0)-(15, 47), l1
GET (0, 48)-(15, 95), p1

REM ************************************ FAZA 2

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "0000F6F66FF00000"
bitmap$(5) = "000F666666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "0000F66666F00000"
bitmap$(8) = "00000F666F000000"
bitmap$(9) = "000000FFFF000000"
bitmap$(10) = "000000F11F000000"

bitmap$(11) = "00000F111F000000"
bitmap$(12) = "00000F1111F00000"
bitmap$(13) = "00000F1111F00000"
bitmap$(14) = "00000F111FF00000"
bitmap$(15) = "00000F111FF00000"
bitmap$(16) = "00000F111FF00000"
bitmap$(17) = "00000F11F1F00000"
bitmap$(18) = "0000F111F1F00000"
bitmap$(19) = "0000F111F1F00000"
bitmap$(20) = "0000F111F1F00000"
bitmap$(21) = "0000F1FFFFF00000"
bitmap$(22) = "0000F8F222F00000"
bitmap$(23) = "0000FFF222F00000"
bitmap$(24) = "0000FFF222F00000"
bitmap$(25) = "0000F22222F00000"
bitmap$(26) = "0000F2222F000000"
bitmap$(27) = "0000F2222F000000"
bitmap$(28) = "000F2F222F000000"
bitmap$(29) = "000F2F222F000000"
bitmap$(30) = "000F2F222F000000"
bitmap$(31) = "000F2F222F000000"
bitmap$(32) = "0000FF222F000000"
bitmap$(33) = "0000FF222F000000"
bitmap$(34) = "00000F222FF00000"
bitmap$(35) = "00000F222FF00000"
bitmap$(36) = "000000F22FFF0000"
bitmap$(37) = "000000F22F0FF000"
bitmap$(38) = "000000F22F000000"
bitmap$(39) = "000000F22F000000"
bitmap$(40) = "0000FFFFF0000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 48)

NEXT xd
NEXT yd

GET (16, 0)-(31, 47), l2
GET (16, 48)-(31, 95), p2

REM ************************ ruch poziomy FAZA 3

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "0000F6F66FF00000"
bitmap$(5) = "000F666666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "0000F66666F00000"
bitmap$(8) = "00000F666F000000"
bitmap$(9) = "000000FFFF000000"

bitmap$(10) = "000000F11F000000"
bitmap$(11) = "00000F111F000000"
bitmap$(12) = "00000F1111F00000"
bitmap$(13) = "0000FF1111F00000"
bitmap$(14) = "0000FF1111F00000"
bitmap$(15) = "0000FFF111F00000"
bitmap$(16) = "0000FF1F111F0000"
bitmap$(17) = "0000FF11F11F0000"
bitmap$(18) = "000F1F11F11F0000"
bitmap$(19) = "000F1F11F11F0000"
bitmap$(20) = "000F1F111F1F0000"
bitmap$(21) = "000F1FFFFF1F0000"
bitmap$(22) = "0000F6222FFF0000"
bitmap$(23) = "00000F222FFF0000"
bitmap$(24) = "00000F2222F00000"
bitmap$(25) = "00000F2222F00000"
bitmap$(26) = "00000F2222F00000"
bitmap$(27) = "0000FF2222F00000"
bitmap$(28) = "0000F2F222F00000"
bitmap$(29) = "0000F22F22F00000"
bitmap$(30) = "000F22FF22F00000"
bitmap$(31) = "000F22F0F2F00000"
bitmap$(32) = "000F2F00F2F00000"
bitmap$(33) = "000F2F00F2F00000"
bitmap$(34) = "000F2F00F22F0000"
bitmap$(35) = "000F2F000F2F0000"
bitmap$(36) = "000F2F000F2F0000"
bitmap$(37) = "000F2F000F2F0000"
bitmap$(38) = "00FFFF000F2F0000"
bitmap$(39) = "0000000000F2F000"
bitmap$(40) = "00000000FFFF0000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 48)

NEXT xd
NEXT yd

GET (32, 0)-(47, 47), l3
GET (32, 48)-(47, 95), p3

REM ************************************ FAZA 4

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000F366F3F00000"
bitmap$(4) = "0000F6F66FF00000"
bitmap$(5) = "000F666666F00000"
bitmap$(6) = "0000F66666F00000"
bitmap$(7) = "0000F66666F00000"
bitmap$(8) = "00000F666F000000"
bitmap$(9) = "000000FFFF000000"

bitmap$(10) = "000000F11F000000"
bitmap$(11) = "00000F111F000000"
bitmap$(12) = "00000F1111F00000"
bitmap$(13) = "00000F1111F00000"
bitmap$(14) = "00000F111FF00000"
bitmap$(15) = "00000F111FF00000"
bitmap$(16) = "00000F111FF00000"
bitmap$(17) = "00000F11F1F00000"
bitmap$(18) = "0000F111F1F00000"
bitmap$(19) = "0000F111F1F00000"
bitmap$(20) = "0000F111F1F00000"
bitmap$(21) = "0000F1FFFFF00000"
bitmap$(22) = "0000F8F222F00000"
bitmap$(23) = "0000FFF222F00000"
bitmap$(24) = "0000FFF222F00000"
bitmap$(25) = "0000F22222F00000"
bitmap$(26) = "0000F2222F000000"
bitmap$(27) = "0000F2222F000000"
bitmap$(28) = "000F2222FF000000"
bitmap$(29) = "000F2222FF000000"
bitmap$(30) = "000F222F2F000000"
bitmap$(31) = "000F2222FF000000"
bitmap$(32) = "0000F2222F000000"
bitmap$(33) = "0000FF222F000000"
bitmap$(34) = "00000FFF2FF00000"
bitmap$(35) = "00000F22F0F00000"
bitmap$(36) = "000000F22FFF0000"
bitmap$(37) = "000000F22F0FF000"
bitmap$(38) = "000000F22F000000"
bitmap$(39) = "000000F22F000000"
bitmap$(40) = "0000FFFFF0000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 48)

NEXT xd
NEXT yd

GET (48, 0)-(63, 47), l4
GET (48, 48)-(63, 95), p4

REM END

REM *********** petla glowna **************************

pet2:

IF faza = 4 THEN faza = 0
vek = 0
key$ = INKEY$
IF key$ = "6" THEN x = x + 1: vek = 1
IF key$ = "4" THEN x = x - 1: vek = -1
IF vek <> 0 THEN CLS

IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1
IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2
IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3
IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4

IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1
IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2
IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3
IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4
IF vek <> 0 THEN faza = faza + 1

FOR delay = 1 TO 5000: NEXT delay

GOTO pet2

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) = "0000366666300000"
bitmap$(6) = "000006C8C6000000"
bitmap$(7) = "0000006860000000"
bitmap$(8) = "0000001610000000"
bitmap$(9) = "0000711111700000"

bitmap$(10) = "0000711111700000"
bitmap$(11) = "0001111111110000"
bitmap$(12) = "0071111111117000"
bitmap$(13) = "0071111111117000"
bitmap$(14) = "0011711111711000"
bitmap$(15) = "0011711111711000"
bitmap$(16) = "0711711111711700"
bitmap$(17) = "0A11711111711A00"
bitmap$(18) = "0117A11111A71100"
bitmap$(19) = "0117111111171100"
bitmap$(20) = "01104BBBBB401100"
bitmap$(21) = "0860922222906800"
bitmap$(22) = "0000922222900000"
bitmap$(23) = "0000922222900000"
bitmap$(24) = "0000922222900000"
bitmap$(25) = "0000929092900000"
bitmap$(26) = "0000929092900000"
bitmap$(27) = "0000929092900000"
bitmap$(28) = "0000929092900000"
bitmap$(29) = "0000929092900000"
bitmap$(30) = "0000929092900000"
bitmap$(31) = "0000929092900000"
bitmap$(32) = "0000929092900000"
bitmap$(33) = "0000929092900000"
bitmap$(34) = "0000929092900000"
bitmap$(35) = "0000929092900000"
bitmap$(36) = "0000929092900000"
bitmap$(37) = "0000929092900000"
bitmap$(38) = "0000333033300000"
bitmap$(39) = "0003330003330000"

FOR yd = 0 TO 39
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)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88)

NEXT xd
NEXT yd

END

REM zapis do pliku

DEF SEG = &HA000
BSAVE "bitmap1.scr", 0, 57000
COLOR 15: LOCATE 23, 1
INPUT a$
CLS

BLOAD "bitmap1.scr"

END

Piotr-246 · Gość

REM modul startowy do gry "Serca 2022"

SCREEN 13

DIM p1(0 TO 192) AS LONG
DIM p2(0 TO 192) AS LONG
DIM p3(0 TO 192) AS LONG
DIM p4(0 TO 192) AS LONG
DIM l1(0 TO 192) AS LONG
DIM l2(0 TO 192) AS LONG
DIM l3(0 TO 192) AS LONG
DIM l4(0 TO 192) AS LONG

DIM bitmap$(0 TO 47)

REM rysunki ****************************************

petla:

REM animacja
REM ************************* faza 1

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000FAAAF3F00000"
bitmap$(4) = "0000FAFAAFF00000"
bitmap$(5) = "000FAAAAAAF00000"
bitmap$(6) = "0000FAAAAAF00000"
bitmap$(7) = "0000FAAAAAF00000"
bitmap$( Cool

= "00000FAAAF000000"
bitmap$(9) = "000000FFFF000000"

bitmap$(10) = "000000FDDF000000"
bitmap$(11) = "00000FDDDF000000"
bitmap$(12) = "00000FDDDDF00000"
bitmap$(13) = "00000FDDDDFF0000"
bitmap$(14) = "0000FDDDDFBF0000"
bitmap$(15) = "0000FDDDDFBF0000"
bitmap$(16) = "0000FDDDFBBF0000"
bitmap$(17) = "0000FDDFBBBF0000"
bitmap$(1 Cool

= "000FDDDFBBF9F000"
bitmap$(19) = "000FDDFBBBF9F000"
bitmap$(20) = "00FDDFBBBBF9F000"
bitmap$(21) = "00FDFFFFFFFFFF00"
bitmap$(22) = "00FF0F7777F0FF00"
bitmap$(23) = "00F00F7777F00F00"
bitmap$(24) = "0000F77777F00000"
bitmap$(25) = "0000F777FFFF0000"
bitmap$(26) = "0000F777F55F0000"
bitmap$(27) = "0000F77FF55F0000"
bitmap$(2 Cool

= "0000F77F0F5F0000"
bitmap$(29) = "0000F7F00F5F0000"
bitmap$(30) = "000F77F00F5F0000"
bitmap$(31) = "000F77F00F5F0000"
bitmap$(32) = "000F7F000F55F000"
bitmap$(33) = "000F7F000F55F000"
bitmap$(34) = "000F7F0000F5F000"
bitmap$(35) = "000F7F0000F5F000"
bitmap$(36) = "000F7F0000F5F000"
bitmap$(37) = "00F77F0000F55F00"
bitmap$(3 Cool

= "00F7F000000FFF00"
bitmap$(39) = "00FFF00000FF0000"
bitmap$(40) = "0FFFF00000000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

CLS :
FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

COLOR 16 + VAL("&H" + znak$)
PSET (xd, yd): PSET (16 - xd, yd + 4 Cool

REM IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 4 Cool

NEXT xd
NEXT yd
GET (0, 0)-(15, 47), l1
GET (0, 4 Cool

-(15, 95), p1

REM ************************************ FAZA 2

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000FAAAF3F00000"
bitmap$(4) = "0000FAFAAFF00000"
bitmap$(5) = "000FAAAAAAF00000"
bitmap$(6) = "0000FAAAAAF00000"
bitmap$(7) = "0000FAAAAAF00000"
bitmap$( Cool

= "00000FAAAF000000"
bitmap$(9) = "000000FFFF000000"
bitmap$(10) = "000000FDDF000000"

bitmap$(11) = "00000FDDDF000000"
bitmap$(12) = "00000FDDDDF00000"
bitmap$(13) = "00000FDDDDF00000"
bitmap$(14) = "00000FDDDFF00000"
bitmap$(15) = "00000FDDDFF00000"
bitmap$(16) = "00000FDDDFF00000"
bitmap$(17) = "00000FDDFBF00000"
bitmap$(1 Cool

= "0000FDDDFBF00000"
bitmap$(19) = "0000FDDDFBF00000"
bitmap$(20) = "0000FDDDFBF00000"
bitmap$(21) = "0000FDFFFFF00000"
bitmap$(22) = "0000FDF777F00000"
bitmap$(23) = "0000FFF777F00000"
bitmap$(24) = "0000FFF777F00000"
bitmap$(25) = "0000F77777F00000"
bitmap$(26) = "0000F7777F000000"
bitmap$(27) = "0000F7777F000000"
bitmap$(2 Cool

= "000F5F777F000000"
bitmap$(29) = "000F5F777F000000"
bitmap$(30) = "000F5F777F000000"
bitmap$(31) = "000F5F777F000000"
bitmap$(32) = "0000FF777F000000"
bitmap$(33) = "0000FF777F000000"
bitmap$(34) = "00000F777FF00000"
bitmap$(35) = "00000F777FF00000"
bitmap$(36) = "000000F77FFF0000"
bitmap$(37) = "000000F77F0FF000"
bitmap$(3 Cool

= "000000F77F000000"
bitmap$(39) = "000000F77F000000"
bitmap$(40) = "0000FFFFF0000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

COLOR 16 + VAL("&H" + znak$)
PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 4 Cool

REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 4 Cool

NEXT xd
NEXT yd

GET (16, 0)-(31, 47), l2
GET (16, 4 Cool

-(31, 95), p2

REM ************************ ruch poziomy FAZA 3

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000FAAAF3F00000"
bitmap$(4) = "0000FAFAAFF00000"
bitmap$(5) = "000FAAAAAAF00000"
bitmap$(6) = "0000FAAAAAF00000"
bitmap$(7) = "0000FAAAAAF00000"
bitmap$( Cool

= "00000FAAAF000000"
bitmap$(9) = "000000FFFF000000"

bitmap$(10) = "000000FDDF000000"
bitmap$(11) = "00000FDDDF000000"
bitmap$(12) = "00000FDDDDF00000"
bitmap$(13) = "0000FFDDDDF00000"
bitmap$(14) = "0000FFDDDDF00000"
bitmap$(15) = "0000FFFDDDF00000"
bitmap$(16) = "0000FFBFDDDF0000"
bitmap$(17) = "0000FFBBFDDF0000"
bitmap$(1 Cool

= "000F9FBBFDDF0000"
bitmap$(19) = "000F9FBBFDDF0000"
bitmap$(20) = "000F9FBBBFDF0000"
bitmap$(21) = "000F9FFFFFDF0000"
bitmap$(22) = "0000F6777FFF0000"
bitmap$(23) = "00000F777FFF0000"
bitmap$(24) = "00000F7777F00000"
bitmap$(25) = "00000F7777F00000"
bitmap$(26) = "00000F7777F00000"
bitmap$(27) = "0000FF7777F00000"
bitmap$(2 Cool

= "0000F5F777F00000"
bitmap$(29) = "0000F55F77F00000"
bitmap$(30) = "000F55FF77F00000"
bitmap$(31) = "000F55F0F7F00000"
bitmap$(32) = "000F5F00F7F00000"
bitmap$(33) = "000F5F00F7F00000"
bitmap$(34) = "000F5F00F77F0000"
bitmap$(35) = "000F5F000F7F0000"
bitmap$(36) = "000F5F000F7F0000"
bitmap$(37) = "000F5F000F7F0000"
bitmap$(3 Cool

= "00FFFF000F7F0000"
bitmap$(39) = "0000000000F7F000"
bitmap$(40) = "00000000FFFF0000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

COLOR 16 + VAL("&H" + znak$)
PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 4 Cool

REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 4 Cool

NEXT xd
NEXT yd

GET (32, 0)-(47, 47), l3
GET (32, 4 Cool

-(47, 95), p3

REM ************************************ FAZA 4

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000FAAAF3F00000"
bitmap$(4) = "0000FAFAAFF00000"
bitmap$(5) = "000FAAAAAAF00000"
bitmap$(6) = "0000FAAAAAF00000"
bitmap$(7) = "0000FAAAAAF00000"
bitmap$( Cool

= "00000FAAAF000000"
bitmap$(9) = "000000FFFF000000"

bitmap$(10) = "000000FDDF000000"
bitmap$(11) = "00000FDDDF000000"
bitmap$(12) = "00000FDDDDF00000"
bitmap$(13) = "00000FDDDDF00000"
bitmap$(14) = "00000FDDDFF00000"
bitmap$(15) = "00000FDDDFF00000"
bitmap$(16) = "00000FDDDFF00000"
bitmap$(17) = "00000FDDFBF00000"
bitmap$(1 Cool

= "0000FDDDFBF00000"
bitmap$(19) = "0000FDDDFBF00000"
bitmap$(20) = "0000FDDDFBF00000"
bitmap$(21) = "0000FDFFFFF00000"
bitmap$(22) = "0000FDF777F00000"
bitmap$(23) = "0000FFF777F00000"
bitmap$(24) = "0000FFF777F00000"
bitmap$(25) = "0000F77777F00000"
bitmap$(26) = "0000F7777F000000"
bitmap$(27) = "0000F7777F000000"
bitmap$(2 Cool

= "000F7777FF000000"
bitmap$(29) = "000F7777FF000000"
bitmap$(30) = "000F777F5F000000"
bitmap$(31) = "000F7777FF000000"
bitmap$(32) = "0000F7777F000000"
bitmap$(33) = "0000FF777F000000"
bitmap$(34) = "00000FFF7FF00000"
bitmap$(35) = "00000F55FFF00000"
bitmap$(36) = "000000F55FFF0000"
bitmap$(37) = "000000F55F0FF000"
bitmap$(3 Cool

= "000000F55F000000"
bitmap$(39) = "000000F55F000000"
bitmap$(40) = "0000FFFFF0000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

COLOR 16 + VAL("&H" + znak$)
PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 4 Cool

REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 4 Cool

NEXT xd
NEXT yd

GET (48, 0)-(63, 47), l4
GET (48, 4 Cool

-(63, 95), p4

REM END

REM *********** petla glowna **************************

pet2:

IF faza = 4 THEN faza = 0
vek = 0
key$ = INKEY$
IF key$ = "6" THEN x = x + 3: vek = 1
IF key$ = "4" THEN x = x - 3: vek = -1
IF vek <> 0 THEN CLS

IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1
IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2
IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3
IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4

IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1
IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2
IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3
IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4
IF vek <> 0 THEN faza = faza + 1

FOR delay = 1 TO 1000: NEXT delay

GOTO pet2

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) = "0000366666300000"
bitmap$(6) = "000006C8C6000000"
bitmap$(7) = "0000006860000000"
bitmap$( Cool

= "0000001610000000"
bitmap$(9) = "0000711111700000"

bitmap$(10) = "0000711111700000"
bitmap$(11) = "0001111111110000"
bitmap$(12) = "0071111111117000"
bitmap$(13) = "0071111111117000"
bitmap$(14) = "0011711111711000"
bitmap$(15) = "0011711111711000"
bitmap$(16) = "0711711111711700"
bitmap$(17) = "0A11711111711A00"
bitmap$(1 Cool

= "0117A11111A71100"
bitmap$(19) = "0117111111171100"
bitmap$(20) = "01104BBBBB401100"
bitmap$(21) = "0860922222906800"
bitmap$(22) = "0000922222900000"
bitmap$(23) = "0000922222900000"
bitmap$(24) = "0000922222900000"
bitmap$(25) = "0000929092900000"
bitmap$(26) = "0000929092900000"
bitmap$(27) = "0000929092900000"
bitmap$(2 Cool

= "0000929092900000"
bitmap$(29) = "0000929092900000"
bitmap$(30) = "0000929092900000"
bitmap$(31) = "0000929092900000"
bitmap$(32) = "0000929092900000"
bitmap$(33) = "0000929092900000"
bitmap$(34) = "0000929092900000"
bitmap$(35) = "0000929092900000"
bitmap$(36) = "0000929092900000"
bitmap$(37) = "0000929092900000"
bitmap$(3 Cool

= "0000333033300000"
bitmap$(39) = "0003330003330000"

FOR yd = 0 TO 39
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 + 8 Cool

IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 8 Cool

IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 8 Cool

IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 8 Cool

IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 8 Cool

NEXT xd
NEXT yd

END

REM zapis do pliku

DEF SEG = &HA000
BSAVE "bitmap1.scr", 0, 57000
COLOR 15: LOCATE 23, 1
INPUT a$
CLS

BLOAD "bitmap1.scr"

END

Piotr-246 · Gość

poprawka:

REM modul startowy do gry "Serca 2022"

SCREEN 13

DIM p1(0 TO 192) AS LONG
DIM p2(0 TO 192) AS LONG
DIM p3(0 TO 192) AS LONG
DIM p4(0 TO 192) AS LONG
DIM l1(0 TO 192) AS LONG
DIM l2(0 TO 192) AS LONG
DIM l3(0 TO 192) AS LONG
DIM l4(0 TO 192) AS LONG

DIM bitmap$(0 TO 47)

REM rysunki ****************************************

petla:

REM animacja
REM ************************* faza 1

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000FAAAF3F00000"
bitmap$(4) = "0000FAFAAFF00000"
bitmap$(5) = "000FAAAAAAF00000"
bitmap$(6) = "0000FAAAAAF00000"
bitmap$(7) = "0000FAAAAAF00000"
bitmap$(8) = "00000FAAAF000000"
bitmap$(9) = "000000FFFF000000"

bitmap$(10) = "000000FDDF000000"
bitmap$(11) = "00000FDDDF000000"
bitmap$(12) = "00000FDDDDF00000"
bitmap$(13) = "00000FDDDDFF0000"
bitmap$(14) = "0000FDDDDFBF0000"
bitmap$(15) = "0000FDDDDFBF0000"
bitmap$(16) = "0000FDDDFBBF0000"
bitmap$(17) = "0000FDDFBBBF0000"
bitmap$(18) = "000FDDDFBBF9F000"
bitmap$(19) = "000FDDFBBBF9F000"
bitmap$(20) = "00FDDFBBBBF9F000"
bitmap$(21) = "00FDFFFFFFFFFF00"
bitmap$(22) = "00FF0F7777F0FF00"
bitmap$(23) = "00F00F7777F00F00"
bitmap$(24) = "0000F77777F00000"
bitmap$(25) = "0000F777FFFF0000"
bitmap$(26) = "0000F777F55F0000"
bitmap$(27) = "0000F77FF55F0000"
bitmap$(28) = "0000F77F0F5F0000"
bitmap$(29) = "0000F7F00F5F0000"
bitmap$(30) = "000F77F00F5F0000"
bitmap$(31) = "000F77F00F5F0000"
bitmap$(32) = "000F7F000F55F000"
bitmap$(33) = "000F7F000F55F000"
bitmap$(34) = "000F7F0000F5F000"
bitmap$(35) = "000F7F0000F5F000"
bitmap$(36) = "000F7F0000F5F000"
bitmap$(37) = "00F77F0000F55F00"
bitmap$(38) = "00F7F000000FFF00"
bitmap$(39) = "00FFF00000FF0000"
bitmap$(40) = "0FFFF00000000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

CLS :
FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

COLOR 16 + VAL("&H" + znak$)
PSET (xd, yd): PSET (16 - xd, yd + 48)
REM IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 48)

NEXT xd
NEXT yd
GET (0, 0)-(15, 47), l1
GET (0, 48)-(15, 95), p1

REM ************************************ FAZA 2

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000FAAAF3F00000"
bitmap$(4) = "0000FAFAAFF00000"
bitmap$(5) = "000FAAAAAAF00000"
bitmap$(6) = "0000FAAAAAF00000"
bitmap$(7) = "0000FAAAAAF00000"
bitmap$(8) = "00000FAAAF000000"
bitmap$(9) = "000000FFFF000000"
bitmap$(10) = "000000FDDF000000"

bitmap$(11) = "00000FDDDF000000"
bitmap$(12) = "00000FDDDDF00000"
bitmap$(13) = "00000FDDDDF00000"
bitmap$(14) = "00000FDDDFF00000"
bitmap$(15) = "00000FDDDFF00000"
bitmap$(16) = "00000FDDDFF00000"
bitmap$(17) = "00000FDDFBF00000"
bitmap$(18) = "0000FDDDFBF00000"
bitmap$(19) = "0000FDDDFBF00000"
bitmap$(20) = "0000FDDDFBF00000"
bitmap$(21) = "0000FDFFFFF00000"
bitmap$(22) = "0000FDF777F00000"
bitmap$(23) = "0000FFF777F00000"
bitmap$(24) = "0000FFF777F00000"
bitmap$(25) = "0000F77777F00000"
bitmap$(26) = "0000F7777F000000"
bitmap$(27) = "0000F7777F000000"
bitmap$(28) = "000F5F777F000000"
bitmap$(29) = "000F5F777F000000"
bitmap$(30) = "000F5F777F000000"
bitmap$(31) = "000F5F777F000000"
bitmap$(32) = "0000FF777F000000"
bitmap$(33) = "0000FF777F000000"
bitmap$(34) = "00000F777FF00000"
bitmap$(35) = "00000F777FF00000"
bitmap$(36) = "000000F77FFF0000"
bitmap$(37) = "000000F77F0FF000"
bitmap$(38) = "000000F77F000000"
bitmap$(39) = "000000F77F000000"
bitmap$(40) = "0000FFFFF0000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

COLOR 16 + VAL("&H" + znak$)
PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 48)

REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 48)

NEXT xd
NEXT yd

GET (16, 0)-(31, 47), l2
GET (16, 48)-(31, 95), p2

REM ************************ ruch poziomy FAZA 3

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000FAAAF3F00000"
bitmap$(4) = "0000FAFAAFF00000"
bitmap$(5) = "000FAAAAAAF00000"
bitmap$(6) = "0000FAAAAAF00000"
bitmap$(7) = "0000FAAAAAF00000"
bitmap$(8) = "00000FAAAF000000"
bitmap$(9) = "000000FFFF000000"

bitmap$(10) = "000000FDDF000000"
bitmap$(11) = "00000FDDDF000000"
bitmap$(12) = "00000FDDDDF00000"
bitmap$(13) = "0000FFDDDDF00000"
bitmap$(14) = "0000FFDDDDF00000"
bitmap$(15) = "0000FFFDDDF00000"
bitmap$(16) = "0000FFBFDDDF0000"
bitmap$(17) = "0000FFBBFDDF0000"
bitmap$(18) = "000F9FBBFDDF0000"
bitmap$(19) = "000F9FBBFDDF0000"
bitmap$(20) = "000F9FBBBFDF0000"
bitmap$(21) = "000F9FFFFFDF0000"
bitmap$(22) = "0000F6777FFF0000"
bitmap$(23) = "00000F777FFF0000"
bitmap$(24) = "00000F7777F00000"
bitmap$(25) = "00000F7777F00000"
bitmap$(26) = "00000F7777F00000"
bitmap$(27) = "0000FF7777F00000"
bitmap$(28) = "0000F5F777F00000"
bitmap$(29) = "0000F55F77F00000"
bitmap$(30) = "000F55FF77F00000"
bitmap$(31) = "000F55F0F7F00000"
bitmap$(32) = "000F5F00F7F00000"
bitmap$(33) = "000F5F00F7F00000"
bitmap$(34) = "000F5F00F77F0000"
bitmap$(35) = "000F5F000F7F0000"
bitmap$(36) = "000F5F000F7F0000"
bitmap$(37) = "000F5F000F7F0000"
bitmap$(38) = "00FFFF000F7F0000"
bitmap$(39) = "0000000000F7F000"
bitmap$(40) = "00000000FFFF0000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

COLOR 16 + VAL("&H" + znak$)
PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 48)

REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 48)

NEXT xd
NEXT yd

GET (32, 0)-(47, 47), l3
GET (32, 48)-(47, 95), p3

REM ************************************ FAZA 4

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000FAAAF3F00000"
bitmap$(4) = "0000FAFAAFF00000"
bitmap$(5) = "000FAAAAAAF00000"
bitmap$(6) = "0000FAAAAAF00000"
bitmap$(7) = "0000FAAAAAF00000"
bitmap$(8) = "00000FAAAF000000"
bitmap$(9) = "000000FFFF000000"

bitmap$(10) = "000000FDDF000000"
bitmap$(11) = "00000FDDDF000000"
bitmap$(12) = "00000FDDDDF00000"
bitmap$(13) = "00000FDDDDF00000"
bitmap$(14) = "00000FDDDFF00000"
bitmap$(15) = "00000FDDDFF00000"
bitmap$(16) = "00000FDDDFF00000"
bitmap$(17) = "00000FDDFBF00000"
bitmap$(18) = "0000FDDDFBF00000"
bitmap$(19) = "0000FDDDFBF00000"
bitmap$(20) = "0000FDDDFBF00000"
bitmap$(21) = "0000FDFFFFF00000"
bitmap$(22) = "0000FDF777F00000"
bitmap$(23) = "0000FFF777F00000"
bitmap$(24) = "0000FFF777F00000"
bitmap$(25) = "0000F77777F00000"
bitmap$(26) = "0000F7777F000000"
bitmap$(27) = "0000F7777F000000"
bitmap$(28) = "000F7777FF000000"
bitmap$(29) = "000F7777FF000000"
bitmap$(30) = "000F777F5F000000"
bitmap$(31) = "000F7777FF000000"
bitmap$(32) = "0000F7777F000000"
bitmap$(33) = "0000FF777F000000"
bitmap$(34) = "00000FFF7FF00000"
bitmap$(35) = "00000F55FFF00000"
bitmap$(36) = "000000F55FFF0000"
bitmap$(37) = "000000F55F0FF000"
bitmap$(38) = "000000F55F000000"
bitmap$(39) = "000000F55F000000"
bitmap$(40) = "0000FFFFF0000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

COLOR 16 + VAL("&H" + znak$)
PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 48)

REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 48)

NEXT xd
NEXT yd

GET (48, 0)-(63, 47), l4
GET (48, 48)-(63, 95), p4

REM END

REM *********** petla glowna **************************

pet2:

IF faza = 4 THEN faza = 0
vek = 0
key$ = INKEY$
IF key$ = "6" THEN x = x + 3: vek = 1
IF key$ = "4" THEN x = x - 3: vek = -1
IF vek <> 0 THEN CLS

IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1
IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2
IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3
IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4

IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1
IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2
IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3
IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4
IF vek <> 0 THEN faza = faza + 1

FOR delay = 1 TO 1000: NEXT delay

GOTO pet2

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) = "0000366666300000"
bitmap$(6) = "000006C8C6000000"
bitmap$(7) = "0000006860000000"
bitmap$(8) = "0000001610000000"
bitmap$(9) = "0000711111700000"

bitmap$(10) = "0000711111700000"
bitmap$(11) = "0001111111110000"
bitmap$(12) = "0071111111117000"
bitmap$(13) = "0071111111117000"
bitmap$(14) = "0011711111711000"
bitmap$(15) = "0011711111711000"
bitmap$(16) = "0711711111711700"
bitmap$(17) = "0A11711111711A00"
bitmap$(18) = "0117A11111A71100"
bitmap$(19) = "0117111111171100"
bitmap$(20) = "01104BBBBB401100"
bitmap$(21) = "0860922222906800"
bitmap$(22) = "0000922222900000"
bitmap$(23) = "0000922222900000"
bitmap$(24) = "0000922222900000"
bitmap$(25) = "0000929092900000"
bitmap$(26) = "0000929092900000"
bitmap$(27) = "0000929092900000"
bitmap$(28) = "0000929092900000"
bitmap$(29) = "0000929092900000"
bitmap$(30) = "0000929092900000"
bitmap$(31) = "0000929092900000"
bitmap$(32) = "0000929092900000"
bitmap$(33) = "0000929092900000"
bitmap$(34) = "0000929092900000"
bitmap$(35) = "0000929092900000"
bitmap$(36) = "0000929092900000"
bitmap$(37) = "0000929092900000"
bitmap$(38) = "0000333033300000"
bitmap$(39) = "0003330003330000"

FOR yd = 0 TO 39
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)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88)

NEXT xd
NEXT yd

END

REM zapis do pliku

DEF SEG = &HA000
BSAVE "bitmap1.scr", 0, 57000
COLOR 15: LOCATE 23, 1
INPUT a$
CLS

BLOAD "bitmap1.scr"

END

Piotr-246 · Gość

REM modul startowy do gry "Serca 2022"

SCREEN 13

DIM p1(0 TO 192) AS LONG
DIM p2(0 TO 192) AS LONG
DIM p3(0 TO 192) AS LONG
DIM p4(0 TO 192) AS LONG
DIM l1(0 TO 192) AS LONG
DIM l2(0 TO 192) AS LONG
DIM l3(0 TO 192) AS LONG
DIM l4(0 TO 192) AS LONG

DIM bitmap$(0 TO 47)

REM rysunki ****************************************

petla:

REM animacja
REM ************************* faza 1

bitmap$(0) = "0000055555000000"
bitmap$(1) = "0000555555500000"
bitmap$(2) = "0000555555500000"
bitmap$(3) = "0000AAAA55500000"
bitmap$(4) = "0000AA3AA5500000"
bitmap$(5) = "000AAAAAAA500000"
bitmap$(6) = "0000AAAAAA500000"
bitmap$(7) = "0000AAAAAAA00000"
bitmap$(8) = "00000AAAAA000000"
bitmap$(9) = "000000AAAA000000"

bitmap$(10) = "000000DDDD000000"
bitmap$(11) = "00000DDDDD000000"
bitmap$(12) = "00000DDDDDD00000"
bitmap$(13) = "00000DDDDDBB0000"
bitmap$(14) = "0000DDDDDBBB0000"
bitmap$(15) = "0000DDDDDBBB0000"
bitmap$(16) = "0000DDDDBBBB0000"
bitmap$(17) = "0000DDDBBBBB0000"
bitmap$(18) = "000DDDDBBBB99000"
bitmap$(19) = "000DDDFBBBB99000"
bitmap$(20) = "00DDDFBBBBB99000"
bitmap$(21) = "00DDFFFFFFF99900"
bitmap$(22) = "00DD077777709900"
bitmap$(23) = "00D0077777700900"
bitmap$(24) = "0000777777700000"
bitmap$(25) = "0000777775550000"
bitmap$(26) = "0000777755550000"
bitmap$(27) = "0000777755550000"
bitmap$(28) = "0000777705550000"
bitmap$(29) = "0000777005550000"
bitmap$(30) = "0007777005550000"
bitmap$(31) = "0007777005550000"
bitmap$(32) = "0007770005555000"
bitmap$(33) = "0007770005555000"
bitmap$(34) = "0007770000555000"
bitmap$(35) = "0007770000555000"
bitmap$(36) = "0007770000555000"
bitmap$(37) = "007777000055FF00"
bitmap$(38) = "00777000000FFF00"
bitmap$(39) = "00FFF00000FF0000"
bitmap$(40) = "0FFFF00000000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

CLS :
FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

COLOR 16 + VAL("&H" + znak$)
PSET (xd, yd): PSET (16 - xd, yd + 48)
REM IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 48)

NEXT xd
NEXT yd
GET (0, 0)-(15, 47), l1
GET (0, 48)-(15, 95), p1

REM ************************************ FAZA 2
bitmap$(0) = "0000055555000000"
bitmap$(1) = "0000555555500000"
bitmap$(2) = "0000555555500000"
bitmap$(3) = "0000AAAA55500000"
bitmap$(4) = "0000AA3AA5500000"
bitmap$(5) = "000AAAAAAA500000"
bitmap$(6) = "0000AAAAAA500000"
bitmap$(7) = "0000AAAAAAA00000"
bitmap$(8) = "00000AAAAA000000"
bitmap$(9) = "000000AAAA000000"

bitmap$(10) = "000000DDDD000000"
bitmap$(11) = "00000DDDDD000000"
bitmap$(12) = "00000DDDDDB00000"
bitmap$(13) = "00000DDDDDB00000"
bitmap$(14) = "00000DDDDBB00000"
bitmap$(15) = "00000DDDDBB00000"
bitmap$(16) = "00000DDDDBB00000"
bitmap$(17) = "00000DDDDBB00000"
bitmap$(18) = "0000DDDDBBB00000"
bitmap$(19) = "0000DDDDBBB00000"
bitmap$(20) = "0000DDDDBBB00000"
bitmap$(21) = "0000DDFFFFF00000"
bitmap$(22) = "0000DD7777700000"
bitmap$(23) = "0000DD7777700000"
bitmap$(24) = "0000D77777700000"
bitmap$(25) = "0000777777700000"
bitmap$(26) = "0000F77777000000"
bitmap$(27) = "0000F7777F000000"
bitmap$(28) = "0005577777000000"
bitmap$(29) = "0005577777000000"
bitmap$(30) = "0005577777000000"
bitmap$(31) = "0005577777000000"
bitmap$(32) = "0000F77777000000"
bitmap$(33) = "0000F7777F000000"
bitmap$(34) = "00000F777FF00000"
bitmap$(35) = "00000F777FF00000"
bitmap$(36) = "000000777FFF0000"
bitmap$(37) = "00000077770FF000"
bitmap$(38) = "0000007777000000"
bitmap$(39) = "000000FFFF000000"
bitmap$(40) = "0000FFFFF0000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

COLOR 16 + VAL("&H" + znak$)
PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 48)

REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 16, yd): PSET (16 - xd + 16, yd + 48)

NEXT xd
NEXT yd

GET (16, 0)-(31, 47), l2
GET (16, 48)-(31, 95), p2

REM ************************ ruch poziomy FAZA 3

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000FAAAF3F00000"
bitmap$(4) = "0000FAFAAFF00000"
bitmap$(5) = "000FAAAAAAF00000"
bitmap$(6) = "0000FAAAAAF00000"
bitmap$(7) = "0000FAAAAAF00000"
bitmap$(8) = "00000FAAAF000000"
bitmap$(9) = "000000FFFF000000"

bitmap$(10) = "000000FDDF000000"
bitmap$(11) = "00000FDDDF000000"
bitmap$(12) = "00000FDDDDF00000"
bitmap$(13) = "0000FFDDDDF00000"
bitmap$(14) = "0000FFDDDDF00000"
bitmap$(15) = "0000FFFDDDF00000"
bitmap$(16) = "0000FFBFDDDF0000"
bitmap$(17) = "0000FFBBFDDF0000"
bitmap$(18) = "000F9FBBFDDF0000"
bitmap$(19) = "000F9FBBFDDF0000"
bitmap$(20) = "000F9FBBBFDF0000"
bitmap$(21) = "000F9FFFFFDF0000"
bitmap$(22) = "0000F6777FFF0000"
bitmap$(23) = "00000F777FFF0000"
bitmap$(24) = "00000F7777F00000"
bitmap$(25) = "00000F7777F00000"
bitmap$(26) = "00000F7777F00000"
bitmap$(27) = "0000FF7777F00000"
bitmap$(28) = "0000F5F777F00000"
bitmap$(29) = "0000F55F77F00000"
bitmap$(30) = "000F55FF77F00000"
bitmap$(31) = "000F55F0F7F00000"
bitmap$(32) = "000F5F00F7F00000"
bitmap$(33) = "000F5F00F7F00000"
bitmap$(34) = "000F5F00F77F0000"
bitmap$(35) = "000F5F000F7F0000"
bitmap$(36) = "000F5F000F7F0000"
bitmap$(37) = "000F5F000F7F0000"
bitmap$(38) = "00FFFF000F7F0000"
bitmap$(39) = "0000000000F7F000"
bitmap$(40) = "00000000FFFF0000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

COLOR 16 + VAL("&H" + znak$)
PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 48)

REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 32, yd): PSET (16 - xd + 32, yd + 48)

NEXT xd
NEXT yd

GET (32, 0)-(47, 47), l3
GET (32, 48)-(47, 95), p3

REM ************************************ FAZA 4

bitmap$(0) = "00000FFFFF000000"
bitmap$(1) = "0000F33333F00000"
bitmap$(2) = "0000FFFF33F00000"
bitmap$(3) = "0000FAAAF3F00000"
bitmap$(4) = "0000FAFAAFF00000"
bitmap$(5) = "000FAAAAAAF00000"
bitmap$(6) = "0000FAAAAAF00000"
bitmap$(7) = "0000FAAAAAF00000"
bitmap$(8) = "00000FAAAF000000"
bitmap$(9) = "000000FFFF000000"

bitmap$(10) = "000000FDDF000000"
bitmap$(11) = "00000FDDDF000000"
bitmap$(12) = "00000FDDDDF00000"
bitmap$(13) = "00000FDDDDF00000"
bitmap$(14) = "00000FDDDFF00000"
bitmap$(15) = "00000FDDDFF00000"
bitmap$(16) = "00000FDDDFF00000"
bitmap$(17) = "00000FDDFBF00000"
bitmap$(18) = "0000FDDDFBF00000"
bitmap$(19) = "0000FDDDFBF00000"
bitmap$(20) = "0000FDDDFBF00000"
bitmap$(21) = "0000FDFFFFF00000"
bitmap$(22) = "0000FDF777F00000"
bitmap$(23) = "0000FFF777F00000"
bitmap$(24) = "0000FFF777F00000"
bitmap$(25) = "0000F77777F00000"
bitmap$(26) = "0000F7777F000000"
bitmap$(27) = "0000F7777F000000"
bitmap$(28) = "000F7777FF000000"
bitmap$(29) = "000F7777FF000000"
bitmap$(30) = "000F777F5F000000"
bitmap$(31) = "000F7777FF000000"
bitmap$(32) = "0000F7777F000000"
bitmap$(33) = "0000FF777F000000"
bitmap$(34) = "00000FFF7FF00000"
bitmap$(35) = "00000F55FFF00000"
bitmap$(36) = "000000F55FFF0000"
bitmap$(37) = "000000F55F0FF000"
bitmap$(38) = "000000F55F000000"
bitmap$(39) = "000000F55F000000"
bitmap$(40) = "0000FFFFF0000000"
bitmap$(41) = "0000000000000000"
bitmap$(42) = "0000000000000000"
bitmap$(43) = "0000000000000000"
bitmap$(44) = "0000000000000000"
bitmap$(45) = "0000000000000000"
bitmap$(46) = "0000000000000000"
bitmap$(47) = "0000000000000000"

FOR yd = 0 TO 47
FOR xd = 0 TO 15
znak$ = MID$(bitmap$(yd), xd + 1, 1)

COLOR 16 + VAL("&H" + znak$)
PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 48)

REM IF znak$ = "F" THEN COLOR 32: PSET (xd + 48, yd): PSET (16 - xd + 48, yd + 48)

NEXT xd
NEXT yd

GET (48, 0)-(63, 47), l4
GET (48, 48)-(63, 95), p4

REM END

REM *********** petla glowna **************************

pet2:

IF faza = 4 THEN faza = 0
vek = 0
key$ = INKEY$
IF key$ = "6" THEN x = x + 3: vek = 1
IF key$ = "4" THEN x = x - 3: vek = -1
IF vek <> 0 THEN CLS

IF vek = 1 AND faza = 0 THEN PUT (x, 100), p1
IF vek = 1 AND faza = 1 THEN PUT (x, 100), p2
IF vek = 1 AND faza = 2 THEN PUT (x, 100), p3
IF vek = 1 AND faza = 3 THEN PUT (x, 100), p4

IF vek = -1 AND faza = 0 THEN PUT (x, 100), l1
IF vek = -1 AND faza = 1 THEN PUT (x, 100), l2
IF vek = -1 AND faza = 2 THEN PUT (x, 100), l3
IF vek = -1 AND faza = 3 THEN PUT (x, 100), l4
IF vek <> 0 THEN faza = faza + 1

FOR delay = 1 TO 1000: NEXT delay

GOTO pet2

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) = "0000366666300000"
bitmap$(6) = "000006C8C6000000"
bitmap$(7) = "0000006860000000"
bitmap$(8) = "0000001610000000"
bitmap$(9) = "0000711111700000"

bitmap$(10) = "0000711111700000"
bitmap$(11) = "0001111111110000"
bitmap$(12) = "0071111111117000"
bitmap$(13) = "0071111111117000"
bitmap$(14) = "0011711111711000"
bitmap$(15) = "0011711111711000"
bitmap$(16) = "0711711111711700"
bitmap$(17) = "0A11711111711A00"
bitmap$(18) = "0117A11111A71100"
bitmap$(19) = "0117111111171100"
bitmap$(20) = "01104BBBBB401100"
bitmap$(21) = "0860922222906800"
bitmap$(22) = "0000922222900000"
bitmap$(23) = "0000922222900000"
bitmap$(24) = "0000922222900000"
bitmap$(25) = "0000929092900000"
bitmap$(26) = "0000929092900000"
bitmap$(27) = "0000929092900000"
bitmap$(28) = "0000929092900000"
bitmap$(29) = "0000929092900000"
bitmap$(30) = "0000929092900000"
bitmap$(31) = "0000929092900000"
bitmap$(32) = "0000929092900000"
bitmap$(33) = "0000929092900000"
bitmap$(34) = "0000929092900000"
bitmap$(35) = "0000929092900000"
bitmap$(36) = "0000929092900000"
bitmap$(37) = "0000929092900000"
bitmap$(38) = "0000333033300000"
bitmap$(39) = "0003330003330000"

FOR yd = 0 TO 39
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)
IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 88)
IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 88)

IF znak$ = "9" THEN COLOR 32: PSET (xd + 96, yd + 88)

NEXT xd
NEXT yd

END

REM zapis do pliku

DEF SEG = &HA000
BSAVE "bitmap1.scr", 0, 57000
COLOR 15: LOCATE 23, 1
INPUT a$
CLS

BLOAD "bitmap1.scr"

END