Skip to content
Permalink
Browse files

- Removed "." from end of stats object .ToString()... this is now add…

…ed in modEvents and should be added by the scripts that use DoStatstringParse() or GetUserStats() depending on their grammar.

- The bot will "skip" UserInChannel events until it joins either its home channel or a silent channel (such as being redirected to the void), so that default channels such as "WarCraft III USA-1" will be joined and left quickly. Should increase log on time, and does so especially when many scripts or plugins are loaded.
  • Loading branch information...
nmbook committed Aug 11, 2009
1 parent 2d381e2 commit 69abd982ba06f193333f4ef852a509481ad31c25
Showing with 14 additions and 2 deletions.
  1. +2 −2 trunk/clsUserStats.cls
  2. +12 −0 trunk/modEvents.bas
@@ -602,7 +602,7 @@ Public Property Get ActsCompleted() As Integer

End Property

Public Property Let ActsCompleted(ByVal i As Integer)
Public Property Let ActsCompleted(ByVal I As Integer)

' ...
m_acts_completed = i
@@ -864,7 +864,7 @@ Public Property Get ToString() As String
End Select

' ...
buf = buf & "."
'buf = buf & "."

' ...
ToString = buf
@@ -16,6 +16,7 @@ End Type

Private m_arrMsgEvents() As MSGFILTER
Private m_eventCount As Integer
Private m_skipUICEvents As Boolean

Public Sub Event_FlagsUpdate(ByVal Username As String, ByVal Message As String, ByVal Flags As Long, _
ByVal Ping As Long, ByVal Product As String, Optional QueuedEventID As Integer = 0)
@@ -334,6 +335,9 @@ Public Sub Event_JoinedChannel(ByVal ChannelName As String, ByVal Flags As Long)
frmChat.AddChat vbRed, "You have joined Clan SBs. For the consideration of the Technical Support Staff: greet, idle, and all scripted messages have been temporarily disabled."
End If

If (m_skipUICEvents) And ((StrComp(BotVars.HomeChannel, ChannelName, vbTextCompare) = 0) Or (g_Channel.IsSilent())) Then
m_skipUICEvents = False
End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' call event script function
@@ -631,6 +635,8 @@ Public Sub Event_LoggedOnAs(Username As String, Product As String)
Call frmChat.FriendListHandler.RequestFriendsList(PBuffer)
End If

m_skipUICEvents = True

Call FullJoin(BotVars.HomeChannel, 5)
Call FullJoin(BotVars.HomeChannel, 2)

@@ -1156,6 +1162,12 @@ Public Sub Event_UserInChannel(ByVal Username As String, ByVal Flags As Long, By
Exit Sub
End If

' if this is the public channel before the home channel,
' skip userinchannel events for quick loading! -Ribose/2009-08-11
If m_skipUICEvents Then
Exit Sub
End If

' ...
UserIndex = _
g_Channel.GetUserIndexEx(CleanUsername(Username))

0 comments on commit 69abd98

Please sign in to comment.
You can’t perform that action at this time.