(complete 0)


(set locale
 (askchoice
  (prompt  "Select the prefered language.")
  (help    "Select the prefered language.")
  (choices "Dansk" "Deutsch" "English" "Español" "Français" "Italiano" "Nederlands" "Português" "Svenska")
  (default 2)
 )
)

(set versionnumber (getversion "exec.library" (resident) ) )
(set version (/ versionnumber 65536) )

(if (< version 37)
 (
  (if (= locale 0)
   (abort "You need at least OS 2.0 to use MultiIndicator.")
  )
  (if (= locale 1)
   (abort "Sie benötigen mindestens OS 2.0, um das Programm MultiIndicator zu nutzen.")
  )
  (if (= locale 2)
   (abort "You need at least OS 2.0 to use MultiIndicator.")
  )
  (if (= locale 3)
   (abort "You need at least OS 2.0 to use MultiIndicator.")
  )
  (if (= locale 4)
   (abort "You need at least OS 2.0 to use MultiIndicator.")
  )
  (if (= locale 5)
   (abort "You need at least OS 2.0 to use MultiIndicator.")
  )
  (if (= locale 6)
   (abort "You need at least OS 2.0 to use MultiIndicator.")
  )
  (if (= locale 7)
   (abort "You need at least OS 2.0 to use MultiIndicator.")
  )
  (if (= locale 8)
   (abort "You need at least OS 2.0 to use MultiIndicator.")
  )
 )
)

  (if (= locale 0)
   (message "\nDiskinstallation\n\n"
            "If you would install MultiIndicator on disk (not on the bootdisk), you need minimal 170 KByte free memory on the bootdisk, if Amigaguide and the Packerlibrarys should be installed.\n\n"
            "If you haven't enough free memory, you have to remove any programs on the bootdisk or you have to do without Amigaguide and/or the Packerlibrarys.")
  )
  (if (= locale 1)
   (message "\nDisketteninstallation\n\n"
            "Wenn Sie MultiIndicator auf Diskette (nicht auf die Bootdiskette) installieren wollen, benötigen Sie auf Ihrer Bootdiskette, falls Amigaguide und die Packerlibrarys installiert werden sollen, mindestens 170 KByte freien Speicherplatz.\n\n"
            "Falls Sie nicht über diesen Speicherplatz verfügen, müssen Sie einige Programme von Ihrer Bootdiskette entfernen, oder auf Amigaguide und/oder die Packerlibrarys verzichten.")
  )
  (if (= locale 2)
   (message "\nDiskinstallation\n\n"
            "If you would install MultiIndicator on disk (not on the bootdisk), you need minimal 170 KByte free memory on the bootdisk, if Amigaguide and the Packerlibrarys should be installed.\n\n"
            "If you haven't enough free memory, you have to remove any programs on the bootdisk or you have to do without Amigaguide and/or the Packerlibrarys.")
  )
  (if (= locale 3)
   (message "\nDiskinstallation\n\n"
            "If you would install MultiIndicator on disk (not on the bootdisk), you need minimal 170 KByte free memory on the bootdisk, if Amigaguide and the Packerlibrarys should be installed.\n\n"
            "If you haven't enough free memory, you have to remove any programs on the bootdisk or you have to do without Amigaguide and/or the Packerlibrarys.")
  )
  (if (= locale 4)
   (message "\nDiskinstallation\n\n"
            "If you would install MultiIndicator on disk (not on the bootdisk), you need minimal 170 KByte free memory on the bootdisk, if Amigaguide and the Packerlibrarys should be installed.\n\n"
            "If you haven't enough free memory, you have to remove any programs on the bootdisk or you have to do without Amigaguide and/or the Packerlibrarys.")
  )
  (if (= locale 5)
   (message "\nDiskinstallation\n\n"
            "If you would install MultiIndicator on disk (not on the bootdisk), you need minimal 170 KByte free memory on the bootdisk, if Amigaguide and the Packerlibrarys should be installed.\n\n"
            "If you haven't enough free memory, you have to remove any programs on the bootdisk or you have to do without Amigaguide and/or the Packerlibrarys.")
  )
  (if (= locale 6)
   (message "\nDiskinstallation\n\n"
            "If you would install MultiIndicator on disk (not on the bootdisk), you need minimal 170 KByte free memory on the bootdisk, if Amigaguide and the Packerlibrarys should be installed.\n\n"
            "If you haven't enough free memory, you have to remove any programs on the bootdisk or you have to do without Amigaguide and/or the Packerlibrarys.")
  )
  (if (= locale 7)
   (message "\nDiskinstallation\n\n"
            "If you would install MultiIndicator on disk (not on the bootdisk), you need minimal 170 KByte free memory on the bootdisk, if Amigaguide and the Packerlibrarys should be installed.\n\n"
            "If you haven't enough free memory, you have to remove any programs on the bootdisk or you have to do without Amigaguide and/or the Packerlibrarys.")
  )
  (if (= locale 8)
   (message "\nDiskinstallation\n\n"
            "If you would install MultiIndicator on disk (not on the bootdisk), you need minimal 170 KByte free memory on the bootdisk, if Amigaguide and the Packerlibrarys should be installed.\n\n"
            "If you haven't enough free memory, you have to remove any programs on the bootdisk or you have to do without Amigaguide and/or the Packerlibrarys.")
  )

