Since Arachne v1.6 allows you to shell to DOS and be able to type
exit anywhere on your drive (previous versions required you
to return to the Arachne directory), here is a proposed
modification to ARACHNE.BAT so that if one still tries to run
Arachne.bat again, it will exit gracefully instead of starting
Arachne with an error message.
I believe that generating a lock file in arachne.bat is no longer
needed with this change but I've left it in there in case
there is some other reason.
Dev Teelucksingh
[EMAIL PROTECTED]
Interesting DOS programs at http://www.opus.co.tt/dave
@echo off
break=off
rem --- Arachne is *.BAT which will make your PC survive to 21st century! ---
rem --- (c)1996,1997,1998,1999 xChaos software, http://home.arachne.cz/ ---
if (%1) == (-u) goto termin
if not (%1) == () goto continue
if not exist arachne.cfg setup.bat
if not exist arachne.pck setup.bat
rem ---------- Dev T changes -------------
if not (%OLDPMT%)==() goto error
rem --------------------------------------
if exist lock arachne.bat system\gui\err_lock.ah
if exist ppp.log arachne.bat -r
echo Don't worry, this is just Arachne lock file...>lock
:continue
core.exe %1 %2
if errorlevel 128 goto fastexecute
if errorlevel 64 goto execute
if errorlevel 32 goto end
if errorlevel 16 goto graphics
if errorlevel 8 goto resolution
rem ^^^^^^^^^^^^^^^^ warning! new errorlevels since 1.50 beta 3 !!!
pause
core.exe system\gui\fatal.ah
if errorlevel 128 goto fastexecute
if errorlevel 64 goto execute
if errorlevel 32 goto end
if errorlevel 16 goto graphics
if errorlevel 8 goto resolution
rem ^^^^^^^^^^^^^^^^ warning! new errorlevels since 1.50 "release candidate"
if not exist core.exe goto noexe
goto err
rem -------- Dev T change -----------
:error
echo.
echo You have shelled to DOS from Arachne.
echo Please type EXIT to return to it.
echo.
goto exit
rem --------------------------------------
:termin
termin.com 0x60
del ppp.log
goto end
:noexe
echo CORE.EXE is missing.
goto end
:graphics
:resolution
core -s
if errorlevel 32 goto end
goto continue
:execute
$roura$.bat
goto err
:fastexecute
if not (%ARACHNETEMP%)==() %ARACHNETEMP%\$roura$.bat
%TEMP%\$roura$.bat
if exist %TEMP%$roura$.bat %TEMP%$roura$.bat
:err
echo Abnormal Arachne termination. Please reboot system and/or restart Arachne.
:end
if exist $roura?.bat del $roura?.bat
if exist %ARACHNETEMP%\$roura$.bat del %ARACHNETEMP%\$roura$.bat
if exist %TEMP%\$roura$.bat del %TEMP%\$roura$.bat
if exist *._$b del *._$b
if exist %ARACHNETEMP%\*._$b del %ARACHNETEMP%\*._$b
if exist %TEMP%\*._$b del %TEMP%\*._$b
if exist ip-up.bat del ip-up.bat
if exist ppp.log echo Type 'arachne -u' to terminate SLIP/PPP connection.
if exist lock del lock
echo.
rem --------- Dev T change ------------
:exit
rem --------------------------------------
