There is no pause and exit in order to be able to run this script at the same time as the other scripts I wrote.
Code:
Dim $a, $b
HotKeySet( "{F1}", "F1" )
HotKeySet( "{F2}", "F2" )
HotKeySet( "{F3}", "F3" )
HotKeySet( "{F4}", "F4" )
HotKeySet( "{F5}", "F5" )
HotKeySet( "{F6}", "F6" )
HotKeySet( "{F7}", "F7" )
HotKeySet( "{F8}", "F8" )
HotKeySet( "{F9}", "F9" )
HotKeySet( "{F10}", "F10" )
HotKeySet( "{F11}", "F11" )
$b = InputBox( "Question", "What is your default hotbar?", "1" )
$a = InputBox( "Question", "What Hotbar do you want the Fkeys to refer to?", "2" )
While 1
Sleep( 100 )
WEnd
Func F1 ( )
Send( "^" & $a )
Send( "1" )
Send( "^" & $b )
EndFunc
Func F2 ( )
Send( "^" & $a )
Send( "2" )
Send( "^" & $b )
EndFunc
Func F3 ( )
Send( "^" & $a )
Send( "3" )
Send( "^" & $b )
EndFunc
Func F4 ( )
Send( "^" & $a )
Send( "4" )
Send( "^" & $b )
EndFunc
Func F5 ( )
Send( "^" & $a )
Send( "5" )
Send( "^" & $b )
EndFunc
Func F6 ( )
Send( "^" & $a )
Send( "6" )
Send( "^" & $b )
EndFunc
Func F7 ( )
Send( "^" & $a )
Send( "7" )
Send( "^" & $b )
EndFunc
Func F8 ( )
Send( "^" & $a )
Send( "8" )
Send( "^" & $b )
EndFunc
Func F9 ( )
Send( "^" & $a )
Send( "9" )
Send( "^" & $b )
EndFunc
Func F10 ( )
Send( "^" & $a )
Send( "0" )
Send( "^" & $b )
EndFunc
Func F11 ( )
Send( "{ENTER}" )
Sleep( 100 )
Send( "/bindstone_recall" )
Sleep( 100 )
Send( "{ENTER}" )
EndFunc






