(SET is_update 0)
(set lib "libs/reqtools.library")

(complete 0)

(SET @default-dest "SYS:")

(IF (< (/ (getversion) 65536) 37)

    (
      (message "\n Tut mir leid, dieses Paket benoetigt mind. OS2.04.\n")
      (exit (quiet))
    )
)


(SET Filo_dest
        (askdir
                (prompt "In welche Disk/Schublade soll FiloFax installiert werden?")
                (help "\n Das Installationsprogramm erstellt das Verzeichnis \n"
                        " \"FiloFax\" in diesem Verzeichnis. Alle \n \"FiloFax\""
                        " Dateien werden in dieses Verzeichnis    kopiert. \n\n"
                        " Tip :\n "
                        "\"FiloFax\" kann später in ein beliebiges \n anderes "
                        "Verzeichnis verschoben werden, wenn der \n Inhalt nicht geändert wird.\n")
                (default @default-dest)
        )
)


; Neues Verzeichnis
(makedir (tackon Filo_dest "FiloFax") (infos))

(complete 10)

(SET Filo_dest (tackon Filo_dest "FiloFax"))
(set @default-dest Filo_dest)

(copyfiles
        (source "")
        (dest Filo_dest) (pattern "#?") (infos)
)       
(complete 70)
       ((SET zusatze (askoptions

            (prompt "\n Welche Zusätze sollen installiert werden ?\n")

            (choices
                 " FiloCheck in die WB-Startup:"
                 " FiloPrefs nach S:"
            )

            (help (cat "\n"

                " 1. Das Programm FiloCheck wird beim Booten automatisch\n"
                "    gestartet. (FiloCheck wird über die Tooltypes \n"
                "    konfiguriert, mehr dazu in der Anleitung)  \n"
                "                                                   \n"
                " 2. Es wird eine Konfiguration nach S: \n"
                "    kopiert. \n"                          


            ))

            (DEFAULT 0)
        ))
    )

    (IF (IN zusatze 0) (

        (copyfiles

            (source "FiloCheck")
            (dest   "SYS:WBStartup/")
        )
        (copyfiles

            (source "FiloCheck.info")
            (dest   "SYS:WBStartup/")
        )

        (tooltype (dest (tackon "SYS:WBStartup/" "FiloCheck"))
         (settooltype "FILO_FAX" (tackon Filo_dest "FiloFax"))
        )


    ))                   

    (complete 85)                    
    (IF (IN zusatze 1) (

        (copyfiles

            (source "Configs/FiloPrefs")
            (dest   "s:")
        )
    ))

(copylib    (prompt "FiloFax beöntigt die ReqTools.library\nWollen Sie diese jetzt installieren")
            (help "")
            (source lib)
            (dest "LIBS:")
            (confirm)
)

(IF (< (/ (getversion) 65536) 38)
    (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
              (setdefaulttool "sys:utilities/AmigaGuide")
    )

    (tooltype (dest (tackon Filo_dest "FiloFax.guide"))
              (setdefaulttool "sys:utilities/Multiview")
    )

)           


(complete 100)
(exit)