echo Setting up the directory for TSN
godir %1:%6 CantCreate
del *.so
del *.to
del *.p56
del *.v56
del *.snd
del resource.*
del *.drv
del *.dll
del *.exe
del hostaddr.tim
rem del *.bbs
godir %1:%6\SL CantSL
del *.so
del *.to
del *.p56
del *.v56
del *.snd
del *.pbm
del resource.*
del *.drv
del *.dll
del *.exe
del *.CFG
godir %1:%6\LL CantLL
del *.so
del *.to
del *.p56
del *.v56
del *.snd
del resource.*
del *.drv
del *.dll
del *.exe
del *.CFG
godir %1:%6\BARON CantBaron
del volume.*
del *.exe
godir %1:%6\YSERBIUS CantYserbius
godir %1:%6\YSERBIUS\SAVE CantYserbius
copy ..\mychars.dat /q
copy ..\automaps.dat /q
godir %1:%6\YSERBIUS CantYserbius
rem del *.*
godir %1:%6

rem   Is there space?
space %1: 8500 NoSpace
if errorlevel 1 goto NoSpace

echo Copying files...

copy  %2:READ.ME /q
echo Installing Re-Install
copy %2:INSTALL.EXE insttsn.exe
copy %2:BOOTDISK.EXE
rem copy %2:puff.exe
copy %2:INSTALL.BAT
copy %2:LSCIGET.EXE
copy %2:INSTALL.TXT
copy %2:DRIVERS.TXT
copy %2:INSTALL.HLP
copy %2:INSTTSN.TXT
copy %2:INSTTSN.HLP
copy %2:MODEM.TXT
copy %2:PHONE.TXT
copy %2:RBJOY.EXE
copy %2:ID.EXE /q

echo Installing TSN executive
copy %2:TSNEXEC.EXE
rem echo Decompressing executive
rem puff /D _SNEXEC.EXE
copy %2:TSN.PRG
copy %2:MODEM.DRV
copy %2:NOBRK.DRV
copy %2:TSN.ICO
copy %2:TSN.PIF
copy %2:PATCHPIF.EXE
patchpif %1 %6 > nul
copy %2:HOSTADDR
copy %2:tsnver
echo @echo off>TSN.BAT
echo tsnexec DEFAULT>>TSN.BAT

echo Installing SCI and Drivers
copy %2:LSCITV.EXE
rem echo Decompressing interpreter
rem puff /D _SCITV.EXE
copy %2:GAME.CFG
copy  %2:LAND.CFG
copy %2:LLSYSTEM.DAT
copy %2:TWEAKER.DRV
copy %2:MT32.DRV
copy %2:MT32.NL
copy %2:ADL.DRV
copy %2:SNDBLAST.DRV
copy %2:TANDYXL.DRV
copy %2:IBMKBD.DRV
copy %2:_LNULL.DLL
rem echo Decompressing null-dll
puff /D _LNULL.DLL
copy %2:VGA320.DRV /q
copy %2:_RAPH256.DLL /q
rem echo Decompressing graph256 dll
puff /D _RAPH256.DLL
copy %2:EGA640.DRV /q

echo %3>lsci.cfg
echo %4>%1:%6\tsn.cfg
echo %5>%1:%6\PASS_SET.DTA

rem Get the volumes installed from their blender file
rem ALSO round-about method for finding out installed video config

echo Setting Up Video Drivers
echo  dll = graph256.dll>>lsci.cfg
echo  dll = nlnull.dll>>lsci.cfg
echo  pathStr = .\>>lsci.cfg
echo  hostID = SIERRA>>lsci.cfg
echo  InterpSize = 174>>lsci.cfg

rem start the de-archiver
defuse %2 %1 part %6

echo UnCompressing "Red Baron"
godir %1:%6\BARON
puff /D _*.*
rem Copy RBJOY.EXE from CC directory to BARON directory
copy ..\rbjoy.exe /q

echo UnCompressing "The Shadow of Yserbius"
godir %1:%6\YSERBIUS
puff /D _*.*
rem del _*.*
copy save\*.dat /q

godir %1:%6

echo  pathStr = ..\>>sl\lsci.cfg
lsciget lsci.cfg sl\lsci.cfg -t video ..\ keyboard ..\ music ..\ dll ..\ >NUL
lsciget lsci.cfg sl\lsci.cfg mouseDrv prefix id modem pFlag >NUL
echo  hostID = SIERRA>>sl\lsci.cfg
echo  InterpSize = 174>>sl\lsci.cfg

echo  pathStr = ..\>>ll\lsci.cfg
lsciget lsci.cfg ll\lsci.cfg -t video ..\ keyboard ..\ music ..\ dll ..\ >NUL
lsciget lsci.cfg ll\lsci.cfg mouseDrv prefix id modem pFlag >NUL
echo  hostID = SIERRA>>ll\lsci.cfg
echo  InterpSize = 174>>ll\lsci.cfg

echo General.doc>doc.lst
echo Sierrlnd.doc>>doc.lst
echo Larrylnd.doc>>doc.lst
echo Yserbius.doc>>doc.lst

rem Copy any patches which have found their way onto the final disk
godir %1:%6\SL
copy  %2:\slPatch\*.* /q
if exist _*.* puff /D _*.*
godir %1:%6\LL
copy  %2:\llPatch\*.* /q
if exist _*.* puff /D _*.*
godir %1:%6\yserbius
copy  %2:\ysPatch\*.* /q
if exist _*.* puff /D _*.*
godir %1:%6
copy  %2:\ccPatch\*.* /q
if exist _*.* puff /D _*.*

cls
echo Installation complete.
echo 
echo 
echo Type "cd %6"
echo      "TSN"
echo   to run The Sierra Network
echo 
end

:NoSpace
cls
echo There is not enough space on %1: to install TSN!
echo 8.5 Megabytes are required. Delete some unused stuff.
pause
end

:CantCreate
Alert Unable to create %1:%6
cls
echo There may already be a file called %1:%6.
echo
echo If there is, rename it or install TSN on another hard
echo disk partition.
echo
pause
end

:CantSL
Alert Unable to create %1:%6\SL
end

:CantLL
Alert Unable to create %1:%6\LL
end

:CantYserbius
Alert Unable to create %1:%6\YSERBIUS
end

:CantBaron
Alert Unable to create %1:%6\BARON
end

