requestfile >env:fromfile TITLE "Select .LHA archive" PATTERN #?.lha NOICONS

if NOT EXISTS $fromfile
	quit
endif

requestfile >env:todir : TITLE "Select a directory" DRAWERSONLY NOICONS

if NOT EXISTS $todir
	quit
endif	

echo "Extracting .LHA archive."

lha x $fromfile $todir

cd $todir

wb0:c/RequestChoice >env:bool TITLE Configuration BODY "Do you run on a Blizzard ?" YES|NO
if $bool eq 1 VAL
	copy >nil: Blizzard.kma to Suffering
ELSE
	delete Blizzard.kma
endif

avail >nil: flush
avail >nil: flush
avail >nil: flush
avail >nil: flush

assign sos: $todir

echo "All files placed in dir " NOLINE
echo $todir

delete >nil: env:fromfile
delete >nil: env:todir

failat 100000000
loader >nil:

if WARN
	echo "Not enough memory"
	echo "Reboot and assign sos: to the demo directory"
endif

wait 5