Echo ""
Echo "                        Harrys Balloons AGA Installer"
Echo ""
Echo "                           Written by C.Hook / OTT"

C:RequestFile >ENV:Path TITLE "Please Select Install Path..." NOICONS DRAWERSONLY SYS:

If WARN
Skip ABORT
EndIf

CD $Path

C:RequestChoice >ENV:Choice TITLE "Harrys Balloons AGA Installer" BODY "Should I create a drawer first or should I dump it all here ?" GADGETS "A drawer would be nice|Here will do fine"

If $Choice EQ 1
MakeDir "Harrys Balloons"
CD "Harrys Balloons"
EndIf

Echo ""
Echo "Installation in progress, Hang on a minute..."

C:DiskChange "HarrysBalloons:"
C:Copy >NIL: "HarrysBalloons:" "" ALL

C:Delete >NIL: "Install To Hard Drive"
C:Delete >NIL: "Install To Hard Drive.info"
C:Delete >NIL: S/ ALL
C:Delete >NIL: Devs/ ALL
C:Delete >NIL: "Hard Drive Stuff !!!" ALL
C:Delete >NIL: Disk.info
C:Delete >NIL: Graphics.info
C:Delete >NIL: Sonix.info
C:Delete >NIL: HellFire2.exe

C:RequestChoice >ENV:Choice TITLE "Harrys Balloons AGA Installer" BODY "Will you be playing Harrys Balloons AGA on a 2 Meg machine ?" GADGETS "Yes|No"

If $Choice EQ 1
C:Copy >NIL: "HarrysBalloons:Hard Drive Stuff !!!/2Meg" ""
C:Rename >NIL: 2Meg "Harrys Balloons - AGA"
C:Copy >NIL: "HarrysBalloons:Hard Drive Stuff !!!/Harrys Balloons - AGA.info" ""
C:Copy >NIL: "HarrysBalloons:Hard Drive Stuff !!!/MemRun" SYS:C
Else
C:Copy >NIL: "HarrysBalloons:Hard Drive Stuff !!!/Normal" ""
C:Rename >NIL: Normal "Harrys Balloons - AGA"
C:Copy >NIL: "HarrysBalloons:Hard Drive Stuff !!!/Harrys Balloons - AGA.info" ""
EndIf

C:Wait 2

C:RequestChoice >ENV:Choice TITLE "Harrys Balloons AGA Installer" BODY "Installation Complete" GADGETS "Okey Dokey!"
Skip END

Lab ABORT
C:RequestChoice >ENV:Choice TITLE "Harrys Balloons AGA Installer" BODY "Installation Aborted" GADGETS "Ooops!"

Lab END