@ECHO wadload v1.0 - PWAD loader, doom launcher
@ECHO Copyright 1994 by Greg Durrett
@ECHO OFF
delay 1
setlocal
set nors=Net
:begin
iff NOT direxist %doomdir .OR. NOT exist %doomdir\doom.wad then ^
cls
drawbox 9 10 11 70 1 bri whi on blu
screen 10 14 Your specified DOOM directory (%doomdir) is invalid!
delay 2
cls
screen 10 20
input Enter Doom directory: %%doomdir
goto begin
else
cdd %doomdir
goto A
endiff
:A
iff NOT direxist %waddir .OR. NOT exist %waddir\*.wad then ^
cls
drawbox 9 10 11 70 1 bri whi on blu
screen 10 14 Your specified PWAD directory (%waddir) is invalid!
delay 2
cls
screen 10 20
input Enter wads directory: %%waddir
goto begin
else
goto 1
endiff
:1
set start=doom
set dorc=Death
set mode=
cls
alias choice `elseiff "%userchoice"=="%1" then`
drawbox 9 22 11 58 1 bri whi on blu
screen 10 24 Select from the following PWADs!!
delay 1
select set pwad= (%waddir\*.wad)
%waddir\wadname.exe %pwad > %temp\wadnam
set fil=-file
set epis=%@substr[%@LINE[%temp\wadnam,4]%temp\wadnam,1,1]
set levl=%@substr[%@LINE[%temp\wadnam,4]%temp\wadnam,3,1]
set plyrs=
set portno=
drawbox 13 13 17 65  1 bri whi on blu
screen 14 18 Net or Solo Play?
screen 16 23
inkey /K"NSns[Enter]" Type [n],[s], or [Enter] for %nors %%userchoice
iff %userchoice="n".OR.[Enter].OR."s" then ^
choice n ^
set nors=Net
set start=ipxsetup
choice s ^ 
set nors=Solo
set start=doom
choice @28 ^ goto %nors
endiff
goto %nors
:Net
set start=ipxsetup
iff NOT %ipxon==Y then ^ 
 set ipxon=Y
 call startnet.bat
endiff
:Plyrs
cls
drawbox 13 13 17 65  1 bri whi on blu
screen 14 25 How Many Players
screen 16 20
inkey /K"1234" Enter 1 - 4 %%players
set plyrs=-nodes %players
cls
drawbox 13 13 17 65  1 bri whi on blu
screen 14 15 Deathmatch or Cooperative?
screen 16 20 
inkey /K"DC[Enter]" Type "d","c", or Enter for %dorc %%userchoice
iff %userchoice="c".OR.[Enter].OR."d" then ^
 choice c ^
 set mode=
 set dorc=Coop 
 choice d ^
 set mode=-deathmatch
 set dorc=Death
 choice @28 ^ goto %dorc
else
 scrput 23 0 bri whi on red Invalid Choice, try again!
 cls
endiff
goto Port
:Coop
set mode=
goto Port
:Death
set mode=-deathmatch
:Port
cls
drawbox 13 13 17 65 1 bri whi on blu
screen 14 15 Which Port?
screen 16 20
inkey /K"0123456789" Which Port? %%port
Set portno=-port %port
:Solo
cls
%start -devparm -skill 4 -warp %epis %levl %plyrs %portno %mode %fil %pwad
inkey /K"YN[Enter]" Wad onward? [Y/N] %%cont
iff %cont==Y then ^
goto begin
else
del %temp\wadnam
endlocal
cls
endiff