(if (= locale 0)
 (set programdir
  (askdir
   (prompt  "Select the directory you want to install the program MultiIndicator.")
   (help    "")
   (default "SYS:")
   (newpath)
  )
 )
)
(if (= locale 1)
 (set programdir
  (askdir
   (prompt  "Wählen Sie das Verzeichnis aus, in welches dann das Programm MultiIndicator installiert wird.")
   (help    "")
   (default "SYS:")
   (newpath)
  )
 )
)
(if (= locale 2)
 (set programdir
  (askdir
   (prompt  "Select the directory you want to install the program MultiIndicator.")
   (help    "")
   (default "SYS:")
   (newpath)
  )
 )
)
(if (= locale 3)
 (set programdir
  (askdir
   (prompt  "Select the directory you want to install the program MultiIndicator.")
   (help    "")
   (default "SYS:")
   (newpath)
  )
 )
)
(if (= locale 4)
 (set programdir
  (askdir
   (prompt  "Select the directory you want to install the program MultiIndicator.")
   (help    "")
   (default "SYS:")
   (newpath)
  )
 )
)
(if (= locale 5)
 (set programdir
  (askdir
   (prompt  "Select the directory you want to install the program MultiIndicator.")
   (help    "")
   (default "SYS:")
   (newpath)
  )
 )
)
(if (= locale 6)
 (set programdir
  (askdir
   (prompt  "Select the directory you want to install the program MultiIndicator.")
   (help    "")
   (default "SYS:")
   (newpath)
  )
 )
)
(if (= locale 7)
 (set programdir
  (askdir
   (prompt  "Select the directory you want to install the program MultiIndicator.")
   (help    "")
   (default "SYS:")
   (newpath)
  )
 )
)
(if (= locale 8)
 (set programdir
  (askdir
   (prompt  "Select the directory you want to install the program MultiIndicator.")
   (help    "")
   (default "SYS:")
   (newpath)
  )
 )
)

(set @default-dest programdir)

(if (= locale 0)
 (copyfiles
  (prompt "Copying MultiIndicator-mainprogram...")
  (source "MI")
  (infos)
  (dest programdir)
 )
)
(if (= locale 1)
 (copyfiles
  (prompt "Kopiere MultiIndicator-Hauptprogramm...")
  (source "MI")
  (infos)
  (dest programdir)
 )
)
(if (= locale 2)
 (copyfiles
  (prompt "Copying MultiIndicator-mainprogram...")
  (source "MI")
  (infos)
  (dest programdir)
 )
)
(if (= locale 3)
 (copyfiles
  (prompt "Copying MultiIndicator-mainprogram...")
  (source "MI")
  (infos)
  (dest programdir)
 )
)
(if (= locale 4)
 (copyfiles
  (prompt "Copying MultiIndicator-mainprogram...")
  (source "MI")
  (infos)
  (dest programdir)
 )
)
(if (= locale 5)
 (copyfiles
  (prompt "Copying MultiIndicator-mainprogram...")
  (source "MI")
  (infos)
  (dest programdir)
 )
)
(if (= locale 6)
 (copyfiles
  (prompt "Copying MultiIndicator-mainprogram...")
  (source "MI")
  (infos)
  (dest programdir)
 )
)
(if (= locale 7)
 (copyfiles
  (prompt "Copying MultiIndicator-mainprogram...")
  (source "MI")
  (infos)
  (dest programdir)
 )
)
(if (= locale 8)
 (copyfiles
  (prompt "Copying MultiIndicator-mainprogram...")
  (source "MI")
  (infos)
  (dest programdir)
 )
)


