'Arc
'1.1
'&Auto-Reconnect Plugin:ZergMaster
'//Added ClearQue (Thanks badimo) ~ Snap

Sub Arc_Event_Load()
    Call SetSetting("Arc", "ReconnectTime", "60", "Set this to change the delay between each time it tries to reconnect you. In seconds.", False)
    Call SetSetting("Arc", "ReconnectWhenOnline", False, "Set this to have it reconnect even when currently online.", False)
    Arc_Time = GetSetting("Arc", "ReconnectTime")
    If IsNumeric(Arc_Time) Then
        Arc_Seconds = CInt(Arc_Time)
    Else
        Arc_Seconds = 60
        Call SSC.AddChat(vbRed, "Invalid reconnect time found: " & Arc_Time & "! Reset to 60 seconds.")
        Call SetSetting("Arc", "ReconnectTime", "60", "", True)
    End If
    Call TimerInterval("Arc", "Reconnect", Arc_Seconds)
    Call TimerEnabled("Arc", "Reconnect", True)
End Sub

Sub Arc_Reconnect_Timer()
    Arc_Time = GetSetting("Arc", "ReconnectTime")
    If IsNumeric(Arc_Time) Then
        If CInt(Arc_Time) <> CInt(GetTimerWaiting("Arc", "Reconnect")) Then
            Arc_Seconds = CInt(Arc_Time)
            Call TimerInterval("Arc", "Reconnect", Arc_Seconds)
        End If
    Else
        Call SSC.AddChat(vbRed, "Invalid reconnect time found: " & Arc_Time & "! Reset to 60 seconds.")
        Call SetSetting("Arc", "ReconnectTime", "60", "", True)
        Call TimerInterval("Arc", "Reconnect", 60)
    End If
    If SSC.IsOnline() = False Or GetSetting("Arc", "ReconnectWhenOnline") = True Then
        Call SSC.AddChat(vbYellow, "The Auto-Reconnect Plugin is connecting your bot...")
        Call Command(BotVars.Username, "/cq", True)
        Call SSC.Connect()
    End If
End Sub