/*
$VER: DoomGATE 0.8 (21.1.98)
*/
options results
if exists("libs:rexxarplib.library") then addlib("rexxarplib.library",0,-30,0)
Tags()
if ~exists('env:doomgate') then address command 'makedir env:DoomGate'
if ~exists('envarc:doomgate') then address command 'makedir envarc:DoomGate'
if arg(1)="DOOMRCLOAD" then do
	call DOOMRC(READ)
exit
end
if arg(1)="DOOMRCSAVE" then do
	call DOOMRC(SAVE)
exit
end
if arg(1)="SETTINGSFETCH" then do
options results;address DOOMGATE;
string ID FSS;
ip = result;
window ID DOOF close;
address command 'type tcp:'ip'/5152 >t:dg_temp';
if open(set,'t:dg_temp',r) then do;
set = readln(set);
call close(set);
window ID DOOS Title '"Settings From Remote"' COMMAND '"window ID DOOS close"' PORT DOOMGATE;
button label "\033c Settings Used at" IP "\n" set;
endwindow;
end;
exit
end
if arg(1)="OFFERDETAILS" then do
	address DOOMGATE;string id COTH;
	ct = result
button id FOSO ATTRS MUIA_Disabled 1
object id FOSB ATTRS MUIA_Busy_Speed 2
call getchecks()
address DOOMGATE
check id CWAR
if result = 1 then do
	ct = ct || " -warp "
	slider ID WARE
	ct = ct || result || " "
	slider ID WARM
	ct = ct || result
end
check id CSKI
if result = 1 then do
	ct = ct || " -skill "
	slider ID SKIL
	ct = ct || result
end
check id CFIL
if result = 1 then do
	ct = ct || " -file "
	popasl ID PFIL
	ct = ct || result
end
check ID CTUB
if result = 1 then do
	ct = ct || " -turbo "
	slider ID TURB
	ct = ct || result
end
radio ID NAMT
nodes = result
if nodes ~= 1 then do
radio ID NAMP
playernumber = result
ct = ct || " -net "||playernumber||" "
end
address command 'echo >tcp:5152 'ct
button id FOSO ATTRS MUIA_Disabled 0
object id FOSB ATTRS MUIA_Busy_Speed 0
EXIT
end
if arg(1)="SETTINGSFETCH" then do
options results;address DOOMGATE;
string ID FSS;
ip = result;
window ID DOOF close;
address command 'type tcp:'ip'/5152 >t:dg_temp';
if open(set,'t:dg_temp',r) then do;
set = readln(set);
call close(set);
window ID DOOS Title '"Settings From Remote"' COMMAND '"window ID DOOS close"' PORT DOOMGATE;
label "\033c Settings Used at" IP;
label "\033l" set;
endwindow;
end;
exit
end
if arg(1)="SETTINGSFETCHWIN" then do
options results;address DOOMGATE;
window ID DOOF TITLE '"Fetch Settings"' COMMAND '"window ID DOOF close"' PORT DOOMGATE ATTRS MUIA_Window_ScreenTitle '"DoomGATE v0.8ß          ©1998 Piper Communications Freely Distributable Emailware"';
group horiz;
label "Enter IP or Hostname";
button ID FSB COMMAND '"DoomGATE.rexx SETTINGSFETCH"' ATTRS MUIA_CycleChain 1 label "Fetch from this IP"
endgroup;
string ID FSS ATTRS MUIA_CycleChain 1
endwindow
exit
end
if arg(1)="SETTINGSUNBODGE" then do
options results;address DOOMGATE;
button id FOSO ATTRS MUIA_Disabled 0
object id FOSB ATTRS MUIA_Busy_Speed 0
address command 'run <>NIL: type tcp:localhost/5152'
exit
end
if arg(1)="STARTDOOM" then do
	address DOOMGATE;string id COTH;
	ct = result
say "--Getting info from GUI--"
call getchecks()
address DOOMGATE
check id CWAR
if result = 1 then do
	say "--Collecting WARP info from GUI--"
	ct = ct || " -warp "
	slider ID WARE
	ct = ct || result || " "
	slider ID WARM
	ct = ct || result
end
check id CSKI
if result = 1 then do
say "--Collecting Skill info from GUI--"
	ct = ct || " -skill "
	slider ID SKIL
	ct = ct || result
end
check id CFIL
if result = 1 then do
say "--Collecting Custom WAD info from GUI--"
	ct = ct || " -file "
	popasl ID PFIL
	ct = ct || result
end
check ID CTUB
if result = 1 then do
say "--Collecting Turbo info from GUI--"
	ct = ct || " -turbo "
	slider ID TURB
	ct = ct || result
end
say "--Now checking for number of Players--"
radio ID NAMT
nodes = result
say "--There are "nodes" Nodes Set--"
if nodes ~= 1 then do
	say "--So networking is needed--"
radio ID NAMP
playernumber = result
	ct = ct || " -net "||playernumber||" "
if playernumber > nodes then do
	say "--ERROR. Player Number ["playernumber"] does NOT EXIST--"
	say "PLEASE RESELECT PLAYER NUMBER AND TRY AGAIN........."
	exit
end
	if nodes > 1 then do
	if playernumber = 1 then break
	string ID NOD1
	nodeip = result
	say "--Adding "nodeip"--"
	ct = ct || nodeip || " "
	end
	if nodes > 1 then do
	if playernumber = 2 then break
	string ID NOD2
	nodeip = result
	say "--Adding "nodeip"--"
	ct = ct || nodeip || " "
	end
	if nodes > 2 then do
	if playernumber = 3 then break
	string ID NOD3
	nodeip = result
	say "--Adding "nodeip"--"
	ct = ct || nodeip || " "
	end
	if nodes > 3 then do
	if playernumber = 4 then break
	string ID NOD4
	nodeip = result
	say "--Adding "nodeip"--"
	ct = ct || nodeip || " "
	end	
	if nodes > 4 then do
	if playernumber = 5 then break
	string ID NOD5
	nodeip = result
	say "--Adding "nodeip"--"
	ct = ct || nodeip || " "
	end
end
check ID NPRC
if result = 1 then do
string ID NPRS
newport = result
say "--New port ("newport")--"
ct = ct || " -port " || newport || " "
end
say "--Got info ("ct")--"
	popasl ID GLOC
	loc = result
say "--Changing Directory--"
	popasl ID DD
	newd = result
say "--New dir is ["newd"]--"
	call pragma(d,newd)
	popasl ID PREC;
	address command;
	result;
say "--Setting new Stack--"
	Address DOOMGATE knob id STAC ATTRS MUIA_Slider_Level
	newstack = result
say "--New Stack is ["newstack"]--"
	call pragma(S,newstack)
	parse var loc drive ":" rest
	drive = drive || ":"
say "--Caculating Buffer Change--"
	say drive
	'addbuffers 'drive' >t:buffers'
	if ~open(buffers,'t:buffers',r) then do
		say "Buggered. Addbuffers didnt work. Buggered."
		exit
	end
	buffs = readln(buffers)
	buffs = word(buffs,3)
	call close(buffers)
	address command 'delete t:buffers <>NIL: quiet'
	say buffs " currently on drive."
	Address DOOMGATE knob id BUFS ATTRS MUIA_Slider_Level
	newbuff = result
	buffchange = newbuff - buffs
	say "Need to add "buffchange" buffers."
say "--Changing Buffers--"
	address command 'addbuffers 'drive buffchange
say "--Final Commandline is ("loc ct")--"
say "--Kicking up DOOM--"
	loc ct;
	exit;
end
Max_Episode = GetEnv("DoomGate/Episodes")
If Max_Episode = " " then Max_Episode = 3
address DOOMGATE
MUIA_Window_ScreenTitle =              0x804234b0 
window ID DOOM TITLE '"DoomGATE v0.8ß"' COMMAND '"quit"' PORT DOOMGATE ATTRS MUIA_Window_ScreenTitle '"DoomGATE v0.8ß          ©1998 Piper Communications Freely Distributable Emailware"'
menu LABEL "Project"
	item COMMAND '"method 'MUIM_Application_AboutMUI' 0"' PORT DOOMGATE LABEL "About MUI"
menu LABEL "Settings"
item COMMAND '"copy env:doomgat#? envarc: all quiet"' PORT Command  ATTRS MUIA_Menuitem_Shortcut 'S' LABEL "Save DoomGATE..."
item ATTRS MUIA_Menuitem_Title '-1'
item COMMAND '"method 'MUIM_Application_OpenConfigWindow'"' PORT DOOMGATE LABEL "Edit MUI..."
endmenu
item ATTRS MUIA_Menuitem_Title '-1'
item COMMAND '"quit"' PORT DOOMGATE ATTRS MUIA_Menuitem_Shortcut 'Q' LABEL "Quit"
endmenu
text help '"This is DoomGATE 0.8 BETA by\nPiper Communications (http://pcomm.home.ml.org/)\nIf you use this program, you are required to\nEmail the author (pcomm@inorbit.com). Otherwise,\nhow is he supposed to know to keep supporting\nDoomGATE ?!?\n\033rNicholas Piper"',
label "\033c\033bDoomGATE 0.8ß\033n\n\033cPiper Communications\n\033cFreely Distributable Emailware"
group REGISTER ID MAIR  ATTRS MUIA_CycleChain 1 LABELS "Game,Information,Settings,Network,WADS"
group 
group frame label "Command Line Options"
group
group horiz ATTRS MUIA_Group_Columns 8
Call GetChecksIntoGUI()
	label single "Two Player"
	button ID TPLA single help '"Set up for DeathMatch"' port INLINE,
