Advertisement
Guest User

Untitled

a guest
Mar 19th, 2018
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.88 KB | None | 0 0
  1. MacroStarted = false;
  2. BossStarted = false;
  3. Started_33 = false;
  4. Started_17 = false;
  5.  
  6. function OnEvent (event, arg)
  7.  
  8. --########################################################################################################
  9. --Macros an und ausschalten
  10. --########################################################################################################
  11.  
  12. -- Standard 1.54 Macro starten und ausschalten
  13. if (event == "G_PRESSED" and arg == 1) then
  14. if not (MacroStarted) then
  15.  
  16. if (MacroStarted or BossStarted or Started_33 or Started_17) then -- Falls schon Macro gestartet abbrechen und Signal an AHK das abgebrochen wurde
  17. AbortMacro();
  18. MacroStarted = false;
  19. BossStarted = false;
  20. Started_17 = false;
  21. Started_33 = false;
  22. PressKey("F16");
  23. ReleaseKey ("F16");
  24. end
  25. PlayMacro("1.54");
  26. MacroStarted = true;
  27. PressKey("F15");
  28. ReleaseKey ("F15");
  29. else
  30. AbortMacro();
  31. MacroStarted = false;
  32. PressKey("F15");
  33. ReleaseKey ("F15");
  34. end
  35. end
  36.  
  37. -- BossMacro an und ausschalten
  38. if (event == "G_PRESSED" and arg == 6) then -- BossMacro an und ausschalten
  39. if not (BossStarted) then
  40. if(MacroStarted or BossStarted or Started_33 or Started_17) then -- Falls schon Macro gestartet abbrechen und Signal an AHK das abgebrochen wurde
  41. AbortMacro();
  42. MacroStarted = false;
  43. BossStarted = false;
  44. Started_17 = false;
  45. Started_33 = false;
  46. PressKey("F15");
  47. ReleaseKey ("F15");
  48. end
  49. PlayMacro("Boos");
  50. BossStarted = true;
  51. PressKey("F16");
  52. ReleaseKey ("F16");
  53. else
  54. AbortMacro();
  55. BossStarted = false;
  56. PressKey("F15");
  57. ReleaseKey ("F15");
  58. end
  59. end
  60.  
  61. -- 17_7_2 an und ausschalten
  62. if (event == "G_PRESSED" and arg == 7) then -- 17_7_2 an und ausschalten
  63. if not (Started_17) then
  64. if(MacroStarted or BossStarted or Started_33 or Started_17) then -- Falls schon Macro gestartet abbrechen und Signal an AHK das abgebrochen wurde
  65. AbortMacro();
  66. MacroStarted = false;
  67. BossStarted = false;
  68. Started_17 = false;
  69. Started_33 = false;
  70. PressKey("F15");
  71. ReleaseKey ("F15");
  72. end
  73. PlayMacro("17_7_2");
  74. Started_17 = true;
  75. PressKey("F17");
  76. ReleaseKey ("F17");
  77. else
  78. AbortMacro();
  79. Started_17 = false;
  80. PressKey("F15");
  81. ReleaseKey ("F15");
  82. end
  83. end
  84.  
  85. -- 33_11_3 an und ausschalten
  86. if (event == "G_PRESSED" and arg == 8) then -- 17_7_2 an und ausschalten
  87. if not (Started_33) then
  88. if(MacroStarted or BossStarted or Started_33 or Started_17) then -- Falls schon Macro gestartet abbrechen und Signal an AHK das abgebrochen wurde
  89. AbortMacro();
  90. MacroStarted = false;
  91. BossStarted = false;
  92. Started_17 = false;
  93. Started_33 = false;
  94. PressKey("F15");
  95. ReleaseKey ("F15");
  96. end
  97. PlayMacro("33_11_3");
  98. Started_33 = true;
  99. PressKey("F18");
  100. ReleaseKey ("F18");
  101. else
  102. AbortMacro();
  103. Started_33 = false;
  104. PressKey("F15");
  105. ReleaseKey ("F15");
  106. end
  107. end
  108.  
  109.  
  110. --########################################################################################################
  111. --Paragonswitch
  112. --########################################################################################################
  113.  
  114. --Switch in Vita
  115. if (event == "G_PRESSED" and arg == 3) then
  116. -- Get the current mouse cursor position
  117. x, y = GetMousePosition();
  118. local i = 0;
  119.  
  120. -- Paragon Öffnen
  121. PressKey ("p");
  122. ReleaseKey ("p");
  123. Sleep(10);
  124.  
  125. -- Reset
  126. MoveMouseTo (32887, 44459); -- Reset
  127. PressAndReleaseMouseButton (1);
  128. Sleep(100);
  129.  
  130. -- Bewegungsgeschwindigkeit
  131. MoveMouseTo (43508, 31462);
  132. Sleep(50);
  133. PressKey ("lCtrl");
  134. PressAndReleaseMouseButton (1);
  135. Sleep(2);
  136. ReleaseKey ("lCtrl");
  137. Sleep(105);
  138.  
  139. --Vita
  140. MoveMouseTo (43405, 25631);
  141. PressKey ("lCtrl");
  142. for i = 0,35,1 do -- mit der Zahl 25 Experimentieren, je mehr Paragon desto höher die Zahl
  143. PressAndReleaseMouseButton (1);
  144. Sleep(2);
  145. i = i + 1;
  146. end
  147. ReleaseKey ("lCtrl");
  148. Sleep(100);
  149.  
  150. --Bestätigen
  151. MoveMouseTo (28106, 49379);
  152. PressAndReleaseMouseButton (1);
  153. Sleep(100);
  154.  
  155. --Maus wieder zurück wo sie am Anfang war
  156. MoveMouseTo (x,y);
  157.  
  158. --Für AHK
  159. PressKey("F13");
  160. ReleaseKey ("F13");
  161.  
  162. end
  163.  
  164. --Switch in Int
  165. if (event == "G_PRESSED" and arg == 4) then -- G9 Funktionstaste
  166. -- Get the current mouse cursor position
  167. x, y = GetMousePosition();
  168. local i = 0;
  169.  
  170. --Paragon öffnen
  171. PressKey ("p");
  172. ReleaseKey ("p");
  173. Sleep(10);
  174.  
  175. --Reset
  176. MoveMouseTo (32887, 44459);
  177. PressAndReleaseMouseButton (1);
  178. Sleep(100);
  179.  
  180. --Ressource
  181. MoveMouseTo (43508, 36989);
  182. Sleep(50);
  183. PressKey ("lCtrl");
  184. PressAndReleaseMouseButton (1);
  185. Sleep(5);
  186. ReleaseKey ("lCtrl");
  187. Sleep(100);
  188.  
  189. --Mainstat
  190. MoveMouseTo (43474, 20286);
  191. PressKey ("lCtrl");
  192. for i = 0,25,1 do -- mit der Zahl 25 Experimentieren, je mehr Paragon desto höher die Zahl
  193. PressAndReleaseMouseButton (1);
  194. Sleep(2);
  195. i = i + 1;
  196. end
  197. ReleaseKey ("lCtrl");
  198. Sleep(100);
  199.  
  200. --Bestätigen
  201. MoveMouseTo (28106, 49379); -- OK
  202. PressAndReleaseMouseButton (1);
  203. Sleep(100);
  204.  
  205. --Maus wieder zurück
  206. MoveMouseTo (x,y);
  207.  
  208. --Für AHK
  209. PressKey("F14");
  210. ReleaseKey ("F14");
  211.  
  212. end
  213. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement