grand_diablo
November 13, 2004, 7:01 pm
Here we go with the source:
(If a ' is at the beginning of a line, its a comment)
'Teh declarations of teh variables
declare menu%, leerstring$, spawnbox%, tspawnbox%, spawn$, tspawn$, ende%, setval%, help%, save%
declare esl%, esldm%, tnl%
declare dmlimitbox%, tdmlimitbox%, ctflimitbox%, inflimitbox%, rambolimitbox%, pointlimitbox%
declare dmlimit$, tdmlimit$, ctflimit$, inflimit$,gamemode%, rambolimit$,pointlimit$, tspawntext%
declare spawn!, tspawn!, spawntext$, spawntext!, spawntext%, tspawntext!, tspawntext$, ffon%, ffoff%
declare getinflimit$, gcolon%, gcoloff%, kcolon%, kcoloff%, lobbyreg%, dedicated%
declare deagles%, hkmp5%,ak74%,steyr%,spas%,ruger%,m79%,barret%, minimi%, minigun%
declare socom%, knife%, chainsaw%, law%
declare maxnades%, botsdef$, botsa$, botsb$, botsc$, botsd$
declare staton%, statoff%, sniperon%, sniperoff%, bton%, btoff%, clanon%, clanoff%
declare predator%, cluster%, berserk%, vest%, flamegod%
declare bfreq0%, bfreq1%, bfreq2%, bfreq3%, bfreq4%, bfreq5%
declare dm$, tdm$, ctf$, inf$, rm$, pm$, advanced%, realistic%, survival%
declare servername%, servergreeting%, port%, serverinfo%, remotehost%
declare minping%, maxping%, vote%, maxplayers%, botstrength%, maxspecs%
declare specchat%, botchat%, balance%, download%, specs%, gamepass%, adminpass%, maploop%, timelimit%
declare servername$, servergreeting$, port$,serverinfo$,remotehost$, maploop1%, dedicated1%
declare minping$, maxping$, vote$, maxplayers$, botstrength$, maxspecs$, botskill%, raycast%
declare adminpass$, gamepass$, specs1%,botchat1%,specchat1%,balance1%,download1%, timelimit$
declare botsdef%,botsa%,botsb%,botsc%,botsd%, maxnades$
declare deagles1%, hkmp51%,ak741%,steyr1%,spas1%,ruger1%,m791%,barret1%, minimi1%, minigun1%
declare socom1%, knife1%, chainsaw1%, law1%
declare gamemode$, gamemode1%
declare predator1%, cluster1%, berserk1%, vest1%, flamegod1%
declare advanced1%, survival1%, realistic1%
declare ffon1%, gcolon1%, kcolon1%, bton1%, sniperon1%, bton1%, staton1%, clanon1%
declare bfreq01%, bfreq11%, bfreq21%, bfreq31%, bfreq41%, bfreq51%, bfreq%, bfreq$, lobbyreg1%
declare filename$
let leerstring$=""
let spawn$="Normal"
let tspawn$="Team"
'Menu Building
'Startwindow
WindowStyle 68
let menu%=@CreateDialog(0,"Soldat Server INI Maker V1.0 by grand_diablo",0,0,600,600)
let ende%=@CreateButton(menu%,"Quit",540,545,50,20)
let help%=@CreateButton(menu%,"Help",490,545,50,20)
let save%=@CreateButton(menu%,"Save",440,545,50,20)
let esldm%=@CreateButton(menu%,"ESL int. DM",5,545,90,20)
let esl%=@CreateButton(menu%,"ESL CTF",95,545,90,20)
let tnl%=@CreateButton(menu%,"TNL/SCTFL",185,545,90,20)
'Spawntimes
@CreateGroupBox(menu%,"Spawntime (sec)",10,0,145,50)
let spawnbox%=@CreateEdit(menu%,spawn$,20,20,60,20)
let tspawnbox%=@CreateEdit(menu%,tspawn$,85,20,60,20)
'Limits
@CreateGroupBox(menu%,"Limits (Points/Caps)",160,0,405,50)
let dmlimitbox%=@CreateEdit(menu%,"DM",170,20,60,20)
let tdmlimitbox%=@CreateEdit(menu%,"TDM",235,20,60,20)
let ctflimitbox%=@CreateEdit(menu%,"CTF",300,20,60,20)
let inflimitbox%=@CreateEdit(menu%,"INF",365,20,60,20)
let rambolimitbox%=@CreateEdit(menu%,"RM",430,20,60,20)
let pointlimitbox%=@CreateEdit(menu%,"PM",495,20,60,20)
'Gamemode
@createtext(menu%,"Gamemode:", 20,55,80,20)
let gamemode%=@CreateListBox(menu%,leerstring$,20,73,130,35)
let dm$=@AddString(gamemode%,"DM")
let pm$=@AddString(gamemode%,"Pointmatch")
let tdm$=@AddString(gamemode%,"Team-DM")
let ctf$=@AddString(gamemode%,"CTF")
let rm$=@AddString(gamemode%,"Rambomatch")
let inf$=@AddString(gamemode%,"Infiltration")
'Advanced Mode/Realistic/Survival selection
let advanced%=@CreateCheckBox(menu%,"Advance Mode",165,83,125,20)
let survival%=@CreateCheckBox(menu%,"Survival Mode",301,83,125,20)
let realistic%=@CreateCheckBox(menu%,"Realistic mode",436,83,125,20)
'Nades
@createtext(menu%,"Max. Nades:", 165,55,90,20)
let maxnades%=@CreateEdit(menu%,"5",255,55,30,20)
'Bots
@createtext(menu%,"Bots:", 295,55,50,20)
let botsdef%=@CreateEdit(menu%,"Def.",335,55,40,20)
let botsa%=CreateEdit(menu%,"Red",390,55,40,20)
let botsb%=@CreateEdit(menu%,"Blue",435,55,40,20)
let botsc%=@CreateEdit(menu%,"Grn.",480,55,40,20)
let botsd%=@CreateEdit(menu%,"Yello",525,55,40,20)
'Statguns
@creategroupbox(menu%,"Stat. Guns:", 160,110,145,40)
let staton%=@CreateRadioButton(menu%,"On",175,125,40,20)
let statoff%=@CreateRadioButton(menu%,"Off",245,125,40,20)
SetCheck staton%,0
'Sniperline
@creategroupbox(menu%,"Sniperline:", 160,150,145,40)
let sniperon%=@CreateRadioButton(menu%,"On",175,165,40,20)
let sniperoff%=@CreateRadioButton(menu%,"Off",245,165,40,20)
setcheck sniperon%,0
'BulletTime
@creategroupbox(menu%,"BulletTime:", 160,190,145,40)
let bton%=@CreateRadioButton(menu%,"On",175,205,40,20)
let btoff%=@CreateRadioButton(menu%,"Off",245,205,40,20)
setcheck bton%,0
'FriendlyFire
@creategroupbox(menu%,"Friendly Fire:", 10,110,145,40)
let ffon%=@CreateRadioButton(menu%,"On",20,125,40,20)
let ffoff%=@CreateRadioButton(menu%,"Off",90,125,40,20)
setcheck ffon%,0
'Guns Collide
@creategroupbox(menu%,"Gun Collisions:", 10,150,145,40)
let gcolon%=@CreateRadioButton(menu%,"On",20,165,40,20)
let gcoloff%=@CreateRadioButton(menu%,"Off",90,165,40,20)
setcheck gcolon%,0
'Kits Collide
@creategroupbox(menu%,"Kit Collisions:", 10,190,145,40)
let kcolon%=@CreateRadioButton(menu%,"On",20,205,40,20)
let kcoloff%=@CreateRadioButton(menu%,"Off",90,205,40,20)
setcheck kcolon%,0
'Clan Match
@creategroupbox(menu%,"Clan Match:", 160,230,145,40)
let clanon%=@CreateRadioButton(menu%,"On",170,245,40,20)
let clanoff%=@CreateRadioButton(menu%,"Off",240,245,40,20)
setcheck clanon%,0
'Weapons
@creategroupbox(menu%,"Weapons:", 10,230,145,310)
let deagles%=@CreateCheckBox(menu%,"Desert Eagles",20,245,125,20)
let hkmp5%=@CreateCheckBox(menu%,"HK MP5",20,265,125,20)
let ak74%=@CreateCheckBox(menu%,"Ak-74",20,285,125,20)
let steyr%=@CreateCheckBox(menu%,"Steyr AUG",20,305,125,20)
let spas%=@CreateCheckBox(menu%,"Spas-12",20,325,125,20)
let ruger%=@CreateCheckBox(menu%,"Ruger 77",20,345,125,20)
let m79%=@CreateCheckBox(menu%,"M79",20,365,125,20)
let barret%=@CreateCheckBox(menu%,"Barret M82A1",20,385,125,20)
let minimi%=@CreateCheckBox(menu%,"FN Minimi",20,405,125,20)
let minigun%=@CreateCheckBox(menu%,"XM214 Minigun",20,425,125,20)
let socom%=@CreateCheckBox(menu%,"USSOCOM",20,455,130,20)
let knife%=@CreateCheckBox(menu%,"Combat Knife",20,475,130,20)
let chainsaw%=@CreateCheckBox(menu%,"Chainsaw",20,495,130,20)
let law%=@CreateCheckBox(menu%,"M72 LAW",20,515,130,20)
'Bonus Items
@creategroupbox(menu%,"Bonus Kits:", 160,275,145,120)
let flamegod%=@CreateCheckBox(menu%,"Flame God Mode",170,290,130,20)
let predator%=@CreateCheckBox(menu%,"Predator Mode",170,310,125,20)
let berserk%=@CreateCheckBox(menu%,"Berserk Mode",170,330,125,20)
let vest%=@CreateCheckBox(menu%,"Bulletproof Vest",170,350,125,20)
let cluster%=@CreateCheckBox(menu%,"Cluster Grenades",170,370,125,20)
'Bonus Frequency
@creategroupbox(menu%,"Bonus Frequency:", 160,400,145,140)
let bfreq0%=@CreateRadioButton(menu%,"None",170,415,100,20)
let bfreq1%=@CreateRadioButton(menu%,"Very low",170,435,100,20)
let bfreq2%=@CreateRadioButton(menu%,"Low",170,455,100,20)
let bfreq3%=@CreateRadioButton(menu%,"Average",170,475,100,20)
let bfreq4%=@CreateRadioButton(menu%,"High",170,495,100,20)
let bfreq5%=@CreateRadioButton(menu%,"Very high",170,515,100,20)
'Server Stuff
@creategroupbox(menu%,"Server Data:", 310,110,255,430)
let servername%=@CreateEdit(menu%,"Server Name",320,130,235,20)
let servergreeting%=@CreateEdit(menu%,"Server Greeting",320,155,235,20)
let serverinfo%=@CreateEdit(menu%,"Server Info",320,180,235,20)
let port%=@CreateEdit(menu%,"Server Port",320,205,115,20)
let remotehost%=@CreateEdit(menu%,"Df. Remote Host",440,205,115,20)
let minping%=@CreateEdit(menu%,"Minimum Ping",320,230,115,20)
let maxping%=@CreateEdit(menu%,"Maximum Ping",440,230,115,20)
let vote%=@CreateEdit(menu%,"Vote Percentage",320,255,115,20)
let maxplayers%=@CreateEdit(menu%,"Max. Players",440,255,115,20)
let botstrength%=@CreateEdit(menu%,"Bot Strength",320,280,115,20)
let maxspecs%=@CreateEdit(menu%,"Max. Specs",440,280,115,20)
let gamepass%=@CreateEdit(menu%,"Game Password",320,305,115,20)
let adminpass%=@CreateEdit(menu%,"Admin Password",440,305,115,20)
let timelimit%=@CreateEdit(menu%,"Time Limit",320,330,115,20)
let dedicated%=@CreateCheckbox(menu%,"Dedicated", 440,355,100,20)
let lobbyreg%=@CreateCheckBox(menu%,"Lobby Reg.",320,355,100,20)
let specs%=@CreateCheckBox(menu%,"Allow Specs",320,380,100,20)
let specchat%=@CreateCheckBox(menu%,"Spec Chat",440,380,90,20)
let balance%=@CreateCheckBox(menu%,"Teambalance",320,405,110,20)
let download%=@CreateCheckBox(menu%,"Allow Map-DL",440,405,120,20)
let botchat%=@CreateCheckBox(menu%,"Bot Chat",320,430,110,20)
let maploop%=@CreateCheckBox(menu%,"Loop Cycle",440,430,110,20)
'Text
@CreateText(menu%,"VISIT:",340,455,200,20)
@CreateText(menu%,"www.selfkill.com",340,475,200,20)
@CreateText(menu%,"www.soldatforums.com",340,495,200,20)
@CreateText(menu%,"www.soldat.pl",340,515,200,15)
'#################################
'Procedure for collecting all these values
Proc Gather
'Gamemode
let gamemode1%=@GetCurSel(gamemode%)
let gamemode$=gamemode1%
'Spawntimes
let spawn$=GetText$(spawnbox%)
Let spawn! = spawn$
let spawntext!=spawn!*60
let spawntext%=@int(spawntext!)
let spawntext$=spawntext%
let tspawn$=GetText$(tspawnbox%)
let tspawn!= tspawn$
let tspawntext!=tspawn!*60
tspawntext%=@int(tspawntext!)
let tspawntext$=tspawntext%
'Limits
let dmlimit$=GetText$(dmlimitbox%)
let tdmlimit$=GetText$(tdmlimitbox%)
let ctflimit$=GetText$(ctflimitbox%)
let inflimit$=GetText$(inflimitbox%)
let rambolimit$=GetText$(rambolimitbox%)
let pointlimit$=GetText$(pointlimitbox%)
'Server Settings
let servername$=GetText$(servername%)
let serverinfo$=GetText$(serverinfo%)
let servergreeting$=GetText$(servergreeting%)
let port$=GetText$(port%)
let remotehost$=GetText$(remotehost%)
let minping$=GetText$(minping%)
let maxping$=GetText$(maxping%)
let vote$=GetText$(vote%)
let maxplayers$=GetText$(maxplayers%)
let botstrength$=GetText$(botstrength%)
let botskill%=botstrength$
if botskill%>250
let raycast%=5
elseif botskill%>200
let raycast%=8
elseif botskill%>150
let raycast%=10
elseif botskill%>100
let botskill%=12
elseif botskill%>50
let raycast%=14
elseif raycast%>=0
let raycast%=15
else
endif
let maxspecs$=GetText$(maxspecs%)
let gamepass$=GetText$(gamepass%)
let adminpass$=GetText$(adminpass%)
let timelimit$=GetText$(timelimit%)
let specs1%=@GetCheck(specs%)
let botchat1%=@GetCheck(botchat%)
let specchat1%=@GetCheck(specchat%)
let balance1%=@GetCheck(balance%)
let download1%=@GetCheck(download%)
let maploop1%=@GetCheck(maploop%)
let lobbyreg1%=@GetCheck(lobbyreg%)
let dedicated1%=@GetCheck(dedicated%)
'Bots/Nades
let maxnades$=GetText$(maxnades%)
let botsdef$=GetText$(botsdef%)
let botsa$=GetText$(botsa%)
let botsb$=GetText$(botsb%)
let botsc$=GetText$(botsc%)
let botsd$=GetText$(botsd%)
'Weps
let deagles1%=GetCheck(deagles%)
let hkmp51%=GetCheck(hkmp5%)
let ak741%=Getcheck(ak74%)
let steyr1%=GetCheck(steyr%)
let spas1%=GetCheck(spas%)
let ruger1%=GetCheck(ruger%)
let m791%=GetCheck(m79%)
let barret1%=Getcheck(barret%)
let minimi1%=GetCheck(minimi%)
let minigun1%=GetCheck(minigun%)
let socom1%=Getcheck(socom%)
let knife1%=GetCheck(knife%)
let chainsaw1%=GetCheck(chainsaw%)
let law1%=GetCheck(law%)
'Bonus crates
let flamegod1%=GetCheck(flamegod%)
let berserk1%=GetCheck(berserk%)
let predator1%=Getcheck(predator%)
let vest1%=GetCheck(vest%)
let cluster1%=GetCheck(vest%)
'Modes
let advanced1%=@Getcheck(advanced%)
let realistic1%=@GetCheck(realistic%)
let survival1%=@GetCheck(survival%)
'Friendlyfire
let ffon1%=@GetCheck(ffon%)
'BulletTime
let bton1%=@GetCheck(bton%)
'Kits collision
let kcolon1%=@GetCheck(kcolon%)
'Guns collision
let gcolon1%=@GetCheck(gcolon%)
'Statguns
let staton1%=@GetCheck(staton%)
'Sniperline
let sniperon1%=@GetCheck(sniperon%)
'Clan Match
let clanon1%=@GetCheck(clanon%)
'Bonus Frequency
let bfreq01%=@GetCheck(bfreq0%)
let bfreq11%=@GetCheck(bfreq1%)
let bfreq21%=@GetCheck(bfreq2%)
let bfreq31%=@GetCheck(bfreq3%)
let bfreq41%=@GetCheck(bfreq4%)
let bfreq51%=@GetCheck(bfreq5%)
if bfreq01%=1
let bfreq%=0
elseif bfreq11%=1
let bfreq%=1
elseif bfreq21%=1
let bfreq%=2
elseif bfreq31%=1
let bfreq%=3
elseif bfreq41%=1
let bfreq%=4
elseif bfreq51%=1
let bfreq%=5
else
endif
Endproc
'Standard ESL Value setting routine
Proc ESL
SetText minping%,"0"
SetText maxping%,"600"
SetText dmlimitbox%,"20"
SetText tdmlimitbox%,"60"
SetText ctflimitbox%,"10"
SetText inflimitbox%,"125"
SetText rambolimitbox%,"30"
SetText pointlimitbox%,"30"
SetText timelimit%,"10"
SetText maxnades%,"5"
SetText botsdef%,"0"
SetText botsa%,"0"
SetText botsb%,"0"
SetText botsc%,"0"
SetText botsd%,"0"
SetCheck gcoloff%,1
SetCheck kcoloff%,1
SetCheck ffoff%,1
SetCheck sniperoff%,1
SetCheck statoff%,1
Setcheck clanon%,1
Setcheck btoff%,1
setcheck bfreq3%,1
setcheck hkmp5%,1
setcheck deagles%,1
setcheck ak74%,1
setcheck steyr%,1
setcheck spas%,1
setcheck ruger%,1
setcheck m79%,1
setcheck barret%,1
setcheck minimi%,1
setcheck minigun%,1
setcheck socom%,1
setcheck knife%,1
setcheck chainsaw%,1
setcheck law%,1
SetText spawnbox%,"3"
SetText tspawnbox%,"3"
@SelectString(gamemode%,-1,"CTF")
EndProc
'Standard ESL DM Value setting routine
Proc ESLDM
SetText minping%,"0"
SetText maxping%,"600"
SetText dmlimitbox%,"30"
SetText tdmlimitbox%,"60"
SetText ctflimitbox%,"10"
SetText inflimitbox%,"125"
SetText rambolimitbox%,"30"
SetText pointlimitbox%,"30"
SetText timelimit%,"60"
SetText maxnades%,"5"
SetText botsdef%,"0"
SetText botsa%,"0"
SetText botsb%,"0"
SetText botsc%,"0"
SetText botsd%,"0"
SetCheck gcoloff%,1
SetCheck kcoloff%,1
SetCheck ffoff%,1
SetCheck sniperoff%,1
SetCheck statoff%,1
Setcheck clanon%,1
Setcheck btoff%,1
setcheck bfreq3%,1
setcheck hkmp5%,1
setcheck deagles%,1
setcheck ak74%,1
setcheck steyr%,1
setcheck spas%,1
setcheck ruger%,1
setcheck m79%,1
setcheck barret%,1
setcheck minimi%,1
setcheck minigun%,1
setcheck socom%,1
setcheck knife%,1
setcheck chainsaw%,1
setcheck law%,1
SetText spawnbox%,"2"
SetText tspawnbox%,"3"
@SelectString(gamemode%,-1,"DM")
EndProc
'Procedure for standard TNL/SCTFL values
Proc TNL
SetText minping%,"0"
SetText maxping%,"500"
SetText dmlimitbox%,"20"
SetText tdmlimitbox%,"60"
SetText ctflimitbox%,"10"
SetText inflimitbox%,"125"
SetText rambolimitbox%,"30"
SetText pointlimitbox%,"30"
SetText timelimit%,"10"
SetText maxnades%,"4"
SetText botsdef%,"0"
SetText botsa%,"0"
SetText botsb%,"0"
SetText botsc%,"0"
SetText botsd%,"0"
SetCheck gcoloff%,1
SetCheck kcoloff%,1
SetCheck ffoff%,1
SetCheck sniperoff%,1
SetCheck statoff%,1
Setcheck clanon%,1
Setcheck btoff%,1
setcheck bfreq3%,1
setcheck hkmp5%,1
setcheck deagles%,1
setcheck ak74%,1
setcheck steyr%,1
setcheck spas%,1
setcheck ruger%,1
setcheck m79%,1
setcheck barret%,1
setcheck minimi%,1
setcheck minigun%,1
setcheck socom%,1
setcheck knife%,1
setcheck chainsaw%,1
setcheck law%,1
SetText spawnbox%,"3"
SetText tspawnbox%,"4"
@SelectString(gamemode%,-1,"CTF")
EndProc
'Saving routine
Proc Save
let filename$=input$("Choose your filename...","Saving","soldat.ini")
Assign #1, filename$
rewrite #1
print #1, "[GAME]"
print #1, "Fullscreen=0"
print #1, "Debug_Mode=0"
print #1, "Console_Show=1"
print #1, "Console_Deaths=1"
print #1, "Respawn_Time=";spawntext$
print #1, "WaveRespawn_Time=";tspawntext$
print #1, "Mouse_Sensitivity=100"
print #1, "Play_Music=0"
print #1, "Deathmatch_Limit=";dmlimit$
print #1, "Pointmatch_Limit=";pointlimit$
print #1, "Teammatch_Limit=";tdmlimit$
print #1, "Capture_Limit=";ctflimit$
print #1, "Rambomatch_Limit=";rambolimit$
print #1, "Infiltration_Limit=",inflimit$
print #1, "GameStyle=";gamemode$
print #1, "Friendly_Fire=";ffon1%
print #1, "Guns_Collide=";gcolon1%
print #1, "Kits_Collide=";kcolon1%
print #1, "Play_Intro=0"
print #1, "Loop_Maps=";maploop1%
print #1, "Bonus_Frequency=";bfreq%
print #1, "Bonus_FlameGod=";flamegod1%
print #1, "Bonus_Predator=";predator1%
print #1, "Bonus_Berserker=";berserk1%
print #1, "Bonus_Vest=";vest1%
print #1, "Bonus_Cluster=",cluster1%
print #1, "Time_Limit=";timelimit$
print #1, "Survival_Mode=";survival1%
print #1, "Realistic_Mode=";realistic1%
print #1, "Weapons_Mode=",advanced1%
print #1, "Weapon_1=";deagles1%
print #1, "Weapon_2=";hkmp51%
print #1, "Weapon_3=";ak741%
print #1, "Weapon_4=";steyr1%
print #1, "Weapon_5=";spas1%
print #1, "Weapon_6=";ruger1%
print #1, "Weapon_7=";m791%
print #1, "Weapon_8=";barret1%
print #1, "Weapon_9=";minimi1%
print #1, "Weapon_10=";minigun1%
print #1, "Weapon_11=";socom1%
print #1, "Weapon_12=";knife1%
print #1, "Weapon_13=";chainsaw1%
print #1, "Weapon_14=";law1%
print #1, "Max_Grenades=";maxnades$
print #1, "Random_Bots=";botsdef$
print #1, "Random_Bots_1=";botsa$
print #1, "Random_Bots_2=";botsb$
print #1, "Random_Bots_3=";botsc$
print #1, "Random_Bots_4=";botsd$
print #1, "Runs=1"
print #1, "Profile_Default=0"
print #1, "Logging=1"
print #1, "Stationary_Guns=";staton1%
print #1, "End_Screenshot=0"
print #1, "Auto_Record=0"
print #1, "Record_Time=0"
print #1, "Bullet_Time=";bton1%
print #1, "NoSniperLine=";sniperon1%
print #1, ""
print #1, "[NETWORK]"
print #1, "Port=";port$
print #1, "JoinPort=23073"
print #1, "Max_Players=";maxplayers$
print #1, "Default_Remote_Host=";remotehost$
print #1, "Game_Password=";gamepass$
print #1, "Admin_Password=";adminpass$
print #1, "Connection=Internet"
print #1, "Lobby_Register=";lobbyreg1%
print #1, "ASE_Register=0"
print #1, "Lobby_IP=65.169.85.3"
print #1, "Server_Name=";servername$
print #1, "Dedicated=";dedicated1%
print #1, "Clanmatch=";clanon1%
print #1, "Internet_Connection=3"
print #1, "Greeting_Message=";servergreeting$
print #1, "Server_Info=";serverinfo$
print #1, "ShowRealLag=1"
print #1, "Min_Ping=";minping$
print #1, "Max_Ping=";maxping$
print #1, "Filter_Players=0"
print #1, "Filter_Gametype=0"
print #1, "Filter_Dedicated=0"
print #1, "Filter_NoPassword=0"
print #1, "Filter_NoBots=0"
print #1, "Filter_Survival=0"
print #1, "Filter_Realistic=0"
print #1, "Filter_NoBonuses=0"
print #1, "Filter_Weapons=0"
print #1, "Balance_Teams=";balance1%
print #1, "Dont_Forward=0"
print #1, "Vote_Percent=";vote$
print #1, "Compression=1"
print #1, "Spectator=";specs1%
print #1, "Max_Spectators=";maxspecs$
print #1, "Spectator_Chat=";specchat1%
print #1, "Allow_Download=";download1%
print #1, ""
print #1, "[BOTS]"
print #1, "Difficulty=";botskill%
print #1, "Chat=";botchat1%
print #1, "Raycasting_Quality=";raycast%
close #1
MessageBox("Successfully saved!",filename$,48)
EndProc
'The prog itself
whilenot @GetFocus(ende%)
waitinput
if GetFocus(esl%)
ESL
elseif getfocus(esldm%)
ESLDM
elseif getfocus(tnl%)
TNL
Elseif getfocus(help%)
@MessageBox("Please look up SINIMhelp.htm in the program folder.","Help",0)
Endif
Gather
if GetFocus(save%)
Save
else
Endif
endwhile
end