command """address DOOMGATE;
check  ID CDEV ATTRS   0x8042654b TRUE;
check  ID CDEA ATTRS   0x8042654b TRUE;
check  ID CNOM ATTRS   0x8042654b TRUE;
check  ID CEXT ATTRS   0x8042654b TRUE;
address command 'c:wait 1';
group  ID MAIR ATTRS   0x80424199 '3' ;
radio  ID NAMT ATTRS   0x80429b41 '1' """
endgroup 
space horiz bar
group  ATTRS MUIA_Group_Columns 4
	label single   "-warp"
	group  ATTRS MUIA_Group_Columns 2
	check ID CWAR HELP '"Warp to Stage"' PORT INLINE,
COMMAND """if %s = 0 then do;
address doomgate slider ID WARE ATTRS '0x80423661' 1;
address doomgate slider ID WARM ATTRS '0x80423661' 1;
end;
else do;
address doomgate slider ID WARE ATTRS '0x80423661' 0;
address doomgate slider ID WARM ATTRS '0x80423661' 0;
end"""
	group horiz
		group
		slider ID WARE HELP '"Episode to Warp To (E\033b#\033nL#)"' ATTRS MUIA_Slider_Min 1 MUIA_Slider_Max Max_Episode
		endgroup
		group
		slider ID WARM HELP '"Level to Warp To (E#L\033b#\033n)"' ATTRS MUIA_Slider_Min 1 MUIA_Slider_Max 9
		endgroup
	endgroup
	endgroup
	label single   "-skill"
	group ATTRS MUIA_Group_Columns 2
	check ID CSKI HELP '"Skill Level"' PORT INLINE,
COMMAND """if %s = 0 then address doomgate slider ID SKIL ATTRS '0x80423661' 1;
else address doomgate slider ID SKIL ATTRS '0x80423661' 0"""
	slider ID SKIL HELP '"Skill Level to Set"' ATTRS MUIA_Slider_Min 1 MUIA_Slider_Max 5
	endgroup
	label single "-file"
	group  ATTRS MUIA_Group_Columns 2
	check ID CFIL HELP '"Use custom WAD ?"' PORT INLINE,
COMMAND """if %s = 0 then address doomgate popasl ID PFIL ATTRS '0x80423661' 1;
else address doomgate popasl ID PFIL ATTRS '0x80423661' 0"""
	popasl ID PFIL help '"Full Path to custom WAD"' Command '"setenv DoomGate/Custom_WAD %s"' port command
	endgroup
	label single   "-turbo"
	group	 ATTRS MUIA_Group_Columns 2
	check ID CTUB HELP '"Makes your Marine Faster"' PORT INLINE,
COMMAND """if %s = 0 then address doomgate slider ID TURB ATTRS '0x80423661' 1;
else address doomgate slider ID TURB ATTRS '0x80423661' 0"""
	slider ID TURB single HELP '"Turbo Amount"' ATTRS MUIA_Slider_Max 255 MUIA_Slider_Min 1
	endgroup
endgroup
endgroup
group horiz
group
label '"Other"'
endgroup
group
string ID COTH help '"Specify your own Commandline..."' ATTRS MUIA_CycleChain 1,
Command """address command;
'setenv DoomGate/OtherLineOptions 'd2c(34)' %s 'd2c(34) """ port inline
endgroup
endgroup 
endgroup 
group frame label "Begin Game"
group horiz
group
group horiz
	group
		label '"Executable"'
	endgroup
	group
		popasl ID GLOC help '"Location of Game"' SPEC '"6:19"' ATTRS ASLFR_DrawersOnly 0 ASLFR_RejectIcons 1 ASLFR_TitleText '"Doom Executable"' Command '"setenv DoomGate/Doom_Executable %s"' port command
	endgroup
endgroup
group horiz
	group
		label '"Directory"'
	endgroup
	group
		popasl ID DD help '"Location of Game Directory"'  SPEC '"6:20"' ATTRS ASLFR_DrawersOnly 1 ASLFR_RejectIcons 1 ASLFR_TitleText '"Doom Directory"' Command '"setenv DoomGate/Doom_Directory %s"' port command
	endgroup
endgroup
group horiz
	group
		label '"PreCommand"'
	endgroup
	group
		popasl ID PREC help '"Command to run before Doom. Eg.\nc:say You are DOOMED\nWell, you could do ! ;-)"'  SPEC '"6:19"' ATTRS ASLFR_DrawersOnly 0 ASLFR_RejectIcons 1 ASLFR_TitleText '"PreCommand Executable"',
Command """address command;
'setenv DoomGate/PreCommand 'd2c(34)' %s 'd2c(34) """ port inline
	endgroup
endgroup
endgroup
group
	group ATTRS MUIA_Group_Columns 2
		group frame label "Buffers"
		knob ID BUFS help '"Drive Buffers to Ensure are on This Drive"' ATTRS MUIA_Slider_Max 2000 MUIA_Slider_Min 100 Command '"setenv DoomGate/Buffers %s"' port command
		endgroup
		group frame label "Stack"
		knob ID STAC help '"System Stack to Set before Starting DOOM"' ATTRS MUIA_Slider_Max 51200 MUIA_Slider_Min 4096 Command '"setenv DoomGate/Stack %s"' port command
		endgroup
	endgroup
	group
		button ID STAR  ATTRS MUIA_CycleChain 1 label 'Enter DOOM'
	endgroup
endgroup
endgroup
endgroup
endgroup 
group 
group register labels 'Doom FAQ,Cheats,DGate Author,Credits'
group 
group register labels 'Misc FAQ,ADoom,AmiDoom,AmigaDoom,WADS ?!?'
group
view file "data/faq.txt"
endgroup
group
view file "data/adoom.txt"
endgroup
group
view file "data/amidoom.txt"
endgroup
group
view file "data/amigadoom.txt"
endgroup
group
view file "data/wads.txt"
endgroup
endgroup
endgroup 
group 
view file "data/cheat.txt"
endgroup 
group 
view file "data/author.txt"
endgroup 
group 
view file "data/credits.txt"
endgroup 
endgroup 
endgroup
group 
group ATTRS MUIA_Group_Columns 2
	label ".doomrc"
	group ATTRS MUIA_Group_Columns 2
	button command """DoomGATE.rexx DOOMRCLOAD""" label "Load .doomrc"
	button command """DoomGATE.rexx DOOMRCSAVE""" label "Save .doomrc"
	endgroup
endgroup
group register labels "Chat,Misc,Keys"
group scroll ATTRS MUIA_Group_Columns 2
	label "Chat 0"
	string ID CHT0 ATTRS MUIA_CycleChain 1
	label "Chat 1"
	string ID CHT1 ATTRS MUIA_CycleChain 1
	label "Chat 2"
	string ID CHT2 ATTRS MUIA_CycleChain 1
	label "Chat 3"
	string ID CHT3 ATTRS MUIA_CycleChain 1
	label "Chat 4"
	string ID CHT4 ATTRS MUIA_CycleChain 1
	label "Chat 5"
	string ID CHT5 ATTRS MUIA_CycleChain 1
	label "Chat 6"
	string ID CHT6 ATTRS MUIA_CycleChain 1
	label "Chat 7"
	string ID CHT7 ATTRS MUIA_CycleChain 1
	label "Chat 8"
	string ID CHT8 ATTRS MUIA_CycleChain 1
	label "Chat 9"
	string ID CHT9 ATTRS MUIA_CycleChain 1
endgroup
group scroll ATTRS MUIA_Group_Columns 2
	label "Note..."
	button label "Some of these sliders go from\n0 to 100. Obviously most of this range\nis wrong -- however the correct range\nis not known yet :-)"
	label "Sfx Volume"
	slider ID SSFX ATTRS MUIA_CycleChain 1
	label "Music Volume"
	slider ID SMUS ATTRS MUIA_CycleChain 1
	label "Sound Channels"
	slider ID SSOU ATTRS MUIA_CycleChain 1 MUIA_Slider_Min 0 MUIA_Slider_Max 8
	label "Detail Level"
	cycle ID SDET ATTRS MUIA_CycleChain 1 labels "Low,High"
	label "Gamma Correct"
	slider ID SGAM ATTRS MUIA_CycleChain 1 MUIA_Slider_Min 0 MUIA_Slider_Max 4
	label "Screen Blocks"
	slider ID SSCR ATTRS MUIA_CycleChain 1
	label "Show Messages"
	cycle ID SSHO ATTRS MUIA_CycleChain 1 labels "No,Yes"
	label "Mouse Sensitivity"
	slider ID SMOS ATTRS MUIA_CycleChain 1
endgroup
group 
group scroll ATTRS MUIA_Group_Columns 2
	label "Note..."
	button label "Actual playing keys will be\non this page soon. For now\njust edit the .doomrc manually :-)"
	label "Use Mouse"
	cycle ID SUMO ATTRS MUIA_CycleChain 1 labels "No,Yes"
	label "Use Joystick"
	cycle ID SUJO ATTRS MUIA_CycleChain 1 labels "No,Yes"
endgroup
endgroup 
endgroup 
endgroup 
group 
group horiz
view file "data/network.txt"
group
group horiz
label "New Port:"
	check ID NPRC HELP '"Use a different TCP/IP Port to normal"' PORT INLINE,
COMMAND """if %s = 0 then address doomgate string ID NPRS ATTRS '0x80423661' 1;
else address doomgate string ID NPRS ATTRS '0x80423661' 0"""
endgroup
string ID NPRS help '"Port to use"' ATTRS MUIA_Disabled TRUE
endgroup
endgroup
group horiz
	group frame label "N"
radio ID NAMT PORT INLINE,
			COMMAND """address DOOMGATE;
call c();
call c(1);
call c(2);
call c(3);
call c(4);
call c(5);
num = %s;
if num = 1 then call o(1);
if num = 2 then do;
call o(1);
call o(2);
end;
if num = 3 then do;
call o(1);
call o(2);
call o(3);
end;
if num = 4 then do;
call o(1);
call o(2);
call o(3);
call o(4);
end;
if num = 5 then do;
call o(1);
call o(2);
call o(3);
call o(4);
call o(5);
end;
call o();
exit;
o:;
'group ID GND'arg(1)' ATTRS 0x80429ba8 1';
return 0;
c:;
'group ID GND'arg(1)' ATTRS 0x80429ba8 0';
return 0;""" ATTRS MUIA_CycleChain 1 HELP '"Number of Players/Nodes"' LABELS '1,2,3,4,5'
	endgroup
	group frame label "P"
radio ID NAMP PORT INLINE,
			COMMAND """address DOOMGATE;
num = %s;
call o(1,0);
call o(2,0);
call o(3,0);
call o(4,0);
call o(5,0);
if num = 1 then call o(1,1);
if num = 2 then call o(2,1);
if num = 3 then call o(3,1);
if num = 4 then call o(4,1);
if num = 5 then call o(5,1);
exit;
o:;
'group ID GND'arg(1)' ATTRS 0x80423661 'arg(2);
return;""" ATTRS MUIA_CycleChain 1 HELP '"Player/Node Number of This Machine"' LABELS '1,2,3,4,5'
	endgroup
space
	group ID GND frame label "Hostname/IP Information"
	group ID GND1 ATTRS MUIA_Group_Columns 2 ATTRS MUIA_Disabled 1
	label "Node 1 IP/Hostname"
	string ID NOD1  ATTRS MUIA_CycleChain 1
	endgroup
	
	group ID GND2 ATTRS MUIA_Group_Columns 2 MUIA_ShowMe FALSE
	label "Node 2 IP/Hostname"
	string ID NOD2  ATTRS MUIA_CycleChain 1
	endgroup
	group ID GND3 ATTRS MUIA_Group_Columns 2 MUIA_ShowMe FALSE
	label "Node 3 IP/Hostname"
	string ID NOD3 ATTRS MUIA_CycleChain 1
	endgroup
	group ID GND4 ATTRS MUIA_Group_Columns 2 MUIA_ShowMe FALSE
	label "Node 4 IP/Hostname"
	string ID NOD4 ATTRS MUIA_CycleChain 1
	endgroup
	group ID GND5 ATTRS MUIA_Group_Columns 2 MUIA_ShowMe FALSE
	label "Node 5 IP/Hostname"
	string ID NOD5 ATTRS MUIA_CycleChain 1
	endgroup
	space horiz
	endgroup
endgroup
group horiz frame label "Fetch/Offer Settings"
button ID FOSO help '"Allow someone else to view your settings"' label 'Offer'
button ID FOSF help '"View the Settings used on a remote machine"' label 'Fetch'
button ID FOSU help '"Attempt to fix this if its knackered"' label 'UnBodge'
object ID FOSB CLASS '"Busy.mcc"'  ATTRS MUIA_Busy_Speed 0
endgroup
button ID STA2  ATTRS MUIA_CycleChain 1 label 'Enter DOOM'
endgroup 
group 
group horiz frame label "Main WAD"
view string "If your WAD is the Ultimate DOOM then select 4. Otherwise select 3. Then save your prefs and quit\nand restart DoomGATE to reflect this change."
radio ID WEPI ATTRS MUIA_CycleChain 1 HELP '"Number of Episodes in this WAD"' PORT Command COMMAND '"setenv DoomGate/Episodes %s"' LABELS '3,4'
endgroup
group frame label "Custom WADS"
list ID WLST NODUP TITLE """\033bWAD Name,\033bWad File,\033bEpisode,\033bLevel""" ATTRS MUIA_List_Format """MIW=25 BAR,MIW=25 BAR,MIW=10 BAR,MIW=10""" MUIA_List_DragSortable 1
group
group ATTRS MUIA_Group_Columns 5 MUIA_Weight 500 frame label "Add"
string ID CWNA ATTRS MUIA_CycleChain 1
popasl ID CWFI ATTRS MUIA_CycleChain 1
popslider ID CWEP ATTRS MUIA_Slider_Min 1 MUIA_Slider_Max Max_Episode MUIA_CycleChain 1
popslider ID CWLE ATTRS MUIA_Slider_Min 1 MUIA_Slider_Max 9 MUIA_CycleChain 1
button ID CWAD ATTRS MUIA_Weight 10 MUIA_CycleChain 1 Label "Add"
endgroup 
group horiz
group frame label "Del"
button ID CWDE command '"list ID WLST REMOVE POS -1"' port DOOMGATE label "Remove"
endgroup
group frame label "Use"
button ID CWUS label "Use"
endgroup
group frame ATTRS MUIA_Group_Columns 2 label "Lists"
button ID CWLO label "Load"
button ID CWSA label "Save"
endgroup
endgroup 
endgroup
endgroup 
endgroup 
endgroup
endwindow
callhook ID WLST COMMAND """;
options results;
address DOOMGATE;
list ID WLST;
parse var result name ',' file ',' episode ',' level;
string ID CWNA CONTENT name;
popasl ID CWFI CONTENT file;
popslider ID CWEP "0x8042ae3a" episode;
popslider ID CWLE "0x8042ae3a" level;
""" PORT INLINE ATTRS MUIA_List_Active MUIV_EveryTime
callhook ID CWAD PRESS PORT INLINE COMMAND """options results;address DOOMGATE;
string ID CWNA;
name = result;
popasl ID CWFI;
file = result;
popslider ID CWEP;
episode = result;
popslider ID CWLE;
level = result;
listline = name || ',' || file || ',' || episode || ',' || level ;
list ID WLST NODUP INSERT STRING listline """
callhook ID CWUS PRESS PORT INLINE COMMAND """options results;address DOOMGATE;
string ID CWNA;
name = result;
popasl ID CWFI;
file = result;
popslider ID CWEP;
episode = result;
popslider ID CWLE;
level = result;
group  ID MAIR ATTRS   0x80424199 '0' ;
check  ID CFIL ATTRS   0x8042654b TRUE;
popasl ID PFIL CONTENT file;
check  ID CWAR ATTRS   0x8042654b TRUE;
slider ID WARE ATTRS 0x8042ae3a episode;
slider ID WARM ATTRS 0x8042ae3a level;"""
callhook ID CWSA PRESS PORT INLINE COMMAND """options results;address DOOMGATE;
list ID WLST 0x80421654;
entries = result;
call open(set,'env:DoomGATE/CustomWADS',w);
i = 0;
do until i = entries;
list ID WLST POS i;
call writeln(set,result);
i = i + 1;
if i = 100 then break;
end;
call close(set);"""
callhook ID CWLO PRESS PORT INLINE COMMAND """options results;address DOOMGATE;
if open(set,'env:DoomGATE/CustomWADS',r) then do;
do until eof(set);
list ID WLST NODUP INSERT STRING readln(set);
end;
call close(set);
end;"""
callhook ID STAR PRESS PORT INLINE,
COMMAND """DOOMGATE.rexx STARTDOOM"""
callhook ID STA2 PRESS PORT INLINE,
COMMAND """DOOMGATE.rexx STARTDOOM"""
callhook ID FOSO PRESS PORT INLINE,
COMMAND """DOOMGATE.rexx OFFERDETAILS"""
callhook ID FOSF PRESS COMMAND '"DoomGATE.rexx SETTINGSFETCHWIN"'
callhook ID FOSU PRESS COMMAND '"DoomGATE.rexx SETTINGSUNBODGE"'
Address DOOMGATE
EpisodesC = 0
If Max_Episode = 4 then EpisodesC = 1
call SetGUIOptions()
EXIT
Tags:
MUIM_Notify = 0x8042c9cb
MUIM_Set = 0x8042549a
MUIM_NoNotifySet = 0x8042216f
MUIM_Application_AboutMUI = 0x8042d21d
MUIM_Application_OpenConfigWindow = 0x804299ba
MUIA_Application_Sleep =               0x80425711 
MUIA_Slider_Level =                         0x8042ae3a 
MUIA_AppMessage =                      0x80421955 
MUIA_Dropable =                        0x8042fbce 
MUIA_Draggable = 			0x80420b6e
MUIA_Listview_DragType = 0x80425cd3
MUIA_List_Format =                     0x80423c0a 
MUIA_FillArea =                        0x804294a3 
MUIA_Frame =                           0x8042ac64 
MUIA_Weight =                          0x80421d1f 
MUIA_Gauge_Current =                   0x8042f0dd 
MUIA_Gauge_Divide =                    0x8042d8df 
MUIA_Gauge_Horiz =                     0x804232dd 
MUIA_Gauge_Max =                       0x8042bcdb 
MUIA_Numeric_Value = 0x8042ae3a
MUIA_Menuitem_Title = 0x804218be
MUIA_Menuitem_Shortcut =               0x80422030 
MUIA_Boopsi_MinHeight =                0x80422c93 
MUIA_Boopsi_MinWidth =                 0x80428fb2 
MUIA_Boopsi_Remember =                 0x8042f4bd 
MUIA_Boopsi_TagScreen =                0x8042bc71 
WHEEL_Hue =                            0x84000001
WHEEL_Saturation =                     0x84000002
WHEEL_Screen =                         0x84000009
MUIA_Slider_Max =                      0x8042d78a 
MUIA_Slider_Min =                      0x8042e404 
MUIA_Selected =                        0x8042654b 
MUIA_CycleChain =                      0x80421ce7 
MUIA_String_Reject =                   0x8042179c 
MUIA_Gauge_Max =                       0x8042bcdb 
MUIA_Group_ActivePage =                0x80424199 
MUIA_Group_Child =                     0x804226e6 
MUIA_Group_ChildList =                 0x80424748 
MUIA_Group_Columns =                   0x8042f416 
MUIA_Group_Horiz =                     0x8042536b 
MUIA_Group_HorizSpacing =              0x8042c651 
MUIA_Group_LayoutHook =                0x8042c3b2 
MUIA_Group_PageMode =                  0x80421a5f 
MUIA_Group_Rows =                      0x8042b68f 
MUIA_Group_SameHeight =                0x8042037e 
MUIA_Group_SameSize =                  0x80420860 
MUIA_Group_SameWidth =                 0x8042b3ec 
MUIA_Group_Spacing =                   0x8042866d 
MUIA_Group_VertSpacing =               0x8042e1bf 
MUIA_Disabled =                        0x80423661 
MUIA_ShowMe = 0x80429ba8
ASLFR_DrawersOnly =                    0x8008002F
ASLFR_RejectIcons =                    0x8008003C
ASLFR_TitleText =                      0x80080001
MUIA_Cycle_Active =                    0x80421788 
MUIA_List_Active =                     0x8042391c 
MUIA_List_AdjustHeight =               0x8042850d 
MUIA_List_AdjustWidth =                0x8042354a 
MUIA_List_AutoVisible =                0x8042a445 
MUIA_List_CompareHook =                0x80425c14 
MUIA_List_ConstructHook =              0x8042894f 
MUIA_List_DestructHook =               0x804297ce 
MUIA_List_DisplayHook =                0x8042b4d5 
MUIA_List_DragSortable =               0x80426099 
MUIA_List_DropMark =                   0x8042aba6 
MUIA_List_Entries =                    0x80421654 
MUIA_List_First =                      0x804238d4 
MUIA_List_Format =                     0x80423c0a 
MUIA_List_InsertPosition =             0x8042d0cd 
MUIA_List_MinLineHeight =              0x8042d1c3 
MUIA_List_MultiTestHook =              0x8042c2c6 
MUIA_List_Pool =                       0x80423431 
MUIA_List_PoolPuddleSize =             0x8042a4eb 
MUIA_List_PoolThreshSize =             0x8042c48c 
MUIA_List_Quiet =                      0x8042d8c7 
MUIA_List_ShowDropMarks =              0x8042c6f3 
MUIA_List_SourceArray =                0x8042c0a0 
MUIA_List_Title =                      0x80423e66 
MUIA_List_Visible =                    0x8042191f 
MUIA_Busy_Speed        =  0x80020049
MUIV_EveryTime = 0x49893131
MUIV_List_Insert_Bottom = -3
TRUE = 1
FALSE = 0
MUIV_Listview_DragType_None = 0
MUIV_Listview_DragType_Immediate = 1
MUIV_Frame_None = 0
MUIV_Frame_Text = 3
MUIV_TriggerValue = 0x49893131
MUIV_EveryTime = 0x49893131
Return 0
DOOMRC: 
	address command 'echo >'ID '$HOME'
	if open(cnf,ID,'R') then do
		home=trim(readln(cnf))
		call close(cnf)
		address command 'delete >nil: 'ID
		end
	if (home='$HOME' | home='HOME') then home=''
	else if right(home,1)~='/' then home=home||'/'
