; DeliPlay - install script
;
(set cpu (+ (database "cpu")))

(if     (OR (< (getversion) 37)
             (< cpu 68020)
        )
        (abort "Sorry, but you need at least Kick/WB 2.x and a 68020 CPU")
)

(set @default-dest "DOpus5:")

(set toolname
       (askfile
           (prompt "Show me the DeliTracker file ! You must do this !!")
           (default "")
           (help "You should click at least on the file \"DeliTracker2\"."
                 "Here is no check if all is all right. So this will fail"
                 "without any WARNING.\n" @askfile-help )
       )
)

(set filetypes
       (askbool
           (prompt "Do you wish to install some module filetypes ?")
           (help "You need them not to use the DeliModule. They are named like \"Module-PS3M\"")
       )
)

(copyfiles
       (prompt "Copying files")
       (source "DOpus5/")
       (dest "DOpus5:")
       (all)

)

(if filetypes
       (copyfiles
            (prompt "Copy module filetypes")
            (source "filetypes")
            (dest "DOpus5:filetypes")
            (all)
       )
)

(tooltype
       (prompt "")
       (help "")
       (settooltype DT toolname)
       (dest "DOpus5:settings/DT.cfg")
)

(set languagedir
     (cat "Docs/" @language)
)

(set catalogdir
     (cat languagedir "/catalogs")
)

(if
    (exists languagedir (noreq))
    ((copyfiles
         (prompt "Copy catalog")
         (source catalogdir)
         (dest (cat "DOpus5:catalogs/" @language))
         (all)
     )
     (copyfiles
         (prompt "Copy Doc")
         (source languagedir)
         (dest "DOpus5:")
         (pattern "#?.guide#?")
         (files)
         (infos)
     )
    )
    (message "A doc and catalog for your native language is not available. You should copy a doc file of your choice to your DOpus5 docs manually.")
)

(exit "The DeliPlay.Module is successful installed to \"DOpus5:\" ." "Enjoy it." (quiet))
