;COPY-FILES.script v2.0 - by Jaybee.  Thanks to Hippy2000 and Frunk Bunton for help.

failat 21

;First check that the Workbench ADF is up to scratch

LAB START

c:cls
IF "`df0:c/which DF0:`" EQ "Workbench3.1:"
   ECHO "Disk appears to be Workbench 3.1 release."
   ECHO ""
   ECHO "Checking version number..." NOLINE
   df0:c/wait 1
   df0:c/VERSION >nil: DF0:libs/version.library 40 FILE
      IF WARN
         ECHO "INCORRECT!"
         SKIP FAIL
      ELSE
         ECHO "CORRECT!"
         SKIP PASS        ;Disk is labelled "Workbench3.1", and has the correct version.library
      ENDIF   
   ECHO ""
ENDIF

IF "`df0:c/which DF0:`" EQ "Workbench3.0:"
   ECHO "Disk appears to be Workbench 3.0 release."
   ECHO ""
   ECHO "Checking version number..." NOLINE
   df0:c/wait 1
   df0:c/VERSION >nil: DF0:libs/version.library 39 FILE
      IF WARN
         ECHO "INCORRECT!"
         SKIP FAIL
      ELSE
         ECHO "CORRECT!"
         SKIP PASS        ;Disk is labelled "Workbench3.0", and has the correct version.library
      ENDIF
   ECHO ""
ENDIF

LAB FAIL

ECHO "This is not a valid Workbench 3.0/3.1 ADF, installation cannot continue."
ECHO ""
c:uaectrl <s:AIAB-Setup/eject-df0 >nil:
ASK "Press return to try again."
SKIP START BACK

LAB PASS
ECHO "Valid Workbench disk found!"
df0:c/wait 4

c:cls

;copy entire Workbench ADF onto harddrive, and log - just in case!
c:echo "Copying copyrighted system files from Workbench ADF - Please wait...."
c:copy df0:#? SYS: ALL DONTOVR >S:AIAB-Setup/Copy-files.log

;clean-up ugly old-style icons and eject disk in DF0:
c:delete SYS:Expansion.info SYS:Expansion SYS:Prefs/presets.info sys:devs/dosdrivers.info sys:devs/printers.info sys:devs/dosdrivers/pipe.info sys:devs/datatypes/anim sys:devs/datatypes/anim.info sys:devs/datatypes/CDXL sys:devs/datatypes/CDXL.info sys:devs/datatypes/FTXT sys:devs/datatypes/FTXT.info sys:devs/datatypes/8SVX sys:devs/datatypes/8SVX.info >nil:
C:echo ""
C:echo "All system files copied successfully - ejecting disk....." NOLINE
c:wait 3
c:uaectrl <s:AIAB-Setup/eject-df0 >nil:
c:echo "Done!"

c:cls

;Get user to select Picasso96 screenmode
c:echo "Now select & save a screenmode that closely matches your Windows desktop."
c:wait 6
c:echo "If you're at all confused, just select 'UAEgfx:800x600 15/16bit'."
c:wait 6
c:setpatch >nil:
c:env-handler >nil:
devs:monitors/uaegfx >nil:
sys:prefs/screenmode from ENVARC:sys/def_ScreenMode.prefs

;Ask user which keymap they'd prefer
c:execute >nil: s:AIAB-Setup/set-keymap.script

;Ask user which iconset they wish to use
c:execute >nil: s:AIAB-Setup/set-icons.script

;Ask user if they want to use FreeMouse
c:execute >nil: s:AIAB-Setup/set-FreeWheel.script

;Ask user which GUI style they wish to use
c:execute >nil: s:AIAB-Setup/set-guistyle.script

;Ask user which StartMenu they wish to use
c:execute >nil: s:AIAB-Setup/set-startmenu.script

;Ask user if they wish to mount CD0 through UAEscsi.device
c:execute >nil: s:AIAB-Setup/set-CD.script

;Extract the idiosyncratically spelt default MUI prefs file, working around UAE possible filesystem issues.
c:lzx x s:AIAB-Setup/mui-global-prefs.lzx ENVARC:mui/ >nil:

;Hmmm.....pray everything went okay, and reset Amiga!
c:cls
c:echo "AIAB installation complete!"
c:echo ""
ask "Press return to reboot."
c:reset