if ~exists(home) then do
	Say "Sorry, Cant Find your .doomrc "
	exit
end
rcloc = home
call open(file,rcloc".doomrc",r)
i = 1
do until eof(file)
line.i = readln(file)
i = i + 1
end
line.0 = i - 1
if arg(1)=READ then lors = L
if arg(1)=SAVE then lors = S
call ch("chatmacro0",CHT0,lors)
call ch("chatmacro1",CHT1,lors)
call ch("chatmacro2",CHT2,lors)
call ch("chatmacro3",CHT3,lors)
call ch("chatmacro4",CHT4,lors)
call ch("chatmacro5",CHT5,lors)
call ch("chatmacro6",CHT6,lors)
call ch("chatmacro7",CHT7,lors)
call ch("chatmacro8",CHT8,lors)
call ch("chatmacro9",CHT9,lors)
call ch("sfx_volume",SSFX,lors,s)
call ch("music_volume",SMUS,lors,s)
call ch("snd_channels",SSOU,lors,s)
call ch("detaillevel",SDET,lors,c)
call ch("usegamma",SGAM,lors,s)
call ch("screenblocks",SSCR,lors,s)
call ch("show_messages",SSHO,lors,c)
call ch("mouse_sensitivity",SMOS,lors,s)
call ch("use_mouse",SUMO,lors,c)
call ch("use_joystick",SUJO,lors,c)
call close(file)
call open(file,rcloc".doomrc",W)
i = 1
do until i = line.0
	call writeln(file,line.i)
