 #ILOSC_PATTERN=9 #ILOSC_TITLE=1     DTFILE$= ("Wpisz nazwe pliku data","",0)   MESSAGE$=("Wpisz nazwe pliku message","",0)    x= (2,MESSAGE$)    x= (1,DTFILE$)    1    COPYRIGHT$="$VER: AntyDresiarz Issue #4 DATA FILE (c) by Taski 1998. All Rights Reserved. DON'T TOUGH THIS FILE!"+܆(10)   ݁ COPYRIGHT$   STRT.l=܏ (COPYRIGHT$)  ;; --------------------------------- START DATA ---------------------------------- ; ;  PLK$="AD:START.DATA" ;  InitBank 1,Exists(PLK$),65536 ;  LENG.l=BankSize(1) ;  BLoad PLK$,Bank(1) ;  WriteMem 1,Bank(1),BankSize(1) ;  FreeBank 1 ;  FileOutput 2 : NPrint "START_DATA=",STRT.l,",",LENG.l ;  STRT.l=STRT.l+LENG.l ;  NPrint ""  ; --------------------------------- PALETA CMAP ----------------------------------  ;  PLK$="AD:RYSUNKI/PALETA.CMA" ;  InitBank 1,Exists(PLK$),65536 ;  LENG.l=BankSize(1) ;  BLoad PLK$,Bank(1) ;  WriteMem 1,Bank(1),BankSize(1) ;  FreeBank 1 ;  FileOutput 2 : NPrint "DATAFILE;DEMO_PIC=11,",STRT.l,",",LENG.l,";" ;  STRT.l=STRT.l+LENG.l ;  NPrint ""   ; ----------------------------------- MENU --------------------------------------    PLK$="AD:TEKSTY/DATA/MENU.TXT"     1,(PLK$),65536   LENG.l=(1)    PLK$,(1)    1,(1),(1)    1    2 : ݂ "DATAFILE;MENU=0,",STRT.l,",",LENG.l,";"   STRT.l=STRT.l+LENG.l   ݂ ""  ; ----------------------------------- LINK --------------------------------------  ;  PLK$="AD:TEKSTY/LINK.TXT"  ;  InitBank 1,Exists(PLK$),65536 ;  LENG.l=BankSize(1) ;  BLoad PLK$,Bank(1) ;  WriteMem 1,Bank(1),BankSize(1) ;  FreeBank 1 ;  FileOutput 2 : NPrint "DATAFILE;LINK_FILE=",STRT.l,",",LENG.l,";" ;  STRT.l=STRT.l+LENG.l ;  NPrint ""    ; --------------------------------- TITLE PICS ----------------------------------     PIC=0  #ILOSC_TITLE     ; iff     PLK$="AD:RYSUNKI/TITLE"+݃(PIC)+".IFF"      (PLK$)        1,(PLK$),65536       LENG.l=(1)        PLK$,(1)        1,(1),(1)        1        2 : ݂ "DATAFILE;DEMO_PIC=",݃(PIC+1),",",STRT.l,",",LENG.l,";"       STRT.l=STRT.l+LENG.l       ݂ ""          ; chunky     PLK$="AD:RYSUNKI/TITLE"+݃(PIC)+".CHK"      (PLK$)        1,(PLK$),65536       LENG.l=(1)        PLK$,(1)        1,(1),(1)        1        2 : ݂ "DATAFILE;DEMO_PIC=",݃(PIC+11),",",STRT.l,",",LENG.l,";"       STRT.l=STRT.l+LENG.l       ݂ ""         PIC  ; ----------------------------------- PANEL ----------------------------------   ;iff   PLK$="AD:RYSUNKI/PANEL.IFF"     (PLK$)      1,(PLK$),65536     LENG.l=(1)      PLK$,(1)      1,(1),(1)      1      2     ݂ " -- Panel w IFF"     ݂ "DATAFILE;DEMO_PIC=21,",STRT.l,",",LENG.l,";"     STRT.l=STRT.l+LENG.l     ݂ ""      ;chunly   PLK$="AD:RYSUNKI/PANEL.CHK"     (PLK$)      1,(PLK$),65536     LENG.l=(1)      PLK$,(1)      1,(1),(1)      1      2     ݂ " -- Panel w CHUNKY"     ݂ "DATAFILE;DEMO_PIC=31,",STRT.l,",",LENG.l,";"     STRT.l=STRT.l+LENG.l     ݂ ""      ;low anim   PLK$="AD:RYSUNKI/PANEL_LOW.ANM"     (PLK$)      1,(PLK$),65536     LENG.l=(1)      PLK$,(1)      1,(1),(1)      1      2     ݂ " -- Panel low w animie"     ݂ "DATAFILE;DEMO_PIC=41,",STRT.l,",",LENG.l,";"     STRT.l=STRT.l+LENG.l     ݂ ""       ; --------------------------------- GADGETS ----------------------------------     PIC=0  10      ; iff     PLK$="AD:RYSUNKI/GADGET"+݃(PIC)+".IFF"      (PLK$)        1,(PLK$),65536       LENG.l=(1)        PLK$,(1)        1,(1),(1)        1        2       ݂ " -- Gadget in ILBM"       ݂ "DATAFILE;GADGET=",݃(PIC),",FRAMES,",STRT.l,",",LENG.l,";"       STRT.l=STRT.l+LENG.l       ݂ ""           PLK$="AD:RYSUNKI/GADGET"+݃(PIC)+".CHK"      (PLK$)        1,(PLK$),65536       LENG.l=(1)        PLK$,(1)        1,(1),(1)        1        2       ݂ " -- Gadget in CHUNKY"       ݂ "DATAFILE;GADGET=",݃(PIC+10),",FRAMES,",STRT.l,",",LENG.l,";"       STRT.l=STRT.l+LENG.l       ݂ ""           PIC  ; --------------------------------- PATTERN PICS ----------------------------------     PIC=0  #ILOSC_PATTERN     PLK$="AD:RYSUNKI/TLO"+݃(PIC)+".IFF"      (PLK$)        1,(PLK$),65536       LENG.l=(1)        PLK$,(1)        1,(1),(1)        1        2       ݂ " -- Pattern in ILBM"       ݂ "DATAFILE;PATTERN=",݃(PIC),",",STRT.l,",",LENG.l,";"       STRT.l=STRT.l+LENG.l       ݂ ""           PLK$="AD:RYSUNKI/TLO"+݃(PIC)+".CHK"      (PLK$)        1,(PLK$),65536       LENG.l=(1)        PLK$,(1)        1,(1),(1)        1        2       ݂ " -- Pattern in Chunky"       ݂ "DATAFILE;PATTERN=",݃(PIC+127),",",STRT.l,",",LENG.l,";"       STRT.l=STRT.l+LENG.l       ݂ ""           PIC   ; ----------------------------------- MODULESY ----------------------------    3 .FileInfoBlock myfib    p$="AD:MUZYKA"   lock.l=
