;**************************************************
;
;$VER: MAC Emulation Setup Installer v1.0 (30 Jun 1994)
;
; Title:
;    EMPLANT's MAC Emulation Setup Installer
; 
; Description:
;    The Commodore Installer Script for EMPLANT's
;    MAC emulation setup.
;
; Installer script by Jim Drew
;
;**************************************************

(set true 1)
(set false 0)
(set quote "\"")
(set nothing "")

(set mode 0)				;default to 32 bit mode

(set EMPLANT_dir (getassign "EMPLANT"))

; check for EMPLANT: and abort if not installed!

(if  (not (exists "EMPLANT:MAC/Launcher/Launcher.info"))
     (abort "\n\n\n\nYou *MUST* install EMPLANT's MAC emulation software "
     "before using this program!  This program is designed only to allow "
     "different setups to be used."
     )
)

(complete 5)

(set EMU_dir
(tackon EMPLANT_dir "MAC")
)

(set filename EMU_dir)

(set Launcher_dir
(tackon EMU_dir "Launcher")
)

(set machine
     (askchoice
          (prompt "Select the model of Amiga you are using:")
          (help "\n\n\n\n\nSelect the model that closest matches your "
          "system.  If you have an A4000/030 with an MMU added, select "
          "\Amiga 4000/040\.\n\n\n\n\n\n\n\n"
          @askchoice-help)
               (choices "Amiga 2000 + accelerator w/MMU"
               "Amiga 3000 w/HardKick ROMs"
               "Amiga 3000 w/SoftKick ROMs"
               "Amiga 4000/040"
               "Amiga 4000/030"
               "Other Amiga w/o MMU"
               "I don't want to use the MMU!")
          (default 3)
     )
)

(complete 90)

(if  (< machine 4)
     (set mode
          (askchoice
               (prompt "Select the addressing mode for the emulation to use:")
               (help "\nIt is highly recommend that you use this emulation "
               "only with Apple's System 7.1 or later software.  This "
               "requires that the emulation is setup in '32 bit mode'.\n\n"
               "You should only use '24 bit' mode if you are going to be "
               "using any version from System 6 thru System 7.0.1.\n\n"
               "24 bit mode may be required for some older applications."
               "\n\n\n\n\n"
               @askchoice-help)
               (choices "32 bit (System 7.1 and later)"
               "24 bit (System 7.01 and earlier)")
               (default 0)
          )
     )
)

(complete 95)

(if  (< machine 4)
     (if  (<> machine 2)
          (
          (set type "HardKickMMU")
          (set icon_name "HardLaunch_")
          (set flags
               (askoptions
                    (prompt "Setup Launch script options for:\n"
                    "Any Amiga with an MMU & KickStart in ROM")
                    (help "The following features are available with "
                    "the HardLaunch_MAC script:\n\n"
                    "QUIET:\n\n"
                    "Turns off the screen flash when HardLaunch_MAC is "
                    "started up (those of you using long 'beep' samples "
                    "in Preferences will want to select this option.\n\n\n"
                    "\n\n\n\n\n\nREMAP:\n\n"
                    "It is possible to map the EMPLANT's hardware at the "
                    "same memory location as a real MAC's hardware, increasing "
                    "emulation compatibility.  This option may conflict with "
                    "some Zorro III memory boards.\n\n\n"
                    "\n\n\n\n\nFASTROM:\n\n"
                    "The Amiga's Kickstart ROM can be mapped into FAST memory, "
                    "which will result in an overall performance boost to the "
                    "Amiga and EMPLANT's MAC emulation.  This option is highly "
                    "recommended!\n\n\n\n\n"
                    "\n\n\nNOCOPYBACK:\n\n"
                    "Although we know of no programs to date that require this "
                    "option, it exists in case an application can not handle "
                    "the CopyBack mode of the 68040 processor.  It puts the "
                    "processor into 'write-through' mode.\n\n\n\n\n\n\n\n"
                    @askoptions-help)
                    (choices
                    "QUIET      - No screen flash on startup"
                    "REMAP      - Remaps EMPLANT hardware"
                    "FASTROM    - Remaps KickStart into FAST memory"
                    "NOCOPYBACK - Turns off CopyBack mode for 68040s"
                    )
                    (default 6)
               )
          )
          )

;else machine is softkicked
          (
          (set type "SoftKickMMU")
          (set icon_name "SoftLaunch_")
          (set flags
               (askoptions
                    (prompt "Setup Launch script options for:\n"
                    "SoftKick'd A3000")
                    (help "The following features are available with "
                    "the SoftLaunch_MAC script:\n\n"
                    "QUIET:\n\n"
                    "Turns off the screen flash when SoftLaunch_MAC is "
                    "started up (those of you using long 'beep' samples "
                    "in Preferences will want to select this option.\n\n\n"
                    "\n\n\n\n\n\nREMAP:\n\n"
                    "It is possible to map the EMPLANT's hardware at the "
                    "same memory location as a real MAC's hardware, increasing "
                    "emulation compatibility.  This option may conflict with "
                    "some Zorro III memory boards.\n\n\n\n\n\n\n"
                    @askoptions-help)
                    (choices
                    "QUIET      - No screen flash on startup"
                    "REMAP      - Remaps EMPLANT hardware"
                    )
                    (default 2)
                    )
               )
          )
          )

     (
     (set type "NoMMU")
     (set icon_name "EC_Launch_")

     (Message "\n\nA T T E N T I O N ! ! !\n\n\n\n"
     "Since your system will not be using an MMU, it is "
     "recommended that you use the 'QD' video drivers."
     "\n\n")
     )
)

(if  (= mode 0)
     (
     (set icon_name
     (cat icon_name "MAC")
     )
     )
)

(if  (= mode 1)
     (
     (set icon_name
     (cat icon_name "24")
     )
     )
)

(set filename
(tackon filename icon_name)
)

(complete 99)

(set iconify
     (askchoice
          (prompt "Select Startup Option:\n")
          (help "\n\n\nWhen the " icon_name " script file is executed, "
          "the emulation will startup and normally stay at the Emulation "
          "Setup Screen.\n\n"
          "It is possible to skip the setup screen and immediately run "
          "the emulation, and even iconify it at the same time.\n\n\n\n"
          @askchoice-help)
               (choices "Skip Emulation Setup"
               "Skip Emulation Setup & Iconify"
               "Don't Skip Emulation Setup"
               (default 2)
               )
     )
)

;delete file if it once existed.

(delete filename)

(textfile
(dest filename)
(if  (= type "HardKickMMU")
     (append "\n"
     "IF EXISTS " type "\n\n"
     "c:echo " quote "Setting up MMU mirroring system for ROM based machines...." quote "\n\n"
     ";Attention!!  HardKickMMU has 5 different options:\n\n"
     "; -f    Turns on the FASTROM option (remaps KickStart into FAST memory).\n"
     "; -w    Turns off CopyBack mode (turns on write-through, 68040 owners only).\n"
     "; -h    Remaps the EMPLANT hardware to appear at the same memory location\n"
     ";       that the MAC's hardware appears.\n"
     "; -t    Maps 4K pages with MMU for video display refreshing, does not\n"
     ";       mirror memory.  WILL NOT WORK IN 24 BIT MODE!!\n"
     "; -q    Supress screen flash, also known as DisplayBeep().\n\n"
     ";       You can use either upper or lower case letters (ie. -f or -F).\n"
     ";       Options may be in any order.\n\n"
     "HardKickMMU "
     )
     )

(if  (= type "SoftKickMMU")
     (append "\n"
     "IF EXISTS " type "\n\n"
     "c:echo " quote "Setting up MMU mirroring system for SuperKickstart machines...." quote "\n\n"
     ";Attention!!  SoftKickMMU has 2 different options:\n\n"
     "; -h    Remaps the EMPLANT hardware to appear at the same memory location\n"
     ";       that the MAC's hardware appears.\n"
     "; -q    Supress screen flash, also known as DisplayBeep().\n\n"
     ";       You can use either upper or lower case letters (ie. -h or -H).\n"
     ";       Options may be in any order.\n\n"
     "SoftKickMMU "
     )
     )

     (if  (IN flags 0)
     (append "-q ")
     )

     (if  (IN flags 1)
     (append "-h ")
     )

     (if  (IN flags 2)
     (append "-f ")
     )

     (if  (IN flags 3)
     (append "-w ")
     )

     (if  (< machine 4)
          (if  (= mode 0)
          (append "-t ")
          )
     )

     (append "\n\n"
     "c:echo " quote " " quote "\n"
     "c:echo " quote "Running emulation configuration menu...." quote "\n\n"
     "RUN >NIL: <NIL: MACII "
     )

     (if  (= iconify 0)
     (append "-s ")
     )

     (if  (= iconify 1)
     (append "-i ")
     )
     (append "\n\n")
)

(copyfiles
     (source launcher_dir)
     (dest EMU_dir)
     (pattern "Launcher.info")
)

(set oldname
(tackon EMU_dir "launcher.info")
)

(set filename
(cat filename ".info")
)

(rename oldname filename)

(complete 100)

(message "\n\n\n\n"
"A T T E N T I O N ! ! !\n\n"
"You must turn off the power to your Amiga before attempting "
"to run the emulation.  Simply rebooting will NOT work, you "
"MUST physically turn off of the Amiga with its power switch. "
"No exceptions."
)          

(exit)