(complete 34)


(if (= locale 0)
 (set helpdir
  (askchoice
   (prompt  "Select the directory you want to install the help for MultiIndicator.")
   (help    "")
   (choices "ENVARC:/ENV:" "S")
  )
 )
)
(if (= locale 1)
 (set helpdir
  (askchoice
   (prompt  "Wählen Sie das Verzeichnis aus, in welches dann die MultiIndicator-Hilfedatei installiert wird.")
   (help    "")
   (choices "ENVARC:/ENV:" "S")
  )
 )
)
(if (= locale 2)
 (set helpdir
  (askchoice
   (prompt  "Select the directory you want to install the help for MultiIndicator.")
   (help    "")
   (choices "ENVARC:/ENV:" "S")
  )
 )
)
(if (= locale 3)
 (set helpdir
  (askchoice
   (prompt  "Select the directory you want to install the help for MultiIndicator.")
   (help    "")
   (choices "ENVARC:/ENV:" "S")
  )
 )
)
(if (= locale 4)
 (set helpdir
  (askchoice
   (prompt  "Select the directory you want to install the help for MultiIndicator.")
   (help    "")
   (choices "ENVARC:/ENV:" "S")
  )
 )
)
(if (= locale 5)
 (set helpdir
  (askchoice
   (prompt  "Select the directory you want to install the help for MultiIndicator.")
   (help    "")
   (choices "ENVARC:/ENV:" "S")
  )
 )
)
(if (= locale 6)
 (set helpdir
  (askchoice
   (prompt  "Select the directory you want to install the help for MultiIndicator.")
   (help    "")
   (choices "ENVARC:/ENV:" "S")
  )
 )
)
(if (= locale 7)
 (set helpdir
  (askchoice
   (prompt  "Select the directory you want to install the help for MultiIndicator.")
   (help    "")
   (choices "ENVARC:/ENV:" "S")
  )
 )
)
(if (= locale 8)
 (set helpdir
  (askchoice
   (prompt  "Select the directory you want to install the help for MultiIndicator.")
   (help    "")
   (choices "ENVARC:/ENV:" "S")
  )
 )
)

