Życie Wieczne
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum Życie Wieczne Strona Główna
->
Offtopic
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
NIE
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie EET (Europa)
Skocz do:
Wybierz forum
----------------
Ogólna dyskusja
Kościół rzymsko katolicki
Biblia
Objawienia
Własne przemyślenia
Inne religie i ateizm
Nasza twórczość
Offtopic
Przegląd tematu
<table border="0" cellpadding="3" cellspacing="1" width="100%" class="forumline"> <tr> <th class="thCornerL" width="22%" height="26">Autor</th> <th class="thCornerR">Wiadomość</th> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 17:35, 12 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM Mikrogra, Piotr Lubas <br /> <br />DECLARE SUB cegly () <br />DECLARE SUB wstaw (x!, y!, parametr!) <br />DIM SHARED g1(0 TO 64) AS LONG <br />DIM SHARED g2(0 TO 64) AS LONG <br />DIM SHARED g3(0 TO 64) AS LONG <br />DIM SHARED g4(0 TO 64) AS LONG <br />DIM SHARED g5(0 TO 64) AS LONG <br />DIM SHARED g6(0 TO 64) AS LONG <br />DIM SHARED g7(0 TO 64) AS LONG <br />DIM SHARED g8(0 TO 64) AS LONG <br />DIM SHARED bi$(0 TO 15) <br />SCREEN 13 <br /> <br />REM Tablice labiryntu <br />REM 0 - brak przejsc <br />REM 1 - pojedyncze na srodku <br />REM 2 - prawo lub gora <br />REM 3 - lewo lub dol <br />REM 4 - obydwa <br />REM <br />REM tablice przejsc <br />REM ........gornych.....dolnych.....prawych......lewych <br />lab$(0) = "0000000000__4444444444__1111111110__0111111111" <br />lab$(1) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(2) = "4444444444__4444444044__1121111110__0112111111" <br />lab$(3) = "4444444044__4444444444__1111111110__0111111111" <br />lab$(4) = "4444444444__4444144444__1111111110__0111111111" <br />lab$(5) = "4444144444__4444444444__1111111110__0111111111" <br />lab$(6) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(7) = "4444444444__4444444444__1110111110__0111011111" <br />lab$(8) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(9) = "4444444444__0000000000__1111111110__0111111111" <br /> <br />REM 0- brak przegrod <br />REM 1- gorna lub prawa (bez srodka) <br />REM 2- dolna lub lewa (bez srodka) <br />REM 3 - obydwie <br />REM tylko poziome: 4-wszystkie, 5-srodek i lewa, 6 srodek i prawa,7 tylko srodek <br />REM tablice przegrod ........oraz tablica pol... <br />REM ........poziomych...pionowych..pozostalych....niezdef <br />prz$(0) = "0100701000__0020200020__1010012010__0111111111" <br />prz$(1) = "6001010106__0100020102__1401018130__0111111111" <br />prz$(2) = "4070270241__0210100004__1000030100__0112111111" <br />prz$(3) = "0120014004__0000012030__0010010D10__0111111111" <br />prz$(4) = "6401071421__0012100301__1010200310__0111111111" <br />prz$(5) = "7200102040__0000002010__1103020700__0111111111" <br />prz$(6) = "4203070101__0102010200__1041004B10__0111111111" <br />prz$(7) = "7017007110__0100200121__001A100010__0111011111" <br />prz$(8) = "4100600121__0020120200__1000313000__0111111111" <br />prz$(9) = "2070402024__0103010020__1014000120__0111111111" <br /> <br />REM pobranie grafiki <br /> <br />cegly <br /> <br />REM dane startowe <br />xr = 5: yr = 5 <br />x = 9: y = 9: xs = 9: ys = 9 <br />q$ = CHR$(219) <br />REM *********************************************** <br />REM rysowanie planszy <br /> <br />rysuj: <br />REM CLS <br />COLOR 8 <br />REM FOR kr = 0 TO 19: PRINT "........................................": NEXT kr <br />COLOR 15 <br /> <br />gora$ = MID$(lab$(yr), xr + 1, 1) <br />dol$ = MID$(lab$(yr), xr + 1 + 12, 1) <br />prawo$ = MID$(lab$(yr), xr + 1 + 24, 1) <br />lewo$ = MID$(lab$(yr), xr + 1 + 36, 1) <br /> <br />REM parametr kolorowania <br />parax = 0: paray = 0 <br />IF xr / 2 = INT(xr / 2) THEN parax = 1 <br />IF yr / 2 = INT(yr / 2) THEN paray = 1 <br />p = parax * 4 + paray * 8 <br /> <br />REM CLS <br /> <br />LOCATE 1, 1 <br /> <br />REM wiersz 1 <br />p = p + 1 <br />wstaw 1, 1, p + 0 <br />IF gora$ = "0" THEN wstaw 2, 1, p + 1: wstaw 3, 1, p + 2: wstaw 4, 1, p + 3 <br />IF gora$ = "1" THEN wstaw 2, 1, p + 4: wstaw 3, 1, 0: wstaw 4, 1, p + 5 <br />IF gora$ = "2" THEN wstaw 2, 1, p + 6: wstaw 3, 1, p + 7: wstaw 4, 1, 0 <br />IF gora$ = "3" THEN wstaw 2, 1, 0: wstaw 3, 1, p + 8: wstaw 4, 1, p + 9 <br />IF gora$ = "4" THEN wstaw 2, 1, 0: wstaw 3, 1, p + 10: wstaw 4, 1, 0 <br />wstaw 5, 1, p + 11 <br />PRINT <br /> <br />REM wiersz 2 <br />p = p + 2 <br />IF lewo$ = "0" THEN wstaw 1, 2, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 2, p + 1 <br />IF lewo$ = "2" THEN wstaw 1, 2, 0 <br />IF lewo$ = "3" THEN wstaw 1, 2, p + 2 <br />IF lewo$ = "4" THEN wstaw 1, 2, 0 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 2, p + 3 <br />IF prawo$ = "1" THEN wstaw 5, 2, p + 4 <br />IF prawo$ = "2" THEN wstaw 5, 2, 0 <br />IF prawo$ = "3" THEN wstaw 5, 2, p + 5 <br />IF prawo$ = "4" THEN wstaw 5, 2, 0 <br />PRINT <br /> <br />REM wiersz 3 <br />p = p + 3 <br />IF lewo$ = "0" THEN wstaw 1, 3, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 3, 0 <br />IF lewo$ = "2" THEN wstaw 1, 3, p + 1 <br />IF lewo$ = "3" THEN wstaw 1, 3, p + 2 <br />IF lewo$ = "4" THEN wstaw 1, 3, p + 3 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 3, p + 4 <br />IF prawo$ = "1" THEN wstaw 5, 3, 0 <br />IF prawo$ = "2" THEN wstaw 5, 3, p + 5 <br />IF prawo$ = "3" THEN wstaw 5, 3, p + 6 <br />IF prawo$ = "4" THEN wstaw 5, 3, p + 7 <br />PRINT <br /> <br />REM wiersz 4 <br /> p = p + 4 <br />IF lewo$ = "0" THEN wstaw 1, 4, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 4, p + 1 <br />IF lewo$ = "2" THEN wstaw 1, 4, p + 2 <br />IF lewo$ = "3" THEN wstaw 1, 4, 0 <br />IF lewo$ = "4" THEN wstaw 1, 4, 0 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 4, p + 3 <br />IF prawo$ = "1" THEN wstaw 5, 4, p + 4 <br />IF prawo$ = "2" THEN wstaw 5, 4, p + 5 <br />IF prawo$ = "3" THEN wstaw 5, 4, 0 <br />IF prawo$ = "4" THEN wstaw 5, 4, 0 <br />PRINT <br /> <br />REM wiersz 5 <br />p = p + 5 <br />wstaw 1, 5, p + 0 <br />IF dol$ = "0" THEN wstaw 2, 5, p + 1: wstaw 3, 5, p + 2: wstaw 4, 5, p + 3 <br />IF dol$ = "1" THEN wstaw 2, 5, p + 4: wstaw 3, 5, 0: wstaw 4, 5, p + 5 <br />IF dol$ = "2" THEN wstaw 2, 5, p + 6: wstaw 3, 5, p + 7: wstaw 4, 5, 0 <br />IF dol$ = "3" THEN wstaw 2, 5, 0: wstaw 3, 5, p + 8: wstaw 4, 5, p + 9 <br />IF dol$ = "4" THEN wstaw 2, 5, 0: wstaw 3, 5, p + 10: wstaw 4, 5, 0 <br />wstaw 5, 5, p + 11 <br />PRINT <br /> <br />REM rysowanie przegrod <br />p = p + 6 <br /> <br />poz$ = MID$(prz$(yr), xr + 1, 1) <br />pio$ = MID$(prz$(yr), xr + 1 + 12, 1) <br />IF poz$ = "0" THEN wstaw 2, 3, 0: wstaw 3, 3, 0: wstaw 4, 3, 0 <br />IF poz$ = "1" THEN wstaw 2, 3, 0: wstaw 3, 3, 0: wstaw 4, 3, p + 0 <br />IF poz$ = "2" THEN wstaw 2, 3, p + 1: wstaw 3, 3, 0: wstaw 4, 3, 0 <br />IF poz$ = "3" THEN wstaw 2, 3, p + 2: wstaw 3, 3, 0: wstaw 4, 3, p + 3 <br />IF poz$ = "4" THEN wstaw 2, 3, p + 4: wstaw 3, 3, p + 5: wstaw 4, 4, p + 6 <br />IF poz$ = "5" THEN wstaw 2, 3, p + 7: wstaw 3, 3, p + 8: wstaw 4, 3, 0 <br />IF poz$ = "6" THEN wstaw 2, 3, 0: wstaw 3, 3, p + 9: wstaw 4, 3, p + 10 <br />IF poz$ = "7" THEN wstaw 2, 3, 0: wstaw 3, 3, p + 11: wstaw 4, 3, 0 <br /> <br />IF pio$ = "0" THEN wstaw 3, 2, 0: wstaw 3, 4, 0 <br />IF pio$ = "1" THEN wstaw 3, 2, p + 12: wstaw 3, 4, 0 <br />IF pio$ = "2" THEN wstaw 3, 2, 0: wstaw 3, 4, p + 13 <br />IF pio$ = "3" THEN wstaw 3, 2, p + 14: wstaw 3, 4, p + 15 <br />REM pola pozostale <br />p = p + 7 <br /> <br />res$ = "&H" + MID$(prz$(yr), xr + 1 + 24, 1) <br />reszta = VAL(res$) <br /> <br />IF (reszta AND 1) = 1 THEN wstaw 2, 2, p + 0 <br />IF (reszta AND 2) = 2 THEN wstaw 4, 2, p + 1 <br />IF (reszta AND 4) = 4 THEN wstaw 2, 4, p + 2 <br />IF (reszta AND 8) = 8 THEN wstaw 4, 4, p + 3 <br />IF (reszta AND 1) = 0 THEN wstaw 2, 2, 0 <br />IF (reszta AND 2) = 0 THEN wstaw 4, 2, 0 <br />IF (reszta AND 4) = 0 THEN wstaw 2, 4, 0 <br />IF (reszta AND 8) = 0 THEN wstaw 4, 4, 0 <br /> <br />LOCATE 23, 1: PRINT "room"; xr; "/"; yr; " " <br /> <br />GOTO wstawgracza <br />petla: <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br />IF k$ = CHR$(0) + "K" THEN x = x - 1 <br />IF k$ = CHR$(0) + "M" THEN x = x + 1 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1 <br />IF k$ = CHR$(27) THEN END <br /> <br />REM sprawdzenie przejscia do innej planszy <br /> <br />IF x > 40 THEN x = 1: xs = 1: xr = xr + 1: GOTO rysuj <br />IF x < 1 THEN x = 40: xs = 40: xr = xr - 1: GOTO rysuj <br />IF y > 20 THEN y = 1: ys = 1: yr = yr + 1: GOTO rysuj <br />IF y < 1 THEN y = 20: ys = 20: yr = yr - 1: GOTO rysuj <br /> <br />REM sprawdzenie przeszkody <br />pobierz = SCREEN(y, x) <br />IF pobierz <> ASC(".") AND pobierz <> 3 THEN x = xs: y = ys: GOTO petla <br /> <br />wstawgracza: <br /> COLOR 8 <br />LOCATE ys, xs: PRINT "."; <br />COLOR 15 <br />LOCATE y, x: PRINT CHR$(2); <br />xs = x: ys = y <br />GOTO petla <br /> <br />SUB cegly <br /> <br />REM dane elementow 1,2 <br />bi$(0) = "0000000000000000" + "0000000000000000" <br />bi$(1) = "0111111101111111" + "0011111101111111" <br />bi$(2) = "0111011101111011" + "0111111101111111" <br />bi$(3) = "0111111101111111" + "0111101101101111" <br />bi$(4) = "0111111101111111" + "0111111101111111" <br />bi$(5) = "0111111100011111" + "0111111101111111" <br />bi$(6) = "0110111101111101" + "0101111101111111" <br />bi$(7) = "0111111101111111" + "0111111100111111" <br />bi$(8) = "0000000000000000" + "0000000000000000" <br />bi$(9) = "1111011111110111" + "1110011111110111" <br />bi$(10) = "0111011101110111" + "1111011111110111" <br />bi$(11) = "1111011111110101" + "1111011101110101" <br />bi$(12) = "1111011111110111" + "1111011111110111" <br />bi$(13) = "0111011011110111" + "1111011111110111" <br />bi$(14) = "1111011111110111" + "1111011111110111" <br />bi$(15) = "1111011111110101" + "1111011011110111" <br /> <br />FOR yb = 0 TO 15 <br />FOR xb = 0 TO 31 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br />GET (0, 0)-(15, 15), g1 <br />GET (16, 0)-(31, 15), g2 <br />CLS <br />REM dane elementow 3,4 <br />bi$(0) = "0000000000000000" + "0000000000000000" <br />bi$(1) = "0111111001111111" + "0110111101111111" <br />bi$(2) = "0101111101011111" + "0110111101110111" <br />bi$(3) = "0111111101111111" + "0111111101111111" <br />bi$(4) = "0111111101111101" + "0111101101101111" <br />bi$(5) = "0000111101111111" + "0111111101111111" <br />bi$(6) = "0111111101101111" + "0101111101111011" <br />bi$(7) = "0111111101111111" + "0111111101111111" <br />bi$(8) = "0000000000000000" + "0000000000000000" <br />bi$(9) = "1111011111110111" + "1111011111110111" <br />bi$(10) = "1111010111110111" + "1111011111110111" <br />bi$(11) = "1111011111110111" + "1011011011110111" <br />bi$(12) = "1111011111110111" + "1111011111110111" <br />bi$(13) = "1111011011110101" + "1111011111110111" <br />bi$(14) = "0111011111110111" + "1111011111110101" <br />bi$(15) = "1111011111100111" + "1111010111110111" <br /> <br />FOR yb = 0 TO 15 <br />FOR xb = 0 TO 31 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br />GET (0, 0)-(15, 15), g3 <br />GET (16, 0)-(31, 15), g4 <br /> <br />CLS <br />REM dane elementow 5,6 <br />bi$(0) = "0000000000000000" + "0000000000000000" <br />bi$(1) = "0111111101110111" + "0111111101111111" <br />bi$(2) = "0111111101111111" + "0111101101110111" <br />bi$(3) = "0101111101111111" + "0101111101111111" <br />bi$(4) = "0111101101101111" + "0111111101111101" <br />bi$(5) = "0111111101111111" + "0111111101111111" <br />bi$(6) = "0110111101111011" + "0111011101101111" <br />bi$(7) = "0110111101111111" + "0111111101111111" <br />bi$(8) = "0000000000000000" + "0000000000000000" <br />bi$(9) = "1011011111110111" + "1111011110110111" <br />bi$(10) = "1111010111110111" + "1111011111110111" <br />bi$(11) = "1110011111110111" + "1111011111110111" <br />bi$(12) = "1111011111110111" + "1111011011110101" <br />bi$(13) = "1111011111010101" + "1101011111110111" <br />bi$(14) = "1111011111110111" + "1111011111010111" <br />bi$(15) = "1101011011110111" + "1111011111010111" <br /> <br />FOR yb = 0 TO 15 <br />FOR xb = 0 TO 31 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br />GET (0, 0)-(15, 15), g5 <br />GET (16, 0)-(31, 15), g6 <br />CLS <br /> <br />REM dane elementow 7,8 <br />bi$(0) = "0000000000000000" + "0000000000000000" <br />bi$(1) = "0111111101101111" + "0111111101111111" <br />bi$(2) = "0111011101101111" + "0111011101101111" <br />bi$(3) = "0111111101111111" + "0111111101111111" <br />bi$(4) = "0111111101111111" + "0111111101111111" <br />bi$(5) = "0101111101111111" + "0110111101111111" <br />bi$(6) = "0111111101110111" + "0111111101111111" <br />bi$(7) = "0111101101111111" + "0111111101110111" <br />bi$(8) = "0000000000000000" + "0000000000000000" <br />bi$(9) = "1111011111110111" + "1111011111110111" <br />bi$(10) = "1111011111110111" + "1111011111110111" <br />bi$(11) = "1011011110110110" + "1101010111110111" <br />bi$(12) = "1111011111110111" + "1111011111110111" <br />bi$(13) = "1111011111110111" + "1111011111110111" <br />bi$(14) = "1101010111110111" + "1111011101110011" <br />bi$(15) = "1111011111110111" + "1111011111110111" <br /> <br />FOR yb = 0 TO 15 <br />FOR xb = 0 TO 31 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br />GET (0, 0)-(15, 15), g7 <br />GET (16, 0)-(31, 15), g8 <br /> <br /> <br />CLS <br />END SUB <br /> <br />SUB wstaw (xe, ye, parametr) <br /> <br />COLOR 15: REM color parametr <br />xl = (xe - 1) * 8 + 1: yl = (ye - 1) * 4 + 1 <br />ye = ye - 1: xe = xe - 1 <br /> <br /> <br />xe = xe * 64 <br />ye = ye * 32 <br />COLOR 8 <br />FOR yy = 0 TO 1 <br />yf = ye + yy * 16 <br /> <br />FOR xx = 0 TO 3 <br />xf = xe + xx * 16 <br />IF parametr = 0 THEN LOCATE yl + yy * 2, xl + xx * 2: PRINT "..": LOCATE yl + 1 + yy * 2, xl + xx * 2: PRINT "..": GOTO koncz <br /> <br />IF parametr / 8 = INT(parametr / 8) THEN PUT (xf, yf), g1, PSET: GOTO koncz <br />IF parametr / 7 = INT(parametr / 7) THEN PUT (xf, yf), g2, PSET: GOTO koncz <br />IF parametr / 6 = INT(parametr / 6) THEN PUT (xf, yf), g3, PSET: GOTO koncz <br />IF parametr / 5 = INT(parametr / 5) THEN PUT (xf, yf), g4, PSET: GOTO koncz <br />IF parametr / 4 = INT(parametr / 4) THEN PUT (xf, yf), g5, PSET: GOTO koncz <br />IF parametr / 3 = INT(parametr / 3) THEN PUT (xf, yf), g6, PSET: GOTO koncz <br />IF parametr / 2 = INT(parametr / 2) THEN PUT (xf, yf), g7, PSET: GOTO koncz <br />IF parametr / 1 = INT(parametr / 1) THEN PUT (xf, yf), g8, PSET: GOTO koncz <br /> <br />koncz: <br />IF parametr <> 0 THEN parametr = parametr + 2 <br />NEXT xx <br />NEXT yy <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 11:05, 12 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM Mikrogra, Piotr Lubas <br /> <br />DECLARE SUB cegly () <br />DECLARE SUB wstaw (x!, y!, parametr!) <br />DIM SHARED g1(0 TO 64) AS LONG <br />DIM SHARED g2(0 TO 64) AS LONG <br />DIM SHARED g3(0 TO 64) AS LONG <br />DIM SHARED g4(0 TO 64) AS LONG <br />DIM SHARED g5(0 TO 64) AS LONG <br />DIM SHARED g6(0 TO 64) AS LONG <br />DIM SHARED g7(0 TO 64) AS LONG <br />DIM SHARED g8(0 TO 64) AS LONG <br />DIM SHARED bi$(0 TO 15) <br />SCREEN 13 <br /> <br />REM Tablice labiryntu <br />REM 0 - brak przejsc <br />REM 1 - pojedyncze na srodku <br />REM 2 - prawo lub gora <br />REM 3 - lewo lub dol <br />REM 4 - obydwa <br />REM <br />REM tablice przejsc <br />REM ........gornych.....dolnych.....prawych......lewych <br />lab$(0) = "0000000000__4444444444__1111111110__0111111111" <br />lab$(1) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(2) = "4444444444__4444444044__1121111110__0112111111" <br />lab$(3) = "4444444044__4444444444__1111111110__0111111111" <br />lab$(4) = "4444444444__4444144444__1111111110__0111111111" <br />lab$(5) = "4444144444__4444444444__1111111110__0111111111" <br />lab$(6) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(7) = "4444444444__4444444444__1110111110__0111011111" <br />lab$(8) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(9) = "4444444444__0000000000__1111111110__0111111111" <br /> <br />REM 0- brak przegrod <br />REM 1- gorna lub prawa (bez srodka) <br />REM 2- dolna lub lewa (bez srodka) <br />REM 3 - obydwie <br />REM tylko poziome: 4-wszystkie, 5-srodek i lewa, 6 srodek i prawa,7 tylko srodek <br />REM tablice przegrod ........oraz tablica pol... <br />REM ........poziomych...pionowych..pozostalych....niezdef <br />prz$(0) = "0100701000__0020200020__1010012010__0111111111" <br />prz$(1) = "6001010106__0100020102__1401018130__0111111111" <br />prz$(2) = "4070270241__0210100004__1000030100__0112111111" <br />prz$(3) = "0120014004__0000012030__0010010D10__0111111111" <br />prz$(4) = "6401071421__0012100301__1010200310__0111111111" <br />prz$(5) = "7200102040__0000002010__1103020700__0111111111" <br />prz$(6) = "4203070101__0102010200__1041004B10__0111111111" <br />prz$(7) = "7017007110__0100200121__001A100010__0111011111" <br />prz$(8) = "4100600121__0020120200__1000313000__0111111111" <br />prz$(9) = "2070402024__0103010020__1014000120__0111111111" <br /> <br />REM pobranie grafiki <br /> <br />cegly <br /> <br />REM dane startowe <br />xr = 5: yr = 5 <br />x = 9: y = 9: xs = 9: ys = 9 <br />q$ = CHR$(219) <br />REM *********************************************** <br />REM rysowanie planszy <br /> <br />rysuj: <br />CLS <br />COLOR 15 <br />FOR kr = 0 TO 19: PRINT "........................................": NEXT kr <br /> <br /> <br />gora$ = MID$(lab$(yr), xr + 1, 1) <br />dol$ = MID$(lab$(yr), xr + 1 + 12, 1) <br />prawo$ = MID$(lab$(yr), xr + 1 + 24, 1) <br />lewo$ = MID$(lab$(yr), xr + 1 + 36, 1) <br /> <br />REM parametr kolorowania <br />parax = 0: paray = 0 <br />IF xr / 2 = INT(xr / 2) THEN parax = 1 <br />IF yr / 2 = INT(yr / 2) THEN paray = 1 <br />p = parax * 4 + paray * 8 <br /> <br />REM CLS <br /> <br />LOCATE 1, 1 <br /> <br />REM wiersz 1 <br />p = p + 1 <br />wstaw 1, 1, p + 0 <br />IF gora$ = "0" THEN wstaw 2, 1, p + 1: wstaw 3, 1, p + 2: wstaw 4, 1, p + 3 <br />IF gora$ = "1" THEN wstaw 2, 1, p + 4: wstaw 3, 1, 0: wstaw 4, 1, p + 5 <br />IF gora$ = "2" THEN wstaw 2, 1, p + 6: wstaw 3, 1, p + 7: wstaw 4, 1, 0 <br />IF gora$ = "3" THEN wstaw 2, 1, 0: wstaw 3, 1, p + 8: wstaw 4, 1, p + 9 <br />IF gora$ = "4" THEN wstaw 2, 1, 0: wstaw 3, 1, p + 10: wstaw 4, 1, 0 <br />wstaw 5, 1, p + 11 <br />PRINT <br /> <br />REM wiersz 2 <br />p = p + 2 <br />IF lewo$ = "0" THEN wstaw 1, 2, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 2, p + 1 <br />IF lewo$ = "2" THEN wstaw 1, 2, 0 <br />IF lewo$ = "3" THEN wstaw 1, 2, p + 2 <br />IF lewo$ = "4" THEN wstaw 1, 2, 0 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 2, p + 3 <br />IF prawo$ = "1" THEN wstaw 5, 2, p + 4 <br />IF prawo$ = "2" THEN wstaw 5, 2, 0 <br />IF prawo$ = "3" THEN wstaw 5, 2, p + 5 <br />IF prawo$ = "4" THEN wstaw 5, 2, 0 <br />PRINT <br /> <br />REM wiersz 3 <br />p = p + 3 <br />IF lewo$ = "0" THEN wstaw 1, 3, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 3, 0 <br />IF lewo$ = "2" THEN wstaw 1, 3, p + 1 <br />IF lewo$ = "3" THEN wstaw 1, 3, p + 2 <br />IF lewo$ = "4" THEN wstaw 1, 3, p + 3 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 3, p + 4 <br />IF prawo$ = "1" THEN wstaw 5, 3, 0 <br />IF prawo$ = "2" THEN wstaw 5, 3, p + 5 <br />IF prawo$ = "3" THEN wstaw 5, 3, p + 6 <br />IF prawo$ = "4" THEN wstaw 5, 3, p + 7 <br />PRINT <br /> <br />REM wiersz 4 <br /> p = p + 4 <br />IF lewo$ = "0" THEN wstaw 1, 4, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 4, p + 1 <br />IF lewo$ = "2" THEN wstaw 1, 4, p + 2 <br />IF lewo$ = "3" THEN wstaw 1, 4, 0 <br />IF lewo$ = "4" THEN wstaw 1, 4, 0 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 4, p + 3 <br />IF prawo$ = "1" THEN wstaw 5, 4, p + 4 <br />IF prawo$ = "2" THEN wstaw 5, 4, p + 5 <br />IF prawo$ = "3" THEN wstaw 5, 4, 0 <br />IF prawo$ = "4" THEN wstaw 5, 4, 0 <br />PRINT <br /> <br />REM wiersz 5 <br />p = p + 5 <br />wstaw 1, 5, p + 0 <br />IF dol$ = "0" THEN wstaw 2, 5, p + 1: wstaw 3, 5, p + 2: wstaw 4, 5, p + 3 <br />IF dol$ = "1" THEN wstaw 2, 5, p + 4: wstaw 3, 5, 0: wstaw 4, 5, p + 5 <br />IF dol$ = "2" THEN wstaw 2, 5, p + 6: wstaw 3, 5, p + 7: wstaw 4, 5, 0 <br />IF dol$ = "3" THEN wstaw 2, 5, 0: wstaw 3, 5, p + 8: wstaw 4, 5, p + 9 <br />IF dol$ = "4" THEN wstaw 2, 5, 0: wstaw 3, 5, p + 10: wstaw 4, 5, 0 <br />wstaw 5, 5, p + 11 <br />PRINT <br /> <br />REM rysowanie przegrod <br />p = p + 6 <br /> <br />poz$ = MID$(prz$(yr), xr + 1, 1) <br />pio$ = MID$(prz$(yr), xr + 1 + 12, 1) <br />IF poz$ = "0" THEN wstaw 2, 3, 0: wstaw 3, 3, 0: wstaw 4, 3, 0 <br />IF poz$ = "1" THEN wstaw 2, 3, 0: wstaw 3, 3, 0: wstaw 4, 3, p + 0 <br />IF poz$ = "2" THEN wstaw 2, 3, p + 1: wstaw 3, 3, 0: wstaw 4, 3, 0 <br />IF poz$ = "3" THEN wstaw 2, 3, p + 2: wstaw 3, 3, 0: wstaw 4, 3, p + 3 <br />IF poz$ = "4" THEN wstaw 2, 3, p + 4: wstaw 3, 3, p + 5: wstaw 4, 4, p + 6 <br />IF poz$ = "5" THEN wstaw 2, 3, p + 7: wstaw 3, 3, p + 8: wstaw 4, 3, 0 <br />IF poz$ = "6" THEN wstaw 2, 3, 0: wstaw 3, 3, p + 9: wstaw 4, 3, p + 10 <br />IF poz$ = "7" THEN wstaw 2, 3, 0: wstaw 3, 3, p + 11: wstaw 4, 3, 0 <br /> <br />IF pio$ = "0" THEN wstaw 3, 2, 0: wstaw 3, 4, 0 <br />IF pio$ = "1" THEN wstaw 3, 2, p + 12: wstaw 3, 4, 0 <br />IF pio$ = "2" THEN wstaw 3, 2, 0: wstaw 3, 4, p + 13 <br />IF pio$ = "3" THEN wstaw 3, 2, p + 14: wstaw 3, 4, p + 15 <br />REM pola pozostale <br />p = p + 7 <br /> <br />res$ = "&H" + MID$(prz$(yr), xr + 1 + 24, 1) <br />reszta = VAL(res$) <br /> <br />IF (reszta AND 1) = 1 THEN wstaw 2, 2, p + 0 <br />IF (reszta AND 2) = 2 THEN wstaw 4, 2, p + 1 <br />IF (reszta AND 4) = 4 THEN wstaw 2, 4, p + 2 <br />IF (reszta AND 8) = 8 THEN wstaw 4, 4, p + 3 <br />IF (reszta AND 1) = 0 THEN wstaw 2, 2, 0 <br />IF (reszta AND 2) = 0 THEN wstaw 4, 2, 0 <br />IF (reszta AND 4) = 0 THEN wstaw 2, 4, 0 <br />IF (reszta AND 8) = 0 THEN wstaw 4, 4, 0 <br /> <br />LOCATE 23, 1: PRINT "room"; xr; "/"; yr; " " <br /> <br />GOTO wstawgracza <br />petla: <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br />IF k$ = CHR$(0) + "K" THEN x = x - 1 <br />IF k$ = CHR$(0) + "M" THEN x = x + 1 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1 <br />IF k$ = CHR$(27) THEN END <br /> <br />REM sprawdzenie przejscia do innej planszy <br /> <br />IF x > 40 THEN x = 1: xs = 1: xr = xr + 1: GOTO rysuj <br />IF x < 1 THEN x = 40: xs = 40: xr = xr - 1: GOTO rysuj <br />IF y > 20 THEN y = 1: ys = 1: yr = yr + 1: GOTO rysuj <br />IF y < 1 THEN y = 20: ys = 20: yr = yr - 1: GOTO rysuj <br /> <br />REM sprawdzenie przeszkody <br />pobierz = SCREEN(y, x) <br />IF pobierz <> ASC(".") AND pobierz <> 3 THEN x = xs: y = ys: GOTO petla <br /> <br />wstawgracza: <br /> COLOR 15 <br />LOCATE ys, xs: PRINT "."; <br />LOCATE y, x: PRINT CHR$(2); <br />xs = x: ys = y <br />GOTO petla <br /> <br />SUB cegly <br /> <br />REM dane elementow <br />bi$(0) = "0000000000000000" + "1111111111111111" + "1111111111111111" + "1111111111111111" <br />bi$(1) = "0111111101111111" + "1000000000000001" + "1000001001000001" + "1111111111111111" <br />bi$(2) = "0111111101111111" + "1000000000000001" + "1000010000100001" + "1111111111111111" <br />bi$(3) = "0111111101111111" + "1000000000000001" + "1000100000010001" + "1111111111111111" <br />bi$(4) = "0111111101111111" + "1000000000000001" + "1001000000001001" + "1111111101011101" <br />bi$(5) = "0111111101111111" + "1000000000000001" + "1010000000000101" + "1101010101010101" <br />bi$(6) = "0111111101111111" + "1000000000000001" + "1100000000000011" + "1101010101010101" <br />bi$(7) = "0111111101111111" + "1000000000000001" + "1000000000000001" + "1100010100010101" <br />bi$(8) = "0000000000000000" + "1000000000000001" + "1000000000000001" + "1000010000010101" <br />bi$(9) = "1111011111110111" + "1000000000000001" + "1100000000000011" + "1000010000010001" <br />bi$(10) = "1111011111110111" + "1000000000000001" + "1010000000000101" + "1000000000010001" <br />bi$(11) = "1111011111110111" + "1000000000000001" + "1001000000001001" + "1000000000000001" <br />bi$(12) = "1111011111110111" + "1000000000000001" + "1000100000010001" + "1000000000000001" <br />bi$(13) = "1111011111110111" + "1000000000000001" + "1000010000100001" + "1000000000000001" <br />bi$(14) = "1111011111110111" + "1000000000000001" + "1000001001000001" + "1000000000000001" <br />bi$(15) = "1111011111110111" + "1111111111111111" + "1111111111111111" + "1111111111111111" <br /> <br />FOR yb = 0 TO 15 <br />FOR xb = 0 TO 63 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br />GET (0, 0)-(15, 15), g1 <br />GET (16, 0)-(31, 15), g2 <br />GET (32, 0)-(47, 15), g3 <br />GET (48, 0)-(63, 15), g4 <br /> <br /> CLS <br />REM dane elementow <br />bi$(0) = "1111111111111111" + "1111111111111111" + "0111111111111110" + "0111111100000000" <br />bi$(1) = "1000000000000001" + "0000000000000000" + "1000000000000001" + "0111111101111111" <br />bi$(2) = "1011111111111101" + "1111111111111111" + "1000000000001101" + "0111111101111111" <br />bi$(3) = "1010000000000101" + "0000000000000000" + "1000000000000101" + "0111111101111111" <br />bi$(4) = "1010111111110101" + "1111111111111111" + "1000000000000001" + "0000000001111111" <br />bi$(5) = "1010100000010101" + "0000000000000000" + "1000000000000001" + "0111111101111111" <br />bi$(6) = "1010101111010101" + "1111111111111111" + "1000000000000001" + "0111111101111111" <br />bi$(7) = "1010101001010101" + "0000000000000000" + "1000000000000001" + "0111111101111111" <br />bi$(8) = "1010101001010101" + "1111111111111111" + "1000000000000001" + "0111111100000000" <br />bi$(9) = "1010101111010101" + "0000000000000000" + "1000000000000001" + "0111111101111111" <br />bi$(10) = "1010100000010101" + "1111111111111111" + "1000000000000001" + "0111111101111111" <br />bi$(11) = "1010111111110101" + "0000000000000000" + "1000000000000001" + "0111111101111111" <br />bi$(12) = "1010000000000101" + "1111111111111111" + "1010000000000001" + "0000000001111111" <br />bi$(13) = "1011111111111101" + "0000000000000000" + "1011000000000001" + "0111111101111111" <br />bi$(14) = "1000000000000001" + "1111111111111111" + "1000000000000001" + "0111111101111111" <br />bi$(15) = "1111111111111111" + "0000000000000000" + "0111111111111110" + "0111111101111111" <br /> <br />FOR yb = 0 TO 15 <br />FOR xb = 0 TO 63 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br /> <br />GET (0, 0)-(15, 15), g5 <br />GET (16, 0)-(31, 15), g6 <br />GET (32, 0)-(47, 15), g7 <br />GET (48, 0)-(63, 15), g8 <br /> <br /> <br />CLS <br />END SUB <br /> <br />SUB wstaw (xe, ye, parametr) <br /> <br />COLOR 15: REM color parametr <br /> <br />ye = ye - 1: xe = xe - 1 <br />xe = xe * 64 <br />ye = ye * 32 <br /> <br />FOR yy = 0 TO 1 <br />yf = ye + yy * 16 <br /> <br />FOR xx = 0 TO 3 <br />xf = xe + xx * 16 <br />IF parametr = 0 THEN GOTO koncz <br /> <br />IF parametr / 8 = INT(parametr / 8) THEN PUT (xf, yf), g1, PSET: GOTO koncz <br />IF parametr / 7 = INT(parametr / 7) THEN PUT (xf, yf), g2, PSET: GOTO koncz <br />IF parametr / 6 = INT(parametr / 6) THEN PUT (xf, yf), g3, PSET: GOTO koncz <br />IF parametr / 5 = INT(parametr / 5) THEN PUT (xf, yf), g4, PSET: GOTO koncz <br />IF parametr / 4 = INT(parametr / 4) THEN PUT (xf, yf), g5, PSET: GOTO koncz <br />IF parametr / 3 = INT(parametr / 3) THEN PUT (xf, yf), g6, PSET: GOTO koncz <br />IF parametr / 2 = INT(parametr / 2) THEN PUT (xf, yf), g7, PSET: GOTO koncz <br />IF parametr / 1 = INT(parametr / 1) THEN PUT (xf, yf), g8, PSET: GOTO koncz <br /> <br />koncz: <br />IF parametr <> 0 THEN parametr = parametr + 2 <br />NEXT xx <br />NEXT yy <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Nie 10:07, 12 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB cegly () <br />DECLARE SUB wstaw (x!, y!, parametr!) <br />DIM SHARED g1(0 TO 64) AS LONG <br />DIM SHARED g2(0 TO 64) AS LONG <br />DIM SHARED g3(0 TO 64) AS LONG <br />DIM SHARED g4(0 TO 64) AS LONG <br />DIM SHARED g5(0 TO 64) AS LONG <br />DIM SHARED g6(0 TO 64) AS LONG <br />DIM SHARED g7(0 TO 64) AS LONG <br />DIM SHARED g8(0 TO 64) AS LONG <br />DIM SHARED bi$(0 TO 15) <br />SCREEN 13 <br /> <br />REM Tablice labiryntu <br />REM 0 - brak przejsc <br />REM 1 - pojedyncze na srodku <br />REM 2 - prawo lub gora <br />REM 3 - lewo lub dol <br />REM 4 - obydwa <br />REM <br />REM tablice przejsc <br />REM ........gornych.....dolnych.....prawych......lewych <br />lab$(0) = "0000000000__4444444444__1111111110__0111111111" <br />lab$(1) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(2) = "4444444444__4444444044__1121111110__0112111111" <br />lab$(3) = "4444444044__4444444444__1111111110__0111111111" <br />lab$(4) = "4444444444__4444144444__1111111110__0111111111" <br />lab$(5) = "4444144444__4444444444__1111111110__0111111111" <br />lab$(6) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(7) = "4444444444__4444444444__1110111110__0111011111" <br />lab$(8) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(9) = "4444444444__0000000000__1111111110__0111111111" <br /> <br />REM 0- brak przegrod <br />REM 1- gorna lub prawa (bez srodka) <br />REM 2- dolna lub lewa (bez srodka) <br />REM 3 - obydwie <br />REM tylko poziome: 4-wszystkie, 5-srodek i lewa, 6 srodek i prawa,7 tylko srodek <br />REM tablice przegrod ........oraz tablica pol... <br />REM ........poziomych...pionowych..pozostalych....niezdef <br />prz$(0) = "0100701000__0020200020__1010012010__0111111111" <br />prz$(1) = "6001010106__0100020102__1401018130__0111111111" <br />prz$(2) = "4070270241__0210100004__1000030100__0112111111" <br />prz$(3) = "0120014004__0000012030__0010010D10__0111111111" <br />prz$(4) = "6401071421__0012100301__1010200310__0111111111" <br />prz$(5) = "7200102040__0000002010__1103020700__0111111111" <br />prz$(6) = "4203070101__0102010200__1041004B10__0111111111" <br />prz$(7) = "7017007110__0100200121__001A100010__0111011111" <br />prz$(8) = "4100600121__0020120200__1000313000__0111111111" <br />prz$(9) = "2070402024__0103010020__1014000120__0111111111" <br /> <br />REM pobranie grafiki <br /> <br />cegly <br /> <br />REM dane startowe <br />xr = 5: yr = 5 <br />x = 9: y = 9: xs = 9: ys = 9 <br />q$ = CHR$(219) <br />REM *********************************************** <br />REM rysowanie planszy <br /> <br />rysuj: <br />CLS <br />COLOR 15 <br />FOR kr = 0 TO 19: PRINT "....................": NEXT kr <br /> <br /> <br />gora$ = MID$(lab$(yr), xr + 1, 1) <br />dol$ = MID$(lab$(yr), xr + 1 + 12, 1) <br />prawo$ = MID$(lab$(yr), xr + 1 + 24, 1) <br />lewo$ = MID$(lab$(yr), xr + 1 + 36, 1) <br /> <br />REM parametr kolorowania <br />parax = 0: paray = 0 <br />IF xr / 2 = INT(xr / 2) THEN parax = 1 <br />IF yr / 2 = INT(yr / 2) THEN paray = 1 <br />p = parax * 4 + paray * 8 <br /> <br />REM CLS <br /> <br />LOCATE 1, 1 <br /> <br />REM wiersz 1 <br />p = p + 1 <br />wstaw 1, 1, p + 0 <br />IF gora$ = "0" THEN wstaw 2, 1, p + 1: wstaw 3, 1, p + 2: wstaw 4, 1, p + 3 <br />IF gora$ = "1" THEN wstaw 2, 1, p + 4: wstaw 3, 1, 0: wstaw 4, 1, p + 5 <br />IF gora$ = "2" THEN wstaw 2, 1, p + 6: wstaw 3, 1, p + 7: wstaw 4, 1, 0 <br />IF gora$ = "3" THEN wstaw 2, 1, 0: wstaw 3, 1, p + 8: wstaw 4, 1, p + 9 <br />IF gora$ = "4" THEN wstaw 2, 1, 0: wstaw 3, 1, p + 10: wstaw 4, 1, 0 <br />wstaw 5, 1, p + 11 <br />PRINT <br /> <br />REM wiersz 2 <br />p = p + 2 <br />IF lewo$ = "0" THEN wstaw 1, 2, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 2, p + 1 <br />IF lewo$ = "2" THEN wstaw 1, 2, 0 <br />IF lewo$ = "3" THEN wstaw 1, 2, p + 2 <br />IF lewo$ = "4" THEN wstaw 1, 2, 0 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 2, p + 3 <br />IF prawo$ = "1" THEN wstaw 5, 2, p + 4 <br />IF prawo$ = "2" THEN wstaw 5, 2, 0 <br />IF prawo$ = "3" THEN wstaw 5, 2, p + 5 <br />IF prawo$ = "4" THEN wstaw 5, 2, 0 <br />PRINT <br /> <br />REM wiersz 3 <br />p = p + 3 <br />IF lewo$ = "0" THEN wstaw 1, 3, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 3, 0 <br />IF lewo$ = "2" THEN wstaw 1, 3, p + 1 <br />IF lewo$ = "3" THEN wstaw 1, 3, p + 2 <br />IF lewo$ = "4" THEN wstaw 1, 3, p + 3 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 3, p + 4 <br />IF prawo$ = "1" THEN wstaw 5, 3, 0 <br />IF prawo$ = "2" THEN wstaw 5, 3, p + 5 <br />IF prawo$ = "3" THEN wstaw 5, 3, p + 6 <br />IF prawo$ = "4" THEN wstaw 5, 3, p + 7 <br />PRINT <br /> <br />REM wiersz 4 <br /> p = p + 4 <br />IF lewo$ = "0" THEN wstaw 1, 4, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 4, p + 1 <br />IF lewo$ = "2" THEN wstaw 1, 4, p + 2 <br />IF lewo$ = "3" THEN wstaw 1, 4, 0 <br />IF lewo$ = "4" THEN wstaw 1, 4, 0 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 4, p + 3 <br />IF prawo$ = "1" THEN wstaw 5, 4, p + 4 <br />IF prawo$ = "2" THEN wstaw 5, 4, p + 5 <br />IF prawo$ = "3" THEN wstaw 5, 4, 0 <br />IF prawo$ = "4" THEN wstaw 5, 4, 0 <br />PRINT <br /> <br />REM wiersz 5 <br />p = p + 5 <br />wstaw 1, 5, p + 0 <br />IF dol$ = "0" THEN wstaw 2, 5, p + 1: wstaw 3, 5, p + 2: wstaw 4, 5, p + 3 <br />IF dol$ = "1" THEN wstaw 2, 5, p + 4: wstaw 3, 5, 0: wstaw 4, 5, p + 5 <br />IF dol$ = "2" THEN wstaw 2, 5, p + 6: wstaw 3, 5, p + 7: wstaw 4, 5, 0 <br />IF dol$ = "3" THEN wstaw 2, 5, 0: wstaw 3, 5, p + 8: wstaw 4, 5, p + 9 <br />IF dol$ = "4" THEN wstaw 2, 5, 0: wstaw 3, 5, p + 10: wstaw 4, 5, 0 <br />wstaw 5, 5, p + 11 <br />PRINT <br /> <br />REM rysowanie przegrod <br />p = p + 6 <br /> <br />poz$ = MID$(prz$(yr), xr + 1, 1) <br />pio$ = MID$(prz$(yr), xr + 1 + 12, 1) <br />IF poz$ = "0" THEN wstaw 2, 3, 0: wstaw 3, 3, 0: wstaw 4, 3, 0 <br />IF poz$ = "1" THEN wstaw 2, 3, 0: wstaw 3, 3, 0: wstaw 4, 3, p + 0 <br />IF poz$ = "2" THEN wstaw 2, 3, p + 1: wstaw 3, 3, 0: wstaw 4, 3, 0 <br />IF poz$ = "3" THEN wstaw 2, 3, p + 2: wstaw 3, 3, 0: wstaw 4, 3, p + 3 <br />IF poz$ = "4" THEN wstaw 2, 3, p + 4: wstaw 3, 3, p + 5: wstaw 4, 4, p + 6 <br />IF poz$ = "5" THEN wstaw 2, 3, p + 7: wstaw 3, 3, p + 8: wstaw 4, 3, 0 <br />IF poz$ = "6" THEN wstaw 2, 3, 0: wstaw 3, 3, p + 9: wstaw 4, 3, p + 10 <br />IF poz$ = "7" THEN wstaw 2, 3, 0: wstaw 3, 3, p + 11: wstaw 4, 3, 0 <br /> <br />IF pio$ = "0" THEN wstaw 3, 2, 0: wstaw 3, 4, 0 <br />IF pio$ = "1" THEN wstaw 3, 2, p + 12: wstaw 3, 4, 0 <br />IF pio$ = "2" THEN wstaw 3, 2, 0: wstaw 3, 4, p + 13 <br />IF pio$ = "3" THEN wstaw 3, 2, p + 14: wstaw 3, 4, p + 15 <br />REM pola pozostale <br />p = p + 7 <br /> <br />res$ = "&H" + MID$(prz$(yr), xr + 1 + 24, 1) <br />reszta = VAL(res$) <br /> <br />IF (reszta AND 1) = 1 THEN wstaw 2, 2, p + 0 <br />IF (reszta AND 2) = 2 THEN wstaw 4, 2, p + 1 <br />IF (reszta AND 4) = 4 THEN wstaw 2, 4, p + 2 <br />IF (reszta AND 8) = 8 THEN wstaw 4, 4, p + 3 <br />IF (reszta AND 1) = 0 THEN wstaw 2, 2, 0 <br />IF (reszta AND 2) = 0 THEN wstaw 4, 2, 0 <br />IF (reszta AND 4) = 0 THEN wstaw 2, 4, 0 <br />IF (reszta AND 8) = 0 THEN wstaw 4, 4, 0 <br /> <br />LOCATE 23, 1: PRINT "room"; xr; "/"; yr; " " <br /> <br />GOTO wstawgracza <br />petla: <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br />IF k$ = CHR$(0) + "K" THEN x = x - 1 <br />IF k$ = CHR$(0) + "M" THEN x = x + 1 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1 <br />IF k$ = CHR$(27) THEN END <br /> <br />REM sprawdzenie przejscia do innej planszy <br /> <br />IF x > 20 THEN x = 1: xs = 1: xr = xr + 1: GOTO rysuj <br />IF x < 1 THEN x = 20: xs = 20: xr = xr - 1: GOTO rysuj <br />IF y > 20 THEN y = 1: ys = 1: yr = yr + 1: GOTO rysuj <br />IF y < 1 THEN y = 20: ys = 20: yr = yr - 1: GOTO rysuj <br /> <br />REM sprawdzenie przeszkody <br />pobierz = SCREEN(y, x) <br />IF pobierz <> ASC(".") AND pobierz <> 3 THEN x = xs: y = ys: GOTO petla <br /> <br />wstawgracza: <br /> COLOR 15 <br />LOCATE ys, xs: PRINT "."; <br />LOCATE y, x: PRINT CHR$(2); <br />xs = x: ys = y <br />GOTO petla <br /> <br />SUB cegly <br /> <br />REM dane elementow <br />bi$(0) = "0000000000000000" + "1111111111111111" + "1111111111111111" + "1111111111111111" <br />bi$(1) = "0111111101111111" + "1000000000000001" + "1000001001000001" + "1111111111111111" <br />bi$(2) = "0111111101111111" + "1000000000000001" + "1000010000100001" + "1111111111111111" <br />bi$(3) = "0111111101111111" + "1000000000000001" + "1000100000010001" + "1111111111111111" <br />bi$(4) = "0111111101111111" + "1000000000000001" + "1001000000001001" + "1111111101011101" <br />bi$(5) = "0111111101111111" + "1000000000000001" + "1010000000000101" + "1101010101010101" <br />bi$(6) = "0111111101111111" + "1000000000000001" + "1100000000000011" + "1101010101010101" <br />bi$(7) = "0111111101111111" + "1000000000000001" + "1000000000000001" + "1100010100010101" <br />bi$(8) = "0000000000000000" + "1000000000000001" + "1000000000000001" + "1000010000010101" <br />bi$(9) = "1111011111110111" + "1000000000000001" + "1100000000000011" + "1000010000010001" <br />bi$(10) = "1111011111110111" + "1000000000000001" + "1010000000000101" + "1000000000010001" <br />bi$(11) = "1111011111110111" + "1000000000000001" + "1001000000001001" + "1000000000000001" <br />bi$(12) = "1111011111110111" + "1000000000000001" + "1000100000010001" + "1000000000000001" <br />bi$(13) = "1111011111110111" + "1000000000000001" + "1000010000100001" + "1000000000000001" <br />bi$(14) = "1111011111110111" + "1000000000000001" + "1000001001000001" + "1000000000000001" <br />bi$(15) = "1111011111110111" + "1111111111111111" + "1111111111111111" + "1111111111111111" <br /> <br />FOR yb = 0 TO 15 <br />FOR xb = 0 TO 63 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br />GET (0, 0)-(15, 15), g1 <br />GET (16, 0)-(31, 15), g2 <br />GET (32, 0)-(47, 15), g3 <br />GET (48, 0)-(63, 15), g4 <br /> <br /> CLS <br />REM dane elementow <br />bi$(0) = "1111111111111111" + "1111111111111111" + "0111111111111110" + "0111111100000000" <br />bi$(1) = "1000000000000001" + "0000000000000000" + "1000000000000001" + "0111111101111111" <br />bi$(2) = "1011111111111101" + "1111111111111111" + "1000000000001101" + "0111111101111111" <br />bi$(3) = "1010000000000101" + "0000000000000000" + "1000000000000101" + "01111111011f11111" <br />bi$(4) = "1010111111110101" + "1111111111111111" + "1000000000000001" + "0000000001111111" <br />bi$(5) = "1010100000010101" + "0000000000000000" + "1000000000000001" + "0111111101111111" <br />bi$(6) = "1010101111010101" + "1111111111111111" + "1000000000000001" + "0111111101111111" <br />bi$(7) = "1010101001010101" + "0000000000000000" + "1000000000000001" + "0111111101111111" <br />bi$(8) = "1010101001010101" + "1111111111111111" + "1000000000000001" + "0111111100000000" <br />bi$(9) = "1010101111010101" + "0000000000000000" + "1000000000000001" + "0111111101111111" <br />bi$(10) = "1010100000010101" + "1111111111111111" + "1000000000000001" + "0111111101111111" <br />bi$(11) = "1010111111110101" + "0000000000000000" + "1000000000000001" + "0111111101111111" <br />bi$(12) = "1010000000000101" + "1111111111111111" + "1010000000000001" + "0000000001111111" <br />bi$(13) = "1011111111111101" + "0000000000000000" + "1011000000000001" + "0111111101111111" <br />bi$(14) = "1000000000000001" + "1111111111111111" + "1000000000000001" + "0111111101111111" <br />bi$(15) = "1111111111111111" + "0000000000000000" + "0111111111111110" + "0111111101111111" <br /> <br />FOR yb = 0 TO 15 <br />FOR xb = 0 TO 63 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br /> <br />GET (0, 0)-(15, 15), g5 <br />GET (16, 0)-(31, 15), g6 <br />GET (32, 0)-(47, 15), g7 <br />GET (48, 0)-(63, 15), g8 <br /> <br /> <br />CLS <br />END SUB <br /> <br />SUB wstaw (xe, ye, parametr) <br /> <br />COLOR 15: REM color parametr <br /> <br />ye = ye - 1: xe = xe - 1 <br />xe = xe * 32 <br />ye = ye * 32 <br /> <br />FOR yy = 0 TO 1 <br />yf = ye + yy * 16 <br /> <br />FOR xx = 0 TO 1 <br />xf = xe + xx * 16 <br />IF parametr = 0 THEN GOTO koncz <br /> <br />IF parametr / 8 = INT(parametr / 8) THEN PUT (xf, yf), g1, PSET: GOTO koncz <br />IF parametr / 7 = INT(parametr / 7) THEN PUT (xf, yf), g2, PSET: GOTO koncz <br />IF parametr / 6 = INT(parametr / 6) THEN PUT (xf, yf), g3, PSET: GOTO koncz <br />IF parametr / 5 = INT(parametr / 5) THEN PUT (xf, yf), g4, PSET: GOTO koncz <br />IF parametr / 4 = INT(parametr / 4) THEN PUT (xf, yf), g5, PSET: GOTO koncz <br />IF parametr / 3 = INT(parametr / 3) THEN PUT (xf, yf), g6, PSET: GOTO koncz <br />IF parametr / 2 = INT(parametr / 2) THEN PUT (xf, yf), g7, PSET: GOTO koncz <br />IF parametr / 1 = INT(parametr / 1) THEN PUT (xf, yf), g8, PSET: GOTO koncz <br /> <br />koncz: <br />IF parametr <> 0 THEN parametr = parametr + 1 <br />NEXT xx <br />NEXT yy <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 19:48, 11 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB cegly () <br />DECLARE SUB wstaw (x!, y!, parametr!) <br />DIM SHARED g1(0 TO 64) AS LONG <br />DIM SHARED g2(0 TO 64) AS LONG <br />DIM SHARED g3(0 TO 64) AS LONG <br />DIM SHARED g4(0 TO 64) AS LONG <br />DIM SHARED g5(0 TO 64) AS LONG <br />DIM SHARED g6(0 TO 64) AS LONG <br />DIM SHARED g7(0 TO 64) AS LONG <br />DIM SHARED g8(0 TO 64) AS LONG <br />DIM SHARED bi$(0 TO 15) <br />SCREEN 13 <br /> <br />REM Tablice labiryntu <br />REM 0 - brak przejsc <br />REM 1 - pojedyncze na srodku <br />REM 2 - prawo lub gora <br />REM 3 - lewo lub dol <br />REM 4 - obydwa <br />REM <br />REM tablice przejsc <br />REM ........gornych.....dolnych.....prawych......lewych <br />lab$(0) = "0000000000__4444444444__1111111110__0111111111" <br />lab$(1) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(2) = "4444444444__4444444044__1121111110__0112111111" <br />lab$(3) = "4444444044__4444444444__1111111110__0111111111" <br />lab$(4) = "4444444444__4444144444__1111111110__0111111111" <br />lab$(5) = "4444144444__4444444444__1111111110__0111111111" <br />lab$(6) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(7) = "4444444444__4444444444__1110111110__0111011111" <br />lab$(8) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(9) = "4444444444__0000000000__1111111110__0111111111" <br /> <br />REM 0- brak przegrod <br />REM 1- gorna lub prawa (bez srodka) <br />REM 2- dolna lub lewa (bez srodka) <br />REM 3 - obydwie <br />REM tylko poziome: 4-wszystkie, 5-srodek i lewa, 6 srodek i prawa,7 tylko srodek <br />REM tablice przegrod ........oraz tablica pol... <br />REM ........poziomych...pionowych..pozostalych....niezdef <br />prz$(0) = "0100701000__0020200020__1010012010__0111111111" <br />prz$(1) = "6001010106__0100020102__1401018130__0111111111" <br />prz$(2) = "4070270241__0210100004__1000030100__0112111111" <br />prz$(3) = "0120014004__0000012030__0010010D10__0111111111" <br />prz$(4) = "6401071421__0012100301__1010200310__0111111111" <br />prz$(5) = "7200102040__0000002010__1103020700__0111111111" <br />prz$(6) = "4203070101__0102010200__1041004B10__0111111111" <br />prz$(7) = "7017007110__0100200121__001A100010__0111011111" <br />prz$(8) = "4100600121__0020120200__1000313000__0111111111" <br />prz$(9) = "2070402024__0103010020__1014000120__0111111111" <br /> <br />REM pobranie grafiki <br /> <br />cegly <br /> <br />REM dane startowe <br />xr = 5: yr = 5 <br />x = 3: y = 3: xs = 3: ys = 3 <br />q$ = CHR$(219) <br />REM *********************************************** <br />REM rysowanie planszy <br /> <br />rysuj: <br />CLS <br />COLOR 15 <br />FOR kr = 0 TO 15: PRINT "...........................": NEXT kr <br /> <br /> <br />gora$ = MID$(lab$(yr), xr + 1, 1) <br />dol$ = MID$(lab$(yr), xr + 1 + 12, 1) <br />prawo$ = MID$(lab$(yr), xr + 1 + 24, 1) <br />lewo$ = MID$(lab$(yr), xr + 1 + 36, 1) <br /> <br />REM parametr kolorowania <br />parax = 0: paray = 0 <br />IF xr / 2 = INT(xr / 2) THEN parax = 1 <br />IF yr / 2 = INT(yr / 2) THEN paray = 1 <br />p = parax * 4 + paray * 8 <br /> <br />REM CLS <br /> <br />LOCATE 1, 1 <br /> <br />REM wiersz 1 <br />p = p + 1 <br />wstaw 1, 1, p + 0 <br />IF gora$ = "0" THEN wstaw 2, 1, p + 1: wstaw 3, 1, p + 2: wstaw 4, 1, p + 3 <br />IF gora$ = "1" THEN wstaw 2, 1, p + 4: wstaw 3, 1, 0: wstaw 4, 1, p + 5 <br />IF gora$ = "2" THEN wstaw 2, 1, p + 6: wstaw 3, 1, p + 7: wstaw 4, 1, 0 <br />IF gora$ = "3" THEN wstaw 2, 1, 0: wstaw 3, 1, p + 8: wstaw 4, 1, p + 9 <br />IF gora$ = "4" THEN wstaw 2, 1, 0: wstaw 3, 1, p + 10: wstaw 4, 1, 0 <br />wstaw 5, 1, p + 11 <br />PRINT <br /> <br />REM wiersz 2 <br />p = p + 2 <br />IF lewo$ = "0" THEN wstaw 1, 2, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 2, p + 1 <br />IF lewo$ = "2" THEN wstaw 1, 2, 0 <br />IF lewo$ = "3" THEN wstaw 1, 2, p + 2 <br />IF lewo$ = "4" THEN wstaw 1, 2, 0 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 2, p + 3 <br />IF prawo$ = "1" THEN wstaw 5, 2, p + 4 <br />IF prawo$ = "2" THEN wstaw 5, 2, 0 <br />IF prawo$ = "3" THEN wstaw 5, 2, p + 5 <br />IF prawo$ = "4" THEN wstaw 5, 2, 0 <br />PRINT <br /> <br />REM wiersz 3 <br />p = p + 3 <br />IF lewo$ = "0" THEN wstaw 1, 3, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 3, 0 <br />IF lewo$ = "2" THEN wstaw 1, 3, p + 1 <br />IF lewo$ = "3" THEN wstaw 1, 3, p + 2 <br />IF lewo$ = "4" THEN wstaw 1, 3, p + 3 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 3, p + 4 <br />IF prawo$ = "1" THEN wstaw 5, 3, 0 <br />IF prawo$ = "2" THEN wstaw 5, 3, p + 5 <br />IF prawo$ = "3" THEN wstaw 5, 3, p + 6 <br />IF prawo$ = "4" THEN wstaw 5, 3, p + 7 <br />PRINT <br /> <br />REM wiersz 4 <br /> p = p + 4 <br />IF lewo$ = "0" THEN wstaw 1, 4, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 4, p + 1 <br />IF lewo$ = "2" THEN wstaw 1, 4, p + 2 <br />IF lewo$ = "3" THEN wstaw 1, 4, 0 <br />IF lewo$ = "4" THEN wstaw 1, 4, 0 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 4, p + 3 <br />IF prawo$ = "1" THEN wstaw 5, 4, p + 4 <br />IF prawo$ = "2" THEN wstaw 5, 4, p + 5 <br />IF prawo$ = "3" THEN wstaw 5, 4, 0 <br />IF prawo$ = "4" THEN wstaw 5, 4, 0 <br />PRINT <br /> <br />REM wiersz 5 <br />p = p + 5 <br />wstaw 1, 5, p + 0 <br />IF dol$ = "0" THEN wstaw 2, 5, p + 1: wstaw 3, 5, p + 2: wstaw 4, 5, p + 3 <br />IF dol$ = "1" THEN wstaw 2, 5, p + 4: wstaw 3, 5, 0: wstaw 4, 5, p + 5 <br />IF dol$ = "2" THEN wstaw 2, 5, p + 6: wstaw 3, 5, p + 7: wstaw 4, 5, 0 <br />IF dol$ = "3" THEN wstaw 2, 5, 0: wstaw 3, 5, p + 8: wstaw 4, 5, p + 9 <br />IF dol$ = "4" THEN wstaw 2, 5, 0: wstaw 3, 5, p + 10: wstaw 4, 5, 0 <br />wstaw 5, 5, p + 11 <br />PRINT <br /> <br />REM rysowanie przegrod <br />p = p + 6 <br /> <br />poz$ = MID$(prz$(yr), xr + 1, 1) <br />pio$ = MID$(prz$(yr), xr + 1 + 12, 1) <br />IF poz$ = "0" THEN wstaw 2, 3, 0: wstaw 3, 3, 0: wstaw 4, 3, 0 <br />IF poz$ = "1" THEN wstaw 2, 3, 0: wstaw 3, 3, 0: wstaw 4, 3, p + 0 <br />IF poz$ = "2" THEN wstaw 2, 3, p + 1: wstaw 3, 3, 0: wstaw 4, 3, 0 <br />IF poz$ = "3" THEN wstaw 2, 3, p + 2: wstaw 3, 3, 0: wstaw 4, 3, p + 3 <br />IF poz$ = "4" THEN wstaw 2, 3, p + 4: wstaw 3, 3, p + 5: wstaw 4, 4, p + 6 <br />IF poz$ = "5" THEN wstaw 2, 3, p + 7: wstaw 3, 3, p + 8: wstaw 4, 3, 0 <br />IF poz$ = "6" THEN wstaw 2, 3, 0: wstaw 3, 3, p + 9: wstaw 4, 3, p + 10 <br />IF poz$ = "7" THEN wstaw 2, 3, 0: wstaw 3, 3, p + 11: wstaw 4, 3, 0 <br /> <br />IF pio$ = "0" THEN wstaw 3, 2, 0: wstaw 3, 4, 0 <br />IF pio$ = "1" THEN wstaw 3, 2, p + 12: wstaw 3, 4, 0 <br />IF pio$ = "2" THEN wstaw 3, 2, 0: wstaw 3, 4, p + 13 <br />IF pio$ = "3" THEN wstaw 3, 2, p + 14: wstaw 3, 4, p + 15 <br />REM pola pozostale <br />p = p + 7 <br /> <br />res$ = "&H" + MID$(prz$(yr), xr + 1 + 24, 1) <br />reszta = VAL(res$) <br /> <br />IF (reszta AND 1) = 1 THEN wstaw 2, 2, p + 0 <br />IF (reszta AND 2) = 2 THEN wstaw 4, 2, p + 1 <br />IF (reszta AND 4) = 4 THEN wstaw 2, 4, p + 2 <br />IF (reszta AND 8) = 8 THEN wstaw 4, 4, p + 3 <br />IF (reszta AND 1) = 0 THEN wstaw 2, 2, 0 <br />IF (reszta AND 2) = 0 THEN wstaw 4, 2, 0 <br />IF (reszta AND 4) = 0 THEN wstaw 2, 4, 0 <br />IF (reszta AND 8) = 0 THEN wstaw 4, 4, 0 <br /> <br />LOCATE 14, 1: PRINT "room"; xr; "/"; yr; " " <br /> <br />GOTO wstawgracza <br />petla: <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br />IF k$ = CHR$(0) + "K" THEN x = x - 1 <br />IF k$ = CHR$(0) + "M" THEN x = x + 1 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1 <br />IF k$ = CHR$(27) THEN END <br /> <br />REM sprawdzenie przejscia do innej planszy <br /> <br />IF x > 9 THEN x = 1: xs = 1: xr = xr + 1: GOTO rysuj <br />IF x < 1 THEN x = 9: xs = 9: xr = xr - 1: GOTO rysuj <br />IF y > 9 THEN y = 1: ys = 1: yr = yr + 1: GOTO rysuj <br />IF y < 1 THEN y = 9: ys = 9: yr = yr - 1: GOTO rysuj <br /> <br />REM sprawdzenie przeszkody <br />pobierz = SCREEN(y, x) <br />IF pobierz <> ASC(".") AND pobierz <> 3 THEN x = xs: y = ys: GOTO petla <br /> <br />wstawgracza: <br /> COLOR 15 <br />LOCATE ys, xs: PRINT "."; <br />LOCATE y, x: PRINT CHR$(2); <br />xs = x: ys = y <br />GOTO petla <br /> <br />SUB cegly <br /> <br />REM dane elementow <br />bi$(0) = "0011111100111111" + "1111111111111111" + "1111111111111111" + "1111111111111111" <br />bi$(1) = "0011111100111111" + "1000000000000001" + "1000001001000001" + "1111111111111111" <br />bi$(2) = "0011111100111111" + "1000000000000001" + "1000010000100001" + "1111111111111111" <br />bi$(3) = "0011111100111111" + "1000000000000001" + "1000100000010001" + "1111111111111111" <br />bi$(4) = "0011111100111111" + "1000000000000001" + "1001000000001001" + "1111111101011101" <br />bi$(5) = "0011111100111111" + "1000000000000001" + "1010000000000101" + "1101010101010101" <br />bi$(6) = "0000000000000000" + "1000000000000001" + "1100000000000011" + "1101010101010101" <br />bi$(7) = "0000000000000000" + "1000000000000001" + "1000000000000001" + "1100010100010101" <br />bi$(8) = "1100111111001111" + "1000000000000001" + "1000000000000001" + "1000010000010101" <br />bi$(9) = "1100111111001111" + "1000000000000001" + "1100000000000011" + "1000010000010001" <br />bi$(10) = "1100111111001111" + "1000000000000001" + "1010000000000101" + "1000000000010001" <br />bi$(11) = "1100111111001111" + "1000000000000001" + "1001000000001001" + "1000000000000001" <br />bi$(12) = "1100111111001111" + "1000000000000001" + "1000100000010001" + "1000000000000001" <br />bi$(13) = "1100111111001111" + "1000000000000001" + "1000010000100001" + "1000000000000001" <br />bi$(14) = "0000000000000000" + "1000000000000001" + "1000001001000001" + "1000000000000001" <br />bi$(15) = "0000000000000000" + "1111111111111111" + "1111111111111111" + "1111111111111111" <br /> <br />FOR yb = 0 TO 15 <br />FOR xb = 0 TO 63 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br />GET (0, 0)-(15, 15), g1 <br />GET (16, 0)-(31, 15), g2 <br />GET (32, 0)-(47, 15), g3 <br />GET (48, 0)-(63, 15), g4 <br /> <br /> CLS <br />REM dane elementow <br />bi$(0) = "1111111111111111" + "1111111111111111" + "0111111111111110" + "1111110000000000" <br />bi$(1) = "1000000000000001" + "0000000000000000" + "1000000000000001" + "1111110011111100" <br />bi$(2) = "1011111111111101" + "1111111111111111" + "1000000000001101" + "1111110011111100" <br />bi$(3) = "1010000000000101" + "0000000000000000" + "1000000000000101" + "0000000011111100" <br />bi$(4) = "1010111111110101" + "1111111111111111" + "1000000000000001" + "1111110011111100" <br />bi$(5) = "1010100000010101" + "0000000000000000" + "1000000000000001" + "1111110011111100" <br />bi$(6) = "1010101111010101" + "1111111111111111" + "1000000000000001" + "1111110011111100" <br />bi$(7) = "1010101001010101" + "0000000000000000" + "1000000000000001" + "1111110011111100" <br />bi$(8) = "1010101001010101" + "1111111111111111" + "1000000000000001" + "1111110011111100" <br />bi$(9) = "1010101111010101" + "0000000000000000" + "1000000000000001" + "1111110000000000" <br />bi$(10) = "1010100000010101" + "1111111111111111" + "1000000000000001" + "1111110011111100" <br />bi$(11) = "1010111111110101" + "0000000000000000" + "1000000000000001" + "1111110011111100" <br />bi$(12) = "1010000000000101" + "1111111111111111" + "1010000000000001" + "0000000011111100" <br />bi$(13) = "1011111111111101" + "0000000000000000" + "1011000000000001" + "1111110011111100" <br />bi$(14) = "1000000000000001" + "1111111111111111" + "1000000000000001" + "1111110011111100" <br />bi$(15) = "1111111111111111" + "0000000000000000" + "0111111111111110" + "1111110011111100" <br /> <br />FOR yb = 0 TO 15 <br />FOR xb = 0 TO 63 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br /> <br />GET (0, 0)-(15, 15), g5 <br />GET (16, 0)-(31, 15), g6 <br />GET (32, 0)-(47, 15), g7 <br />GET (48, 0)-(63, 15), g8 <br /> <br /> <br />CLS <br />END SUB <br /> <br />SUB wstaw (xe, ye, parametr) <br /> <br />COLOR 15: REM color parametr <br /> <br /> IF parametr = 0 THEN GOTO koncz <br />ye = ye - 1: xe = xe - 1 <br />xe = xe * 16 <br />ye = ye * 16 <br /> <br />IF parametr / 8 = INT(parametr / 8) THEN PUT (xe, ye), g1, PSET: GOTO koncz <br />IF parametr / 7 = INT(parametr / 7) THEN PUT (xe, ye), g2, PSET: GOTO koncz <br />IF parametr / 6 = INT(parametr / 6) THEN PUT (xe, ye), g3, PSET: GOTO koncz <br />IF parametr / 5 = INT(parametr / 5) THEN PUT (xe, ye), g4, PSET: GOTO koncz <br />IF parametr / 4 = INT(parametr / 4) THEN PUT (xe, ye), g5, PSET: GOTO koncz <br />IF parametr / 3 = INT(parametr / 3) THEN PUT (xe, ye), g6, PSET: GOTO koncz <br />IF parametr / 2 = INT(parametr / 2) THEN PUT (xe, ye), g7, PSET: GOTO koncz <br />IF parametr / 1 = INT(parametr / 1) THEN PUT (xe, ye), g8, PSET: GOTO koncz <br />koncz: <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 16:39, 11 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB cegly () <br />DECLARE SUB wstaw (x!, y!, parametr!) <br />DIM SHARED g1(0 TO 36) AS LONG <br />DIM SHARED g2(0 TO 36) AS LONG <br />DIM SHARED g3(0 TO 36) AS LONG <br />DIM SHARED g4(0 TO 36) AS LONG <br />DIM SHARED g5(0 TO 36) AS LONG <br />DIM SHARED g6(0 TO 36) AS LONG <br />DIM SHARED g7(0 TO 36) AS LONG <br />DIM SHARED g8(0 TO 36) AS LONG <br />DIM SHARED bi$(0 TO 11) <br />SCREEN 13 <br /> <br />REM Tablice labiryntu <br />REM 0 - brak przejsc <br />REM 1 - pojedyncze na srodku <br />REM 2 - prawo lub gora <br />REM 3 - lewo lub dol <br />REM 4 - obydwa <br />REM <br />REM tablice przejsc <br />REM ........gornych.....dolnych.....prawych......lewych <br />lab$(0) = "0000000000__4444444444__1111111110__0111111111" <br />lab$(1) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(2) = "4444444444__4444444044__1121111110__0112111111" <br />lab$(3) = "4444444044__4444444444__1111111110__0111111111" <br />lab$(4) = "4444444444__4444144444__1111111110__0111111111" <br />lab$(5) = "4444144444__4444444444__1111111110__0111111111" <br />lab$(6) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(7) = "4444444444__4444444444__1110111110__0111011111" <br />lab$(8) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(9) = "4444444444__0000000000__1111111110__0111111111" <br /> <br />REM 0- brak przegrod <br />REM 1- gorna lub prawa (bez srodka) <br />REM 2- dolna lub lewa (bez srodka) <br />REM 3 - obydwie <br />REM tylko poziome: 4-wszystkie, 5-srodek i lewa, 6 srodek i prawa,7 tylko srodek <br />REM tablice przegrod ........oraz tablica pol... <br />REM ........poziomych...pionowych..pozostalych....niezdef <br />prz$(0) = "0100701000__0020200020__1010012010__0111111111" <br />prz$(1) = "6001010106__0100020102__1401018130__0111111111" <br />prz$(2) = "4070270241__0210100004__1000030100__0112111111" <br />prz$(3) = "0120014004__0000012030__0010010D10__0111111111" <br />prz$(4) = "6401071421__0012100301__1010200310__0111111111" <br />prz$(5) = "7200102040__0000002010__1103020700__0111111111" <br />prz$(6) = "4203070101__0102010200__1041004B10__0111111111" <br />prz$(7) = "7017007110__0100200121__001A100010__0111011111" <br />prz$(8) = "4100600121__0020120200__1000313000__0111111111" <br />prz$(9) = "2070402024__0103010020__1014000120__0111111111" <br /> <br />REM pobranie grafiki <br /> <br />cegly <br /> <br />REM dane startowe <br />xr = 5: yr = 5 <br />x = 3: y = 3: xs = 3: ys = 3 <br />q$ = CHR$(219) <br />REM *********************************************** <br />REM rysowanie planszy <br /> <br />rysuj: <br />CLS <br />COLOR 15 <br />FOR kr = 0 TO 15: PRINT "...........................": NEXT kr <br /> <br /> <br />gora$ = MID$(lab$(yr), xr + 1, 1) <br />dol$ = MID$(lab$(yr), xr + 1 + 12, 1) <br />prawo$ = MID$(lab$(yr), xr + 1 + 24, 1) <br />lewo$ = MID$(lab$(yr), xr + 1 + 36, 1) <br /> <br />REM parametr kolorowania <br />parax = 0: paray = 0 <br />IF xr / 2 = INT(xr / 2) THEN parax = 1 <br />IF yr / 2 = INT(yr / 2) THEN paray = 1 <br />p = parax * 4 + paray * 8 <br /> <br />REM CLS <br /> <br />LOCATE 1, 1 <br /> <br />REM wiersz 1 <br />p = p + 1 <br />wstaw 1, 1, p + 0 <br />IF gora$ = "0" THEN wstaw 2, 1, p + 1: wstaw 3, 1, p + 2: wstaw 4, 1, p + 3 <br />IF gora$ = "1" THEN wstaw 2, 1, p + 4: wstaw 3, 1, 0: wstaw 4, 1, p + 5 <br />IF gora$ = "2" THEN wstaw 2, 1, p + 6: wstaw 3, 1, p + 7: wstaw 4, 1, 0 <br />IF gora$ = "3" THEN wstaw 2, 1, 0: wstaw 3, 1, p + 8: wstaw 4, 1, p + 9 <br />IF gora$ = "4" THEN wstaw 2, 1, 0: wstaw 3, 1, p + 10: wstaw 4, 1, 0 <br />wstaw 5, 1, p + 11 <br />PRINT <br /> <br />REM wiersz 2 <br />p = p + 2 <br />IF lewo$ = "0" THEN wstaw 1, 2, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 2, p + 1 <br />IF lewo$ = "2" THEN wstaw 1, 2, 0 <br />IF lewo$ = "3" THEN wstaw 1, 2, p + 2 <br />IF lewo$ = "4" THEN wstaw 1, 2, 0 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 2, p + 3 <br />IF prawo$ = "1" THEN wstaw 5, 2, p + 4 <br />IF prawo$ = "2" THEN wstaw 5, 2, 0 <br />IF prawo$ = "3" THEN wstaw 5, 2, p + 5 <br />IF prawo$ = "4" THEN wstaw 5, 2, 0 <br />PRINT <br /> <br />REM wiersz 3 <br />p = p + 3 <br />IF lewo$ = "0" THEN wstaw 1, 3, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 3, 0 <br />IF lewo$ = "2" THEN wstaw 1, 3, p + 1 <br />IF lewo$ = "3" THEN wstaw 1, 3, p + 2 <br />IF lewo$ = "4" THEN wstaw 1, 3, p + 3 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 3, p + 4 <br />IF prawo$ = "1" THEN wstaw 5, 3, 0 <br />IF prawo$ = "2" THEN wstaw 5, 3, p + 5 <br />IF prawo$ = "3" THEN wstaw 5, 3, p + 6 <br />IF prawo$ = "4" THEN wstaw 5, 3, p + 7 <br />PRINT <br /> <br />REM wiersz 4 <br /> p = p + 4 <br />IF lewo$ = "0" THEN wstaw 1, 4, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 4, p + 1 <br />IF lewo$ = "2" THEN wstaw 1, 4, p + 2 <br />IF lewo$ = "3" THEN wstaw 1, 4, 0 <br />IF lewo$ = "4" THEN wstaw 1, 4, 0 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 4, p + 3 <br />IF prawo$ = "1" THEN wstaw 5, 4, p + 4 <br />IF prawo$ = "2" THEN wstaw 5, 4, p + 5 <br />IF prawo$ = "3" THEN wstaw 5, 4, 0 <br />IF prawo$ = "4" THEN wstaw 5, 4, 0 <br />PRINT <br /> <br />REM wiersz 5 <br />p = p + 5 <br />wstaw 1, 5, p + 0 <br />IF dol$ = "0" THEN wstaw 2, 5, p + 1: wstaw 3, 5, p + 2: wstaw 4, 5, p + 3 <br />IF dol$ = "1" THEN wstaw 2, 5, p + 4: wstaw 3, 5, 0: wstaw 4, 5, p + 5 <br />IF dol$ = "2" THEN wstaw 2, 5, p + 6: wstaw 3, 5, p + 7: wstaw 4, 5, 0 <br />IF dol$ = "3" THEN wstaw 2, 5, 0: wstaw 3, 5, p + 8: wstaw 4, 5, p + 9 <br />IF dol$ = "4" THEN wstaw 2, 5, 0: wstaw 3, 5, p + 10: wstaw 4, 5, 0 <br />wstaw 5, 5, p + 11 <br />PRINT <br /> <br />REM rysowanie przegrod <br />p = p + 6 <br /> <br />poz$ = MID$(prz$(yr), xr + 1, 1) <br />pio$ = MID$(prz$(yr), xr + 1 + 12, 1) <br />IF poz$ = "0" THEN wstaw 2, 3, 0: wstaw 3, 3, 0: wstaw 4, 3, 0 <br />IF poz$ = "1" THEN wstaw 2, 3, 0: wstaw 3, 3, 0: wstaw 4, 3, p + 0 <br />IF poz$ = "2" THEN wstaw 2, 3, p + 1: wstaw 3, 3, 0: wstaw 4, 3, 0 <br />IF poz$ = "3" THEN wstaw 2, 3, p + 2: wstaw 3, 3, 0: wstaw 4, 3, p + 3 <br />IF poz$ = "4" THEN wstaw 2, 3, p + 4: wstaw 3, 3, p + 5: wstaw 4, 4, p + 6 <br />IF poz$ = "5" THEN wstaw 2, 3, p + 7: wstaw 3, 3, p + 8: wstaw 4, 3, 0 <br />IF poz$ = "6" THEN wstaw 2, 3, 0: wstaw 3, 3, p + 9: wstaw 4, 3, p + 10 <br />IF poz$ = "7" THEN wstaw 2, 3, 0: wstaw 3, 3, p + 11: wstaw 4, 3, 0 <br /> <br />IF pio$ = "0" THEN wstaw 3, 2, 0: wstaw 3, 4, 0 <br />IF pio$ = "1" THEN wstaw 3, 2, p + 12: wstaw 3, 4, 0 <br />IF pio$ = "2" THEN wstaw 3, 2, 0: wstaw 3, 4, p + 13 <br />IF pio$ = "3" THEN wstaw 3, 2, p + 14: wstaw 3, 4, p + 15 <br />REM pola pozostale <br />p = p + 7 <br /> <br />res$ = "&H" + MID$(prz$(yr), xr + 1 + 24, 1) <br />reszta = VAL(res$) <br /> <br />IF (reszta AND 1) = 1 THEN wstaw 2, 2, p + 0 <br />IF (reszta AND 2) = 2 THEN wstaw 4, 2, p + 1 <br />IF (reszta AND 4) = 4 THEN wstaw 2, 4, p + 2 <br />IF (reszta AND 8) = 8 THEN wstaw 4, 4, p + 3 <br />IF (reszta AND 1) = 0 THEN wstaw 2, 2, 0 <br />IF (reszta AND 2) = 0 THEN wstaw 4, 2, 0 <br />IF (reszta AND 4) = 0 THEN wstaw 2, 4, 0 <br />IF (reszta AND 8) = 0 THEN wstaw 4, 4, 0 <br /> <br />LOCATE 14, 1: PRINT "room"; xr; "/"; yr; " " <br /> <br />GOTO wstawgracza <br />petla: <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br />IF k$ = CHR$(0) + "K" THEN x = x - 1 <br />IF k$ = CHR$(0) + "M" THEN x = x + 1 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1 <br />IF k$ = CHR$(27) THEN END <br /> <br />REM sprawdzenie przejscia do innej planszy <br /> <br />IF x > 7 THEN x = 1: xs = 1: xr = xr + 1: GOTO rysuj <br />IF x < 1 THEN x = 7: xs = 7: xr = xr - 1: GOTO rysuj <br />IF y > 7 THEN y = 1: ys = 1: yr = yr + 1: GOTO rysuj <br />IF y < 1 THEN y = 7: ys = 7: yr = yr - 1: GOTO rysuj <br /> <br />REM sprawdzenie przeszkody <br />pobierz = SCREEN(y, x) <br />IF pobierz <> ASC(".") AND pobierz <> 3 THEN x = xs: y = ys: GOTO petla <br /> <br />wstawgracza: <br /> COLOR 15 <br />LOCATE ys, xs: PRINT "."; <br />LOCATE y, x: PRINT CHR$(2); <br />xs = x: ys = y <br />GOTO petla <br /> <br />SUB cegly <br /> <br />REM dane elementow <br />bi$(0) = "011111011111" + "111111111111" + "111111111111" + "111111111111" <br />bi$(1) = "011111011111" + "100000000001" + "100010010001" + "111111111111" <br />bi$(2) = "011111011111" + "100000000001" + "100100001001" + "111111111111" <br />bi$(3) = "011111011111" + "100000000001" + "101000000101" + "110101010101" <br />bi$(4) = "011111011111" + "100000000001" + "110000000011" + "110101010101" <br />bi$(5) = "000000000000" + "100000000001" + "100000000001" + "110100010101" <br />bi$(6) = "110111110111" + "100000000001" + "100000000001" + "110000010001" <br />bi$(7) = "110111110111" + "100000000001" + "110000000011" + "100000000001" <br />bi$(8) = "110111110111" + "100000000001" + "101000000101" + "100000000001" <br />bi$(9) = "110111110111" + "100000000001" + "100100001001" + "111111111111" <br />bi$(10) = "110111110111" + "100000000001" + "100010010001" + "111111111111" <br />bi$(11) = "000000000000" + "111111111111" + "111111111111" + "111111111111" <br /> <br />FOR yb = 0 TO 11 <br />FOR xb = 0 TO 47 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br />GET (0, 0)-(11, 11), g1 <br />GET (12, 0)-(23, 11), g2 <br />GET (24, 0)-(35, 11), g3 <br />GET (36, 0)-(47, 11), g4 <br /> <br /> CLS <br />REM dane elementow <br />bi$(0) = "111111111111" + "111111111111" + "011111111110" + "111110111110" <br />bi$(1) = "100000000001" + "000000000000" + "100000000001" + "111110000000" <br />bi$(2) = "101111111101" + "111111111111" + "100000001101" + "111110111110" <br />bi$(3) = "101000000101" + "000000000000" + "100000000101" + "000000111110" <br />bi$(4) = "101011110101" + "111111111111" + "100000000001" + "111110111110" <br />bi$(5) = "101010010101" + "000000000000" + "100000000001" + "111110111110" <br />bi$(6) = "101010010101" + "111111111111" + "100000000001" + "111110000000" <br />bi$(7) = "101011110101" + "000000000000" + "100000000001" + "111110111110" <br />bi$(8) = "101000000101" + "111111111111" + "101000000001" + "000000111110" <br />bi$(9) = "101111111101" + "000000000000" + "101100000001" + "111110111110" <br />bi$(10) = "100000000001" + "111111111111" + "100000000001" + "111110111110" <br />bi$(11) = "111111111111" + "000000000000" + "011111111110" + "111110111110" <br /> <br />FOR yb = 0 TO 11 <br />FOR xb = 0 TO 47 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br /> <br />GET (0, 0)-(11, 11), g5 <br />GET (12, 0)-(23, 11), g6 <br />GET (24, 0)-(35, 11), g7 <br />GET (36, 0)-(47, 11), g8 <br /> <br /> <br />CLS <br />END SUB <br /> <br />SUB wstaw (xe, ye, parametr) <br /> <br />COLOR 15: REM color parametr <br /> <br /> IF parametr = 0 THEN GOTO koncz <br />ye = ye - 1: xe = xe - 1 <br />xe = xe * 12 <br />ye = ye * 12 <br /> <br />IF parametr / 8 = INT(parametr / 8) THEN PUT (xe, ye), g1, PSET: GOTO koncz <br />IF parametr / 7 = INT(parametr / 7) THEN PUT (xe, ye), g2, PSET: GOTO koncz <br />IF parametr / 6 = INT(parametr / 6) THEN PUT (xe, ye), g3, PSET: GOTO koncz <br />IF parametr / 5 = INT(parametr / 5) THEN PUT (xe, ye), g4, PSET: GOTO koncz <br />IF parametr / 4 = INT(parametr / 4) THEN PUT (xe, ye), g5, PSET: GOTO koncz <br />IF parametr / 3 = INT(parametr / 3) THEN PUT (xe, ye), g6, PSET: GOTO koncz <br />IF parametr / 2 = INT(parametr / 2) THEN PUT (xe, ye), g7, PSET: GOTO koncz <br />IF parametr / 1 = INT(parametr / 1) THEN PUT (xe, ye), g8, PSET: GOTO koncz <br />koncz: <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 15:23, 11 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB cegly () <br />DECLARE SUB wstaw (x!, y!, parametr!) <br />DIM SHARED g1(0 TO 16) AS LONG <br />DIM SHARED g2(0 TO 16) AS LONG <br />DIM SHARED g3(0 TO 16) AS LONG <br />DIM SHARED g4(0 TO 16) AS LONG <br />DIM SHARED g5(0 TO 16) AS LONG <br />DIM SHARED g6(0 TO 16) AS LONG <br />DIM SHARED g7(0 TO 16) AS LONG <br />DIM SHARED g8(0 TO 16) AS LONG <br />DIM SHARED bi$(0 TO 7) <br />SCREEN 13 <br /> <br />REM Tablice labiryntu <br />REM 0 - brak przejsc <br />REM 1 - pojedyncze na srodku <br />REM 2 - prawo lub gora <br />REM 3 - lewo lub dol <br />REM 4 - obydwa <br />REM <br />REM tablice przejsc <br />REM ........gornych.....dolnych.....prawych......lewych <br />lab$(0) = "0000000000__4444444444__1111111110__0111111111" <br />lab$(1) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(2) = "4444444444__4444444044__1121111110__0112111111" <br />lab$(3) = "4444444044__4444444444__1111111110__0111111111" <br />lab$(4) = "4444444444__4444144444__1111111110__0111111111" <br />lab$(5) = "4444144444__4444444444__1111111110__0111111111" <br />lab$(6) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(7) = "4444444444__4444444444__1110111110__0111011111" <br />lab$(8) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(9) = "4444444444__0000000000__1111111110__0111111111" <br /> <br />REM 0- brak przegrod <br />REM 1- gorna lub prawa (bez srodka) <br />REM 2- dolna lub lewa (bez srodka) <br />REM 3 - obydwie <br />REM tylko poziome: 4-wszystkie, 5-srodek i lewa, 6 srodek i prawa,7 tylko srodek <br />REM tablice przegrod ........oraz tablica pol... <br />REM ........poziomych...pionowych..pozostalych....niezdef <br />prz$(0) = "0100701000__0020200020__1010012010__0111111111" <br />prz$(1) = "6001010106__0100020102__1401018130__0111111111" <br />prz$(2) = "4070270241__0210100004__1000030100__0112111111" <br />prz$(3) = "0120014004__0000012030__0010010D10__0111111111" <br />prz$(4) = "6401071421__0012100301__1010200310__0111111111" <br />prz$(5) = "7200102040__0000002010__1103020700__0111111111" <br />prz$(6) = "4203070101__0102010200__1041004B10__0111111111" <br />prz$(7) = "7017007110__0100200121__001A100010__0111011111" <br />prz$(8) = "4100600121__0020120200__1000313000__0111111111" <br />prz$(9) = "2070402024__0103010020__1014000120__0111111111" <br /> <br />REM pobranie grafiki <br /> <br />cegly <br /> <br />REM dane startowe <br />xr = 5: yr = 5 <br />x = 3: y = 3: xs = 3: ys = 3 <br />q$ = CHR$(219) <br />REM *********************************************** <br />REM rysowanie planszy <br /> <br />rysuj: <br />gora$ = MID$(lab$(yr), xr + 1, 1) <br />dol$ = MID$(lab$(yr), xr + 1 + 12, 1) <br />prawo$ = MID$(lab$(yr), xr + 1 + 24, 1) <br />lewo$ = MID$(lab$(yr), xr + 1 + 36, 1) <br /> <br />REM parametr kolorowania <br />parax = 0: paray = 0 <br />IF xr / 2 = INT(xr / 2) THEN parax = 1 <br />IF yr / 2 = INT(yr / 2) THEN paray = 1 <br />p = parax * 4 + paray * 8 <br /> <br />REM CLS <br /> <br />LOCATE 1, 1 <br /> <br />REM wiersz 1 <br />p = p + 1 <br />wstaw 1, 1, p + 0 <br />IF gora$ = "0" THEN wstaw 2, 1, p + 1: wstaw 3, 1, p + 2: wstaw 4, 1, p + 3 <br />IF gora$ = "1" THEN wstaw 2, 1, p + 4: wstaw 3, 1, 0: wstaw 4, 1, p + 5 <br />IF gora$ = "2" THEN wstaw 2, 1, p + 6: wstaw 3, 1, p + 7: wstaw 4, 1, 0 <br />IF gora$ = "3" THEN wstaw 2, 1, 0: wstaw 3, 1, p + 8: wstaw 4, 1, p + 9 <br />IF gora$ = "4" THEN wstaw 2, 1, 0: wstaw 3, 1, p + 10: wstaw 4, 1, 0 <br />wstaw 5, 1, p + 11 <br />PRINT <br /> <br />REM wiersz 2 <br />p = p + 2 <br />IF lewo$ = "0" THEN wstaw 1, 2, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 2, p + 1 <br />IF lewo$ = "2" THEN wstaw 1, 2, 0 <br />IF lewo$ = "3" THEN wstaw 1, 2, p + 2 <br />IF lewo$ = "4" THEN wstaw 1, 2, 0 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 2, p + 3 <br />IF prawo$ = "1" THEN wstaw 5, 2, p + 4 <br />IF prawo$ = "2" THEN wstaw 5, 2, 0 <br />IF prawo$ = "3" THEN wstaw 5, 2, p + 5 <br />IF prawo$ = "4" THEN wstaw 5, 2, 0 <br />PRINT <br /> <br />REM wiersz 3 <br />p = p + 3 <br />IF lewo$ = "0" THEN wstaw 1, 3, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 3, 0 <br />IF lewo$ = "2" THEN wstaw 1, 3, p + 1 <br />IF lewo$ = "3" THEN wstaw 1, 3, p + 2 <br />IF lewo$ = "4" THEN wstaw 1, 3, p + 3 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 3, p + 4 <br />IF prawo$ = "1" THEN wstaw 5, 3, 0 <br />IF prawo$ = "2" THEN wstaw 5, 3, p + 5 <br />IF prawo$ = "3" THEN wstaw 5, 3, p + 6 <br />IF prawo$ = "4" THEN wstaw 5, 3, p + 7 <br />PRINT <br /> <br />REM wiersz 4 <br /> p = p + 4 <br />IF lewo$ = "0" THEN wstaw 1, 4, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 4, p + 1 <br />IF lewo$ = "2" THEN wstaw 1, 4, p + 2 <br />IF lewo$ = "3" THEN wstaw 1, 4, 0 <br />IF lewo$ = "4" THEN wstaw 1, 4, 0 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 4, p + 3 <br />IF prawo$ = "1" THEN wstaw 5, 4, p + 4 <br />IF prawo$ = "2" THEN wstaw 5, 4, p + 5 <br />IF prawo$ = "3" THEN wstaw 5, 4, 0 <br />IF prawo$ = "4" THEN wstaw 5, 4, 0 <br />PRINT <br /> <br />REM wiersz 5 <br />p = p + 5 <br />wstaw 1, 5, p + 0 <br />IF dol$ = "0" THEN wstaw 2, 5, p + 1: wstaw 3, 5, p + 2: wstaw 4, 5, p + 3 <br />IF dol$ = "1" THEN wstaw 2, 5, p + 4: wstaw 3, 5, 0: wstaw 4, 5, p + 5 <br />IF dol$ = "2" THEN wstaw 2, 5, p + 6: wstaw 3, 5, p + 7: wstaw 4, 5, 0 <br />IF dol$ = "3" THEN wstaw 2, 5, 0: wstaw 3, 5, p + 8: wstaw 4, 5, p + 9 <br />IF dol$ = "4" THEN wstaw 2, 5, 0: wstaw 3, 5, p + 10: wstaw 4, 5, 0 <br />wstaw 5, 5, p + 11 <br />PRINT <br /> <br />REM rysowanie przegrod <br />p = p + 6 <br /> <br />poz$ = MID$(prz$(yr), xr + 1, 1) <br />pio$ = MID$(prz$(yr), xr + 1 + 12, 1) <br />IF poz$ = "0" THEN wstaw 2, 3, 0: wstaw 3, 3, 0: wstaw 4, 3, 0 <br />IF poz$ = "1" THEN wstaw 2, 3, 0: wstaw 3, 3, 0: wstaw 4, 3, p + 0 <br />IF poz$ = "2" THEN wstaw 2, 3, p + 1: wstaw 3, 3, 0: wstaw 4, 3, 0 <br />IF poz$ = "3" THEN wstaw 2, 3, p + 2: wstaw 3, 3, 0: wstaw 4, 3, p + 3 <br />IF poz$ = "4" THEN wstaw 2, 3, p + 4: wstaw 3, 3, p + 5: wstaw 4, 4, p + 6 <br />IF poz$ = "5" THEN wstaw 2, 3, p + 7: wstaw 3, 3, p + 8: wstaw 4, 3, 0 <br />IF poz$ = "6" THEN wstaw 2, 3, 0: wstaw 3, 3, p + 9: wstaw 4, 3, p + 10 <br />IF poz$ = "7" THEN wstaw 2, 3, 0: wstaw 3, 3, p + 11: wstaw 4, 3, 0 <br /> <br />IF pio$ = "0" THEN wstaw 3, 2, 0: wstaw 3, 4, 0 <br />IF pio$ = "1" THEN wstaw 3, 2, p + 12: wstaw 3, 4, 0 <br />IF pio$ = "2" THEN wstaw 3, 2, 0: wstaw 3, 4, p + 13 <br />IF pio$ = "3" THEN wstaw 3, 2, p + 14: wstaw 3, 4, p + 15 <br />REM pola pozostale <br />p = p + 7 <br /> <br />res$ = "&H" + MID$(prz$(yr), xr + 1 + 24, 1) <br />reszta = VAL(res$) <br /> <br />IF (reszta AND 1) = 1 THEN wstaw 2, 2, p + 0 <br />IF (reszta AND 2) = 2 THEN wstaw 4, 2, p + 1 <br />IF (reszta AND 4) = 4 THEN wstaw 2, 4, p + 2 <br />IF (reszta AND 8) = 8 THEN wstaw 4, 4, p + 3 <br />IF (reszta AND 1) = 0 THEN wstaw 2, 2, 0 <br />IF (reszta AND 2) = 0 THEN wstaw 4, 2, 0 <br />IF (reszta AND 4) = 0 THEN wstaw 2, 4, 0 <br />IF (reszta AND 8) = 0 THEN wstaw 4, 4, 0 <br /> <br />LOCATE 14, 1: PRINT "room"; xr; "/"; yr; " " <br /> <br />GOTO wstawgracza <br />petla: <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br />IF k$ = CHR$(0) + "K" THEN x = x - 1 <br />IF k$ = CHR$(0) + "M" THEN x = x + 1 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1 <br />IF k$ = CHR$(27) THEN END <br /> <br />REM sprawdzenie przejscia do innej planszy <br /> <br />IF x > 5 THEN x = 1: xs = 1: xr = xr + 1: GOTO rysuj <br />IF x < 1 THEN x = 5: xs = 5: xr = xr - 1: GOTO rysuj <br />IF y > 5 THEN y = 1: ys = 1: yr = yr + 1: GOTO rysuj <br />IF y < 1 THEN y = 5: ys = 5: yr = yr - 1: GOTO rysuj <br /> <br />REM sprawdzenie przeszkody <br />pobierz = SCREEN(y, x) <br />IF pobierz <> ASC(".") AND pobierz <> 3 THEN x = xs: y = ys: GOTO petla <br /> <br />wstawgracza: <br /> COLOR 15 <br />LOCATE ys, xs: PRINT "."; <br />LOCATE y, x: PRINT CHR$(2); <br />xs = x: ys = y <br />GOTO petla <br /> <br />SUB cegly <br /> <br />REM dane elementow <br />bi$(0) = "01110111" + "11111111" + "11111111" + "11111111" + "11111111" + "11111111" + "01111110" + "11101110" <br />bi$(1) = "01110111" + "10000001" + "10100101" + "11111111" + "10000001" + "00000000" + "10000001" + "11100000" <br />bi$(2) = "01110111" + "10000001" + "11000011" + "11111111" + "10111101" + "11111111" + "10001101" + "00001110" <br />bi$(3) = "00000000" + "10000001" + "10000001" + "11010101" + "10100101" + "00000000" + "10000101" + "11101110" <br />bi$(4) = "11011101" + "10000001" + "10000001" + "10010101" + "10100101" + "11111111" + "10100001" + "11101110" <br />bi$(5) = "11011101" + "10000001" + "11000011" + "10010101" + "10111101" + "00000000" + "10110001" + "11100000" <br />bi$(6) = "11011101" + "10000001" + "10100101" + "10010001" + "10000001" + "11111111" + "10000001" + "00001110" <br />bi$(7) = "00000000" + "11111111" + "11111111" + "11111111" + "11111111" + "00000000" + "01111110" + "11101110" <br />FOR yb = 0 TO 7 <br />FOR xb = 0 TO 63 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br />GET (0, 0)-(7, 7), g1 <br />GET (8, 0)-(15, 7), g2 <br />GET (16, 0)-(23, 7), g3 <br />GET (24, 0)-(31, 7), g4 <br />GET (32, 0)-(39, 7), g5 <br />GET (40, 0)-(47, 7), g6 <br />GET (48, 0)-(55, 7), g7 <br />GET (56, 0)-(63, 7), g8 <br />CLS <br />END SUB <br /> <br />SUB wstaw (xe, ye, parametr) <br /> <br />COLOR 15: REM color parametr <br />REM LOCATE ye, xe <br /> <br />IF parametr = 0 THEN LOCATE ye, xe: PRINT ".": GOTO koncz <br />ye = ye - 1: xe = xe - 1 <br />IF parametr / 8 = INT(parametr / 8) THEN PUT (xe * 8, ye * 8), g1, PSET: GOTO koncz <br />IF parametr / 7 = INT(parametr / 7) THEN PUT (xe * 8, ye * 8), g2, PSET: GOTO koncz <br />IF parametr / 6 = INT(parametr / 6) THEN PUT (xe * 8, ye * 8), g3, PSET: GOTO koncz <br />IF parametr / 5 = INT(parametr / 5) THEN PUT (xe * 8, ye * 8), g4, PSET: GOTO koncz <br />IF parametr / 4 = INT(parametr / 4) THEN PUT (xe * 8, ye * 8), g5, PSET: GOTO koncz <br />IF parametr / 3 = INT(parametr / 3) THEN PUT (xe * 8, ye * 8), g6, PSET: GOTO koncz <br />IF parametr / 2 = INT(parametr / 2) THEN PUT (xe * 8, ye * 8), g7, PSET: GOTO koncz <br />IF parametr / 1 = INT(parametr / 1) THEN PUT (xe * 8, ye * 8), g8, PSET: GOTO koncz <br />koncz: <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 14:53, 11 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">DECLARE SUB wstaw (x!, y!, parametr!) <br />SCREEN 13 <br /> <br />REM Tablice labiryntu <br />REM 0 - brak przejsc <br />REM 1 - pojedyncze na srodku <br />REM 2 - prawo lub gora <br />REM 3 - lewo lub dol <br />REM 4 - obydwa <br />REM <br />REM tablice przejsc <br />REM ........gornych.....dolnych.....prawych......lewych <br />lab$(0) = "0000000000__4444444444__1111111110__0111111111" <br />lab$(1) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(2) = "4444444444__4444444044__1121111110__0112111111" <br />lab$(3) = "4444444044__4444444444__1111111110__0111111111" <br />lab$(4) = "4444444444__4444144444__1111111110__0111111111" <br />lab$(5) = "4444144444__4444444444__1111111110__0111111111" <br />lab$(6) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(7) = "4444444444__4444444444__1110111110__0111011111" <br />lab$(8) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(9) = "4444444444__0000000000__1111111110__0111111111" <br /> <br />REM 0- brak przegrod <br />REM 1- gorna lub prawa (bez srodka) <br />REM 2- dolna lub lewa (bez srodka) <br />REM 3 - obydwie <br />REM tylko poziome: 4-wszystkie, 5-srodek i lewa, 6 srodek i prawa,7 tylko srodek <br />REM tablice przegrod ........oraz tablica pol... <br />REM ........poziomych...pionowych..pozostalych....niezdef <br />prz$(0) = "0100701000__0020200020__1010012010__0111111111" <br />prz$(1) = "6001010106__0100020102__1401018130__0111111111" <br />prz$(2) = "4070270241__0210100004__1000030100__0112111111" <br />prz$(3) = "0120014004__0000012030__0010010D10__0111111111" <br />prz$(4) = "6401071421__0012100301__1010200310__0111111111" <br />prz$(5) = "7200102040__0000002010__1103020700__0111111111" <br />prz$(6) = "4203070101__0102010200__1041004B10__0111111111" <br />prz$(7) = "7017007110__0100200121__001A100010__0111011111" <br />prz$(8) = "4100600121__0020120200__1000313000__0111111111" <br />prz$(9) = "2070402024__0103010020__1014000120__0111111111" <br /> <br /> <br />REM dane startowe <br />xr = 5: yr = 5 <br />x = 3: y = 3: xs = 3: ys = 3 <br />q$ = CHR$(219) <br />REM *********************************************** <br />REM rysowanie planszy <br /> <br />rysuj: <br />gora$ = MID$(lab$(yr), xr + 1, 1) <br />dol$ = MID$(lab$(yr), xr + 1 + 12, 1) <br />prawo$ = MID$(lab$(yr), xr + 1 + 24, 1) <br />lewo$ = MID$(lab$(yr), xr + 1 + 36, 1) <br /> <br />REM parametr kolorowania <br />parax = 0: paray = 0 <br />IF xr / 2 = INT(xr / 2) THEN parax = 1 <br />IF yr / 2 = INT(yr / 2) THEN paray = 1 <br />p = parax * 4 + paray * 8 <br /> <br />REM CLS <br /> <br />LOCATE 1, 1 <br /> <br />REM wiersz 1 <br />p = p + 1 <br />wstaw 1, 1, p + 0 <br />IF gora$ = "0" THEN wstaw 2, 1, p + 1: wstaw 3, 1, p + 2: wstaw 4, 1, p + 3 <br />IF gora$ = "1" THEN wstaw 2, 1, p + 4: wstaw 3, 1, 0: wstaw 4, 1, p + 5 <br />IF gora$ = "2" THEN wstaw 2, 1, p + 6: wstaw 3, 1, p + 7: wstaw 4, 1, 0 <br />IF gora$ = "3" THEN wstaw 2, 1, 0: wstaw 3, 1, p + 8: wstaw 4, 1, p + 9 <br />IF gora$ = "4" THEN wstaw 2, 1, 0: wstaw 3, 1, p + 10: wstaw 4, 1, 0 <br />wstaw 5, 1, p + 11 <br />PRINT <br /> <br />REM wiersz 2 <br />p = p + 2 <br />IF lewo$ = "0" THEN wstaw 1, 2, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 2, p + 1 <br />IF lewo$ = "2" THEN wstaw 1, 2, 0 <br />IF lewo$ = "3" THEN wstaw 1, 2, p + 2 <br />IF lewo$ = "4" THEN wstaw 1, 2, 0 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 2, p + 3 <br />IF prawo$ = "1" THEN wstaw 5, 2, p + 4 <br />IF prawo$ = "2" THEN wstaw 5, 2, 0 <br />IF prawo$ = "3" THEN wstaw 5, 2, p + 5 <br />IF prawo$ = "4" THEN wstaw 5, 2, 0 <br />PRINT <br /> <br />REM wiersz 3 <br />p = p + 3 <br />IF lewo$ = "0" THEN wstaw 1, 3, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 3, 0 <br />IF lewo$ = "2" THEN wstaw 1, 3, p + 1 <br />IF lewo$ = "3" THEN wstaw 1, 3, p + 2 <br />IF lewo$ = "4" THEN wstaw 1, 3, p + 3 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 3, p + 4 <br />IF prawo$ = "1" THEN wstaw 5, 3, 0 <br />IF prawo$ = "2" THEN wstaw 5, 3, p + 5 <br />IF prawo$ = "3" THEN wstaw 5, 3, p + 6 <br />IF prawo$ = "4" THEN wstaw 5, 3, p + 7 <br />PRINT <br /> <br />REM wiersz 4 <br /> p = p + 4 <br />IF lewo$ = "0" THEN wstaw 1, 4, p + 0 <br />IF lewo$ = "1" THEN wstaw 1, 4, p + 1 <br />IF lewo$ = "2" THEN wstaw 1, 4, p + 2 <br />IF lewo$ = "3" THEN wstaw 1, 4, 0 <br />IF lewo$ = "4" THEN wstaw 1, 4, 0 <br />REM PRINT "..."; <br />IF prawo$ = "0" THEN wstaw 5, 4, p + 3 <br />IF prawo$ = "1" THEN wstaw 5, 4, p + 4 <br />IF prawo$ = "2" THEN wstaw 5, 4, p + 5 <br />IF prawo$ = "3" THEN wstaw 5, 4, 0 <br />IF prawo$ = "4" THEN wstaw 5, 4, 0 <br />PRINT <br /> <br />REM wiersz 5 <br />p = p + 5 <br />wstaw 1, 5, p + 0 <br />IF dol$ = "0" THEN wstaw 2, 5, p + 1: wstaw 3, 5, p + 2: wstaw 4, 5, p + 3 <br />IF dol$ = "1" THEN wstaw 2, 5, p + 4: wstaw 3, 5, 0: wstaw 4, 5, p + 5 <br />IF dol$ = "2" THEN wstaw 2, 5, p + 6: wstaw 3, 5, p + 7: wstaw 4, 5, 0 <br />IF dol$ = "3" THEN wstaw 2, 5, 0: wstaw 3, 5, p + 8: wstaw 4, 5, p + 9 <br />IF dol$ = "4" THEN wstaw 2, 5, 0: wstaw 3, 5, p + 10: wstaw 4, 5, 0 <br />wstaw 5, 5, p + 11 <br />PRINT <br /> <br />REM rysowanie przegrod <br />p = p + 6 <br /> <br />poz$ = MID$(prz$(yr), xr + 1, 1) <br />pio$ = MID$(prz$(yr), xr + 1 + 12, 1) <br />IF poz$ = "0" THEN wstaw 2, 3, 0: wstaw 3, 3, 0: wstaw 4, 3, 0 <br />IF poz$ = "1" THEN wstaw 2, 3, 0: wstaw 3, 3, 0: wstaw 4, 3, p + 0 <br />IF poz$ = "2" THEN wstaw 2, 3, p + 1: wstaw 3, 3, 0: wstaw 4, 3, 0 <br />IF poz$ = "3" THEN wstaw 2, 3, p + 2: wstaw 3, 3, 0: wstaw 4, 3, p + 3 <br />IF poz$ = "4" THEN wstaw 2, 3, p + 4: wstaw 3, 3, p + 5: wstaw 4, 4, p + 6 <br />IF poz$ = "5" THEN wstaw 2, 3, p + 7: wstaw 3, 3, p + 8: wstaw 4, 3, 0 <br />IF poz$ = "6" THEN wstaw 2, 3, 0: wstaw 3, 3, p + 9: wstaw 4, 3, p + 10 <br />IF poz$ = "7" THEN wstaw 2, 3, 0: wstaw 3, 3, p + 11: wstaw 4, 3, 0 <br /> <br />IF pio$ = "0" THEN wstaw 3, 2, 0: wstaw 3, 4, 0 <br />IF pio$ = "1" THEN wstaw 3, 2, p + 12: wstaw 3, 4, 0 <br />IF pio$ = "2" THEN wstaw 3, 2, 0: wstaw 3, 4, p + 13 <br />IF pio$ = "3" THEN wstaw 3, 2, p + 14: wstaw 3, 4, p + 15 <br />REM pola pozostale <br />p = p + 7 <br /> <br />res$ = "&H" + MID$(prz$(yr), xr + 1 + 24, 1) <br />reszta = VAL(res$) <br /> <br />IF (reszta AND 1) = 1 THEN wstaw 2, 2, p + 0 <br />IF (reszta AND 2) = 2 THEN wstaw 4, 2, p + 1 <br />IF (reszta AND 4) = 4 THEN wstaw 2, 4, p + 2 <br />IF (reszta AND 8) = 8 THEN wstaw 4, 4, p + 3 <br />IF (reszta AND 1) = 0 THEN wstaw 2, 2, 0 <br />IF (reszta AND 2) = 0 THEN wstaw 4, 2, 0 <br />IF (reszta AND 4) = 0 THEN wstaw 2, 4, 0 <br />IF (reszta AND 8) = 0 THEN wstaw 4, 4, 0 <br /> <br />LOCATE 14, 1: PRINT "room"; xr; "/"; yr; " " <br /> <br />GOTO wstawgracza <br />petla: <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br />IF k$ = CHR$(0) + "K" THEN x = x - 1 <br />IF k$ = CHR$(0) + "M" THEN x = x + 1 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1 <br />IF k$ = CHR$(27) THEN END <br /> <br />REM sprawdzenie przejscia do innej planszy <br /> <br />IF x > 5 THEN x = 1: xs = 1: xr = xr + 1: GOTO rysuj <br />IF x < 1 THEN x = 5: xs = 5: xr = xr - 1: GOTO rysuj <br />IF y > 5 THEN y = 1: ys = 1: yr = yr + 1: GOTO rysuj <br />IF y < 1 THEN y = 5: ys = 5: yr = yr - 1: GOTO rysuj <br /> <br />REM sprawdzenie przeszkody <br />pobierz = SCREEN(y, x) <br />IF pobierz <> ASC(".") AND pobierz <> 3 THEN x = xs: y = ys: GOTO petla <br /> <br />wstawgracza: <br /> COLOR 15 <br />LOCATE ys, xs: PRINT "."; <br />LOCATE y, x: PRINT CHR$(2); <br />xs = x: ys = y <br />GOTO petla <br /> <br />SUB wstaw (x, y, parametr) <br /> <br />COLOR 15: REM color parametr <br />LOCATE y, x <br /> <br />IF parametr = 0 THEN PRINT "."; <br />IF parametr > 0 THEN PRINT CHR$(65 + parametr); <br /> <br />END SUB</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 7:50, 11 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">SCREEN 13 <br /> <br />REM Tablice labiryntu <br />REM 0 - brak przejsc <br />REM 1 - pojedyncze na srodku <br />REM 2 - prawo lub gora <br />REM 3 - lewo lub dol <br />REM 4 - obydwa <br />REM <br />REM tablice przejsc <br />REM ........gornych.....dolnych.....prawych......lewych <br />lab$(0) = "0000000000__4444444444__1111111110__0111111111" <br />lab$(1) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(2) = "4444444444__4444444044__1121111110__0112111111" <br />lab$(3) = "4444444044__4444444444__1111111110__0111111111" <br />lab$(4) = "4444444444__4444144444__1111111110__0111111111" <br />lab$(5) = "4444144444__4444444444__1111111110__0111111111" <br />lab$(6) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(7) = "4444444444__4444444444__1110111110__0111011111" <br />lab$(8) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(9) = "4444444444__0000000000__1111111110__0111111111" <br /> <br />REM 0- brak przegrod <br />REM 1- gorna lub prawa (bez srodka) <br />REM 2- dolna lub lewa (bez srodka) <br />REM 3 - obydwie <br />REM tylko poziome: 4-wszystkie, 5-srodek i lewa, 6 srodek i prawa,7 tylko srodek <br />REM tablice przegrod ........oraz tablica pol... <br />REM ........poziomych...pionowych..pozostalych....niezdef <br />prz$(0) = "0100501000__0020200020__1010012010__0111111111" <br />prz$(1) = "6011015146__0100020102__1401018130__0111111111" <br />prz$(2) = "4040250241__0220100004__1000030100__0112111111" <br />prz$(3) = "0120014004__0404012430__0010010D10__0111111111" <br />prz$(4) = "6401071421__4012100341__1010200310__0111111111" <br />prz$(5) = "4200102040__4040042010__1103020700__0111111111" <br />prz$(6) = "4203010101__0302010200__1041004B10__0111111111" <br />prz$(7) = "7012007110__0100200121__001A100010__0111011111" <br />prz$(8) = "4100600121__0020120200__1000313000__0111111111" <br />prz$(9) = "2070402024__0103010020__1014000120__0111111111" <br /> <br /> <br />REM dane startowe <br />xr = 5: yr = 5 <br />x = 3: y = 3: xs = 3: ys = 3 <br />q$ = CHR$(219) <br />REM *********************************************** <br />REM rysowanie planszy <br /> <br />rysuj: <br />gora$ = MID$(lab$(yr), xr + 1, 1) <br />dol$ = MID$(lab$(yr), xr + 1 + 12, 1) <br />prawo$ = MID$(lab$(yr), xr + 1 + 24, 1) <br />lewo$ = MID$(lab$(yr), xr + 1 + 36, 1) <br /> <br />REM CLS <br />COLOR 15 <br /> <br />LOCATE 1, 1 <br /> <br />REM wiersz 1 <br /> <br />PRINT q$; <br />IF gora$ = "0" THEN PRINT q$; q$; q$; <br />IF gora$ = "1" THEN PRINT q$; "."; q$; <br />IF gora$ = "2" THEN PRINT q$; q$; "."; <br />IF gora$ = "3" THEN PRINT "."; q$; q$; <br />IF gora$ = "4" THEN PRINT "."; q$; "."; <br />PRINT q$ <br /> <br />REM wiersz 2 <br /> <br />IF lewo$ = "0" THEN PRINT q$; <br />IF lewo$ = "1" THEN PRINT q$; <br />IF lewo$ = "2" THEN PRINT "."; <br />IF lewo$ = "3" THEN PRINT q$; <br />IF lewo$ = "4" THEN PRINT "."; <br />PRINT "..."; <br />IF prawo$ = "0" THEN PRINT q$; <br />IF prawo$ = "1" THEN PRINT q$; <br />IF prawo$ = "2" THEN PRINT "."; <br />IF prawo$ = "3" THEN PRINT q$; <br />IF prawo$ = "4" THEN PRINT "."; <br />PRINT <br /> <br />REM wiersz 3 <br /> <br />IF lewo$ = "0" THEN PRINT q$; <br />IF lewo$ = "1" THEN PRINT "."; <br />IF lewo$ = "2" THEN PRINT q$; <br />IF lewo$ = "3" THEN PRINT q$; <br />IF lewo$ = "4" THEN PRINT q$; <br />PRINT "..."; <br />IF prawo$ = "0" THEN PRINT q$; <br />IF prawo$ = "1" THEN PRINT "."; <br />IF prawo$ = "2" THEN PRINT q$; <br />IF prawo$ = "3" THEN PRINT q$; <br />IF prawo$ = "4" THEN PRINT q$; <br />PRINT <br /> <br />REM wiersz 4 <br /> <br />IF lewo$ = "0" THEN PRINT q$; <br />IF lewo$ = "1" THEN PRINT q$; <br />IF lewo$ = "2" THEN PRINT q$; <br />IF lewo$ = "3" THEN PRINT "."; <br />IF lewo$ = "4" THEN PRINT "."; <br />PRINT "..."; <br />IF prawo$ = "0" THEN PRINT q$; <br />IF prawo$ = "1" THEN PRINT q$; <br />IF prawo$ = "2" THEN PRINT q$; <br />IF prawo$ = "3" THEN PRINT "."; <br />IF prawo$ = "4" THEN PRINT "."; <br />PRINT <br /> <br />REM wiersz 5 <br /> <br />PRINT q$; <br />IF dol$ = "0" THEN PRINT q$; q$; q$; <br />IF dol$ = "1" THEN PRINT q$; "."; q$; <br />IF dol$ = "2" THEN PRINT q$; q$; "."; <br />IF dol$ = "3" THEN PRINT "."; q$; q$; <br />IF dol$ = "4" THEN PRINT "."; q$; "."; <br />PRINT q$; <br /> <br />REM rysowanie przegrod <br /> <br />poz$ = MID$(prz$(yr), xr + 1, 1) <br />pio$ = MID$(prz$(yr), xr + 1 + 12, 1) <br /> <br />IF poz$ = "1" THEN LOCATE 3, 4: PRINT q$; <br />IF poz$ = "2" THEN LOCATE 3, 2: PRINT q$; <br />IF poz$ = "3" THEN LOCATE 3, 2: PRINT q$; "."; q$; <br />IF poz$ = "4" THEN LOCATE 3, 2: PRINT q$; q$; q$; <br />IF poz$ = "5" THEN LOCATE 3, 2: PRINT q$; q$; <br />IF poz$ = "6" THEN LOCATE 3, 3: PRINT q$; q$; <br />IF poz$ = "7" THEN LOCATE 3, 3: PRINT q$; <br /> <br /> <br />IF pio$ = "1" THEN LOCATE 2, 3: PRINT q$; <br />IF pio$ = "2" THEN LOCATE 4, 3: PRINT q$; <br />IF pio$ = "3" THEN LOCATE 2, 3: PRINT q$: LOCATE 4, 3: PRINT q$; <br />REM pola pozostale <br /> <br />res$ = "&H" + MID$(prz$(yr), xr + 1 + 24, 1) <br />reszta = VAL(res$) <br /> <br />IF (reszta AND 1) = 1 THEN LOCATE 2, 2: PRINT q$; <br />IF (reszta AND 2) = 2 THEN LOCATE 2, 4: PRINT q$; <br />IF (reszta AND 4) = 4 THEN LOCATE 4, 2: PRINT q$; <br />IF (reszta AND 8) = 8 THEN LOCATE 4, 4: PRINT q$; <br /> <br />LOCATE 14, 1: PRINT "room"; xr; "/"; yr; " " <br /> <br />GOTO wstaw <br />petla: <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br />IF k$ = CHR$(0) + "K" THEN x = x - 1 <br />IF k$ = CHR$(0) + "M" THEN x = x + 1 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1 <br />IF k$ = CHR$(27) THEN END <br /> <br />REM sprawdzenie przejscia do innej planszy <br /> <br />IF x > 5 THEN x = 1: xs = 1: xr = xr + 1: GOTO rysuj <br />IF x < 1 THEN x = 5: xs = 5: xr = xr - 1: GOTO rysuj <br />IF y > 5 THEN y = 1: ys = 1: yr = yr + 1: GOTO rysuj <br />IF y < 1 THEN y = 5: ys = 5: yr = yr - 1: GOTO rysuj <br /> <br />REM sprawdzenie przeszkody <br />pobierz = SCREEN(y, x) <br />IF pobierz <> ASC(".") AND pobierz <> 3 THEN x = xs: y = ys: GOTO petla <br /> <br />wstaw: <br />LOCATE ys, xs: PRINT "."; <br />LOCATE y, x: PRINT CHR$(2); <br />xs = x: ys = y <br />GOTO petla</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 21:51, 10 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">SCREEN 13 <br /> <br />REM Tablice labiryntu <br />REM 0 - brak przejsc <br />REM 1 - pojedyncze na srodku <br />REM 2 - prawo lub gora <br />REM 3 - lewo lub dol <br />REM 4 - obydwa <br />REM <br />REM tablice przejsc <br />REM ........gornych.....dolnych.....prawych......lewych <br />lab$(0) = "0000000000__4444444444__1111111110__0111111111" <br />lab$(1) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(2) = "4444444444__4444444044__1121111110__0112111111" <br />lab$(3) = "4444444044__4444444444__1111111110__0111111111" <br />lab$(4) = "4444444444__4444144444__1111111110__0111111111" <br />lab$(5) = "4444144444__4444444444__1111111110__0111111111" <br />lab$(6) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(7) = "4444444444__4444444444__1110111110__0111011111" <br />lab$(8) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(9) = "4444444444__0000000000__1111111110__0111111111" <br /> <br />REM 0- brak przegrod <br />REM 1- gorna lub prawa (bez srodka) <br />REM 2- dolna lub lewa (bez srodka) <br />REM 3 - obydwie <br />REM tylko poziome: 4-wszystkie, 5 -srodek i lewa, 6 srodek i prawa <br />REM tablice przegrod <br />REM ........poziomych...pionowych...serce.......niezdef <br />prz$(0) = "0160501000__0024200020__1010012010__0111111111" <br />prz$(1) = "6011015146__0100424142__1401210130__0111111111" <br />prz$(2) = "4340250241__0220300004__1020030100__0112111111" <br />prz$(3) = "0120014004__0404412430__0010010010__0111111111" <br />prz$(4) = "6403061421__4022100341__1012041310__0111111111" <br />prz$(5) = "4200142040__4040042010__1103120010__0111111111" <br />prz$(6) = "4203010161__0302010200__1041004110__0111111111" <br />prz$(7) = "6412041110__0300200121__0010100010__0111011111" <br />prz$(8) = "4100602121__0022120200__1100213000__0111111111" <br />prz$(9) = "2452402424__0103030020__1014000120__0111111111" <br /> <br /> <br />REM dane startowe <br />xr = 5: yr = 5 <br />x = 3: y = 3: xs = 3: ys = 3 <br />q$ = CHR$(219) <br />REM *********************************************** <br />REM rysowanie planszy <br /> <br />rysuj: <br />gora$ = MID$(lab$(yr), xr + 1, 1) <br />dol$ = MID$(lab$(yr), xr + 1 + 12, 1) <br />prawo$ = MID$(lab$(yr), xr + 1 + 24, 1) <br />lewo$ = MID$(lab$(yr), xr + 1 + 36, 1) <br /> <br />REM CLS <br />COLOR 15 <br /> <br />LOCATE 1, 1 <br /> <br />REM wiersz 1 <br /> <br />PRINT q$; <br />IF gora$ = "0" THEN PRINT q$; q$; q$; <br />IF gora$ = "1" THEN PRINT q$; "."; q$; <br />IF gora$ = "2" THEN PRINT q$; q$; "."; <br />IF gora$ = "3" THEN PRINT "."; q$; q$; <br />IF gora$ = "4" THEN PRINT "."; q$; "."; <br />PRINT q$ <br /> <br />REM wiersz 2 <br /> <br />IF lewo$ = "0" THEN PRINT q$; <br />IF lewo$ = "1" THEN PRINT q$; <br />IF lewo$ = "2" THEN PRINT "."; <br />IF lewo$ = "3" THEN PRINT q$; <br />IF lewo$ = "4" THEN PRINT "."; <br />PRINT "..."; <br />IF prawo$ = "0" THEN PRINT q$; <br />IF prawo$ = "1" THEN PRINT q$; <br />IF prawo$ = "2" THEN PRINT "."; <br />IF prawo$ = "3" THEN PRINT q$; <br />IF prawo$ = "4" THEN PRINT "."; <br />PRINT <br /> <br />REM wiersz 3 <br /> <br />IF lewo$ = "0" THEN PRINT q$; <br />IF lewo$ = "1" THEN PRINT "."; <br />IF lewo$ = "2" THEN PRINT q$; <br />IF lewo$ = "3" THEN PRINT q$; <br />IF lewo$ = "4" THEN PRINT q$; <br />PRINT "..."; <br />IF prawo$ = "0" THEN PRINT q$; <br />IF prawo$ = "1" THEN PRINT "."; <br />IF prawo$ = "2" THEN PRINT q$; <br />IF prawo$ = "3" THEN PRINT q$; <br />IF prawo$ = "4" THEN PRINT q$; <br />PRINT <br /> <br />REM wiersz 4 <br /> <br />IF lewo$ = "0" THEN PRINT q$; <br />IF lewo$ = "1" THEN PRINT q$; <br />IF lewo$ = "2" THEN PRINT q$; <br />IF lewo$ = "3" THEN PRINT "."; <br />IF lewo$ = "4" THEN PRINT "."; <br />PRINT "..."; <br />IF prawo$ = "0" THEN PRINT q$; <br />IF prawo$ = "1" THEN PRINT q$; <br />IF prawo$ = "2" THEN PRINT q$; <br />IF prawo$ = "3" THEN PRINT "."; <br />IF prawo$ = "4" THEN PRINT "."; <br />PRINT <br /> <br />REM wiersz 5 <br /> <br />PRINT q$; <br />IF dol$ = "0" THEN PRINT q$; q$; q$; <br />IF dol$ = "1" THEN PRINT q$; "."; q$; <br />IF dol$ = "2" THEN PRINT q$; q$; "."; <br />IF dol$ = "3" THEN PRINT "."; q$; q$; <br />IF dol$ = "4" THEN PRINT "."; q$; "."; <br />PRINT q$; <br /> <br />REM rysowanie przegrod <br /> <br />poz$ = MID$(prz$(yr), xr + 1, 1) <br />pio$ = MID$(prz$(yr), xr + 1 + 12, 1) <br /> <br />IF poz$ = "1" THEN LOCATE 3, 4: PRINT q$; <br />IF poz$ = "2" THEN LOCATE 3, 2: PRINT q$; <br />IF poz$ = "3" THEN LOCATE 3, 2: PRINT q$; "."; q$; <br />IF poz$ = "4" THEN LOCATE 3, 2: PRINT q$; q$; q$; <br />IF poz$ = "5" THEN LOCATE 3, 2: PRINT q$; q$; <br />IF poz$ = "6" THEN LOCATE 3, 3: PRINT q$; q$; <br /> <br />IF pio$ = "1" THEN LOCATE 2, 3: PRINT q$; <br />IF pio$ = "2" THEN LOCATE 4, 3: PRINT q$; <br />IF pio$ = "3" THEN LOCATE 2, 3: PRINT q$: LOCATE 4, 3: PRINT q$; <br />REM serce <br />ser$ = MID$(prz$(yr), xr + 1 + 24, 1) <br />COLOR 12 <br />IF pio$ = "1" THEN LOCATE 2, 2: PRINT CHR$(3); <br />IF pio$ = "2" THEN LOCATE 2, 4: PRINT CHR$(3); <br />IF pio$ = "3" THEN LOCATE 4, 2: PRINT CHR$(3); <br />IF pio$ = "4" THEN LOCATE 4, 4: PRINT CHR$(3); <br />COLOR 15 <br /> <br /> <br />LOCATE 14, 1: PRINT "room"; xr; "/"; yr; " " <br /> <br />GOTO wstaw <br />petla: <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br />IF k$ = CHR$(0) + "K" THEN x = x - 1 <br />IF k$ = CHR$(0) + "M" THEN x = x + 1 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1 <br />IF k$ = CHR$(27) THEN END <br /> <br />REM sprawdzenie przejscia do innej planszy <br /> <br />IF x > 5 THEN x = 1: xs = 1: xr = xr + 1: GOTO rysuj <br />IF x < 1 THEN x = 5: xs = 5: xr = xr - 1: GOTO rysuj <br />IF y > 5 THEN y = 1: ys = 1: yr = yr + 1: GOTO rysuj <br />IF y < 1 THEN y = 5: ys = 5: yr = yr - 1: GOTO rysuj <br /> <br />REM sprawdzenie przeszkody <br />pobierz = SCREEN(y, x) <br />IF pobierz <> ASC(".") AND pobierz <> 3 THEN x = xs: y = ys: GOTO petla <br /> <br />wstaw: <br />LOCATE ys, xs: PRINT "."; <br />LOCATE y, x: PRINT CHR$(2); <br />xs = x: ys = y <br />GOTO petla</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 20:53, 10 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM NOWA ODSLONA MIKROGRY <br /> <br />SCREEN 13 <br /> <br />REM Tablice labiryntu <br />REM 0 - brak przejsc <br />REM 1 - pojedyncze na srodku <br />REM 2 - prawo lub gora <br />REM 3 - lewo lub dol <br />REM 4 - obydwa <br />REM <br />REM tablice przejsc <br />REM ........gornych.....dolnych.....prawych......lewych <br />lab$(0) = "0000000000__4444444444__1111111110__0111111111" <br />lab$(1) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(2) = "4444444444__4444444044__1121111110__0112111111" <br />lab$(3) = "4444444044__4444444444__1111111110__0111111111" <br />lab$(4) = "4444444444__4444144444__1111111110__0111111111" <br />lab$(5) = "4444144444__4444444444__1111111110__0111111111" <br />lab$(6) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(7) = "4444444444__4444444444__1110111110__0111011111" <br />lab$(8) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(9) = "4444444444__0000000000__1111111110__0111111111" <br /> <br /> <br />REM dane startowe <br />xr = 5: yr = 5 <br />x = 3: y = 3: xs = 3: ys = 3 <br />q$ = CHR$(219) <br />REM *********************************************** <br />REM rysowanie planszy <br /> <br />rysuj: <br />gora$ = MID$(lab$(yr), xr + 1, 1) <br />dol$ = MID$(lab$(yr), xr + 1 + 12, 1) <br />prawo$ = MID$(lab$(yr), xr + 1 + 24, 1) <br />lewo$ = MID$(lab$(yr), xr + 1 + 36, 1) <br /> <br />REM CLS <br />COLOR 15 <br /> <br />LOCATE 1, 1 <br /> <br />REM wiersz 1 <br /> <br />PRINT q$; <br />IF gora$ = "0" THEN PRINT q$; q$; q$; <br />IF gora$ = "1" THEN PRINT q$; "."; q$; <br />IF gora$ = "2" THEN PRINT q$; q$; "."; <br />IF gora$ = "3" THEN PRINT "."; q$; q$; <br />IF gora$ = "4" THEN PRINT "."; q$; "."; <br />PRINT q$ <br /> <br />REM wiersz 2 <br /> <br />IF lewo$ = "0" THEN PRINT q$; <br />IF lewo$ = "1" THEN PRINT q$; <br />IF lewo$ = "2" THEN PRINT "."; <br />IF lewo$ = "3" THEN PRINT q$; <br />IF lewo$ = "4" THEN PRINT "."; <br />PRINT "..."; <br />IF prawo$ = "0" THEN PRINT q$; <br />IF prawo$ = "1" THEN PRINT q$; <br />IF prawo$ = "2" THEN PRINT "."; <br />IF prawo$ = "3" THEN PRINT q$; <br />IF prawo$ = "4" THEN PRINT "."; <br />PRINT <br /> <br />REM wiersz 3 <br /> <br />IF lewo$ = "0" THEN PRINT q$; <br />IF lewo$ = "1" THEN PRINT "."; <br />IF lewo$ = "2" THEN PRINT q$; <br />IF lewo$ = "3" THEN PRINT q$; <br />IF lewo$ = "4" THEN PRINT q$; <br />PRINT "..."; <br />IF prawo$ = "0" THEN PRINT q$; <br />IF prawo$ = "1" THEN PRINT "."; <br />IF prawo$ = "2" THEN PRINT q$; <br />IF prawo$ = "3" THEN PRINT q$; <br />IF prawo$ = "4" THEN PRINT q$; <br />PRINT <br /> <br />REM wiersz 4 <br /> <br />IF lewo$ = "0" THEN PRINT q$; <br />IF lewo$ = "1" THEN PRINT q$; <br />IF lewo$ = "2" THEN PRINT q$; <br />IF lewo$ = "3" THEN PRINT "."; <br />IF lewo$ = "4" THEN PRINT "."; <br />PRINT "..."; <br />IF prawo$ = "0" THEN PRINT q$; <br />IF prawo$ = "1" THEN PRINT q$; <br />IF prawo$ = "2" THEN PRINT q$; <br />IF prawo$ = "3" THEN PRINT "."; <br />IF prawo$ = "4" THEN PRINT "."; <br />PRINT <br /> <br />REM wiersz 5 <br /> <br />PRINT q$; <br />IF dol$ = "0" THEN PRINT q$; q$; q$; <br />IF dol$ = "1" THEN PRINT q$; "."; q$; <br />IF dol$ = "2" THEN PRINT q$; q$; "."; <br />IF dol$ = "3" THEN PRINT "."; q$; q$; <br />IF dol$ = "4" THEN PRINT "."; q$; "."; <br />PRINT q$; <br /> <br /> <br />LOCATE 14, 1: PRINT "room"; xr; "/"; yr; " " <br /> <br />GOTO wstaw <br />petla: <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br />IF k$ = CHR$(0) + "K" THEN x = x - 1 <br />IF k$ = CHR$(0) + "M" THEN x = x + 1 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1 <br />IF k$ = CHR$(27) THEN END <br /> <br />REM sprawdzenie przejscia do innej planszy <br /> <br />IF x > 5 THEN x = 1: xs = 1: xr = xr + 1: GOTO rysuj <br />IF x < 1 THEN x = 5: xs = 5: xr = xr - 1: GOTO rysuj <br />IF y > 5 THEN y = 1: ys = 1: yr = yr + 1: GOTO rysuj <br />IF y < 1 THEN y = 5: ys = 5: yr = yr - 1: GOTO rysuj <br /> <br />REM sprawdzenie przeszkody <br /> <br />IF SCREEN(y, x) <> ASC(".") THEN x = xs: y = ys: GOTO petla <br /> <br />wstaw: <br />LOCATE ys, xs: PRINT "."; <br />LOCATE y, x: PRINT CHR$(2); <br />xs = x: ys = y <br />GOTO petla</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 20:33, 10 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">REM NOWA ODSLONA MIKROGRY <br /> <br />SCREEN 13 <br /> <br />REM Tablice labiryntu <br />REM 0 - brak przejsc <br />REM 1 - pojedyncze na srodku <br />REM 2 - prawo lub gora <br />REM 3 - lewo lub dol <br />REM 4 - obydwa <br />REM <br />REM tablice przejsc <br />REM ........gornych.....dolnych.....prawych......lewych <br />lab$(0) = "0000000000__4444444444__1111111110__0111111111" <br />lab$(1) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(2) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(3) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(4) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(5) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(6) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(7) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(8) = "4444444444__4444444444__1111111110__0111111111" <br />lab$(9) = "4444444444__0000000000__1111111110__0111111111" <br /> <br /> <br />REM dane startowe <br />xr = 5: yr = 5 <br />x = 3: y = 3: xs = 3: ys = 3 <br /> <br />REM *********************************************** <br />REM rysowanie planszy <br /> <br />rysuj: <br />gora$ = MID$(lab$(yr), xr + 1, 1) <br />dol$ = MID$(lab$(yr), xr + 1 + 12, 1) <br />prawo$ = MID$(lab$(yr), xr + 1 + 24, 1) <br />lewo$ = MID$(lab$(yr), xr + 1 + 36, 1) <br /> <br />REM CLS <br />COLOR 15 <br /> <br />LOCATE 1, 1 <br /> <br />REM wiersz 1 <br /> <br />PRINT "#"; <br />IF gora$ = "0" THEN PRINT "###"; <br />IF gora$ = "1" THEN PRINT "#.#"; <br />IF gora$ = "2" THEN PRINT "##."; <br />IF gora$ = "3" THEN PRINT ".##"; <br />IF gora$ = "4" THEN PRINT ".#."; <br />PRINT "#" <br /> <br />REM wiersz 2 <br /> <br />IF lewo$ = "0" THEN PRINT "#"; <br />IF lewo$ = "1" THEN PRINT "#"; <br />IF lewo$ = "2" THEN PRINT "."; <br />IF lewo$ = "3" THEN PRINT "#"; <br />IF lewo$ = "4" THEN PRINT "."; <br />PRINT "..."; <br />IF prawo$ = "0" THEN PRINT "#"; <br />IF prawo$ = "1" THEN PRINT "#"; <br />IF prawo$ = "2" THEN PRINT "."; <br />IF prawo$ = "3" THEN PRINT "#"; <br />IF prawo$ = "4" THEN PRINT "."; <br />PRINT <br /> <br />REM wiersz 3 <br /> <br />IF lewo$ = "0" THEN PRINT "#"; <br />IF lewo$ = "1" THEN PRINT "."; <br />IF lewo$ = "2" THEN PRINT "#"; <br />IF lewo$ = "3" THEN PRINT "#"; <br />IF lewo$ = "4" THEN PRINT "#"; <br />PRINT "..."; <br />IF prawo$ = "0" THEN PRINT "#"; <br />IF prawo$ = "1" THEN PRINT "."; <br />IF prawo$ = "2" THEN PRINT "#"; <br />IF prawo$ = "3" THEN PRINT "#"; <br />IF prawo$ = "4" THEN PRINT "#"; <br />PRINT <br /> <br />REM wiersz 4 <br /> <br />IF lewo$ = "0" THEN PRINT "#"; <br />IF lewo$ = "1" THEN PRINT "#"; <br />IF lewo$ = "2" THEN PRINT "#"; <br />IF lewo$ = "3" THEN PRINT "."; <br />IF lewo$ = "4" THEN PRINT "."; <br />PRINT "..."; <br />IF prawo$ = "0" THEN PRINT "#"; <br />IF prawo$ = "1" THEN PRINT "#"; <br />IF prawo$ = "2" THEN PRINT "#"; <br />IF prawo$ = "3" THEN PRINT "."; <br />IF prawo$ = "4" THEN PRINT "."; <br />PRINT <br /> <br />REM wiersz 5 <br /> <br />PRINT "#"; <br />IF dol$ = "0" THEN PRINT "###"; <br />IF dol$ = "1" THEN PRINT "#.#"; <br />IF dol$ = "2" THEN PRINT "##."; <br />IF dol$ = "3" THEN PRINT ".##"; <br />IF dol$ = "4" THEN PRINT ".#."; <br />PRINT "#" <br /> <br /> <br />LOCATE 14, 1: PRINT "room"; xr; "/"; yr; " " <br /> <br />GOTO wstaw <br />petla: <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br />IF k$ = CHR$(0) + "K" THEN x = x - 1 <br />IF k$ = CHR$(0) + "M" THEN x = x + 1 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1 <br />IF k$ = CHR$(27) THEN END <br /> <br />REM sprawdzenie przejscia do innej planszy <br /> <br />IF x > 5 THEN x = 1: xs = 1: xr = xr + 1: GOTO rysuj <br />IF x < 1 THEN x = 5: xs = 5: xr = xr - 1: GOTO rysuj <br />IF y > 5 THEN y = 1: ys = 1: yr = yr + 1: GOTO rysuj <br />IF y < 1 THEN y = 5: ys = 5: yr = yr - 1: GOTO rysuj <br /> <br />REM sprawdzenie przeszkody <br /> <br />IF SCREEN(y, x) <> ASC(".") THEN x = xs: y = ys: GOTO petla <br /> <br />wstaw: <br />LOCATE ys, xs: PRINT "."; <br />LOCATE y, x: PRINT CHR$(2); <br />xs = x: ys = y <br />GOTO petla</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 18:06, 10 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">SCREEN 13 <br />DIM typ$(0 TO 15) <br />DIM typliczb(0 TO 15, 0 TO 9) AS INTEGER <br />DIM g1(0 TO 16) AS LONG <br />DIM g2(0 TO 16) AS LONG <br />DIM g3(0 TO 16) AS LONG <br />DIM g4(0 TO 16) AS LONG <br />DIM g5(0 TO 16) AS LONG <br />DIM g6(0 TO 16) AS LONG <br />DIM g7(0 TO 16) AS LONG <br />DIM g8(0 TO 16) AS LONG <br /> <br />REM dane labiryntu &H0-&HF <br />REM 0=brak przejsc: 1=gora: 2=prawo: 3=goraprawo <br />REM 4=dol: 5=goradol: 6=dolprawo: 7=gora+dol+prawo <br />REM 8=lewo:9=lewogora:A=lewo+prawo:B=lewo+prawo+gora <br />REM C=lewodol:D=gora+dol+lewo:E=lewo+dol+prawo:Flewo+prawo+gora+dol <br />lab$(0) = "6AAAAEAAAC" <br />lab$(1) = "56AAC7AAC5" <br />lab$(2) = "5568556C55" <br />lab$(3) = "553A955155" <br />lab$(4) = "53AAAD3A95" <br />lab$(5) = "7AAAAFAAAD" <br />lab$(6) = "56AAAD6AC5" <br />lab$(7) = "552AC53855" <br />lab$(8) = "53AA97AA95" <br />lab$(9) = "3AAAABAAA9" <br /> <br />REM parametr graficzny i tematyczny plansz &H0-&HF <br /> <br />par$(0) = "0101010101" <br />par$(1) = "1010101010" <br />par$(2) = "0101010101" <br />par$(3) = "1010101010" <br />par$(4) = "0101010101" <br />par$(5) = "1010101010" <br />par$(6) = "0101010101" <br />par$(7) = "1010101010" <br />par$(8) = "0101010101" <br />par$(9) = "1010101010" <br /> <br />REM 16 typow plansz pod wgledem labiryntu <br /> <br />typ$(0) = "#########" <br />typ$(1) = "#.#######" <br />typ$(2) = "####..###" <br />typ$(3) = "#.##..###" <br />typ$(4) = "#######.#" <br />typ$(5) = "#.##.##.#" <br />typ$(6) = "####..#.#" <br />typ$(7) = "#.##..#.#" <br />typ$(8) = "###..####" <br />typ$(9) = "#.#..####" <br />typ$(10) = "###...###" <br />typ$(11) = "#.#...###" <br />typ$(12) = "###..##.#" <br />typ$(13) = "#.#..##.#" <br />typ$(14) = "###...#.#" <br />typ$(15) = "#.#...#.#" <br />REM przepisanie do tablicy liczbowej dla szybkosci <br />FOR i = 0 TO 15 <br />FOR j = 0 TO 8 <br />typliczb(i, j) = ASC(MID$(typ$(i), j + 1, 1)) <br />NEXT j <br />NEXT i <br /> <br />REM dane startowe <br />xr = 5: yr = 5 <br />x = 6: y = 6: xs = 6: ys = 6 <br />REM dane elementow <br />bi$(0) = "01110111" + "11111111" + "00011000" + "11111111" + "01100000" + "11111111" + "01111110" + "11101110" <br />bi$(1) = "01110111" + "10000001" + "00100100" + "11111111" + "10010000" + "00000000" + "10000001" + "11100000" <br />bi$(2) = "01110111" + "10000001" + "01000010" + "01111111" + "01110011" + "11111111" + "10001101" + "00001110" <br />bi$(3) = "00000000" + "10000001" + "10000001" + "01010101" + "00001011" + "00000000" + "10000101" + "11101110" <br />bi$(4) = "11011101" + "10000001" + "10000001" + "00010101" + "00000100" + "11111111" + "10000001" + "11101110" <br />bi$(5) = "11011101" + "10000001" + "01000010" + "00010100" + "00011100" + "00000000" + "10000001" + "11100000" <br />bi$(6) = "11011101" + "10000001" + "00100100" + "00010000" + "00110010" + "11111111" + "10000001" + "00001110" <br />bi$(7) = "00000000" + "11111111" + "00011000" + "00000000" + "00000010" + "00000000" + "01111110" + "11101110" <br />FOR yb = 0 TO 7 <br />FOR xb = 0 TO 63 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br />GET (0, 0)-(7, 7), g1 <br />GET (8, 0)-(15, 7), g2 <br />GET (16, 0)-(23, 7), g3 <br />GET (24, 0)-(31, 7), g4 <br />GET (32, 0)-(39, 7), g5 <br />GET (40, 0)-(47, 7), g6 <br />GET (48, 0)-(55, 7), g7 <br />GET (56, 0)-(63, 7), g8 <br /> <br />REM *********************************************** <br />REM rysowanie planszy <br /> <br />rysuj: <br />z$ = MID$(lab$(yr), xr + 1, 1) <br />zl = VAL("&H" + z$) <br />param$ = MID$(par$(yr), xr + 1, 1) <br /> <br />REM CLS <br />COLOR 15 <br /> <br />LOCATE 1, 1 <br />REM t$ = typ$(zl) <br /> <br />FOR i = 0 TO 3 <br />FOR j = 0 TO 2 <br />te$ = CHR$(typliczb(zl, j)) <br />IF te$ = "#" THEN <br />FOR k = 0 TO 3: <br />IF param$ = "0" THEN PUT (k * 8 + j * 32, i * 8), g1, PSET <br />IF param$ = "1" THEN PUT (k * 8 + j * 32, i * 8), g2, PSET <br />NEXT k <br />END IF <br />IF te$ = "." THEN LOCATE i + 1, 1 + j * 4: PRINT "...."; <br />NEXT j <br />PRINT <br />NEXT i <br /> <br />FOR i = 0 TO 3 <br />FOR j = 0 TO 2 <br />te$ = CHR$(typliczb(zl, j + 3)) <br />IF te$ = "#" THEN <br />FOR k = 0 TO 3 <br />IF param$ = "0" THEN PUT (k * 8 + j * 32, i * 8 + 32), g3, PSET <br />IF param$ = "1" THEN PUT (k * 8 + j * 32, i * 8 + 32), g4, PSET <br />NEXT k <br />END IF <br />IF te$ = "." THEN LOCATE i + 1 + 4, 1 + j * 4: PRINT "...."; <br />NEXT j <br />PRINT <br />NEXT i <br /> <br />FOR i = 0 TO 3 <br />FOR j = 0 TO 2 <br />te$ = CHR$(typliczb(zl, j + 6)) <br />IF te$ = "#" THEN <br />FOR k = 0 TO 3 <br />IF param$ = "0" THEN PUT (k * 8 + j * 32, i * 8 + 64), g5, PSET <br />IF param$ = "1" THEN PUT (k * 8 + j * 32, i * 8 + 64), g6, PSET <br />NEXT k <br />END IF <br />IF te$ = "." THEN LOCATE i + 1 + 8, 1 + j * 4: PRINT "...."; <br />NEXT j <br />PRINT <br />NEXT i <br /> <br /> <br />LOCATE 14, 1: PRINT "room"; xr; "/"; yr; " " <br /> <br />GOTO wstaw <br />petla: <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br />IF k$ = CHR$(0) + "K" THEN x = x - 1 <br />IF k$ = CHR$(0) + "M" THEN x = x + 1 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1 <br />IF k$ = CHR$(27) THEN END <br /> <br />REM sprawdzenie przejscia do innej planszy <br /> <br />IF x > 12 THEN x = 1: xs = 1: xr = xr + 1: GOTO rysuj <br />IF x < 1 THEN x = 12: xs = 12: xr = xr - 1: GOTO rysuj <br />IF y > 12 THEN y = 1: ys = 1: yr = yr + 1: GOTO rysuj <br />IF y < 1 THEN y = 12: ys = 12: yr = yr - 1: GOTO rysuj <br /> <br />REM sprawdzenie przeszkody <br /> <br />IF SCREEN(y, x) <> ASC(".") THEN x = xs: y = ys: GOTO petla <br /> <br />wstaw: <br />LOCATE ys, xs: PRINT "."; <br />LOCATE y, x: PRINT CHR$(2); <br />xs = x: ys = y <br />GOTO petla</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 17:02, 10 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">SCREEN 13 <br />DIM typ$(0 TO 15) <br />DIM g1(0 TO 16) AS LONG <br />DIM g2(0 TO 16) AS LONG <br />DIM g3(0 TO 16) AS LONG <br />DIM g4(0 TO 16) AS LONG <br />DIM g5(0 TO 16) AS LONG <br />DIM g6(0 TO 16) AS LONG <br />DIM g7(0 TO 16) AS LONG <br />DIM g8(0 TO 16) AS LONG <br /> <br />REM dane labiryntu <br />REM 0=brak przejsc: 1=gora: 2=prawo: 3=goraprawo <br />REM 4=dol: 5=goradol: 6=dolprawo: 7=gora+dol+prawo <br />REM 8=lewo:9=lewogora:A=lewo+prawo:B=lewo+prawo+gora <br />REM C=lewodol:D=gora+dol+lewo:E=lewo+dol+prawo:Flewo+prawo+gora+dol <br />lab$(0) = "6AAAAEAAAC" <br />lab$(1) = "56AAC7AAC5" <br />lab$(2) = "5568556C55" <br />lab$(3) = "553A955155" <br />lab$(4) = "53AAAD3A95" <br />lab$(5) = "7AAAAFAAAD" <br />lab$(6) = "56AAAD6AC5" <br />lab$(7) = "552AC53855" <br />lab$(8) = "53AA97AA95" <br />lab$(9) = "3AAAABAAA9" <br /> <br />REM parametr graficzny i tematyczny planszy <br /> <br />par$(0) = "AABAABBBAB" <br />par$(1) = "BAABABAABB" <br />par$(2) = "AABBBABABB" <br />par$(3) = "ABAABBABBA" <br />par$(4) = "AABBABBABB" <br />par$(5) = "ABABAAABAA" <br />par$(6) = "BABBABAABB" <br />par$(7) = "ABABAABAAB" <br />par$(8) = "AAABBBABAB" <br />par$(9) = "ABBAABBAAB" <br /> <br />REM 15 typow plansz <br /> <br />typ$(0) = "#########" <br />typ$(1) = "#.#######" <br />typ$(2) = "####..###" <br />typ$(3) = "#.##..###" <br />typ$(4) = "#######.#" <br />typ$(5) = "#.##.##.#" <br />typ$(6) = "####..#.#" <br />typ$(7) = "#.##..#.#" <br />typ$(8) = "###..####" <br />typ$(9) = "#.#..####" <br />typ$(10) = "###...###" <br />typ$(11) = "#.#...###" <br />typ$(12) = "###..##.#" <br />typ$(13) = "#.#..##.#" <br />typ$(14) = "###...#.#" <br />typ$(15) = "#.#...#.#" <br /> <br />REM dane startowe <br />xr = 5: yr = 5 <br />x = 6: y = 6: xs = 6: ys = 6 <br />REM dane elementow <br />e1$ = "ABCD": e2$ = "CDAB": e3$ = "DBCA": e4$ = "BDAC" <br />e5$ = "EFGH": e6$ = "HGFE" <br />p$ = "...." <br />bi$(0) = "01110111" + "11111111" + "00011000" + "11111111" + "01100000" + "11111111" + "01111110" + "11101110" <br />bi$(1) = "01110111" + "10000001" + "00100100" + "11111111" + "10010000" + "00000000" + "10000001" + "11100000" <br />bi$(2) = "01110111" + "10000001" + "01000010" + "01111111" + "01110011" + "11111111" + "10001101" + "00001110" <br />bi$(3) = "00000000" + "10000001" + "10000001" + "01010101" + "00001011" + "00000000" + "10000101" + "11101110" <br />bi$(4) = "11011101" + "10000001" + "10000001" + "00010101" + "00000100" + "11111111" + "10000001" + "11101110" <br />bi$(5) = "11011101" + "10000001" + "01000010" + "00010100" + "00011100" + "00000000" + "10000001" + "11100000" <br />bi$(6) = "11011101" + "10000001" + "00100100" + "00010000" + "00110010" + "11111111" + "10000001" + "00001110" <br />bi$(7) = "00000000" + "11111111" + "00011000" + "00000000" + "00000010" + "00000000" + "01111110" + "11101110" <br />FOR yb = 0 TO 7 <br />FOR xb = 0 TO 63 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br />GET (0, 0)-(7, 7), g1 <br />GET (8, 0)-(15, 7), g2 <br />GET (16, 0)-(23, 7), g3 <br />GET (24, 0)-(31, 7), g4 <br />GET (32, 0)-(39, 7), g5 <br />GET (40, 0)-(47, 7), g6 <br />GET (48, 0)-(55, 7), g7 <br />GET (56, 0)-(63, 7), g8 <br /> <br /> <br />REM rysowanie planszy <br />rysuj: <br />z$ = MID$(lab$(yr), xr + 1, 1) <br />zl = VAL("&H" + z$) <br />param$ = MID$(par$(yr), xr + 1, 1) <br /> <br />CLS <br />COLOR 15 <br /> <br />LOCATE 1, 1 <br />t$ = typ$(zl) <br /> <br />FOR i = 0 TO 3 <br />FOR j = 0 TO 2 <br />te$ = MID$(t$, j + 1, 1) <br />IF te$ = "#" THEN <br />FOR k = 0 TO 3: <br />IF param$ = "A" THEN PUT (k * 8 + j * 32, i * 8), g1, PSET <br />IF param$ = "B" THEN PUT (k * 8 + j * 32, i * 8), g2, PSET <br />NEXT k <br />END IF <br />IF te$ = "." THEN LOCATE i + 1, 1 + j * 4: PRINT p$; <br />NEXT j <br />PRINT <br />NEXT i <br /> <br />FOR i = 0 TO 3 <br />FOR j = 0 TO 2 <br />te$ = MID$(t$, j + 4, 1) <br />IF te$ = "#" THEN <br />FOR k = 0 TO 3 <br />IF param$ = "A" THEN PUT (k * 8 + j * 32, i * 8 + 32), g3, PSET <br />IF param$ = "B" THEN PUT (k * 8 + j * 32, i * 8 + 32), g4, PSET <br />NEXT k <br />END IF <br />IF te$ = "." THEN LOCATE i + 1 + 4, 1 + j * 4: PRINT p$; <br />NEXT j <br />PRINT <br />NEXT i <br /> <br />FOR i = 0 TO 3 <br />FOR j = 0 TO 2 <br />te$ = MID$(t$, j + 7, 1) <br />IF te$ = "#" THEN <br />FOR k = 0 TO 3 <br />IF param$ = "A" THEN PUT (k * 8 + j * 32, i * 8 + 64), g5, PSET <br />IF param$ = "B" THEN PUT (k * 8 + j * 32, i * 8 + 64), g6, PSET <br />NEXT k <br />END IF <br />IF te$ = "." THEN LOCATE i + 1 + 8, 1 + j * 4: PRINT p$; <br />NEXT j <br />PRINT <br />NEXT i <br /> <br /> <br />LOCATE 14, 1: PRINT "room"; xr; "/"; yr; " " <br /> <br />GOTO wstaw <br />petla: <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br />IF k$ = CHR$(0) + "K" THEN x = x - 1 <br />IF k$ = CHR$(0) + "M" THEN x = x + 1 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1 <br />IF k$ = CHR$(27) THEN END <br /> <br />REM sprawdzenie przejscia do innej planszy <br /> <br />IF x > 12 THEN x = 1: xs = 1: xr = xr + 1: GOTO rysuj <br />IF x < 1 THEN x = 12: xs = 12: xr = xr - 1: GOTO rysuj <br />IF y > 12 THEN y = 1: ys = 1: yr = yr + 1: GOTO rysuj <br />IF y < 1 THEN y = 12: ys = 12: yr = yr - 1: GOTO rysuj <br />IF SCREEN(y, x) <> ASC(".") THEN x = xs: y = ys: GOTO petla <br />wstaw: <br />LOCATE ys, xs: PRINT "."; <br />LOCATE y, x: PRINT CHR$(2); <br />xs = x: ys = y <br />GOTO petla</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row2"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row2" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 16:41, 10 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">SCREEN 13 <br />DIM typ$(0 TO 15) <br />DIM g1(0 TO 16) AS LONG <br />DIM g2(0 TO 16) AS LONG <br />DIM g3(0 TO 16) AS LONG <br />DIM g4(0 TO 16) AS LONG <br />DIM g5(0 TO 16) AS LONG <br />DIM g6(0 TO 16) AS LONG <br />DIM g7(0 TO 16) AS LONG <br />DIM g8(0 TO 16) AS LONG <br /> <br />REM dane labiryntu <br />REM 0=brak przejsc: 1=gora: 2=prawo: 3=goraprawo <br />REM 4=dol: 5=goradol: 6=dolprawo: 7=gora+dol+prawo <br />REM 8=lewo:9=lewogora:A=lewo+prawo:B=lewo+prawo+gora <br />REM C=lewodol:D=gora+dol+lewo:E=lewo+dol+prawo:Flewo+prawo+gora+dol <br />lab$(0) = "6AAAAEAAAC" <br />lab$(1) = "56AAC7AAC5" <br />lab$(2) = "5568556C55" <br />lab$(3) = "553A955155" <br />lab$(4) = "53AAAD3A95" <br />lab$(5) = "7AAAAFAAAD" <br />lab$(6) = "56AAAD6AC5" <br />lab$(7) = "552AC53855" <br />lab$(8) = "53AA97AA95" <br />lab$(9) = "3AAAABAAA9" <br /> <br />REM 15 typow plansz <br /> <br />typ$(0) = "#########" <br />typ$(1) = "#.#######" <br />typ$(2) = "####..###" <br />typ$(3) = "#.##..###" <br />typ$(4) = "#######.#" <br />typ$(5) = "#.##.##.#" <br />typ$(6) = "####..#.#" <br />typ$(7) = "#.##..#.#" <br />typ$(8) = "###..####" <br />typ$(9) = "#.#..####" <br />typ$(10) = "###...###" <br />typ$(11) = "#.#...###" <br />typ$(12) = "###..##.#" <br />typ$(13) = "#.#..##.#" <br />typ$(14) = "###...#.#" <br />typ$(15) = "#.#...#.#" <br /> <br />REM dane startowe <br />xr = 5: yr = 5 <br />x = 6: y = 6: xs = 6: ys = 6 <br />REM dane elementow <br />e1$ = "ABCD": e2$ = "CDAB": e3$ = "DBCA": e4$ = "BDAC" <br />e5$ = "EFGH": e6$ = "HGFE" <br />p$ = "...." <br />bi$(0) = "01110111" + "11111111" + "00011000" + "11111111" + "01100000" + "11111111" + "01111110" + "11101110" <br />bi$(1) = "01110111" + "10000001" + "00100100" + "11111111" + "10010000" + "00000000" + "10000001" + "11100000" <br />bi$(2) = "01110111" + "10000001" + "01000010" + "01111111" + "01110011" + "11111111" + "10001101" + "00001110" <br />bi$(3) = "00000000" + "10000001" + "10000001" + "01010101" + "00001011" + "00000000" + "10000101" + "11101110" <br />bi$(4) = "11011101" + "10000001" + "10000001" + "00010101" + "00000100" + "11111111" + "10000001" + "11101110" <br />bi$(5) = "11011101" + "10000001" + "01000010" + "00010100" + "00011100" + "00000000" + "10000001" + "11100000" <br />bi$(6) = "11011101" + "10000001" + "00100100" + "00010000" + "00110010" + "11111111" + "10000001" + "00001110" <br />bi$(7) = "00000000" + "11111111" + "00011000" + "00000000" + "00000010" + "00000000" + "01111110" + "11101110" <br />FOR yb = 0 TO 7 <br />FOR xb = 0 TO 63 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br />GET (0, 0)-(7, 7), g1 <br />GET (8, 0)-(15, 7), g2 <br />GET (16, 0)-(23, 7), g3 <br />GET (24, 0)-(31, 7), g4 <br />GET (32, 0)-(39, 7), g5 <br />GET (40, 0)-(47, 7), g6 <br />GET (48, 0)-(55, 7), g7 <br />GET (56, 0)-(63, 7), g8 <br /> <br /> <br />REM rysowanie planszy <br />rysuj: <br />z$ = MID$(lab$(yr), xr + 1, 1) <br />zl = VAL("&H" + z$) <br /> <br />CLS <br />COLOR 15 <br /> <br />LOCATE 1, 1 <br />t$ = typ$(zl) <br />FOR i = 0 TO 3 <br />FOR j = 0 TO 2 <br />te$ = MID$(t$, j + 1, 1) <br />IF te$ = "#" THEN FOR k = 0 TO 3: PUT (k * 8 + j * 32, i * 8), g1, PSET: NEXT k <br />IF te$ = "." THEN LOCATE i + 1, 1 + j * 4: PRINT p$; <br />NEXT j <br />PRINT <br />NEXT i <br /> <br />FOR i = 0 TO 3 <br />FOR j = 0 TO 2 <br />te$ = MID$(t$, j + 4, 1) <br />IF te$ = "#" THEN FOR k = 0 TO 3: PUT (k * 8 + j * 32, i * 8 + 32), g2, PSET: NEXT k <br />IF te$ = "." THEN LOCATE i + 1 + 4, 1 + j * 4: PRINT p$; <br />NEXT j <br />PRINT <br />NEXT i <br /> <br />FOR i = 0 TO 3 <br />FOR j = 0 TO 2 <br />te$ = MID$(t$, j + 7, 1) <br />IF te$ = "#" THEN FOR k = 0 TO 3: PUT (k * 8 + j * 32, i * 8 + 64), g3, PSET: NEXT k <br />IF te$ = "." THEN LOCATE i + 1 + 8, 1 + j * 4: PRINT p$; <br />NEXT j <br />PRINT <br />NEXT i <br /> <br /> <br />LOCATE 14, 1: PRINT "room"; xr; "/"; yr; " " <br /> <br />GOTO wstaw <br />petla: <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br />IF k$ = CHR$(0) + "K" THEN x = x - 1 <br />IF k$ = CHR$(0) + "M" THEN x = x + 1 <br />IF k$ = CHR$(0) + "H" THEN y = y - 1 <br />IF k$ = CHR$(0) + "P" THEN y = y + 1 <br />IF k$ = CHR$(27) THEN END <br /> <br />REM sprawdzenie przejscia do innej planszy <br /> <br />IF x > 12 THEN x = 1: xs = 1: xr = xr + 1: GOTO rysuj <br />IF x < 1 THEN x = 12: xs = 12: xr = xr - 1: GOTO rysuj <br />IF y > 12 THEN y = 1: ys = 1: yr = yr + 1: GOTO rysuj <br />IF y < 1 THEN y = 12: ys = 12: yr = yr - 1: GOTO rysuj <br />IF SCREEN(y, x) <> ASC(".") THEN x = xs: y = ys: GOTO petla <br />wstaw: <br />LOCATE ys, xs: PRINT "."; <br />LOCATE y, x: PRINT CHR$(2); <br />xs = x: ys = y <br />GOTO petla</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>Piotr-246</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Pią 16:30, 10 Wrz 2021<span class="gen"> </span> Temat postu: </span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">SCREEN 13 <br />DIM typ$(0 TO 15) <br />DIM g1(0 TO 16) AS LONG <br />DIM g2(0 TO 16) AS LONG <br />DIM g3(0 TO 16) AS LONG <br />DIM g4(0 TO 16) AS LONG <br />DIM g5(0 TO 16) AS LONG <br />DIM g6(0 TO 16) AS LONG <br />DIM g7(0 TO 16) AS LONG <br />DIM g8(0 TO 16) AS LONG <br /> <br />REM dane labiryntu <br />REM 0=brak przejsc: 1=gora: 2=prawo: 3=goraprawo <br />REM 4=dol: 5=goradol: 6=dolprawo: 7=gora+dol+prawo <br />REM 8=lewo:9=lewogora:A=lewo+prawo:B=lewo+prawo+gora <br />REM C=lewodol:D=gora+dol+lewo:E=lewo+dol+prawo:Flewo+prawo+gora+dol <br />lab$(0) = "6AAAAEAAAC" <br />lab$(1) = "56AAC7AAC5" <br />lab$(2) = "5568556C55" <br />lab$(3) = "553A955155" <br />lab$(4) = "53AAAD3A95" <br />lab$(5) = "7AAAAFAAAD" <br />lab$(6) = "56AAAD6AC5" <br />lab$(7) = "552AC53855" <br />lab$(8) = "53AA97AA95" <br />lab$(9) = "3AAAABAAA9" <br /> <br />typ$(0) = "#########" <br />typ$(1) = "#.#######" <br />typ$(2) = "####..###" <br />typ$(3) = "#.##..###" <br />typ$(4) = "#######.#" <br />typ$(5) = "#.##.##.#" <br />typ$(6) = "####..#.#" <br />typ$(7) = "#.##..#.#" <br />typ$(8) = "###..####" <br />typ$(9) = "#.#..####" <br />typ$(10) = "###...###" <br />typ$(11) = "#.#...###" <br />typ$(12) = "###..##.#" <br />typ$(13) = "#.#..##.#" <br />typ$(14) = "###...#.#" <br />typ$(15) = "#.#...#.#" <br /> <br />REM dane startowe <br />xr = 5: yr = 5 <br />x = 6: y = 6: xs = 6: ys = 6 <br />REM dane elementow <br />e1$ = "ABCD": e2$ = "CDAB": e3$ = "DBCA": e4$ = "BDAC" <br />e5$ = "EFGH": e6$ = "HGFE" <br />p$ = "...." <br />bi$(0) = "01110111" + "11111111" + "00011000" + "11111111" + "01100000" + "11111111" + "01111110" + "11101110" <br />bi$(1) = "01110111" + "10000001" + "00100100" + "11111111" + "10010000" + "00000000" + "10000001" + "11100000" <br />bi$(2) = "01110111" + "10000001" + "01000010" + "01111111" + "01110011" + "11111111" + "10001101" + "00001110" <br />bi$(3) = "00000000" + "10000001" + "10000001" + "01010101" + "00001011" + "00000000" + "10000101" + "11101110" <br />bi$(4) = "11011101" + "10000001" + "10000001" + "00010101" + "00000100" + "11111111" + "10000001" + "11101110" <br />bi$(5) = "11011101" + "10000001" + "01000010" + "00010100" + "00011100" + "00000000" + "10000001" + "11100000" <br />bi$(6) = "11011101" + "10000001" + "00100100" + "00010000" + "00110010" + "11111111" + "10000001" + "00001110" <br />bi$(7) = "00000000" + "11111111" + "00011000" + "00000000" + "00000010" + "00000000" + "01111110" + "11101110" <br />FOR yb = 0 TO 7 <br />FOR xb = 0 TO 63 <br />znak$ = MID$(bi$(yb), xb + 1, 1) <br />znak = VAL(znak$) <br />COLOR 15 * znak: PSET (xb, yb) <br />NEXT xb <br />NEXT yb <br />GET (0, 0)-(7, 7), g1 <br />GET (8, 0)-(15, 7), g2 <br />GET (16, 0)-(23, 7), g3 <br />GET (24, 0)-(31, 7), g4 <br />GET (32, 0)-(39, 7), g5 <br />GET (40, 0)-(47, 7), g6 <br />GET (48, 0)-(55, 7), g7 <br />GET (56, 0)-(63, 7), g8 <br /> <br /> <br />REM rysowanie planszy <br />rysuj: <br />z$ = MID$(lab$(yr), xr + 1, 1) <br />zl = VAL("&H" + z$) <br /> <br />CLS <br />COLOR 15 <br /> <br />LOCATE 1, 1 <br />t$ = typ$(zl) <br />FOR i = 0 TO 3 <br />FOR j = 0 TO 2 <br />te$ = MID$(t$, j + 1, 1) <br />IF te$ = "#" THEN PRINT e1$; <br />IF te$ = "." THEN PRINT p$; <br />NEXT j <br />PRINT <br />NEXT i <br /> <br />FOR i = 0 TO 3 <br />FOR j = 0 TO 2 <br />te$ = MID$(t$, j + 4, 1) <br />IF te$ = "#" THEN PRINT e4$; <br />IF te$ = "." THEN PRINT p$; <br />NEXT j <br />PRINT <br />NEXT i <br /> <br />FOR i = 0 TO 3 <br />FOR j = 0 TO 2 <br />te$ = MID$(t$, j + 7, 1) <br />IF te$ = "#" THEN PRINT e5$; <br />IF te$ = "." THEN PRINT p$; <br />NEXT j <br />PRINT <br />NEXT i <br /> <br /> <br />LOCATE 14, 1: PRINT "room"; xr; "/"; yr; " " <br /> <br />GOTO wstaw <br />petla: <br />k$ = INKEY$ <br />IF k$ = "" THEN GOTO petla <br />IF k$ = "a" OR k$ = CHR$(0) + "K" THEN x = x - 1 <br />IF k$ = "d" OR k$ = CHR$(0) + "M" THEN x = x + 1 <br />IF k$ = "w" OR k$ = CHR$(0) + "H" THEN y = y - 1 <br />IF k$ = "x" OR k$ = CHR$(0) + "P" THEN y = y + 1 <br />IF k$ = CHR$(27) THEN END <br />IF x > 12 THEN x = 1: xs = 1: xr = xr + 1: GOTO rysuj <br />IF x < 1 THEN x = 12: xs = 12: xr = xr - 1: GOTO rysuj <br />IF y > 12 THEN y = 1: ys = 1: yr = yr + 1: GOTO rysuj <br />IF y < 1 THEN y = 12: ys = 12: yr = yr - 1: GOTO rysuj <br />IF SCREEN(y, x) <> ASC(".") THEN x = xs: y = ys: GOTO petla <br />wstaw: <br />LOCATE ys, xs: PRINT "."; <br />LOCATE y, x: PRINT CHR$(2); <br />xs = x: ys = y <br />GOTO petla</span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> </table>
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj