Make sure you set your hotbar changing bindings to CTRL instead of SHIFT, so it doesn't mess with you while you're sprinting.
Code:
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