(if (= locale 0)
 (if (= helpdir 0)
  (
   (copyfiles
    (prompt  "Copying help to ENVARC:...")
    (source  "MI_GB.help")
    (dest    "ENVARC:")
    (newname "MI.help")
   )
   (copyfiles
    (prompt  "Copying help to ENV:...")
    (source  "MI_GB.help")
    (dest    "ENV:")
    (newname "MI.help")
   )
  )
  (
   (
    (copyfiles
     (prompt  "Copying help to S:...")
     (source  "MI_GB.help")
     (dest    "S:")
     (newname "MI.help")
    )
   )
  )
 )
)
(if (= locale 1)
 (if (= helpdir 0)
  (
   (copyfiles
    (prompt  "Kopiere MultiIndicator-Hilfedatei nach ENVARC:...")
    (source  "MI_D.help")
    (dest    "ENVARC:")
    (newname "MI.help")
   )
   (copyfiles
    (prompt  "Kopiere MultiIndicator-Hilfedatei nach ENV:...")
    (source  "MI_D.help")
    (dest    "ENV:")
    (newname "MI.help")
   )
  )
  (
   (
    (copyfiles
     (prompt  "Kopiere MultiIndicator-Hilfedatei nach S:...")
     (source  "MI_D.help")
     (dest    "S:")
     (newname "MI.help")
    )
   )
  )
 )
)
(if (= locale 2)
 (if (= helpdir 0)
  (
   (copyfiles
    (prompt  "Copying help to ENVARC:...")
    (source  "MI_GB.help")
    (dest    "ENVARC:")
    (newname "MI.help")
   )
   (copyfiles
    (prompt  "Copying help to ENV:...")
    (source  "MI_GB.help")
    (dest    "ENV:")
    (newname "MI.help")
   )
  )
  (
   (
    (copyfiles
     (prompt  "Copying help to S:...")
     (source  "MI_GB.help")
     (dest    "S:")
     (newname "MI.help")
    )
   )
  )
 )
)
(if (= locale 3)
 (if (= helpdir 0)
  (
   (copyfiles
    (prompt  "Copying help to ENVARC:...")
    (source  "MI_GB.help")
    (dest    "ENVARC:")
    (newname "MI.help")
   )
   (copyfiles
    (prompt  "Copying help to ENV:...")
    (source  "MI_GB.help")
    (dest    "ENV:")
    (newname "MI.help")
   )
  )
  (
   (
    (copyfiles
     (prompt  "Copying help to S:...")
     (source  "MI_GB.help")
     (dest    "S:")
     (newname "MI.help")
    )
   )
  )
 )
)
(if (= locale 4)
 (if (= helpdir 0)
  (
   (copyfiles
    (prompt  "Copying help to ENVARC:...")
    (source  "MI_GB.help")
    (dest    "ENVARC:")
    (newname "MI.help")
   )
   (copyfiles
    (prompt  "Copying help to ENV:...")
    (source  "MI_GB.help")
    (dest    "ENV:")
    (newname "MI.help")
   )
  )
  (
   (
    (copyfiles
     (prompt  "Copying help to S:...")
     (source  "MI_GB.help")
     (dest    "S:")
     (newname "MI.help")
    )
   )
  )
 )
)
(if (= locale 5)
 (if (= helpdir 0)
  (
   (copyfiles
    (prompt  "Copying help to ENVARC:...")
    (source  "MI_GB.help")
    (dest    "ENVARC:")
    (newname "MI.help")
   )
   (copyfiles
    (prompt  "Copying help to ENV:...")
    (source  "MI_GB.help")
    (dest    "ENV:")
    (newname "MI.help")
   )
  )
  (
   (
    (copyfiles
     (prompt  "Copying help to S:...")
     (source  "MI_GB.help")
     (dest    "S:")
     (newname "MI.help")
    )
   )
  )
 )
)
(if (= locale 6)
 (if (= helpdir 0)
  (
   (copyfiles
    (prompt  "Copying help to ENVARC:...")
    (source  "MI_GB.help")
    (dest    "ENVARC:")
    (newname "MI.help")
   )
   (copyfiles
    (prompt  "Copying help to ENV:...")
    (source  "MI_GB.help")
    (dest    "ENV:")
    (newname "MI.help")
   )
  )
  (
   (
    (copyfiles
     (prompt  "Copying help to S:...")
     (source  "MI_GB.help")
     (dest    "S:")
     (newname "MI.help")
    )
   )
  )
 )
)
(if (= locale 7)
 (if (= helpdir 0)
  (
   (copyfiles
    (prompt  "Copying help to ENVARC:...")
    (source  "MI_GB.help")
    (dest    "ENVARC:")
    (newname "MI.help")
   )
   (copyfiles
    (prompt  "Copying help to ENV:...")
    (source  "MI_GB.help")
    (dest    "ENV:")
    (newname "MI.help")
   )
  )
  (
   (
    (copyfiles
     (prompt  "Copying help to S:...")
     (source  "MI_GB.help")
     (dest    "S:")
     (newname "MI.help")
    )
   )
  )
 )
)
(if (= locale 8)
 (if (= helpdir 0)
  (
   (copyfiles
    (prompt  "Copying help to ENVARC:...")
    (source  "MI_GB.help")
    (dest    "ENVARC:")
    (newname "MI.help")
   )
   (copyfiles
    (prompt  "Copying help to ENV:...")
    (source  "MI_GB.help")
    (dest    "ENV:")
    (newname "MI.help")
   )
  )
  (
   (
    (copyfiles
     (prompt  "Copying help to S:...")
     (source  "MI_GB.help")
     (dest    "S:")
     (newname "MI.help")
    )
   )
  )
 )
)


(complete 37)


