@echo off&set FileName=%~n0&shift

:: =============================================
:: AutoHelp PlugLab Concept: 2006 by Reatogo
:: =============================================

:: Help Info:
:: =======================
   set Routine_Type=2
::                  1=Getting Data  2=Prompts  3=Getting Files  4=Creating Files  5=General

   set Routine_Vers=1
   set Routine_Date=2007-02-15
   set RoutineName=Splash
   set RoutineAuthor=Siegfried
   set Using_work_from=

   set Example_call_1=%%Splash%% "on"
   set Example_call_2=%%Splash%% "off"
   set Example_call_3=%%Splash%% "on" "My.bmp"

   set text_01=Shows a splash until %%Splash%% "off"
   set text_02=.
   set text_03=%%Splash%% "on" uses SPLASH.bmp if present in %%SCRIPTSdir%%
   set text_04=%%Splash%% "on" "My.bmp" uses %%SCRIPTSdir%%\My.bmp
   set text_05=.
   set text_06=	Max size: 438x335 BMP only
   set text_07=	If no SPLASH.bmp is present, and no "My.bmp" is specified as parameter
   set text_08=	then the PEbuilder BMP will be used.

if "%~1" == "GetHelp" goto :EOF
echo.&echo %*
:: =============================================

set SPLASH_BMP=PEbuilder.bmp
if exist "%PEroot%\reatogoBuilder.bmp" set SPLASH_BMP=reatogoBuilder.bmp
if not exist "%SCRIPTSdir%\SPLASH.bmp" if exist "%PEroot%\%SPLASH_BMP%" copy "%PEroot%\%SPLASH_BMP%" "%SCRIPTSdir%\SPLASH.bmp"

set FRESSE_WAbmp=%WAbmp%
	set WAbmp=%SCRIPTSdir%\SPLASH.bmp
	if not "%~2" == "" set WAbmp=%SCRIPTSdir%\%~2
set FRESSE_WAsound=%WAsound%
set WAsound=

if "%~1" == "on" ("%APPS%\WIZapp.exe" SPLASH OPEN) else "%APPS%\WIZapp.exe" SPLASH CLOSE

set WAbmp=%FRESSE_WAbmp%
set WAbsound=%FRESSE_WAsound%

%RESET_VARS%&goto :EOF
:: =============================================