Code:

[Debug]
enable=False
EagleEyes=False
[Main]
FirstRun=False
Filter=baal|chaos
MinGame=1
MaxGame=1000
MinLvl=40
MinPing=-1
MsgType=Ask
MsgNoSpam=10
MsgDelay=60
AllowLadder=True
AllowNonLadder=True
AllowHardcore=True
ProfileUpdate=3
ProfileHead=http://toshley.net/bcp
[Commands]
games=0
login=20
logout=20
forcelogout=60
forcelogin=60
pref=0
career=0
bcpfind=20
bcpeval=20
bcpfastest=20
top=0
getcareer=0
[Aliases]
baal=games
chaos=games
myinfo=career
getinfo=getcareer
[GDB]
username=
password=
location=
[Behavior]
LogoutInvalidFilter=False
LogoutOnExit=True
SaveOnExit=True
LogoutOnPiggy=True
[CRS]
Enable=True
[Messages]
GameReturn=[ %game by %user ]
GameDelimeter=,
NoGames=/me : No games available.
GamePretext=/me : %i Games:
NewGame=/me : New game %game started by %user (level %lvl %class (run #%runid.))
[Translations]
Version=6
LastUpdate=4/24/2010 9:50:39 AM
GetVersion=http://toshley.net/bcp/downloads/translations/getcurrentversion.php
[News]
Location=http://toshley.net/bcp/news/

script("Name") = "BCP"
script("Author") = "vi[r]us (IAreConnection @ StealthBot.net)"
script("Major") = 2
script("Minor") = 5
script("Revision") = 0

Const bcpVID = 20500

' // SETTINGS ARE NOW STORED IN A CONFIG FILE IN THE BOT'S FOLDER CALLED bcp_settings.ini

'===============
'= Parenthesis "(" and ")" denote the user who found the bug, if it is
'= not specified, they were found by the community or a developer.
'===============
' ChangeLog for 2.0.5 (id 20500)
' * Added dozens of debug messages
' * Added EagleEyes, a method to see what the bot sees that most users
' ignore in chat (works similar to .NET IDE's intellisense)
' * Added /bcp version command to check bot version and translations
' * Added /bcp eagleeyes [status] where [status] is "enable" or "disable"
' (no quotes): see above
' * Fixed the problem with users not being found (StealthBot scripts ignore
' scripting events with insufficient arguments, didn't realize that)
' * Open Characters (not ephemeral characters) are now treated as non-diablo players.
'
' ChangeLog for 2.0.4 (id 20400)
' * The plugin is now a StealthBot 2.7 script.
' * Added news module
' * Replaced the old BCP domain I used with the new .net domain
'
' ChangeLog for 2.0.3 (id 20300)
'
' * Added .top command
' * Added .career rank command (sub of career: .career rank)
' * Fixed profile updating
' * Added .getcareer command for getinfo compatability
' * Added a system of/for debug messages to help users diagnose problems
' * Minor typo fixes
' * This release includes a new translation system, old files will be outdated
' but fix themselves by auto-updating
' * Translations are now updated every 2 hours instead of 12.
' * MsgType config entry now accepts "True" and "False" and is reflective
' of True = "Repeat" and False = "Ask"; the old system is still in place
' $ The script still defaults MsgType to "Ask"
' * Properly adjusted the command system to use an "Else" operator on switch
' so that .career and .getcareer are the same as .myinfo and .getinfo
' * The mirror commands .myinfo and .getinfo are now defaulted in config
' * Added ProfileHead config entry; it's the Location section of the bot's
' profile when it updates it. It still includes the VID, however.

' ________________
'/ Foreward
'
' This is BCP 2; BCP 2.0 is a remake of my previous release of 1.8. Using it
' as a model I made this one and improved almost everything. The community's
' favorite features such as auto-spam and fastest game recorded have been
' hard-coded into the script for you.
'
' There are many new features, and many ways to freely change it, moreso than
' the previous version. You may find it hard to adapt to this version. I have made
' it extremely user friendly and it almost sets itself up. You can download a translation
' file or make them yourself. The forum (listed below) can be used to submit them.
'
' You will notice a script function programatically named the GDB. You can research
' it more on the site, but I only plan on making it available to well-respected users of
' Battle.net.
'
' as always, show some love to the StealthBot, PyBot and scripting communities
'
' Have fun guys, good luck
' -iareconnection
'
'\_________________
' / %%%%
' _______________/ %%%%%
'/ Quick Links
'
' ==> Help Topics
' http://toshley.net/bcp/help.php
'
' ==> GDB Explained
' http://toshley.net/bcp/help.php?view=GDB
'
' ==> Forum
' http://toshley.net/forum/
'
'\________________



'%=================================%
'% %
'% do not edit below here %
'% consult bcp_settings.ini %
'% %
'%=================================%

Public bcpFSO, bcpUsers
Public bcpIC, bcpLastGameRequest
Public bcpLastProfileUpdate
Public bcpLastConnect, bcpMarkOffline

Public bcpTmrSec, bcpTmrHr
'// The internal channel contains a bcp_User object without run data to easily swap it.

'// Helpful constants
Const bcp_game_DiabloII = "D2DV"
Const bcp_game_DiabloIIExp = "D2XP"

Class bcp_Banlist
Private FSO

Sub Class_Initialize()
Set FSO = CreateObject("scripting.FileSystemObject")
End Sub

Function IsBanned(Username)
End Function

Sub Ban(Username, Duration)
End Sub
End Class

Class bcp_User
Public Username
Public StatString
Public Product
Public Character
Public CClass
Public Title 'Slayer, etc
Public Level 'Int
Public InGame 'Bool
Public GameObject 'bcp_Game
Public Language

Public IsExpansion 'Bool
Public IsLadder 'Bool
Public IsHardcore 'Bool

Public Runs 'Int
Public Time 'Int
Public Fastest 'Int
Public LastTime 'Int
Public LastGameName

'// Personal
Public HideGameDuration
Public NameOverCharacter
Public HideGDBGame

Public HideLogMsg
Public LastLog

Public LastSeen

'// Temporary
Public CareerResetCode

Sub EmptyGame()
If Not InGame Then Exit Sub
InGame = False
LastTime = GameObject.Duration()
LastGameName = GameObject.Name
End Sub

Sub Parse()
LastSeen = Now()
'Bot name differences, we have to make a system that agrees with both
'because Eric does not love me.
'...
'2.6: (Matriarch Swampie, a ladder level 90 sorceress on realm USEast).
'2.7: (Champion Swampie, a level 90 ladder Sorceress on USEast).

If (Not Product = bcp_game_DiabloII) and (Not Product = bcp_game_DiabloIIExp) Then
Character = Username
CClass = "nonchar"
Title = ""
bcp_EagleMsg Username & " is not using Diablo II or Lord of Destruction (Product: " & Product & ")."
Exit Sub
End If

