;$VER: WordPad Installer v0.2 (5/4/99)

;set some message stuff-----------------------

(procedure english (
  (set MSG_WELCOME "\n\nWelcome to the installation of Wordpad,\ndo you wish to proceed?")
  (set MSG_DESTINATION "\nWhere do you want Wordpad to be installed.\nA drawer will be created.")
  (set MSG_COPY "\nCopying source files\n")
  (set MSG_NOMUI "You Have no installation of MUI,\nwhich is required for WordPad to Run.\nPlease install MUI Before Proceeding with this installation")
  (set MSG_ICON "What image set do you want installed?")
  (set MSG_ASSIGN "Some assigns need to be added to your startup sequence\n")
))


(if (= @language "english") (english))


(message (MSG_WELCOME))



       (set drive_dir
          (askdir (prompt (MSG_DESTINATION))
                  (help @askdir-help)
                  (default @default-dest)
                  (newpath))
       )
       (set dest_dir (tackon drive_dir "WordPad"))
                     (makedir dest_dir)

       (copyfiles (source "bin/images/WordPad.info")
                  (dest drive_dir)

       )


       (set @default-dest dest_dir)

       (copyfiles (prompt (MSG_COPY "WordPad" @default-dest))
                  (help @copyfiles-help)
                  (source "bin/WordPad")
                  (dest dest_dir)
       )
       (copyfiles (source "bin/WordPad.info")
                  (dest dest_dir)
       )
  (set icon_set

       (askchoice (prompt (MSG_ICON))
                  (choices "Newicons" "MagicWB" )
                  (help @askoptions-help)
                  (default 0)

       )
  )
       (set images_dir (tackon dest_dir "Images"))
                       (makedir images_dir)
       (copyfiles (source "bin/Images.info")
                  (dest dest_dir)
       )
  (if (= icon_set 0)

       (copyfiles (source "bin/Images/NI/")
                  (dest images_dir)
                  (all)
       )
       
  )
  (if (= icon_set 1)

       (copyfiles (source "bin/Images/MWB/")
                  (dest images_dir)
                  (all)
       )
       
  )
       (copyfiles (source "bin/WordPad.guide")
                  (dest dest_dir)
       )
       (copyfiles (source "bin/WordPad.guide.info")
                  (dest dest_dir)
       )
       (complete 80)

       ;Copy MUI MCC's--------------------------

       (copylib (prompt "MUI - TextEditor.mcc")
                (source "bin/mui/TextEditor.mcc")
                (dest "MUI:Libs/MUI/")
                (confirm 2)
                (help @copylib-help)
       )
       (copylib (prompt "MUI - TextEditor.mcp")
                (source "bin/mui/TextEditor.mcp")
                (dest "MUI:Libs/MUI/")
                (confirm 2)
                (help @copylib-help)
       )
       (copylib (prompt "MUI - Toolbar.mcc")
                (source "bin/mui/Toolbar.mcc")
                (dest "MUI:Libs/MUI/")
                (confirm 2)
                (help @copylib-help)
       )
       (copylib (prompt "MUI - Toolbar.mcp")
                (source "bin/mui/Toolbar.mcp")
                (dest "MUI:Libs/MUI/")
                (confirm 2)
                (help @copylib-help)
       )
       (copylib (prompt "MUI - TearOffBay.mcc")
                (source "bin/mui/TearOffBay.mcc")
                (dest "MUI:Libs/MUI/")
                (confirm 2)
                (help @copylib-help)
       )
       (copylib (prompt "MUI - TearOffPanel.mcc")
                (source "bin/mui/TearOffPanel.mcc")
                (dest "MUI:Libs/MUI/")
                (confirm 2)
                (help @copylib-help)
       )
       (copylib (prompt "MUI - TearOff.mcp")
                (source "bin/mui/TearOff.mcp")
                (dest "MUI:Libs/MUI/")
                (confirm 2)
                (help @copylib-help)
       )
       (copylib (prompt "MUI - CompactWindow.mcc")
                (source "bin/mui/CompactWindow.mcc")
                (dest "MUI:Libs/MUI/")
                (confirm 2)
                (help @copylib-help)
       )
       (copylib (prompt "MUI - CompactWindow.mcp")
                (source "bin/mui/CompactWindow.mcp")
                (dest "MUI:Libs/MUI/")
                (confirm 2)
                (help @copylib-help)
       )
       (copylib (prompt "MUI - TWFmultiLED.mcc")
                (source "bin/mui/TWFmultiLED.mcc")
                (dest "MUI:Libs/MUI/")
                (confirm 2)
                (help @copylib-help)
       )
       (copylib (prompt "MUI - TWFmultiLED.mcp")
                (source "bin/mui/TWFmultiLED.mcp")
                (dest "MUI:Libs/MUI/")
                (confirm 2)
                (help @copylib-help)
       )

       (makedir "MUI:Images/SU_TearOff")
       (set TO_Images "MUI:Images/SU_TearOff/")

       (copyfiles (source "bin/mui/images/")
                  (dest TO_Images)
                  (all)
       )



       (startup "WordPad"
                (help @startup-help)
                (prompt "Some commands will be added to your\ns:user-startup file.")
                (command "assign WordPad: \"" dest_dir "\"\n")
       )


(exit (QUIET))