;$VER: MaxDOS 2.5 Demo Installation Script 1.0 (14.03.95)

(set _AskInstallPrompt
 (cat "\n\n\nDo you want to install the MaxDOS 2.5 demo?\n\n\n"
      "(MaxDOS is a Macintosh compatible filesystem for the Amiga computer--see the "
      "included MaxDOS Read Me file for details.)")
)

(set _AskInstallHelp
 (cat "\nThe MaxDOS 2.5 demo is both easily installed and easily removed "
      "with the included removal utility.\n\nYou should NOT continue if "
      "a version of MaxDOS is already installed on your system.")
)

(set _ExitMessage
 (cat "See the included MaxDOS Read Me file for instructions on getting "
      "started with MaxDOS 2.5--please be aware that this is a crippled demo "
      "version.\n\n"
      "You should reboot your system before attempting to use MaxDOS.")
)

(set _NoWayMessage
 (cat "A version of MaxDOS is already installed on your system.  Installation "
      "of this demo version would interfere with the function of the currently "
      "installed version.")
)

(set _no-mfm-text
 (cat "\nYou do not appear to have the file \"mfm.device\" in your "
      "DEVS: directory. This will not affect your ability to access "
      "SCSI devices, but it does preclude your ability to access "
      "high-density floppies (which is, in turn, possible only with a "
      "high-density drive).\n\n"
      "This file is part of the standard distribution of Workbench 2.1 "
      "and above. See the MaxDOS Demo Read Me for more information.")
)

(complete 0)

(if (not(exists "L:MaxDOSFileSystem"))
    (if (askbool (prompt _AskInstallPrompt)
                 (help _AskInstallHelp)
                 (default 1)
        )
        (
         (set n 0)
         (while (set _Source (select n "l/MaxDOSFileSystem"
                                        "Tools/Commodities/MaxDOSFiles"
                                        "Tools/Commodities/MaxDOSTypes"
                                        "Utilities/Mounter"
                                        "Utilities/XRes"
                                        "Utilities/XHex"
                                        ""
                              )
                 )
                 (set _Dest   (select n "l:"
                                        "SYS:WBStartup"
                                        "SYS:WBStartup"
                                        "SYS:Utilities"
                                        "SYS:Utilities"
                                        "SYS:Utilities"
                                        ""
                              )
                 )
                (
                 (copyfiles (source _Source)
                            (dest _Dest)
                            (infos)
                 )
                 (set n (+ n 1))
                 (complete (* n 10))
                )
         )
         (if (exists "SYS:Storage/DosDrivers")
             (
              (copyfiles (source "Storage/DosDrivers/MF0")
                         (dest "SYS:Storage/DosDrivers")
                         (infos)
              )
              (copyfiles (source "Storage/DosDrivers/MF1")
                         (dest "SYS:Storage/DosDrivers")
                         (infos)
              )
              (copyfiles (source "Storage/DosDrivers/MF2")
                         (dest "SYS:Storage/DosDrivers")
                         (infos)
              )
              (copyfiles (source "Storage/DosDrivers/MF3")
                         (dest "SYS:Storage/DosDrivers")
                         (infos)
              )
             )
             (
              (copyfiles (source "Devs/mountlist.maxdos")
                         (dest "DEVS:")
              )                     
             )
         )
    
         (if (NOT (exists "DEVS:mfm.device"))
             (message _no-mfm-text)
         )
        )
    )
    (
        (abort _NoWayMessage)
    )

)

(complete 100)

(exit _ExitMessage)