' 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