Guest User

Untitled

a guest
Jul 16th, 2018
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.44 KB | None | 0 0
  1. isMouseShown()
  2. {
  3. StructSize := A_PtrSize + 16
  4. VarSetCapacity(InfoStruct, StructSize)
  5. NumPut(StructSize, InfoStruct)
  6. DllCall("GetCursorInfo", UInt, &InfoStruct)
  7. Result := NumGet(InfoStruct, 8)
  8.  
  9. if Result
  10. return 1
  11. else
  12. return 0
  13. }
  14.  
  15. #If !isMouseShown() and WinActive("Darkfall Online")
  16.  
  17. /*
  18. Reference for special keys
  19. shift = +
  20. alt = !
  21. ctrl = ^
  22. */
  23. /*
  24. Person Date Comment
  25. ----------------------------------------------------------------------------------------------------------
  26. Vodecca 2/6/2011 Created Cycle Spells
  27.  
  28. */
  29.  
  30.  
  31. {
  32. #NoEnv
  33. SendMode Input
  34. curSpell=0
  35. #IfWinActive, Darkfall Online ; only activates script if you are in darkfall.
  36.  
  37. ;Cycle spells
  38. ~*e::
  39. IfWinActive, Darkfall Online
  40. {
  41. if curSpell = 0
  42. {
  43. send {F10}
  44. curSpell++
  45. } else if curSpell = 1
  46. {
  47. send {F11}
  48. curSpell++
  49. } else if curSpell = 2
  50. {
  51. send {F12}
  52. curSpell++
  53. }else if curSpell = 3
  54. {
  55. send {F9}
  56. curSpell++
  57. }else if curSpell = 4
  58. {
  59. send {F8}
  60. curSpell=0
  61. }
  62. return
  63. }
  64. }
  65.  
  66. IniFile := "C:\loot.txt"
  67. FileGetSize, size, %IniFile%
  68. if (size = "") {
  69. MsgBox Setting up
  70. IniWrite, 1300, %IniFile%, Loot, xdest ; --- destination x pos
  71. IniWrite, 700, %IniFile%, Loot, ydest ; --- destination y pos
  72. } else {
  73. IniRead, xdest, %IniFile%, Loot, xdest ; --- destination x pos
  74. IniRead, ydest, %IniFile%, Loot, ydest ; --- destination y pos
  75. }
  76. CoordMode, Pixel
  77.  
  78.  
  79.  
  80. $!Lbutton:: ;quick loot -------------------------
  81.  
  82. MouseGetPos, x1, y1
  83. MouseClickDrag, left, x1, y1, xdest, ydest, 0 ;0 is mouse speed, 0 is instant
  84. MouseMove, x1, y1, 0 ;0 is mouse speed, 0 is instant
  85.  
  86. return
  87.  
  88. $!Rbutton:: ;loot destination ------------------------->
  89.  
  90. MouseGetPos, xdest, ydest
  91. IniWrite, %xdest%, %IniFile%, Loot, xdest
  92. IniWrite, %ydest%, %IniFile%, Loot, ydest
  93.  
  94. return
  95.  
  96. ~F1 Up:: ;this will trigger when you release the shift key.
  97. if (sprint != 1) ;if you aren't sprinting
  98. {
  99. Send {F1 down}
  100. sprint := 1 ;you are now sprinting
  101. tooltip, sprint, 1100, 60, 1
  102. }
  103. else ;if you're already sprinting
  104. {
  105. Send {F1 up}
  106. sprint := 0 ;you are no longer sprinting
  107. tooltip, , , ,1
  108. }
  109. return
  110.  
  111.  
  112. ~Mbutton:: ;this toggles your GUI by pressing the f11 key.
  113.  
  114. ;if (gui != 1)
  115. ; {
  116. ;
  117. ; Send {ESCAPE}
  118. ; Sleep 20
  119. ; gui := 1
  120. ; }
  121. ;else
  122. ; {
  123. ; gui := 0
  124. ; }
  125.  
  126. Send {BACKSPACE}
  127. if (sprint != 1) ;if you aren't sprinting
  128. {
  129. ;continue to not sprint
  130. }
  131. else ;if you ARE sprinting
  132. {
  133.  
  134. Sleep 30
  135. Send {F12 up}
  136. Sleep 40
  137. Send {F12 down} ;continue to sprint
  138. }
  139. return
Add Comment
Please, Sign In to add comment