.:: Bots United ::.

.:: Bots United ::. (http://forums.bots-united.com/index.php)
-   FritzBot (http://forums.bots-united.com/forumdisplay.php?f=53)
-   -   .bot Maker (http://forums.bots-united.com/showthread.php?t=6985)

AlmarM 11-12-2008 14:43

.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

Verification 09-01-2009 05:21

Re: .bot Maker
 
Anyone who has actually downloaded this will find a slight problem, it's a virus.

E: Unless my Anti-Virus is very paranoid, which is usually isn't - I'd avoid downloading this

nedd3h 09-01-2009 09:26

Re: .bot Maker
 
Please name your anti-virus software and provide full details of what it found.

It may be a false-positive... or may be not, either way more details are required.

TomTom 09-01-2009 21:15

Re: .bot Maker
 
Ned is most likely right. Avira (8.2.0.337) reports that the .rar file contains W32/Hidrag.a, but Avira does get a fair number of likely false positives. However you could just use the source listing above, or just learn to create the files from notepad. Included below I have merged the info from 2 related files in fritzbot/docs. Just copy it into notepad, read it, edit 4 of the last 6 lines as desired, and Save As... to fritzbot/bots in the form <botname>.bot
(<botname> should be a unique filename of your choice)


Code:

//=========================================
//    Example Bot
//    Version 1.1
//      By: Maleficus
//          and TomTom
//
//    This bot is provided for you as an
//    example of how to add your own bot(s).
//
//    After making your own bot file - copy it to the
//    "bots" directory inside your "fritzbot" folder
//
//    To add your bot to your game, in the console, just type
//      /addbot <botname>
//    where <botname> is the name of the .bot file you saved.
//      If the file is named example.bot then...
//    /addbot example
//=========================================
//
//    References:
//      Color codes -> see
//        http://games.chruker.dk/enemy_territory/colors.php
//      Wiki -> see
//        http://wiki.bots-united.com/index.php/Fritzbot-ET_Bot_File_Format
//
//    Format:
//        // [optional comments]
//        {
//        funname        text
//        class          0..4
//        weapon        0..11
//        team          0..1
//        }
//
//      Codes:
//      class ->
//        0 = Soldier, 1 = Medic, 2 = Engineer, 3 = Field Ops, 4 = Covert Ops
//
//      weapon -> (must match class and team, else default weapon used)
//        0 = Mp40, 1 = thompson,
//        2 = sten, 3 = k43, 4 = silenced k43,
//        5 = Silenced Garand, 6 = FG42, 7 = Garand,
//        8 = mortar (useless),
//        9 = panzer, 10 = mobile mg42, 11 = flame
//
//      team ->
//        0 = Axis, 1 = Allies
// <<<end of main comment

{
funname        "^1Example ^5Bot"  //
class          2 // Engineer
weapon        7 // Garand
team          1 // Allies
}


AlmarM 10-01-2009 09:57

Re: .bot Maker
 
Well this isnt a virus. I know that the .exe's from 'AutoIt' are reconized as virusus. But I also gave u the source... Try downloading 'AutoIt v3'. (www.autoitscript.com).

AlmarM


All times are GMT +2. The time now is 12:27.

Powered by vBulletin® Version 3.8.2
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.