API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 21st, 2020
93
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.11 KB | None | 0 0
raw download clone embed print report
  1. A5iBind7:
  2. {
  3. IfWinActive GTA5 and A5iBinder
  4. {
  5. Loop
  6. {
  7. GetKeyState, ShiftST, Shift
  8. If ShiftST = U
  9. Loop
  10. {
  11. GetKeyState, ControlST, Control
  12. If ControlST = U
  13. Loop
  14. {
  15. GetKeyState, AltST, Alt
  16. If AltST = U
  17. Goto, A5iBind7Continue
  18. Sleep 1
  19. }
  20. Sleep 1
  21. }
  22. Sleep 1
  23. }
  24. A5iBind7Continue:
  25. If Reg7Hotkey Contains ^
  26. Send, {Sleep 5}{LControl Down}{Sleep 3}{LControl Up}{Sleep 1}
  27. A5iBind7Nmb := 0
  28. Loop, 10
  29. {
  30. A5iBind7Nmb++
  31. GuiControl, IGM%A5iBind7Nmb%: Hide, MainIGMEnter
  32. GuiControl, IGM%A5iBind7Nmb%: Hide, MainIGMRShift
  33. }
  34. GuiControl, IGM11: Hide, 11IGMEnter
  35. GuiControl, IGM11: Hide, 11IGMRShift
  36. A5iBind7Nmb :=
  37. If NewRPPause = 1
  38. Sleep 1300
  39. NewRPPause = 0
  40. If A5iLang = 1
  41. GoSub, MainGuiLang
  42. WasAnRP = 0
  43. Loop, %Reg7String%
  44. {
  45. If (Reg7ButSet%A_Index%Command != "")
  46. {
  47. If (ClipBoard != "")
  48. ClipBoardRes := % ClipBoard
  49. ClipBoard := % Reg7ButSet%A_Index%Command
  50. IfWinNotActive GTA5 and A5iBinder
  51. {
  52. If (ClipBoardRes != "")
  53. ClipBoard := % ClipBoardRes
  54. ClipBoardRes :=
  55. If WasAnRP = 0
  56. SoundPlay, %StopSound%
  57. Break
  58. }
  59. If WasAnRP = 1
  60. {
  61. If (ClipBoardRes != "")
  62. ClipBoard := % ClipBoardRes
  63. ClipBoardRes :=
  64. Break
  65. }
  66. If (Reg7ButSet%A_Index%Enter = "1")
  67. {
  68. BlockInput, On
  69. Send, {VK54 Down}{VK54 Up}
  70. GetKeyState, 54St, VK54
  71. If 54St = U
  72. {
  73. If RegCheckTSLag != 1
  74. Send, {Sleep 3}{RControl Down}{Sleep 1}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 1}{RControl Up}{Sleep 1}
  75. Else
  76. Send, {Sleep 5}{RControl Down}{Sleep 2}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 2}{RControl Up}{Sleep 1}
  77. Send, {Enter}{Sleep 1}
  78. }
  79. Else
  80. {
  81. Loop
  82. {
  83. GetKeyState, 54St, VK54
  84. If 54St = U
  85. Break
  86. Sleep 1
  87. }
  88. If RegCheckTSLag != 1
  89. Send, {Sleep 3}{RControl Down}{Sleep 1}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 1}{RControl Up}{Sleep 1}{Enter}{Sleep 1}
  90. Else
  91. Send, {Sleep 5}{RControl Down}{Sleep 2}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 2}{RControl Up}{Sleep 1}{Enter}{Sleep 1}
  92. }
  93. NewRPPause = 1
  94. BlockInput, Off
  95. }
  96. If (Reg7ButSet%A_Index%Enter = "0")
  97. {
  98. BlockInput, On
  99. Send, {VK54 Down}{VK54 Up}
  100. GetKeyState, 54St, VK54
  101. If 54St = U
  102. {
  103. If A5iLang = 1
  104. {
  105. If Reg7ButSet%A_Index%Command Contains [курсор]
  106. {
  107. RegExMatch(Reg7ButSet%A_Index%Command, "(.*)\[курсор](.*)", A5iBindCursor)
  108. If RegCheckTSLag != 1
  109. Send, {Sleep 3}{RControl Down}{Sleep 1}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 1}{RControl Up}{Sleep 1}
  110. Else
  111. Send, {Sleep 5}{RControl Down}{Sleep 2}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 2}{RControl Up}{Sleep 1}
  112. Send, % "{Left " StrLen(A5iBindCursor2) "}" "{VK08 8}"
  113. }
  114. Else
  115. {
  116. If RegCheckTSLag != 1
  117. Send, {Sleep 3}{RControl Down}{Sleep 1}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 1}{RControl Up}{Sleep 1}
  118. Else
  119. Send, {Sleep 5}{RControl Down}{Sleep 2}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 2}{RControl Up}{Sleep 1}
  120. }
  121. }
  122. If A5iLang = 2
  123. {
  124. If Reg7ButSet%A_Index%Command Contains [cursor]
  125. {
  126. RegExMatch(Reg7ButSet%A_Index%Command, "(.*)\[cursor](.*)", A5iBindCursor)
  127. If RegCheckTSLag != 1
  128. Send, {Sleep 3}{RControl Down}{Sleep 1}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 1}{RControl Up}{Sleep 1}
  129. Else
  130. Send, {Sleep 5}{RControl Down}{Sleep 2}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 2}{RControl Up}{Sleep 1}
  131. Send, % "{Left " StrLen(A5iBindCursor2) "}" "{VK08 8}"
  132. }
  133. Else
  134. {
  135. If RegCheckTSLag != 1
  136. Send, {Sleep 3}{RControl Down}{Sleep 1}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 1}{RControl Up}{Sleep 1}
  137. Else
  138. Send, {Sleep 5}{RControl Down}{Sleep 2}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 2}{RControl Up}{Sleep 1}
  139. }
  140. }
  141. }
  142. Else
  143. {
  144. Loop
  145. {
  146. GetKeyState, 54St, VK54
  147. If 54St = U
  148. Break
  149. Sleep 1
  150. }
  151. If A5iLang = 1
  152. {
  153. If Reg7ButSet%A_Index%Command Contains [курсор]
  154. {
  155. RegExMatch(Reg7ButSet%A_Index%Command, "(.*)\[курсор](.*)", A5iBindCursor)
  156. If RegCheckTSLag != 1
  157. Send, {Sleep 3}{RControl Down}{Sleep 1}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 1}{RControl Up}{Sleep 1}
  158. Else
  159. Send, {Sleep 5}{RControl Down}{Sleep 2}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 2}{RControl Up}{Sleep 1}
  160. Send, % "{Left " StrLen(A5iBindCursor2) "}" "{VK08 8}"
  161. }
  162. Else
  163. {
  164. If RegCheckTSLag != 1
  165. Send, {Sleep 3}{RControl Down}{Sleep 1}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 1}{RControl Up}{Sleep 1}
  166. Else
  167. Send, {Sleep 5}{RControl Down}{Sleep 2}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 2}{RControl Up}{Sleep 1}
  168. }
  169. }
  170. If A5iLang = 2
  171. {
  172. If Reg7ButSet%A_Index%Command Contains [cursor]
  173. {
  174. RegExMatch(Reg7ButSet%A_Index%Command, "(.*)\[cursor](.*)", A5iBindCursor)
  175. If RegCheckTSLag != 1
  176. Send, {Sleep 3}{RControl Down}{Sleep 1}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 1}{RControl Up}{Sleep 1}
  177. Else
  178. Send, {Sleep 5}{RControl Down}{Sleep 2}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 2}{RControl Up}{Sleep 1}
  179. Send, % "{Left " StrLen(A5iBindCursor2) "}" "{VK08 8}"
  180. }
  181. Else
  182. {
  183. If RegCheckTSLag != 1
  184. Send, {Sleep 3}{RControl Down}{Sleep 1}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 1}{RControl Up}{Sleep 1}
  185. Else
  186. Send, {Sleep 5}{RControl Down}{Sleep 2}{VK56 Down}{Sleep 1}{VK56 Up}{Sleep 2}{RControl Up}{Sleep 1}
  187. }
  188. }
  189. }
  190. If (ClipBoardRes != "")
  191. ClipBoard := % ClipBoardRes
  192. BlockInput, Off
  193. A5iBind7Nmb := 0
  194. Loop, 10
  195. {
  196. A5iBind7Nmb++
  197. GuiControl, IGM%A5iBind7Nmb%: Show, MainIGMEnter
  198. }
  199. GuiControl, IGM11: Show, 11IGMEnter
  200. A5iBind7Nmb :=
  201. SoundPlay, %EntWaitSound%
  202. Loop
  203. {
  204. If WasAnRP = 1
  205. Goto, A5iBind7Stop
  206. GetKeyState, EntSt, Enter
  207. If EntSt = D
  208. {
  209. IfWinActive GTA5 and A5iBinder
  210. Loop
  211. {
  212. If WasAnRP = 1
  213. Goto, A5iBind7Stop
  214. GetKeyState, EntSt, Enter
  215. If EntSt = U
  216. {
  217. NewRPPause = 1
  218. A5iBind7Nmb := 0
  219. Loop, 10
  220. {
  221. A5iBind7Nmb++
  222. GuiControl, IGM%A5iBind7Nmb%: Hide, MainIGMEnter
  223. }
  224. GuiControl, IGM11: Hide, 11IGMEnter
  225. A5iBind7Nmb :=
  226. SoundPlay, %WaitCompleteSound%
  227. Goto, Enter7Continue
  228. }
  229. Sleep 1
  230. }
  231. }
  232. Sleep 1
  233. }
  234. Enter7Continue:
  235. If (ClipBoard != "")
  236. ClipBoardRes := % ClipBoard
  237. }
  238. }
  239. IfWinNotActive GTA5 and A5iBinder
  240. {
  241. If (ClipBoardRes != "")
  242. ClipBoard := % ClipBoardRes
  243. ClipBoardRes :=
  244. If WasAnRP = 0
  245. SoundPlay, %StopSound%
  246. Break
  247. }
  248. If WasAnRP = 1
  249. {
  250. If (ClipBoardRes != "")
  251. ClipBoard := % ClipBoardRes
  252. ClipBoardRes :=
  253. Break
  254. }
  255. If (Reg7ButSet%A_Index%Screen = "1")
  256. {
  257. Sleep 300
  258. GoSub, A5iScreenshot
  259. }
  260. IfWinNotActive GTA5 and A5iBinder
  261. {
  262. If (ClipBoardRes != "")
  263. ClipBoard := % ClipBoardRes
  264. ClipBoardRes :=
  265. If WasAnRP = 0
  266. SoundPlay, %StopSound%
  267. Break
  268. }
  269. If WasAnRP = 1
  270. {
  271. If (ClipBoardRes != "")
  272. ClipBoard := % ClipBoardRes
  273. ClipBoardRes :=
  274. Break
  275. }
  276. If (Reg7ButSet%A_Index%RShift = "1")
  277. {
  278. If (ClipBoardRes != "")
  279. ClipBoard := % ClipBoardRes
  280. A5iBind7Nmb := 0
  281. Loop, 10
  282. {
  283. A5iBind7Nmb++
  284. GuiControl, IGM%A5iBind7Nmb%: Show, MainIGMRShift
  285. }
  286. GuiControl, IGM11: Show, 11IGMRShift
  287. A5iBind7Nmb :=
  288. SoundPlay, %ShWaitSound%
  289. Loop
  290. {
  291. If WasAnRP = 1
  292. Goto, A5iBind7Stop
  293. GetKeyState, RShSt, RShift
  294. If RShSt = D
  295. {
  296. IfWinActive GTA5 and A5iBinder
  297. Loop
  298. {
  299. If WasAnRP = 1
  300. Goto, A5iBind7Stop
  301. GetKeyState, RShSt, RShift
  302. If RShSt = U
  303. {
  304. NewRPPause = 1
  305. A5iBind7Nmb := 0
  306. Loop, 10
  307. {
  308. A5iBind7Nmb++
  309. GuiControl, IGM%A5iBind7Nmb%: Hide, MainIGMRShift
  310. }
  311. GuiControl, IGM11: Hide, 11IGMRShift
  312. A5iBind7Nmb :=
  313. SoundPlay, %WaitCompleteSound%
  314. Goto, RShift7Continue
  315. }
  316. Sleep 1
  317. }
  318. }
  319. Sleep 1
  320. }
  321. RShift7Continue:
  322. If (ClipBoard != "")
  323. ClipBoardRes := % ClipBoard
  324. }
  325. If (ClipBoardRes != "")
  326. {
  327. ClipBoard := % ClipBoardRes
  328. ClipBoardRes :=
  329. }
  330. If (Reg7ButSet%A_Index%Screen = "1")
  331. {
  332. Res7ButSetDelay = % Reg7ButSet%A_Index%Delay
  333. Reg7ButSet%A_Index%Delay := Reg7ButSet%A_Index%Delay - 300
  334. If Reg7ButSet%A_Index%Delay <= 0
  335. Reg7ButSet%A_Index%Delay = 1
  336. Sleep % Reg7ButSet%A_Index%Delay
  337. Reg7ButSet%A_Index%Delay = %Res7ButSetDelay%
  338. Res7ButSetDelay :=
  339. }
  340. Else
  341. Sleep % Reg7ButSet%A_Index%Delay
  342. NewRPPause = 0
  343. }
  344. A5iBind7Stop:
  345. NewRPPause = 0
  346. WasAnRP = 1
  347. If (ClipBoardRes != "")
  348. {
  349. ClipBoard := % ClipBoardRes
  350. ClipBoardRes :=
  351. }
  352. A5iBind7Nmb := 0
  353. Loop, 10
  354. {
  355. A5iBind7Nmb++
  356. GuiControl, IGM%A5iBind7Nmb%: Hide, MainIGMEnter
  357. GuiControl, IGM%A5iBind7Nmb%: Hide, MainIGMRShift
  358. }
  359. GuiControl, IGM11: Hide, 11IGMEnter
  360. GuiControl, IGM11: Hide, 11IGMRShift
  361. A5iBind7Nmb :=
  362. }
  363. }
  364. Return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!