AVCS QCC Generate Random Pause time from range

' Quick Command Creator Inline-Function for VoiceAttack -  Get Macro Function Random Pause
'  by SemlerPDX Jun2020
'  VETERANS-GAMING.COM


Imports Microsoft.VisualBasic
Imports System
Imports System.Text
Imports System.Collections
Imports System.Collections.Generic
Imports System.Data
Imports System.Drawing
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.Linq
Imports System.Xml.Linq
Imports System.Threading.Tasks

Public Class VAInline
    dim pauseRange() as string
    dim pauseLower as integer
    dim pauseUpper as integer
    dim pauseFinal as string
    dim pauseRandom as random = New Random

    Public Sub Main()

        if (VA.GetText("~avcs_qcc_this_step_func") IsNot nothing)

            pauseRange = VA.GetText("~avcs_qcc_this_step_func").Split("-")

            pauseLower = pauseRange(0) * 1000
            pauseUpper = pauseRange(1) * 1000
            pauseFinal = pauseRandom.Next(pauseLower,pauseUpper) / 1000

            VA.SetDecimal("~avcs_qcc_pause_random", pauseFinal.ToString())
            VA.WriteToLog("Pausing for Random time: " + pauseFinal.ToString() + " seconds...","pink")

        end if

    End Sub

End Class