(

   (
   message ("\nInstalacja programu\nAmiLopedia\nwersja HD\n")
   )

  
     (
     set DESTDIR (askdir
               (prompt  ("Wybierz urzâdzenie i katalog, na które chcesz instalowaê AmiLopedië"))
               (help    ("W tym miejscu podaê naleûy urzâdzenie (oraz katalog), na którâ zainstalowany zostanie program AmiLopedia. Program instalacyjny nie tworzy swojego katalogu - program nagrywany jest bezpoôrednio do katalogu okreôlonego w oknie wyboru."))
               (default ("dh0:"))
          )
      )

   (
   (set SPACE (getdiskspace DESTDIR))

   (
   if( < SPACE 10000000) 
      (message ("\n\nUWAGA! Za maîo miejsca na twardym dysku aby dokonaê instalacji programu!"))
   )

   )



      (
      if (= (exists DESTDIR) 0) (makedir DESTDIR (infos))
      )

      (set @default-dest DESTDIR)

(askdisk (dest "AmiLopediaINSTALL1")
   (prompt "\n\n\nProszë wîoûyê pierwszy dysk instalacyjny")
   (help "")
)

      (copyfiles (source "AmiLopediaINSTALL1:") (dest "sys:c") (choices "lha" "iconx" "amigaguide"))

      (copyfiles (source "AmiLopediaINSTALL1:fonts")
                   (dest "SYS:fonts")
                   (all)
      )

      (copylib (source "AmiLopediaINSTALL1:libs/amigaguide.library")
                  (dest "SYS:libs")
                  (prompt ("Biblioteka amigaguide.library\n\nUWAGA! Jeôli masz zainstalowanâ nowszâ wersjë biblioteki wybierz przycisk 'Skip This Part', jeôli nie - przycisk 'Proceed with Copy'"))
                  (confirm)
                  (help (""))  
                  (nogauge)
      )

      (copylib (source "AmiLopediaINSTALL1:libs/asl.library")
                  (dest "SYS:libs")
                  (prompt ("Biblioteka asl.library\n\nUWAGA! Jeôli masz zainstalowanâ nowszâ wersjë biblioteki wybierz przycisk 'Skip This Part', jeôli nie - przycisk 'Proceed with Copy'"))
                  (confirm)
                  (help (""))  
                  (nogauge)
      )

   (copyfiles (source "AmiLopediaINSTALL1:AL.lha")
              (dest DESTDIR)
   )

   (copyfiles (source "AmiLopediaINSTALL1:Rozpakuj")
              (dest DESTDIR)
              (infos)
   )

   (copyfiles (source "AmiLopediaINSTALL1:Art4.lha")
              (dest DESTDIR)
   )

(askdisk (dest "AmiLopediaINSTALL2")
   (prompt "\n\n\nProszë wîoûyê drugi dysk instalacyjny")
   (help "")
)

   (copyfiles (source "AmiLopediaINSTALL2:Art1.lha")
              (dest DESTDIR)
   )

(askdisk (dest "AmiLopediaINSTALL3")
   (prompt "\n\n\nProszë wîoûyê trzeci dysk instalacyjny")
   (help "")
)

   (copyfiles (source "AmiLopediaINSTALL3:Art2.lha")
              (dest DESTDIR)
   )

(askdisk (dest "AmiLopediaINSTALL4")
   (prompt "\n\n\nProszë wîoûyê czwarty dysk instalacyjny")
   (help "")
)

   (copyfiles (source "AmiLopediaINSTALL4:Art3.lha")
              (dest DESTDIR)
   )


   (
   startup "Amilopedia"
      (prompt "Utworzenie potrzebnych urzâdzeï w systemie")
      (help "")
      (command (cat "Assign AmiLopedia: " (tackon DESTDIR "\n")))

   )




   (message ("\n\nArchiwum AmiLopedii zostaîo zainstalowane!\nAby móc uruchomiê program naleûy wejôê do katalogu,\ndo którego zainstalowane zostaîo archiwum\n i dwukrotnie kliknâê ikonë 'Rozpakuj'\nUWAGA! Program bëdzie moûna uruchomiê dopiero\n po zresetowaniu Amigi!!!"))

)