This script is for running in the background so you can bind hotbar keys to they Fkeys. Throw desired skills/spells/potions on a hotbar, and by pressing the corresponding Fkey, the script will switch to the hotbar, select the skill/spell/potion, and switch back to the first hotbar. You need to rebind your hotbar switches to CTRL + Hotbar Number in order to not mess with sprint. You should also unbind anything you have set to your Fkeys.
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.
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