' 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
Comments
0 B
|0 👍
/0 👎
0 B
|👍
/👎