.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.  (part 2)"
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 Bomber"
ECHO "and Spad 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
ECHO ""
ECHO "  now some planes..."
Aqqc:LHARC -x -r -m x AqqC:VintageAir.lzh AqqIRCR: Bomber/* Spad/*
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:Spad df0:Spad All
   COPY RAM:Bomber df0:Bomber All
ENDIF

LAB OuttaThere
ECHO "   Exiting Decompress script."
ASSIGN AqqIRCR:                           ; clear old assigns
ASSIGN AqqC:
DELETE >nil: ram:Bomber all
DELETE >nil: ram:Spad 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