EAB WHDLOAD Packs Install. LHA Autoextract

[antiriad76]

Since everything is compressed with LHA is there an easy way to extract all lha files recursively or is there a way to do this automatically from iGame or any other front end for example

[Aardvark]

Script like this works:

echo ""
echo "Current Directory must be parent folder of WHDLoad LHA packs"
echo ""
echo "Enter destination path for extractions (e.g. DH1:Games/)"
echo "'/' at the end must be included."
echo noline ": "
set >NIL dest ?
echo "Extracting to""$dest"

set destsub "$dest"0/
cd 0
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_Ext0
cd /
set destsub "$dest"A/
cd A
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtA
cd /
set destsub "$dest"B/
cd B
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtB
cd /
set destsub "$dest"C/
cd C
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtC
cd /
set destsub "$dest"D/
cd D
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtD
cd /
set destsub "$dest"E/
cd E
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtE
cd /
set destsub "$dest"F/
cd F
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtF
cd /
set destsub "$dest"G/
cd G
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtG
cd /
set destsub "$dest"H/
cd H
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtH
cd /
set destsub "$dest"I/
cd I
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtI
cd /
set destsub "$dest"J/
cd J
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtJ
cd /
set destsub "$dest"K/
cd K
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtK
cd /
set destsub "$dest"L/
cd L
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtL
cd /
set destsub "$dest"M/
cd M
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtM
cd /
set destsub "$dest"N/
cd N
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtN
cd /
set destsub "$dest"O/
cd O
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtO
cd /
set destsub "$dest"P/
cd P
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtP
cd /
set destsub "$dest"Q/
cd Q
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtQ
cd /
set destsub "$dest"R/
cd R
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtR
cd /
set destsub "$dest"S/
cd S
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtS
cd /
set destsub "$dest"T/
cd T
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtT
cd /
set destsub "$dest"U/
cd U
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtU
cd /
set destsub "$dest"V/
cd V
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtV
cd /
set destsub "$dest"W/
cd W
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtW
cd /
set destsub "$dest"X/
cd X
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtX
cd /
set destsub "$dest"Y/
cd Y
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtY
cd /
set destsub "$dest"Z/
cd Z
list #?.lha lformat="lha  x %f%n $destsub" >ram:AGS_ExtZ

execute ram:AGS_Ext0
delete ram:AGS_Ext0
execute ram:AGS_ExtA
delete ram:AGS_ExtA
execute ram:AGS_ExtB
delete ram:AGS_ExtB
execute ram:AGS_ExtC
delete ram:AGS_ExtC
execute ram:AGS_ExtD
delete ram:AGS_ExtD
execute ram:AGS_ExtE
delete ram:AGS_ExtE
execute ram:AGS_ExtF
delete ram:AGS_ExtF
execute ram:AGS_ExtG
delete ram:AGS_ExtG
execute ram:AGS_ExtH
delete ram:AGS_ExtH
execute ram:AGS_ExtI
delete ram:AGS_ExtI
execute ram:AGS_ExtJ
delete ram:AGS_ExtJ
execute ram:AGS_ExtK
delete ram:AGS_ExtK
execute ram:AGS_ExtL
delete ram:AGS_ExtL
execute ram:AGS_ExtM
delete ram:AGS_ExtM
execute ram:AGS_ExtN
delete ram:AGS_ExtN
execute ram:AGS_ExtO
delete ram:AGS_ExtO
execute ram:AGS_ExtP
delete ram:AGS_ExtP
execute ram:AGS_ExtQ
delete ram:AGS_ExtQ
execute ram:AGS_ExtR
delete ram:AGS_ExtR
execute ram:AGS_ExtS
delete ram:AGS_ExtS
execute ram:AGS_ExtT
delete ram:AGS_ExtT
execute ram:AGS_ExtU
delete ram:AGS_ExtU
execute ram:AGS_ExtV
delete ram:AGS_ExtV
execute ram:AGS_ExtW
delete ram:AGS_ExtW
execute ram:AGS_ExtX
delete ram:AGS_ExtX
execute ram:AGS_ExtY
delete ram:AGS_ExtY
execute ram:AGS_ExtZ
delete ram:AGS_ExtZ

[antiriad76]

Thanks. I had some level of success by manually modifying the code.

When I try to run from CLI with "execute" I get the following error:

: Unknown command 
failed returncode 10

Last command failed because: Object not found

I know it is not a script issue but something that has to do with workbench
I am using Amikit with 3.2.1 Kickstart.