; Installer for $VER:Execute Command 1.0 (07.11.1999)
(SET @default-dest "SCALOS:Modules/")
(SET @default-docdir "SCALOS:Docs/")
(SET @default-images (CAT @default-dest "Images"))
(SET default_lang 1)

; ***** english texts *****

(SET #needKick (CAT "\nWBInfo needs Workbench Version 39 at least." ) )

(SET #startMsg (CAT "\nExecute Command V1.0 - the ultimate replacement !\n\n"
                     "This script installs Execute_Command.module on your AMIGA.\n\n") )

(SET #destPrompt (CAT "Please choose the destination directory for Execute Command.\n" ) )

(SET #copyPFiles (CAT "Copying program files") )

(SET #langPrompt (CAT "Select the languages you wish to use with Execute Command.") )

(SET #DocPrompt (CAT "Select the directory for the documentation file.") )

(SET #exitMsg (CAT "Execute Command installation succeeded\nYou can use it now.") )


; ***** start installation *****

(if (< (/ (GETVERSION) 65536) 39)
    (ABORT #needKick)
)

(MESSAGE #startMsg)

; ***** get dest dir for Execute Command *****

(SET @default-dest
    (ASKDIR (PROMPT  #destPrompt)
            (HELP    @askdir-help)
            (DEFAULT @default-dest )))

(COPYFILES (SOURCE "Execute_Command.module")
           (HELP @copyfiles-help)
           (DEST @default-dest )
           (INFOS)
           (NOPOSITION)
)

(COPYFILES (SOURCE "Images")
           (ALL)
           (HELP @copyfiles-help)
           (DEST @default-images)
           (INFOS)
)

; ***** install some languages *****

(SET language (ASKOPTIONS (PROMPT #langPrompt)
                          (HELP   @askoptions-help)
                          (CHOICES "english"
                          )
                          (DEFAULT (+ default_lang 0) )
              )
)

;(if (IN language 1)
;    (COPYFILES (SOURCE "catalogs/deutsch/Execute_Command.catalog")
;               (DEST "Locale:Catalogs/deutsch") )
;)



; ***** get dest for doc files *****

(SET @DocDir
    (ASKDIR (PROMPT  #DocPrompt)
            (HELP    @askdir-help)
            (DEFAULT @default-docdir)
            (NEWPATH)
    )
)

; ***** install doc files *****

(if (IN language 0)
  (SET SDocDir  "docs/english")
)
  
(if (IN language 1)
  (SET SDocDir "docs/deutsch")
)  


(COPYFILES (SOURCE  SDocDir)
           (DEST    @DocDir)
           (CHOICES "ExecuteCommand.guide")
           (INFOS)
           (NOPOSITION)
)

(EXIT #exitMsg)