;
; set the options in the following line. For example: setenv DOOMATTACKOPTIONS "-rtg"
;

setenv DOOMATTACKOPTIONS ""
setenv DOOMATTACKSTACK "150000"


assign DoomRAD: dismount

mount dosdrivers/DoomRAD >NIL:

if not exists DoomRAD:S
	makedir DoomRAD:S
endif

setenv ACTDOOMDIR `cd`

cd SYS:
setenv ACTSYSDIR `cd`

cd ENVARC:
setenv ENVARCDIR `cd`

cd $ACTDOOMDIR
c/killlastchar ENV:ACTSYSDIR

echo "$ACTSYSDIR:c/SetPatch >NIL:*nfailat 11*npath $ACTSYSDIR:c add*nassign C: $ACTSYSDIR:c*nassign L: $ACTSYSDIR:l*nassign DEVS: $ACTSYSDIR:devs*n" TO T:ddd_a
echo "assign LIBS: $ACTSYSDIR:libs*nassign ENVARC: $ENVARCDIR*nassign FONTS: $ACTSYSDIR:fonts*n" TO T:ddd_b
echo "makedir ram:t >NIL:*nmakedir ram:env >NIL*nassign ENV: ram:env*nassign T: ram:t*n" TO T:ddd_c
echo "C:List >NIL: DEVS:Monitors/~(#?.info|VGAOnly) TO T:M LFORMAT *"DEVS:Monitors/%s*"*nExecute T:M*ndelete >NIL: T:M*n" TO T:ddd_d
echo "*n*ncd $ACTDOOMDIR*nremrad DoomRAD: FORCE*n*nsetenv DOOMHOME *"$ACTDOOMDIR*"*naddbuffers *"*" 200 >NIL:*nstack $DOOMATTACKSTACK*nDoomAttack $DOOMATTACKOPTIONS*n" TO T:ddd_e

join T:ddd_a T:ddd_b T:ddd_c T:ddd_d T:ddd_e to DoomRAD:s/startup-sequence

delete t:ddd_#? quiet

unsetenv DOOMATTACKOPTIONS
unsetenv DOOMATTACKSTACK
unsetenv ACTDOOMDIR
unsetenv ACTSYSDIR
unsetenv ENVARCDIR

if `requestchoice "DoomAttack" "You can reboot your computer now.*nDoomAttack will then be started automatically!" "OK" "Abort"` eq 0
	assign DoomRAD: dismount
endif