SC Remastered Bot API Helper

Script("Name")          = "SC Remastered Bot API Helper"
Script("Abbreviation")  = "SCRBAPIH"
Script("Author")        = "Fpa-rF- and PsYChiC-rF-"
Script("Category")      = "Utility"
Script("Major")         = 1
Script("Minor")         = 0
Script("Revision")      = 1
Script("Description")   = "SC Remastered Bot API Helper"

'
' SCRIPT COMMANDS
' ===============
' /autobot  - CONNECTS BOT USING CAPIDAPTOR

' SCRIPT SETTINGS
' ===============
'ENTER YOUR REQUIRED APIKEY (Get API key from email after /register-bot command in bnet chat)
Public apikey : apikey = ""

'https://davnit.net/projects/capidaptor/
'PATH TO CAPIDAPTOR EXE - MUST BE IN A WORKING DIRECTORY
Public capidaptor_path : capidaptor_path = "C:\PATH\TO\capidaptor.exe"

Sub connectTimer_Timer()
    connectTimer.Enabled = False
    Set wShell = CreateObject("WScript.Shell")
    statusCode = wShell.Run(capidaptor_path, 1, True)
End Sub

Public Sub Event_Load()

    CreateObj "LongTimer", "connectTimer"
    connectTimer.Interval = 1
    connectTimer.Enabled = False

    'DoEvents
    If OpenCommand("autobot") Is Nothing Then
        With CreateCommand("autobot")
            .Description = "SC Remastered Bot API Helper"
            '.RequiredRank = 0
            .Save
        End With
    End If


End Sub

Public Sub Event_Command(Command)

    If LCase(Command.Name) = "autobot" Then
        AddChat &H99CC00, "Loading CAPIDAPTOR Bot - Please Wait"
        OpenCAPIDAPTOR()
        LoadAPIKey()
    End If

End Sub

Private Sub OpenCAPIDAPTOR()

    connectTimer.Enabled = True

End Sub

Private Sub LoadAPIKey()
    Call Command(BotVars.Username, "/setserver localhost", True)
    Call Command(BotVars.Username, "/setname " & apikey, True)
    Call Command(BotVars.Username, "/setpass nopassword", True)
    Call Command(BotVars.Username, "/connect", True)
End Sub