home *** CD-ROM | disk | FTP | other *** search
- ;
- ; 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
-