frmEdit.vb

Imports System.Text.RegularExpressions
Imports System.Xml
Imports HidSharp
Public Class frmEdit
    Private valLS As Point
    Private valRS As Point
    Private valLT As Integer
    Private valRT As Integer
    Private loopTarget As clsAction
    Private groupTarget As clsActionGroup
    Private asLastTime As Integer = 0

    Private activeFile As clsScriptFile
    Private activeScript As clsScript
    Private activeGroup As clsActionGroup = Nothing

    Private Sub frmEdit_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        saveSettings()
    End Sub

    Private Sub saveSettings()
        SaveSetting(Application.ProductName, "Settings", "Controller1", txtController1.Text)
        SaveSetting(Application.ProductName, "Settings", "Controller2", txtController2.Text)
        SaveSetting(Application.ProductName, "Settings", "Controller3", txtController3.Text)
        SaveSetting(Application.ProductName, "Settings", "Controller4", txtController4.Text)
        SaveSetting(Application.ProductName, "Settings", "Precompile", IIf(cbPrecompile.Checked, "True", "False"))
        SaveSetting(Application.ProductName, "Settings", "Trace", IIf(cbTrace.Checked, "True", "False"))
        SaveSetting(Application.ProductName, "Settings", "SyncWait", IIf(cbSyncWait.Checked, "True", "False"))
        SaveSetting(Application.ProductName, "Settings", "Sync", IIf(cbSync.Checked, "True", "False"))
        SaveSetting(Application.ProductName, "Settings", "SyncIP", txtSync.Text)
        SaveSetting(Application.ProductName, "Settings", "SpeedNudge", nudSpeed.Value.ToString())
    End Sub

    Private Sub frmEdit_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim tTip As New ToolTip
        tTip.AutomaticDelay = 1000
        tTip.SetToolTip(btnAdd, "Add Action")
        tTip.SetToolTip(btnApply, "Apply Changes")
        tTip.SetToolTip(btnMoveDown, "Move Down")
        tTip.SetToolTip(btnMoveUp, "Move Up")
        tTip.SetToolTip(btnDelete, "Delete Action")
        tTip.SetToolTip(btnPlayPause, "Play Script")
        tTip.SetToolTip(btnStop, "Stop Script")

        AddHandler btnA.Click, AddressOf cb_Click
        AddHandler btnB.Click, AddressOf cb_Click
        AddHandler btnX.Click, AddressOf cb_Click
        AddHandler btnY.Click, AddressOf cb_Click
        AddHandler btnLS.Click, AddressOf cb_Click
        AddHandler btnLB.Click, AddressOf cb_Click
        AddHandler btnLT.Click, AddressOf cb_Click
        AddHandler btnRS.Click, AddressOf cb_Click
        AddHandler btnRB.Click, AddressOf cb_Click
        AddHandler btnRT.Click, AddressOf cb_Click
        AddHandler btnDD.Click, AddressOf cb_Click
        AddHandler btnDL.Click, AddressOf cb_Click
        AddHandler btnDR.Click, AddressOf cb_Click
        AddHandler btnDU.Click, AddressOf cb_Click
        AddHandler btnBack.Click, AddressOf cb_Click
        AddHandler btnStart.Click, AddressOf cb_Click
        AddHandler btnGuide.Click, AddressOf cb_Click
        AddHandler pbRS.MouseDown, AddressOf pb_MouseDown
        AddHandler pbLS.MouseDown, AddressOf pb_MouseDown
        AddHandler pbRS.DoubleClick, AddressOf pb_DoubleClick
        AddHandler pbLS.DoubleClick, AddressOf pb_DoubleClick
        AddHandler txtLSX.Validated, AddressOf txtTS_Validating
        AddHandler txtLSY.Validated, AddressOf txtTS_Validating
        AddHandler txtRSX.Validated, AddressOf txtTS_Validating
        AddHandler txtRSY.Validated, AddressOf txtTS_Validating
        AddHandler txtLT.Validated, AddressOf txtTrigger_Validating
        AddHandler txtRT.Validated, AddressOf txtTrigger_Validating

        AddHandler btnLT.Click, AddressOf cTrigger_Click
        AddHandler btnRT.Click, AddressOf cTrigger_Click

        clearScript()
        blankScript()

        txtController1.Text = GetSetting(Application.ProductName, "Settings", "Controller1", "CM1")
        txtController2.Text = GetSetting(Application.ProductName, "Settings", "Controller2", "CM2")
        txtController3.Text = GetSetting(Application.ProductName, "Settings", "Controller3", "CM3")
        txtController4.Text = GetSetting(Application.ProductName, "Settings", "Controller4", "CM4")
        cbPrecompile.Checked = (GetSetting(Application.ProductName, "Settings", "Precompile", "True") = "True")
        cbTrace.Checked = (GetSetting(Application.ProductName, "Settings", "Trace", "True") = "True")
        cbSync.Checked = (GetSetting(Application.ProductName, "Settings", "Sync", "False") = "True")
        cbSyncWait.Checked = (GetSetting(Application.ProductName, "Settings", "SyncWait", "False") = "True")
        txtSync.Text = GetSetting(Application.ProductName, "Settings", "SyncIP", "97.82.214.2")
        nudSpeed.Value = CInt(GetSetting(Application.ProductName, "Settings", "SpeedNudge", "100"))
    End Sub

    Private Sub clearScript()
        rbPress.Checked = True
        valLS = New Point(-32768, -32768)
        valRS = New Point(-32768, -32768)
        valLT = -1
        valRT = -1
        drawPB(pbLS)
        drawPB(pbRS)
        refreshLT()
        refreshRT()
        cmbAdd.SelectedIndex = 0
        loopTarget = Nothing
        txtFlowTarget.Text = vbNullString
        txtGame.Text = vbNullString
        txtTitle.Text = vbNullString
        txtDesc.Text = vbNullString
        cbControllerIP.SelectedIndex = 0

        If Not activeFile Is Nothing Then activeFile.groups.Clear()
        activeFile = New clsScriptFile
        lbGroups.Items.Clear()
        lbActions.Items.Clear()
    End Sub

    Private Sub blankScript()
        activeFile = New clsScriptFile
        Dim g As New clsActionGroup(mainGroup)
        activeFile.groups.Add(g.name, g)
        lbGroups.Items.Add(g)
        activeGroup = g
        lbGroups.SelectedItem = g
        refreshGroup()
    End Sub

    Private Sub cb_Click(sender As System.Object, e As System.EventArgs)
        Dim btn As Button = CType(sender, Button)
        btn.FlatAppearance.BorderSize = 1 - btn.FlatAppearance.BorderSize
    End Sub

    Private Sub cTrigger_Click(sender As System.Object, e As System.EventArgs)
        Dim btn As Button = CType(sender, Button)
        If btn Is btnLT Then
            valLT = IIf(btn.FlatAppearance.BorderSize, 255, -1)
            refreshLT()
        End If
        If btn Is btnRT Then
            valRT = IIf(btn.FlatAppearance.BorderSize, 255, -1)
            refreshRT()
        End If
    End Sub

    Private Sub refreshLT()
        txtLT.Text = IIf(valLT >= 0, valLT, vbNullString)
        btnLT.FlatAppearance.BorderSize = IIf(valLT >= 0, 1, 0)
    End Sub

    Private Sub refreshRT()
        txtRT.Text = IIf(valRT >= 0, valRT, vbNullString)
        btnRT.FlatAppearance.BorderSize = IIf(valRT >= 0, 1, 0)
    End Sub

    Private Sub drawPB(pb As PictureBox)
        Dim x As Integer = 0
        Dim y As Integer = 0
        If pb Is pbLS Then
            x = valLS.X
            y = valLS.Y
            txtLSX.Text = IIf(x > -32768, Math.Round(x / 256, 2), vbNullString)
            txtLSY.Text = IIf(y > -32768, Math.Round(y / 256, 2), vbNullString)
        End If
        If pb Is pbRS Then
            x = valRS.X
            y = valRS.Y
            txtRSX.Text = IIf(x > -32768, Math.Round(x / 256, 2), vbNullString)
            txtRSY.Text = IIf(y > -32768, Math.Round(y / 256, 2), vbNullString)
        End If
        Dim px As Integer = (CDec(x) / 256 + 147) * 52 / 254
        Dim py As Integer = (CDec(y) / 256 + 147) * 52 / 254
        With pb
            .Image = New Bitmap(.Width, .Height)
            Dim g As Graphics = Graphics.FromImage(.Image)
            g.Clear(.BackColor)
            g.DrawImage(.BackgroundImage, New Point((.Width - .BackgroundImage.Width) / 2 - 1, (.Height - .BackgroundImage.Height) / 2 - 1))
            g.DrawRectangle(Pens.White, New Rectangle(4, 4, .Width - 11, .Height - 11))
            If x > -32768 And y > -32768 Then g.FillRectangle(Brushes.Red, New Rectangle(px - 1, py - 1, 3, 3))
            g.Dispose()
            .Invalidate()
        End With
    End Sub

    Private Sub pb_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs)
        Dim px As Integer
        Dim py As Integer
        If e.Button = Windows.Forms.MouseButtons.Right Then
            px = 30
            py = 30
        Else
            px = e.X
            py = e.Y
        End If
        If px > 56 Then px = 56
        If px < 4 Then px = 4
        If py > 56 Then py = 56
        If py < 4 Then py = 4

        Dim pb As PictureBox = CType(sender, PictureBox)
        If pb Is pbLS Then
            valLS.X = Math.Round(CDec(px) * 254 / 52 - 147) * 256
            valLS.Y = Math.Round(CDec(py) * 254 / 52 - 147) * 256
        End If
        If pb Is pbRS Then
            valRS.X = Math.Round(CDec(px) * 254 / 52 - 147) * 256
            valRS.Y = Math.Round(CDec(py) * 254 / 52 - 147) * 256
        End If
        drawPB(pb)
    End Sub

    Private Sub pb_DoubleClick(sender As Object, e As System.EventArgs)
        If sender Is pbLS Then
            valLS.X = -32768
            valLS.Y = -32768
        End If
        If sender Is pbRS Then
            valRS.X = -32768
            valRS.Y = -32768
        End If
        drawPB(sender)
    End Sub

    Private Sub txtTS_Validating(sender As Object, e As System.EventArgs)
        Dim txt As TextBox = CType(sender, TextBox)
        If Trim(txt.Text) = vbNullString Then
            txt.Text = vbNullString
            If txt Is txtLSX Or txt Is txtLSY Then
                valLS.X = -32768
                valLS.Y = -32768
                drawPB(pbLS)
            End If
            If txt Is txtRSX Or txt Is txtRSY Then
                valRS.X = -32768
                valRS.Y = -32768
                drawPB(pbRS)
            End If
            Exit Sub
        End If
        If Not IsNumeric(txt.Text) Then
            If txt Is txtLSX Then txt.Text = valLS.X / 256
            If txt Is txtLSY Then txt.Text = valLS.Y / 256
            If txt Is txtRSX Then txt.Text = valRS.X / 256
            If txt Is txtRSY Then txt.Text = valRS.Y / 256
        End If
        Dim val As Integer = CDec(txt.Text) * 256
        If val < -32767 Then val = -32767
        If val > 32767 Then val = 32767
        If txt Is txtLSX Then
            valLS.X = val
            drawPB(pbLS)
        End If
        If txt Is txtLSY Then
            valLS.Y = val
            drawPB(pbLS)
        End If
        If txt Is txtRSX Then
            valRS.X = val
            drawPB(pbRS)
        End If
        If txt Is txtRSY Then
            valRS.Y = val
            drawPB(pbRS)
        End If
    End Sub

    Private Sub txtTrigger_Validating(sender As Object, e As System.EventArgs)
        Dim txt As TextBox = CType(sender, TextBox)
        If Trim(txt.Text) = vbNullString Then
            txt.Text = vbNullString
            If txt Is txtLT Then
                valLT = -1
                refreshLT()
            End If
            If txt Is txtRT Then
                valRT = -1
                refreshRT()
            End If
            Exit Sub
        End If
        If Not IsNumeric(txt.Text) Then
            If txt Is txtLT Then txt.Text = IIf(valLT > 0, valLT, vbNullString)
            If txt Is txtRT Then txt.Text = IIf(valRT > 0, valRT, vbNullString)
            Exit Sub
        End If
        Dim val As Integer = Math.Round(CDec(txt.Text))
        If val < 0 Then val = 0
        If val > 255 Then val = 255
        If txt Is txtLT Then
            valLT = val
            refreshLT()
        End If
        If txt Is txtRT Then
            valRT = val
            refreshRT()
        End If
    End Sub

    Private Sub rbPress_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbPress.CheckedChanged
        With rbPress
            If .Checked Then
                lblControllerHold.Visible = .Checked
                txtControllerHold.Visible = .Checked
                lblControllerWait.Visible = .Checked
                txtControllerWait.Visible = .Checked
                lblControllerRepeat.Visible = .Checked
                txtControllerRepeat.Visible = .Checked
            End If
        End With
    End Sub

    Private Sub rbRelease_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbRelease.CheckedChanged
        With rbRelease
            If .Checked Then
                lblControllerHold.Visible = Not .Checked
                txtControllerHold.Visible = Not .Checked
                lblControllerWait.Visible = Not .Checked
                txtControllerWait.Visible = Not .Checked
                lblControllerRepeat.Visible = Not .Checked
                txtControllerRepeat.Visible = Not .Checked
            End If
        End With
    End Sub

    Private Sub rbHold_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbHold.CheckedChanged
        With rbHold
            If .Checked Then
                lblControllerHold.Visible = Not .Checked
                txtControllerHold.Visible = Not .Checked
                lblControllerWait.Visible = Not .Checked
                txtControllerWait.Visible = Not .Checked
                lblControllerRepeat.Visible = Not .Checked
                txtControllerRepeat.Visible = Not .Checked
            End If
        End With
    End Sub

    Private Sub rbWait_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbWait.CheckedChanged
        With rbWait
            If .Checked Then
                lblFlowWait.Visible = .Checked
                txtFlowWait.Visible = .Checked
                lblFlowMaxWait.Visible = Not .Checked
                txtFlowMaxWait.Visible = Not .Checked
                lblFlowRepeat.Visible = Not .Checked
                txtFlowRepeat.Visible = Not .Checked
                lblFlowTarget.Visible = Not .Checked
                txtFlowTarget.Visible = Not .Checked
                btnFlowTarget.Visible = Not .Checked
            End If
        End With
    End Sub

    Private Sub rbWaitRandom_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbWaitRandom.CheckedChanged
        With rbWaitRandom
            If .Checked Then
                lblFlowWait.Visible = .Checked
                txtFlowWait.Visible = .Checked
                lblFlowMaxWait.Visible = .Checked
                txtFlowMaxWait.Visible = .Checked
                lblFlowRepeat.Visible = Not .Checked
                txtFlowRepeat.Visible = Not .Checked
                lblFlowTarget.Visible = Not .Checked
                txtFlowTarget.Visible = Not .Checked
                btnFlowTarget.Visible = Not .Checked
            End If
        End With
    End Sub
    Private Sub rbLoop_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbLoop.CheckedChanged
        With rbLoop
            If .Checked Then
                lblFlowWait.Visible = Not .Checked
                txtFlowWait.Visible = Not .Checked
                lblFlowMaxWait.Visible = Not .Checked
                txtFlowMaxWait.Visible = Not .Checked
                lblFlowRepeat.Visible = .Checked
                txtFlowRepeat.Visible = .Checked
                lblFlowTarget.Visible = .Checked
                txtFlowTarget.Visible = .Checked
                btnFlowTarget.Visible = .Checked
            End If
        End With
    End Sub

    Private Sub rbGroup_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbGroup.CheckedChanged
        With rbGroup
            If .Checked Then
                lblFlowWait.Visible = Not .Checked
                txtFlowWait.Visible = Not .Checked
                lblFlowMaxWait.Visible = Not .Checked
                txtFlowMaxWait.Visible = Not .Checked
                lblFlowRepeat.Visible = .Checked
                txtFlowRepeat.Visible = .Checked
                lblFlowTarget.Visible = .Checked
                txtFlowTarget.Visible = .Checked
                btnFlowTarget.Visible = .Checked
            End If
        End With
    End Sub

    Private Sub rbInputVideo_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbInputVideo.CheckedChanged
        With rbInputVideo
            If .Checked Then
                gbVideo.Visible = .Checked
            End If
        End With
    End Sub

    Private Sub rbInputAudio_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbInputAudio.CheckedChanged
        With rbInputAudio
            If .Checked Then
                gbVideo.Visible = Not .Checked
                MsgBox("Not yet supported.")
            End If
        End With
    End Sub

    Private Sub rbInputRumble_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbInputRumble.CheckedChanged
        With rbInputRumble
            If .Checked Then
                gbVideo.Visible = Not .Checked
                MsgBox("Not yet supported.")
            End If
        End With
    End Sub


    'code add
    'code update
    'code delete
    'code move up/down
    'load
    'save
    'play
    'stop
    'pause
    'continue
    'select controller

    'Edit ui:
    'Store path when loading, default to save as that
    'Entries for the 4 main instruction types
    'Add to (before/after/1st/last)
    'Delete selected
    'Internally goto should probably link to another instruction, and just display the line number on tostring
    'Would have tostring for display (with line #) and serialize to save to file
    'Script name
    'Save script
    'Load script
    'Test script (pick controller)
    'Stop script
    'Pause/continue script

    'Playback ui
    'Can open multiple windows
    'Sections have compact/expanded view
    'Controller section, pick method and port
    'Manual section, controller view.
    'Script section, pick script, view current position
    'Run section, stop/pause/continue/start/start all

    '"Compile" to list of just press and release events with links back to parent instructions. But how do we show when wait is active or goto or interleaved press & hold.
    'Waits could compile as null presses
    'Maybe just leave out loop updating?

    '    btnUp = &H100
    'btnDown = &H200
    'btnLeft = &H400
    'btnRight = &H800
    'btnStart = &H1000
    'btnBack = &H2000
    'btnL3 = &H4000
    'btnR3 = &H8000
    'btnLB = &H1
    'btnRB = &H2
    'btnGuide = &H4
    'btnA = &H10
    'btnB = &H20
    'btnX = &H40
    'btnY = &H80

    Public Function btnToMap() As Integer
        Return (btnDU.FlatAppearance.BorderSize * &H100) _
            Or (btnDD.FlatAppearance.BorderSize * &H200) _
            Or (btnDL.FlatAppearance.BorderSize * &H400) _
            Or (btnDR.FlatAppearance.BorderSize * &H800) _
            Or (btnStart.FlatAppearance.BorderSize * &H1000) _
            Or (btnBack.FlatAppearance.BorderSize * &H2000) _
            Or (btnLS.FlatAppearance.BorderSize * &H4000) _
            Or (btnRS.FlatAppearance.BorderSize * &H8000) _
            Or (btnLB.FlatAppearance.BorderSize * &H1) _
            Or (btnRB.FlatAppearance.BorderSize * &H2) _
            Or (btnGuide.FlatAppearance.BorderSize * &H4) _
            Or (btnA.FlatAppearance.BorderSize * &H10) _
            Or (btnB.FlatAppearance.BorderSize * &H20) _
            Or (btnX.FlatAppearance.BorderSize * &H40) _
            Or (btnY.FlatAppearance.BorderSize * &H80)
    End Function

    Public Sub mapToBtn(map As Integer)
        btnDU.FlatAppearance.BorderSize = IIf(map And &H100, 1, 0)
        btnDD.FlatAppearance.BorderSize = IIf(map And &H200, 1, 0)
        btnDL.FlatAppearance.BorderSize = IIf(map And &H400, 1, 0)
        btnDR.FlatAppearance.BorderSize = IIf(map And &H800, 1, 0)
        btnStart.FlatAppearance.BorderSize = IIf(map And &H1000, 1, 0)
        btnBack.FlatAppearance.BorderSize = IIf(map And &H2000, 1, 0)
        btnLS.FlatAppearance.BorderSize = IIf(map And &H4000, 1, 0)
        btnRS.FlatAppearance.BorderSize = IIf(map And &H8000, 1, 0)
        btnLB.FlatAppearance.BorderSize = IIf(map And &H1, 1, 0)
        btnRB.FlatAppearance.BorderSize = IIf(map And &H2, 1, 0)
        btnGuide.FlatAppearance.BorderSize = IIf(map And &H4, 1, 0)
        btnA.FlatAppearance.BorderSize = IIf(map And &H10, 1, 0)
        btnB.FlatAppearance.BorderSize = IIf(map And &H20, 1, 0)
        btnX.FlatAppearance.BorderSize = IIf(map And &H40, 1, 0)
        btnY.FlatAppearance.BorderSize = IIf(map And &H80, 1, 0)
    End Sub

    Private Function createAction() As clsAction
        Dim action As clsAction = Nothing
        If tcActions.SelectedTab Is tpController Then
            If rbRelease.Checked Then action = New clsActionRelease(cbControllerIP.SelectedItem, btnToMap, valLT, valRT, valLS, valRS, activeGroup)
            If rbHold.Checked Then action = New clsActionHold(cbControllerIP.SelectedItem, btnToMap, valLT, valRT, valLS, valRS, activeGroup)
            If rbPress.Checked Then action = New clsActionPress(cbControllerIP.SelectedItem, btnToMap, valLT, valRT, valLS, valRS, unformatMS(txtControllerHold.Text), unformatMS(txtControllerWait.Text), CInt(txtControllerRepeat.Text), activeGroup)
        ElseIf tcActions.SelectedTab Is tpFlow Then
            If rbWait.Checked Then action = New clsActionWait(unformatMS(txtFlowWait.Text), activeGroup)
            If rbWaitRandom.Checked Then action = New clsActionWaitRandom(unformatMS(txtFlowWait.Text), unformatMS(txtFlowMaxWait.Text), activeGroup)
            If rbLoop.Checked Then
                If loopTarget Is Nothing Then MsgBox("You must select a target") Else action = New clsActionLoop(loopTarget, CInt(txtFlowRepeat.Text), activeGroup)
            End If

            If rbGroup.Checked Then
                If groupTarget Is Nothing Then MsgBox("You must select a target") Else action = New clsActionAGroup(groupTarget, CInt(txtFlowRepeat.Text), activeGroup)
            End If
        ElseIf tcActions.SelectedTab Is tpInput Then
            If rbInputVideo.Checked Then action = New clsActionInputVideo(unformatMS(txtInputInterval.Text), unformatMS(txtInputDuration.Text), New Point(txtVideoPixelX.Text, txtVideoPixelY.Text), btnVideoColorMin.BackColor, btnVideoColorMax.BackColor, activeGroup)
            'If rbInputAudio.Checked Then action = New clsActionInputAudio(txtInputInterval.Text, txtInputDuration.Text, <source>,<minvol>,<maxvol>)
            'If rbInputRumble.Checked Then action = New clsActionInputRumble(txtInputInterval.Text, txtInputDuration.Text, <controller>,<rumbletype>,<minval>,<maxval>)
            'todo: create input actions
        ElseIf tcActions.SelectedTab Is tpOutput Then
            If rbOutputAudio.Checked Then
                If txtOutputAudio.Text = vbNullString OrElse Not IO.File.Exists(txtOutputAudio.Text) Then
                    MsgBox("You must select a valid audio file")
                Else
                    action = New clsActionOutputAudio(txtOutputAudio.Text, unformatMS(txtSkip.Text), activeGroup)
                    Dim ai As clsActionOutput = action
                End If
            End If
        End If
        Return action
    End Function

    Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) Handles btnAdd.Click
        Dim action As clsAction = createAction()
        If action Is Nothing Then Exit Sub

        Dim index As Integer = activeGroup.actions.Count
        Select Case Me.cmbAdd.Text
            Case "Last"
            Case "After"
                If lbActions.SelectedItems.Count > 0 Then
                    index = lbActions.SelectedItems(lbActions.SelectedItems.Count - 1).index + 1
                Else
                    index = lbActions.Items.Count
                End If
            Case "Before"
                If lbActions.SelectedItems.Count > 0 Then
                    index = lbActions.SelectedItems(0).index
                Else
                    index = 0
                End If
            Case "First"
                index = 0
        End Select

        action.index = index
        activeGroup.actions.Insert(index, action)
        lbActions.Items.Insert(index, action)
        For i As Integer = index + 1 To activeGroup.actions.Count - 1
            activeGroup.actions(i).index += 1
            lbActions.Items(i).Refresh(lbActions)
        Next
    End Sub

    Private Sub txtNumeric_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles txtFlowRepeat.Validating, txtControllerRepeat.Validating, txtVideoPixelX.Validating, txtVideoPixelY.Validating
        Dim re As New Regex("^\d+$")
        If Not re.IsMatch(sender.text) Then
            e.Cancel = True
            MsgBox("You may only enter numbers in this field.")
        End If
    End Sub

    Private Sub txtTime_Validation(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles txtControllerWait.Validating, txtControllerHold.Validating, txtFlowWait.Validating, txtFlowMaxWait.Validating, txtInputInterval.Validating, txtInputDuration.Validating, txtSkip.Validating
        Dim ms As Long = unformatMS(sender.text)
        If ms = -1 Then
            e.Cancel = True
            MsgBox("You may only enter times in this field." & vbCrLf & "Valid formats are:" & vbCrLf &
                    "1:02:03.004" & vbCrLf &
                    "62:03.004" & vbCrLf &
                    "3723.004" & vbCrLf &
                    "1h2m3s4ms" & vbCrLf &
                    "62m3s4ms" & vbCrLf &
                    "3723s4ms" & vbCrLf &
                    "3723004ms" & vbCrLf)
        End If
        sender.text = formatMS(ms)
    End Sub

    Private Sub btnTgt_Click(sender As System.Object, e As System.EventArgs) Handles btnFlowTarget.Click
        If rbLoop.Checked Then
            loopTarget = lbActions.SelectedItem
            txtFlowTarget.Text = loopTarget.index + 1
        End If
        If rbGroup.Checked Then
            groupTarget = lbGroups.SelectedItem
            If groupTarget Is activeGroup OrElse groupTarget.containsGroup(activeGroup) Then
                MsgBox("A group can't link to itself.")
                groupTarget = Nothing
                txtFlowTarget.Text = vbNullString
            Else
                txtFlowTarget.Text = groupTarget.name
            End If
        End If
    End Sub

    Private Sub btnDelete_Click(sender As System.Object, e As System.EventArgs) Handles btnDelete.Click
        If lbActions.SelectedItems.Count = 0 Then Exit Sub
        Dim lstRemove As New List(Of clsAction)
        For Each action As clsAction In lbActions.SelectedItems
            lstRemove.Add(action)
        Next
        lbActions.BeginUpdate()
        For Each action In lstRemove
            activeGroup.actions.Remove(action)
            lbActions.Items.Remove(action)
            action.delete()
        Next
        For i = lstRemove(0).index To activeGroup.actions.Count - 1
            activeGroup.actions(i).index = i
        Next
        If activeGroup.actions.Count - lstRemove(0).index > 500 Then
            lbActions.RefreshItems()
            For i = lstRemove(0).index To activeGroup.actions.Count - 1
                lbActions.Items(i).Refresh(lbActions, False)
            Next
        Else
            For i = lstRemove(0).index To activeGroup.actions.Count - 1
                lbActions.Items(i).Refresh(lbActions)
            Next
        End If
        lbActions.EndUpdate()
    End Sub

    Private Sub btnMoveUp_Click(sender As System.Object, e As System.EventArgs) Handles btnMoveUp.Click
        'any internals are moved after, then move it before the one previous (if not at beginning)
        If lbActions.SelectedItems.Count = 0 Then Exit Sub
        Dim startindex As Integer = lbActions.SelectedItems(0).index
        If startindex < 1 Then Exit Sub
        Dim endIndex As Integer = lbActions.SelectedItems(lbActions.SelectedItems.Count - 1).index
        Dim lstMove As New List(Of clsAction)
        For Each action As clsAction In lbActions.SelectedItems
            lstMove.Add(action)
        Next
        lbActions.BeginUpdate()
        For Each action In lstMove
            activeGroup.actions.Remove(action)
            lbActions.Items.Remove(action)
        Next
        For i As Integer = lstMove.Count - 1 To 0 Step -1
            activeGroup.actions.Insert(startindex - 1, lstMove(i))
            lbActions.Items.Insert(startindex - 1, lstMove(i))
        Next
        For i As Integer = startindex - 1 To endIndex
            activeGroup.actions(i).index = i
            lbActions.Items(i).refresh(lbActions)
        Next
        For Each action In lstMove
            lbActions.SelectedItems.Add(action)
        Next
        lbActions.EndUpdate()
    End Sub

    Private Sub btnMoveDown_Click(sender As System.Object, e As System.EventArgs) Handles btnMoveDown.Click
        If lbActions.SelectedItems.Count = 0 Then Exit Sub
        Dim endIndex As Integer = lbActions.SelectedItems(lbActions.SelectedItems.Count - 1).index
        If endIndex > lbActions.Items.Count - 2 Then Exit Sub
        Dim startindex As Integer = lbActions.SelectedItems(0).index
        Dim lstMove As New List(Of clsAction)
        For Each action As clsAction In lbActions.SelectedItems
            lstMove.Add(action)
        Next
        lbActions.BeginUpdate()
        For Each action In lstMove
            activeGroup.actions.Remove(action)
            lbActions.Items.Remove(action)
        Next
        For i As Integer = 0 To lstMove.Count - 1
            activeGroup.actions.Insert(startindex + i + 1, lstMove(i))
            lbActions.Items.Insert(startindex + i + 1, lstMove(i))
        Next
        For i As Integer = startindex To endIndex + 1
            activeGroup.actions(i).index = i
            lbActions.Items(i).refresh(lbActions)
        Next
        For Each action In lstMove
            lbActions.SelectedItems.Add(action)
        Next
        lbActions.EndUpdate()
    End Sub

    Private Sub lbActions_DoubleClick(sender As Object, e As System.EventArgs) Handles lbActions.DoubleClick
        If lbActions.SelectedItems.Count <> 1 Then Exit Sub
        Dim action As clsAction = lbActions.SelectedItem
        Select Case action.getActType
            Case ActionType.actWait
                Dim aWait As clsActionWait = action
                tcActions.SelectedTab = tpFlow
                rbWait.Checked = True
                With aWait
                    txtFlowWait.Text = formatMS(.delay)
                End With
            Case ActionType.actWaitRandom
                Dim aWaitRandom As clsActionWaitRandom = action
                tcActions.SelectedTab = tpFlow
                rbWaitRandom.Checked = True
                With aWaitRandom
                    txtFlowWait.Text = formatMS(.minDelay)
                    txtFlowMaxWait.Text = formatMS(.maxDelay)
                End With
            Case ActionType.actLoop
                Dim aLoop As clsActionLoop = action
                tcActions.SelectedTab = tpFlow
                rbLoop.Checked = True
                With aLoop
                    txtFlowRepeat.Text = .repeat
                    loopTarget = .target
                    txtFlowTarget.Text = .target.index + 1
                End With
            Case ActionType.actGroup
                Dim aGroup As clsActionAGroup = action
                tcActions.SelectedTab = tpFlow
                rbGroup.Checked = True
                With aGroup
                    txtFlowRepeat.Text = .repeat
                    groupTarget = .target
                    txtFlowTarget.Text = .target.name
                End With
            Case ActionType.actHold
                Dim aHold As clsActionHold = action
                tcActions.SelectedTab = tpController
                rbHold.Checked = True
                With aHold
                    mapToBtn(.buttonMask)
                    valLT = IIf(.LTDefined, .LT, -1)
                    refreshLT()
                    valRT = IIf(.RTDefined, .RT, -1)
                    refreshRT()
                    If .LS.X = -32768 Or .LS.Y = -32768 Then
                        valLS.X = -32768
                        valLS.Y = -32768
                    Else
                        valLS.X = .LS.X
                        valLS.Y = .LS.Y
                    End If
                    drawPB(pbLS)
                    If .RS.X = -32768 Or .RS.Y = -32768 Then
                        valRS.X = -32768
                        valRS.Y = -32768
                    Else
                        valRS.X = .RS.X
                        valRS.Y = .RS.Y
                    End If
                    drawPB(pbRS)
                    cbControllerIP.SelectedIndex = aHold.controllerNumber - 1
                End With
            Case ActionType.actPress
                Dim aPress As clsActionPress = action
                tcActions.SelectedTab = tpController
                rbPress.Checked = True
                With aPress
                    mapToBtn(.buttonMask)
                    valLT = IIf(.LTDefined, .LT, -1)
                    refreshLT()
                    valRT = IIf(.RTDefined, .RT, -1)
                    refreshRT()
                    If .LS.X = -128 Or .LS.Y = -128 Then
                        valLS.X = -32768
                        valLS.Y = -32768
                    Else
                        valLS.X = .LS.X
                        valLS.Y = .LS.Y
                    End If
                    drawPB(pbLS)
                    If .RS.X = -32768 Or .RS.Y = -32768 Then
                        valRS.X = -32768
                        valRS.Y = -32768
                    Else
                        valRS.X = .RS.X
                        valRS.Y = .RS.Y
                    End If
                    drawPB(pbRS)
                    txtControllerRepeat.Text = .repeat
                    txtControllerWait.Text = formatMS(.waitTime)
                    txtControllerHold.Text = formatMS(.holdTime)
                End With
                cbControllerIP.SelectedIndex = aPress.controllerNumber - 1
            Case ActionType.actRelease
                Dim aRelease As clsActionRelease = action
                tcActions.SelectedTab = tpController
                rbRelease.Checked = True
                With aRelease
                    mapToBtn(.buttonMask)
                    valLT = IIf(.LTDefined, 0, -1)
                    refreshLT()
                    valRT = IIf(.RTDefined, 0, -1)
                    refreshRT()
                End With
                cbControllerIP.SelectedIndex = aRelease.controllerNumber - 1
            Case ActionType.actInputVideo
                Dim aInputVideo As clsActionInputVideo = action
                tcActions.SelectedTab = tpInput
                With aInputVideo
                    txtInputInterval.Text = formatMS(.interval)
                    txtInputDuration.Text = formatMS(.duration)
                    txtVideoPixelX.Text = .pixel.X
                    txtVideoPixelY.Text = .pixel.Y
                    btnVideoColorMin.BackColor = .minColor
                    btnVideoColorMax.BackColor = .maxColor
                End With
            Case ActionType.actInputAudio
                tcActions.SelectedTab = tpInput
                'todo: populate control
            Case ActionType.actInputRumble
                tcActions.SelectedTab = tpInput
                'todo: populate control
            Case ActionType.actOutputAudio
                Dim aOutputAudio As clsActionOutputAudio = action
                tcActions.SelectedTab = tpOutput
                txtOutputAudio.Text = Join(aOutputAudio.paths.ToArray, "|")
                txtSkip.Text = formatMS(aOutputAudio.skipMS)
        End Select
    End Sub

    Private Sub btnApply_Click(sender As System.Object, e As System.EventArgs) Handles btnApply.Click
        If lbActions.SelectedItems.Count <> 1 Then Exit Sub
        Dim action As clsAction = createAction()
        Dim oldAction As clsAction = lbActions.SelectedItem
        action.index = oldAction.index
        For Each referrer In oldAction.referrers
            referrer.target = action
            action.referrers.Add(referrer)
        Next
        activeGroup.actions(lbActions.SelectedIndex) = action
        lbActions.Items(lbActions.SelectedIndex) = action
        action.refresh(lbActions)
        oldAction.referrers.Clear()
        oldAction.delete()
    End Sub

    Private Sub NewToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NewToolStripMenuItem.Click
        clearScript()
        blankScript()
    End Sub

    Private Sub OpenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OpenToolStripMenuItem.Click
        fdOpen.FileName = vbNullString
        fdOpen.InitialDirectory = IO.Path.GetDirectoryName(Reflection.Assembly.GetExecutingAssembly().Location) & "\scripts"
        fdOpen.ShowDialog()
        If fdOpen.FileName = vbNullString Then Exit Sub
        loadScript(fdOpen.FileName)
    End Sub

    Private Sub SaveToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SaveToolStripMenuItem.Click
        MenuStrip1.Focus()
        If activeFile.path = vbNullString Then
            SaveAsToolStripMenuItem_Click(sender, e)
            Exit Sub
        End If
        activeFile.saveScriptXML()
    End Sub

    Private Sub SaveAsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click
        MenuStrip1.Focus()
        fdSave.InitialDirectory = IO.Path.GetDirectoryName(Reflection.Assembly.GetExecutingAssembly().Location) & "\scripts"
        If activeFile.path <> vbNullString Then
            fdSave.FileName = activeFile.path
        Else
            If txtGame.Text = vbNullString Then
                If txtTitle.Text = vbNullString Then
                    fdSave.FileName = vbNullString
                Else
                    fdSave.FileName = fdSave.InitialDirectory & "\" & txtTitle.Text & ".axb"
                End If
            Else
                If txtTitle.Text = vbNullString Then
                    fdSave.FileName = fdSave.InitialDirectory & "\" & txtGame.Text & ".axb"
                Else
                    fdSave.FileName = fdSave.InitialDirectory & "\" & txtGame.Text & " - " & txtTitle.Text & ".axb"
                End If
            End If
        End If
        fdSave.ShowDialog()
        If fdSave.FileName = vbNullString Then Exit Sub
        activeFile.saveScriptXML(fdSave.FileName)
    End Sub

    'Private Sub saveScript(path As String)
    '    Dim sb As New System.Text.StringBuilder
    '    sb.AppendLine("#" & txtGame.Text)
    '    sb.AppendLine("#" & txtTitle.Text)
    '    For Each line As String In txtDesc.Lines
    '        sb.AppendLine("#" & line)
    '    Next
    '    For Each action As clsAction In lbActions.Items
    '        sb.AppendLine(action.serialize)
    '    Next
    '    IO.File.WriteAllText(path, sb.ToString)
    'End Sub

    Private Sub loadScript(path As String)
        loadScript(clsScriptFile.loadScriptXML(path))
    End Sub

    Private Sub loadScript(sf As clsScriptFile)
        clearScript()
        activeFile = sf
        txtGame.Text = activeFile.game
        txtTitle.Text = activeFile.title
        txtDesc.Text = activeFile.description

        For Each g As clsActionGroup In activeFile.groups.Values
            lbGroups.Items.Add(g)
        Next
        If activeFile.groups.ContainsKey(mainGroup) Then activeGroup = activeFile.groups(mainGroup) Else activeGroup = lbGroups.Items(0)
        lbGroups.SelectedItem = activeGroup
        linkActions()
        refreshGroup()
    End Sub

    Private Sub linkActions()
        For Each group In activeFile.groups.Values
            For Each action As clsAction In group.actions
                If action.getActType = ActionType.actLoop Then
                    Dim aLoop As clsActionLoop = action
                    aLoop.linkTarget(group.actions)
                End If
                If action.getActType = ActionType.actGroup Then
                    Dim aGroup As clsActionAGroup = action
                    aGroup.linkTarget(activeFile.groups)
                End If
            Next
        Next
    End Sub

    Private Sub refreshGroup()
        lbGroups.SelectedItem = activeGroup
        lbActions.Items.Clear()
        txtFlowTarget.Text = vbNullString
        groupTarget = Nothing
        loopTarget = Nothing
        If activeGroup.actions.Count = 0 Then Exit Sub
        'Dim oc As New ListBox.ObjectCollection(lbActions, activeGroup.actions.ToArray)
        'Dim oc As New ListBox.ObjectCollection(lbActions)
        lbActions.Items.AddRange(activeGroup.actions.ToArray)
        'lbActions.BeginUpdate()

        'For Each a As clsAction In activeGroup.actions
        'lbActions.Items.Add(a)
        'Next
        'lbActions.EndUpdate()

    End Sub

    Private Sub btnPlayPause_Click(sender As System.Object, e As System.EventArgs) Handles btnPlayPause.Click
        If activeScript Is Nothing Then
            If Not activeGroup Is activeFile.groups(mainGroup) Then
                activeGroup = activeFile.groups(mainGroup)
                refreshGroup()
            End If
            Dim actions As New Generic.List(Of clsAction)
            For Each action As clsAction In activeGroup.actions
                actions.Add(action)
                If action.getActType = ActionType.actGroup Then
                    Dim agAction As clsActionAGroup = action
                    For i As Integer = 1 To agAction.repeat
                        actions.AddRange(agAction.target.getActions())
                    Next
                End If
            Next
            tmrScriptStatus.Enabled = True
            btnStop.Enabled = True
            btnFaster.Enabled = True
            btnSlower.Enabled = True
            Dim controllerIPS As New Dictionary(Of Byte, String)
            If txtController1.Text <> vbNullString Then controllerIPS.Add(1, txtController1.Text)
            If txtController2.Text <> vbNullString Then controllerIPS.Add(2, txtController2.Text)
            If txtController3.Text <> vbNullString Then controllerIPS.Add(3, txtController3.Text)
            If txtController4.Text <> vbNullString Then controllerIPS.Add(4, txtController4.Text)
            activeScript = New clsScript(actions, controllerIPS)
            If activeScript.state = clsScript.scriptState.scriptError Then
                activeScript = Nothing
                tmrScriptStatus.Enabled = False
                btnStop.Enabled = False
                btnFaster.Enabled = False
                btnSlower.Enabled = False
                Exit Sub
            End If
            Dim totalms As Integer = 0
            If activeScript.stateActions.Count > 0 Then totalms = activeScript.stateActions(activeScript.stateActions.Count - 1).timeoffset
            Dim timeString As String = formatMS(totalms)
            If cbPrecompile.Checked Then
                If MsgBox("Ready to Start." & vbCrLf & "Runtime: " & timeString, vbOKCancel) = MsgBoxResult.Cancel Then
                    activeScript.dispose()
                    activeScript = Nothing
                    tmrScriptStatus.Enabled = False
                    btnStop.Enabled = False
                    btnFaster.Enabled = False
                    btnSlower.Enabled = False
                    Exit Sub
                End If
            End If
            If cbSyncWait.Checked Then
                Dim receivingUdpClient As New System.Net.Sockets.UdpClient(12345)
                Dim RemoteIpEndPoint As New System.Net.IPEndPoint(System.Net.IPAddress.Any, 0)
                Dim SyncStart As Boolean = False
                Do Until SyncStart
                    Dim receiveBytes As [Byte]() = receivingUdpClient.Receive(RemoteIpEndPoint)
                    If System.Text.Encoding.ASCII.GetString(receiveBytes) = "AutoGH" Then SyncStart = True
                Loop
                RemoteIpEndPoint = Nothing
                receivingUdpClient.Close()
                receivingUdpClient = Nothing
            End If
            If cbSync.Checked Then
                Dim sck As Net.Sockets.Socket
                sck = New Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Dgram, Net.Sockets.ProtocolType.Udp)
                sck.Connect(txtSync.Text, 12345)
                sck.Send(System.Text.Encoding.ASCII.GetBytes("AutoGH"))
                sck.Close()
            End If
            asLastTime = 0
            activeScript.startScript(cbLoop.Checked)
            setBtnPP(False)
        Else
            Select Case activeScript.state
                Case clsScript.scriptState.finished
                    asLastTime = 0
                    activeScript.startScript(cbLoop.Checked)
                    setBtnPP(False)
                Case clsScript.scriptState.paused
                    activeScript.continueScript()
                    setBtnPP(False)
                Case clsScript.scriptState.ready
                    asLastTime = 0
                    activeScript.startScript(cbLoop.Checked)
                    setBtnPP(False)
                Case clsScript.scriptState.running
                    activeScript.pauseScript()
                    setBtnPP(True)
            End Select
        End If
    End Sub

    Private Sub cbLoop_CheckedChanged(sender As Object, e As EventArgs) Handles cbLoop.CheckedChanged
        If activeScript IsNot Nothing Then
            Dim checkBox As CheckBox = DirectCast(sender, CheckBox)
            activeScript.loopScript(checkBox.Checked)
        End If
    End Sub

    Private Sub setBtnPP(play As Boolean)
        If play Then
            Me.btnPlayPause.Image = Global.AutoGH.My.Resources.Resources.play40
            Me.btnPlayPause.ImageAlign = ContentAlignment.MiddleCenter
        Else
            Me.btnPlayPause.Image = Global.AutoGH.My.Resources.Resources.pause40
            Me.btnPlayPause.ImageAlign = ContentAlignment.MiddleCenter
        End If
    End Sub

    Private Sub btnStop_Click(sender As System.Object, e As System.EventArgs) Handles btnStop.Click
        btnStop.Enabled = False
        btnFaster.Enabled = False
        btnSlower.Enabled = False
        setBtnPP(True)
        lblWaitTime.Text = vbNullString
        'lblWaitTime.Visible = False
        lblTotalTime.Text = vbNullString
        'lblTotalTime.Visible = False
        tmrScriptStatus.Enabled = False
        If Not activeScript Is Nothing Then activeScript.stopScript()
        activeScript = Nothing
    End Sub

    Private Sub tmrScriptStatus_Tick(sender As System.Object, e As System.EventArgs) Handles tmrScriptStatus.Tick
        Static lastAction As clsAction = Nothing
        If activeScript Is Nothing Then
            tmrScriptStatus.Enabled = False
            Exit Sub
        End If
        Dim asState As clsScript.scriptState = System.Threading.Thread.VolatileRead(activeScript.state)

        Select Case asState
            Case clsScript.scriptState.ready, clsScript.scriptState.paused
            Case clsScript.scriptState.running
                If cbTrace.Checked Then
                    Dim asAction As clsAction = System.Threading.Thread.VolatileRead(activeScript.lastAction)
                    Dim asWait As Integer = System.Threading.Thread.VolatileRead(activeScript.totalWait)
                    Dim asStartTime As Date = System.Threading.Thread.VolatileRead(activeScript.startTime)
                    If asLastTime = 0 Then asLastTime = System.Threading.Thread.VolatileRead(activeScript.lastTime)
                    If Not asAction Is lastAction Then
                        lastAction = asAction
                        If Not lastAction Is Nothing Then
                            If Not lastAction.group Is activeGroup Then
                                activeGroup = lastAction.group
                                If Not activeGroup Is Nothing Then
                                    lbGroups.SelectedItem = activeGroup
                                    activeGroup = lbGroups.SelectedItem
                                    refreshGroup()
                                End If
                            End If
                            lbActions.SelectedItems.Clear()
                            If lastAction.original Is Nothing Then
                                lbActions.SelectedItem = lastAction
                                centerAction()
                            Else
                                lbActions.SelectedItem = lastAction.original
                                centerAction()
                            End If
                        End If
                    End If
                    lblWaitTime.Text = formatMS(asWait)
                    Dim curTime As TimeSpan = Now - asStartTime
                    Dim endTime As New TimeSpan(0, 0, 0, 0, asLastTime)
                    If endTime.Days > 0 Then
                        lblTotalTime.Text = curTime.ToString("d\dhh\:mm\:ss") & " / " & endTime.ToString("d\dhh\:mm\:ss")
                    ElseIf endTime.Hours > 0 Then
                        lblTotalTime.Text = curTime.ToString("h\:mm\:ss") & " / " & endTime.ToString("h\:mm\:ss")
                    Else
                        lblTotalTime.Text = curTime.ToString("m\:ss") & " / " & endTime.ToString("m\:ss")
                    End If
                End If
            Case clsScript.scriptState.finished
                btnStop.Enabled = False
                btnFaster.Enabled = False
                btnSlower.Enabled = False
                setBtnPP(True)
                activeScript = Nothing
                lblWaitTime.Text = vbNullString
                tmrScriptStatus.Enabled = False
        End Select
    End Sub

    Private Sub centerAction()
        ' Get the index of the selected item
        Dim selectedIndex As Integer = lbActions.SelectedIndex

        ' Check if an item is selected
        If selectedIndex >= 0 Then
            ' Calculate the index to center the selected item
            Dim centerIndex As Integer = selectedIndex - (lbActions.ClientSize.Height / lbActions.ItemHeight / 2)

            ' Ensure the centerIndex is within valid bounds
            If centerIndex < 0 Then
                centerIndex = 0
            ElseIf centerIndex > lbActions.Items.Count - 1 Then
                centerIndex = lbActions.Items.Count - 1
            End If

            ' Set the TopIndex to center the selected item
            lbActions.TopIndex = centerIndex
        End If
    End Sub

    Private Sub SongToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SongToolStripMenuItem.Click
        Dim ss As New frmMusic
        ss.ShowDialog()
        If Not ss.actions Is Nothing Then
            clearScript()
            blankScript()
            For Each act As clsAction In ss.actions
                act.group = activeGroup
                activeGroup.actions.Add(act)
            Next
            refreshGroup()
            Dim sb As New System.Text.StringBuilder
            sb.AppendLine("Song: " & CType(ss.cbSong.SelectedItem, clsSong).title & " (" & ss.cbGame.SelectedItem.ToString() & ")" & IIf(ss.info <> vbNullString, " - #" & ss.info, ""))
            Dim players As New List(Of String)
            If Not ss.cbTrack0.SelectedItem Is Nothing Then players.Add("#1 " & ss.cbTrack0.SelectedItem.ToString() & " [" & ss.cbLevel0.SelectedItem.ToString() & "]")
            If Not ss.cbTrack1.SelectedItem Is Nothing Then players.Add("#2 " & ss.cbTrack1.SelectedItem.ToString() & " [" & ss.cbLevel1.SelectedItem.ToString() & "]")
            If Not ss.cbTrack2.SelectedItem Is Nothing Then players.Add("#3 " & ss.cbTrack2.SelectedItem.ToString() & " [" & ss.cbLevel2.SelectedItem.ToString() & "]")
            If Not ss.cbTrack3.SelectedItem Is Nothing Then players.Add("#4 " & ss.cbTrack3.SelectedItem.ToString() & " [" & ss.cbLevel3.SelectedItem.ToString() & "]")
            sb.AppendLine("Players: " & Join(players.ToArray, ", "))
            sb.AppendLine()
            sb.AppendLine("To use, install the game to a hard disk/USB stick to make load times consistent, start song manually, then choose to restart, move cursor to accept restart and then begin script, which will press the button to restart and then begin playing.")
            txtDesc.Text = sb.ToString
        End If
        ss.Dispose()
        ss = Nothing
    End Sub

    Private Sub btnRenameGroup_Click(sender As System.Object, e As System.EventArgs) Handles btnRenameGroup.Click
        If CType(lbGroups.SelectedItem, clsActionGroup).name = mainGroup Then
            MsgBox("Can't rename the main action group.")
            Exit Sub
        End If
        Dim ag As clsActionGroup = lbGroups.SelectedItem
        Dim name As String = InputBox("Enter new name:", , ag.name)
        If name = vbNullString Then Exit Sub
        For Each group As clsActionGroup In activeFile.groups.Values
            If group.name.ToUpper() = name.ToUpper() Then
                If group Is ag Then Exit Sub
                MsgBox("That name is already in use.")
                Exit Sub
            End If
        Next

        activeFile.groups.Remove(ag.name)
        ag.name = name
        activeFile.groups.Add(ag.name, ag)
        lbGroups.RefreshItem(lbGroups.SelectedIndex)
    End Sub

    Private Sub btnAddGroup_Click(sender As System.Object, e As System.EventArgs) Handles btnAddGroup.Click
        Dim name As String = InputBox("Enter name of new group:")
        If name = vbNullString Then Exit Sub
        For Each group As clsActionGroup In activeFile.groups.Values
            If group.name.ToUpper() = name.ToUpper() Then
                MsgBox("That name is already in use.")
                Exit Sub
            End If
        Next
        Dim ag As New clsActionGroup(name)
        lbGroups.Items.Add(ag)
        activeFile.groups.Add(ag.name, ag)
    End Sub

    Private Sub btnDeleteGroup_Click(sender As System.Object, e As System.EventArgs) Handles btnDeleteGroup.Click
        If CType(lbGroups.SelectedItem, clsActionGroup).name = mainGroup Then
            MsgBox("Can't delete the main action group.")
            Exit Sub
        End If
        Dim ag As clsActionGroup = lbGroups.SelectedItem
        For Each group As clsActionGroup In activeFile.groups.Values
            If (Not group Is ag) AndAlso group.containsGroup(ag) Then
                MsgBox("This group is used by the group """ & group.name & """ and cannot be deleted.")
                Exit Sub
            End If
        Next
        activeFile.groups.Remove(ag.name)
        lbGroups.Items.Remove(ag)
    End Sub

    Private Sub lbGroups_DoubleClick(sender As Object, e As System.EventArgs) Handles lbGroups.DoubleClick
        If lbGroups.SelectedItem Is Nothing Then Exit Sub
        activeGroup = lbGroups.SelectedItem
        refreshGroup()
    End Sub

    Private Sub PatternToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles PatternToolStripMenuItem.Click
        Dim ss As New frmPattern
        ss.ShowDialog()
        If Not ss.actions Is Nothing Then
            For Each act As clsAction In ss.actions
                act.group = activeGroup
                activeGroup.actions.Add(act)
            Next
            refreshGroup()
        End If
        ss.Dispose()
        ss = Nothing
    End Sub

    Private Sub BridgeModeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles BridgeModeToolStripMenuItem.Click
        saveSettings()
        Dim bf As New frmBridge
        bf.ShowDialog(Me)
        bf.Dispose()
        bf = Nothing
    End Sub

    Private Sub CronusIdentifyToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CronusIdentifyToolStripMenuItem.Click
        Dim cmID As New frmCMIdentify
        cmID.ShowDialog(Me)
        cmID.Dispose()
        cmID = Nothing
    End Sub

    Private Sub validateController(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles txtController1.Validating, txtController2.Validating, txtController3.Validating, txtController4.Validating
        Dim txt As TextBox = CType(sender, TextBox)
        Dim re As New Regex("^((COM\d+)|(CM\d+)|(CM)|P?(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})|)$")
        If Not re.IsMatch(txt.Text) Then
            e.Cancel = True
            MsgBox("Invalid controller target")
        End If
    End Sub

    Private Sub ExportToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExportToolStripMenuItem.Click
        MenuStrip1.Focus()
        fdSave.Filter = "GPC Script|*.gpc"
        Dim gpcFilename As String = vbNullString
        If activeFile.path <> vbNullString Then
            gpcFilename = activeFile.path
        Else
            If txtGame.Text = vbNullString Then
                If txtTitle.Text = vbNullString Then
                    gpcFilename = vbNullString
                Else
                    gpcFilename = fdSave.InitialDirectory & "\" & txtTitle.Text & ".axb"
                End If
            Else
                If txtTitle.Text = vbNullString Then
                    gpcFilename = fdSave.InitialDirectory & "\" & txtGame.Text & ".axb"
                Else
                    gpcFilename = fdSave.InitialDirectory & "\" & txtGame.Text & " - " & txtTitle.Text & ".axb"
                End If
            End If
        End If
        If gpcFilename IsNot Nothing AndAlso gpcFilename.EndsWith(".axb") Then gpcFilename = gpcFilename.Substring(0, gpcFilename.Length - 4) & ".gpc"
        fdSave.FileName = gpcFilename
        fdSave.ShowDialog()
        If fdSave.FileName <> vbNullString Then
            If Not activeGroup Is activeFile.groups(mainGroup) Then
                activeGroup = activeFile.groups(mainGroup)
                refreshGroup()
            End If
            Dim actions As New Generic.List(Of clsAction)
            For Each action As clsAction In activeGroup.actions
                actions.Add(action)
                If action.getActType = ActionType.actGroup Then
                    Dim agAction As clsActionAGroup = action
                    For i As Integer = 1 To agAction.repeat
                        actions.AddRange(agAction.target.getActions())
                    Next
                End If
            Next
            tmrScriptStatus.Enabled = True
            btnStop.Enabled = True
            btnFaster.Enabled = True
            btnSlower.Enabled = True
            Dim controllerIPS As New Dictionary(Of Byte, String)
            If txtController1.Text <> vbNullString Then controllerIPS.Add(1, txtController1.Text)
            If txtController2.Text <> vbNullString Then controllerIPS.Add(2, txtController2.Text)
            If txtController3.Text <> vbNullString Then controllerIPS.Add(3, txtController3.Text)
            If txtController4.Text <> vbNullString Then controllerIPS.Add(4, txtController4.Text)
            Dim expScript As New clsScript(actions, controllerIPS, True)
            Dim sb As New System.Text.StringBuilder
            sb.AppendLine("/* Exported from AutoGH")
            sb.AppendLine("Game:     " & txtGame.Text)
            sb.AppendLine("Script:   " & txtTitle.Text)
            sb.AppendLine("Exported: " & Now.ToString("yyyy/MM/dd HH:mm:ss"))
            sb.AppendLine("Press both LS and RS to stop or start the combo")
            sb.AppendLine(txtDesc.Text)
            sb.AppendLine("*/")
            sb.AppendLine("int ON;")
            sb.AppendLine("main {")
            sb.AppendLine("	if (event_press(XB360_LS)) {if (get_val(XB360_RS)) {ON=!ON;}}")
            sb.AppendLine("	if (event_press(XB360_RS)) {if (get_val(XB360_LS)) {ON=!ON;}}")
            sb.AppendLine("	if (ON) {combo_run(autogh);}")
            sb.AppendLine("	if (!ON){if (combo_running(autogh)) {combo_stop(autogh);}}")
            sb.AppendLine(" }")
            sb.AppendLine()
            sb.AppendLine("combo autogh {")
            Dim groupName As String = vbNullString
            For i As Integer = 0 To expScript.stateActions.Count - 2
                Dim action As clsStatelessAction = expScript.stateActions(i)
                If action.parent.group.name <> "[Main]" AndAlso action.parent.group.name <> groupName Then
                    groupName = action.parent.group.name
                    sb.AppendLine("// " & groupName)
                End If
                Dim delta As Integer = expScript.stateActions(i + 1).timeoffset - expScript.stateActions(i).timeoffset
                Dim vals As String = vbNullString
                If Not action.controller Is Nothing Then vals = CType(action.controller, clsCMHSController).exportReport(action.report)
                While delta > 32000
                    sb.AppendLine(vals & "wait(32000);")
                    delta -= 32000
                End While
                sb.AppendLine(vals & "wait(" & delta & ");")
            Next
            sb.AppendLine("}")
            IO.File.WriteAllText(fdSave.FileName, sb.ToString)
        End If
        fdSave.Filter = "AutoXB Scripts|*.axb"
    End Sub
    'Private Sub ExportToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExportToolStripMenuItem.Click
    '    fdSave.Filter = "AutoXB Net Scripts|*.axn"
    '    fdSave.ShowDialog()
    '    If fdSave.FileName <> vbNullString Then
    '        If Not activeGroup Is groups(mainGroup) Then
    '            activeGroup = groups(mainGroup)
    '            refreshGroup()
    '        End If
    '        Dim actions As New Generic.List(Of clsAction)
    '        For Each action As clsAction In activeGroup.actions
    '            actions.Add(action)
    '            If action.getActType = ActionType.actGroup Then
    '                Dim agAction As clsActionAGroup = Action
    '                For i As Integer = 1 To agAction.repeat
    '                    actions.AddRange(agAction.target.getActions())
    '                Next
    '            End If
    '        Next
    '        tmrScriptStatus.Enabled = True
    '        btnStop.Enabled = True
    '        btnFaster.Enabled = True
    '        btnSlower.Enabled = True
    '        Dim controllerIPS As New Dictionary(Of Byte, String)
    '        If txtController1.Text <> vbNullString Then controllerIPS.Add(1, txtController1.Text)
    '        If txtController2.Text <> vbNullString Then controllerIPS.Add(2, txtController2.Text)
    '        If txtController3.Text <> vbNullString Then controllerIPS.Add(3, txtController3.Text)
    '        If txtController4.Text <> vbNullString Then controllerIPS.Add(4, txtController4.Text)
    '        Dim expScript As New clsScript(actions, controllerIPS, True)
    '        Dim sb As New System.Text.StringBuilder
    '        For Each sa As clsStatelessAction In expScript.stateActions
    '            sb.AppendLine(sa.ToString)
    '        Next
    '        IO.File.WriteAllText(fdSave.FileName, sb.ToString)
    '    End If
    '    fdSave.Filter = "AutoXB Scripts|*.axb"
    'End Sub

    Private Sub CaptureCardToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CaptureCardToolStripMenuItem.Click
        Dim frmCC As New frmCaptureCard
        frmCC.ShowDialog()
        frmCC.Dispose()
        frmCC = Nothing
    End Sub

    Private Sub CapwizToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
        Dim frmCW As New frmcaptureWizard
        frmCW.ShowDialog()
        frmCW.Dispose()
        frmCW = Nothing
    End Sub

    Private Sub rbInput_CheckedChanged(sender As System.Object, e As System.EventArgs)
        cdCapture.ShowDialog()
    End Sub

    Private Sub btnVideoColorMin_Click(sender As System.Object, e As System.EventArgs) Handles btnVideoColorMin.Click
        cdCapture.Color = btnVideoColorMin.BackColor
        cdCapture.ShowDialog()
        If cdCapture.Color = btnVideoColorMin.BackColor Then Exit Sub
        Dim curMin As Color = cdCapture.Color
        Dim curMax As Color = btnVideoColorMax.BackColor
        btnVideoColorMin.BackColor = Color.FromArgb(Math.Min(curMin.R, curMax.R), Math.Min(curMin.G, curMax.G), Math.Min(curMin.B, curMax.B))
        btnVideoColorMax.BackColor = Color.FromArgb(Math.Max(curMin.R, curMax.R), Math.Max(curMin.G, curMax.G), Math.Max(curMin.B, curMax.B))
    End Sub

    Private Sub btnVideoColorMax_Click(sender As System.Object, e As System.EventArgs) Handles btnVideoColorMax.Click
        cdCapture.Color = btnVideoColorMax.BackColor
        cdCapture.ShowDialog()
        If cdCapture.Color = btnVideoColorMax.BackColor Then Exit Sub
        Dim curMin As Color = btnVideoColorMin.BackColor
        Dim curMax As Color = cdCapture.Color
        btnVideoColorMin.BackColor = Color.FromArgb(Math.Min(curMin.R, curMax.R), Math.Min(curMin.G, curMax.G), Math.Min(curMin.B, curMax.B))
        btnVideoColorMax.BackColor = Color.FromArgb(Math.Max(curMin.R, curMax.R), Math.Max(curMin.G, curMax.G), Math.Max(curMin.B, curMax.B))
    End Sub

    Private Sub btnVideoWizard_Click(sender As System.Object, e As System.EventArgs) Handles btnVideoWizard.Click
        Dim vwf As New frmcaptureWizard
        vwf.ShowDialog()
        If vwf.Canceled Then Exit Sub
        txtVideoPixelX.Text = vwf.pos.X
        txtVideoPixelY.Text = vwf.pos.Y
        btnVideoColorMin.BackColor = vwf.minColor
        btnVideoColorMax.BackColor = vwf.maxColor
    End Sub

    Private Sub USBDeviceFinderToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles USBDeviceFinderToolStripMenuItem.Click
        MsgBox("Please have the device you want to identify unplugged before proceeding.")
        Dim before As New Dictionary(Of String, String)
        For Each hdev As HidDevice In DeviceList.Local.GetDevices(DeviceTypes.Hid)
            If Not before.ContainsKey(hdev.DevicePath) Then before.Add(hdev.DevicePath, hdev.DevicePath)
            'hdev.Capabilities.
        Next
        MsgBox("Please attach the device to be identified.")
        Dim newdevs As New System.Text.StringBuilder
        For Each hdev As HidDevice In DeviceList.Local.GetDevices(DeviceTypes.Hid)
            If Not before.ContainsKey(hdev.DevicePath) Then
                If newdevs.Length > 0 Then newdevs.AppendLine("******************************")
                newdevs.AppendLine(String.Format("{0,-10}{1}", "Path:", hdev.DevicePath))
                newdevs.AppendLine(String.Format("{0,-10}{1}", "Name:", hdev.GetFriendlyName))
                newdevs.AppendLine(String.Format("{0,-10}{1:X4}:{2:X4}", "VIP/PID:", hdev.VendorID, hdev.ProductID))
            End If
        Next
        If newdevs.Length > 0 Then
            MsgBox("The new device info has been copied to the clipboard.")
            Clipboard.SetText(newdevs.ToString)
        Else
            MsgBox("No new HID Devices found.")
        End If
    End Sub

    Private Sub DJHero1ToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DJHero1ToolStripMenuItem.Click
        fdOpen.Filter = "TrackListing.xml|TrackListing.xml"
        fdOpen.FileName = vbNullString
        fdOpen.InitialDirectory = IO.Path.GetDirectoryName(Reflection.Assembly.GetExecutingAssembly().Location) & "\GH\DJH1"
        If fdOpen.ShowDialog() = DialogResult.Cancel Then
            fdOpen.Filter = "AutoXB Scripts|*.axb"
            Exit Sub
        End If
        fdOpen.Filter = "AutoXB Scripts|*.axb"
        If fdOpen.FileName = vbNullString Then Exit Sub
        createDJH1Scripts(fdOpen.FileName)
    End Sub

    Private Sub MirroringToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MirroringToolStripMenuItem.Click
        Dim controllerIPS As New Dictionary(Of Byte, String)
        If txtController1.Text <> vbNullString Then controllerIPS.Add(1, txtController1.Text)
        If txtController2.Text <> vbNullString Then controllerIPS.Add(2, txtController2.Text)
        If txtController3.Text <> vbNullString Then controllerIPS.Add(3, txtController3.Text)
        If txtController4.Text <> vbNullString Then controllerIPS.Add(4, txtController4.Text)
        Dim frm As New frmMirror(controllerIPS)
        frm.ShowDialog()
    End Sub

    Private Sub btnOutputAudio_Click(sender As Object, e As EventArgs) Handles btnOutputAudio.Click
        fdOpen.Filter = "Audio Files|*.mp3;*.wav"
        fdOpen.Multiselect = True
        fdOpen.FileName = vbNullString
        fdOpen.InitialDirectory = IO.Path.GetDirectoryName(Reflection.Assembly.GetExecutingAssembly().Location) & "\GH"
        If fdOpen.ShowDialog() <> DialogResult.Cancel Then txtOutputAudio.Text = Join(fdOpen.FileNames, "|")
        fdOpen.Filter = "AutoXB Scripts|*.axb"
        fdOpen.Multiselect = False
    End Sub

    Private Sub btnFaster_Click(sender As Object, e As EventArgs) Handles btnFaster.Click
        If Not activeScript Is Nothing Then activeScript.adjustQueue.Enqueue(-nudSpeed.Value)
    End Sub

    Private Sub btnSlower_Click(sender As Object, e As EventArgs) Handles btnSlower.Click
        If Not activeScript Is Nothing Then activeScript.adjustQueue.Enqueue(nudSpeed.Value)
    End Sub

    Private Sub AudioSettingsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AudioSettingsToolStripMenuItem.Click
        Dim frmA As New frmAudio
        frmA.ShowDialog()
    End Sub

    Private Sub btnComment_Click(sender As Object, e As EventArgs) Handles btnComment.Click
        If lbActions.SelectedItems.Count <> 1 Then Exit Sub
        Dim Action As clsAction = lbActions.SelectedItem
        Dim comment As String = Action.comment
        comment = InputBox("Enter new comment for this action:",, comment)
        Action.comment = comment
        Action.refresh(lbActions)
    End Sub

    Private Sub txtGame_Validated(sender As Object, e As EventArgs) Handles txtGame.LostFocus
        activeFile.game = txtGame.Text
    End Sub

    Private Sub txtTitle_Validated(sender As Object, e As EventArgs) Handles txtTitle.LostFocus
        activeFile.title = txtTitle.Text
    End Sub

    Private Sub txtDesc_Validated(sender As Object, e As EventArgs) Handles txtDesc.LostFocus
        activeFile.description = txtDesc.Text
    End Sub

    Private Sub ConsoleTunerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConsoleTunerToolStripMenuItem.Click
        Dim url As String = InputBox("Enter the URL to import:",, "https://www.consoletuner.com/gpclib/?s=850")
        Dim sf As clsScriptFile = convertCTScript(url)
        If sf Is Nothing Then Exit Sub
        loadScript(sf)
    End Sub

    Private Sub ConsoleTunerBulkToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConsoleTunerBulkToolStripMenuItem.Click
        Dim urls As String = frmMLInput.MLInputBox("Console Tuner Bulk Import", "Paste the URLs to convert:")
        Dim urlLines() As String = urls.Split(vbCrLf)
        If Not IO.Directory.Exists("Scripts\ConsoleTuner") Then IO.Directory.CreateDirectory("Scripts\ConsoleTuner")

        For Each url As String In urlLines
            Dim sf As clsScriptFile = convertCTScript(url)
            If Not sf Is Nothing Then
                Dim path As String = "Scripts\ConsoleTuner\" & sf.title & ".axb"
                sf.saveScriptXML(path)
            End If
        Next

    End Sub

    Private Sub TextToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TextToolStripMenuItem.Click
        Dim ss As New frmText
        ss.ShowDialog()
        If Not ss.actions Is Nothing Then
            If activeGroup.actions.Count > 0 Then
                If MsgBox("Replace existing script?" & vbCrLf & "Answer no to append.", vbYesNo) = MsgBoxResult.Yes Then
                    activeGroup.actions.Clear()
                Else
                    For Each act As clsAction In ss.actions
                        act.index += activeGroup.actions.Count
                    Next
                End If
            End If
            For Each act As clsAction In ss.actions
                    act.group = activeGroup
                    activeGroup.actions.Add(act)
                Next
                refreshGroup()
            End If
            ss.Dispose()
        ss = Nothing
    End Sub
End Class