· 5 years ago · Dec 10, 2020, 07:44 AM
1Script("Name") = "SC Remastered Bot API Helper"
2Script("Abbreviation") = "SCRBAPIH"
3Script("Author") = "Fpa-rF- and PsYChiC-rF-"
4Script("Category") = "Utility"
5Script("Major") = 1
6Script("Minor") = 0
7Script("Revision") = 1
8Script("Description") = "SC Remastered Bot API Helper"
9
10'
11' SCRIPT COMMANDS
12' ===============
13' /autobot - CONNECTS BOT USING CAPIDAPTOR
14
15' SCRIPT SETTINGS
16' ===============
17'ENTER YOUR REQUIRED APIKEY (Get API key from email after /register-bot command in bnet chat)
18Public apikey : apikey = ""
19
20'https://davnit.net/projects/capidaptor/
21'PATH TO CAPIDAPTOR EXE - MUST BE IN A WORKING DIRECTORY
22Public capidaptor_path : capidaptor_path = "C:\PATH\TO\capidaptor.exe"
23
24Sub connectTimer_Timer()
25 connectTimer.Enabled = False
26 Set wShell = CreateObject("WScript.Shell")
27 statusCode = wShell.Run(capidaptor_path, 1, True)
28End Sub
29
30Public Sub Event_Load()
31
32 CreateObj "LongTimer", "connectTimer"
33 connectTimer.Interval = 1
34 connectTimer.Enabled = False
35
36 'DoEvents
37 If OpenCommand("autobot") Is Nothing Then
38 With CreateCommand("autobot")
39 .Description = "SC Remastered Bot API Helper"
40 '.RequiredRank = 0
41 .Save
42 End With
43 End If
44
45
46End Sub
47
48Public Sub Event_Command(Command)
49
50 If LCase(Command.Name) = "autobot" Then
51 AddChat &H99CC00, "Loading CAPIDAPTOR Bot - Please Wait"
52 OpenCAPIDAPTOR()
53 LoadAPIKey()
54 End If
55
56End Sub
57
58Private Sub OpenCAPIDAPTOR()
59
60 connectTimer.Enabled = True
61
62End Sub
63
64Private Sub LoadAPIKey()
65 Call Command(BotVars.Username, "/setserver localhost", True)
66 Call Command(BotVars.Username, "/setname " & apikey, True)
67 Call Command(BotVars.Username, "/setpass nopassword", True)
68 Call Command(BotVars.Username, "/connect", True)
69End Sub