.bot Maker
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:
Code:
#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
|