( search forums )
SINIM (Server INI Maker) - V1.0 out!
Soldat Forums - Soldat Fans - Fan Apps
grand_diablo
November 7, 2004, 2:37 pm
DOWNLOAD:
(V1.0) http://www.denacke.net/Dibo/SINIM.zip
thanks to Denacke for hosting this one ;)

What SINIM can do:
- Create your onw customized server.ini without having to screw around in a text file
- Automatically add international settings (ESL/SCTFL/TNL) if needed

What it might be able to do soon:
- Maybe a Load function (only for inis that have been created with SINIM. Dunno if I already can implement that, im not that far with Profan² yet, as I started coding a week ago ^^)

Once creating an ini file is possible, an early version will be released. Yet I have to go a bit through the Profan² tuts and helps to build that "auto-set international settings" option.

Progress News
- Map Loop option was missing, now added
- the routine to gather all values is finished
- Screenshot updated
- two more missing options were added
- early Version 0.9a is ready. You can already save your own ini file, but the "Set ESL/SCTFL..." and "Help" button wont work. The final version will have both, the standard-value-set-button and a html manual. The sourcecode of the final version will also be released then, so someone can port it to a language similar to Profan² (Visual Basic maybe?) if he wishes, or do something else with it.
- screenshot updated once more
- "standardized values" function added
- "Help" button enabled
- helpfile created
- V1.0 compiled!
- Screenshot updated (once more)

(EDIT: DL location changed - updated!)

[IMAGE]

Drama
November 7, 2004, 4:35 pm
i made something similar with php

Elephant_Hunter
November 7, 2004, 6:21 pm
This would be really useful for the SML server.

I hope you finish it!

grand_diablo
November 7, 2004, 7:14 pm
quote:Originally posted by Elephant_HunterThis would be really useful for the SML server.

I hope you finish it!


Im sure I will (yet I cant promise, lots of work is still left, but im progressing well) ;)

Soulsnipa
November 7, 2004, 10:34 pm
i dont get it...

grand_diablo
November 7, 2004, 10:52 pm
quote:Originally posted by Soulsnipai dont get it...


The program saves time. You dont need to screw around in server.ini anymore, just tick n select what you need for your server, and when you click save, SINIM creates the ini file with those settings for you to use on your server. And for better overview, it leaves out all unnecessary entries (all those needed by the client only).

So you can create many ini files at once, to use as templates for different gamemodes/rules/whateva ;)

die nadel
November 8, 2004, 3:50 am
looks helpfull but i don't host :P

Deleted User
November 8, 2004, 5:39 pm
I tried to make a program like this ages ago but I'm too crap to do coding :/

Well done G_D, I'll probably use this.

grand_diablo
November 8, 2004, 6:40 pm
V0.9a out.

To make an ini file work, please insert ALL the values in the editboxes. You can only leave things like Game/Admin Password and Default Remote Host Blank.

n00bface
November 8, 2004, 7:09 pm
I don't see an option to load an INI for editing? If I'm not blind then maybe you should add one?

grand_diablo
November 8, 2004, 7:10 pm
quote:
What it will be able to do soon:
- Automatically add international settings (ESL/SCTFL/TNL) if needed
- Maybe a Load function (only for inis that have been created with SINIM. Dunno if I already can implement that, im not that far with Profan² yet, as I started coding a week ago ^^)


Please do also read the main posting, n00by ;)

STEELIX
November 8, 2004, 8:16 pm
now THIS is something I can make great use of... cheers, grand one

grand_diablo
November 9, 2004, 4:12 pm
1.0 is out! Enjoy ;)

STEELIX
November 9, 2004, 5:21 pm
does it include loading ini files yet?

grand_diablo
November 9, 2004, 6:50 pm
according to the main posting, no.

but i will try to implement it. cant promise success though ^^

blackdevil0742
November 9, 2004, 8:12 pm
it looks promising

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

STEELIX
November 14, 2004, 2:32 pm
I now know for sure, I'll never be a programmer :)

Vijchtidoodah
December 13, 2004, 1:25 am
You can say that again

KnOt
December 13, 2004, 1:39 am
:OOOO

Toumaz
December 14, 2004, 5:21 pm
Nice program, GD!
One question... the 'guns collide' and 'kits collide' doesn't seem to make any whetever they are 1 or 0 for me. What are those two options supposed to do?

grand_diablo
December 14, 2004, 5:53 pm
if theyre at 1, the kits/guns should be affected by impacting nades near them, and move because of this, if 0 zero, they just stay where they are. If I remember only, this only affects LAN mode, while its always turned off online on the internet (maybe due to lag reasons).

Toumaz
December 14, 2004, 5:56 pm
But then why does those two options exists in the Soldat 1.1.5 (and below, probably) Soldat.ini file? XD