(if (= locale 0)
 (if (askbool
      (prompt "\n\nDo you want to install the document ?")
      (help   "")
     )
     (
      (set documentdir
       (askdir
        (prompt  "Select the directory you want to install the document for MultiIndicator.")
        (help    "")
        (default "SYS:")
        (newpath)
       )
      )
      (set @default-dest documentdir)
      (copyfiles
       (prompt  "Copying document...")
       (source  "MIndicator_GB.guide")
       (infos)
       (dest documentdir)
       (newname "MIndicator.guide")
      )
     )
 )
)
(if (= locale 1)
 (if (askbool
      (prompt "\n\nSoll die Anleitung zu MultiIndicator kopiert werden?")
      (help   "")
     )
     (
      (set documentdir
       (askdir
        (prompt  "Wählen Sie das Verzeichnis aus, in welches dann die MultiIndicator-Anleitung installiert wird.")
        (help    "")
        (default "SYS:")
        (newpath)
       )
      )
      (set @default-dest documentdir)
      (copyfiles
       (prompt  "Kopiere Anleitung zu MultiIndicator...")
       (source  "MIndicator_D.guide")
       (infos)
       (dest documentdir)
       (newname "MIndicator.guide")
      )
     )
 )
)
(if (= locale 2)
 (if (askbool
      (prompt "\n\nDo you want to install the document ?")
      (help   "")
     )
     (
      (set documentdir
       (askdir
        (prompt  "Select the directory you want to install the document for MultiIndicator.")
        (help    "")
        (default "SYS:")
        (newpath)
       )
      )
      (set @default-dest documentdir)
      (copyfiles
       (prompt  "Copying document...")
       (source  "MIndicator_GB.guide")
       (infos)
       (dest documentdir)
       (newname "MIndicator.guide")
      )
     )
 )
)
(if (= locale 3)
 (if (askbool
      (prompt "\n\nDo you want to install the document ?")
      (help   "")
     )
     (
      (set documentdir
       (askdir
        (prompt  "Select the directory you want to install the document for MultiIndicator.")
        (help    "")
        (default "SYS:")
        (newpath)
       )
      )
      (set @default-dest documentdir)
      (copyfiles
       (prompt  "Copying document...")
       (source  "MIndicator_GB.guide")
       (infos)
       (dest documentdir)
       (newname "MIndicator.guide")
      )
     )
 )
)
(if (= locale 4)
 (if (askbool
      (prompt "\n\nDo you want to install the document ?")
      (help   "")
     )
     (
      (set documentdir
       (askdir
        (prompt  "Select the directory you want to install the document for MultiIndicator.")
        (help    "")
        (default "SYS:")
        (newpath)
       )
      )
      (set @default-dest documentdir)
      (copyfiles
       (prompt  "Copying document...")
       (source  "MIndicator_GB.guide")
       (infos)
       (dest documentdir)
       (newname "MIndicator.guide")
      )
     )
 )
)
(if (= locale 5)
 (if (askbool
      (prompt "\n\nDo you want to install the document ?")
      (help   "")
     )
     (
      (set documentdir
       (askdir
        (prompt  "Select the directory you want to install the document for MultiIndicator.")
        (help    "")
        (default "SYS:")
        (newpath)
       )
      )
      (set @default-dest documentdir)
      (copyfiles
       (prompt  "Copying document...")
       (source  "MIndicator_GB.guide")
       (infos)
       (dest documentdir)
       (newname "MIndicator.guide")
      )
     )
 )
)
(if (= locale 6)
 (if (askbool
      (prompt "\n\nDo you want to install the document ?")
      (help   "")
     )
     (
      (set documentdir
       (askdir
        (prompt  "Select the directory you want to install the document for MultiIndicator.")
        (help    "")
        (default "SYS:")
        (newpath)
       )
      )
      (set @default-dest documentdir)
      (copyfiles
       (prompt  "Copying document...")
       (source  "MIndicator_GB.guide")
       (infos)
       (dest documentdir)
       (newname "MIndicator.guide")
      )
     )
 )
)
(if (= locale 7)
 (if (askbool
      (prompt "\n\nDo you want to install the document ?")
      (help   "")
     )
     (
      (set documentdir
       (askdir
        (prompt  "Select the directory you want to install the document for MultiIndicator.")
        (help    "")
        (default "SYS:")
        (newpath)
       )
      )
      (set @default-dest documentdir)
      (copyfiles
       (prompt  "Copying document...")
       (source  "MIndicator_GB.guide")
       (infos)
       (dest documentdir)
       (newname "MIndicator.guide")
      )
     )
 )
)
(if (= locale 8)
 (if (askbool
      (prompt "\n\nDo you want to install the document ?")
      (help   "")
     )
     (
      (set documentdir
       (askdir
        (prompt  "Select the directory you want to install the document for MultiIndicator.")
        (help    "")
        (default "SYS:")
        (newpath)
       )
      )
      (set @default-dest documentdir)
      (copyfiles
       (prompt  "Copying document...")
       (source  "MIndicator_GB.guide")
       (infos)
       (dest documentdir)
       (newname "MIndicator.guide")
      )
     )
 )
)

