Bot Creator Source (AutoHotkey)

#SingleInstance Force
#NoTrayIcon

SetWorkingDir %A_ScriptDir%

IfNotExist, 7z.exe
{
MsgBox, Error: Couldn't find 7z.exe!
ExitApp
}

GUI, -MinimizeBox

GUI, Add, Text, xm+41 Section, Name:
GUI, Add, Edit, ys vBotName Limit31

GUI, Add, Text, ys x+30, Gender:
GUI, Add, DropDownList, ys vBotGender, Male||Female|Cyborg

GUI, Add, Text, xm+48 Section, Skin:
GUI, Add, ComboBox, ys vBotSkin, Base||Base II|Base III|Chaingun Marine|Big Fat Doomguy|Crash|Doom 64 Guy|Illucia|Orion|Phobos|Procyon|Seenas|Strife Guy|Synas

GUI, Add, Text, ys x+10, Color (HEX):
GUI, Add, Edit, ys vBotColor UPPERCASE Limit6

GUI, Add, Text, xm+42 Section, Script:
GUI, Add, DropDownList, ys vBotScript, DFULTBOT||HUMANBOT|FATBOT|SAUSGBOT|CRASHBOT

GUI, Add, Text, xm+24 Section, Accuracy:
GUI, Add, Slider, ys vAccuracy Range-2-6 TickInterval1 ToolTip, 2

GUI, Add, Text, ys x+28, Intellect:
GUI, Add, Slider, ys vIntellect Range-2-6 TickInterval1 ToolTip, 2

GUI, Add, Text, xm+38 Section, Evade:
GUI, Add, Slider, ys vEvade Range-2-6 TickInterval1 ToolTip, 2

GUI, Add, Text, ys, Anticipation:
GUI, Add, Slider, ys vAnticipation Range-2-6 TickInterval1 ToolTip, 2

GUI, Add, Text, xm Section, Reaction Time:
GUI, Add, Slider, ys vReactionTime Range-2-6 TickInterval1 ToolTip, 2

GUI, Add, Text, ys x+14, Perception:
GUI, Add, Slider, ys vPerception Range-2-6 TickInterval1 ToolTip, 2

GUI, Add, Button, xm+10 gCreateBot, Create Bot

GUI, Show, , Bot Creator

Return

GUIClose:
ExitApp

CreateBot:
GUI, Submit
BotName=%BotName%
StringReplace, BotName, BotName, |, , A
FileDelete, C:\Temp\BOTINFO.txt
FileSelectFolder, pk3destination, *%A_ScriptDir%, 1, Select a Destination Folder...
if ErrorLevel=1
{
GUI, Show
Return
}
FileAppend,
(
{
Name = "%BotName%"
Skin = "%BotSkin%"
Gender = "%BotGender%"
Color = "%BotColor%"
RailColor = "Blue"
Script = "%BotScript%"
Accuracy = %Accuracy%
Intellect = %Intellect%
Evade = %Evade%
Anticipation = %Anticipation%
ReactionTime = %ReactionTime%
Perception = %Perception%
}
), C:\Temp\BOTINFO.txt

BotName := RegExReplace(BotName,"[ .\/:*?""<>]")
StringLower, BotName, BotName

RunWait, 7z.exe a -tzip C:\Temp\%BotName%_bot.pk3 C:\Temp\BOTINFO.txt
FileDelete, C:\Temp\BOTINFO.txt
FileMove, C:\Temp\%BotName%_bot.pk3, %pk3destination%, 1
ExitApp