Ż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
Autor
Wiadomość
Piotr-246
Wysłany: Śro 18:47, 15 Wrz 2021
Temat postu: Moduł do tworzenia plansz
REM Modul "Arkusz" do tworzenia plansz gry "Serca"
REM tworzy plik labir1.lab
DIM p$(0 TO 499)
REM KILL "labir1.lab"
OPEN "R", #1, "labir1.lab"
REM ************************** DANE pomieszczen
REM ***************** obliczane od roomx=1,roomy=1
REM ***************** roomy*12+roomx
REM kody plansz +++++.nr.po++++..we_okna_____se_kw......_
REM ************ plansze wiersza roomy=0
p$(0) = "#LLLQQQLLB.0.UI........_______YO_GN___......"
p$(1) = "#...UUUPP#.1...........____MD_________......"
p$(2) = "#PPPQQQQQU.2.UI........_HE__________EQ......"
p$(3) = "##LLLQWW##.3...........__________SJ___......"
p$(4) = "#Q...QQUUU.4..........._______ZK______......"
p$(5) = "#L..PWQQQU.5...........____MG_________......"
p$(6) = "#PPPWQLLLU.6..........._LD__________EQ......"
p$(7) = "##LLLBPPPA.7.........DF__________aH_WI......"
p$(8) = "##DDDUCCCA.8..........._______________......"
p$(9) = "##CCCUPPPW.9..........._______________......"
p$(10) = "##DDDULLLA.A..........._____________EQ......"
p$(11) = "##QQQUPPPW.B..........._HG____________......"
p$(12) = "##UUUULLLA.C..........._____________EQ......"
p$(13) = "##QQQUPPPW.D..........._HG____________......"
REM ************ plansze wiersza roomy=1
p$(14) = "BQQQWLLLQ#.0.........FN_______________......"
p$(15) = "#QQQQ...Q#.1.WH........_______YO_RN___......"
p$(16) = "UUQQQPPPUU.2.WJ........____ML_________......"
p$(17) = "#WLLLWQQQW.3..........._____________MQ......"
p$(18) = "UQPPPQQQQ#.4.UM......aO_aI____________......"
p$(19) = "UQQQ00QQQ#.5...........__________RN_GQ......"
p$(20) = "UUUUQQQUUU.6...........____DJ____aM___......"
p$(21) = "AAQQQ0QQUU.7..........._______________......"
p$(22) = "AAQQQQQQUU.8.........IF_______________......"
p$(23) = "WWWWQQWWWW.9...........__________PJ___......"
p$(24) = "AAQQBBQQUU.A...........____LF____aO___......"
p$(25) = "WWWWLLWWWW.B..........._______________......"
p$(26) = "AAQQPPQQUU.C...........____LF____aO___......"
p$(27) = "WWWWQQWWWW.D..........._______________......"
REM ************* plansze wiersza roomy=2
p$(28) = "#QQQWQWQQW.0...........__________NE_YQ......"
p$(29) = "#QQQWLLLLW.1..........._MD_YP____UP___......"
p$(30) = "U0000....#.2.........VI_WO____________......"
p$(31) = "WWWWWPPPPU.3..........._MM__________YQ......"
p$(32) = "#QQQQMWMQQ.4.WO........_______NP_SM___......"
p$(33) = "#00QQLLL0U.5.UJ......GL_______________......"
p$(34) = "UQQQWPPP0#.6...........____aM____UP___......"
p$(35) = "UUQQQBQQQA.7...........____YP_______KQ......"
p$(36) = "UUQQQQQQQA.8.#I........__________KM___......"
p$(37) = "WQQAQQBQQW.9..........._______________......"
p$(38) = "UUQQQQQQQA.A.WM........____LI_________......"
p$(39) = "WWWWWWWWWW.B..........._______________......"
p$(40) = "UUQQQQQQQA.C.WM........____LI_________......"
p$(41) = "WWWWWWWWWW.D..........._______________......"
REM ************ plansze wiersza roomy=3
p$(42) = "WQQQWLLLLU.0.........ZD____ZM____SF___......"
p$(43) = "WWWWWPPPP#.1..........._______________......"
p$(44) = "#0QLLLQQQW.2.#F........_______LO_UQ_YQ......"
p$(45) = "UUQPPPQQQU.3.WM......VI____YI____SJ_GQ......": REM startowa MaX=dU
p$(46) = "#QQQQWQQQU.4...........__________NG___......": REM rr-rezerwa
p$(47) = "UUQQQWLLLU.5..........._______ZO_SG___......"
p$(48) = "##00UU...U.6..........._____________KQ......"
p$(49) = "AAAAQQPPPU.7.........VJ_______LO______......"
p$(50) = "AAQQLLUUUU.8..........._______________......"
p$(51) = "WWWW..#UUU.9..........._______________......"
p$(52) = "AAQQDDUUUU.A..........._____________KK......"
p$(53) = "WWWWWUUUUU.B.........TL_______________......"
p$(54) = "AAQQDDUUUU.C..........._____________KK......"
p$(55) = "WWWWWUUUUU.D.........TL_______________......"
REM ****************** plansze wiersza roomy=4
p$(56) = "ULLQLLQLL#.0..........._DD____aO_SP_YQ......"
p$(57) = "#..U..U..#.1..........._______________......"
p$(58) = "WPPQPPQPPU.2.........KP_______aP______......"
p$(59) = "UUQQQLLLQ#.3.UJ........____ML_______YQ......"
p$(60) = "UQQQQPPP##.4.WJ........____YL_________......"
p$(61) = "UU00U000UU.5.........VI_______________......"
p$(62) = "UU0QQQWQQ#.6...........____OG____SQ_YQ......"
p$(63) = "UULLQWQQQB.7..........._______aO______......"
p$(64) = "UUPPQWQQQB.8...........__________aO___......"
p$(65) = "UUQQWWQQUU.9..........._______________......"
p$(66) = "UUQQLLQQQB.A.WM......ZP____LI_________......"
p$(67) = "UUUUDDQQQU.B.UM........_____________EQ......"
p$(68) = "UUQQLLQQQB.C..........._______________......"
p$(69) = "#QQQQQQQQQ.D..........._______________......"
REM ******************* plansze wiersza roomy=5
p$(70) = "#0ULLLU0UU.0.........VI_____________KK......"
p$(71) = "##UPPPLLL#.1...........__________SP___......"
p$(72) = "U0QQQW...#.2..........._______GO______......"
p$(73) = "#LLLU0PPPU.3..........._____________YQ......"
p$(74) = "#PPPWLLLQ#.4.0Q......EE__________MM___......"
p$(75) = "UUUU0PPPUU.5..........._______________......"
p$(76) = "#QQQWQQQ0U.6..........._DD_______ZF_MQ......"
p$(77) = "BBQQQUQQQA.7.........VI_____________aI......"
p$(78) = "BBQQQQQQQA.8.UK........____KO_________......"
p$(79) = "UQLLQQUQQU.9.........ED__________KK___......"
p$(80) = "BBDDCCQQQA.A...........____ZK____KO___......"
p$(81) = "UQQU..UQQU.B..........._____________aE......"
p$(82) = "#QQQ..QQQW.C..........._______________......"
p$(83) = "QQQQPPQQQ#.D..........._______________......"
REM ******************* plansze wiersza roomy=6
p$(84) = "UUU0LLL###.0..........._EJ__________YM......"
p$(85) = "###U...###.1...........____SJ____ML___......"
p$(86) = "#LLLPPP###.2..........._____________KM......"
p$(87) = "UPPP000###.3...........____PH____ZJ___......"
p$(88) = "#LLL0#####.4...........__________EE___......"
p$(89) = "UPPPQQLLL#.5.0I........_____________GQ......"
p$(90) = "UUUUUU...#.6..........._LO____________......"
p$(91) = "AAQQQBPPP#.7..........._______MO_aP___......"
p$(92) = "AAQQQ#CCC#.8.........ZN__________KH___......"
p$(93) = "UUUUUUDDD#.9..........._______________......"
p$(94) = "AAQQQUCCC#.A..........._____________KI......"
p$(95) = "UUQQQQPPP#.B.0I......KK__________aP___......"
p$(96) = "WWLLBBLL##.C..........._______________......"
p$(97) = "##DDUUDD##.D..........._______________......"
REM zapis do pliku
FOR i = 0 TO 97
a$ = p$(i)
PUT #1, i + 1, a$
NEXT i
REM OPEN "R", #1, "labir1.lab"
FOR j = 0 TO 97
GET #1, j + 1, b$
p$(j) = b$
NEXT j
FOR j = 0 TO 97
PRINT p$(j)
NEXT j
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin