failat 21

if not exists XEN-Icons
  echo "*n Please change current directory to that of MagicWB *n or start the installation from the Workbench!*n"
  quit
endif

echo "*n*e[1;32m _________________________________________________________________________"
echo " *e[43m                                                                         *e[0m"
echo " *e[0;32;43m              Welcome to the INSTALLATION of MagicWB v1.0*e[1m                *e[0m"
echo " *e[1;4;43m                                                                         *e[0m"
echo "*n*n This Installation will automatically install *e[32mMagicWB*e[0m to your SYS:"
echo " directory. Don't be afraid; the only things that will be replaced"
echo " (overwritten) by this installation are the old (and ugly-looking) Icons"
echo " from Commodore. These old Icons will be replaced by far better-looking"
echo " Icons (called XEN-Icons) from this *e[32mMagicWB*e[0m-Package. For this is the whole"
echo " philosophy behind this package, it is quite natural that the old Icons"
echo " MUST be replaced (beside this, you do have the old Icons by Commodore on"
echo " your original Installation Disks. Therefore you won't lose anything!"
echo " If you don't like the XEN-Icons - what I really cannot believe - then you"
echo " can still replace them by the old ones).*n"
echo " Second, this installation will install TWO new FONTS in your Fonts-Drawer"
echo " called 'XEN' and 'XHelvetica'.*n"
echo " Third, your font.prefs in the ENVARC:SYS directory will be changed to use"
echo " the two new installed fonts (you can of course reconfigure these settings"
echo " to fit your own personal taste; NOTHING important will be deleted).*n"
echo noline "   [Return]"
set > nil: Return ?
echo "*e[1;1H*e[J"
echo "*n Fourth, your palette.ilbm will be changed to fit the XEN-Icons: You will"
echo " need at least 8 colors. This new palette will NOT change the standard"
echo " colors that you are probably using at the moment. These first four"
echo " standard colors are Gray, Black, White and Blue. So, you will have the"
echo " same standard-looking Workbench with its original colors (again, nothing"
echo " will get lost)."
echo "*n IMPORTANT: The only thing you have to do is to change SCREENMODE-PREFS to"
echo " a proportional resolution with 8 COLORS (e.g. HiRes-Interlaced 8 Colors)"
echo " after this installation is finished!*n"
echo " Finally, ONE Background-Pattern will be installed in the SYS:Prefs/Patterns"
echo " directory (will be created). By default this pattern is the 'Marble_CLASSIC'"
echo " pattern. After this installation you can manually copy all patterns or just"
echo " your desired ones to this directory and configure them via the"
echo " WBPattern-Prefs (only 3.x users) or the program 'NickPrefs' (for 2.x users;"
echo " to be found in the 'MagicWB/Patterns/NickPrefs' drawer of this package).*n"
echo " That's all! You can now proceed with this installation and in a few minutes"
echo " you will be the lucky user of *e[32mMagicWB*e[0m! This installation will be"
echo " interactive, which means that you will be asked certain questions where"
echo " you can influence this installation.*n"
echo noline " Start the installation? "

set > nil: InpVar ?

if $InpVar eq "ja"
  skip Start
endif

if $InpVar eq "j"
  skip Start
endif

if $InpVar eq "y"
  skip Start
endif

if $InpVar eq "yes"
  skip Start
endif

echo "*n*e[32m Installation aborted! I hope I see you again..."
quit


lab Start

echo "*e[1;1H*e[J"
echo " Installation in progress...*n"



echo noline " Installing XEN-Icons to SYS:System..."
list > ram:MWB SYS:System/#?.info lformat "copy > NIL: XEN-Icons/System/%s SYS:System"
failat 21
execute > NIL: ram:MWB
if exists SYS:System/DiskCopy.info
  delete SYS:System/DiskCopy.info  ; Icon was redundant, without function!
endif
if exists SYS:System/CLI.info
  delete SYS:System/CLI.info  ; Icon was redundant.
endif
echo ".............*e[33mDONE*e[0m"


echo noline " Installing XEN-Icons to SYS:Utilities..."
list > ram:MWB SYS:Utilities/#?.info lformat "copy > NIL: XEN-Icons/Utilities/%s SYS:Utilities"
failat 21
execute > NIL: ram:MWB
echo "..........*e[33mDONE*e[0m"


echo noline " Installing XEN-Icons to SYS:Tools..."
list > ram:MWB SYS:Tools/#?.info lformat "copy > NIL: XEN-Icons/Tools/%s SYS:Tools"
failat 21
execute > NIL: ram:MWB
echo "..............*e[33mDONE*e[0m"


echo noline " Installing XEN-Icons to SYS:Tools/Commodities..."
list > ram:MWB SYS:Tools/Commodities/#?.info lformat "copy > NIL: XEN-Icons/Tools/Commodities/%s SYS:Tools/Commodities"
failat 21
execute > NIL: ram:MWB
echo "..*e[33mDONE*e[0m"


if exists SYS:Devs/DataTypes
echo noline " Installing XEN-Icons to SYS:Devs/DataTypes..."
list > ram:MWB SYS:Devs/DataTypes/#?.info lformat "copy > NIL: XEN-Icons/Devs/DataTypes/def_DataType.info %s%s"
failat 21
execute > NIL: ram:MWB
copy > NIL: XEN-Icons/Devs/DataTypes.info SYS:Devs
echo ".....*e[33mDONE*e[0m"
endif


echo noline " Installing XEN-Icons to SYS:Devs/DOSDrivers..."
list > ram:MWB SYS:Devs/DOSDrivers/#[a-z].info lformat "copy > NIL: XEN-Icons/Devs/DOSDrivers/def_DOSDriver.info %s%s"
failat 21
execute > NIL: ram:MWB
list > ram:MWB SYS:Devs/DOSDrivers/#?0.info lformat "copy > NIL: XEN-Icons/Devs/DOSDrivers/def_DOSDriver0.info %s%s"
execute > NIL: ram:MWB
list > ram:MWB SYS:Devs/DOSDrivers/#?1.info lformat "copy > NIL: XEN-Icons/Devs/DOSDrivers/def_DOSDriver1.info %s%s"
execute > NIL: ram:MWB
list > ram:MWB SYS:Devs/DOSDrivers/#?2.info lformat "copy > NIL: XEN-Icons/Devs/DOSDrivers/def_DOSDriver2.info %s%s"
execute > NIL: ram:MWB
list > ram:MWB SYS:Devs/DOSDrivers/#?3.info lformat "copy > NIL: XEN-Icons/Devs/DOSDrivers/def_DOSDriver3.info %s%s"
execute > NIL: ram:MWB
list > ram:MWB SYS:Devs/DOSDrivers/#?4.info lformat "copy > NIL: XEN-Icons/Devs/DOSDrivers/def_DOSDriver4.info %s%s"
execute > NIL: ram:MWB
list > ram:MWB SYS:Devs/DOSDrivers/#?5.info lformat "copy > NIL: XEN-Icons/Devs/DOSDrivers/def_DOSDriver5.info %s%s"
execute > NIL: ram:MWB
copy > NIL: XEN-Icons/Devs/DOSDrivers.info SYS:Devs
echo "....*e[33mDONE*e[0m"


echo noline " Installing XEN-Icons to SYS:Devs/Keymaps..."
list > ram:MWB SYS:Devs/Keymaps/#?.info lformat "copy > NIL: XEN-Icons/Devs/Keymaps/def_Keymap.info %s%s"
failat 21
execute > NIL: ram:MWB
copy > NIL: XEN-Icons/Devs/Keymaps.info SYS:Devs
echo ".......*e[33mDONE*e[0m"


echo noline " Installing XEN-Icons to SYS:Devs/Monitors..."
list > ram:MWB SYS:Devs/Monitors/#?.info lformat "copy > NIL: XEN-Icons/Devs/Monitors/def_Monitor.info %s%s"
failat 21
execute > NIL: ram:MWB
copy > NIL: XEN-Icons/Devs/Monitors.info SYS:Devs
echo "......*e[33mDONE*e[0m"


echo noline " Installing XEN-Icons to SYS:Devs/Printers..."
list > ram:MWB SYS:Devs/Printers/#?.info lformat "copy > NIL: XEN-Icons/Devs/Printers/def_Printer.info %s%s"
failat 21
execute > NIL: ram:MWB
copy > NIL: XEN-Icons/Devs/Printers.info SYS:Devs
echo "......*e[33mDONE*e[0m"


echo noline " Installing XEN-Icons to SYS:Prefs..."
list > ram:MWB SYS:Prefs/#?.info lformat "copy > NIL: XEN-Icons/Prefs/%s SYS:Prefs"
failat 21
execute > NIL: ram:MWB
copy > NIL: XEN-Icons/Prefs/env-archive/sys/def_Drawer.info TO SYS:Prefs/Presets.info
echo "..............*e[33mDONE*e[0m"


echo noline " Installing XEN-DEFAULT-Icons to ENVARC:..."
copy > NIL: XEN-Icons/Prefs/Env-Archive/Sys/~(Palette3.0|WBPattern.prefs) ENVARC:Sys all
echo "........*e[33mDONE*e[0m"


echo noline " Updating Drawer-Icons in SYS:..."
list > ram:MWB SYS: dirs lformat "if exists SYS:%n.info *ncopy > NIL: XEN-Icons/Prefs/Env-Archive/Sys/def_Drawer.info TO SYS:%n.info *nendif*n"
execute > NIL: ram:MWB
delete > NIL: ram:MWB
echo "..................*e[33mDONE*e[0m"


version > NIL: exec.library 39
if warn
  skip Continue
endif
echo "*n Kickstart 3.x detected:"
echo noline " Installing Palette.prefs and WBPattern.prefs for Kickstart 3.x..."
delete > NIL: envarc:sys/sysfont.prefs ; file redundant for 3.x
delete > NIL: envarc:sys/wbfont.prefs  ; file redundant for 3.x
copy > NIL: XEN-Icons/Prefs/Env-Archive/Sys/Palette3.0 ENVARC:Sys/Palette.prefs
copy > NIL: XEN-Icons/Prefs/Env-Archive/Sys/WBPattern.prefs ENVARC:Sys
echo "..*e[33mDONE*e[0m*n"


lab Continue

echo " Installing XEN-SPECIAL-Icons:"
echo noline "     Installing Preset-Default-Icon to SYS:Prefs/Presets..."
copy > NIL: XEN-Icons/SPECIAL/Preset.info SYS:Prefs/Presets
echo ".........*e[33mDONE*e[0m"


echo noline "     Installing RAM-Icon to S:RAM.info......"
copy > NIL: XEN-Icons/SPECIAL/RAM.info SYS:S
if exists SYS:S/User-Startup
  search > NIL: SYS:S/User-Startup SYS:S/RAM.info
  if warn
    join XEN-Icons/SPECIAL/RAM-Script SYS:S/User-Startup TO RAM:User-Startup
    copy RAM:User-Startup SYS:S
    delete > NIL: RAM:User-Startup
  endif
else
  copy > NIL: XEN-Icons/SPECIAL/RAM-Script TO SYS:S/User-Startup
endif
echo "........................*e[33mDONE*e[0m"


if exists SYS:Disk.info
  echo noline "*n Installing HardDisk-Icon to SYS:..."
  copy > NIL: XEN-Icons/SPECIAL/HD.info SYS:Disk.info
  echo "................................*e[33mDONE*e[0m*n"
else
  lab Path
  echo noline "*n Please enter the PATH where the HardDisk-Icon should*n be installed (i.e. 'DH0:'): "
  set > NIL: Path ?
  if > NIL: not exists $Path
    echo " Wrong path, path does not exist! Try again...*n"
    skip back path
  endif
  echo noline " Installing HardDisk-Icon to $Path..."
  copy > NIL: XEN-Icons/SPECIAL/HD.info TO RAM:T/Disk.info
  copy > NIL: RAM:T/Disk.info TO $Path
  delete > NIL: RAM:T/Disk.info
  echo "..*e[33mDONE*e[0m*n"
endif


lab HardDisk

echo noline " Do you want to have the HardDisk-Icon installed to other partitions? "
set > nil: HardDisk ?
echo "*e[1;1H*e[J"
if $HardDisk eq "ja"
  skip InstallHardDisk
endif
if $HardDisk eq "j"
  skip InstallHardDisk
endif
if $HardDisk eq "y"
  skip InstallHardDisk
endif
if $HardDisk eq "yes"
  skip InstallHardDisk
endif
skip Continue

lab InstallHardDisk
echo noline "*N Please enter the DEVICE NAME of your desired partition (i.e. 'DH0:'): "
set > nil: Device [Return]
set > nil: Device ?
if not exists $Device
  echo " Wrong device, $Device does not exist! Try again..."
  skip back InstallHardDisk
endif
echo noline "*n Installing HardDisk-Icon to $Device..."
copy > NIL: XEN-Icons/SPECIAL/HD.info TO RAM:T/Disk.info
copy > NIL: RAM:T/Disk.info TO $Device
delete > NIL: RAM:T/Disk.info
echo "..*e[33mDONE*e[0m*n"
skip back HardDisk


lab Continue
echo "*e[1;1H*e[J"
echo noline "*n IMPORTANT: Do you have a SYQUEST (removable cartridge disk drive)? "
set > nil: Syquest ?
if $Syquest eq "ja"
  skip InstallSyquest
endif
if $Syquest eq "j"
  skip InstallSyquest
endif
if $Syquest eq "y"
  skip InstallSyquest
endif
if $Syquest eq "yes"
  skip InstallSyquest
endif
skip Continue

lab InstallSyquest
echo noline "*n Please enter the DEVICE NAME of your Syquest (for example 'DH1:'): "
set > NIL: Dev [Return]
set > NIL: Dev ?
if not exists $Dev
  echo " Wrong device, $Dev does not exist! Try again..."
  skip back InstallSyquest
endif
echo noline "*n Installing Syquest-Icon to $Dev..."
copy > NIL: XEN-Icons/SPECIAL/Syquest.info TO RAM:T/Disk.info
copy > NIL: RAM:T/Disk.info TO $Dev
delete > NIL: RAM:T/Disk.info
echo "...*e[33mDONE*e[0m"
wait 6

lab Continue

echo "*e[1;1H*e[J"
echo "*n Now, you are going to decide which Icon you want to have installed for your"
echo " Preferences-Drawer. As this is probably one of the most important drawers,"
echo " it will get its own special Icon. You have the choice between TWO different"
echo " Prefs-Icons: A small one (whose size is more compatible with the original"
echo " Prefs-Icon by Commodore, or a very big one (having more details, of course)."
echo " If you are not sure, I suggest you take the SMALL one. The BIG one is more"
echo " convenient for resolutions of 800x600 or higher. It's up to you:"
lab Retry
echo noline "*n Which Prefs-Drawer-Icon should be installed (enter BIG or SMALL)? "
set > NIL: Prefs ?
if $Prefs eq "SMALL"
  Echo noline "*n Installing SMALL Prefs-Icon..."
  copy > NIL: XEN-Icons/SPECIAL/Prefs.info TO SYS:
  echo "..*e[33mDONE*e[0m"
else
  if $Prefs eq "BIG"
    Echo noline "*n Installing BIG Prefs-Icon..."
    copy > NIL: XEN-Icons/SPECIAL/Prefs2.info TO SYS:Prefs.info
    echo "..*e[33mDONE*e[0m"
  else
    echo " You MUST enter either *"SMALL*" or *"BIG*"! Try again..."
    skip back Retry
  endif
endif


if exists SYS:Tools/HDBackup.info
  echo " Program 'HDBackup' detected:"
  echo noline " Installing XEN-Icon for 'HDBackup' in SYS:Tools..."
  copy > NIL: XEN-Icons/SPECIAL/HDBackup.info TO SYS:Tools
  echo "..*e[33mDONE*e[0m"
endif

wait 4

echo "*e[1;1H*e[J"
echo noline "*n Installing fonts 'XEN' and 'XHelvetica' to FONTS:..."
copy > NIL: Fonts/#? TO FONTS: all
echo "..*e[33mDONE*e[0m"


echo noline "*N*n*n Installing PATTERN 'Marble_CLASSIC' to SYS:Prefs/Patterns*n (drawer will be created)..."
set PattPath SYS:Prefs/Patterns
if not exists $PattPath
  makedir $PattPath
endif
version >NIL: exec.library 39
if warn
  copy > NIL: Patterns/Patterns2.0/Marble_CLASSIC TO $PattPath
else
  copy > NIL: Patterns/Marble_CLASSIC TO $PattPath
endif
echo "..*e[33mDONE*e[0m"


Echo "*n*N*n*n*n The installation is now successfully finished."
echo "*n*n     [Return]"
set > nil: Return ?

echo "*e[1;1H*e[J"
echo "*n Finally some important information:*n"
echo "*n There are some things you immediately have to do after this installation"
echo " is finished."
echo "*n- You have to change the SCREENMODE-Preferences to a proportional resolution"
echo "  with at least 8 COLORS! Proportional resolutions are for example: 640x480,"
echo "  640x512, 800x600, 1024x768, 1280x1024 etc. But NOT a resolution like"
echo "  640x256 (=MedRes Pal) or similar resolutions where the horizontal pixels"
echo "  are nearly twice as much than the vertical amount of pixels. With these"
echo "  'unproportional' resolutions the Icons and Fonts are being distorted. So,"
echo "  you have to use a proportional resolution to enjoy *e[32mMagicWB*e[0m as the author"
echo "  has planned it to be!"
echo "  And you MUST select at least an 8 COLOR Workbench!"
echo "*n  Comment: I have decided NOT to manipulate the screenmode.prefs as AGA has"
echo "  come up with a huge diversity of screenmodes, many of whom won't display"
echo "  properly on VGA-MultiSync-Monitors. As this package should also run under"
echo "  ECS and OCS it is nearly impossible to find a common screenmode which will"
echo "  satisfy everybody. So I leave it to the user to select the screenmode."
echo "*n*n     [Return]"
set > nil: Return ?
echo "*e[3F*n- Second, you can find the probably most wanted Pattern 'Marble_CLASSIC'"
echo "  in the $PattPath directory. This is the only pattern that has"
echo "  been installed to save diskspace. There are plenty of other patterns in"
echo "  the MagicWB/Patterns directory (altogether 40 patterns!) that you can copy"
echo "  to $PattPath if required.*n"
echo "  If you are user of the OS2.0 or OS2.1 you will have to install the program"
echo "  NickPrefs to use the Patterns of *e[32mMagicWB*e[0m. Please consult the documentation."
echo "*n- Programmers should take a look into the MagicWB/XEN-Icons/SPECIAL drawer!"
echo "  Here you can find Icons for your programs that have logically not been"
echo "  installed with this installation: AmigaGuide.info & ReadMe.info."
echo "*n*n     [Return]"
set > nil: Return ?
echo "*e[1;1H*e[J"
echo "*n*N*n Thank you for supporting the author of *e[32mMagicWB*e[0m by your registration, making"
echo " future versions of *e[32mMagicWB*e[0m possible. Always remember:"
echo "*n*n*e[1;32m          ______________________________________________________"
echo "                                                                 "
echo "            A PRODUCT WORTH USING IS ALSO WORTH BEING SUPPORTED  "
echo "           *e[1;31m_____________________________________________________ "
echo "*n*N                   MagicWB © 1993 by Martin Huttenloher"
echo "*n                        - Released as SHAREWARE -"
echo "*n*n*n*n     [Return]"
set > nil: Return ?
echo "*e[1;1H*e[J"
echo "*n*n*n Now have much fun with *e[32mMagicWB*e[0m!*n*n To enjoy MagicWB immediately you have to reset your AMIGA first,*n so that all configurations will be set properly!*n*n Bye, bye...*n*N"
echo "*n*n     [Return]"
set > nil: Return ?
quit