i = i + 1
end
call close(file)
return 0
ch: 
searchingfor = arg(1)
stringid = arg(2)
saveorload = arg(3)
ischat = pos("chatmacro",searchingfor)
type = arg(4)
i = 1
do until i = line.0
if upper(left(line.i,length(searchingfor))) = upper(searchingfor) then do
	if  ischat then parse var line.i RUBBISH '"' Setting '"'
	if ~ischat then parse var line.i RUBBISH "	" Setting
	if ~ischat then Setting = Compress(Setting,"	, ")
	WASATLINE = i
	if saveorload = L then do
		select
		when type = S then Address DOOMGATE slider ID stringid ATTRS MUIA_Slider_Level setting
		when type = C then Address DOOMGATE  cycle ID stringid ATTRS MUIA_Cycle_Active setting
		otherwise Address DOOMGATE string ID stringid content setting
		end
	end
	if saveorload = S then do
		select
		when type = S then	address DOOMGATE slider ID stringid
		when type = C then 	address DOOMGATE cycle  ID stringid
		otherwise	address DOOMGATE string ID stringid
		end
		changeto=result
		if upper(changeto) = upper("High") then changeto = 1
		if upper(changeto) = upper("Low")  then changeto = 0
		if upper(changeto) = upper("No")   then changeto = 0
		if upper(changeto) = upper("Yes")  then changeto = 1
		if ~ischat then line.i = searchingfor"		"changeto
		if  ischat then line.i = searchingfor"		"'"'changeto'"'
	end
end
i = i + 1
end
return
GetEnv: procedure
if show('L', 'rexxarplib.library') then
return 'GetEnv'(arg(1))
if open(6Env, 'env:'arg(1), 'R') then do
EnvVar = readln(6Env)
call close 6Env
end
else EnvVar = ''
return EnvVar
getchecks: 
if ~open(lines,'data/CommandLines.data',R) then do
	say "Unable to Open data/CommandLines.data... Please reinstall."
	return 1
end
do until eof(lines)
	line = readln(lines)
	parse var line flag idname labelname "*" helpname "*"
	if length(idname) = 4 then do
		labelname = compress(labelname,'	')
		call c(idname,' 'labelname)
	end
end
call close(lines)
return 1
GetChecksIntoGUI: 
if ~open(lines,'data/CommandLines.data',R) then do
	button label "Unable to Open\ndata/CommandLines.data\nPlease reinstall."
	return 1
end
do until eof(lines)
	line = readln(lines)
	parse var line flag idname labelname "*" helpname "*"
	if length(idname) = 4 then do
		labelname = compress(labelname)
		label single labelname
		check ID idname single help '"' helpname '"'
	end
end
call close(lines)
return 1
SetGUIOptions: 
	radio  ID WEPI ATTRS   '0x80429b41' EpisodesC
	popasl ID GLOC CONTENT GetEnv("DoomGate/Doom_Executable")
	string ID COTH CONTENT GetEnv("DoomGate/OtherLineOptions")
	popasl ID PREC CONTENT GetEnv("DoomGate/PreCommand")
	popasl ID DD   CONTENT GetEnv("DoomGate/Doom_Directory")
	popasl ID PFIL CONTENT GetEnv("DoomGate/Custom_WAD")
	knob   ID BUFS ATTRS   MUIA_Slider_Level GetEnv("DoomGate/Buffers")
	knob   ID STAC ATTRS   MUIA_Slider_Level GetEnv("DoomGate/Stack")
	slider ID WARM ATTRS   MUIA_Disabled 1
	slider ID WARE ATTRS   MUIA_Disabled 1
	slider ID TURB ATTRS   MUIA_Disabled 1
	slider ID SKIL ATTRS   MUIA_Disabled 1
	
	popasl ID PFIL ATTRS   MUIA_Disabled 1
if ~open(lines,'data/CommandLines.data',R) then do
	button label "Unable to Open\ndata/CommandLines.data\nPlease reinstall."
	return 1
end
do until eof(lines)
	line = readln(lines)
	parse var line flag idname labelname "*" helpname "*"
	if length(idname) = 4 then do
		if flag = 1 then do
			check ID idname ATTRS MUIA_Selected 1
		end
	end
end
call close(lines)
return 1
	c:;address DOOMGATE;check id arg(1);
	if result = 1 then ct = ct || arg(2);
	return 0;
	exit