If InStr(LCase(StatString), "open character") > 0 Then
If Len(Character) = 0 Then
Character = Username
CClass = "nonchar"
Title = ""
Level = 0
bcp_EagleMsg Username & " is an open character, but no record of character found. (Product: " & Product & ")."
Else
bcp_EagleMsg Username & " is an open character, keeping user as """ & Character & """."
End If
Exit Sub
End If

On Error Resume Next : Err.Clear
If UBound(Split(StatString, " ")) < 4 Then Product = "INVALID" : Exit Sub
StatString = Split(StatString, " (")(1)
StatString = Left(StatString, Len(StatString)-1)
partA = Split(Split(StatString, ", ")(0), " ")
partS = Split(StatString, ", ")(1)
partB = Split(Split(StatString, ", ")(1), " ")

If UBound(partA) = 1 Then
Title = partA(0)
Character = partA(1)
Else
Title = "Player"
Character = partA(0)
End If

p = Array("Paladin", "Barbarian", "Assassin", "Druid", "Amazon", "Necromancer", "Sorceress")

Level = Int(Split(Split(partS, " level ")(1), " ")(0))
For i = 0 to UBound(p)
If InStr(LCase(partS), LCase(" " & p(i) & " ")) > 0 Then
CClass = p(i)
Exit For
End If
Next
CClass = LCase(CClass)

If InStr(StatString, " ladder ") Then IsLadder = True
If InStr(StatString, " hardcore ") Then IsHardcore = True
If Product = "D2XP" Then IsExpansion = True
On Error GoTo 0
If Err.Number <> 0 Then AddChat vbRed, "[BCP] StatString Parse error: " & StatString
Err.Clear
'// not the statstring, its what the bot "thinks" the statstring is (so it can be manipulated)
'// this was the problem with the 2.0.4 conversion; some users use different versions with diff
'// statstring values
bcp_EagleMsg "User " & Username & " stats: " & Product & " # [H|" & IsHardcore & "][L|" & IsLadder & "] [" & Title & "] " & Character & ", a level " & Level & " " & CClass & "."
End Sub

Function IsDiablo()
If Product = bcp_game_DiabloII or Product = bcp_game_DiabloIIExp Then
IsDiablo = True
Else
IsDiablo = False
End If
End Function

Function IsOpenCharacter()
If Not IsDiablo() or Int(Level) = 0 Then
IsOpenCharacter = True
Else
IsOpenCharacter = False
End If
End Function

Function FormatString(Message)
m = Message

On Error Resume Next : Err.Clear
a = Array("%user", "%name", "%char", "%class", "%lvl", _
"%runid", "%total", "%avg", "%fst", "%title", _
"%runs", "%game", "%gametime")
b = Array(PreferedName(), Username, Character, CClass, Level, _
Runs+1, bcp_FmtTime(Time), bcp_FmtTime(Average()), bcp_FmtTime(Fastest), Title, _
Runs, GameObject.Name, bcp_FmtTime(GameObject.Duration()))
On Error GoTo 0
If Err.Number <> 0 Then AddChat vbRed, "[BCP] Format error " & Err.Number & ": " & Err.Description

For i = 0 to UBound(a)
m = Replace(m, a(i), b(i))
Next

FormatString = m
End Function

Function GameTimeOK()
If GameObject.Duration() < bcp_Get("main", "MinGame") or GameObject.Duration() > bcp_Get("main", "MaxGame") Then
GameTimeOK = False
Else
GameTimeOK = True
End If
End Function

Sub Save()
path = "bcp_users/" & LCase(Username) & ".user"
If Runs = 0 Then
If bcpFSO.FileExists(path) Then bcpFSO.DeleteFile(path)
Exit Sub
End If

WriteConfigEntry "UData", "Username", CStr(Username), path
WriteConfigEntry "UData", "StatString", CStr(StatString), path
WriteConfigEntry "UData", "Product", CStr(Product), path
WriteConfigEntry "UData", "Level", CStr(Level), path
WriteConfigEntry "UData", "Character", CStr(Character), path
WriteConfigEntry "UData", "CClass", CStr(CClass), path
WriteConfigEntry "UData", "Title", CStr(Title), path
WriteConfigEntry "UData", "Runs", CStr(Runs), path
WriteConfigEntry "UData", "Time", CStr(Time), path
WriteConfigEntry "UData", "Fastest", CStr(Fastest), path
WriteConfigEntry "UData", "LastTime", CStr(LastTime), path
WriteConfigEntry "UData", "LastGameName", CStr(LastGameName), path
WriteConfigEntry "UData", "Language", CStr(Language), path
WriteConfigEntry "Personal", "HideGameDuration", CStr(HideGameDuration), path
WriteConfigEntry "Personal", "NameOverCharacter", CStr(NameOverCharacter), path
WriteConfigEntry "Personal", "HideGDBGame", CStr(HideGDBGame), path
End Sub

Sub GDB_Update(Status)
DoGDB_Update Status, 0
End Sub

Sub GDB_UpdateComp(Status, C)
DoGDB_Update Status, C
End Sub

Sub DoGDB_Update(Status, CompensateGame)
If Runs = 0 Then Exit Sub
Call Save()
If bcp_Get("GDB", "username") = "" or bcp_Get("GDB", "disable") = True Then
Exit Sub
End If

AddChat vbYellow, "[BCP:GDB] Updating " & Username & "..."
i_Status = Status
If HideGDBGame Then
i_Status = ""
AddChat vbYellow, "[BCP:GDB] Hiding " & Username & "'s game on the GDB."
End If
WebString = Username & "|" & _
Character & "|" & _
Runs & "|" & _
Average() & "|" & _
"Realm|" & i_Status & "|" & _
Level & "|" & _
CClass & "|" & _
Time & "|" & _
Fastest

uName = bcp_Get("GDB", "username")
uPassword = bcp_Get("GDB", "password")

webURL = bcp_Get("GDB", "location") & "?u=" & uName & "&p=" & uPassword & "&item1=" & WebString
On Error Resume Next : Err.Clear
SciNet.Cancel
t = Timer
result = SciNet.OpenURL(CStr(webURL))
t = Round(Timer-t, 2)
If Not Err.Number = 0 Then
AddChat vbRed, "[BCP] Note: Failed to update " & Username & " on the GDB."
AddChat vbRed, Space( & Err.Number & ": " & Err.Description
Err.Clear
Else
m = Split(result, " ", 2)
If Int(m(0)) = 1 Then
AddChat vbGreen, "[BCP:GDB] Success: " & m(1) & " (" & t & "s)"
ElseIf Int(m(0)) = 2 Then
AddChat vbCyan, "[BCP:GDB] Update: There is an updated profile for " & Username & "."
newData = Split(m(1), "|")
before = Runs
Username = newData(0)
Character = newData(1)
Runs = Int(newData(2))
'Average
'Realm
Status = newData(5)
Level = Int(newData(6))
CClass = newData(7)
Time = Int(newData()
Fastest = Int(newData(9))
If CompensateGame > 0 Then
timeBonus = CompensateGame
Runs = Runs + 1
Time = Time + timeBonus
End If
Call Save()
AddChat vbCyan, "[BCP:GDB] " & Username & " (" & Character & ") now has " & Runs & " games (had " & before & "), with an average time of " & bcp_FmtTime(Int(Time / Runs)) & "."
Else
AddChat vbRed, "[BCP:GDB] Failure (" & m(0) & "): " & m(1)
End If
End If
On Error GoTo 0
End Sub

Function Rank()
Rank = 0
bubble = bcp_RankBubble()
For i = 1 to UBound(bubble)
If LCase(bubble(i)) = LCase(Username) Then
Rank = i
Exit Function
End If
Next
End Function

Function Average()
If Runs = 0 or Time = 0 Then Average = 0 : Exit Function
Average = Int(Time / Runs)
End Function

Function PreferedName()
If NameOverCharacter Then
PreferedName = Username
Else
PreferedName = Character
End If
End Function

Sub Class_Initialize()
InGame = False
Set GameObject = Nothing
HideGameDuration = False
NameOverCharacter = False
HideGDBGame = False
HideLogMsg = True
Runs = 0
Level = 0
Time = 0
Fastest = 0
LastTime = 0
LastGameName = "Incomplete"
IsLadder = False : IsHardcore = False
LastLog = DateAdd("s", -(bcp_Get("main", "MsgNoSpam")), Now())
CareerResetCode = "~" & Chr(0) & Chr(2) '// Can't type those
End Sub
End Class

Sub bcp_PurgeList(LimitOf)
For Each Key in bcpUsers.Keys
With bcpUsers.Item(Key)
If .Runs < LimitOf Then
.Runs = 0
.Time = 0
.Fastest = 0
.Save
AddChat vbRed, "[BCP] Purge: " & .Username
End If
End With
Next
End Sub

Sub bcp_Folder()
If Not bcpFSO.FolderExists(BotPath() & "bcp_users") Then
bcpFSO.CreateFolder(BotPath() & "bcp_users")
AddChat vbGreen, "[BCP] Users are stored in: {BOTPATH}/bcp_users as configuration files"
End If
End Sub

Class bcp_Game
Public Name
Public Host
Public Started

Function Duration()
Duration = Abs(DateDiff("s", Started, Now()))
End Function

Sub Class_Initialize()
Started = Now()
End Sub
End Class

Function bcp_Mutual(Username)
For Each Friend in Friends
addchat vbgreen, friend.name & ":" & friend.ismutual
If LCase(Friend.Name) = LCase(Username) Then
If Friend.IsMutual Then
bcp_Mutual = True
Else
bcp_Mutual = False
End If
End If
Next
End Function

Function bcp_FixTranslation(Line)

bcp_FixTranslation = Line
For i = 0 to 255
bcp_FixTranslation = Replace(bcp_FixTranslation, "[" & i & "]", Chr(i))
Next
End Function

Function bcp_Translate(Text)
If Not bcpFSO.FileExists(BotPath() & "bcp_translations.txt") Then Exit Function
On Error Resume Next : Err.Clear
Set file = bcpFSO.OpenTextFile(BotPath() & "bcp_translations.txt", 1)
Q = Split(file.ReadAll(), vbCrLf)
lang = "?"
tVer = bcp_Get("Translations", "Version")
phixd = Text
bcp_DebugMsg "Translate: " & phixd

If tVer = 3 Then bcp_DebugMsg "Version 3 check..."

For i = 0 to UBound(Q)
p = Split(Q(i), "|")
If UBound(p) >= 2 Then
Name = p(0)
Game = p(1)
OE = p(2)
bcp_DebugMsg "Checking " & Name & "..."
Else
bcp_DebugMsg "Invalid translation: " & Join(p)
End If

If tVer = 3 Then
'// 3 and lower use padding
Padding = Int(p(3))

If Match(Text, Game, True) Then
lang = Name
D = Split(Game, "*")

p_user = Split(Split(Text, D(0))(1), D(1))(0)
p_prod = Split(Split(Text, D(1))(1), D(2))(0)
p_gamename = Split(Text, D(2))(1)
p_gamename = Left(p_gamename, Len(p_gamename)-1)
If Padding > 0 Then p_gamename = Right(p_gamename, Len(p_gamename)-Padding)
phixd = "Your friend " & p_user & " entered a " & p_prod & " game called " & p_gamename & "."
End If

If Match(Text, OE, True) Then
lang = Name
D = Split(OE, "*")

p_user = Split(Split(Text, D(0))(1), D(1))(0)
phixd = "Your friend " & p_user & " has exited Battle.net."
End If
ElseIf tVer > 3 Then
'// >3 doesn't use padding, it uses char replace
Game = bcp_FixTranslation(Game)
OE = bcp_FixTranslation(OE)
bcp_DebugMsg "Adjusted: " & Game
bcp_DebugMsg "Adjusted: " & OE
If Match(Text, Game, True) Then
lang = Name
D = Split(Game, "*")

p_user = Split(Split(Text, D(0))(1), D(1))(0)
p_prod = Split(Split(Text, D(1))(1), D(2))(0)
p_gamename = Split(Text, D(2))(1)
p_gamename = Left(p_gamename, Len(p_gamename)-1)

phixd = "Your friend " & p_user & " entered a " & p_prod & " game called " & p_gamename & "."
End If

If Match(Text, OE, True) Then
lang = Name
D = Split(OE, "*")

p_user = Split(Split(Text, D(0))(1), D(1))(0)
phixd = "Your friend " & p_user & " has exited Battle.net."
End If
End If
Next
file.Close
bcp_DebugMsg "Fixed from " & lang & " to English: " & phixd
If Err.Number <> 0 Then
AddChat vbRed, "[BCP] Translation error: " & Err.Description
Err.Clear
lang = "?"
phixd = Text
End If

bcp_Translate = Array(lang, phixd)
On Error GoTo 0
End Function

Sub bcp_CheckTranslationsCond()
If DateDiff("s", CDate(bcp_Get("Translations", "LastUpdate")), Now()) > (60 * 60 * 2) or bcp_Get("Translations", "Version") = 0 Then
bcp_CheckTranslations
Else
bcp_DebugMsg "Translations file #" & bcp_Get("Translations", "Version") & ", last updated " & bcp_Get("Translations", "LastUpdate") & "."
End If
End Sub

Sub bcp_CheckNews()
AddChat vbYellow, "[BCP] Checking for recent BCP news..."

Call bcp_Set("News", "Location", CStr("http://toshley.net/bcp/news/"), False)
newsUpdateLoc = bcp_Get("News", "Location")
newsFile = newsUpdateLoc & "news_" & bcpVID & ".txt"

SciNet.Cancel
On Error Resume Next : Err.Clear
data = SciNet.OpenURL(CStr(newsfile))
If Err.Number <> 0 or data = "" Then
AddChat vbRed, "[BCP] An error occured checking for news."
bcp_DebugMsg Err.Description
Err.Clear
Exit Sub
End If
On Error GoTo 0 : Err.Clear

If (InStr(data, "404 Not Found") > 0) Then
AddChat vbRed, "[BCP] An error occured checking for news: item not found"
bcp_DebugMsg "News download got 404ed"
Err.Clear
Exit Sub
End If

part = Split(data, "||")

title = part(0)
lines = Split(part(1), "//")

AddChat vbWhite, " "
AddChat vbWhite, " http://toshley.net/bcp/"
AddChat vbGreen, " --- BCP News ---"
AddChat vbCyan, " " & title
For i = 0 to UBound(lines)
AddChat vbWhite, " " & lines(i)
Next
AddChat vbWhite, " "
End Sub

Sub bcp_CheckTranslations()
transVer = bcp_Get("Translations", "Version")
transLU = bcp_Get("Translations", "LastUpdate")
transUpdateLoc = bcp_Get("Translations", "GetVersion")

Call bcp_Set("Translations", "LastUpdate", CStr(Now()), True)

AddChat vbYellow, "[BCP] Checking for translation updates..."

SciNet.Cancel
On Error Resume Next : Err.Clear
data = SciNet.OpenURL(CStr(transUpdateLoc))
If Err.Number <> 0 or data = "" Then
AddChat vbRed, "[BCP] An error occured checking for translation updates."
bcp_DebugMsg Err.Description
Err.Clear
Exit Sub
End If
On Error GoTo 0 : Err.Clear

serverVer = Int(Split(data, "#")(0))
serverLoc = Split(data, "#")(1)

If serverVer <> transVer Then
AddChat vbYellow, "[BCP] Your translations file is out of date. The script will download it now. Please allow any script control dialogs."
AddChat vbYellow, "[BCP] Source of document (you have " & transVer & ") (server has " & serverVer & "): " & serverLoc

If bcpFSO.FileExists(BotPath() & "bcp_translations.txt") Then
bcpFSO.DeleteFile(BotPath() & "bcp_translations.txt")
End If

t = Timer
SSC.PrintURLToFile "bcp_translations.txt", CStr(serverLoc)
t = Round( Timer-t, 2)
Call bcp_Set("Translations", "Version", CStr(serverVer), True)
AddChat vbGreen, "[BCP] Download complete. Your translations are now up-to-date (" & t & "s.)"
Else
AddChat vbGreen, "[BCP] Your translations file is up to date (" & transVer & ")."
End If
End Sub

Sub bcp_GDBStatus(Status)
If bcp_Get("GDB", "username") = "" or bcp_Get("GDB", "disable") = True Then
Exit Sub
End If
AddChat vbYellow, "[BCP:GDB] Updating bot status..."

uName = bcp_Get("GDB", "username")
uPassword = bcp_Get("GDB", "password")

webURL = bcp_Get("GDB", "location") & "?u=" & uName & "&p=" & uPassword & "&setstatus=" & Replace(Status, " ", "+")
On Error Resume Next : Err.Clear
SciNet.Cancel
t = Timer
result = SciNet.OpenURL(CStr(webURL))
t = Round(Timer-t, 2)
If Not Err.Number = 0 Then
AddChat vbRed, "[BCP] Note: Failed to update " & Username & " on the GDB."
AddChat vbRed, Space( & Err.Number & ": " & Err.Description
Err.Clear
Else
m = Split(result, " ", 2)
If Int(m(0)) = 1 Then
AddChat vbGreen, "[BCP:GDB] Success: " & m(1) & " (" & t & "s)"
Else
AddChat vbRed, "[BCP:GDB] Failure (" & m(0) & "): " & m(1)
End If
End If
On Error GoTo 0
End Sub

Function bcp_TopX(n)
bcp_TopX = ""
bubble = bcp_RankBubble()
If (UBound(bubble) = 0) Then Exit Function
If UBound(bubble) < n Then
t = UBound(bubble)
Else
t = n
End If

For i = 1 to t
If bcpUsers.Exists(bubble(i)) Then
bcp_TopX = bcp_TopX & bubble(i) & " (" & bcpUsers.Item(bubble(i)).Runs & "), "
End If
Next

If bcp_TopX <> "" Then
bcp_TopX = Left(bcp_TopX, Len(bcp_TopX) - 2)
End If
End Function

Function bcp_RankBubble()
Dim b()
Sandbox = Split(Join(bcpUsers.Keys, chr(0)), chr(0))
For i = 0 to UBound(Sandbox)
Sandbox(i) = Sandbox(i) & "|" & bcpUsers.Item(Sandbox(i)).Runs
Next
Total = bcpUsers.Count
ReDim b(Total)
g = 0
k = "?"
n = 0

For i = 1 to Total
For x = 0 to UBound(Sandbox)
If Sandbox(x) <> "" Then
q = Split(Sandbox(x), "|")
If Int(q(1)) > g Then
k = q(0)
g = Int(q(1))
n = x
End If
End If
Next
Sandbox(n) = ""

b(i) = k
g = 0
Next
bcp_RankBubble = b
End Function

Function bcp_FmtTime(Seconds)
If Int(Seconds) < 60 Then bcp_FmtTime = Seconds & "s" : Exit Function
s = Int(Seconds) : m = 0 : h = 0
While s >= 60
s = s - 60
m = m + 1
If m = 60 Then m = 0 : h = h + 1
WEnd
If h > 0 Then ret = ret & h & " hours, "
If m > 0 Then ret = ret & m & " minutes, "
If s > 0 Then ret = ret & s & " seconds, "
bcp_FmtTime = Left(ret, Len(ret)-2)
End Function

Function bcp_FmtGameList()
fmtA = bcp_Get("Messages", "GameReturn") & " "
fmtB = bcp_Get("Messages", "GameDelimeter") & " "

smt = bcp_Get("Messages", "GamePretext") & " "
games = 0
For Each Key in bcpUsers.Keys
With bcpUsers.Item(Key)
If .InGame Then
games = games + 1
smt = smt & .FormatString(fmtA) & fmtB
End If
End With
Next
If games > 0 Then
smt = Replace(Left(smt, Len(smt)-Len(fmtB)), "%i", games)
Else
smt = bcp_Get("Messages", "NoGames")
End If

bcp_FmtGameList = smt
End Function

Sub bcp_Set(Section, Key, Value, Overwrite)
If bcp_Get(Section, Key) <> "" and Overwrite = False Then
Exit Sub
Else
ssc.WriteConfigEntry Section, Key, CStr(Value), "bcp_settings.ini"
bcp_DebugMsg "[BCP] Created config entry for " & Key & "."
Exit Sub
End If
ssc.WriteConfigEntry Section, Key, CStr(Value), "bcp_settings.ini"
End Sub

Function bcp_Get(Section, Key)
bcp_Get = ssc.GetConfigEntry(Section, Key, "bcp_settings.ini")
If bcp_Get = "True" or bcp_Get = "False" Then bcp_Get = CBool(bcp_Get)
if IsNumeric(bcp_Get) Then bcp_Get = Int(bcp_Get)
End Function

Sub bcp_ReadAll()
On Error Resume Next
Set contents = bcpFSO.GetFolder(BotPath & "bcp_users")
For Each file In contents.Files
nameArr = Split(file, "\")
name = "bcp_users/" & nameArr(UBound(nameArr))
Set nameArr = Nothing
If Len(name) > 6 Then
If Right(name, 5) = ".user" Then
Username = GetConfigEntry("UData", "Username", name)
If Not bcpUsers.Exists(Username) and Len(Username) > 3 and Len(Username) < 32 Then
bcpUsers.Add Username, new bcp_User
Err.Clear
With bcpUsers.Item(Username)
.Username = Username
.StatString = GetConfigEntry("UData", "StatString", name)
.Product = GetConfigEntry("UData", "Product", name)
.Character = GetConfigEntry("UData", "Character", name)
.CClass = GetConfigEntry("UData", "CClass", name)
.Title = GetConfigEntry("UData", "Title", name)
.Level = Int(GetConfigEntry("UData", "Level", name))
.Runs = Int(GetConfigEntry("UData", "Runs", name))
.Time = Int(GetConfigEntry("UData", "Time", name))
.Fastest = Int(GetConfigEntry("UData", "Fastest", name))
.LastTime = Int(GetConfigEntry("UData", "LastTime", name))
.LastGameName = GetConfigEntry("UData", "LastGameName", name)
.Language = GetConfigEntry("UData", "Language", name)
.HideGameDuration = CBool(GetConfigEntry("Personal", "HideGameDuration", name))
.NameOverCharacter = CBool(GetConfigEntry("Personal", "NameOverCharacter", name))
.HideGDBGame = CBool(GetConfigEntry("Personal", "HideGDBGame", name))
If Err.Number = 0 Then
Else
If Err.Number = 5 or Err.Number = 13 Then
AddChat vbRed, "[BCP] It is possible " & Username & "'s profile needs to be updated. It should function correctly, however."
Else
AddChat vbRed, "[BCP] Error: " & Err.Number & ": " & Err.Description
End If
Err.Clear
End If
End With
End If
End If
End If
Next
On Error GoTo 0
End Sub

Sub bcp_SaveAll()
For Each Key in bcpUsers.Keys
bcpUsers.Item(Key).Save()
Next
AddChat vbGreen, "[BCP] All users saved."
End Sub

Function bcp_ConcVersion()
bcp_ConcVersion = script("Major") & "." & script("Revision") & "." & script("Minor")
End Function

Sub bcp_Startup()
AddChat vbCyan, "[BCP] Starting up... please wait"
t = Timer
Set bcpFSO = CreateObject("scripting.FileSystemObject")
Set bcpUsers = CreateObject("scripting.Dictionary")
Set bcpIC = CreateObject("scripting.Dictionary")

bcpIC.CompareMode = 1
bcpUsers.CompareMode = 1
bcpMarkOffline = False

'// 2.0

bcp_Set "Debug", "enable", "False", False

bcp_DebugMsg "Dictionaries loaded, creating configuration..."

bcp_Set "Main", "FirstRun", "True", False
bcp_Set "Main", "Filter", "baal|chaos", False
bcp_Set "Main", "MinGame", "60", False
bcp_Set "Main", "MaxGame", "250", False
bcp_Set "Main", "MinLvl", "80", False
bcp_Set "Main", "MinPing", "-1", False
bcp_Set "Main", "MsgType", "Ask", False 'Ask,Repeat
bcp_Set "Main", "MsgNoSpam", "10", False
bcp_Set "Main", "MsgDelay", "60", False
bcp_Set "Main", "AllowLadder", "True", False
bcp_Set "Main", "AllowNonLadder", "True", False
bcp_Set "Main", "AllowHardcore", "True", False

bcp_Set "Commands", "games", "0", False
bcp_Set "Commands", "login", "20", False
bcp_Set "Commands", "logout", "20", False
bcp_Set "Commands", "forcelogout", "60", False
bcp_Set "Commands", "forcelogin", "60", False
bcp_Set "Commands", "pref", "0", False
bcp_Set "Commands", "career", "0", False

bcp_Set "Aliases", "baal", "games", False
bcp_Set "Aliases", "chaos", "games", False

bcp_set "GDB", "username", "", False
bcp_set "GDB", "password", "", False
bcp_set "GDB", "location", "", False

'// 2.0 (1)

bcp_Set "Main", "ProfileUpdate", "3", False

bcp_Set "Behavior", "LogoutInvalidFilter", "False", False
bcp_Set "Behavior", "LogoutOnExit", "True", False
bcp_Set "Behavior", "SaveOnExit", "True", False

bcp_Set "CRS", "Enable", "True", False

bcp_Set "Messages", "GameReturn", "[ %game by %user ]", False
bcp_Set "Messages", "GameDelimeter", ",", False
bcp_Set "Messages", "NoGames", "/me : No games available.", False
bcp_Set "Messages", "GamePretext", "/me : %i Games:", False
bcp_Set "Messages", "NewGame", "/me : New game %game started by %user (level %lvl %class (run #%runid.))", False

'// 2.0 (2)

bcp_Set "Behavior", "LogoutOnPiggy", "True", False
bcp_Set "Commands", "bcpfind", "20", False
bcp_Set "Commands", "bcpeval", "20", False
bcp_Set "Commands", "bcpfastest", "20", False
bcp_Set "Translations", "Version", "0.0", False
bcp_Set "Translations", "LastUpdate", CStr( DateAdd("s", -(60 * 60 * 24), Now()) ), False
bcp_Set "Translations", "GetVersion", "http://toshley.net/bcp/downloads/translations/getcurrentversion.php", False

'// 2.0 (3)
bcp_Set "Commands", "top", "0", False
bcp_Set "Commands", "getcareer", "0", False
bcp_Set "Aliases", "myinfo", "career", False
bcp_Set "Aliases", "getinfo", "getcareer", False
bcp_Set "Main", "ProfileHead", "http://toshley.net/bcp", False

'// 2.0 (4)
'// nothing added in 2.0.4

'// 2.0 (5)
bcp_Set "Debug", "EagleEyes", "False", False

bcp_DebugMsg "Configuration loaded, loading profiles..."

bcp_Folder
bcp_ReadAll

bcpTmrSec = 0 : bcpTmrHr = 0

bcp_DebugMsg "Profiles loaded, creating timers and setting dates..."

'// Old timer creation scheme
'TimerInterval "bcp", "second", 1
'TimerInterval "bcp", "hour", 3600

'TimerEnabled "bcp", "second", True
'TimerEnabled "bcp", "hour", True

'// The new stuff (2.0.4)
CreateObj "LongTimer", "LTsecond"
CreateObj "LongTimer", "LThour"

With LTsecond
.Interval = 1
.Enabled = True
End With

With LThour
.Interval = 3600
.Enabled = True
End With
'// ...

bcpLastProfileUpdate = Now()
bcpLastGameRequest = Now()
bcpLastConnect = Now()

bcp_DebugMsg "Loading completed, finalizing and checking translations..."

If bcp_Get("main", "firstrun") = True Then
AddChat vbGreen, "[BCP] Welcome to BCP " & bcp_ConcVersion() & " by IAreConnection [" & bcpVID & "]."
AddChat vbYellow, "[BCP] If you are running BCP for the first time, please take the time to edit bcp_settings.ini to your liking. It is located in the bot's main folder (Settings->Edit Files->Open Bot Folder.)"
AddChat vbYellow, "[BCP] Note: You may want check for updates over time at: http://toshley.net/bcp"
AddChat vbYellow, "[BCP] Thank you for using BCP."
AddChat vbCyan, "[BCP] Note: You will also need to reset any GDB usernames, locations and passwords."
bcp_Set "main", "firstrun", False, True
Else
t = Round(Timer-t, 2)
If bcpUsers.Count > 100 Then AddChat vbYellow, "[BCP] Note: you have a lot of channel patrons, if you experience intense lag when the bot closes, type ""/bcp cfg set behavior saveonexit False"" (no quotes) to disable mass-save on exit. The command is case sensative."
AddChat vbCyan, "[BCP] BCP " & bcp_ConcVersion() & " by IAreConnection: Loaded " & bcpUsers.Count & " profiles. (" & t & "ms)"
End If

bcp_CheckTranslationsCond

bcp_CheckNews
End Sub

Sub LThour_Timer()
bcp_CheckTranslationsCond
End Sub

Sub LTsecond_Timer()
'On Error Resume Next : Err.Clear

If Not IsOnline and bcpMarkOffline Then
bcpMarkOffline = False
bcp_GDBStatus "Offline"
End If

For Each Key in bcpUsers.Keys
With bcpUsers.Item(Key)
If CBool(.InGame) Then
If .GameObject.Duration() > (bcp_Get("main", "MaxGame") * 1.5) Then
.InGame = False
AddChat vbRed, "[BCP] " & .Username & "'s game has taken too long. Removing."
.GDB_Update("")
End If
End If
End With
Next

'Err.Clear : On Error GoTo 0

If Not IsOnline or (Abs(DateDiff("s", bcpLastConnect, Now())) < 60) Then
'AddChat vbRed, "[BCP] The bot is not online or has just connected. Refraining from messages/profile."
Exit Sub
End If

If LCase(bcp_Get("main", "MsgType")) = "repeat" or (bcp_Get("main", "MsgType") = True) Then
bcpTmrSec = bcpTmrSec + 1
If bcpTmrSec >= bcp_Get("main", "msgdelay") Then
bcpTmrSec = 0
AddQ bcp_FmtGameList()
End If
End If

On Error Resume Next : Err.Clear

x = Int(bcp_Get("Main", "ProfileUpdate"))
If x >= 1 Then
If Int(DateDiff("s", bcpLastProfileUpdate, Now())) > (x * 60) Then
bcpLastProfileUpdate = Now()
bodyOf = MyChannel & " Top Runners: " & vbCrLf
data = Join(Split(bcp_TopX(5), ", "), vbCrLf)
bodyOf = bodyOf & data
SetBotProfile "", "[BCP " & bcp_ConcVersion() & "." & bcpVID & "] " & bcp_Get("Main", "ProfileHead"), bodyOf
bcp_DebugMsg "Profile updated."
End If
End If

Err.Clear : On Error GoTo 0
End Sub

Sub Event_Load()
bcp_Startup
End Sub

Sub Event_LoggedOn(Username, Product)
bcpLastConnect = Now()
bcpMarkOffline = True
bcp_GDBStatus "Online as " & Username
bcp_DebugMsg "Set online status: " & Username
End Sub

Sub Event_ServerInfo(Message)
parts = Split(Message, " ")
If InStr(Message, " your friends list.") > 0 Then
If bcpIC.Exists(parts(1)) Then
If bcpIC.Item(parts(1)).HideLogMsg Then
bcpIC.Item(parts(1)).HideLogMsg = False
AddChat vbYellow, "[BCP] Action OK but hidden."
Exit Sub
End If
Else
AddChat vbRed, "[BCP] Ignoring message, assuming you want it hidden."
Exit Sub
End If

If parts(0) = "Added" Then
'If bcp_Mutual(parts(1)) Then
AddQ "/w " & psD2 & parts(1) & " You have been logged IN."
bcp_DebugMsg "User " & parts(1) & " log action: entry result: success"
'Else
' AddQ "/w " & psD2 & parts(1) & " You have been logged IN, however you have not added me to your friends list."
'End If
ElseIf parts(0) = "Removed" Then
msg = "You have been logged OUT."
If bcpUsers.Exists(parts(1)) Then
With bcpUsers.Item(parts(1))
If .Runs > 1 Then msg = "You have been logged OUT. You have completed " & .Runs & " games at roughly " & bcp_FmtTime(.Average()) & " (" & .Average() & " seconds) per game."
End With
End If

AddQ "/w " & psD2 & parts(1) & " " & msg
bcp_DebugMsg "User " & parts(1) & " log action: removal result: success"
End If
End If
End Sub

Sub Event_ServerError(Message)
parts = Split(Message, " ")
If Message = "You already have the maximum number of friends in your list. You will need to remove some of your friends before adding more." Then
AddQ "BCP Error: There is no more room on my friends list"
bcp_DebugMsg "User " & parts(1) & " log action: entry result: error: friends list is full"
End If

If InStr(Message, " is already in your friends list.") Then
If bcpIC.Exists(parts(0)) Then
If bcpIC.Item(parts(0)).HideLogMsg Then
bcpIC.Item(parts(0)).HideLogMsg = False
AddChat vbYellow, "[BCP] Action OK but hidden."
Exit Sub
End If
Else
AddChat vbRed, "[BCP] Ignoring message, assuming you want it hidden."
Exit Sub
End If

AddQ "/w " & psD2 & parts(0) & " You are already logged IN."
bcp_DebugMsg "User " & parts(1) & " log action: entry result: error: user is already logged in"
End If
End Sub

Sub Event_UserTalk(Username, Flags, Message, Ping)

b = BotVars.Trigger
GetDBEntry Username, a, f
If Left(Message, Len(b)) = b Then
cmd = Split(Mid(Message, Len(b)+1), " ")
Else
Exit Sub
End If

If bcp_Get("aliases", LCase(cmd(0))) <> "" Then
newcmd = bcp_Get("aliases", LCase(cmd(0)))
AddChat vbCyan, "[BCP] " & cmd(0) & " --> " & newcmd
cmd(0) = newcmd
End If

If bcp_Get("commands", LCase(cmd(0))) <> "" Then
cmdA = Int(bcp_Get("commands", LCase(cmd(0))))
If (a < cmdA) and (Not cmdA = 0) Then
AddChat vbRed, "[BCP] Error: " & Username & " is not authorized to do this command"
bcp_DebugMsg "User " & Username & " log action: command result: failure: does not have required " & cmdA & " access to do '" & cmd(0) & "'; has " & a
Exit Sub
End If
Else
Exit Sub
End If

If Not bcpIC.Exists(Username) Then
AddChat vbRed, "[BCP] Error: No channel object for " & Username & "... they may need to rejoin the channel"
bcp_DebugMsg "User " & Username & " log action: precommand result: failure: user doesn't exist in internal channel database"
Exit Sub
End If

Select Case LCase(cmd(0))
Case "games"
If Not LCase(bcp_Get("main", "MsgType")) = "ask" or (bcp_Get("main", "MsgType") = False) Then
AddChat vbRed, "[BCP] Games are repeated."
bcp_DebugMsg "User " & Username & " log action: command result: failure: cannot show games when host requests periodic display"
Exit Sub
Else
If Abs(DateDiff("s", bcpLastGameRequest, Now())) < bcp_Get("main", "MsgNoSpam") Then
AddChat vbRed, "[BCP] Waiting until cooldown expires..."
bcp_DebugMsg "User " & Username & " log action: command result: failure: command fizzled"
Exit Sub
End If
AddQ bcp_FmtGameList()
bcpLastGameRequest = Now()
End If
Case "login"
If DateDiff("s", bcpIC.Item(Username).LastLog, Now()) < bcp_Get("main", "MsgNoSpam") Then
AddChat vbRed, "[BCP] Wait " & (bcp_Get("main", "MsgNoSpam") - Abs(DateDiff("s", bcpIC.Item(Username).LastLog, Now()))) & " seconds."
bcp_DebugMsg "User " & Username & " log action: entry result: failure: user cannot be added if they have logged out less than " & bcp_Get("main", "MsgNoSpam") & "s (MsgNoSpam) ago"
Exit Sub
End If

bcpIC.Item(Username).LastLog = Now()
If (Ping > bcp_Get("main", "MinPing")) and (bcp_Get("main", "MinPing") <> -1) Then
AddQ "/w " & psD2 & Username & " You must have a ping lower than " & bcp_Get("main", "MinPing") & " to login."
bcp_DebugMsg "User " & Username & " log action: entry result: failure: user cannot be added if ping lower than " & bcp_Get("main", "MinPing") & "ms (MinPing)"
Exit Sub
End If

If (Not bcp_Get("main", "AllowHardcore")) and (bcpIC.Item(Username).IsHardcore) Then
AddQ "/w " & psD2 & Username & " Hardcore characters are not permitted to login."
bcp_DebugMsg "User " & Username & " log action: entry result: failure: hardcore characters are not allowed by host"
Exit Sub
End If

If (Not bcp_Get("main", "AllowNonLadder")) and (Not bcpIC.Item(Username).IsLadder) Then
AddQ "/w " & psD2 & Username & " Non-ladder characters are not permitted to login."
bcp_DebugMsg "User " & Username & " log action: entry result: failure: non-ladder characters are not allowed by host"
Exit Sub
End If

If (Not bcp_Get("main", "AllowLadder")) and (bcpIC.Item(Username).IsLadder) Then
AddQ "/w " & psD2 & Username & " Ladder characters are not permitted to login."
bcp_DebugMsg "User " & Username & " log action: entry result: failure: ladder characters are not allowed by host"
Exit Sub
End If

If bcpIC.Item(Username).Level < bcp_Get("main", "MinLvl") Then
AddQ "/w " & psD2 & Username & " You must be at least level " & bcp_Get("main", "MinLvl") & " to login."
bcp_DebugMsg "User " & Username & " log action: entry result: failure: character in IC is lower than required"
Exit Sub
End If
bcpIC.Item(Username).LastLog = Now()
bcpIC.Item(Username).HideLogMsg = False
AddQ "/f a " & Username
Case "logout"
If DateDiff("s", bcpIC.Item(Username).LastLog, Now()) < bcp_Get("main", "MsgNoSpam") Then
AddChat vbRed, "[BCP] Wait " & (bcp_Get("main", "MsgNoSpam") - Abs(DateDiff("s", bcpIC.Item(Username).LastLog, Now()))) & " seconds."
bcp_DebugMsg "User " & Username & " log action: removal result: failure: user cannot be added if they have logged out less than " & bcp_Get("main", "MsgNoSpam") & "s (MsgNoSpam) ago"
Exit Sub
End If

bcpIC.Item(Username).LastLog = DateAdd("n", 3, Now())
bcpIC.Item(Username).HideLogMsg = False
If bcpUsers.Exists(Username) Then bcpUsers.Item(Username).GDB_Update("")
AddQ "/f r " & Username
Case "forcelogin"
If bcpIC.Exists(cmd(1)) Then
bcpIC.Item(cmd(1)).HideLogMsg = True
Else
AddChat vbYellow, "[BCP] I cannot see " & cmd(1) & " in the channel."
End If
AddQ "/f a " & cmd(1)
Case "forcelogout"
If bcpIC.Exists(cmd(1)) Then
bcpIC.Item(cmd(1)).HideLogMsg = True
Else
AddChat vbYellow, "[BCP] I cannot see " & cmd(1) & " in the channel."
End If
AddQ "/f r " & cmd(1)
Case "pref"
If bcpUsers.Exists(Username) Then
If UBound(cmd) = 0 Then
AddQ "/w " & psD2 & Username & " " & _
"Preferences available to you: hidecharacter, hideduration"
Exit Sub
End If

With bcpUsers.Item(Username)
Select Case LCase(cmd(1))
Case "hcn", "hidecharacter", "showaccount", "showname"
If .NameOverCharacter Then
.NameOverCharacter = False
AddQ "/w " & psD2 & Username & " " & _
"Your character will now be shown instead of your account name."
bcp_DebugMsg "User " & Username & " log action: cfg result: success: character shown over account"
Else
.NameOverCharacter = True
AddQ "/w " & psD2 & Username & " " & _
"Your account name will now be shown instead of your character."
bcp_DebugMsg "User " & Username & " log action: cfg result: success: account shown over character"
End If
Case "hd", "hideduration", "hideinfo", "hidedata"
If .HideGameDuration Then
.HideGameDuration = False
AddQ "/w " & psD2 & Username & " " & _
"The bot will now whisper you your last game's duration and name."
bcp_DebugMsg "User " & Username & " log action: cfg result: success: game overview whispered upon return"
Else
.HideGameDuration = True
AddQ "/w " & psD2 & Username & " " & _
"The bot will now refrain from whispering you your game's data."
bcp_DebugMsg "User " & Username & " log action: cfg result: success: game overview muted"
End If
Case "hgdb", "hidegdb", "hidegame"
If .HideGDBStatus Then
.HideGDBStatus = False
AddQ "/w " & psD2 & Username & " " & _
"The bot will no longer disguise your game on the GDB."
bcp_DebugMsg "User " & Username & " log action: cfg result: success: gdb disguise disabled"
Else
.HideGDBStatus = True
AddQ "/w " & psD2 & Username & " " & _
"The bot will now disguise your game on the GDB."
bcp_DebugMsg "User " & Username & " log action: cfg result: success: gdb disguise enabled"
End If
End Select
End With
Else
AddQ "/w " & psD2 & Username & " " & _
"You do not have a career here, you cannot set preferences."
bcp_DebugMsg "User " & Username & " log action: command result: failure: user cannot manipulate the bot's internal commands without a career"
End If
Case "career", "my", "myinfo"
If UBound(cmd) >= 1 Then
user = cmd(1)
Else
user = "info"
End If

If bcpUsers.Exists(Username) Then
With bcpUsers.Item(Username)
Select Case LCase(user)
Case "reset", "delete"
Randomize
.CareerResetCode = CStr(Int( Rnd * 100000 ) + 1000)
AddQ "/w " & psD2 & Username & " " & _
"Please type '" & BotVars.Trigger & "career confirmdelete " & .CareerResetCode & "' (no quotes) to confirm this."
bcp_DebugMsg "User " & Username & " log action: CAREER CODE REQUEST result: success: code = " & .CareerResetCode
Case "confirmdelete", "confirm", "deletecode", "resetcode"
If .CareerResetCode = cmd(2) Then
.Runs = 0
.Time = 0
.Fastest = 0
.Save
AddQ "/w " & psD2 & Username & " " & _
"Your career (runs, time, average, fastest game) has been reset."
bcp_DebugMsg "User " & Username & " log action: CAREER DELETION result: success"
Else
AddQ "/w " & psD2 & Username & " " & _
"Your code is " & .CareerResetCode & "."
End If
Case "rank"
AddQ "/w " & psD2 & Username & " " & _
"Your career ranks #" & .Rank() & " of " & bcpUsers.Count & " on this bot."
Case Else
AddQ "/w " & psD2 & Username & " " & _
"You have completed " & .Runs & " runs at roughly " & bcp_FmtTime(.Average()) & " (" & .Average() & "s) each. Your fastest run was " & bcp_FmtTime(.Fastest) & ". Your last was " & bcp_FmtTime(.LastTime) & "."
End Select
End With
Else
AddQ "/w " & psD2 & Username & " " & _
"You do not have a career here."
bcp_DebugMsg "User " & Username & " log action: command result: failure: user cannot manipulate the bot's internal commands without a career"
End If
Case "getcareer", "getinfo"
Select Case UBound(cmd)
Case 2
user = cmd(1)
op = cmd(2)
Case 1
user = cmd(1)
op = "info"
Case Else
Exit Sub
End Select

If bcpUsers.Exists(user) Then
With bcpUsers.Item(user)
Select Case LCase(op)
Case "rank"
AddQ "/w " & psD2 & Username & " " & _
"The career for " & .Username & " ranks #" & .Rank() & " of " & bcpUsers.Count & " on this bot."
Case Else
AddQ "/w " & psD2 & Username & " " & _
.Username & " has completed " & .Runs & " runs at roughly " & bcp_FmtTime(.Average()) & " (" & .Average() & "s) each. Their fastest run was " & bcp_FmtTime(.Fastest) & ". The last run was " & bcp_FmtTime(.LastTime) & "."
End Select
End With
Else
AddQ "/w " & psD2 & Username & " " & _
"The user " & user & " could not be found. Please use their account name, or type " & BotVars.Trigger & "bcpfind " & user & " to find it."
bcp_DebugMsg "User " & Username & " log action: command result: failure: user not found"
End If
Case "bcpfind", "bcpwhois", "cf"
If UBound(cmd) = 0 Then
u = Username
Else
u = LCase(cmd(1))
For Each Key in bcpIC.Keys
ou = LCase(bcpIC.Item(Key).Username)
oc = LCase(bcpIC.Item(Key).Character)
If (ou = u) or (oc = u) Then
u = Key
Exit For
End If

If (InStr(ou, u) > 0) or (InStr(oc, u) > 0) Then
u = Key
End If
Next
End If

If Not bcpIC.Exists(u) Then
AddQ "/w " & psD2 & Username & " " & _
"Error: the bot has not seen that user since it was started"
Else
With bcpIC.Item(u)
m = "User " & .Username & " "
If .IsDiablo() Then
If .IsOpenCharacter() Then
m = m & "is an open character (last seen: " & bcp_FmtTime( DateDiff("s", .LastSeen, Now())) & ".)"
Else
m = m & "(aka " & .Character & ") is a level " & .Level & " " & .CClass & "."
End If
Else
m = m & "is not using Diablo II (last seen: " & bcp_FmtTime( DateDiff("s", .LastSeen, Now())) & ".)"
End If
End With

AddQ m
End If
Case "bcpeval"
tgames = 0
For Each Key in bcpUsers.Keys
tgames = tgames + bcpUsers.Item(Key).Runs
Next
AddQ "There are " & bcpUsers.Count & " unique profiles on this bot and " & tgames & " total games completed."
Case "bcpfastest", "fastest"
tname = ""
ttime = 9999
For Each Key in bcpUsers.Keys
If bcpUsers.Item(Key).Fastest < ttime Then
tname = Key
ttime = bcpUsers.Item(Key).Fastest
End If
Next

If tname = "" Then
AddQ "/w " & psD2 & Username & " " & _
"Error: the bot has no games to gather this information from"
Else
AddQ "The fastest game completed on this bot was completed in " & bcp_FmtTime(ttime) & " by " & tname & "."
End If
Case "bcptop", "top"
If UBound(cmd) = 0 Then
t = 5
Else
t = Int(cmd(1))
End If
AddQ "/w " & psD2 & Username & " " & _
"Top " & t & " users: " & bcp_TopX(5)
End Select

End Sub

Sub Event_WhisperFromUser(Username, Flags, Message, Ping)

ProperMessageA = bcp_Translate(Message)
If Not ProperMessageA(0) = "?" Then
If bcpUsers.Exists(Username) Then bcpUsers.Item(Username).Language = ProperMessageA(0)
ProperMessage = ProperMessageA(1)
AddChat vbGreen, "[BCP] Translated " & ProperMessageA(0) & " message to English (" & ProperMessage & ")"
Else
ProperMessage = Message
End If

If Match(ProperMessage, "Your friend * has exited Battle.net.", True) Then
If bcpUsers.Exists(Username) Then
With bcpUsers.Item(Username)
If bcp_Get("Behavior", "LogoutOnExit") = True Then
If bcpIC.Exists(Username) Then bcpIC.Item(Username).HideLogMsg = True
AddQ "/f r " & Username
End If

If .InGame Then
AddChat vbRed, "[BCP] User logged off while in a game, run removed."
.InGame = False
Set .GameObject = Nothing
If .Runs > 10 Then .GDB_Update("")
Exit Sub
End If
End With
End If
End If

parts = Split(ProperMessage, " ")
If Match(ProperMessage, "Your friend * entered a * game called *.", True) Then
game = Split(ProperMessage, " game called ")(1)
game = Left(game, Len(game)-1)
gf = Split( CStr(bcp_Get("main", "filter")), "|" )
ok = False
For i = 0 to UBound(gf)
If InStr(LCase(game), LCase(gf(i))) > 0 Then
m = gf(i)
ok = True
End If
Next

For Each Key in bcpUsers.Keys
With bcpUsers.Item(Key)
If .InGame Then
If LCase(game) = LCase(.GameObject.Name) Then
If bcp_Get("Behavior", "LogoutOnPiggy") Then
If bcpIC.Exists(Username) Then
bcpIC.Item(Username).HideLogMsg = True
bcpIC.Item(Username).LastLog = DateAdd("n", 30, Now())
End If
AddQ "/f r " & Username
AddChat vbRed, "[BCP] This game already exists, removing " & Username & " from friends and restricting login for 30 minutes."
bcp_DebugMsg "User " & Username & " log action: game result: error upon creation: piggy backing turned off by host; user removed; user barred for 30 minutes"
Else
AddChat vbRed, "[BCP] This game already exists, the bot will ignore it for this user."
End If
Exit Sub
End If
End If
End With
Next

If Not ok Then
If bcp_Get("Behavior", "LogoutInvalidFilter") Then
If bcpIC.Exists(Username) Then bcpIC.Item(Username).HideLogMsg = True
AddQ "/f r " & Username
bcp_DebugMsg "User " & Username & " log action: removal result: automatic: user joined an untagged game"
Else
AddChat vbRed, "[BCP] Game name has no valid tag, it was ignored."
bcp_DebugMsg "User " & Username & " log action: game result: error upon creation: game has no tags"
End If
Exit Sub
Else
m = game
End If

If bcpUsers.Exists(Username) Then
With bcpUsers.Item(Username)
If .InGame Then
AddChat vbRed, "[BCP] User is already in a game. Resetting game."
bcp_DebugMsg "User " & Username & " log action: game result: automatic: user is doubling games, last game dropped"
.EmptyGame
Set .GameObject = New bcp_Game
.GameObject.Name = game
.GameObject.Host = Username
AddQ .FormatString(bcp_Get("Messages", "NewGame"))
.InGame = True
If .Runs > 10 Then .GDB_Update(m)
Exit Sub
End If

.InGame = True
Set .GameObject = New bcp_Game
.GameObject.Name = game
.GameObject.Host = Username
AddQ .FormatString(bcp_Get("Messages", "NewGame"))
If .Runs > 10 Then .GDB_Update(m)
End With
Else
AddChat vbYellow, "[BCP] User doesn't exist..."
If bcpIC.Exists(Username) Then
bcpUsers.Add Username, bcpIC.Item(Username)
With bcpUsers.Item(Username)
AddChat vbGreen, "[BCP] " & .Title & " " & .Character & " (level " & .Level & ", " & .CClass & ") added to database."
bcp_DebugMsg "User " & Username & " log action: added result: automatic: user created game"
End With

With bcpUsers.Item(Username)
.InGame = True
Set .GameObject = New bcp_Game
.GameObject.Name = game
.GameObject.Host = Username
AddQ .FormatString(bcp_Get("Messages", "NewGame"))
End With
Else
AddChat vbRed, "[BCP] User was not in the database, and had no channel reference. The user couldn't be added properly."
bcp_DebugMsg "User " & Username & " log action: added result: failure: user not found in internal channel"
End If
End If
End If

End Sub

Sub Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatString, Banned)
If bcpUsers.Exists(Username) Then
With bcpUsers.Item(Username)
If .InGame Then
bcp_EagleMsg "User " & Username & " experiencing ephemeral transition, stats update soon"
d = .GameObject.Duration()
If Not .GameTimeOK() Then
AddQ "/w " & psD2 & Username & " Your game was too fast or too slow. (" & d & " seconds)"
.LastGameName = "Invalid"
Call .EmptyGame()
bcp_DebugMsg "User " & Username & " log action: game result: failure: game too fast or too slow"
Else
AddChat vbGreen, "[BCP] " & .Character & " finished " & .GameObject.Name & " in " & d & " seconds."
Call .EmptyGame()
.Runs = .Runs + 1
.Time = .Time + d
If d < .Fastest or .Fastest = 0 Then
If .Fastest > 0 Then m = " This is your fastest game so far."
.Fastest = d
End If

AddQ "/w " & psD2 & Username & " Game #" & .Runs & " (" & .GameObject.Name & ") lasted " & bcp_FmtTime(d) & " (" & d & " seconds)." & m
End If
Set .GameObject = Nothing
Call .GDB_UpdateComp("", d)
End If

.StatString = Message
.Product = Product
.Level = Level
.Parse
End With
End If

If Not bcpIC.Exists(Username) Then
bcpIC.Add Username, new bcp_User
End If

With bcpIC.Item(Username)
.Username = Username
.Product = Product
.Level = Level
.StatString = Message
.Parse
End With
End Sub

Sub Event_UserLeaves(Username, Flags)
'If bcpIC.Exists(Username) Then bcpIC.Remove Username
End Sub

Sub Event_UserInChannel(Username, Flags, Message, Ping, Product, StatUpdate)
If bcpIC.Exists(Username) Then bcpIC.Remove Username
bcpIC.Add Username, new bcp_User
With bcpIC.Item(Username)
.Username = Username
.Product = Product
.Level = Level
'// Fuck 2.6
.StatString = Split(Message, ")")
If UBound(.StatString) > 0 Then
.StatString = .StatString(UBound(.StatString)-1) & ")"
Else
.StatString = Message
End If
.Parse
End With
Message = ""
End Sub

Sub Event_PressedEnter(Text)

If Left(Text, 5) = "/bcp " Then
VetoThisMessage
cmd = Split(Mid(Text, 6), " ")
Select Case LCase(cmd(0))
Case "gdbinfo"
bcp_Set "GDB", "username", cmd(1), True
bcp_Set "GDB", "password", cmd(2), True
AddChat vbGreen, "[BCP] Global database username set to " & cmd(1) & _
" and password set to """ & cmd(2) & """."
Case "gdbloc"
bcp_Set "GDB", "location", cmd(1), True
AddChat vbGreen, "[BCP] Global database location set to: " & cmd(1)
Case "cfg", "config"
Select Case LCase(cmd(1))
Case "get"
AddChat vbGreen, bcp_Get(cmd(2), cmd(3))
Case "set"
Call bcp_Set(cmd(2), cmd(3), Replace(cmd(4), "_", " "))
AddChat vbGreen, bcp_Get(cmd(2), cmd(3))
End Select
Case "purge"
l = Int(cmd(1))
AddChat vbYellow, "[BCP] Purging players with less than " & l & " runs."
bcp_PurgeList l
AddChat vbGreen, "[BCP] Purge complete."
Case "trans", "transtest"
text = ""
For i = 1 to UBound(cmd)
text = text & cmd(i) & " "
Next
text = Trim(text)
r = bcp_Translate(text)
AddChat vbCyan, "[BCP] From " & r(0) & " to English: " & r(1)
Case "version"
AddChat vbCyan, "[BCP] BCP Version " & script("Major") & "." & script("Revision") & "." & script("Minor") & " version ID " & vID & " by vi[r]us -- http://toshley.net/bcp"
AddChat vbCyan, "[BCP] Translations markup last changed 2.0.2 (20210); file version " & bcp_Get("Translations", "Version") & ".0 last updated " & bcp_Get("Translations", "LastUpdate") & "."
Case "eagleeyes", "eagleyes", "eagleye", "eagleeye"
newsetting = False
If (cmd(1) = "disable") Then newsetting = False
If (cmd(1) = "enable") Then newsetting = True
bcp_Set "Debug", "EagleEyes", newsetting, True
AddChat vbGreen, "[BCP] Eagle Eye functionality turned on: " & newsetting
End Select
End If

End Sub

Sub Event_Close()
If bcp_Get("Behavior", "SaveOnExit") Then bcp_SaveAll
bcp_GDBStatus "Absent"
End Sub

Sub bcp_DebugMsg(Text)
If bcp_Get("Debug", "enable") Then AddChat vbRed, "[BCP] [DEBUG] " & Text
End Sub

Sub bcp_EagleMsg(Text)
If bcp_Get("Debug", "EagleEyes") Then AddChat vbWhite, "[BCP] [EAGLE] " & Text
End Sub

MinGame=1
MaxGame=1000
MinLvl=40

MinGame=60
MaxGame=250
MinLvl=80