Skip to content
Browse files

Fix overflow in idle timer

Fixes #62 where the max idle time was 546 minutes. Max idle time is now
over 19 years.
  • Loading branch information...
Davnit committed Jan 1, 2018
1 parent 302caf2 commit c51819a8707fa607ea0ba1686c2faeb4ce9a3185
Showing with 5 additions and 5 deletions.
  1. +3 −3 trunk/clsConfig.cls
  2. +1 −1 trunk/frmChat.frm
  3. +1 −1 trunk/modCommandsMisc.bas
@@ -90,7 +90,7 @@ Private m_GreetMessageText As String
Private m_WhisperGreet As Boolean
Private m_IdleMessage As Boolean
Private m_IdleMessageText As String
Private m_IdleMessageDelay As Integer
Private m_IdleMessageDelay As Long
Private m_IdleMessageType As String
Private m_Trigger As String
Private m_BotOwner As String
@@ -571,11 +571,11 @@ Public Property Let IdleMessageText(ByVal sValue As String)
m_IdleMessageText = sValue
End Property

Public Property Get IdleMessageDelay() As Integer
Public Property Get IdleMessageDelay() As Long
IdleMessageDelay = m_IdleMessageDelay
End Property

Public Property Let IdleMessageDelay(ByVal sValue As Integer)
Public Property Let IdleMessageDelay(ByVal sValue As Long)
m_IdleMessageDelay = sValue
End Property

@@ -6244,7 +6244,7 @@ Private Sub tmrIdleTimer_Timer_IdleMsg()

Dim U As String, IdleMsg As String, s() As String
Dim IdleWaitS As String, IdleType As String
Dim IdleWait As Integer, UDP As Byte
Dim IdleWait As Long, UDP As Byte
Dim IsError As Boolean

BotVars.JoinWatch = 0
@@ -162,7 +162,7 @@ Public Sub OnIdle(Command As clsCommandObj)
End Sub

Public Sub OnIdleTime(Command As clsCommandObj)
Dim delay As Integer
Dim delay As Long
If (Command.IsValid) Then
If (LenB(Command.Argument("Delay")) > 0) Then
delay = Val(Command.Argument("Delay"))

0 comments on commit c51819a

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