.key target          ;  Another gnarly AmigaDOS script by Arnie Cachelin
.def target RAM:
FAILAT 40
PATH ram: add
COPY c:COPY ram:
COPY c:ECHO ram:
COPY c:ASSIGN ram:
COPY c:IF ram:
COPY c:SKIP ram:
COPY c:LAB ram:
COPY c:ELSE ram:
COPY c:ENDIF ram:
COPY c:DELETE ram:
COPY c:ASK ram:
IF FAIL
    ECHO "   ERROR:  Command Missing! "
    ECHO "Sorry, Can't find ASK on your boot disk, find a standard Workbench 1.3"
    ECHO "disk and 'COPY c/ask TO C:' for this script to work."
    SKIP OuttaThere
ENDIF

ECHO "ANTIC'S Vintage Aircraft Design Disk"
ECHO "     decompression script."
ECHO ""
ECHO "This script will decompress some of the Vintage Aircraft objects, as well"
ECHO "as the full instructions.  Since there are more than two disks worth of"
ECHO "objects compressed here, we have provided three scripts to install the"
ECHO "objects onto (different) floppies.  This one will install the Guns, "
ECHO "Insignia, Junkers and AirCo (DH5) object directories."
ECHO ""
ECHO "If you have two disk drives or a hard disk, start this script by clicking "
ECHO "once on its icon, holding the shift key down, and double-clicking on the "
ECHO "disk or drawer where you want your files to go!           "
ECHO "Otherwise the script will put the Aircraft objects in RAM:, and then ask you"
ECHO "to insert a destination disk.  This is handy for 1 disk drive Amigas."
ECHO ""
ECHO "Your Vintage Aircraft disk should be named VintageAircraft"
ECHO "The destination is <target>."
ECHO ""
ASK "Do you want to continue ? (Click here and type Y or N) (N to exit)"
IF NOT WARN
    SKIP OuttaThere
ENDIF
ECHO "Beginning decompression to volume <target>, please be patient."
ASSIGN AqqIRCR: "<target>"
ASSIGN AqqC: VintageAircraft:
ECHO "Filling Disk One:"
ECHO "  Miscellaneous files first..."
Aqqc:LHARC -x -r -m x AqqC:VintageAir.lzh AqqIRCR: readme* more GUNS/* INSIGNIA/*
ECHO ""
ECHO "  now some planes..."
Aqqc:LHARC -x -r -m x AqqC:VintageAir.lzh AqqIRCR: Junkers/* AirCo/*
IF "<target>" EQ "RAM:"
   ECHO "Ready to copy the Aircraft from RAM: to a floppy."
   ASK "Please insert a BLANK disk in DF0: (Y to continue, N to abort)"
   IF NOT WARN
    SKIP OuttaThere
   ENDIF
   COPY RAM:Readme#? df0:
   COPY RAM:more df0:
   COPY RAM:Guns df0:Guns All
   COPY RAM:Insignia df0:Insignia All
   COPY RAM:Junkers df0:Junkers All
   COPY RAM:AirCo df0:AirCo All
ENDIF

LAB OuttaThere
ECHO "   Exiting Decompress script."
ASSIGN AqqIRCR:                           ; clear old assigns
ASSIGN AqqC:
DELETE >nil: ram:Guns all
DELETE >nil: ram:Junkers all
DELETE >nil: ram:Insignia all
DELETE >nil: ram:AirCo all
DELETE >nil: ram:ASSIGN
DELETE >nil: ram:ASK
DELETE >nil: ram:ECHO
DELETE >nil: ram:ELSE
DELETE >nil: ram:IF
DELETE >nil: ram:SKIP
DELETE >nil: ram:LAB
DELETE >nil: ram:ENDIF
DELETE >nil: ram:COPY
DELETE >nil: ram:DELETE