[AlmarM]

Hi!

I made this little program so you can easly create .bot files!

Download Link: http://www.mediafire.com/?sharekey=2...5f920753d3b932

I will give the source with it for the one's who dont trust it. Its writting in 'AutoIt3' so you need to download that first. www.autoitscript.com

Source:

#include <GUIConstants.au3>
Global $Label, $BotWeapon
$GUI = GUICreate(".bot Maker", 220, 265, -1, -1)
GUICtrlCreateLabel("Output:", 10, 10)
$xxx = GUICtrlCreateButton("...", 190, 6, 25, 25)
$Output = GUICtrlCreateInput(@DesktopDir, 80, 7, 100, 20)
GUICtrlCreateLabel("Bot Name:", 10, 40)
$BotName = GUICtrlCreateInput("", 80, 37, 100, 20)
GUICtrlCreateLabel("Bot Team:", 10, 70)
$BotTeam = GUICtrlCreateCombo("Allies", 80, 67, 100, 20)
GUICtrlSetData($BotTeam, "Axis", "Allies")
GUICtrlCreateLabel("Bot Class:", 10, 100)
$BotClass = GUICtrlCreateCombo("Soldier", 80, 97, 100, 20)
GUICtrlSetData($BotClass, "Medic|Engineer|Field Ops|Covert Ops", "Soldier")
$GetWeapons = GUICtrlCreateButton("Get Weapons", 60, 130, 100)
$Generate = GUICtrlCreateButton("Generate", 60, 200, 100)
$Reset = GUICtrlCreateButton("Reset", 60, 230, 100)
GUICtrlSetState($Generate, $GUI_DISABLE)
GUISetState()
While 1
 $nMsg = GUIGetMsg()
 Select
 Case $nMsg = -3
  Exit
 Case $nMsg = $xxx
  $fsf = FileSelectFolder("Select Output", "", 5, "", $GUI)
  If @error Then
  Else
   GUICtrlSetData($Output, $fsf)
  EndIf
 Case $nMsg = $GetWeapons
  $Read_Team = GUICtrlRead($BotTeam)
  $Read_Class = GUICtrlRead($BotClass)
  If $Read_Team = "Allies" And $Read_Class = "Soldier" Then
   $Weapons = "Thompson|Mortar|Panzer|MG42|Flamethrower"
  ElseIf $Read_Team = "Allies" And $Read_Class = "Medic" Then
   $Weapons = "Thompson"
  ElseIf $Read_Team = "Allies" And $Read_Class = "Engineer" Then
   $Weapons = "Thompson|Garand"
  ElseIf $Read_Team = "Allies" And $Read_Class = "Field Ops" Then
   $Weapons = "Thompson"
  ElseIf $Read_Team = "Allies" And $Read_Class = "Covert Ops" Then
   $Weapons = "Sten|Silenced Garand|FG42"
  ElseIf $Read_Team = "Axis" And $Read_Class = "Soldier" Then
   $Weapons = "MP40|Mortar|Panzer|MG42|Flamethrower"
  ElseIf $Read_Team = "Axis" And $Read_Class = "Medic" Then
   $Weapons = "MP40"
  ElseIf $Read_Team = "Axis" And $Read_Class = "Engineer" Then
   $Weapons = "MP40|K43"
  ElseIf $Read_Team = "Axis" And $Read_Class = "Field Ops" Then
   $Weapons = "MP40"
  ElseIf $Read_Team = "Axis" And $Read_Class = "Covert Ops" Then
   $Weapons = "Sten|Silenced K43|FG42"
  EndIf
  $Label = GUICtrlCreateLabel("Bot Weapon:", 10, 170)
  $BotWeapon = GUICtrlCreateCombo("Select Weapon", 81, 167, 100, 20)
  GUICtrlSetData($BotWeapon, $Weapons)
  GUICtrlSetState($Generate, $GUI_ENABLE)
 Case $nMsg = $Generate
  $Read_Output = GUICtrlRead($Output)
  $Read_Name = GUICtrlRead($BotName)
  $Read_Team = GUICtrlRead($BotTeam)
  $Read_Class = GUICtrlRead($BotClass)
  $Read_Weapon = GUICtrlRead($BotWeapon)
  If $Read_Team = "Allies" Then
   $Team_Num = "1"
  Else
   $Team_Num = "0"
  EndIf
  If $Read_Class = "Soldier" Then
   $Class_Num = "0"
  ElseIf $Read_Class = "Medic" Then
   $Class_Num = "1"
  ElseIf $Read_Class = "Engineer" Then
   $Class_Num = "2"
  ElseIf $Read_Class = "Field Ops" Then
   $Class_Num = "3"
  Else
   $Class_Num = "4"
  EndIf
  If $Read_Weapon = "MP40" Then
   $Weapon_Num = "0"
  ElseIf $Read_Weapon = "Thompson" Then
   $Weapon_Num = "1"
  ElseIf $Read_Weapon = "Sten" Then
   $Weapon_Num = "2"
  ElseIf $Read_Weapon = "K43" Then
   $Weapon_Num = "3"
  ElseIf $Read_Weapon = "Silenced K43" Then
   $Weapon_Num = "4"
  ElseIf $Read_Weapon = "Silenced Garand" Then
   $Weapon_Num = "5"
  ElseIf $Read_Weapon = "FG42" Then
   $Weapon_Num = "6"
  ElseIf $Read_Weapon = "Garand" Then
   $Weapon_Num = "7"
  ElseIf $Read_Weapon = "Mortar" Then
   $Weapon_Num = "8"
  ElseIf $Read_Weapon = "Panzer" Then
   $Weapon_Num = "9"
  ElseIf $Read_Weapon = "MG42" Then
   $Weapon_Num = "10"
  Else
   $Weapon_Num = "11"
  EndIf
  $Data = "//=========================================" & @CRLF & "//  Custom Made Bot" & @CRLF & "//=========================================" & _
    @CRLF & @CRLF & "{" & @CRLF & " funname " & $Read_Name & @CRLF & " class " & $Class_Num & @CRLF & " weapon " & $Weapon_Num & @CRLF & _
    " team " & $Team_Num & @CRLF & "}"
  $Name = InputBox("File Name", "What sould the file name be?")
  FileWrite($Read_Output & "\" & $Name & ".bot", $Data)
  MsgBox(64, "* Done *", ".bot Created!")
 Case $nMsg = $Reset
  GUICtrlSetData($BotName, "")
  GUICtrlSetData($BotTeam, "Allies")
  GUICtrlSetData($BotClass, "Soldier")
  GUICtrlDelete($Label)
  GUICtrlDelete($BotWeapon)
  GUICtrlSetState($Generate, $GUI_DISABLE)
 EndSelect
WEnd

AlmarM