SET RUNWINSCP=JA

SET archivepath=oniunpacker
SET srcpath=\Dokumente und Einstellungen\Administrator\Desktop\Oni\OniUnPacker
SET target=C:\Dokumente und Einstellungen\Administrator\Desktop\%archivepath%.rar

SET winrar=C:\Programme\WinRAR\rar.exe a -m5 -r -rr -s
SET winscp=d:\programme\winscp\winscp3.exe

c:
cd %srcpath%
md %archivepath%
md %archivepath%\src
md %archivepath%\StructDefs
md %archivepath%\src\TFileTypeRegistration
md %archivepath%\src\help

copy /y TFileTypeRegistration\*.* "%archivepath%\src\TFileTypeRegistration"
copy /y help\*.* "%archivepath%\src\help"
copy /y *.ico "%archivepath%\src"
copy /y *.bdsproj "%archivepath%\src"
copy /y *.cfg "%archivepath%\src"
copy /y *.dpr "%archivepath%\src"
copy /y *.res "%archivepath%\src"
copy /y *.dfm "%archivepath%\src"
copy /y *.pas "%archivepath%\src"
copy /y exe\StructDefs\*.txt "%archivepath%\StructDefs"
copy /y *.txt "%archivepath%"
copy /y *.dll "%archivepath%"
copy /y exe\*.exe "%archivepath%"

del "%target%"
%winrar% "%target%" "%archivepath%"

rmdir /s /q "%archivepath%"

PAUSE


copy /y changelog.txt "C:\Dokumente und Einstellungen\Administrator\Desktop\changelog.txt"


if "%RUNWINSCP%" == "JA" GOTO WINSCP
GOTO ENDE

:WINSCP
start %winscp%

:ENDE