'//
Sub Event_Load()
sctimer.Enabled = False
sctimer.Interval = 45000
AddChat vbGreen, "Канальный.Автоприглашалка"
eer = 0: statread = True
End Sub

'//
Sub Event_ServerInfo(Message)
InfoMessage = Message
If InStr(Message, "- Ladder ") > 0 Then
UserStatArray = Split(Message, " ")
Laddername = UserStatArray(2)
ldrlen = Len(UserStatArray(2))
Select Case Mid(UserStatArray(2), 1, ldrlen)
Case "SOLO,"
ladder = "SOLO"
If InStr(Message, ", Level ") > 0 Then
lvllen = Len(UserStatArray(4))
Level = Left(UserStatArray(4), lvllen - 1)
End If
If InStr(Message, ", Wins ") > 0 Then
winlen = Len(UserStatArray(6))
wins = Left(UserStatArray(6), winlen - 1)
End If
If InStr(Message, ", Losses ") > 0 Then
lsslen = Len(UserStatArray(8))
losses = Left(UserStatArray(8), lsslen)
End If
Case "TEAM,"
ladder = "TEAM"
If InStr(Message, ", Level ") > 0 Then
lvllen = Len(UserStatArray(4))
Level = Left(UserStatArray(4), lvllen - 1)
End If
If InStr(Message, ", Wins ") > 0 Then
winlen = Len(UserStatArray(6))
wins = Left(UserStatArray(6), winlen - 1)
End If
If InStr(Message, ", Losses ") > 0 Then
lsslen = Len(UserStatArray(8))
losses = Left(UserStatArray(8), lsslen)
End If
Case "FFA"
ladder = "FFA"
If InStr(Message, ", Level ") > 0 Then
lvllen = Len(UserStatArray(5))
Level = Left(UserStatArray(5), lvllen - 1)
End If
If InStr(Message, ", Wins ") > 0 Then
winlen = Len(UserStatArray(7))
wins = Left(UserStatArray(7), winlen - 1)
End If
If InStr(Message, ", Losses ") > 0 Then
lsslen = Len(UserStatArray(9))
losses = Left(UserStatArray(9), lsslen)
End If
Case Else
ladder = "Unknown": Level = "Unknown": wins = "Unknown": losses = "Unknown"
End Select
End If
wins = Int(wins): losses = Int(losses)
If losses <> 0 And wins <> 0 Then
procent = Int(wins / (wins + losses) * 1000)
procent = procent / 10
End If
Level = Int(Level)
If ladder = "SOLO" Then
sololevel = Level
solowins = wins: sololosses = losses
soloprocent = procent
End If
If ladder = "FFA" Then
ffalevel = Level
ffawins = wins: ffalosses = losses
ffaprocent = procent
End If
If ladder = "TEAM" Then
teamlevel = Level
teamwins = wins: teamlosses = losses
teamprocent = procent
End If
If InStr(Message, "- Ladder ") > 0 And fiks Then Call Inviter
End Sub

'//
Sub Event_ServerError(Message)
ErrorMessage = Message
If InStr(Message, "The invitation failed.") > 0 Then
AddQ "Opps.. the invitation failed."
AddQ "Try again!"
statread = True
End If
If InStr(Message, "Too many server requests") > 0 Then
AddQ "Sry батла глючит напиши ещё :("
statread = True
End If
If InStr(Message, "No stats on record") > 0 Then
AddQ Usrname & " ты не подходиш..."
statread = True
End If
End Sub

'//
Sub Inviter()
If sololevel >= 10 And soloprocent >= 51.5 And statread = False Then
AddQ "hmm " & soloprocent & "% not so bad ^-_-^"
AddQ "Welcome !! :D"
Command BotVars.Username, ".invite " & Usrname, 0
statread = True
fiks = False
Else
If teamlvl >= 15 And teamprocent >= 51.5 And sololevel >= 3 And soloprocent >= 51.5 And statread = False Then
Command BotVars.Username, ".invite " & Usrname, 0
AddQ "Welcome !! :D"
statread = True: fiks = False
Else
If ffalevel > 10 And ffaprocent > 51 And statread = False Then
Command BotVars.Username, ".invite " & Usrname, 0
AddQ "Welcome !! :D"
statread = True: fiks = False
Else
AddQ Usrname & " ты не подходиш..."
statread = True: fiks = False
End If
End If
End If
End Sub