(&p$,-2)     (lock,myfib)<>0      (lock,myfib)<>0        myfib         \fib_DirEntryType<0         Nazwa_pliku$=ܔ($(&\fib_FileName),30)         Nazwa_pliku$=܁(Nazwa_pliku$,܉(Nazwa_pliku$,"  ")-1)          MODUL=MODUL+1          PLK$="AD:MUZYKA/"+Nazwa_pliku$          1,(PLK$),65536         LENG.l=(1)          PLK$,(1)          1,(1),(1)          1          2 : ݂ "DATAFILE;MODULE=",݃(MODUL),",",STRT.l,",",LENG.l,",",Nazwa_pliku$,";"         STRT.l=STRT.l+LENG.l         ݂ ""                     lock  ;End  ; ----------------------------------- OBRAZKI Z MENU      PODSTAWA$="MENU"     ݂ "---Obrazki z menu IFF, CHUNKY"          ; ------------------------------------ PICTURES           ݂ "---iff"              ("AD:RYSUNKI/"+PODSTAWA$)            PIC=0  255           PIC$=݃(PIC)            PIC$<>""             PLK$="AD:RYSUNKI/"+PODSTAWA$+"/"+PIC$+".IFF"              (PLK$)                1,(PLK$),65536               LENG.l=(1)                PLK$,(1)                1,(1),(1)                1               PIC_STRT.l=STRT.l               PIC_LENG.l=LENG.l               STRT.l=STRT.l+LENG.l                2               ݁ ݃(PIC),",",PIC_STRT.l,",",PIC_LENG.l,","                                    PIC                       ݁ ";"           ݂ "---in chunky"         ; ------------------------------------ CHUNKY              ("AD:RYSUNKI/"+PODSTAWA$)            PIC=0  255           PIC$=݃(PIC)            PIC$<>""             PLK$="AD:RYSUNKI/"+PODSTAWA$+"/"+PIC$+".CHK"              (PLK$)                1,(PLK$),65536               LENG.l=(1)                PLK$,(1)                1,(1),(1)                1               PIC_STRT.l=STRT.l               PIC_LENG.l=LENG.l               STRT.l=STRT.l+LENG.l                2               ݁ ݃(PIC),",",PIC_STRT.l,",",PIC_LENG.l,","                                    PIC                       ݁ ";"    ݂ ""  ; ----------------------------------- TEKSTY -----------------------------       WSK= ("Wskaz teksty")     WSK             TXT$=        TXT$<>""          PODSTAWA$=܁(TXT$,܏(TXT$)-4)         ZN=܉(PODSTAWA$,":")         PODSTAWA$=܂(PODSTAWA$,܏(PODSTAWA$)-ZN)                    ZN=܉(PODSTAWA$,"/")           PODSTAWA$=܂(PODSTAWA$,܏(PODSTAWA$)-ZN)          ZN=0           2         ݂ "Artykul - ",PODSTAWA$          x=܉(ܘ(PODSTAWA$),".TXT")          x>0         PODSTAWA$=܁(PODSTAWA$,x-1)                   ; ------------------------------------ SHR  ;        PLK$="AD:TEKSTY/"+PODSTAWA$+".SHR" ;        If Exists(PLK$)  ;         InitBank 1,Exists(PLK$),65536 ;          LENG.l=BankSize(1) ;          BLoad PLK$,Bank(1) ;          WriteMem 1,Bank(1),BankSize(1) ;          FreeBank 1 ; ;          SHORT_STRT.l=STRT.l ;          SHORT_LENG.l=LENG.l ; ;          STRT.l=STRT.l+LENG.l ;          FileOutput 2 ;          Print "SHORT=",SHORT_STRT.l,",",SHORT_LENG.l,";" ;        EndIf          ; ------------------------------------ TXT          PLK$="AD:TEKSTY/"+PODSTAWA$+".TXT"           (PLK$)            1,(PLK$),65536           LENG.l=(1)            PLK$,(1)            1,(1),(1)            1            TXT_STRT.l=STRT.l           TXT_LENG.l=LENG.l            STRT.l=STRT.l+LENG.l             2           ݁ "nr;DATA,",TXT_STRT.l,",",TXT_LENG.l,";"                  ; ------------------------------------ PICTURES              ("AD:RYSUNKI/"+PODSTAWA$)            PIC=0  255           PIC$=݃(PIC)            PIC$<>""             PLK$="AD:RYSUNKI/"+PODSTAWA$+"/"+PIC$+".IFF"              (PLK$)                1,(PLK$),65536               LENG.l=(1)                PLK$,(1)                1,(1),(1)                1               PIC_STRT.l=STRT.l               PIC_LENG.l=LENG.l               STRT.l=STRT.l+LENG.l                2               ݁ ݃(PIC),",",PIC_STRT.l,",",PIC_LENG.l,","                                    PIC                       ݁ ";"         ; ------------------------------------ CHUNKY              ("AD:RYSUNKI/"+PODSTAWA$)            PIC=0  255           PIC$=݃(PIC)            PIC$<>""             PLK$="AD:RYSUNKI/"+PODSTAWA$+"/"+PIC$+".CHK"              (PLK$)                1,(PLK$),65536               LENG.l=(1)                PLK$,(1)                1,(1),(1)                1               PIC_STRT.l=STRT.l               PIC_LENG.l=LENG.l               STRT.l=STRT.l+LENG.l                2               ݁ ݃(PIC),",",PIC_STRT.l,",",PIC_LENG.l,","                                    PIC                       ݁ ";"          ; ------------------------------------ ENTER         ݂ "" : ݂ ""              TXT$=""      ; ---------------------------------------------------------------------------   1  
  