Sign in to follow this  
Followers 0
UFWU

Tales Of Pirates Binding

3 posts in this topic

#1 ·  Posted (edited)

hello first topic here umm ok please some1 tell me is _Ispressed a default command or Ezzetabi script because unsure also i have binded a few key for a game Tales Of Pirates (TOP)also known as Pirate King Online (PKO) because the keys are all over the keyboard so you can use the mouse and comfortably use mapped keys.

also i want to know if i can use pretty much the same procedure to bind keys but with a input box where u select which key you bind and what hotkey you want eg. by pressing x you send('{LSHIFT}')

x being user defined also what gets sent user defined

Global $Paused 


HotKeySet("{z}", "TogglePause")  

While 1
 
  If _IsPressed('1b') = 1 Then Exit;1b is ESC 11=CTRL
  If _IsPressed('41') = 1 Then Send( '{CTRLDOWN}+{A 5}')
     Send ('{CTRLUP}');A Picks Everything Off Floor
  If _IsPressed('48') = 1 Then MsgBox ( 0,'Help', 'Z To Pause, 1 = F1, 2 = F2 And So On, ESC to Quit Hotkeys, Q To Sit And A To Pickup, CRTL locks SHIFT,Shift Again To Disable It, I Recomend You Press TAB Before Pressing Hotkey To Disable Chat!')  

  Sleep(5)
  
  If _IsPressed('51') = 1 Then Send( '{Ins}');Q To Sit
  If _IsPressed('31') = 1 Then Send( '{F1}');1 = F1
  If _IsPressed('32') = 1 Then Send( '{F2}');2 = F2 And So On!
  If _IsPressed('33') = 1 Then Send( '{F3}')
  If _IsPressed('34') = 1 Then Send( '{F4}')
  If _IsPressed('35') = 1 Then Send( '{F5}')
  If _IsPressed('36') = 1 Then Send( '{F6}')
  If _IsPressed('37') = 1 Then Send( '{F7}')
  If _IsPressed('38') = 1 Then Send( '{F8}')
  If _IsPressed('39') = 1 Then Send( '{F9}')
  If _IsPressed('11') = 1 Then Send( '{LSHIFT DOWN}')

WEnd

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Exit

Func _IsPressed($hexKey)
; $hexKey must be the value of one of the keys.
; _IsPressed will return 0 if the key is not pressed, 1 if it is.
; $hexKey should entered as a string, don't forget the quotes!
  
  Local $aR, $bO
  
  $hexKey = '0x' & $hexKey
  $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey)
  If Not @error And BitAND($aR[0], 0x8000) = 0x8000 Then
     $bO = 1
  Else
     $bO = 0
  EndIf
  
  Return $bO
EndFunc;==>_IsPressed

#cs
  01 Left mouse button
  02 Right mouse button
  04 Middle mouse button (three-button mouse)
  05 Windows 2000/XP: X1 mouse button
  06 Windows 2000/XP: X2 mouse button
  08 BACKSPACE key
  09 TAB key
  0C CLEAR key
  0D ENTER key
  10 SHIFT key
  11 CTRL key
  12 ALT key
  13 PAUSE key
  14 CAPS LOCK key
  1B ESC key
  20 SPACEBAR
  21 PAGE UP key
  22 PAGE DOWN key
  23 END key
  24 HOME key
  25 LEFT ARROW key
  26 UP ARROW key
  27 RIGHT ARROW key
  28 DOWN ARROW key
  29 SELECT key
  2A PRINT key
  2B EXECUTE key
  2C PRINT SCREEN key
  2D INS key
  2E DEL key
  30 0 key
  31 1 key
  32 2 key
  33 3 key
  34 4 key
  35 5 key
  36 6 key
  37 7 key
  38 8 key
  39 9 key
  41 A key
  42 B key
  43 C key
  44 D key
  45 E key
  46 F key
  47 G key
  48 H key
  49 I key
  4A J key
  4B K key
  4C L key
  4D M key
  4E N key
  4F O key
  50 P key
  51 Q key
  52 R key
  53 S key
  54 T key
  55 U key
  56 V key
  57 W key
  58 X key
  59 Y key
  5A Z key
  5B Left Windows key
  5C Right Windows key
  60 Numeric keypad 0 key
  61 Numeric keypad 1 key
  62 Numeric keypad 2 key
  63 Numeric keypad 3 key
  64 Numeric keypad 4 key
  65 Numeric keypad 5 key
  66 Numeric keypad 6 key
  67 Numeric keypad 7 key
  68 Numeric keypad 8 key
  69 Numeric keypad 9 key
  6A Multiply key
  6B Add key
  6C Separator key
  6D Subtract key
  6E Decimal key
  6F Divide key
  70 F1 key
  71 F2 key
  72 F3 key
  73 F4 key
  74 F5 key
  75 F6 key
  76 F7 key
  77 F8 key
  78 F9 key
  79 F10 key
  7A F11 key
  7B F12 key
  7C-7F F13 key - F16 key
  80H-87H F17 key - F24 key
  90 NUM LOCK key
  91 SCROLL LOCK key
  A0 Left SHIFT key
  A1 Right SHIFT key
  A2 Left CONTROL key
  A3 Right CONTROL key
  A4 Left MENU key
  A5 Right MENU key
#ce

i'm sure i had more to say but already forgot lol please reply as i'd love to learn more about scripting BTW i no my script is basic and i would like to try do any request's and may i ask what GUI stands for and means/does

if u use my script once run press h after bout 2 seconds loading to see hotkeys to be used on Tales Of Piratess or Pirate King Online

Edited by UFWU

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

You can develop it using HotKeySet and within the function you can do something and then unbind it, send it to the active window and bind it again so it'll be less CPU sparking style as you're using in the loop.

GUI is just Graphical User Interface which mean you don't need to use the old dos style to interact with the user, you can use graphical interface which is much more comfortable and convenience way, and beautiful way :).

Edited by Authenticity

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

xD Thx Lol Also no errors or warnings with my script but i can pause the script and unpause it then i cant pause it again also is there away to set shift down when capslock is on and shift up when caplock off

will now need to reread gui interface help and design setting :) and i have tried using variables eg If _Ispressed('14') = 1 change someing to 1 like $a= 1

then if capslock or ('14') is pressed again change back to $a=0 not to keen on the hole $ thing not to good need some explaining seeing as there arnt vid tuts andsoz for spelling mistakes thankyou in advance for any and all help posted here i will read and reply ASAP and is _Ispressed Ezzetabi's script or is or standard default:-)

Edited by UFWU

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0