'// Fires when a user on battle.net talks.
'// Срабатывает когда пользователь на battle.net говорит.
Sub Event_UserTalk(Username, Flags, Message, Ping)
Dim myAccess, myFlags
GetDBentry Username, myAccess, myFlags
TalkUsername = Username: TalkMessage = Message
clan = GetInternalDataByUsername(Username, 0)
If LCase(Message) = "join" And statread Then
If clan = "" Then
AddQ "Check stats..."
AddQ "W8 plz..."
AddQ "/stats " & Username & " w3xp"
Usrname = Username
statread = False
fiks = True
sololevel = 0: teamlevel = 0: ffalevel = 0
solowins = 0: teamwins = 0: ffawins = 0
sololosses = 0: teamlosses = 0: ffalosses = 0
soloprocent = 0: teamprocent = 0: ffaprocent = 0
Else
AddQ Username & " ты должен сначала выйти из " & clan
End If
End If
If InStr(LCase(Message), "пинг") > 0 Then
AddQ "" & Username & ", ваш пинг " & Ping & ""
End If
If LCase(Message) = ".whoami" And myAccess <= 0 Then
AddQ "Pease shit is you !!!"
End If
If InStr(LCase(Message), "время") > 0 Then
AddQ "" & Time & ""
End If
If InStr(LCase(Message), ".banme") > 0 Then
AddQ "/ban " & Username & " U say ban u..."
End If
If InStr(LCase(Message), ".kickme") > 0 Then
AddQ "/kick " & Username & " U say kick u..."
End If
End Sub

'// Fires when a user speaks with /emote.
'// Срабатывает когда пользователь говорит с /emote (/me ?)
Sub Event_UserEmote(Username, Flags, Message)
EmoteMessage = Message
'AddChat vbRed, "Пользователь "&Username&" что-то хочет урод !!!"
End Sub

'// Fires when a whisper is recieved.
'// Срабатывает когда принято личное сообщение
Sub Event_WhisperFromUser(Username, Flags, Message)
WhisperMessage = Message
If LCase(Message) = "join" Then AddQ "/stats " & Username & " w3xp"
End Sub

'//
Sub Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)
OrigStatString = OriginalStatstring
game = GetStat(OriginalStatstring, 0)
ChnlName = ChannelName
Level = GetStat(OriginalStatstring, 1)
Level = Int(Level)
race = GetStat(OriginalStatstring, 2)
Icon = GetStat(OriginalStatstring, 3)
clan = GetStat(OriginalStatstring, 4)
stat = "Игра: " & game & ", уровень: " & Level & ", лучшая раса: " & race & ", иконка: " & Icon & ", клан: " & clan & ""
If clan = "" And Level > 3 Then AddQ "Хочеш войти в клан просто напиши join"
End Sub

'//
Sub Event_UserLeaves(Username, Flags)
'
End Sub

'//
Sub Event_FlagUpdate(Username, NewFlags, Ping)
'
End Sub

'//
Sub Event_LoggedOn(Username, Product)
AddChat vbYellow, "Successful Login at " & Product & " !!!"
End Sub

'//
Sub Event_UserInChannel(Username, Flags, Message, Ping, Product)
'
End Sub

'// Flags in this case stores the channel's flags.
'// Флаги в этом случае хранят флаги канала(Я не понял это).
Sub Event_ChannelJoin(ChannelName, Flags)
ChnlName = ChannelName
End Sub

Sub sc_Timer()
flnum = 5
say0 = "/me Xo4EIII B good KJIaH go KaHaJI clan CTT"
say1 = "/me Xo4EIII B good KJIaH go KaHaJI clan CTT"
say2 = "Хочеш в клан го канал clan CTT"
say3 = "Пинг не скажу хочеш узнать пинг зайди на clan CTT"
say4 = "/me Xo4EIII B good KJIaH go KaHaJI clan CTT"
If eer = 0 Then
AddQ "" & say0 & ""
End If
If eer = 1 Then
AddQ "" & say1 & ""
End If
If eer = 2 Then
AddQ "" & say2 & ""
End If
If eer = 3 Then
AddQ "" & say3 & ""
End If
If eer = 4 Then
AddQ "" & say4 & ""
End If
If eer = 5 Then
AddQ "" & say5 & ""
End If
eer = eer + 1
If eer = flnum Then
eer = 0
End If
End Sub

'// Executes after the user presses ENTER in the Send box on the bot. Text will always be processed by the bot and sent to battle.net before arriving here.
'// Исполняется после того как пользователь нажмёт ENTER в боте. Текст всегда будет обрабатываться ботом и отправляться на Battle.net перед передачей сюда.
Sub Event_PressedEnter(Text)
'Addchat vbBrown, "Нажата клавиша Enter."
End Sub

'// Executes when the bot recieves a Profile return from the server. KeyName will be one of the following:
'// Выполняется когда бот принимает профиль возвращенный сервером. keyName будет одним из следующего:
' Profile\Sex
' Profile\Location
' Profile\Description
'// KeyValue will contain the value of that profile key as a string.
'// keyValue содержит значение ключей как строку.
Sub Event_KeyReturn(KeyName, KeyValue)
'AddChat vbRed, ""&KeyName&" "&KeyValue&""
End Sub

'// Executes when the bot is closed. You can use this sub to write things to disk before the bot shuts down.
'// Выполняется когда бота закрывают. Вы можете использовать это для записи на диск перед тем как бот закончит работу.
Sub Event_Close()
AddChat vbGreen, "StealthBot shutdown !!!"
End Sub