(set @default-dest programdir)


(complete 48)


(if (= locale 0)
 (if (askbool
      (prompt "\n\nDo you want to install the packer-libraries for MultiIndicator (XPK-Packer and Powerpacker) ?")
      (help   "")
     )
     (
      (copylib
       (prompt "Copying PowerPacker.library...")
       (source "Libs/PowerPacker.library")
       (dest   "Libs:")
      )
      (copylib
       (prompt "Copying XPKMaster.library...")
       (source "Libs/XPKMaster.library")
       (dest   "Libs:")
      )
      (makedir "Libs:Compressors")
      (copyfiles
       (prompt "Installing XPK-Packverfahren...")
       (source "Libs/Compressors")
       (dest   "Libs:Compressors")
       (pattern "#?")
      )
     )
 )
)
(if (= locale 1)
 (if (askbool
      (prompt "\n\nSollen die Packer-Libraries für MultiIndicator (XPK-Packer und PowerPacker) installiert werden ?")
      (help   "")
     )
     (
      (copylib
       (prompt "Kopiere PowerPacker.library...")
       (source "Libs/PowerPacker.library")
       (dest   "Libs:")
      )
      (copylib
       (prompt "Kopiere XPKMaster.library...")
       (source "Libs/XPKMaster.library")
       (dest   "Libs:")
      )
      (makedir "Libs:Compressors")
      (copyfiles
       (prompt "Installiere XPK-Packverfahren...")
       (source "Libs/Compressors")
       (dest   "Libs:Compressors")
       (pattern "#?")
      )
     )
 )
)
(if (= locale 2)
 (if (askbool
      (prompt "\n\nDo you want to install the packer-libraries for MultiIndicator (XPK-Packer and Powerpacker) ?")
      (help   "")
     )
     (
      (copylib
       (prompt "Copying PowerPacker.library...")
       (source "Libs/PowerPacker.library")
       (dest   "Libs:")
      )
      (copylib
       (prompt "Copying XPKMaster.library...")
       (source "Libs/XPKMaster.library")
       (dest   "Libs:")
      )
      (makedir "Libs:Compressors")
      (copyfiles
       (prompt "Installing XPK-Packverfahren...")
       (source "Libs/Compressors")
       (dest   "Libs:Compressors")
       (pattern "#?")
      )
     )
 )
)
(if (= locale 3)
 (if (askbool
      (prompt "\n\nDo you want to install the packer-libraries for MultiIndicator (XPK-Packer and Powerpacker) ?")
      (help   "")
     )
     (
      (copylib
       (prompt "Copying PowerPacker.library...")
       (source "Libs/PowerPacker.library")
       (dest   "Libs:")
      )
      (copylib
       (prompt "Copying XPKMaster.library...")
       (source "Libs/XPKMaster.library")
       (dest   "Libs:")
      )
      (makedir "Libs:Compressors")
      (copyfiles
       (prompt "Installing XPK-Packverfahren...")
       (source "Libs/Compressors")
       (dest   "Libs:Compressors")
       (pattern "#?")
      )
     )
 )
)
(if (= locale 4)
 (if (askbool
      (prompt "\n\nDo you want to install the packer-libraries for MultiIndicator (XPK-Packer and Powerpacker) ?")
      (help   "")
     )
     (
      (copylib
       (prompt "Copying PowerPacker.library...")
       (source "Libs/PowerPacker.library")
       (dest   "Libs:")
      )
      (copylib
       (prompt "Copying XPKMaster.library...")
       (source "Libs/XPKMaster.library")
       (dest   "Libs:")
      )
      (makedir "Libs:Compressors")
      (copyfiles
       (prompt "Installing XPK-Packverfahren...")
       (source "Libs/Compressors")
       (dest   "Libs:Compressors")
       (pattern "#?")
      )
     )
 )
)
(if (= locale 5)
 (if (askbool
      (prompt "\n\nDo you want to install the packer-libraries for MultiIndicator (XPK-Packer and Powerpacker) ?")
      (help   "")
     )
     (
      (copylib
       (prompt "Copying PowerPacker.library...")
       (source "Libs/PowerPacker.library")
       (dest   "Libs:")
      )
      (copylib
       (prompt "Copying XPKMaster.library...")
       (source "Libs/XPKMaster.library")
       (dest   "Libs:")
      )
      (makedir "Libs:Compressors")
      (copyfiles
       (prompt "Installing XPK-Packverfahren...")
       (source "Libs/Compressors")
       (dest   "Libs:Compressors")
       (pattern "#?")
      )
     )
 )
)
(if (= locale 6)
 (if (askbool
      (prompt "\n\nDo you want to install the packer-libraries for MultiIndicator (XPK-Packer and Powerpacker) ?")
      (help   "")
     )
     (
      (copylib
       (prompt "Copying PowerPacker.library...")
       (source "Libs/PowerPacker.library")
       (dest   "Libs:")
      )
      (copylib
       (prompt "Copying XPKMaster.library...")
       (source "Libs/XPKMaster.library")
       (dest   "Libs:")
      )
      (makedir "Libs:Compressors")
      (copyfiles
       (prompt "Installing XPK-Packverfahren...")
       (source "Libs/Compressors")
       (dest   "Libs:Compressors")
       (pattern "#?")
      )
     )
 )
)
(if (= locale 7)
 (if (askbool
      (prompt "\n\nDo you want to install the packer-libraries for MultiIndicator (XPK-Packer and Powerpacker) ?")
      (help   "")
     )
     (
      (copylib
       (prompt "Copying PowerPacker.library...")
       (source "Libs/PowerPacker.library")
       (dest   "Libs:")
      )
      (copylib
       (prompt "Copying XPKMaster.library...")
       (source "Libs/XPKMaster.library")
       (dest   "Libs:")
      )
      (makedir "Libs:Compressors")
      (copyfiles
       (prompt "Installing XPK-Packverfahren...")
       (source "Libs/Compressors")
       (dest   "Libs:Compressors")
       (pattern "#?")
      )
     )
 )
)
(if (= locale 8)
 (if (askbool
      (prompt "\n\nDo you want to install the packer-libraries for MultiIndicator (XPK-Packer and Powerpacker) ?")
      (help   "")
     )
     (
      (copylib
       (prompt "Copying PowerPacker.library...")
       (source "Libs/PowerPacker.library")
       (dest   "Libs:")
      )
      (copylib
       (prompt "Copying XPKMaster.library...")
       (source "Libs/XPKMaster.library")
       (dest   "Libs:")
      )
      (makedir "Libs:Compressors")
      (copyfiles
       (prompt "Installing XPK-Packverfahren...")
       (source "Libs/Compressors")
       (dest   "Libs:Compressors")
       (pattern "#?")
      )
     )
 )
)


