Advertisement
Hiranus

ARK scroll items

Apr 28th, 2017
174
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. CurrentKey := 0
  2.  
  3. ^j::
  4.    WinGetClass, class, A
  5.     MsgBox % class
  6. Return
  7.  
  8. #IfWinActive ahk_class Notepad++
  9. +WheelUp::
  10. CurrentKey := CurrentKey + 1
  11. if CurrentKey > 10
  12. {
  13.     CurrentKey := 1
  14. }
  15.  
  16. SendValue(CurrentKey)
  17. return
  18.  
  19. +WheelDown::
  20. CurrentKey := CurrentKey - 1
  21. if CurrentKey < 1
  22. {
  23.     CurrentKey := 10
  24. }
  25.  
  26. SendValue(CurrentKey)
  27. return
  28.  
  29.  
  30. 1::
  31. CurrentKey := 1
  32. SendValue(CurrentKey)
  33. return
  34.  
  35. 2::
  36. CurrentKey := 2
  37. SendValue(CurrentKey)
  38. return
  39. 3::
  40. CurrentKey := 3
  41. SendValue(CurrentKey)
  42. return
  43. 4::
  44. CurrentKey := 4
  45. SendValue(CurrentKey)
  46. return
  47. 5::
  48. CurrentKey := 5
  49. SendValue(CurrentKey)
  50. return
  51. 6::
  52. CurrentKey := 6
  53. SendValue(CurrentKey)
  54. return
  55. 7::
  56. CurrentKey := 7
  57. SendValue(CurrentKey)
  58. return
  59. 8::
  60. CurrentKey := 8
  61. SendValue(CurrentKey)
  62. return
  63. 9::
  64. CurrentKey := 9
  65. SendValue(CurrentKey)
  66. return
  67. 0::
  68. CurrentKey := 10
  69. SendValue(CurrentKey)
  70. return
  71.  
  72. #IfWinActive
  73.  
  74. SendValue(value)
  75. {
  76.     if value = 10
  77.     {
  78.         Send 0
  79.         Send {enter}
  80.     }
  81.     else
  82.     {
  83.         send %value%
  84.         Send {enter}
  85.     }
  86. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement