[AutoIt] Tab key to cycle through hotbars

[Penakle]

Make sure you set your hotbar changing bindings to CTRL instead of SHIFT, so it doesn't mess with you while you're sprinting.

Dim $a, $b, $c, $d, $e, $f, $g, $h
$b = InputBox( "Question", "How many different weapons to use?", "2" )
If $b = 2 Then
	$c = InputBox( "Question", "Hotbar number for Weapon 1?", "1" )
	$d = InputBox( "Question", "Hotbar number for Weapon 2?", "2" )
	HotKeySet( "{TAB}", "Tab1" )
ElseIf $b = 3 Then
	$c = InputBox( "Question", "Hotbar number for Weapon 1?", "1" )
	$d = InputBox( "Question", "Hotbar number for Weapon 2?", "2" )
	$e = InputBox( "Question", "Hotbar number for Weapon 3?", "3" )
	HotKeySet( "{TAB}", "Tab2" )
ElseIf $b = 4 Then
	$c = InputBox( "Question", "Hotbar number for Weapon 1?", "1" )
	$d = InputBox( "Question", "Hotbar number for Weapon 2?", "2" )
	$e = InputBox( "Question", "Hotbar number for Weapon 3?", "3" )
	$f = InputBox( "Question", "Hotbar number for Weapon 4?", "4" )
	HotKeySet( "{TAB}", "Tab3" )
ElseIf $b = 5 Then
	$c = InputBox( "Question", "Hotbar number for Weapon 1?", "1" )
	$d = InputBox( "Question", "Hotbar number for Weapon 2?", "2" )
	$e = InputBox( "Question", "Hotbar number for Weapon 3?", "3" )
	$f = InputBox( "Question", "Hotbar number for Weapon 4?", "4" )
	$g = InputBox( "Question", "Hotbar number for Weapon 5?", "5" )
	HotKeySet( "{TAB}", "Tab4" )
ElseIf $b = 6 Then
	$c = InputBox( "Question", "Hotbar number for Weapon 1?", "1" )
	$d = InputBox( "Question", "Hotbar number for Weapon 2?", "2" )
	$e = InputBox( "Question", "Hotbar number for Weapon 3?", "3" )
	$f = InputBox( "Question", "Hotbar number for Weapon 4?", "4" )
	$g = InputBox( "Question", "Hotbar number for Weapon 5?", "5" )
	$h = InputBox( "Question", "Hotbar number for Weapon 6?", "6" )
	HotKeySet( "{TAB}", "Tab5" )
ElseIf
	MsgBox( 0, "Alert", "You can only have 2-6 weapons." )
	Exit
EndIf

$a = 0

While 1
Sleep( 100 )
WEnd

Func Tab1( )
	$a = $a + 1
	If $a = 1 Then
		Send( "^" & $c )
	ElseIf $a = 2 Then
		Send( "^" & $d )
	ElseIf $a = 3 Then
		$a = 1
		Send( "^" & $c )
	EndIf
EndFunc

Func Tab2( )
	$a = $a + 1
	If $a = 1 Then
		Send( "^" & $c )
	ElseIf $a = 2 Then
		Send( "^" & $d )
	ElseIf $a = 3 Then
		Send( "^" & $e )
	ElseIf $a = 4 Then
		$a = 1
		Send( "^" & $c )
	EndIf
EndFunc


Func Tab3( )
	$a = $a + 1
	If $a = 1 Then
		Send( "^" & $c )
	ElseIf $a = 2 Then
		Send( "^" & $d )
	ElseIf $a = 3 Then
		Send( "^" & $e )
	ElseIf $a = 4 Then
		Send( "^" & $f )
	ElseIf $a = 5 Then
		$a = 1
		Send( "^" & $c )
	EndIf
EndFunc

Func Tab4( )
	$a = $a + 1
	If $a = 1 Then
		Send( "^" & $c )
	ElseIf $a = 2 Then
		Send( "^" & $d )
	ElseIf $a = 3 Then
		Send( "^" & $e )
	ElseIf $a = 4 Then
		Send( "^" & $f )
	ElseIf $a = 5 Then
		Send( "^" & $g )
	ElseIf $a = 6 Then
		$a = 1
		Send( "^" & $c )
	EndIf
EndFunc

Func Tab5( )
	$a = $a + 1
	If $a = 1 Then
		Send( "^" & $c )
	ElseIf $a = 2 Then
		Send( "^" & $d )
	ElseIf $a = 3 Then
		Send( "^" & $e )
	ElseIf $a = 4 Then
		Send( "^" & $f )
	ElseIf $a = 5 Then
		Send( "^" & $g )
	ElseIf $a = 6 Then
		Send( "^" & $h )
	ElseIf $a = 7 Then
		$a = 1
		Send( "^" & $c )
	EndIf
EndFunc