(complete 73)


(if (= locale 1)
 (if (exists "Locale:Catalogs/Deutsch")
  (if (askbool
       (prompt "\n\nSoll der deutsche Catalog installiert werden?")
       (help   "")
      )
      (
       (copyfiles
        (prompt "Installiere deutschen Catalog für MultiIndicator...")
        (source "Catalogs/Deutsch/MI.catalog")
        (dest   "Locale:Catalogs/Deutsch")
       )
      )
  )
 )
)
(if (= locale 3)
 (if (exists "Locale:Catalogs/Español")
  (if (askbool
       (prompt "\n\nDo you want to install the Spanish catalog file ?")
       (help   "")
      )
      (
       (copyfiles
        (prompt "Installing Spanish Catalog for MultiIndicator...")
        (source "Catalogs/Español/MI.catalog")
        (dest   "Locale:Catalogs/Español")
       )
      )
  )
 )
)
(if (= locale 8)
 (if (exists "Locale:Catalogs/Svenska")
  (if (askbool
       (prompt "\n\nDo you want to install the Swedish catalog file ?")
       (help   "")
      )
      (
       (copyfiles
        (prompt "Installing Swedish Catalog for MultiIndicator...")
        (source "Catalogs/Svenska/MI.catalog")
        (dest   "Locale:Catalogs/Svenska")
       )
      )
  )
 )
)


(complete 76)


(set guideavail (exists "Libs:AmigaGuide.library") )

