Autor Wiadomość
Piotr-246
PostWysłany: Sob 18:42, 06 Sie 2022    Temat postu:
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
Piotr-246
PostWysłany: Sob 12:36, 06 Sie 2022    Temat postu:
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
PostWysłany: Sob 12:34, 06 Sie 2022    Temat postu:
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$(1Cool = "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$(2Cool = "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$(3Cool = "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 + 4Cool
REM IF znak$ = "F" THEN COLOR 32: PSET (xd, yd): PSET (16 - xd, yd + 4Cool

NEXT xd
NEXT yd
GET (0, 0)-(15, 47), l1
GET (0, 4Cool-(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$(1Cool = "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$(2Cool = "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$(3Cool = "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 + 4Cool

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

NEXT xd
NEXT yd

GET (16, 0)-(31, 47), l2
GET (16, 4Cool-(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$(1Cool = "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$(2Cool = "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$(3Cool = "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 + 4Cool

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

NEXT xd
NEXT yd


GET (32, 0)-(47, 47), l3
GET (32, 4Cool-(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$(1Cool = "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$(2Cool = "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$(3Cool = "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 + 4Cool

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

NEXT xd
NEXT yd

GET (48, 0)-(63, 47), l4
GET (48, 4Cool-(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$(1Cool = "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$(2Cool = "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$(3Cool = "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 + 8Cool
IF znak$ = "7" THEN COLOR 16: PSET (xd + 96, yd + 8Cool
IF znak$ = "A" THEN COLOR 16: PSET (xd + 96, yd + 8Cool
IF znak$ = "4" THEN COLOR 32: PSET (xd + 96, yd + 8Cool

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

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
PostWysłany: Sob 10:27, 06 Sie 2022    Temat postu:
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
PostWysłany: Pią 21:29, 05 Sie 2022    Temat postu:
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
PostWysłany: Pią 20:51, 05 Sie 2022    Temat postu:
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
PostWysłany: Pią 12:42, 05 Sie 2022    Temat postu:
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
PostWysłany: Pią 12:22, 05 Sie 2022    Temat postu:
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
PostWysłany: Pią 12:17, 05 Sie 2022    Temat postu:
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
PostWysłany: Pią 12:03, 05 Sie 2022    Temat postu:
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
PostWysłany: Pią 10:18, 05 Sie 2022    Temat postu:
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
PostWysłany: Pią 9:51, 05 Sie 2022    Temat postu:
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
PostWysłany: Czw 19:40, 04 Sie 2022    Temat postu:
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
PostWysłany: Czw 18:25, 04 Sie 2022    Temat postu:
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
PostWysłany: Czw 13:58, 04 Sie 2022    Temat postu: Gra Serca 2022
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

Powered by phpBB © 2001, 2005 phpBB Group