(if (= guideavail 0)
 (
  (if (= locale 0)
   (if (askbool
        (prompt "\n\nDo you want to install AmigaGuide ?")
        (help "")
       )
       (
        (copyfiles
         (prompt "Installing AmigaGuide...")
         (source "AmigaGuide/AmigaGuide")
         (infos)
         (dest "SYS:Utilities")
        )
        (copylib
         (prompt "Installing AmigaGuide.library...")
         (source "Libs/AmigaGuide.library")
         (dest "Libs:")
        )
       )
   )
  )
  (if (= locale 1)
   (if (askbool
        (prompt "\n\nSoll AmigaGuide installiert werden ?")
        (help "")
       )
       (
        (copyfiles
         (prompt "Installiere AmigaGuide...")
         (source "AmigaGuide/AmigaGuide")
         (infos)
         (dest "SYS:Utilities")
        )
        (copylib
         (prompt "Installiere AmigaGuide.library...")
         (source "Libs/AmigaGuide.library")
         (dest "Libs:")
        )
       )
   )
  )
  (if (= locale 2)
   (if (askbool
        (prompt "\n\nDo you want to install AmigaGuide ?")
        (help "")
       )
       (
        (copyfiles
         (prompt "Installing AmigaGuide...")
         (source "AmigaGuide/AmigaGuide")
         (infos)
         (dest "SYS:Utilities")
        )
        (copylib
         (prompt "Installing AmigaGuide.library...")
         (source "Libs/AmigaGuide.library")
         (dest "Libs:")
        )
       )
   )
  )
  (if (= locale 3)
   (if (askbool
        (prompt "\n\nDo you want to install AmigaGuide ?")
        (help "")
       )
       (
        (copyfiles
         (prompt "Installing AmigaGuide...")
         (source "AmigaGuide/AmigaGuide")
         (infos)
         (dest "SYS:Utilities")
        )
        (copylib
         (prompt "Installing AmigaGuide.library...")
         (source "Libs/AmigaGuide.library")
         (dest "Libs:")
        )
       )
   )
  )
  (if (= locale 4)
   (if (askbool
        (prompt "\n\nDo you want to install AmigaGuide ?")
        (help "")
       )
       (
        (copyfiles
         (prompt "Installing AmigaGuide...")
         (source "AmigaGuide/AmigaGuide")
         (infos)
         (dest "SYS:Utilities")
        )
        (copylib
         (prompt "Installing AmigaGuide.library...")
         (source "Libs/AmigaGuide.library")
         (dest "Libs:")
        )
       )
   )
  )
  (if (= locale 5)
   (if (askbool
        (prompt "\n\nDo you want to install AmigaGuide ?")
        (help "")
       )
       (
        (copyfiles
         (prompt "Installing AmigaGuide...")
         (source "AmigaGuide/AmigaGuide")
         (infos)
         (dest "SYS:Utilities")
        )
        (copylib
         (prompt "Installing AmigaGuide.library...")
         (source "Libs/AmigaGuide.library")
         (dest "Libs:")
        )
       )
   )
  )
  (if (= locale 6)
   (if (askbool
        (prompt "\n\nDo you want to install AmigaGuide ?")
        (help "")
       )
       (
        (copyfiles
         (prompt "Installing AmigaGuide...")
         (source "AmigaGuide/AmigaGuide")
         (infos)
         (dest "SYS:Utilities")
        )
        (copylib
         (prompt "Installing AmigaGuide.library...")
         (source "Libs/AmigaGuide.library")
         (dest "Libs:")
        )
       )
   )
  )
  (if (= locale 7)
   (if (askbool
        (prompt "\n\nDo you want to install AmigaGuide ?")
        (help "")
       )
       (
        (copyfiles
         (prompt "Installing AmigaGuide...")
         (source "AmigaGuide/AmigaGuide")
         (infos)
         (dest "SYS:Utilities")
        )
        (copylib
         (prompt "Installing AmigaGuide.library...")
         (source "Libs/AmigaGuide.library")
         (dest "Libs:")
        )
       )
   )
  )
  (if (= locale 8)
   (if (askbool
        (prompt "\n\nDo you want to install AmigaGuide ?")
        (help "")
       )
       (
        (copyfiles
         (prompt "Installing AmigaGuide...")
         (source "AmigaGuide/AmigaGuide")
         (infos)
         (dest "SYS:Utilities")
        )
        (copylib
         (prompt "Installing AmigaGuide.library...")
         (source "Libs/AmigaGuide.library")
         (dest "Libs:")
        )
       )
   )
  )
 )
)


(complete 99)


(exit)